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

BGP71V6.m

Go to the documentation of this file.
  1. BGP71V6 ; 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,"59762-6691-08 ")
  1. ;;1690
  1. ;;21,"59762-6692-03 ")
  1. ;;1691
  1. ;;21,"59762-6692-08 ")
  1. ;;1692
  1. ;;21,"59762-6710-01 ")
  1. ;;1693
  1. ;;21,"59762-6711-01 ")
  1. ;;1694
  1. ;;21,"59762-6712-01 ")
  1. ;;1695
  1. ;;21,"59762-6720-01 ")
  1. ;;1696
  1. ;;21,"59762-6720-05 ")
  1. ;;1697
  1. ;;21,"59762-6720-07 ")
  1. ;;1698
  1. ;;21,"59762-6721-01 ")
  1. ;;1699
  1. ;;21,"59762-6721-05 ")
  1. ;;1700
  1. ;;21,"59762-6721-07 ")
  1. ;;1701
  1. ;;21,"59762-6722-01 ")
  1. ;;1702
  1. ;;21,"59762-6722-05 ")
  1. ;;1703
  1. ;;21,"59762-6722-07 ")
  1. ;;1704
  1. ;;21,"59762-6723-01 ")
  1. ;;1705
  1. ;;21,"59762-6730-01 ")
  1. ;;1706
  1. ;;21,"59762-6730-05 ")
  1. ;;1707
  1. ;;21,"59762-6730-07 ")
  1. ;;1708
  1. ;;21,"59762-6731-01 ")
  1. ;;1709
  1. ;;21,"59762-6731-05 ")
  1. ;;1710
  1. ;;21,"59762-6731-07 ")
  1. ;;1711
  1. ;;21,"59762-6732-01 ")
  1. ;;1712
  1. ;;21,"59762-6732-05 ")
  1. ;;1713
  1. ;;21,"59762-6732-07 ")
  1. ;;1714
  1. ;;21,"59762-6733-01 ")
  1. ;;1715
  1. ;;21,"60429-0143-05 ")
  1. ;;1716
  1. ;;21,"60429-0143-30 ")
  1. ;;1717
  1. ;;21,"60429-0143-90 ")
  1. ;;1718
  1. ;;21,"60429-0144-05 ")
  1. ;;1719
  1. ;;21,"60429-0144-30 ")
  1. ;;1720
  1. ;;21,"60429-0144-90 ")
  1. ;;1721
  1. ;;21,"60429-0145-05 ")
  1. ;;1722
  1. ;;21,"60429-0145-30 ")
  1. ;;1723
  1. ;;21,"60429-0145-90 ")
  1. ;;1724
  1. ;;21,"60429-0197-01 ")
  1. ;;1725
  1. ;;21,"60429-0198-01 ")
  1. ;;1726
  1. ;;21,"60429-0198-05 ")
  1. ;;1727
  1. ;;21,"60429-0199-01 ")
  1. ;;1728
  1. ;;21,"60429-0199-05 ")
  1. ;;1729
  1. ;;21,"60429-0385-01 ")
  1. ;;1730
  1. ;;21,"60429-0386-01 ")
  1. ;;1731
  1. ;;21,"60505-0007-04 ")
  1. ;;1732
  1. ;;21,"60505-0007-08 ")
  1. ;;1733
  1. ;;21,"60505-0008-04 ")
  1. ;;1734
  1. ;;21,"60505-0008-08 ")
  1. ;;1735
  1. ;;21,"60505-0009-04 ")
  1. ;;1736
  1. ;;21,"60505-0009-08 ")
  1. ;;1737
  1. ;;21,"60505-0010-04 ")
  1. ;;1738
  1. ;;21,"60505-0010-08 ")
  1. ;;1739
  1. ;;21,"60505-0014-06 ")
  1. ;;1740
  1. ;;21,"60505-0014-08 ")
  1. ;;1741
  1. ;;21,"60505-0015-06 ")
  1. ;;1742
  1. ;;21,"60505-0015-08 ")
  1. ;;1743
  1. ;;21,"60505-0016-06 ")
  1. ;;1744
  1. ;;21,"60505-0016-08 ")
  1. ;;1745
  1. ;;21,"60505-0193-02 ")
  1. ;;1746
  1. ;;21,"60505-0193-03 ")
  1. ;;1747
  1. ;;21,"60505-0194-02 ")
  1. ;;1748
  1. ;;21,"60505-0194-03 ")
  1. ;;1749
  1. ;;21,"60505-0195-02 ")
  1. ;;1750
  1. ;;21,"60505-0195-03 ")
  1. ;;1751
  1. ;;21,"60505-0210-03 ")
  1. ;;1752
  1. ;;21,"60505-0210-09 ")
  1. ;;1753
  1. ;;21,"60505-0211-03 ")
  1. ;;1754
  1. ;;21,"60505-0211-09 ")
  1. ;;1755
  1. ;;21,"60505-0212-03 ")
  1. ;;1756
  1. ;;21,"60505-0212-09 ")
  1. ;;1757
  1. ;;21,"60505-0213-03 ")
  1. ;;1758
  1. ;;21,"60505-0213-09 ")
  1. ;;1759
  1. ;;21,"60505-0214-03 ")
  1. ;;1760
  1. ;;21,"60505-0214-09 ")
  1. ;;1761
  1. ;;21,"60505-2740-01 ")
  1. ;;1762
  1. ;;21,"60505-2741-01 ")
  1. ;;1763
  1. ;;21,"60505-2741-05 ")
  1. ;;1764
  1. ;;21,"60505-2742-01 ")
  1. ;;1765
  1. ;;21,"60505-2742-05 ")
  1. ;;1766
  1. ;;21,"60687-0110-32 ")
  1. ;;1767
  1. ;;21,"60687-0110-33 ")
  1. ;;1768
  1. ;;21,"60760-0072-30 ")
  1. ;;1769
  1. ;;21,"60760-0072-90 ")
  1. ;;1770
  1. ;;21,"60760-0182-30 ")
  1. ;;1771
  1. ;;21,"60760-0182-90 ")
  1. ;;1772
  1. ;;21,"60760-0183-30 ")
  1. ;;1773
  1. ;;21,"60760-0183-90 ")
  1. ;;1774
  1. ;;21,"60760-0238-30 ")
  1. ;;1775
  1. ;;21,"60760-0238-90 ")
  1. ;;1776
  1. ;;21,"60760-0239-30 ")
  1. ;;1777
  1. ;;21,"60760-0239-90 ")
  1. ;;1778
  1. ;;21,"60760-0240-30 ")
  1. ;;1779
  1. ;;21,"60760-0240-90 ")
  1. ;;1780
  1. ;;21,"60760-0984-30 ")
  1. ;;1781
  1. ;;21,"60760-0984-90 ")
  1. ;;1782
  1. ;;21,"60760-0985-30 ")
  1. ;;1783
  1. ;;21,"61894-0010-02 ")
  1. ;;1784
  1. ;;21,"61894-0011-02 ")
  1. ;;1785
  1. ;;21,"61894-0012-02 ")
  1. ;;1786
  1. ;;21,"61919-0295-30 ")
  1. ;;1787
  1. ;;21,"61919-0295-71 ")
  1. ;;1788
  1. ;;21,"61919-0460-30 ")
  1. ;;1789
  1. ;;21,"61919-0460-90 ")
  1. ;;1790
  1. ;;21,"61919-0844-30 ")
  1. ;;1791
  1. ;;21,"62037-0597-05 ")
  1. ;;1792
  1. ;;21,"62037-0597-90 ")
  1. ;;1793
  1. ;;21,"62037-0598-05 ")
  1. ;;1794
  1. ;;21,"62037-0598-90 ")
  1. ;;1795
  1. ;;21,"62037-0599-05 ")
  1. ;;1796
  1. ;;21,"62037-0599-90 ")
  1. ;;1797
  1. ;;21,"62037-0600-05 ")
  1. ;;1798
  1. ;;21,"62037-0600-90 ")
  1. ;;1799
  1. ;;21,"62037-0691-30 ")
  1. ;;1800
  1. ;;21,"62037-0691-90 ")
  1. ;;1801
  1. ;;21,"62037-0692-30 ")
  1. ;;1802
  1. ;;21,"62037-0692-90 ")
  1. ;;1803
  1. ;;21,"62037-0693-30 ")
  1. ;;1804
  1. ;;21,"62037-0693-90 ")
  1. ;;1805
  1. ;;21,"62037-0694-30 ")
  1. ;;1806
  1. ;;21,"62037-0694-90 ")
  1. ;;1807
  1. ;;21,"62037-0695-30 ")
  1. ;;1808
  1. ;;21,"62037-0695-90 ")
  1. ;;1809
  1. ;;21,"62037-0696-05 ")
  1. ;;1810
  1. ;;21,"62037-0696-30 ")
  1. ;;1811
  1. ;;21,"62037-0696-90 ")
  1. ;;1812
  1. ;;21,"62037-0697-05 ")
  1. ;;1813
  1. ;;21,"62037-0697-30 ")
  1. ;;1814
  1. ;;21,"62037-0697-90 ")
  1. ;;1815
  1. ;;21,"62037-0698-05 ")
  1. ;;1816
  1. ;;21,"62037-0698-30 ")
  1. ;;1817
  1. ;;21,"62037-0698-90 ")
  1. ;;1818
  1. ;;21,"62037-0699-05 ")
  1. ;;1819
  1. ;;21,"62037-0699-30 ")
  1. ;;1820
  1. ;;21,"62037-0699-90 ")
  1. ;;1821
  1. ;;21,"62037-0700-05 ")
  1. ;;1822
  1. ;;21,"62037-0700-30 ")
  1. ;;1823
  1. ;;21,"62037-0700-90 ")
  1. ;;1824
  1. ;;21,"62175-0260-37 ")
  1. ;;1825
  1. ;;21,"62175-0260-43 ")
  1. ;;1826
  1. ;;21,"62175-0260-46 ")
  1. ;;1827
  1. ;;21,"62175-0260-55 ")
  1. ;;1828
  1. ;;21,"62175-0261-37 ")
  1. ;;1829
  1. ;;21,"62175-0261-43 ")
  1. ;;1830
  1. ;;21,"62175-0261-46 ")
  1. ;;1831
  1. ;;21,"62175-0261-55 ")
  1. ;;1832
  1. ;;21,"62175-0262-32 ")
  1. ;;1833
  1. ;;21,"62175-0262-37 ")
  1. ;;1834
  1. ;;21,"62175-0262-46 ")
  1. ;;1835
  1. ;;21,"62175-0485-37 ")
  1. ;;1836
  1. ;;21,"62175-0486-37 ")
  1. ;;1837
  1. ;;21,"62175-0487-37 ")
  1. ;;1838
  1. ;;21,"62175-0570-37 ")
  1. ;;1839
  1. ;;21,"62175-0571-37 ")
  1. ;;1840
  1. ;;21,"62175-0572-37 ")
  1. ;;1841
  1. ;;21,"62175-0580-37 ")
  1. ;;1842
  1. ;;21,"62175-0581-37 ")
  1. ;;1843
  1. ;;21,"62175-0582-37 ")
  1. ;;1844
  1. ;;21,"62175-0583-37 ")
  1. ;;1845
  1. ;;21,"62451-0733-19 ")
  1. ;;1846
  1. ;;21,"62451-0734-19 ")
  1. ;;1847
  1. ;;21,"62451-8841-54 ")
  1. ;;1848
  1. ;;21,"62451-8841-72 ")
  1. ;;1849
  1. ;;21,"62451-8851-54 ")
  1. ;;1850
  1. ;;21,"62451-8851-72 ")
  1. ;;1851
  1. ;;21,"62584-0974-01 ")
  1. ;;1852
  1. ;;21,"62584-0974-11 ")
  1. ;;1853
  1. ;;21,"62584-0974-90 ")
  1. ;;1854
  1. ;;21,"62584-0975-30 ")
  1. ;;1855
  1. ;;21,"62584-0975-90 ")
  1. ;;1856
  1. ;;21,"62584-0976-30 ")
  1. ;;1857
  1. ;;21,"62584-0976-90 ")
  1. ;;1858
  1. ;;21,"62584-0977-30 ")
  1. ;;1859
  1. ;;21,"63304-0435-01 ")
  1. ;;1860
  1. ;;21,"63304-0436-01 ")
  1. ;;1861
  1. ;;21,"63304-0437-01 ")
  1. ;;1862
  1. ;;21,"63304-0499-30 ")
  1. ;;1863
  1. ;;21,"63304-0500-30 ")
  1. ;;1864
  1. ;;21,"63304-0501-30 ")
  1. ;;1865
  1. ;;21,"63304-0502-30 ")
  1. ;;1866
  1. ;;21,"63304-0503-30 ")
  1. ;;1867
  1. ;;21,"63304-0587-30 ")
  1. ;;1868
  1. ;;21,"63304-0588-30 ")
  1. ;;1869
  1. ;;21,"63304-0589-30 ")
  1. ;;1870
  1. ;;21,"63304-0590-30 ")
  1. ;;1871
  1. ;;21,"63304-0591-30 ")
  1. ;;1872
  1. ;;21,"63304-0603-30 ")
  1. ;;1873
  1. ;;21,"63629-1454-01 ")
  1. ;;1874
  1. ;;21,"63629-1559-01 ")
  1. ;;1875
  1. ;;21,"63629-1559-02 ")
  1. ;;1876
  1. ;;21,"63629-1560-01 ")
  1. ;;1877
  1. ;;21,"63629-1561-01 ")
  1. ;;1878
  1. ;;21,"63629-1561-02 ")
  1. ;;1879
  1. ;;21,"63629-1561-03 ")
  1. ;;1880
  1. ;;21,"63629-1561-04 ")
  1. ;;1881
  1. ;;21,"63629-1565-01 ")
  1. ;;1882
  1. ;;21,"63629-1565-02 ")
  1. ;;1883
  1. ;;21,"63629-1565-03 ")
  1. ;;1884
  1. ;;21,"63629-1566-01 ")
  1. ;;1885
  1. ;;21,"63629-1566-02 ")
  1. ;;1886
  1. ;;21,"63629-1566-03 ")
  1. ;;1887
  1. ;;21,"63629-1566-04 ")
  1. ;;1888
  1. ;;21,"63629-1566-05 ")
  1. ;;1889
  1. ;;21,"63629-1597-01 ")
  1. ;;1890
  1. ;;21,"63629-3052-01 ")
  1. ;;1891
  1. ;;21,"63629-3052-02 ")
  1. ;;1892
  1. ;;21,"63629-3052-03 ")
  1. ;;1893
  1. ;;21,"63629-3564-01 ")
  1. ;;1894
  1. ;;21,"63629-3649-01 ")
  1. ;;1895
  1. ;;21,"63629-3678-01 ")
  1. ;;1896
  1. ;;21,"63629-3750-01 ")
  1. ;;1897
  1. ;;21,"63629-4073-01 ")
  1. ;;1898
  1. ;;21,"63629-4089-01 ")
  1. ;;1899
  1. ;;21,"63629-4337-01 ")
  1. ;;1900
  1. ;;21,"63629-4717-01 ")
  1. ;;1901
  1. ;;21,"63739-0079-10 ")
  1. ;;1902
  1. ;;21,"63739-0080-10 ")
  1. ;;1903
  1. ;;21,"63739-0283-10 ")
  1. ;;1904
  1. ;;21,"63739-0283-31 ")
  1. ;;1905
  1. ;;21,"63739-0284-10 ")
  1. ;;1906
  1. ;;21,"63739-0284-31 ")
  1. ;;1907
  1. ;;21,"63739-0285-04 ")
  1. ;;1908
  1. ;;21,"63739-0285-10 ")
  1. ;;1909
  1. ;;21,"63739-0285-31 ")
  1. ;;1910
  1. ;;21,"63739-0631-10 ")
  1. ;;1911
  1. ;;21,"64455-0771-47 ")
  1. ;;1912
  1. ;;21,"64455-0771-55 ")
  1. ;;1913
  1. ;;21,"64455-0772-47 ")
  1. ;;1914
  1. ;;21,"64455-0791-47 ")
  1. ;;1915
  1. ;;21,"64455-0796-50 ")
  1. ;;1916
  1. ;;21,"64455-0797-30 ")
  1. ;;1917
  1. ;;21,"64455-0797-42 ")
  1. ;;1918
  1. ;;21,"64455-0797-49 ")
  1. ;;1919
  1. ;;21,"64455-0799-42 ")
  1. ;;1920
  1. ;;21,"64679-0421-01 ")
  1. ;;1921
  1. ;;21,"64679-0422-01 ")
  1. ;;1922
  1. ;;21,"64679-0422-02 ")
  1. ;;1923
  1. ;;21,"64679-0423-01 ")
  1. ;;1924
  1. ;;21,"64679-0423-02 ")
  1. ;;1925
  1. ;;21,"65084-0412-18 ")
  1. ;;1926
  1. ;;21,"65162-0006-09 ")
  1. ;;1927
  1. ;;21,"65162-0006-50 ")
  1. ;;1928
  1. ;;21,"65162-0007-09 ")
  1. ;;1929
  1. ;;21,"65162-0007-50 ")
  1. ;;1930
  1. ;;21,"65162-0008-09 ")
  1. ;;1931
  1. ;;21,"65162-0008-50 ")
  1. ;;1932
  1. ;;21,"65243-0028-09 ")
  1. ;;1933
  1. ;;21,"65243-0054-09 ")
  1. ;;1934
  1. ;;21,"65243-0111-09 ")
  1. ;;1935
  1. ;;21,"65243-0260-09 ")
  1. ;;1936
  1. ;;21,"65243-0311-09 ")
  1. ;;1937
  1. ;;21,"65243-0312-09 ")
  1. ;;1938
  1. ;;21,"65243-0312-18 ")
  1. ;;1939
  1. ;;21,"65243-0317-09 ")
  1. ;;1940
  1. ;;21,"65243-0318-09 ")
  1. ;;1941
  1. ;;21,"65597-0110-30 ")
  1. ;;1942
  1. ;;21,"65597-0110-90 ")
  1. ;;1943
  1. ;;21,"65597-0111-30 ")
  1. ;;1944
  1. ;;21,"65597-0111-90 ")
  1. ;;1945
  1. ;;21,"65597-0112-30 ")
  1. ;;1946
  1. ;;21,"65597-0112-90 ")
  1. ;;1947
  1. ;;21,"65597-0113-30 ")
  1. ;;1948
  1. ;;21,"65597-0113-90 ")
  1. ;;1949
  1. ;;21,"65597-0114-30 ")
  1. ;;1950
  1. ;;21,"65597-0114-90 ")
  1. ;;1951
  1. ;;21,"65597-0115-30 ")
  1. ;;1952
  1. ;;21,"65597-0115-90 ")
  1. ;;1953
  1. ;;21,"65597-0116-30 ")
  1. ;;1954
  1. ;;21,"65597-0116-90 ")
  1. ;;1955
  1. ;;21,"65597-0117-30 ")
  1. ;;1956
  1. ;;21,"65597-0117-90 ")
  1. ;;1957
  1. ;;21,"65597-0118-30 ")
  1. ;;1958
  1. ;;21,"65597-0118-90 ")
  1. ;;1959
  1. ;;21,"65862-0101-05 ")
  1. ;;1960
  1. ;;21,"65862-0101-90 ")
  1. ;;1961
  1. ;;21,"65862-0101-99 ")
  1. ;;1962
  1. ;;21,"65862-0102-05 ")
  1. ;;1963
  1. ;;21,"65862-0102-90 ")
  1. ;;1964
  1. ;;21,"65862-0102-99 ")
  1. ;;1965
  1. ;;21,"65862-0103-05 ")
  1. ;;1966
  1. ;;21,"65862-0103-90 ")
  1. ;;1967
  1. ;;21,"65862-0103-99 ")
  1. ;;1968
  1. ;;21,"65862-0582-01 ")
  1. ;;1969
  1. ;;21,"65862-0582-05 ")
  1. ;;1970
  1. ;;21,"65862-0583-01 ")
  1. ;;1971
  1. ;;21,"65862-0583-05 ")
  1. ;;1972
  1. ;;21,"65862-0584-01 ")
  1. ;;1973
  1. ;;21,"65862-0584-05 ")
  1. ;;1974
  1. ;;21,"65862-0585-01 ")
  1. ;;1975
  1. ;;21,"65862-0585-05 ")
  1. ;;1976
  1. ;;21,"65862-0586-01 ")
  1. ;;1977
  1. ;;21,"65862-0586-05 ")
  1. ;;1978
  1. ;;21,"65862-0587-01 ")
  1. ;;1979
  1. ;;21,"65862-0587-05 ")
  1. ;;1980
  1. ;;21,"65862-0673-01 ")
  1. ;;1981
  1. ;;21,"65862-0673-99 ")
  1. ;;1982
  1. ;;21,"65862-0674-01 ")
  1. ;;1983
  1. ;;21,"65862-0674-99 ")
  1. ;;1984
  1. ;;21,"65862-0675-01 ")
  1. ;;1985
  1. ;;21,"65862-0675-99 ")
  1. ;;1986
  1. ;;21,"66105-0528-01 ")
  1. ;;1987
  1. ;;21,"66105-0528-03 ")
  1. ;;1988
  1. ;;21,"66105-0528-06 ")
  1. ;;1989
  1. ;;21,"66105-0528-09 ")
  1. ;;1990
  1. ;;21,"66105-0528-10 ")
  1. ;;1991
  1. ;;21,"66105-0529-01 ")
  1. ;;1992
  1. ;;21,"66105-0529-03 ")
  1. ;;1993
  1. ;;21,"66105-0529-06 ")
  1. ;;1994
  1. ;;21,"66105-0529-09 ")
  1. ;;1995
  1. ;;21,"66105-0529-10 ")
  1. ;;1996
  1. ;;21,"66116-0278-30 ")
  1. ;;1997
  1. ;;21,"66116-0432-30 ")
  1. ;;1998
  1. ;;21,"66116-0433-30 ")
  1. ;;1999
  1. ;;21,"66116-0468-30 ")
  1. ;;2000
  1. ;;21,"66116-0492-30 ")
  1. ;;2001
  1. ;;21,"66267-0212-30 ")
  1. ;;2002
  1. ;;21,"66267-0322-30 ")
  1. ;;2003
  1. ;;21,"66267-0508-30 ")
  1. ;;2004
  1. ;;21,"66267-0684-30 ")
  1. ;;2005
  1. ;;21,"66336-0127-30 ")
  1. ;;2006
  1. ;;21,"66336-0669-90 ")
  1. ;;2007
  1. ;;21,"66993-0472-02 ")
  1. ;;2008
  1. ;;21,"66993-0473-02 ")
  1. ;;2009
  1. ;;21,"66993-0475-02 ")
  1. ;;2010
  1. ;;21,"67286-0813-03 ")
  1. ;;2011
  1. ;;21,"67286-0813-04 ")
  1. ;;2012
  1. ;;21,"67286-0814-03 ")
  1. ;;2013
  1. ;;21,"67544-0071-30 ")
  1. ;;2014
  1. ;;21,"67544-0086-30 ")
  1. ;;2015
  1. ;;21,"67544-0185-60 ")
  1. ;;2016
  1. ;;21,"67544-0185-81 ")
  1. ;;2017
  1. ;;21,"67544-0185-82 ")
  1. ;;2018
  1. ;;21,"67544-0262-30 ")
  1. ;;2019
  1. ;;21,"67544-0262-60 ")
  1. ;;2020
  1. ;;21,"67544-0263-30 ")
  1. ;;2021
  1. ;;21,"67544-0263-60 ")
  1. ;;2022