Routine: BGPM5BEP

BGPM5BEP ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 2011;

 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106

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

 ;;3755

 ;;21,"67544012980 ")

 ;;3756

 ;;21,"67544012994 ")

 ;;3757

 ;;21,"67544016330 ")

 ;;1527

 ;;21,"67544016345 ")

 ;;1528

 ;;21,"67544016353 ")

 ;;1529

 ;;21,"67544016360 ")

 ;;1530

 ;;21,"67544016380 ")

 ;;1531

 ;;21,"67544016386 ")

 ;;1532

 ;;21,"67544030232 ")

 ;;3758

 ;;21,"67544030260 ")

 ;;3759

 ;;21,"67544030280 ")

 ;;3760

 ;;21,"67544036470 ")

 ;;172

 ;;21,"67544041770 ")

 ;;173

 ;;21,"67544042160 ")

 ;;1535

 ;;21,"67544042180 ")

 ;;1536

 ;;21,"67544042192 ")

 ;;1537

 ;;21,"67544042230 ")

 ;;1538

 ;;21,"67544042253 ")

 ;;1539

 ;;21,"67544042260 ")

 ;;1540

 ;;21,"67544042270 ")

 ;;1541

 ;;21,"67544042275 ")

 ;;1542

 ;;21,"67544042280 ")

 ;;1543

 ;;21,"67544042290 ")

 ;;1544

 ;;21,"67544042292 ")

 ;;1545

 ;;21,"67544042294 ")

 ;;1546

 ;;21,"67544042296 ")

 ;;1547

 ;;21,"67544042430 ")

 ;;1548

 ;;21,"67544042431 ")

 ;;1549

 ;;21,"67544042453 ")

 ;;1550

 ;;21,"67544042460 ")

 ;;1551

 ;;21,"67544042470 ")

 ;;1552

 ;;21,"67544042475 ")

 ;;1553

 ;;21,"67544042480 ")

 ;;1554

 ;;21,"67544042490 ")

 ;;1555

 ;;21,"67544042492 ")

 ;;1556

 ;;21,"67544042494 ")

 ;;1557

 ;;21,"67544042496 ")

 ;;1558

 ;;21,"67544042830 ")

 ;;1559

 ;;21,"67544042831 ")

 ;;1560

 ;;21,"67544042832 ")

 ;;1561

 ;;21,"67544042845 ")

 ;;1562

 ;;21,"67544042853 ")

 ;;1563

 ;;21,"67544042860 ")

 ;;1564

 ;;21,"67544042873 ")

 ;;1565

 ;;21,"67544042880 ")

 ;;1566

 ;;21,"67544042886 ")

 ;;1567

 ;;21,"67544048631 ")

 ;;1568

 ;;21,"67544048632 ")

 ;;1569

 ;;21,"67544048653 ")

 ;;1570

 ;;21,"67544051130 ")

 ;;174

 ;;21,"67544051170 ")

 ;;175

 ;;21,"67544051194 ")

 ;;176

 ;;21,"67544054882 ")

 ;;3766

 ;;21,"67544056631 ")

 ;;3767

 ;;21,"67544056632 ")

 ;;3768

 ;;21,"67544056653 ")

 ;;3769

 ;;21,"67544056660 ")

 ;;3770

 ;;21,"67544056670 ")

 ;;3771

 ;;21,"67544056680 ")

 ;;3772

 ;;21,"67544056690 ")

 ;;3773

 ;;21,"67544056692 ")

 ;;3774

 ;;21,"67544056694 ")

 ;;3775

 ;;21,"67544059630 ")

 ;;1574

 ;;21,"67544059631 ")

 ;;1575

 ;;21,"67544059632 ")

 ;;1576

 ;;21,"67544059653 ")

 ;;1577

 ;;21,"67544059660 ")

 ;;1578

 ;;21,"67544059670 ")

 ;;1579

 ;;21,"67544059675 ")

 ;;1580

 ;;21,"67544059680 ")

 ;;1581

 ;;21,"67544059690 ")

 ;;1582

 ;;21,"67544059692 ")

 ;;1583

 ;;21,"67544059694 ")

 ;;1584

 ;;21,"67544059696 ")

 ;;1585

 ;;21,"67544061353 ")

 ;;3776

 ;;21,"67544061360 ")

 ;;3777

 ;;21,"67544061370 ")

 ;;3778

 ;;21,"67544061380 ")

 ;;3779

 ;;21,"67544061390 ")

 ;;3780

 ;;21,"67544061392 ")

 ;;3781

 ;;21,"67544061394 ")

 ;;3782

 ;;21,"67544064332 ")

 ;;3783

 ;;21,"67544064360 ")

 ;;3784

 ;;21,"67544064380 ")

 ;;3785

 ;;21,"67544064392 ")

 ;;3786

 ;;21,"67544064394 ")

 ;;3787

 ;;21,"67544065353 ")

 ;;3788

 ;;21,"67544065360 ")

 ;;3789

 ;;21,"67544065370 ")

 ;;3790

 ;;21,"67544065380 ")

 ;;3791

 ;;21,"67544065390 ")

 ;;3792

 ;;21,"67544065392 ")

 ;;3793

 ;;21,"67544065394 ")

 ;;3794

 ;;21,"67544065398 ")

 ;;3795

 ;;21,"67544066141 ")

 ;;3796

 ;;21,"67544066181 ")

 ;;3797

 ;;21,"67544069031 ")

 ;;3798

 ;;21,"67544075153 ")

 ;;3799

 ;;21,"67544075160 ")

 ;;3800

 ;;21,"67544075180 ")

 ;;3801

 ;;21,"67544075645 ")

 ;;3802

 ;;21,"67544075660 ")

 ;;3803

 ;;21,"67544075680 ")

 ;;3804

 ;;21,"67544076432 ")

 ;;3805

 ;;21,"67544076460 ")

 ;;3806

 ;;21,"67544080860 ")

 ;;3807

 ;;21,"67544087532 ")

 ;;3808

 ;;21,"67544087560 ")

 ;;3809

 ;;21,"67544087580 ")

 ;;3810

 ;;21,"67544092732 ")

 ;;3811

 ;;21,"67544092760 ")

 ;;3812

 ;;21,"67544092780 ")

 ;;3813

 ;;21,"67651002300 ")

 ;;3814

 ;;21,"67651002301 ")

 ;;3815

 ;;21,"67651002400 ")

 ;;3816

 ;;21,"67651002401 ")

 ;;3817

 ;;21,"67651004803 ")

 ;;3818

 ;;21,"67651032005 ")

 ;;3819

 ;;21,"67651032100 ")

 ;;3820

 ;;21,"67651032200 ")

 ;;3821

 ;;21,"67651032207 ")

 ;;3822

 ;;21,"67767011501 ")

 ;;1586

 ;;21,"67787020301 ")

 ;;3823

 ;;21,"67787020401 ")

 ;;3824

 ;;21,"67787020501 ")

 ;;3825

 ;;21,"67877021701 ")

 ;;1587

 ;;21,"67877021705 ")

 ;;1588

 ;;21,"67877021801 ")

 ;;1589

 ;;21,"67877022101 ")

 ;;1590

 ;;21,"68071000830 ")

 ;;3826

 ;;21,"68071000860 ")

 ;;3827

 ;;21,"68071001730 ")

 ;;3828

 ;;21,"68071002805 ")

 ;;177

 ;;21,"68071002830 ")

 ;;178

 ;;21,"68071002860 ")

 ;;179

 ;;21,"68071009430 ")

 ;;3832

 ;;21,"68071010730 ")

 ;;1594

 ;;21,"68071016530 ")

 ;;180

 ;;21,"68071038830 ")

 ;;3834

 ;;21,"68071038860 ")

 ;;3835

 ;;21,"68071043412 ")

 ;;1596

 ;;21,"68071043506 ")

 ;;3836

 ;;21,"68071048830 ")

 ;;1597

 ;;21,"68071050190 ")

 ;;1598

 ;;21,"68071074190 ")

 ;;3837

 ;;21,"68084007201 ")

 ;;1599

 ;;21,"68084007211 ")

 ;;1600

 ;;21,"68084011101 ")

 ;;3838

 ;;21,"68084011111 ")

 ;;3839

 ;;21,"68084011201 ")

 ;;3840

 ;;21,"68084011211 ")

 ;;3841

 ;;21,"68084013601 ")

 ;;181

 ;;21,"68084013701 ")

 ;;182

 ;;21,"68084013801 ")

 ;;183

 ;;21,"68084029511 ")

 ;;3845

 ;;21,"68084029521 ")

 ;;3846

 ;;21,"68084032601 ")

 ;;3847

 ;;21,"68084032611 ")

 ;;3848

 ;;21,"68084032701 ")

 ;;3849

 ;;21,"68084032711 ")

 ;;3850

 ;;21,"68084045811 ")

 ;;2021

 ;;21,"68084045821 ")

 ;;2022

 ;;21,"68084045911 ")

 ;;2023

 ;;21,"68084045921 ")

 ;;2024

 ;;21,"68115015490 ")

 ;;3851

 ;;21,"68115016090 ")

 ;;3852

 ;;21,"68115016190 ")

 ;;3853

 ;;21,"68115023100 ")

 ;;1604

 ;;21,"68382002701 ")

 ;;1605

 ;;21,"68382002705 ")

 ;;1606

 ;;21,"68382002801 ")

 ;;1607

 ;;21,"68382002805 ")

 ;;1608

 ;;21,"68382002810 ")

 ;;1609

 ;;21,"68382002816 ")

 ;;1610

 ;;21,"68382002830 ")

 ;;1611

 ;;21,"68382002861 ")

 ;;1612

 ;;21,"68382002901 ")

 ;;1613

 ;;21,"68382002905 ")

 ;;1614

 ;;21,"68382002910 ")

 ;;1615

 ;;21,"68382002916 ")

 ;;1616

 ;;21,"68382002930 ")

 ;;1617

 ;;21,"68382002961 ")

 ;;1618

 ;;21,"68382003001 ")

 ;;1619

 ;;21,"68382003005 ")

 ;;1620

 ;;21,"68382003010 ")

 ;;1621

 ;;21,"68382003016 ")

 ;;1622

 ;;21,"68382003030 ")

 ;;1623

 ;;21,"68382003061 ")

 ;;1624

 ;;21,"68382003901 ")

 ;;1625

 ;;21,"68382003905 ")

 ;;1626

 ;;21,"68462015901 ")

 ;;1627

 ;;21,"68462015905 ")

 ;;1628

 ;;21,"68462015910 ")

 ;;1629

 ;;21,"68462015918 ")

 ;;1630

 ;;21,"68462015990 ")

 ;;1631

 ;;21,"68462016001 ")

 ;;1632

 ;;21,"68462016005 ")

 ;;1633

 ;;21,"68462016010 ")

 ;;1634

 ;;21,"68462016018 ")

 ;;1635

 ;;21,"68462016090 ")

 ;;1636

 ;;21,"68462016101 ")

 ;;1637

 ;;21,"68462016105 ")

 ;;1638

 ;;21,"68462016110 ")

 ;;1639

 ;;21,"68462016118 ")

 ;;1640

 ;;21,"68462016190 ")

 ;;1641

 ;;21,"68533001712 ")

 ;;1642

 ;;21,"68533001722 ")

 ;;1643

 ;;21,"68533001739 ")

 ;;1644

 ;;21,"68533003400 ")

 ;;3854

 ;;21,"68533003412 ")

 ;;3855

 ;;21,"68533003440 ")

 ;;3856

 ;;21,"68533003445 ")

 ;;3857

 ;;21,"68533003500 ")

 ;;3858

 ;;21,"68533003512 ")

 ;;3859

 ;;21,"68533003540 ")

 ;;3860

 ;;21,"68533003548 ")

 ;;3861

 ;;21,"68533003600 ")

 ;;3862

 ;;21,"68533003612 ")

 ;;3863

 ;;21,"68533003640 ")

 ;;3864

 ;;21,"68533003645 ")

 ;;3865

 ;;21,"68645011259 ")

 ;;1645

 ;;21,"68645012059 ")

 ;;1646

 ;;21,"68645015054 ")

 ;;3866

 ;;21,"68645015159 ")

 ;;3867

 ;;21,"68645021054 ")

 ;;3868

 ;;21,"68645021154 ")

 ;;3869

 ;;21,"68788014103 ")

 ;;3870

 ;;21,"68788014106 ")

 ;;3871

 ;;21,"68788014203 ")

 ;;3872

 ;;21,"68788014206 ")

 ;;3873

 ;;21,"68788039701 ")

 ;;1647

 ;;21,"68788039703 ")

 ;;1648

 ;;21,"68788039706 ")

 ;;1649

 ;;21,"68788039708 ")

 ;;1650

 ;;21,"68788039709 ")

 ;;1651

 ;;21,"68788043501 ")

 ;;1652

 ;;21,"68788043503 ")

 ;;1653

 ;;21,"68788043506 ")

 ;;1654

 ;;21,"68788043508 ")

 ;;1655

 ;;21,"68788043509 ")

 ;;1656

 ;;21,"68788046003 ")

 ;;3874

 ;;21,"68788046006 ")

 ;;3875

 ;;21,"68788046009 ")

 ;;3876

 ;;21,"68788046103 ")

 ;;3877

 ;;21,"68788046106 ")

 ;;3878

 ;;21,"68788046703 ")

 ;;1657

 ;;21,"68788046706 ")

 ;;1658

 ;;21,"68788047401 ")

 ;;1659

 ;;21,"68788047403 ")

 ;;1660

 ;;21,"68788047406 ")

 ;;1661

 ;;21,"68788047408 ")

 ;;1662

 ;;21,"68788047409 ")

 ;;1663

 ;;21,"68788096903 ")

 ;;184

 ;;21,"68788096906 ")

 ;;185

 ;;21,"68788119100 ")

 ;;3881

 ;;21,"68788119103 ")

 ;;3882

 ;;21,"68788119106 ")

 ;;3883

 ;;21,"68788834403 ")

 ;;3884

 ;;21,"68788834406 ")

 ;;3885

 ;;21,"71114022100 ")

 ;;3886

 ;;21,"71114022101 ")

 ;;3887

 ;;21,"71114022105 ")

 ;;3888

 ;;21,"71114022200 ")

 ;;3889

 ;;21,"71114022201 ")

 ;;3890

 ;;21,"71114022205 ")

 ;;3891

 ;;9002226,1084,.01)

 ;;BGPMU DIAB NDCS INDICATIVE ALL

 ;;9002226,1084,.02)

 ;;All meds indicative of diab

 ;;9002226,1084,.04)

