BMCTXEJ ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
;
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)
;;9002226.02101,"123,31755 ",.01)
;;31755
;;9002226.02101,"123,31760 ",.01)
;;31760
;;9002226.02101,"123,31766 ",.01)
;;31766
;;9002226.02101,"123,31770 ",.01)
;;31770
;;9002226.02101,"123,31775 ",.01)
;;31775
;;9002226.02101,"123,31780 ",.01)
;;31780
;;9002226.02101,"123,31781 ",.01)
;;31781
;;9002226.02101,"123,31786 ",.01)
;;31786
;;9002226.02101,"123,32141 ",.01)
;;32141
;;9002226.02101,"123,32220 ",.01)
;;32220
;;9002226.02101,"123,32320 ",.01)
;;32320
;;9002226.02101,"123,32440 ",.01)
;;32440
;;9002226.02101,"123,32442 ",.01)
;;32442
;;9002226.02101,"123,32445 ",.01)
;;32445
;;9002226.02101,"123,32480 ",.01)
;;32480
;;9002226.02101,"123,32482 ",.01)
;;32482
;;9002226.02101,"123,32484 ",.01)
;;32484
;;9002226.02101,"123,32485 ",.01)
;;32485
;;9002226.02101,"123,32486 ",.01)
;;32486
;;9002226.02101,"123,32488 ",.01)
;;32488
;;9002226.02101,"123,32500 ",.01)
;;32500
;;9002226.02101,"123,32520 ",.01)
;;32520
;;9002226.02101,"123,32522 ",.01)
;;32522
;;9002226.02101,"123,32525 ",.01)
;;32525
;;9002226.02101,"123,32652 ",.01)
;;32652
;;9002226.02101,"123,32655 ",.01)
;;32655
;;9002226.02101,"123,32656 ",.01)
;;32656
;;9002226.02101,"123,32657 ",.01)
;;32657
;;9002226.02101,"123,32659 ",.01)
;;32659
;;9002226.02101,"123,32660 ",.01)
;;32660
;;9002226.02101,"123,32662 ",.01)
;;32662
;;9002226.02101,"123,32663 ",.01)
;;32663
;;9002226.02101,"123,32664 ",.01)
;;32664
;;9002226.02101,"123,32665 ",.01)
;;32665
;;9002226.02101,"123,32815 ",.01)
;;32815
;;9002226.02101,"123,32820 ",.01)
;;32820
;;9002226.02101,"123,32851 ",.01)
;;32851
;;9002226.02101,"123,32852 ",.01)
;;32852
;;9002226.02101,"123,32853 ",.01)
;;32853
;;9002226.02101,"123,32854 ",.01)
;;32854
;;9002226.02101,"123,32900 ",.01)
;;32900
;;9002226.02101,"123,32905 ",.01)
;;32905
;;9002226.02101,"123,32906 ",.01)
;;32906
;;9002226.02101,"123,32940 ",.01)
;;32940
;;9002226.02101,"123,33025 ",.01)
;;33025
;;9002226.02101,"123,33030 ",.01)
;;33030
;;9002226.02101,"123,33031 ",.01)
;;33031
;;9002226.02101,"123,33100 ",.01)
;;33100
;;9002226.02101,"123,33120 ",.01)
;;33120
;;9002226.02101,"123,33130 ",.01)
;;33130
;;9002226.02101,"123,33243 ",.01)
;;33243
;;9002226.02101,"123,33245 ",.01)
;;33245
;;9002226.02101,"123,33246 ",.01)
;;33246
;;9002226.02101,"123,33247 ",.01)
;;33247
;;9002226.02101,"123,33249 ",.01)
;;33249
;;9002226.02101,"123,33250 ",.01)
;;33250
;;9002226.02101,"123,33251 ",.01)
;;33251
;;9002226.02101,"123,33260 ",.01)
;;33260
;;9002226.02101,"123,33261 ",.01)
;;33261
;;9002226.02101,"123,33300 ",.01)
;;33300
;;9002226.02101,"123,33305 ",.01)
;;33305
;;9002226.02101,"123,33310 ",.01)
;;33310
;;9002226.02101,"123,33315 ",.01)
;;33315
;;9002226.02101,"123,33320 ",.01)
;;33320
;;9002226.02101,"123,33321 ",.01)
;;33321
;;9002226.02101,"123,33322 ",.01)
;;33322
;;9002226.02101,"123,33330 ",.01)
;;33330
;;9002226.02101,"123,33332 ",.01)
;;33332
;;9002226.02101,"123,33335 ",.01)
;;33335
;;9002226.02101,"123,33400 ",.01)
;;33400
;;9002226.02101,"123,33401 ",.01)
;;33401
;;9002226.02101,"123,33403 ",.01)
;;33403
;;9002226.02101,"123,33404 ",.01)
;;33404
;;9002226.02101,"123,33405 ",.01)
;;33405
;;9002226.02101,"123,33406 ",.01)
;;33406
;;9002226.02101,"123,33411 ",.01)
;;33411
;;9002226.02101,"123,33412 ",.01)
;;33412
;;9002226.02101,"123,33413 ",.01)
;;33413
;;9002226.02101,"123,33414 ",.01)
;;33414
;;9002226.02101,"123,33415 ",.01)
;;33415
;;9002226.02101,"123,33416 ",.01)
;;33416
;;9002226.02101,"123,33417 ",.01)
;;33417
;;9002226.02101,"123,33420 ",.01)
;;33420
;;9002226.02101,"123,33422 ",.01)
;;33422
;;9002226.02101,"123,33425 ",.01)
;;33425
;;9002226.02101,"123,33426 ",.01)
;;33426
;;9002226.02101,"123,33427 ",.01)
;;33427
;;9002226.02101,"123,33430 ",.01)
;;33430
;;9002226.02101,"123,33460 ",.01)
;;33460
;;9002226.02101,"123,33463 ",.01)
;;33463
;;9002226.02101,"123,33464 ",.01)
;;33464
;;9002226.02101,"123,33465 ",.01)
;;33465
;;9002226.02101,"123,33468 ",.01)
;;33468
;;9002226.02101,"123,33470 ",.01)
;;33470
;;9002226.02101,"123,33471 ",.01)
;;33471
;;9002226.02101,"123,33472 ",.01)
;;33472
;;9002226.02101,"123,33474 ",.01)
;;33474
;;9002226.02101,"123,33475 ",.01)
;;33475
;;9002226.02101,"123,33476 ",.01)
;;33476
;;9002226.02101,"123,33478 ",.01)
;;33478
;;9002226.02101,"123,33500 ",.01)
;;33500
;;9002226.02101,"123,33501 ",.01)
;;33501
;;9002226.02101,"123,33502 ",.01)
;;33502
;;9002226.02101,"123,33503 ",.01)
;;33503
;;9002226.02101,"123,33504 ",.01)
;;33504
;;9002226.02101,"123,33505 ",.01)
;;33505
;;9002226.02101,"123,33506 ",.01)
;;33506
;;9002226.02101,"123,33510 ",.01)
;;33510
;;9002226.02101,"123,33511 ",.01)
;;33511
;;9002226.02101,"123,33512 ",.01)
;;33512
;;9002226.02101,"123,33513 ",.01)
;;33513
;;9002226.02101,"123,33514 ",.01)
;;33514
;;9002226.02101,"123,33516 ",.01)
;;33516
BMCTXEJ ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
+1 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
+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 ;;9002226.02101,"123,31755 ",.01)
+2 ;;31755
+3 ;;9002226.02101,"123,31760 ",.01)
+4 ;;31760
+5 ;;9002226.02101,"123,31766 ",.01)
+6 ;;31766
+7 ;;9002226.02101,"123,31770 ",.01)
+8 ;;31770
+9 ;;9002226.02101,"123,31775 ",.01)
+10 ;;31775
+11 ;;9002226.02101,"123,31780 ",.01)
+12 ;;31780
+13 ;;9002226.02101,"123,31781 ",.01)
+14 ;;31781
+15 ;;9002226.02101,"123,31786 ",.01)
+16 ;;31786
+17 ;;9002226.02101,"123,32141 ",.01)
+18 ;;32141
+19 ;;9002226.02101,"123,32220 ",.01)
+20 ;;32220
+21 ;;9002226.02101,"123,32320 ",.01)
+22 ;;32320
+23 ;;9002226.02101,"123,32440 ",.01)
+24 ;;32440
+25 ;;9002226.02101,"123,32442 ",.01)
+26 ;;32442
+27 ;;9002226.02101,"123,32445 ",.01)
+28 ;;32445
+29 ;;9002226.02101,"123,32480 ",.01)
+30 ;;32480
+31 ;;9002226.02101,"123,32482 ",.01)
+32 ;;32482
+33 ;;9002226.02101,"123,32484 ",.01)
+34 ;;32484
+35 ;;9002226.02101,"123,32485 ",.01)
+36 ;;32485
+37 ;;9002226.02101,"123,32486 ",.01)
+38 ;;32486
+39 ;;9002226.02101,"123,32488 ",.01)
+40 ;;32488
+41 ;;9002226.02101,"123,32500 ",.01)
+42 ;;32500
+43 ;;9002226.02101,"123,32520 ",.01)
+44 ;;32520
+45 ;;9002226.02101,"123,32522 ",.01)
+46 ;;32522
+47 ;;9002226.02101,"123,32525 ",.01)
+48 ;;32525
+49 ;;9002226.02101,"123,32652 ",.01)
+50 ;;32652
+51 ;;9002226.02101,"123,32655 ",.01)
+52 ;;32655
+53 ;;9002226.02101,"123,32656 ",.01)
+54 ;;32656
+55 ;;9002226.02101,"123,32657 ",.01)
+56 ;;32657
+57 ;;9002226.02101,"123,32659 ",.01)
+58 ;;32659
+59 ;;9002226.02101,"123,32660 ",.01)
+60 ;;32660
+61 ;;9002226.02101,"123,32662 ",.01)
+62 ;;32662
+63 ;;9002226.02101,"123,32663 ",.01)
+64 ;;32663
+65 ;;9002226.02101,"123,32664 ",.01)
+66 ;;32664
+67 ;;9002226.02101,"123,32665 ",.01)
+68 ;;32665
+69 ;;9002226.02101,"123,32815 ",.01)
+70 ;;32815
+71 ;;9002226.02101,"123,32820 ",.01)
+72 ;;32820
+73 ;;9002226.02101,"123,32851 ",.01)
+74 ;;32851
+75 ;;9002226.02101,"123,32852 ",.01)
+76 ;;32852
+77 ;;9002226.02101,"123,32853 ",.01)
+78 ;;32853
+79 ;;9002226.02101,"123,32854 ",.01)
+80 ;;32854
+81 ;;9002226.02101,"123,32900 ",.01)
+82 ;;32900
+83 ;;9002226.02101,"123,32905 ",.01)
+84 ;;32905
+85 ;;9002226.02101,"123,32906 ",.01)
+86 ;;32906
+87 ;;9002226.02101,"123,32940 ",.01)
+88 ;;32940
+89 ;;9002226.02101,"123,33025 ",.01)
+90 ;;33025
+91 ;;9002226.02101,"123,33030 ",.01)
+92 ;;33030
+93 ;;9002226.02101,"123,33031 ",.01)
+94 ;;33031
+95 ;;9002226.02101,"123,33100 ",.01)
+96 ;;33100
+97 ;;9002226.02101,"123,33120 ",.01)
+98 ;;33120
+99 ;;9002226.02101,"123,33130 ",.01)
+100 ;;33130
+101 ;;9002226.02101,"123,33243 ",.01)
+102 ;;33243
+103 ;;9002226.02101,"123,33245 ",.01)
+104 ;;33245
+105 ;;9002226.02101,"123,33246 ",.01)
+106 ;;33246
+107 ;;9002226.02101,"123,33247 ",.01)
+108 ;;33247
+109 ;;9002226.02101,"123,33249 ",.01)
+110 ;;33249
+111 ;;9002226.02101,"123,33250 ",.01)
+112 ;;33250
+113 ;;9002226.02101,"123,33251 ",.01)
+114 ;;33251
+115 ;;9002226.02101,"123,33260 ",.01)
+116 ;;33260
+117 ;;9002226.02101,"123,33261 ",.01)
+118 ;;33261
+119 ;;9002226.02101,"123,33300 ",.01)
+120 ;;33300
+121 ;;9002226.02101,"123,33305 ",.01)
+122 ;;33305
+123 ;;9002226.02101,"123,33310 ",.01)
+124 ;;33310
+125 ;;9002226.02101,"123,33315 ",.01)
+126 ;;33315
+127 ;;9002226.02101,"123,33320 ",.01)
+128 ;;33320
+129 ;;9002226.02101,"123,33321 ",.01)
+130 ;;33321
+131 ;;9002226.02101,"123,33322 ",.01)
+132 ;;33322
+133 ;;9002226.02101,"123,33330 ",.01)
+134 ;;33330
+135 ;;9002226.02101,"123,33332 ",.01)
+136 ;;33332
+137 ;;9002226.02101,"123,33335 ",.01)
+138 ;;33335
+139 ;;9002226.02101,"123,33400 ",.01)
+140 ;;33400
+141 ;;9002226.02101,"123,33401 ",.01)
+142 ;;33401
+143 ;;9002226.02101,"123,33403 ",.01)
+144 ;;33403
+145 ;;9002226.02101,"123,33404 ",.01)
+146 ;;33404
+147 ;;9002226.02101,"123,33405 ",.01)
+148 ;;33405
+149 ;;9002226.02101,"123,33406 ",.01)
+150 ;;33406
+151 ;;9002226.02101,"123,33411 ",.01)
+152 ;;33411
+153 ;;9002226.02101,"123,33412 ",.01)
+154 ;;33412
+155 ;;9002226.02101,"123,33413 ",.01)
+156 ;;33413
+157 ;;9002226.02101,"123,33414 ",.01)
+158 ;;33414
+159 ;;9002226.02101,"123,33415 ",.01)
+160 ;;33415
+161 ;;9002226.02101,"123,33416 ",.01)
+162 ;;33416
+163 ;;9002226.02101,"123,33417 ",.01)
+164 ;;33417
+165 ;;9002226.02101,"123,33420 ",.01)
+166 ;;33420
+167 ;;9002226.02101,"123,33422 ",.01)
+168 ;;33422
+169 ;;9002226.02101,"123,33425 ",.01)
+170 ;;33425
+171 ;;9002226.02101,"123,33426 ",.01)
+172 ;;33426
+173 ;;9002226.02101,"123,33427 ",.01)
+174 ;;33427
+175 ;;9002226.02101,"123,33430 ",.01)
+176 ;;33430
+177 ;;9002226.02101,"123,33460 ",.01)
+178 ;;33460
+179 ;;9002226.02101,"123,33463 ",.01)
+180 ;;33463
+181 ;;9002226.02101,"123,33464 ",.01)
+182 ;;33464
+183 ;;9002226.02101,"123,33465 ",.01)
+184 ;;33465
+185 ;;9002226.02101,"123,33468 ",.01)
+186 ;;33468
+187 ;;9002226.02101,"123,33470 ",.01)
+188 ;;33470
+189 ;;9002226.02101,"123,33471 ",.01)
+190 ;;33471
+191 ;;9002226.02101,"123,33472 ",.01)
+192 ;;33472
+193 ;;9002226.02101,"123,33474 ",.01)
+194 ;;33474
+195 ;;9002226.02101,"123,33475 ",.01)
+196 ;;33475
+197 ;;9002226.02101,"123,33476 ",.01)
+198 ;;33476
+199 ;;9002226.02101,"123,33478 ",.01)
+200 ;;33478
+201 ;;9002226.02101,"123,33500 ",.01)
+202 ;;33500
+203 ;;9002226.02101,"123,33501 ",.01)
+204 ;;33501
+205 ;;9002226.02101,"123,33502 ",.01)
+206 ;;33502
+207 ;;9002226.02101,"123,33503 ",.01)
+208 ;;33503
+209 ;;9002226.02101,"123,33504 ",.01)
+210 ;;33504
+211 ;;9002226.02101,"123,33505 ",.01)
+212 ;;33505
+213 ;;9002226.02101,"123,33506 ",.01)
+214 ;;33506
+215 ;;9002226.02101,"123,33510 ",.01)
+216 ;;33510
+217 ;;9002226.02101,"123,33511 ",.01)
+218 ;;33511
+219 ;;9002226.02101,"123,33512 ",.01)
+220 ;;33512
+221 ;;9002226.02101,"123,33513 ",.01)
+222 ;;33513
+223 ;;9002226.02101,"123,33514 ",.01)
+224 ;;33514
+225 ;;9002226.02101,"123,33516 ",.01)
+226 ;;33516
