DINIT0FJ ;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="" ^DINIT0FK S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.404041,40,8,0)
;;=12^PRE ACTION^3
;;^DIST(.404,.404041,40,8,1)
;;=11
;;^DIST(.404,.404041,40,8,2)
;;=13,26^50^13,14
;;^DIST(.404,.404041,40,9,0)
;;=13^POST ACTION^3
;;^DIST(.404,.404041,40,9,1)
;;=12
;;^DIST(.404,.404041,40,9,2)
;;=14,26^50^14,13
;;^DIST(.404,.404041,40,10,0)
;;=14^POST ACTION ON CHANGE^3
;;^DIST(.404,.404041,40,10,1)
;;=13
;;^DIST(.404,.404041,40,10,2)
;;=15,26^50^15,3
;;^DIST(.404,.404041,40,11,0)
;;=9^EXECUTABLE CAPTION^3
;;^DIST(.404,.404041,40,11,1)
;;=1.1
;;^DIST(.404,.404041,40,11,2)
;;=9,26^50^9,6
;;^DIST(.404,.404041,40,11,13)
;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
;;^DIST(.404,.404041,40,12,0)
;;=10^EXECUTABLE DEFAULT^3
;;^DIST(.404,.404041,40,12,1)
;;=6.01
;;^DIST(.404,.404041,40,12,2)
;;=10,26^50^10,6
;;^DIST(.404,.404041,40,12,13)
;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
;;^DIST(.404,.404041,40,13,0)
;;=3^FORM ONLY FIELD PARAMETERS...^2
;;^DIST(.404,.404041,40,13,2)
;;=3,73^1^3,43^1
;;^DIST(.404,.404041,40,13,7)
;;=^11
;;^DIST(.404,.404041,40,13,20)
;;=F^^0:0
;;^DIST(.404,.404041,40,13,21,0)
;;=^^1^1^2940928
;;^DIST(.404,.404041,40,13,21,1,0)
;;=Press <RET> to edit the properties of this form-only field
;;^DIST(.404,.404041,40,14,0)
;;=4^OTHER PARAMETERS...^2
;;^DIST(.404,.404041,40,14,2)
;;=4,26^1^4,6^1
;;^DIST(.404,.404041,40,14,7)
;;=^21
;;^DIST(.404,.404041,40,14,20)
;;=F^^0:0
;;^DIST(.404,.404041,40,14,21,0)
;;=^^1^1^2940928
;;^DIST(.404,.404041,40,14,21,1,0)
;;=Press <RET> to edit additional properties of this form-only field
;;^DIST(.404,.404041,40,15,0)
;;=7^CAPTION^2
;;^DIST(.404,.404041,40,15,2)
;;=7,26^50^7,17
;;^DIST(.404,.404041,40,15,3)
;;=!M
;;^DIST(.404,.404041,40,15,3.1)
;;=S Y=$G(DDGFCAP0)
;;^DIST(.404,.404041,40,15,13)
;;=D FOCAP^DDGFU
;;^DIST(.404,.404041,40,15,20)
;;=DD^^.4044,1
;;^DIST(.404,.404041,40,15,23)
;;=S DDGFCAP=X
;;^DIST(.404,.404041,40,16,0)
;;=5^SUPPRESS COLON AFTER CAPTION?^2
;;^DIST(.404,.404041,40,16,2)
;;=4,73^3^4,43^1
;;^DIST(.404,.404041,40,16,3)
;;=!M
;;^DIST(.404,.404041,40,16,3.1)
;;=S Y=$G(DDGFSUP0)
;;^DIST(.404,.404041,40,16,20)
;;=DD^^.4044,5.2
;;^DIST(.404,.404041,40,16,23)
;;=S DDGFSUP=X
;;^DIST(.404,.404041,40,17,0)
;;=6^UNIQUE NAME^3
;;^DIST(.404,.404041,40,17,1)
;;=3.1
;;^DIST(.404,.404041,40,17,2)
;;=5,26^50^5,13
;;^DIST(.404,.404042,0)
;;=DDGF FIELD FORM ONLY PARAMS^.4044
;;^DIST(.404,.404042,40,0)
;;=^.4044I^9^8
;;^DIST(.404,.404042,40,1,0)
;;=1^ Other Form Only Field Parameters ^1
;;^DIST(.404,.404042,40,1,2)
;;=^^1,22
;;^DIST(.404,.404042,40,2,0)
;;=2^READ TYPE^3
;;^DIST(.404,.404042,40,2,1)
;;=20.1
;;^DIST(.404,.404042,40,2,2)
;;=3,20^15^3,9
;;^DIST(.404,.404042,40,2,4)
;;=1
;;^DIST(.404,.404042,40,3,0)
;;=3^PARAMETERS^3
;;^DIST(.404,.404042,40,3,1)
;;=20.2
;;^DIST(.404,.404042,40,3,2)
;;=4,20^2^4,8
;;^DIST(.404,.404042,40,4,0)
;;=4^QUALIFIERS^3
;;^DIST(.404,.404042,40,4,1)
;;=20.3
;;^DIST(.404,.404042,40,4,2)
;;=5,20^52^5,8
;;^DIST(.404,.404042,40,5,0)
;;=6^INPUT TRANSFORM^3
;;^DIST(.404,.404042,40,5,1)
;;=22
;;^DIST(.404,.404042,40,5,2)
;;=9,20^52^9,3
;;^DIST(.404,.404042,40,6,0)
;;=5^HELP (WP)^3
;;^DIST(.404,.404042,40,6,1)
;;=21
;;^DIST(.404,.404042,40,6,2)
;;=7,20^1^7,9
;;^DIST(.404,.404042,40,8,0)
;;=7^SCREEN^3
;;^DIST(.404,.404042,40,8,1)
;;=24
;;^DIST(.404,.404042,40,8,2)
;;=10,20^52^10,12
;;^DIST(.404,.404042,40,9,0)
;;=8^SAVE CODE^3
;;^DIST(.404,.404042,40,9,1)
;;=23
;;^DIST(.404,.404042,40,9,2)
;;=11,20^52^11,9
;;^DIST(.404,.404051,0)
;;=DDGF FIELD COMPUTED^.4044
;;^DIST(.404,.404051,40,0)
;;=^.4044I^8^8
;;^DIST(.404,.404051,40,1,0)
;;=1^ Computed Field Properties ^1
;;^DIST(.404,.404051,40,1,2)
;;=^^1,26
;;^DIST(.404,.404051,40,2,0)
;;=2^FIELD ORDER^3
;;^DIST(.404,.404051,40,2,1)
;;=.01
;;^DIST(.404,.404051,40,2,2)
;;=3,24^4^3,11
;;^DIST(.404,.404051,40,3,0)
;;=3^OTHER PARAMETERS...^2
;;^DIST(.404,.404051,40,3,2)
;;=4,24^1^4,4^1
;;^DIST(.404,.404051,40,3,7)
;;=^11
;;^DIST(.404,.404051,40,3,20)
;;=F^^1:1
;;^DIST(.404,.404051,40,3,21,0)
;;=^^1^1^2930916
;;^DIST(.404,.404051,40,3,21,1,0)
;;=Press 'RETURN' to edit additional properties of this Data Dictionary field
;;^DIST(.404,.404051,40,4,0)
;;=4^SUPPRESS COLON AFTER CAPTION?^2
;;^DIST(.404,.404051,40,4,2)
;;=4,71^3^4,41^1
;;^DIST(.404,.404051,40,4,3)
;;=!M
;;^DIST(.404,.404051,40,4,3.1)
;;=S Y=DDGFSUP0
;;^DIST(.404,.404051,40,4,20)
;;=DD^^.4044,5.2
;;^DIST(.404,.404051,40,4,23)
;;=S DDGFSUP=X
;;^DIST(.404,.404051,40,5,0)
;;=5^UNIQUE NAME^3
;;^DIST(.404,.404051,40,5,1)
;;=3.1
;;^DIST(.404,.404051,40,5,2)
;;=5,24^50^5,11
;;^DIST(.404,.404051,40,6,0)
;;=6^CAPTION^2
;;^DIST(.404,.404051,40,6,2)
;;=7,24^50^7,15
;;^DIST(.404,.404051,40,6,3)
;;=!M
;;^DIST(.404,.404051,40,6,3.1)
;;=S Y=DDGFCAP0
;;^DIST(.404,.404051,40,6,13)
;;=D COMPCAP^DDGFU
;;^DIST(.404,.404051,40,6,20)
;;=DD^^.4044,1
;;^DIST(.404,.404051,40,6,23)
;;=S DDGFCAP=X
;;^DIST(.404,.404051,40,7,0)
;;=7^EXECUTABLE CAPTION^3
;;^DIST(.404,.404051,40,7,1)
;;=1.1
;;^DIST(.404,.404051,40,7,2)
;;=8,24^50^8,4
;;^DIST(.404,.404051,40,7,13)
;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
;;^DIST(.404,.404051,40,8,0)
;;=8^COMPUTED EXPRESSION^3
;;^DIST(.404,.404051,40,8,1)
;;=30
;;^DIST(.404,.404051,40,8,2)
;;=10,24^50^10,3
;;^DIST(.404,.404051,40,8,4)
;;=1
;;^DIST(.404,.404052,0)
;;=DDGF FIELD COMPUTED OTHER^.4044
;;^DIST(.404,.404052,40,0)
;;=^.4044I^8^5
;;^DIST(.404,.404052,40,1,0)
;;=1^ Other Computed Field Properties ^1
;;^DIST(.404,.404052,40,1,2)
;;=^^1,6
;;^DIST(.404,.404052,40,5,0)
;;=3^DATA LENGTH^2
;;^DIST(.404,.404052,40,5,2)
;;=5,25^3^5,12
;;^DIST(.404,.404052,40,5,3)
;;=!M
;;^DIST(.404,.404052,40,5,3.1)
;;=S Y=$G(DDGFDL0)
;;^DIST(.404,.404052,40,5,20)
;;=DD^^.4044,4.2
;;^DIST(.404,.404052,40,5,23)
;;=S DDGFDL=X
;;^DIST(.404,.404052,40,6,0)
;;=4^CAPTION COORDINATE^2
;;^DIST(.404,.404052,40,6,2)
;;=6,25^7^6,5
;;^DIST(.404,.404052,40,6,3)
;;=!M
;;^DIST(.404,.404052,40,6,3.1)
;;=S Y=$G(DDGFCC0)
;;^DIST(.404,.404052,40,6,20)
;;=DD^^.4044,5.1
;;^DIST(.404,.404052,40,6,23)
;;=S DDGFCC=X
;;^DIST(.404,.404052,40,7,0)
;;=5^DATA COORDINATE^2
;;^DIST(.404,.404052,40,7,2)
;;=7,25^7^7,8
;;^DIST(.404,.404052,40,7,3)
;;=!M
;;^DIST(.404,.404052,40,7,3.1)
;;=S Y=$G(DDGFDC0)
;;^DIST(.404,.404052,40,7,20)
;;=DD^^.4044,4.1
;;^DIST(.404,.404052,40,7,23)
;;=S DDGFDC=X
;;^DIST(.404,.404052,40,8,0)
;;=2^RIGHT JUSTIFY^3
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FJ 7265 printed Sep 23, 2025@20:26:33 Page 2
DINIT0FJ ;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 ^DINIT0FK
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.404,.404041,40,8,0)
+2 ;;=12^PRE ACTION^3
+3 ;;^DIST(.404,.404041,40,8,1)
+4 ;;=11
+5 ;;^DIST(.404,.404041,40,8,2)
+6 ;;=13,26^50^13,14
+7 ;;^DIST(.404,.404041,40,9,0)
+8 ;;=13^POST ACTION^3
+9 ;;^DIST(.404,.404041,40,9,1)
+10 ;;=12
+11 ;;^DIST(.404,.404041,40,9,2)
+12 ;;=14,26^50^14,13
+13 ;;^DIST(.404,.404041,40,10,0)
+14 ;;=14^POST ACTION ON CHANGE^3
+15 ;;^DIST(.404,.404041,40,10,1)
+16 ;;=13
+17 ;;^DIST(.404,.404041,40,10,2)
+18 ;;=15,26^50^15,3
+19 ;;^DIST(.404,.404041,40,11,0)
+20 ;;=9^EXECUTABLE CAPTION^3
+21 ;;^DIST(.404,.404041,40,11,1)
+22 ;;=1.1
+23 ;;^DIST(.404,.404041,40,11,2)
+24 ;;=9,26^50^9,6
+25 ;;^DIST(.404,.404041,40,11,13)
+26 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
+27 ;;^DIST(.404,.404041,40,12,0)
+28 ;;=10^EXECUTABLE DEFAULT^3
+29 ;;^DIST(.404,.404041,40,12,1)
+30 ;;=6.01
+31 ;;^DIST(.404,.404041,40,12,2)
+32 ;;=10,26^50^10,6
+33 ;;^DIST(.404,.404041,40,12,13)
+34 ;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
+35 ;;^DIST(.404,.404041,40,13,0)
+36 ;;=3^FORM ONLY FIELD PARAMETERS...^2
+37 ;;^DIST(.404,.404041,40,13,2)
+38 ;;=3,73^1^3,43^1
+39 ;;^DIST(.404,.404041,40,13,7)
+40 ;;=^11
+41 ;;^DIST(.404,.404041,40,13,20)
+42 ;;=F^^0:0
+43 ;;^DIST(.404,.404041,40,13,21,0)
+44 ;;=^^1^1^2940928
+45 ;;^DIST(.404,.404041,40,13,21,1,0)
+46 ;;=Press <RET> to edit the properties of this form-only field
+47 ;;^DIST(.404,.404041,40,14,0)
+48 ;;=4^OTHER PARAMETERS...^2
+49 ;;^DIST(.404,.404041,40,14,2)
+50 ;;=4,26^1^4,6^1
+51 ;;^DIST(.404,.404041,40,14,7)
+52 ;;=^21
+53 ;;^DIST(.404,.404041,40,14,20)
+54 ;;=F^^0:0
+55 ;;^DIST(.404,.404041,40,14,21,0)
+56 ;;=^^1^1^2940928
+57 ;;^DIST(.404,.404041,40,14,21,1,0)
+58 ;;=Press <RET> to edit additional properties of this form-only field
+59 ;;^DIST(.404,.404041,40,15,0)
+60 ;;=7^CAPTION^2
+61 ;;^DIST(.404,.404041,40,15,2)
+62 ;;=7,26^50^7,17
+63 ;;^DIST(.404,.404041,40,15,3)
+64 ;;=!M
+65 ;;^DIST(.404,.404041,40,15,3.1)
+66 ;;=S Y=$G(DDGFCAP0)
+67 ;;^DIST(.404,.404041,40,15,13)
+68 ;;=D FOCAP^DDGFU
+69 ;;^DIST(.404,.404041,40,15,20)
+70 ;;=DD^^.4044,1
+71 ;;^DIST(.404,.404041,40,15,23)
+72 ;;=S DDGFCAP=X
+73 ;;^DIST(.404,.404041,40,16,0)
+74 ;;=5^SUPPRESS COLON AFTER CAPTION?^2
+75 ;;^DIST(.404,.404041,40,16,2)
+76 ;;=4,73^3^4,43^1
+77 ;;^DIST(.404,.404041,40,16,3)
+78 ;;=!M
+79 ;;^DIST(.404,.404041,40,16,3.1)
+80 ;;=S Y=$G(DDGFSUP0)
+81 ;;^DIST(.404,.404041,40,16,20)
+82 ;;=DD^^.4044,5.2
+83 ;;^DIST(.404,.404041,40,16,23)
+84 ;;=S DDGFSUP=X
+85 ;;^DIST(.404,.404041,40,17,0)
+86 ;;=6^UNIQUE NAME^3
+87 ;;^DIST(.404,.404041,40,17,1)
+88 ;;=3.1
+89 ;;^DIST(.404,.404041,40,17,2)
+90 ;;=5,26^50^5,13
+91 ;;^DIST(.404,.404042,0)
+92 ;;=DDGF FIELD FORM ONLY PARAMS^.4044
+93 ;;^DIST(.404,.404042,40,0)
+94 ;;=^.4044I^9^8
+95 ;;^DIST(.404,.404042,40,1,0)
+96 ;;=1^ Other Form Only Field Parameters ^1
+97 ;;^DIST(.404,.404042,40,1,2)
+98 ;;=^^1,22
+99 ;;^DIST(.404,.404042,40,2,0)
+100 ;;=2^READ TYPE^3
+101 ;;^DIST(.404,.404042,40,2,1)
+102 ;;=20.1
+103 ;;^DIST(.404,.404042,40,2,2)
+104 ;;=3,20^15^3,9
+105 ;;^DIST(.404,.404042,40,2,4)
+106 ;;=1
+107 ;;^DIST(.404,.404042,40,3,0)
+108 ;;=3^PARAMETERS^3
+109 ;;^DIST(.404,.404042,40,3,1)
+110 ;;=20.2
+111 ;;^DIST(.404,.404042,40,3,2)
+112 ;;=4,20^2^4,8
+113 ;;^DIST(.404,.404042,40,4,0)
+114 ;;=4^QUALIFIERS^3
+115 ;;^DIST(.404,.404042,40,4,1)
+116 ;;=20.3
+117 ;;^DIST(.404,.404042,40,4,2)
+118 ;;=5,20^52^5,8
+119 ;;^DIST(.404,.404042,40,5,0)
+120 ;;=6^INPUT TRANSFORM^3
+121 ;;^DIST(.404,.404042,40,5,1)
+122 ;;=22
+123 ;;^DIST(.404,.404042,40,5,2)
+124 ;;=9,20^52^9,3
+125 ;;^DIST(.404,.404042,40,6,0)
+126 ;;=5^HELP (WP)^3
+127 ;;^DIST(.404,.404042,40,6,1)
+128 ;;=21
+129 ;;^DIST(.404,.404042,40,6,2)
+130 ;;=7,20^1^7,9
+131 ;;^DIST(.404,.404042,40,8,0)
+132 ;;=7^SCREEN^3
+133 ;;^DIST(.404,.404042,40,8,1)
+134 ;;=24
+135 ;;^DIST(.404,.404042,40,8,2)
+136 ;;=10,20^52^10,12
+137 ;;^DIST(.404,.404042,40,9,0)
+138 ;;=8^SAVE CODE^3
+139 ;;^DIST(.404,.404042,40,9,1)
+140 ;;=23
+141 ;;^DIST(.404,.404042,40,9,2)
+142 ;;=11,20^52^11,9
+143 ;;^DIST(.404,.404051,0)
+144 ;;=DDGF FIELD COMPUTED^.4044
+145 ;;^DIST(.404,.404051,40,0)
+146 ;;=^.4044I^8^8
+147 ;;^DIST(.404,.404051,40,1,0)
+148 ;;=1^ Computed Field Properties ^1
+149 ;;^DIST(.404,.404051,40,1,2)
+150 ;;=^^1,26
+151 ;;^DIST(.404,.404051,40,2,0)
+152 ;;=2^FIELD ORDER^3
+153 ;;^DIST(.404,.404051,40,2,1)
+154 ;;=.01
+155 ;;^DIST(.404,.404051,40,2,2)
+156 ;;=3,24^4^3,11
+157 ;;^DIST(.404,.404051,40,3,0)
+158 ;;=3^OTHER PARAMETERS...^2
+159 ;;^DIST(.404,.404051,40,3,2)
+160 ;;=4,24^1^4,4^1
+161 ;;^DIST(.404,.404051,40,3,7)
+162 ;;=^11
+163 ;;^DIST(.404,.404051,40,3,20)
+164 ;;=F^^1:1
+165 ;;^DIST(.404,.404051,40,3,21,0)
+166 ;;=^^1^1^2930916
+167 ;;^DIST(.404,.404051,40,3,21,1,0)
+168 ;;=Press 'RETURN' to edit additional properties of this Data Dictionary field
+169 ;;^DIST(.404,.404051,40,4,0)
+170 ;;=4^SUPPRESS COLON AFTER CAPTION?^2
+171 ;;^DIST(.404,.404051,40,4,2)
+172 ;;=4,71^3^4,41^1
+173 ;;^DIST(.404,.404051,40,4,3)
+174 ;;=!M
+175 ;;^DIST(.404,.404051,40,4,3.1)
+176 ;;=S Y=DDGFSUP0
+177 ;;^DIST(.404,.404051,40,4,20)
+178 ;;=DD^^.4044,5.2
+179 ;;^DIST(.404,.404051,40,4,23)
+180 ;;=S DDGFSUP=X
+181 ;;^DIST(.404,.404051,40,5,0)
+182 ;;=5^UNIQUE NAME^3
+183 ;;^DIST(.404,.404051,40,5,1)
+184 ;;=3.1
+185 ;;^DIST(.404,.404051,40,5,2)
+186 ;;=5,24^50^5,11
+187 ;;^DIST(.404,.404051,40,6,0)
+188 ;;=6^CAPTION^2
+189 ;;^DIST(.404,.404051,40,6,2)
+190 ;;=7,24^50^7,15
+191 ;;^DIST(.404,.404051,40,6,3)
+192 ;;=!M
+193 ;;^DIST(.404,.404051,40,6,3.1)
+194 ;;=S Y=DDGFCAP0
+195 ;;^DIST(.404,.404051,40,6,13)
+196 ;;=D COMPCAP^DDGFU
+197 ;;^DIST(.404,.404051,40,6,20)
+198 ;;=DD^^.4044,1
+199 ;;^DIST(.404,.404051,40,6,23)
+200 ;;=S DDGFCAP=X
+201 ;;^DIST(.404,.404051,40,7,0)
+202 ;;=7^EXECUTABLE CAPTION^3
+203 ;;^DIST(.404,.404051,40,7,1)
+204 ;;=1.1
+205 ;;^DIST(.404,.404051,40,7,2)
+206 ;;=8,24^50^8,4
+207 ;;^DIST(.404,.404051,40,7,13)
+208 ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
+209 ;;^DIST(.404,.404051,40,8,0)
+210 ;;=8^COMPUTED EXPRESSION^3
+211 ;;^DIST(.404,.404051,40,8,1)
+212 ;;=30
+213 ;;^DIST(.404,.404051,40,8,2)
+214 ;;=10,24^50^10,3
+215 ;;^DIST(.404,.404051,40,8,4)
+216 ;;=1
+217 ;;^DIST(.404,.404052,0)
+218 ;;=DDGF FIELD COMPUTED OTHER^.4044
+219 ;;^DIST(.404,.404052,40,0)
+220 ;;=^.4044I^8^5
+221 ;;^DIST(.404,.404052,40,1,0)
+222 ;;=1^ Other Computed Field Properties ^1
+223 ;;^DIST(.404,.404052,40,1,2)
+224 ;;=^^1,6
+225 ;;^DIST(.404,.404052,40,5,0)
+226 ;;=3^DATA LENGTH^2
+227 ;;^DIST(.404,.404052,40,5,2)
+228 ;;=5,25^3^5,12
+229 ;;^DIST(.404,.404052,40,5,3)
+230 ;;=!M
+231 ;;^DIST(.404,.404052,40,5,3.1)
+232 ;;=S Y=$G(DDGFDL0)
+233 ;;^DIST(.404,.404052,40,5,20)
+234 ;;=DD^^.4044,4.2
+235 ;;^DIST(.404,.404052,40,5,23)
+236 ;;=S DDGFDL=X
+237 ;;^DIST(.404,.404052,40,6,0)
+238 ;;=4^CAPTION COORDINATE^2
+239 ;;^DIST(.404,.404052,40,6,2)
+240 ;;=6,25^7^6,5
+241 ;;^DIST(.404,.404052,40,6,3)
+242 ;;=!M
+243 ;;^DIST(.404,.404052,40,6,3.1)
+244 ;;=S Y=$G(DDGFCC0)
+245 ;;^DIST(.404,.404052,40,6,20)
+246 ;;=DD^^.4044,5.1
+247 ;;^DIST(.404,.404052,40,6,23)
+248 ;;=S DDGFCC=X
+249 ;;^DIST(.404,.404052,40,7,0)
+250 ;;=5^DATA COORDINATE^2
+251 ;;^DIST(.404,.404052,40,7,2)
+252 ;;=7,25^7^7,8
+253 ;;^DIST(.404,.404052,40,7,3)
+254 ;;=!M
+255 ;;^DIST(.404,.404052,40,7,3.1)
+256 ;;=S Y=$G(DDGFDC0)
+257 ;;^DIST(.404,.404052,40,7,20)
+258 ;;=DD^^.4044,4.1
+259 ;;^DIST(.404,.404052,40,7,23)
+260 ;;=S DDGFDC=X
+261 ;;^DIST(.404,.404052,40,8,0)
+262 ;;=2^RIGHT JUSTIFY^3
