BMCTXEL ; 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,35111 ",.01)
;;35111
;;9002226.02101,"123,35112 ",.01)
;;35112
;;9002226.02101,"123,35121 ",.01)
;;35121
;;9002226.02101,"123,35122 ",.01)
;;35122
;;9002226.02101,"123,35131 ",.01)
;;35131
;;9002226.02101,"123,35132 ",.01)
;;35132
;;9002226.02101,"123,35141 ",.01)
;;35141
;;9002226.02101,"123,35142 ",.01)
;;35142
;;9002226.02101,"123,35151 ",.01)
;;35151
;;9002226.02101,"123,35161 ",.01)
;;35161
;;9002226.02101,"123,35162 ",.01)
;;35162
;;9002226.02101,"123,35182 ",.01)
;;35182
;;9002226.02101,"123,35188 ",.01)
;;35188
;;9002226.02101,"123,35189 ",.01)
;;35189
;;9002226.02101,"123,35211 ",.01)
;;35211
;;9002226.02101,"123,35216 ",.01)
;;35216
;;9002226.02101,"123,35221 ",.01)
;;35221
;;9002226.02101,"123,35231 ",.01)
;;35231
;;9002226.02101,"123,35241 ",.01)
;;35241
;;9002226.02101,"123,35246 ",.01)
;;35246
;;9002226.02101,"123,35251 ",.01)
;;35251
;;9002226.02101,"123,35256 ",.01)
;;35256
;;9002226.02101,"123,35271 ",.01)
;;35271
;;9002226.02101,"123,35276 ",.01)
;;35276
;;9002226.02101,"123,35281 ",.01)
;;35281
;;9002226.02101,"123,35286 ",.01)
;;35286
;;9002226.02101,"123,35301 ",.01)
;;35301
;;9002226.02101,"123,35311 ",.01)
;;35311
;;9002226.02101,"123,35321 ",.01)
;;35321
;;9002226.02101,"123,35331 ",.01)
;;35331
;;9002226.02101,"123,35341 ",.01)
;;35341
;;9002226.02101,"123,35351 ",.01)
;;35351
;;9002226.02101,"123,35355 ",.01)
;;35355
;;9002226.02101,"123,35361 ",.01)
;;35361
;;9002226.02101,"123,35363 ",.01)
;;35363
;;9002226.02101,"123,35371 ",.01)
;;35371
;;9002226.02101,"123,35372 ",.01)
;;35372
;;9002226.02101,"123,35381 ",.01)
;;35381
;;9002226.02101,"123,35501 ",.01)
;;35501
;;9002226.02101,"123,35506 ",.01)
;;35506
;;9002226.02101,"123,35507 ",.01)
;;35507
;;9002226.02101,"123,35508 ",.01)
;;35508
;;9002226.02101,"123,35509 ",.01)
;;35509
;;9002226.02101,"123,35511 ",.01)
;;35511
;;9002226.02101,"123,35515 ",.01)
;;35515
;;9002226.02101,"123,35516 ",.01)
;;35516
;;9002226.02101,"123,35518 ",.01)
;;35518
;;9002226.02101,"123,35521 ",.01)
;;35521
;;9002226.02101,"123,35526 ",.01)
;;35526
;;9002226.02101,"123,35531 ",.01)
;;35531
;;9002226.02101,"123,35533 ",.01)
;;35533
;;9002226.02101,"123,35536 ",.01)
;;35536
;;9002226.02101,"123,35541 ",.01)
;;35541
;;9002226.02101,"123,35546 ",.01)
;;35546
;;9002226.02101,"123,35548 ",.01)
;;35548
;;9002226.02101,"123,35549 ",.01)
;;35549
;;9002226.02101,"123,35551 ",.01)
;;35551
;;9002226.02101,"123,35556 ",.01)
;;35556
;;9002226.02101,"123,35558 ",.01)
;;35558
;;9002226.02101,"123,35560 ",.01)
;;35560
;;9002226.02101,"123,35565 ",.01)
;;35565
;;9002226.02101,"123,35566 ",.01)
;;35566
;;9002226.02101,"123,35571 ",.01)
;;35571
;;9002226.02101,"123,35582 ",.01)
;;35582
;;9002226.02101,"123,35583 ",.01)
;;35583
;;9002226.02101,"123,35585 ",.01)
;;35585
;;9002226.02101,"123,35587 ",.01)
;;35587
;;9002226.02101,"123,35601 ",.01)
;;35601
;;9002226.02101,"123,35606 ",.01)
;;35606
;;9002226.02101,"123,35612 ",.01)
;;35612
;;9002226.02101,"123,35616 ",.01)
;;35616
;;9002226.02101,"123,35621 ",.01)
;;35621
;;9002226.02101,"123,35626 ",.01)
;;35626
;;9002226.02101,"123,35631 ",.01)
;;35631
;;9002226.02101,"123,35636 ",.01)
;;35636
;;9002226.02101,"123,35641 ",.01)
;;35641
;;9002226.02101,"123,35642 ",.01)
;;35642
;;9002226.02101,"123,35645 ",.01)
;;35645
;;9002226.02101,"123,35646 ",.01)
;;35646
;;9002226.02101,"123,35650 ",.01)
;;35650
;;9002226.02101,"123,35651 ",.01)
;;35651
;;9002226.02101,"123,35654 ",.01)
;;35654
;;9002226.02101,"123,35656 ",.01)
;;35656
;;9002226.02101,"123,35661 ",.01)
;;35661
;;9002226.02101,"123,35663 ",.01)
;;35663
;;9002226.02101,"123,35665 ",.01)
;;35665
;;9002226.02101,"123,35666 ",.01)
;;35666
;;9002226.02101,"123,35671 ",.01)
;;35671
;;9002226.02101,"123,35691 ",.01)
;;35691
;;9002226.02101,"123,35694 ",.01)
;;35694
;;9002226.02101,"123,35695 ",.01)
;;35695
;;9002226.02101,"123,35870 ",.01)
;;35870
;;9002226.02101,"123,36834 ",.01)
;;36834
;;9002226.02101,"123,37140 ",.01)
;;37140
;;9002226.02101,"123,37145 ",.01)
;;37145
;;9002226.02101,"123,37160 ",.01)
;;37160
;;9002226.02101,"123,37180 ",.01)
;;37180
;;9002226.02101,"123,37181 ",.01)
;;37181
;;9002226.02101,"123,37190 ",.01)
;;37190
;;9002226.02101,"123,37204 ",.01)
;;37204
;;9002226.02101,"123,37788 ",.01)
;;37788
;;9002226.02101,"123,38240 ",.01)
;;38240
;;9002226.02101,"123,38241 ",.01)
;;38241
;;9002226.02101,"123,38720 ",.01)
;;38720
;;9002226.02101,"123,38724 ",.01)
;;38724
;;9002226.02101,"123,38765 ",.01)
;;38765
;;9002226.02101,"123,38770 ",.01)
;;38770
;;9002226.02101,"123,38780 ",.01)
;;38780
;;9002226.02101,"123,39220 ",.01)
;;39220
;;9002226.02101,"123,39502 ",.01)
;;39502
;;9002226.02101,"123,39503 ",.01)
;;39503
;;9002226.02101,"123,39520 ",.01)
;;39520
;;9002226.02101,"123,39530 ",.01)
;;39530
BMCTXEL ; 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,35111 ",.01)
+2 ;;35111
+3 ;;9002226.02101,"123,35112 ",.01)
+4 ;;35112
+5 ;;9002226.02101,"123,35121 ",.01)
+6 ;;35121
+7 ;;9002226.02101,"123,35122 ",.01)
+8 ;;35122
+9 ;;9002226.02101,"123,35131 ",.01)
+10 ;;35131
+11 ;;9002226.02101,"123,35132 ",.01)
+12 ;;35132
+13 ;;9002226.02101,"123,35141 ",.01)
+14 ;;35141
+15 ;;9002226.02101,"123,35142 ",.01)
+16 ;;35142
+17 ;;9002226.02101,"123,35151 ",.01)
+18 ;;35151
+19 ;;9002226.02101,"123,35161 ",.01)
+20 ;;35161
+21 ;;9002226.02101,"123,35162 ",.01)
+22 ;;35162
+23 ;;9002226.02101,"123,35182 ",.01)
+24 ;;35182
+25 ;;9002226.02101,"123,35188 ",.01)
+26 ;;35188
+27 ;;9002226.02101,"123,35189 ",.01)
+28 ;;35189
+29 ;;9002226.02101,"123,35211 ",.01)
+30 ;;35211
+31 ;;9002226.02101,"123,35216 ",.01)
+32 ;;35216
+33 ;;9002226.02101,"123,35221 ",.01)
+34 ;;35221
+35 ;;9002226.02101,"123,35231 ",.01)
+36 ;;35231
+37 ;;9002226.02101,"123,35241 ",.01)
+38 ;;35241
+39 ;;9002226.02101,"123,35246 ",.01)
+40 ;;35246
+41 ;;9002226.02101,"123,35251 ",.01)
+42 ;;35251
+43 ;;9002226.02101,"123,35256 ",.01)
+44 ;;35256
+45 ;;9002226.02101,"123,35271 ",.01)
+46 ;;35271
+47 ;;9002226.02101,"123,35276 ",.01)
+48 ;;35276
+49 ;;9002226.02101,"123,35281 ",.01)
+50 ;;35281
+51 ;;9002226.02101,"123,35286 ",.01)
+52 ;;35286
+53 ;;9002226.02101,"123,35301 ",.01)
+54 ;;35301
+55 ;;9002226.02101,"123,35311 ",.01)
+56 ;;35311
+57 ;;9002226.02101,"123,35321 ",.01)
+58 ;;35321
+59 ;;9002226.02101,"123,35331 ",.01)
+60 ;;35331
+61 ;;9002226.02101,"123,35341 ",.01)
+62 ;;35341
+63 ;;9002226.02101,"123,35351 ",.01)
+64 ;;35351
+65 ;;9002226.02101,"123,35355 ",.01)
+66 ;;35355
+67 ;;9002226.02101,"123,35361 ",.01)
+68 ;;35361
+69 ;;9002226.02101,"123,35363 ",.01)
+70 ;;35363
+71 ;;9002226.02101,"123,35371 ",.01)
+72 ;;35371
+73 ;;9002226.02101,"123,35372 ",.01)
+74 ;;35372
+75 ;;9002226.02101,"123,35381 ",.01)
+76 ;;35381
+77 ;;9002226.02101,"123,35501 ",.01)
+78 ;;35501
+79 ;;9002226.02101,"123,35506 ",.01)
+80 ;;35506
+81 ;;9002226.02101,"123,35507 ",.01)
+82 ;;35507
+83 ;;9002226.02101,"123,35508 ",.01)
+84 ;;35508
+85 ;;9002226.02101,"123,35509 ",.01)
+86 ;;35509
+87 ;;9002226.02101,"123,35511 ",.01)
+88 ;;35511
+89 ;;9002226.02101,"123,35515 ",.01)
+90 ;;35515
+91 ;;9002226.02101,"123,35516 ",.01)
+92 ;;35516
+93 ;;9002226.02101,"123,35518 ",.01)
+94 ;;35518
+95 ;;9002226.02101,"123,35521 ",.01)
+96 ;;35521
+97 ;;9002226.02101,"123,35526 ",.01)
+98 ;;35526
+99 ;;9002226.02101,"123,35531 ",.01)
+100 ;;35531
+101 ;;9002226.02101,"123,35533 ",.01)
+102 ;;35533
+103 ;;9002226.02101,"123,35536 ",.01)
+104 ;;35536
+105 ;;9002226.02101,"123,35541 ",.01)
+106 ;;35541
+107 ;;9002226.02101,"123,35546 ",.01)
+108 ;;35546
+109 ;;9002226.02101,"123,35548 ",.01)
+110 ;;35548
+111 ;;9002226.02101,"123,35549 ",.01)
+112 ;;35549
+113 ;;9002226.02101,"123,35551 ",.01)
+114 ;;35551
+115 ;;9002226.02101,"123,35556 ",.01)
+116 ;;35556
+117 ;;9002226.02101,"123,35558 ",.01)
+118 ;;35558
+119 ;;9002226.02101,"123,35560 ",.01)
+120 ;;35560
+121 ;;9002226.02101,"123,35565 ",.01)
+122 ;;35565
+123 ;;9002226.02101,"123,35566 ",.01)
+124 ;;35566
+125 ;;9002226.02101,"123,35571 ",.01)
+126 ;;35571
+127 ;;9002226.02101,"123,35582 ",.01)
+128 ;;35582
+129 ;;9002226.02101,"123,35583 ",.01)
+130 ;;35583
+131 ;;9002226.02101,"123,35585 ",.01)
+132 ;;35585
+133 ;;9002226.02101,"123,35587 ",.01)
+134 ;;35587
+135 ;;9002226.02101,"123,35601 ",.01)
+136 ;;35601
+137 ;;9002226.02101,"123,35606 ",.01)
+138 ;;35606
+139 ;;9002226.02101,"123,35612 ",.01)
+140 ;;35612
+141 ;;9002226.02101,"123,35616 ",.01)
+142 ;;35616
+143 ;;9002226.02101,"123,35621 ",.01)
+144 ;;35621
+145 ;;9002226.02101,"123,35626 ",.01)
+146 ;;35626
+147 ;;9002226.02101,"123,35631 ",.01)
+148 ;;35631
+149 ;;9002226.02101,"123,35636 ",.01)
+150 ;;35636
+151 ;;9002226.02101,"123,35641 ",.01)
+152 ;;35641
+153 ;;9002226.02101,"123,35642 ",.01)
+154 ;;35642
+155 ;;9002226.02101,"123,35645 ",.01)
+156 ;;35645
+157 ;;9002226.02101,"123,35646 ",.01)
+158 ;;35646
+159 ;;9002226.02101,"123,35650 ",.01)
+160 ;;35650
+161 ;;9002226.02101,"123,35651 ",.01)
+162 ;;35651
+163 ;;9002226.02101,"123,35654 ",.01)
+164 ;;35654
+165 ;;9002226.02101,"123,35656 ",.01)
+166 ;;35656
+167 ;;9002226.02101,"123,35661 ",.01)
+168 ;;35661
+169 ;;9002226.02101,"123,35663 ",.01)
+170 ;;35663
+171 ;;9002226.02101,"123,35665 ",.01)
+172 ;;35665
+173 ;;9002226.02101,"123,35666 ",.01)
+174 ;;35666
+175 ;;9002226.02101,"123,35671 ",.01)
+176 ;;35671
+177 ;;9002226.02101,"123,35691 ",.01)
+178 ;;35691
+179 ;;9002226.02101,"123,35694 ",.01)
+180 ;;35694
+181 ;;9002226.02101,"123,35695 ",.01)
+182 ;;35695
+183 ;;9002226.02101,"123,35870 ",.01)
+184 ;;35870
+185 ;;9002226.02101,"123,36834 ",.01)
+186 ;;36834
+187 ;;9002226.02101,"123,37140 ",.01)
+188 ;;37140
+189 ;;9002226.02101,"123,37145 ",.01)
+190 ;;37145
+191 ;;9002226.02101,"123,37160 ",.01)
+192 ;;37160
+193 ;;9002226.02101,"123,37180 ",.01)
+194 ;;37180
+195 ;;9002226.02101,"123,37181 ",.01)
+196 ;;37181
+197 ;;9002226.02101,"123,37190 ",.01)
+198 ;;37190
+199 ;;9002226.02101,"123,37204 ",.01)
+200 ;;37204
+201 ;;9002226.02101,"123,37788 ",.01)
+202 ;;37788
+203 ;;9002226.02101,"123,38240 ",.01)
+204 ;;38240
+205 ;;9002226.02101,"123,38241 ",.01)
+206 ;;38241
+207 ;;9002226.02101,"123,38720 ",.01)
+208 ;;38720
+209 ;;9002226.02101,"123,38724 ",.01)
+210 ;;38724
+211 ;;9002226.02101,"123,38765 ",.01)
+212 ;;38765
+213 ;;9002226.02101,"123,38770 ",.01)
+214 ;;38770
+215 ;;9002226.02101,"123,38780 ",.01)
+216 ;;38780
+217 ;;9002226.02101,"123,39220 ",.01)
+218 ;;39220
+219 ;;9002226.02101,"123,39502 ",.01)
+220 ;;39502
+221 ;;9002226.02101,"123,39503 ",.01)
+222 ;;39503
+223 ;;9002226.02101,"123,39520 ",.01)
+224 ;;39520
+225 ;;9002226.02101,"123,39530 ",.01)
+226 ;;39530
