Routine: BMCTXEG

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

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

BMCTXEG.m