BMCTXEI ; 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,26580 ",.01)
;;26580
;;9002226.02101,"123,26585 ",.01)
;;26585
;;9002226.02101,"123,26590 ",.01)
;;26590
;;9002226.02101,"123,27035 ",.01)
;;27035
;;9002226.02101,"123,27054 ",.01)
;;27054
;;9002226.02101,"123,27075 ",.01)
;;27075
;;9002226.02101,"123,27076 ",.01)
;;27076
;;9002226.02101,"123,27077 ",.01)
;;27077
;;9002226.02101,"123,27091 ",.01)
;;27091
;;9002226.02101,"123,27120 ",.01)
;;27120
;;9002226.02101,"123,27122 ",.01)
;;27122
;;9002226.02101,"123,27125 ",.01)
;;27125
;;9002226.02101,"123,27130 ",.01)
;;27130
;;9002226.02101,"123,27132 ",.01)
;;27132
;;9002226.02101,"123,27134 ",.01)
;;27134
;;9002226.02101,"123,27137 ",.01)
;;27137
;;9002226.02101,"123,27138 ",.01)
;;27138
;;9002226.02101,"123,27147 ",.01)
;;27147
;;9002226.02101,"123,27151 ",.01)
;;27151
;;9002226.02101,"123,27156 ",.01)
;;27156
;;9002226.02101,"123,27158 ",.01)
;;27158
;;9002226.02101,"123,27161 ",.01)
;;27161
;;9002226.02101,"123,27165 ",.01)
;;27165
;;9002226.02101,"123,27170 ",.01)
;;27170
;;9002226.02101,"123,27177 ",.01)
;;27177
;;9002226.02101,"123,27181 ",.01)
;;27181
;;9002226.02101,"123,27187 ",.01)
;;27187
;;9002226.02101,"123,27217 ",.01)
;;27217
;;9002226.02101,"123,27218 ",.01)
;;27218
;;9002226.02101,"123,27226 ",.01)
;;27226
;;9002226.02101,"123,27227 ",.01)
;;27227
;;9002226.02101,"123,27228 ",.01)
;;27228
;;9002226.02101,"123,27235 ",.01)
;;27235
;;9002226.02101,"123,27236 ",.01)
;;27236
;;9002226.02101,"123,27244 ",.01)
;;27244
;;9002226.02101,"123,27245 ",.01)
;;27245
;;9002226.02101,"123,27253 ",.01)
;;27253
;;9002226.02101,"123,27254 ",.01)
;;27254
;;9002226.02101,"123,27258 ",.01)
;;27258
;;9002226.02101,"123,27259 ",.01)
;;27259
;;9002226.02101,"123,27284 ",.01)
;;27284
;;9002226.02101,"123,27286 ",.01)
;;27286
;;9002226.02101,"123,27290 ",.01)
;;27290
;;9002226.02101,"123,27295 ",.01)
;;27295
;;9002226.02101,"123,27365 ",.01)
;;27365
;;9002226.02101,"123,27409 ",.01)
;;27409
;;9002226.02101,"123,27442 ",.01)
;;27442
;;9002226.02101,"123,27443 ",.01)
;;27443
;;9002226.02101,"123,27445 ",.01)
;;27445
;;9002226.02101,"123,27446 ",.01)
;;27446
;;9002226.02101,"123,27447 ",.01)
;;27447
;;9002226.02101,"123,27450 ",.01)
;;27450
;;9002226.02101,"123,27454 ",.01)
;;27454
;;9002226.02101,"123,27455 ",.01)
;;27455
;;9002226.02101,"123,27457 ",.01)
;;27457
;;9002226.02101,"123,27466 ",.01)
;;27466
;;9002226.02101,"123,27468 ",.01)
;;27468
;;9002226.02101,"123,27470 ",.01)
;;27470
;;9002226.02101,"123,27472 ",.01)
;;27472
;;9002226.02101,"123,27486 ",.01)
;;27486
;;9002226.02101,"123,27487 ",.01)
;;27487
;;9002226.02101,"123,27488 ",.01)
;;27488
;;9002226.02101,"123,27495 ",.01)
;;27495
;;9002226.02101,"123,27506 ",.01)
;;27506
;;9002226.02101,"123,27507 ",.01)
;;27507
;;9002226.02101,"123,27511 ",.01)
;;27511
;;9002226.02101,"123,27513 ",.01)
;;27513
;;9002226.02101,"123,27514 ",.01)
;;27514
;;9002226.02101,"123,27519 ",.01)
;;27519
;;9002226.02101,"123,27536 ",.01)
;;27536
;;9002226.02101,"123,27556 ",.01)
;;27556
;;9002226.02101,"123,27557 ",.01)
;;27557
;;9002226.02101,"123,27558 ",.01)
;;27558
;;9002226.02101,"123,27580 ",.01)
;;27580
;;9002226.02101,"123,27591 ",.01)
;;27591
;;9002226.02101,"123,27645 ",.01)
;;27645
;;9002226.02101,"123,27702 ",.01)
;;27702
;;9002226.02101,"123,27703 ",.01)
;;27703
;;9002226.02101,"123,27715 ",.01)
;;27715
;;9002226.02101,"123,27724 ",.01)
;;27724
;;9002226.02101,"123,27758 ",.01)
;;27758
;;9002226.02101,"123,27759 ",.01)
;;27759
;;9002226.02101,"123,27870 ",.01)
;;27870
;;9002226.02101,"123,28420 ",.01)
;;28420
;;9002226.02101,"123,28705 ",.01)
;;28705
;;9002226.02101,"123,28715 ",.01)
;;28715
;;9002226.02101,"123,29882 ",.01)
;;29882
;;9002226.02101,"123,29888 ",.01)
;;29888
;;9002226.02101,"123,30410 ",.01)
;;30410
;;9002226.02101,"123,30420 ",.01)
;;30420
;;9002226.02101,"123,30450 ",.01)
;;30450
;;9002226.02101,"123,30462 ",.01)
;;30462
;;9002226.02101,"123,31084 ",.01)
;;31084
;;9002226.02101,"123,31085 ",.01)
;;31085
;;9002226.02101,"123,31090 ",.01)
;;31090
;;9002226.02101,"123,31225 ",.01)
;;31225
;;9002226.02101,"123,31230 ",.01)
;;31230
;;9002226.02101,"123,31290 ",.01)
;;31290
;;9002226.02101,"123,31291 ",.01)
;;31291
;;9002226.02101,"123,31293 ",.01)
;;31293
;;9002226.02101,"123,31294 ",.01)
;;31294
;;9002226.02101,"123,31360 ",.01)
;;31360
;;9002226.02101,"123,31365 ",.01)
;;31365
;;9002226.02101,"123,31367 ",.01)
;;31367
;;9002226.02101,"123,31368 ",.01)
;;31368
;;9002226.02101,"123,31370 ",.01)
;;31370
;;9002226.02101,"123,31375 ",.01)
;;31375
;;9002226.02101,"123,31380 ",.01)
;;31380
;;9002226.02101,"123,31382 ",.01)
;;31382
;;9002226.02101,"123,31390 ",.01)
;;31390
;;9002226.02101,"123,31395 ",.01)
;;31395
;;9002226.02101,"123,31582 ",.01)
;;31582
;;9002226.02101,"123,31584 ",.01)
;;31584
BMCTXEI ; 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,26580 ",.01)
+2 ;;26580
+3 ;;9002226.02101,"123,26585 ",.01)
+4 ;;26585
+5 ;;9002226.02101,"123,26590 ",.01)
+6 ;;26590
+7 ;;9002226.02101,"123,27035 ",.01)
+8 ;;27035
+9 ;;9002226.02101,"123,27054 ",.01)
+10 ;;27054
+11 ;;9002226.02101,"123,27075 ",.01)
+12 ;;27075
+13 ;;9002226.02101,"123,27076 ",.01)
+14 ;;27076
+15 ;;9002226.02101,"123,27077 ",.01)
+16 ;;27077
+17 ;;9002226.02101,"123,27091 ",.01)
+18 ;;27091
+19 ;;9002226.02101,"123,27120 ",.01)
+20 ;;27120
+21 ;;9002226.02101,"123,27122 ",.01)
+22 ;;27122
+23 ;;9002226.02101,"123,27125 ",.01)
+24 ;;27125
+25 ;;9002226.02101,"123,27130 ",.01)
+26 ;;27130
+27 ;;9002226.02101,"123,27132 ",.01)
+28 ;;27132
+29 ;;9002226.02101,"123,27134 ",.01)
+30 ;;27134
+31 ;;9002226.02101,"123,27137 ",.01)
+32 ;;27137
+33 ;;9002226.02101,"123,27138 ",.01)
+34 ;;27138
+35 ;;9002226.02101,"123,27147 ",.01)
+36 ;;27147
+37 ;;9002226.02101,"123,27151 ",.01)
+38 ;;27151
+39 ;;9002226.02101,"123,27156 ",.01)
+40 ;;27156
+41 ;;9002226.02101,"123,27158 ",.01)
+42 ;;27158
+43 ;;9002226.02101,"123,27161 ",.01)
+44 ;;27161
+45 ;;9002226.02101,"123,27165 ",.01)
+46 ;;27165
+47 ;;9002226.02101,"123,27170 ",.01)
+48 ;;27170
+49 ;;9002226.02101,"123,27177 ",.01)
+50 ;;27177
+51 ;;9002226.02101,"123,27181 ",.01)
+52 ;;27181
+53 ;;9002226.02101,"123,27187 ",.01)
+54 ;;27187
+55 ;;9002226.02101,"123,27217 ",.01)
+56 ;;27217
+57 ;;9002226.02101,"123,27218 ",.01)
+58 ;;27218
+59 ;;9002226.02101,"123,27226 ",.01)
+60 ;;27226
+61 ;;9002226.02101,"123,27227 ",.01)
+62 ;;27227
+63 ;;9002226.02101,"123,27228 ",.01)
+64 ;;27228
+65 ;;9002226.02101,"123,27235 ",.01)
+66 ;;27235
+67 ;;9002226.02101,"123,27236 ",.01)
+68 ;;27236
+69 ;;9002226.02101,"123,27244 ",.01)
+70 ;;27244
+71 ;;9002226.02101,"123,27245 ",.01)
+72 ;;27245
+73 ;;9002226.02101,"123,27253 ",.01)
+74 ;;27253
+75 ;;9002226.02101,"123,27254 ",.01)
+76 ;;27254
+77 ;;9002226.02101,"123,27258 ",.01)
+78 ;;27258
+79 ;;9002226.02101,"123,27259 ",.01)
+80 ;;27259
+81 ;;9002226.02101,"123,27284 ",.01)
+82 ;;27284
+83 ;;9002226.02101,"123,27286 ",.01)
+84 ;;27286
+85 ;;9002226.02101,"123,27290 ",.01)
+86 ;;27290
+87 ;;9002226.02101,"123,27295 ",.01)
+88 ;;27295
+89 ;;9002226.02101,"123,27365 ",.01)
+90 ;;27365
+91 ;;9002226.02101,"123,27409 ",.01)
+92 ;;27409
+93 ;;9002226.02101,"123,27442 ",.01)
+94 ;;27442
+95 ;;9002226.02101,"123,27443 ",.01)
+96 ;;27443
+97 ;;9002226.02101,"123,27445 ",.01)
+98 ;;27445
+99 ;;9002226.02101,"123,27446 ",.01)
+100 ;;27446
+101 ;;9002226.02101,"123,27447 ",.01)
+102 ;;27447
+103 ;;9002226.02101,"123,27450 ",.01)
+104 ;;27450
+105 ;;9002226.02101,"123,27454 ",.01)
+106 ;;27454
+107 ;;9002226.02101,"123,27455 ",.01)
+108 ;;27455
+109 ;;9002226.02101,"123,27457 ",.01)
+110 ;;27457
+111 ;;9002226.02101,"123,27466 ",.01)
+112 ;;27466
+113 ;;9002226.02101,"123,27468 ",.01)
+114 ;;27468
+115 ;;9002226.02101,"123,27470 ",.01)
+116 ;;27470
+117 ;;9002226.02101,"123,27472 ",.01)
+118 ;;27472
+119 ;;9002226.02101,"123,27486 ",.01)
+120 ;;27486
+121 ;;9002226.02101,"123,27487 ",.01)
+122 ;;27487
+123 ;;9002226.02101,"123,27488 ",.01)
+124 ;;27488
+125 ;;9002226.02101,"123,27495 ",.01)
+126 ;;27495
+127 ;;9002226.02101,"123,27506 ",.01)
+128 ;;27506
+129 ;;9002226.02101,"123,27507 ",.01)
+130 ;;27507
+131 ;;9002226.02101,"123,27511 ",.01)
+132 ;;27511
+133 ;;9002226.02101,"123,27513 ",.01)
+134 ;;27513
+135 ;;9002226.02101,"123,27514 ",.01)
+136 ;;27514
+137 ;;9002226.02101,"123,27519 ",.01)
+138 ;;27519
+139 ;;9002226.02101,"123,27536 ",.01)
+140 ;;27536
+141 ;;9002226.02101,"123,27556 ",.01)
+142 ;;27556
+143 ;;9002226.02101,"123,27557 ",.01)
+144 ;;27557
+145 ;;9002226.02101,"123,27558 ",.01)
+146 ;;27558
+147 ;;9002226.02101,"123,27580 ",.01)
+148 ;;27580
+149 ;;9002226.02101,"123,27591 ",.01)
+150 ;;27591
+151 ;;9002226.02101,"123,27645 ",.01)
+152 ;;27645
+153 ;;9002226.02101,"123,27702 ",.01)
+154 ;;27702
+155 ;;9002226.02101,"123,27703 ",.01)
+156 ;;27703
+157 ;;9002226.02101,"123,27715 ",.01)
+158 ;;27715
+159 ;;9002226.02101,"123,27724 ",.01)
+160 ;;27724
+161 ;;9002226.02101,"123,27758 ",.01)
+162 ;;27758
+163 ;;9002226.02101,"123,27759 ",.01)
+164 ;;27759
+165 ;;9002226.02101,"123,27870 ",.01)
+166 ;;27870
+167 ;;9002226.02101,"123,28420 ",.01)
+168 ;;28420
+169 ;;9002226.02101,"123,28705 ",.01)
+170 ;;28705
+171 ;;9002226.02101,"123,28715 ",.01)
+172 ;;28715
+173 ;;9002226.02101,"123,29882 ",.01)
+174 ;;29882
+175 ;;9002226.02101,"123,29888 ",.01)
+176 ;;29888
+177 ;;9002226.02101,"123,30410 ",.01)
+178 ;;30410
+179 ;;9002226.02101,"123,30420 ",.01)
+180 ;;30420
+181 ;;9002226.02101,"123,30450 ",.01)
+182 ;;30450
+183 ;;9002226.02101,"123,30462 ",.01)
+184 ;;30462
+185 ;;9002226.02101,"123,31084 ",.01)
+186 ;;31084
+187 ;;9002226.02101,"123,31085 ",.01)
+188 ;;31085
+189 ;;9002226.02101,"123,31090 ",.01)
+190 ;;31090
+191 ;;9002226.02101,"123,31225 ",.01)
+192 ;;31225
+193 ;;9002226.02101,"123,31230 ",.01)
+194 ;;31230
+195 ;;9002226.02101,"123,31290 ",.01)
+196 ;;31290
+197 ;;9002226.02101,"123,31291 ",.01)
+198 ;;31291
+199 ;;9002226.02101,"123,31293 ",.01)
+200 ;;31293
+201 ;;9002226.02101,"123,31294 ",.01)
+202 ;;31294
+203 ;;9002226.02101,"123,31360 ",.01)
+204 ;;31360
+205 ;;9002226.02101,"123,31365 ",.01)
+206 ;;31365
+207 ;;9002226.02101,"123,31367 ",.01)
+208 ;;31367
+209 ;;9002226.02101,"123,31368 ",.01)
+210 ;;31368
+211 ;;9002226.02101,"123,31370 ",.01)
+212 ;;31370
+213 ;;9002226.02101,"123,31375 ",.01)
+214 ;;31375
+215 ;;9002226.02101,"123,31380 ",.01)
+216 ;;31380
+217 ;;9002226.02101,"123,31382 ",.01)
+218 ;;31382
+219 ;;9002226.02101,"123,31390 ",.01)
+220 ;;31390
+221 ;;9002226.02101,"123,31395 ",.01)
+222 ;;31395
+223 ;;9002226.02101,"123,31582 ",.01)
+224 ;;31582
+225 ;;9002226.02101,"123,31584 ",.01)
+226 ;;31584
