Routine: BGPM3ACN

BGPM3ACN ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;

 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84

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,"68084016311 ")

 ;;1758

 ;;21,"68084016401 ")

 ;;1971

 ;;21,"68084016411 ")

 ;;1972

 ;;21,"68084016501 ")

 ;;2234

 ;;21,"68084016511 ")

 ;;2235

 ;;21,"68084031214 ")

 ;;1759

 ;;21,"68084032801 ")

 ;;136

 ;;21,"68084032821 ")

 ;;137

 ;;21,"68084032921 ")

 ;;177

 ;;21,"68115015360 ")

 ;;426

 ;;21,"68115015390 ")

 ;;427

 ;;21,"68115021830 ")

 ;;942

 ;;21,"68115021930 ")

 ;;1170

 ;;21,"68115021960 ")

 ;;1171

 ;;21,"68115065800 ")

 ;;1400

 ;;21,"68180046701 ")

 ;;943

 ;;21,"68180046703 ")

 ;;944

 ;;21,"68180046707 ")

 ;;945

 ;;21,"68180046801 ")

 ;;1172

 ;;21,"68180046803 ")

 ;;1173

 ;;21,"68180046805 ")

 ;;1174

 ;;21,"68180046807 ")

 ;;1175

 ;;21,"68180046809 ")

 ;;1176

 ;;21,"68180046901 ")

 ;;1401

 ;;21,"68180046903 ")

 ;;1402

 ;;21,"68180046905 ")

 ;;1403

 ;;21,"68180046907 ")

 ;;1404

 ;;21,"68180046909 ")

 ;;1405

 ;;21,"68180047801 ")

 ;;1559

 ;;21,"68180047802 ")

 ;;1560

 ;;21,"68180047803 ")

 ;;1561

 ;;21,"68180047901 ")

 ;;1760

 ;;21,"68180047902 ")

 ;;1761

 ;;21,"68180047903 ")

 ;;1762

 ;;21,"68180048001 ")

 ;;1973

 ;;21,"68180048002 ")

 ;;1974

 ;;21,"68180048003 ")

 ;;1975

 ;;21,"68180048101 ")

 ;;2236

 ;;21,"68180048102 ")

 ;;2237

 ;;21,"68180048103 ")

 ;;2238

 ;;21,"68180048203 ")

 ;;2092

 ;;21,"68180048206 ")

 ;;2093

 ;;21,"68180048209 ")

 ;;2094

 ;;21,"68180048213 ")

 ;;2095

 ;;21,"68382006505 ")

 ;;2096

 ;;21,"68382006506 ")

 ;;2097

 ;;21,"68382006510 ")

 ;;2098

 ;;21,"68382006514 ")

 ;;2099

 ;;21,"68382006516 ")

 ;;2100

 ;;21,"68382006605 ")

 ;;1562

 ;;21,"68382006606 ")

 ;;1563

 ;;21,"68382006610 ")

 ;;1564

 ;;21,"68382006614 ")

 ;;1565

 ;;21,"68382006616 ")

 ;;1566

 ;;21,"68382006624 ")

 ;;1567

 ;;21,"68382006705 ")

 ;;1763

 ;;21,"68382006706 ")

 ;;1764

 ;;21,"68382006710 ")

 ;;1765

 ;;21,"68382006714 ")

 ;;1766

 ;;21,"68382006716 ")

 ;;1767

 ;;21,"68382006724 ")

 ;;1768

 ;;21,"68382006805 ")

 ;;1976

 ;;21,"68382006806 ")

 ;;1977

 ;;21,"68382006810 ")

 ;;1978

 ;;21,"68382006814 ")

 ;;1979

 ;;21,"68382006816 ")

 ;;1980

 ;;21,"68382006819 ")

 ;;1981

 ;;21,"68382006840 ")

 ;;1982

 ;;21,"68382006905 ")

 ;;2239

 ;;21,"68382006906 ")

 ;;2240

 ;;21,"68382006910 ")

 ;;2241

 ;;21,"68382006914 ")

 ;;2242

 ;;21,"68382006916 ")

 ;;2243

 ;;21,"68382010005 ")

 ;;428

 ;;21,"68382010014 ")

 ;;429

 ;;21,"68533000500 ")

 ;;2101

 ;;21,"68533000512 ")

 ;;2102

 ;;21,"68533000525 ")

 ;;2103

 ;;21,"68533000540 ")

 ;;2104

 ;;21,"68533000600 ")

 ;;1568

 ;;21,"68533000612 ")

 ;;1569

 ;;21,"68533000625 ")

 ;;1570

 ;;21,"68533000640 ")

 ;;1571

 ;;21,"68533000700 ")

 ;;1769

 ;;21,"68533000712 ")

 ;;1770

 ;;21,"68533000740 ")

 ;;1771

 ;;21,"68533000745 ")

 ;;1772

 ;;21,"68533000800 ")

 ;;1983

 ;;21,"68533000812 ")

 ;;1984

 ;;21,"68533000822 ")

 ;;1985

 ;;21,"68533000840 ")

 ;;1986

 ;;21,"68533000900 ")

 ;;2244

 ;;21,"68533000912 ")

 ;;2245

 ;;21,"68533000922 ")

 ;;2246

 ;;21,"68533000940 ")

 ;;2247

 ;;21,"68533050550 ")

 ;;2105

 ;;21,"68533050590 ")

 ;;2106

 ;;21,"68533050650 ")

 ;;1572

 ;;21,"68533050690 ")

 ;;1573

 ;;21,"68533050750 ")

 ;;1773

 ;;21,"68533050890 ")

 ;;1987

 ;;21,"68533050990 ")

 ;;2248

 ;;21,"68688009300 ")

 ;;1574

 ;;21,"68688029200 ")

 ;;2249

 ;;21,"68688038400 ")

 ;;1774

 ;;21,"68688087900 ")

 ;;1988

 ;;21,"68688092400 ")

 ;;2107

 ;;21,"68788003403 ")

 ;;430

 ;;21,"68788003405 ")

 ;;431

 ;;21,"68788003406 ")

 ;;432

 ;;21,"68788005203 ")

 ;;1775

 ;;21,"68788005206 ")

 ;;1776

 ;;21,"68788005209 ")

 ;;1777

 ;;21,"68788007403 ")

 ;;1406

 ;;21,"68788007406 ")

 ;;1407

 ;;21,"68788007409 ")

 ;;1408

 ;;21,"68788057603 ")

 ;;1177

 ;;21,"68788057606 ")

 ;;1178

 ;;21,"68788057609 ")

 ;;1179

 ;;21,"68788070603 ")

 ;;1989

 ;;21,"68788070606 ")

 ;;1990

 ;;21,"68788070609 ")

 ;;1991

 ;;21,"68788075503 ")

 ;;1180

 ;;21,"68788075506 ")

 ;;1181

 ;;21,"68788075509 ")

 ;;1182

 ;;21,"68788079603 ")

 ;;1575

 ;;21,"68788079606 ")

 ;;1576

 ;;21,"68788079609 ")

 ;;1577

 ;;21,"68788092603 ")

 ;;946

 ;;21,"68788092606 ")

 ;;947

 ;;21,"68788092609 ")

 ;;948

 ;;21,"68788092803 ")

 ;;1409

 ;;21,"68788092806 ")

 ;;1410

 ;;21,"68788092809 ")

 ;;1411

 ;;21,"68788236403 ")

 ;;1183

 ;;21,"68788236406 ")

 ;;1184

 ;;21,"68788236409 ")

 ;;1185

 ;;21,"68788263303 ")

 ;;949

 ;;21,"68788263306 ")

 ;;950

 ;;21,"68788263309 ")

 ;;951

 ;;21,"68788263403 ")

 ;;1186

 ;;21,"68788263503 ")

 ;;1412

 ;;21,"68788263506 ")

 ;;1413

 ;;21,"68788263509 ")

 ;;1414

 ;;21,"74312000720 ")

 ;;777

 ;;21,"74312001483 ")

 ;;737

 ;;21,"74312001660 ")

 ;;781

 ;;21,"74312005800 ")

 ;;646

 ;;9002226,786,.01)

 ;;BGPMU LIPID LOWERING NDCS

 ;;9002226,786,.02)

 ;;MU CQM Lipid Lowering NDCs

 ;;9002226,786,.04)

