Routine: BMCTXEP

BMCTXEP ; 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,61521 ",.01)

 ;;61521

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

 ;;61522

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

 ;;61524

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

 ;;61526

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

 ;;61530

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

 ;;61531

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

 ;;61533

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

 ;;61534

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

 ;;61536

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

 ;;61538

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

 ;;61539

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

 ;;61541

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

 ;;61542

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

 ;;61543

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

 ;;61544

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

 ;;61545

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

 ;;61546

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

 ;;61548

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

 ;;61550

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

 ;;61552

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

 ;;61556

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

 ;;61557

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

 ;;61558

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

 ;;61559

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

 ;;61563

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

 ;;61564

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

 ;;61570

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

 ;;61571

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

 ;;61575

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

 ;;61576

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

 ;;61580

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

 ;;61581

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

 ;;61582

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

 ;;61583

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

 ;;61584

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

 ;;61585

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

 ;;61590

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

 ;;61591

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

 ;;61592

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

 ;;61595

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

 ;;61596

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

 ;;61597

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

 ;;61598

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

 ;;61600

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

 ;;61601

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

 ;;61605

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

 ;;61606

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

 ;;61607

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

 ;;61608

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

 ;;61610

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

 ;;61612

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

 ;;61613

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

 ;;61615

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

 ;;61616

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

 ;;61618

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

 ;;61619

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

 ;;61624

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

 ;;61626

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

 ;;61680

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

 ;;61682

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

 ;;61684

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

 ;;61686

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

 ;;61690

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

 ;;61692

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

 ;;61700

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

 ;;61702

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

 ;;61703

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

 ;;61705

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

 ;;61708

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

 ;;61710

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

 ;;61711

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

 ;;61720

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

 ;;61735

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

 ;;61750

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

 ;;61751

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

 ;;61760

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

 ;;61770

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

 ;;61793

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

 ;;61850

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

 ;;61865

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

 ;;62005

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

 ;;62010

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

 ;;62100

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

 ;;62115

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

 ;;62116

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

 ;;62117

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

 ;;62120

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

 ;;62121

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

 ;;62140

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

 ;;62141

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

 ;;62142

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

 ;;62145

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

 ;;62146

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

 ;;62147

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

 ;;62180

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

 ;;62192

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

 ;;62200

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

 ;;62220

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

 ;;62223

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

 ;;62258

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

 ;;63001

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

 ;;63003

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

 ;;63005

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

 ;;63012

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

 ;;63015

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

 ;;63016

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

 ;;63017

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

 ;;63020

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

 ;;63030

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

 ;;63040

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

 ;;63042

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

 ;;63045

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

 ;;63046

BMCTXEP   ; 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,61521 ",.01)

 +2       ;;61521

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

 +4       ;;61522

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

 +6       ;;61524

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

 +8       ;;61526

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

 +10      ;;61530

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

 +12      ;;61531

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

 +14      ;;61533

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

 +16      ;;61534

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

 +18      ;;61536

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

 +20      ;;61538

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

 +22      ;;61539

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

 +24      ;;61541

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

 +26      ;;61542

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

 +28      ;;61543

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

 +30      ;;61544

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

 +32      ;;61545

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

 +34      ;;61546

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

 +36      ;;61548

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

 +38      ;;61550

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

 +40      ;;61552

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

 +42      ;;61556

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

 +44      ;;61557

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

 +46      ;;61558

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

 +48      ;;61559

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

 +50      ;;61563

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

 +52      ;;61564

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

 +54      ;;61570

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

 +56      ;;61571

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

 +58      ;;61575

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

 +60      ;;61576

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

 +62      ;;61580

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

 +64      ;;61581

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

 +66      ;;61582

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

 +68      ;;61583

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

 +70      ;;61584

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

 +72      ;;61585

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

 +74      ;;61590

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

 +76      ;;61591

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

 +78      ;;61592

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

 +80      ;;61595

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

 +82      ;;61596

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

 +84      ;;61597

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

 +86      ;;61598

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

 +88      ;;61600

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

 +90      ;;61601

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

 +92      ;;61605

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

 +94      ;;61606

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

 +96      ;;61607

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

 +98      ;;61608

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

 +100     ;;61610

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

 +102     ;;61612

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

 +104     ;;61613

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

 +106     ;;61615

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

 +108     ;;61616

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

 +110     ;;61618

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

 +112     ;;61619

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

 +114     ;;61624

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

 +116     ;;61626

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

 +118     ;;61680

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

 +120     ;;61682

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

 +122     ;;61684

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

 +124     ;;61686

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

 +126     ;;61690

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

 +128     ;;61692

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

 +130     ;;61700

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

 +132     ;;61702

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

 +134     ;;61703

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

 +136     ;;61705

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

 +138     ;;61708

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

 +140     ;;61710

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

 +142     ;;61711

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

 +144     ;;61720

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

 +146     ;;61735

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

 +148     ;;61750

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

 +150     ;;61751

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

 +152     ;;61760

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

 +154     ;;61770

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

 +156     ;;61793

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

 +158     ;;61850

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

 +160     ;;61865

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

 +162     ;;62005

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

 +164     ;;62010

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

 +166     ;;62100

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

 +168     ;;62115

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

 +170     ;;62116

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

 +172     ;;62117

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

 +174     ;;62120

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

 +176     ;;62121

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

 +178     ;;62140

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

 +180     ;;62141

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

 +182     ;;62142

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

 +184     ;;62145

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

 +186     ;;62146

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

 +188     ;;62147

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

 +190     ;;62180

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

 +192     ;;62192

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

 +194     ;;62200

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

 +196     ;;62220

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

 +198     ;;62223

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

 +200     ;;62258

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

 +202     ;;63001

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

 +204     ;;63003

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

 +206     ;;63005

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

 +208     ;;63012

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

 +210     ;;63015

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

 +212     ;;63016

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

 +214     ;;63017

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

 +216     ;;63020

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

 +218     ;;63030

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

 +220     ;;63040

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

 +222     ;;63042

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

 +224     ;;63045

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

 +226     ;;63046

BMCTXEP.m