Routine: BGP21I8

BGP21I8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;

 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

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)

 ;;21,"67544-0424-70 ")

 ;;463

 ;;21,"67544-0424-75 ")

 ;;464

 ;;21,"67544-0424-80 ")

 ;;465

 ;;21,"67544-0424-90 ")

 ;;466

 ;;21,"67544-0424-92 ")

 ;;467

 ;;21,"67544-0424-94 ")

 ;;468

 ;;21,"67544-0424-96 ")

 ;;469

 ;;21,"67544-0428-45 ")

 ;;160

 ;;21,"67544-0428-53 ")

 ;;161

 ;;21,"67544-0428-60 ")

 ;;162

 ;;21,"67544-0428-73 ")

 ;;163

 ;;21,"67544-0428-80 ")

 ;;164

 ;;21,"67544-0486-53 ")

 ;;470

 ;;21,"67544-0511-70 ")

 ;;1092

 ;;21,"67544-0596-53 ")

 ;;471

 ;;21,"67544-0596-60 ")

 ;;472

 ;;21,"67544-0596-80 ")

 ;;473

 ;;21,"67544-0596-96 ")

 ;;474

 ;;21,"67544-1081-80 ")

 ;;835

 ;;21,"67544-1081-94 ")

 ;;836

 ;;21,"67544-1129-70 ")

 ;;1093

 ;;21,"67544-1198-53 ")

 ;;165

 ;;21,"67544-1198-60 ")

 ;;166

 ;;21,"67544-1198-80 ")

 ;;167

 ;;21,"67544-1216-53 ")

 ;;683

 ;;21,"67544-1216-60 ")

 ;;684

 ;;21,"67544-1216-80 ")

 ;;685

 ;;21,"67544-1216-92 ")

 ;;686

 ;;21,"67544-1379-80 ")

 ;;475

 ;;21,"67544-1383-60 ")

 ;;687

 ;;21,"67544-1383-80 ")

 ;;688

 ;;21,"67767-0115-01 ")

 ;;852

 ;;21,"67877-0217-01 ")

 ;;229

 ;;21,"67877-0217-05 ")

 ;;230

 ;;21,"67877-0218-01 ")

 ;;553

 ;;21,"67877-0221-01 ")

 ;;12

 ;;21,"68071-0028-30 ")

 ;;1094

 ;;21,"68071-0028-60 ")

 ;;1095

 ;;21,"68084-0072-01 ")

 ;;837

 ;;21,"68084-0072-11 ")

 ;;838

 ;;21,"68084-0136-01 ")

 ;;978

 ;;21,"68084-0136-11 ")

 ;;979

 ;;21,"68084-0137-01 ")

 ;;1024

 ;;21,"68084-0137-11 ")

 ;;1025

 ;;21,"68084-0138-01 ")

 ;;1096

 ;;21,"68084-0138-11 ")

 ;;1097

 ;;21,"68115-0158-30 ")

 ;;1028

 ;;21,"68115-0158-60 ")

 ;;1029

 ;;21,"68115-0159-30 ")

 ;;1102

 ;;21,"68115-0159-60 ")

 ;;1103

 ;;21,"68115-0230-30 ")

 ;;197

 ;;21,"68115-0230-60 ")

 ;;198

 ;;21,"68115-0231-00 ")

 ;;507

 ;;21,"68115-0231-30 ")

 ;;508

 ;;21,"68115-0231-60 ")

 ;;509

 ;;21,"68115-0231-90 ")

 ;;510

 ;;21,"68115-0232-30 ")

 ;;716

 ;;21,"68115-0232-45 ")

 ;;717

 ;;21,"68115-0232-60 ")

 ;;718

 ;;21,"68115-0891-60 ")

 ;;1139

 ;;21,"68258-1016-01 ")

 ;;498

 ;;21,"68258-1077-01 ")

 ;;189

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

 ;;476

 ;;21,"68382-0028-05 ")

 ;;477

 ;;21,"68382-0028-10 ")

 ;;478

 ;;21,"68382-0029-01 ")

 ;;689

 ;;21,"68382-0029-05 ")

 ;;690

 ;;21,"68382-0029-10 ")

 ;;691

 ;;21,"68382-0030-01 ")

 ;;168

 ;;21,"68382-0030-05 ")

 ;;169

 ;;21,"68382-0030-10 ")

 ;;170

 ;;21,"68462-0159-01 ")

 ;;479

 ;;21,"68462-0159-05 ")

 ;;480

 ;;21,"68462-0159-10 ")

 ;;481

 ;;21,"68462-0159-18 ")

 ;;482

 ;;21,"68462-0159-90 ")

 ;;483

 ;;21,"68462-0160-01 ")

 ;;692

 ;;21,"68462-0160-05 ")

 ;;693

 ;;21,"68462-0160-10 ")

 ;;694

 ;;21,"68462-0160-18 ")

 ;;695

 ;;21,"68462-0160-90 ")

 ;;696

 ;;21,"68462-0161-01 ")

 ;;171

 ;;21,"68462-0161-05 ")

 ;;172

 ;;21,"68462-0161-10 ")

 ;;173

 ;;21,"68462-0161-18 ")

 ;;174

 ;;21,"68462-0161-90 ")

 ;;175

 ;;21,"68645-0120-59 ")

 ;;839

 ;;9002226,1198,.01)

 ;;BGP PQA BIGUANIDE NDC

 ;;9002226,1198,.02)

