BGPM3AAC ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
;
START ;
K:'$G(ATXPGMC) ^TMP("ATX",$J)
S ATXPGMC=$G(ATXPGMC)+1
F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X="" S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"62338521303 ")
;;134
;;21,"62580499477 ")
;;1356
;;21,"62584038342 ")
;;224
;;21,"62584038845 ")
;;374
;;21,"62584098401 ")
;;771
;;21,"62584098411 ")
;;772
;;21,"62584098477 ")
;;773
;;21,"62584098601 ")
;;898
;;21,"62584099401 ")
;;1357
;;21,"62584099411 ")
;;1358
;;21,"62584099477 ")
;;1359
;;21,"63323003810 ")
;;135
;;21,"63323003830 ")
;;136
;;21,"63323004710 ")
;;375
;;21,"63323026201 ")
;;376
;;21,"63323026255 ")
;;377
;;21,"63323027602 ")
;;137
;;21,"63323054001 ")
;;138
;;21,"63323054011 ")
;;139
;;21,"63323054031 ")
;;140
;;21,"63323054057 ")
;;141
;;21,"63323054201 ")
;;225
;;21,"63323054207 ")
;;226
;;21,"63323054501 ")
;;43
;;21,"63323054505 ")
;;44
;;21,"63323091501 ")
;;289
;;21,"63739036101 ")
;;899
;;21,"63739036103 ")
;;900
;;21,"63739036110 ")
;;901
;;21,"63739036115 ")
;;902
;;21,"63739036201 ")
;;1004
;;21,"63739036203 ")
;;1005
;;21,"63739036210 ")
;;1006
;;21,"63739036215 ")
;;1007
;;21,"63739036301 ")
;;1146
;;21,"63739036303 ")
;;1147
;;21,"63739036310 ")
;;1148
;;21,"63739036315 ")
;;1149
;;21,"63739036401 ")
;;1360
;;21,"63739036403 ")
;;1361
;;21,"63739036410 ")
;;1362
;;21,"63739036415 ")
;;1363
;;21,"63807060050 ")
;;45
;;21,"64054100302 ")
;;46
;;21,"64253033301 ")
;;47
;;21,"64253033352 ")
;;48
;;21,"64579004301 ")
;;378
;;21,"64579004325 ")
;;379
;;21,"64725036303 ")
;;539
;;21,"64725036703 ")
;;903
;;21,"65243027303 ")
;;1530
;;21,"65243027306 ")
;;1531
;;21,"65243027309 ")
;;1532
;;21,"65243027345 ")
;;1533
;;21,"65243027403 ")
;;1364
;;21,"65243027406 ")
;;1365
;;21,"65243027409 ")
;;1366
;;21,"65243027445 ")
;;1367
;;21,"65243027503 ")
;;1150
;;21,"65243027506 ")
;;1151
;;21,"65243027509 ")
;;1152
;;21,"65243027545 ")
;;1153
;;21,"65243027603 ")
;;1008
;;21,"65243027606 ")
;;1009
;;21,"65243027609 ")
;;1010
;;21,"65243027645 ")
;;1011
;;21,"65243027803 ")
;;774
;;21,"65243027806 ")
;;775
;;21,"65243027809 ")
;;776
;;21,"65243027845 ")
;;777
;;21,"65841005201 ")
;;540
;;21,"65841005210 ")
;;541
;;21,"65841005301 ")
;;778
;;21,"65841005310 ")
;;779
;;21,"65841005401 ")
;;1012
;;21,"65841005410 ")
;;1013
;;21,"65841005501 ")
;;1154
;;21,"65841005510 ")
;;1155
;;21,"65841005601 ")
;;1368
;;21,"65841005610 ")
;;1369
;;21,"65841005701 ")
;;1469
;;21,"65841005801 ")
;;1534
;;21,"65841005901 ")
;;610
;;21,"65841006401 ")
;;904
;;21,"65841006410 ")
;;905
;;21,"66267026820 ")
;;1370
;;21,"66267026830 ")
;;1371
;;21,"66267027730 ")
;;1156
;;21,"66267067230 ")
;;1014
;;21,"66336024930 ")
;;542
;;21,"66336025030 ")
;;780
;;21,"66336025130 ")
;;906
;;21,"66336025230 ")
;;1372
;;21,"66336082530 ")
;;1535
;;21,"67544031815 ")
;;781
;;21,"67544031830 ")
;;782
;;21,"67544031831 ")
;;783
;;21,"67544031845 ")
;;784
;;21,"67544031853 ")
;;785
;;21,"67544085932 ")
;;543
;;21,"67544086032 ")
;;786
;;21,"67544091719 ")
;;1373
;;21,"67544097132 ")
;;787
;;21,"67544099030 ")
;;1157
;;21,"68071020230 ")
;;907
;;21,"68080402777 ")
;;908
;;21,"68080414677 ")
;;544
;;21,"68080414877 ")
;;1158
;;21,"68084002701 ")
;;909
;;21,"68084002711 ")
;;910
;;21,"68084014677 ")
;;545
;;21,"68084402777 ")
;;911
;;21,"68084414777 ")
;;1015
;;21,"68115035930 ")
;;546
;;21,"68115039930 ")
;;788
;;21,"68115065900 ")
;;1374
;;21,"68382005201 ")
;;547
;;21,"68382005210 ")
;;548
;;21,"68382005301 ")
;;789
;;21,"68382005310 ")
;;790
;;21,"68382005401 ")
;;1016
;;21,"68382005410 ")
;;1017
;;21,"68382005501 ")
;;1159
;;21,"68382005510 ")
;;1160
;;21,"68382005601 ")
;;1375
;;21,"68382005610 ")
;;1376
;;21,"68382005701 ")
;;1470
;;21,"68382005710 ")
;;1471
;;21,"68382005801 ")
;;1536
;;21,"68382005901 ")
;;611
;;21,"68382006401 ")
;;912
;;21,"68382006410 ")
;;913
;;9002226,774,.01)
;;BGPMU ANTICOAG NDCS
;;9002226,774,.02)
;;Drug Anticoag NDC codes
;;9002226,774,.04)
;;n
;;9002226,774,.06)
;;@
;;9002226,774,.08)
;;@
;;9002226,774,.09)
;;3110217
;;9002226,774,.11)
;;@
;;9002226,774,.12)
;;@
;;9002226,774,.13)
;;1
;;9002226,774,.14)
;;@
;;9002226,774,.15)
;;@
;;9002226,774,.16)
;;@
;;9002226,774,.17)
;;@
;;9002226,774,3101)
;;@
;;9002226.02101,"774,00002721601 ",.01)
;;00002721601
;;9002226.02101,"774,00002721601 ",.02)
;;00002721601
;;9002226.02101,"774,00002721701 ",.01)
;;00002721701
;;9002226.02101,"774,00002721701 ",.02)
;;00002721701
;;9002226.02101,"774,00003296320 ",.01)
;;00003296320
;;9002226.02101,"774,00003296320 ",.02)
;;00003296320
;;9002226.02101,"774,00007440701 ",.01)
;;00007440701
;;9002226.02101,"774,00007440701 ",.02)
;;00007440701
;;9002226.02101,"774,00007440754 ",.01)
;;00007440754
;;9002226.02101,"774,00007440754 ",.02)
;;00007440754
;;9002226.02101,"774,00008027501 ",.01)
;;00008027501
;;9002226.02101,"774,00008027501 ",.02)
;;00008027501
;;9002226.02101,"774,00008027502 ",.01)
;;00008027502
;;9002226.02101,"774,00008027502 ",.02)
;;00008027502
;;9002226.02101,"774,00008027550 ",.01)
;;00008027550
;;9002226.02101,"774,00008027550 ",.02)
;;00008027550
;;9002226.02101,"774,00008027601 ",.01)
;;00008027601
;;9002226.02101,"774,00008027601 ",.02)
;;00008027601
;;9002226.02101,"774,00008027701 ",.01)
;;00008027701
;;9002226.02101,"774,00008027701 ",.02)
;;00008027701
;;9002226.02101,"774,00008027702 ",.01)
;;00008027702
;;9002226.02101,"774,00008027702 ",.02)
;;00008027702
;;9002226.02101,"774,00008027703 ",.01)
;;00008027703
;;9002226.02101,"774,00008027703 ",.02)
;;00008027703
;;9002226.02101,"774,00008027801 ",.01)
;;00008027801
;;9002226.02101,"774,00008027801 ",.02)
;;00008027801
;;9002226.02101,"774,00008027802 ",.01)
;;00008027802
;;9002226.02101,"774,00008027802 ",.02)
;;00008027802
;;9002226.02101,"774,00008029301 ",.01)
;;00008029301
;;9002226.02101,"774,00008029301 ",.02)
;;00008029301
;;9002226.02101,"774,00008048201 ",.01)
;;00008048201
;;9002226.02101,"774,00008048201 ",.02)
;;00008048201
;;9002226.02101,"774,00008048701 ",.01)
;;00008048701
;;9002226.02101,"774,00008048701 ",.02)
;;00008048701
;;9002226.02101,"774,00008048703 ",.01)
;;00008048703
;;9002226.02101,"774,00008048703 ",.02)
;;00008048703
;;9002226.02101,"774,00008252901 ",.01)
;;00008252901
;;9002226.02101,"774,00008252901 ",.02)
;;00008252901
;;9002226.02101,"774,00008252902 ",.01)
;;00008252902
;;9002226.02101,"774,00008252902 ",.02)
;;00008252902
;;9002226.02101,"774,00008252903 ",.01)
;;00008252903
;;9002226.02101,"774,00008252903 ",.02)
;;00008252903
;;9002226.02101,"774,00008252950 ",.01)
;;00008252950
;;9002226.02101,"774,00008252950 ",.02)
;;00008252950
;;9002226.02101,"774,00008252951 ",.01)
;;00008252951
;;9002226.02101,"774,00008252951 ",.02)
;;00008252951
;;9002226.02101,"774,00008252952 ",.01)
;;00008252952
;;9002226.02101,"774,00008252952 ",.02)
;;00008252952
;;9002226.02101,"774,00009026801 ",.01)
;;00009026801
;;9002226.02101,"774,00009026801 ",.02)
;;00009026801
;;9002226.02101,"774,00009026802 ",.01)
;;00009026802
;;9002226.02101,"774,00009026802 ",.02)
;;00009026802
;;9002226.02101,"774,00009026807 ",.01)
;;00009026807
;;9002226.02101,"774,00009026807 ",.02)
;;00009026807
;;9002226.02101,"774,00009026812 ",.01)
;;00009026812
;;9002226.02101,"774,00009026812 ",.02)
;;00009026812
;;9002226.02101,"774,00009029101 ",.01)
;;00009029101
;;9002226.02101,"774,00009029101 ",.02)
;;00009029101
;;9002226.02101,"774,00009029102 ",.01)
;;00009029102
;;9002226.02101,"774,00009029102 ",.02)
;;00009029102
;;9002226.02101,"774,00009031701 ",.01)
;;00009031701
;;9002226.02101,"774,00009031701 ",.02)
;;00009031701
;;9002226.02101,"774,00009031702 ",.01)
;;00009031702
;;9002226.02101,"774,00009031702 ",.02)
;;00009031702
;;9002226.02101,"774,00009031708 ",.01)
;;00009031708
;;9002226.02101,"774,00009031708 ",.02)
;;00009031708
;;9002226.02101,"774,00009031709 ",.01)
;;00009031709
;;9002226.02101,"774,00009031709 ",.02)
;;00009031709
;;9002226.02101,"774,00009031710 ",.01)
;;00009031710
;;9002226.02101,"774,00009031710 ",.02)
;;00009031710
;;9002226.02101,"774,00009031711 ",.01)
;;00009031711
;;9002226.02101,"774,00009031711 ",.02)
;;00009031711
;;9002226.02101,"774,00024072212 ",.01)
;;00024072212
;;9002226.02101,"774,00024072212 ",.02)
;;00024072212
;;9002226.02101,"774,00024072213 ",.01)
;;00024072213
;;9002226.02101,"774,00024072213 ",.02)
;;00024072213
;;9002226.02101,"774,00024072216 ",.01)
;;00024072216
;;9002226.02101,"774,00024072216 ",.02)
;;00024072216
;;9002226.02101,"774,00024072217 ",.01)
;;00024072217
;;9002226.02101,"774,00024072217 ",.02)
;;00024072217
;;9002226.02101,"774,00024072233 ",.01)
;;00024072233
;;9002226.02101,"774,00024072233 ",.02)
;;00024072233
;;9002226.02101,"774,00024073302 ",.01)
;;00024073302
;;9002226.02101,"774,00024073302 ",.02)
;;00024073302
;;9002226.02101,"774,00024073303 ",.01)
;;00024073303
;;9002226.02101,"774,00024073303 ",.02)
;;00024073303
;;9002226.02101,"774,00024073304 ",.01)
;;00024073304
;;9002226.02101,"774,00024073304 ",.02)
;;00024073304
;;9002226.02101,"774,00024073305 ",.01)
;;00024073305
;;9002226.02101,"774,00024073305 ",.02)
;;00024073305
;;9002226.02101,"774,00024073312 ",.01)
;;00024073312
;;9002226.02101,"774,00024073312 ",.02)
;;00024073312
;;9002226.02101,"774,00024073357 ",.01)
;;00024073357
;;9002226.02101,"774,00024073357 ",.02)
;;00024073357
;;9002226.02101,"774,00024074212 ",.01)
;;00024074212
;;9002226.02101,"774,00024074212 ",.02)
;;00024074212
;;9002226.02101,"774,00052081110 ",.01)
;;00052081110
;;9002226.02101,"774,00052081110 ",.02)
;;00052081110
;;9002226.02101,"774,00052081175 ",.01)
;;00052081175
;;9002226.02101,"774,00052081175 ",.02)
;;00052081175
;;9002226.02101,"774,00052081210 ",.01)
;;00052081210
;;9002226.02101,"774,00052081210 ",.02)
;;00052081210
;;9002226.02101,"774,00052081225 ",.01)
;;00052081225
;;9002226.02101,"774,00052081225 ",.02)
;;00052081225
;;9002226.02101,"774,00052081250 ",.01)
;;00052081250
;;9002226.02101,"774,00052081250 ",.02)
;;00052081250
;;9002226.02101,"774,00052081302 ",.01)
;;00052081302
;;9002226.02101,"774,00052081302 ",.02)
;;00052081302
;;9002226.02101,"774,00052081305 ",.01)
;;00052081305
;;9002226.02101,"774,00052081305 ",.02)
;;00052081305
;;9002226.02101,"774,00052081325 ",.01)
;;00052081325
;;9002226.02101,"774,00052081325 ",.02)
;;00052081325
;;9002226.02101,"774,00052081504 ",.01)
;;00052081504
;;9002226.02101,"774,00052081504 ",.02)
;;00052081504
;;9002226.02101,"774,00052081525 ",.01)
;;00052081525
;;9002226.02101,"774,00052081525 ",.02)
;;00052081525
;;9002226.02101,"774,00052081550 ",.01)
;;00052081550
;;9002226.02101,"774,00052081550 ",.02)
;;00052081550
;;9002226.02101,"774,00052081625 ",.01)
;;00052081625
;;9002226.02101,"774,00052081625 ",.02)
;;00052081625
;;9002226.02101,"774,00056003002 ",.01)
;;00056003002
BGPM3AAC ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
+1 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"62338521303 ")
+2 ;;134
+3 ;;21,"62580499477 ")
+4 ;;1356
+5 ;;21,"62584038342 ")
+6 ;;224
+7 ;;21,"62584038845 ")
+8 ;;374
+9 ;;21,"62584098401 ")
+10 ;;771
+11 ;;21,"62584098411 ")
+12 ;;772
+13 ;;21,"62584098477 ")
+14 ;;773
+15 ;;21,"62584098601 ")
+16 ;;898
+17 ;;21,"62584099401 ")
+18 ;;1357
+19 ;;21,"62584099411 ")
+20 ;;1358
+21 ;;21,"62584099477 ")
+22 ;;1359
+23 ;;21,"63323003810 ")
+24 ;;135
+25 ;;21,"63323003830 ")
+26 ;;136
+27 ;;21,"63323004710 ")
+28 ;;375
+29 ;;21,"63323026201 ")
+30 ;;376
+31 ;;21,"63323026255 ")
+32 ;;377
+33 ;;21,"63323027602 ")
+34 ;;137
+35 ;;21,"63323054001 ")
+36 ;;138
+37 ;;21,"63323054011 ")
+38 ;;139
+39 ;;21,"63323054031 ")
+40 ;;140
+41 ;;21,"63323054057 ")
+42 ;;141
+43 ;;21,"63323054201 ")
+44 ;;225
+45 ;;21,"63323054207 ")
+46 ;;226
+47 ;;21,"63323054501 ")
+48 ;;43
+49 ;;21,"63323054505 ")
+50 ;;44
+51 ;;21,"63323091501 ")
+52 ;;289
+53 ;;21,"63739036101 ")
+54 ;;899
+55 ;;21,"63739036103 ")
+56 ;;900
+57 ;;21,"63739036110 ")
+58 ;;901
+59 ;;21,"63739036115 ")
+60 ;;902
+61 ;;21,"63739036201 ")
+62 ;;1004
+63 ;;21,"63739036203 ")
+64 ;;1005
+65 ;;21,"63739036210 ")
+66 ;;1006
+67 ;;21,"63739036215 ")
+68 ;;1007
+69 ;;21,"63739036301 ")
+70 ;;1146
+71 ;;21,"63739036303 ")
+72 ;;1147
+73 ;;21,"63739036310 ")
+74 ;;1148
+75 ;;21,"63739036315 ")
+76 ;;1149
+77 ;;21,"63739036401 ")
+78 ;;1360
+79 ;;21,"63739036403 ")
+80 ;;1361
+81 ;;21,"63739036410 ")
+82 ;;1362
+83 ;;21,"63739036415 ")
+84 ;;1363
+85 ;;21,"63807060050 ")
+86 ;;45
+87 ;;21,"64054100302 ")
+88 ;;46
+89 ;;21,"64253033301 ")
+90 ;;47
+91 ;;21,"64253033352 ")
+92 ;;48
+93 ;;21,"64579004301 ")
+94 ;;378
+95 ;;21,"64579004325 ")
+96 ;;379
+97 ;;21,"64725036303 ")
+98 ;;539
+99 ;;21,"64725036703 ")
+100 ;;903
+101 ;;21,"65243027303 ")
+102 ;;1530
+103 ;;21,"65243027306 ")
+104 ;;1531
+105 ;;21,"65243027309 ")
+106 ;;1532
+107 ;;21,"65243027345 ")
+108 ;;1533
+109 ;;21,"65243027403 ")
+110 ;;1364
+111 ;;21,"65243027406 ")
+112 ;;1365
+113 ;;21,"65243027409 ")
+114 ;;1366
+115 ;;21,"65243027445 ")
+116 ;;1367
+117 ;;21,"65243027503 ")
+118 ;;1150
+119 ;;21,"65243027506 ")
+120 ;;1151
+121 ;;21,"65243027509 ")
+122 ;;1152
+123 ;;21,"65243027545 ")
+124 ;;1153
+125 ;;21,"65243027603 ")
+126 ;;1008
+127 ;;21,"65243027606 ")
+128 ;;1009
+129 ;;21,"65243027609 ")
+130 ;;1010
+131 ;;21,"65243027645 ")
+132 ;;1011
+133 ;;21,"65243027803 ")
+134 ;;774
+135 ;;21,"65243027806 ")
+136 ;;775
+137 ;;21,"65243027809 ")
+138 ;;776
+139 ;;21,"65243027845 ")
+140 ;;777
+141 ;;21,"65841005201 ")
+142 ;;540
+143 ;;21,"65841005210 ")
+144 ;;541
+145 ;;21,"65841005301 ")
+146 ;;778
+147 ;;21,"65841005310 ")
+148 ;;779
+149 ;;21,"65841005401 ")
+150 ;;1012
+151 ;;21,"65841005410 ")
+152 ;;1013
+153 ;;21,"65841005501 ")
+154 ;;1154
+155 ;;21,"65841005510 ")
+156 ;;1155
+157 ;;21,"65841005601 ")
+158 ;;1368
+159 ;;21,"65841005610 ")
+160 ;;1369
+161 ;;21,"65841005701 ")
+162 ;;1469
+163 ;;21,"65841005801 ")
+164 ;;1534
+165 ;;21,"65841005901 ")
+166 ;;610
+167 ;;21,"65841006401 ")
+168 ;;904
+169 ;;21,"65841006410 ")
+170 ;;905
+171 ;;21,"66267026820 ")
+172 ;;1370
+173 ;;21,"66267026830 ")
+174 ;;1371
+175 ;;21,"66267027730 ")
+176 ;;1156
+177 ;;21,"66267067230 ")
+178 ;;1014
+179 ;;21,"66336024930 ")
+180 ;;542
+181 ;;21,"66336025030 ")
+182 ;;780
+183 ;;21,"66336025130 ")
+184 ;;906
+185 ;;21,"66336025230 ")
+186 ;;1372
+187 ;;21,"66336082530 ")
+188 ;;1535
+189 ;;21,"67544031815 ")
+190 ;;781
+191 ;;21,"67544031830 ")
+192 ;;782
+193 ;;21,"67544031831 ")
+194 ;;783
+195 ;;21,"67544031845 ")
+196 ;;784
+197 ;;21,"67544031853 ")
+198 ;;785
+199 ;;21,"67544085932 ")
+200 ;;543
+201 ;;21,"67544086032 ")
+202 ;;786
+203 ;;21,"67544091719 ")
+204 ;;1373
+205 ;;21,"67544097132 ")
+206 ;;787
+207 ;;21,"67544099030 ")
+208 ;;1157
+209 ;;21,"68071020230 ")
+210 ;;907
+211 ;;21,"68080402777 ")
+212 ;;908
+213 ;;21,"68080414677 ")
+214 ;;544
+215 ;;21,"68080414877 ")
+216 ;;1158
+217 ;;21,"68084002701 ")
+218 ;;909
+219 ;;21,"68084002711 ")
+220 ;;910
+221 ;;21,"68084014677 ")
+222 ;;545
+223 ;;21,"68084402777 ")
+224 ;;911
+225 ;;21,"68084414777 ")
+226 ;;1015
+227 ;;21,"68115035930 ")
+228 ;;546
+229 ;;21,"68115039930 ")
+230 ;;788
+231 ;;21,"68115065900 ")
+232 ;;1374
+233 ;;21,"68382005201 ")
+234 ;;547
+235 ;;21,"68382005210 ")
+236 ;;548
+237 ;;21,"68382005301 ")
+238 ;;789
+239 ;;21,"68382005310 ")
+240 ;;790
+241 ;;21,"68382005401 ")
+242 ;;1016
+243 ;;21,"68382005410 ")
+244 ;;1017
+245 ;;21,"68382005501 ")
+246 ;;1159
+247 ;;21,"68382005510 ")
+248 ;;1160
+249 ;;21,"68382005601 ")
+250 ;;1375
+251 ;;21,"68382005610 ")
+252 ;;1376
+253 ;;21,"68382005701 ")
+254 ;;1470
+255 ;;21,"68382005710 ")
+256 ;;1471
+257 ;;21,"68382005801 ")
+258 ;;1536
+259 ;;21,"68382005901 ")
+260 ;;611
+261 ;;21,"68382006401 ")
+262 ;;912
+263 ;;21,"68382006410 ")
+264 ;;913
+265 ;;9002226,774,.01)
+266 ;;BGPMU ANTICOAG NDCS
+267 ;;9002226,774,.02)
+268 ;;Drug Anticoag NDC codes
+269 ;;9002226,774,.04)
+270 ;;n
+271 ;;9002226,774,.06)
+272 ;;@
+273 ;;9002226,774,.08)
+274 ;;@
+275 ;;9002226,774,.09)
+276 ;;3110217
+277 ;;9002226,774,.11)
+278 ;;@
+279 ;;9002226,774,.12)
+280 ;;@
+281 ;;9002226,774,.13)
+282 ;;1
+283 ;;9002226,774,.14)
+284 ;;@
+285 ;;9002226,774,.15)
+286 ;;@
+287 ;;9002226,774,.16)
+288 ;;@
+289 ;;9002226,774,.17)
+290 ;;@
+291 ;;9002226,774,3101)
+292 ;;@
+293 ;;9002226.02101,"774,00002721601 ",.01)
+294 ;;00002721601
+295 ;;9002226.02101,"774,00002721601 ",.02)
+296 ;;00002721601
+297 ;;9002226.02101,"774,00002721701 ",.01)
+298 ;;00002721701
+299 ;;9002226.02101,"774,00002721701 ",.02)
+300 ;;00002721701
+301 ;;9002226.02101,"774,00003296320 ",.01)
+302 ;;00003296320
+303 ;;9002226.02101,"774,00003296320 ",.02)
+304 ;;00003296320
+305 ;;9002226.02101,"774,00007440701 ",.01)
+306 ;;00007440701
+307 ;;9002226.02101,"774,00007440701 ",.02)
+308 ;;00007440701
+309 ;;9002226.02101,"774,00007440754 ",.01)
+310 ;;00007440754
+311 ;;9002226.02101,"774,00007440754 ",.02)
+312 ;;00007440754
+313 ;;9002226.02101,"774,00008027501 ",.01)
+314 ;;00008027501
+315 ;;9002226.02101,"774,00008027501 ",.02)
+316 ;;00008027501
+317 ;;9002226.02101,"774,00008027502 ",.01)
+318 ;;00008027502
+319 ;;9002226.02101,"774,00008027502 ",.02)
+320 ;;00008027502
+321 ;;9002226.02101,"774,00008027550 ",.01)
+322 ;;00008027550
+323 ;;9002226.02101,"774,00008027550 ",.02)
+324 ;;00008027550
+325 ;;9002226.02101,"774,00008027601 ",.01)
+326 ;;00008027601
+327 ;;9002226.02101,"774,00008027601 ",.02)
+328 ;;00008027601
+329 ;;9002226.02101,"774,00008027701 ",.01)
+330 ;;00008027701
+331 ;;9002226.02101,"774,00008027701 ",.02)
+332 ;;00008027701
+333 ;;9002226.02101,"774,00008027702 ",.01)
+334 ;;00008027702
+335 ;;9002226.02101,"774,00008027702 ",.02)
+336 ;;00008027702
+337 ;;9002226.02101,"774,00008027703 ",.01)
+338 ;;00008027703
+339 ;;9002226.02101,"774,00008027703 ",.02)
+340 ;;00008027703
+341 ;;9002226.02101,"774,00008027801 ",.01)
+342 ;;00008027801
+343 ;;9002226.02101,"774,00008027801 ",.02)
+344 ;;00008027801
+345 ;;9002226.02101,"774,00008027802 ",.01)
+346 ;;00008027802
+347 ;;9002226.02101,"774,00008027802 ",.02)
+348 ;;00008027802
+349 ;;9002226.02101,"774,00008029301 ",.01)
+350 ;;00008029301
+351 ;;9002226.02101,"774,00008029301 ",.02)
+352 ;;00008029301
+353 ;;9002226.02101,"774,00008048201 ",.01)
+354 ;;00008048201
+355 ;;9002226.02101,"774,00008048201 ",.02)
+356 ;;00008048201
+357 ;;9002226.02101,"774,00008048701 ",.01)
+358 ;;00008048701
+359 ;;9002226.02101,"774,00008048701 ",.02)
+360 ;;00008048701
+361 ;;9002226.02101,"774,00008048703 ",.01)
+362 ;;00008048703
+363 ;;9002226.02101,"774,00008048703 ",.02)
+364 ;;00008048703
+365 ;;9002226.02101,"774,00008252901 ",.01)
+366 ;;00008252901
+367 ;;9002226.02101,"774,00008252901 ",.02)
+368 ;;00008252901
+369 ;;9002226.02101,"774,00008252902 ",.01)
+370 ;;00008252902
+371 ;;9002226.02101,"774,00008252902 ",.02)
+372 ;;00008252902
+373 ;;9002226.02101,"774,00008252903 ",.01)
+374 ;;00008252903
+375 ;;9002226.02101,"774,00008252903 ",.02)
+376 ;;00008252903
+377 ;;9002226.02101,"774,00008252950 ",.01)
+378 ;;00008252950
+379 ;;9002226.02101,"774,00008252950 ",.02)
+380 ;;00008252950
+381 ;;9002226.02101,"774,00008252951 ",.01)
+382 ;;00008252951
+383 ;;9002226.02101,"774,00008252951 ",.02)
+384 ;;00008252951
+385 ;;9002226.02101,"774,00008252952 ",.01)
+386 ;;00008252952
+387 ;;9002226.02101,"774,00008252952 ",.02)
+388 ;;00008252952
+389 ;;9002226.02101,"774,00009026801 ",.01)
+390 ;;00009026801
+391 ;;9002226.02101,"774,00009026801 ",.02)
+392 ;;00009026801
+393 ;;9002226.02101,"774,00009026802 ",.01)
+394 ;;00009026802
+395 ;;9002226.02101,"774,00009026802 ",.02)
+396 ;;00009026802
+397 ;;9002226.02101,"774,00009026807 ",.01)
+398 ;;00009026807
+399 ;;9002226.02101,"774,00009026807 ",.02)
+400 ;;00009026807
+401 ;;9002226.02101,"774,00009026812 ",.01)
+402 ;;00009026812
+403 ;;9002226.02101,"774,00009026812 ",.02)
+404 ;;00009026812
+405 ;;9002226.02101,"774,00009029101 ",.01)
+406 ;;00009029101
+407 ;;9002226.02101,"774,00009029101 ",.02)
+408 ;;00009029101
+409 ;;9002226.02101,"774,00009029102 ",.01)
+410 ;;00009029102
+411 ;;9002226.02101,"774,00009029102 ",.02)
+412 ;;00009029102
+413 ;;9002226.02101,"774,00009031701 ",.01)
+414 ;;00009031701
+415 ;;9002226.02101,"774,00009031701 ",.02)
+416 ;;00009031701
+417 ;;9002226.02101,"774,00009031702 ",.01)
+418 ;;00009031702
+419 ;;9002226.02101,"774,00009031702 ",.02)
+420 ;;00009031702
+421 ;;9002226.02101,"774,00009031708 ",.01)
+422 ;;00009031708
+423 ;;9002226.02101,"774,00009031708 ",.02)
+424 ;;00009031708
+425 ;;9002226.02101,"774,00009031709 ",.01)
+426 ;;00009031709
+427 ;;9002226.02101,"774,00009031709 ",.02)
+428 ;;00009031709
+429 ;;9002226.02101,"774,00009031710 ",.01)
+430 ;;00009031710
+431 ;;9002226.02101,"774,00009031710 ",.02)
+432 ;;00009031710
+433 ;;9002226.02101,"774,00009031711 ",.01)
+434 ;;00009031711
+435 ;;9002226.02101,"774,00009031711 ",.02)
+436 ;;00009031711
+437 ;;9002226.02101,"774,00024072212 ",.01)
+438 ;;00024072212
+439 ;;9002226.02101,"774,00024072212 ",.02)
+440 ;;00024072212
+441 ;;9002226.02101,"774,00024072213 ",.01)
+442 ;;00024072213
+443 ;;9002226.02101,"774,00024072213 ",.02)
+444 ;;00024072213
+445 ;;9002226.02101,"774,00024072216 ",.01)
+446 ;;00024072216
+447 ;;9002226.02101,"774,00024072216 ",.02)
+448 ;;00024072216
+449 ;;9002226.02101,"774,00024072217 ",.01)
+450 ;;00024072217
+451 ;;9002226.02101,"774,00024072217 ",.02)
+452 ;;00024072217
+453 ;;9002226.02101,"774,00024072233 ",.01)
+454 ;;00024072233
+455 ;;9002226.02101,"774,00024072233 ",.02)
+456 ;;00024072233
+457 ;;9002226.02101,"774,00024073302 ",.01)
+458 ;;00024073302
+459 ;;9002226.02101,"774,00024073302 ",.02)
+460 ;;00024073302
+461 ;;9002226.02101,"774,00024073303 ",.01)
+462 ;;00024073303
+463 ;;9002226.02101,"774,00024073303 ",.02)
+464 ;;00024073303
+465 ;;9002226.02101,"774,00024073304 ",.01)
+466 ;;00024073304
+467 ;;9002226.02101,"774,00024073304 ",.02)
+468 ;;00024073304
+469 ;;9002226.02101,"774,00024073305 ",.01)
+470 ;;00024073305
+471 ;;9002226.02101,"774,00024073305 ",.02)
+472 ;;00024073305
+473 ;;9002226.02101,"774,00024073312 ",.01)
+474 ;;00024073312
+475 ;;9002226.02101,"774,00024073312 ",.02)
+476 ;;00024073312
+477 ;;9002226.02101,"774,00024073357 ",.01)
+478 ;;00024073357
+479 ;;9002226.02101,"774,00024073357 ",.02)
+480 ;;00024073357
+481 ;;9002226.02101,"774,00024074212 ",.01)
+482 ;;00024074212
+483 ;;9002226.02101,"774,00024074212 ",.02)
+484 ;;00024074212
+485 ;;9002226.02101,"774,00052081110 ",.01)
+486 ;;00052081110
+487 ;;9002226.02101,"774,00052081110 ",.02)
+488 ;;00052081110
+489 ;;9002226.02101,"774,00052081175 ",.01)
+490 ;;00052081175
+491 ;;9002226.02101,"774,00052081175 ",.02)
+492 ;;00052081175
+493 ;;9002226.02101,"774,00052081210 ",.01)
+494 ;;00052081210
+495 ;;9002226.02101,"774,00052081210 ",.02)
+496 ;;00052081210
+497 ;;9002226.02101,"774,00052081225 ",.01)
+498 ;;00052081225
+499 ;;9002226.02101,"774,00052081225 ",.02)
+500 ;;00052081225
+501 ;;9002226.02101,"774,00052081250 ",.01)
+502 ;;00052081250
+503 ;;9002226.02101,"774,00052081250 ",.02)
+504 ;;00052081250
+505 ;;9002226.02101,"774,00052081302 ",.01)
+506 ;;00052081302
+507 ;;9002226.02101,"774,00052081302 ",.02)
+508 ;;00052081302
+509 ;;9002226.02101,"774,00052081305 ",.01)
+510 ;;00052081305
+511 ;;9002226.02101,"774,00052081305 ",.02)
+512 ;;00052081305
+513 ;;9002226.02101,"774,00052081325 ",.01)
+514 ;;00052081325
+515 ;;9002226.02101,"774,00052081325 ",.02)
+516 ;;00052081325
+517 ;;9002226.02101,"774,00052081504 ",.01)
+518 ;;00052081504
+519 ;;9002226.02101,"774,00052081504 ",.02)
+520 ;;00052081504
+521 ;;9002226.02101,"774,00052081525 ",.01)
+522 ;;00052081525
+523 ;;9002226.02101,"774,00052081525 ",.02)
+524 ;;00052081525
+525 ;;9002226.02101,"774,00052081550 ",.01)
+526 ;;00052081550
+527 ;;9002226.02101,"774,00052081550 ",.02)
+528 ;;00052081550
+529 ;;9002226.02101,"774,00052081625 ",.01)
+530 ;;00052081625
+531 ;;9002226.02101,"774,00052081625 ",.02)
+532 ;;00052081625
+533 ;;9002226.02101,"774,00056003002 ",.01)
+534 ;;00056003002
