DINIT11B ;SFISC/GFT,DCM,TKW-INITIALIZE VA FILEMAN ;05DEC2015
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
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")
;;1,0 ATTRIBUTE^N
;;1,0,"NM","FILE"
;;1,.01,0 NAME^RF^^0;1^K:$L(X)>45!($L(X)<3) X
;;1,.01,1,0 ^.1^1^1
;;1,.01,1,1,0 1^B
;;1,.01,1,1,1 S @(DIC_"""B"",$E(X,1,30),DA)=""""")
;;1,.01,1,1,2 K @(DIC_"""B"",$E(X,1,30),DA)")
;;1,.01,1,2,0 1^AD^MUMPS
;;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
;;1,.01,1,2,2 Q
;;1,.01,1,3,0 1^AE^MUMPS
;;1,.01,1,3,1 S:DIC'?1"^DOPT(".E ^DD(DA,0,"NM",X)=""
;;1,.01,1,3,2 K ^DD(DA,0,"NM")
;;1,.01,3 3-45 CHARACTERS
;;1,.01,"DEL",1,0 I DIC="^DIC(" D K^DIU2
;;1,.01,"DEL",.5,0 I DIC="^DIC(" D CHECKPT^DIU2
;;1,.01,"DEL","TRB",0 I $D(^DD(DA,"TRB")) D TRIG^DIDH
;;1,1,0 GLOBAL NAME^CJ14^^ ; ^S X=$S($D(^DIC(D0,0,"GL")):^("GL"),1:"")
;;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)")
;;1,4,0 DESCRIPTION^1.001^^%D;0
;;1.001,0 DESCRIPTION
;;1.001,.01,0 DESCRIPTION^W^^0;1
;;1.001,0,"UP" 1
;;1,10,0 APPLICATION GROUP^1.005^^%;0
;;1,20,0 DEVELOPER^P200'^VA(200,^%A;1^Q
;;1,21,0 DATE^D^^%A;2^S %DT="" D ^%DT S X=Y K:X<9 X
;;1,21.214,0 LAST DD MODIFICATION^D^^%MSC;1^S %DT="TSX" D ^%DT S X=Y K:X<9 X
;;1,21.214,3 Enter a date.
;;1,21.214,21,0 ^^2^2^3151205^
;;1,21.214,21,1,0 This field contains the date the Data Dictionary was last edited.
;;1,21.214,21,2,0 It is updated when Modify File Attributes is used to change the DD.
;;1.005,0 APPLICATION GROUP^
;;1.005,0,"NM","APPLICATION-GROUP"
;;1.005,0,"UP" 1
;;1.005,.01,0 APPLICATION GROUP^MF^^0;1^K:X'?.U!($L(X)+1\3-1) X
;;1.005,.01,3 A 'NAMESPACE' (2-4 BYTES) INDICATING A PACKAGE ACCESSING THIS FILE
;;1.005,.01,1,0 ^.1^2^2
;;1.005,.01,1,1,0 1.005^B
;;1.005,.01,1,1,1 S ^DIC(DA(1),"%","B",X,DA)=""
;;1.005,.01,1,1,2 K ^DIC(DA(1),"%","B",X,DA)
;;1.005,.01,1,2,0 1^AC
;;1.005,.01,1,2,1 S ^DIC("AC",X,DA(1),DA)=""
;;1.005,.01,1,2,2 K ^DIC("AC",X,DA(1),DA)
;;1.005,1,0 PACKAGE NAME^CJ30^^ ; ^S X=$S($D(^DIC(9.4,+$O(^DIC(9.4,"C",$P(^DIC(D0,"%",D1,0),U),0)),0)):$P(^(0),U,1),1:"")
;;1.005,1,21,0 ^^3^3^3160119^
;;1.005,1,21,1,0 The Package File (#9.4) is searched for Packages containing the File.
;;1.005,1,21,2,0 A list of the identified Packages is created for display.
;;1.005,1,21,3,0 Multiple Packages will be shown if appropriate.
;;1.01,0 ATTRIBUTE
;;1.01,0,"NM","OPTION"
;;1.01,.001,0 NUMBER^N^^ ^K:X\1'=X X
;;1.01,.01,0 NAME^RF^^0;1^K:$L(X)>70 X
;;1.01,.01,1,0 ^.1
;;1.01,.01,1,1,0 1.01^B
;;1.01,.01,1,1,1 S @(DIC_"""B"",$E(X,1,30),DA)=""""")
;;1.01,.01,1,1,2 K @(DIC_"""B"",$E(X,1,30),DA)")
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT11B 3060 printed Sep 23, 2025@20:26:40 Page 2
DINIT11B ;SFISC/GFT,DCM,TKW-INITIALIZE VA FILEMAN ;05DEC2015
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
DD FOR I=1:1
SET X=$TEXT(DD+I)
SET Y=$PIECE(X," ",3,99)
if X?.P
GOTO ^DINIT11C
SET @("^DD("_$EXTRACT($PIECE(X," ",2),3,99)_")=Y")
+1 ;;1,0 ATTRIBUTE^N
+2 ;;1,0,"NM","FILE"
+3 ;;1,.01,0 NAME^RF^^0;1^K:$L(X)>45!($L(X)<3) X
+4 ;;1,.01,1,0 ^.1^1^1
+5 ;;1,.01,1,1,0 1^B
+6 ;;1,.01,1,1,1 S @(DIC_"""B"",$E(X,1,30),DA)=""""")
+7 ;;1,.01,1,1,2 K @(DIC_"""B"",$E(X,1,30),DA)")
+8 ;;1,.01,1,2,0 1^AD^MUMPS
+9 ;;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
+10 ;;1,.01,1,2,2 Q
+11 ;;1,.01,1,3,0 1^AE^MUMPS
+12 ;;1,.01,1,3,1 S:DIC'?1"^DOPT(".E ^DD(DA,0,"NM",X)=""
+13 ;;1,.01,1,3,2 K ^DD(DA,0,"NM")
+14 ;;1,.01,3 3-45 CHARACTERS
+15 ;;1,.01,"DEL",1,0 I DIC="^DIC(" D K^DIU2
+16 ;;1,.01,"DEL",.5,0 I DIC="^DIC(" D CHECKPT^DIU2
+17 ;;1,.01,"DEL","TRB",0 I $D(^DD(DA,"TRB")) D TRIG^DIDH
+18 ;;1,1,0 GLOBAL NAME^CJ14^^ ; ^S X=$S($D(^DIC(D0,0,"GL")):^("GL"),1:"")
+19 ;;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)")
+20 ;;1,4,0 DESCRIPTION^1.001^^%D;0
+21 ;;1.001,0 DESCRIPTION
+22 ;;1.001,.01,0 DESCRIPTION^W^^0;1
+23 ;;1.001,0,"UP" 1
+24 ;;1,10,0 APPLICATION GROUP^1.005^^%;0
+25 ;;1,20,0 DEVELOPER^P200'^VA(200,^%A;1^Q
+26 ;;1,21,0 DATE^D^^%A;2^S %DT="" D ^%DT S X=Y K:X<9 X
+27 ;;1,21.214,0 LAST DD MODIFICATION^D^^%MSC;1^S %DT="TSX" D ^%DT S X=Y K:X<9 X
+28 ;;1,21.214,3 Enter a date.
+29 ;;1,21.214,21,0 ^^2^2^3151205^
+30 ;;1,21.214,21,1,0 This field contains the date the Data Dictionary was last edited.
+31 ;;1,21.214,21,2,0 It is updated when Modify File Attributes is used to change the DD.
+32 ;;1.005,0 APPLICATION GROUP^
+33 ;;1.005,0,"NM","APPLICATION-GROUP"
+34 ;;1.005,0,"UP" 1
+35 ;;1.005,.01,0 APPLICATION GROUP^MF^^0;1^K:X'?.U!($L(X)+1\3-1) X
+36 ;;1.005,.01,3 A 'NAMESPACE' (2-4 BYTES) INDICATING A PACKAGE ACCESSING THIS FILE
+37 ;;1.005,.01,1,0 ^.1^2^2
+38 ;;1.005,.01,1,1,0 1.005^B
+39 ;;1.005,.01,1,1,1 S ^DIC(DA(1),"%","B",X,DA)=""
+40 ;;1.005,.01,1,1,2 K ^DIC(DA(1),"%","B",X,DA)
+41 ;;1.005,.01,1,2,0 1^AC
+42 ;;1.005,.01,1,2,1 S ^DIC("AC",X,DA(1),DA)=""
+43 ;;1.005,.01,1,2,2 K ^DIC("AC",X,DA(1),DA)
+44 ;;1.005,1,0 PACKAGE NAME^CJ30^^ ; ^S X=$S($D(^DIC(9.4,+$O(^DIC(9.4,"C",$P(^DIC(D0,"%",D1,0),U),0)),0)):$P(^(0),U,1),1:"")
+45 ;;1.005,1,21,0 ^^3^3^3160119^
+46 ;;1.005,1,21,1,0 The Package File (#9.4) is searched for Packages containing the File.
+47 ;;1.005,1,21,2,0 A list of the identified Packages is created for display.
+48 ;;1.005,1,21,3,0 Multiple Packages will be shown if appropriate.
+49 ;;1.01,0 ATTRIBUTE
+50 ;;1.01,0,"NM","OPTION"
+51 ;;1.01,.001,0 NUMBER^N^^ ^K:X\1'=X X
+52 ;;1.01,.01,0 NAME^RF^^0;1^K:$L(X)>70 X
+53 ;;1.01,.01,1,0 ^.1
+54 ;;1.01,.01,1,1,0 1.01^B
+55 ;;1.01,.01,1,1,1 S @(DIC_"""B"",$E(X,1,30),DA)=""""")
+56 ;;1.01,.01,1,1,2 K @(DIC_"""B"",$E(X,1,30),DA)")
