Routine: BMCTXEN

BMCTXEN ; 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,46740 ",.01)

 ;;46740

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

 ;;46742

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

 ;;46744

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

 ;;46746

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

 ;;46748

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

 ;;47120

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

 ;;47122

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

 ;;47125

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

 ;;47130

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

 ;;47134

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

 ;;47135

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

 ;;47136

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

 ;;47360

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

 ;;47400

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

 ;;47420

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

 ;;47425

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

 ;;47440

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

 ;;47460

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

 ;;47612

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

 ;;47620

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

 ;;47701

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

 ;;47710

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

 ;;47711

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

 ;;47712

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

 ;;47721

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

 ;;47740

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

 ;;47741

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

 ;;47760

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

 ;;47765

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

 ;;47780

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

 ;;47785

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

 ;;47800

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

 ;;47802

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

 ;;47900

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

 ;;48005

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

 ;;48120

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

 ;;48140

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

 ;;48145

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

 ;;48146

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

 ;;48150

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

 ;;48152

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

 ;;48153

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

 ;;48154

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

 ;;48155

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

 ;;48180

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

 ;;48540

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

 ;;48547

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

 ;;49201

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

 ;;49215

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

 ;;49220

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

 ;;49425

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

 ;;49605

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

 ;;49606

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

 ;;50060

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

 ;;50065

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

 ;;50070

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

 ;;50075

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

 ;;50080

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

 ;;50081

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

 ;;50120

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

 ;;50125

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

 ;;50130

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

 ;;50135

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

 ;;50220

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

 ;;50225

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

 ;;50230

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

 ;;50234

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

 ;;50236

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

 ;;50240

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

 ;;50280

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

 ;;50320

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

 ;;50360

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

 ;;50365

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

 ;;50380

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

 ;;50400

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

 ;;50405

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

 ;;50500

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

 ;;50520

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

 ;;50525

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

 ;;50526

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

 ;;50540

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

 ;;50610

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

 ;;50630

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

 ;;50650

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

 ;;50660

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

 ;;50700

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

 ;;50715

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

 ;;50722

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

 ;;50725

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

 ;;50740

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

 ;;50750

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

 ;;50760

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

 ;;50770

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

 ;;50780

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

 ;;50782

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

 ;;50783

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

 ;;50785

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

 ;;50800

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

 ;;50810

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

 ;;50815

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

 ;;50820

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

 ;;50825

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

 ;;50830

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

 ;;50840

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

 ;;50845

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

 ;;50930

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

 ;;51525

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

 ;;51555

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

 ;;51565

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

 ;;51570

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

 ;;51575

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

 ;;51580

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

 ;;51585

BMCTXEN   ; 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,46740 ",.01)

 +2       ;;46740

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

 +4       ;;46742

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

 +6       ;;46744

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

 +8       ;;46746

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

 +10      ;;46748

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

 +12      ;;47120

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

 +14      ;;47122

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

 +16      ;;47125

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

 +18      ;;47130

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

 +20      ;;47134

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

 +22      ;;47135

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

 +24      ;;47136

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

 +26      ;;47360

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

 +28      ;;47400

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

 +30      ;;47420

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

 +32      ;;47425

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

 +34      ;;47440

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

 +36      ;;47460

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

 +38      ;;47612

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

 +40      ;;47620

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

 +42      ;;47701

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

 +44      ;;47710

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

 +46      ;;47711

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

 +48      ;;47712

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

 +50      ;;47721

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

 +52      ;;47740

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

 +54      ;;47741

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

 +56      ;;47760

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

 +58      ;;47765

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

 +60      ;;47780

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

 +62      ;;47785

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

 +64      ;;47800

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

 +66      ;;47802

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

 +68      ;;47900

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

 +70      ;;48005

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

 +72      ;;48120

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

 +74      ;;48140

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

 +76      ;;48145

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

 +78      ;;48146

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

 +80      ;;48150

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

 +82      ;;48152

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

 +84      ;;48153

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

 +86      ;;48154

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

 +88      ;;48155

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

 +90      ;;48180

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

 +92      ;;48540

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

 +94      ;;48547

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

 +96      ;;49201

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

 +98      ;;49215

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

 +100     ;;49220

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

 +102     ;;49425

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

 +104     ;;49605

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

 +106     ;;49606

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

 +108     ;;50060

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

 +110     ;;50065

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

 +112     ;;50070

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

 +114     ;;50075

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

 +116     ;;50080

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

 +118     ;;50081

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

 +120     ;;50120

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

 +122     ;;50125

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

 +124     ;;50130

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

 +126     ;;50135

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

 +128     ;;50220

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

 +130     ;;50225

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

 +132     ;;50230

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

 +134     ;;50234

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

 +136     ;;50236

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

 +138     ;;50240

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

 +140     ;;50280

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

 +142     ;;50320

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

 +144     ;;50360

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

 +146     ;;50365

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

 +148     ;;50380

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

 +150     ;;50400

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

 +152     ;;50405

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

 +154     ;;50500

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

 +156     ;;50520

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

 +158     ;;50525

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

 +160     ;;50526

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

 +162     ;;50540

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

 +164     ;;50610

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

 +166     ;;50630

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

 +168     ;;50650

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

 +170     ;;50660

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

 +172     ;;50700

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

 +174     ;;50715

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

 +176     ;;50722

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

 +178     ;;50725

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

 +180     ;;50740

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

 +182     ;;50750

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

 +184     ;;50760

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

 +186     ;;50770

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

 +188     ;;50780

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

 +190     ;;50782

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

 +192     ;;50783

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

 +194     ;;50785

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

 +196     ;;50800

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

 +198     ;;50810

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

 +200     ;;50815

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

 +202     ;;50820

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

 +204     ;;50825

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

 +206     ;;50830

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

 +208     ;;50840

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

 +210     ;;50845

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

 +212     ;;50930

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

 +214     ;;51525

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

 +216     ;;51555

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

 +218     ;;51565

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

 +220     ;;51570

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

 +222     ;;51575

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

 +224     ;;51580

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

 +226     ;;51585

BMCTXEN.m