BGPUTXAD.m

BGPUTXAD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 21, 2005 ;

 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 ;;;BGPU;;APR 21, 2005

 ;

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

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"61392-0018-90 ")

 ;;385

 ;;21,"61392-0018-91 ")

 ;;389

 ;;21,"61392-0069-31 ")

 ;;315

 ;;21,"61392-0069-32 ")

 ;;316

 ;;21,"61392-0069-39 ")

 ;;314

 ;;21,"61392-0069-45 ")

 ;;317

 ;;21,"61392-0069-51 ")

 ;;320

 ;;21,"61392-0069-54 ")

 ;;321

 ;;21,"61392-0069-60 ")

 ;;318

 ;;21,"61392-0069-90 ")

 ;;319

 ;;21,"61392-0069-91 ")

 ;;322

 ;;21,"61392-0280-30 ")

 ;;263

 ;;21,"61392-0280-31 ")

 ;;265

 ;;21,"61392-0280-32 ")

 ;;266

 ;;21,"61392-0280-39 ")

 ;;264

 ;;21,"61392-0280-45 ")

 ;;267

 ;;21,"61392-0280-51 ")

 ;;270

 ;;21,"61392-0280-54 ")

 ;;271

 ;;21,"61392-0280-56 ")

 ;;272

 ;;21,"61392-0280-60 ")

 ;;268

 ;;21,"61392-0280-90 ")

 ;;269

 ;;21,"61392-0280-91 ")

 ;;273

 ;;21,"61392-0286-31 ")

 ;;228

 ;;21,"61392-0286-32 ")

 ;;229

 ;;21,"61392-0286-39 ")

 ;;227

 ;;21,"61392-0286-45 ")

 ;;230

 ;;21,"61392-0286-51 ")

 ;;233

 ;;21,"61392-0286-54 ")

 ;;234

 ;;21,"61392-0286-56 ")

 ;;235

 ;;21,"61392-0286-60 ")

 ;;231

 ;;21,"61392-0286-90 ")

 ;;232

 ;;21,"61392-0286-91 ")

 ;;236

 ;;21,"61392-0392-30 ")

 ;;364

 ;;21,"61392-0392-31 ")

 ;;366

 ;;21,"61392-0392-32 ")

 ;;367

 ;;21,"61392-0392-39 ")

 ;;365

 ;;21,"61392-0392-45 ")

 ;;368

 ;;21,"61392-0392-51 ")

 ;;371

 ;;21,"61392-0392-54 ")

 ;;372

 ;;21,"61392-0392-56 ")

 ;;373

 ;;21,"61392-0392-60 ")

 ;;369

 ;;21,"61392-0392-90 ")

 ;;370

 ;;21,"61392-0392-91 ")

 ;;374

 ;;21,"61392-0420-30 ")

 ;;397

 ;;21,"61392-0420-31 ")

 ;;399

 ;;21,"61392-0420-32 ")

 ;;400

 ;;21,"61392-0420-34 ")

 ;;404

 ;;21,"61392-0420-39 ")

 ;;398

 ;;21,"61392-0420-45 ")

 ;;401

 ;;21,"61392-0420-51 ")

 ;;405

 ;;21,"61392-0420-54 ")

 ;;406

 ;;21,"61392-0420-56 ")

 ;;407

 ;;21,"61392-0420-60 ")

 ;;402

 ;;21,"61392-0420-90 ")

 ;;403

 ;;21,"61392-0420-91 ")

 ;;408

 ;;21,"61392-0423-30 ")

 ;;434

 ;;21,"61392-0423-31 ")

 ;;435

 ;;21,"61392-0423-32 ")

 ;;437

 ;;21,"61392-0423-34 ")

 ;;441

 ;;21,"61392-0423-39 ")

 ;;436

 ;;21,"61392-0423-45 ")

 ;;438

 ;;21,"61392-0423-51 ")

 ;;442

 ;;21,"61392-0423-54 ")

 ;;443

 ;;21,"61392-0423-56 ")

 ;;444

 ;;21,"61392-0423-60 ")

 ;;439

 ;;21,"61392-0423-90 ")

 ;;440

 ;;21,"61392-0423-91 ")

 ;;445

 ;;21,"61392-0427-30 ")

 ;;515

 ;;21,"61392-0427-31 ")

 ;;516

 ;;21,"61392-0427-32 ")

 ;;517

 ;;21,"61392-0427-39 ")

 ;;514

 ;;21,"61392-0427-45 ")

 ;;518

 ;;21,"61392-0427-51 ")

 ;;521

 ;;21,"61392-0427-54 ")

 ;;522

 ;;21,"61392-0427-56 ")

 ;;523

 ;;21,"61392-0427-60 ")

 ;;519

 ;;21,"61392-0427-90 ")

 ;;520

 ;;21,"61392-0427-91 ")

 ;;524

 ;;21,"61392-0430-30 ")

 ;;480

 ;;21,"61392-0430-31 ")

 ;;482

 ;;21,"61392-0430-32 ")

 ;;483

 ;;21,"61392-0430-39 ")

 ;;481

 ;;21,"61392-0430-45 ")

 ;;484

 ;;21,"61392-0430-51 ")

 ;;487

 ;;21,"61392-0430-54 ")

 ;;488

 ;;21,"61392-0430-56 ")

 ;;489

 ;;21,"61392-0430-60 ")

 ;;485

 ;;21,"61392-0430-90 ")

 ;;486

 ;;21,"61392-0430-91 ")

 ;;490

 ;;21,"61392-0543-30 ")

 ;;38

 ;;21,"61392-0543-31 ")

 ;;40

 ;;21,"61392-0543-32 ")

 ;;41

 ;;21,"61392-0543-39 ")

 ;;39

 ;;21,"61392-0543-45 ")

 ;;42

 ;;21,"61392-0543-51 ")

 ;;45

 ;;21,"61392-0543-54 ")

 ;;46

 ;;21,"61392-0543-56 ")

 ;;47

 ;;21,"61392-0543-60 ")

 ;;43

 ;;21,"61392-0543-90 ")

 ;;44

 ;;21,"61392-0543-91 ")

 ;;48

 ;;21,"61392-0546-30 ")

 ;;80

 ;;21,"61392-0546-31 ")

 ;;82

 ;;21,"61392-0546-32 ")

 ;;83

 ;;21,"61392-0546-39 ")

 ;;81

 ;;21,"61392-0546-45 ")

 ;;84

 ;;21,"61392-0546-51 ")

 ;;87

 ;;21,"61392-0546-54 ")

 ;;88

 ;;21,"61392-0546-56 ")

 ;;89

 ;;21,"61392-0546-60 ")

 ;;85

 ;;21,"61392-0546-90 ")

 ;;86

 ;;21,"61392-0546-91 ")

 ;;90

 ;;21,"61570-0200-01 ")

 ;;308

 ;;21,"61570-0201-01 ")

 ;;330

 ;;21,"61570-0202-01 ")

 ;;350

 ;;21,"61570-0202-10 ")

 ;;351

 ;;21,"61570-0203-01 ")

 ;;356

 ;;21,"61570-0204-01 ")

 ;;359

 ;;21,"63739-0027-01 ")

 ;;17

 ;;21,"63739-0027-03 ")

 ;;18

 ;;21,"63739-0028-01 ")

 ;;60

 ;;21,"63739-0028-03 ")

 ;;61

 ;;21,"63739-0173-01 ")

 ;;210

 ;;21,"63739-0173-03 ")

 ;;250

 ;;21,"63739-0174-01 ")

 ;;284

 ;;21,"63739-0174-03 ")

 ;;285

 ;;21,"63739-0179-03 ")

 ;;211

 ;;21,"65483-0339-50 ")

 ;;191

 ;;21,"65483-0391-10 ")

 ;;162

 ;;21,"65483-0391-11 ")

 ;;163

 ;;21,"65483-0391-50 ")

 ;;161

 ;;21,"65483-0392-10 ")

 ;;180

 ;;21,"65483-0392-22 ")

 ;;181

 ;;21,"65483-0392-50 ")

 ;;179

 ;;21,"65483-0393-10 ")

 ;;193

 ;;21,"65483-0393-33 ")

 ;;197

 ;;21,"66336-0719-30 ")

 ;;33

 ;;9002226,393,.01)

 ;;BGP CMS BETA BLOCKER NDC

 ;;9002226,393,.02)

 ;;@

 ;;9002226,393,.04)

 ;;@

 ;;9002226,393,.06)

 ;;@

 ;;9002226,393,.08)

 ;;@

 ;;9002226,393,.09)

 ;;@

 ;;9002226,393,.11)

 ;;@

 ;;9002226,393,.12)

 ;;@

 ;;9002226,393,.13)

 ;;1

 ;;9002226,393,.14)

 ;;@

 ;;9002226,393,.15)

 ;;@

 ;;9002226,393,.16)

 ;;@

 ;;9002226,393,.17)

 ;;@

 ;;9002226,393,3101)

 ;;@

 ;;9002226.02101,"393,00005-3816-38 ",.01)

 ;;00005-3816-38

 ;;9002226.02101,"393,00005-3816-38 ",.02)

 ;;00005-3816-38

 ;;9002226.02101,"393,00005-3817-38 ",.01)

 ;;00005-3817-38

 ;;9002226.02101,"393,00005-3817-38 ",.02)

 ;;00005-3817-38

