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

BGP83A6.m

Go to the documentation of this file.
  1. BGP83A6 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"54868-0030-04 ")
  1. ;;1690
  1. ;;21,"54868-0030-05 ")
  1. ;;1691
  1. ;;21,"54868-0030-06 ")
  1. ;;1692
  1. ;;21,"54868-0030-07 ")
  1. ;;1693
  1. ;;21,"54868-0038-00 ")
  1. ;;1694
  1. ;;21,"54868-0038-01 ")
  1. ;;1695
  1. ;;21,"54868-0038-02 ")
  1. ;;1696
  1. ;;21,"54868-0038-03 ")
  1. ;;1697
  1. ;;21,"54868-0038-04 ")
  1. ;;1698
  1. ;;21,"54868-0038-05 ")
  1. ;;1699
  1. ;;21,"54868-0038-06 ")
  1. ;;1700
  1. ;;21,"54868-0039-02 ")
  1. ;;1701
  1. ;;21,"54868-0039-03 ")
  1. ;;1702
  1. ;;21,"54868-0039-05 ")
  1. ;;1703
  1. ;;21,"54868-0039-06 ")
  1. ;;1704
  1. ;;21,"54868-0059-00 ")
  1. ;;1705
  1. ;;21,"54868-0059-01 ")
  1. ;;1706
  1. ;;21,"54868-0059-02 ")
  1. ;;1707
  1. ;;21,"54868-0059-03 ")
  1. ;;1708
  1. ;;21,"54868-0059-04 ")
  1. ;;1709
  1. ;;21,"54868-0059-05 ")
  1. ;;1710
  1. ;;21,"54868-0059-06 ")
  1. ;;1711
  1. ;;21,"54868-0059-08 ")
  1. ;;1712
  1. ;;21,"54868-0059-09 ")
  1. ;;1713
  1. ;;21,"54868-0061-02 ")
  1. ;;1714
  1. ;;21,"54868-0061-03 ")
  1. ;;1715
  1. ;;21,"54868-0061-04 ")
  1. ;;1716
  1. ;;21,"54868-0061-05 ")
  1. ;;1717
  1. ;;21,"54868-0061-06 ")
  1. ;;1718
  1. ;;21,"54868-0070-00 ")
  1. ;;1719
  1. ;;21,"54868-0070-02 ")
  1. ;;1720
  1. ;;21,"54868-0092-01 ")
  1. ;;1721
  1. ;;21,"54868-0092-02 ")
  1. ;;1722
  1. ;;21,"54868-0093-00 ")
  1. ;;1723
  1. ;;21,"54868-0093-01 ")
  1. ;;1724
  1. ;;21,"54868-0522-01 ")
  1. ;;1725
  1. ;;21,"54868-0522-02 ")
  1. ;;1726
  1. ;;21,"54868-0522-03 ")
  1. ;;1727
  1. ;;21,"54868-0522-04 ")
  1. ;;1728
  1. ;;21,"54868-0522-05 ")
  1. ;;1729
  1. ;;21,"54868-0522-06 ")
  1. ;;1730
  1. ;;21,"54868-0522-07 ")
  1. ;;1731
  1. ;;21,"54868-0522-08 ")
  1. ;;1732
  1. ;;21,"54868-0703-00 ")
  1. ;;1733
  1. ;;21,"54868-0703-01 ")
  1. ;;1734
  1. ;;21,"54868-0703-02 ")
  1. ;;1735
  1. ;;21,"54868-0703-03 ")
  1. ;;1736
  1. ;;21,"54868-0778-00 ")
  1. ;;1737
  1. ;;21,"54868-0778-01 ")
  1. ;;1738
  1. ;;21,"54868-0778-03 ")
  1. ;;1739
  1. ;;21,"54868-0802-01 ")
  1. ;;1740
  1. ;;21,"54868-0802-03 ")
  1. ;;1741
  1. ;;21,"54868-0829-01 ")
  1. ;;1742
  1. ;;21,"54868-0829-02 ")
  1. ;;1743
  1. ;;21,"54868-0829-03 ")
  1. ;;1744
  1. ;;21,"54868-0829-04 ")
  1. ;;1745
  1. ;;21,"54868-0988-00 ")
  1. ;;1746
  1. ;;21,"54868-0988-01 ")
  1. ;;1747
  1. ;;21,"54868-0988-02 ")
  1. ;;1748
  1. ;;21,"54868-0988-03 ")
  1. ;;1749
  1. ;;21,"54868-0988-04 ")
  1. ;;1750
  1. ;;21,"54868-0988-05 ")
  1. ;;1751
  1. ;;21,"54868-0988-06 ")
  1. ;;1752
  1. ;;21,"54868-0988-07 ")
  1. ;;1753
  1. ;;21,"54868-0988-08 ")
  1. ;;1754
  1. ;;21,"54868-0988-09 ")
  1. ;;1755
  1. ;;21,"54868-0992-00 ")
  1. ;;1756
  1. ;;21,"54868-0992-01 ")
  1. ;;1757
  1. ;;21,"54868-0992-02 ")
  1. ;;1758
  1. ;;21,"54868-0992-03 ")
  1. ;;1759
  1. ;;21,"54868-0992-04 ")
  1. ;;1760
  1. ;;21,"54868-1251-00 ")
  1. ;;1761
  1. ;;21,"54868-1251-01 ")
  1. ;;1762
  1. ;;21,"54868-1251-02 ")
  1. ;;1763
  1. ;;21,"54868-1338-00 ")
  1. ;;1764
  1. ;;21,"54868-1338-01 ")
  1. ;;1765
  1. ;;21,"54868-1338-02 ")
  1. ;;1766
  1. ;;21,"54868-1338-03 ")
  1. ;;1767
  1. ;;21,"54868-1338-04 ")
  1. ;;1768
  1. ;;21,"54868-1338-06 ")
  1. ;;1769
  1. ;;21,"54868-1338-07 ")
  1. ;;1770
  1. ;;21,"54868-1338-08 ")
  1. ;;1771
  1. ;;21,"54868-1338-09 ")
  1. ;;1772
  1. ;;21,"54868-1339-00 ")
  1. ;;1773
  1. ;;21,"54868-1339-01 ")
  1. ;;1774
  1. ;;21,"54868-1339-02 ")
  1. ;;1775
  1. ;;21,"54868-1339-05 ")
  1. ;;1776
  1. ;;21,"54868-1341-00 ")
  1. ;;1777
  1. ;;21,"54868-1694-00 ")
  1. ;;1778
  1. ;;21,"54868-1694-02 ")
  1. ;;1779
  1. ;;21,"54868-1694-03 ")
  1. ;;1780
  1. ;;21,"54868-2126-01 ")
  1. ;;1781
  1. ;;21,"54868-2126-02 ")
  1. ;;1782
  1. ;;21,"54868-2126-04 ")
  1. ;;1783
  1. ;;21,"54868-2126-05 ")
  1. ;;1784
  1. ;;21,"54868-2126-06 ")
  1. ;;1785
  1. ;;21,"54868-2126-07 ")
  1. ;;1786
  1. ;;21,"54868-2133-00 ")
  1. ;;1787
  1. ;;21,"54868-2133-02 ")
  1. ;;1788
  1. ;;21,"54868-2133-03 ")
  1. ;;1789
  1. ;;21,"54868-2133-04 ")
  1. ;;1790
  1. ;;21,"54868-2144-00 ")
  1. ;;1791
  1. ;;21,"54868-2145-00 ")
  1. ;;1792
  1. ;;21,"54868-2145-02 ")
  1. ;;1793
  1. ;;21,"54868-2145-03 ")
  1. ;;1794
  1. ;;21,"54868-2145-04 ")
  1. ;;1795
  1. ;;21,"54868-2145-05 ")
  1. ;;1796
  1. ;;21,"54868-2145-06 ")
  1. ;;1797
  1. ;;21,"54868-2145-09 ")
  1. ;;1798
  1. ;;21,"54868-2182-00 ")
  1. ;;1799
  1. ;;21,"54868-2361-00 ")
  1. ;;1800
  1. ;;21,"54868-2361-03 ")
  1. ;;1801
  1. ;;21,"54868-2361-04 ")
  1. ;;1802
  1. ;;21,"54868-2463-00 ")
  1. ;;1803
  1. ;;21,"54868-2463-01 ")
  1. ;;1804
  1. ;;21,"54868-2574-00 ")
  1. ;;1805
  1. ;;21,"54868-2574-02 ")
  1. ;;1806
  1. ;;21,"54868-2685-00 ")
  1. ;;1807
  1. ;;21,"54868-2685-01 ")
  1. ;;1808
  1. ;;21,"54868-2929-00 ")
  1. ;;1809
  1. ;;21,"54868-2929-01 ")
  1. ;;1810
  1. ;;21,"54868-2929-02 ")
  1. ;;1811
  1. ;;21,"54868-2929-03 ")
  1. ;;1812
  1. ;;21,"54868-2929-05 ")
  1. ;;1813
  1. ;;21,"54868-2929-06 ")
  1. ;;1814
  1. ;;21,"54868-2929-07 ")
  1. ;;1815
  1. ;;21,"54868-2929-08 ")
  1. ;;1816
  1. ;;21,"54868-2930-00 ")
  1. ;;1817
  1. ;;21,"54868-2930-01 ")
  1. ;;1818
  1. ;;21,"54868-2930-02 ")
  1. ;;1819
  1. ;;21,"54868-2930-03 ")
  1. ;;1820
  1. ;;21,"54868-2930-04 ")
  1. ;;1821
  1. ;;21,"54868-2930-05 ")
  1. ;;1822
  1. ;;21,"54868-2930-07 ")
  1. ;;1823
  1. ;;21,"54868-2930-09 ")
  1. ;;1824
  1. ;;21,"54868-2931-00 ")
  1. ;;1825
  1. ;;21,"54868-2931-01 ")
  1. ;;1826
  1. ;;21,"54868-2931-03 ")
  1. ;;1827
  1. ;;21,"54868-2983-00 ")
  1. ;;1828
  1. ;;21,"54868-2983-01 ")
  1. ;;1829
  1. ;;21,"54868-2983-03 ")
  1. ;;1830
  1. ;;21,"54868-2983-04 ")
  1. ;;1831
  1. ;;21,"54868-2983-05 ")
  1. ;;1832
  1. ;;21,"54868-2983-06 ")
  1. ;;1833
  1. ;;21,"54868-2983-07 ")
  1. ;;1834
  1. ;;21,"54868-3005-01 ")
  1. ;;1835
  1. ;;21,"54868-3005-02 ")
  1. ;;1836
  1. ;;21,"54868-3005-03 ")
  1. ;;1837
  1. ;;21,"54868-3005-04 ")
  1. ;;1838
  1. ;;21,"54868-3005-05 ")
  1. ;;1839
  1. ;;21,"54868-3005-07 ")
  1. ;;1840
  1. ;;21,"54868-3005-08 ")
  1. ;;1841
  1. ;;21,"54868-3657-00 ")
  1. ;;1842
  1. ;;21,"54868-3657-01 ")
  1. ;;1843
  1. ;;21,"54868-3854-01 ")
  1. ;;1844
  1. ;;21,"54868-3854-02 ")
  1. ;;1845
  1. ;;21,"54868-3854-04 ")
  1. ;;1846
  1. ;;21,"54868-3854-05 ")
  1. ;;1847
  1. ;;21,"54868-3854-06 ")
  1. ;;1848
  1. ;;21,"54868-3854-07 ")
  1. ;;1849
  1. ;;21,"54868-3854-08 ")
  1. ;;1850
  1. ;;21,"54868-3855-01 ")
  1. ;;1851
  1. ;;21,"54868-3855-03 ")
  1. ;;1852
  1. ;;21,"54868-3855-04 ")
  1. ;;1853
  1. ;;21,"54868-3855-05 ")
  1. ;;1854
  1. ;;21,"54868-3855-06 ")
  1. ;;1855
  1. ;;21,"54868-3855-07 ")
  1. ;;1856
  1. ;;21,"54868-3855-08 ")
  1. ;;1857
  1. ;;21,"54868-3861-01 ")
  1. ;;1858
  1. ;;21,"54868-3861-02 ")
  1. ;;1859
  1. ;;21,"54868-3861-05 ")
  1. ;;1860
  1. ;;21,"54868-3861-06 ")
  1. ;;1861
  1. ;;21,"54868-4663-00 ")
  1. ;;1862
  1. ;;21,"54868-4663-01 ")
  1. ;;1863
  1. ;;21,"54868-4663-02 ")
  1. ;;1864
  1. ;;21,"54868-4663-04 ")
  1. ;;1865
  1. ;;21,"54868-4663-05 ")
  1. ;;1866
  1. ;;21,"54868-4663-06 ")
  1. ;;1867
  1. ;;21,"54868-4663-07 ")
  1. ;;1868
  1. ;;21,"54868-5490-00 ")
  1. ;;1869
  1. ;;21,"54868-5851-01 ")
  1. ;;1870
  1. ;;21,"54868-6010-00 ")
  1. ;;1871
  1. ;;21,"54868-6224-00 ")
  1. ;;1872
  1. ;;21,"55289-0011-30 ")
  1. ;;1873
  1. ;;21,"55289-0038-30 ")
  1. ;;1874
  1. ;;21,"55289-0061-06 ")
  1. ;;1875
  1. ;;21,"55289-0061-60 ")
  1. ;;1876
  1. ;;21,"55289-0062-30 ")
  1. ;;1877
  1. ;;21,"55289-0062-60 ")
  1. ;;1878
  1. ;;21,"55289-0065-30 ")
  1. ;;1879
  1. ;;21,"55289-0065-60 ")
  1. ;;1880
  1. ;;21,"55289-0091-06 ")
  1. ;;1881
  1. ;;21,"55289-0091-09 ")
  1. ;;1882
  1. ;;21,"55289-0091-10 ")
  1. ;;1883
  1. ;;21,"55289-0091-12 ")
  1. ;;1884
  1. ;;21,"55289-0091-15 ")
  1. ;;1885
  1. ;;21,"55289-0091-21 ")
  1. ;;1886
  1. ;;21,"55289-0091-30 ")
  1. ;;1887
  1. ;;21,"55289-0091-60 ")
  1. ;;1888
  1. ;;21,"55289-0091-90 ")
  1. ;;1889
  1. ;;21,"55289-0092-01 ")
  1. ;;1890
  1. ;;21,"55289-0092-02 ")
  1. ;;1891
  1. ;;21,"55289-0092-06 ")
  1. ;;1892
  1. ;;21,"55289-0092-10 ")
  1. ;;1893
  1. ;;21,"55289-0092-20 ")
  1. ;;1894
  1. ;;21,"55289-0092-25 ")
  1. ;;1895
  1. ;;21,"55289-0092-30 ")
  1. ;;1896
  1. ;;21,"55289-0092-40 ")
  1. ;;1897
  1. ;;21,"55289-0092-60 ")
  1. ;;1898
  1. ;;21,"55289-0092-90 ")
  1. ;;1899
  1. ;;21,"55289-0092-98 ")
  1. ;;1900
  1. ;;21,"55289-0117-06 ")
  1. ;;1901
  1. ;;21,"55289-0117-12 ")
  1. ;;1902
  1. ;;21,"55289-0117-20 ")
  1. ;;1903
  1. ;;21,"55289-0196-01 ")
  1. ;;1904
  1. ;;21,"55289-0196-14 ")
  1. ;;1905
  1. ;;21,"55289-0196-30 ")
  1. ;;1906
  1. ;;21,"55289-0196-60 ")
  1. ;;1907
  1. ;;21,"55289-0196-90 ")
  1. ;;1908
  1. ;;21,"55289-0345-30 ")
  1. ;;1909
  1. ;;21,"55289-0346-10 ")
  1. ;;1910
  1. ;;21,"55289-0346-20 ")
  1. ;;1911
  1. ;;21,"55289-0346-30 ")
  1. ;;1912
  1. ;;21,"55289-0402-30 ")
  1. ;;1913
  1. ;;21,"55289-0402-90 ")
  1. ;;1914
  1. ;;21,"55289-0487-02 ")
  1. ;;1915
  1. ;;21,"55289-0487-04 ")
  1. ;;1916
  1. ;;21,"55289-0487-06 ")
  1. ;;1917
  1. ;;21,"55289-0487-08 ")
  1. ;;1918
  1. ;;21,"55289-0487-09 ")
  1. ;;1919
  1. ;;21,"55289-0487-15 ")
  1. ;;1920
  1. ;;21,"55289-0487-20 ")
  1. ;;1921
  1. ;;21,"55289-0487-30 ")
  1. ;;1922
  1. ;;21,"55289-0487-60 ")
  1. ;;1923
  1. ;;21,"55289-0487-79 ")
  1. ;;1924
  1. ;;21,"55289-0487-90 ")
  1. ;;1925
  1. ;;21,"55289-0487-98 ")
  1. ;;1926
  1. ;;21,"55289-0523-01 ")
  1. ;;1927
  1. ;;21,"55289-0523-30 ")
  1. ;;1928
  1. ;;21,"55289-0523-40 ")
  1. ;;1929
  1. ;;21,"55289-0523-60 ")
  1. ;;1930
  1. ;;21,"55289-0523-90 ")
  1. ;;1931
  1. ;;21,"55289-0562-30 ")
  1. ;;1932
  1. ;;21,"55289-0562-60 ")
  1. ;;1933
  1. ;;21,"55289-0562-90 ")
  1. ;;1934
  1. ;;21,"55289-0562-98 ")
  1. ;;1935
  1. ;;21,"55289-0594-01 ")
  1. ;;1936
  1. ;;21,"55289-0594-30 ")
  1. ;;1937
  1. ;;21,"55289-0594-60 ")
  1. ;;1938
  1. ;;21,"55289-0594-90 ")
  1. ;;1939
  1. ;;21,"55289-0599-14 ")
  1. ;;1940
  1. ;;21,"55289-0599-21 ")
  1. ;;1941
  1. ;;21,"55289-0599-30 ")
  1. ;;1942
  1. ;;21,"55289-0599-60 ")
  1. ;;1943
  1. ;;21,"55289-0599-90 ")
  1. ;;1944
  1. ;;21,"55289-0660-01 ")
  1. ;;1945
  1. ;;21,"55289-0660-30 ")
  1. ;;1946
  1. ;;21,"55289-0660-60 ")
  1. ;;1947
  1. ;;21,"55289-0660-90 ")
  1. ;;1948
  1. ;;21,"55289-0787-02 ")
  1. ;;1949
  1. ;;21,"55289-0787-30 ")
  1. ;;1950
  1. ;;21,"55289-0787-60 ")
  1. ;;1951
  1. ;;21,"55289-0790-02 ")
  1. ;;1952
  1. ;;21,"55289-0920-06 ")
  1. ;;1953
  1. ;;21,"55289-0920-30 ")
  1. ;;1954
  1. ;;21,"55289-0920-40 ")
  1. ;;1955
  1. ;;21,"55289-0920-60 ")
  1. ;;1956
  1. ;;21,"55289-0920-90 ")
  1. ;;1957
  1. ;;21,"55289-0920-98 ")
  1. ;;1958
  1. ;;21,"55289-0945-06 ")
  1. ;;1959
  1. ;;21,"55289-0945-15 ")
  1. ;;1960
  1. ;;21,"55289-0945-30 ")
  1. ;;1961
  1. ;;21,"55289-0945-60 ")
  1. ;;1962
  1. ;;21,"55289-0945-90 ")
  1. ;;1963
  1. ;;21,"55289-0945-98 ")
  1. ;;1964
  1. ;;21,"55289-0962-05 ")
  1. ;;1965
  1. ;;21,"55289-0962-20 ")
  1. ;;1966
  1. ;;21,"55289-0962-30 ")
  1. ;;1967
  1. ;;21,"55289-0962-60 ")
  1. ;;1968
  1. ;;21,"55289-0962-90 ")
  1. ;;1969
  1. ;;21,"55289-0962-98 ")
  1. ;;1970
  1. ;;21,"55289-0979-20 ")
  1. ;;1971
  1. ;;21,"55289-0979-30 ")
  1. ;;1972
  1. ;;21,"55289-0979-60 ")
  1. ;;1973
  1. ;;21,"55292-0301-01 ")
  1. ;;1974
  1. ;;21,"55292-0302-01 ")
  1. ;;1975
  1. ;;21,"55292-0303-01 ")
  1. ;;1976
  1. ;;21,"55700-0039-30 ")
  1. ;;1977
  1. ;;21,"55700-0058-03 ")
  1. ;;1978
  1. ;;21,"55700-0109-60 ")
  1. ;;1979
  1. ;;21,"55700-0310-30 ")
  1. ;;1980
  1. ;;21,"55700-0312-30 ")
  1. ;;1981
  1. ;;21,"55700-0312-60 ")
  1. ;;1982
  1. ;;21,"55700-0312-90 ")
  1. ;;1983
  1. ;;21,"55700-0313-30 ")
  1. ;;1984
  1. ;;21,"55700-0313-60 ")
  1. ;;1985
  1. ;;21,"55700-0313-90 ")
  1. ;;1986
  1. ;;21,"55700-0422-30 ")
  1. ;;1987
  1. ;;21,"55700-0422-60 ")
  1. ;;1988
  1. ;;21,"55700-0422-90 ")
  1. ;;1989
  1. ;;21,"55700-0439-10 ")
  1. ;;1990
  1. ;;21,"55700-0439-20 ")
  1. ;;1991
  1. ;;21,"55700-0439-30 ")
  1. ;;1992
  1. ;;21,"55700-0439-60 ")
  1. ;;1993
  1. ;;21,"55700-0439-90 ")
  1. ;;1994
  1. ;;21,"55700-0442-02 ")
  1. ;;1995
  1. ;;21,"55700-0442-30 ")
  1. ;;1996
  1. ;;21,"55700-0442-60 ")
  1. ;;1997
  1. ;;21,"55700-0442-90 ")
  1. ;;1998
  1. ;;21,"55700-0491-30 ")
  1. ;;1999
  1. ;;21,"55700-0491-60 ")
  1. ;;2000
  1. ;;21,"55700-0491-90 ")
  1. ;;2001
  1. ;;21,"57664-0273-08 ")
  1. ;;2002
  1. ;;21,"57664-0273-13 ")
  1. ;;2003
  1. ;;21,"57664-0273-18 ")
  1. ;;2004
  1. ;;21,"57664-0274-08 ")
  1. ;;2005
  1. ;;21,"57664-0274-13 ")
  1. ;;2006
  1. ;;21,"57664-0274-18 ")
  1. ;;2007
  1. ;;21,"57664-0275-08 ")
  1. ;;2008
  1. ;;21,"57664-0275-13 ")
  1. ;;2009
  1. ;;21,"57664-0275-18 ")
  1. ;;2010
  1. ;;21,"58118-0146-03 ")
  1. ;;2011
  1. ;;21,"58118-0146-06 ")
  1. ;;2012
  1. ;;21,"58118-0147-03 ")
  1. ;;2013
  1. ;;21,"58118-0605-09 ")
  1. ;;2014
  1. ;;21,"58118-2948-06 ")
  1. ;;2015
  1. ;;21,"58118-2949-03 ")
  1. ;;2016
  1. ;;21,"58118-3926-06 ")
  1. ;;2017
  1. ;;21,"58118-3926-09 ")
  1. ;;2018
  1. ;;21,"58118-5620-03 ")
  1. ;;2019
  1. ;;21,"58118-5620-06 ")
  1. ;;2020
  1. ;;21,"58864-0145-20 ")
  1. ;;2021
  1. ;;21,"58864-0146-30 ")
  1. ;;2022