BMCTXEM ; 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,39531 ",.01)
;;39531
;;9002226.02101,"123,39541 ",.01)
;;39541
;;9002226.02101,"123,40701 ",.01)
;;40701
;;9002226.02101,"123,40844 ",.01)
;;40844
;;9002226.02101,"123,40845 ",.01)
;;40845
;;9002226.02101,"123,41135 ",.01)
;;41135
;;9002226.02101,"123,41140 ",.01)
;;41140
;;9002226.02101,"123,41145 ",.01)
;;41145
;;9002226.02101,"123,41150 ",.01)
;;41150
;;9002226.02101,"123,41153 ",.01)
;;41153
;;9002226.02101,"123,41155 ",.01)
;;41155
;;9002226.02101,"123,42415 ",.01)
;;42415
;;9002226.02101,"123,42420 ",.01)
;;42420
;;9002226.02101,"123,42426 ",.01)
;;42426
;;9002226.02101,"123,42845 ",.01)
;;42845
;;9002226.02101,"123,42894 ",.01)
;;42894
;;9002226.02101,"123,43045 ",.01)
;;43045
;;9002226.02101,"123,43105 ",.01)
;;43105
;;9002226.02101,"123,43106 ",.01)
;;43106
;;9002226.02101,"123,43107 ",.01)
;;43107
;;9002226.02101,"123,43108 ",.01)
;;43108
;;9002226.02101,"123,43110 ",.01)
;;43110
;;9002226.02101,"123,43111 ",.01)
;;43111
;;9002226.02101,"123,43112 ",.01)
;;43112
;;9002226.02101,"123,43113 ",.01)
;;43113
;;9002226.02101,"123,43115 ",.01)
;;43115
;;9002226.02101,"123,43116 ",.01)
;;43116
;;9002226.02101,"123,43117 ",.01)
;;43117
;;9002226.02101,"123,43118 ",.01)
;;43118
;;9002226.02101,"123,43119 ",.01)
;;43119
;;9002226.02101,"123,43120 ",.01)
;;43120
;;9002226.02101,"123,43121 ",.01)
;;43121
;;9002226.02101,"123,43122 ",.01)
;;43122
;;9002226.02101,"123,43123 ",.01)
;;43123
;;9002226.02101,"123,43124 ",.01)
;;43124
;;9002226.02101,"123,43135 ",.01)
;;43135
;;9002226.02101,"123,43305 ",.01)
;;43305
;;9002226.02101,"123,43310 ",.01)
;;43310
;;9002226.02101,"123,43312 ",.01)
;;43312
;;9002226.02101,"123,43320 ",.01)
;;43320
;;9002226.02101,"123,43321 ",.01)
;;43321
;;9002226.02101,"123,43324 ",.01)
;;43324
;;9002226.02101,"123,43325 ",.01)
;;43325
;;9002226.02101,"123,43330 ",.01)
;;43330
;;9002226.02101,"123,43331 ",.01)
;;43331
;;9002226.02101,"123,43340 ",.01)
;;43340
;;9002226.02101,"123,43360 ",.01)
;;43360
;;9002226.02101,"123,43361 ",.01)
;;43361
;;9002226.02101,"123,43400 ",.01)
;;43400
;;9002226.02101,"123,43401 ",.01)
;;43401
;;9002226.02101,"123,43405 ",.01)
;;43405
;;9002226.02101,"123,43415 ",.01)
;;43415
;;9002226.02101,"123,43425 ",.01)
;;43425
;;9002226.02101,"123,43501 ",.01)
;;43501
;;9002226.02101,"123,43502 ",.01)
;;43502
;;9002226.02101,"123,43620 ",.01)
;;43620
;;9002226.02101,"123,43621 ",.01)
;;43621
;;9002226.02101,"123,43622 ",.01)
;;43622
;;9002226.02101,"123,43631 ",.01)
;;43631
;;9002226.02101,"123,43632 ",.01)
;;43632
;;9002226.02101,"123,43633 ",.01)
;;43633
;;9002226.02101,"123,43634 ",.01)
;;43634
;;9002226.02101,"123,43638 ",.01)
;;43638
;;9002226.02101,"123,43639 ",.01)
;;43639
;;9002226.02101,"123,43640 ",.01)
;;43640
;;9002226.02101,"123,43825 ",.01)
;;43825
;;9002226.02101,"123,43842 ",.01)
;;43842
;;9002226.02101,"123,43843 ",.01)
;;43843
;;9002226.02101,"123,43846 ",.01)
;;43846
;;9002226.02101,"123,43847 ",.01)
;;43847
;;9002226.02101,"123,43848 ",.01)
;;43848
;;9002226.02101,"123,43850 ",.01)
;;43850
;;9002226.02101,"123,43855 ",.01)
;;43855
;;9002226.02101,"123,43860 ",.01)
;;43860
;;9002226.02101,"123,43865 ",.01)
;;43865
;;9002226.02101,"123,43880 ",.01)
;;43880
;;9002226.02101,"123,44040 ",.01)
;;44040
;;9002226.02101,"123,44125 ",.01)
;;44125
;;9002226.02101,"123,44140 ",.01)
;;44140
;;9002226.02101,"123,44141 ",.01)
;;44141
;;9002226.02101,"123,44143 ",.01)
;;44143
;;9002226.02101,"123,44144 ",.01)
;;44144
;;9002226.02101,"123,44145 ",.01)
;;44145
;;9002226.02101,"123,44146 ",.01)
;;44146
;;9002226.02101,"123,44147 ",.01)
;;44147
;;9002226.02101,"123,44150 ",.01)
;;44150
;;9002226.02101,"123,44151 ",.01)
;;44151
;;9002226.02101,"123,44152 ",.01)
;;44152
;;9002226.02101,"123,44153 ",.01)
;;44153
;;9002226.02101,"123,44155 ",.01)
;;44155
;;9002226.02101,"123,44156 ",.01)
;;44156
;;9002226.02101,"123,44160 ",.01)
;;44160
;;9002226.02101,"123,44603 ",.01)
;;44603
;;9002226.02101,"123,44605 ",.01)
;;44605
;;9002226.02101,"123,44661 ",.01)
;;44661
;;9002226.02101,"123,44680 ",.01)
;;44680
;;9002226.02101,"123,45110 ",.01)
;;45110
;;9002226.02101,"123,45111 ",.01)
;;45111
;;9002226.02101,"123,45112 ",.01)
;;45112
;;9002226.02101,"123,45113 ",.01)
;;45113
;;9002226.02101,"123,45114 ",.01)
;;45114
;;9002226.02101,"123,45116 ",.01)
;;45116
;;9002226.02101,"123,45120 ",.01)
;;45120
;;9002226.02101,"123,45121 ",.01)
;;45121
;;9002226.02101,"123,45123 ",.01)
;;45123
;;9002226.02101,"123,45135 ",.01)
;;45135
;;9002226.02101,"123,45540 ",.01)
;;45540
;;9002226.02101,"123,45550 ",.01)
;;45550
;;9002226.02101,"123,45563 ",.01)
;;45563
;;9002226.02101,"123,45805 ",.01)
;;45805
;;9002226.02101,"123,45825 ",.01)
;;45825
;;9002226.02101,"123,46730 ",.01)
;;46730
;;9002226.02101,"123,46735 ",.01)
;;46735
BMCTXEM ; 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,39531 ",.01)
+2 ;;39531
+3 ;;9002226.02101,"123,39541 ",.01)
+4 ;;39541
+5 ;;9002226.02101,"123,40701 ",.01)
+6 ;;40701
+7 ;;9002226.02101,"123,40844 ",.01)
+8 ;;40844
+9 ;;9002226.02101,"123,40845 ",.01)
+10 ;;40845
+11 ;;9002226.02101,"123,41135 ",.01)
+12 ;;41135
+13 ;;9002226.02101,"123,41140 ",.01)
+14 ;;41140
+15 ;;9002226.02101,"123,41145 ",.01)
+16 ;;41145
+17 ;;9002226.02101,"123,41150 ",.01)
+18 ;;41150
+19 ;;9002226.02101,"123,41153 ",.01)
+20 ;;41153
+21 ;;9002226.02101,"123,41155 ",.01)
+22 ;;41155
+23 ;;9002226.02101,"123,42415 ",.01)
+24 ;;42415
+25 ;;9002226.02101,"123,42420 ",.01)
+26 ;;42420
+27 ;;9002226.02101,"123,42426 ",.01)
+28 ;;42426
+29 ;;9002226.02101,"123,42845 ",.01)
+30 ;;42845
+31 ;;9002226.02101,"123,42894 ",.01)
+32 ;;42894
+33 ;;9002226.02101,"123,43045 ",.01)
+34 ;;43045
+35 ;;9002226.02101,"123,43105 ",.01)
+36 ;;43105
+37 ;;9002226.02101,"123,43106 ",.01)
+38 ;;43106
+39 ;;9002226.02101,"123,43107 ",.01)
+40 ;;43107
+41 ;;9002226.02101,"123,43108 ",.01)
+42 ;;43108
+43 ;;9002226.02101,"123,43110 ",.01)
+44 ;;43110
+45 ;;9002226.02101,"123,43111 ",.01)
+46 ;;43111
+47 ;;9002226.02101,"123,43112 ",.01)
+48 ;;43112
+49 ;;9002226.02101,"123,43113 ",.01)
+50 ;;43113
+51 ;;9002226.02101,"123,43115 ",.01)
+52 ;;43115
+53 ;;9002226.02101,"123,43116 ",.01)
+54 ;;43116
+55 ;;9002226.02101,"123,43117 ",.01)
+56 ;;43117
+57 ;;9002226.02101,"123,43118 ",.01)
+58 ;;43118
+59 ;;9002226.02101,"123,43119 ",.01)
+60 ;;43119
+61 ;;9002226.02101,"123,43120 ",.01)
+62 ;;43120
+63 ;;9002226.02101,"123,43121 ",.01)
+64 ;;43121
+65 ;;9002226.02101,"123,43122 ",.01)
+66 ;;43122
+67 ;;9002226.02101,"123,43123 ",.01)
+68 ;;43123
+69 ;;9002226.02101,"123,43124 ",.01)
+70 ;;43124
+71 ;;9002226.02101,"123,43135 ",.01)
+72 ;;43135
+73 ;;9002226.02101,"123,43305 ",.01)
+74 ;;43305
+75 ;;9002226.02101,"123,43310 ",.01)
+76 ;;43310
+77 ;;9002226.02101,"123,43312 ",.01)
+78 ;;43312
+79 ;;9002226.02101,"123,43320 ",.01)
+80 ;;43320
+81 ;;9002226.02101,"123,43321 ",.01)
+82 ;;43321
+83 ;;9002226.02101,"123,43324 ",.01)
+84 ;;43324
+85 ;;9002226.02101,"123,43325 ",.01)
+86 ;;43325
+87 ;;9002226.02101,"123,43330 ",.01)
+88 ;;43330
+89 ;;9002226.02101,"123,43331 ",.01)
+90 ;;43331
+91 ;;9002226.02101,"123,43340 ",.01)
+92 ;;43340
+93 ;;9002226.02101,"123,43360 ",.01)
+94 ;;43360
+95 ;;9002226.02101,"123,43361 ",.01)
+96 ;;43361
+97 ;;9002226.02101,"123,43400 ",.01)
+98 ;;43400
+99 ;;9002226.02101,"123,43401 ",.01)
+100 ;;43401
+101 ;;9002226.02101,"123,43405 ",.01)
+102 ;;43405
+103 ;;9002226.02101,"123,43415 ",.01)
+104 ;;43415
+105 ;;9002226.02101,"123,43425 ",.01)
+106 ;;43425
+107 ;;9002226.02101,"123,43501 ",.01)
+108 ;;43501
+109 ;;9002226.02101,"123,43502 ",.01)
+110 ;;43502
+111 ;;9002226.02101,"123,43620 ",.01)
+112 ;;43620
+113 ;;9002226.02101,"123,43621 ",.01)
+114 ;;43621
+115 ;;9002226.02101,"123,43622 ",.01)
+116 ;;43622
+117 ;;9002226.02101,"123,43631 ",.01)
+118 ;;43631
+119 ;;9002226.02101,"123,43632 ",.01)
+120 ;;43632
+121 ;;9002226.02101,"123,43633 ",.01)
+122 ;;43633
+123 ;;9002226.02101,"123,43634 ",.01)
+124 ;;43634
+125 ;;9002226.02101,"123,43638 ",.01)
+126 ;;43638
+127 ;;9002226.02101,"123,43639 ",.01)
+128 ;;43639
+129 ;;9002226.02101,"123,43640 ",.01)
+130 ;;43640
+131 ;;9002226.02101,"123,43825 ",.01)
+132 ;;43825
+133 ;;9002226.02101,"123,43842 ",.01)
+134 ;;43842
+135 ;;9002226.02101,"123,43843 ",.01)
+136 ;;43843
+137 ;;9002226.02101,"123,43846 ",.01)
+138 ;;43846
+139 ;;9002226.02101,"123,43847 ",.01)
+140 ;;43847
+141 ;;9002226.02101,"123,43848 ",.01)
+142 ;;43848
+143 ;;9002226.02101,"123,43850 ",.01)
+144 ;;43850
+145 ;;9002226.02101,"123,43855 ",.01)
+146 ;;43855
+147 ;;9002226.02101,"123,43860 ",.01)
+148 ;;43860
+149 ;;9002226.02101,"123,43865 ",.01)
+150 ;;43865
+151 ;;9002226.02101,"123,43880 ",.01)
+152 ;;43880
+153 ;;9002226.02101,"123,44040 ",.01)
+154 ;;44040
+155 ;;9002226.02101,"123,44125 ",.01)
+156 ;;44125
+157 ;;9002226.02101,"123,44140 ",.01)
+158 ;;44140
+159 ;;9002226.02101,"123,44141 ",.01)
+160 ;;44141
+161 ;;9002226.02101,"123,44143 ",.01)
+162 ;;44143
+163 ;;9002226.02101,"123,44144 ",.01)
+164 ;;44144
+165 ;;9002226.02101,"123,44145 ",.01)
+166 ;;44145
+167 ;;9002226.02101,"123,44146 ",.01)
+168 ;;44146
+169 ;;9002226.02101,"123,44147 ",.01)
+170 ;;44147
+171 ;;9002226.02101,"123,44150 ",.01)
+172 ;;44150
+173 ;;9002226.02101,"123,44151 ",.01)
+174 ;;44151
+175 ;;9002226.02101,"123,44152 ",.01)
+176 ;;44152
+177 ;;9002226.02101,"123,44153 ",.01)
+178 ;;44153
+179 ;;9002226.02101,"123,44155 ",.01)
+180 ;;44155
+181 ;;9002226.02101,"123,44156 ",.01)
+182 ;;44156
+183 ;;9002226.02101,"123,44160 ",.01)
+184 ;;44160
+185 ;;9002226.02101,"123,44603 ",.01)
+186 ;;44603
+187 ;;9002226.02101,"123,44605 ",.01)
+188 ;;44605
+189 ;;9002226.02101,"123,44661 ",.01)
+190 ;;44661
+191 ;;9002226.02101,"123,44680 ",.01)
+192 ;;44680
+193 ;;9002226.02101,"123,45110 ",.01)
+194 ;;45110
+195 ;;9002226.02101,"123,45111 ",.01)
+196 ;;45111
+197 ;;9002226.02101,"123,45112 ",.01)
+198 ;;45112
+199 ;;9002226.02101,"123,45113 ",.01)
+200 ;;45113
+201 ;;9002226.02101,"123,45114 ",.01)
+202 ;;45114
+203 ;;9002226.02101,"123,45116 ",.01)
+204 ;;45116
+205 ;;9002226.02101,"123,45120 ",.01)
+206 ;;45120
+207 ;;9002226.02101,"123,45121 ",.01)
+208 ;;45121
+209 ;;9002226.02101,"123,45123 ",.01)
+210 ;;45123
+211 ;;9002226.02101,"123,45135 ",.01)
+212 ;;45135
+213 ;;9002226.02101,"123,45540 ",.01)
+214 ;;45540
+215 ;;9002226.02101,"123,45550 ",.01)
+216 ;;45550
+217 ;;9002226.02101,"123,45563 ",.01)
+218 ;;45563
+219 ;;9002226.02101,"123,45805 ",.01)
+220 ;;45805
+221 ;;9002226.02101,"123,45825 ",.01)
+222 ;;45825
+223 ;;9002226.02101,"123,46730 ",.01)
+224 ;;46730
+225 ;;9002226.02101,"123,46735 ",.01)
+226 ;;46735
