Return to DINIT11.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT11.m, revision 1.1

1.1     ! snw         1: DINIT11        ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;7/22/94  08:07
        !             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 ^DINIT11A:X?.P S @("^DD("_$E($P(X," ",2),3,99)_")=Y")
        !             5:        ;;0,23,0 TECHNICAL DESCRIPTION^.001^^23;0
        !             6:        ;;0,50,0 DATE FIELD LAST EDITED^D^^DT;1^Q
        !             7:        ;;0,50,9 ^
        !             8:        ;;0,999,0 TRIGGERED-BY POINTER^.15^^5;0
        !             9:        ;;0,999,9 ^
        !            10:        ;;.1,0,"NM","CROSS-REFERENCE"
        !            11:        ;;.1,0 CROSS-REFERENCE^
        !            12:        ;;.1,.01,0 INDEX^F^^0;E1,245^Q
        !            13:        ;;.1,.01,1,0 ^.1^3^3
        !            14:        ;;.1,.01,1,1,0 0^IX
        !            15:        ;;.1,.01,1,1,1 S:$P(X,U,2)]"" @("^DD("_$P(X,"^",1)_",0,""IX"",$P(X,""^"",2),DA(2),DA(1))=""""")
        !            16:        ;;.1,.01,1,1,2 K:$P(X,U,2)]"" @("^DD("_$P(X,"^",1)_",0,""IX"",$P(X,""^"",2),DA(2),DA(1))")
        !            17:        ;;.1,.01,1,2,0 DA(2)^IX
        !            18:        ;;.1,.01,1,2,1 S ^DD(DA(2),"IX",DA(1))=""
        !            19:        ;;.1,.01,1,2,2 I $O(^DD(DA(2),DA(1),1,0))=DA,$O(^(DA))="" K ^DD(DA(2),"IX",DA(1))
        !            20:        ;;.1,.01,1,3,0 ^^TRIGGER
        !            21:        ;;.1,.01,1,3,1 S Y=$P(X,U,5),X=$P(X,U,4),Z=DA(2)_U_DA(1)_U_DA I Y F %=1:1 Q:'%  S %1=$S($D(^DD(X,Y,5,%,0)):^(0),1:0) Q:%1=Z  I '%1 S ^(0)=Z F %=-1:0 S ^DD(X,"TRB",DA(2),DA(1),DA,Y)="",Y=X Q:'$D(^DD(X,0,"UP"))  S X=^("UP"),Y=$O(^DD(X,"SB",Y,0))
        !            22:        ;;.1,.01,1,3,2 S Y=$P(X,"^",5),X=$P(X,"^",4) I Y S %=0 F  S %=$O(^DD(X,Y,5,%)) Q:%=""  Q:'$D(^(%,0))  I DA(2)_"^"_DA(1)_"^"_DA=^(0) K ^DD(X,Y,5,%) F  K ^DD(X,"TRB",DA(2),DA(1),DA,Y) Q:'$D(^DD(X,0,"UP"))  S Y=X,X=^("UP"),Y=$O(^DD(X,"SB",Y,0))
        !            23:        ;;.1,1,0 SET STATEMENT^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
        !            24:        ;;.1,1,3 This is Standard MUMPS code.
        !            25:        ;;.1,1,21,0 ^^3^3^2890802^
        !            26:        ;;.1,1,21,1,0 Enter Standard MUMPS code which will set this cross-reference.
        !            27:        ;;.1,1,21,2,0 You may use X to reference the data in this field and DA-array
        !            28:        ;;.1,1,21,3,0 to reference the internal entry numbers in the file.
        !            29:        ;;.1,1,"DEL",1,0 I 1 W $C(7),!,"CAN'T DELETE THIS NODE."
        !            30:        ;;.1,2,0 KILL STATEMENT^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
        !            31:        ;;.1,2,3 This is Standard MUMPS code.
        !            32:        ;;.1,2,21,0 ^^3^3^2890802^
        !            33:        ;;.1,2,21,1,0 Enter Standard MUMPS code which will kill this cross-reference.
        !            34:        ;;.1,2,21,2,0 You may use X to reference the data in this field and the DA-array
        !            35:        ;;.1,2,21,3,0 to reference the internal entry numbers in the file.
        !            36:        ;;.1,2,"DEL",1,0 I 1 W $C(7),!,"CAN'T DELETE THIS NODE."
        !            37:        ;;.1,3,0 NO-DELETION MESSAGE^F^^3;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<3) X
        !            38:        ;;.1,3,1,0 ^.1
        !            39:        ;;.1,3,1,1,0 .1^AC^MUMPS
        !            40:        ;;.1,3,1,1,1 Q
        !            41:        ;;.1,3,1,1,2 K:^DD(DA(2),DA(1),1,DA,3)']"" ^(3)
        !            42:        ;;.1,3,3 Answer must be 3-245 characters in length.
        !            43:        ;;.1,3,21,0 ^^2^2^2890803^^
        !            44:        ;;.1,3,21,1,0 Enter a message if you want to prevent this cross-reference from being
        !            45:        ;;.1,3,21,2,0 deleted.
        !            46:        ;;.1,4,0 DATE UPDATED^D^^DT;1^S %DT="ET" D ^%DT S X=Y K:Y<1 X
        !            47:        ;;.1,10,0 DESCRIPTION^.101^^%D;0
        !            48:        ;;.1,"IX",.01
        !            49:        ;;.101,0 DESCRIPTION SUB-FIELD^^.01^1
        !            50:        ;;.101,0,"UP" .1
        !            51:        ;;.101,.01,0 DESCRIPTION^W^^0;1^Q