BMCTXEP ; 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,61521 ",.01)
;;61521
;;9002226.02101,"123,61522 ",.01)
;;61522
;;9002226.02101,"123,61524 ",.01)
;;61524
;;9002226.02101,"123,61526 ",.01)
;;61526
;;9002226.02101,"123,61530 ",.01)
;;61530
;;9002226.02101,"123,61531 ",.01)
;;61531
;;9002226.02101,"123,61533 ",.01)
;;61533
;;9002226.02101,"123,61534 ",.01)
;;61534
;;9002226.02101,"123,61536 ",.01)
;;61536
;;9002226.02101,"123,61538 ",.01)
;;61538
;;9002226.02101,"123,61539 ",.01)
;;61539
;;9002226.02101,"123,61541 ",.01)
;;61541
;;9002226.02101,"123,61542 ",.01)
;;61542
;;9002226.02101,"123,61543 ",.01)
;;61543
;;9002226.02101,"123,61544 ",.01)
;;61544
;;9002226.02101,"123,61545 ",.01)
;;61545
;;9002226.02101,"123,61546 ",.01)
;;61546
;;9002226.02101,"123,61548 ",.01)
;;61548
;;9002226.02101,"123,61550 ",.01)
;;61550
;;9002226.02101,"123,61552 ",.01)
;;61552
;;9002226.02101,"123,61556 ",.01)
;;61556
;;9002226.02101,"123,61557 ",.01)
;;61557
;;9002226.02101,"123,61558 ",.01)
;;61558
;;9002226.02101,"123,61559 ",.01)
;;61559
;;9002226.02101,"123,61563 ",.01)
;;61563
;;9002226.02101,"123,61564 ",.01)
;;61564
;;9002226.02101,"123,61570 ",.01)
;;61570
;;9002226.02101,"123,61571 ",.01)
;;61571
;;9002226.02101,"123,61575 ",.01)
;;61575
;;9002226.02101,"123,61576 ",.01)
;;61576
;;9002226.02101,"123,61580 ",.01)
;;61580
;;9002226.02101,"123,61581 ",.01)
;;61581
;;9002226.02101,"123,61582 ",.01)
;;61582
;;9002226.02101,"123,61583 ",.01)
;;61583
;;9002226.02101,"123,61584 ",.01)
;;61584
;;9002226.02101,"123,61585 ",.01)
;;61585
;;9002226.02101,"123,61590 ",.01)
;;61590
;;9002226.02101,"123,61591 ",.01)
;;61591
;;9002226.02101,"123,61592 ",.01)
;;61592
;;9002226.02101,"123,61595 ",.01)
;;61595
;;9002226.02101,"123,61596 ",.01)
;;61596
;;9002226.02101,"123,61597 ",.01)
;;61597
;;9002226.02101,"123,61598 ",.01)
;;61598
;;9002226.02101,"123,61600 ",.01)
;;61600
;;9002226.02101,"123,61601 ",.01)
;;61601
;;9002226.02101,"123,61605 ",.01)
;;61605
;;9002226.02101,"123,61606 ",.01)
;;61606
;;9002226.02101,"123,61607 ",.01)
;;61607
;;9002226.02101,"123,61608 ",.01)
;;61608
;;9002226.02101,"123,61610 ",.01)
;;61610
;;9002226.02101,"123,61612 ",.01)
;;61612
;;9002226.02101,"123,61613 ",.01)
;;61613
;;9002226.02101,"123,61615 ",.01)
;;61615
;;9002226.02101,"123,61616 ",.01)
;;61616
;;9002226.02101,"123,61618 ",.01)
;;61618
;;9002226.02101,"123,61619 ",.01)
;;61619
;;9002226.02101,"123,61624 ",.01)
;;61624
;;9002226.02101,"123,61626 ",.01)
;;61626
;;9002226.02101,"123,61680 ",.01)
;;61680
;;9002226.02101,"123,61682 ",.01)
;;61682
;;9002226.02101,"123,61684 ",.01)
;;61684
;;9002226.02101,"123,61686 ",.01)
;;61686
;;9002226.02101,"123,61690 ",.01)
;;61690
;;9002226.02101,"123,61692 ",.01)
;;61692
;;9002226.02101,"123,61700 ",.01)
;;61700
;;9002226.02101,"123,61702 ",.01)
;;61702
;;9002226.02101,"123,61703 ",.01)
;;61703
;;9002226.02101,"123,61705 ",.01)
;;61705
;;9002226.02101,"123,61708 ",.01)
;;61708
;;9002226.02101,"123,61710 ",.01)
;;61710
;;9002226.02101,"123,61711 ",.01)
;;61711
;;9002226.02101,"123,61720 ",.01)
;;61720
;;9002226.02101,"123,61735 ",.01)
;;61735
;;9002226.02101,"123,61750 ",.01)
;;61750
;;9002226.02101,"123,61751 ",.01)
;;61751
;;9002226.02101,"123,61760 ",.01)
;;61760
;;9002226.02101,"123,61770 ",.01)
;;61770
;;9002226.02101,"123,61793 ",.01)
;;61793
;;9002226.02101,"123,61850 ",.01)
;;61850
;;9002226.02101,"123,61865 ",.01)
;;61865
;;9002226.02101,"123,62005 ",.01)
;;62005
;;9002226.02101,"123,62010 ",.01)
;;62010
;;9002226.02101,"123,62100 ",.01)
;;62100
;;9002226.02101,"123,62115 ",.01)
;;62115
;;9002226.02101,"123,62116 ",.01)
;;62116
;;9002226.02101,"123,62117 ",.01)
;;62117
;;9002226.02101,"123,62120 ",.01)
;;62120
;;9002226.02101,"123,62121 ",.01)
;;62121
;;9002226.02101,"123,62140 ",.01)
;;62140
;;9002226.02101,"123,62141 ",.01)
;;62141
;;9002226.02101,"123,62142 ",.01)
;;62142
;;9002226.02101,"123,62145 ",.01)
;;62145
;;9002226.02101,"123,62146 ",.01)
;;62146
;;9002226.02101,"123,62147 ",.01)
;;62147
;;9002226.02101,"123,62180 ",.01)
;;62180
;;9002226.02101,"123,62192 ",.01)
;;62192
;;9002226.02101,"123,62200 ",.01)
;;62200
;;9002226.02101,"123,62220 ",.01)
;;62220
;;9002226.02101,"123,62223 ",.01)
;;62223
;;9002226.02101,"123,62258 ",.01)
;;62258
;;9002226.02101,"123,63001 ",.01)
;;63001
;;9002226.02101,"123,63003 ",.01)
;;63003
;;9002226.02101,"123,63005 ",.01)
;;63005
;;9002226.02101,"123,63012 ",.01)
;;63012
;;9002226.02101,"123,63015 ",.01)
;;63015
;;9002226.02101,"123,63016 ",.01)
;;63016
;;9002226.02101,"123,63017 ",.01)
;;63017
;;9002226.02101,"123,63020 ",.01)
;;63020
;;9002226.02101,"123,63030 ",.01)
;;63030
;;9002226.02101,"123,63040 ",.01)
;;63040
;;9002226.02101,"123,63042 ",.01)
;;63042
;;9002226.02101,"123,63045 ",.01)
;;63045
;;9002226.02101,"123,63046 ",.01)
;;63046
BMCTXEP ; 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,61521 ",.01)
+2 ;;61521
+3 ;;9002226.02101,"123,61522 ",.01)
+4 ;;61522
+5 ;;9002226.02101,"123,61524 ",.01)
+6 ;;61524
+7 ;;9002226.02101,"123,61526 ",.01)
+8 ;;61526
+9 ;;9002226.02101,"123,61530 ",.01)
+10 ;;61530
+11 ;;9002226.02101,"123,61531 ",.01)
+12 ;;61531
+13 ;;9002226.02101,"123,61533 ",.01)
+14 ;;61533
+15 ;;9002226.02101,"123,61534 ",.01)
+16 ;;61534
+17 ;;9002226.02101,"123,61536 ",.01)
+18 ;;61536
+19 ;;9002226.02101,"123,61538 ",.01)
+20 ;;61538
+21 ;;9002226.02101,"123,61539 ",.01)
+22 ;;61539
+23 ;;9002226.02101,"123,61541 ",.01)
+24 ;;61541
+25 ;;9002226.02101,"123,61542 ",.01)
+26 ;;61542
+27 ;;9002226.02101,"123,61543 ",.01)
+28 ;;61543
+29 ;;9002226.02101,"123,61544 ",.01)
+30 ;;61544
+31 ;;9002226.02101,"123,61545 ",.01)
+32 ;;61545
+33 ;;9002226.02101,"123,61546 ",.01)
+34 ;;61546
+35 ;;9002226.02101,"123,61548 ",.01)
+36 ;;61548
+37 ;;9002226.02101,"123,61550 ",.01)
+38 ;;61550
+39 ;;9002226.02101,"123,61552 ",.01)
+40 ;;61552
+41 ;;9002226.02101,"123,61556 ",.01)
+42 ;;61556
+43 ;;9002226.02101,"123,61557 ",.01)
+44 ;;61557
+45 ;;9002226.02101,"123,61558 ",.01)
+46 ;;61558
+47 ;;9002226.02101,"123,61559 ",.01)
+48 ;;61559
+49 ;;9002226.02101,"123,61563 ",.01)
+50 ;;61563
+51 ;;9002226.02101,"123,61564 ",.01)
+52 ;;61564
+53 ;;9002226.02101,"123,61570 ",.01)
+54 ;;61570
+55 ;;9002226.02101,"123,61571 ",.01)
+56 ;;61571
+57 ;;9002226.02101,"123,61575 ",.01)
+58 ;;61575
+59 ;;9002226.02101,"123,61576 ",.01)
+60 ;;61576
+61 ;;9002226.02101,"123,61580 ",.01)
+62 ;;61580
+63 ;;9002226.02101,"123,61581 ",.01)
+64 ;;61581
+65 ;;9002226.02101,"123,61582 ",.01)
+66 ;;61582
+67 ;;9002226.02101,"123,61583 ",.01)
+68 ;;61583
+69 ;;9002226.02101,"123,61584 ",.01)
+70 ;;61584
+71 ;;9002226.02101,"123,61585 ",.01)
+72 ;;61585
+73 ;;9002226.02101,"123,61590 ",.01)
+74 ;;61590
+75 ;;9002226.02101,"123,61591 ",.01)
+76 ;;61591
+77 ;;9002226.02101,"123,61592 ",.01)
+78 ;;61592
+79 ;;9002226.02101,"123,61595 ",.01)
+80 ;;61595
+81 ;;9002226.02101,"123,61596 ",.01)
+82 ;;61596
+83 ;;9002226.02101,"123,61597 ",.01)
+84 ;;61597
+85 ;;9002226.02101,"123,61598 ",.01)
+86 ;;61598
+87 ;;9002226.02101,"123,61600 ",.01)
+88 ;;61600
+89 ;;9002226.02101,"123,61601 ",.01)
+90 ;;61601
+91 ;;9002226.02101,"123,61605 ",.01)
+92 ;;61605
+93 ;;9002226.02101,"123,61606 ",.01)
+94 ;;61606
+95 ;;9002226.02101,"123,61607 ",.01)
+96 ;;61607
+97 ;;9002226.02101,"123,61608 ",.01)
+98 ;;61608
+99 ;;9002226.02101,"123,61610 ",.01)
+100 ;;61610
+101 ;;9002226.02101,"123,61612 ",.01)
+102 ;;61612
+103 ;;9002226.02101,"123,61613 ",.01)
+104 ;;61613
+105 ;;9002226.02101,"123,61615 ",.01)
+106 ;;61615
+107 ;;9002226.02101,"123,61616 ",.01)
+108 ;;61616
+109 ;;9002226.02101,"123,61618 ",.01)
+110 ;;61618
+111 ;;9002226.02101,"123,61619 ",.01)
+112 ;;61619
+113 ;;9002226.02101,"123,61624 ",.01)
+114 ;;61624
+115 ;;9002226.02101,"123,61626 ",.01)
+116 ;;61626
+117 ;;9002226.02101,"123,61680 ",.01)
+118 ;;61680
+119 ;;9002226.02101,"123,61682 ",.01)
+120 ;;61682
+121 ;;9002226.02101,"123,61684 ",.01)
+122 ;;61684
+123 ;;9002226.02101,"123,61686 ",.01)
+124 ;;61686
+125 ;;9002226.02101,"123,61690 ",.01)
+126 ;;61690
+127 ;;9002226.02101,"123,61692 ",.01)
+128 ;;61692
+129 ;;9002226.02101,"123,61700 ",.01)
+130 ;;61700
+131 ;;9002226.02101,"123,61702 ",.01)
+132 ;;61702
+133 ;;9002226.02101,"123,61703 ",.01)
+134 ;;61703
+135 ;;9002226.02101,"123,61705 ",.01)
+136 ;;61705
+137 ;;9002226.02101,"123,61708 ",.01)
+138 ;;61708
+139 ;;9002226.02101,"123,61710 ",.01)
+140 ;;61710
+141 ;;9002226.02101,"123,61711 ",.01)
+142 ;;61711
+143 ;;9002226.02101,"123,61720 ",.01)
+144 ;;61720
+145 ;;9002226.02101,"123,61735 ",.01)
+146 ;;61735
+147 ;;9002226.02101,"123,61750 ",.01)
+148 ;;61750
+149 ;;9002226.02101,"123,61751 ",.01)
+150 ;;61751
+151 ;;9002226.02101,"123,61760 ",.01)
+152 ;;61760
+153 ;;9002226.02101,"123,61770 ",.01)
+154 ;;61770
+155 ;;9002226.02101,"123,61793 ",.01)
+156 ;;61793
+157 ;;9002226.02101,"123,61850 ",.01)
+158 ;;61850
+159 ;;9002226.02101,"123,61865 ",.01)
+160 ;;61865
+161 ;;9002226.02101,"123,62005 ",.01)
+162 ;;62005
+163 ;;9002226.02101,"123,62010 ",.01)
+164 ;;62010
+165 ;;9002226.02101,"123,62100 ",.01)
+166 ;;62100
+167 ;;9002226.02101,"123,62115 ",.01)
+168 ;;62115
+169 ;;9002226.02101,"123,62116 ",.01)
+170 ;;62116
+171 ;;9002226.02101,"123,62117 ",.01)
+172 ;;62117
+173 ;;9002226.02101,"123,62120 ",.01)
+174 ;;62120
+175 ;;9002226.02101,"123,62121 ",.01)
+176 ;;62121
+177 ;;9002226.02101,"123,62140 ",.01)
+178 ;;62140
+179 ;;9002226.02101,"123,62141 ",.01)
+180 ;;62141
+181 ;;9002226.02101,"123,62142 ",.01)
+182 ;;62142
+183 ;;9002226.02101,"123,62145 ",.01)
+184 ;;62145
+185 ;;9002226.02101,"123,62146 ",.01)
+186 ;;62146
+187 ;;9002226.02101,"123,62147 ",.01)
+188 ;;62147
+189 ;;9002226.02101,"123,62180 ",.01)
+190 ;;62180
+191 ;;9002226.02101,"123,62192 ",.01)
+192 ;;62192
+193 ;;9002226.02101,"123,62200 ",.01)
+194 ;;62200
+195 ;;9002226.02101,"123,62220 ",.01)
+196 ;;62220
+197 ;;9002226.02101,"123,62223 ",.01)
+198 ;;62223
+199 ;;9002226.02101,"123,62258 ",.01)
+200 ;;62258
+201 ;;9002226.02101,"123,63001 ",.01)
+202 ;;63001
+203 ;;9002226.02101,"123,63003 ",.01)
+204 ;;63003
+205 ;;9002226.02101,"123,63005 ",.01)
+206 ;;63005
+207 ;;9002226.02101,"123,63012 ",.01)
+208 ;;63012
+209 ;;9002226.02101,"123,63015 ",.01)
+210 ;;63015
+211 ;;9002226.02101,"123,63016 ",.01)
+212 ;;63016
+213 ;;9002226.02101,"123,63017 ",.01)
+214 ;;63017
+215 ;;9002226.02101,"123,63020 ",.01)
+216 ;;63020
+217 ;;9002226.02101,"123,63030 ",.01)
+218 ;;63030
+219 ;;9002226.02101,"123,63040 ",.01)
+220 ;;63040
+221 ;;9002226.02101,"123,63042 ",.01)
+222 ;;63042
+223 ;;9002226.02101,"123,63045 ",.01)
+224 ;;63045
+225 ;;9002226.02101,"123,63046 ",.01)
+226 ;;63046
