Return to DIV.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIV.m, revision 1.1.1.1

1.1       snw         1: DIV    ;SFISC/GFT-VERIFY FLDS ;6/6/94  2:06 PM
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        K J
                      5:        S Q="""",S=";",V=0,P=0,I(0)=DIU,@("(A,J(0))=+$P("_DIU_"0),U,2)")
                      6:        I $O(^(0))'>0 W $C(7),"  NO ENTRIES ON FILE!" Q
                      7: DIC    S DIC="^DD(A,",DIC(0)="EZ",DIC("W")="W:$P(^(0),U,2) ""  (multiple)"""
                      8:        S DIC("S")="S %=$P(^(0),U,2) I %'[""C"",$S('%:1,1:$P(^DD(+%,.01,0),U,2)'[""W"")"
                      9:        W !,"VERIFY WHICH "_$P(^DD(A,0),U)_": " R X:DTIME Q:U[X
                     10:        I X="ALL" D ALL G Q:$D(DIRUT) I Y D  G Q^DIVR:DQI'>0
                     11:        .D FLDS
                     12:        .S B=0
                     13:        .D NEXTLVL
                     14:        .Q
                     15:        D ^DIC K DQI,^UTILITY("DIVR",$J)
                     16:        I Y<0 W:X?1."?" !?3,"You may enter ALL to verify every field at this level of the file.",! G DIC
                     17:        S DR=$P(Y(0),U,2) I DR S J(V)=A,P=+Y,V=V+1,A=+DR,I(V)=$P($P(Y(0),U,4),S,1) S:+I(V)'=I(V) I(V)=Q_I(V)_Q G DIC
                     18: 1      F T="N","D","P","S","V","F" Q:DR[T
                     19:        F W="FREE TEXT","SET OF CODES","DATE","NUMERIC","POINTER","VARIABLE POINTER","K" I T[$E(W) S:W="K" W="MUMPS" W "   ",W
                     20:        K DA S DIVZ=$P(Y(0),U,3),DDC=$P(Y(0),U,5,99),(DIFLD,DA)=+Y
                     21:        G ^DIVR
                     22:        ;
                     23: Q      K DIR,DIRUT,N,P,Q,S,V,C
                     24:        Q
                     25:        ;
                     26: ALL    S DIR(0)="Y",DIR("??")="^D H^DIV"
                     27:        S DIR("A")="DO YOU MEAN ALL THE FIELDS IN THE FILE"
                     28:        D ^DIR K DIR S X="ALL"
                     29:        Q
                     30:        ;
                     31: FLDS   S DQI=0 F  S DQI=$O(^DD(A,DQI)) Q:DQI'>0  S Y=DQI,Y(0)=^(Y,0),DR=$P(Y(0),U,2) D
                     32:        .I 'DR,DR'["C" W !!!,"--",$P(Y(0),U),"--" D 1 Q
                     33:        Q
                     34: NEXTLVL        ;
                     35:        F  S (B,C)=$O(^DD(A,"SB",B)) Q:B'>0  D
                     36:        .S DIC="^DD(A,",DIC(0)="Z",X=$O(^DD(A,"SB",B,"")) D ^DIC Q:Y'>0
                     37:        .S DR=$P(Y(0),U,2),J(V)=A,P=+Y,V=V+1,I(V)=$P($P(Y(0),U,4),S,1) S:+I(V)'=I(V) I(V)=Q_I(V)_Q
                     38:        .I $P(^DD(+DR,.01,0),U,2)["W" Q
                     39:        .D NEXTLVL2
                     40:        Q
                     41: NEXTLVL2       ;
                     42:        N A,B S A=C,B=0
                     43:        D FLDS
                     44:        D RECURSE
                     45:        K J(V),I(V) S V=V-1
                     46:        Q
                     47: RECURSE        ;
                     48:        D NEXTLVL
                     49:        Q
                     50: H      W !!?5,"YES means that every field at this level in the file will"
                     51:        W !?5,"be checked to see if it conforms to the input transform."
                     52:        W !!?5,"NO means that ALL will be used to lookup a field in the"
                     53:        W !?5,"file which begins with the letters ALL, e.g., ALLERGIES."
                     54:        Q