DINIT0FK ;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="" ^DINIT0FL S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
Q
ENTRY ;
;;^DIST(.404,.404052,40,8,1)
;;=6.3
;;^DIST(.404,.404052,40,8,2)
;;=3,25^3^3,10
;;^DIST(.404,.404061,0)
;;=DDGF BLOCK ADD
;;^DIST(.404,.404061,40,0)
;;=^.4044I^1^1
;;^DIST(.404,.404061,40,1,0)
;;=1^Select NEW BLOCK NAME^2
;;^DIST(.404,.404061,40,1,2)
;;=3,26^30^3,3
;;^DIST(.404,.404061,40,1,12)
;;=S DDACT="EX"
;;^DIST(.404,.404061,40,1,20)
;;=P^^DIST(.404,:QEALMZF
;;^DIST(.404,.404061,40,1,23)
;;=S DDGFBNUM=X,DDGFBNAM=DDSEXT
;;^DIST(.404,.404061,40,1,24)
;;=S DIR("S")="I Y'<1"
;;^DIST(.404,.404062,0)
;;=DDGF BLOCK ADD NEW
;;^DIST(.404,.404062,40,0)
;;=^.4044I^2^2
;;^DIST(.404,.404062,40,1,0)
;;=1^!M^1
;;^DIST(.404,.404062,40,1,.1)
;;=S Y="Are you adding "_DDGFBNAM
;;^DIST(.404,.404062,40,1,2)
;;=^^3,3
;;^DIST(.404,.404062,40,2,0)
;;=2^as a new block on this page?^2
;;^DIST(.404,.404062,40,2,2)
;;=4,32^3^4,3^1
;;^DIST(.404,.404062,40,2,12)
;;=S DDACT="EX"
;;^DIST(.404,.404062,40,2,20)
;;=Y
;;^DIST(.404,.404062,40,2,23)
;;=S DDGFANS=X
;;^DIST(.404,.404063,0)
;;=DDGF BLOCK ADD DUPLICATE
;;^DIST(.404,.404063,40,0)
;;=^.4044I^3^3
;;^DIST(.404,.404063,40,1,0)
;;=1^!M^1
;;^DIST(.404,.404063,40,1,.1)
;;=S Y="Block "_DDGFBNAM
;;^DIST(.404,.404063,40,1,2)
;;=^^3,3
;;^DIST(.404,.404063,40,2,0)
;;=2^already exists on this page!^1
;;^DIST(.404,.404063,40,2,2)
;;=^^4,3
;;^DIST(.404,.404063,40,3,0)
;;=3^OK^2
;;^DIST(.404,.404063,40,3,2)
;;=6,18^1^6,15^1
;;^DIST(.404,.404063,40,3,12)
;;=S DDACT="EX"
;;^DIST(.404,.404063,40,3,20)
;;=F^^0:0
;;^DIST(.404,.404063,40,3,21,0)
;;=^^1^1^2940928
;;^DIST(.404,.404063,40,3,21,1,0)
;;=Press <RET> to close this page
;;^DIST(.404,.404071,0)
;;=DDGF BLOCK DELETE
;;^DIST(.404,.404071,40,0)
;;=^.4044I^4^4
;;^DIST(.404,.404071,40,1,0)
;;=1^Block^1
;;^DIST(.404,.404071,40,1,2)
;;=^^1,1
;;^DIST(.404,.404071,40,2,0)
;;=4^Do you want to delete it from the BLOCK file?^2
;;^DIST(.404,.404071,40,2,2)
;;=3,47^3^3,1^1
;;^DIST(.404,.404071,40,2,12)
;;=S:X]"" DDACT="EX" I X="" D HLP^DDSUTL($C(7)_"A response is required. Enter either YES or NO.") S DDSBR=2
;;^DIST(.404,.404071,40,2,20)
;;=Y
;;^DIST(.404,.404071,40,2,23)
;;=S DDGFANS=X
;;^DIST(.404,.404071,40,3,0)
;;=2^!M^1
;;^DIST(.404,.404071,40,3,.1)
;;=S Y=DDGFBK
;;^DIST(.404,.404071,40,3,2)
;;=^^1,7
;;^DIST(.404,.404071,40,4,0)
;;=3^is not used on any other forms.^1
;;^DIST(.404,.404071,40,4,2)
;;=^^2,1
;;^DIST(.404,.404081,0)
;;=DDGF HEADER BLOCK SELECT
;;^DIST(.404,.404081,40,0)
;;=^.4044I^2^2
;;^DIST(.404,.404081,40,1,0)
;;=1^ Add a New Header Block ^1
;;^DIST(.404,.404081,40,1,2)
;;=^^1,20
;;^DIST(.404,.404081,40,2,0)
;;=2^Select New Header Block Name^2
;;^DIST(.404,.404081,40,2,2)
;;=3,33^30^3,3
;;^DIST(.404,.404081,40,2,12)
;;=S DDACT="EX"
;;^DIST(.404,.404081,40,2,20)
;;=P^^DIST(.404,:QEALMZF
;;^DIST(.404,.404081,40,2,23)
;;=S DDGFBNUM=X,DDGFBNAM=DDSEXT
;;^DIST(.404,.441,0)
;;=DDXP FF BLK1^.44
;;^DIST(.404,.441,15,0)
;;=^^2^2^2930107
;;^DIST(.404,.441,15,1,0)
;;=Block makes up page 1 of DDXP FF FORM. It is used to define a foreign
;;^DIST(.404,.441,15,2,0)
;;=format.
;;^DIST(.404,.441,40,0)
;;=^.4044I^21^16
;;^DIST(.404,.441,40,1,0)
;;=1^FOREIGN FILE FORMAT^3
;;^DIST(.404,.441,40,1,1)
;;=.01
;;^DIST(.404,.441,40,1,2)
;;=1,42^30^1,21^0
;;^DIST(.404,.441,40,3,0)
;;=3^!M^1
;;^DIST(.404,.441,40,3,.1)
;;=N I S Y="" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_"="
;;^DIST(.404,.441,40,3,2)
;;=^^2,21
;;^DIST(.404,.441,40,4,0)
;;=4^FIELD DELIMITER^3
;;^DIST(.404,.441,40,4,1)
;;=1
;;^DIST(.404,.441,40,4,2)
;;=4,23^15^4,6^0
;;^DIST(.404,.441,40,5,0)
;;=5^RECORD LENGTH FIXED?^3
;;^DIST(.404,.441,40,5,1)
;;=5
;;^DIST(.404,.441,40,5,2)
;;=4,69^3^4,48^1
;;^DIST(.404,.441,40,6,0)
;;=4.7^RECORD DELIMITER^3
;;^DIST(.404,.441,40,6,1)
;;=2
;;^DIST(.404,.441,40,6,2)
;;=6,23^15^6,5^0
;;^DIST(.404,.441,40,7,0)
;;=7^MAXIMUM OUTPUT LENGTH^3
;;^DIST(.404,.441,40,7,1)
;;=7
;;^DIST(.404,.441,40,7,2)
;;=5,69^5^5,46^0
;;^DIST(.404,.441,40,7,3)
;;=80
;;^DIST(.404,.441,40,8,0)
;;=8^NEED FOREIGN FIELD NAMES?^3
;;^DIST(.404,.441,40,8,1)
;;=6
;;^DIST(.404,.441,40,8,2)
;;=6,69^3^6,43^1
;;^DIST(.404,.441,40,9,0)
;;=9^FILE HEADER^3
;;^DIST(.404,.441,40,9,1)
;;=20
;;^DIST(.404,.441,40,9,2)
;;=8,23^40^8,10^0
;;^DIST(.404,.441,40,10,0)
;;=10^FILE TRAILER^3
;;^DIST(.404,.441,40,10,1)
;;=25
;;^DIST(.404,.441,40,10,2)
;;=9,23^40^9,9^0
;;^DIST(.404,.441,40,11,0)
;;=11^DATE FORMAT^3
;;^DIST(.404,.441,40,11,1)
;;=27
;;^DIST(.404,.441,40,11,2)
;;=10,23^40^10,10^0
;;^DIST(.404,.441,40,16,0)
;;=16^Go to next page to document format.^1
;;^DIST(.404,.441,40,16,2)
;;=^^17,45
;;^DIST(.404,.441,40,17,0)
;;=2^PAGE 1^1
;;^DIST(.404,.441,40,17,2)
;;=^^1,74
;;^DIST(.404,.441,40,18,0)
;;=12^QUOTE NON-NUMERIC?^3
;;^DIST(.404,.441,40,18,1)
;;=8
;;^DIST(.404,.441,40,18,2)
;;=13,23^3^13,4^1
;;^DIST(.404,.441,40,19,0)
;;=13^PROMPT FOR DATA TYPE?^3
;;^DIST(.404,.441,40,19,1)
;;=9
;;^DIST(.404,.441,40,19,2)
;;=14,23^3^14,1^1
;;^DIST(.404,.441,40,20,0)
;;=4.5^SEND LAST DELIMITER?^3
;;^DIST(.404,.441,40,20,1)
;;=10
;;^DIST(.404,.441,40,20,2)
;;=5,23^3^5,2^1
;;^DIST(.404,.441,40,20,3)
;;=YES
;;^DIST(.404,.441,40,21,0)
;;=11.5^SUBSTITUTE FOR NULL^3
;;^DIST(.404,.441,40,21,1)
;;=11
;;^DIST(.404,.441,40,21,2)
;;=12,23^15^12,2^0
;;^DIST(.404,.442,0)
;;=DDXP FF BLK2^.44^0
;;^DIST(.404,.442,15,0)
;;=^^2^2^2920925
;;^DIST(.404,.442,15,1,0)
;;=Contains fields for page 2 of form used to define Foreign Formats.
;;^DIST(.404,.442,15,2,0)
;;=Primarily used to document the format.
;;^DIST(.404,.442,40,0)
;;=^.4044I^7^7
;;^DIST(.404,.442,40,1,0)
;;=1^FOREIGN FILE FORMAT: ^1
;;^DIST(.404,.442,40,1,2)
;;=^^1,21
;;^DIST(.404,.442,40,2,0)
;;=2^^3
;;^DIST(.404,.442,40,2,1)
;;=.01
;;^DIST(.404,.442,40,2,2)
;;=1,42^30
;;^DIST(.404,.442,40,2,4)
;;=^^^1
;;^DIST(.404,.442,40,3,0)
;;=2.5^PAGE 2^1
;;^DIST(.404,.442,40,3,2)
;;=^^1,74
;;^DIST(.404,.442,40,4,0)
;;=3^!M^1
;;^DIST(.404,.442,40,4,.1)
;;=N I S Y="" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_"="
;;^DIST(.404,.442,40,4,2)
;;=^^2,21
;;^DIST(.404,.442,40,5,0)
;;=4^DESCRIPTION (WP)^3
;;^DIST(.404,.442,40,5,1)
;;=30
;;^DIST(.404,.442,40,5,2)
;;=4,44^1^4,26^0
;;^DIST(.404,.442,40,6,0)
;;=5^USAGE NOTES (WP)^3
;;^DIST(.404,.442,40,6,1)
;;=31
;;^DIST(.404,.442,40,6,2)
;;=6,44^1^6,26^0
;;^DIST(.404,.442,40,7,0)
;;=6^Select OTHER NAME FOR FORMAT^3
;;^DIST(.404,.442,40,7,1)
;;=50
;;^DIST(.404,.442,40,7,2)
;;=10,44^22^10,14^0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0FK 7268 printed Dec 13, 2024@02:50:28 Page 2
DINIT0FK ;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 ^DINIT0FL
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.404,.404052,40,8,1)
+2 ;;=6.3
+3 ;;^DIST(.404,.404052,40,8,2)
+4 ;;=3,25^3^3,10
+5 ;;^DIST(.404,.404061,0)
+6 ;;=DDGF BLOCK ADD
+7 ;;^DIST(.404,.404061,40,0)
+8 ;;=^.4044I^1^1
+9 ;;^DIST(.404,.404061,40,1,0)
+10 ;;=1^Select NEW BLOCK NAME^2
+11 ;;^DIST(.404,.404061,40,1,2)
+12 ;;=3,26^30^3,3
+13 ;;^DIST(.404,.404061,40,1,12)
+14 ;;=S DDACT="EX"
+15 ;;^DIST(.404,.404061,40,1,20)
+16 ;;=P^^DIST(.404,:QEALMZF
+17 ;;^DIST(.404,.404061,40,1,23)
+18 ;;=S DDGFBNUM=X,DDGFBNAM=DDSEXT
+19 ;;^DIST(.404,.404061,40,1,24)
+20 ;;=S DIR("S")="I Y'<1"
+21 ;;^DIST(.404,.404062,0)
+22 ;;=DDGF BLOCK ADD NEW
+23 ;;^DIST(.404,.404062,40,0)
+24 ;;=^.4044I^2^2
+25 ;;^DIST(.404,.404062,40,1,0)
+26 ;;=1^!M^1
+27 ;;^DIST(.404,.404062,40,1,.1)
+28 ;;=S Y="Are you adding "_DDGFBNAM
+29 ;;^DIST(.404,.404062,40,1,2)
+30 ;;=^^3,3
+31 ;;^DIST(.404,.404062,40,2,0)
+32 ;;=2^as a new block on this page?^2
+33 ;;^DIST(.404,.404062,40,2,2)
+34 ;;=4,32^3^4,3^1
+35 ;;^DIST(.404,.404062,40,2,12)
+36 ;;=S DDACT="EX"
+37 ;;^DIST(.404,.404062,40,2,20)
+38 ;;=Y
+39 ;;^DIST(.404,.404062,40,2,23)
+40 ;;=S DDGFANS=X
+41 ;;^DIST(.404,.404063,0)
+42 ;;=DDGF BLOCK ADD DUPLICATE
+43 ;;^DIST(.404,.404063,40,0)
+44 ;;=^.4044I^3^3
+45 ;;^DIST(.404,.404063,40,1,0)
+46 ;;=1^!M^1
+47 ;;^DIST(.404,.404063,40,1,.1)
+48 ;;=S Y="Block "_DDGFBNAM
+49 ;;^DIST(.404,.404063,40,1,2)
+50 ;;=^^3,3
+51 ;;^DIST(.404,.404063,40,2,0)
+52 ;;=2^already exists on this page!^1
+53 ;;^DIST(.404,.404063,40,2,2)
+54 ;;=^^4,3
+55 ;;^DIST(.404,.404063,40,3,0)
+56 ;;=3^OK^2
+57 ;;^DIST(.404,.404063,40,3,2)
+58 ;;=6,18^1^6,15^1
+59 ;;^DIST(.404,.404063,40,3,12)
+60 ;;=S DDACT="EX"
+61 ;;^DIST(.404,.404063,40,3,20)
+62 ;;=F^^0:0
+63 ;;^DIST(.404,.404063,40,3,21,0)
+64 ;;=^^1^1^2940928
+65 ;;^DIST(.404,.404063,40,3,21,1,0)
+66 ;;=Press <RET> to close this page
+67 ;;^DIST(.404,.404071,0)
+68 ;;=DDGF BLOCK DELETE
+69 ;;^DIST(.404,.404071,40,0)
+70 ;;=^.4044I^4^4
+71 ;;^DIST(.404,.404071,40,1,0)
+72 ;;=1^Block^1
+73 ;;^DIST(.404,.404071,40,1,2)
+74 ;;=^^1,1
+75 ;;^DIST(.404,.404071,40,2,0)
+76 ;;=4^Do you want to delete it from the BLOCK file?^2
+77 ;;^DIST(.404,.404071,40,2,2)
+78 ;;=3,47^3^3,1^1
+79 ;;^DIST(.404,.404071,40,2,12)
+80 ;;=S:X]"" DDACT="EX" I X="" D HLP^DDSUTL($C(7)_"A response is required. Enter either YES or NO.") S DDSBR=2
+81 ;;^DIST(.404,.404071,40,2,20)
+82 ;;=Y
+83 ;;^DIST(.404,.404071,40,2,23)
+84 ;;=S DDGFANS=X
+85 ;;^DIST(.404,.404071,40,3,0)
+86 ;;=2^!M^1
+87 ;;^DIST(.404,.404071,40,3,.1)
+88 ;;=S Y=DDGFBK
+89 ;;^DIST(.404,.404071,40,3,2)
+90 ;;=^^1,7
+91 ;;^DIST(.404,.404071,40,4,0)
+92 ;;=3^is not used on any other forms.^1
+93 ;;^DIST(.404,.404071,40,4,2)
+94 ;;=^^2,1
+95 ;;^DIST(.404,.404081,0)
+96 ;;=DDGF HEADER BLOCK SELECT
+97 ;;^DIST(.404,.404081,40,0)
+98 ;;=^.4044I^2^2
+99 ;;^DIST(.404,.404081,40,1,0)
+100 ;;=1^ Add a New Header Block ^1
+101 ;;^DIST(.404,.404081,40,1,2)
+102 ;;=^^1,20
+103 ;;^DIST(.404,.404081,40,2,0)
+104 ;;=2^Select New Header Block Name^2
+105 ;;^DIST(.404,.404081,40,2,2)
+106 ;;=3,33^30^3,3
+107 ;;^DIST(.404,.404081,40,2,12)
+108 ;;=S DDACT="EX"
+109 ;;^DIST(.404,.404081,40,2,20)
+110 ;;=P^^DIST(.404,:QEALMZF
+111 ;;^DIST(.404,.404081,40,2,23)
+112 ;;=S DDGFBNUM=X,DDGFBNAM=DDSEXT
+113 ;;^DIST(.404,.441,0)
+114 ;;=DDXP FF BLK1^.44
+115 ;;^DIST(.404,.441,15,0)
+116 ;;=^^2^2^2930107
+117 ;;^DIST(.404,.441,15,1,0)
+118 ;;=Block makes up page 1 of DDXP FF FORM. It is used to define a foreign
+119 ;;^DIST(.404,.441,15,2,0)
+120 ;;=format.
+121 ;;^DIST(.404,.441,40,0)
+122 ;;=^.4044I^21^16
+123 ;;^DIST(.404,.441,40,1,0)
+124 ;;=1^FOREIGN FILE FORMAT^3
+125 ;;^DIST(.404,.441,40,1,1)
+126 ;;=.01
+127 ;;^DIST(.404,.441,40,1,2)
+128 ;;=1,42^30^1,21^0
+129 ;;^DIST(.404,.441,40,3,0)
+130 ;;=3^!M^1
+131 ;;^DIST(.404,.441,40,3,.1)
+132 ;;=N I S Y="" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_"="
+133 ;;^DIST(.404,.441,40,3,2)
+134 ;;=^^2,21
+135 ;;^DIST(.404,.441,40,4,0)
+136 ;;=4^FIELD DELIMITER^3
+137 ;;^DIST(.404,.441,40,4,1)
+138 ;;=1
+139 ;;^DIST(.404,.441,40,4,2)
+140 ;;=4,23^15^4,6^0
+141 ;;^DIST(.404,.441,40,5,0)
+142 ;;=5^RECORD LENGTH FIXED?^3
+143 ;;^DIST(.404,.441,40,5,1)
+144 ;;=5
+145 ;;^DIST(.404,.441,40,5,2)
+146 ;;=4,69^3^4,48^1
+147 ;;^DIST(.404,.441,40,6,0)
+148 ;;=4.7^RECORD DELIMITER^3
+149 ;;^DIST(.404,.441,40,6,1)
+150 ;;=2
+151 ;;^DIST(.404,.441,40,6,2)
+152 ;;=6,23^15^6,5^0
+153 ;;^DIST(.404,.441,40,7,0)
+154 ;;=7^MAXIMUM OUTPUT LENGTH^3
+155 ;;^DIST(.404,.441,40,7,1)
+156 ;;=7
+157 ;;^DIST(.404,.441,40,7,2)
+158 ;;=5,69^5^5,46^0
+159 ;;^DIST(.404,.441,40,7,3)
+160 ;;=80
+161 ;;^DIST(.404,.441,40,8,0)
+162 ;;=8^NEED FOREIGN FIELD NAMES?^3
+163 ;;^DIST(.404,.441,40,8,1)
+164 ;;=6
+165 ;;^DIST(.404,.441,40,8,2)
+166 ;;=6,69^3^6,43^1
+167 ;;^DIST(.404,.441,40,9,0)
+168 ;;=9^FILE HEADER^3
+169 ;;^DIST(.404,.441,40,9,1)
+170 ;;=20
+171 ;;^DIST(.404,.441,40,9,2)
+172 ;;=8,23^40^8,10^0
+173 ;;^DIST(.404,.441,40,10,0)
+174 ;;=10^FILE TRAILER^3
+175 ;;^DIST(.404,.441,40,10,1)
+176 ;;=25
+177 ;;^DIST(.404,.441,40,10,2)
+178 ;;=9,23^40^9,9^0
+179 ;;^DIST(.404,.441,40,11,0)
+180 ;;=11^DATE FORMAT^3
+181 ;;^DIST(.404,.441,40,11,1)
+182 ;;=27
+183 ;;^DIST(.404,.441,40,11,2)
+184 ;;=10,23^40^10,10^0
+185 ;;^DIST(.404,.441,40,16,0)
+186 ;;=16^Go to next page to document format.^1
+187 ;;^DIST(.404,.441,40,16,2)
+188 ;;=^^17,45
+189 ;;^DIST(.404,.441,40,17,0)
+190 ;;=2^PAGE 1^1
+191 ;;^DIST(.404,.441,40,17,2)
+192 ;;=^^1,74
+193 ;;^DIST(.404,.441,40,18,0)
+194 ;;=12^QUOTE NON-NUMERIC?^3
+195 ;;^DIST(.404,.441,40,18,1)
+196 ;;=8
+197 ;;^DIST(.404,.441,40,18,2)
+198 ;;=13,23^3^13,4^1
+199 ;;^DIST(.404,.441,40,19,0)
+200 ;;=13^PROMPT FOR DATA TYPE?^3
+201 ;;^DIST(.404,.441,40,19,1)
+202 ;;=9
+203 ;;^DIST(.404,.441,40,19,2)
+204 ;;=14,23^3^14,1^1
+205 ;;^DIST(.404,.441,40,20,0)
+206 ;;=4.5^SEND LAST DELIMITER?^3
+207 ;;^DIST(.404,.441,40,20,1)
+208 ;;=10
+209 ;;^DIST(.404,.441,40,20,2)
+210 ;;=5,23^3^5,2^1
+211 ;;^DIST(.404,.441,40,20,3)
+212 ;;=YES
+213 ;;^DIST(.404,.441,40,21,0)
+214 ;;=11.5^SUBSTITUTE FOR NULL^3
+215 ;;^DIST(.404,.441,40,21,1)
+216 ;;=11
+217 ;;^DIST(.404,.441,40,21,2)
+218 ;;=12,23^15^12,2^0
+219 ;;^DIST(.404,.442,0)
+220 ;;=DDXP FF BLK2^.44^0
+221 ;;^DIST(.404,.442,15,0)
+222 ;;=^^2^2^2920925
+223 ;;^DIST(.404,.442,15,1,0)
+224 ;;=Contains fields for page 2 of form used to define Foreign Formats.
+225 ;;^DIST(.404,.442,15,2,0)
+226 ;;=Primarily used to document the format.
+227 ;;^DIST(.404,.442,40,0)
+228 ;;=^.4044I^7^7
+229 ;;^DIST(.404,.442,40,1,0)
+230 ;;=1^FOREIGN FILE FORMAT: ^1
+231 ;;^DIST(.404,.442,40,1,2)
+232 ;;=^^1,21
+233 ;;^DIST(.404,.442,40,2,0)
+234 ;;=2^^3
+235 ;;^DIST(.404,.442,40,2,1)
+236 ;;=.01
+237 ;;^DIST(.404,.442,40,2,2)
+238 ;;=1,42^30
+239 ;;^DIST(.404,.442,40,2,4)
+240 ;;=^^^1
+241 ;;^DIST(.404,.442,40,3,0)
+242 ;;=2.5^PAGE 2^1
+243 ;;^DIST(.404,.442,40,3,2)
+244 ;;=^^1,74
+245 ;;^DIST(.404,.442,40,4,0)
+246 ;;=3^!M^1
+247 ;;^DIST(.404,.442,40,4,.1)
+248 ;;=N I S Y="" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_"="
+249 ;;^DIST(.404,.442,40,4,2)
+250 ;;=^^2,21
+251 ;;^DIST(.404,.442,40,5,0)
+252 ;;=4^DESCRIPTION (WP)^3
+253 ;;^DIST(.404,.442,40,5,1)
+254 ;;=30
+255 ;;^DIST(.404,.442,40,5,2)
+256 ;;=4,44^1^4,26^0
+257 ;;^DIST(.404,.442,40,6,0)
+258 ;;=5^USAGE NOTES (WP)^3
+259 ;;^DIST(.404,.442,40,6,1)
+260 ;;=31
+261 ;;^DIST(.404,.442,40,6,2)
+262 ;;=6,44^1^6,26^0
+263 ;;^DIST(.404,.442,40,7,0)
+264 ;;=6^Select OTHER NAME FOR FORMAT^3
+265 ;;^DIST(.404,.442,40,7,1)
+266 ;;=50
+267 ;;^DIST(.404,.442,40,7,2)
+268 ;;=10,44^22^10,14^0
