Routine: DINIT0FK

DINIT0FK ;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="" ^DINIT0FL S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

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

DINIT0FK  ;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 ^DINIT0FL

               SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

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

DINIT0FK.m