Routine: BGP13D6

BGP13D6 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;

 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33

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,"66336-0086-15 ")

 ;;1820

 ;;21,"66336-0086-20 ")

 ;;1821

 ;;21,"66336-0086-30 ")

 ;;1822

 ;;21,"66336-0208-20 ")

 ;;1823

 ;;21,"66336-0208-30 ")

 ;;1824

 ;;21,"66336-0589-15 ")

 ;;1825

 ;;21,"66336-0589-20 ")

 ;;1826

 ;;21,"66336-0589-30 ")

 ;;1827

 ;;21,"66336-0589-60 ")

 ;;1828

 ;;21,"66336-0795-15 ")

 ;;1829

 ;;21,"66336-0796-30 ")

 ;;1830

 ;;21,"66336-0797-60 ")

 ;;1831

 ;;21,"66346-0121-65 ")

 ;;1832

 ;;21,"66346-0191-65 ")

 ;;1833

 ;;21,"66375-0107-02 ")

 ;;1834

 ;;21,"66375-0108-02 ")

 ;;1835

 ;;21,"66424-0020-01 ")

 ;;1836

 ;;21,"66424-0020-10 ")

 ;;1837

 ;;21,"66424-0021-01 ")

 ;;1838

 ;;21,"66424-0021-10 ")

 ;;1839

 ;;21,"66553-0010-01 ")

 ;;1840

 ;;21,"66869-0107-10 ")

 ;;1841

 ;;21,"66869-0154-10 ")

 ;;1842

 ;;21,"66869-0407-10 ")

 ;;1843

 ;;21,"66869-0426-10 ")

 ;;1844

 ;;21,"67405-0575-10 ")

 ;;1845

 ;;21,"67405-0575-50 ")

 ;;1846

 ;;21,"67405-0575-96 ")

 ;;1847

 ;;21,"67405-0577-10 ")

 ;;1848

 ;;21,"67405-0671-10 ")

 ;;1849

 ;;21,"67405-0671-50 ")

 ;;1850

 ;;21,"67405-0671-96 ")

 ;;1851

 ;;21,"67544-0791-30 ")

 ;;1852

 ;;21,"68025-0032-16 ")

 ;;1853

 ;;21,"68032-0189-60 ")

 ;;1854

 ;;21,"68032-0205-60 ")

 ;;1855

 ;;21,"68047-0136-16 ")

 ;;1856

 ;;21,"68047-0271-01 ")

 ;;1857

 ;;21,"68084-0154-01 ")

 ;;1858

 ;;21,"68084-0154-11 ")

 ;;1859

 ;;21,"68084-0155-01 ")

 ;;1860

 ;;21,"68084-0155-11 ")

 ;;1861

 ;;21,"68084-0156-01 ")

 ;;1862

 ;;21,"68084-0253-01 ")

 ;;1863

 ;;21,"68084-0254-01 ")

 ;;1864

 ;;21,"68084-0255-01 ")

 ;;1865

 ;;21,"68115-0116-00 ")

 ;;1866

 ;;21,"68115-0116-10 ")

 ;;1867

 ;;21,"68115-0116-12 ")

 ;;1868

 ;;21,"68115-0116-15 ")

 ;;1869

 ;;21,"68115-0116-20 ")

 ;;1870

 ;;21,"68115-0116-24 ")

 ;;1871

 ;;21,"68115-0116-30 ")

 ;;1872

 ;;21,"68115-0116-60 ")

 ;;1873

 ;;21,"68115-0117-06 ")

 ;;1874

 ;;21,"68115-0117-15 ")

 ;;1875

 ;;21,"68115-0117-20 ")

 ;;1876

 ;;21,"68115-0117-30 ")

 ;;1877

 ;;21,"68115-0174-00 ")

 ;;1878

 ;;21,"68115-0174-15 ")

 ;;1879

 ;;21,"68115-0174-30 ")

 ;;1880

 ;;21,"68115-0175-12 ")

 ;;1881

 ;;21,"68115-0175-15 ")

 ;;1882

 ;;21,"68115-0175-20 ")

 ;;1883

 ;;21,"68115-0175-30 ")

 ;;1884

 ;;21,"68115-0175-60 ")

 ;;1885

 ;;21,"68115-0176-00 ")

 ;;1886

 ;;21,"68115-0176-30 ")

 ;;1887

 ;;21,"68115-0177-00 ")

 ;;1888

 ;;21,"68115-0177-30 ")

 ;;1889

 ;;21,"68115-0177-60 ")

 ;;1890

 ;;21,"68115-0178-20 ")

 ;;1891

 ;;21,"68115-0178-60 ")

 ;;1892

 ;;21,"68115-0302-00 ")

 ;;1893

 ;;21,"68115-0302-04 ")

 ;;1894

 ;;21,"68115-0302-20 ")

 ;;1895

 ;;21,"68115-0302-30 ")

 ;;1896

 ;;21,"68115-0302-90 ")

 ;;1897

 ;;21,"68115-0900-04 ")

 ;;1898

 ;;21,"68115-0915-04 ")

 ;;1899

 ;;21,"68115-0976-04 ")

 ;;1900

 ;;21,"68303-0180-10 ")

 ;;1901

 ;;21,"68308-0122-04 ")

 ;;1902

 ;;21,"68308-0126-04 ")

 ;;1903

 ;;21,"68308-0130-04 ")

 ;;1904

 ;;21,"68308-0134-04 ")

 ;;1905

 ;;21,"68308-0140-04 ")

 ;;1906

 ;;21,"68308-0180-10 ")

 ;;1907

 ;;21,"68308-0526-60 ")

 ;;1908

 ;;21,"68308-0737-16 ")

 ;;1909

 ;;21,"68308-0755-60 ")

 ;;1910

 ;;21,"68382-0040-01 ")

 ;;1911

 ;;21,"68382-0040-10 ")

 ;;1912

 ;;21,"68382-0041-01 ")

 ;;1913

 ;;21,"68382-0041-10 ")

 ;;1914

 ;;21,"68382-0042-01 ")

 ;;1915

 ;;21,"68382-0042-10 ")

 ;;1916

 ;;21,"68387-0468-30 ")

 ;;1917

 ;;21,"68387-0469-30 ")

 ;;1918

 ;;21,"68387-0536-30 ")

 ;;1919

 ;;21,"68387-0536-90 ")

 ;;1920

 ;;21,"68387-0541-30 ")

 ;;1921

 ;;21,"68453-0145-04 ")

 ;;1922

 ;;21,"68453-0145-16 ")

 ;;1923

 ;;21,"68462-0360-01 ")

 ;;1924

 ;;21,"68462-0360-05 ")

 ;;1925

 ;;21,"68462-0361-01 ")

 ;;1926

 ;;21,"68462-0361-05 ")

 ;;1927

 ;;21,"68462-0362-01 ")

 ;;1928

 ;;21,"68462-0362-05 ")

 ;;1929

 ;;21,"70030-0462-62 ")

 ;;1930

 ;;21,"70030-0479-62 ")

 ;;1931

 ;;21,"74300-0001-33 ")

 ;;1932

 ;;21,"74300-0003-66 ")

 ;;1933

 ;;21,"74300-0003-67 ")

 ;;1934

 ;;21,"74300-0006-10 ")

 ;;1935

 ;;21,"74300-0006-11 ")

 ;;1936

 ;;21,"75137-0004-97 ")

 ;;1937

 ;;21,"75137-0212-03 ")

 ;;1938

 ;;21,"75137-0212-12 ")

 ;;1939

 ;;9002226,994,.01)

 ;;BGP HEDIS ANTIHISTAMINE NDC

 ;;9002226,994,.02)

