Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP13D6

BGP13D6.m

Go to the documentation of this file.
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
 Q
 ;
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