;;@

 ;;9002226,1198,.04)

;;n

 ;;9002226,1198,.06)

;;@

 ;;9002226,1198,.08)

;;@

 ;;9002226,1198,.09)

;;@

 ;;9002226,1198,.11)

;;@

 ;;9002226,1198,.12)

;;@

 ;;9002226,1198,.13)

;;1

 ;;9002226,1198,.14)

;;@

 ;;9002226,1198,.15)

;;@

 ;;9002226,1198,.16)

;;@

 ;;9002226,1198,.17)

;;@

 ;;9002226,1198,3101)

;;@

 ;;9002226.02101,"1198,00003-4221-11 ",.01)

 ;;00003-4221-11

 ;;9002226.02101,"1198,00003-4221-11 ",.02)

 ;;00003-4221-11

 ;;9002226.02101,"1198,00003-4222-16 ",.01)

 ;;00003-4222-16

 ;;9002226.02101,"1198,00003-4222-16 ",.02)

 ;;00003-4222-16

 ;;9002226.02101,"1198,00003-4223-11 ",.01)

 ;;00003-4223-11

 ;;9002226.02101,"1198,00003-4223-11 ",.02)

 ;;00003-4223-11

 ;;9002226.02101,"1198,00006-0575-52 ",.01)

 ;;00006-0575-52

 ;;9002226.02101,"1198,00006-0575-52 ",.02)

 ;;00006-0575-52

 ;;9002226.02101,"1198,00006-0575-61 ",.01)

 ;;00006-0575-61

 ;;9002226.02101,"1198,00006-0575-61 ",.02)

 ;;00006-0575-61

 ;;9002226.02101,"1198,00006-0575-62 ",.01)

 ;;00006-0575-62

 ;;9002226.02101,"1198,00006-0575-62 ",.02)

 ;;00006-0575-62

 ;;9002226.02101,"1198,00006-0575-82 ",.01)

 ;;00006-0575-82

 ;;9002226.02101,"1198,00006-0575-82 ",.02)

 ;;00006-0575-82

 ;;9002226.02101,"1198,00006-0577-52 ",.01)

 ;;00006-0577-52

 ;;9002226.02101,"1198,00006-0577-52 ",.02)

 ;;00006-0577-52

 ;;9002226.02101,"1198,00006-0577-61 ",.01)

 ;;00006-0577-61

 ;;9002226.02101,"1198,00006-0577-61 ",.02)

 ;;00006-0577-61

 ;;9002226.02101,"1198,00006-0577-62 ",.01)

 ;;00006-0577-62

 ;;9002226.02101,"1198,00006-0577-62 ",.02)

 ;;00006-0577-62

 ;;9002226.02101,"1198,00006-0577-82 ",.01)

 ;;00006-0577-82

 ;;9002226.02101,"1198,00006-0577-82 ",.02)

 ;;00006-0577-82

 ;;9002226.02101,"1198,00007-3163-18 ",.01)

 ;;00007-3163-18

 ;;9002226.02101,"1198,00007-3163-18 ",.02)

 ;;00007-3163-18

 ;;9002226.02101,"1198,00007-3164-18 ",.01)

 ;;00007-3164-18

 ;;9002226.02101,"1198,00007-3164-18 ",.02)

 ;;00007-3164-18

 ;;9002226.02101,"1198,00007-3166-18 ",.01)

 ;;00007-3166-18

 ;;9002226.02101,"1198,00007-3166-18 ",.02)

 ;;00007-3166-18

 ;;9002226.02101,"1198,00007-3166-20 ",.01)

 ;;00007-3166-20

