Routine: DINIT0F7

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

ENTRY ;

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

 ;;=1

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

 ;;=F^^1:20

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

 ;;=D C^DICATTD3

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

 ;;=36^WILL STAND FOR^2^^MEANS1

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

 ;;=2,30^30^2,14

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

 ;;=!M

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

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

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

 ;;=1

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

 ;;=F^^1:70

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

 ;;=D C^DICATTD3

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

 ;;=37^CODE^2^^CODE2

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

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

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

 ;;=!M

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

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

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

 ;;=F^^1:20

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

 ;;=D C^DICATTD3

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

 ;;=38^WILL STAND FOR^2^^MEANS2

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

 ;;=3,30^30^3,14

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

 ;;=!M

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

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

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

 ;;=F^^1:70

 ;;^DIST(.404,.00109,40,4,22)

 ;;=D C^DICATTD3

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

 ;;=39^CODE^2^^CODE3

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

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

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

 ;;=!M

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

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

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

 ;;=F^^1:20

 ;;^DIST(.404,.00109,40,5,22)

 ;;=D C^DICATTD3

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

 ;;=40^WILL STAND FOR^2^^MEANS3

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

 ;;=4,30^30^4,14

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

 ;;=!M

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

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

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

 ;;=F^^1:70

 ;;^DIST(.404,.00109,40,6,22)

 ;;=D C^DICATTD3

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

 ;;=41^CODE^2^^CODE4

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

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

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

 ;;=!M

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

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

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

 ;;=F^^1:20

 ;;^DIST(.404,.00109,40,7,22)

 ;;=D C^DICATTD3

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

 ;;=42^WILL STAND FOR^2^^MEANS4

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

 ;;=5,30^30^5,14

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

 ;;=!M

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

 ;;=D Y^DICATTD3(4,2)

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

 ;;=F^^1:70

 ;;^DIST(.404,.00109,40,8,22)

 ;;=D C^DICATTD3

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

 ;;=43^CODE^2^^CODE5

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

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

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

 ;;=!M

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

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

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

 ;;=F^^1:20

 ;;^DIST(.404,.00109,40,9,22)

 ;;=D C^DICATTD3

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

 ;;=44^WILL STAND FOR^2^^MEANS5

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

 ;;=6,30^30^6,14

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

 ;;=!M

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

 ;;=D Y^DICATTD3(5,2)

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

 ;;=F^^1:70

 ;;^DIST(.404,.00109,40,10,22)

 ;;=D C^DICATTD3

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

 ;;=45^CODE^2^^CODE6

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

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

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

 ;;=!M

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

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

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

 ;;=F^^1:20

 ;;^DIST(.404,.00109,40,11,22)

 ;;=D C^DICATTD3

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

 ;;=46^WILL STAND FOR^2^^MEANS6

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

 ;;=7,30^30^7,14

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

 ;;=!M

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

 ;;=D Y^DICATTD3(6,2)

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

 ;;=F^^1:70

 ;;^DIST(.404,.00109,40,12,22)

 ;;=D C^DICATTD3

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

 ;;=47^CODE^2^^CODE7

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

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

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

 ;;=!M

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

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

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

 ;;=F^^1:20

 ;;^DIST(.404,.00109,40,13,22)

 ;;=D C^DICATTD3

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

 ;;=48^WILL STAND FOR^2^^MEANS7

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

 ;;=8,30^30^8,14

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

 ;;=!M

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

 ;;=D Y^DICATTD3(7,2)

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

 ;;=F^^1:70

 ;;^DIST(.404,.00109,40,14,22)

 ;;=D C^DICATTD3

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

 ;;=49^CODE^2^^CODE8

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

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

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

 ;;=!M

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

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

 ;;^DIST(.404,.00109,40,15,20)

 ;;=F^^1:20

 ;;^DIST(.404,.00109,40,15,22)

 ;;=D C^DICATTD3

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

 ;;=50^WILL STAND FOR^2^^MEANS8

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

 ;;=9,30^30^9,14

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

 ;;=!M

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

 ;;=D Y^DICATTD3(8,2)

 ;;^DIST(.404,.00109,40,16,20)

 ;;=F^^1:70

 ;;^DIST(.404,.00109,40,16,22)

 ;;=D C^DICATTD3

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

 ;;=51^CODE^2^^CODE9

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

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

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

 ;;=!M

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

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

 ;;^DIST(.404,.00109,40,17,20)

 ;;=F^^1:20

 ;;^DIST(.404,.00109,40,17,22)

 ;;=D C^DICATTD3

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

 ;;=52^WILL STAND FOR^2^^MEANS9

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

 ;;=10,30^30^10,14

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

 ;;=!M

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

 ;;=D Y^DICATTD3(9,2)

 ;;^DIST(.404,.00109,40,18,20)

 ;;=F^^1:70

 ;;^DIST(.404,.00109,40,18,22)

 ;;=D C^DICATTD3

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

 ;;=53^CODE^2^^CODE10

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

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

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

 ;;=!M

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

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

 ;;^DIST(.404,.00109,40,19,20)

 ;;=F^^1:20

 ;;^DIST(.404,.00109,40,19,22)

 ;;=D C^DICATTD3

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

 ;;=54^WILL STAND FOR^2^^MEANS10

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

 ;;=11,30^30^11,14

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

 ;;=!M

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

 ;;=D Y^DICATTD3(10,2)

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

 ;;=F^^1:70

 ;;^DIST(.404,.00109,40,20,22)

 ;;=D C^DICATTD3

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

 ;;=55^CODE^2^^CODE11

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

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

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

 ;;=!M

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

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

 ;;^DIST(.404,.00109,40,21,20)

 ;;=F^^1:20

 ;;^DIST(.404,.00109,40,21,22)

 ;;=D C^DICATTD3

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

 ;;=56^WILL STAND FOR^2^^MEANS11

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

 ;;=12,30^30^12,14

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

 ;;=!M

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

 ;;=D Y^DICATTD3(11,2)

 ;;^DIST(.404,.00109,40,22,20)

 ;;=F^^1:70

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

 ;;=D C^DICATTD3

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

 ;;=57^CODE^2^^CODE12

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

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

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

 ;;=!M

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

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

 ;;^DIST(.404,.00109,40,23,20)

 ;;=F^^1:20

 ;;^DIST(.404,.00109,40,23,22)

 ;;=D C^DICATTD3

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

 ;;=58^WILL STAND FOR^2^^MEANS12

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

 ;;=13,30^30^13,14

