DINIT0F7 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;11:00 AM 4 Oct 2000
;;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="" ^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,11)
;;=S:$G(DICATTSC)=3 DDACT="CL"
;;^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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT0F7 7321 printed Apr 09, 2024@21:54:44 Page 2
DINIT0F7 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;11:00 AM 4 Oct 2000
+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 ^DINIT0F8
SET Y=$EXTRACT($TEXT(ENTRY+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
+8 QUIT
ENTRY ;
+1 ;;^DIST(.404,.00109,40,1,4)
+2 ;;=1
+3 ;;^DIST(.404,.00109,40,1,11)
+4 ;;=S:$G(DICATTSC)=3 DDACT="CL"
+5 ;;^DIST(.404,.00109,40,1,20)
+6 ;;=F^^1:20
+7 ;;^DIST(.404,.00109,40,1,22)
+8 ;;=D C^DICATTD3
+9 ;;^DIST(.404,.00109,40,2,0)
+10 ;;=36^WILL STAND FOR^2^^MEANS1
+11 ;;^DIST(.404,.00109,40,2,2)
+12 ;;=2,30^30^2,14
+13 ;;^DIST(.404,.00109,40,2,3)
+14 ;;=!M
+15 ;;^DIST(.404,.00109,40,2,3.1)
+16 ;;=D Y^DICATTD3(1,2)
+17 ;;^DIST(.404,.00109,40,2,4)
+18 ;;=1
+19 ;;^DIST(.404,.00109,40,2,20)
+20 ;;=F^^1:70
+21 ;;^DIST(.404,.00109,40,2,22)
+22 ;;=D C^DICATTD3
+23 ;;^DIST(.404,.00109,40,3,0)
+24 ;;=37^CODE^2^^CODE2
+25 ;;^DIST(.404,.00109,40,3,2)
+26 ;;=3,8^4^3,2
+27 ;;^DIST(.404,.00109,40,3,3)
+28 ;;=!M
+29 ;;^DIST(.404,.00109,40,3,3.1)
+30 ;;=D Y^DICATTD3(2,1)
+31 ;;^DIST(.404,.00109,40,3,20)
+32 ;;=F^^1:20
+33 ;;^DIST(.404,.00109,40,3,22)
+34 ;;=D C^DICATTD3
+35 ;;^DIST(.404,.00109,40,4,0)
+36 ;;=38^WILL STAND FOR^2^^MEANS2
+37 ;;^DIST(.404,.00109,40,4,2)
+38 ;;=3,30^30^3,14
+39 ;;^DIST(.404,.00109,40,4,3)
+40 ;;=!M
+41 ;;^DIST(.404,.00109,40,4,3.1)
+42 ;;=D Y^DICATTD3(2,2)
+43 ;;^DIST(.404,.00109,40,4,20)
+44 ;;=F^^1:70
+45 ;;^DIST(.404,.00109,40,4,22)
+46 ;;=D C^DICATTD3
+47 ;;^DIST(.404,.00109,40,5,0)
+48 ;;=39^CODE^2^^CODE3
+49 ;;^DIST(.404,.00109,40,5,2)
+50 ;;=4,8^4^4,2
+51 ;;^DIST(.404,.00109,40,5,3)
+52 ;;=!M
+53 ;;^DIST(.404,.00109,40,5,3.1)
+54 ;;=D Y^DICATTD3(3,1)
+55 ;;^DIST(.404,.00109,40,5,20)
+56 ;;=F^^1:20
+57 ;;^DIST(.404,.00109,40,5,22)
+58 ;;=D C^DICATTD3
+59 ;;^DIST(.404,.00109,40,6,0)
+60 ;;=40^WILL STAND FOR^2^^MEANS3
+61 ;;^DIST(.404,.00109,40,6,2)
+62 ;;=4,30^30^4,14
+63 ;;^DIST(.404,.00109,40,6,3)
+64 ;;=!M
+65 ;;^DIST(.404,.00109,40,6,3.1)
+66 ;;=D Y^DICATTD3(3,2)
+67 ;;^DIST(.404,.00109,40,6,20)
+68 ;;=F^^1:70
+69 ;;^DIST(.404,.00109,40,6,22)
+70 ;;=D C^DICATTD3
+71 ;;^DIST(.404,.00109,40,7,0)
+72 ;;=41^CODE^2^^CODE4
+73 ;;^DIST(.404,.00109,40,7,2)
+74 ;;=5,8^4^5,2
+75 ;;^DIST(.404,.00109,40,7,3)
+76 ;;=!M
+77 ;;^DIST(.404,.00109,40,7,3.1)
+78 ;;=D Y^DICATTD3(4,1)
+79 ;;^DIST(.404,.00109,40,7,20)
+80 ;;=F^^1:20
+81 ;;^DIST(.404,.00109,40,7,22)
+82 ;;=D C^DICATTD3
+83 ;;^DIST(.404,.00109,40,8,0)
+84 ;;=42^WILL STAND FOR^2^^MEANS4
+85 ;;^DIST(.404,.00109,40,8,2)
+86 ;;=5,30^30^5,14
+87 ;;^DIST(.404,.00109,40,8,3)
+88 ;;=!M
+89 ;;^DIST(.404,.00109,40,8,3.1)
+90 ;;=D Y^DICATTD3(4,2)
+91 ;;^DIST(.404,.00109,40,8,20)
+92 ;;=F^^1:70
+93 ;;^DIST(.404,.00109,40,8,22)
+94 ;;=D C^DICATTD3
+95 ;;^DIST(.404,.00109,40,9,0)
+96 ;;=43^CODE^2^^CODE5
+97 ;;^DIST(.404,.00109,40,9,2)
+98 ;;=6,8^4^6,2
+99 ;;^DIST(.404,.00109,40,9,3)
+100 ;;=!M
+101 ;;^DIST(.404,.00109,40,9,3.1)
+102 ;;=D Y^DICATTD3(5,1)
+103 ;;^DIST(.404,.00109,40,9,20)
+104 ;;=F^^1:20
+105 ;;^DIST(.404,.00109,40,9,22)
+106 ;;=D C^DICATTD3
+107 ;;^DIST(.404,.00109,40,10,0)
+108 ;;=44^WILL STAND FOR^2^^MEANS5
+109 ;;^DIST(.404,.00109,40,10,2)
+110 ;;=6,30^30^6,14
+111 ;;^DIST(.404,.00109,40,10,3)
+112 ;;=!M
+113 ;;^DIST(.404,.00109,40,10,3.1)
+114 ;;=D Y^DICATTD3(5,2)
+115 ;;^DIST(.404,.00109,40,10,20)
+116 ;;=F^^1:70
+117 ;;^DIST(.404,.00109,40,10,22)
+118 ;;=D C^DICATTD3
+119 ;;^DIST(.404,.00109,40,11,0)
+120 ;;=45^CODE^2^^CODE6
+121 ;;^DIST(.404,.00109,40,11,2)
+122 ;;=7,8^4^7,2
+123 ;;^DIST(.404,.00109,40,11,3)
+124 ;;=!M
+125 ;;^DIST(.404,.00109,40,11,3.1)
+126 ;;=D Y^DICATTD3(6,1)
+127 ;;^DIST(.404,.00109,40,11,20)
+128 ;;=F^^1:20
+129 ;;^DIST(.404,.00109,40,11,22)
+130 ;;=D C^DICATTD3
+131 ;;^DIST(.404,.00109,40,12,0)
+132 ;;=46^WILL STAND FOR^2^^MEANS6
+133 ;;^DIST(.404,.00109,40,12,2)
+134 ;;=7,30^30^7,14
+135 ;;^DIST(.404,.00109,40,12,3)
+136 ;;=!M
+137 ;;^DIST(.404,.00109,40,12,3.1)
+138 ;;=D Y^DICATTD3(6,2)
+139 ;;^DIST(.404,.00109,40,12,20)
+140 ;;=F^^1:70
+141 ;;^DIST(.404,.00109,40,12,22)
+142 ;;=D C^DICATTD3
+143 ;;^DIST(.404,.00109,40,13,0)
+144 ;;=47^CODE^2^^CODE7
+145 ;;^DIST(.404,.00109,40,13,2)
+146 ;;=8,8^4^8,2
+147 ;;^DIST(.404,.00109,40,13,3)
+148 ;;=!M
+149 ;;^DIST(.404,.00109,40,13,3.1)
+150 ;;=D Y^DICATTD3(7,1)
+151 ;;^DIST(.404,.00109,40,13,20)
+152 ;;=F^^1:20
+153 ;;^DIST(.404,.00109,40,13,22)
+154 ;;=D C^DICATTD3
+155 ;;^DIST(.404,.00109,40,14,0)
+156 ;;=48^WILL STAND FOR^2^^MEANS7
+157 ;;^DIST(.404,.00109,40,14,2)
+158 ;;=8,30^30^8,14
+159 ;;^DIST(.404,.00109,40,14,3)
+160 ;;=!M
+161 ;;^DIST(.404,.00109,40,14,3.1)
+162 ;;=D Y^DICATTD3(7,2)
+163 ;;^DIST(.404,.00109,40,14,20)
+164 ;;=F^^1:70
+165 ;;^DIST(.404,.00109,40,14,22)
+166 ;;=D C^DICATTD3
+167 ;;^DIST(.404,.00109,40,15,0)
+168 ;;=49^CODE^2^^CODE8
+169 ;;^DIST(.404,.00109,40,15,2)
+170 ;;=9,8^4^9,2
+171 ;;^DIST(.404,.00109,40,15,3)
+172 ;;=!M
+173 ;;^DIST(.404,.00109,40,15,3.1)
+174 ;;=D Y^DICATTD3(8,1)
+175 ;;^DIST(.404,.00109,40,15,20)
+176 ;;=F^^1:20
+177 ;;^DIST(.404,.00109,40,15,22)
+178 ;;=D C^DICATTD3
+179 ;;^DIST(.404,.00109,40,16,0)
+180 ;;=50^WILL STAND FOR^2^^MEANS8
+181 ;;^DIST(.404,.00109,40,16,2)
+182 ;;=9,30^30^9,14
+183 ;;^DIST(.404,.00109,40,16,3)
+184 ;;=!M
+185 ;;^DIST(.404,.00109,40,16,3.1)
+186 ;;=D Y^DICATTD3(8,2)
+187 ;;^DIST(.404,.00109,40,16,20)
+188 ;;=F^^1:70
+189 ;;^DIST(.404,.00109,40,16,22)
+190 ;;=D C^DICATTD3
+191 ;;^DIST(.404,.00109,40,17,0)
+192 ;;=51^CODE^2^^CODE9
+193 ;;^DIST(.404,.00109,40,17,2)
+194 ;;=10,8^4^10,2
+195 ;;^DIST(.404,.00109,40,17,3)
+196 ;;=!M
+197 ;;^DIST(.404,.00109,40,17,3.1)
+198 ;;=D Y^DICATTD3(9,1)
+199 ;;^DIST(.404,.00109,40,17,20)
+200 ;;=F^^1:20
+201 ;;^DIST(.404,.00109,40,17,22)
+202 ;;=D C^DICATTD3
+203 ;;^DIST(.404,.00109,40,18,0)
+204 ;;=52^WILL STAND FOR^2^^MEANS9
+205 ;;^DIST(.404,.00109,40,18,2)
+206 ;;=10,30^30^10,14
+207 ;;^DIST(.404,.00109,40,18,3)
+208 ;;=!M
+209 ;;^DIST(.404,.00109,40,18,3.1)
+210 ;;=D Y^DICATTD3(9,2)
+211 ;;^DIST(.404,.00109,40,18,20)
+212 ;;=F^^1:70
+213 ;;^DIST(.404,.00109,40,18,22)
+214 ;;=D C^DICATTD3
+215 ;;^DIST(.404,.00109,40,19,0)
+216 ;;=53^CODE^2^^CODE10
+217 ;;^DIST(.404,.00109,40,19,2)
+218 ;;=11,8^4^11,2
+219 ;;^DIST(.404,.00109,40,19,3)
+220 ;;=!M
+221 ;;^DIST(.404,.00109,40,19,3.1)
+222 ;;=D Y^DICATTD3(10,1)
+223 ;;^DIST(.404,.00109,40,19,20)
+224 ;;=F^^1:20
+225 ;;^DIST(.404,.00109,40,19,22)
+226 ;;=D C^DICATTD3
+227 ;;^DIST(.404,.00109,40,20,0)
+228 ;;=54^WILL STAND FOR^2^^MEANS10
+229 ;;^DIST(.404,.00109,40,20,2)
+230 ;;=11,30^30^11,14
+231 ;;^DIST(.404,.00109,40,20,3)
+232 ;;=!M
+233 ;;^DIST(.404,.00109,40,20,3.1)
+234 ;;=D Y^DICATTD3(10,2)
+235 ;;^DIST(.404,.00109,40,20,20)
+236 ;;=F^^1:70
+237 ;;^DIST(.404,.00109,40,20,22)
+238 ;;=D C^DICATTD3
+239 ;;^DIST(.404,.00109,40,21,0)
+240 ;;=55^CODE^2^^CODE11
+241 ;;^DIST(.404,.00109,40,21,2)
+242 ;;=12,8^4^12,2
+243 ;;^DIST(.404,.00109,40,21,3)
+244 ;;=!M
+245 ;;^DIST(.404,.00109,40,21,3.1)
+246 ;;=D Y^DICATTD3(11,1)
+247 ;;^DIST(.404,.00109,40,21,20)
+248 ;;=F^^1:20
+249 ;;^DIST(.404,.00109,40,21,22)
+250 ;;=D C^DICATTD3
+251 ;;^DIST(.404,.00109,40,22,0)
+252 ;;=56^WILL STAND FOR^2^^MEANS11
+253 ;;^DIST(.404,.00109,40,22,2)
+254 ;;=12,30^30^12,14
+255 ;;^DIST(.404,.00109,40,22,3)
+256 ;;=!M
+257 ;;^DIST(.404,.00109,40,22,3.1)
+258 ;;=D Y^DICATTD3(11,2)
+259 ;;^DIST(.404,.00109,40,22,20)
+260 ;;=F^^1:70
+261 ;;^DIST(.404,.00109,40,22,22)
+262 ;;=D C^DICATTD3
+263 ;;^DIST(.404,.00109,40,23,0)
+264 ;;=57^CODE^2^^CODE12
+265 ;;^DIST(.404,.00109,40,23,2)
+266 ;;=13,8^4^13,2
+267 ;;^DIST(.404,.00109,40,23,3)
+268 ;;=!M
+269 ;;^DIST(.404,.00109,40,23,3.1)
+270 ;;=D Y^DICATTD3(12,1)
+271 ;;^DIST(.404,.00109,40,23,20)
+272 ;;=F^^1:20
+273 ;;^DIST(.404,.00109,40,23,22)
+274 ;;=D C^DICATTD3
+275 ;;^DIST(.404,.00109,40,24,0)
+276 ;;=58^WILL STAND FOR^2^^MEANS12
+277 ;;^DIST(.404,.00109,40,24,2)
+278 ;;=13,30^30^13,14
