Routine: BMCTXEH

BMCTXEH ; 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)

 ;;9002226.02101,"123,21193 ",.01)

 ;;21193

 ;;9002226.02101,"123,21194 ",.01)

 ;;21194

 ;;9002226.02101,"123,21195 ",.01)

 ;;21195

 ;;9002226.02101,"123,21196 ",.01)

 ;;21196

 ;;9002226.02101,"123,21198 ",.01)

 ;;21198

 ;;9002226.02101,"123,21210 ",.01)

 ;;21210

 ;;9002226.02101,"123,21215 ",.01)

 ;;21215

 ;;9002226.02101,"123,21240 ",.01)

 ;;21240

 ;;9002226.02101,"123,21242 ",.01)

 ;;21242

 ;;9002226.02101,"123,21243 ",.01)

 ;;21243

 ;;9002226.02101,"123,21244 ",.01)

 ;;21244

 ;;9002226.02101,"123,21247 ",.01)

 ;;21247

 ;;9002226.02101,"123,21248 ",.01)

 ;;21248

 ;;9002226.02101,"123,21249 ",.01)

 ;;21249

 ;;9002226.02101,"123,21255 ",.01)

 ;;21255

 ;;9002226.02101,"123,21256 ",.01)

 ;;21256

 ;;9002226.02101,"123,21260 ",.01)

 ;;21260

 ;;9002226.02101,"123,21261 ",.01)

 ;;21261

 ;;9002226.02101,"123,21263 ",.01)

 ;;21263

 ;;9002226.02101,"123,21267 ",.01)

 ;;21267

 ;;9002226.02101,"123,21268 ",.01)

 ;;21268

 ;;9002226.02101,"123,21344 ",.01)

 ;;21344

 ;;9002226.02101,"123,21348 ",.01)

 ;;21348

 ;;9002226.02101,"123,21365 ",.01)

 ;;21365

 ;;9002226.02101,"123,21366 ",.01)

 ;;21366

 ;;9002226.02101,"123,21433 ",.01)

 ;;21433

 ;;9002226.02101,"123,21435 ",.01)

 ;;21435

 ;;9002226.02101,"123,21436 ",.01)

 ;;21436

 ;;9002226.02101,"123,21470 ",.01)

 ;;21470

 ;;9002226.02101,"123,21630 ",.01)

 ;;21630

 ;;9002226.02101,"123,21632 ",.01)

 ;;21632

 ;;9002226.02101,"123,21633 ",.01)

 ;;21633

 ;;9002226.02101,"123,22140 ",.01)

 ;;22140

 ;;9002226.02101,"123,22141 ",.01)

 ;;22141

 ;;9002226.02101,"123,22142 ",.01)

 ;;22142

 ;;9002226.02101,"123,22150 ",.01)

 ;;22150

 ;;9002226.02101,"123,22151 ",.01)

 ;;22151

 ;;9002226.02101,"123,22152 ",.01)

 ;;22152

 ;;9002226.02101,"123,22210 ",.01)

 ;;22210

 ;;9002226.02101,"123,22212 ",.01)

 ;;22212

 ;;9002226.02101,"123,22214 ",.01)

 ;;22214

 ;;9002226.02101,"123,22220 ",.01)

 ;;22220

 ;;9002226.02101,"123,22222 ",.01)

 ;;22222

 ;;9002226.02101,"123,22224 ",.01)

 ;;22224

 ;;9002226.02101,"123,22325 ",.01)

 ;;22325

 ;;9002226.02101,"123,22326 ",.01)

 ;;22326

 ;;9002226.02101,"123,22327 ",.01)

 ;;22327

 ;;9002226.02101,"123,22548 ",.01)

 ;;22548

 ;;9002226.02101,"123,22554 ",.01)

 ;;22554

 ;;9002226.02101,"123,22556 ",.01)

 ;;22556

 ;;9002226.02101,"123,22558 ",.01)

 ;;22558

 ;;9002226.02101,"123,22590 ",.01)

 ;;22590

 ;;9002226.02101,"123,22595 ",.01)

 ;;22595

 ;;9002226.02101,"123,22600 ",.01)

 ;;22600

 ;;9002226.02101,"123,22610 ",.01)

 ;;22610

 ;;9002226.02101,"123,22612 ",.01)

 ;;22612

 ;;9002226.02101,"123,22625 ",.01)

 ;;22625

 ;;9002226.02101,"123,22630 ",.01)

 ;;22630

 ;;9002226.02101,"123,22800 ",.01)

 ;;22800

 ;;9002226.02101,"123,22802 ",.01)

 ;;22802

 ;;9002226.02101,"123,22810 ",.01)

 ;;22810

 ;;9002226.02101,"123,22812 ",.01)

 ;;22812

 ;;9002226.02101,"123,22840 ",.01)

 ;;22840

 ;;9002226.02101,"123,22842 ",.01)

 ;;22842

 ;;9002226.02101,"123,22845 ",.01)

 ;;22845

 ;;9002226.02101,"123,23220 ",.01)

 ;;23220

 ;;9002226.02101,"123,23221 ",.01)

 ;;23221

 ;;9002226.02101,"123,23222 ",.01)

 ;;23222

 ;;9002226.02101,"123,23397 ",.01)

 ;;23397

 ;;9002226.02101,"123,23412 ",.01)

 ;;23412

 ;;9002226.02101,"123,23420 ",.01)

 ;;23420

 ;;9002226.02101,"123,23450 ",.01)

 ;;23450

 ;;9002226.02101,"123,23455 ",.01)

 ;;23455

 ;;9002226.02101,"123,23460 ",.01)

 ;;23460

 ;;9002226.02101,"123,23462 ",.01)

 ;;23462

 ;;9002226.02101,"123,23465 ",.01)

 ;;23465

 ;;9002226.02101,"123,23466 ",.01)

 ;;23466

 ;;9002226.02101,"123,23470 ",.01)

 ;;23470

 ;;9002226.02101,"123,23472 ",.01)

 ;;23472

 ;;9002226.02101,"123,23491 ",.01)

 ;;23491

 ;;9002226.02101,"123,23616 ",.01)

 ;;23616

 ;;9002226.02101,"123,23680 ",.01)

 ;;23680

 ;;9002226.02101,"123,23800 ",.01)

 ;;23800

 ;;9002226.02101,"123,23802 ",.01)

 ;;23802

 ;;9002226.02101,"123,23900 ",.01)

 ;;23900

 ;;9002226.02101,"123,23920 ",.01)

 ;;23920

 ;;9002226.02101,"123,24150 ",.01)

 ;;24150

 ;;9002226.02101,"123,24151 ",.01)

 ;;24151

 ;;9002226.02101,"123,24360 ",.01)

 ;;24360

 ;;9002226.02101,"123,24361 ",.01)

 ;;24361

 ;;9002226.02101,"123,24362 ",.01)

 ;;24362

 ;;9002226.02101,"123,24363 ",.01)

 ;;24363

 ;;9002226.02101,"123,24410 ",.01)

 ;;24410

 ;;9002226.02101,"123,24420 ",.01)

 ;;24420

 ;;9002226.02101,"123,24430 ",.01)

 ;;24430

 ;;9002226.02101,"123,24435 ",.01)

 ;;24435

 ;;9002226.02101,"123,24546 ",.01)

 ;;24546

 ;;9002226.02101,"123,24586 ",.01)

 ;;24586

 ;;9002226.02101,"123,24587 ",.01)

 ;;24587

 ;;9002226.02101,"123,24935 ",.01)

 ;;24935

 ;;9002226.02101,"123,25331 ",.01)

 ;;25331

 ;;9002226.02101,"123,25392 ",.01)

 ;;25392

 ;;9002226.02101,"123,25393 ",.01)

 ;;25393

 ;;9002226.02101,"123,25405 ",.01)

 ;;25405

 ;;9002226.02101,"123,25420 ",.01)

 ;;25420

 ;;9002226.02101,"123,25426 ",.01)

 ;;25426

 ;;9002226.02101,"123,25446 ",.01)

 ;;25446

 ;;9002226.02101,"123,25800 ",.01)

 ;;25800

 ;;9002226.02101,"123,25810 ",.01)

 ;;25810

 ;;9002226.02101,"123,25915 ",.01)

 ;;25915

 ;;9002226.02101,"123,26498 ",.01)

 ;;26498

 ;;9002226.02101,"123,26550 ",.01)

 ;;26550

 ;;9002226.02101,"123,26555 ",.01)

 ;;26555