;;@

 ;;9002226,994,.04)

;;n

 ;;9002226,994,.06)

;;@

 ;;9002226,994,.08)

;;@

 ;;9002226,994,.09)

;;@

 ;;9002226,994,.11)

;;@

 ;;9002226,994,.12)

;;@

 ;;9002226,994,.13)

;;1

 ;;9002226,994,.14)

;;@

 ;;9002226,994,.15)

;;@

 ;;9002226,994,.16)

;;@

 ;;9002226,994,.17)

;;@

 ;;9002226,994,3101)

;;@

 ;;9002226.02101,"994,00006-0062-68 ",.01)

 ;;00006-0062-68

 ;;9002226.02101,"994,00006-0062-68 ",.02)

 ;;00006-0062-68

 ;;9002226.02101,"994,00008-0027-02 ",.01)

 ;;00008-0027-02

 ;;9002226.02101,"994,00008-0027-02 ",.02)

 ;;00008-0027-02

 ;;9002226.02101,"994,00031-2247-13 ",.01)

 ;;00031-2247-13

 ;;9002226.02101,"994,00031-2247-13 ",.02)

 ;;00031-2247-13

 ;;9002226.02101,"994,00031-8698-12 ",.01)

 ;;00031-8698-12

 ;;9002226.02101,"994,00031-8698-12 ",.02)

 ;;00031-8698-12

 ;;9002226.02101,"994,00031-8698-13 ",.01)

 ;;00031-8698-13

 ;;9002226.02101,"994,00031-8698-13 ",.02)

 ;;00031-8698-13

 ;;9002226.02101,"994,00031-8701-12 ",.01)

 ;;00031-8701-12

 ;;9002226.02101,"994,00031-8701-12 ",.02)

 ;;00031-8701-12

 ;;9002226.02101,"994,00031-8715-12 ",.01)

 ;;00031-8715-12

 ;;9002226.02101,"994,00031-8715-12 ",.02)

 ;;00031-8715-12

 ;;9002226.02101,"994,00043-0460-08 ",.01)

 ;;00043-0460-08

 ;;9002226.02101,"994,00043-0460-08 ",.02)

 ;;00043-0460-08

 ;;9002226.02101,"994,00043-6204-04 ",.01)

 ;;00043-6204-04

 ;;9002226.02101,"994,00043-6204-04 ",.02)

 ;;00043-6204-04

 ;;9002226.02101,"994,00043-6204-08 ",.01)

 ;;00043-6204-08

 ;;9002226.02101,"994,00043-6204-08 ",.02)

 ;;00043-6204-08

 ;;9002226.02101,"994,00043-6256-06 ",.01)

 ;;00043-6256-06

 ;;9002226.02101,"994,00043-6256-06 ",.02)

 ;;00043-6256-06

 ;;9002226.02101,"994,00043-6265-08 ",.01)

 ;;00043-6265-08

 ;;9002226.02101,"994,00043-6265-08 ",.02)

 ;;00043-6265-08

 ;;9002226.02101,"994,00045-0182-10 ",.01)

 ;;00045-0182-10

 ;;9002226.02101,"994,00045-0182-10 ",.02)

 ;;00045-0182-10

 ;;9002226.02101,"994,00045-0211-48 ",.01)

 ;;00045-0211-48

 ;;9002226.02101,"994,00045-0211-48 ",.02)

 ;;00045-0211-48

 ;;9002226.02101,"994,00045-0244-20 ",.01)

 ;;00045-0244-20

 ;;9002226.02101,"994,00045-0244-20 ",.02)

 ;;00045-0244-20

 ;;9002226.02101,"994,00045-0244-40 ",.01)

 ;;00045-0244-40

 ;;9002226.02101,"994,00045-0244-40 ",.02)

 ;;00045-0244-40

 ;;9002226.02101,"994,00045-0244-80 ",.01)

 ;;00045-0244-80

 ;;9002226.02101,"994,00045-0244-80 ",.02)

 ;;00045-0244-80

 ;;9002226.02101,"994,00045-0482-20 ",.01)

 ;;00045-0482-20

 ;;9002226.02101,"994,00045-0482-20 ",.02)

 ;;00045-0482-20

 ;;9002226.02101,"994,00045-0482-35 ",.01)

 ;;00045-0482-35

 ;;9002226.02101,"994,00045-0482-35 ",.02)

 ;;00045-0482-35

 ;;9002226.02101,"994,00067-0246-17 ",.01)

 ;;00067-0246-17

 ;;9002226.02101,"994,00067-0246-17 ",.02)

 ;;00067-0246-17

 ;;9002226.02101,"994,00067-0297-24 ",.01)

 ;;00067-0297-24

 ;;9002226.02101,"994,00067-0297-24 ",.02)

 ;;00067-0297-24

 ;;9002226.02101,"994,00067-2053-24 ",.01)

 ;;00067-2053-24

 ;;9002226.02101,"994,00067-2053-24 ",.02)

 ;;00067-2053-24

 ;;9002226.02101,"994,00067-2053-50 ",.01)

 ;;00067-2053-50

 ;;9002226.02101,"994,00067-2053-50 ",.02)

 ;;00067-2053-50

 ;;9002226.02101,"994,00067-2053-91 ",.01)

 ;;00067-2053-91

 ;;9002226.02101,"994,00067-2053-91 ",.02)

 ;;00067-2053-91

 ;;9002226.02101,"994,00067-2055-24 ",.01)

 ;;00067-2055-24

 ;;9002226.02101,"994,00067-2055-24 ",.02)

 ;;00067-2055-24

 ;;9002226.02101,"994,00067-2055-50 ",.01)

 ;;00067-2055-50

 ;;9002226.02101,"994,00067-2055-50 ",.02)

 ;;00067-2055-50

 ;;9002226.02101,"994,00067-2055-91 ",.01)

 ;;00067-2055-91

 ;;9002226.02101,"994,00067-2055-91 ",.02)

 ;;00067-2055-91

 ;;9002226.02101,"994,00067-6147-12 ",.01)

 ;;00067-6147-12

 ;;9002226.02101,"994,00067-6147-12 ",.02)

 ;;00067-6147-12

 ;;9002226.02101,"994,00067-6149-14 ",.01)

 ;;00067-6149-14

 ;;9002226.02101,"994,00067-6149-14 ",.02)

 ;;00067-6149-14

 ;;9002226.02101,"994,00067-6149-16 ",.01)

 ;;00067-6149-16

 ;;9002226.02101,"994,00067-6149-16 ",.02)

 ;;00067-6149-16

 ;;9002226.02101,"994,00067-6180-20 ",.01)

 ;;00067-6180-20

 ;;9002226.02101,"994,00067-6180-20 ",.02)

 ;;00067-6180-20

 ;;9002226.02101,"994,00067-6344-04 ",.01)

 ;;00067-6344-04

 ;;9002226.02101,"994,00067-6344-04 ",.02)

 ;;00067-6344-04

 ;;9002226.02101,"994,00067-6344-08 ",.01)

 ;;00067-6344-08

 ;;9002226.02101,"994,00067-6344-08 ",.02)

 ;;00067-6344-08

 ;;9002226.02101,"994,00067-6354-14 ",.01)

 ;;00067-6354-14

 ;;9002226.02101,"994,00067-6354-14 ",.02)

 ;;00067-6354-14

 ;;9002226.02101,"994,00067-6356-14 ",.01)

 ;;00067-6356-14

 ;;9002226.02101,"994,00067-6356-14 ",.02)

 ;;00067-6356-14

 ;;9002226.02101,"994,00067-6405-20 ",.01)

 ;;00067-6405-20

 ;;9002226.02101,"994,00067-6405-20 ",.02)

 ;;00067-6405-20

 ;;9002226.02101,"994,00067-6405-80 ",.01)

 ;;00067-6405-80

 ;;9002226.02101,"994,00067-6405-80 ",.02)

 ;;00067-6405-80

 ;;9002226.02101,"994,00067-6407-08 ",.01)

 ;;00067-6407-08

 ;;9002226.02101,"994,00067-6407-08 ",.02)

 ;;00067-6407-08

 ;;9002226.02101,"994,00069-5410-66 ",.01)

 ;;00069-5410-66

 ;;9002226.02101,"994,00069-5410-66 ",.02)

 ;;00069-5410-66

 ;;9002226.02101,"994,00069-5420-66 ",.01)

 ;;00069-5420-66

 ;;9002226.02101,"994,00069-5420-66 ",.02)

 ;;00069-5420-66

 ;;9002226.02101,"994,00069-5430-66 ",.01)

 ;;00069-5430-66

 ;;9002226.02101,"994,00069-5430-66 ",.02)

 ;;00069-5430-66

 ;;9002226.02101,"994,00069-5440-93 ",.01)

 ;;00069-5440-93

 ;;9002226.02101,"994,00069-5440-93 ",.02)

 ;;00069-5440-93

 ;;9002226.02101,"994,00069-5440-97 ",.01)

 ;;00069-5440-97

 ;;9002226.02101,"994,00069-5440-97 ",.02)

 ;;00069-5440-97

 ;;9002226.02101,"994,00071-2333-17 ",.01)

 ;;00071-2333-17

 ;;9002226.02101,"994,00071-2333-17 ",.02)

 ;;00071-2333-17

 ;;9002226.02101,"994,00071-2555-17 ",.01)

 ;;00071-2555-17

 ;;9002226.02101,"994,00071-2555-17 ",.02)

 ;;00071-2555-17

 ;;9002226.02101,"994,00083-0245-17 ",.01)

 ;;00083-0245-17

 ;;9002226.02101,"994,00083-0245-17 ",.02)

 ;;00083-0245-17

 ;;9002226.02101,"994,00085-0268-05 ",.01)

 ;;00085-0268-05

 ;;9002226.02101,"994,00085-0268-05 ",.02)

 ;;00085-0268-05

 ;;9002226.02101,"994,00085-0820-03 ",.01)

 ;;00085-0820-03

 ;;9002226.02101,"994,00085-0820-03 ",.02)

 ;;00085-0820-03

 ;;9002226.02101,"994,00085-1117-01 ",.01)

 ;;00085-1117-01

 ;;9002226.02101,"994,00085-1117-01 ",.02)

 ;;00085-1117-01

 ;;9002226.02101,"994,00093-2929-01 ",.01)

 ;;00093-2929-01

 ;;9002226.02101,"994,00093-2929-01 ",.02)

 ;;00093-2929-01

 ;;9002226.02101,"994,00093-2929-10 ",.01)

 ;;00093-2929-10

 ;;9002226.02101,"994,00093-2929-10 ",.02)

 ;;00093-2929-10

 ;;9002226.02101,"994,00093-2929-93 ",.01)

 ;;00093-2929-93

 ;;9002226.02101,"994,00093-2929-93 ",.02)

 ;;00093-2929-93

 ;;9002226.02101,"994,00113-0333-26 ",.01)

 ;;00113-0333-26

 ;;9002226.02101,"994,00113-0333-26 ",.02)

 ;;00113-0333-26

 ;;9002226.02101,"994,00113-0379-26 ",.01)

 ;;00113-0379-26

 ;;9002226.02101,"994,00113-0379-26 ",.02)

 ;;00113-0379-26

 ;;9002226.02101,"994,00113-0406-73 ",.01)

 ;;00113-0406-73

 ;;9002226.02101,"994,00113-0406-73 ",.02)

 ;;00113-0406-73

 ;;9002226.02101,"994,00113-0462-62 ",.01)

 ;;00113-0462-62

 ;;9002226.02101,"994,00113-0462-62 ",.02)

 ;;00113-0462-62

 ;;9002226.02101,"994,00113-0479-62 ",.01)

 ;;00113-0479-62

 ;;9002226.02101,"994,00113-0479-62 ",.02)

 ;;00113-0479-62

 ;;9002226.02101,"994,00115-1040-01 ",.01)

 ;;00115-1040-01

 ;;9002226.02101,"994,00115-1040-01 ",.02)

 ;;00115-1040-01

 ;;9002226.02101,"994,00115-1041-01 ",.01)

 ;;00115-1041-01

 ;;9002226.02101,"994,00115-1041-01 ",.02)

 ;;00115-1041-01

 ;;9002226.02101,"994,00115-1041-03 ",.01)

 ;;00115-1041-03

 ;;9002226.02101,"994,00115-1041-03 ",.02)

 ;;00115-1041-03

 ;;9002226.02101,"994,00115-1042-01 ",.01)

 ;;00115-1042-01

 ;;9002226.02101,"994,00115-1042-01 ",.02)

 ;;00115-1042-01

 ;;9002226.02101,"994,00115-1110-01 ",.01)

 ;;00115-1110-01

 ;;9002226.02101,"994,00115-1110-01 ",.02)

 ;;00115-1110-01

 ;;9002226.02101,"994,00115-1110-03 ",.01)

 ;;00115-1110-03

 ;;9002226.02101,"994,00115-1110-03 ",.02)

 ;;00115-1110-03

 ;;9002226.02101,"994,00115-1111-01 ",.01)

 ;;00115-1111-01

 ;;9002226.02101,"994,00115-1111-01 ",.02)

 ;;00115-1111-01

 ;;9002226.02101,"994,00115-1111-03 ",.01)

 ;;00115-1111-03

 ;;9002226.02101,"994,00115-1111-03 ",.02)

 ;;00115-1111-03

 ;;9002226.02101,"994,00121-0489-05 ",.01)

 ;;00121-0489-05

