BMCTXEN ; 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,46740 ",.01)
;;46740
;;9002226.02101,"123,46742 ",.01)
;;46742
;;9002226.02101,"123,46744 ",.01)
;;46744
;;9002226.02101,"123,46746 ",.01)
;;46746
;;9002226.02101,"123,46748 ",.01)
;;46748
;;9002226.02101,"123,47120 ",.01)
;;47120
;;9002226.02101,"123,47122 ",.01)
;;47122
;;9002226.02101,"123,47125 ",.01)
;;47125
;;9002226.02101,"123,47130 ",.01)
;;47130
;;9002226.02101,"123,47134 ",.01)
;;47134
;;9002226.02101,"123,47135 ",.01)
;;47135
;;9002226.02101,"123,47136 ",.01)
;;47136
;;9002226.02101,"123,47360 ",.01)
;;47360
;;9002226.02101,"123,47400 ",.01)
;;47400
;;9002226.02101,"123,47420 ",.01)
;;47420
;;9002226.02101,"123,47425 ",.01)
;;47425
;;9002226.02101,"123,47440 ",.01)
;;47440
;;9002226.02101,"123,47460 ",.01)
;;47460
;;9002226.02101,"123,47612 ",.01)
;;47612
;;9002226.02101,"123,47620 ",.01)
;;47620
;;9002226.02101,"123,47701 ",.01)
;;47701
;;9002226.02101,"123,47710 ",.01)
;;47710
;;9002226.02101,"123,47711 ",.01)
;;47711
;;9002226.02101,"123,47712 ",.01)
;;47712
;;9002226.02101,"123,47721 ",.01)
;;47721
;;9002226.02101,"123,47740 ",.01)
;;47740
;;9002226.02101,"123,47741 ",.01)
;;47741
;;9002226.02101,"123,47760 ",.01)
;;47760
;;9002226.02101,"123,47765 ",.01)
;;47765
;;9002226.02101,"123,47780 ",.01)
;;47780
;;9002226.02101,"123,47785 ",.01)
;;47785
;;9002226.02101,"123,47800 ",.01)
;;47800
;;9002226.02101,"123,47802 ",.01)
;;47802
;;9002226.02101,"123,47900 ",.01)
;;47900
;;9002226.02101,"123,48005 ",.01)
;;48005
;;9002226.02101,"123,48120 ",.01)
;;48120
;;9002226.02101,"123,48140 ",.01)
;;48140
;;9002226.02101,"123,48145 ",.01)
;;48145
;;9002226.02101,"123,48146 ",.01)
;;48146
;;9002226.02101,"123,48150 ",.01)
;;48150
;;9002226.02101,"123,48152 ",.01)
;;48152
;;9002226.02101,"123,48153 ",.01)
;;48153
;;9002226.02101,"123,48154 ",.01)
;;48154
;;9002226.02101,"123,48155 ",.01)
;;48155
;;9002226.02101,"123,48180 ",.01)
;;48180
;;9002226.02101,"123,48540 ",.01)
;;48540
;;9002226.02101,"123,48547 ",.01)
;;48547
;;9002226.02101,"123,49201 ",.01)
;;49201
;;9002226.02101,"123,49215 ",.01)
;;49215
;;9002226.02101,"123,49220 ",.01)
;;49220
;;9002226.02101,"123,49425 ",.01)
;;49425
;;9002226.02101,"123,49605 ",.01)
;;49605
;;9002226.02101,"123,49606 ",.01)
;;49606
;;9002226.02101,"123,50060 ",.01)
;;50060
;;9002226.02101,"123,50065 ",.01)
;;50065
;;9002226.02101,"123,50070 ",.01)
;;50070
;;9002226.02101,"123,50075 ",.01)
;;50075
;;9002226.02101,"123,50080 ",.01)
;;50080
;;9002226.02101,"123,50081 ",.01)
;;50081
;;9002226.02101,"123,50120 ",.01)
;;50120
;;9002226.02101,"123,50125 ",.01)
;;50125
;;9002226.02101,"123,50130 ",.01)
;;50130
;;9002226.02101,"123,50135 ",.01)
;;50135
;;9002226.02101,"123,50220 ",.01)
;;50220
;;9002226.02101,"123,50225 ",.01)
;;50225
;;9002226.02101,"123,50230 ",.01)
;;50230
;;9002226.02101,"123,50234 ",.01)
;;50234
;;9002226.02101,"123,50236 ",.01)
;;50236
;;9002226.02101,"123,50240 ",.01)
;;50240
;;9002226.02101,"123,50280 ",.01)
;;50280
;;9002226.02101,"123,50320 ",.01)
;;50320
;;9002226.02101,"123,50360 ",.01)
;;50360
;;9002226.02101,"123,50365 ",.01)
;;50365
;;9002226.02101,"123,50380 ",.01)
;;50380
;;9002226.02101,"123,50400 ",.01)
;;50400
;;9002226.02101,"123,50405 ",.01)
;;50405
;;9002226.02101,"123,50500 ",.01)
;;50500
;;9002226.02101,"123,50520 ",.01)
;;50520
;;9002226.02101,"123,50525 ",.01)
;;50525
;;9002226.02101,"123,50526 ",.01)
;;50526
;;9002226.02101,"123,50540 ",.01)
;;50540
;;9002226.02101,"123,50610 ",.01)
;;50610
;;9002226.02101,"123,50630 ",.01)
;;50630
;;9002226.02101,"123,50650 ",.01)
;;50650
;;9002226.02101,"123,50660 ",.01)
;;50660
;;9002226.02101,"123,50700 ",.01)
;;50700
;;9002226.02101,"123,50715 ",.01)
;;50715
;;9002226.02101,"123,50722 ",.01)
;;50722
;;9002226.02101,"123,50725 ",.01)
;;50725
;;9002226.02101,"123,50740 ",.01)
;;50740
;;9002226.02101,"123,50750 ",.01)
;;50750
;;9002226.02101,"123,50760 ",.01)
;;50760
;;9002226.02101,"123,50770 ",.01)
;;50770
;;9002226.02101,"123,50780 ",.01)
;;50780
;;9002226.02101,"123,50782 ",.01)
;;50782
;;9002226.02101,"123,50783 ",.01)
;;50783
;;9002226.02101,"123,50785 ",.01)
;;50785
;;9002226.02101,"123,50800 ",.01)
;;50800
;;9002226.02101,"123,50810 ",.01)
;;50810
;;9002226.02101,"123,50815 ",.01)
;;50815
;;9002226.02101,"123,50820 ",.01)
;;50820
;;9002226.02101,"123,50825 ",.01)
;;50825
;;9002226.02101,"123,50830 ",.01)
;;50830
;;9002226.02101,"123,50840 ",.01)
;;50840
;;9002226.02101,"123,50845 ",.01)
;;50845
;;9002226.02101,"123,50930 ",.01)
;;50930
;;9002226.02101,"123,51525 ",.01)
;;51525
;;9002226.02101,"123,51555 ",.01)
;;51555
;;9002226.02101,"123,51565 ",.01)
;;51565
;;9002226.02101,"123,51570 ",.01)
;;51570
;;9002226.02101,"123,51575 ",.01)
;;51575
;;9002226.02101,"123,51580 ",.01)
;;51580
;;9002226.02101,"123,51585 ",.01)
;;51585
BMCTXEN ; 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,46740 ",.01)
+2 ;;46740
+3 ;;9002226.02101,"123,46742 ",.01)
+4 ;;46742
+5 ;;9002226.02101,"123,46744 ",.01)
+6 ;;46744
+7 ;;9002226.02101,"123,46746 ",.01)
+8 ;;46746
+9 ;;9002226.02101,"123,46748 ",.01)
+10 ;;46748
+11 ;;9002226.02101,"123,47120 ",.01)
+12 ;;47120
+13 ;;9002226.02101,"123,47122 ",.01)
+14 ;;47122
+15 ;;9002226.02101,"123,47125 ",.01)
+16 ;;47125
+17 ;;9002226.02101,"123,47130 ",.01)
+18 ;;47130
+19 ;;9002226.02101,"123,47134 ",.01)
+20 ;;47134
+21 ;;9002226.02101,"123,47135 ",.01)
+22 ;;47135
+23 ;;9002226.02101,"123,47136 ",.01)
+24 ;;47136
+25 ;;9002226.02101,"123,47360 ",.01)
+26 ;;47360
+27 ;;9002226.02101,"123,47400 ",.01)
+28 ;;47400
+29 ;;9002226.02101,"123,47420 ",.01)
+30 ;;47420
+31 ;;9002226.02101,"123,47425 ",.01)
+32 ;;47425
+33 ;;9002226.02101,"123,47440 ",.01)
+34 ;;47440
+35 ;;9002226.02101,"123,47460 ",.01)
+36 ;;47460
+37 ;;9002226.02101,"123,47612 ",.01)
+38 ;;47612
+39 ;;9002226.02101,"123,47620 ",.01)
+40 ;;47620
+41 ;;9002226.02101,"123,47701 ",.01)
+42 ;;47701
+43 ;;9002226.02101,"123,47710 ",.01)
+44 ;;47710
+45 ;;9002226.02101,"123,47711 ",.01)
+46 ;;47711
+47 ;;9002226.02101,"123,47712 ",.01)
+48 ;;47712
+49 ;;9002226.02101,"123,47721 ",.01)
+50 ;;47721
+51 ;;9002226.02101,"123,47740 ",.01)
+52 ;;47740
+53 ;;9002226.02101,"123,47741 ",.01)
+54 ;;47741
+55 ;;9002226.02101,"123,47760 ",.01)
+56 ;;47760
+57 ;;9002226.02101,"123,47765 ",.01)
+58 ;;47765
+59 ;;9002226.02101,"123,47780 ",.01)
+60 ;;47780
+61 ;;9002226.02101,"123,47785 ",.01)
+62 ;;47785
+63 ;;9002226.02101,"123,47800 ",.01)
+64 ;;47800
+65 ;;9002226.02101,"123,47802 ",.01)
+66 ;;47802
+67 ;;9002226.02101,"123,47900 ",.01)
+68 ;;47900
+69 ;;9002226.02101,"123,48005 ",.01)
+70 ;;48005
+71 ;;9002226.02101,"123,48120 ",.01)
+72 ;;48120
+73 ;;9002226.02101,"123,48140 ",.01)
+74 ;;48140
+75 ;;9002226.02101,"123,48145 ",.01)
+76 ;;48145
+77 ;;9002226.02101,"123,48146 ",.01)
+78 ;;48146
+79 ;;9002226.02101,"123,48150 ",.01)
+80 ;;48150
+81 ;;9002226.02101,"123,48152 ",.01)
+82 ;;48152
+83 ;;9002226.02101,"123,48153 ",.01)
+84 ;;48153
+85 ;;9002226.02101,"123,48154 ",.01)
+86 ;;48154
+87 ;;9002226.02101,"123,48155 ",.01)
+88 ;;48155
+89 ;;9002226.02101,"123,48180 ",.01)
+90 ;;48180
+91 ;;9002226.02101,"123,48540 ",.01)
+92 ;;48540
+93 ;;9002226.02101,"123,48547 ",.01)
+94 ;;48547
+95 ;;9002226.02101,"123,49201 ",.01)
+96 ;;49201
+97 ;;9002226.02101,"123,49215 ",.01)
+98 ;;49215
+99 ;;9002226.02101,"123,49220 ",.01)
+100 ;;49220
+101 ;;9002226.02101,"123,49425 ",.01)
+102 ;;49425
+103 ;;9002226.02101,"123,49605 ",.01)
+104 ;;49605
+105 ;;9002226.02101,"123,49606 ",.01)
+106 ;;49606
+107 ;;9002226.02101,"123,50060 ",.01)
+108 ;;50060
+109 ;;9002226.02101,"123,50065 ",.01)
+110 ;;50065
+111 ;;9002226.02101,"123,50070 ",.01)
+112 ;;50070
+113 ;;9002226.02101,"123,50075 ",.01)
+114 ;;50075
+115 ;;9002226.02101,"123,50080 ",.01)
+116 ;;50080
+117 ;;9002226.02101,"123,50081 ",.01)
+118 ;;50081
+119 ;;9002226.02101,"123,50120 ",.01)
+120 ;;50120
+121 ;;9002226.02101,"123,50125 ",.01)
+122 ;;50125
+123 ;;9002226.02101,"123,50130 ",.01)
+124 ;;50130
+125 ;;9002226.02101,"123,50135 ",.01)
+126 ;;50135
+127 ;;9002226.02101,"123,50220 ",.01)
+128 ;;50220
+129 ;;9002226.02101,"123,50225 ",.01)
+130 ;;50225
+131 ;;9002226.02101,"123,50230 ",.01)
+132 ;;50230
+133 ;;9002226.02101,"123,50234 ",.01)
+134 ;;50234
+135 ;;9002226.02101,"123,50236 ",.01)
+136 ;;50236
+137 ;;9002226.02101,"123,50240 ",.01)
+138 ;;50240
+139 ;;9002226.02101,"123,50280 ",.01)
+140 ;;50280
+141 ;;9002226.02101,"123,50320 ",.01)
+142 ;;50320
+143 ;;9002226.02101,"123,50360 ",.01)
+144 ;;50360
+145 ;;9002226.02101,"123,50365 ",.01)
+146 ;;50365
+147 ;;9002226.02101,"123,50380 ",.01)
+148 ;;50380
+149 ;;9002226.02101,"123,50400 ",.01)
+150 ;;50400
+151 ;;9002226.02101,"123,50405 ",.01)
+152 ;;50405
+153 ;;9002226.02101,"123,50500 ",.01)
+154 ;;50500
+155 ;;9002226.02101,"123,50520 ",.01)
+156 ;;50520
+157 ;;9002226.02101,"123,50525 ",.01)
+158 ;;50525
+159 ;;9002226.02101,"123,50526 ",.01)
+160 ;;50526
+161 ;;9002226.02101,"123,50540 ",.01)
+162 ;;50540
+163 ;;9002226.02101,"123,50610 ",.01)
+164 ;;50610
+165 ;;9002226.02101,"123,50630 ",.01)
+166 ;;50630
+167 ;;9002226.02101,"123,50650 ",.01)
+168 ;;50650
+169 ;;9002226.02101,"123,50660 ",.01)
+170 ;;50660
+171 ;;9002226.02101,"123,50700 ",.01)
+172 ;;50700
+173 ;;9002226.02101,"123,50715 ",.01)
+174 ;;50715
+175 ;;9002226.02101,"123,50722 ",.01)
+176 ;;50722
+177 ;;9002226.02101,"123,50725 ",.01)
+178 ;;50725
+179 ;;9002226.02101,"123,50740 ",.01)
+180 ;;50740
+181 ;;9002226.02101,"123,50750 ",.01)
+182 ;;50750
+183 ;;9002226.02101,"123,50760 ",.01)
+184 ;;50760
+185 ;;9002226.02101,"123,50770 ",.01)
+186 ;;50770
+187 ;;9002226.02101,"123,50780 ",.01)
+188 ;;50780
+189 ;;9002226.02101,"123,50782 ",.01)
+190 ;;50782
+191 ;;9002226.02101,"123,50783 ",.01)
+192 ;;50783
+193 ;;9002226.02101,"123,50785 ",.01)
+194 ;;50785
+195 ;;9002226.02101,"123,50800 ",.01)
+196 ;;50800
+197 ;;9002226.02101,"123,50810 ",.01)
+198 ;;50810
+199 ;;9002226.02101,"123,50815 ",.01)
+200 ;;50815
+201 ;;9002226.02101,"123,50820 ",.01)
+202 ;;50820
+203 ;;9002226.02101,"123,50825 ",.01)
+204 ;;50825
+205 ;;9002226.02101,"123,50830 ",.01)
+206 ;;50830
+207 ;;9002226.02101,"123,50840 ",.01)
+208 ;;50840
+209 ;;9002226.02101,"123,50845 ",.01)
+210 ;;50845
+211 ;;9002226.02101,"123,50930 ",.01)
+212 ;;50930
+213 ;;9002226.02101,"123,51525 ",.01)
+214 ;;51525
+215 ;;9002226.02101,"123,51555 ",.01)
+216 ;;51555
+217 ;;9002226.02101,"123,51565 ",.01)
+218 ;;51565
+219 ;;9002226.02101,"123,51570 ",.01)
+220 ;;51570
+221 ;;9002226.02101,"123,51575 ",.01)
+222 ;;51575
+223 ;;9002226.02101,"123,51580 ",.01)
+224 ;;51580
+225 ;;9002226.02101,"123,51585 ",.01)
+226 ;;51585
