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

BGP71U6.m

Go to the documentation of this file.
  1. BGP71U6 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
  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,"43353-0712-60 ")
  1. ;;1690
  1. ;;21,"43353-0722-60 ")
  1. ;;1691
  1. ;;21,"43353-0726-60 ")
  1. ;;1692
  1. ;;21,"43353-0726-80 ")
  1. ;;1693
  1. ;;21,"43353-0728-60 ")
  1. ;;1694
  1. ;;21,"43353-0729-30 ")
  1. ;;1695
  1. ;;21,"43353-0729-45 ")
  1. ;;1696
  1. ;;21,"43353-0729-60 ")
  1. ;;1697
  1. ;;21,"43353-0730-30 ")
  1. ;;1698
  1. ;;21,"43353-0730-60 ")
  1. ;;1699
  1. ;;21,"43353-0800-60 ")
  1. ;;1700
  1. ;;21,"43353-0865-60 ")
  1. ;;1701
  1. ;;21,"43353-0865-80 ")
  1. ;;1702
  1. ;;21,"43353-0866-30 ")
  1. ;;1703
  1. ;;21,"43353-0866-60 ")
  1. ;;1704
  1. ;;21,"43353-0867-60 ")
  1. ;;1705
  1. ;;21,"43353-0870-45 ")
  1. ;;1706
  1. ;;21,"43353-0910-83 ")
  1. ;;1707
  1. ;;21,"43353-0926-60 ")
  1. ;;1708
  1. ;;21,"43353-0968-60 ")
  1. ;;1709
  1. ;;21,"43353-0968-80 ")
  1. ;;1710
  1. ;;21,"43353-0976-30 ")
  1. ;;1711
  1. ;;21,"43353-0976-60 ")
  1. ;;1712
  1. ;;21,"43353-0977-60 ")
  1. ;;1713
  1. ;;21,"43353-0993-30 ")
  1. ;;1714
  1. ;;21,"43353-0993-45 ")
  1. ;;1715
  1. ;;21,"43353-0993-53 ")
  1. ;;1716
  1. ;;21,"43353-0993-60 ")
  1. ;;1717
  1. ;;21,"43353-0993-80 ")
  1. ;;1718
  1. ;;21,"43353-0993-92 ")
  1. ;;1719
  1. ;;21,"43386-0080-03 ")
  1. ;;1720
  1. ;;21,"43386-0080-09 ")
  1. ;;1721
  1. ;;21,"43386-0081-03 ")
  1. ;;1722
  1. ;;21,"43386-0081-09 ")
  1. ;;1723
  1. ;;21,"43386-0082-03 ")
  1. ;;1724
  1. ;;21,"43386-0082-09 ")
  1. ;;1725
  1. ;;21,"43386-0083-03 ")
  1. ;;1726
  1. ;;21,"43386-0083-09 ")
  1. ;;1727
  1. ;;21,"43386-0710-05 ")
  1. ;;1728
  1. ;;21,"43386-0710-09 ")
  1. ;;1729
  1. ;;21,"43386-0711-05 ")
  1. ;;1730
  1. ;;21,"43386-0711-09 ")
  1. ;;1731
  1. ;;21,"43386-0712-05 ")
  1. ;;1732
  1. ;;21,"43386-0712-09 ")
  1. ;;1733
  1. ;;21,"43547-0277-03 ")
  1. ;;1734
  1. ;;21,"43547-0277-09 ")
  1. ;;1735
  1. ;;21,"43547-0277-50 ")
  1. ;;1736
  1. ;;21,"43547-0278-03 ")
  1. ;;1737
  1. ;;21,"43547-0278-09 ")
  1. ;;1738
  1. ;;21,"43547-0278-50 ")
  1. ;;1739
  1. ;;21,"43547-0279-03 ")
  1. ;;1740
  1. ;;21,"43547-0279-09 ")
  1. ;;1741
  1. ;;21,"43547-0279-50 ")
  1. ;;1742
  1. ;;21,"43547-0311-09 ")
  1. ;;1743
  1. ;;21,"43547-0312-09 ")
  1. ;;1744
  1. ;;21,"43547-0313-09 ")
  1. ;;1745
  1. ;;21,"43547-0314-09 ")
  1. ;;1746
  1. ;;21,"43547-0315-09 ")
  1. ;;1747
  1. ;;21,"43547-0330-03 ")
  1. ;;1748
  1. ;;21,"43547-0330-09 ")
  1. ;;1749
  1. ;;21,"43547-0331-03 ")
  1. ;;1750
  1. ;;21,"43547-0331-09 ")
  1. ;;1751
  1. ;;21,"43547-0335-10 ")
  1. ;;1752
  1. ;;21,"43547-0336-10 ")
  1. ;;1753
  1. ;;21,"43547-0336-50 ")
  1. ;;1754
  1. ;;21,"43547-0337-10 ")
  1. ;;1755
  1. ;;21,"43547-0337-50 ")
  1. ;;1756
  1. ;;21,"43547-0338-10 ")
  1. ;;1757
  1. ;;21,"43547-0338-50 ")
  1. ;;1758
  1. ;;21,"43547-0351-10 ")
  1. ;;1759
  1. ;;21,"43547-0351-50 ")
  1. ;;1760
  1. ;;21,"43547-0352-10 ")
  1. ;;1761
  1. ;;21,"43547-0352-11 ")
  1. ;;1762
  1. ;;21,"43547-0353-10 ")
  1. ;;1763
  1. ;;21,"43547-0353-11 ")
  1. ;;1764
  1. ;;21,"43547-0354-10 ")
  1. ;;1765
  1. ;;21,"43547-0354-11 ")
  1. ;;1766
  1. ;;21,"43547-0355-10 ")
  1. ;;1767
  1. ;;21,"43547-0355-50 ")
  1. ;;1768
  1. ;;21,"43547-0356-10 ")
  1. ;;1769
  1. ;;21,"43547-0356-11 ")
  1. ;;1770
  1. ;;21,"43547-0360-09 ")
  1. ;;1771
  1. ;;21,"43547-0360-50 ")
  1. ;;1772
  1. ;;21,"43547-0361-03 ")
  1. ;;1773
  1. ;;21,"43547-0361-09 ")
  1. ;;1774
  1. ;;21,"43547-0361-11 ")
  1. ;;1775
  1. ;;21,"43547-0362-03 ")
  1. ;;1776
  1. ;;21,"43547-0362-09 ")
  1. ;;1777
  1. ;;21,"43547-0362-11 ")
  1. ;;1778
  1. ;;21,"43547-0367-03 ")
  1. ;;1779
  1. ;;21,"43547-0368-09 ")
  1. ;;1780
  1. ;;21,"43547-0369-09 ")
  1. ;;1781
  1. ;;21,"43547-0370-09 ")
  1. ;;1782
  1. ;;21,"43683-0147-30 ")
  1. ;;1783
  1. ;;21,"43683-0148-30 ")
  1. ;;1784
  1. ;;21,"47463-0020-30 ")
  1. ;;1785
  1. ;;21,"47463-0021-30 ")
  1. ;;1786
  1. ;;21,"47463-0022-30 ")
  1. ;;1787
  1. ;;21,"47463-0023-30 ")
  1. ;;1788
  1. ;;21,"47463-0024-30 ")
  1. ;;1789
  1. ;;21,"47463-0039-30 ")
  1. ;;1790
  1. ;;21,"47463-0040-30 ")
  1. ;;1791
  1. ;;21,"47463-0043-30 ")
  1. ;;1792
  1. ;;21,"47463-0220-30 ")
  1. ;;1793
  1. ;;21,"47463-0221-30 ")
  1. ;;1794
  1. ;;21,"47463-0222-30 ")
  1. ;;1795
  1. ;;21,"47463-0223-30 ")
  1. ;;1796
  1. ;;21,"47463-0250-30 ")
  1. ;;1797
  1. ;;21,"47463-0251-30 ")
  1. ;;1798
  1. ;;21,"47463-0252-30 ")
  1. ;;1799
  1. ;;21,"47463-0253-30 ")
  1. ;;1800
  1. ;;21,"47463-0375-30 ")
  1. ;;1801
  1. ;;21,"47463-0376-30 ")
  1. ;;1802
  1. ;;21,"47463-0387-30 ")
  1. ;;1803
  1. ;;21,"47463-0387-60 ")
  1. ;;1804
  1. ;;21,"47463-0387-90 ")
  1. ;;1805
  1. ;;21,"47463-0388-30 ")
  1. ;;1806
  1. ;;21,"47463-0388-60 ")
  1. ;;1807
  1. ;;21,"47463-0388-90 ")
  1. ;;1808
  1. ;;21,"47463-0389-30 ")
  1. ;;1809
  1. ;;21,"47463-0390-30 ")
  1. ;;1810
  1. ;;21,"47463-0390-60 ")
  1. ;;1811
  1. ;;21,"47463-0409-30 ")
  1. ;;1812
  1. ;;21,"47463-0410-30 ")
  1. ;;1813
  1. ;;21,"47463-0410-90 ")
  1. ;;1814
  1. ;;21,"47463-0429-30 ")
  1. ;;1815
  1. ;;21,"47463-0618-30 ")
  1. ;;1816
  1. ;;21,"47463-0619-30 ")
  1. ;;1817
  1. ;;21,"47463-0620-30 ")
  1. ;;1818
  1. ;;21,"49158-0500-01 ")
  1. ;;1819
  1. ;;21,"49158-0500-10 ")
  1. ;;1820
  1. ;;21,"49158-0501-01 ")
  1. ;;1821
  1. ;;21,"49158-0501-10 ")
  1. ;;1822
  1. ;;21,"49158-0502-01 ")
  1. ;;1823
  1. ;;21,"49158-0502-10 ")
  1. ;;1824
  1. ;;21,"49158-0503-01 ")
  1. ;;1825
  1. ;;21,"49158-0503-10 ")
  1. ;;1826
  1. ;;21,"49848-0008-90 ")
  1. ;;1827
  1. ;;21,"49884-0172-09 ")
  1. ;;1828
  1. ;;21,"49884-0172-11 ")
  1. ;;1829
  1. ;;21,"49884-0173-09 ")
  1. ;;1830
  1. ;;21,"49884-0173-11 ")
  1. ;;1831
  1. ;;21,"49884-0174-09 ")
  1. ;;1832
  1. ;;21,"49884-0174-11 ")
  1. ;;1833
  1. ;;21,"49884-0175-09 ")
  1. ;;1834
  1. ;;21,"49884-0175-11 ")
  1. ;;1835
  1. ;;21,"49884-0185-09 ")
  1. ;;1836
  1. ;;21,"49884-0185-11 ")
  1. ;;1837
  1. ;;21,"49884-0574-11 ")
  1. ;;1838
  1. ;;21,"49884-0575-11 ")
  1. ;;1839
  1. ;;21,"49884-0576-11 ")
  1. ;;1840
  1. ;;21,"49884-0577-11 ")
  1. ;;1841
  1. ;;21,"49884-0658-09 ")
  1. ;;1842
  1. ;;21,"49884-0659-09 ")
  1. ;;1843
  1. ;;21,"49884-0660-09 ")
  1. ;;1844
  1. ;;21,"49884-0661-09 ")
  1. ;;1845
  1. ;;21,"49884-0662-09 ")
  1. ;;1846
  1. ;;21,"49884-0663-09 ")
  1. ;;1847
  1. ;;21,"49884-0664-09 ")
  1. ;;1848
  1. ;;21,"49884-0929-01 ")
  1. ;;1849
  1. ;;21,"49884-0929-05 ")
  1. ;;1850
  1. ;;21,"49884-0930-01 ")
  1. ;;1851
  1. ;;21,"49884-0930-05 ")
  1. ;;1852
  1. ;;21,"49884-0931-01 ")
  1. ;;1853
  1. ;;21,"49884-0931-05 ")
  1. ;;1854
  1. ;;21,"49884-0932-01 ")
  1. ;;1855
  1. ;;21,"49884-0932-05 ")
  1. ;;1856
  1. ;;21,"49884-0952-01 ")
  1. ;;1857
  1. ;;21,"49884-0952-05 ")
  1. ;;1858
  1. ;;21,"49884-0953-01 ")
  1. ;;1859
  1. ;;21,"49884-0953-05 ")
  1. ;;1860
  1. ;;21,"49999-0105-00 ")
  1. ;;1861
  1. ;;21,"49999-0105-10 ")
  1. ;;1862
  1. ;;21,"49999-0105-30 ")
  1. ;;1863
  1. ;;21,"49999-0105-60 ")
  1. ;;1864
  1. ;;21,"49999-0182-10 ")
  1. ;;1865
  1. ;;21,"49999-0182-30 ")
  1. ;;1866
  1. ;;21,"49999-0182-60 ")
  1. ;;1867
  1. ;;21,"49999-0182-90 ")
  1. ;;1868
  1. ;;21,"49999-0183-10 ")
  1. ;;1869
  1. ;;21,"49999-0183-30 ")
  1. ;;1870
  1. ;;21,"49999-0183-60 ")
  1. ;;1871
  1. ;;21,"49999-0183-90 ")
  1. ;;1872
  1. ;;21,"49999-0239-00 ")
  1. ;;1873
  1. ;;21,"49999-0239-30 ")
  1. ;;1874
  1. ;;21,"49999-0239-60 ")
  1. ;;1875
  1. ;;21,"49999-0240-00 ")
  1. ;;1876
  1. ;;21,"49999-0240-30 ")
  1. ;;1877
  1. ;;21,"49999-0287-30 ")
  1. ;;1878
  1. ;;21,"49999-0294-30 ")
  1. ;;1879
  1. ;;21,"49999-0295-00 ")
  1. ;;1880
  1. ;;21,"49999-0295-10 ")
  1. ;;1881
  1. ;;21,"49999-0295-30 ")
  1. ;;1882
  1. ;;21,"49999-0295-90 ")
  1. ;;1883
  1. ;;21,"49999-0305-30 ")
  1. ;;1884
  1. ;;21,"49999-0321-00 ")
  1. ;;1885
  1. ;;21,"49999-0321-30 ")
  1. ;;1886
  1. ;;21,"49999-0321-60 ")
  1. ;;1887
  1. ;;21,"49999-0345-00 ")
  1. ;;1888
  1. ;;21,"49999-0345-30 ")
  1. ;;1889
  1. ;;21,"49999-0469-10 ")
  1. ;;1890
  1. ;;21,"49999-0469-30 ")
  1. ;;1891
  1. ;;21,"49999-0469-60 ")
  1. ;;1892
  1. ;;21,"49999-0469-90 ")
  1. ;;1893
  1. ;;21,"49999-0511-30 ")
  1. ;;1894
  1. ;;21,"49999-0511-60 ")
  1. ;;1895
  1. ;;21,"49999-0543-00 ")
  1. ;;1896
  1. ;;21,"49999-0543-30 ")
  1. ;;1897
  1. ;;21,"49999-0759-30 ")
  1. ;;1898
  1. ;;21,"49999-0761-00 ")
  1. ;;1899
  1. ;;21,"49999-0761-30 ")
  1. ;;1900
  1. ;;21,"49999-0815-30 ")
  1. ;;1901
  1. ;;21,"49999-0815-90 ")
  1. ;;1902
  1. ;;21,"49999-0823-00 ")
  1. ;;1903
  1. ;;21,"49999-0823-30 ")
  1. ;;1904
  1. ;;21,"49999-0823-60 ")
  1. ;;1905
  1. ;;21,"49999-0823-90 ")
  1. ;;1906
  1. ;;21,"49999-0870-00 ")
  1. ;;1907
  1. ;;21,"49999-0870-30 ")
  1. ;;1908
  1. ;;21,"49999-0870-60 ")
  1. ;;1909
  1. ;;21,"49999-0870-90 ")
  1. ;;1910
  1. ;;21,"49999-0871-30 ")
  1. ;;1911
  1. ;;21,"49999-0871-90 ")
  1. ;;1912
  1. ;;21,"49999-0877-00 ")
  1. ;;1913
  1. ;;21,"49999-0877-30 ")
  1. ;;1914
  1. ;;21,"49999-0877-90 ")
  1. ;;1915
  1. ;;21,"49999-0878-30 ")
  1. ;;1916
  1. ;;21,"49999-0878-90 ")
  1. ;;1917
  1. ;;21,"49999-0879-00 ")
  1. ;;1918
  1. ;;21,"49999-0879-30 ")
  1. ;;1919
  1. ;;21,"49999-0880-00 ")
  1. ;;1920
  1. ;;21,"49999-0880-30 ")
  1. ;;1921
  1. ;;21,"49999-0880-90 ")
  1. ;;1922
  1. ;;21,"49999-0924-00 ")
  1. ;;1923
  1. ;;21,"49999-0924-10 ")
  1. ;;1924
  1. ;;21,"49999-0924-30 ")
  1. ;;1925
  1. ;;21,"49999-0924-60 ")
  1. ;;1926
  1. ;;21,"49999-0924-90 ")
  1. ;;1927
  1. ;;21,"49999-0934-30 ")
  1. ;;1928
  1. ;;21,"49999-0940-30 ")
  1. ;;1929
  1. ;;21,"49999-0940-90 ")
  1. ;;1930
  1. ;;21,"49999-0943-00 ")
  1. ;;1931
  1. ;;21,"49999-0943-90 ")
  1. ;;1932
  1. ;;21,"49999-0946-30 ")
  1. ;;1933
  1. ;;21,"49999-0947-30 ")
  1. ;;1934
  1. ;;21,"49999-0948-30 ")
  1. ;;1935
  1. ;;21,"49999-0988-30 ")
  1. ;;1936
  1. ;;21,"49999-0991-90 ")
  1. ;;1937
  1. ;;21,"50268-0109-11 ")
  1. ;;1938
  1. ;;21,"50268-0109-15 ")
  1. ;;1939
  1. ;;21,"50268-0110-11 ")
  1. ;;1940
  1. ;;21,"50268-0110-15 ")
  1. ;;1941
  1. ;;21,"50268-0111-11 ")
  1. ;;1942
  1. ;;21,"50268-0111-15 ")
  1. ;;1943
  1. ;;21,"50268-0112-11 ")
  1. ;;1944
  1. ;;21,"50268-0112-15 ")
  1. ;;1945
  1. ;;21,"50268-0440-11 ")
  1. ;;1946
  1. ;;21,"50268-0440-15 ")
  1. ;;1947
  1. ;;21,"50268-0441-11 ")
  1. ;;1948
  1. ;;21,"50268-0441-15 ")
  1. ;;1949
  1. ;;21,"50268-0442-11 ")
  1. ;;1950
  1. ;;21,"50268-0442-15 ")
  1. ;;1951
  1. ;;21,"50268-0513-11 ")
  1. ;;1952
  1. ;;21,"50268-0513-15 ")
  1. ;;1953
  1. ;;21,"50268-0514-11 ")
  1. ;;1954
  1. ;;21,"50268-0514-15 ")
  1. ;;1955
  1. ;;21,"50268-0515-11 ")
  1. ;;1956
  1. ;;21,"50268-0515-15 ")
  1. ;;1957
  1. ;;21,"50268-0516-11 ")
  1. ;;1958
  1. ;;21,"50268-0516-15 ")
  1. ;;1959
  1. ;;21,"50268-0517-11 ")
  1. ;;1960
  1. ;;21,"50268-0517-15 ")
  1. ;;1961
  1. ;;21,"50268-0518-11 ")
  1. ;;1962
  1. ;;21,"50268-0518-15 ")
  1. ;;1963
  1. ;;21,"50268-0688-11 ")
  1. ;;1964
  1. ;;21,"50268-0688-15 ")
  1. ;;1965
  1. ;;21,"50268-0689-11 ")
  1. ;;1966
  1. ;;21,"50268-0689-15 ")
  1. ;;1967
  1. ;;21,"50268-0690-11 ")
  1. ;;1968
  1. ;;21,"50268-0690-15 ")
  1. ;;1969
  1. ;;21,"50268-0691-11 ")
  1. ;;1970
  1. ;;21,"50268-0691-15 ")
  1. ;;1971
  1. ;;21,"50436-5000-01 ")
  1. ;;1972
  1. ;;21,"51079-0145-01 ")
  1. ;;1973
  1. ;;21,"51079-0145-20 ")
  1. ;;1974
  1. ;;21,"51079-0146-01 ")
  1. ;;1975
  1. ;;21,"51079-0146-20 ")
  1. ;;1976
  1. ;;21,"51079-0192-01 ")
  1. ;;1977
  1. ;;21,"51079-0192-03 ")
  1. ;;1978
  1. ;;21,"51079-0193-01 ")
  1. ;;1979
  1. ;;21,"51079-0193-03 ")
  1. ;;1980
  1. ;;21,"51079-0194-01 ")
  1. ;;1981
  1. ;;21,"51079-0194-03 ")
  1. ;;1982
  1. ;;21,"51079-0256-40 ")
  1. ;;1983
  1. ;;21,"51079-0261-40 ")
  1. ;;1984
  1. ;;21,"51079-0697-40 ")
  1. ;;1985
  1. ;;21,"51079-0698-40 ")
  1. ;;1986
  1. ;;21,"51079-0699-40 ")
  1. ;;1987
  1. ;;21,"51079-0863-01 ")
  1. ;;1988
  1. ;;21,"51079-0863-20 ")
  1. ;;1989
  1. ;;21,"51079-0864-01 ")
  1. ;;1990
  1. ;;21,"51079-0864-20 ")
  1. ;;1991
  1. ;;21,"51079-0950-01 ")
  1. ;;1992
  1. ;;21,"51079-0950-20 ")
  1. ;;1993
  1. ;;21,"51079-0951-01 ")
  1. ;;1994
  1. ;;21,"51079-0951-20 ")
  1. ;;1995
  1. ;;21,"51079-0952-01 ")
  1. ;;1996
  1. ;;21,"51079-0952-20 ")
  1. ;;1997
  1. ;;21,"51079-0953-01 ")
  1. ;;1998
  1. ;;21,"51079-0953-20 ")
  1. ;;1999
  1. ;;21,"51079-0981-01 ")
  1. ;;2000
  1. ;;21,"51079-0981-20 ")
  1. ;;2001
  1. ;;21,"51079-0981-30 ")
  1. ;;2002
  1. ;;21,"51079-0981-40 ")
  1. ;;2003
  1. ;;21,"51079-0981-56 ")
  1. ;;2004
  1. ;;21,"51079-0981-60 ")
  1. ;;2005
  1. ;;21,"51079-0982-01 ")
  1. ;;2006
  1. ;;21,"51079-0982-17 ")
  1. ;;2007
  1. ;;21,"51079-0982-19 ")
  1. ;;2008
  1. ;;21,"51079-0982-20 ")
  1. ;;2009
  1. ;;21,"51079-0982-30 ")
  1. ;;2010
  1. ;;21,"51079-0982-40 ")
  1. ;;2011
  1. ;;21,"51079-0982-56 ")
  1. ;;2012
  1. ;;21,"51079-0982-60 ")
  1. ;;2013
  1. ;;21,"51079-0983-01 ")
  1. ;;2014
  1. ;;21,"51079-0983-17 ")
  1. ;;2015
  1. ;;21,"51079-0983-19 ")
  1. ;;2016
  1. ;;21,"51079-0983-20 ")
  1. ;;2017
  1. ;;21,"51079-0983-30 ")
  1. ;;2018
  1. ;;21,"51079-0983-40 ")
  1. ;;2019
  1. ;;21,"51079-0983-56 ")
  1. ;;2020
  1. ;;21,"51079-0983-60 ")
  1. ;;2021
  1. ;;21,"51079-0984-01 ")
  1. ;;2022