Return to DINIT20.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT20.m, revision 1.1

1.1     ! snw         1: DINIT20        ;SFISC/XAK-INITIALIZE VA FILEMAN ;07:33 AM  14 Sep 1994
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: DD     F I=1:1 S X=$T(DD+I),Y=$P(X," ",3,99) G ^DINIT22:X?.P S @("^DD(1.1,"_$E($P(X," ",2),3,99)_")=Y")
        !             5:        ;;0 FIELD^^.001,9
        !             6:        ;;0,"ID","WRITE" N % S %=$P(^(0),U,2) D EN^DDIOL("   "_$E(%,4,5)_"-"_$E(%,6,7)_"-"_$E(%,2,3)_"@"_$E($P(%_"0000",".",2),1,4),"","?0")
        !             7:        ;;0,"NM","AUDIT"
        !             8:        ;;.001,0 NUMBER^NJ7,0^^ ^K:+X'=X!(X<1)!(X?.E1"."1N.N) X
        !             9:        ;;.001,3 A whole number greater than 1.
        !            10:        ;;.01,0 INTERNAL ENTRY NUMBER^RF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<1)!'(X'?1P.E) X
        !            11:        ;;.01,.1 The Internal Number of the Entry that has been audited.
        !            12:        ;;.01,1,0 ^.1
        !            13:        ;;.01,1,1,0 1.1^B
        !            14:        ;;.01,1,1,1 S ^DIA(DIA,"B",$E(X,1,30),DA)=""
        !            15:        ;;.01,1,1,2 K ^DIA(DIA,"B",$E(X,1,30),DA)
        !            16:        ;;.02,0 DATE/TIME RECORDED^RD^^0;2^S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
        !            17:        ;;.02,1,0 ^.1
        !            18:        ;;.02,1,1,0 1.1^C
        !            19:        ;;.02,1,1,1 S ^DIA(DIA,"C",$E(X,1,30),DA)=""
        !            20:        ;;.02,1,1,2 K ^DIA(DIA,"C",$E(X,1,30),DA)
        !            21:        ;;.03,0 FIELD NUMBER^RF^^0;3^K:$L(X)>10!$L(X)<1) X
        !            22:        ;;.03,3 The number of the field that was audited.
        !            23:        ;;.04,0 USER^RP200'^VA(200,^0;4^Q
        !            24:        ;;.04,1,0 ^.1
        !            25:        ;;.04,1,1,0 1.1^D
        !            26:        ;;.04,1,1,1 S ^DIA(DIA,"D",$E(X,1,30),DA)=""
        !            27:        ;;.04,1,1,2 K ^DIA(DIA,"D",$E(X,1,30),DA)
        !            28:        ;;1,0 ENTRY NAME^CJ30^^ ; ^S %=^DIC(DIA,0,"GL"),X=^DIA(DIA,D0,0),X=$S($D(@(%_+X_",0)")):$P(^(0),U,1),1:""),C=$S($D(^DD(DIA,.01,0)):$P(^(0),U,2),1:""),Y=X D:Y]"" Y^DIQ:C]"" S X=Y,C=","
        !            29:        ;;1,9 ^
        !            30:        ;;1.1,0 FIELD NAME^CJ50X^^ ; ^S Y(1.1,1.1)=$S($D(^DIA(DIA,D0,0)):$P(^(0),U,3),1:"") X ^DD(1.1,1.1,9.2) K Y(1.1) S X=$E(X,1,$L(X)-1)
        !            31:        ;;1.1,9 ^
        !            32:        ;;1.1,9.2 X ^DD(1.1,1.1,9.3) S X="" F %=1:1:%-1 S X=X_Y(1.1,%)_","
        !            33:        ;;1.1,9.3 S X1=DIA F %=1:1 S X=$P(Y(1.1,1.1),",",%) Q:X=""  S Y(1.1,%)=$S($D(^DD(X1,X,0)):$P(^(0),U,1,2),1:"????"),X1=+$P(Y(1.1,%),U,2),Y(1.1,%)=$P(Y(1.1,%),U,1)
        !            34:        ;;2,0 OLD VALUE^CJ80^^ ; ^S X=$S($D(^DIA(DIA,D0,2)):^(2),1:"<no previous value>")
        !            35:        ;;2,9 ^
        !            36:        ;;2.1,0 OLD INTERNAL VALUE^F^^2.1;1^K:$L(X)>30 X
        !            37:        ;;2.2,0 DATATYPE OF OLD VALUE^S^S:SET;P:POINTER;V:VARIABLE POINTER;^2.1;2^Q
        !            38:        ;;3,0 NEW VALUE^CJ80^^ ; ^S X=$S($D(^DIA(DIA,D0,3)):^(3),1:"<deleted>")
        !            39:        ;;3,9 ^
        !            40:        ;;3.1,0 NEW INTERNAL VALUE^F^^3.1;1^K:$L(X)>30 X
        !            41:        ;;3.2,0 DATATYPE OF NEW VALUE^S^S:SET;P:POINTER;V:VARIABLE POINTER;^3.1;2^Q