BGP21H13.m

BGP21H13 ;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

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"63304-0488-01 ")

 ;;1982

 ;;21,"63304-0489-01 ")

 ;;2037

 ;;21,"63304-0490-01 ")

 ;;2117

 ;;21,"63304-0490-05 ")

 ;;2118

 ;;21,"63629-1454-01 ")

 ;;127

 ;;21,"63629-1559-01 ")

 ;;1614

 ;;21,"63629-1559-02 ")

 ;;1615

 ;;21,"63629-1560-01 ")

 ;;1660

 ;;21,"63629-1561-01 ")

 ;;1693

 ;;21,"63629-1561-02 ")

 ;;1694

 ;;21,"63629-1561-03 ")

 ;;1695

 ;;21,"63629-1561-04 ")

 ;;1696

 ;;21,"63629-1565-01 ")

 ;;351

 ;;21,"63629-1565-02 ")

 ;;352

 ;;21,"63629-1565-03 ")

 ;;353

 ;;21,"63629-1566-01 ")

 ;;604

 ;;21,"63629-1566-02 ")

 ;;605

 ;;21,"63629-1566-03 ")

 ;;606

 ;;21,"63629-1566-04 ")

 ;;607

 ;;21,"63629-1566-05 ")

 ;;608

 ;;21,"63629-1597-01 ")

 ;;1353

 ;;21,"63629-3052-01 ")

 ;;2119

 ;;21,"63629-3052-02 ")

 ;;2120

 ;;21,"63629-3564-01 ")

 ;;881

 ;;21,"63629-3649-01 ")

 ;;1221

 ;;21,"63629-3678-01 ")

 ;;465

 ;;21,"63629-3750-01 ")

 ;;1536

 ;;21,"63629-4073-01 ")

 ;;2038

 ;;21,"63629-4089-01 ")

 ;;1480

 ;;21,"63672-0044-03 ")

 ;;484

 ;;21,"63672-0045-03 ")

 ;;647

 ;;21,"63672-0046-03 ")

 ;;397

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

 ;;1169

 ;;21,"63739-0079-02 ")

 ;;1175

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

 ;;1170

 ;;21,"63739-0079-10 ")

 ;;1156

 ;;21,"63739-0079-15 ")

 ;;1165

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

 ;;1232

 ;;21,"63739-0080-02 ")

 ;;1239

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

 ;;1233

 ;;21,"63739-0080-10 ")

 ;;1222

 ;;21,"63739-0080-15 ")

 ;;1228

 ;;21,"63739-0283-10 ")

 ;;786

 ;;21,"63739-0283-15 ")

 ;;795

 ;;21,"63739-0283-31 ")

 ;;787

 ;;21,"63739-0284-10 ")

 ;;830

 ;;21,"63739-0284-15 ")

 ;;840

 ;;21,"63739-0284-31 ")

 ;;831

 ;;21,"63739-0285-10 ")

 ;;882

 ;;21,"63739-0285-15 ")

 ;;894

 ;;21,"63739-0285-31 ")

 ;;883

 ;;21,"63739-0286-10 ")

 ;;922

 ;;21,"63739-0286-15 ")

 ;;925

 ;;21,"63739-0451-10 ")

 ;;1481

 ;;21,"63739-0452-10 ")

 ;;1537

 ;;21,"64455-0100-10 ")

 ;;940

 ;;21,"64455-0100-30 ")

 ;;938

 ;;21,"64455-0100-90 ")

 ;;939

 ;;21,"64455-0101-10 ")

 ;;952

 ;;21,"64455-0101-30 ")

 ;;951

 ;;21,"64455-0101-90 ")

 ;;950

 ;;21,"64455-0102-10 ")

 ;;964

 ;;21,"64455-0102-30 ")

 ;;963

 ;;21,"64455-0102-90 ")

 ;;962

 ;;21,"64455-0103-30 ")

 ;;974

 ;;21,"64455-0103-90 ")

 ;;973

 ;;21,"64455-0104-10 ")

 ;;987

 ;;21,"64455-0104-30 ")

 ;;986

 ;;21,"64455-0104-90 ")

 ;;985

 ;;21,"64455-0105-10 ")

 ;;998

 ;;21,"64455-0105-30 ")

 ;;996

 ;;21,"64455-0105-90 ")

 ;;997

 ;;21,"64455-0771-47 ")

 ;;1157

 ;;21,"64455-0771-55 ")

 ;;1158

 ;;21,"64455-0772-47 ")

 ;;1223

 ;;21,"64455-0772-55 ")

 ;;1229

 ;;21,"64455-0791-47 ")

 ;;1266

 ;;21,"64455-0792-47 ")

 ;;1124

 ;;21,"64455-0795-30 ")

 ;;788

 ;;21,"64455-0795-42 ")

 ;;789

 ;;21,"64455-0795-49 ")

 ;;790

 ;;21,"64455-0796-30 ")

 ;;832

 ;;21,"64455-0796-42 ")

 ;;833

 ;;21,"64455-0796-49 ")

 ;;834

 ;;21,"64455-0796-50 ")

 ;;835

 ;;21,"64455-0797-30 ")

 ;;884

 ;;21,"64455-0797-42 ")

 ;;885

 ;;21,"64455-0797-49 ")

 ;;886

 ;;21,"64455-0798-30 ")

 ;;923

 ;;21,"64455-0798-42 ")

 ;;924

 ;;21,"64455-0798-49 ")

 ;;926

 ;;21,"64455-0799-42 ")

 ;;931

 ;;21,"64679-0421-01 ")

 ;;466

 ;;21,"64679-0422-01 ")

 ;;609

 ;;21,"64679-0422-02 ")

 ;;610

 ;;21,"64679-0423-01 ")

 ;;354

 ;;21,"64679-0423-02 ")

 ;;355

 ;;21,"65162-0006-09 ")

 ;;467

 ;;21,"65162-0006-50 ")

 ;;468

 ;;21,"65162-0007-09 ")

 ;;611

 ;;21,"65162-0007-50 ")

 ;;612

 ;;21,"65162-0008-09 ")

 ;;356

 ;;21,"65162-0008-50 ")

 ;;357

 ;;21,"65162-0588-10 ")

 ;;1413

 ;;21,"65162-0589-10 ")

 ;;1429

 ;;21,"65243-0028-09 ")

 ;;1354

 ;;21,"65243-0054-09 ")

 ;;1538

 ;;21,"65243-0111-09 ")

 ;;1288

 ;;21,"65243-0260-09 ")

 ;;2121

 ;;21,"65243-0311-09 ")

 ;;1355

 ;;21,"65243-0312-09 ")

 ;;1289

 ;;21,"65243-0312-18 ")

 ;;1290

 ;;21,"65243-0317-09 ")

 ;;1482

 ;;21,"65243-0318-09 ")

 ;;1539

 ;;21,"65597-0110-10 ")

 ;;194

 ;;21,"65597-0110-30 ")

 ;;192

 ;;21,"65597-0110-90 ")

 ;;193

 ;;21,"65597-0111-10 ")

 ;;186

 ;;21,"65597-0111-30 ")

 ;;184

 ;;21,"65597-0111-90 ")

 ;;185

 ;;21,"65597-0112-10 ")

 ;;197

 ;;21,"65597-0112-30 ")

 ;;195

 ;;21,"65597-0112-90 ")

 ;;196

 ;;21,"65597-0113-10 ")

 ;;190

 ;;21,"65597-0113-30 ")

 ;;188

 ;;21,"65597-0113-90 ")

 ;;189

 ;;21,"65597-0114-30 ")

 ;;174

 ;;21,"65597-0114-90 ")

 ;;175

 ;;21,"65597-0115-30 ")

 ;;180

 ;;21,"65597-0115-90 ")

 ;;181

 ;;21,"65597-0116-30 ")

 ;;182

 ;;21,"65597-0116-90 ")

 ;;183

 ;;21,"65597-0117-30 ")

 ;;176

 ;;21,"65597-0117-90 ")

 ;;177

 ;;21,"65597-0118-30 ")

 ;;178

 ;;21,"65597-0118-90 ")

 ;;179

 ;;21,"65726-0226-15 ")

 ;;1388

 ;;21,"65726-0226-25 ")

 ;;1389

 ;;21,"65726-0227-15 ")

 ;;1397

 ;;21,"65726-0227-25 ")

 ;;1398

 ;;21,"65726-0235-10 ")

 ;;1404

 ;;21,"65726-0235-25 ")

 ;;1405

 ;;21,"65726-0236-10 ")

 ;;1400

 ;;21,"65726-0236-25 ")

 ;;1401

 ;;21,"65862-0101-05 ")

 ;;469

 ;;21,"65862-0101-90 ")

 ;;470

 ;;21,"65862-0101-99 ")

 ;;471

 ;;21,"65862-0102-05 ")

 ;;613

 ;;21,"65862-0102-90 ")

 ;;614

 ;;21,"65862-0102-99 ")

 ;;615

 ;;21,"65862-0103-05 ")

 ;;358

