Routine: DINIT0F6

DINIT0F6 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;05:50 PM  23 Mar 2001 [ 12/09/2003  4:32 PM ]

 ;;22.0;VA FileMan;**33,76,1002**;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="" ^DINIT0F7 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y

ENTRY ;

 ;;^DIST(.404,.00106,40,5,0)

 ;;=83^LENGTH OF FIELD^2^^LENGTH

 ;;^DIST(.404,.00106,40,5,2)

 ;;=8,19^3^8,2

 ;;^DIST(.404,.00106,40,5,3)

 ;;=!M

 ;;^DIST(.404,.00106,40,5,3.1)

 ;;=I DICATT2["J" S Y=+$P(DICATT2,"J",2)

 ;;^DIST(.404,.00106,40,5,20)

 ;;=N^^1:250:0

 ;;^DIST(.404,.00106,40,5,21,0)

 ;;=^^2^2^2981106

 ;;^DIST(.404,.00106,40,5,21,1,0)

 ;;=MAXIMUM NUMBER OF CHARACTERS

 ;;^DIST(.404,.00106,40,5,21,2,0)

 ;;=  (not more than 250)

 ;;^DIST(.404,.00106,40,6,0)

 ;;=81^SHOULD VALUE ALWAYS BE ROUNDED^2^^ROUNDED

 ;;^DIST(.404,.00106,40,6,2)

 ;;=6,65^3^6,33

 ;;^DIST(.404,.00106,40,6,3)

 ;;=!M

 ;;^DIST(.404,.00106,40,6,3.1)

 ;;=I DICATT2[";" S Y=$E("NY",DICATT5[" S X=$J(X,0,"+1)

 ;;^DIST(.404,.00106,40,6,20)

 ;;=Y

 ;;^DIST(.404,.00106,40,7,0)

 ;;=82^WHEN TOTALLING, SHOULD SUMS BE SUMS OF COMPONENT FIELDS^2^^TOTALLING

 ;;^DIST(.404,.00106,40,7,2)

 ;;=7,65^3^7,8

 ;;^DIST(.404,.00106,40,7,3)

 ;;=!M

 ;;^DIST(.404,.00106,40,7,3.1)

 ;;=I $D(^DD(DICATTA,DICATTF,9.02)) S Y="Y"

 ;;^DIST(.404,.00106,40,7,20)

 ;;=Y

 ;;^DIST(.404,.00107,0)

 ;;=DICATT7^1

 ;;^DIST(.404,.00107,40,0)

 ;;=^.4044I^2^2

 ;;^DIST(.404,.00107,40,1,0)

 ;;=84^POINT TO WHICH FILE^2^^FILE

 ;;^DIST(.404,.00107,40,1,2)

 ;;=2,27^39^2,6

 ;;^DIST(.404,.00107,40,1,3)

 ;;=!M

 ;;^DIST(.404,.00107,40,1,3.1)

 ;;=S Y=$P($G(^DIC(+$P(DICATT2,"P",2),0)),U)

 ;;^DIST(.404,.00107,40,1,11)

 ;;=S:$G(DICATTSC)=7 DDACT="CL"

 ;;^DIST(.404,.00107,40,1,20)

 ;;=P^^1:EOFIZ

 ;;^DIST(.404,.00107,40,1,24)

 ;;=S DIR("S")="I Y-1.1 N DIFILE,DIAC S DIFILE=+Y,DIAC=""RD"" D ^DIAC I %"

 ;;^DIST(.404,.00107,40,2,0)

 ;;=85^SHALL 'ADDING A NEW FILE ENTRY ("LAYGO") BE ALLOWED^2^^LAYGO

 ;;^DIST(.404,.00107,40,2,2)

 ;;=4,59^3^4,6

 ;;^DIST(.404,.00107,40,2,3)

 ;;=!M

 ;;^DIST(.404,.00107,40,2,3.1)

 ;;=S Y="N" I DICATT2["P" S Y=$E("YN",DICATT2["'"+1)

 ;;^DIST(.404,.00107,40,2,14)

 ;;=N DIFILE,DIAC S DIAC="LAYGO",DIFILE=$$GET^DDSVALF(84,,,"I","") D ^DIAC I $P($G(^DD(DIFILE,0,"DI")),U,2)["Y"!'DIAC S DDSERROR=1 D HLP^DDSUTL("NO LAYGO-ING TO THIS FILE!")

 ;;^DIST(.404,.00107,40,2,20)

 ;;=Y

 ;;^DIST(.404,.00108,0)

 ;;=DICATT8^1

 ;;^DIST(.404,.00108,40,0)

 ;;=^.4044I^14^14

 ;;^DIST(.404,.00108,40,1,0)

 ;;=91^VARIABLE-POINTER FILE #1^2^^VP 1

 ;;^DIST(.404,.00108,40,1,2)

 ;;=2,29^30^2,3

 ;;^DIST(.404,.00108,40,1,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,1,3.1)

 ;;=D Y^DICATTD8(1,1)

 ;;^DIST(.404,.00108,40,1,4)

 ;;=1

 ;;^DIST(.404,.00108,40,1,20)

 ;;=P^^1:EOFIZM

 ;;^DIST(.404,.00108,40,1,24)

 ;;=D DICS^DICATTD8

 ;;^DIST(.404,.00108,40,2,0)

 ;;=92^VARIABLE-POINTER FILE #2^2^^VP 2

 ;;^DIST(.404,.00108,40,2,2)

 ;;=3,29^30^3,3

 ;;^DIST(.404,.00108,40,2,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,2,3.1)

 ;;=D Y^DICATTD8(2,1)

 ;;^DIST(.404,.00108,40,2,20)

 ;;=P^^1:EOFIZM

 ;;^DIST(.404,.00108,40,2,24)

 ;;=D DICS^DICATTD8

 ;;^DIST(.404,.00108,40,3,0)

 ;;=91.1^ORDER...^2^^ORDER1

 ;;^DIST(.404,.00108,40,3,2)

 ;;=2,70^4^2,61^1

 ;;^DIST(.404,.00108,40,3,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,3,3.1)

 ;;=D Y^DICATTD8(1,3)

 ;;^DIST(.404,.00108,40,3,10)

 ;;=S:X DICATTVP=1,DDSSTACK=8

 ;;^DIST(.404,.00108,40,3,20)

 ;;=N^^1:99:1

 ;;^DIST(.404,.00108,40,4,0)

 ;;=92.1^ORDER...^2^^ORDER2

 ;;^DIST(.404,.00108,40,4,2)

 ;;=3,70^4^3,61^1

 ;;^DIST(.404,.00108,40,4,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,4,3.1)

 ;;=D Y^DICATTD8(2,3)

 ;;^DIST(.404,.00108,40,4,10)

 ;;=S:X DICATTVP=2,DDSSTACK=8

 ;;^DIST(.404,.00108,40,4,20)

 ;;=N^^1:99:1

 ;;^DIST(.404,.00108,40,5,0)

 ;;=93^VARIABLE-POINTER FILE #3^2

 ;;^DIST(.404,.00108,40,5,2)

 ;;=4,29^30^4,3

 ;;^DIST(.404,.00108,40,5,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,5,3.1)

 ;;=D Y^DICATTD8(3,1)

 ;;^DIST(.404,.00108,40,5,20)

 ;;=P^^1:EOFIZM

 ;;^DIST(.404,.00108,40,5,24)

 ;;=D DICS^DICATTD8

 ;;^DIST(.404,.00108,40,6,0)

 ;;=93.1^ORDER...^2^^ORDER3

 ;;^DIST(.404,.00108,40,6,2)

 ;;=4,70^4^4,61^1

 ;;^DIST(.404,.00108,40,6,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,6,3.1)

 ;;=D Y^DICATTD8(3,3)

 ;;^DIST(.404,.00108,40,6,10)

 ;;=S:X DICATTVP=3,DDSSTACK=8

 ;;^DIST(.404,.00108,40,6,20)

 ;;=N^^1:99:1

 ;;^DIST(.404,.00108,40,7,0)

 ;;=94.1^ORDER...^2^^ORDER4

 ;;^DIST(.404,.00108,40,7,2)

 ;;=5,70^4^5,61^1

 ;;^DIST(.404,.00108,40,7,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,7,3.1)

 ;;=D Y^DICATTD8(4,3)

 ;;^DIST(.404,.00108,40,7,10)

 ;;=S:X DICATTVP=4,DDSSTACK=8

 ;;^DIST(.404,.00108,40,7,20)

 ;;=N^^1:99:1

 ;;^DIST(.404,.00108,40,8,0)

 ;;=95.1^ORDER...^2^^ORDER5

 ;;^DIST(.404,.00108,40,8,2)

 ;;=6,70^4^6,61^1

 ;;^DIST(.404,.00108,40,8,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,8,3.1)

 ;;=D Y^DICATTD8(5,3)

 ;;^DIST(.404,.00108,40,8,10)

 ;;=S:X DICATTVP=5,DDSSTACK=8

 ;;^DIST(.404,.00108,40,8,20)

 ;;=N^^1:99:1

 ;;^DIST(.404,.00108,40,9,0)

 ;;=96.1^ORDER...^2^^ORDER6

 ;;^DIST(.404,.00108,40,9,2)

 ;;=7,70^4^7,61^1

 ;;^DIST(.404,.00108,40,9,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,9,3.1)

 ;;=D Y^DICATTD8(6,3)

 ;;^DIST(.404,.00108,40,9,10)

 ;;=S:X DICATTVP=6,DDSSTACK=8

 ;;^DIST(.404,.00108,40,9,20)

 ;;=N^^1:99:1

 ;;^DIST(.404,.00108,40,10,0)

 ;;=97.1^ORDER...^2^^ORDER7

 ;;^DIST(.404,.00108,40,10,2)

 ;;=8,70^4^8,61^1

 ;;^DIST(.404,.00108,40,10,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,10,3.1)

 ;;=D Y^DICATTD8(7,3)

 ;;^DIST(.404,.00108,40,10,10)

 ;;=S:X DICATTVP=7,DDSSTACK=8

 ;;^DIST(.404,.00108,40,10,20)

 ;;=N^^1:99:1

 ;;^DIST(.404,.00108,40,11,0)

 ;;=94^VARIABLE-POINTER FILE #4^2^^VP4

 ;;^DIST(.404,.00108,40,11,2)

 ;;=5,29^30^5,3

 ;;^DIST(.404,.00108,40,11,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,11,3.1)

 ;;=D Y^DICATTD8(4,1)

 ;;^DIST(.404,.00108,40,11,20)

 ;;=P^^1:EOFIZM

 ;;^DIST(.404,.00108,40,11,24)

 ;;=D DICS^DICATTD8

 ;;^DIST(.404,.00108,40,12,0)

 ;;=95^VARIABLE-POINTER FILE #5^2^^VP 5

 ;;^DIST(.404,.00108,40,12,2)

 ;;=6,29^30^6,3

 ;;^DIST(.404,.00108,40,12,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,12,3.1)

 ;;=D Y^DICATTD8(5,1)

 ;;^DIST(.404,.00108,40,12,20)

 ;;=P^^1:EOFIZM

 ;;^DIST(.404,.00108,40,12,24)

 ;;=D DICS^DICATTD8

 ;;^DIST(.404,.00108,40,13,0)

 ;;=96^VARIABLE-POINTER FILE #6^2^^VP 6

 ;;^DIST(.404,.00108,40,13,2)

 ;;=7,29^30^7,3

 ;;^DIST(.404,.00108,40,13,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,13,3.1)

 ;;=D Y^DICATTD8(6,1)

 ;;^DIST(.404,.00108,40,13,20)

 ;;=P^^1:EOFIZM

 ;;^DIST(.404,.00108,40,13,24)

 ;;=D DICS^DICATTD8

 ;;^DIST(.404,.00108,40,14,0)

 ;;=97^VARIABLE-POINTER FILE #7^2^^VP 7

 ;;^DIST(.404,.00108,40,14,2)

 ;;=8,29^30^8,3

 ;;^DIST(.404,.00108,40,14,3)

 ;;=!M

 ;;^DIST(.404,.00108,40,14,3.1)

 ;;=D Y^DICATTD8(7,1)

 ;;^DIST(.404,.00108,40,14,20)

 ;;=P^^1:EOFIZM

 ;;^DIST(.404,.00108,40,14,24)

 ;;=D DICS^DICATTD8

 ;;^DIST(.404,.00109,0)

 ;;=DICATT3^1

 ;;^DIST(.404,.00109,40,0)

 ;;=^.4044I^26^26

 ;;^DIST(.404,.00109,40,1,0)

 ;;=35^CODE^2^^CODE1

 ;;^DIST(.404,.00109,40,1,2)

 ;;=2,8^4^2,2

 ;;^DIST(.404,.00109,40,1,3)

 ;;=!M

 ;;^DIST(.404,.00109,40,1,3.1)

 ;;=D Y^DICATTD3(1,1)

DINIT0F6  ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;05:50 PM  23 Mar 2001 [ 12/09/2003  4:32 PM ]

 +1       ;;22.0;VA FileMan;**33,76,1002**;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 ^DINIT0F7

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

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

               SET @X=Y

 +4        QUIT

ENTRY     ;

 +1       ;;^DIST(.404,.00106,40,5,0)

 +2       ;;=83^LENGTH OF FIELD^2^^LENGTH

 +3       ;;^DIST(.404,.00106,40,5,2)

 +4       ;;=8,19^3^8,2

 +5       ;;^DIST(.404,.00106,40,5,3)

 +6       ;;=!M

 +7       ;;^DIST(.404,.00106,40,5,3.1)

 +8       ;;=I DICATT2["J" S Y=+$P(DICATT2,"J",2)

 +9       ;;^DIST(.404,.00106,40,5,20)

 +10      ;;=N^^1:250:0

 +11      ;;^DIST(.404,.00106,40,5,21,0)

 +12      ;;=^^2^2^2981106

 +13      ;;^DIST(.404,.00106,40,5,21,1,0)

 +14      ;;=MAXIMUM NUMBER OF CHARACTERS

 +15      ;;^DIST(.404,.00106,40,5,21,2,0)

 +16      ;;=  (not more than 250)

 +17      ;;^DIST(.404,.00106,40,6,0)

 +18      ;;=81^SHOULD VALUE ALWAYS BE ROUNDED^2^^ROUNDED

 +19      ;;^DIST(.404,.00106,40,6,2)

 +20      ;;=6,65^3^6,33

 +21      ;;^DIST(.404,.00106,40,6,3)

 +22      ;;=!M

 +23      ;;^DIST(.404,.00106,40,6,3.1)

 +24      ;;=I DICATT2[";" S Y=$E("NY",DICATT5[" S X=$J(X,0,"+1)

 +25      ;;^DIST(.404,.00106,40,6,20)

 +26      ;;=Y

 +27      ;;^DIST(.404,.00106,40,7,0)

 +28      ;;=82^WHEN TOTALLING, SHOULD SUMS BE SUMS OF COMPONENT FIELDS^2^^TOTALLING

 +29      ;;^DIST(.404,.00106,40,7,2)

 +30      ;;=7,65^3^7,8

 +31      ;;^DIST(.404,.00106,40,7,3)

 +32      ;;=!M

 +33      ;;^DIST(.404,.00106,40,7,3.1)

 +34      ;;=I $D(^DD(DICATTA,DICATTF,9.02)) S Y="Y"

 +35      ;;^DIST(.404,.00106,40,7,20)

 +36      ;;=Y

 +37      ;;^DIST(.404,.00107,0)

 +38      ;;=DICATT7^1

 +39      ;;^DIST(.404,.00107,40,0)

 +40      ;;=^.4044I^2^2

 +41      ;;^DIST(.404,.00107,40,1,0)

 +42      ;;=84^POINT TO WHICH FILE^2^^FILE

 +43      ;;^DIST(.404,.00107,40,1,2)

 +44      ;;=2,27^39^2,6

 +45      ;;^DIST(.404,.00107,40,1,3)

 +46      ;;=!M

 +47      ;;^DIST(.404,.00107,40,1,3.1)

 +48      ;;=S Y=$P($G(^DIC(+$P(DICATT2,"P",2),0)),U)

 +49      ;;^DIST(.404,.00107,40,1,11)

 +50      ;;=S:$G(DICATTSC)=7 DDACT="CL"

 +51      ;;^DIST(.404,.00107,40,1,20)

 +52      ;;=P^^1:EOFIZ

 +53      ;;^DIST(.404,.00107,40,1,24)

 +54      ;;=S DIR("S")="I Y-1.1 N DIFILE,DIAC S DIFILE=+Y,DIAC=""RD"" D ^DIAC I %"

 +55      ;;^DIST(.404,.00107,40,2,0)

 +56      ;;=85^SHALL 'ADDING A NEW FILE ENTRY ("LAYGO") BE ALLOWED^2^^LAYGO

 +57      ;;^DIST(.404,.00107,40,2,2)

 +58      ;;=4,59^3^4,6

 +59      ;;^DIST(.404,.00107,40,2,3)

 +60      ;;=!M

 +61      ;;^DIST(.404,.00107,40,2,3.1)

 +62      ;;=S Y="N" I DICATT2["P" S Y=$E("YN",DICATT2["'"+1)

 +63      ;;^DIST(.404,.00107,40,2,14)

 +64      ;;=N DIFILE,DIAC S DIAC="LAYGO",DIFILE=$$GET^DDSVALF(84,,,"I","") D ^DIAC I $P($G(^DD(DIFILE,0,"DI")),U,2)["Y"!'DIAC S DDSERROR=1 D HLP^DDSUTL("NO LAYGO-ING TO THIS FILE!")

 +65      ;;^DIST(.404,.00107,40,2,20)

 +66      ;;=Y

 +67      ;;^DIST(.404,.00108,0)

 +68      ;;=DICATT8^1

 +69      ;;^DIST(.404,.00108,40,0)

 +70      ;;=^.4044I^14^14

 +71      ;;^DIST(.404,.00108,40,1,0)

 +72      ;;=91^VARIABLE-POINTER FILE #1^2^^VP 1

 +73      ;;^DIST(.404,.00108,40,1,2)

 +74      ;;=2,29^30^2,3

 +75      ;;^DIST(.404,.00108,40,1,3)

 +76      ;;=!M

 +77      ;;^DIST(.404,.00108,40,1,3.1)

 +78      ;;=D Y^DICATTD8(1,1)

 +79      ;;^DIST(.404,.00108,40,1,4)

 +80      ;;=1

 +81      ;;^DIST(.404,.00108,40,1,20)

 +82      ;;=P^^1:EOFIZM

 +83      ;;^DIST(.404,.00108,40,1,24)

 +84      ;;=D DICS^DICATTD8

 +85      ;;^DIST(.404,.00108,40,2,0)

 +86      ;;=92^VARIABLE-POINTER FILE #2^2^^VP 2

 +87      ;;^DIST(.404,.00108,40,2,2)

 +88      ;;=3,29^30^3,3

 +89      ;;^DIST(.404,.00108,40,2,3)

 +90      ;;=!M

 +91      ;;^DIST(.404,.00108,40,2,3.1)

 +92      ;;=D Y^DICATTD8(2,1)

 +93      ;;^DIST(.404,.00108,40,2,20)

 +94      ;;=P^^1:EOFIZM

 +95      ;;^DIST(.404,.00108,40,2,24)

 +96      ;;=D DICS^DICATTD8

 +97      ;;^DIST(.404,.00108,40,3,0)

 +98      ;;=91.1^ORDER...^2^^ORDER1

 +99      ;;^DIST(.404,.00108,40,3,2)

 +100     ;;=2,70^4^2,61^1

 +101     ;;^DIST(.404,.00108,40,3,3)

 +102     ;;=!M

 +103     ;;^DIST(.404,.00108,40,3,3.1)

 +104     ;;=D Y^DICATTD8(1,3)

 +105     ;;^DIST(.404,.00108,40,3,10)

 +106     ;;=S:X DICATTVP=1,DDSSTACK=8

 +107     ;;^DIST(.404,.00108,40,3,20)

 +108     ;;=N^^1:99:1

 +109     ;;^DIST(.404,.00108,40,4,0)

 +110     ;;=92.1^ORDER...^2^^ORDER2

 +111     ;;^DIST(.404,.00108,40,4,2)

 +112     ;;=3,70^4^3,61^1

 +113     ;;^DIST(.404,.00108,40,4,3)

 +114     ;;=!M

 +115     ;;^DIST(.404,.00108,40,4,3.1)

 +116     ;;=D Y^DICATTD8(2,3)

 +117     ;;^DIST(.404,.00108,40,4,10)

 +118     ;;=S:X DICATTVP=2,DDSSTACK=8

 +119     ;;^DIST(.404,.00108,40,4,20)

 +120     ;;=N^^1:99:1

 +121     ;;^DIST(.404,.00108,40,5,0)

 +122     ;;=93^VARIABLE-POINTER FILE #3^2

 +123     ;;^DIST(.404,.00108,40,5,2)

 +124     ;;=4,29^30^4,3

 +125     ;;^DIST(.404,.00108,40,5,3)

 +126     ;;=!M

 +127     ;;^DIST(.404,.00108,40,5,3.1)

 +128     ;;=D Y^DICATTD8(3,1)

 +129     ;;^DIST(.404,.00108,40,5,20)

 +130     ;;=P^^1:EOFIZM

 +131     ;;^DIST(.404,.00108,40,5,24)

 +132     ;;=D DICS^DICATTD8

 +133     ;;^DIST(.404,.00108,40,6,0)

 +134     ;;=93.1^ORDER...^2^^ORDER3

 +135     ;;^DIST(.404,.00108,40,6,2)

 +136     ;;=4,70^4^4,61^1

 +137     ;;^DIST(.404,.00108,40,6,3)

 +138     ;;=!M

 +139     ;;^DIST(.404,.00108,40,6,3.1)

 +140     ;;=D Y^DICATTD8(3,3)

 +141     ;;^DIST(.404,.00108,40,6,10)

 +142     ;;=S:X DICATTVP=3,DDSSTACK=8

 +143     ;;^DIST(.404,.00108,40,6,20)

 +144     ;;=N^^1:99:1

 +145     ;;^DIST(.404,.00108,40,7,0)

 +146     ;;=94.1^ORDER...^2^^ORDER4

 +147     ;;^DIST(.404,.00108,40,7,2)

 +148     ;;=5,70^4^5,61^1

 +149     ;;^DIST(.404,.00108,40,7,3)

 +150     ;;=!M

 +151     ;;^DIST(.404,.00108,40,7,3.1)

 +152     ;;=D Y^DICATTD8(4,3)

 +153     ;;^DIST(.404,.00108,40,7,10)

 +154     ;;=S:X DICATTVP=4,DDSSTACK=8

 +155     ;;^DIST(.404,.00108,40,7,20)

 +156     ;;=N^^1:99:1

 +157     ;;^DIST(.404,.00108,40,8,0)

 +158     ;;=95.1^ORDER...^2^^ORDER5

 +159     ;;^DIST(.404,.00108,40,8,2)

 +160     ;;=6,70^4^6,61^1

 +161     ;;^DIST(.404,.00108,40,8,3)

 +162     ;;=!M

 +163     ;;^DIST(.404,.00108,40,8,3.1)

 +164     ;;=D Y^DICATTD8(5,3)

 +165     ;;^DIST(.404,.00108,40,8,10)

 +166     ;;=S:X DICATTVP=5,DDSSTACK=8

 +167     ;;^DIST(.404,.00108,40,8,20)

 +168     ;;=N^^1:99:1

 +169     ;;^DIST(.404,.00108,40,9,0)

 +170     ;;=96.1^ORDER...^2^^ORDER6

 +171     ;;^DIST(.404,.00108,40,9,2)

 +172     ;;=7,70^4^7,61^1

 +173     ;;^DIST(.404,.00108,40,9,3)

 +174     ;;=!M

 +175     ;;^DIST(.404,.00108,40,9,3.1)

 +176     ;;=D Y^DICATTD8(6,3)

 +177     ;;^DIST(.404,.00108,40,9,10)

 +178     ;;=S:X DICATTVP=6,DDSSTACK=8

 +179     ;;^DIST(.404,.00108,40,9,20)

 +180     ;;=N^^1:99:1

 +181     ;;^DIST(.404,.00108,40,10,0)

 +182     ;;=97.1^ORDER...^2^^ORDER7

 +183     ;;^DIST(.404,.00108,40,10,2)

 +184     ;;=8,70^4^8,61^1

 +185     ;;^DIST(.404,.00108,40,10,3)

 +186     ;;=!M

 +187     ;;^DIST(.404,.00108,40,10,3.1)

 +188     ;;=D Y^DICATTD8(7,3)

 +189     ;;^DIST(.404,.00108,40,10,10)

 +190     ;;=S:X DICATTVP=7,DDSSTACK=8

 +191     ;;^DIST(.404,.00108,40,10,20)

 +192     ;;=N^^1:99:1

 +193     ;;^DIST(.404,.00108,40,11,0)

 +194     ;;=94^VARIABLE-POINTER FILE #4^2^^VP4

 +195     ;;^DIST(.404,.00108,40,11,2)

 +196     ;;=5,29^30^5,3

 +197     ;;^DIST(.404,.00108,40,11,3)

 +198     ;;=!M

 +199     ;;^DIST(.404,.00108,40,11,3.1)

 +200     ;;=D Y^DICATTD8(4,1)

 +201     ;;^DIST(.404,.00108,40,11,20)

 +202     ;;=P^^1:EOFIZM

 +203     ;;^DIST(.404,.00108,40,11,24)

 +204     ;;=D DICS^DICATTD8

 +205     ;;^DIST(.404,.00108,40,12,0)

 +206     ;;=95^VARIABLE-POINTER FILE #5^2^^VP 5

 +207     ;;^DIST(.404,.00108,40,12,2)

 +208     ;;=6,29^30^6,3

 +209     ;;^DIST(.404,.00108,40,12,3)

 +210     ;;=!M

 +211     ;;^DIST(.404,.00108,40,12,3.1)

 +212     ;;=D Y^DICATTD8(5,1)

 +213     ;;^DIST(.404,.00108,40,12,20)

 +214     ;;=P^^1:EOFIZM

 +215     ;;^DIST(.404,.00108,40,12,24)

 +216     ;;=D DICS^DICATTD8

 +217     ;;^DIST(.404,.00108,40,13,0)

 +218     ;;=96^VARIABLE-POINTER FILE #6^2^^VP 6

 +219     ;;^DIST(.404,.00108,40,13,2)

 +220     ;;=7,29^30^7,3

 +221     ;;^DIST(.404,.00108,40,13,3)

 +222     ;;=!M

 +223     ;;^DIST(.404,.00108,40,13,3.1)

 +224     ;;=D Y^DICATTD8(6,1)

 +225     ;;^DIST(.404,.00108,40,13,20)

 +226     ;;=P^^1:EOFIZM

 +227     ;;^DIST(.404,.00108,40,13,24)

 +228     ;;=D DICS^DICATTD8

 +229     ;;^DIST(.404,.00108,40,14,0)

 +230     ;;=97^VARIABLE-POINTER FILE #7^2^^VP 7

 +231     ;;^DIST(.404,.00108,40,14,2)

 +232     ;;=8,29^30^8,3

 +233     ;;^DIST(.404,.00108,40,14,3)

 +234     ;;=!M

 +235     ;;^DIST(.404,.00108,40,14,3.1)

 +236     ;;=D Y^DICATTD8(7,1)

 +237     ;;^DIST(.404,.00108,40,14,20)

 +238     ;;=P^^1:EOFIZM

 +239     ;;^DIST(.404,.00108,40,14,24)

 +240     ;;=D DICS^DICATTD8

 +241     ;;^DIST(.404,.00109,0)

 +242     ;;=DICATT3^1

 +243     ;;^DIST(.404,.00109,40,0)

 +244     ;;=^.4044I^26^26

 +245     ;;^DIST(.404,.00109,40,1,0)

 +246     ;;=35^CODE^2^^CODE1

 +247     ;;^DIST(.404,.00109,40,1,2)

 +248     ;;=2,8^4^2,2

 +249     ;;^DIST(.404,.00109,40,1,3)

 +250     ;;=!M

 +251     ;;^DIST(.404,.00109,40,1,3.1)

 +252     ;;=D Y^DICATTD3(1,1)

DINIT0F6.m