Routine: DINIT0FH

DINIT0FH ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM  30 Mar 1999

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 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

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

DINIT0FH  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM  30 Mar 1999

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        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

 +4        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

DINIT0FH.m