BMCTXEQ ; 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,63047 ",.01)
;;63047
;;9002226.02101,"123,63055 ",.01)
;;63055
;;9002226.02101,"123,63056 ",.01)
;;63056
;;9002226.02101,"123,63064 ",.01)
;;63064
;;9002226.02101,"123,63075 ",.01)
;;63075
;;9002226.02101,"123,63077 ",.01)
;;63077
;;9002226.02101,"123,63081 ",.01)
;;63081
;;9002226.02101,"123,63085 ",.01)
;;63085
;;9002226.02101,"123,63087 ",.01)
;;63087
;;9002226.02101,"123,63090 ",.01)
;;63090
;;9002226.02101,"123,63170 ",.01)
;;63170
;;9002226.02101,"123,63172 ",.01)
;;63172
;;9002226.02101,"123,63173 ",.01)
;;63173
;;9002226.02101,"123,63180 ",.01)
;;63180
;;9002226.02101,"123,63182 ",.01)
;;63182
;;9002226.02101,"123,63185 ",.01)
;;63185
;;9002226.02101,"123,63190 ",.01)
;;63190
;;9002226.02101,"123,63191 ",.01)
;;63191
;;9002226.02101,"123,63194 ",.01)
;;63194
;;9002226.02101,"123,63195 ",.01)
;;63195
;;9002226.02101,"123,63196 ",.01)
;;63196
;;9002226.02101,"123,63197 ",.01)
;;63197
;;9002226.02101,"123,63198 ",.01)
;;63198
;;9002226.02101,"123,63199 ",.01)
;;63199
;;9002226.02101,"123,63200 ",.01)
;;63200
;;9002226.02101,"123,63250 ",.01)
;;63250
;;9002226.02101,"123,63251 ",.01)
;;63251
;;9002226.02101,"123,63252 ",.01)
;;63252
;;9002226.02101,"123,63265 ",.01)
;;63265
;;9002226.02101,"123,63266 ",.01)
;;63266
;;9002226.02101,"123,63267 ",.01)
;;63267
;;9002226.02101,"123,63268 ",.01)
;;63268
;;9002226.02101,"123,63270 ",.01)
;;63270
;;9002226.02101,"123,63271 ",.01)
;;63271
;;9002226.02101,"123,63272 ",.01)
;;63272
;;9002226.02101,"123,63273 ",.01)
;;63273
;;9002226.02101,"123,63275 ",.01)
;;63275
;;9002226.02101,"123,63276 ",.01)
;;63276
;;9002226.02101,"123,63277 ",.01)
;;63277
;;9002226.02101,"123,63278 ",.01)
;;63278
;;9002226.02101,"123,63280 ",.01)
;;63280
;;9002226.02101,"123,63281 ",.01)
;;63281
;;9002226.02101,"123,63282 ",.01)
;;63282
;;9002226.02101,"123,63283 ",.01)
;;63283
;;9002226.02101,"123,63285 ",.01)
;;63285
;;9002226.02101,"123,63286 ",.01)
;;63286
;;9002226.02101,"123,63287 ",.01)
;;63287
;;9002226.02101,"123,63290 ",.01)
;;63290
;;9002226.02101,"123,63300 ",.01)
;;63300
;;9002226.02101,"123,63301 ",.01)
;;63301
;;9002226.02101,"123,63302 ",.01)
;;63302
;;9002226.02101,"123,63303 ",.01)
;;63303
;;9002226.02101,"123,63304 ",.01)
;;63304
;;9002226.02101,"123,63305 ",.01)
;;63305
;;9002226.02101,"123,63306 ",.01)
;;63306
;;9002226.02101,"123,63307 ",.01)
;;63307
;;9002226.02101,"123,63615 ",.01)
;;63615
;;9002226.02101,"123,63700 ",.01)
;;63700
;;9002226.02101,"123,63702 ",.01)
;;63702
;;9002226.02101,"123,63704 ",.01)
;;63704
;;9002226.02101,"123,63706 ",.01)
;;63706
;;9002226.02101,"123,63707 ",.01)
;;63707
;;9002226.02101,"123,63709 ",.01)
;;63709
;;9002226.02101,"123,63740 ",.01)
;;63740
;;9002226.02101,"123,64786 ",.01)
;;64786
;;9002226.02101,"123,64804 ",.01)
;;64804
;;9002226.02101,"123,64858 ",.01)
;;64858
;;9002226.02101,"123,64861 ",.01)
;;64861
;;9002226.02101,"123,64862 ",.01)
;;64862
;;9002226.02101,"123,64865 ",.01)
;;64865
;;9002226.02101,"123,64866 ",.01)
;;64866
;;9002226.02101,"123,64870 ",.01)
;;64870
;;9002226.02101,"123,64885 ",.01)
;;64885
;;9002226.02101,"123,64886 ",.01)
;;64886
;;9002226.02101,"123,64890 ",.01)
;;64890
;;9002226.02101,"123,64891 ",.01)
;;64891
;;9002226.02101,"123,64893 ",.01)
;;64893
;;9002226.02101,"123,64895 ",.01)
;;64895
;;9002226.02101,"123,64896 ",.01)
;;64896
;;9002226.02101,"123,64897 ",.01)
;;64897
;;9002226.02101,"123,64898 ",.01)
;;64898
;;9002226.02101,"123,64907 ",.01)
;;64907
;;9002226.02101,"123,65110 ",.01)
;;65110
;;9002226.02101,"123,65112 ",.01)
;;65112
;;9002226.02101,"123,65114 ",.01)
;;65114
;;9002226.02101,"123,65285 ",.01)
;;65285
;;9002226.02101,"123,65730 ",.01)
;;65730
;;9002226.02101,"123,65750 ",.01)
;;65750
;;9002226.02101,"123,65755 ",.01)
;;65755
;;9002226.02101,"123,65770 ",.01)
;;65770
;;9002226.02101,"123,66180 ",.01)
;;66180
;;9002226.02101,"123,66983 ",.01)
;;66983
;;9002226.02101,"123,66984 ",.01)
;;66984
;;9002226.02101,"123,67036 ",.01)
;;67036
;;9002226.02101,"123,67038 ",.01)
;;67038
;;9002226.02101,"123,67039 ",.01)
;;67039
;;9002226.02101,"123,67040 ",.01)
;;67040
;;9002226.02101,"123,67107 ",.01)
;;67107
;;9002226.02101,"123,67108 ",.01)
;;67108
;;9002226.02101,"123,67109 ",.01)
;;67109
;;9002226.02101,"123,67112 ",.01)
;;67112
;;9002226.02101,"123,67255 ",.01)
;;67255
;;9002226.02101,"123,67420 ",.01)
;;67420
;;9002226.02101,"123,67440 ",.01)
;;67440
;;9002226.02101,"123,67450 ",.01)
;;67450
;;9002226.02101,"123,67973 ",.01)
;;67973
;;9002226.02101,"123,67974 ",.01)
;;67974
;;9002226.02101,"123,69155 ",.01)
;;69155
;;9002226.02101,"123,69320 ",.01)
;;69320
;;9002226.02101,"123,69502 ",.01)
;;69502
;;9002226.02101,"123,69505 ",.01)
;;69505
;;9002226.02101,"123,69511 ",.01)
;;69511
;;9002226.02101,"123,69530 ",.01)
;;69530
BMCTXEQ ; 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,63047 ",.01)
+2 ;;63047
+3 ;;9002226.02101,"123,63055 ",.01)
+4 ;;63055
+5 ;;9002226.02101,"123,63056 ",.01)
+6 ;;63056
+7 ;;9002226.02101,"123,63064 ",.01)
+8 ;;63064
+9 ;;9002226.02101,"123,63075 ",.01)
+10 ;;63075
+11 ;;9002226.02101,"123,63077 ",.01)
+12 ;;63077
+13 ;;9002226.02101,"123,63081 ",.01)
+14 ;;63081
+15 ;;9002226.02101,"123,63085 ",.01)
+16 ;;63085
+17 ;;9002226.02101,"123,63087 ",.01)
+18 ;;63087
+19 ;;9002226.02101,"123,63090 ",.01)
+20 ;;63090
+21 ;;9002226.02101,"123,63170 ",.01)
+22 ;;63170
+23 ;;9002226.02101,"123,63172 ",.01)
+24 ;;63172
+25 ;;9002226.02101,"123,63173 ",.01)
+26 ;;63173
+27 ;;9002226.02101,"123,63180 ",.01)
+28 ;;63180
+29 ;;9002226.02101,"123,63182 ",.01)
+30 ;;63182
+31 ;;9002226.02101,"123,63185 ",.01)
+32 ;;63185
+33 ;;9002226.02101,"123,63190 ",.01)
+34 ;;63190
+35 ;;9002226.02101,"123,63191 ",.01)
+36 ;;63191
+37 ;;9002226.02101,"123,63194 ",.01)
+38 ;;63194
+39 ;;9002226.02101,"123,63195 ",.01)
+40 ;;63195
+41 ;;9002226.02101,"123,63196 ",.01)
+42 ;;63196
+43 ;;9002226.02101,"123,63197 ",.01)
+44 ;;63197
+45 ;;9002226.02101,"123,63198 ",.01)
+46 ;;63198
+47 ;;9002226.02101,"123,63199 ",.01)
+48 ;;63199
+49 ;;9002226.02101,"123,63200 ",.01)
+50 ;;63200
+51 ;;9002226.02101,"123,63250 ",.01)
+52 ;;63250
+53 ;;9002226.02101,"123,63251 ",.01)
+54 ;;63251
+55 ;;9002226.02101,"123,63252 ",.01)
+56 ;;63252
+57 ;;9002226.02101,"123,63265 ",.01)
+58 ;;63265
+59 ;;9002226.02101,"123,63266 ",.01)
+60 ;;63266
+61 ;;9002226.02101,"123,63267 ",.01)
+62 ;;63267
+63 ;;9002226.02101,"123,63268 ",.01)
+64 ;;63268
+65 ;;9002226.02101,"123,63270 ",.01)
+66 ;;63270
+67 ;;9002226.02101,"123,63271 ",.01)
+68 ;;63271
+69 ;;9002226.02101,"123,63272 ",.01)
+70 ;;63272
+71 ;;9002226.02101,"123,63273 ",.01)
+72 ;;63273
+73 ;;9002226.02101,"123,63275 ",.01)
+74 ;;63275
+75 ;;9002226.02101,"123,63276 ",.01)
+76 ;;63276
+77 ;;9002226.02101,"123,63277 ",.01)
+78 ;;63277
+79 ;;9002226.02101,"123,63278 ",.01)
+80 ;;63278
+81 ;;9002226.02101,"123,63280 ",.01)
+82 ;;63280
+83 ;;9002226.02101,"123,63281 ",.01)
+84 ;;63281
+85 ;;9002226.02101,"123,63282 ",.01)
+86 ;;63282
+87 ;;9002226.02101,"123,63283 ",.01)
+88 ;;63283
+89 ;;9002226.02101,"123,63285 ",.01)
+90 ;;63285
+91 ;;9002226.02101,"123,63286 ",.01)
+92 ;;63286
+93 ;;9002226.02101,"123,63287 ",.01)
+94 ;;63287
+95 ;;9002226.02101,"123,63290 ",.01)
+96 ;;63290
+97 ;;9002226.02101,"123,63300 ",.01)
+98 ;;63300
+99 ;;9002226.02101,"123,63301 ",.01)
+100 ;;63301
+101 ;;9002226.02101,"123,63302 ",.01)
+102 ;;63302
+103 ;;9002226.02101,"123,63303 ",.01)
+104 ;;63303
+105 ;;9002226.02101,"123,63304 ",.01)
+106 ;;63304
+107 ;;9002226.02101,"123,63305 ",.01)
+108 ;;63305
+109 ;;9002226.02101,"123,63306 ",.01)
+110 ;;63306
+111 ;;9002226.02101,"123,63307 ",.01)
+112 ;;63307
+113 ;;9002226.02101,"123,63615 ",.01)
+114 ;;63615
+115 ;;9002226.02101,"123,63700 ",.01)
+116 ;;63700
+117 ;;9002226.02101,"123,63702 ",.01)
+118 ;;63702
+119 ;;9002226.02101,"123,63704 ",.01)
+120 ;;63704
+121 ;;9002226.02101,"123,63706 ",.01)
+122 ;;63706
+123 ;;9002226.02101,"123,63707 ",.01)
+124 ;;63707
+125 ;;9002226.02101,"123,63709 ",.01)
+126 ;;63709
+127 ;;9002226.02101,"123,63740 ",.01)
+128 ;;63740
+129 ;;9002226.02101,"123,64786 ",.01)
+130 ;;64786
+131 ;;9002226.02101,"123,64804 ",.01)
+132 ;;64804
+133 ;;9002226.02101,"123,64858 ",.01)
+134 ;;64858
+135 ;;9002226.02101,"123,64861 ",.01)
+136 ;;64861
+137 ;;9002226.02101,"123,64862 ",.01)
+138 ;;64862
+139 ;;9002226.02101,"123,64865 ",.01)
+140 ;;64865
+141 ;;9002226.02101,"123,64866 ",.01)
+142 ;;64866
+143 ;;9002226.02101,"123,64870 ",.01)
+144 ;;64870
+145 ;;9002226.02101,"123,64885 ",.01)
+146 ;;64885
+147 ;;9002226.02101,"123,64886 ",.01)
+148 ;;64886
+149 ;;9002226.02101,"123,64890 ",.01)
+150 ;;64890
+151 ;;9002226.02101,"123,64891 ",.01)
+152 ;;64891
+153 ;;9002226.02101,"123,64893 ",.01)
+154 ;;64893
+155 ;;9002226.02101,"123,64895 ",.01)
+156 ;;64895
+157 ;;9002226.02101,"123,64896 ",.01)
+158 ;;64896
+159 ;;9002226.02101,"123,64897 ",.01)
+160 ;;64897
+161 ;;9002226.02101,"123,64898 ",.01)
+162 ;;64898
+163 ;;9002226.02101,"123,64907 ",.01)
+164 ;;64907
+165 ;;9002226.02101,"123,65110 ",.01)
+166 ;;65110
+167 ;;9002226.02101,"123,65112 ",.01)
+168 ;;65112
+169 ;;9002226.02101,"123,65114 ",.01)
+170 ;;65114
+171 ;;9002226.02101,"123,65285 ",.01)
+172 ;;65285
+173 ;;9002226.02101,"123,65730 ",.01)
+174 ;;65730
+175 ;;9002226.02101,"123,65750 ",.01)
+176 ;;65750
+177 ;;9002226.02101,"123,65755 ",.01)
+178 ;;65755
+179 ;;9002226.02101,"123,65770 ",.01)
+180 ;;65770
+181 ;;9002226.02101,"123,66180 ",.01)
+182 ;;66180
+183 ;;9002226.02101,"123,66983 ",.01)
+184 ;;66983
+185 ;;9002226.02101,"123,66984 ",.01)
+186 ;;66984
+187 ;;9002226.02101,"123,67036 ",.01)
+188 ;;67036
+189 ;;9002226.02101,"123,67038 ",.01)
+190 ;;67038
+191 ;;9002226.02101,"123,67039 ",.01)
+192 ;;67039
+193 ;;9002226.02101,"123,67040 ",.01)
+194 ;;67040
+195 ;;9002226.02101,"123,67107 ",.01)
+196 ;;67107
+197 ;;9002226.02101,"123,67108 ",.01)
+198 ;;67108
+199 ;;9002226.02101,"123,67109 ",.01)
+200 ;;67109
+201 ;;9002226.02101,"123,67112 ",.01)
+202 ;;67112
+203 ;;9002226.02101,"123,67255 ",.01)
+204 ;;67255
+205 ;;9002226.02101,"123,67420 ",.01)
+206 ;;67420
+207 ;;9002226.02101,"123,67440 ",.01)
+208 ;;67440
+209 ;;9002226.02101,"123,67450 ",.01)
+210 ;;67450
+211 ;;9002226.02101,"123,67973 ",.01)
+212 ;;67973
+213 ;;9002226.02101,"123,67974 ",.01)
+214 ;;67974
+215 ;;9002226.02101,"123,69155 ",.01)
+216 ;;69155
+217 ;;9002226.02101,"123,69320 ",.01)
+218 ;;69320
+219 ;;9002226.02101,"123,69502 ",.01)
+220 ;;69502
+221 ;;9002226.02101,"123,69505 ",.01)
+222 ;;69505
+223 ;;9002226.02101,"123,69511 ",.01)
+224 ;;69511
+225 ;;9002226.02101,"123,69530 ",.01)
+226 ;;69530
