Routine: BMCTXEI

BMCTXEI ; 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,26580 ",.01)

 ;;26580

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

 ;;26585

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

 ;;26590

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

 ;;27035

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

 ;;27054

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

 ;;27075

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

 ;;27076

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

 ;;27077

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

 ;;27091

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

 ;;27120

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

 ;;27122

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

 ;;27125

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

 ;;27130

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

 ;;27132

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

 ;;27134

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

 ;;27137

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

 ;;27138

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

 ;;27147

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

 ;;27151

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

 ;;27156

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

 ;;27158

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

 ;;27161

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

 ;;27165

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

 ;;27170

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

 ;;27177

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

 ;;27181

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

 ;;27187

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

 ;;27217

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

 ;;27218

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

 ;;27226

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

 ;;27227

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

 ;;27228

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

 ;;27235

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

 ;;27236

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

 ;;27244

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

 ;;27245

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

 ;;27253

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

 ;;27254

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

 ;;27258

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

 ;;27259

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

 ;;27284

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

 ;;27286

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

 ;;27290

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

 ;;27295

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

 ;;27365

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

 ;;27409

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

 ;;27442

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

 ;;27443

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

 ;;27445

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

 ;;27446

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

 ;;27447

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

 ;;27450

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

 ;;27454

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

 ;;27455

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

 ;;27457

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

 ;;27466

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

 ;;27468

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

 ;;27470

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

 ;;27472

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

 ;;27486

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

 ;;27487

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

 ;;27488

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

 ;;27495

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

 ;;27506

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

 ;;27507

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

 ;;27511

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

 ;;27513

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

 ;;27514

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

 ;;27519

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

 ;;27536

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

 ;;27556

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

 ;;27557

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

 ;;27558

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

 ;;27580

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

 ;;27591

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

 ;;27645

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

 ;;27702

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

 ;;27703

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

 ;;27715

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

 ;;27724

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

 ;;27758

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

 ;;27759

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

 ;;27870

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

 ;;28420

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

 ;;28705

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

 ;;28715

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

 ;;29882

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

 ;;29888

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

 ;;30410

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

 ;;30420

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

 ;;30450

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

 ;;30462

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

 ;;31084

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

 ;;31085

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

 ;;31090

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

 ;;31225

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

 ;;31230

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

 ;;31290

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

 ;;31291

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

 ;;31293

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

 ;;31294

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

 ;;31360

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

 ;;31365

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

 ;;31367

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

 ;;31368

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

 ;;31370

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

 ;;31375

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

 ;;31380

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

 ;;31382

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

 ;;31390

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

 ;;31395

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

 ;;31582

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

 ;;31584

BMCTXEI   ; 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,26580 ",.01)

 +2       ;;26580

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

 +4       ;;26585

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

 +6       ;;26590

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

 +8       ;;27035

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

 +10      ;;27054

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

 +12      ;;27075

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

 +14      ;;27076

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

 +16      ;;27077

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

 +18      ;;27091

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

 +20      ;;27120

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

 +22      ;;27122

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

 +24      ;;27125

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

 +26      ;;27130

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

 +28      ;;27132

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

 +30      ;;27134

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

 +32      ;;27137

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

 +34      ;;27138

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

 +36      ;;27147

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

 +38      ;;27151

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

 +40      ;;27156

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

 +42      ;;27158

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

 +44      ;;27161

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

 +46      ;;27165

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

 +48      ;;27170

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

 +50      ;;27177

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

 +52      ;;27181

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

 +54      ;;27187

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

 +56      ;;27217

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

 +58      ;;27218

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

 +60      ;;27226

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

 +62      ;;27227

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

 +64      ;;27228

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

 +66      ;;27235

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

 +68      ;;27236

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

 +70      ;;27244

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

 +72      ;;27245

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

 +74      ;;27253

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

 +76      ;;27254

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

 +78      ;;27258

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

 +80      ;;27259

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

 +82      ;;27284

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

 +84      ;;27286

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

 +86      ;;27290

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

 +88      ;;27295

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

 +90      ;;27365

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

 +92      ;;27409

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

 +94      ;;27442

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

 +96      ;;27443

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

 +98      ;;27445

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

 +100     ;;27446

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

 +102     ;;27447

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

 +104     ;;27450

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

 +106     ;;27454

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

 +108     ;;27455

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

 +110     ;;27457

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

 +112     ;;27466

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

 +114     ;;27468

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

 +116     ;;27470

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

 +118     ;;27472

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

 +120     ;;27486

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

 +122     ;;27487

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

 +124     ;;27488

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

 +126     ;;27495

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

 +128     ;;27506

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

 +130     ;;27507

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

 +132     ;;27511

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

 +134     ;;27513

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

 +136     ;;27514

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

 +138     ;;27519

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

 +140     ;;27536

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

 +142     ;;27556

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

 +144     ;;27557

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

 +146     ;;27558

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

 +148     ;;27580

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

 +150     ;;27591

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

 +152     ;;27645

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

 +154     ;;27702

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

 +156     ;;27703

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

 +158     ;;27715

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

 +160     ;;27724

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

 +162     ;;27758

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

 +164     ;;27759

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

 +166     ;;27870

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

 +168     ;;28420

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

 +170     ;;28705

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

 +172     ;;28715

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

 +174     ;;29882

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

 +176     ;;29888

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

 +178     ;;30410

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

 +180     ;;30420

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

 +182     ;;30450

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

 +184     ;;30462

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

 +186     ;;31084

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

 +188     ;;31085

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

 +190     ;;31090

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

 +192     ;;31225

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

 +194     ;;31230

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

 +196     ;;31290

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

 +198     ;;31291

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

 +200     ;;31293

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

 +202     ;;31294

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

 +204     ;;31360

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

 +206     ;;31365

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

 +208     ;;31367

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

 +210     ;;31368

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

 +212     ;;31370

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

 +214     ;;31375

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

 +216     ;;31380

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

 +218     ;;31382

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

 +220     ;;31390

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

 +222     ;;31395

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

 +224     ;;31582

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

 +226     ;;31584

BMCTXEI.m