BGPUTXAD  ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 21, 2005 ;

 +1       ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 +2       ;;;BGPU;;APR 21, 2005

 +3       ;

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       ;;21,"61392-0018-90 ")

 +2       ;;385

 +3       ;;21,"61392-0018-91 ")

 +4       ;;389

 +5       ;;21,"61392-0069-31 ")

 +6       ;;315

 +7       ;;21,"61392-0069-32 ")

 +8       ;;316

 +9       ;;21,"61392-0069-39 ")

 +10      ;;314

 +11      ;;21,"61392-0069-45 ")

 +12      ;;317

 +13      ;;21,"61392-0069-51 ")

 +14      ;;320

 +15      ;;21,"61392-0069-54 ")

 +16      ;;321

 +17      ;;21,"61392-0069-60 ")

 +18      ;;318

 +19      ;;21,"61392-0069-90 ")

 +20      ;;319

 +21      ;;21,"61392-0069-91 ")

 +22      ;;322

 +23      ;;21,"61392-0280-30 ")

 +24      ;;263

 +25      ;;21,"61392-0280-31 ")

 +26      ;;265

 +27      ;;21,"61392-0280-32 ")

 +28      ;;266

 +29      ;;21,"61392-0280-39 ")

 +30      ;;264

 +31      ;;21,"61392-0280-45 ")

 +32      ;;267

 +33      ;;21,"61392-0280-51 ")

 +34      ;;270

 +35      ;;21,"61392-0280-54 ")

 +36      ;;271

 +37      ;;21,"61392-0280-56 ")

 +38      ;;272

 +39      ;;21,"61392-0280-60 ")

 +40      ;;268

 +41      ;;21,"61392-0280-90 ")

 +42      ;;269

 +43      ;;21,"61392-0280-91 ")

 +44      ;;273

 +45      ;;21,"61392-0286-31 ")

 +46      ;;228

 +47      ;;21,"61392-0286-32 ")

 +48      ;;229

 +49      ;;21,"61392-0286-39 ")

 +50      ;;227

 +51      ;;21,"61392-0286-45 ")

 +52      ;;230

 +53      ;;21,"61392-0286-51 ")

 +54      ;;233

 +55      ;;21,"61392-0286-54 ")

 +56      ;;234

 +57      ;;21,"61392-0286-56 ")

 +58      ;;235

 +59      ;;21,"61392-0286-60 ")

 +60      ;;231

 +61      ;;21,"61392-0286-90 ")

 +62      ;;232

 +63      ;;21,"61392-0286-91 ")

 +64      ;;236

 +65      ;;21,"61392-0392-30 ")

 +66      ;;364

 +67      ;;21,"61392-0392-31 ")

 +68      ;;366

 +69      ;;21,"61392-0392-32 ")

 +70      ;;367

 +71      ;;21,"61392-0392-39 ")

 +72      ;;365

 +73      ;;21,"61392-0392-45 ")

 +74      ;;368

 +75      ;;21,"61392-0392-51 ")

 +76      ;;371

 +77      ;;21,"61392-0392-54 ")

 +78      ;;372

 +79      ;;21,"61392-0392-56 ")

 +80      ;;373

 +81      ;;21,"61392-0392-60 ")

 +82      ;;369

 +83      ;;21,"61392-0392-90 ")

 +84      ;;370

 +85      ;;21,"61392-0392-91 ")

 +86      ;;374

 +87      ;;21,"61392-0420-30 ")

 +88      ;;397

 +89      ;;21,"61392-0420-31 ")

 +90      ;;399

 +91      ;;21,"61392-0420-32 ")

 +92      ;;400

 +93      ;;21,"61392-0420-34 ")

 +94      ;;404

 +95      ;;21,"61392-0420-39 ")

 +96      ;;398

 +97      ;;21,"61392-0420-45 ")

 +98      ;;401

 +99      ;;21,"61392-0420-51 ")

 +100     ;;405

 +101     ;;21,"61392-0420-54 ")

 +102     ;;406

 +103     ;;21,"61392-0420-56 ")

 +104     ;;407

 +105     ;;21,"61392-0420-60 ")

 +106     ;;402

 +107     ;;21,"61392-0420-90 ")

 +108     ;;403

 +109     ;;21,"61392-0420-91 ")

 +110     ;;408

 +111     ;;21,"61392-0423-30 ")

 +112     ;;434

 +113     ;;21,"61392-0423-31 ")

 +114     ;;435

 +115     ;;21,"61392-0423-32 ")

 +116     ;;437

 +117     ;;21,"61392-0423-34 ")

 +118     ;;441

 +119     ;;21,"61392-0423-39 ")

 +120     ;;436

 +121     ;;21,"61392-0423-45 ")

 +122     ;;438

 +123     ;;21,"61392-0423-51 ")

 +124     ;;442

 +125     ;;21,"61392-0423-54 ")

 +126     ;;443

 +127     ;;21,"61392-0423-56 ")

 +128     ;;444

 +129     ;;21,"61392-0423-60 ")

 +130     ;;439

 +131     ;;21,"61392-0423-90 ")

 +132     ;;440

 +133     ;;21,"61392-0423-91 ")

 +134     ;;445

 +135     ;;21,"61392-0427-30 ")

 +136     ;;515

 +137     ;;21,"61392-0427-31 ")

 +138     ;;516

 +139     ;;21,"61392-0427-32 ")

 +140     ;;517

 +141     ;;21,"61392-0427-39 ")

 +142     ;;514

 +143     ;;21,"61392-0427-45 ")

 +144     ;;518

 +145     ;;21,"61392-0427-51 ")

 +146     ;;521

 +147     ;;21,"61392-0427-54 ")

 +148     ;;522

 +149     ;;21,"61392-0427-56 ")

 +150     ;;523

 +151     ;;21,"61392-0427-60 ")

 +152     ;;519

 +153     ;;21,"61392-0427-90 ")

 +154     ;;520

 +155     ;;21,"61392-0427-91 ")

 +156     ;;524

 +157     ;;21,"61392-0430-30 ")

 +158     ;;480

 +159     ;;21,"61392-0430-31 ")

 +160     ;;482

 +161     ;;21,"61392-0430-32 ")

 +162     ;;483

 +163     ;;21,"61392-0430-39 ")

 +164     ;;481

 +165     ;;21,"61392-0430-45 ")

 +166     ;;484

 +167     ;;21,"61392-0430-51 ")

 +168     ;;487

 +169     ;;21,"61392-0430-54 ")

 +170     ;;488

 +171     ;;21,"61392-0430-56 ")

 +172     ;;489

 +173     ;;21,"61392-0430-60 ")

 +174     ;;485

 +175     ;;21,"61392-0430-90 ")

 +176     ;;486

 +177     ;;21,"61392-0430-91 ")

 +178     ;;490

 +179     ;;21,"61392-0543-30 ")

 +180     ;;38

 +181     ;;21,"61392-0543-31 ")

 +182     ;;40

 +183     ;;21,"61392-0543-32 ")

 +184     ;;41

 +185     ;;21,"61392-0543-39 ")

 +186     ;;39

 +187     ;;21,"61392-0543-45 ")

 +188     ;;42

 +189     ;;21,"61392-0543-51 ")

 +190     ;;45

 +191     ;;21,"61392-0543-54 ")

 +192     ;;46

 +193     ;;21,"61392-0543-56 ")

 +194     ;;47

 +195     ;;21,"61392-0543-60 ")

 +196     ;;43

 +197     ;;21,"61392-0543-90 ")

 +198     ;;44

 +199     ;;21,"61392-0543-91 ")

 +200     ;;48

 +201     ;;21,"61392-0546-30 ")

 +202     ;;80

 +203     ;;21,"61392-0546-31 ")

 +204     ;;82

 +205     ;;21,"61392-0546-32 ")

 +206     ;;83

 +207     ;;21,"61392-0546-39 ")

 +208     ;;81

 +209     ;;21,"61392-0546-45 ")

 +210     ;;84

 +211     ;;21,"61392-0546-51 ")

 +212     ;;87

 +213     ;;21,"61392-0546-54 ")

 +214     ;;88

 +215     ;;21,"61392-0546-56 ")

 +216     ;;89

 +217     ;;21,"61392-0546-60 ")

 +218     ;;85

 +219     ;;21,"61392-0546-90 ")

 +220     ;;86

 +221     ;;21,"61392-0546-91 ")

 +222     ;;90

 +223     ;;21,"61570-0200-01 ")

 +224     ;;308

 +225     ;;21,"61570-0201-01 ")

 +226     ;;330

 +227     ;;21,"61570-0202-01 ")

 +228     ;;350

 +229     ;;21,"61570-0202-10 ")

 +230     ;;351

 +231     ;;21,"61570-0203-01 ")

 +232     ;;356

 +233     ;;21,"61570-0204-01 ")

 +234     ;;359

 +235     ;;21,"63739-0027-01 ")

 +236     ;;17

 +237     ;;21,"63739-0027-03 ")

 +238     ;;18

 +239     ;;21,"63739-0028-01 ")

 +240     ;;60

 +241     ;;21,"63739-0028-03 ")

 +242     ;;61

 +243     ;;21,"63739-0173-01 ")

 +244     ;;210

 +245     ;;21,"63739-0173-03 ")

 +246     ;;250

 +247     ;;21,"63739-0174-01 ")

 +248     ;;284

 +249     ;;21,"63739-0174-03 ")

 +250     ;;285

 +251     ;;21,"63739-0179-03 ")

 +252     ;;211

 +253     ;;21,"65483-0339-50 ")

 +254     ;;191

 +255     ;;21,"65483-0391-10 ")

 +256     ;;162

 +257     ;;21,"65483-0391-11 ")

 +258     ;;163

 +259     ;;21,"65483-0391-50 ")

 +260     ;;161

 +261     ;;21,"65483-0392-10 ")

 +262     ;;180

 +263     ;;21,"65483-0392-22 ")

 +264     ;;181

 +265     ;;21,"65483-0392-50 ")

 +266     ;;179

 +267     ;;21,"65483-0393-10 ")

 +268     ;;193

 +269     ;;21,"65483-0393-33 ")

 +270     ;;197

 +271     ;;21,"66336-0719-30 ")

 +272     ;;33

 +273     ;;9002226,393,.01)

 +274     ;;BGP CMS BETA BLOCKER NDC

 +275     ;;9002226,393,.02)

 +276     ;;@

 +277     ;;9002226,393,.04)

 +278     ;;@

 +279     ;;9002226,393,.06)

 +280     ;;@

 +281     ;;9002226,393,.08)

 +282     ;;@

 +283     ;;9002226,393,.09)

 +284     ;;@

 +285     ;;9002226,393,.11)

 +286     ;;@

 +287     ;;9002226,393,.12)

 +288     ;;@

 +289     ;;9002226,393,.13)

 +290     ;;1

 +291     ;;9002226,393,.14)

 +292     ;;@

 +293     ;;9002226,393,.15)

 +294     ;;@

 +295     ;;9002226,393,.16)

 +296     ;;@

 +297     ;;9002226,393,.17)

 +298     ;;@

 +299     ;;9002226,393,3101)

 +300     ;;@

 +301     ;;9002226.02101,"393,00005-3816-38 ",.01)

 +302     ;;00005-3816-38

 +303     ;;9002226.02101,"393,00005-3816-38 ",.02)

 +304     ;;00005-3816-38

 +305     ;;9002226.02101,"393,00005-3817-38 ",.01)

 +306     ;;00005-3817-38

 +307     ;;9002226.02101,"393,00005-3817-38 ",.02)

 +308     ;;00005-3817-38