BGP21I8   ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;

 +1       ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 +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       ;;21,"67544-0424-70 ")

 +2       ;;463

 +3       ;;21,"67544-0424-75 ")

 +4       ;;464

 +5       ;;21,"67544-0424-80 ")

 +6       ;;465

 +7       ;;21,"67544-0424-90 ")

 +8       ;;466

 +9       ;;21,"67544-0424-92 ")

 +10      ;;467

 +11      ;;21,"67544-0424-94 ")

 +12      ;;468

 +13      ;;21,"67544-0424-96 ")

 +14      ;;469

 +15      ;;21,"67544-0428-45 ")

 +16      ;;160

 +17      ;;21,"67544-0428-53 ")

 +18      ;;161

 +19      ;;21,"67544-0428-60 ")

 +20      ;;162

 +21      ;;21,"67544-0428-73 ")

 +22      ;;163

 +23      ;;21,"67544-0428-80 ")

 +24      ;;164

 +25      ;;21,"67544-0486-53 ")

 +26      ;;470

 +27      ;;21,"67544-0511-70 ")

 +28      ;;1092

 +29      ;;21,"67544-0596-53 ")

 +30      ;;471

 +31      ;;21,"67544-0596-60 ")

 +32      ;;472

 +33      ;;21,"67544-0596-80 ")

 +34      ;;473

 +35      ;;21,"67544-0596-96 ")

 +36      ;;474

 +37      ;;21,"67544-1081-80 ")

 +38      ;;835

 +39      ;;21,"67544-1081-94 ")

 +40      ;;836

 +41      ;;21,"67544-1129-70 ")

 +42      ;;1093

 +43      ;;21,"67544-1198-53 ")

 +44      ;;165

 +45      ;;21,"67544-1198-60 ")

 +46      ;;166

 +47      ;;21,"67544-1198-80 ")

 +48      ;;167

 +49      ;;21,"67544-1216-53 ")

 +50      ;;683

 +51      ;;21,"67544-1216-60 ")

 +52      ;;684

 +53      ;;21,"67544-1216-80 ")

 +54      ;;685

 +55      ;;21,"67544-1216-92 ")

 +56      ;;686

 +57      ;;21,"67544-1379-80 ")

 +58      ;;475

 +59      ;;21,"67544-1383-60 ")

 +60      ;;687

 +61      ;;21,"67544-1383-80 ")

 +62      ;;688

 +63      ;;21,"67767-0115-01 ")

 +64      ;;852

 +65      ;;21,"67877-0217-01 ")

 +66      ;;229

 +67      ;;21,"67877-0217-05 ")

 +68      ;;230

 +69      ;;21,"67877-0218-01 ")

 +70      ;;553

 +71      ;;21,"67877-0221-01 ")

 +72      ;;12

 +73      ;;21,"68071-0028-30 ")

 +74      ;;1094

 +75      ;;21,"68071-0028-60 ")

 +76      ;;1095

 +77      ;;21,"68084-0072-01 ")

 +78      ;;837

 +79      ;;21,"68084-0072-11 ")

 +80      ;;838

 +81      ;;21,"68084-0136-01 ")

 +82      ;;978

 +83      ;;21,"68084-0136-11 ")

 +84      ;;979

 +85      ;;21,"68084-0137-01 ")

 +86      ;;1024

 +87      ;;21,"68084-0137-11 ")

 +88      ;;1025

 +89      ;;21,"68084-0138-01 ")

 +90      ;;1096

 +91      ;;21,"68084-0138-11 ")

 +92      ;;1097

 +93      ;;21,"68115-0158-30 ")

 +94      ;;1028

 +95      ;;21,"68115-0158-60 ")

 +96      ;;1029

 +97      ;;21,"68115-0159-30 ")

 +98      ;;1102

 +99      ;;21,"68115-0159-60 ")

 +100     ;;1103

 +101     ;;21,"68115-0230-30 ")

 +102     ;;197

 +103     ;;21,"68115-0230-60 ")

 +104     ;;198

 +105     ;;21,"68115-0231-00 ")

 +106     ;;507

 +107     ;;21,"68115-0231-30 ")

 +108     ;;508

 +109     ;;21,"68115-0231-60 ")

 +110     ;;509

 +111     ;;21,"68115-0231-90 ")

 +112     ;;510

 +113     ;;21,"68115-0232-30 ")

 +114     ;;716

 +115     ;;21,"68115-0232-45 ")

 +116     ;;717

 +117     ;;21,"68115-0232-60 ")

 +118     ;;718

 +119     ;;21,"68115-0891-60 ")

 +120     ;;1139

 +121     ;;21,"68258-1016-01 ")

 +122     ;;498

 +123     ;;21,"68258-1077-01 ")

 +124     ;;189

 +125     ;;21,"68382-0028-01 ")

 +126     ;;476

 +127     ;;21,"68382-0028-05 ")

 +128     ;;477

 +129     ;;21,"68382-0028-10 ")

 +130     ;;478

 +131     ;;21,"68382-0029-01 ")

 +132     ;;689

 +133     ;;21,"68382-0029-05 ")

 +134     ;;690

 +135     ;;21,"68382-0029-10 ")

 +136     ;;691

 +137     ;;21,"68382-0030-01 ")

 +138     ;;168

 +139     ;;21,"68382-0030-05 ")

 +140     ;;169

 +141     ;;21,"68382-0030-10 ")

 +142     ;;170

 +143     ;;21,"68462-0159-01 ")

 +144     ;;479

 +145     ;;21,"68462-0159-05 ")

 +146     ;;480

 +147     ;;21,"68462-0159-10 ")

 +148     ;;481

 +149     ;;21,"68462-0159-18 ")

 +150     ;;482

 +151     ;;21,"68462-0159-90 ")

 +152     ;;483

 +153     ;;21,"68462-0160-01 ")

 +154     ;;692

 +155     ;;21,"68462-0160-05 ")

 +156     ;;693

 +157     ;;21,"68462-0160-10 ")

 +158     ;;694

 +159     ;;21,"68462-0160-18 ")

 +160     ;;695

 +161     ;;21,"68462-0160-90 ")

 +162     ;;696

 +163     ;;21,"68462-0161-01 ")

 +164     ;;171

 +165     ;;21,"68462-0161-05 ")

 +166     ;;172

 +167     ;;21,"68462-0161-10 ")

 +168     ;;173

 +169     ;;21,"68462-0161-18 ")

 +170     ;;174

 +171     ;;21,"68462-0161-90 ")

 +172     ;;175

 +173     ;;21,"68645-0120-59 ")

 +174     ;;839

 +175     ;;9002226,1198,.01)

 +176     ;;BGP PQA BIGUANIDE NDC

 +177     ;;9002226,1198,.02)

 +178     ;;@

 +179     ;;9002226,1198,.04)

 +180     ;;n

 +181     ;;9002226,1198,.06)

 +182     ;;@

 +183     ;;9002226,1198,.08)

 +184     ;;@

 +185     ;;9002226,1198,.09)

 +186     ;;@

 +187     ;;9002226,1198,.11)

 +188     ;;@

 +189     ;;9002226,1198,.12)

 +190     ;;@

 +191     ;;9002226,1198,.13)

 +192     ;;1

 +193     ;;9002226,1198,.14)

 +194     ;;@

 +195     ;;9002226,1198,.15)

 +196     ;;@

 +197     ;;9002226,1198,.16)

 +198     ;;@

 +199     ;;9002226,1198,.17)

 +200     ;;@

 +201     ;;9002226,1198,3101)

 +202     ;;@

 +203     ;;9002226.02101,"1198,00003-4221-11 ",.01)

 +204     ;;00003-4221-11

 +205     ;;9002226.02101,"1198,00003-4221-11 ",.02)

 +206     ;;00003-4221-11

 +207     ;;9002226.02101,"1198,00003-4222-16 ",.01)

 +208     ;;00003-4222-16

 +209     ;;9002226.02101,"1198,00003-4222-16 ",.02)

 +210     ;;00003-4222-16

 +211     ;;9002226.02101,"1198,00003-4223-11 ",.01)

 +212     ;;00003-4223-11

 +213     ;;9002226.02101,"1198,00003-4223-11 ",.02)

 +214     ;;00003-4223-11

 +215     ;;9002226.02101,"1198,00006-0575-52 ",.01)

 +216     ;;00006-0575-52

 +217     ;;9002226.02101,"1198,00006-0575-52 ",.02)

 +218     ;;00006-0575-52

 +219     ;;9002226.02101,"1198,00006-0575-61 ",.01)

 +220     ;;00006-0575-61

 +221     ;;9002226.02101,"1198,00006-0575-61 ",.02)

 +222     ;;00006-0575-61

 +223     ;;9002226.02101,"1198,00006-0575-62 ",.01)

 +224     ;;00006-0575-62

 +225     ;;9002226.02101,"1198,00006-0575-62 ",.02)

 +226     ;;00006-0575-62

 +227     ;;9002226.02101,"1198,00006-0575-82 ",.01)

 +228     ;;00006-0575-82

 +229     ;;9002226.02101,"1198,00006-0575-82 ",.02)

 +230     ;;00006-0575-82

 +231     ;;9002226.02101,"1198,00006-0577-52 ",.01)

 +232     ;;00006-0577-52

 +233     ;;9002226.02101,"1198,00006-0577-52 ",.02)

 +234     ;;00006-0577-52

 +235     ;;9002226.02101,"1198,00006-0577-61 ",.01)

 +236     ;;00006-0577-61

 +237     ;;9002226.02101,"1198,00006-0577-61 ",.02)

 +238     ;;00006-0577-61

 +239     ;;9002226.02101,"1198,00006-0577-62 ",.01)

 +240     ;;00006-0577-62

 +241     ;;9002226.02101,"1198,00006-0577-62 ",.02)

 +242     ;;00006-0577-62

 +243     ;;9002226.02101,"1198,00006-0577-82 ",.01)

 +244     ;;00006-0577-82

 +245     ;;9002226.02101,"1198,00006-0577-82 ",.02)

 +246     ;;00006-0577-82

 +247     ;;9002226.02101,"1198,00007-3163-18 ",.01)

 +248     ;;00007-3163-18

 +249     ;;9002226.02101,"1198,00007-3163-18 ",.02)

 +250     ;;00007-3163-18

 +251     ;;9002226.02101,"1198,00007-3164-18 ",.01)

 +252     ;;00007-3164-18

 +253     ;;9002226.02101,"1198,00007-3164-18 ",.02)

 +254     ;;00007-3164-18

 +255     ;;9002226.02101,"1198,00007-3166-18 ",.01)

 +256     ;;00007-3166-18

 +257     ;;9002226.02101,"1198,00007-3166-18 ",.02)

 +258     ;;00007-3166-18

 +259     ;;9002226.02101,"1198,00007-3166-20 ",.01)

 +260     ;;00007-3166-20

BGP21I8.m