Routine: BMCTXEQ

BMCTXEQ ; 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,63047 ",.01)

 ;;63047

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

 ;;63055

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

 ;;63056

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

 ;;63064

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

 ;;63075

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

 ;;63077

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

 ;;63081

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

 ;;63085

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

 ;;63087

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

 ;;63090

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

 ;;63170

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

 ;;63172

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

 ;;63173

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

 ;;63180

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

 ;;63182

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

 ;;63185

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

 ;;63190

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

 ;;63191

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

 ;;63194

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

 ;;63195

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

 ;;63196

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

 ;;63197

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

 ;;63198

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

 ;;63199

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

 ;;63200

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

 ;;63250

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

 ;;63251

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

 ;;63252

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

 ;;63265

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

 ;;63266

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

 ;;63267

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

 ;;63268

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

 ;;63270

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

 ;;63271

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

 ;;63272

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

 ;;63273

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

 ;;63275

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

 ;;63276

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

 ;;63277

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

 ;;63278

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

 ;;63280

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

 ;;63281

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

 ;;63282

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

 ;;63283

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

 ;;63285

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

 ;;63286

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

 ;;63287

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

 ;;63290

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

 ;;63300

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

 ;;63301

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

 ;;63302

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

 ;;63303

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

 ;;63304

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

 ;;63305

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

 ;;63306

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

 ;;63307

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

 ;;63615

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

 ;;63700

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

 ;;63702

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

 ;;63704

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

 ;;63706

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

 ;;63707

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

 ;;63709

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

 ;;63740

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

 ;;64786

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

 ;;64804

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

 ;;64858

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

 ;;64861

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

 ;;64862

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

 ;;64865

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

 ;;64866

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

 ;;64870

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

 ;;64885

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

 ;;64886

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

 ;;64890

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

 ;;64891

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

 ;;64893

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

 ;;64895

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

 ;;64896

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

 ;;64897

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

 ;;64898

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

 ;;64907

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

 ;;65110

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

 ;;65112

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

 ;;65114

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

 ;;65285

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

 ;;65730

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

 ;;65750

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

 ;;65755

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

 ;;65770

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

 ;;66180

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

 ;;66983

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

 ;;66984

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

 ;;67036

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

 ;;67038

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

 ;;67039

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

 ;;67040

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

 ;;67107

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

 ;;67108

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

 ;;67109

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

 ;;67112

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

 ;;67255

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

 ;;67420

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

 ;;67440

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

 ;;67450

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

 ;;67973

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

 ;;67974

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

 ;;69155

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

 ;;69320

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

 ;;69502

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

 ;;69505

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

 ;;69511

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

 ;;69530

BMCTXEQ   ; 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,63047 ",.01)

 +2       ;;63047

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

 +4       ;;63055

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

 +6       ;;63056

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

 +8       ;;63064

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

 +10      ;;63075

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

 +12      ;;63077

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

 +14      ;;63081

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

 +16      ;;63085

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

 +18      ;;63087

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

 +20      ;;63090

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

 +22      ;;63170

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

 +24      ;;63172

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

 +26      ;;63173

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

 +28      ;;63180

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

 +30      ;;63182

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

 +32      ;;63185

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

 +34      ;;63190

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

 +36      ;;63191

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

 +38      ;;63194

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

 +40      ;;63195

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

 +42      ;;63196

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

 +44      ;;63197

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

 +46      ;;63198

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

 +48      ;;63199

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

 +50      ;;63200

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

 +52      ;;63250

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

 +54      ;;63251

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

 +56      ;;63252

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

 +58      ;;63265

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

 +60      ;;63266

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

 +62      ;;63267

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

 +64      ;;63268

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

 +66      ;;63270

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

 +68      ;;63271

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

 +70      ;;63272

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

 +72      ;;63273

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

 +74      ;;63275

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

 +76      ;;63276

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

 +78      ;;63277

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

 +80      ;;63278

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

 +82      ;;63280

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

 +84      ;;63281

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

 +86      ;;63282

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

 +88      ;;63283

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

 +90      ;;63285

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

 +92      ;;63286

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

 +94      ;;63287

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

 +96      ;;63290

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

 +98      ;;63300

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

 +100     ;;63301

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

 +102     ;;63302

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

 +104     ;;63303

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

 +106     ;;63304

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

 +108     ;;63305

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

 +110     ;;63306

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

 +112     ;;63307

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

 +114     ;;63615

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

 +116     ;;63700

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

 +118     ;;63702

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

 +120     ;;63704

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

 +122     ;;63706

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

 +124     ;;63707

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

 +126     ;;63709

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

 +128     ;;63740

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

 +130     ;;64786

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

 +132     ;;64804

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

 +134     ;;64858

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

 +136     ;;64861

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

 +138     ;;64862

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

 +140     ;;64865

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

 +142     ;;64866

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

 +144     ;;64870

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

 +146     ;;64885

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

 +148     ;;64886

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

 +150     ;;64890

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

 +152     ;;64891

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

 +154     ;;64893

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

 +156     ;;64895

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

 +158     ;;64896

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

 +160     ;;64897

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

 +162     ;;64898

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

 +164     ;;64907

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

 +166     ;;65110

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

 +168     ;;65112

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

 +170     ;;65114

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

 +172     ;;65285

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

 +174     ;;65730

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

 +176     ;;65750

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

 +178     ;;65755

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

 +180     ;;65770

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

 +182     ;;66180

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

 +184     ;;66983

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

 +186     ;;66984

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

 +188     ;;67036

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

 +190     ;;67038

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

 +192     ;;67039

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

 +194     ;;67040

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

 +196     ;;67107

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

 +198     ;;67108

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

 +200     ;;67109

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

 +202     ;;67112

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

 +204     ;;67255

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

 +206     ;;67420

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

 +208     ;;67440

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

 +210     ;;67450

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

 +212     ;;67973

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

 +214     ;;67974

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

 +216     ;;69155

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

 +218     ;;69320

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

 +220     ;;69502

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

 +222     ;;69505

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

 +224     ;;69511

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

 +226     ;;69530

BMCTXEQ.m