BMCTXEG ; 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)
;;21,"65114 ")
;;1161
;;21,"65285 ")
;;1162
;;21,"65730 ")
;;1163
;;21,"65750 ")
;;1164
;;21,"65755 ")
;;1165
;;21,"65770 ")
;;1166
;;21,"66180 ")
;;1167
;;21,"66983 ")
;;1168
;;21,"66984 ")
;;1169
;;21,"67036 ")
;;1170
;;21,"67038 ")
;;1171
;;21,"67039 ")
;;1172
;;21,"67040 ")
;;1173
;;21,"67107 ")
;;1174
;;21,"67108 ")
;;1175
;;21,"67109 ")
;;1176
;;21,"67112 ")
;;1177
;;21,"67255 ")
;;1178
;;21,"67420 ")
;;1179
;;21,"67440 ")
;;1180
;;21,"67450 ")
;;1181
;;21,"67973 ")
;;1182
;;21,"67974 ")
;;1183
;;21,"69155 ")
;;1184
;;21,"69320 ")
;;1185
;;21,"69502 ")
;;1186
;;21,"69505 ")
;;1187
;;21,"69511 ")
;;1188
;;21,"69530 ")
;;1189
;;21,"69535 ")
;;1190
;;21,"69550 ")
;;1191
;;21,"69552 ")
;;1192
;;21,"69554 ")
;;1193
;;21,"69601 ")
;;1194
;;21,"69602 ")
;;1195
;;21,"69603 ")
;;1196
;;21,"69604 ")
;;1197
;;21,"69605 ")
;;1198
;;21,"69632 ")
;;1199
;;21,"69633 ")
;;1200
;;21,"69635 ")
;;1201
;;21,"69636 ")
;;1202
;;21,"69637 ")
;;1203
;;21,"69641 ")
;;1204
;;21,"69642 ")
;;1205
;;21,"69643 ")
;;1206
;;21,"69644 ")
;;1207
;;21,"69645 ")
;;1208
;;21,"69646 ")
;;1209
;;21,"69660 ")
;;1210
;;21,"69661 ")
;;1211
;;21,"69662 ")
;;1212
;;21,"69720 ")
;;1213
;;21,"69725 ")
;;1214
;;21,"69740 ")
;;1215
;;21,"69745 ")
;;1216
;;21,"69806 ")
;;1217
;;21,"69905 ")
;;1218
;;21,"69910 ")
;;1219
;;21,"69915 ")
;;1220
;;21,"69930 ")
;;1221
;;21,"69950 ")
;;1222
;;21,"69955 ")
;;1223
;;21,"69960 ")
;;1224
;;21,"69970 ")
;;1225
;;21,"75894 ")
;;1226
;;21,"77295 ")
;;1227
;;21,"92980 ")
;;1228
;;21,"92986 ")
;;1229
;;21,"92995 ")
;;1230
;;21,"93510 ")
;;1231
;;21,"93511 ")
;;1232
;;21,"93514 ")
;;1233
;;21,"93524 ")
;;1234
;;21,"93526 ")
;;1235
;;21,"93527 ")
;;1236
;;21,"93528 ")
;;1237
;;21,"93529 ")
;;1238
;;21,"93620 ")
;;1239
;;9002226,123,.01)
;;BMC HIGH COST PROCEDURES
;;9002226,123,.02)
;;HIGH COST CPT CODES
;;9002226,123,.04)
;;n
;;9002226,123,.08)
;;0
;;9002226,123,.09)
;;2960125
;;9002226,123,.12)
;;31
;;9002226,123,.13)
;;0
;;9002226,123,.14)
;;B
;;9002226,123,.15)
;;81
;;9002226,123,.16)
;;0
;;9002226.02101,"123,15732 ",.01)
;;15732
;;9002226.02101,"123,15734 ",.01)
;;15734
;;9002226.02101,"123,15736 ",.01)
;;15736
;;9002226.02101,"123,15738 ",.01)
;;15738
;;9002226.02101,"123,15755 ",.01)
;;15755
;;9002226.02101,"123,15840 ",.01)
;;15840
;;9002226.02101,"123,15841 ",.01)
;;15841
;;9002226.02101,"123,15842 ",.01)
;;15842
;;9002226.02101,"123,15845 ",.01)
;;15845
;;9002226.02101,"123,15935 ",.01)
;;15935
;;9002226.02101,"123,15937 ",.01)
;;15937
;;9002226.02101,"123,15946 ",.01)
;;15946
;;9002226.02101,"123,15956 ",.01)
;;15956
;;9002226.02101,"123,15958 ",.01)
;;15958
;;9002226.02101,"123,19200 ",.01)
;;19200
;;9002226.02101,"123,19220 ",.01)
;;19220
;;9002226.02101,"123,19271 ",.01)
;;19271
;;9002226.02101,"123,19272 ",.01)
;;19272
;;9002226.02101,"123,19318 ",.01)
;;19318
;;9002226.02101,"123,19357 ",.01)
;;19357
;;9002226.02101,"123,19361 ",.01)
;;19361
;;9002226.02101,"123,19362 ",.01)
;;19362
;;9002226.02101,"123,19364 ",.01)
;;19364
;;9002226.02101,"123,19366 ",.01)
;;19366
;;9002226.02101,"123,19367 ",.01)
;;19367
;;9002226.02101,"123,19368 ",.01)
;;19368
;;9002226.02101,"123,19369 ",.01)
;;19369
;;9002226.02101,"123,20802 ",.01)
;;20802
;;9002226.02101,"123,20805 ",.01)
;;20805
;;9002226.02101,"123,20808 ",.01)
;;20808
;;9002226.02101,"123,20816 ",.01)
;;20816
;;9002226.02101,"123,20822 ",.01)
;;20822
;;9002226.02101,"123,20824 ",.01)
;;20824
;;9002226.02101,"123,20827 ",.01)
;;20827
;;9002226.02101,"123,20838 ",.01)
;;20838
;;9002226.02101,"123,20955 ",.01)
;;20955
;;9002226.02101,"123,20969 ",.01)
;;20969
;;9002226.02101,"123,20970 ",.01)
;;20970
;;9002226.02101,"123,20972 ",.01)
;;20972
;;9002226.02101,"123,20973 ",.01)
;;20973
;;9002226.02101,"123,21045 ",.01)
;;21045
;;9002226.02101,"123,21144 ",.01)
;;21144
;;9002226.02101,"123,21145 ",.01)
;;21145
;;9002226.02101,"123,21146 ",.01)
;;21146
;;9002226.02101,"123,21147 ",.01)
;;21147
;;9002226.02101,"123,21150 ",.01)
;;21150
;;9002226.02101,"123,21151 ",.01)
;;21151
;;9002226.02101,"123,21154 ",.01)
;;21154
;;9002226.02101,"123,21155 ",.01)
;;21155
;;9002226.02101,"123,21159 ",.01)
;;21159
;;9002226.02101,"123,21160 ",.01)
;;21160
;;9002226.02101,"123,21172 ",.01)
;;21172
;;9002226.02101,"123,21175 ",.01)
;;21175
;;9002226.02101,"123,21179 ",.01)
;;21179
;;9002226.02101,"123,21180 ",.01)
;;21180
;;9002226.02101,"123,21182 ",.01)
;;21182
;;9002226.02101,"123,21183 ",.01)
;;21183
;;9002226.02101,"123,21184 ",.01)
;;21184
;;9002226.02101,"123,21188 ",.01)
;;21188
BMCTXEG ; 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 ;;21,"65114 ")
+2 ;;1161
+3 ;;21,"65285 ")
+4 ;;1162
+5 ;;21,"65730 ")
+6 ;;1163
+7 ;;21,"65750 ")
+8 ;;1164
+9 ;;21,"65755 ")
+10 ;;1165
+11 ;;21,"65770 ")
+12 ;;1166
+13 ;;21,"66180 ")
+14 ;;1167
+15 ;;21,"66983 ")
+16 ;;1168
+17 ;;21,"66984 ")
+18 ;;1169
+19 ;;21,"67036 ")
+20 ;;1170
+21 ;;21,"67038 ")
+22 ;;1171
+23 ;;21,"67039 ")
+24 ;;1172
+25 ;;21,"67040 ")
+26 ;;1173
+27 ;;21,"67107 ")
+28 ;;1174
+29 ;;21,"67108 ")
+30 ;;1175
+31 ;;21,"67109 ")
+32 ;;1176
+33 ;;21,"67112 ")
+34 ;;1177
+35 ;;21,"67255 ")
+36 ;;1178
+37 ;;21,"67420 ")
+38 ;;1179
+39 ;;21,"67440 ")
+40 ;;1180
+41 ;;21,"67450 ")
+42 ;;1181
+43 ;;21,"67973 ")
+44 ;;1182
+45 ;;21,"67974 ")
+46 ;;1183
+47 ;;21,"69155 ")
+48 ;;1184
+49 ;;21,"69320 ")
+50 ;;1185
+51 ;;21,"69502 ")
+52 ;;1186
+53 ;;21,"69505 ")
+54 ;;1187
+55 ;;21,"69511 ")
+56 ;;1188
+57 ;;21,"69530 ")
+58 ;;1189
+59 ;;21,"69535 ")
+60 ;;1190
+61 ;;21,"69550 ")
+62 ;;1191
+63 ;;21,"69552 ")
+64 ;;1192
+65 ;;21,"69554 ")
+66 ;;1193
+67 ;;21,"69601 ")
+68 ;;1194
+69 ;;21,"69602 ")
+70 ;;1195
+71 ;;21,"69603 ")
+72 ;;1196
+73 ;;21,"69604 ")
+74 ;;1197
+75 ;;21,"69605 ")
+76 ;;1198
+77 ;;21,"69632 ")
+78 ;;1199
+79 ;;21,"69633 ")
+80 ;;1200
+81 ;;21,"69635 ")
+82 ;;1201
+83 ;;21,"69636 ")
+84 ;;1202
+85 ;;21,"69637 ")
+86 ;;1203
+87 ;;21,"69641 ")
+88 ;;1204
+89 ;;21,"69642 ")
+90 ;;1205
+91 ;;21,"69643 ")
+92 ;;1206
+93 ;;21,"69644 ")
+94 ;;1207
+95 ;;21,"69645 ")
+96 ;;1208
+97 ;;21,"69646 ")
+98 ;;1209
+99 ;;21,"69660 ")
+100 ;;1210
+101 ;;21,"69661 ")
+102 ;;1211
+103 ;;21,"69662 ")
+104 ;;1212
+105 ;;21,"69720 ")
+106 ;;1213
+107 ;;21,"69725 ")
+108 ;;1214
+109 ;;21,"69740 ")
+110 ;;1215
+111 ;;21,"69745 ")
+112 ;;1216
+113 ;;21,"69806 ")
+114 ;;1217
+115 ;;21,"69905 ")
+116 ;;1218
+117 ;;21,"69910 ")
+118 ;;1219
+119 ;;21,"69915 ")
+120 ;;1220
+121 ;;21,"69930 ")
+122 ;;1221
+123 ;;21,"69950 ")
+124 ;;1222
+125 ;;21,"69955 ")
+126 ;;1223
+127 ;;21,"69960 ")
+128 ;;1224
+129 ;;21,"69970 ")
+130 ;;1225
+131 ;;21,"75894 ")
+132 ;;1226
+133 ;;21,"77295 ")
+134 ;;1227
+135 ;;21,"92980 ")
+136 ;;1228
+137 ;;21,"92986 ")
+138 ;;1229
+139 ;;21,"92995 ")
+140 ;;1230
+141 ;;21,"93510 ")
+142 ;;1231
+143 ;;21,"93511 ")
+144 ;;1232
+145 ;;21,"93514 ")
+146 ;;1233
+147 ;;21,"93524 ")
+148 ;;1234
+149 ;;21,"93526 ")
+150 ;;1235
+151 ;;21,"93527 ")
+152 ;;1236
+153 ;;21,"93528 ")
+154 ;;1237
+155 ;;21,"93529 ")
+156 ;;1238
+157 ;;21,"93620 ")
+158 ;;1239
+159 ;;9002226,123,.01)
+160 ;;BMC HIGH COST PROCEDURES
+161 ;;9002226,123,.02)
+162 ;;HIGH COST CPT CODES
+163 ;;9002226,123,.04)
+164 ;;n
+165 ;;9002226,123,.08)
+166 ;;0
+167 ;;9002226,123,.09)
+168 ;;2960125
+169 ;;9002226,123,.12)
+170 ;;31
+171 ;;9002226,123,.13)
+172 ;;0
+173 ;;9002226,123,.14)
+174 ;;B
+175 ;;9002226,123,.15)
+176 ;;81
+177 ;;9002226,123,.16)
+178 ;;0
+179 ;;9002226.02101,"123,15732 ",.01)
+180 ;;15732
+181 ;;9002226.02101,"123,15734 ",.01)
+182 ;;15734
+183 ;;9002226.02101,"123,15736 ",.01)
+184 ;;15736
+185 ;;9002226.02101,"123,15738 ",.01)
+186 ;;15738
+187 ;;9002226.02101,"123,15755 ",.01)
+188 ;;15755
+189 ;;9002226.02101,"123,15840 ",.01)
+190 ;;15840
+191 ;;9002226.02101,"123,15841 ",.01)
+192 ;;15841
+193 ;;9002226.02101,"123,15842 ",.01)
+194 ;;15842
+195 ;;9002226.02101,"123,15845 ",.01)
+196 ;;15845
+197 ;;9002226.02101,"123,15935 ",.01)
+198 ;;15935
+199 ;;9002226.02101,"123,15937 ",.01)
+200 ;;15937
+201 ;;9002226.02101,"123,15946 ",.01)
+202 ;;15946
+203 ;;9002226.02101,"123,15956 ",.01)
+204 ;;15956
+205 ;;9002226.02101,"123,15958 ",.01)
+206 ;;15958
+207 ;;9002226.02101,"123,19200 ",.01)
+208 ;;19200
+209 ;;9002226.02101,"123,19220 ",.01)
+210 ;;19220
+211 ;;9002226.02101,"123,19271 ",.01)
+212 ;;19271
+213 ;;9002226.02101,"123,19272 ",.01)
+214 ;;19272
+215 ;;9002226.02101,"123,19318 ",.01)
+216 ;;19318
+217 ;;9002226.02101,"123,19357 ",.01)
+218 ;;19357
+219 ;;9002226.02101,"123,19361 ",.01)
+220 ;;19361
+221 ;;9002226.02101,"123,19362 ",.01)
+222 ;;19362
+223 ;;9002226.02101,"123,19364 ",.01)
+224 ;;19364
+225 ;;9002226.02101,"123,19366 ",.01)
+226 ;;19366
+227 ;;9002226.02101,"123,19367 ",.01)
+228 ;;19367
+229 ;;9002226.02101,"123,19368 ",.01)
+230 ;;19368
+231 ;;9002226.02101,"123,19369 ",.01)
+232 ;;19369
+233 ;;9002226.02101,"123,20802 ",.01)
+234 ;;20802
+235 ;;9002226.02101,"123,20805 ",.01)
+236 ;;20805
+237 ;;9002226.02101,"123,20808 ",.01)
+238 ;;20808
+239 ;;9002226.02101,"123,20816 ",.01)
+240 ;;20816
+241 ;;9002226.02101,"123,20822 ",.01)
+242 ;;20822
+243 ;;9002226.02101,"123,20824 ",.01)
+244 ;;20824
+245 ;;9002226.02101,"123,20827 ",.01)
+246 ;;20827
+247 ;;9002226.02101,"123,20838 ",.01)
+248 ;;20838
+249 ;;9002226.02101,"123,20955 ",.01)
+250 ;;20955
+251 ;;9002226.02101,"123,20969 ",.01)
+252 ;;20969
+253 ;;9002226.02101,"123,20970 ",.01)
+254 ;;20970
+255 ;;9002226.02101,"123,20972 ",.01)
+256 ;;20972
+257 ;;9002226.02101,"123,20973 ",.01)
+258 ;;20973
+259 ;;9002226.02101,"123,21045 ",.01)
+260 ;;21045
+261 ;;9002226.02101,"123,21144 ",.01)
+262 ;;21144
+263 ;;9002226.02101,"123,21145 ",.01)
+264 ;;21145
+265 ;;9002226.02101,"123,21146 ",.01)
+266 ;;21146
+267 ;;9002226.02101,"123,21147 ",.01)
+268 ;;21147
+269 ;;9002226.02101,"123,21150 ",.01)
+270 ;;21150
+271 ;;9002226.02101,"123,21151 ",.01)
+272 ;;21151
+273 ;;9002226.02101,"123,21154 ",.01)
+274 ;;21154
+275 ;;9002226.02101,"123,21155 ",.01)
+276 ;;21155
+277 ;;9002226.02101,"123,21159 ",.01)
+278 ;;21159
+279 ;;9002226.02101,"123,21160 ",.01)
+280 ;;21160
+281 ;;9002226.02101,"123,21172 ",.01)
+282 ;;21172
+283 ;;9002226.02101,"123,21175 ",.01)
+284 ;;21175
+285 ;;9002226.02101,"123,21179 ",.01)
+286 ;;21179
+287 ;;9002226.02101,"123,21180 ",.01)
+288 ;;21180
+289 ;;9002226.02101,"123,21182 ",.01)
+290 ;;21182
+291 ;;9002226.02101,"123,21183 ",.01)
+292 ;;21183
+293 ;;9002226.02101,"123,21184 ",.01)
+294 ;;21184
+295 ;;9002226.02101,"123,21188 ",.01)
+296 ;;21188
