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

BGP73K6.m

Go to the documentation of this file.
  1. BGP73K6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"60429-0030-10 ")
  1. ;;1690
  1. ;;21,"60429-0031-01 ")
  1. ;;1691
  1. ;;21,"60429-0031-10 ")
  1. ;;1692
  1. ;;21,"60429-0038-01 ")
  1. ;;1693
  1. ;;21,"60429-0039-01 ")
  1. ;;1694
  1. ;;21,"60429-0039-10 ")
  1. ;;1695
  1. ;;21,"60429-0040-01 ")
  1. ;;1696
  1. ;;21,"60429-0040-10 ")
  1. ;;1697
  1. ;;21,"60429-0041-01 ")
  1. ;;1698
  1. ;;21,"60429-0041-10 ")
  1. ;;1699
  1. ;;21,"60429-0044-01 ")
  1. ;;1700
  1. ;;21,"60429-0044-10 ")
  1. ;;1701
  1. ;;21,"60429-0045-01 ")
  1. ;;1702
  1. ;;21,"60429-0045-10 ")
  1. ;;1703
  1. ;;21,"60429-0046-01 ")
  1. ;;1704
  1. ;;21,"60429-0046-10 ")
  1. ;;1705
  1. ;;21,"60429-0071-01 ")
  1. ;;1706
  1. ;;21,"60429-0071-05 ")
  1. ;;1707
  1. ;;21,"60429-0071-10 ")
  1. ;;1708
  1. ;;21,"60429-0071-27 ")
  1. ;;1709
  1. ;;21,"60429-0071-30 ")
  1. ;;1710
  1. ;;21,"60429-0071-60 ")
  1. ;;1711
  1. ;;21,"60429-0071-90 ")
  1. ;;1712
  1. ;;21,"60429-0072-01 ")
  1. ;;1713
  1. ;;21,"60429-0072-05 ")
  1. ;;1714
  1. ;;21,"60429-0072-10 ")
  1. ;;1715
  1. ;;21,"60429-0072-27 ")
  1. ;;1716
  1. ;;21,"60429-0072-30 ")
  1. ;;1717
  1. ;;21,"60429-0072-60 ")
  1. ;;1718
  1. ;;21,"60429-0072-90 ")
  1. ;;1719
  1. ;;21,"60429-0073-01 ")
  1. ;;1720
  1. ;;21,"60429-0073-05 ")
  1. ;;1721
  1. ;;21,"60429-0073-10 ")
  1. ;;1722
  1. ;;21,"60429-0073-27 ")
  1. ;;1723
  1. ;;21,"60429-0073-30 ")
  1. ;;1724
  1. ;;21,"60429-0073-60 ")
  1. ;;1725
  1. ;;21,"60429-0073-90 ")
  1. ;;1726
  1. ;;21,"60429-0074-01 ")
  1. ;;1727
  1. ;;21,"60429-0074-05 ")
  1. ;;1728
  1. ;;21,"60429-0074-10 ")
  1. ;;1729
  1. ;;21,"60429-0074-27 ")
  1. ;;1730
  1. ;;21,"60429-0074-30 ")
  1. ;;1731
  1. ;;21,"60429-0074-60 ")
  1. ;;1732
  1. ;;21,"60429-0074-90 ")
  1. ;;1733
  1. ;;21,"60429-0158-90 ")
  1. ;;1734
  1. ;;21,"60429-0183-10 ")
  1. ;;1735
  1. ;;21,"60429-0183-30 ")
  1. ;;1736
  1. ;;21,"60429-0183-90 ")
  1. ;;1737
  1. ;;21,"60429-0184-10 ")
  1. ;;1738
  1. ;;21,"60429-0184-30 ")
  1. ;;1739
  1. ;;21,"60429-0184-90 ")
  1. ;;1740
  1. ;;21,"60429-0185-10 ")
  1. ;;1741
  1. ;;21,"60429-0185-30 ")
  1. ;;1742
  1. ;;21,"60429-0185-90 ")
  1. ;;1743
  1. ;;21,"60429-0186-10 ")
  1. ;;1744
  1. ;;21,"60429-0186-30 ")
  1. ;;1745
  1. ;;21,"60429-0186-90 ")
  1. ;;1746
  1. ;;21,"60429-0206-01 ")
  1. ;;1747
  1. ;;21,"60429-0206-05 ")
  1. ;;1748
  1. ;;21,"60429-0207-01 ")
  1. ;;1749
  1. ;;21,"60429-0207-10 ")
  1. ;;1750
  1. ;;21,"60429-0207-30 ")
  1. ;;1751
  1. ;;21,"60429-0207-45 ")
  1. ;;1752
  1. ;;21,"60429-0207-90 ")
  1. ;;1753
  1. ;;21,"60429-0257-01 ")
  1. ;;1754
  1. ;;21,"60429-0728-01 ")
  1. ;;1755
  1. ;;21,"60429-0728-10 ")
  1. ;;1756
  1. ;;21,"60429-0728-30 ")
  1. ;;1757
  1. ;;21,"60429-0728-90 ")
  1. ;;1758
  1. ;;21,"60429-0729-01 ")
  1. ;;1759
  1. ;;21,"60429-0729-10 ")
  1. ;;1760
  1. ;;21,"60429-0729-45 ")
  1. ;;1761
  1. ;;21,"60429-0729-90 ")
  1. ;;1762
  1. ;;21,"60429-0730-01 ")
  1. ;;1763
  1. ;;21,"60429-0730-10 ")
  1. ;;1764
  1. ;;21,"60429-0730-30 ")
  1. ;;1765
  1. ;;21,"60429-0730-45 ")
  1. ;;1766
  1. ;;21,"60429-0730-90 ")
  1. ;;1767
  1. ;;21,"60429-0731-01 ")
  1. ;;1768
  1. ;;21,"60429-0731-10 ")
  1. ;;1769
  1. ;;21,"60429-0731-30 ")
  1. ;;1770
  1. ;;21,"60429-0731-45 ")
  1. ;;1771
  1. ;;21,"60429-0731-90 ")
  1. ;;1772
  1. ;;21,"60429-0732-10 ")
  1. ;;1773
  1. ;;21,"60429-0732-30 ")
  1. ;;1774
  1. ;;21,"60429-0732-90 ")
  1. ;;1775
  1. ;;21,"60429-0733-01 ")
  1. ;;1776
  1. ;;21,"60429-0733-10 ")
  1. ;;1777
  1. ;;21,"60429-0733-30 ")
  1. ;;1778
  1. ;;21,"60429-0733-45 ")
  1. ;;1779
  1. ;;21,"60429-0733-90 ")
  1. ;;1780
  1. ;;21,"60429-0755-10 ")
  1. ;;1781
  1. ;;21,"60429-0755-45 ")
  1. ;;1782
  1. ;;21,"60429-0755-90 ")
  1. ;;1783
  1. ;;21,"60429-0756-10 ")
  1. ;;1784
  1. ;;21,"60429-0756-18 ")
  1. ;;1785
  1. ;;21,"60429-0756-45 ")
  1. ;;1786
  1. ;;21,"60429-0756-90 ")
  1. ;;1787
  1. ;;21,"60429-0757-10 ")
  1. ;;1788
  1. ;;21,"60429-0757-18 ")
  1. ;;1789
  1. ;;21,"60429-0757-45 ")
  1. ;;1790
  1. ;;21,"60429-0757-90 ")
  1. ;;1791
  1. ;;21,"60505-0003-06 ")
  1. ;;1792
  1. ;;21,"60505-0003-09 ")
  1. ;;1793
  1. ;;21,"60505-0004-06 ")
  1. ;;1794
  1. ;;21,"60505-0004-09 ")
  1. ;;1795
  1. ;;21,"60505-0005-06 ")
  1. ;;1796
  1. ;;21,"60505-0005-09 ")
  1. ;;1797
  1. ;;21,"60505-0006-06 ")
  1. ;;1798
  1. ;;21,"60505-0006-09 ")
  1. ;;1799
  1. ;;21,"60505-0049-07 ")
  1. ;;1800
  1. ;;21,"60505-0049-09 ")
  1. ;;1801
  1. ;;21,"60505-0050-07 ")
  1. ;;1802
  1. ;;21,"60505-0050-09 ")
  1. ;;1803
  1. ;;21,"60505-0051-07 ")
  1. ;;1804
  1. ;;21,"60505-0051-09 ")
  1. ;;1805
  1. ;;21,"60505-0052-07 ")
  1. ;;1806
  1. ;;21,"60505-0052-09 ")
  1. ;;1807
  1. ;;21,"60505-0172-00 ")
  1. ;;1808
  1. ;;21,"60505-0172-01 ")
  1. ;;1809
  1. ;;21,"60505-0173-00 ")
  1. ;;1810
  1. ;;21,"60505-0173-01 ")
  1. ;;1811
  1. ;;21,"60505-0174-00 ")
  1. ;;1812
  1. ;;21,"60505-0174-01 ")
  1. ;;1813
  1. ;;21,"60505-0175-00 ")
  1. ;;1814
  1. ;;21,"60505-0175-01 ")
  1. ;;1815
  1. ;;21,"60505-0185-00 ")
  1. ;;1816
  1. ;;21,"60505-0185-07 ")
  1. ;;1817
  1. ;;21,"60505-0186-00 ")
  1. ;;1818
  1. ;;21,"60505-0187-07 ")
  1. ;;1819
  1. ;;21,"60505-0188-00 ")
  1. ;;1820
  1. ;;21,"60505-0188-09 ")
  1. ;;1821
  1. ;;21,"60505-0189-00 ")
  1. ;;1822
  1. ;;21,"60505-0208-01 ")
  1. ;;1823
  1. ;;21,"60505-0209-01 ")
  1. ;;1824
  1. ;;21,"60505-0261-01 ")
  1. ;;1825
  1. ;;21,"60505-0262-01 ")
  1. ;;1826
  1. ;;21,"60505-0263-01 ")
  1. ;;1827
  1. ;;21,"60505-0264-01 ")
  1. ;;1828
  1. ;;21,"60505-0265-01 ")
  1. ;;1829
  1. ;;21,"60505-0266-01 ")
  1. ;;1830
  1. ;;21,"60505-0266-05 ")
  1. ;;1831
  1. ;;21,"60505-0267-01 ")
  1. ;;1832
  1. ;;21,"60505-0267-05 ")
  1. ;;1833
  1. ;;21,"60505-0268-01 ")
  1. ;;1834
  1. ;;21,"60505-0268-05 ")
  1. ;;1835
  1. ;;21,"60505-0271-01 ")
  1. ;;1836
  1. ;;21,"60505-0272-01 ")
  1. ;;1837
  1. ;;21,"60505-2510-02 ")
  1. ;;1838
  1. ;;21,"60505-2510-04 ")
  1. ;;1839
  1. ;;21,"60505-2511-02 ")
  1. ;;1840
  1. ;;21,"60505-2511-04 ")
  1. ;;1841
  1. ;;21,"60505-2512-02 ")
  1. ;;1842
  1. ;;21,"60505-2512-08 ")
  1. ;;1843
  1. ;;21,"60505-2683-01 ")
  1. ;;1844
  1. ;;21,"60505-2684-01 ")
  1. ;;1845
  1. ;;21,"60505-2684-08 ")
  1. ;;1846
  1. ;;21,"60505-2684-09 ")
  1. ;;1847
  1. ;;21,"60505-2685-01 ")
  1. ;;1848
  1. ;;21,"60505-2685-08 ")
  1. ;;1849
  1. ;;21,"60505-2685-09 ")
  1. ;;1850
  1. ;;21,"60505-2686-01 ")
  1. ;;1851
  1. ;;21,"60505-2686-08 ")
  1. ;;1852
  1. ;;21,"60505-2686-09 ")
  1. ;;1853
  1. ;;21,"60505-2688-01 ")
  1. ;;1854
  1. ;;21,"60505-2688-08 ")
  1. ;;1855
  1. ;;21,"60505-2688-09 ")
  1. ;;1856
  1. ;;21,"60505-2689-01 ")
  1. ;;1857
  1. ;;21,"60505-2690-01 ")
  1. ;;1858
  1. ;;21,"60505-2691-01 ")
  1. ;;1859
  1. ;;21,"60505-2875-01 ")
  1. ;;1860
  1. ;;21,"60505-2876-00 ")
  1. ;;1861
  1. ;;21,"60505-2876-01 ")
  1. ;;1862
  1. ;;21,"60505-2876-05 ")
  1. ;;1863
  1. ;;21,"60505-2877-00 ")
  1. ;;1864
  1. ;;21,"60505-2877-01 ")
  1. ;;1865
  1. ;;21,"60505-2877-05 ")
  1. ;;1866
  1. ;;21,"60505-2878-00 ")
  1. ;;1867
  1. ;;21,"60505-2878-01 ")
  1. ;;1868
  1. ;;21,"60505-2878-05 ")
  1. ;;1869
  1. ;;21,"60505-3409-05 ")
  1. ;;1870
  1. ;;21,"60505-3409-09 ")
  1. ;;1871
  1. ;;21,"60505-3410-05 ")
  1. ;;1872
  1. ;;21,"60505-3410-09 ")
  1. ;;1873
  1. ;;21,"60505-3411-05 ")
  1. ;;1874
  1. ;;21,"60505-3411-09 ")
  1. ;;1875
  1. ;;21,"60687-0177-25 ")
  1. ;;1876
  1. ;;21,"60687-0177-95 ")
  1. ;;1877
  1. ;;21,"60763-1011-00 ")
  1. ;;1878
  1. ;;21,"60763-1011-02 ")
  1. ;;1879
  1. ;;21,"60763-1012-00 ")
  1. ;;1880
  1. ;;21,"60763-1012-02 ")
  1. ;;1881
  1. ;;21,"60763-1013-00 ")
  1. ;;1882
  1. ;;21,"61570-0110-01 ")
  1. ;;1883
  1. ;;21,"61570-0111-01 ")
  1. ;;1884
  1. ;;21,"61570-0112-01 ")
  1. ;;1885
  1. ;;21,"61570-0120-01 ")
  1. ;;1886
  1. ;;21,"61570-0120-80 ")
  1. ;;1887
  1. ;;21,"61894-0001-02 ")
  1. ;;1888
  1. ;;21,"61894-0002-02 ")
  1. ;;1889
  1. ;;21,"61894-0010-02 ")
  1. ;;1890
  1. ;;21,"61894-0011-02 ")
  1. ;;1891
  1. ;;21,"61894-0012-02 ")
  1. ;;1892
  1. ;;21,"62033-0101-20 ")
  1. ;;1893
  1. ;;21,"62037-0531-90 ")
  1. ;;1894
  1. ;;21,"62037-0532-90 ")
  1. ;;1895
  1. ;;21,"62037-0533-90 ")
  1. ;;1896
  1. ;;21,"62037-0534-90 ")
  1. ;;1897
  1. ;;21,"62037-0935-90 ")
  1. ;;1898
  1. ;;21,"62037-0936-90 ")
  1. ;;1899
  1. ;;21,"62037-0937-90 ")
  1. ;;1900
  1. ;;21,"62175-0171-37 ")
  1. ;;1901
  1. ;;21,"62175-0177-37 ")
  1. ;;1902
  1. ;;21,"62175-0712-37 ")
  1. ;;1903
  1. ;;21,"62175-0720-37 ")
  1. ;;1904
  1. ;;21,"62175-0725-37 ")
  1. ;;1905
  1. ;;21,"62682-6044-03 ")
  1. ;;1906
  1. ;;21,"63304-0155-01 ")
  1. ;;1907
  1. ;;21,"63304-0156-01 ")
  1. ;;1908
  1. ;;21,"63304-0157-01 ")
  1. ;;1909
  1. ;;21,"63304-0337-01 ")
  1. ;;1910
  1. ;;21,"63304-0338-01 ")
  1. ;;1911
  1. ;;21,"63304-0338-05 ")
  1. ;;1912
  1. ;;21,"63304-0339-01 ")
  1. ;;1913
  1. ;;21,"63304-0339-05 ")
  1. ;;1914
  1. ;;21,"63304-0340-01 ")
  1. ;;1915
  1. ;;21,"63304-0340-05 ")
  1. ;;1916
  1. ;;21,"63304-0403-01 ")
  1. ;;1917
  1. ;;21,"63304-0404-01 ")
  1. ;;1918
  1. ;;21,"63304-0531-01 ")
  1. ;;1919
  1. ;;21,"63304-0532-01 ")
  1. ;;1920
  1. ;;21,"63304-0532-10 ")
  1. ;;1921
  1. ;;21,"63304-0533-01 ")
  1. ;;1922
  1. ;;21,"63304-0533-10 ")
  1. ;;1923
  1. ;;21,"63304-0534-01 ")
  1. ;;1924
  1. ;;21,"63304-0534-10 ")
  1. ;;1925
  1. ;;21,"63304-0535-01 ")
  1. ;;1926
  1. ;;21,"63304-0535-10 ")
  1. ;;1927
  1. ;;21,"63304-0536-01 ")
  1. ;;1928
  1. ;;21,"63304-0536-05 ")
  1. ;;1929
  1. ;;21,"63304-0537-01 ")
  1. ;;1930
  1. ;;21,"63304-0537-05 ")
  1. ;;1931
  1. ;;21,"63304-0538-01 ")
  1. ;;1932
  1. ;;21,"63304-0538-05 ")
  1. ;;1933
  1. ;;21,"63304-0548-90 ")
  1. ;;1934
  1. ;;21,"63304-0549-90 ")
  1. ;;1935
  1. ;;21,"63304-0550-90 ")
  1. ;;1936
  1. ;;21,"63304-0551-90 ")
  1. ;;1937
  1. ;;21,"63304-0599-01 ")
  1. ;;1938
  1. ;;21,"63304-0736-01 ")
  1. ;;1939
  1. ;;21,"63304-0736-05 ")
  1. ;;1940
  1. ;;21,"63304-0737-01 ")
  1. ;;1941
  1. ;;21,"63304-0737-05 ")
  1. ;;1942
  1. ;;21,"63304-0738-01 ")
  1. ;;1943
  1. ;;21,"63304-0738-05 ")
  1. ;;1944
  1. ;;21,"63304-0739-01 ")
  1. ;;1945
  1. ;;21,"63304-0739-05 ")
  1. ;;1946
  1. ;;21,"63304-0775-10 ")
  1. ;;1947
  1. ;;21,"63304-0775-90 ")
  1. ;;1948
  1. ;;21,"63304-0776-10 ")
  1. ;;1949
  1. ;;21,"63304-0776-90 ")
  1. ;;1950
  1. ;;21,"63304-0777-10 ")
  1. ;;1951
  1. ;;21,"63304-0777-90 ")
  1. ;;1952
  1. ;;21,"63304-0834-01 ")
  1. ;;1953
  1. ;;21,"63304-0834-10 ")
  1. ;;1954
  1. ;;21,"63304-0835-01 ")
  1. ;;1955
  1. ;;21,"63304-0835-10 ")
  1. ;;1956
  1. ;;21,"63304-0836-01 ")
  1. ;;1957
  1. ;;21,"63304-0836-10 ")
  1. ;;1958
  1. ;;21,"63304-0837-01 ")
  1. ;;1959
  1. ;;21,"63304-0837-10 ")
  1. ;;1960
  1. ;;21,"63629-1240-01 ")
  1. ;;1961
  1. ;;21,"63629-1241-01 ")
  1. ;;1962
  1. ;;21,"63629-1242-01 ")
  1. ;;1963
  1. ;;21,"63629-1254-01 ")
  1. ;;1964
  1. ;;21,"63629-1338-01 ")
  1. ;;1965
  1. ;;21,"63629-1454-01 ")
  1. ;;1966
  1. ;;21,"63629-1522-01 ")
  1. ;;1967
  1. ;;21,"63629-1522-02 ")
  1. ;;1968
  1. ;;21,"63629-1522-03 ")
  1. ;;1969
  1. ;;21,"63629-1525-01 ")
  1. ;;1970
  1. ;;21,"63629-1525-02 ")
  1. ;;1971
  1. ;;21,"63629-1525-03 ")
  1. ;;1972
  1. ;;21,"63629-1526-01 ")
  1. ;;1973
  1. ;;21,"63629-1526-02 ")
  1. ;;1974
  1. ;;21,"63629-1679-01 ")
  1. ;;1975
  1. ;;21,"63629-1679-02 ")
  1. ;;1976
  1. ;;21,"63629-1679-03 ")
  1. ;;1977
  1. ;;21,"63629-1706-01 ")
  1. ;;1978
  1. ;;21,"63629-1728-01 ")
  1. ;;1979
  1. ;;21,"63629-1809-01 ")
  1. ;;1980
  1. ;;21,"63629-2541-01 ")
  1. ;;1981
  1. ;;21,"63629-2672-01 ")
  1. ;;1982
  1. ;;21,"63629-2680-01 ")
  1. ;;1983
  1. ;;21,"63629-2680-02 ")
  1. ;;1984
  1. ;;21,"63629-2688-01 ")
  1. ;;1985
  1. ;;21,"63629-2735-01 ")
  1. ;;1986
  1. ;;21,"63629-2908-01 ")
  1. ;;1987
  1. ;;21,"63629-2908-02 ")
  1. ;;1988
  1. ;;21,"63629-2908-03 ")
  1. ;;1989
  1. ;;21,"63629-2923-01 ")
  1. ;;1990
  1. ;;21,"63629-2935-01 ")
  1. ;;1991
  1. ;;21,"63739-0042-01 ")
  1. ;;1992
  1. ;;21,"63739-0043-01 ")
  1. ;;1993
  1. ;;21,"63739-0302-10 ")
  1. ;;1994
  1. ;;21,"63739-0322-05 ")
  1. ;;1995
  1. ;;21,"63739-0348-10 ")
  1. ;;1996
  1. ;;21,"63739-0349-10 ")
  1. ;;1997
  1. ;;21,"63739-0350-10 ")
  1. ;;1998
  1. ;;21,"63874-0058-10 ")
  1. ;;1999
  1. ;;21,"63874-0058-15 ")
  1. ;;2000
  1. ;;21,"63874-0058-30 ")
  1. ;;2001
  1. ;;21,"63874-0058-90 ")
  1. ;;2002
  1. ;;21,"63874-0347-01 ")
  1. ;;2003
  1. ;;21,"63874-0347-02 ")
  1. ;;2004
  1. ;;21,"63874-0347-05 ")
  1. ;;2005
  1. ;;21,"63874-0347-20 ")
  1. ;;2006
  1. ;;21,"63874-0347-30 ")
  1. ;;2007
  1. ;;21,"63874-0347-40 ")
  1. ;;2008
  1. ;;21,"63874-0347-42 ")
  1. ;;2009
  1. ;;21,"63874-0347-45 ")
  1. ;;2010
  1. ;;21,"63874-0347-90 ")
  1. ;;2011
  1. ;;21,"63874-0348-01 ")
  1. ;;2012
  1. ;;21,"63874-0348-10 ")
  1. ;;2013
  1. ;;21,"63874-0348-14 ")
  1. ;;2014
  1. ;;21,"63874-0348-20 ")
  1. ;;2015
  1. ;;21,"63874-0348-30 ")
  1. ;;2016
  1. ;;21,"63874-0348-60 ")
  1. ;;2017
  1. ;;21,"63874-0348-90 ")
  1. ;;2018
  1. ;;21,"63874-0379-10 ")
  1. ;;2019
  1. ;;21,"63874-0379-30 ")
  1. ;;2020
  1. ;;21,"63874-0423-01 ")
  1. ;;2021
  1. ;;21,"63874-0423-07 ")
  1. ;;2022