BGP21H2.m

BGP21H2 ;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,"00088-1796-90 ")

 ;;845

 ;;21,"00088-1797-30 ")

 ;;896

 ;;21,"00088-1797-42 ")

 ;;897

 ;;21,"00088-1797-49 ")

 ;;899

 ;;21,"00088-1798-30 ")

 ;;927

 ;;21,"00088-1798-42 ")

 ;;928

 ;;21,"00088-1798-49 ")

 ;;929

 ;;21,"00088-1799-42 ")

 ;;932

 ;;21,"00091-2489-23 ")

 ;;1771

 ;;21,"00091-2490-23 ")

 ;;1761

 ;;21,"00091-2491-23 ")

 ;;1784

 ;;21,"00091-2495-23 ")

 ;;1801

 ;;21,"00091-4085-01 ")

 ;;1756

 ;;21,"00091-4086-01 ")

 ;;1778

 ;;21,"00091-4087-01 ")

 ;;1794

 ;;21,"00093-0022-01 ")

 ;;688

 ;;21,"00093-0023-01 ")

 ;;669

 ;;21,"00093-0083-98 ")

 ;;413

 ;;21,"00093-0318-01 ")

 ;;1129

 ;;21,"00093-0318-05 ")

 ;;1130

 ;;21,"00093-0319-01 ")

 ;;1191

 ;;21,"00093-0319-05 ")

 ;;1192

 ;;21,"00093-0320-01 ")

 ;;1248

 ;;21,"00093-0321-01 ")

 ;;1120

 ;;21,"00093-0793-01 ")

 ;;1414

 ;;21,"00093-0793-05 ")

 ;;1421

 ;;21,"00093-0794-01 ")

 ;;1430

 ;;21,"00093-0819-01 ")

 ;;1579

 ;;21,"00093-0819-55 ")

 ;;1580

 ;;21,"00093-0822-01 ")

 ;;1672

 ;;21,"00093-1021-01 ")

 ;;1500

 ;;21,"00093-1022-01 ")

 ;;1514

 ;;21,"00093-1022-19 ")

 ;;1515

 ;;21,"00093-1022-55 ")

 ;;1516

 ;;21,"00093-1022-93 ")

 ;;1517

 ;;21,"00093-1023-01 ")

 ;;1560

 ;;21,"00093-1023-19 ")

 ;;1561

 ;;21,"00093-1023-93 ")

 ;;1562

 ;;21,"00093-5112-98 ")

 ;;760

 ;;21,"00093-5117-98 ")

 ;;806

 ;;21,"00093-5118-98 ")

 ;;853

 ;;21,"00093-5119-98 ")

 ;;904

 ;;21,"00093-5151-01 ")

 ;;1769

 ;;21,"00093-5152-01 ")

 ;;1777

 ;;21,"00093-5153-01 ")

 ;;1792

 ;;21,"00093-5173-01 ")

 ;;1634

 ;;21,"00093-5173-55 ")

 ;;1635

 ;;21,"00093-5272-01 ")

 ;;1456

 ;;21,"00093-5272-19 ")

 ;;1457

 ;;21,"00093-5272-55 ")

 ;;1458

 ;;21,"00093-5272-93 ")

 ;;1459

 ;;21,"00093-7167-55 ")

 ;;504

 ;;21,"00093-7167-98 ")

 ;;505

 ;;21,"00093-7168-98 ")

 ;;261

 ;;21,"00093-7370-01 ")

 ;;48

 ;;21,"00093-7371-01 ")

 ;;66

 ;;21,"00093-7371-10 ")

 ;;67

 ;;21,"00093-7372-01 ")

 ;;101

 ;;21,"00093-7372-10 ")

 ;;96

 ;;21,"00093-7373-01 ")

 ;;7

 ;;21,"00093-7373-10 ")

 ;;8

 ;;21,"00172-4219-70 ")

 ;;1166

 ;;21,"00172-4220-70 ")

 ;;1230

 ;;21,"00172-4221-70 ")

 ;;1268

 ;;21,"00172-4280-00 ")

 ;;2061

 ;;21,"00172-4280-10 ")

 ;;2062

 ;;21,"00172-4280-60 ")

 ;;2063

 ;;21,"00172-4280-70 ")

 ;;2064

 ;;21,"00172-4285-00 ")

 ;;1952

 ;;21,"00172-4285-10 ")

 ;;1953

 ;;21,"00172-4285-60 ")

 ;;1954

 ;;21,"00172-4286-00 ")

 ;;1999

 ;;21,"00172-4286-10 ")

 ;;2000

 ;;21,"00172-4286-60 ")

 ;;2001

 ;;21,"00172-4286-70 ")

 ;;2002

 ;;21,"00172-4288-60 ")

 ;;1420

 ;;21,"00172-4289-60 ")

 ;;1436

 ;;21,"00173-0784-01 ")

 ;;1402

 ;;21,"00173-0785-01 ")

 ;;1399

 ;;21,"00182-1300-89 ")

 ;;1928

 ;;21,"00182-1301-89 ")

 ;;1853

 ;;21,"00182-8225-89 ")

 ;;796

 ;;21,"00182-8226-89 ")

 ;;841

 ;;21,"00182-8227-89 ")

 ;;895

 ;;21,"00182-8232-00 ")

 ;;1495

 ;;21,"00182-8232-89 ")

 ;;1496

 ;;21,"00182-8233-00 ")

 ;;1549

 ;;21,"00182-8233-89 ")

 ;;1550

 ;;21,"00182-8234-00 ")

 ;;1569

 ;;21,"00182-8234-89 ")

 ;;1570

 ;;21,"00186-0001-31 ")

 ;;143

 ;;21,"00186-0001-68 ")

 ;;144

 ;;21,"00186-0002-31 ")

 ;;142

 ;;21,"00186-0450-28 ")

 ;;1332

 ;;21,"00186-0450-31 ")

 ;;1336

 ;;21,"00186-0450-58 ")

 ;;1325

 ;;21,"00186-0451-28 ")

 ;;1376

 ;;21,"00186-0451-31 ")

 ;;1381

 ;;21,"00186-0451-58 ")

 ;;1360

 ;;21,"00186-0452-28 ")

 ;;1310

 ;;21,"00186-0452-31 ")

 ;;1313

 ;;21,"00186-0452-58 ")

 ;;1296

 ;;21,"00228-2473-10 ")

 ;;1929

 ;;21,"00228-2473-50 ")

 ;;1930

 ;;21,"00228-2473-96 ")

 ;;1931

 ;;21,"00228-2475-10 ")

 ;;1864

 ;;21,"00228-2475-50 ")

 ;;1865

 ;;21,"00228-2475-96 ")

 ;;1866

 ;;21,"00228-2577-03 ")

 ;;807

 ;;21,"00228-2577-09 ")

 ;;808

 ;;21,"00228-2577-50 ")

 ;;809

 ;;21,"00228-2577-73 ")

 ;;810

 ;;21,"00228-2578-03 ")

 ;;854

 ;;21,"00228-2578-09 ")

 ;;855

 ;;21,"00228-2578-50 ")

 ;;856

 ;;21,"00228-2578-73 ")

 ;;857

 ;;21,"00228-2579-03 ")

 ;;905

 ;;21,"00228-2579-09 ")

 ;;906

 ;;21,"00228-2579-50 ")

 ;;907

 ;;21,"00228-2588-03 ")

 ;;761

 ;;21,"00228-2588-09 ")

 ;;762

 ;;21,"00228-2588-50 ")

 ;;763

 ;;21,"00228-2588-73 ")

 ;;764

 ;;21,"00247-0451-01 ")

 ;;1581

 ;;21,"00247-0451-02 ")

 ;;1582

 ;;21,"00247-0451-03 ")

 ;;1583

 ;;21,"00247-0451-04 ")

 ;;1584

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

 ;;1585

 ;;21,"00247-0451-20 ")

 ;;1586

 ;;21,"00247-0451-30 ")

 ;;1587

 ;;21,"00247-0451-60 ")

 ;;1588

 ;;21,"00247-1099-60 ")

 ;;765

 ;;21,"00247-1100-30 ")

 ;;811

 ;;21,"00247-1100-60 ")

 ;;812

 ;;21,"00247-1101-30 ")

 ;;858

 ;;21,"00247-1101-60 ")

 ;;859

 ;;21,"00247-1102-30 ")

 ;;908

 ;;21,"00247-1102-60 ")

 ;;909

 ;;21,"00247-1114-30 ")

 ;;2003

 ;;21,"00247-1114-60 ")

 ;;2004

 ;;21,"00247-1115-30 ")

 ;;2065

 ;;21,"00247-1115-60 ")

 ;;2066

 ;;21,"00247-1117-03 ")

 ;;1636

 ;;21,"00247-1117-30 ")

 ;;1637

 ;;21,"00247-1117-60 ")

 ;;1638

 ;;21,"00247-1118-03 ")

 ;;1677

 ;;21,"00247-1118-30 ")

 ;;1678

 ;;21,"00247-1135-30 ")

 ;;1326

 ;;21,"00247-1135-60 ")

 ;;1327

 ;;21,"00247-1137-03 ")

 ;;1361

 ;;21,"00247-1221-00 ")

 ;;1193

