Routine: BMCTXEJ

BMCTXEJ ; 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,31755 ",.01)

 ;;31755

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

 ;;31760

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

 ;;31766

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

 ;;31770

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

 ;;31775

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

 ;;31780

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

 ;;31781

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

 ;;31786

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

 ;;32141

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

 ;;32220

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

 ;;32320

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

 ;;32440

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

 ;;32442

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

 ;;32445

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

 ;;32480

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

 ;;32482

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

 ;;32484

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

 ;;32485

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

 ;;32486

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

 ;;32488

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

 ;;32500

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

 ;;32520

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

 ;;32522

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

 ;;32525

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

 ;;32652

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

 ;;32655

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

 ;;32656

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

 ;;32657

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

 ;;32659

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

 ;;32660

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

 ;;32662

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

 ;;32663

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

 ;;32664

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

 ;;32665

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

 ;;32815

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

 ;;32820

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

 ;;32851

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

 ;;32852

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

 ;;32853

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

 ;;32854

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

 ;;32900

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

 ;;32905

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

 ;;32906

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

 ;;32940

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

 ;;33025

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

 ;;33030

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

 ;;33031

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

 ;;33100

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

 ;;33120

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

 ;;33130

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

 ;;33243

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

 ;;33245

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

 ;;33246

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

 ;;33247

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

 ;;33249

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

 ;;33250

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

 ;;33251

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

 ;;33260

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

 ;;33261

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

 ;;33300

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

 ;;33305

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

 ;;33310

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

 ;;33315

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

 ;;33320

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

 ;;33321

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

 ;;33322

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

 ;;33330

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

 ;;33332

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

 ;;33335

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

 ;;33400

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

 ;;33401

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

 ;;33403

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

 ;;33404

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

 ;;33405

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

 ;;33406

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

 ;;33411

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

 ;;33412

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

 ;;33413

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

 ;;33414

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

 ;;33415

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

 ;;33416

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

 ;;33417

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

 ;;33420

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

 ;;33422

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

 ;;33425

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

 ;;33426

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

 ;;33427

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

 ;;33430

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

 ;;33460

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

 ;;33463

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

 ;;33464

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

 ;;33465

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

 ;;33468

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

 ;;33470

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

 ;;33471

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

 ;;33472

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

 ;;33474

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

 ;;33475

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

 ;;33476

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

 ;;33478

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

 ;;33500

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

 ;;33501

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

 ;;33502

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

 ;;33503

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

 ;;33504

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

 ;;33505

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

 ;;33506

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

 ;;33510

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

 ;;33511

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

 ;;33512

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

 ;;33513

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

 ;;33514

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

 ;;33516

BMCTXEJ   ; 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,31755 ",.01)

 +2       ;;31755

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

 +4       ;;31760

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

 +6       ;;31766

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

 +8       ;;31770

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

 +10      ;;31775

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

 +12      ;;31780

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

 +14      ;;31781

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

 +16      ;;31786

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

 +18      ;;32141

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

 +20      ;;32220

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

 +22      ;;32320

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

 +24      ;;32440

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

 +26      ;;32442

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

 +28      ;;32445

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

 +30      ;;32480

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

 +32      ;;32482

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

 +34      ;;32484

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

 +36      ;;32485

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

 +38      ;;32486

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

 +40      ;;32488

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

 +42      ;;32500

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

 +44      ;;32520

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

 +46      ;;32522

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

 +48      ;;32525

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

 +50      ;;32652

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

 +52      ;;32655

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

 +54      ;;32656

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

 +56      ;;32657

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

 +58      ;;32659

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

 +60      ;;32660

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

 +62      ;;32662

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

 +64      ;;32663

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

 +66      ;;32664

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

 +68      ;;32665

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

 +70      ;;32815

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

 +72      ;;32820

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

 +74      ;;32851

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

 +76      ;;32852

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

 +78      ;;32853

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

 +80      ;;32854

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

 +82      ;;32900

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

 +84      ;;32905

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

 +86      ;;32906

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

 +88      ;;32940

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

 +90      ;;33025

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

 +92      ;;33030

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

 +94      ;;33031

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

 +96      ;;33100

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

 +98      ;;33120

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

 +100     ;;33130

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

 +102     ;;33243

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

 +104     ;;33245

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

 +106     ;;33246

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

 +108     ;;33247

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

 +110     ;;33249

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

 +112     ;;33250

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

 +114     ;;33251

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

 +116     ;;33260

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

 +118     ;;33261

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

 +120     ;;33300

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

 +122     ;;33305

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

 +124     ;;33310

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

 +126     ;;33315

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

 +128     ;;33320

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

 +130     ;;33321

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

 +132     ;;33322

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

 +134     ;;33330

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

 +136     ;;33332

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

 +138     ;;33335

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

 +140     ;;33400

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

 +142     ;;33401

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

 +144     ;;33403

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

 +146     ;;33404

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

 +148     ;;33405

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

 +150     ;;33406

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

 +152     ;;33411

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

 +154     ;;33412

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

 +156     ;;33413

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

 +158     ;;33414

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

 +160     ;;33415

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

 +162     ;;33416

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

 +164     ;;33417

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

 +166     ;;33420

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

 +168     ;;33422

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

 +170     ;;33425

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

 +172     ;;33426

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

 +174     ;;33427

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

 +176     ;;33430

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

 +178     ;;33460

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

 +180     ;;33463

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

 +182     ;;33464

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

 +184     ;;33465

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

 +186     ;;33468

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

 +188     ;;33470

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

 +190     ;;33471

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

 +192     ;;33472

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

 +194     ;;33474

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

 +196     ;;33475

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

 +198     ;;33476

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

 +200     ;;33478

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

 +202     ;;33500

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

 +204     ;;33501

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

 +206     ;;33502

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

 +208     ;;33503

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

 +210     ;;33504

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

 +212     ;;33505

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

 +214     ;;33506

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

 +216     ;;33510

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

 +218     ;;33511

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

 +220     ;;33512

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

 +222     ;;33513

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

 +224     ;;33514

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

 +226     ;;33516

BMCTXEJ.m