;;@

 ;;9002226,1084,.06)

;;@

 ;;9002226,1084,.08)

;;@

 ;;9002226,1084,.09)

;;@

 ;;9002226,1084,.11)

;;@

 ;;9002226,1084,.12)

;;@

 ;;9002226,1084,.13)

;;@

 ;;9002226,1084,.14)

;;@

 ;;9002226,1084,.15)

 ;;50.67

 ;;9002226,1084,.16)

;;@

 ;;9002226,1084,.17)

;;@

 ;;9002226,1084,3101)

;;@

 ;;9002226.02101,"1084,00009372501 ",.01)

 ;;00009372501

 ;;9002226.02101,"1084,00009372501 ",.02)

 ;;00009372501

 ;;9002226.02101,"1084,00009372603 ",.01)

 ;;00009372603

 ;;9002226.02101,"1084,00009372603 ",.02)

 ;;00009372603

 ;;9002226.02101,"1084,00009372704 ",.01)

 ;;00009372704

 ;;9002226.02101,"1084,00009372704 ",.02)

 ;;00009372704

 ;;9002226.02101,"1084,00009372706 ",.01)

 ;;00009372706

 ;;9002226.02101,"1084,00009372706 ",.02)

 ;;00009372706

 ;;9002226.02101,"1084,00009372707 ",.01)

 ;;00009372707

 ;;9002226.02101,"1084,00009372707 ",.02)

 ;;00009372707

 ;;9002226.02101,"1084,00014997501 ",.01)

 ;;00014997501

 ;;9002226.02101,"1084,00014997501 ",.02)

 ;;00014997501

 ;;9002226.02101,"1084,00014997505 ",.01)

 ;;00014997505

 ;;9002226.02101,"1084,00014997505 ",.02)

 ;;00014997505

 ;;9002226.02101,"1084,00014997530 ",.01)

 ;;00014997530

 ;;9002226.02101,"1084,00014997530 ",.02)

 ;;00014997530

 ;;9002226.02101,"1084,00054014025 ",.01)

 ;;00054014025

 ;;9002226.02101,"1084,00054014025 ",.02)

 ;;00054014025

 ;;9002226.02101,"1084,00054014120 ",.01)

 ;;00054014120

 ;;9002226.02101,"1084,00054014120 ",.02)

 ;;00054014120

 ;;9002226.02101,"1084,00054014125 ",.01)

 ;;00054014125

 ;;9002226.02101,"1084,00054014125 ",.02)

 ;;00054014125

 ;;9002226.02101,"1084,00054014225 ",.01)

 ;;00054014225

 ;;9002226.02101,"1084,00054014225 ",.02)

 ;;00054014225

 ;;9002226.02101,"1084,00056071170 ",.01)

 ;;00056071170

 ;;9002226.02101,"1084,00056071170 ",.02)

 ;;00056071170

 ;;9002226.02101,"1084,00056071185 ",.01)

 ;;00056071185

 ;;9002226.02101,"1084,00056071185 ",.02)

 ;;00056071185

 ;;9002226.02101,"1084,00056071470 ",.01)

 ;;00056071470

 ;;9002226.02101,"1084,00056071470 ",.02)

 ;;00056071470

 ;;9002226.02101,"1084,00056071485 ",.01)

 ;;00056071485

 ;;9002226.02101,"1084,00056071485 ",.02)

 ;;00056071485

 ;;9002226.02101,"1084,00068320050 ",.01)

 ;;00068320050

 ;;9002226.02101,"1084,00068320050 ",.02)

 ;;00068320050

 ;;9002226.02101,"1084,00068320161 ",.01)

 ;;00068320161

 ;;9002226.02101,"1084,00068320161 ",.02)

 ;;00068320161

 ;;9002226.02101,"1084,00068320165 ",.01)

 ;;00068320165

 ;;9002226.02101,"1084,00068320165 ",.02)

 ;;00068320165

 ;;9002226.02101,"1084,00069087130 ",.01)

 ;;00069087130

 ;;9002226.02101,"1084,00069087130 ",.02)

 ;;00069087130

 ;;9002226.02101,"1084,00069503101 ",.01)

 ;;00069503101