BGP21H2   ;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,"00088-1796-90 ")

 +2       ;;845

 +3       ;;21,"00088-1797-30 ")

 +4       ;;896

 +5       ;;21,"00088-1797-42 ")

 +6       ;;897

 +7       ;;21,"00088-1797-49 ")

 +8       ;;899

 +9       ;;21,"00088-1798-30 ")

 +10      ;;927

 +11      ;;21,"00088-1798-42 ")

 +12      ;;928

 +13      ;;21,"00088-1798-49 ")

 +14      ;;929

 +15      ;;21,"00088-1799-42 ")

 +16      ;;932

 +17      ;;21,"00091-2489-23 ")

 +18      ;;1771

 +19      ;;21,"00091-2490-23 ")

 +20      ;;1761

 +21      ;;21,"00091-2491-23 ")

 +22      ;;1784

 +23      ;;21,"00091-2495-23 ")

 +24      ;;1801

 +25      ;;21,"00091-4085-01 ")

 +26      ;;1756

 +27      ;;21,"00091-4086-01 ")

 +28      ;;1778

 +29      ;;21,"00091-4087-01 ")

 +30      ;;1794

 +31      ;;21,"00093-0022-01 ")

 +32      ;;688

 +33      ;;21,"00093-0023-01 ")

 +34      ;;669

 +35      ;;21,"00093-0083-98 ")

 +36      ;;413

 +37      ;;21,"00093-0318-01 ")

 +38      ;;1129

 +39      ;;21,"00093-0318-05 ")

 +40      ;;1130

 +41      ;;21,"00093-0319-01 ")

 +42      ;;1191

 +43      ;;21,"00093-0319-05 ")

 +44      ;;1192

 +45      ;;21,"00093-0320-01 ")

 +46      ;;1248

 +47      ;;21,"00093-0321-01 ")

 +48      ;;1120

 +49      ;;21,"00093-0793-01 ")

 +50      ;;1414

 +51      ;;21,"00093-0793-05 ")

 +52      ;;1421

 +53      ;;21,"00093-0794-01 ")

 +54      ;;1430

 +55      ;;21,"00093-0819-01 ")

 +56      ;;1579

 +57      ;;21,"00093-0819-55 ")

 +58      ;;1580

 +59      ;;21,"00093-0822-01 ")

 +60      ;;1672

 +61      ;;21,"00093-1021-01 ")

 +62      ;;1500

 +63      ;;21,"00093-1022-01 ")

 +64      ;;1514

 +65      ;;21,"00093-1022-19 ")

 +66      ;;1515

 +67      ;;21,"00093-1022-55 ")

 +68      ;;1516

 +69      ;;21,"00093-1022-93 ")

 +70      ;;1517

 +71      ;;21,"00093-1023-01 ")

 +72      ;;1560

 +73      ;;21,"00093-1023-19 ")

 +74      ;;1561

 +75      ;;21,"00093-1023-93 ")

 +76      ;;1562

 +77      ;;21,"00093-5112-98 ")

 +78      ;;760

 +79      ;;21,"00093-5117-98 ")

 +80      ;;806

 +81      ;;21,"00093-5118-98 ")

 +82      ;;853

 +83      ;;21,"00093-5119-98 ")

 +84      ;;904

 +85      ;;21,"00093-5151-01 ")

 +86      ;;1769

 +87      ;;21,"00093-5152-01 ")

 +88      ;;1777

 +89      ;;21,"00093-5153-01 ")

 +90      ;;1792

 +91      ;;21,"00093-5173-01 ")

 +92      ;;1634

 +93      ;;21,"00093-5173-55 ")

 +94      ;;1635

 +95      ;;21,"00093-5272-01 ")

 +96      ;;1456

 +97      ;;21,"00093-5272-19 ")

 +98      ;;1457

 +99      ;;21,"00093-5272-55 ")

 +100     ;;1458

 +101     ;;21,"00093-5272-93 ")

 +102     ;;1459

 +103     ;;21,"00093-7167-55 ")

 +104     ;;504

 +105     ;;21,"00093-7167-98 ")

 +106     ;;505

 +107     ;;21,"00093-7168-98 ")

 +108     ;;261

 +109     ;;21,"00093-7370-01 ")

 +110     ;;48

 +111     ;;21,"00093-7371-01 ")

 +112     ;;66

 +113     ;;21,"00093-7371-10 ")

 +114     ;;67

 +115     ;;21,"00093-7372-01 ")

 +116     ;;101

 +117     ;;21,"00093-7372-10 ")

 +118     ;;96

 +119     ;;21,"00093-7373-01 ")

 +120     ;;7

 +121     ;;21,"00093-7373-10 ")

 +122     ;;8

 +123     ;;21,"00172-4219-70 ")

 +124     ;;1166

 +125     ;;21,"00172-4220-70 ")

 +126     ;;1230

 +127     ;;21,"00172-4221-70 ")

 +128     ;;1268

 +129     ;;21,"00172-4280-00 ")

 +130     ;;2061

 +131     ;;21,"00172-4280-10 ")

 +132     ;;2062

 +133     ;;21,"00172-4280-60 ")

 +134     ;;2063

 +135     ;;21,"00172-4280-70 ")

 +136     ;;2064

 +137     ;;21,"00172-4285-00 ")

 +138     ;;1952

 +139     ;;21,"00172-4285-10 ")

 +140     ;;1953

 +141     ;;21,"00172-4285-60 ")

 +142     ;;1954

 +143     ;;21,"00172-4286-00 ")

 +144     ;;1999

 +145     ;;21,"00172-4286-10 ")

 +146     ;;2000

 +147     ;;21,"00172-4286-60 ")

 +148     ;;2001

 +149     ;;21,"00172-4286-70 ")

 +150     ;;2002

 +151     ;;21,"00172-4288-60 ")

 +152     ;;1420

 +153     ;;21,"00172-4289-60 ")

 +154     ;;1436

 +155     ;;21,"00173-0784-01 ")

 +156     ;;1402

 +157     ;;21,"00173-0785-01 ")

 +158     ;;1399

 +159     ;;21,"00182-1300-89 ")

 +160     ;;1928

 +161     ;;21,"00182-1301-89 ")

 +162     ;;1853

 +163     ;;21,"00182-8225-89 ")

 +164     ;;796

 +165     ;;21,"00182-8226-89 ")

 +166     ;;841

 +167     ;;21,"00182-8227-89 ")

 +168     ;;895

 +169     ;;21,"00182-8232-00 ")

 +170     ;;1495

 +171     ;;21,"00182-8232-89 ")

 +172     ;;1496

 +173     ;;21,"00182-8233-00 ")

 +174     ;;1549

 +175     ;;21,"00182-8233-89 ")

 +176     ;;1550

 +177     ;;21,"00182-8234-00 ")

 +178     ;;1569

 +179     ;;21,"00182-8234-89 ")

 +180     ;;1570

 +181     ;;21,"00186-0001-31 ")

 +182     ;;143

 +183     ;;21,"00186-0001-68 ")

 +184     ;;144

 +185     ;;21,"00186-0002-31 ")

 +186     ;;142

 +187     ;;21,"00186-0450-28 ")

 +188     ;;1332

 +189     ;;21,"00186-0450-31 ")

 +190     ;;1336

 +191     ;;21,"00186-0450-58 ")

 +192     ;;1325

 +193     ;;21,"00186-0451-28 ")

 +194     ;;1376

 +195     ;;21,"00186-0451-31 ")

 +196     ;;1381

 +197     ;;21,"00186-0451-58 ")

 +198     ;;1360

 +199     ;;21,"00186-0452-28 ")

 +200     ;;1310

 +201     ;;21,"00186-0452-31 ")

 +202     ;;1313

 +203     ;;21,"00186-0452-58 ")

 +204     ;;1296

 +205     ;;21,"00228-2473-10 ")

 +206     ;;1929

 +207     ;;21,"00228-2473-50 ")

 +208     ;;1930

 +209     ;;21,"00228-2473-96 ")

 +210     ;;1931

 +211     ;;21,"00228-2475-10 ")

 +212     ;;1864

 +213     ;;21,"00228-2475-50 ")

 +214     ;;1865

 +215     ;;21,"00228-2475-96 ")

 +216     ;;1866

 +217     ;;21,"00228-2577-03 ")

 +218     ;;807

 +219     ;;21,"00228-2577-09 ")

 +220     ;;808

 +221     ;;21,"00228-2577-50 ")

 +222     ;;809

 +223     ;;21,"00228-2577-73 ")

 +224     ;;810

 +225     ;;21,"00228-2578-03 ")

 +226     ;;854

 +227     ;;21,"00228-2578-09 ")

 +228     ;;855

 +229     ;;21,"00228-2578-50 ")

 +230     ;;856

 +231     ;;21,"00228-2578-73 ")

 +232     ;;857

 +233     ;;21,"00228-2579-03 ")

 +234     ;;905

 +235     ;;21,"00228-2579-09 ")

 +236     ;;906

 +237     ;;21,"00228-2579-50 ")

 +238     ;;907

 +239     ;;21,"00228-2588-03 ")

 +240     ;;761

 +241     ;;21,"00228-2588-09 ")

 +242     ;;762

 +243     ;;21,"00228-2588-50 ")

 +244     ;;763

 +245     ;;21,"00228-2588-73 ")

 +246     ;;764

 +247     ;;21,"00247-0451-01 ")

 +248     ;;1581

 +249     ;;21,"00247-0451-02 ")

 +250     ;;1582

 +251     ;;21,"00247-0451-03 ")

 +252     ;;1583

 +253     ;;21,"00247-0451-04 ")

 +254     ;;1584

 +255     ;;21,"00247-0451-10 ")

 +256     ;;1585

 +257     ;;21,"00247-0451-20 ")

 +258     ;;1586

 +259     ;;21,"00247-0451-30 ")

 +260     ;;1587

 +261     ;;21,"00247-0451-60 ")

 +262     ;;1588

 +263     ;;21,"00247-1099-60 ")

 +264     ;;765

 +265     ;;21,"00247-1100-30 ")

 +266     ;;811

 +267     ;;21,"00247-1100-60 ")

 +268     ;;812

 +269     ;;21,"00247-1101-30 ")

 +270     ;;858

 +271     ;;21,"00247-1101-60 ")

 +272     ;;859

 +273     ;;21,"00247-1102-30 ")

 +274     ;;908

 +275     ;;21,"00247-1102-60 ")

 +276     ;;909

 +277     ;;21,"00247-1114-30 ")

 +278     ;;2003

 +279     ;;21,"00247-1114-60 ")

 +280     ;;2004

 +281     ;;21,"00247-1115-30 ")

 +282     ;;2065

 +283     ;;21,"00247-1115-60 ")

 +284     ;;2066

 +285     ;;21,"00247-1117-03 ")

 +286     ;;1636

 +287     ;;21,"00247-1117-30 ")

 +288     ;;1637

 +289     ;;21,"00247-1117-60 ")

 +290     ;;1638

 +291     ;;21,"00247-1118-03 ")

 +292     ;;1677

 +293     ;;21,"00247-1118-30 ")

 +294     ;;1678

 +295     ;;21,"00247-1135-30 ")

 +296     ;;1326

 +297     ;;21,"00247-1135-60 ")

 +298     ;;1327

 +299     ;;21,"00247-1137-03 ")

 +300     ;;1361

 +301     ;;21,"00247-1221-00 ")

 +302     ;;1193