BGP72B6 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
;
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,"67544-0855-60 ")
;;1690
;;21,"67544-0856-15 ")
;;1691
;;21,"67544-0856-45 ")
;;1692
;;21,"67544-0857-15 ")
;;1693
;;21,"67544-0857-45 ")
;;1694
;;21,"67544-0857-60 ")
;;1695
;;21,"68001-0213-00 ")
;;1696
;;21,"68001-0213-06 ")
;;1697
;;21,"68001-0213-08 ")
;;1698
;;21,"68001-0214-00 ")
;;1699
;;21,"68001-0214-06 ")
;;1700
;;21,"68001-0214-08 ")
;;1701
;;21,"68001-0224-00 ")
;;1702
;;21,"68001-0224-06 ")
;;1703
;;21,"68001-0224-08 ")
;;1704
;;21,"68071-0154-30 ")
;;1705
;;21,"68071-0263-30 ")
;;1706
;;21,"68071-0310-30 ")
;;1707
;;21,"68071-0399-30 ")
;;1708
;;21,"68071-0433-30 ")
;;1709
;;21,"68071-0699-30 ")
;;1710
;;21,"68071-0716-30 ")
;;1711
;;21,"68071-0784-30 ")
;;1712
;;21,"68071-0914-30 ")
;;1713
;;21,"68071-0915-30 ")
;;1714
;;21,"68071-0916-30 ")
;;1715
;;21,"68071-1711-09 ")
;;1716
;;21,"68084-0097-01 ")
;;1717
;;21,"68084-0097-11 ")
;;1718
;;21,"68084-0098-01 ")
;;1719
;;21,"68084-0098-11 ")
;;1720
;;21,"68084-0099-01 ")
;;1721
;;21,"68084-0099-11 ")
;;1722
;;21,"68084-0163-01 ")
;;1723
;;21,"68084-0163-11 ")
;;1724
;;21,"68084-0500-01 ")
;;1725
;;21,"68084-0500-11 ")
;;1726
;;21,"68084-0501-01 ")
;;1727
;;21,"68084-0501-11 ")
;;1728
;;21,"68084-0502-01 ")
;;1729
;;21,"68084-0502-11 ")
;;1730
;;21,"68084-0511-01 ")
;;1731
;;21,"68084-0511-11 ")
;;1732
;;21,"68084-0512-01 ")
;;1733
;;21,"68084-0512-11 ")
;;1734
;;21,"68084-0513-01 ")
;;1735
;;21,"68084-0513-11 ")
;;1736
;;21,"68084-0514-01 ")
;;1737
;;21,"68084-0514-11 ")
;;1738
;;21,"68084-0558-01 ")
;;1739
;;21,"68084-0558-11 ")
;;1740
;;21,"68084-0559-01 ")
;;1741
;;21,"68084-0559-11 ")
;;1742
;;21,"68084-0560-01 ")
;;1743
;;21,"68084-0560-11 ")
;;1744
;;21,"68084-0564-01 ")
;;1745
;;21,"68084-0564-11 ")
;;1746
;;21,"68084-0565-01 ")
;;1747
;;21,"68084-0565-11 ")
;;1748
;;21,"68084-0589-01 ")
;;1749
;;21,"68084-0589-11 ")
;;1750
;;21,"68084-0590-25 ")
;;1751
;;21,"68084-0590-95 ")
;;1752
;;21,"68084-0746-25 ")
;;1753
;;21,"68084-0746-95 ")
;;1754
;;21,"68180-0464-03 ")
;;1755
;;21,"68180-0464-09 ")
;;1756
;;21,"68180-0465-03 ")
;;1757
;;21,"68180-0465-06 ")
;;1758
;;21,"68180-0465-09 ")
;;1759
;;21,"68180-0467-01 ")
;;1760
;;21,"68180-0467-03 ")
;;1761
;;21,"68180-0467-07 ")
;;1762
;;21,"68180-0468-01 ")
;;1763
;;21,"68180-0468-03 ")
;;1764
;;21,"68180-0468-05 ")
;;1765
;;21,"68180-0468-07 ")
;;1766
;;21,"68180-0469-01 ")
;;1767
;;21,"68180-0469-03 ")
;;1768
;;21,"68180-0469-05 ")
;;1769
;;21,"68180-0469-07 ")
;;1770
;;21,"68180-0478-01 ")
;;1771
;;21,"68180-0478-02 ")
;;1772
;;21,"68180-0478-03 ")
;;1773
;;21,"68180-0479-01 ")
;;1774
;;21,"68180-0479-02 ")
;;1775
;;21,"68180-0479-03 ")
;;1776
;;21,"68180-0480-01 ")
;;1777
;;21,"68180-0480-02 ")
;;1778
;;21,"68180-0480-03 ")
;;1779
;;21,"68180-0481-01 ")
;;1780
;;21,"68180-0481-02 ")
;;1781
;;21,"68180-0481-03 ")
;;1782
;;21,"68180-0482-06 ")
;;1783
;;21,"68180-0482-09 ")
;;1784
;;21,"68180-0485-02 ")
;;1785
;;21,"68180-0485-09 ")
;;1786
;;21,"68180-0486-02 ")
;;1787
;;21,"68180-0486-09 ")
;;1788
;;21,"68180-0487-02 ")
;;1789
;;21,"68180-0487-09 ")
;;1790
;;21,"68180-0488-02 ")
;;1791
;;21,"68180-0488-09 ")
;;1792
;;21,"68258-6041-03 ")
;;1793
;;21,"68258-6042-03 ")
;;1794
;;21,"68258-6043-03 ")
;;1795
;;21,"68258-6043-09 ")
;;1796
;;21,"68258-6044-03 ")
;;1797
;;21,"68258-6044-09 ")
;;1798
;;21,"68258-6992-09 ")
;;1799
;;21,"68258-6993-09 ")
;;1800
;;21,"68382-0065-05 ")
;;1801
;;21,"68382-0065-06 ")
;;1802
;;21,"68382-0065-10 ")
;;1803
;;21,"68382-0065-14 ")
;;1804
;;21,"68382-0065-16 ")
;;1805
;;21,"68382-0066-05 ")
;;1806
;;21,"68382-0066-06 ")
;;1807
;;21,"68382-0066-10 ")
;;1808
;;21,"68382-0066-14 ")
;;1809
;;21,"68382-0066-16 ")
;;1810
;;21,"68382-0066-24 ")
;;1811
;;21,"68382-0067-05 ")
;;1812
;;21,"68382-0067-06 ")
;;1813
;;21,"68382-0067-10 ")
;;1814
;;21,"68382-0067-14 ")
;;1815
;;21,"68382-0067-16 ")
;;1816
;;21,"68382-0067-24 ")
;;1817
;;21,"68382-0068-05 ")
;;1818
;;21,"68382-0068-06 ")
;;1819
;;21,"68382-0068-10 ")
;;1820
;;21,"68382-0068-14 ")
;;1821
;;21,"68382-0068-16 ")
;;1822
;;21,"68382-0068-40 ")
;;1823
;;21,"68382-0069-05 ")
;;1824
;;21,"68382-0069-06 ")
;;1825
;;21,"68382-0069-10 ")
;;1826
;;21,"68382-0069-14 ")
;;1827
;;21,"68382-0069-16 ")
;;1828
;;21,"68382-0070-05 ")
;;1829
;;21,"68382-0070-16 ")
;;1830
;;21,"68382-0071-05 ")
;;1831
;;21,"68382-0071-16 ")
;;1832
;;21,"68382-0072-05 ")
;;1833
;;21,"68382-0072-16 ")
;;1834
;;21,"68382-0073-05 ")
;;1835
;;21,"68382-0073-16 ")
;;1836
;;21,"68462-0195-05 ")
;;1837
;;21,"68462-0195-90 ")
;;1838
;;21,"68462-0196-05 ")
;;1839
;;21,"68462-0196-90 ")
;;1840
;;21,"68462-0197-05 ")
;;1841
;;21,"68462-0197-90 ")
;;1842
;;21,"68462-0198-05 ")
;;1843
;;21,"68462-0198-90 ")
;;1844
;;21,"68645-0261-54 ")
;;1845
;;21,"68645-0262-54 ")
;;1846
;;21,"68645-0263-54 ")
;;1847
;;21,"68645-0402-70 ")
;;1848
;;21,"68645-0403-70 ")
;;1849
;;21,"68645-0417-54 ")
;;1850
;;21,"68645-0418-54 ")
;;1851
;;21,"68645-0458-70 ")
;;1852
;;21,"68645-0459-70 ")
;;1853
;;21,"68645-0460-54 ")
;;1854
;;21,"68645-0461-54 ")
;;1855
;;21,"68645-0470-54 ")
;;1856
;;21,"68645-0471-54 ")
;;1857
;;21,"68645-0472-54 ")
;;1858
;;21,"68645-0480-70 ")
;;1859
;;21,"68645-0481-70 ")
;;1860
;;21,"68645-0482-54 ")
;;1861
;;21,"68645-0483-54 ")
;;1862
;;21,"68645-0495-54 ")
;;1863
;;21,"68645-0527-54 ")
;;1864
;;21,"68788-0074-03 ")
;;1865
;;21,"68788-8991-01 ")
;;1866
;;21,"68788-8991-03 ")
;;1867
;;21,"68788-8991-06 ")
;;1868
;;21,"68788-8991-09 ")
;;1869
;;21,"68788-9182-03 ")
;;1870
;;21,"68788-9556-03 ")
;;1871
;;21,"68788-9668-03 ")
;;1872
;;21,"68788-9683-03 ")
;;1873
;;21,"68788-9835-03 ")
;;1874
;;21,"68788-9836-03 ")
;;1875
;;21,"68788-9868-03 ")
;;1876
;;21,"68788-9869-03 ")
;;1877
;;21,"69817-0301-01 ")
;;1878
;;9002226,1224,.01)
;;BGP PQA STATIN NDC
;;9002226,1224,.02)
;;@
;;9002226,1224,.04)
;;n
;;9002226,1224,.06)
;;@
;;9002226,1224,.08)
;;@
;;9002226,1224,.09)
;;3160811
;;9002226,1224,.11)
;;@
;;9002226,1224,.12)
;;@
;;9002226,1224,.13)
;;1
;;9002226,1224,.14)
;;@
;;9002226,1224,.15)
;;50.67
;;9002226,1224,.16)
;;@
;;9002226,1224,.17)
;;@
;;9002226,1224,.22)
;;1
;;9002226,1224,3101)
;;@
;;9002226.02101,"1224,00002-4770-90 ",.01)
;;00002-4770-90
;;9002226.02101,"1224,00002-4770-90 ",.02)
;;00002-4770-90
;;9002226.02101,"1224,00002-4771-90 ",.01)
;;00002-4771-90
;;9002226.02101,"1224,00002-4771-90 ",.02)
;;00002-4771-90
;;9002226.02101,"1224,00002-4772-90 ",.01)
;;00002-4772-90
;;9002226.02101,"1224,00002-4772-90 ",.02)
;;00002-4772-90
;;9002226.02101,"1224,00003-5178-05 ",.01)
;;00003-5178-05
;;9002226.02101,"1224,00003-5178-05 ",.02)
;;00003-5178-05
;;9002226.02101,"1224,00003-5194-10 ",.01)
;;00003-5194-10
;;9002226.02101,"1224,00003-5194-10 ",.02)
;;00003-5194-10
;;9002226.02101,"1224,00003-5195-10 ",.01)
;;00003-5195-10
;;9002226.02101,"1224,00003-5195-10 ",.02)
;;00003-5195-10
;;9002226.02101,"1224,00006-0543-31 ",.01)
;;00006-0543-31
;;9002226.02101,"1224,00006-0543-31 ",.02)
;;00006-0543-31
;;9002226.02101,"1224,00006-0543-54 ",.01)
;;00006-0543-54
;;9002226.02101,"1224,00006-0543-54 ",.02)
;;00006-0543-54
;;9002226.02101,"1224,00006-0726-31 ",.01)
;;00006-0726-31
;;9002226.02101,"1224,00006-0726-31 ",.02)
;;00006-0726-31
;;9002226.02101,"1224,00006-0731-61 ",.01)
;;00006-0731-61
;;9002226.02101,"1224,00006-0731-61 ",.02)
;;00006-0731-61
;;9002226.02101,"1224,00006-0732-61 ",.01)
;;00006-0732-61
;;9002226.02101,"1224,00006-0732-61 ",.02)
;;00006-0732-61
;;9002226.02101,"1224,00006-0735-31 ",.01)
;;00006-0735-31
;;9002226.02101,"1224,00006-0735-31 ",.02)
;;00006-0735-31
;;9002226.02101,"1224,00006-0735-54 ",.01)
;;00006-0735-54
;;9002226.02101,"1224,00006-0735-54 ",.02)
;;00006-0735-54
;;9002226.02101,"1224,00006-0740-31 ",.01)
;;00006-0740-31
;;9002226.02101,"1224,00006-0740-31 ",.02)
;;00006-0740-31
;;9002226.02101,"1224,00006-0740-54 ",.01)
;;00006-0740-54
;;9002226.02101,"1224,00006-0740-54 ",.02)
;;00006-0740-54
;;9002226.02101,"1224,00006-0749-31 ",.01)
;;00006-0749-31
;;9002226.02101,"1224,00006-0749-31 ",.02)
;;00006-0749-31
;;9002226.02101,"1224,00006-0749-54 ",.01)
;;00006-0749-54
;;9002226.02101,"1224,00006-0749-54 ",.02)
;;00006-0749-54
;;9002226.02101,"1224,00006-0753-31 ",.01)
;;00006-0753-31
;;9002226.02101,"1224,00006-0753-31 ",.02)
;;00006-0753-31
;;9002226.02101,"1224,00006-0753-54 ",.01)
;;00006-0753-54
;;9002226.02101,"1224,00006-0753-54 ",.02)
;;00006-0753-54
;;9002226.02101,"1224,00006-0753-82 ",.01)
;;00006-0753-82
;;9002226.02101,"1224,00006-0753-82 ",.02)
;;00006-0753-82
;;9002226.02101,"1224,00006-0757-31 ",.01)
;;00006-0757-31
;;9002226.02101,"1224,00006-0757-31 ",.02)
;;00006-0757-31
;;9002226.02101,"1224,00006-0757-54 ",.01)
;;00006-0757-54
;;9002226.02101,"1224,00006-0757-54 ",.02)
;;00006-0757-54
;;9002226.02101,"1224,00006-0757-82 ",.01)
;;00006-0757-82
;;9002226.02101,"1224,00006-0757-82 ",.02)
;;00006-0757-82
;;9002226.02101,"1224,00006-0773-31 ",.01)
;;00006-0773-31
;;9002226.02101,"1224,00006-0773-31 ",.02)
;;00006-0773-31
;;9002226.02101,"1224,00006-0773-54 ",.01)
;;00006-0773-54
;;9002226.02101,"1224,00006-0773-54 ",.02)
;;00006-0773-54
;;9002226.02101,"1224,00006-0773-82 ",.01)
;;00006-0773-82
;;9002226.02101,"1224,00006-0773-82 ",.02)
;;00006-0773-82
;;9002226.02101,"1224,00069-2150-30 ",.01)
;;00069-2150-30
;;9002226.02101,"1224,00069-2150-30 ",.02)
;;00069-2150-30
;;9002226.02101,"1224,00069-2160-30 ",.01)
;;00069-2160-30
;;9002226.02101,"1224,00069-2160-30 ",.02)
;;00069-2160-30
;;9002226.02101,"1224,00069-2170-30 ",.01)
;;00069-2170-30
;;9002226.02101,"1224,00069-2170-30 ",.02)
;;00069-2170-30
;;9002226.02101,"1224,00069-2180-30 ",.01)
;;00069-2180-30
;;9002226.02101,"1224,00069-2180-30 ",.02)
;;00069-2180-30
;;9002226.02101,"1224,00069-2190-30 ",.01)
;;00069-2190-30
;;9002226.02101,"1224,00069-2190-30 ",.02)
;;00069-2190-30
;;9002226.02101,"1224,00069-2250-30 ",.01)
;;00069-2250-30
;;9002226.02101,"1224,00069-2250-30 ",.02)
;;00069-2250-30
;;9002226.02101,"1224,00069-2260-30 ",.01)
;;00069-2260-30
;;9002226.02101,"1224,00069-2260-30 ",.02)
;;00069-2260-30
;;9002226.02101,"1224,00069-2270-30 ",.01)
;;00069-2270-30
;;9002226.02101,"1224,00069-2270-30 ",.02)
;;00069-2270-30
;;9002226.02101,"1224,00069-2960-30 ",.01)
;;00069-2960-30
;;9002226.02101,"1224,00069-2960-30 ",.02)
;;00069-2960-30
;;9002226.02101,"1224,00069-2970-30 ",.01)
;;00069-2970-30
;;9002226.02101,"1224,00069-2970-30 ",.02)
;;00069-2970-30
;;9002226.02101,"1224,00069-2980-30 ",.01)
;;00069-2980-30
;;9002226.02101,"1224,00069-2980-30 ",.02)
;;00069-2980-30
BGP72B6 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
+1 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
+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,"67544-0855-60 ")
+2 ;;1690
+3 ;;21,"67544-0856-15 ")
+4 ;;1691
+5 ;;21,"67544-0856-45 ")
+6 ;;1692
+7 ;;21,"67544-0857-15 ")
+8 ;;1693
+9 ;;21,"67544-0857-45 ")
+10 ;;1694
+11 ;;21,"67544-0857-60 ")
+12 ;;1695
+13 ;;21,"68001-0213-00 ")
+14 ;;1696
+15 ;;21,"68001-0213-06 ")
+16 ;;1697
+17 ;;21,"68001-0213-08 ")
+18 ;;1698
+19 ;;21,"68001-0214-00 ")
+20 ;;1699
+21 ;;21,"68001-0214-06 ")
+22 ;;1700
+23 ;;21,"68001-0214-08 ")
+24 ;;1701
+25 ;;21,"68001-0224-00 ")
+26 ;;1702
+27 ;;21,"68001-0224-06 ")
+28 ;;1703
+29 ;;21,"68001-0224-08 ")
+30 ;;1704
+31 ;;21,"68071-0154-30 ")
+32 ;;1705
+33 ;;21,"68071-0263-30 ")
+34 ;;1706
+35 ;;21,"68071-0310-30 ")
+36 ;;1707
+37 ;;21,"68071-0399-30 ")
+38 ;;1708
+39 ;;21,"68071-0433-30 ")
+40 ;;1709
+41 ;;21,"68071-0699-30 ")
+42 ;;1710
+43 ;;21,"68071-0716-30 ")
+44 ;;1711
+45 ;;21,"68071-0784-30 ")
+46 ;;1712
+47 ;;21,"68071-0914-30 ")
+48 ;;1713
+49 ;;21,"68071-0915-30 ")
+50 ;;1714
+51 ;;21,"68071-0916-30 ")
+52 ;;1715
+53 ;;21,"68071-1711-09 ")
+54 ;;1716
+55 ;;21,"68084-0097-01 ")
+56 ;;1717
+57 ;;21,"68084-0097-11 ")
+58 ;;1718
+59 ;;21,"68084-0098-01 ")
+60 ;;1719
+61 ;;21,"68084-0098-11 ")
+62 ;;1720
+63 ;;21,"68084-0099-01 ")
+64 ;;1721
+65 ;;21,"68084-0099-11 ")
+66 ;;1722
+67 ;;21,"68084-0163-01 ")
+68 ;;1723
+69 ;;21,"68084-0163-11 ")
+70 ;;1724
+71 ;;21,"68084-0500-01 ")
+72 ;;1725
+73 ;;21,"68084-0500-11 ")
+74 ;;1726
+75 ;;21,"68084-0501-01 ")
+76 ;;1727
+77 ;;21,"68084-0501-11 ")
+78 ;;1728
+79 ;;21,"68084-0502-01 ")
+80 ;;1729
+81 ;;21,"68084-0502-11 ")
+82 ;;1730
+83 ;;21,"68084-0511-01 ")
+84 ;;1731
+85 ;;21,"68084-0511-11 ")
+86 ;;1732
+87 ;;21,"68084-0512-01 ")
+88 ;;1733
+89 ;;21,"68084-0512-11 ")
+90 ;;1734
+91 ;;21,"68084-0513-01 ")
+92 ;;1735
+93 ;;21,"68084-0513-11 ")
+94 ;;1736
+95 ;;21,"68084-0514-01 ")
+96 ;;1737
+97 ;;21,"68084-0514-11 ")
+98 ;;1738
+99 ;;21,"68084-0558-01 ")
+100 ;;1739
+101 ;;21,"68084-0558-11 ")
+102 ;;1740
+103 ;;21,"68084-0559-01 ")
+104 ;;1741
+105 ;;21,"68084-0559-11 ")
+106 ;;1742
+107 ;;21,"68084-0560-01 ")
+108 ;;1743
+109 ;;21,"68084-0560-11 ")
+110 ;;1744
+111 ;;21,"68084-0564-01 ")
+112 ;;1745
+113 ;;21,"68084-0564-11 ")
+114 ;;1746
+115 ;;21,"68084-0565-01 ")
+116 ;;1747
+117 ;;21,"68084-0565-11 ")
+118 ;;1748
+119 ;;21,"68084-0589-01 ")
+120 ;;1749
+121 ;;21,"68084-0589-11 ")
+122 ;;1750
+123 ;;21,"68084-0590-25 ")
+124 ;;1751
+125 ;;21,"68084-0590-95 ")
+126 ;;1752
+127 ;;21,"68084-0746-25 ")
+128 ;;1753
+129 ;;21,"68084-0746-95 ")
+130 ;;1754
+131 ;;21,"68180-0464-03 ")
+132 ;;1755
+133 ;;21,"68180-0464-09 ")
+134 ;;1756
+135 ;;21,"68180-0465-03 ")
+136 ;;1757
+137 ;;21,"68180-0465-06 ")
+138 ;;1758
+139 ;;21,"68180-0465-09 ")
+140 ;;1759
+141 ;;21,"68180-0467-01 ")
+142 ;;1760
+143 ;;21,"68180-0467-03 ")
+144 ;;1761
+145 ;;21,"68180-0467-07 ")
+146 ;;1762
+147 ;;21,"68180-0468-01 ")
+148 ;;1763
+149 ;;21,"68180-0468-03 ")
+150 ;;1764
+151 ;;21,"68180-0468-05 ")
+152 ;;1765
+153 ;;21,"68180-0468-07 ")
+154 ;;1766
+155 ;;21,"68180-0469-01 ")
+156 ;;1767
+157 ;;21,"68180-0469-03 ")
+158 ;;1768
+159 ;;21,"68180-0469-05 ")
+160 ;;1769
+161 ;;21,"68180-0469-07 ")
+162 ;;1770
+163 ;;21,"68180-0478-01 ")
+164 ;;1771
+165 ;;21,"68180-0478-02 ")
+166 ;;1772
+167 ;;21,"68180-0478-03 ")
+168 ;;1773
+169 ;;21,"68180-0479-01 ")
+170 ;;1774
+171 ;;21,"68180-0479-02 ")
+172 ;;1775
+173 ;;21,"68180-0479-03 ")
+174 ;;1776
+175 ;;21,"68180-0480-01 ")
+176 ;;1777
+177 ;;21,"68180-0480-02 ")
+178 ;;1778
+179 ;;21,"68180-0480-03 ")
+180 ;;1779
+181 ;;21,"68180-0481-01 ")
+182 ;;1780
+183 ;;21,"68180-0481-02 ")
+184 ;;1781
+185 ;;21,"68180-0481-03 ")
+186 ;;1782
+187 ;;21,"68180-0482-06 ")
+188 ;;1783
+189 ;;21,"68180-0482-09 ")
+190 ;;1784
+191 ;;21,"68180-0485-02 ")
+192 ;;1785
+193 ;;21,"68180-0485-09 ")
+194 ;;1786
+195 ;;21,"68180-0486-02 ")
+196 ;;1787
+197 ;;21,"68180-0486-09 ")
+198 ;;1788
+199 ;;21,"68180-0487-02 ")
+200 ;;1789
+201 ;;21,"68180-0487-09 ")
+202 ;;1790
+203 ;;21,"68180-0488-02 ")
+204 ;;1791
+205 ;;21,"68180-0488-09 ")
+206 ;;1792
+207 ;;21,"68258-6041-03 ")
+208 ;;1793
+209 ;;21,"68258-6042-03 ")
+210 ;;1794
+211 ;;21,"68258-6043-03 ")
+212 ;;1795
+213 ;;21,"68258-6043-09 ")
+214 ;;1796
+215 ;;21,"68258-6044-03 ")
+216 ;;1797
+217 ;;21,"68258-6044-09 ")
+218 ;;1798
+219 ;;21,"68258-6992-09 ")
+220 ;;1799
+221 ;;21,"68258-6993-09 ")
+222 ;;1800
+223 ;;21,"68382-0065-05 ")
+224 ;;1801
+225 ;;21,"68382-0065-06 ")
+226 ;;1802
+227 ;;21,"68382-0065-10 ")
+228 ;;1803
+229 ;;21,"68382-0065-14 ")
+230 ;;1804
+231 ;;21,"68382-0065-16 ")
+232 ;;1805
+233 ;;21,"68382-0066-05 ")
+234 ;;1806
+235 ;;21,"68382-0066-06 ")
+236 ;;1807
+237 ;;21,"68382-0066-10 ")
+238 ;;1808
+239 ;;21,"68382-0066-14 ")
+240 ;;1809
+241 ;;21,"68382-0066-16 ")
+242 ;;1810
+243 ;;21,"68382-0066-24 ")
+244 ;;1811
+245 ;;21,"68382-0067-05 ")
+246 ;;1812
+247 ;;21,"68382-0067-06 ")
+248 ;;1813
+249 ;;21,"68382-0067-10 ")
+250 ;;1814
+251 ;;21,"68382-0067-14 ")
+252 ;;1815
+253 ;;21,"68382-0067-16 ")
+254 ;;1816
+255 ;;21,"68382-0067-24 ")
+256 ;;1817
+257 ;;21,"68382-0068-05 ")
+258 ;;1818
+259 ;;21,"68382-0068-06 ")
+260 ;;1819
+261 ;;21,"68382-0068-10 ")
+262 ;;1820
+263 ;;21,"68382-0068-14 ")
+264 ;;1821
+265 ;;21,"68382-0068-16 ")
+266 ;;1822
+267 ;;21,"68382-0068-40 ")
+268 ;;1823
+269 ;;21,"68382-0069-05 ")
+270 ;;1824
+271 ;;21,"68382-0069-06 ")
+272 ;;1825
+273 ;;21,"68382-0069-10 ")
+274 ;;1826
+275 ;;21,"68382-0069-14 ")
+276 ;;1827
+277 ;;21,"68382-0069-16 ")
+278 ;;1828
+279 ;;21,"68382-0070-05 ")
+280 ;;1829
+281 ;;21,"68382-0070-16 ")
+282 ;;1830
+283 ;;21,"68382-0071-05 ")
+284 ;;1831
+285 ;;21,"68382-0071-16 ")
+286 ;;1832
+287 ;;21,"68382-0072-05 ")
+288 ;;1833
+289 ;;21,"68382-0072-16 ")
+290 ;;1834
+291 ;;21,"68382-0073-05 ")
+292 ;;1835
+293 ;;21,"68382-0073-16 ")
+294 ;;1836
+295 ;;21,"68462-0195-05 ")
+296 ;;1837
+297 ;;21,"68462-0195-90 ")
+298 ;;1838
+299 ;;21,"68462-0196-05 ")
+300 ;;1839
+301 ;;21,"68462-0196-90 ")
+302 ;;1840
+303 ;;21,"68462-0197-05 ")
+304 ;;1841
+305 ;;21,"68462-0197-90 ")
+306 ;;1842
+307 ;;21,"68462-0198-05 ")
+308 ;;1843
+309 ;;21,"68462-0198-90 ")
+310 ;;1844
+311 ;;21,"68645-0261-54 ")
+312 ;;1845
+313 ;;21,"68645-0262-54 ")
+314 ;;1846
+315 ;;21,"68645-0263-54 ")
+316 ;;1847
+317 ;;21,"68645-0402-70 ")
+318 ;;1848
+319 ;;21,"68645-0403-70 ")
+320 ;;1849
+321 ;;21,"68645-0417-54 ")
+322 ;;1850
+323 ;;21,"68645-0418-54 ")
+324 ;;1851
+325 ;;21,"68645-0458-70 ")
+326 ;;1852
+327 ;;21,"68645-0459-70 ")
+328 ;;1853
+329 ;;21,"68645-0460-54 ")
+330 ;;1854
+331 ;;21,"68645-0461-54 ")
+332 ;;1855
+333 ;;21,"68645-0470-54 ")
+334 ;;1856
+335 ;;21,"68645-0471-54 ")
+336 ;;1857
+337 ;;21,"68645-0472-54 ")
+338 ;;1858
+339 ;;21,"68645-0480-70 ")
+340 ;;1859
+341 ;;21,"68645-0481-70 ")
+342 ;;1860
+343 ;;21,"68645-0482-54 ")
+344 ;;1861
+345 ;;21,"68645-0483-54 ")
+346 ;;1862
+347 ;;21,"68645-0495-54 ")
+348 ;;1863
+349 ;;21,"68645-0527-54 ")
+350 ;;1864
+351 ;;21,"68788-0074-03 ")
+352 ;;1865
+353 ;;21,"68788-8991-01 ")
+354 ;;1866
+355 ;;21,"68788-8991-03 ")
+356 ;;1867
+357 ;;21,"68788-8991-06 ")
+358 ;;1868
+359 ;;21,"68788-8991-09 ")
+360 ;;1869
+361 ;;21,"68788-9182-03 ")
+362 ;;1870
+363 ;;21,"68788-9556-03 ")
+364 ;;1871
+365 ;;21,"68788-9668-03 ")
+366 ;;1872
+367 ;;21,"68788-9683-03 ")
+368 ;;1873
+369 ;;21,"68788-9835-03 ")
+370 ;;1874
+371 ;;21,"68788-9836-03 ")
+372 ;;1875
+373 ;;21,"68788-9868-03 ")
+374 ;;1876
+375 ;;21,"68788-9869-03 ")
+376 ;;1877
+377 ;;21,"69817-0301-01 ")
+378 ;;1878
+379 ;;9002226,1224,.01)
+380 ;;BGP PQA STATIN NDC
+381 ;;9002226,1224,.02)
+382 ;;@
+383 ;;9002226,1224,.04)
+384 ;;n
+385 ;;9002226,1224,.06)
+386 ;;@
+387 ;;9002226,1224,.08)
+388 ;;@
+389 ;;9002226,1224,.09)
+390 ;;3160811
+391 ;;9002226,1224,.11)
+392 ;;@
+393 ;;9002226,1224,.12)
+394 ;;@
+395 ;;9002226,1224,.13)
+396 ;;1
+397 ;;9002226,1224,.14)
+398 ;;@
+399 ;;9002226,1224,.15)
+400 ;;50.67
+401 ;;9002226,1224,.16)
+402 ;;@
+403 ;;9002226,1224,.17)
+404 ;;@
+405 ;;9002226,1224,.22)
+406 ;;1
+407 ;;9002226,1224,3101)
+408 ;;@
+409 ;;9002226.02101,"1224,00002-4770-90 ",.01)
+410 ;;00002-4770-90
+411 ;;9002226.02101,"1224,00002-4770-90 ",.02)
+412 ;;00002-4770-90
+413 ;;9002226.02101,"1224,00002-4771-90 ",.01)
+414 ;;00002-4771-90
+415 ;;9002226.02101,"1224,00002-4771-90 ",.02)
+416 ;;00002-4771-90
+417 ;;9002226.02101,"1224,00002-4772-90 ",.01)
+418 ;;00002-4772-90
+419 ;;9002226.02101,"1224,00002-4772-90 ",.02)
+420 ;;00002-4772-90
+421 ;;9002226.02101,"1224,00003-5178-05 ",.01)
+422 ;;00003-5178-05
+423 ;;9002226.02101,"1224,00003-5178-05 ",.02)
+424 ;;00003-5178-05
+425 ;;9002226.02101,"1224,00003-5194-10 ",.01)
+426 ;;00003-5194-10
+427 ;;9002226.02101,"1224,00003-5194-10 ",.02)
+428 ;;00003-5194-10
+429 ;;9002226.02101,"1224,00003-5195-10 ",.01)
+430 ;;00003-5195-10
+431 ;;9002226.02101,"1224,00003-5195-10 ",.02)
+432 ;;00003-5195-10
+433 ;;9002226.02101,"1224,00006-0543-31 ",.01)
+434 ;;00006-0543-31
+435 ;;9002226.02101,"1224,00006-0543-31 ",.02)
+436 ;;00006-0543-31
+437 ;;9002226.02101,"1224,00006-0543-54 ",.01)
+438 ;;00006-0543-54
+439 ;;9002226.02101,"1224,00006-0543-54 ",.02)
+440 ;;00006-0543-54
+441 ;;9002226.02101,"1224,00006-0726-31 ",.01)
+442 ;;00006-0726-31
+443 ;;9002226.02101,"1224,00006-0726-31 ",.02)
+444 ;;00006-0726-31
+445 ;;9002226.02101,"1224,00006-0731-61 ",.01)
+446 ;;00006-0731-61
+447 ;;9002226.02101,"1224,00006-0731-61 ",.02)
+448 ;;00006-0731-61
+449 ;;9002226.02101,"1224,00006-0732-61 ",.01)
+450 ;;00006-0732-61
+451 ;;9002226.02101,"1224,00006-0732-61 ",.02)
+452 ;;00006-0732-61
+453 ;;9002226.02101,"1224,00006-0735-31 ",.01)
+454 ;;00006-0735-31
+455 ;;9002226.02101,"1224,00006-0735-31 ",.02)
+456 ;;00006-0735-31
+457 ;;9002226.02101,"1224,00006-0735-54 ",.01)
+458 ;;00006-0735-54
+459 ;;9002226.02101,"1224,00006-0735-54 ",.02)
+460 ;;00006-0735-54
+461 ;;9002226.02101,"1224,00006-0740-31 ",.01)
+462 ;;00006-0740-31
+463 ;;9002226.02101,"1224,00006-0740-31 ",.02)
+464 ;;00006-0740-31
+465 ;;9002226.02101,"1224,00006-0740-54 ",.01)
+466 ;;00006-0740-54
+467 ;;9002226.02101,"1224,00006-0740-54 ",.02)
+468 ;;00006-0740-54
+469 ;;9002226.02101,"1224,00006-0749-31 ",.01)
+470 ;;00006-0749-31
+471 ;;9002226.02101,"1224,00006-0749-31 ",.02)
+472 ;;00006-0749-31
+473 ;;9002226.02101,"1224,00006-0749-54 ",.01)
+474 ;;00006-0749-54
+475 ;;9002226.02101,"1224,00006-0749-54 ",.02)
+476 ;;00006-0749-54
+477 ;;9002226.02101,"1224,00006-0753-31 ",.01)
+478 ;;00006-0753-31
+479 ;;9002226.02101,"1224,00006-0753-31 ",.02)
+480 ;;00006-0753-31
+481 ;;9002226.02101,"1224,00006-0753-54 ",.01)
+482 ;;00006-0753-54
+483 ;;9002226.02101,"1224,00006-0753-54 ",.02)
+484 ;;00006-0753-54
+485 ;;9002226.02101,"1224,00006-0753-82 ",.01)
+486 ;;00006-0753-82
+487 ;;9002226.02101,"1224,00006-0753-82 ",.02)
+488 ;;00006-0753-82
+489 ;;9002226.02101,"1224,00006-0757-31 ",.01)
+490 ;;00006-0757-31
+491 ;;9002226.02101,"1224,00006-0757-31 ",.02)
+492 ;;00006-0757-31
+493 ;;9002226.02101,"1224,00006-0757-54 ",.01)
+494 ;;00006-0757-54
+495 ;;9002226.02101,"1224,00006-0757-54 ",.02)
+496 ;;00006-0757-54
+497 ;;9002226.02101,"1224,00006-0757-82 ",.01)
+498 ;;00006-0757-82
+499 ;;9002226.02101,"1224,00006-0757-82 ",.02)
+500 ;;00006-0757-82
+501 ;;9002226.02101,"1224,00006-0773-31 ",.01)
+502 ;;00006-0773-31
+503 ;;9002226.02101,"1224,00006-0773-31 ",.02)
+504 ;;00006-0773-31
+505 ;;9002226.02101,"1224,00006-0773-54 ",.01)
+506 ;;00006-0773-54
+507 ;;9002226.02101,"1224,00006-0773-54 ",.02)
+508 ;;00006-0773-54
+509 ;;9002226.02101,"1224,00006-0773-82 ",.01)
+510 ;;00006-0773-82
+511 ;;9002226.02101,"1224,00006-0773-82 ",.02)
+512 ;;00006-0773-82
+513 ;;9002226.02101,"1224,00069-2150-30 ",.01)
+514 ;;00069-2150-30
+515 ;;9002226.02101,"1224,00069-2150-30 ",.02)
+516 ;;00069-2150-30
+517 ;;9002226.02101,"1224,00069-2160-30 ",.01)
+518 ;;00069-2160-30
+519 ;;9002226.02101,"1224,00069-2160-30 ",.02)
+520 ;;00069-2160-30
+521 ;;9002226.02101,"1224,00069-2170-30 ",.01)
+522 ;;00069-2170-30
+523 ;;9002226.02101,"1224,00069-2170-30 ",.02)
+524 ;;00069-2170-30
+525 ;;9002226.02101,"1224,00069-2180-30 ",.01)
+526 ;;00069-2180-30
+527 ;;9002226.02101,"1224,00069-2180-30 ",.02)
+528 ;;00069-2180-30
+529 ;;9002226.02101,"1224,00069-2190-30 ",.01)
+530 ;;00069-2190-30
+531 ;;9002226.02101,"1224,00069-2190-30 ",.02)
+532 ;;00069-2190-30
+533 ;;9002226.02101,"1224,00069-2250-30 ",.01)
+534 ;;00069-2250-30
+535 ;;9002226.02101,"1224,00069-2250-30 ",.02)
+536 ;;00069-2250-30
+537 ;;9002226.02101,"1224,00069-2260-30 ",.01)
+538 ;;00069-2260-30
+539 ;;9002226.02101,"1224,00069-2260-30 ",.02)
+540 ;;00069-2260-30
+541 ;;9002226.02101,"1224,00069-2270-30 ",.01)
+542 ;;00069-2270-30
+543 ;;9002226.02101,"1224,00069-2270-30 ",.02)
+544 ;;00069-2270-30
+545 ;;9002226.02101,"1224,00069-2960-30 ",.01)
+546 ;;00069-2960-30
+547 ;;9002226.02101,"1224,00069-2960-30 ",.02)
+548 ;;00069-2960-30
+549 ;;9002226.02101,"1224,00069-2970-30 ",.01)
+550 ;;00069-2970-30
+551 ;;9002226.02101,"1224,00069-2970-30 ",.02)
+552 ;;00069-2970-30
+553 ;;9002226.02101,"1224,00069-2980-30 ",.01)
+554 ;;00069-2980-30
+555 ;;9002226.02101,"1224,00069-2980-30 ",.02)
+556 ;;00069-2980-30