BGPM5BEP  ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 2011;

 +1       ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106

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

 +2       ;;3755

 +3       ;;21,"67544012980 ")

 +4       ;;3756

 +5       ;;21,"67544012994 ")

 +6       ;;3757

 +7       ;;21,"67544016330 ")

 +8       ;;1527

 +9       ;;21,"67544016345 ")

 +10      ;;1528

 +11      ;;21,"67544016353 ")

 +12      ;;1529

 +13      ;;21,"67544016360 ")

 +14      ;;1530

 +15      ;;21,"67544016380 ")

 +16      ;;1531

 +17      ;;21,"67544016386 ")

 +18      ;;1532

 +19      ;;21,"67544030232 ")

 +20      ;;3758

 +21      ;;21,"67544030260 ")

 +22      ;;3759

 +23      ;;21,"67544030280 ")

 +24      ;;3760

 +25      ;;21,"67544036470 ")

 +26      ;;172

 +27      ;;21,"67544041770 ")

 +28      ;;173

 +29      ;;21,"67544042160 ")

 +30      ;;1535

 +31      ;;21,"67544042180 ")

 +32      ;;1536

 +33      ;;21,"67544042192 ")

 +34      ;;1537

 +35      ;;21,"67544042230 ")

 +36      ;;1538

 +37      ;;21,"67544042253 ")

 +38      ;;1539

 +39      ;;21,"67544042260 ")

 +40      ;;1540

 +41      ;;21,"67544042270 ")

 +42      ;;1541

 +43      ;;21,"67544042275 ")

 +44      ;;1542

 +45      ;;21,"67544042280 ")

 +46      ;;1543

 +47      ;;21,"67544042290 ")

 +48      ;;1544

 +49      ;;21,"67544042292 ")

 +50      ;;1545

 +51      ;;21,"67544042294 ")

 +52      ;;1546

 +53      ;;21,"67544042296 ")

 +54      ;;1547

 +55      ;;21,"67544042430 ")

 +56      ;;1548

 +57      ;;21,"67544042431 ")

 +58      ;;1549

 +59      ;;21,"67544042453 ")

 +60      ;;1550

 +61      ;;21,"67544042460 ")

 +62      ;;1551

 +63      ;;21,"67544042470 ")

 +64      ;;1552

 +65      ;;21,"67544042475 ")

 +66      ;;1553

 +67      ;;21,"67544042480 ")

 +68      ;;1554

 +69      ;;21,"67544042490 ")

 +70      ;;1555

 +71      ;;21,"67544042492 ")

 +72      ;;1556

 +73      ;;21,"67544042494 ")

 +74      ;;1557

 +75      ;;21,"67544042496 ")

 +76      ;;1558

 +77      ;;21,"67544042830 ")

 +78      ;;1559

 +79      ;;21,"67544042831 ")

 +80      ;;1560

 +81      ;;21,"67544042832 ")

 +82      ;;1561

 +83      ;;21,"67544042845 ")

 +84      ;;1562

 +85      ;;21,"67544042853 ")

 +86      ;;1563

 +87      ;;21,"67544042860 ")

 +88      ;;1564

 +89      ;;21,"67544042873 ")

 +90      ;;1565

 +91      ;;21,"67544042880 ")

 +92      ;;1566

 +93      ;;21,"67544042886 ")

 +94      ;;1567

 +95      ;;21,"67544048631 ")

 +96      ;;1568

 +97      ;;21,"67544048632 ")

 +98      ;;1569

 +99      ;;21,"67544048653 ")

 +100     ;;1570

 +101     ;;21,"67544051130 ")

 +102     ;;174

 +103     ;;21,"67544051170 ")

 +104     ;;175

 +105     ;;21,"67544051194 ")

 +106     ;;176

 +107     ;;21,"67544054882 ")

 +108     ;;3766

 +109     ;;21,"67544056631 ")

 +110     ;;3767

 +111     ;;21,"67544056632 ")

 +112     ;;3768

 +113     ;;21,"67544056653 ")

 +114     ;;3769

 +115     ;;21,"67544056660 ")

 +116     ;;3770

 +117     ;;21,"67544056670 ")

 +118     ;;3771

 +119     ;;21,"67544056680 ")

 +120     ;;3772

 +121     ;;21,"67544056690 ")

 +122     ;;3773

 +123     ;;21,"67544056692 ")

 +124     ;;3774

 +125     ;;21,"67544056694 ")

 +126     ;;3775

 +127     ;;21,"67544059630 ")

 +128     ;;1574

 +129     ;;21,"67544059631 ")

 +130     ;;1575

 +131     ;;21,"67544059632 ")

 +132     ;;1576

 +133     ;;21,"67544059653 ")

 +134     ;;1577

 +135     ;;21,"67544059660 ")

 +136     ;;1578

 +137     ;;21,"67544059670 ")

 +138     ;;1579

 +139     ;;21,"67544059675 ")

 +140     ;;1580

 +141     ;;21,"67544059680 ")

 +142     ;;1581

 +143     ;;21,"67544059690 ")

 +144     ;;1582

 +145     ;;21,"67544059692 ")

 +146     ;;1583

 +147     ;;21,"67544059694 ")

 +148     ;;1584

 +149     ;;21,"67544059696 ")

 +150     ;;1585

 +151     ;;21,"67544061353 ")

 +152     ;;3776

 +153     ;;21,"67544061360 ")

 +154     ;;3777

 +155     ;;21,"67544061370 ")

 +156     ;;3778

 +157     ;;21,"67544061380 ")

 +158     ;;3779

 +159     ;;21,"67544061390 ")

 +160     ;;3780

 +161     ;;21,"67544061392 ")

 +162     ;;3781

 +163     ;;21,"67544061394 ")

 +164     ;;3782

 +165     ;;21,"67544064332 ")

 +166     ;;3783

 +167     ;;21,"67544064360 ")

 +168     ;;3784

 +169     ;;21,"67544064380 ")

 +170     ;;3785

 +171     ;;21,"67544064392 ")

 +172     ;;3786

 +173     ;;21,"67544064394 ")

 +174     ;;3787

 +175     ;;21,"67544065353 ")

 +176     ;;3788

 +177     ;;21,"67544065360 ")

 +178     ;;3789

 +179     ;;21,"67544065370 ")

 +180     ;;3790

 +181     ;;21,"67544065380 ")

 +182     ;;3791

 +183     ;;21,"67544065390 ")

 +184     ;;3792

 +185     ;;21,"67544065392 ")

 +186     ;;3793

 +187     ;;21,"67544065394 ")

 +188     ;;3794

 +189     ;;21,"67544065398 ")

 +190     ;;3795

 +191     ;;21,"67544066141 ")

 +192     ;;3796

 +193     ;;21,"67544066181 ")

 +194     ;;3797

 +195     ;;21,"67544069031 ")

 +196     ;;3798

 +197     ;;21,"67544075153 ")

 +198     ;;3799

 +199     ;;21,"67544075160 ")

 +200     ;;3800

 +201     ;;21,"67544075180 ")

 +202     ;;3801

 +203     ;;21,"67544075645 ")

 +204     ;;3802

 +205     ;;21,"67544075660 ")

 +206     ;;3803

 +207     ;;21,"67544075680 ")

 +208     ;;3804

 +209     ;;21,"67544076432 ")

 +210     ;;3805

 +211     ;;21,"67544076460 ")

 +212     ;;3806

 +213     ;;21,"67544080860 ")

 +214     ;;3807

 +215     ;;21,"67544087532 ")

 +216     ;;3808

 +217     ;;21,"67544087560 ")

 +218     ;;3809

 +219     ;;21,"67544087580 ")

 +220     ;;3810

 +221     ;;21,"67544092732 ")

 +222     ;;3811

 +223     ;;21,"67544092760 ")

 +224     ;;3812

 +225     ;;21,"67544092780 ")

 +226     ;;3813

 +227     ;;21,"67651002300 ")

 +228     ;;3814

 +229     ;;21,"67651002301 ")

 +230     ;;3815

 +231     ;;21,"67651002400 ")

 +232     ;;3816

 +233     ;;21,"67651002401 ")

 +234     ;;3817

 +235     ;;21,"67651004803 ")

 +236     ;;3818

 +237     ;;21,"67651032005 ")

 +238     ;;3819

 +239     ;;21,"67651032100 ")

 +240     ;;3820

 +241     ;;21,"67651032200 ")

 +242     ;;3821

 +243     ;;21,"67651032207 ")

 +244     ;;3822

 +245     ;;21,"67767011501 ")

 +246     ;;1586

 +247     ;;21,"67787020301 ")

 +248     ;;3823

 +249     ;;21,"67787020401 ")

 +250     ;;3824

 +251     ;;21,"67787020501 ")

 +252     ;;3825

 +253     ;;21,"67877021701 ")

 +254     ;;1587

 +255     ;;21,"67877021705 ")

 +256     ;;1588

 +257     ;;21,"67877021801 ")

 +258     ;;1589

 +259     ;;21,"67877022101 ")

 +260     ;;1590

 +261     ;;21,"68071000830 ")

 +262     ;;3826

 +263     ;;21,"68071000860 ")

 +264     ;;3827

 +265     ;;21,"68071001730 ")

 +266     ;;3828

 +267     ;;21,"68071002805 ")

 +268     ;;177

 +269     ;;21,"68071002830 ")

 +270     ;;178

 +271     ;;21,"68071002860 ")

 +272     ;;179

 +273     ;;21,"68071009430 ")

 +274     ;;3832

 +275     ;;21,"68071010730 ")

 +276     ;;1594

 +277     ;;21,"68071016530 ")

 +278     ;;180

 +279     ;;21,"68071038830 ")

 +280     ;;3834

 +281     ;;21,"68071038860 ")

 +282     ;;3835

 +283     ;;21,"68071043412 ")

 +284     ;;1596

 +285     ;;21,"68071043506 ")

 +286     ;;3836

 +287     ;;21,"68071048830 ")

 +288     ;;1597

 +289     ;;21,"68071050190 ")

 +290     ;;1598

 +291     ;;21,"68071074190 ")

 +292     ;;3837

 +293     ;;21,"68084007201 ")

 +294     ;;1599

 +295     ;;21,"68084007211 ")

 +296     ;;1600

 +297     ;;21,"68084011101 ")

 +298     ;;3838

 +299     ;;21,"68084011111 ")

 +300     ;;3839

 +301     ;;21,"68084011201 ")

 +302     ;;3840

 +303     ;;21,"68084011211 ")

 +304     ;;3841

 +305     ;;21,"68084013601 ")

 +306     ;;181

 +307     ;;21,"68084013701 ")

 +308     ;;182

 +309     ;;21,"68084013801 ")

 +310     ;;183

 +311     ;;21,"68084029511 ")

 +312     ;;3845

 +313     ;;21,"68084029521 ")

 +314     ;;3846

 +315     ;;21,"68084032601 ")

 +316     ;;3847

 +317     ;;21,"68084032611 ")

 +318     ;;3848

 +319     ;;21,"68084032701 ")

 +320     ;;3849

 +321     ;;21,"68084032711 ")

 +322     ;;3850

 +323     ;;21,"68084045811 ")

 +324     ;;2021

 +325     ;;21,"68084045821 ")

 +326     ;;2022

 +327     ;;21,"68084045911 ")

 +328     ;;2023

 +329     ;;21,"68084045921 ")

 +330     ;;2024

 +331     ;;21,"68115015490 ")

 +332     ;;3851

 +333     ;;21,"68115016090 ")

 +334     ;;3852

 +335     ;;21,"68115016190 ")

 +336     ;;3853

 +337     ;;21,"68115023100 ")

 +338     ;;1604

 +339     ;;21,"68382002701 ")

 +340     ;;1605

 +341     ;;21,"68382002705 ")

 +342     ;;1606

 +343     ;;21,"68382002801 ")

 +344     ;;1607

 +345     ;;21,"68382002805 ")

 +346     ;;1608

 +347     ;;21,"68382002810 ")

 +348     ;;1609

 +349     ;;21,"68382002816 ")

 +350     ;;1610

 +351     ;;21,"68382002830 ")

 +352     ;;1611

 +353     ;;21,"68382002861 ")

 +354     ;;1612

 +355     ;;21,"68382002901 ")

 +356     ;;1613

 +357     ;;21,"68382002905 ")

 +358     ;;1614

 +359     ;;21,"68382002910 ")

 +360     ;;1615

 +361     ;;21,"68382002916 ")

 +362     ;;1616

 +363     ;;21,"68382002930 ")

 +364     ;;1617

 +365     ;;21,"68382002961 ")

 +366     ;;1618

 +367     ;;21,"68382003001 ")

 +368     ;;1619

 +369     ;;21,"68382003005 ")

 +370     ;;1620

 +371     ;;21,"68382003010 ")

 +372     ;;1621

 +373     ;;21,"68382003016 ")

 +374     ;;1622

 +375     ;;21,"68382003030 ")

 +376     ;;1623

 +377     ;;21,"68382003061 ")

 +378     ;;1624

 +379     ;;21,"68382003901 ")

 +380     ;;1625

 +381     ;;21,"68382003905 ")

 +382     ;;1626

 +383     ;;21,"68462015901 ")

 +384     ;;1627

 +385     ;;21,"68462015905 ")

 +386     ;;1628

 +387     ;;21,"68462015910 ")

 +388     ;;1629

 +389     ;;21,"68462015918 ")

 +390     ;;1630

 +391     ;;21,"68462015990 ")

 +392     ;;1631

 +393     ;;21,"68462016001 ")

 +394     ;;1632

 +395     ;;21,"68462016005 ")

 +396     ;;1633

 +397     ;;21,"68462016010 ")

 +398     ;;1634

 +399     ;;21,"68462016018 ")

 +400     ;;1635

 +401     ;;21,"68462016090 ")

 +402     ;;1636

 +403     ;;21,"68462016101 ")

 +404     ;;1637

 +405     ;;21,"68462016105 ")

 +406     ;;1638

 +407     ;;21,"68462016110 ")

 +408     ;;1639

 +409     ;;21,"68462016118 ")

 +410     ;;1640

 +411     ;;21,"68462016190 ")

 +412     ;;1641

 +413     ;;21,"68533001712 ")

 +414     ;;1642

 +415     ;;21,"68533001722 ")

 +416     ;;1643

 +417     ;;21,"68533001739 ")

 +418     ;;1644

 +419     ;;21,"68533003400 ")

 +420     ;;3854

 +421     ;;21,"68533003412 ")

 +422     ;;3855

 +423     ;;21,"68533003440 ")

 +424     ;;3856

 +425     ;;21,"68533003445 ")

 +426     ;;3857

 +427     ;;21,"68533003500 ")

 +428     ;;3858

 +429     ;;21,"68533003512 ")

 +430     ;;3859

 +431     ;;21,"68533003540 ")

 +432     ;;3860

 +433     ;;21,"68533003548 ")

 +434     ;;3861

 +435     ;;21,"68533003600 ")

 +436     ;;3862

 +437     ;;21,"68533003612 ")

 +438     ;;3863

 +439     ;;21,"68533003640 ")

 +440     ;;3864

 +441     ;;21,"68533003645 ")

 +442     ;;3865

 +443     ;;21,"68645011259 ")

 +444     ;;1645

 +445     ;;21,"68645012059 ")

 +446     ;;1646

 +447     ;;21,"68645015054 ")

 +448     ;;3866

 +449     ;;21,"68645015159 ")

 +450     ;;3867

 +451     ;;21,"68645021054 ")

 +452     ;;3868

 +453     ;;21,"68645021154 ")

 +454     ;;3869

 +455     ;;21,"68788014103 ")

 +456     ;;3870

 +457     ;;21,"68788014106 ")

 +458     ;;3871

 +459     ;;21,"68788014203 ")

 +460     ;;3872

 +461     ;;21,"68788014206 ")

 +462     ;;3873

 +463     ;;21,"68788039701 ")

 +464     ;;1647

 +465     ;;21,"68788039703 ")

 +466     ;;1648

 +467     ;;21,"68788039706 ")

 +468     ;;1649

 +469     ;;21,"68788039708 ")

 +470     ;;1650

 +471     ;;21,"68788039709 ")

 +472     ;;1651

 +473     ;;21,"68788043501 ")

 +474     ;;1652

 +475     ;;21,"68788043503 ")

 +476     ;;1653

 +477     ;;21,"68788043506 ")

 +478     ;;1654

 +479     ;;21,"68788043508 ")

 +480     ;;1655

 +481     ;;21,"68788043509 ")

 +482     ;;1656

 +483     ;;21,"68788046003 ")

 +484     ;;3874

 +485     ;;21,"68788046006 ")

 +486     ;;3875

 +487     ;;21,"68788046009 ")

 +488     ;;3876

 +489     ;;21,"68788046103 ")

 +490     ;;3877

 +491     ;;21,"68788046106 ")

 +492     ;;3878

 +493     ;;21,"68788046703 ")

 +494     ;;1657

 +495     ;;21,"68788046706 ")

 +496     ;;1658

 +497     ;;21,"68788047401 ")

 +498     ;;1659

 +499     ;;21,"68788047403 ")

 +500     ;;1660

 +501     ;;21,"68788047406 ")

 +502     ;;1661

 +503     ;;21,"68788047408 ")

 +504     ;;1662

 +505     ;;21,"68788047409 ")

 +506     ;;1663

 +507     ;;21,"68788096903 ")

 +508     ;;184

 +509     ;;21,"68788096906 ")

 +510     ;;185

 +511     ;;21,"68788119100 ")

 +512     ;;3881

 +513     ;;21,"68788119103 ")

 +514     ;;3882

 +515     ;;21,"68788119106 ")

 +516     ;;3883

 +517     ;;21,"68788834403 ")

 +518     ;;3884

 +519     ;;21,"68788834406 ")

 +520     ;;3885

 +521     ;;21,"71114022100 ")

 +522     ;;3886

 +523     ;;21,"71114022101 ")

 +524     ;;3887

 +525     ;;21,"71114022105 ")

 +526     ;;3888

 +527     ;;21,"71114022200 ")

 +528     ;;3889

 +529     ;;21,"71114022201 ")

 +530     ;;3890

 +531     ;;21,"71114022205 ")

 +532     ;;3891

 +533     ;;9002226,1084,.01)

 +534     ;;BGPMU DIAB NDCS INDICATIVE ALL

 +535     ;;9002226,1084,.02)

 +536     ;;All meds indicative of diab

 +537     ;;9002226,1084,.04)

 +538     ;;@

 +539     ;;9002226,1084,.06)

 +540     ;;@

 +541     ;;9002226,1084,.08)

 +542     ;;@

 +543     ;;9002226,1084,.09)

 +544     ;;@

 +545     ;;9002226,1084,.11)

 +546     ;;@

 +547     ;;9002226,1084,.12)

 +548     ;;@

 +549     ;;9002226,1084,.13)

 +550     ;;@

 +551     ;;9002226,1084,.14)

 +552     ;;@

 +553     ;;9002226,1084,.15)

 +554     ;;50.67

 +555     ;;9002226,1084,.16)

 +556     ;;@

 +557     ;;9002226,1084,.17)

 +558     ;;@

 +559     ;;9002226,1084,3101)

 +560     ;;@

 +561     ;;9002226.02101,"1084,00009372501 ",.01)

 +562     ;;00009372501

 +563     ;;9002226.02101,"1084,00009372501 ",.02)

 +564     ;;00009372501

 +565     ;;9002226.02101,"1084,00009372603 ",.01)

 +566     ;;00009372603

 +567     ;;9002226.02101,"1084,00009372603 ",.02)

 +568     ;;00009372603

 +569     ;;9002226.02101,"1084,00009372704 ",.01)

 +570     ;;00009372704

 +571     ;;9002226.02101,"1084,00009372704 ",.02)

 +572     ;;00009372704

 +573     ;;9002226.02101,"1084,00009372706 ",.01)

 +574     ;;00009372706

 +575     ;;9002226.02101,"1084,00009372706 ",.02)

 +576     ;;00009372706

 +577     ;;9002226.02101,"1084,00009372707 ",.01)

 +578     ;;00009372707

 +579     ;;9002226.02101,"1084,00009372707 ",.02)

 +580     ;;00009372707

 +581     ;;9002226.02101,"1084,00014997501 ",.01)

 +582     ;;00014997501

 +583     ;;9002226.02101,"1084,00014997501 ",.02)

 +584     ;;00014997501

 +585     ;;9002226.02101,"1084,00014997505 ",.01)

 +586     ;;00014997505

 +587     ;;9002226.02101,"1084,00014997505 ",.02)

 +588     ;;00014997505

 +589     ;;9002226.02101,"1084,00014997530 ",.01)

 +590     ;;00014997530

 +591     ;;9002226.02101,"1084,00014997530 ",.02)

 +592     ;;00014997530

 +593     ;;9002226.02101,"1084,00054014025 ",.01)

 +594     ;;00054014025

 +595     ;;9002226.02101,"1084,00054014025 ",.02)

 +596     ;;00054014025

 +597     ;;9002226.02101,"1084,00054014120 ",.01)

 +598     ;;00054014120

 +599     ;;9002226.02101,"1084,00054014120 ",.02)

 +600     ;;00054014120

 +601     ;;9002226.02101,"1084,00054014125 ",.01)

 +602     ;;00054014125

 +603     ;;9002226.02101,"1084,00054014125 ",.02)

 +604     ;;00054014125

 +605     ;;9002226.02101,"1084,00054014225 ",.01)

 +606     ;;00054014225

 +607     ;;9002226.02101,"1084,00054014225 ",.02)

 +608     ;;00054014225

 +609     ;;9002226.02101,"1084,00056071170 ",.01)

 +610     ;;00056071170

 +611     ;;9002226.02101,"1084,00056071170 ",.02)

 +612     ;;00056071170

 +613     ;;9002226.02101,"1084,00056071185 ",.01)

 +614     ;;00056071185

 +615     ;;9002226.02101,"1084,00056071185 ",.02)

 +616     ;;00056071185

 +617     ;;9002226.02101,"1084,00056071470 ",.01)

 +618     ;;00056071470

 +619     ;;9002226.02101,"1084,00056071470 ",.02)

 +620     ;;00056071470

 +621     ;;9002226.02101,"1084,00056071485 ",.01)

 +622     ;;00056071485

 +623     ;;9002226.02101,"1084,00056071485 ",.02)

 +624     ;;00056071485

 +625     ;;9002226.02101,"1084,00068320050 ",.01)

 +626     ;;00068320050

 +627     ;;9002226.02101,"1084,00068320050 ",.02)

 +628     ;;00068320050

 +629     ;;9002226.02101,"1084,00068320161 ",.01)

 +630     ;;00068320161

 +631     ;;9002226.02101,"1084,00068320161 ",.02)

 +632     ;;00068320161

 +633     ;;9002226.02101,"1084,00068320165 ",.01)

 +634     ;;00068320165

 +635     ;;9002226.02101,"1084,00068320165 ",.02)

 +636     ;;00068320165

 +637     ;;9002226.02101,"1084,00069087130 ",.01)

 +638     ;;00069087130

 +639     ;;9002226.02101,"1084,00069087130 ",.02)

 +640     ;;00069087130

 +641     ;;9002226.02101,"1084,00069503101 ",.01)

 +642     ;;00069503101

BGPM5BEP.m