;;@

 ;;9002226,786,.06)

;;@

 ;;9002226,786,.08)

;;@

 ;;9002226,786,.09)

;;@

 ;;9002226,786,.11)

;;@

 ;;9002226,786,.12)

;;@

 ;;9002226,786,.13)

;;@

 ;;9002226,786,.14)

;;@

 ;;9002226,786,.15)

;;@

 ;;9002226,786,.16)

;;@

 ;;9002226,786,.17)

;;@

 ;;9002226,786,3101)

;;@

 ;;9002226.02101,"786,00002104202 ",.01)

 ;;00002104202

 ;;9002226.02101,"786,00002104202 ",.02)

 ;;00002104202

 ;;9002226.02101,"786,00002104302 ",.01)

 ;;00002104302

 ;;9002226.02101,"786,00002104302 ",.02)

 ;;00002104302

 ;;9002226.02101,"786,00002104304 ",.01)

 ;;00002104304

 ;;9002226.02101,"786,00002104304 ",.02)

 ;;00002104304

 ;;9002226.02101,"786,00003061150 ",.01)

 ;;00003061150

 ;;9002226.02101,"786,00003061150 ",.02)

 ;;00003061150

 ;;9002226.02101,"786,00003061250 ",.01)

 ;;00003061250

 ;;9002226.02101,"786,00003061250 ",.02)

 ;;00003061250

 ;;9002226.02101,"786,00005316031 ",.01)

 ;;00005316031

 ;;9002226.02101,"786,00005316031 ",.02)

 ;;00005316031

 ;;9002226.02101,"786,00005316032 ",.01)

 ;;00005316032

 ;;9002226.02101,"786,00005316032 ",.02)

 ;;00005316032

 ;;9002226.02101,"786,00006074007 ",.01)

 ;;00006074007

 ;;9002226.02101,"786,00006074007 ",.02)

 ;;00006074007

 ;;9002226.02101,"786,00006388810 ",.01)

 ;;00006388810

 ;;9002226.02101,"786,00006388810 ",.02)

 ;;00006388810

 ;;9002226.02101,"786,00006388830 ",.01)

 ;;00006388830

 ;;9002226.02101,"786,00006388830 ",.02)

 ;;00006388830

 ;;9002226.02101,"786,00006388890 ",.01)

 ;;00006388890

 ;;9002226.02101,"786,00006388890 ",.02)

 ;;00006388890

 ;;9002226.02101,"786,00006388910 ",.01)

 ;;00006388910

 ;;9002226.02101,"786,00006388910 ",.02)

 ;;00006388910

 ;;9002226.02101,"786,00006388930 ",.01)

 ;;00006388930

 ;;9002226.02101,"786,00006388930 ",.02)

 ;;00006388930

 ;;9002226.02101,"786,00006388990 ",.01)

 ;;00006388990

 ;;9002226.02101,"786,00006388990 ",.02)

 ;;00006388990

 ;;9002226.02101,"786,00006389010 ",.01)

 ;;00006389010

 ;;9002226.02101,"786,00006389010 ",.02)

 ;;00006389010

 ;;9002226.02101,"786,00006389030 ",.01)

 ;;00006389030

 ;;9002226.02101,"786,00006389030 ",.02)

 ;;00006389030

 ;;9002226.02101,"786,00006389090 ",.01)

 ;;00006389090

 ;;9002226.02101,"786,00006389090 ",.02)

 ;;00006389090

 ;;9002226.02101,"786,00006389110 ",.01)

 ;;00006389110

 ;;9002226.02101,"786,00006389110 ",.02)

 ;;00006389110

 ;;9002226.02101,"786,00006389130 ",.01)

 ;;00006389130

 ;;9002226.02101,"786,00006389130 ",.02)

 ;;00006389130

 ;;9002226.02101,"786,00006389190 ",.01)

 ;;00006389190

 ;;9002226.02101,"786,00006389190 ",.02)

 ;;00006389190

 ;;9002226.02101,"786,00009046001 ",.01)

 ;;00009046001

 ;;9002226.02101,"786,00009046001 ",.02)

 ;;00009046001

 ;;9002226.02101,"786,00016944214 ",.01)

 ;;00016944214

 ;;9002226.02101,"786,00016944214 ",.02)

 ;;00016944214

 ;;9002226.02101,"786,00021331290 ",.01)

 ;;00021331290

 ;;9002226.02101,"786,00021331290 ",.02)

 ;;00021331290

 ;;9002226.02101,"786,00047008420 ",.01)

 ;;00047008420

 ;;9002226.02101,"786,00047008420 ",.02)

 ;;00047008420

 ;;9002226.02101,"786,00047008430 ",.01)

 ;;00047008430

 ;;9002226.02101,"786,00047008430 ",.02)

 ;;00047008430

 ;;9002226.02101,"786,00047008440 ",.01)

 ;;00047008440

 ;;9002226.02101,"786,00047008440 ",.02)

 ;;00047008440

 ;;9002226.02101,"786,00047201020 ",.01)

 ;;00047201020

 ;;9002226.02101,"786,00047201020 ",.02)

 ;;00047201020

 ;;9002226.02101,"786,00047201022 ",.01)

 ;;00047201022

 ;;9002226.02101,"786,00047201022 ",.02)

 ;;00047201022

 ;;9002226.02101,"786,00047201120 ",.01)

 ;;00047201120

 ;;9002226.02101,"786,00047201120 ",.02)

 ;;00047201120

 ;;9002226.02101,"786,00047201122 ",.01)

 ;;00047201122

 ;;9002226.02101,"786,00047201122 ",.02)

 ;;00047201122

 ;;9002226.02101,"786,00048123001 ",.01)

 ;;00048123001

 ;;9002226.02101,"786,00048123001 ",.02)

 ;;00048123001

 ;;9002226.02101,"786,00048125001 ",.01)

 ;;00048125001

 ;;9002226.02101,"786,00048125001 ",.02)

 ;;00048125001

 ;;9002226.02101,"786,00048125007 ",.01)

 ;;00048125007

 ;;9002226.02101,"786,00048125007 ",.02)

 ;;00048125007

 ;;9002226.02101,"786,00048127001 ",.01)

 ;;00048127001

 ;;9002226.02101,"786,00048127001 ",.02)

 ;;00048127001

 ;;9002226.02101,"786,00048127007 ",.01)

 ;;00048127007

 ;;9002226.02101,"786,00048127007 ",.02)

 ;;00048127007

 ;;9002226.02101,"786,00048129001 ",.01)

 ;;00048129001

 ;;9002226.02101,"786,00048129001 ",.02)

 ;;00048129001

 ;;9002226.02101,"786,00048129003 ",.01)

 ;;00048129003

 ;;9002226.02101,"786,00048129003 ",.02)

 ;;00048129003

 ;;9002226.02101,"786,00068005104 ",.01)

 ;;00068005104

 ;;9002226.02101,"786,00068005104 ",.02)

 ;;00068005104

 ;;9002226.02101,"786,00068005111 ",.01)

 ;;00068005111

 ;;9002226.02101,"786,00068005111 ",.02)

 ;;00068005111

 ;;9002226.02101,"786,00068005127 ",.01)

 ;;00068005127

 ;;9002226.02101,"786,00068005127 ",.02)

 ;;00068005127

 ;;9002226.02101,"786,00068005179 ",.01)

 ;;00068005179

 ;;9002226.02101,"786,00068005179 ",.02)

 ;;00068005179

 ;;9002226.02101,"786,00068005183 ",.01)

 ;;00068005183

 ;;9002226.02101,"786,00068005183 ",.02)

 ;;00068005183

 ;;9002226.02101,"786,00071066924 ",.01)

 ;;00071066924

 ;;9002226.02101,"786,00071066924 ",.02)

 ;;00071066924

 ;;9002226.02101,"786,00071066930 ",.01)

 ;;00071066930

 ;;9002226.02101,"786,00071066930 ",.02)

 ;;00071066930

 ;;9002226.02101,"786,00071089513 ",.01)

 ;;00071089513

 ;;9002226.02101,"786,00071089513 ",.02)

 ;;00071089513

 ;;9002226.02101,"786,00071089613 ",.01)

 ;;00071089613

 ;;9002226.02101,"786,00071089613 ",.02)

 ;;00071089613

 ;;9002226.02101,"786,00084001301 ",.01)

 ;;00084001301

 ;;9002226.02101,"786,00084001301 ",.02)

 ;;00084001301

 ;;9002226.02101,"786,00087058001 ",.01)

 ;;00087058001

 ;;9002226.02101,"786,00087058001 ",.02)

 ;;00087058001

 ;;9002226.02101,"786,00087058004 ",.01)

 ;;00087058004

 ;;9002226.02101,"786,00087058004 ",.02)

 ;;00087058004

 ;;9002226.02101,"786,00093057606 ",.01)

 ;;00093057606

 ;;9002226.02101,"786,00093057606 ",.02)

 ;;00093057606

 ;;9002226.02101,"786,00093057610 ",.01)

 ;;00093057610

 ;;9002226.02101,"786,00093057610 ",.02)

 ;;00093057610

 ;;9002226.02101,"786,00093057619 ",.01)

 ;;00093057619

 ;;9002226.02101,"786,00093057619 ",.02)

 ;;00093057619

 ;;9002226.02101,"786,00093057693 ",.01)

 ;;00093057693

 ;;9002226.02101,"786,00093057693 ",.02)

 ;;00093057693

 ;;9002226.02101,"786,00093067005 ",.01)

 ;;00093067005

 ;;9002226.02101,"786,00093067005 ",.02)

 ;;00093067005

 ;;9002226.02101,"786,00093067006 ",.01)

 ;;00093067006

 ;;9002226.02101,"786,00093067006 ",.02)

 ;;00093067006

 ;;9002226.02101,"786,00093067019 ",.01)

 ;;00093067019

