DINIT0FH ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
;;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.
;
F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0FI S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.403051,40,9,2)
;;=4,20^50^4,13
;;^DIST(.404,.403051,40,10,0)
;;=10^READ ACCESS^3
;;^DIST(.404,.403051,40,10,1)
;;=1
;;^DIST(.404,.403051,40,10,2)
;;=13,20^15^13,7
;;^DIST(.404,.403051,40,11,0)
;;=11^WRITE ACCESS^3
;;^DIST(.404,.403051,40,11,1)
;;=2
;;^DIST(.404,.403051,40,11,2)
;;=14,20^15^14,6
;;^DIST(.404,.403061,0)
;;=DDGF HEADER BLOCK EDIT^.4031
;;^DIST(.404,.403061,40,0)
;;=^.4044I^2^2
;;^DIST(.404,.403061,40,1,0)
;;=2^HEADER BLOCK^3
;;^DIST(.404,.403061,40,1,1)
;;=1
;;^DIST(.404,.403061,40,1,2)
;;=3,17^30^3,3
;;^DIST(.404,.403061,40,1,13)
;;=D:X]"" PUT^DDSVALF("NAME","DDGF BLOCK EDIT 2","",DDSEXT,"I")
;;^DIST(.404,.403061,40,1,14)
;;=D HBVAL^DDGFU
;;^DIST(.404,.403061,40,2,0)
;;=1^ Edit Header Block Parameters ^1
;;^DIST(.404,.403061,40,2,2)
;;=^^1,24
;;^DIST(.404,.404011,0)
;;=DDGF FIELD ADD
;;^DIST(.404,.404011,40,0)
;;=^.4044I^3^3
;;^DIST(.404,.404011,40,1,0)
;;=1^Select BLOCK^2
;;^DIST(.404,.404011,40,1,2)
;;=1,15^30^1,1
;;^DIST(.404,.404011,40,1,3)
;;=!M
;;^DIST(.404,.404011,40,1,3.1)
;;=N X,DA,DIC S DA(2)=+DDGFFM,DA(1)=+DDGFPG,X=" ",DIC="^DIST(.403,"_DA(2)_",""40"","_DA(1)_",""40"",",DIC(0)="M" D ^DIC S Y=$S(Y=-1:"",1:"`"_+Y) I Y="",$P($G(^DIST(.403,+DDGFFM,40,+DDGFPG,40,0)),U,4)=1 S Y=+$O(^(0)),Y=$S(Y:"`"_Y,1:"")
;;^DIST(.404,.404011,40,1,13)
;;=I X]"" D PUT^DDSVALF("FIELD ORDER","","",$O(^DIST(.404,X,40,"B",""),-1)+1\1) D:$D(DUZ)#2 RECALL^DILFD(.4032,X_","_+DDGFPG_","_+DDGFFM_",",DUZ),RECALL^DILFD(.404,X_",",DUZ)
;;^DIST(.404,.404011,40,1,20)
;;=P^^DIST(.403,+DDGFFM,40,+DDGFPG,40,:QEAFMZ
;;^DIST(.404,.404011,40,1,23)
;;=S DDGFBLCK=X
;;^DIST(.404,.404011,40,2,0)
;;=2^FIELD ORDER^2
;;^DIST(.404,.404011,40,2,2)
;;=2,15^4^2,2
;;^DIST(.404,.404011,40,2,3)
;;=!M
;;^DIST(.404,.404011,40,2,3.1)
;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"" S Y=$O(^DIST(.404,V,40,"B",""),-1)+1\1
;;^DIST(.404,.404011,40,2,20)
;;=N^^0:99.9:1
;;^DIST(.404,.404011,40,2,21,0)
;;=^^1^1^2940630
;;^DIST(.404,.404011,40,2,21,1,0)
;;=This must be a number not already used
;;^DIST(.404,.404011,40,2,22)
;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"",$O(^DIST(.404,V,40,"B",X,""))]"" K X
;;^DIST(.404,.404011,40,2,23)
;;=S DDGFFORD=X
;;^DIST(.404,.404011,40,3,0)
;;=3^FIELD TYPE^2
;;^DIST(.404,.404011,40,3,2)
;;=3,15^30^3,3
;;^DIST(.404,.404011,40,3,3)
;;=DATA DICTIONARY
;;^DIST(.404,.404011,40,3,20)
;;=DD^^.4044,2
;;^DIST(.404,.404011,40,3,23)
;;=S DDGFTYPE=X
;;^DIST(.404,.404021,0)
;;=DDGF FIELD CAPTION ONLY^.4044
;;^DIST(.404,.404021,40,0)
;;=^.4044I^9^6
;;^DIST(.404,.404021,40,1,0)
;;=1^ Caption-Only Field Properties ^1
;;^DIST(.404,.404021,40,1,2)
;;=^^1,22
;;^DIST(.404,.404021,40,2,0)
;;=2^FIELD ORDER^3
;;^DIST(.404,.404021,40,2,1)
;;=.01
;;^DIST(.404,.404021,40,2,2)
;;=3,21^4^3,8
;;^DIST(.404,.404021,40,6,0)
;;=3^CAPTION^2
;;^DIST(.404,.404021,40,6,2)
;;=4,21^50^4,12
;;^DIST(.404,.404021,40,6,3)
;;=!M
;;^DIST(.404,.404021,40,6,3.1)
;;=S Y=DDGFCAP0
;;^DIST(.404,.404021,40,6,4)
;;=1
;;^DIST(.404,.404021,40,6,13)
;;=D:DDSOLD="!M" PUT^DDSVAL(.4044,.DA,1.1,"")
;;^DIST(.404,.404021,40,6,20)
;;=DD^^.4044,1
;;^DIST(.404,.404021,40,6,23)
;;=S DDGFCAP=X
;;^DIST(.404,.404021,40,7,0)
;;=5^EXECUTABLE CAPTION^3
;;^DIST(.404,.404021,40,7,1)
;;=1.1
;;^DIST(.404,.404021,40,7,2)
;;=7,21^50^7,1
;;^DIST(.404,.404021,40,7,13)
;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
;;^DIST(.404,.404021,40,8,0)
;;=6^CAPTION COORDINATE^2
;;^DIST(.404,.404021,40,8,2)
;;=8,21^7^8,1
;;^DIST(.404,.404021,40,8,3)
;;=!M
;;^DIST(.404,.404021,40,8,3.1)
;;=S Y=DDGFCC0
;;^DIST(.404,.404021,40,8,4)
;;=1
;;^DIST(.404,.404021,40,8,20)
;;=DD^^.4044,5.1
;;^DIST(.404,.404021,40,8,23)
;;=S DDGFCC=X
;;^DIST(.404,.404021,40,9,0)
;;=4^UNIQUE NAME^3
;;^DIST(.404,.404021,40,9,1)
;;=3.1
;;^DIST(.404,.404021,40,9,2)
;;=5,21^50^5,8
;;^DIST(.404,.404031,0)
;;=DDGF FIELD DD^.4044
;;^DIST(.404,.404031,40,0)
;;=^.4044I^17^14
;;^DIST(.404,.404031,40,1,0)
;;=1^ Data Dictionary Field Properties ^1
;;^DIST(.404,.404031,40,1,2)
;;=^^1,22
;;^DIST(.404,.404031,40,2,0)
;;=2^FIELD ORDER^3
;;^DIST(.404,.404031,40,2,1)
;;=.01
;;^DIST(.404,.404031,40,2,2)
;;=3,26^4^3,13
;;^DIST(.404,.404031,40,3,0)
;;=3^FIELD^3
;;^DIST(.404,.404031,40,3,1)
;;=4
;;^DIST(.404,.404031,40,3,2)
;;=3,66^10^3,59
;;^DIST(.404,.404031,40,3,4)
;;=1
;;^DIST(.404,.404031,40,3,13)
;;=D POSTCH1^DDGFU
;;^DIST(.404,.404031,40,5,0)
;;=8^DEFAULT^3
;;^DIST(.404,.404031,40,5,1)
;;=6
;;^DIST(.404,.404031,40,5,2)
;;=8,26^50^8,17
;;^DIST(.404,.404031,40,5,13)
;;=D:DDSOLD="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
;;^DIST(.404,.404031,40,7,0)
;;=11^BRANCHING LOGIC^3
;;^DIST(.404,.404031,40,7,1)
;;=10
;;^DIST(.404,.404031,40,7,2)
;;=12,26^50^12,9
;;^DIST(.404,.404031,40,8,0)
;;=12^PRE ACTION^3
;;^DIST(.404,.404031,40,8,1)
;;=11
;;^DIST(.404,.404031,40,8,2)
;;=13,26^50^13,14
;;^DIST(.404,.404031,40,9,0)
;;=13^POST ACTION^3
;;^DIST(.404,.404031,40,9,1)
;;=12
;;^DIST(.404,.404031,40,9,2)
;;=14,26^50^14,13
;;^DIST(.404,.404031,40,10,0)
;;=14^POST ACTION ON CHANGE^3
;;^DIST(.404,.404031,40,10,1)
;;=13
;;^DIST(.404,.404031,40,10,2)
;;=15,26^50^15,3
;;^DIST(.404,.404031,40,12,0)
;;=10^EXECUTABLE DEFAULT^3
;;^DIST(.404,.404031,40,12,1)
;;=6.01
;;^DIST(.404,.404031,40,12,2)
;;=10,26^50^10,6
;;^DIST(.404,.404031,40,12,13)
;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
;;^DIST(.404,.404031,40,13,0)
;;=4^OTHER PARAMETERS...^2
;;^DIST(.404,.404031,40,13,2)
;;=4,26^1^4,6^1
;;^DIST(.404,.404031,40,13,10)
;;=N DDGFFLD,DDGFSUB S DDSSTACK=11,DDGFFLD=$$GET^DDSVAL(.4044,.DA,4) I DDGFFLD S DDGFSUB=+$P($G(^DD(DDGFDD,DDGFFLD,0)),U,2) S:DDGFSUB DDSSTACK=$S(DDGFSUB_$P($G(^DD(DDGFSUB,.01,0)),U,2)'["W":21,1:31)
;;^DIST(.404,.404031,40,13,20)
;;=F^^0:0
;;^DIST(.404,.404031,40,13,21,0)
;;=^^1^1^2940928
;;^DIST(.404,.404031,40,13,21,1,0)
;;=Press <RET> to edit additional properties of this Data Dictionary field
;;^DIST(.404,.404031,40,14,0)
;;=7^CAPTION^2
;;^DIST(.404,.404031,40,14,2)
;;=7,26^50^7,17
;;^DIST(.404,.404031,40,14,3)
;;=!M
;;^DIST(.404,.404031,40,14,3.1)
;;=S Y=DDGFCAP0
;;^DIST(.404,.404031,40,14,13)
;;=D DDCAP^DDGFU
;;^DIST(.404,.404031,40,14,20)
;;=DD^^.4044,1
;;^DIST(.404,.404031,40,14,23)
;;=S DDGFCAP=X
;;^DIST(.404,.404031,40,15,0)
;;=5^SUPPRESS COLON AFTER CAPTION?^2
;;^DIST(.404,.404031,40,15,2)
;;=4,66^3^4,36^1
;;^DIST(.404,.404031,40,15,3)
;;=!M
;;^DIST(.404,.404031,40,15,3.1)
;;=S Y=DDGFSUP0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FH 7226 printed Sep 23, 2025@20:26:31 Page 2
DINIT0FH ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
+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 ;
+7 FOR I=1:2
SET X=$TEXT(ENTRY+I)
if X=""
GOTO ^DINIT0FI
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.404,.403051,40,9,2)
+2 ;;=4,20^50^4,13
+3 ;;^DIST(.404,.403051,40,10,0)
+4 ;;=10^READ ACCESS^3
+5 ;;^DIST(.404,.403051,40,10,1)
+6 ;;=1
+7 ;;^DIST(.404,.403051,40,10,2)
+8 ;;=13,20^15^13,7
+9 ;;^DIST(.404,.403051,40,11,0)
+10 ;;=11^WRITE ACCESS^3
+11 ;;^DIST(.404,.403051,40,11,1)
+12 ;;=2
+13 ;;^DIST(.404,.403051,40,11,2)
+14 ;;=14,20^15^14,6
+15 ;;^DIST(.404,.403061,0)
+16 ;;=DDGF HEADER BLOCK EDIT^.4031
+17 ;;^DIST(.404,.403061,40,0)
+18 ;;=^.4044I^2^2
+19 ;;^DIST(.404,.403061,40,1,0)
+20 ;;=2^HEADER BLOCK^3
+21 ;;^DIST(.404,.403061,40,1,1)
+22 ;;=1
+23 ;;^DIST(.404,.403061,40,1,2)
+24 ;;=3,17^30^3,3
+25 ;;^DIST(.404,.403061,40,1,13)
+26 ;;=D:X]"" PUT^DDSVALF("NAME","DDGF BLOCK EDIT 2","",DDSEXT,"I")
+27 ;;^DIST(.404,.403061,40,1,14)
+28 ;;=D HBVAL^DDGFU
+29 ;;^DIST(.404,.403061,40,2,0)
+30 ;;=1^ Edit Header Block Parameters ^1
+31 ;;^DIST(.404,.403061,40,2,2)
+32 ;;=^^1,24
+33 ;;^DIST(.404,.404011,0)
+34 ;;=DDGF FIELD ADD
+35 ;;^DIST(.404,.404011,40,0)
+36 ;;=^.4044I^3^3
+37 ;;^DIST(.404,.404011,40,1,0)
+38 ;;=1^Select BLOCK^2
+39 ;;^DIST(.404,.404011,40,1,2)
+40 ;;=1,15^30^1,1
+41 ;;^DIST(.404,.404011,40,1,3)
+42 ;;=!M
+43 ;;^DIST(.404,.404011,40,1,3.1)
+44 ;;=N X,DA,DIC S DA(2)=+DDGFFM,DA(1)=+DDGFPG,X=" ",DIC="^DIST(.403,"_DA(2)_",""40"","_DA(1)_",""40"",",DIC(0)="M" D ^DIC S Y=$S(Y=-1:"",1:"`"_+Y) I Y="",$P($G(^DIST(.403,+DDGFFM,40,+DDGFPG,40,0)),U,4)=1 S Y=+$O(^(0)),Y=$S(Y:"`"_Y,1:"")
+45 ;;^DIST(.404,.404011,40,1,13)
+46 ;;=I X]"" D PUT^DDSVALF("FIELD ORDER","","",$O(^DIST(.404,X,40,"B",""),-1)+1\1) D:$D(DUZ)#2 RECALL^DILFD(.4032,X_","_+DDGFPG_","_+DDGFFM_",",DUZ),RECALL^DILFD(.404,X_",",DUZ)
+47 ;;^DIST(.404,.404011,40,1,20)
+48 ;;=P^^DIST(.403,+DDGFFM,40,+DDGFPG,40,:QEAFMZ
+49 ;;^DIST(.404,.404011,40,1,23)
+50 ;;=S DDGFBLCK=X
+51 ;;^DIST(.404,.404011,40,2,0)
+52 ;;=2^FIELD ORDER^2
+53 ;;^DIST(.404,.404011,40,2,2)
+54 ;;=2,15^4^2,2
+55 ;;^DIST(.404,.404011,40,2,3)
+56 ;;=!M
+57 ;;^DIST(.404,.404011,40,2,3.1)
+58 ;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"" S Y=$O(^DIST(.404,V,40,"B",""),-1)+1\1
+59 ;;^DIST(.404,.404011,40,2,20)
+60 ;;=N^^0:99.9:1
+61 ;;^DIST(.404,.404011,40,2,21,0)
+62 ;;=^^1^1^2940630
+63 ;;^DIST(.404,.404011,40,2,21,1,0)
+64 ;;=This must be a number not already used
+65 ;;^DIST(.404,.404011,40,2,22)
+66 ;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"",$O(^DIST(.404,V,40,"B",X,""))]"" K X
+67 ;;^DIST(.404,.404011,40,2,23)
+68 ;;=S DDGFFORD=X
+69 ;;^DIST(.404,.404011,40,3,0)
+70 ;;=3^FIELD TYPE^2
+71 ;;^DIST(.404,.404011,40,3,2)
+72 ;;=3,15^30^3,3
+73 ;;^DIST(.404,.404011,40,3,3)
+74 ;;=DATA DICTIONARY
+75 ;;^DIST(.404,.404011,40,3,20)
+76 ;;=DD^^.4044,2
+77 ;;^DIST(.404,.404011,40,3,23)
+78 ;;=S DDGFTYPE=X
+79 ;;^DIST(.404,.404021,0)
+80 ;;=DDGF FIELD CAPTION ONLY^.4044
+81 ;;^DIST(.404,.404021,40,0)
+82 ;;=^.4044I^9^6
+83 ;;^DIST(.404,.404021,40,1,0)
+84 ;;=1^ Caption-Only Field Properties ^1
+85 ;;^DIST(.404,.404021,40,1,2)
+86 ;;=^^1,22
+87 ;;^DIST(.404,.404021,40,2,0)
+88 ;;=2^FIELD ORDER^3
+89 ;;^DIST(.404,.404021,40,2,1)
+90 ;;=.01
+91 ;;^DIST(.404,.404021,40,2,2)
+92 ;;=3,21^4^3,8
+93 ;;^DIST(.404,.404021,40,6,0)
+94 ;;=3^CAPTION^2
+95 ;;^DIST(.404,.404021,40,6,2)
+96 ;;=4,21^50^4,12
+97 ;;^DIST(.404,.404021,40,6,3)
+98 ;;=!M
+99 ;;^DIST(.404,.404021,40,6,3.1)
+100 ;;=S Y=DDGFCAP0
+101 ;;^DIST(.404,.404021,40,6,4)
+102 ;;=1
+103 ;;^DIST(.404,.404021,40,6,13)
+104 ;;=D:DDSOLD="!M" PUT^DDSVAL(.4044,.DA,1.1,"")
+105 ;;^DIST(.404,.404021,40,6,20)
+106 ;;=DD^^.4044,1
+107 ;;^DIST(.404,.404021,40,6,23)
+108 ;;=S DDGFCAP=X
+109 ;;^DIST(.404,.404021,40,7,0)
+110 ;;=5^EXECUTABLE CAPTION^3
+111 ;;^DIST(.404,.404021,40,7,1)
+112 ;;=1.1
+113 ;;^DIST(.404,.404021,40,7,2)
+114 ;;=7,21^50^7,1
+115 ;;^DIST(.404,.404021,40,7,13)
+116 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
+117 ;;^DIST(.404,.404021,40,8,0)
+118 ;;=6^CAPTION COORDINATE^2
+119 ;;^DIST(.404,.404021,40,8,2)
+120 ;;=8,21^7^8,1
+121 ;;^DIST(.404,.404021,40,8,3)
+122 ;;=!M
+123 ;;^DIST(.404,.404021,40,8,3.1)
+124 ;;=S Y=DDGFCC0
+125 ;;^DIST(.404,.404021,40,8,4)
+126 ;;=1
+127 ;;^DIST(.404,.404021,40,8,20)
+128 ;;=DD^^.4044,5.1
+129 ;;^DIST(.404,.404021,40,8,23)
+130 ;;=S DDGFCC=X
+131 ;;^DIST(.404,.404021,40,9,0)
+132 ;;=4^UNIQUE NAME^3
+133 ;;^DIST(.404,.404021,40,9,1)
+134 ;;=3.1
+135 ;;^DIST(.404,.404021,40,9,2)
+136 ;;=5,21^50^5,8
+137 ;;^DIST(.404,.404031,0)
+138 ;;=DDGF FIELD DD^.4044
+139 ;;^DIST(.404,.404031,40,0)
+140 ;;=^.4044I^17^14
+141 ;;^DIST(.404,.404031,40,1,0)
+142 ;;=1^ Data Dictionary Field Properties ^1
+143 ;;^DIST(.404,.404031,40,1,2)
+144 ;;=^^1,22
+145 ;;^DIST(.404,.404031,40,2,0)
+146 ;;=2^FIELD ORDER^3
+147 ;;^DIST(.404,.404031,40,2,1)
+148 ;;=.01
+149 ;;^DIST(.404,.404031,40,2,2)
+150 ;;=3,26^4^3,13
+151 ;;^DIST(.404,.404031,40,3,0)
+152 ;;=3^FIELD^3
+153 ;;^DIST(.404,.404031,40,3,1)
+154 ;;=4
+155 ;;^DIST(.404,.404031,40,3,2)
+156 ;;=3,66^10^3,59
+157 ;;^DIST(.404,.404031,40,3,4)
+158 ;;=1
+159 ;;^DIST(.404,.404031,40,3,13)
+160 ;;=D POSTCH1^DDGFU
+161 ;;^DIST(.404,.404031,40,5,0)
+162 ;;=8^DEFAULT^3
+163 ;;^DIST(.404,.404031,40,5,1)
+164 ;;=6
+165 ;;^DIST(.404,.404031,40,5,2)
+166 ;;=8,26^50^8,17
+167 ;;^DIST(.404,.404031,40,5,13)
+168 ;;=D:DDSOLD="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
+169 ;;^DIST(.404,.404031,40,7,0)
+170 ;;=11^BRANCHING LOGIC^3
+171 ;;^DIST(.404,.404031,40,7,1)
+172 ;;=10
+173 ;;^DIST(.404,.404031,40,7,2)
+174 ;;=12,26^50^12,9
+175 ;;^DIST(.404,.404031,40,8,0)
+176 ;;=12^PRE ACTION^3
+177 ;;^DIST(.404,.404031,40,8,1)
+178 ;;=11
+179 ;;^DIST(.404,.404031,40,8,2)
+180 ;;=13,26^50^13,14
+181 ;;^DIST(.404,.404031,40,9,0)
+182 ;;=13^POST ACTION^3
+183 ;;^DIST(.404,.404031,40,9,1)
+184 ;;=12
+185 ;;^DIST(.404,.404031,40,9,2)
+186 ;;=14,26^50^14,13
+187 ;;^DIST(.404,.404031,40,10,0)
+188 ;;=14^POST ACTION ON CHANGE^3
+189 ;;^DIST(.404,.404031,40,10,1)
+190 ;;=13
+191 ;;^DIST(.404,.404031,40,10,2)
+192 ;;=15,26^50^15,3
+193 ;;^DIST(.404,.404031,40,12,0)
+194 ;;=10^EXECUTABLE DEFAULT^3
+195 ;;^DIST(.404,.404031,40,12,1)
+196 ;;=6.01
+197 ;;^DIST(.404,.404031,40,12,2)
+198 ;;=10,26^50^10,6
+199 ;;^DIST(.404,.404031,40,12,13)
+200 ;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
+201 ;;^DIST(.404,.404031,40,13,0)
+202 ;;=4^OTHER PARAMETERS...^2
+203 ;;^DIST(.404,.404031,40,13,2)
+204 ;;=4,26^1^4,6^1
+205 ;;^DIST(.404,.404031,40,13,10)
+206 ;;=N DDGFFLD,DDGFSUB S DDSSTACK=11,DDGFFLD=$$GET^DDSVAL(.4044,.DA,4) I DDGFFLD S DDGFSUB=+$P($G(^DD(DDGFDD,DDGFFLD,0)),U,2) S:DDGFSUB DDSSTACK=$S(DDGFSUB_$P($G(^DD(DDGFSUB,.01,0)),U,2)'["W":21,1:31)
+207 ;;^DIST(.404,.404031,40,13,20)
+208 ;;=F^^0:0
+209 ;;^DIST(.404,.404031,40,13,21,0)
+210 ;;=^^1^1^2940928
+211 ;;^DIST(.404,.404031,40,13,21,1,0)
+212 ;;=Press <RET> to edit additional properties of this Data Dictionary field
+213 ;;^DIST(.404,.404031,40,14,0)
+214 ;;=7^CAPTION^2
+215 ;;^DIST(.404,.404031,40,14,2)
+216 ;;=7,26^50^7,17
+217 ;;^DIST(.404,.404031,40,14,3)
+218 ;;=!M
+219 ;;^DIST(.404,.404031,40,14,3.1)
+220 ;;=S Y=DDGFCAP0
+221 ;;^DIST(.404,.404031,40,14,13)
+222 ;;=D DDCAP^DDGFU
+223 ;;^DIST(.404,.404031,40,14,20)
+224 ;;=DD^^.4044,1
+225 ;;^DIST(.404,.404031,40,14,23)
+226 ;;=S DDGFCAP=X
+227 ;;^DIST(.404,.404031,40,15,0)
+228 ;;=5^SUPPRESS COLON AFTER CAPTION?^2
+229 ;;^DIST(.404,.404031,40,15,2)
+230 ;;=4,66^3^4,36^1
+231 ;;^DIST(.404,.404031,40,15,3)
+232 ;;=!M
+233 ;;^DIST(.404,.404031,40,15,3.1)
+234 ;;=S Y=DDGFSUP0