BMCTXEH   ; 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,21193 ",.01)

 +2       ;;21193

 +3       ;;9002226.02101,"123,21194 ",.01)

 +4       ;;21194

 +5       ;;9002226.02101,"123,21195 ",.01)

 +6       ;;21195

 +7       ;;9002226.02101,"123,21196 ",.01)

 +8       ;;21196

 +9       ;;9002226.02101,"123,21198 ",.01)

 +10      ;;21198

 +11      ;;9002226.02101,"123,21210 ",.01)

 +12      ;;21210

 +13      ;;9002226.02101,"123,21215 ",.01)

 +14      ;;21215

 +15      ;;9002226.02101,"123,21240 ",.01)

 +16      ;;21240

 +17      ;;9002226.02101,"123,21242 ",.01)

 +18      ;;21242

 +19      ;;9002226.02101,"123,21243 ",.01)

 +20      ;;21243

 +21      ;;9002226.02101,"123,21244 ",.01)

 +22      ;;21244

 +23      ;;9002226.02101,"123,21247 ",.01)

 +24      ;;21247

 +25      ;;9002226.02101,"123,21248 ",.01)

 +26      ;;21248

 +27      ;;9002226.02101,"123,21249 ",.01)

 +28      ;;21249

 +29      ;;9002226.02101,"123,21255 ",.01)

 +30      ;;21255

 +31      ;;9002226.02101,"123,21256 ",.01)

 +32      ;;21256

 +33      ;;9002226.02101,"123,21260 ",.01)

 +34      ;;21260

 +35      ;;9002226.02101,"123,21261 ",.01)

 +36      ;;21261

 +37      ;;9002226.02101,"123,21263 ",.01)

 +38      ;;21263

 +39      ;;9002226.02101,"123,21267 ",.01)

 +40      ;;21267

 +41      ;;9002226.02101,"123,21268 ",.01)

 +42      ;;21268

 +43      ;;9002226.02101,"123,21344 ",.01)

 +44      ;;21344

 +45      ;;9002226.02101,"123,21348 ",.01)

 +46      ;;21348

 +47      ;;9002226.02101,"123,21365 ",.01)

 +48      ;;21365

 +49      ;;9002226.02101,"123,21366 ",.01)

 +50      ;;21366

 +51      ;;9002226.02101,"123,21433 ",.01)

 +52      ;;21433

 +53      ;;9002226.02101,"123,21435 ",.01)

 +54      ;;21435

 +55      ;;9002226.02101,"123,21436 ",.01)

 +56      ;;21436

 +57      ;;9002226.02101,"123,21470 ",.01)

 +58      ;;21470

 +59      ;;9002226.02101,"123,21630 ",.01)

 +60      ;;21630

 +61      ;;9002226.02101,"123,21632 ",.01)

 +62      ;;21632

 +63      ;;9002226.02101,"123,21633 ",.01)

 +64      ;;21633

 +65      ;;9002226.02101,"123,22140 ",.01)

 +66      ;;22140

 +67      ;;9002226.02101,"123,22141 ",.01)

 +68      ;;22141

 +69      ;;9002226.02101,"123,22142 ",.01)

 +70      ;;22142

 +71      ;;9002226.02101,"123,22150 ",.01)

 +72      ;;22150

 +73      ;;9002226.02101,"123,22151 ",.01)

 +74      ;;22151

 +75      ;;9002226.02101,"123,22152 ",.01)

 +76      ;;22152

 +77      ;;9002226.02101,"123,22210 ",.01)

 +78      ;;22210

 +79      ;;9002226.02101,"123,22212 ",.01)

 +80      ;;22212

 +81      ;;9002226.02101,"123,22214 ",.01)

 +82      ;;22214

 +83      ;;9002226.02101,"123,22220 ",.01)

 +84      ;;22220

 +85      ;;9002226.02101,"123,22222 ",.01)

 +86      ;;22222

 +87      ;;9002226.02101,"123,22224 ",.01)

 +88      ;;22224

 +89      ;;9002226.02101,"123,22325 ",.01)

 +90      ;;22325

 +91      ;;9002226.02101,"123,22326 ",.01)

 +92      ;;22326

 +93      ;;9002226.02101,"123,22327 ",.01)

 +94      ;;22327

 +95      ;;9002226.02101,"123,22548 ",.01)

 +96      ;;22548

 +97      ;;9002226.02101,"123,22554 ",.01)

 +98      ;;22554

 +99      ;;9002226.02101,"123,22556 ",.01)

 +100     ;;22556

 +101     ;;9002226.02101,"123,22558 ",.01)

 +102     ;;22558

 +103     ;;9002226.02101,"123,22590 ",.01)

 +104     ;;22590

 +105     ;;9002226.02101,"123,22595 ",.01)

 +106     ;;22595

 +107     ;;9002226.02101,"123,22600 ",.01)

 +108     ;;22600

 +109     ;;9002226.02101,"123,22610 ",.01)

 +110     ;;22610

 +111     ;;9002226.02101,"123,22612 ",.01)

 +112     ;;22612

 +113     ;;9002226.02101,"123,22625 ",.01)

 +114     ;;22625

 +115     ;;9002226.02101,"123,22630 ",.01)

 +116     ;;22630

 +117     ;;9002226.02101,"123,22800 ",.01)

 +118     ;;22800

 +119     ;;9002226.02101,"123,22802 ",.01)

 +120     ;;22802

 +121     ;;9002226.02101,"123,22810 ",.01)

 +122     ;;22810

 +123     ;;9002226.02101,"123,22812 ",.01)

 +124     ;;22812

 +125     ;;9002226.02101,"123,22840 ",.01)

 +126     ;;22840

 +127     ;;9002226.02101,"123,22842 ",.01)

 +128     ;;22842

 +129     ;;9002226.02101,"123,22845 ",.01)

 +130     ;;22845

 +131     ;;9002226.02101,"123,23220 ",.01)

 +132     ;;23220

 +133     ;;9002226.02101,"123,23221 ",.01)

 +134     ;;23221

 +135     ;;9002226.02101,"123,23222 ",.01)

 +136     ;;23222

 +137     ;;9002226.02101,"123,23397 ",.01)

 +138     ;;23397

 +139     ;;9002226.02101,"123,23412 ",.01)

 +140     ;;23412

 +141     ;;9002226.02101,"123,23420 ",.01)

 +142     ;;23420

 +143     ;;9002226.02101,"123,23450 ",.01)

 +144     ;;23450

 +145     ;;9002226.02101,"123,23455 ",.01)

 +146     ;;23455

 +147     ;;9002226.02101,"123,23460 ",.01)

 +148     ;;23460

 +149     ;;9002226.02101,"123,23462 ",.01)

 +150     ;;23462

 +151     ;;9002226.02101,"123,23465 ",.01)

 +152     ;;23465

 +153     ;;9002226.02101,"123,23466 ",.01)

 +154     ;;23466

 +155     ;;9002226.02101,"123,23470 ",.01)

 +156     ;;23470

 +157     ;;9002226.02101,"123,23472 ",.01)

 +158     ;;23472

 +159     ;;9002226.02101,"123,23491 ",.01)

 +160     ;;23491

 +161     ;;9002226.02101,"123,23616 ",.01)

 +162     ;;23616

 +163     ;;9002226.02101,"123,23680 ",.01)

 +164     ;;23680

 +165     ;;9002226.02101,"123,23800 ",.01)

 +166     ;;23800

 +167     ;;9002226.02101,"123,23802 ",.01)

 +168     ;;23802

 +169     ;;9002226.02101,"123,23900 ",.01)

 +170     ;;23900

 +171     ;;9002226.02101,"123,23920 ",.01)

 +172     ;;23920

 +173     ;;9002226.02101,"123,24150 ",.01)

 +174     ;;24150

 +175     ;;9002226.02101,"123,24151 ",.01)

 +176     ;;24151

 +177     ;;9002226.02101,"123,24360 ",.01)

 +178     ;;24360

 +179     ;;9002226.02101,"123,24361 ",.01)

 +180     ;;24361

 +181     ;;9002226.02101,"123,24362 ",.01)

 +182     ;;24362

 +183     ;;9002226.02101,"123,24363 ",.01)

 +184     ;;24363

 +185     ;;9002226.02101,"123,24410 ",.01)

 +186     ;;24410

 +187     ;;9002226.02101,"123,24420 ",.01)

 +188     ;;24420

 +189     ;;9002226.02101,"123,24430 ",.01)

 +190     ;;24430

 +191     ;;9002226.02101,"123,24435 ",.01)

 +192     ;;24435

 +193     ;;9002226.02101,"123,24546 ",.01)

 +194     ;;24546

 +195     ;;9002226.02101,"123,24586 ",.01)

 +196     ;;24586

 +197     ;;9002226.02101,"123,24587 ",.01)

 +198     ;;24587

 +199     ;;9002226.02101,"123,24935 ",.01)

 +200     ;;24935

 +201     ;;9002226.02101,"123,25331 ",.01)

 +202     ;;25331

 +203     ;;9002226.02101,"123,25392 ",.01)

 +204     ;;25392

 +205     ;;9002226.02101,"123,25393 ",.01)

 +206     ;;25393

 +207     ;;9002226.02101,"123,25405 ",.01)

 +208     ;;25405

 +209     ;;9002226.02101,"123,25420 ",.01)

 +210     ;;25420

 +211     ;;9002226.02101,"123,25426 ",.01)

 +212     ;;25426

 +213     ;;9002226.02101,"123,25446 ",.01)

 +214     ;;25446

 +215     ;;9002226.02101,"123,25800 ",.01)

 +216     ;;25800

 +217     ;;9002226.02101,"123,25810 ",.01)

 +218     ;;25810

 +219     ;;9002226.02101,"123,25915 ",.01)

 +220     ;;25915

 +221     ;;9002226.02101,"123,26498 ",.01)

 +222     ;;26498

 +223     ;;9002226.02101,"123,26550 ",.01)

 +224     ;;26550

 +225     ;;9002226.02101,"123,26555 ",.01)

 +226     ;;26555

BMCTXEH.m