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