BMCTXEH ; 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,21193 ",.01)
;;21193
;;9002226.02101,"123,21194 ",.01)
;;21194
;;9002226.02101,"123,21195 ",.01)
;;21195
;;9002226.02101,"123,21196 ",.01)
;;21196
;;9002226.02101,"123,21198 ",.01)
;;21198
;;9002226.02101,"123,21210 ",.01)
;;21210
;;9002226.02101,"123,21215 ",.01)
;;21215
;;9002226.02101,"123,21240 ",.01)
;;21240
;;9002226.02101,"123,21242 ",.01)
;;21242
;;9002226.02101,"123,21243 ",.01)
;;21243
;;9002226.02101,"123,21244 ",.01)
;;21244
;;9002226.02101,"123,21247 ",.01)
;;21247
;;9002226.02101,"123,21248 ",.01)
;;21248
;;9002226.02101,"123,21249 ",.01)
;;21249
;;9002226.02101,"123,21255 ",.01)
;;21255
;;9002226.02101,"123,21256 ",.01)
;;21256
;;9002226.02101,"123,21260 ",.01)
;;21260
;;9002226.02101,"123,21261 ",.01)
;;21261
;;9002226.02101,"123,21263 ",.01)
;;21263
;;9002226.02101,"123,21267 ",.01)
;;21267
;;9002226.02101,"123,21268 ",.01)
;;21268
;;9002226.02101,"123,21344 ",.01)
;;21344
;;9002226.02101,"123,21348 ",.01)
;;21348
;;9002226.02101,"123,21365 ",.01)
;;21365
;;9002226.02101,"123,21366 ",.01)
;;21366
;;9002226.02101,"123,21433 ",.01)
;;21433
;;9002226.02101,"123,21435 ",.01)
;;21435
;;9002226.02101,"123,21436 ",.01)
;;21436
;;9002226.02101,"123,21470 ",.01)
;;21470
;;9002226.02101,"123,21630 ",.01)
;;21630
;;9002226.02101,"123,21632 ",.01)
;;21632
;;9002226.02101,"123,21633 ",.01)
;;21633
;;9002226.02101,"123,22140 ",.01)
;;22140
;;9002226.02101,"123,22141 ",.01)
;;22141
;;9002226.02101,"123,22142 ",.01)
;;22142
;;9002226.02101,"123,22150 ",.01)
;;22150
;;9002226.02101,"123,22151 ",.01)
;;22151
;;9002226.02101,"123,22152 ",.01)
;;22152
;;9002226.02101,"123,22210 ",.01)
;;22210
;;9002226.02101,"123,22212 ",.01)
;;22212
;;9002226.02101,"123,22214 ",.01)
;;22214
;;9002226.02101,"123,22220 ",.01)
;;22220
;;9002226.02101,"123,22222 ",.01)
;;22222
;;9002226.02101,"123,22224 ",.01)
;;22224
;;9002226.02101,"123,22325 ",.01)
;;22325
;;9002226.02101,"123,22326 ",.01)
;;22326
;;9002226.02101,"123,22327 ",.01)
;;22327
;;9002226.02101,"123,22548 ",.01)
;;22548
;;9002226.02101,"123,22554 ",.01)
;;22554
;;9002226.02101,"123,22556 ",.01)
;;22556
;;9002226.02101,"123,22558 ",.01)
;;22558
;;9002226.02101,"123,22590 ",.01)
;;22590
;;9002226.02101,"123,22595 ",.01)
;;22595
;;9002226.02101,"123,22600 ",.01)
;;22600
;;9002226.02101,"123,22610 ",.01)
;;22610
;;9002226.02101,"123,22612 ",.01)
;;22612
;;9002226.02101,"123,22625 ",.01)
;;22625
;;9002226.02101,"123,22630 ",.01)
;;22630
;;9002226.02101,"123,22800 ",.01)
;;22800
;;9002226.02101,"123,22802 ",.01)
;;22802
;;9002226.02101,"123,22810 ",.01)
;;22810
;;9002226.02101,"123,22812 ",.01)
;;22812
;;9002226.02101,"123,22840 ",.01)
;;22840
;;9002226.02101,"123,22842 ",.01)
;;22842
;;9002226.02101,"123,22845 ",.01)
;;22845
;;9002226.02101,"123,23220 ",.01)
;;23220
;;9002226.02101,"123,23221 ",.01)
;;23221
;;9002226.02101,"123,23222 ",.01)
;;23222
;;9002226.02101,"123,23397 ",.01)
;;23397
;;9002226.02101,"123,23412 ",.01)
;;23412
;;9002226.02101,"123,23420 ",.01)
;;23420
;;9002226.02101,"123,23450 ",.01)
;;23450
;;9002226.02101,"123,23455 ",.01)
;;23455
;;9002226.02101,"123,23460 ",.01)
;;23460
;;9002226.02101,"123,23462 ",.01)
;;23462
;;9002226.02101,"123,23465 ",.01)
;;23465
;;9002226.02101,"123,23466 ",.01)
;;23466
;;9002226.02101,"123,23470 ",.01)
;;23470
;;9002226.02101,"123,23472 ",.01)
;;23472
;;9002226.02101,"123,23491 ",.01)
;;23491
;;9002226.02101,"123,23616 ",.01)
;;23616
;;9002226.02101,"123,23680 ",.01)
;;23680
;;9002226.02101,"123,23800 ",.01)
;;23800
;;9002226.02101,"123,23802 ",.01)
;;23802
;;9002226.02101,"123,23900 ",.01)
;;23900
;;9002226.02101,"123,23920 ",.01)
;;23920
;;9002226.02101,"123,24150 ",.01)
;;24150
;;9002226.02101,"123,24151 ",.01)
;;24151
;;9002226.02101,"123,24360 ",.01)
;;24360
;;9002226.02101,"123,24361 ",.01)
;;24361
;;9002226.02101,"123,24362 ",.01)
;;24362
;;9002226.02101,"123,24363 ",.01)
;;24363
;;9002226.02101,"123,24410 ",.01)
;;24410
;;9002226.02101,"123,24420 ",.01)
;;24420
;;9002226.02101,"123,24430 ",.01)
;;24430
;;9002226.02101,"123,24435 ",.01)
;;24435
;;9002226.02101,"123,24546 ",.01)
;;24546
;;9002226.02101,"123,24586 ",.01)
;;24586
;;9002226.02101,"123,24587 ",.01)
;;24587
;;9002226.02101,"123,24935 ",.01)
;;24935
;;9002226.02101,"123,25331 ",.01)
;;25331
;;9002226.02101,"123,25392 ",.01)
;;25392
;;9002226.02101,"123,25393 ",.01)
;;25393
;;9002226.02101,"123,25405 ",.01)
;;25405
;;9002226.02101,"123,25420 ",.01)
;;25420
;;9002226.02101,"123,25426 ",.01)
;;25426
;;9002226.02101,"123,25446 ",.01)
;;25446
;;9002226.02101,"123,25800 ",.01)
;;25800
;;9002226.02101,"123,25810 ",.01)
;;25810
;;9002226.02101,"123,25915 ",.01)
;;25915
;;9002226.02101,"123,26498 ",.01)
;;26498
;;9002226.02101,"123,26550 ",.01)
;;26550
;;9002226.02101,"123,26555 ",.01)
;;26555
BMCTXEH ; 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,21193 ",.01)
+2 ;;21193
+3 ;;9002226.02101,"123,21194 ",.01)
+4 ;;21194
+5 ;;9002226.02101,"123,21195 ",.01)
+6 ;;21195
+7 ;;9002226.02101,"123,21196 ",.01)
+8 ;;21196
+9 ;;9002226.02101,"123,21198 ",.01)
+10 ;;21198
+11 ;;9002226.02101,"123,21210 ",.01)
+12 ;;21210
+13 ;;9002226.02101,"123,21215 ",.01)
+14 ;;21215
+15 ;;9002226.02101,"123,21240 ",.01)
+16 ;;21240
+17 ;;9002226.02101,"123,21242 ",.01)
+18 ;;21242
+19 ;;9002226.02101,"123,21243 ",.01)
+20 ;;21243
+21 ;;9002226.02101,"123,21244 ",.01)
+22 ;;21244
+23 ;;9002226.02101,"123,21247 ",.01)
+24 ;;21247
+25 ;;9002226.02101,"123,21248 ",.01)
+26 ;;21248
+27 ;;9002226.02101,"123,21249 ",.01)
+28 ;;21249
+29 ;;9002226.02101,"123,21255 ",.01)
+30 ;;21255
+31 ;;9002226.02101,"123,21256 ",.01)
+32 ;;21256
+33 ;;9002226.02101,"123,21260 ",.01)
+34 ;;21260
+35 ;;9002226.02101,"123,21261 ",.01)
+36 ;;21261
+37 ;;9002226.02101,"123,21263 ",.01)
+38 ;;21263
+39 ;;9002226.02101,"123,21267 ",.01)
+40 ;;21267
+41 ;;9002226.02101,"123,21268 ",.01)
+42 ;;21268
+43 ;;9002226.02101,"123,21344 ",.01)
+44 ;;21344
+45 ;;9002226.02101,"123,21348 ",.01)
+46 ;;21348
+47 ;;9002226.02101,"123,21365 ",.01)
+48 ;;21365
+49 ;;9002226.02101,"123,21366 ",.01)
+50 ;;21366
+51 ;;9002226.02101,"123,21433 ",.01)
+52 ;;21433
+53 ;;9002226.02101,"123,21435 ",.01)
+54 ;;21435
+55 ;;9002226.02101,"123,21436 ",.01)
+56 ;;21436
+57 ;;9002226.02101,"123,21470 ",.01)
+58 ;;21470
+59 ;;9002226.02101,"123,21630 ",.01)
+60 ;;21630
+61 ;;9002226.02101,"123,21632 ",.01)
+62 ;;21632
+63 ;;9002226.02101,"123,21633 ",.01)
+64 ;;21633
+65 ;;9002226.02101,"123,22140 ",.01)
+66 ;;22140
+67 ;;9002226.02101,"123,22141 ",.01)
+68 ;;22141
+69 ;;9002226.02101,"123,22142 ",.01)
+70 ;;22142
+71 ;;9002226.02101,"123,22150 ",.01)
+72 ;;22150
+73 ;;9002226.02101,"123,22151 ",.01)
+74 ;;22151
+75 ;;9002226.02101,"123,22152 ",.01)
+76 ;;22152
+77 ;;9002226.02101,"123,22210 ",.01)
+78 ;;22210
+79 ;;9002226.02101,"123,22212 ",.01)
+80 ;;22212
+81 ;;9002226.02101,"123,22214 ",.01)
+82 ;;22214
+83 ;;9002226.02101,"123,22220 ",.01)
+84 ;;22220
+85 ;;9002226.02101,"123,22222 ",.01)
+86 ;;22222
+87 ;;9002226.02101,"123,22224 ",.01)
+88 ;;22224
+89 ;;9002226.02101,"123,22325 ",.01)
+90 ;;22325
+91 ;;9002226.02101,"123,22326 ",.01)
+92 ;;22326
+93 ;;9002226.02101,"123,22327 ",.01)
+94 ;;22327
+95 ;;9002226.02101,"123,22548 ",.01)
+96 ;;22548
+97 ;;9002226.02101,"123,22554 ",.01)
+98 ;;22554
+99 ;;9002226.02101,"123,22556 ",.01)
+100 ;;22556
+101 ;;9002226.02101,"123,22558 ",.01)
+102 ;;22558
+103 ;;9002226.02101,"123,22590 ",.01)
+104 ;;22590
+105 ;;9002226.02101,"123,22595 ",.01)
+106 ;;22595
+107 ;;9002226.02101,"123,22600 ",.01)
+108 ;;22600
+109 ;;9002226.02101,"123,22610 ",.01)
+110 ;;22610
+111 ;;9002226.02101,"123,22612 ",.01)
+112 ;;22612
+113 ;;9002226.02101,"123,22625 ",.01)
+114 ;;22625
+115 ;;9002226.02101,"123,22630 ",.01)
+116 ;;22630
+117 ;;9002226.02101,"123,22800 ",.01)
+118 ;;22800
+119 ;;9002226.02101,"123,22802 ",.01)
+120 ;;22802
+121 ;;9002226.02101,"123,22810 ",.01)
+122 ;;22810
+123 ;;9002226.02101,"123,22812 ",.01)
+124 ;;22812
+125 ;;9002226.02101,"123,22840 ",.01)
+126 ;;22840
+127 ;;9002226.02101,"123,22842 ",.01)
+128 ;;22842
+129 ;;9002226.02101,"123,22845 ",.01)
+130 ;;22845
+131 ;;9002226.02101,"123,23220 ",.01)
+132 ;;23220
+133 ;;9002226.02101,"123,23221 ",.01)
+134 ;;23221
+135 ;;9002226.02101,"123,23222 ",.01)
+136 ;;23222
+137 ;;9002226.02101,"123,23397 ",.01)
+138 ;;23397
+139 ;;9002226.02101,"123,23412 ",.01)
+140 ;;23412
+141 ;;9002226.02101,"123,23420 ",.01)
+142 ;;23420
+143 ;;9002226.02101,"123,23450 ",.01)
+144 ;;23450
+145 ;;9002226.02101,"123,23455 ",.01)
+146 ;;23455
+147 ;;9002226.02101,"123,23460 ",.01)
+148 ;;23460
+149 ;;9002226.02101,"123,23462 ",.01)
+150 ;;23462
+151 ;;9002226.02101,"123,23465 ",.01)
+152 ;;23465
+153 ;;9002226.02101,"123,23466 ",.01)
+154 ;;23466
+155 ;;9002226.02101,"123,23470 ",.01)
+156 ;;23470
+157 ;;9002226.02101,"123,23472 ",.01)
+158 ;;23472
+159 ;;9002226.02101,"123,23491 ",.01)
+160 ;;23491
+161 ;;9002226.02101,"123,23616 ",.01)
+162 ;;23616
+163 ;;9002226.02101,"123,23680 ",.01)
+164 ;;23680
+165 ;;9002226.02101,"123,23800 ",.01)
+166 ;;23800
+167 ;;9002226.02101,"123,23802 ",.01)
+168 ;;23802
+169 ;;9002226.02101,"123,23900 ",.01)
+170 ;;23900
+171 ;;9002226.02101,"123,23920 ",.01)
+172 ;;23920
+173 ;;9002226.02101,"123,24150 ",.01)
+174 ;;24150
+175 ;;9002226.02101,"123,24151 ",.01)
+176 ;;24151
+177 ;;9002226.02101,"123,24360 ",.01)
+178 ;;24360
+179 ;;9002226.02101,"123,24361 ",.01)
+180 ;;24361
+181 ;;9002226.02101,"123,24362 ",.01)
+182 ;;24362
+183 ;;9002226.02101,"123,24363 ",.01)
+184 ;;24363
+185 ;;9002226.02101,"123,24410 ",.01)
+186 ;;24410
+187 ;;9002226.02101,"123,24420 ",.01)
+188 ;;24420
+189 ;;9002226.02101,"123,24430 ",.01)
+190 ;;24430
+191 ;;9002226.02101,"123,24435 ",.01)
+192 ;;24435
+193 ;;9002226.02101,"123,24546 ",.01)
+194 ;;24546
+195 ;;9002226.02101,"123,24586 ",.01)
+196 ;;24586
+197 ;;9002226.02101,"123,24587 ",.01)
+198 ;;24587
+199 ;;9002226.02101,"123,24935 ",.01)
+200 ;;24935
+201 ;;9002226.02101,"123,25331 ",.01)
+202 ;;25331
+203 ;;9002226.02101,"123,25392 ",.01)
+204 ;;25392
+205 ;;9002226.02101,"123,25393 ",.01)
+206 ;;25393
+207 ;;9002226.02101,"123,25405 ",.01)
+208 ;;25405
+209 ;;9002226.02101,"123,25420 ",.01)
+210 ;;25420
+211 ;;9002226.02101,"123,25426 ",.01)
+212 ;;25426
+213 ;;9002226.02101,"123,25446 ",.01)
+214 ;;25446
+215 ;;9002226.02101,"123,25800 ",.01)
+216 ;;25800
+217 ;;9002226.02101,"123,25810 ",.01)
+218 ;;25810
+219 ;;9002226.02101,"123,25915 ",.01)
+220 ;;25915
+221 ;;9002226.02101,"123,26498 ",.01)
+222 ;;26498
+223 ;;9002226.02101,"123,26550 ",.01)
+224 ;;26550
+225 ;;9002226.02101,"123,26555 ",.01)
+226 ;;26555
