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
Q
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