BGPM3ACN  ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;

 +1       ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84

 +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,"68084016311 ")

 +2       ;;1758

 +3       ;;21,"68084016401 ")

 +4       ;;1971

 +5       ;;21,"68084016411 ")

 +6       ;;1972

 +7       ;;21,"68084016501 ")

 +8       ;;2234

 +9       ;;21,"68084016511 ")

 +10      ;;2235

 +11      ;;21,"68084031214 ")

 +12      ;;1759

 +13      ;;21,"68084032801 ")

 +14      ;;136

 +15      ;;21,"68084032821 ")

 +16      ;;137

 +17      ;;21,"68084032921 ")

 +18      ;;177

 +19      ;;21,"68115015360 ")

 +20      ;;426

 +21      ;;21,"68115015390 ")

 +22      ;;427

 +23      ;;21,"68115021830 ")

 +24      ;;942

 +25      ;;21,"68115021930 ")

 +26      ;;1170

 +27      ;;21,"68115021960 ")

 +28      ;;1171

 +29      ;;21,"68115065800 ")

 +30      ;;1400

 +31      ;;21,"68180046701 ")

 +32      ;;943

 +33      ;;21,"68180046703 ")

 +34      ;;944

 +35      ;;21,"68180046707 ")

 +36      ;;945

 +37      ;;21,"68180046801 ")

 +38      ;;1172

 +39      ;;21,"68180046803 ")

 +40      ;;1173

 +41      ;;21,"68180046805 ")

 +42      ;;1174

 +43      ;;21,"68180046807 ")

 +44      ;;1175

 +45      ;;21,"68180046809 ")

 +46      ;;1176

 +47      ;;21,"68180046901 ")

 +48      ;;1401

 +49      ;;21,"68180046903 ")

 +50      ;;1402

 +51      ;;21,"68180046905 ")

 +52      ;;1403

 +53      ;;21,"68180046907 ")

 +54      ;;1404

 +55      ;;21,"68180046909 ")

 +56      ;;1405

 +57      ;;21,"68180047801 ")

 +58      ;;1559

 +59      ;;21,"68180047802 ")

 +60      ;;1560

 +61      ;;21,"68180047803 ")

 +62      ;;1561

 +63      ;;21,"68180047901 ")

 +64      ;;1760

 +65      ;;21,"68180047902 ")

 +66      ;;1761

 +67      ;;21,"68180047903 ")

 +68      ;;1762

 +69      ;;21,"68180048001 ")

 +70      ;;1973

 +71      ;;21,"68180048002 ")

 +72      ;;1974

 +73      ;;21,"68180048003 ")

 +74      ;;1975

 +75      ;;21,"68180048101 ")

 +76      ;;2236

 +77      ;;21,"68180048102 ")

 +78      ;;2237

 +79      ;;21,"68180048103 ")

 +80      ;;2238

 +81      ;;21,"68180048203 ")

 +82      ;;2092

 +83      ;;21,"68180048206 ")

 +84      ;;2093

 +85      ;;21,"68180048209 ")

 +86      ;;2094

 +87      ;;21,"68180048213 ")

 +88      ;;2095

 +89      ;;21,"68382006505 ")

 +90      ;;2096

 +91      ;;21,"68382006506 ")

 +92      ;;2097

 +93      ;;21,"68382006510 ")

 +94      ;;2098

 +95      ;;21,"68382006514 ")

 +96      ;;2099

 +97      ;;21,"68382006516 ")

 +98      ;;2100

 +99      ;;21,"68382006605 ")

 +100     ;;1562

 +101     ;;21,"68382006606 ")

 +102     ;;1563

 +103     ;;21,"68382006610 ")

 +104     ;;1564

 +105     ;;21,"68382006614 ")

 +106     ;;1565

 +107     ;;21,"68382006616 ")

 +108     ;;1566

 +109     ;;21,"68382006624 ")

 +110     ;;1567

 +111     ;;21,"68382006705 ")

 +112     ;;1763

 +113     ;;21,"68382006706 ")

 +114     ;;1764

 +115     ;;21,"68382006710 ")

 +116     ;;1765

 +117     ;;21,"68382006714 ")

 +118     ;;1766

 +119     ;;21,"68382006716 ")

 +120     ;;1767

 +121     ;;21,"68382006724 ")

 +122     ;;1768

 +123     ;;21,"68382006805 ")

 +124     ;;1976

 +125     ;;21,"68382006806 ")

 +126     ;;1977

 +127     ;;21,"68382006810 ")

 +128     ;;1978

 +129     ;;21,"68382006814 ")

 +130     ;;1979

 +131     ;;21,"68382006816 ")

 +132     ;;1980

 +133     ;;21,"68382006819 ")

 +134     ;;1981

 +135     ;;21,"68382006840 ")

 +136     ;;1982

 +137     ;;21,"68382006905 ")

 +138     ;;2239

 +139     ;;21,"68382006906 ")

 +140     ;;2240

 +141     ;;21,"68382006910 ")

 +142     ;;2241

 +143     ;;21,"68382006914 ")

 +144     ;;2242

 +145     ;;21,"68382006916 ")

 +146     ;;2243

 +147     ;;21,"68382010005 ")

 +148     ;;428

 +149     ;;21,"68382010014 ")

 +150     ;;429

 +151     ;;21,"68533000500 ")

 +152     ;;2101

 +153     ;;21,"68533000512 ")

 +154     ;;2102

 +155     ;;21,"68533000525 ")

 +156     ;;2103

 +157     ;;21,"68533000540 ")

 +158     ;;2104

 +159     ;;21,"68533000600 ")

 +160     ;;1568

 +161     ;;21,"68533000612 ")

 +162     ;;1569

 +163     ;;21,"68533000625 ")

 +164     ;;1570

 +165     ;;21,"68533000640 ")

 +166     ;;1571

 +167     ;;21,"68533000700 ")

 +168     ;;1769

 +169     ;;21,"68533000712 ")

 +170     ;;1770

 +171     ;;21,"68533000740 ")

 +172     ;;1771

 +173     ;;21,"68533000745 ")

 +174     ;;1772

 +175     ;;21,"68533000800 ")

 +176     ;;1983

 +177     ;;21,"68533000812 ")

 +178     ;;1984

 +179     ;;21,"68533000822 ")

 +180     ;;1985

 +181     ;;21,"68533000840 ")

 +182     ;;1986

 +183     ;;21,"68533000900 ")

 +184     ;;2244

 +185     ;;21,"68533000912 ")

 +186     ;;2245

 +187     ;;21,"68533000922 ")

 +188     ;;2246

 +189     ;;21,"68533000940 ")

 +190     ;;2247

 +191     ;;21,"68533050550 ")

 +192     ;;2105

 +193     ;;21,"68533050590 ")

 +194     ;;2106

 +195     ;;21,"68533050650 ")

 +196     ;;1572

 +197     ;;21,"68533050690 ")

 +198     ;;1573

 +199     ;;21,"68533050750 ")

 +200     ;;1773

 +201     ;;21,"68533050890 ")

 +202     ;;1987

 +203     ;;21,"68533050990 ")

 +204     ;;2248

 +205     ;;21,"68688009300 ")

 +206     ;;1574

 +207     ;;21,"68688029200 ")

 +208     ;;2249

 +209     ;;21,"68688038400 ")

 +210     ;;1774

 +211     ;;21,"68688087900 ")

 +212     ;;1988

 +213     ;;21,"68688092400 ")

 +214     ;;2107

 +215     ;;21,"68788003403 ")

 +216     ;;430

 +217     ;;21,"68788003405 ")

 +218     ;;431

 +219     ;;21,"68788003406 ")

 +220     ;;432

 +221     ;;21,"68788005203 ")

 +222     ;;1775

 +223     ;;21,"68788005206 ")

 +224     ;;1776

 +225     ;;21,"68788005209 ")

 +226     ;;1777

 +227     ;;21,"68788007403 ")

 +228     ;;1406

 +229     ;;21,"68788007406 ")

 +230     ;;1407

 +231     ;;21,"68788007409 ")

 +232     ;;1408

 +233     ;;21,"68788057603 ")

 +234     ;;1177

 +235     ;;21,"68788057606 ")

 +236     ;;1178

 +237     ;;21,"68788057609 ")

 +238     ;;1179

 +239     ;;21,"68788070603 ")

 +240     ;;1989

 +241     ;;21,"68788070606 ")

 +242     ;;1990

 +243     ;;21,"68788070609 ")

 +244     ;;1991

 +245     ;;21,"68788075503 ")

 +246     ;;1180

 +247     ;;21,"68788075506 ")

 +248     ;;1181

 +249     ;;21,"68788075509 ")

 +250     ;;1182

 +251     ;;21,"68788079603 ")

 +252     ;;1575

 +253     ;;21,"68788079606 ")

 +254     ;;1576

 +255     ;;21,"68788079609 ")

 +256     ;;1577

 +257     ;;21,"68788092603 ")

 +258     ;;946

 +259     ;;21,"68788092606 ")

 +260     ;;947

 +261     ;;21,"68788092609 ")

 +262     ;;948

 +263     ;;21,"68788092803 ")

 +264     ;;1409

 +265     ;;21,"68788092806 ")

 +266     ;;1410

 +267     ;;21,"68788092809 ")

 +268     ;;1411

 +269     ;;21,"68788236403 ")

 +270     ;;1183

 +271     ;;21,"68788236406 ")

 +272     ;;1184

 +273     ;;21,"68788236409 ")

 +274     ;;1185

 +275     ;;21,"68788263303 ")

 +276     ;;949

 +277     ;;21,"68788263306 ")

 +278     ;;950

 +279     ;;21,"68788263309 ")

 +280     ;;951

 +281     ;;21,"68788263403 ")

 +282     ;;1186

 +283     ;;21,"68788263503 ")

 +284     ;;1412

 +285     ;;21,"68788263506 ")

 +286     ;;1413

 +287     ;;21,"68788263509 ")

 +288     ;;1414

 +289     ;;21,"74312000720 ")

 +290     ;;777

 +291     ;;21,"74312001483 ")

 +292     ;;737

 +293     ;;21,"74312001660 ")

 +294     ;;781

 +295     ;;21,"74312005800 ")

 +296     ;;646

 +297     ;;9002226,786,.01)

 +298     ;;BGPMU LIPID LOWERING NDCS

 +299     ;;9002226,786,.02)

 +300     ;;MU CQM Lipid Lowering NDCs

 +301     ;;9002226,786,.04)

 +302     ;;@

 +303     ;;9002226,786,.06)

 +304     ;;@

 +305     ;;9002226,786,.08)

 +306     ;;@

 +307     ;;9002226,786,.09)

 +308     ;;@

 +309     ;;9002226,786,.11)

 +310     ;;@

 +311     ;;9002226,786,.12)

 +312     ;;@

 +313     ;;9002226,786,.13)

 +314     ;;@

 +315     ;;9002226,786,.14)

 +316     ;;@

 +317     ;;9002226,786,.15)

 +318     ;;@

 +319     ;;9002226,786,.16)

 +320     ;;@

 +321     ;;9002226,786,.17)

 +322     ;;@

 +323     ;;9002226,786,3101)

 +324     ;;@

 +325     ;;9002226.02101,"786,00002104202 ",.01)

 +326     ;;00002104202

 +327     ;;9002226.02101,"786,00002104202 ",.02)

 +328     ;;00002104202

 +329     ;;9002226.02101,"786,00002104302 ",.01)

 +330     ;;00002104302

 +331     ;;9002226.02101,"786,00002104302 ",.02)

 +332     ;;00002104302

 +333     ;;9002226.02101,"786,00002104304 ",.01)

 +334     ;;00002104304

 +335     ;;9002226.02101,"786,00002104304 ",.02)

 +336     ;;00002104304

 +337     ;;9002226.02101,"786,00003061150 ",.01)

 +338     ;;00003061150

 +339     ;;9002226.02101,"786,00003061150 ",.02)

 +340     ;;00003061150

 +341     ;;9002226.02101,"786,00003061250 ",.01)

 +342     ;;00003061250

 +343     ;;9002226.02101,"786,00003061250 ",.02)

 +344     ;;00003061250

 +345     ;;9002226.02101,"786,00005316031 ",.01)

 +346     ;;00005316031

 +347     ;;9002226.02101,"786,00005316031 ",.02)

 +348     ;;00005316031

 +349     ;;9002226.02101,"786,00005316032 ",.01)

 +350     ;;00005316032

 +351     ;;9002226.02101,"786,00005316032 ",.02)

 +352     ;;00005316032

 +353     ;;9002226.02101,"786,00006074007 ",.01)

 +354     ;;00006074007

 +355     ;;9002226.02101,"786,00006074007 ",.02)

 +356     ;;00006074007

 +357     ;;9002226.02101,"786,00006388810 ",.01)

 +358     ;;00006388810

 +359     ;;9002226.02101,"786,00006388810 ",.02)

 +360     ;;00006388810

 +361     ;;9002226.02101,"786,00006388830 ",.01)

 +362     ;;00006388830

 +363     ;;9002226.02101,"786,00006388830 ",.02)

 +364     ;;00006388830

 +365     ;;9002226.02101,"786,00006388890 ",.01)

 +366     ;;00006388890

 +367     ;;9002226.02101,"786,00006388890 ",.02)

 +368     ;;00006388890

 +369     ;;9002226.02101,"786,00006388910 ",.01)

 +370     ;;00006388910

 +371     ;;9002226.02101,"786,00006388910 ",.02)

 +372     ;;00006388910

 +373     ;;9002226.02101,"786,00006388930 ",.01)

 +374     ;;00006388930

 +375     ;;9002226.02101,"786,00006388930 ",.02)

 +376     ;;00006388930

 +377     ;;9002226.02101,"786,00006388990 ",.01)

 +378     ;;00006388990

 +379     ;;9002226.02101,"786,00006388990 ",.02)

 +380     ;;00006388990

 +381     ;;9002226.02101,"786,00006389010 ",.01)

 +382     ;;00006389010

 +383     ;;9002226.02101,"786,00006389010 ",.02)

 +384     ;;00006389010

 +385     ;;9002226.02101,"786,00006389030 ",.01)

 +386     ;;00006389030

 +387     ;;9002226.02101,"786,00006389030 ",.02)

 +388     ;;00006389030

 +389     ;;9002226.02101,"786,00006389090 ",.01)

 +390     ;;00006389090

 +391     ;;9002226.02101,"786,00006389090 ",.02)

 +392     ;;00006389090

 +393     ;;9002226.02101,"786,00006389110 ",.01)

 +394     ;;00006389110

 +395     ;;9002226.02101,"786,00006389110 ",.02)

 +396     ;;00006389110

 +397     ;;9002226.02101,"786,00006389130 ",.01)

 +398     ;;00006389130

 +399     ;;9002226.02101,"786,00006389130 ",.02)

 +400     ;;00006389130

 +401     ;;9002226.02101,"786,00006389190 ",.01)

 +402     ;;00006389190

 +403     ;;9002226.02101,"786,00006389190 ",.02)

 +404     ;;00006389190

 +405     ;;9002226.02101,"786,00009046001 ",.01)

 +406     ;;00009046001

 +407     ;;9002226.02101,"786,00009046001 ",.02)

 +408     ;;00009046001

 +409     ;;9002226.02101,"786,00016944214 ",.01)

 +410     ;;00016944214

 +411     ;;9002226.02101,"786,00016944214 ",.02)

 +412     ;;00016944214

 +413     ;;9002226.02101,"786,00021331290 ",.01)

 +414     ;;00021331290

 +415     ;;9002226.02101,"786,00021331290 ",.02)

 +416     ;;00021331290

 +417     ;;9002226.02101,"786,00047008420 ",.01)

 +418     ;;00047008420

 +419     ;;9002226.02101,"786,00047008420 ",.02)

 +420     ;;00047008420

 +421     ;;9002226.02101,"786,00047008430 ",.01)

 +422     ;;00047008430

 +423     ;;9002226.02101,"786,00047008430 ",.02)

 +424     ;;00047008430

 +425     ;;9002226.02101,"786,00047008440 ",.01)

 +426     ;;00047008440

 +427     ;;9002226.02101,"786,00047008440 ",.02)

 +428     ;;00047008440

 +429     ;;9002226.02101,"786,00047201020 ",.01)

 +430     ;;00047201020

 +431     ;;9002226.02101,"786,00047201020 ",.02)

 +432     ;;00047201020

 +433     ;;9002226.02101,"786,00047201022 ",.01)

 +434     ;;00047201022

 +435     ;;9002226.02101,"786,00047201022 ",.02)

 +436     ;;00047201022

 +437     ;;9002226.02101,"786,00047201120 ",.01)

 +438     ;;00047201120

 +439     ;;9002226.02101,"786,00047201120 ",.02)

 +440     ;;00047201120

 +441     ;;9002226.02101,"786,00047201122 ",.01)

 +442     ;;00047201122

 +443     ;;9002226.02101,"786,00047201122 ",.02)

 +444     ;;00047201122

 +445     ;;9002226.02101,"786,00048123001 ",.01)

 +446     ;;00048123001

 +447     ;;9002226.02101,"786,00048123001 ",.02)

 +448     ;;00048123001

 +449     ;;9002226.02101,"786,00048125001 ",.01)

 +450     ;;00048125001

 +451     ;;9002226.02101,"786,00048125001 ",.02)

 +452     ;;00048125001

 +453     ;;9002226.02101,"786,00048125007 ",.01)

 +454     ;;00048125007

 +455     ;;9002226.02101,"786,00048125007 ",.02)

 +456     ;;00048125007

 +457     ;;9002226.02101,"786,00048127001 ",.01)

 +458     ;;00048127001

 +459     ;;9002226.02101,"786,00048127001 ",.02)

 +460     ;;00048127001

 +461     ;;9002226.02101,"786,00048127007 ",.01)

 +462     ;;00048127007

 +463     ;;9002226.02101,"786,00048127007 ",.02)

 +464     ;;00048127007

 +465     ;;9002226.02101,"786,00048129001 ",.01)

 +466     ;;00048129001

 +467     ;;9002226.02101,"786,00048129001 ",.02)

 +468     ;;00048129001

 +469     ;;9002226.02101,"786,00048129003 ",.01)

 +470     ;;00048129003

 +471     ;;9002226.02101,"786,00048129003 ",.02)

 +472     ;;00048129003

 +473     ;;9002226.02101,"786,00068005104 ",.01)

 +474     ;;00068005104

 +475     ;;9002226.02101,"786,00068005104 ",.02)

 +476     ;;00068005104

 +477     ;;9002226.02101,"786,00068005111 ",.01)

 +478     ;;00068005111

 +479     ;;9002226.02101,"786,00068005111 ",.02)

 +480     ;;00068005111

 +481     ;;9002226.02101,"786,00068005127 ",.01)

 +482     ;;00068005127

 +483     ;;9002226.02101,"786,00068005127 ",.02)

 +484     ;;00068005127

 +485     ;;9002226.02101,"786,00068005179 ",.01)

 +486     ;;00068005179

 +487     ;;9002226.02101,"786,00068005179 ",.02)

 +488     ;;00068005179

 +489     ;;9002226.02101,"786,00068005183 ",.01)

 +490     ;;00068005183

 +491     ;;9002226.02101,"786,00068005183 ",.02)

 +492     ;;00068005183

 +493     ;;9002226.02101,"786,00071066924 ",.01)

 +494     ;;00071066924

 +495     ;;9002226.02101,"786,00071066924 ",.02)

 +496     ;;00071066924

 +497     ;;9002226.02101,"786,00071066930 ",.01)

 +498     ;;00071066930

 +499     ;;9002226.02101,"786,00071066930 ",.02)

 +500     ;;00071066930

 +501     ;;9002226.02101,"786,00071089513 ",.01)

 +502     ;;00071089513

 +503     ;;9002226.02101,"786,00071089513 ",.02)

 +504     ;;00071089513

 +505     ;;9002226.02101,"786,00071089613 ",.01)

 +506     ;;00071089613

 +507     ;;9002226.02101,"786,00071089613 ",.02)

 +508     ;;00071089613

 +509     ;;9002226.02101,"786,00084001301 ",.01)

 +510     ;;00084001301

 +511     ;;9002226.02101,"786,00084001301 ",.02)

 +512     ;;00084001301

 +513     ;;9002226.02101,"786,00087058001 ",.01)

 +514     ;;00087058001

 +515     ;;9002226.02101,"786,00087058001 ",.02)

 +516     ;;00087058001

 +517     ;;9002226.02101,"786,00087058004 ",.01)

 +518     ;;00087058004

 +519     ;;9002226.02101,"786,00087058004 ",.02)

 +520     ;;00087058004

 +521     ;;9002226.02101,"786,00093057606 ",.01)

 +522     ;;00093057606

 +523     ;;9002226.02101,"786,00093057606 ",.02)

 +524     ;;00093057606

 +525     ;;9002226.02101,"786,00093057610 ",.01)

 +526     ;;00093057610

 +527     ;;9002226.02101,"786,00093057610 ",.02)

 +528     ;;00093057610

 +529     ;;9002226.02101,"786,00093057619 ",.01)

 +530     ;;00093057619

 +531     ;;9002226.02101,"786,00093057619 ",.02)

 +532     ;;00093057619

 +533     ;;9002226.02101,"786,00093057693 ",.01)

 +534     ;;00093057693

 +535     ;;9002226.02101,"786,00093057693 ",.02)

 +536     ;;00093057693

 +537     ;;9002226.02101,"786,00093067005 ",.01)

 +538     ;;00093067005

 +539     ;;9002226.02101,"786,00093067005 ",.02)

 +540     ;;00093067005

 +541     ;;9002226.02101,"786,00093067006 ",.01)

 +542     ;;00093067006

 +543     ;;9002226.02101,"786,00093067006 ",.02)

 +544     ;;00093067006

 +545     ;;9002226.02101,"786,00093067019 ",.01)

 +546     ;;00093067019

BGPM3ACN.m