DINIT0F7  ;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 ^DINIT0F8

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

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

               SET @X=Y

 +4        QUIT

ENTRY     ;

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

 +2       ;;=1

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

 +4       ;;=F^^1:20

 +5       ;;^DIST(.404,.00109,40,1,22)

 +6       ;;=D C^DICATTD3

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

 +8       ;;=36^WILL STAND FOR^2^^MEANS1

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

 +10      ;;=2,30^30^2,14

 +11      ;;^DIST(.404,.00109,40,2,3)

 +12      ;;=!M

 +13      ;;^DIST(.404,.00109,40,2,3.1)

 +14      ;;=D Y^DICATTD3(1,2)

 +15      ;;^DIST(.404,.00109,40,2,4)

 +16      ;;=1

 +17      ;;^DIST(.404,.00109,40,2,20)

 +18      ;;=F^^1:70

 +19      ;;^DIST(.404,.00109,40,2,22)

 +20      ;;=D C^DICATTD3

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

 +22      ;;=37^CODE^2^^CODE2

 +23      ;;^DIST(.404,.00109,40,3,2)

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

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

 +26      ;;=!M

 +27      ;;^DIST(.404,.00109,40,3,3.1)

 +28      ;;=D Y^DICATTD3(2,1)

 +29      ;;^DIST(.404,.00109,40,3,20)

 +30      ;;=F^^1:20

 +31      ;;^DIST(.404,.00109,40,3,22)

 +32      ;;=D C^DICATTD3

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

 +34      ;;=38^WILL STAND FOR^2^^MEANS2

 +35      ;;^DIST(.404,.00109,40,4,2)

 +36      ;;=3,30^30^3,14

 +37      ;;^DIST(.404,.00109,40,4,3)

 +38      ;;=!M

 +39      ;;^DIST(.404,.00109,40,4,3.1)

 +40      ;;=D Y^DICATTD3(2,2)

 +41      ;;^DIST(.404,.00109,40,4,20)

 +42      ;;=F^^1:70

 +43      ;;^DIST(.404,.00109,40,4,22)

 +44      ;;=D C^DICATTD3

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

 +46      ;;=39^CODE^2^^CODE3

 +47      ;;^DIST(.404,.00109,40,5,2)

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

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

 +50      ;;=!M

 +51      ;;^DIST(.404,.00109,40,5,3.1)

 +52      ;;=D Y^DICATTD3(3,1)

 +53      ;;^DIST(.404,.00109,40,5,20)

 +54      ;;=F^^1:20

 +55      ;;^DIST(.404,.00109,40,5,22)

 +56      ;;=D C^DICATTD3

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

 +58      ;;=40^WILL STAND FOR^2^^MEANS3

 +59      ;;^DIST(.404,.00109,40,6,2)

 +60      ;;=4,30^30^4,14

 +61      ;;^DIST(.404,.00109,40,6,3)

 +62      ;;=!M

 +63      ;;^DIST(.404,.00109,40,6,3.1)

 +64      ;;=D Y^DICATTD3(3,2)

 +65      ;;^DIST(.404,.00109,40,6,20)

 +66      ;;=F^^1:70

 +67      ;;^DIST(.404,.00109,40,6,22)

 +68      ;;=D C^DICATTD3

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

 +70      ;;=41^CODE^2^^CODE4

 +71      ;;^DIST(.404,.00109,40,7,2)

 +72      ;;=5,8^4^5,2

 +73      ;;^DIST(.404,.00109,40,7,3)

 +74      ;;=!M

 +75      ;;^DIST(.404,.00109,40,7,3.1)

 +76      ;;=D Y^DICATTD3(4,1)

 +77      ;;^DIST(.404,.00109,40,7,20)

 +78      ;;=F^^1:20

 +79      ;;^DIST(.404,.00109,40,7,22)

 +80      ;;=D C^DICATTD3

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

 +82      ;;=42^WILL STAND FOR^2^^MEANS4

 +83      ;;^DIST(.404,.00109,40,8,2)

 +84      ;;=5,30^30^5,14

 +85      ;;^DIST(.404,.00109,40,8,3)

 +86      ;;=!M

 +87      ;;^DIST(.404,.00109,40,8,3.1)

 +88      ;;=D Y^DICATTD3(4,2)

 +89      ;;^DIST(.404,.00109,40,8,20)

 +90      ;;=F^^1:70

 +91      ;;^DIST(.404,.00109,40,8,22)

 +92      ;;=D C^DICATTD3

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

 +94      ;;=43^CODE^2^^CODE5

 +95      ;;^DIST(.404,.00109,40,9,2)

 +96      ;;=6,8^4^6,2

 +97      ;;^DIST(.404,.00109,40,9,3)

 +98      ;;=!M

 +99      ;;^DIST(.404,.00109,40,9,3.1)

 +100     ;;=D Y^DICATTD3(5,1)

 +101     ;;^DIST(.404,.00109,40,9,20)

 +102     ;;=F^^1:20

 +103     ;;^DIST(.404,.00109,40,9,22)

 +104     ;;=D C^DICATTD3

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

 +106     ;;=44^WILL STAND FOR^2^^MEANS5

 +107     ;;^DIST(.404,.00109,40,10,2)

 +108     ;;=6,30^30^6,14

 +109     ;;^DIST(.404,.00109,40,10,3)

 +110     ;;=!M

 +111     ;;^DIST(.404,.00109,40,10,3.1)

 +112     ;;=D Y^DICATTD3(5,2)

 +113     ;;^DIST(.404,.00109,40,10,20)

 +114     ;;=F^^1:70

 +115     ;;^DIST(.404,.00109,40,10,22)

 +116     ;;=D C^DICATTD3

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

 +118     ;;=45^CODE^2^^CODE6

 +119     ;;^DIST(.404,.00109,40,11,2)

 +120     ;;=7,8^4^7,2

 +121     ;;^DIST(.404,.00109,40,11,3)

 +122     ;;=!M

 +123     ;;^DIST(.404,.00109,40,11,3.1)

 +124     ;;=D Y^DICATTD3(6,1)

 +125     ;;^DIST(.404,.00109,40,11,20)

 +126     ;;=F^^1:20

 +127     ;;^DIST(.404,.00109,40,11,22)

 +128     ;;=D C^DICATTD3

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

 +130     ;;=46^WILL STAND FOR^2^^MEANS6

 +131     ;;^DIST(.404,.00109,40,12,2)

 +132     ;;=7,30^30^7,14

 +133     ;;^DIST(.404,.00109,40,12,3)

 +134     ;;=!M

 +135     ;;^DIST(.404,.00109,40,12,3.1)

 +136     ;;=D Y^DICATTD3(6,2)

 +137     ;;^DIST(.404,.00109,40,12,20)

 +138     ;;=F^^1:70

 +139     ;;^DIST(.404,.00109,40,12,22)

 +140     ;;=D C^DICATTD3

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

 +142     ;;=47^CODE^2^^CODE7

 +143     ;;^DIST(.404,.00109,40,13,2)

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

 +145     ;;^DIST(.404,.00109,40,13,3)

 +146     ;;=!M

 +147     ;;^DIST(.404,.00109,40,13,3.1)

 +148     ;;=D Y^DICATTD3(7,1)

 +149     ;;^DIST(.404,.00109,40,13,20)

 +150     ;;=F^^1:20

 +151     ;;^DIST(.404,.00109,40,13,22)

 +152     ;;=D C^DICATTD3

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

 +154     ;;=48^WILL STAND FOR^2^^MEANS7

 +155     ;;^DIST(.404,.00109,40,14,2)

 +156     ;;=8,30^30^8,14

 +157     ;;^DIST(.404,.00109,40,14,3)

 +158     ;;=!M

 +159     ;;^DIST(.404,.00109,40,14,3.1)

 +160     ;;=D Y^DICATTD3(7,2)

 +161     ;;^DIST(.404,.00109,40,14,20)

 +162     ;;=F^^1:70

 +163     ;;^DIST(.404,.00109,40,14,22)

 +164     ;;=D C^DICATTD3

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

 +166     ;;=49^CODE^2^^CODE8

 +167     ;;^DIST(.404,.00109,40,15,2)

 +168     ;;=9,8^4^9,2

 +169     ;;^DIST(.404,.00109,40,15,3)

 +170     ;;=!M

 +171     ;;^DIST(.404,.00109,40,15,3.1)

 +172     ;;=D Y^DICATTD3(8,1)

 +173     ;;^DIST(.404,.00109,40,15,20)

 +174     ;;=F^^1:20

 +175     ;;^DIST(.404,.00109,40,15,22)

 +176     ;;=D C^DICATTD3

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

 +178     ;;=50^WILL STAND FOR^2^^MEANS8

 +179     ;;^DIST(.404,.00109,40,16,2)

 +180     ;;=9,30^30^9,14

 +181     ;;^DIST(.404,.00109,40,16,3)

 +182     ;;=!M

 +183     ;;^DIST(.404,.00109,40,16,3.1)

 +184     ;;=D Y^DICATTD3(8,2)

 +185     ;;^DIST(.404,.00109,40,16,20)

 +186     ;;=F^^1:70

 +187     ;;^DIST(.404,.00109,40,16,22)

 +188     ;;=D C^DICATTD3

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

 +190     ;;=51^CODE^2^^CODE9

 +191     ;;^DIST(.404,.00109,40,17,2)

 +192     ;;=10,8^4^10,2

 +193     ;;^DIST(.404,.00109,40,17,3)

 +194     ;;=!M

 +195     ;;^DIST(.404,.00109,40,17,3.1)

 +196     ;;=D Y^DICATTD3(9,1)

 +197     ;;^DIST(.404,.00109,40,17,20)

 +198     ;;=F^^1:20

 +199     ;;^DIST(.404,.00109,40,17,22)

 +200     ;;=D C^DICATTD3

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

 +202     ;;=52^WILL STAND FOR^2^^MEANS9

 +203     ;;^DIST(.404,.00109,40,18,2)

 +204     ;;=10,30^30^10,14

 +205     ;;^DIST(.404,.00109,40,18,3)

 +206     ;;=!M

 +207     ;;^DIST(.404,.00109,40,18,3.1)

 +208     ;;=D Y^DICATTD3(9,2)

 +209     ;;^DIST(.404,.00109,40,18,20)

 +210     ;;=F^^1:70

 +211     ;;^DIST(.404,.00109,40,18,22)

 +212     ;;=D C^DICATTD3

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

 +214     ;;=53^CODE^2^^CODE10

 +215     ;;^DIST(.404,.00109,40,19,2)

 +216     ;;=11,8^4^11,2

 +217     ;;^DIST(.404,.00109,40,19,3)

 +218     ;;=!M

 +219     ;;^DIST(.404,.00109,40,19,3.1)

 +220     ;;=D Y^DICATTD3(10,1)

 +221     ;;^DIST(.404,.00109,40,19,20)

 +222     ;;=F^^1:20

 +223     ;;^DIST(.404,.00109,40,19,22)

 +224     ;;=D C^DICATTD3

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

 +226     ;;=54^WILL STAND FOR^2^^MEANS10

 +227     ;;^DIST(.404,.00109,40,20,2)

 +228     ;;=11,30^30^11,14

 +229     ;;^DIST(.404,.00109,40,20,3)

 +230     ;;=!M

 +231     ;;^DIST(.404,.00109,40,20,3.1)

 +232     ;;=D Y^DICATTD3(10,2)

 +233     ;;^DIST(.404,.00109,40,20,20)

 +234     ;;=F^^1:70

 +235     ;;^DIST(.404,.00109,40,20,22)

 +236     ;;=D C^DICATTD3

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

 +238     ;;=55^CODE^2^^CODE11

 +239     ;;^DIST(.404,.00109,40,21,2)

 +240     ;;=12,8^4^12,2

 +241     ;;^DIST(.404,.00109,40,21,3)

 +242     ;;=!M

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

 +244     ;;=D Y^DICATTD3(11,1)

 +245     ;;^DIST(.404,.00109,40,21,20)

 +246     ;;=F^^1:20

 +247     ;;^DIST(.404,.00109,40,21,22)

 +248     ;;=D C^DICATTD3

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

 +250     ;;=56^WILL STAND FOR^2^^MEANS11

 +251     ;;^DIST(.404,.00109,40,22,2)

 +252     ;;=12,30^30^12,14

 +253     ;;^DIST(.404,.00109,40,22,3)

 +254     ;;=!M

 +255     ;;^DIST(.404,.00109,40,22,3.1)

 +256     ;;=D Y^DICATTD3(11,2)

 +257     ;;^DIST(.404,.00109,40,22,20)

 +258     ;;=F^^1:70

 +259     ;;^DIST(.404,.00109,40,22,22)

 +260     ;;=D C^DICATTD3

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

 +262     ;;=57^CODE^2^^CODE12

 +263     ;;^DIST(.404,.00109,40,23,2)

 +264     ;;=13,8^4^13,2

 +265     ;;^DIST(.404,.00109,40,23,3)

 +266     ;;=!M

 +267     ;;^DIST(.404,.00109,40,23,3.1)

 +268     ;;=D Y^DICATTD3(12,1)

 +269     ;;^DIST(.404,.00109,40,23,20)

 +270     ;;=F^^1:20

 +271     ;;^DIST(.404,.00109,40,23,22)

 +272     ;;=D C^DICATTD3

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

 +274     ;;=58^WILL STAND FOR^2^^MEANS12

 +275     ;;^DIST(.404,.00109,40,24,2)

 +276     ;;=13,30^30^13,14

DINIT0F7.m