Return to DINIT11B.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT11B.m, revision 1.1

1.1     ! snw         1: DINIT11B       ;SFISC/GFT,DCM-INITIALIZE VA FILEMAN ;7/22/94  08:14
        !             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 ^DINIT11C:X?.P S @("^DD("_$E($P(X," ",2),3,99)_")=Y")
        !             5:        ;;1,0 ATTRIBUTE^N
        !             6:        ;;1,0,"NM","FILE"
        !             7:        ;;1,.01,0 NAME^RF^^0;1^K:$L(X)>45!($L(X)<3) X
        !             8:        ;;1,.01,1,0 ^.1^1^1
        !             9:        ;;1,.01,1,1,0 1^B
        !            10:        ;;1,.01,1,1,1 S @(DIC_"""B"",$E(X,1,30),DA)=""""")
        !            11:        ;;1,.01,1,1,2 K @(DIC_"""B"",$E(X,1,30),DA)")
        !            12:        ;;1,.01,1,2,0 1^AD^MUMPS
        !            13:        ;;1,.01,1,2,1 I DIC'?1"^DOPT(".E,$D(^DIC(DA,0,"GL"))  S $P(@(^DIC(DA,0,"GL")_"0)"),U,1)=X
        !            14:        ;;1,.01,1,2,2 Q
        !            15:        ;;1,.01,1,3,0 1^AE^MUMPS
        !            16:        ;;1,.01,1,3,1 S:DIC'?1"^DOPT(".E ^DD(DA,0,"NM",X)=""
        !            17:        ;;1,.01,1,3,2 K ^DD(DA,0,"NM")
        !            18:        ;;1,.01,3 3-45 CHARACTERS
        !            19:        ;;1,.01,"DEL",1,0 I DIC="^DIC(" D K^DIU2
        !            20:        ;;1,.01,"DEL",.5,0 I DIC="^DIC(" D POINT^DIDH I $O(^DD(DA,0,"PT",0))'=""
        !            21:        ;;1,.01,"DEL","TRB",0 I $D(^DD(DA,"TRB")) D TRIG^DIDH
        !            22:        ;;1,1,0 GLOBAL NAME^CJ14^^ ; ^S X=$S($D(^DIC(D0,0,"GL")):^("GL"),1:"")
        !            23:        ;;1,1.1,0 ENTRIES^CJ7,0^^ ; ^S @("X=+$P("_$S($D(^DIC(D0,0,"GL")):"$S($D("_^("GL")_"0)):^(0),1:0)",1:0)_",""^"",4)")
        !            24:        ;;1,4,0 DESCRIPTION^1.001^^%D;0
        !            25:        ;;1.001,0 DESCRIPTION
        !            26:        ;;1.001,.01,0 DESCRIPTION^W^^0;1
        !            27:        ;;1.001,0,"UP" 1
        !            28:        ;;1,10,0 APPLICATION GROUP^1.005^^%;0
        !            29:        ;;1,20,0 DEVELOPER^P200^VA(200,^%A;1^Q
        !            30:        ;;1,21,0 DATE^D^^%A;2^S %DT="" D ^%DT S X=Y K:X<9 X
        !            31:        ;;1.005,0 APPLICATION GROUP^
        !            32:        ;;1.005,0,"NM","APPLICATION-GROUP"
        !            33:        ;;1.005,0,"UP" 1
        !            34:        ;;1.005,.01,0 APPLICATION GROUP^MF^^0;1^K:X'?.U!($L(X)+1\3-1) X
        !            35:        ;;1.005,.01,3 A 'NAMESPACE' (2-4 BYTES) INDICATING A PACKAGE ACCESSING THIS FILE
        !            36:        ;;1.005,.01,1,0 ^.1^2^2
        !            37:        ;;1.005,.01,1,1,0 1.005^B
        !            38:        ;;1.005,.01,1,1,1 S ^DIC(DA(1),"%","B",X,DA)=""
        !            39:        ;;1.005,.01,1,1,2 K ^DIC(DA(1),"%","B",X,DA)
        !            40:        ;;1.005,.01,1,2,0 1^AC
        !            41:        ;;1.005,.01,1,2,1 S ^DIC("AC",X,DA(1),DA)=""
        !            42:        ;;1.005,.01,1,2,2 K ^DIC("AC",X,DA(1),DA)
        !            43:        ;;1.005,1,0 PACKAGE NAME^CJ30^^ ; ^S X=$S($D(^DIC(9.4,+$O(^DIC(9.4,"C",X,0)),0)):$P(^(0),U,1),1:"")
        !            44:        ;;1.01,0 ATTRIBUTE
        !            45:        ;;1.01,0,"NM","OPTION"
        !            46:        ;;1.01,.001,0 NUMBER^N^^ ^K:X\1'=X X
        !            47:        ;;1.01,.01,0 NAME^RF^^0;1^K:$L(X)>70 X
        !            48:        ;;1.01,.01,1,0 ^.1
        !            49:        ;;1.01,.01,1,1,0 1.01^B
        !            50:        ;;1.01,.01,1,1,1 S @(DIC_"""B"",$E(X,1,30),DA)=""""")
        !            51:        ;;1.01,.01,1,1,2 K @(DIC_"""B"",$E(X,1,30),DA)")