BMCTXEO ; 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,51590 ",.01)
;;51590
;;9002226.02101,"123,51595 ",.01)
;;51595
;;9002226.02101,"123,51596 ",.01)
;;51596
;;9002226.02101,"123,51597 ",.01)
;;51597
;;9002226.02101,"123,51800 ",.01)
;;51800
;;9002226.02101,"123,51841 ",.01)
;;51841
;;9002226.02101,"123,51865 ",.01)
;;51865
;;9002226.02101,"123,51940 ",.01)
;;51940
;;9002226.02101,"123,51960 ",.01)
;;51960
;;9002226.02101,"123,53415 ",.01)
;;53415
;;9002226.02101,"123,53443 ",.01)
;;53443
;;9002226.02101,"123,53445 ",.01)
;;53445
;;9002226.02101,"123,54112 ",.01)
;;54112
;;9002226.02101,"123,54125 ",.01)
;;54125
;;9002226.02101,"123,54130 ",.01)
;;54130
;;9002226.02101,"123,54135 ",.01)
;;54135
;;9002226.02101,"123,54316 ",.01)
;;54316
;;9002226.02101,"123,54324 ",.01)
;;54324
;;9002226.02101,"123,54332 ",.01)
;;54332
;;9002226.02101,"123,54336 ",.01)
;;54336
;;9002226.02101,"123,54344 ",.01)
;;54344
;;9002226.02101,"123,54348 ",.01)
;;54348
;;9002226.02101,"123,54352 ",.01)
;;54352
;;9002226.02101,"123,54390 ",.01)
;;54390
;;9002226.02101,"123,54405 ",.01)
;;54405
;;9002226.02101,"123,54901 ",.01)
;;54901
;;9002226.02101,"123,55801 ",.01)
;;55801
;;9002226.02101,"123,55810 ",.01)
;;55810
;;9002226.02101,"123,55812 ",.01)
;;55812
;;9002226.02101,"123,55815 ",.01)
;;55815
;;9002226.02101,"123,55821 ",.01)
;;55821
;;9002226.02101,"123,55831 ",.01)
;;55831
;;9002226.02101,"123,55840 ",.01)
;;55840
;;9002226.02101,"123,55842 ",.01)
;;55842
;;9002226.02101,"123,55845 ",.01)
;;55845
;;9002226.02101,"123,55862 ",.01)
;;55862
;;9002226.02101,"123,55865 ",.01)
;;55865
;;9002226.02101,"123,56631 ",.01)
;;56631
;;9002226.02101,"123,56632 ",.01)
;;56632
;;9002226.02101,"123,56633 ",.01)
;;56633
;;9002226.02101,"123,56634 ",.01)
;;56634
;;9002226.02101,"123,56637 ",.01)
;;56637
;;9002226.02101,"123,56640 ",.01)
;;56640
;;9002226.02101,"123,56805 ",.01)
;;56805
;;9002226.02101,"123,58152 ",.01)
;;58152
;;9002226.02101,"123,58200 ",.01)
;;58200
;;9002226.02101,"123,58210 ",.01)
;;58210
;;9002226.02101,"123,58240 ",.01)
;;58240
;;9002226.02101,"123,58263 ",.01)
;;58263
;;9002226.02101,"123,58267 ",.01)
;;58267
;;9002226.02101,"123,58270 ",.01)
;;58270
;;9002226.02101,"123,58275 ",.01)
;;58275
;;9002226.02101,"123,58280 ",.01)
;;58280
;;9002226.02101,"123,58285 ",.01)
;;58285
;;9002226.02101,"123,58943 ",.01)
;;58943
;;9002226.02101,"123,58950 ",.01)
;;58950
;;9002226.02101,"123,58951 ",.01)
;;58951
;;9002226.02101,"123,58952 ",.01)
;;58952
;;9002226.02101,"123,59400 ",.01)
;;59400
;;9002226.02101,"123,59510 ",.01)
;;59510
;;9002226.02101,"123,59514 ",.01)
;;59514
;;9002226.02101,"123,59515 ",.01)
;;59515
;;9002226.02101,"123,60240 ",.01)
;;60240
;;9002226.02101,"123,60246 ",.01)
;;60246
;;9002226.02101,"123,60252 ",.01)
;;60252
;;9002226.02101,"123,60254 ",.01)
;;60254
;;9002226.02101,"123,60270 ",.01)
;;60270
;;9002226.02101,"123,60271 ",.01)
;;60271
;;9002226.02101,"123,60500 ",.01)
;;60500
;;9002226.02101,"123,60502 ",.01)
;;60502
;;9002226.02101,"123,60505 ",.01)
;;60505
;;9002226.02101,"123,60520 ",.01)
;;60520
;;9002226.02101,"123,60521 ",.01)
;;60521
;;9002226.02101,"123,60522 ",.01)
;;60522
;;9002226.02101,"123,60540 ",.01)
;;60540
;;9002226.02101,"123,60545 ",.01)
;;60545
;;9002226.02101,"123,60600 ",.01)
;;60600
;;9002226.02101,"123,60605 ",.01)
;;60605
;;9002226.02101,"123,61140 ",.01)
;;61140
;;9002226.02101,"123,61150 ",.01)
;;61150
;;9002226.02101,"123,61154 ",.01)
;;61154
;;9002226.02101,"123,61156 ",.01)
;;61156
;;9002226.02101,"123,61304 ",.01)
;;61304
;;9002226.02101,"123,61305 ",.01)
;;61305
;;9002226.02101,"123,61312 ",.01)
;;61312
;;9002226.02101,"123,61313 ",.01)
;;61313
;;9002226.02101,"123,61314 ",.01)
;;61314
;;9002226.02101,"123,61315 ",.01)
;;61315
;;9002226.02101,"123,61320 ",.01)
;;61320
;;9002226.02101,"123,61321 ",.01)
;;61321
;;9002226.02101,"123,61330 ",.01)
;;61330
;;9002226.02101,"123,61332 ",.01)
;;61332
;;9002226.02101,"123,61333 ",.01)
;;61333
;;9002226.02101,"123,61334 ",.01)
;;61334
;;9002226.02101,"123,61340 ",.01)
;;61340
;;9002226.02101,"123,61343 ",.01)
;;61343
;;9002226.02101,"123,61345 ",.01)
;;61345
;;9002226.02101,"123,61440 ",.01)
;;61440
;;9002226.02101,"123,61450 ",.01)
;;61450
;;9002226.02101,"123,61458 ",.01)
;;61458
;;9002226.02101,"123,61460 ",.01)
;;61460
;;9002226.02101,"123,61470 ",.01)
;;61470
;;9002226.02101,"123,61480 ",.01)
;;61480
;;9002226.02101,"123,61490 ",.01)
;;61490
;;9002226.02101,"123,61500 ",.01)
;;61500
;;9002226.02101,"123,61501 ",.01)
;;61501
;;9002226.02101,"123,61510 ",.01)
;;61510
;;9002226.02101,"123,61512 ",.01)
;;61512
;;9002226.02101,"123,61514 ",.01)
;;61514
;;9002226.02101,"123,61516 ",.01)
;;61516
;;9002226.02101,"123,61518 ",.01)
;;61518
;;9002226.02101,"123,61519 ",.01)
;;61519
;;9002226.02101,"123,61520 ",.01)
;;61520
BMCTXEO ; 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,51590 ",.01)
+2 ;;51590
+3 ;;9002226.02101,"123,51595 ",.01)
+4 ;;51595
+5 ;;9002226.02101,"123,51596 ",.01)
+6 ;;51596
+7 ;;9002226.02101,"123,51597 ",.01)
+8 ;;51597
+9 ;;9002226.02101,"123,51800 ",.01)
+10 ;;51800
+11 ;;9002226.02101,"123,51841 ",.01)
+12 ;;51841
+13 ;;9002226.02101,"123,51865 ",.01)
+14 ;;51865
+15 ;;9002226.02101,"123,51940 ",.01)
+16 ;;51940
+17 ;;9002226.02101,"123,51960 ",.01)
+18 ;;51960
+19 ;;9002226.02101,"123,53415 ",.01)
+20 ;;53415
+21 ;;9002226.02101,"123,53443 ",.01)
+22 ;;53443
+23 ;;9002226.02101,"123,53445 ",.01)
+24 ;;53445
+25 ;;9002226.02101,"123,54112 ",.01)
+26 ;;54112
+27 ;;9002226.02101,"123,54125 ",.01)
+28 ;;54125
+29 ;;9002226.02101,"123,54130 ",.01)
+30 ;;54130
+31 ;;9002226.02101,"123,54135 ",.01)
+32 ;;54135
+33 ;;9002226.02101,"123,54316 ",.01)
+34 ;;54316
+35 ;;9002226.02101,"123,54324 ",.01)
+36 ;;54324
+37 ;;9002226.02101,"123,54332 ",.01)
+38 ;;54332
+39 ;;9002226.02101,"123,54336 ",.01)
+40 ;;54336
+41 ;;9002226.02101,"123,54344 ",.01)
+42 ;;54344
+43 ;;9002226.02101,"123,54348 ",.01)
+44 ;;54348
+45 ;;9002226.02101,"123,54352 ",.01)
+46 ;;54352
+47 ;;9002226.02101,"123,54390 ",.01)
+48 ;;54390
+49 ;;9002226.02101,"123,54405 ",.01)
+50 ;;54405
+51 ;;9002226.02101,"123,54901 ",.01)
+52 ;;54901
+53 ;;9002226.02101,"123,55801 ",.01)
+54 ;;55801
+55 ;;9002226.02101,"123,55810 ",.01)
+56 ;;55810
+57 ;;9002226.02101,"123,55812 ",.01)
+58 ;;55812
+59 ;;9002226.02101,"123,55815 ",.01)
+60 ;;55815
+61 ;;9002226.02101,"123,55821 ",.01)
+62 ;;55821
+63 ;;9002226.02101,"123,55831 ",.01)
+64 ;;55831
+65 ;;9002226.02101,"123,55840 ",.01)
+66 ;;55840
+67 ;;9002226.02101,"123,55842 ",.01)
+68 ;;55842
+69 ;;9002226.02101,"123,55845 ",.01)
+70 ;;55845
+71 ;;9002226.02101,"123,55862 ",.01)
+72 ;;55862
+73 ;;9002226.02101,"123,55865 ",.01)
+74 ;;55865
+75 ;;9002226.02101,"123,56631 ",.01)
+76 ;;56631
+77 ;;9002226.02101,"123,56632 ",.01)
+78 ;;56632
+79 ;;9002226.02101,"123,56633 ",.01)
+80 ;;56633
+81 ;;9002226.02101,"123,56634 ",.01)
+82 ;;56634
+83 ;;9002226.02101,"123,56637 ",.01)
+84 ;;56637
+85 ;;9002226.02101,"123,56640 ",.01)
+86 ;;56640
+87 ;;9002226.02101,"123,56805 ",.01)
+88 ;;56805
+89 ;;9002226.02101,"123,58152 ",.01)
+90 ;;58152
+91 ;;9002226.02101,"123,58200 ",.01)
+92 ;;58200
+93 ;;9002226.02101,"123,58210 ",.01)
+94 ;;58210
+95 ;;9002226.02101,"123,58240 ",.01)
+96 ;;58240
+97 ;;9002226.02101,"123,58263 ",.01)
+98 ;;58263
+99 ;;9002226.02101,"123,58267 ",.01)
+100 ;;58267
+101 ;;9002226.02101,"123,58270 ",.01)
+102 ;;58270
+103 ;;9002226.02101,"123,58275 ",.01)
+104 ;;58275
+105 ;;9002226.02101,"123,58280 ",.01)
+106 ;;58280
+107 ;;9002226.02101,"123,58285 ",.01)
+108 ;;58285
+109 ;;9002226.02101,"123,58943 ",.01)
+110 ;;58943
+111 ;;9002226.02101,"123,58950 ",.01)
+112 ;;58950
+113 ;;9002226.02101,"123,58951 ",.01)
+114 ;;58951
+115 ;;9002226.02101,"123,58952 ",.01)
+116 ;;58952
+117 ;;9002226.02101,"123,59400 ",.01)
+118 ;;59400
+119 ;;9002226.02101,"123,59510 ",.01)
+120 ;;59510
+121 ;;9002226.02101,"123,59514 ",.01)
+122 ;;59514
+123 ;;9002226.02101,"123,59515 ",.01)
+124 ;;59515
+125 ;;9002226.02101,"123,60240 ",.01)
+126 ;;60240
+127 ;;9002226.02101,"123,60246 ",.01)
+128 ;;60246
+129 ;;9002226.02101,"123,60252 ",.01)
+130 ;;60252
+131 ;;9002226.02101,"123,60254 ",.01)
+132 ;;60254
+133 ;;9002226.02101,"123,60270 ",.01)
+134 ;;60270
+135 ;;9002226.02101,"123,60271 ",.01)
+136 ;;60271
+137 ;;9002226.02101,"123,60500 ",.01)
+138 ;;60500
+139 ;;9002226.02101,"123,60502 ",.01)
+140 ;;60502
+141 ;;9002226.02101,"123,60505 ",.01)
+142 ;;60505
+143 ;;9002226.02101,"123,60520 ",.01)
+144 ;;60520
+145 ;;9002226.02101,"123,60521 ",.01)
+146 ;;60521
+147 ;;9002226.02101,"123,60522 ",.01)
+148 ;;60522
+149 ;;9002226.02101,"123,60540 ",.01)
+150 ;;60540
+151 ;;9002226.02101,"123,60545 ",.01)
+152 ;;60545
+153 ;;9002226.02101,"123,60600 ",.01)
+154 ;;60600
+155 ;;9002226.02101,"123,60605 ",.01)
+156 ;;60605
+157 ;;9002226.02101,"123,61140 ",.01)
+158 ;;61140
+159 ;;9002226.02101,"123,61150 ",.01)
+160 ;;61150
+161 ;;9002226.02101,"123,61154 ",.01)
+162 ;;61154
+163 ;;9002226.02101,"123,61156 ",.01)
+164 ;;61156
+165 ;;9002226.02101,"123,61304 ",.01)
+166 ;;61304
+167 ;;9002226.02101,"123,61305 ",.01)
+168 ;;61305
+169 ;;9002226.02101,"123,61312 ",.01)
+170 ;;61312
+171 ;;9002226.02101,"123,61313 ",.01)
+172 ;;61313
+173 ;;9002226.02101,"123,61314 ",.01)
+174 ;;61314
+175 ;;9002226.02101,"123,61315 ",.01)
+176 ;;61315
+177 ;;9002226.02101,"123,61320 ",.01)
+178 ;;61320
+179 ;;9002226.02101,"123,61321 ",.01)
+180 ;;61321
+181 ;;9002226.02101,"123,61330 ",.01)
+182 ;;61330
+183 ;;9002226.02101,"123,61332 ",.01)
+184 ;;61332
+185 ;;9002226.02101,"123,61333 ",.01)
+186 ;;61333
+187 ;;9002226.02101,"123,61334 ",.01)
+188 ;;61334
+189 ;;9002226.02101,"123,61340 ",.01)
+190 ;;61340
+191 ;;9002226.02101,"123,61343 ",.01)
+192 ;;61343
+193 ;;9002226.02101,"123,61345 ",.01)
+194 ;;61345
+195 ;;9002226.02101,"123,61440 ",.01)
+196 ;;61440
+197 ;;9002226.02101,"123,61450 ",.01)
+198 ;;61450
+199 ;;9002226.02101,"123,61458 ",.01)
+200 ;;61458
+201 ;;9002226.02101,"123,61460 ",.01)
+202 ;;61460
+203 ;;9002226.02101,"123,61470 ",.01)
+204 ;;61470
+205 ;;9002226.02101,"123,61480 ",.01)
+206 ;;61480
+207 ;;9002226.02101,"123,61490 ",.01)
+208 ;;61490
+209 ;;9002226.02101,"123,61500 ",.01)
+210 ;;61500
+211 ;;9002226.02101,"123,61501 ",.01)
+212 ;;61501
+213 ;;9002226.02101,"123,61510 ",.01)
+214 ;;61510
+215 ;;9002226.02101,"123,61512 ",.01)
+216 ;;61512
+217 ;;9002226.02101,"123,61514 ",.01)
+218 ;;61514
+219 ;;9002226.02101,"123,61516 ",.01)
+220 ;;61516
+221 ;;9002226.02101,"123,61518 ",.01)
+222 ;;61518
+223 ;;9002226.02101,"123,61519 ",.01)
+224 ;;61519
+225 ;;9002226.02101,"123,61520 ",.01)
+226 ;;61520