BGP13D6   ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;

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

 +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,"66336-0086-15 ")

 +2       ;;1820

 +3       ;;21,"66336-0086-20 ")

 +4       ;;1821

 +5       ;;21,"66336-0086-30 ")

 +6       ;;1822

 +7       ;;21,"66336-0208-20 ")

 +8       ;;1823

 +9       ;;21,"66336-0208-30 ")

 +10      ;;1824

 +11      ;;21,"66336-0589-15 ")

 +12      ;;1825

 +13      ;;21,"66336-0589-20 ")

 +14      ;;1826

 +15      ;;21,"66336-0589-30 ")

 +16      ;;1827

 +17      ;;21,"66336-0589-60 ")

 +18      ;;1828

 +19      ;;21,"66336-0795-15 ")

 +20      ;;1829

 +21      ;;21,"66336-0796-30 ")

 +22      ;;1830

 +23      ;;21,"66336-0797-60 ")

 +24      ;;1831

 +25      ;;21,"66346-0121-65 ")

 +26      ;;1832

 +27      ;;21,"66346-0191-65 ")

 +28      ;;1833

 +29      ;;21,"66375-0107-02 ")

 +30      ;;1834

 +31      ;;21,"66375-0108-02 ")

 +32      ;;1835

 +33      ;;21,"66424-0020-01 ")

 +34      ;;1836

 +35      ;;21,"66424-0020-10 ")

 +36      ;;1837

 +37      ;;21,"66424-0021-01 ")

 +38      ;;1838

 +39      ;;21,"66424-0021-10 ")

 +40      ;;1839

 +41      ;;21,"66553-0010-01 ")

 +42      ;;1840

 +43      ;;21,"66869-0107-10 ")

 +44      ;;1841

 +45      ;;21,"66869-0154-10 ")

 +46      ;;1842

 +47      ;;21,"66869-0407-10 ")

 +48      ;;1843

 +49      ;;21,"66869-0426-10 ")

 +50      ;;1844

 +51      ;;21,"67405-0575-10 ")

 +52      ;;1845

 +53      ;;21,"67405-0575-50 ")

 +54      ;;1846

 +55      ;;21,"67405-0575-96 ")

 +56      ;;1847

 +57      ;;21,"67405-0577-10 ")

 +58      ;;1848

 +59      ;;21,"67405-0671-10 ")

 +60      ;;1849

 +61      ;;21,"67405-0671-50 ")

 +62      ;;1850

 +63      ;;21,"67405-0671-96 ")

 +64      ;;1851

 +65      ;;21,"67544-0791-30 ")

 +66      ;;1852

 +67      ;;21,"68025-0032-16 ")

 +68      ;;1853

 +69      ;;21,"68032-0189-60 ")

 +70      ;;1854

 +71      ;;21,"68032-0205-60 ")

 +72      ;;1855

 +73      ;;21,"68047-0136-16 ")

 +74      ;;1856

 +75      ;;21,"68047-0271-01 ")

 +76      ;;1857

 +77      ;;21,"68084-0154-01 ")

 +78      ;;1858

 +79      ;;21,"68084-0154-11 ")

 +80      ;;1859

 +81      ;;21,"68084-0155-01 ")

 +82      ;;1860

 +83      ;;21,"68084-0155-11 ")

 +84      ;;1861

 +85      ;;21,"68084-0156-01 ")

 +86      ;;1862

 +87      ;;21,"68084-0253-01 ")

 +88      ;;1863

 +89      ;;21,"68084-0254-01 ")

 +90      ;;1864

 +91      ;;21,"68084-0255-01 ")

 +92      ;;1865

 +93      ;;21,"68115-0116-00 ")

 +94      ;;1866

 +95      ;;21,"68115-0116-10 ")

 +96      ;;1867

 +97      ;;21,"68115-0116-12 ")

 +98      ;;1868

 +99      ;;21,"68115-0116-15 ")

 +100     ;;1869

 +101     ;;21,"68115-0116-20 ")

 +102     ;;1870

 +103     ;;21,"68115-0116-24 ")

 +104     ;;1871

 +105     ;;21,"68115-0116-30 ")

 +106     ;;1872

 +107     ;;21,"68115-0116-60 ")

 +108     ;;1873

 +109     ;;21,"68115-0117-06 ")

 +110     ;;1874

 +111     ;;21,"68115-0117-15 ")

 +112     ;;1875

 +113     ;;21,"68115-0117-20 ")

 +114     ;;1876

 +115     ;;21,"68115-0117-30 ")

 +116     ;;1877

 +117     ;;21,"68115-0174-00 ")

 +118     ;;1878

 +119     ;;21,"68115-0174-15 ")

 +120     ;;1879

 +121     ;;21,"68115-0174-30 ")

 +122     ;;1880

 +123     ;;21,"68115-0175-12 ")

 +124     ;;1881

 +125     ;;21,"68115-0175-15 ")

 +126     ;;1882

 +127     ;;21,"68115-0175-20 ")

 +128     ;;1883

 +129     ;;21,"68115-0175-30 ")

 +130     ;;1884

 +131     ;;21,"68115-0175-60 ")

 +132     ;;1885

 +133     ;;21,"68115-0176-00 ")

 +134     ;;1886

 +135     ;;21,"68115-0176-30 ")

 +136     ;;1887

 +137     ;;21,"68115-0177-00 ")

 +138     ;;1888

 +139     ;;21,"68115-0177-30 ")

 +140     ;;1889

 +141     ;;21,"68115-0177-60 ")

 +142     ;;1890

 +143     ;;21,"68115-0178-20 ")

 +144     ;;1891

 +145     ;;21,"68115-0178-60 ")

 +146     ;;1892

 +147     ;;21,"68115-0302-00 ")

 +148     ;;1893

 +149     ;;21,"68115-0302-04 ")

 +150     ;;1894

 +151     ;;21,"68115-0302-20 ")

 +152     ;;1895

 +153     ;;21,"68115-0302-30 ")

 +154     ;;1896

 +155     ;;21,"68115-0302-90 ")

 +156     ;;1897

 +157     ;;21,"68115-0900-04 ")

 +158     ;;1898

 +159     ;;21,"68115-0915-04 ")

 +160     ;;1899

 +161     ;;21,"68115-0976-04 ")

 +162     ;;1900

 +163     ;;21,"68303-0180-10 ")

 +164     ;;1901

 +165     ;;21,"68308-0122-04 ")

 +166     ;;1902

 +167     ;;21,"68308-0126-04 ")

 +168     ;;1903

 +169     ;;21,"68308-0130-04 ")

 +170     ;;1904

 +171     ;;21,"68308-0134-04 ")

 +172     ;;1905

 +173     ;;21,"68308-0140-04 ")

 +174     ;;1906

 +175     ;;21,"68308-0180-10 ")

 +176     ;;1907

 +177     ;;21,"68308-0526-60 ")

 +178     ;;1908

 +179     ;;21,"68308-0737-16 ")

 +180     ;;1909

 +181     ;;21,"68308-0755-60 ")

 +182     ;;1910

 +183     ;;21,"68382-0040-01 ")

 +184     ;;1911

 +185     ;;21,"68382-0040-10 ")

 +186     ;;1912

 +187     ;;21,"68382-0041-01 ")

 +188     ;;1913

 +189     ;;21,"68382-0041-10 ")

 +190     ;;1914

 +191     ;;21,"68382-0042-01 ")

 +192     ;;1915

 +193     ;;21,"68382-0042-10 ")

 +194     ;;1916

 +195     ;;21,"68387-0468-30 ")

 +196     ;;1917

 +197     ;;21,"68387-0469-30 ")

 +198     ;;1918

 +199     ;;21,"68387-0536-30 ")

 +200     ;;1919

 +201     ;;21,"68387-0536-90 ")

 +202     ;;1920

 +203     ;;21,"68387-0541-30 ")

 +204     ;;1921

 +205     ;;21,"68453-0145-04 ")

 +206     ;;1922

 +207     ;;21,"68453-0145-16 ")

 +208     ;;1923

 +209     ;;21,"68462-0360-01 ")

 +210     ;;1924

 +211     ;;21,"68462-0360-05 ")

 +212     ;;1925

 +213     ;;21,"68462-0361-01 ")

 +214     ;;1926

 +215     ;;21,"68462-0361-05 ")

 +216     ;;1927

 +217     ;;21,"68462-0362-01 ")

 +218     ;;1928

 +219     ;;21,"68462-0362-05 ")

 +220     ;;1929

 +221     ;;21,"70030-0462-62 ")

 +222     ;;1930

 +223     ;;21,"70030-0479-62 ")

 +224     ;;1931

 +225     ;;21,"74300-0001-33 ")

 +226     ;;1932

 +227     ;;21,"74300-0003-66 ")

 +228     ;;1933

 +229     ;;21,"74300-0003-67 ")

 +230     ;;1934

 +231     ;;21,"74300-0006-10 ")

 +232     ;;1935

 +233     ;;21,"74300-0006-11 ")

 +234     ;;1936

 +235     ;;21,"75137-0004-97 ")

 +236     ;;1937

 +237     ;;21,"75137-0212-03 ")

 +238     ;;1938

 +239     ;;21,"75137-0212-12 ")

 +240     ;;1939

 +241     ;;9002226,994,.01)

 +242     ;;BGP HEDIS ANTIHISTAMINE NDC

 +243     ;;9002226,994,.02)

 +244     ;;@

 +245     ;;9002226,994,.04)

 +246     ;;n

 +247     ;;9002226,994,.06)

 +248     ;;@

 +249     ;;9002226,994,.08)

 +250     ;;@

 +251     ;;9002226,994,.09)

 +252     ;;@

 +253     ;;9002226,994,.11)

 +254     ;;@

 +255     ;;9002226,994,.12)

 +256     ;;@

 +257     ;;9002226,994,.13)

 +258     ;;1

 +259     ;;9002226,994,.14)

 +260     ;;@

 +261     ;;9002226,994,.15)

 +262     ;;@

 +263     ;;9002226,994,.16)

 +264     ;;@

 +265     ;;9002226,994,.17)

 +266     ;;@

 +267     ;;9002226,994,3101)

 +268     ;;@

 +269     ;;9002226.02101,"994,00006-0062-68 ",.01)

 +270     ;;00006-0062-68

 +271     ;;9002226.02101,"994,00006-0062-68 ",.02)

 +272     ;;00006-0062-68

 +273     ;;9002226.02101,"994,00008-0027-02 ",.01)

 +274     ;;00008-0027-02

 +275     ;;9002226.02101,"994,00008-0027-02 ",.02)

 +276     ;;00008-0027-02

 +277     ;;9002226.02101,"994,00031-2247-13 ",.01)

 +278     ;;00031-2247-13

 +279     ;;9002226.02101,"994,00031-2247-13 ",.02)

 +280     ;;00031-2247-13

 +281     ;;9002226.02101,"994,00031-8698-12 ",.01)

 +282     ;;00031-8698-12

 +283     ;;9002226.02101,"994,00031-8698-12 ",.02)

 +284     ;;00031-8698-12

 +285     ;;9002226.02101,"994,00031-8698-13 ",.01)

 +286     ;;00031-8698-13

 +287     ;;9002226.02101,"994,00031-8698-13 ",.02)

 +288     ;;00031-8698-13

 +289     ;;9002226.02101,"994,00031-8701-12 ",.01)

 +290     ;;00031-8701-12

 +291     ;;9002226.02101,"994,00031-8701-12 ",.02)

 +292     ;;00031-8701-12

 +293     ;;9002226.02101,"994,00031-8715-12 ",.01)

 +294     ;;00031-8715-12

 +295     ;;9002226.02101,"994,00031-8715-12 ",.02)

 +296     ;;00031-8715-12

 +297     ;;9002226.02101,"994,00043-0460-08 ",.01)

 +298     ;;00043-0460-08

 +299     ;;9002226.02101,"994,00043-0460-08 ",.02)

 +300     ;;00043-0460-08

 +301     ;;9002226.02101,"994,00043-6204-04 ",.01)

 +302     ;;00043-6204-04

 +303     ;;9002226.02101,"994,00043-6204-04 ",.02)

 +304     ;;00043-6204-04

 +305     ;;9002226.02101,"994,00043-6204-08 ",.01)

 +306     ;;00043-6204-08

 +307     ;;9002226.02101,"994,00043-6204-08 ",.02)

 +308     ;;00043-6204-08

 +309     ;;9002226.02101,"994,00043-6256-06 ",.01)

 +310     ;;00043-6256-06

 +311     ;;9002226.02101,"994,00043-6256-06 ",.02)

 +312     ;;00043-6256-06

 +313     ;;9002226.02101,"994,00043-6265-08 ",.01)

 +314     ;;00043-6265-08

 +315     ;;9002226.02101,"994,00043-6265-08 ",.02)

 +316     ;;00043-6265-08

 +317     ;;9002226.02101,"994,00045-0182-10 ",.01)

 +318     ;;00045-0182-10

 +319     ;;9002226.02101,"994,00045-0182-10 ",.02)

 +320     ;;00045-0182-10

 +321     ;;9002226.02101,"994,00045-0211-48 ",.01)

 +322     ;;00045-0211-48

 +323     ;;9002226.02101,"994,00045-0211-48 ",.02)

 +324     ;;00045-0211-48

 +325     ;;9002226.02101,"994,00045-0244-20 ",.01)

 +326     ;;00045-0244-20

 +327     ;;9002226.02101,"994,00045-0244-20 ",.02)

 +328     ;;00045-0244-20

 +329     ;;9002226.02101,"994,00045-0244-40 ",.01)

 +330     ;;00045-0244-40

 +331     ;;9002226.02101,"994,00045-0244-40 ",.02)

 +332     ;;00045-0244-40

 +333     ;;9002226.02101,"994,00045-0244-80 ",.01)

 +334     ;;00045-0244-80

 +335     ;;9002226.02101,"994,00045-0244-80 ",.02)

 +336     ;;00045-0244-80

 +337     ;;9002226.02101,"994,00045-0482-20 ",.01)

 +338     ;;00045-0482-20

 +339     ;;9002226.02101,"994,00045-0482-20 ",.02)

 +340     ;;00045-0482-20

 +341     ;;9002226.02101,"994,00045-0482-35 ",.01)

 +342     ;;00045-0482-35

 +343     ;;9002226.02101,"994,00045-0482-35 ",.02)

 +344     ;;00045-0482-35

 +345     ;;9002226.02101,"994,00067-0246-17 ",.01)

 +346     ;;00067-0246-17

 +347     ;;9002226.02101,"994,00067-0246-17 ",.02)

 +348     ;;00067-0246-17

 +349     ;;9002226.02101,"994,00067-0297-24 ",.01)

 +350     ;;00067-0297-24

 +351     ;;9002226.02101,"994,00067-0297-24 ",.02)

 +352     ;;00067-0297-24

 +353     ;;9002226.02101,"994,00067-2053-24 ",.01)

 +354     ;;00067-2053-24

 +355     ;;9002226.02101,"994,00067-2053-24 ",.02)

 +356     ;;00067-2053-24

 +357     ;;9002226.02101,"994,00067-2053-50 ",.01)

 +358     ;;00067-2053-50

 +359     ;;9002226.02101,"994,00067-2053-50 ",.02)

 +360     ;;00067-2053-50

 +361     ;;9002226.02101,"994,00067-2053-91 ",.01)

 +362     ;;00067-2053-91

 +363     ;;9002226.02101,"994,00067-2053-91 ",.02)

 +364     ;;00067-2053-91

 +365     ;;9002226.02101,"994,00067-2055-24 ",.01)

 +366     ;;00067-2055-24

 +367     ;;9002226.02101,"994,00067-2055-24 ",.02)

 +368     ;;00067-2055-24

 +369     ;;9002226.02101,"994,00067-2055-50 ",.01)

 +370     ;;00067-2055-50

 +371     ;;9002226.02101,"994,00067-2055-50 ",.02)

 +372     ;;00067-2055-50

 +373     ;;9002226.02101,"994,00067-2055-91 ",.01)

 +374     ;;00067-2055-91

 +375     ;;9002226.02101,"994,00067-2055-91 ",.02)

 +376     ;;00067-2055-91

 +377     ;;9002226.02101,"994,00067-6147-12 ",.01)

 +378     ;;00067-6147-12

 +379     ;;9002226.02101,"994,00067-6147-12 ",.02)

 +380     ;;00067-6147-12

 +381     ;;9002226.02101,"994,00067-6149-14 ",.01)

 +382     ;;00067-6149-14

 +383     ;;9002226.02101,"994,00067-6149-14 ",.02)

 +384     ;;00067-6149-14

 +385     ;;9002226.02101,"994,00067-6149-16 ",.01)

 +386     ;;00067-6149-16

 +387     ;;9002226.02101,"994,00067-6149-16 ",.02)

 +388     ;;00067-6149-16

 +389     ;;9002226.02101,"994,00067-6180-20 ",.01)

 +390     ;;00067-6180-20

 +391     ;;9002226.02101,"994,00067-6180-20 ",.02)

 +392     ;;00067-6180-20

 +393     ;;9002226.02101,"994,00067-6344-04 ",.01)

 +394     ;;00067-6344-04

 +395     ;;9002226.02101,"994,00067-6344-04 ",.02)

 +396     ;;00067-6344-04

 +397     ;;9002226.02101,"994,00067-6344-08 ",.01)

 +398     ;;00067-6344-08

 +399     ;;9002226.02101,"994,00067-6344-08 ",.02)

 +400     ;;00067-6344-08

 +401     ;;9002226.02101,"994,00067-6354-14 ",.01)

 +402     ;;00067-6354-14

 +403     ;;9002226.02101,"994,00067-6354-14 ",.02)

 +404     ;;00067-6354-14

 +405     ;;9002226.02101,"994,00067-6356-14 ",.01)

 +406     ;;00067-6356-14

 +407     ;;9002226.02101,"994,00067-6356-14 ",.02)

 +408     ;;00067-6356-14

 +409     ;;9002226.02101,"994,00067-6405-20 ",.01)

 +410     ;;00067-6405-20

 +411     ;;9002226.02101,"994,00067-6405-20 ",.02)

 +412     ;;00067-6405-20

 +413     ;;9002226.02101,"994,00067-6405-80 ",.01)

 +414     ;;00067-6405-80

 +415     ;;9002226.02101,"994,00067-6405-80 ",.02)

 +416     ;;00067-6405-80

 +417     ;;9002226.02101,"994,00067-6407-08 ",.01)

 +418     ;;00067-6407-08

 +419     ;;9002226.02101,"994,00067-6407-08 ",.02)

 +420     ;;00067-6407-08

 +421     ;;9002226.02101,"994,00069-5410-66 ",.01)

 +422     ;;00069-5410-66

 +423     ;;9002226.02101,"994,00069-5410-66 ",.02)

 +424     ;;00069-5410-66

 +425     ;;9002226.02101,"994,00069-5420-66 ",.01)

 +426     ;;00069-5420-66

 +427     ;;9002226.02101,"994,00069-5420-66 ",.02)

 +428     ;;00069-5420-66

 +429     ;;9002226.02101,"994,00069-5430-66 ",.01)

 +430     ;;00069-5430-66

 +431     ;;9002226.02101,"994,00069-5430-66 ",.02)

 +432     ;;00069-5430-66

 +433     ;;9002226.02101,"994,00069-5440-93 ",.01)

 +434     ;;00069-5440-93

 +435     ;;9002226.02101,"994,00069-5440-93 ",.02)

 +436     ;;00069-5440-93

 +437     ;;9002226.02101,"994,00069-5440-97 ",.01)

 +438     ;;00069-5440-97

 +439     ;;9002226.02101,"994,00069-5440-97 ",.02)

 +440     ;;00069-5440-97

 +441     ;;9002226.02101,"994,00071-2333-17 ",.01)

 +442     ;;00071-2333-17

 +443     ;;9002226.02101,"994,00071-2333-17 ",.02)

 +444     ;;00071-2333-17

 +445     ;;9002226.02101,"994,00071-2555-17 ",.01)

 +446     ;;00071-2555-17

 +447     ;;9002226.02101,"994,00071-2555-17 ",.02)

 +448     ;;00071-2555-17

 +449     ;;9002226.02101,"994,00083-0245-17 ",.01)

 +450     ;;00083-0245-17

 +451     ;;9002226.02101,"994,00083-0245-17 ",.02)

 +452     ;;00083-0245-17

 +453     ;;9002226.02101,"994,00085-0268-05 ",.01)

 +454     ;;00085-0268-05

 +455     ;;9002226.02101,"994,00085-0268-05 ",.02)

 +456     ;;00085-0268-05

 +457     ;;9002226.02101,"994,00085-0820-03 ",.01)

 +458     ;;00085-0820-03

 +459     ;;9002226.02101,"994,00085-0820-03 ",.02)

 +460     ;;00085-0820-03

 +461     ;;9002226.02101,"994,00085-1117-01 ",.01)

 +462     ;;00085-1117-01

 +463     ;;9002226.02101,"994,00085-1117-01 ",.02)

 +464     ;;00085-1117-01

 +465     ;;9002226.02101,"994,00093-2929-01 ",.01)

 +466     ;;00093-2929-01

 +467     ;;9002226.02101,"994,00093-2929-01 ",.02)

 +468     ;;00093-2929-01

 +469     ;;9002226.02101,"994,00093-2929-10 ",.01)

 +470     ;;00093-2929-10

 +471     ;;9002226.02101,"994,00093-2929-10 ",.02)

 +472     ;;00093-2929-10

 +473     ;;9002226.02101,"994,00093-2929-93 ",.01)

 +474     ;;00093-2929-93

 +475     ;;9002226.02101,"994,00093-2929-93 ",.02)

 +476     ;;00093-2929-93

 +477     ;;9002226.02101,"994,00113-0333-26 ",.01)

 +478     ;;00113-0333-26

 +479     ;;9002226.02101,"994,00113-0333-26 ",.02)

 +480     ;;00113-0333-26

 +481     ;;9002226.02101,"994,00113-0379-26 ",.01)

 +482     ;;00113-0379-26

 +483     ;;9002226.02101,"994,00113-0379-26 ",.02)

 +484     ;;00113-0379-26

 +485     ;;9002226.02101,"994,00113-0406-73 ",.01)

 +486     ;;00113-0406-73

 +487     ;;9002226.02101,"994,00113-0406-73 ",.02)

 +488     ;;00113-0406-73

 +489     ;;9002226.02101,"994,00113-0462-62 ",.01)

 +490     ;;00113-0462-62

 +491     ;;9002226.02101,"994,00113-0462-62 ",.02)

 +492     ;;00113-0462-62

 +493     ;;9002226.02101,"994,00113-0479-62 ",.01)

 +494     ;;00113-0479-62

 +495     ;;9002226.02101,"994,00113-0479-62 ",.02)

 +496     ;;00113-0479-62

 +497     ;;9002226.02101,"994,00115-1040-01 ",.01)

 +498     ;;00115-1040-01

 +499     ;;9002226.02101,"994,00115-1040-01 ",.02)

 +500     ;;00115-1040-01

 +501     ;;9002226.02101,"994,00115-1041-01 ",.01)

 +502     ;;00115-1041-01

 +503     ;;9002226.02101,"994,00115-1041-01 ",.02)

 +504     ;;00115-1041-01

 +505     ;;9002226.02101,"994,00115-1041-03 ",.01)

 +506     ;;00115-1041-03

 +507     ;;9002226.02101,"994,00115-1041-03 ",.02)

 +508     ;;00115-1041-03

 +509     ;;9002226.02101,"994,00115-1042-01 ",.01)

 +510     ;;00115-1042-01

 +511     ;;9002226.02101,"994,00115-1042-01 ",.02)

 +512     ;;00115-1042-01

 +513     ;;9002226.02101,"994,00115-1110-01 ",.01)

 +514     ;;00115-1110-01

 +515     ;;9002226.02101,"994,00115-1110-01 ",.02)

 +516     ;;00115-1110-01

 +517     ;;9002226.02101,"994,00115-1110-03 ",.01)

 +518     ;;00115-1110-03

 +519     ;;9002226.02101,"994,00115-1110-03 ",.02)

 +520     ;;00115-1110-03

 +521     ;;9002226.02101,"994,00115-1111-01 ",.01)

 +522     ;;00115-1111-01

 +523     ;;9002226.02101,"994,00115-1111-01 ",.02)

 +524     ;;00115-1111-01

 +525     ;;9002226.02101,"994,00115-1111-03 ",.01)

 +526     ;;00115-1111-03

 +527     ;;9002226.02101,"994,00115-1111-03 ",.02)

 +528     ;;00115-1111-03

 +529     ;;9002226.02101,"994,00121-0489-05 ",.01)

 +530     ;;00121-0489-05

BGP13D6.m