BGP21H13  ;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,"63304-0488-01 ")

 +2       ;;1982

 +3       ;;21,"63304-0489-01 ")

 +4       ;;2037

 +5       ;;21,"63304-0490-01 ")

 +6       ;;2117

 +7       ;;21,"63304-0490-05 ")

 +8       ;;2118

 +9       ;;21,"63629-1454-01 ")

 +10      ;;127

 +11      ;;21,"63629-1559-01 ")

 +12      ;;1614

 +13      ;;21,"63629-1559-02 ")

 +14      ;;1615

 +15      ;;21,"63629-1560-01 ")

 +16      ;;1660

 +17      ;;21,"63629-1561-01 ")

 +18      ;;1693

 +19      ;;21,"63629-1561-02 ")

 +20      ;;1694

 +21      ;;21,"63629-1561-03 ")

 +22      ;;1695

 +23      ;;21,"63629-1561-04 ")

 +24      ;;1696

 +25      ;;21,"63629-1565-01 ")

 +26      ;;351

 +27      ;;21,"63629-1565-02 ")

 +28      ;;352

 +29      ;;21,"63629-1565-03 ")

 +30      ;;353

 +31      ;;21,"63629-1566-01 ")

 +32      ;;604

 +33      ;;21,"63629-1566-02 ")

 +34      ;;605

 +35      ;;21,"63629-1566-03 ")

 +36      ;;606

 +37      ;;21,"63629-1566-04 ")

 +38      ;;607

 +39      ;;21,"63629-1566-05 ")

 +40      ;;608

 +41      ;;21,"63629-1597-01 ")

 +42      ;;1353

 +43      ;;21,"63629-3052-01 ")

 +44      ;;2119

 +45      ;;21,"63629-3052-02 ")

 +46      ;;2120

 +47      ;;21,"63629-3564-01 ")

 +48      ;;881

 +49      ;;21,"63629-3649-01 ")

 +50      ;;1221

 +51      ;;21,"63629-3678-01 ")

 +52      ;;465

 +53      ;;21,"63629-3750-01 ")

 +54      ;;1536

 +55      ;;21,"63629-4073-01 ")

 +56      ;;2038

 +57      ;;21,"63629-4089-01 ")

 +58      ;;1480

 +59      ;;21,"63672-0044-03 ")

 +60      ;;484

 +61      ;;21,"63672-0045-03 ")

 +62      ;;647

 +63      ;;21,"63672-0046-03 ")

 +64      ;;397

 +65      ;;21,"63739-0079-01 ")

 +66      ;;1169

 +67      ;;21,"63739-0079-02 ")

 +68      ;;1175

 +69      ;;21,"63739-0079-03 ")

 +70      ;;1170

 +71      ;;21,"63739-0079-10 ")

 +72      ;;1156

 +73      ;;21,"63739-0079-15 ")

 +74      ;;1165

 +75      ;;21,"63739-0080-01 ")

 +76      ;;1232

 +77      ;;21,"63739-0080-02 ")

 +78      ;;1239

 +79      ;;21,"63739-0080-03 ")

 +80      ;;1233

 +81      ;;21,"63739-0080-10 ")

 +82      ;;1222

 +83      ;;21,"63739-0080-15 ")

 +84      ;;1228

 +85      ;;21,"63739-0283-10 ")

 +86      ;;786

 +87      ;;21,"63739-0283-15 ")

 +88      ;;795

 +89      ;;21,"63739-0283-31 ")

 +90      ;;787

 +91      ;;21,"63739-0284-10 ")

 +92      ;;830

 +93      ;;21,"63739-0284-15 ")

 +94      ;;840

 +95      ;;21,"63739-0284-31 ")

 +96      ;;831

 +97      ;;21,"63739-0285-10 ")

 +98      ;;882

 +99      ;;21,"63739-0285-15 ")

 +100     ;;894

 +101     ;;21,"63739-0285-31 ")

 +102     ;;883

 +103     ;;21,"63739-0286-10 ")

 +104     ;;922

 +105     ;;21,"63739-0286-15 ")

 +106     ;;925

 +107     ;;21,"63739-0451-10 ")

 +108     ;;1481

 +109     ;;21,"63739-0452-10 ")

 +110     ;;1537

 +111     ;;21,"64455-0100-10 ")

 +112     ;;940

 +113     ;;21,"64455-0100-30 ")

 +114     ;;938

 +115     ;;21,"64455-0100-90 ")

 +116     ;;939

 +117     ;;21,"64455-0101-10 ")

 +118     ;;952

 +119     ;;21,"64455-0101-30 ")

 +120     ;;951

 +121     ;;21,"64455-0101-90 ")

 +122     ;;950

 +123     ;;21,"64455-0102-10 ")

 +124     ;;964

 +125     ;;21,"64455-0102-30 ")

 +126     ;;963

 +127     ;;21,"64455-0102-90 ")

 +128     ;;962

 +129     ;;21,"64455-0103-30 ")

 +130     ;;974

 +131     ;;21,"64455-0103-90 ")

 +132     ;;973

 +133     ;;21,"64455-0104-10 ")

 +134     ;;987

 +135     ;;21,"64455-0104-30 ")

 +136     ;;986

 +137     ;;21,"64455-0104-90 ")

 +138     ;;985

 +139     ;;21,"64455-0105-10 ")

 +140     ;;998

 +141     ;;21,"64455-0105-30 ")

 +142     ;;996

 +143     ;;21,"64455-0105-90 ")

 +144     ;;997

 +145     ;;21,"64455-0771-47 ")

 +146     ;;1157

 +147     ;;21,"64455-0771-55 ")

 +148     ;;1158

 +149     ;;21,"64455-0772-47 ")

 +150     ;;1223

 +151     ;;21,"64455-0772-55 ")

 +152     ;;1229

 +153     ;;21,"64455-0791-47 ")

 +154     ;;1266

 +155     ;;21,"64455-0792-47 ")

 +156     ;;1124

 +157     ;;21,"64455-0795-30 ")

 +158     ;;788

 +159     ;;21,"64455-0795-42 ")

 +160     ;;789

 +161     ;;21,"64455-0795-49 ")

 +162     ;;790

 +163     ;;21,"64455-0796-30 ")

 +164     ;;832

 +165     ;;21,"64455-0796-42 ")

 +166     ;;833

 +167     ;;21,"64455-0796-49 ")

 +168     ;;834

 +169     ;;21,"64455-0796-50 ")

 +170     ;;835

 +171     ;;21,"64455-0797-30 ")

 +172     ;;884

 +173     ;;21,"64455-0797-42 ")

 +174     ;;885

 +175     ;;21,"64455-0797-49 ")

 +176     ;;886

 +177     ;;21,"64455-0798-30 ")

 +178     ;;923

 +179     ;;21,"64455-0798-42 ")

 +180     ;;924

 +181     ;;21,"64455-0798-49 ")

 +182     ;;926

 +183     ;;21,"64455-0799-42 ")

 +184     ;;931

 +185     ;;21,"64679-0421-01 ")

 +186     ;;466

 +187     ;;21,"64679-0422-01 ")

 +188     ;;609

 +189     ;;21,"64679-0422-02 ")

 +190     ;;610

 +191     ;;21,"64679-0423-01 ")

 +192     ;;354

 +193     ;;21,"64679-0423-02 ")

 +194     ;;355

 +195     ;;21,"65162-0006-09 ")

 +196     ;;467

 +197     ;;21,"65162-0006-50 ")

 +198     ;;468

 +199     ;;21,"65162-0007-09 ")

 +200     ;;611

 +201     ;;21,"65162-0007-50 ")

 +202     ;;612

 +203     ;;21,"65162-0008-09 ")

 +204     ;;356

 +205     ;;21,"65162-0008-50 ")

 +206     ;;357

 +207     ;;21,"65162-0588-10 ")

 +208     ;;1413

 +209     ;;21,"65162-0589-10 ")

 +210     ;;1429

 +211     ;;21,"65243-0028-09 ")

 +212     ;;1354

 +213     ;;21,"65243-0054-09 ")

 +214     ;;1538

 +215     ;;21,"65243-0111-09 ")

 +216     ;;1288

 +217     ;;21,"65243-0260-09 ")

 +218     ;;2121

 +219     ;;21,"65243-0311-09 ")

 +220     ;;1355

 +221     ;;21,"65243-0312-09 ")

 +222     ;;1289

 +223     ;;21,"65243-0312-18 ")

 +224     ;;1290

 +225     ;;21,"65243-0317-09 ")

 +226     ;;1482

 +227     ;;21,"65243-0318-09 ")

 +228     ;;1539

 +229     ;;21,"65597-0110-10 ")

 +230     ;;194

 +231     ;;21,"65597-0110-30 ")

 +232     ;;192

 +233     ;;21,"65597-0110-90 ")

 +234     ;;193

 +235     ;;21,"65597-0111-10 ")

 +236     ;;186

 +237     ;;21,"65597-0111-30 ")

 +238     ;;184

 +239     ;;21,"65597-0111-90 ")

 +240     ;;185

 +241     ;;21,"65597-0112-10 ")

 +242     ;;197

 +243     ;;21,"65597-0112-30 ")

 +244     ;;195

 +245     ;;21,"65597-0112-90 ")

 +246     ;;196

 +247     ;;21,"65597-0113-10 ")

 +248     ;;190

 +249     ;;21,"65597-0113-30 ")

 +250     ;;188

 +251     ;;21,"65597-0113-90 ")

 +252     ;;189

 +253     ;;21,"65597-0114-30 ")

 +254     ;;174

 +255     ;;21,"65597-0114-90 ")

 +256     ;;175

 +257     ;;21,"65597-0115-30 ")

 +258     ;;180

 +259     ;;21,"65597-0115-90 ")

 +260     ;;181

 +261     ;;21,"65597-0116-30 ")

 +262     ;;182

 +263     ;;21,"65597-0116-90 ")

 +264     ;;183

 +265     ;;21,"65597-0117-30 ")

 +266     ;;176

 +267     ;;21,"65597-0117-90 ")

 +268     ;;177

 +269     ;;21,"65597-0118-30 ")

 +270     ;;178

 +271     ;;21,"65597-0118-90 ")

 +272     ;;179

 +273     ;;21,"65726-0226-15 ")

 +274     ;;1388

 +275     ;;21,"65726-0226-25 ")

 +276     ;;1389

 +277     ;;21,"65726-0227-15 ")

 +278     ;;1397

 +279     ;;21,"65726-0227-25 ")

 +280     ;;1398

 +281     ;;21,"65726-0235-10 ")

 +282     ;;1404

 +283     ;;21,"65726-0235-25 ")

 +284     ;;1405

 +285     ;;21,"65726-0236-10 ")

 +286     ;;1400

 +287     ;;21,"65726-0236-25 ")

 +288     ;;1401

 +289     ;;21,"65862-0101-05 ")

 +290     ;;469

 +291     ;;21,"65862-0101-90 ")

 +292     ;;470

 +293     ;;21,"65862-0101-99 ")

 +294     ;;471

 +295     ;;21,"65862-0102-05 ")

 +296     ;;613

 +297     ;;21,"65862-0102-90 ")

 +298     ;;614

 +299     ;;21,"65862-0102-99 ")

 +300     ;;615

 +301     ;;21,"65862-0103-05 ")

 +302     ;;358