DINIT0FI ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;3:27 PM 20 Apr 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="" ^DINIT0FJ S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.404031,40,15,20)
;;=DD^^.4044,5.2
;;^DIST(.404,.404031,40,15,23)
;;=S DDGFSUP=X
;;^DIST(.404,.404031,40,16,0)
;;=6^UNIQUE NAME^3
;;^DIST(.404,.404031,40,16,1)
;;=3.1
;;^DIST(.404,.404031,40,16,2)
;;=5,26^50^5,13
;;^DIST(.404,.404031,40,17,0)
;;=9^EXECUTABLE CAPTION^3
;;^DIST(.404,.404031,40,17,1)
;;=1.1
;;^DIST(.404,.404031,40,17,2)
;;=9,26^50^9,6
;;^DIST(.404,.404031,40,17,13)
;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"),"I")
;;^DIST(.404,.404032,0)
;;=DDGF FIELD DD OTHER SINGLE^.4044
;;^DIST(.404,.404032,40,0)
;;=^.4044I^13^10
;;^DIST(.404,.404032,40,1,0)
;;=1^ Other Parameters ^1
;;^DIST(.404,.404032,40,1,2)
;;=^^1,27
;;^DIST(.404,.404032,40,2,0)
;;=2^REQUIRED^3
;;^DIST(.404,.404032,40,2,1)
;;=6.1
;;^DIST(.404,.404032,40,2,2)
;;=3,23^3^3,13
;;^DIST(.404,.404032,40,3,0)
;;=4^DISABLE EDITING^3
;;^DIST(.404,.404032,40,3,1)
;;=6.4
;;^DIST(.404,.404032,40,3,2)
;;=4,23^9^4,6
;;^DIST(.404,.404032,40,7,0)
;;=7^DATA LENGTH^2
;;^DIST(.404,.404032,40,7,2)
;;=7,23^3^7,10
;;^DIST(.404,.404032,40,7,3)
;;=!M
;;^DIST(.404,.404032,40,7,3.1)
;;=S Y=$G(DDGFDL0)
;;^DIST(.404,.404032,40,7,4)
;;=1
;;^DIST(.404,.404032,40,7,20)
;;=DD^^.4044,4.2
;;^DIST(.404,.404032,40,7,23)
;;=S DDGFDL=X
;;^DIST(.404,.404032,40,8,0)
;;=8^CAPTION COORDINATE^2
;;^DIST(.404,.404032,40,8,2)
;;=8,23^7^8,3
;;^DIST(.404,.404032,40,8,3)
;;=!M
;;^DIST(.404,.404032,40,8,3.1)
;;=S Y=$G(DDGFCC0)
;;^DIST(.404,.404032,40,8,20)
;;=DD^^.4044,5.1
;;^DIST(.404,.404032,40,8,23)
;;=S DDGFCC=X
;;^DIST(.404,.404032,40,9,0)
;;=9^DATA COORDINATE^2
;;^DIST(.404,.404032,40,9,2)
;;=9,23^7^9,6
;;^DIST(.404,.404032,40,9,3)
;;=!M
;;^DIST(.404,.404032,40,9,3.1)
;;=S Y=$G(DDGFDC0)
;;^DIST(.404,.404032,40,9,4)
;;=1
;;^DIST(.404,.404032,40,9,20)
;;=DD^^.4044,4.1
;;^DIST(.404,.404032,40,9,23)
;;=S DDGFDC=X
;;^DIST(.404,.404032,40,10,0)
;;=10^DATA VALIDATION^3
;;^DIST(.404,.404032,40,10,1)
;;=14
;;^DIST(.404,.404032,40,10,2)
;;=11,23^49^11,6
;;^DIST(.404,.404032,40,11,0)
;;=5^RIGHT JUSTIFY^3
;;^DIST(.404,.404032,40,11,1)
;;=6.3
;;^DIST(.404,.404032,40,11,2)
;;=4,52^3^4,37
;;^DIST(.404,.404032,40,12,0)
;;=6^SUB PAGE LINK^3
;;^DIST(.404,.404032,40,12,1)
;;=8
;;^DIST(.404,.404032,40,12,2)
;;=5,23^5^5,8
;;^DIST(.404,.404032,40,13,0)
;;=3^DISPLAY GROUP^3
;;^DIST(.404,.404032,40,13,1)
;;=3
;;^DIST(.404,.404032,40,13,2)
;;=3,52^20^3,37
;;^DIST(.404,.404033,0)
;;=DDGF FIELD DD OTHER MULTIPLE^.4044
;;^DIST(.404,.404033,40,0)
;;=^.4044I^12^9
;;^DIST(.404,.404033,40,1,0)
;;=1^ Other Parameters ^1
;;^DIST(.404,.404033,40,1,2)
;;=^^1,14^1
;;^DIST(.404,.404033,40,2,0)
;;=2^SUB PAGE LINK^3
;;^DIST(.404,.404033,40,2,1)
;;=8
;;^DIST(.404,.404033,40,2,2)
;;=3,23^3^3,8
;;^DIST(.404,.404033,40,3,0)
;;=3^DISALLOW LAYGO^3
;;^DIST(.404,.404033,40,3,1)
;;=6.5
;;^DIST(.404,.404033,40,3,2)
;;=4,23^3^4,7
;;^DIST(.404,.404033,40,7,0)
;;=7^CAPTION COORDINATE^2
;;^DIST(.404,.404033,40,7,2)
;;=10,23^7^10,3
;;^DIST(.404,.404033,40,7,3)
;;=!M
;;^DIST(.404,.404033,40,7,3.1)
;;=S Y=$G(DDGFCC0)
;;^DIST(.404,.404033,40,7,20)
;;=DD^^.4044,5.1
;;^DIST(.404,.404033,40,7,23)
;;=S DDGFCC=X
;;^DIST(.404,.404033,40,8,0)
;;=8^DATA COORDINATE^2
;;^DIST(.404,.404033,40,8,2)
;;=11,23^7^11,6
;;^DIST(.404,.404033,40,8,3)
;;=!M
;;^DIST(.404,.404033,40,8,3.1)
;;=S Y=$G(DDGFDC0)
;;^DIST(.404,.404033,40,8,4)
;;=1
;;^DIST(.404,.404033,40,8,20)
;;=DD^^.4044,4.1
;;^DIST(.404,.404033,40,8,23)
;;=S DDGFDC=X
;;^DIST(.404,.404033,40,9,0)
;;=6^DATA LENGTH^2
;;^DIST(.404,.404033,40,9,2)
;;=9,23^3^9,10
;;^DIST(.404,.404033,40,9,3)
;;=!M
;;^DIST(.404,.404033,40,9,3.1)
;;=S Y=$G(DDGFDL0)
;;^DIST(.404,.404033,40,9,4)
;;=1
;;^DIST(.404,.404033,40,9,20)
;;=DD^^.4044,4.2
;;^DIST(.404,.404033,40,9,23)
;;=S DDGFDL=X
;;^DIST(.404,.404033,40,10,0)
;;=4^RIGHT JUSTIFY^3
;;^DIST(.404,.404033,40,10,1)
;;=6.3
;;^DIST(.404,.404033,40,10,2)
;;=6,23^3^6,8
;;^DIST(.404,.404033,40,11,0)
;;=5^DISPLAY GROUP^3
;;^DIST(.404,.404033,40,11,1)
;;=3
;;^DIST(.404,.404033,40,11,2)
;;=7,23^20^7,8
;;^DIST(.404,.404033,40,12,0)
;;=4^ASK 'OK'^3
;;^DIST(.404,.404033,40,12,1)
;;=6.6
;;^DIST(.404,.404033,40,12,2)
;;=5,23^3^5,13
;;^DIST(.404,.404034,0)
;;=DDGF FIELD DD OTHER WP^.4044
;;^DIST(.404,.404034,40,0)
;;=^.4044I^10^7
;;^DIST(.404,.404034,40,1,0)
;;=1^ Other Parameters ^1
;;^DIST(.404,.404034,40,1,2)
;;=^^1,14^1
;;^DIST(.404,.404034,40,2,0)
;;=2^REQUIRED^3
;;^DIST(.404,.404034,40,2,1)
;;=6.1
;;^DIST(.404,.404034,40,2,2)
;;=3,23^3^3,13
;;^DIST(.404,.404034,40,3,0)
;;=3^DISABLE EDITING^3
;;^DIST(.404,.404034,40,3,1)
;;=6.4
;;^DIST(.404,.404034,40,3,2)
;;=4,23^3^4,6
;;^DIST(.404,.404034,40,3,14)
;;=I X=2 D HLP^DDSUTL("Word processing fields are always reachable. To make the field uneditable, enter 'YES'.") S DDSERROR=1
;;^DIST(.404,.404034,40,7,0)
;;=4^DISPLAY GROUP^3
;;^DIST(.404,.404034,40,7,1)
;;=3
;;^DIST(.404,.404034,40,7,2)
;;=5,23^20^5,8
;;^DIST(.404,.404034,40,8,0)
;;=5^DATA LENGTH^2
;;^DIST(.404,.404034,40,8,2)
;;=7,23^3^7,10
;;^DIST(.404,.404034,40,8,3)
;;=!M
;;^DIST(.404,.404034,40,8,3.1)
;;=S Y=$G(DDGFDL0)
;;^DIST(.404,.404034,40,8,4)
;;=1
;;^DIST(.404,.404034,40,8,20)
;;=DD^^.4044,4.2
;;^DIST(.404,.404034,40,8,23)
;;=S DDGFDL=X
;;^DIST(.404,.404034,40,9,0)
;;=6^CAPTION COORDINATE^2
;;^DIST(.404,.404034,40,9,2)
;;=8,23^7^8,3
;;^DIST(.404,.404034,40,9,3)
;;=!M
;;^DIST(.404,.404034,40,9,3.1)
;;=S Y=$G(DDGFCC0)
;;^DIST(.404,.404034,40,9,20)
;;=DD^^.4044,5.1
;;^DIST(.404,.404034,40,9,23)
;;=S DDGFCC=X
;;^DIST(.404,.404034,40,10,0)
;;=7^DATA COORDINATE^2
;;^DIST(.404,.404034,40,10,2)
;;=9,23^7^9,6
;;^DIST(.404,.404034,40,10,3)
;;=!M
;;^DIST(.404,.404034,40,10,3.1)
;;=S Y=$G(DDGFDC0)
;;^DIST(.404,.404034,40,10,4)
;;=1
;;^DIST(.404,.404034,40,10,20)
;;=DD^^.4044,4.1
;;^DIST(.404,.404034,40,10,23)
;;=S DDGFDC=X
;;^DIST(.404,.404041,0)
;;=DDGF FIELD FORM ONLY^.4044
;;^DIST(.404,.404041,40,0)
;;=^.4044I^17^14
;;^DIST(.404,.404041,40,1,0)
;;=1^ Form Only Field Properties ^1
;;^DIST(.404,.404041,40,1,2)
;;=^^1,25
;;^DIST(.404,.404041,40,2,0)
;;=2^FIELD ORDER^3
;;^DIST(.404,.404041,40,2,1)
;;=.01
;;^DIST(.404,.404041,40,2,2)
;;=3,26^4^3,13
;;^DIST(.404,.404041,40,5,0)
;;=8^DEFAULT^3
;;^DIST(.404,.404041,40,5,1)
;;=6
;;^DIST(.404,.404041,40,5,2)
;;=8,26^50^8,17
;;^DIST(.404,.404041,40,5,13)
;;=D:X'="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
;;^DIST(.404,.404041,40,7,0)
;;=11^BRANCHING LOGIC^3
;;^DIST(.404,.404041,40,7,1)
;;=10
;;^DIST(.404,.404041,40,7,2)
;;=12,26^50^12,9
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FI 7375 printed Apr 09, 2024@21:50:34 Page 2
DINIT0FI ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;3:27 PM 20 Apr 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 ^DINIT0FJ
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.404,.404031,40,15,20)
+2 ;;=DD^^.4044,5.2
+3 ;;^DIST(.404,.404031,40,15,23)
+4 ;;=S DDGFSUP=X
+5 ;;^DIST(.404,.404031,40,16,0)
+6 ;;=6^UNIQUE NAME^3
+7 ;;^DIST(.404,.404031,40,16,1)
+8 ;;=3.1
+9 ;;^DIST(.404,.404031,40,16,2)
+10 ;;=5,26^50^5,13
+11 ;;^DIST(.404,.404031,40,17,0)
+12 ;;=9^EXECUTABLE CAPTION^3
+13 ;;^DIST(.404,.404031,40,17,1)
+14 ;;=1.1
+15 ;;^DIST(.404,.404031,40,17,2)
+16 ;;=9,26^50^9,6
+17 ;;^DIST(.404,.404031,40,17,13)
+18 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"),"I")
+19 ;;^DIST(.404,.404032,0)
+20 ;;=DDGF FIELD DD OTHER SINGLE^.4044
+21 ;;^DIST(.404,.404032,40,0)
+22 ;;=^.4044I^13^10
+23 ;;^DIST(.404,.404032,40,1,0)
+24 ;;=1^ Other Parameters ^1
+25 ;;^DIST(.404,.404032,40,1,2)
+26 ;;=^^1,27
+27 ;;^DIST(.404,.404032,40,2,0)
+28 ;;=2^REQUIRED^3
+29 ;;^DIST(.404,.404032,40,2,1)
+30 ;;=6.1
+31 ;;^DIST(.404,.404032,40,2,2)
+32 ;;=3,23^3^3,13
+33 ;;^DIST(.404,.404032,40,3,0)
+34 ;;=4^DISABLE EDITING^3
+35 ;;^DIST(.404,.404032,40,3,1)
+36 ;;=6.4
+37 ;;^DIST(.404,.404032,40,3,2)
+38 ;;=4,23^9^4,6
+39 ;;^DIST(.404,.404032,40,7,0)
+40 ;;=7^DATA LENGTH^2
+41 ;;^DIST(.404,.404032,40,7,2)
+42 ;;=7,23^3^7,10
+43 ;;^DIST(.404,.404032,40,7,3)
+44 ;;=!M
+45 ;;^DIST(.404,.404032,40,7,3.1)
+46 ;;=S Y=$G(DDGFDL0)
+47 ;;^DIST(.404,.404032,40,7,4)
+48 ;;=1
+49 ;;^DIST(.404,.404032,40,7,20)
+50 ;;=DD^^.4044,4.2
+51 ;;^DIST(.404,.404032,40,7,23)
+52 ;;=S DDGFDL=X
+53 ;;^DIST(.404,.404032,40,8,0)
+54 ;;=8^CAPTION COORDINATE^2
+55 ;;^DIST(.404,.404032,40,8,2)
+56 ;;=8,23^7^8,3
+57 ;;^DIST(.404,.404032,40,8,3)
+58 ;;=!M
+59 ;;^DIST(.404,.404032,40,8,3.1)
+60 ;;=S Y=$G(DDGFCC0)
+61 ;;^DIST(.404,.404032,40,8,20)
+62 ;;=DD^^.4044,5.1
+63 ;;^DIST(.404,.404032,40,8,23)
+64 ;;=S DDGFCC=X
+65 ;;^DIST(.404,.404032,40,9,0)
+66 ;;=9^DATA COORDINATE^2
+67 ;;^DIST(.404,.404032,40,9,2)
+68 ;;=9,23^7^9,6
+69 ;;^DIST(.404,.404032,40,9,3)
+70 ;;=!M
+71 ;;^DIST(.404,.404032,40,9,3.1)
+72 ;;=S Y=$G(DDGFDC0)
+73 ;;^DIST(.404,.404032,40,9,4)
+74 ;;=1
+75 ;;^DIST(.404,.404032,40,9,20)
+76 ;;=DD^^.4044,4.1
+77 ;;^DIST(.404,.404032,40,9,23)
+78 ;;=S DDGFDC=X
+79 ;;^DIST(.404,.404032,40,10,0)
+80 ;;=10^DATA VALIDATION^3
+81 ;;^DIST(.404,.404032,40,10,1)
+82 ;;=14
+83 ;;^DIST(.404,.404032,40,10,2)
+84 ;;=11,23^49^11,6
+85 ;;^DIST(.404,.404032,40,11,0)
+86 ;;=5^RIGHT JUSTIFY^3
+87 ;;^DIST(.404,.404032,40,11,1)
+88 ;;=6.3
+89 ;;^DIST(.404,.404032,40,11,2)
+90 ;;=4,52^3^4,37
+91 ;;^DIST(.404,.404032,40,12,0)
+92 ;;=6^SUB PAGE LINK^3
+93 ;;^DIST(.404,.404032,40,12,1)
+94 ;;=8
+95 ;;^DIST(.404,.404032,40,12,2)
+96 ;;=5,23^5^5,8
+97 ;;^DIST(.404,.404032,40,13,0)
+98 ;;=3^DISPLAY GROUP^3
+99 ;;^DIST(.404,.404032,40,13,1)
+100 ;;=3
+101 ;;^DIST(.404,.404032,40,13,2)
+102 ;;=3,52^20^3,37
+103 ;;^DIST(.404,.404033,0)
+104 ;;=DDGF FIELD DD OTHER MULTIPLE^.4044
+105 ;;^DIST(.404,.404033,40,0)
+106 ;;=^.4044I^12^9
+107 ;;^DIST(.404,.404033,40,1,0)
+108 ;;=1^ Other Parameters ^1
+109 ;;^DIST(.404,.404033,40,1,2)
+110 ;;=^^1,14^1
+111 ;;^DIST(.404,.404033,40,2,0)
+112 ;;=2^SUB PAGE LINK^3
+113 ;;^DIST(.404,.404033,40,2,1)
+114 ;;=8
+115 ;;^DIST(.404,.404033,40,2,2)
+116 ;;=3,23^3^3,8
+117 ;;^DIST(.404,.404033,40,3,0)
+118 ;;=3^DISALLOW LAYGO^3
+119 ;;^DIST(.404,.404033,40,3,1)
+120 ;;=6.5
+121 ;;^DIST(.404,.404033,40,3,2)
+122 ;;=4,23^3^4,7
+123 ;;^DIST(.404,.404033,40,7,0)
+124 ;;=7^CAPTION COORDINATE^2
+125 ;;^DIST(.404,.404033,40,7,2)
+126 ;;=10,23^7^10,3
+127 ;;^DIST(.404,.404033,40,7,3)
+128 ;;=!M
+129 ;;^DIST(.404,.404033,40,7,3.1)
+130 ;;=S Y=$G(DDGFCC0)
+131 ;;^DIST(.404,.404033,40,7,20)
+132 ;;=DD^^.4044,5.1
+133 ;;^DIST(.404,.404033,40,7,23)
+134 ;;=S DDGFCC=X
+135 ;;^DIST(.404,.404033,40,8,0)
+136 ;;=8^DATA COORDINATE^2
+137 ;;^DIST(.404,.404033,40,8,2)
+138 ;;=11,23^7^11,6
+139 ;;^DIST(.404,.404033,40,8,3)
+140 ;;=!M
+141 ;;^DIST(.404,.404033,40,8,3.1)
+142 ;;=S Y=$G(DDGFDC0)
+143 ;;^DIST(.404,.404033,40,8,4)
+144 ;;=1
+145 ;;^DIST(.404,.404033,40,8,20)
+146 ;;=DD^^.4044,4.1
+147 ;;^DIST(.404,.404033,40,8,23)
+148 ;;=S DDGFDC=X
+149 ;;^DIST(.404,.404033,40,9,0)
+150 ;;=6^DATA LENGTH^2
+151 ;;^DIST(.404,.404033,40,9,2)
+152 ;;=9,23^3^9,10
+153 ;;^DIST(.404,.404033,40,9,3)
+154 ;;=!M
+155 ;;^DIST(.404,.404033,40,9,3.1)
+156 ;;=S Y=$G(DDGFDL0)
+157 ;;^DIST(.404,.404033,40,9,4)
+158 ;;=1
+159 ;;^DIST(.404,.404033,40,9,20)
+160 ;;=DD^^.4044,4.2
+161 ;;^DIST(.404,.404033,40,9,23)
+162 ;;=S DDGFDL=X
+163 ;;^DIST(.404,.404033,40,10,0)
+164 ;;=4^RIGHT JUSTIFY^3
+165 ;;^DIST(.404,.404033,40,10,1)
+166 ;;=6.3
+167 ;;^DIST(.404,.404033,40,10,2)
+168 ;;=6,23^3^6,8
+169 ;;^DIST(.404,.404033,40,11,0)
+170 ;;=5^DISPLAY GROUP^3
+171 ;;^DIST(.404,.404033,40,11,1)
+172 ;;=3
+173 ;;^DIST(.404,.404033,40,11,2)
+174 ;;=7,23^20^7,8
+175 ;;^DIST(.404,.404033,40,12,0)
+176 ;;=4^ASK 'OK'^3
+177 ;;^DIST(.404,.404033,40,12,1)
+178 ;;=6.6
+179 ;;^DIST(.404,.404033,40,12,2)
+180 ;;=5,23^3^5,13
+181 ;;^DIST(.404,.404034,0)
+182 ;;=DDGF FIELD DD OTHER WP^.4044
+183 ;;^DIST(.404,.404034,40,0)
+184 ;;=^.4044I^10^7
+185 ;;^DIST(.404,.404034,40,1,0)
+186 ;;=1^ Other Parameters ^1
+187 ;;^DIST(.404,.404034,40,1,2)
+188 ;;=^^1,14^1
+189 ;;^DIST(.404,.404034,40,2,0)
+190 ;;=2^REQUIRED^3
+191 ;;^DIST(.404,.404034,40,2,1)
+192 ;;=6.1
+193 ;;^DIST(.404,.404034,40,2,2)
+194 ;;=3,23^3^3,13
+195 ;;^DIST(.404,.404034,40,3,0)
+196 ;;=3^DISABLE EDITING^3
+197 ;;^DIST(.404,.404034,40,3,1)
+198 ;;=6.4
+199 ;;^DIST(.404,.404034,40,3,2)
+200 ;;=4,23^3^4,6
+201 ;;^DIST(.404,.404034,40,3,14)
+202 ;;=I X=2 D HLP^DDSUTL("Word processing fields are always reachable. To make the field uneditable, enter 'YES'.") S DDSERROR=1
+203 ;;^DIST(.404,.404034,40,7,0)
+204 ;;=4^DISPLAY GROUP^3
+205 ;;^DIST(.404,.404034,40,7,1)
+206 ;;=3
+207 ;;^DIST(.404,.404034,40,7,2)
+208 ;;=5,23^20^5,8
+209 ;;^DIST(.404,.404034,40,8,0)
+210 ;;=5^DATA LENGTH^2
+211 ;;^DIST(.404,.404034,40,8,2)
+212 ;;=7,23^3^7,10
+213 ;;^DIST(.404,.404034,40,8,3)
+214 ;;=!M
+215 ;;^DIST(.404,.404034,40,8,3.1)
+216 ;;=S Y=$G(DDGFDL0)
+217 ;;^DIST(.404,.404034,40,8,4)
+218 ;;=1
+219 ;;^DIST(.404,.404034,40,8,20)
+220 ;;=DD^^.4044,4.2
+221 ;;^DIST(.404,.404034,40,8,23)
+222 ;;=S DDGFDL=X
+223 ;;^DIST(.404,.404034,40,9,0)
+224 ;;=6^CAPTION COORDINATE^2
+225 ;;^DIST(.404,.404034,40,9,2)
+226 ;;=8,23^7^8,3
+227 ;;^DIST(.404,.404034,40,9,3)
+228 ;;=!M
+229 ;;^DIST(.404,.404034,40,9,3.1)
+230 ;;=S Y=$G(DDGFCC0)
+231 ;;^DIST(.404,.404034,40,9,20)
+232 ;;=DD^^.4044,5.1
+233 ;;^DIST(.404,.404034,40,9,23)
+234 ;;=S DDGFCC=X
+235 ;;^DIST(.404,.404034,40,10,0)
+236 ;;=7^DATA COORDINATE^2
+237 ;;^DIST(.404,.404034,40,10,2)
+238 ;;=9,23^7^9,6
+239 ;;^DIST(.404,.404034,40,10,3)
+240 ;;=!M
+241 ;;^DIST(.404,.404034,40,10,3.1)
+242 ;;=S Y=$G(DDGFDC0)
+243 ;;^DIST(.404,.404034,40,10,4)
+244 ;;=1
+245 ;;^DIST(.404,.404034,40,10,20)
+246 ;;=DD^^.4044,4.1
+247 ;;^DIST(.404,.404034,40,10,23)
+248 ;;=S DDGFDC=X
+249 ;;^DIST(.404,.404041,0)
+250 ;;=DDGF FIELD FORM ONLY^.4044
+251 ;;^DIST(.404,.404041,40,0)
+252 ;;=^.4044I^17^14
+253 ;;^DIST(.404,.404041,40,1,0)
+254 ;;=1^ Form Only Field Properties ^1
+255 ;;^DIST(.404,.404041,40,1,2)
+256 ;;=^^1,25
+257 ;;^DIST(.404,.404041,40,2,0)
+258 ;;=2^FIELD ORDER^3
+259 ;;^DIST(.404,.404041,40,2,1)
+260 ;;=.01
+261 ;;^DIST(.404,.404041,40,2,2)
+262 ;;=3,26^4^3,13
+263 ;;^DIST(.404,.404041,40,5,0)
+264 ;;=8^DEFAULT^3
+265 ;;^DIST(.404,.404041,40,5,1)
+266 ;;=6
+267 ;;^DIST(.404,.404041,40,5,2)
+268 ;;=8,26^50^8,17
+269 ;;^DIST(.404,.404041,40,5,13)
+270 ;;=D:X'="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
+271 ;;^DIST(.404,.404041,40,7,0)
+272 ;;=11^BRANCHING LOGIC^3
+273 ;;^DIST(.404,.404041,40,7,1)
+274 ;;=10
+275 ;;^DIST(.404,.404041,40,7,2)
+276 ;;=12,26^50^12,9
