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

BGPM5AIT.m

Go to the documentation of this file.
  1. BGPM5AIT ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"58016028677 ")
  1. ;;1679
  1. ;;21,"58016028679 ")
  1. ;;1680
  1. ;;21,"58016028680 ")
  1. ;;1681
  1. ;;21,"58016028681 ")
  1. ;;1682
  1. ;;21,"58016028682 ")
  1. ;;1683
  1. ;;21,"58016028683 ")
  1. ;;1684
  1. ;;21,"58016028684 ")
  1. ;;1685
  1. ;;21,"58016028687 ")
  1. ;;1686
  1. ;;21,"58016028689 ")
  1. ;;1687
  1. ;;21,"58016028690 ")
  1. ;;1688
  1. ;;21,"58016028691 ")
  1. ;;1689
  1. ;;21,"58016028692 ")
  1. ;;1690
  1. ;;21,"58016028693 ")
  1. ;;1691
  1. ;;21,"58016028696 ")
  1. ;;1692
  1. ;;21,"58016028697 ")
  1. ;;1693
  1. ;;21,"58016028698 ")
  1. ;;1694
  1. ;;21,"58016028699 ")
  1. ;;1695
  1. ;;21,"58016033101 ")
  1. ;;1696
  1. ;;21,"58016033102 ")
  1. ;;1697
  1. ;;21,"58016033103 ")
  1. ;;1698
  1. ;;21,"58016033104 ")
  1. ;;1699
  1. ;;21,"58016033105 ")
  1. ;;1700
  1. ;;21,"58016033300 ")
  1. ;;1701
  1. ;;21,"58016033315 ")
  1. ;;1702
  1. ;;21,"58016033330 ")
  1. ;;1703
  1. ;;21,"58016033360 ")
  1. ;;1704
  1. ;;21,"58016037300 ")
  1. ;;1705
  1. ;;21,"58016037301 ")
  1. ;;1706
  1. ;;21,"58016037302 ")
  1. ;;1707
  1. ;;21,"58016037303 ")
  1. ;;1708
  1. ;;21,"58016037304 ")
  1. ;;1709
  1. ;;21,"58016037305 ")
  1. ;;1710
  1. ;;21,"58016037306 ")
  1. ;;1711
  1. ;;21,"58016037307 ")
  1. ;;1712
  1. ;;21,"58016037308 ")
  1. ;;1713
  1. ;;21,"58016037309 ")
  1. ;;1714
  1. ;;21,"58016037310 ")
  1. ;;1715
  1. ;;21,"58016037312 ")
  1. ;;1716
  1. ;;21,"58016037314 ")
  1. ;;1717
  1. ;;21,"58016037315 ")
  1. ;;1718
  1. ;;21,"58016037316 ")
  1. ;;1719
  1. ;;21,"58016037318 ")
  1. ;;1720
  1. ;;21,"58016037321 ")
  1. ;;1721
  1. ;;21,"58016037324 ")
  1. ;;1722
  1. ;;21,"58016037325 ")
  1. ;;1723
  1. ;;21,"58016037326 ")
  1. ;;1724
  1. ;;21,"58016037327 ")
  1. ;;1725
  1. ;;21,"58016037328 ")
  1. ;;1726
  1. ;;21,"58016037330 ")
  1. ;;1727
  1. ;;21,"58016037332 ")
  1. ;;1728
  1. ;;21,"58016037335 ")
  1. ;;1729
  1. ;;21,"58016037336 ")
  1. ;;1730
  1. ;;21,"58016037342 ")
  1. ;;1731
  1. ;;21,"58016037344 ")
  1. ;;1732
  1. ;;21,"58016037345 ")
  1. ;;1733
  1. ;;21,"58016037348 ")
  1. ;;1734
  1. ;;21,"58016037350 ")
  1. ;;1735
  1. ;;21,"58016037356 ")
  1. ;;1736
  1. ;;21,"58016037360 ")
  1. ;;1737
  1. ;;21,"58016037367 ")
  1. ;;1738
  1. ;;21,"58016037369 ")
  1. ;;1739
  1. ;;21,"58016037370 ")
  1. ;;1740
  1. ;;21,"58016037371 ")
  1. ;;1741
  1. ;;21,"58016037372 ")
  1. ;;1742
  1. ;;21,"58016037373 ")
  1. ;;1743
  1. ;;21,"58016037375 ")
  1. ;;1744
  1. ;;21,"58016037376 ")
  1. ;;1745
  1. ;;21,"58016037377 ")
  1. ;;1746
  1. ;;21,"58016037379 ")
  1. ;;1747
  1. ;;21,"58016037380 ")
  1. ;;1748
  1. ;;21,"58016037381 ")
  1. ;;1749
  1. ;;21,"58016037382 ")
  1. ;;1750
  1. ;;21,"58016037383 ")
  1. ;;1751
  1. ;;21,"58016037384 ")
  1. ;;1752
  1. ;;21,"58016037387 ")
  1. ;;1753
  1. ;;21,"58016037389 ")
  1. ;;1754
  1. ;;21,"58016037390 ")
  1. ;;1755
  1. ;;21,"58016037391 ")
  1. ;;1756
  1. ;;21,"58016037392 ")
  1. ;;1757
  1. ;;21,"58016037393 ")
  1. ;;1758
  1. ;;21,"58016037396 ")
  1. ;;1759
  1. ;;21,"58016037397 ")
  1. ;;1760
  1. ;;21,"58016037398 ")
  1. ;;1761
  1. ;;21,"58016037399 ")
  1. ;;1762
  1. ;;21,"58016044000 ")
  1. ;;1763
  1. ;;21,"58016044001 ")
  1. ;;1764
  1. ;;21,"58016044002 ")
  1. ;;1765
  1. ;;21,"58016044003 ")
  1. ;;1766
  1. ;;21,"58016044004 ")
  1. ;;1767
  1. ;;21,"58016044007 ")
  1. ;;1768
  1. ;;21,"58016044008 ")
  1. ;;1769
  1. ;;21,"58016044009 ")
  1. ;;1770
  1. ;;21,"58016044010 ")
  1. ;;1771
  1. ;;21,"58016044012 ")
  1. ;;1772
  1. ;;21,"58016044014 ")
  1. ;;1773
  1. ;;21,"58016044015 ")
  1. ;;1774
  1. ;;21,"58016044016 ")
  1. ;;1775
  1. ;;21,"58016044018 ")
  1. ;;1776
  1. ;;21,"58016044020 ")
  1. ;;1777
  1. ;;21,"58016044021 ")
  1. ;;1778
  1. ;;21,"58016044024 ")
  1. ;;1779
  1. ;;21,"58016044025 ")
  1. ;;1780
  1. ;;21,"58016044026 ")
  1. ;;1781
  1. ;;21,"58016044027 ")
  1. ;;1782
  1. ;;21,"58016044028 ")
  1. ;;1783
  1. ;;21,"58016044030 ")
  1. ;;1784
  1. ;;21,"58016044032 ")
  1. ;;1785
  1. ;;21,"58016044035 ")
  1. ;;1786
  1. ;;21,"58016044036 ")
  1. ;;1787
  1. ;;21,"58016044040 ")
  1. ;;1788
  1. ;;21,"58016044042 ")
  1. ;;1789
  1. ;;21,"58016044044 ")
  1. ;;1790
  1. ;;21,"58016044045 ")
  1. ;;1791
  1. ;;21,"58016044048 ")
  1. ;;1792
  1. ;;21,"58016044050 ")
  1. ;;1793
  1. ;;21,"58016044056 ")
  1. ;;1794
  1. ;;21,"58016044060 ")
  1. ;;1795
  1. ;;21,"58016044070 ")
  1. ;;1796
  1. ;;21,"58016044072 ")
  1. ;;1797
  1. ;;21,"58016044075 ")
  1. ;;1798
  1. ;;21,"58016044076 ")
  1. ;;1799
  1. ;;21,"58016044080 ")
  1. ;;1800
  1. ;;21,"58016044084 ")
  1. ;;1801
  1. ;;21,"58016044090 ")
  1. ;;1802
  1. ;;21,"58016044092 ")
  1. ;;1803
  1. ;;21,"58016044096 ")
  1. ;;1804
  1. ;;21,"58016044097 ")
  1. ;;1805
  1. ;;21,"58016044099 ")
  1. ;;1806
  1. ;;21,"58016044200 ")
  1. ;;1807
  1. ;;21,"58016044202 ")
  1. ;;1808
  1. ;;21,"58016044230 ")
  1. ;;1809
  1. ;;21,"58016044260 ")
  1. ;;1810
  1. ;;21,"58016044290 ")
  1. ;;1811
  1. ;;21,"58016044299 ")
  1. ;;1812
  1. ;;21,"58016044300 ")
  1. ;;1813
  1. ;;21,"58016047200 ")
  1. ;;1814
  1. ;;21,"58016047201 ")
  1. ;;1815
  1. ;;21,"58016047202 ")
  1. ;;1816
  1. ;;21,"58016047203 ")
  1. ;;1817
  1. ;;21,"58016047204 ")
  1. ;;1818
  1. ;;21,"58016047205 ")
  1. ;;1819
  1. ;;21,"58016047206 ")
  1. ;;1820
  1. ;;21,"58016047207 ")
  1. ;;1821
  1. ;;21,"58016047208 ")
  1. ;;1822
  1. ;;21,"58016047209 ")
  1. ;;1823
  1. ;;21,"58016047210 ")
  1. ;;1824
  1. ;;21,"58016047212 ")
  1. ;;1825
  1. ;;21,"58016047214 ")
  1. ;;1826
  1. ;;21,"58016047215 ")
  1. ;;1827
  1. ;;21,"58016047216 ")
  1. ;;1828
  1. ;;21,"58016047218 ")
  1. ;;1829
  1. ;;21,"58016047220 ")
  1. ;;1830
  1. ;;21,"58016047221 ")
  1. ;;1831
  1. ;;21,"58016047225 ")
  1. ;;1832
  1. ;;21,"58016047226 ")
  1. ;;1833
  1. ;;21,"58016047227 ")
  1. ;;1834
  1. ;;21,"58016047228 ")
  1. ;;1835
  1. ;;21,"58016047230 ")
  1. ;;1836
  1. ;;21,"58016047232 ")
  1. ;;1837
  1. ;;21,"58016047235 ")
  1. ;;1838
  1. ;;21,"58016047240 ")
  1. ;;1839
  1. ;;21,"58016047242 ")
  1. ;;1840
  1. ;;21,"58016047244 ")
  1. ;;1841
  1. ;;21,"58016047245 ")
  1. ;;1842
  1. ;;21,"58016047248 ")
  1. ;;1843
  1. ;;21,"58016047250 ")
  1. ;;1844
  1. ;;21,"58016047256 ")
  1. ;;1845
  1. ;;21,"58016047260 ")
  1. ;;1846
  1. ;;21,"58016047267 ")
  1. ;;1847
  1. ;;21,"58016047269 ")
  1. ;;1848
  1. ;;21,"58016047270 ")
  1. ;;1849
  1. ;;21,"58016047271 ")
  1. ;;1850
  1. ;;21,"58016047272 ")
  1. ;;1851
  1. ;;21,"58016047273 ")
  1. ;;1852
  1. ;;21,"58016047275 ")
  1. ;;1853
  1. ;;21,"58016047276 ")
  1. ;;1854
  1. ;;21,"58016047277 ")
  1. ;;1855
  1. ;;21,"58016047279 ")
  1. ;;1856
  1. ;;21,"58016047280 ")
  1. ;;1857
  1. ;;21,"58016047281 ")
  1. ;;1858
  1. ;;21,"58016047282 ")
  1. ;;1859
  1. ;;21,"58016047283 ")
  1. ;;1860
  1. ;;21,"58016047284 ")
  1. ;;1861
  1. ;;21,"58016047287 ")
  1. ;;1862
  1. ;;21,"58016047289 ")
  1. ;;1863
  1. ;;21,"58016047290 ")
  1. ;;1864
  1. ;;21,"58016047291 ")
  1. ;;1865
  1. ;;21,"58016047292 ")
  1. ;;1866
  1. ;;21,"58016047293 ")
  1. ;;1867
  1. ;;21,"58016047296 ")
  1. ;;1868
  1. ;;21,"58016047297 ")
  1. ;;1869
  1. ;;21,"58016047298 ")
  1. ;;1870
  1. ;;21,"58016047299 ")
  1. ;;1871
  1. ;;21,"58016052600 ")
  1. ;;1872
  1. ;;21,"58016052601 ")
  1. ;;1873
  1. ;;21,"58016052602 ")
  1. ;;1874
  1. ;;21,"58016052603 ")
  1. ;;1875
  1. ;;21,"58016052604 ")
  1. ;;1876
  1. ;;21,"58016052605 ")
  1. ;;1877
  1. ;;21,"58016052606 ")
  1. ;;1878
  1. ;;21,"58016052607 ")
  1. ;;1879
  1. ;;21,"58016052608 ")
  1. ;;1880
  1. ;;21,"58016052609 ")
  1. ;;1881
  1. ;;21,"58016052610 ")
  1. ;;1882
  1. ;;21,"58016052612 ")
  1. ;;1883
  1. ;;21,"58016052614 ")
  1. ;;1884
  1. ;;21,"58016052615 ")
  1. ;;1885
  1. ;;21,"58016052616 ")
  1. ;;1886
  1. ;;21,"58016052618 ")
  1. ;;1887
  1. ;;21,"58016052620 ")
  1. ;;1888
  1. ;;21,"58016052621 ")
  1. ;;1889
  1. ;;21,"58016052624 ")
  1. ;;1890
  1. ;;21,"58016052625 ")
  1. ;;1891
  1. ;;21,"58016052626 ")
  1. ;;1892
  1. ;;21,"58016052627 ")
  1. ;;1893
  1. ;;21,"58016052628 ")
  1. ;;1894
  1. ;;21,"58016052630 ")
  1. ;;1895
  1. ;;21,"58016052632 ")
  1. ;;1896
  1. ;;21,"58016052635 ")
  1. ;;1897
  1. ;;21,"58016052636 ")
  1. ;;1898
  1. ;;21,"58016052640 ")
  1. ;;1899
  1. ;;21,"58016052642 ")
  1. ;;1900
  1. ;;21,"58016052644 ")
  1. ;;1901
  1. ;;21,"58016052645 ")
  1. ;;1902
  1. ;;21,"58016052648 ")
  1. ;;1903
  1. ;;21,"58016052650 ")
  1. ;;1904
  1. ;;21,"58016052656 ")
  1. ;;1905
  1. ;;21,"58016052660 ")
  1. ;;1906
  1. ;;21,"58016052667 ")
  1. ;;1907
  1. ;;21,"58016052669 ")
  1. ;;1908
  1. ;;21,"58016052670 ")
  1. ;;1909
  1. ;;21,"58016052671 ")
  1. ;;1910
  1. ;;21,"58016052672 ")
  1. ;;1911
  1. ;;21,"58016052673 ")
  1. ;;1912
  1. ;;21,"58016052675 ")
  1. ;;1913
  1. ;;21,"58016052676 ")
  1. ;;1914
  1. ;;21,"58016052677 ")
  1. ;;1915
  1. ;;21,"58016052679 ")
  1. ;;1916
  1. ;;21,"58016052680 ")
  1. ;;1917
  1. ;;21,"58016052681 ")
  1. ;;1918
  1. ;;21,"58016052682 ")
  1. ;;1919
  1. ;;21,"58016052683 ")
  1. ;;1920
  1. ;;21,"58016052684 ")
  1. ;;1921
  1. ;;21,"58016052687 ")
  1. ;;1922
  1. ;;21,"58016052689 ")
  1. ;;1923
  1. ;;21,"58016052690 ")
  1. ;;1924
  1. ;;21,"58016052691 ")
  1. ;;1925
  1. ;;21,"58016052692 ")
  1. ;;1926
  1. ;;21,"58016052693 ")
  1. ;;1927
  1. ;;21,"58016052696 ")
  1. ;;1928
  1. ;;21,"58016052697 ")
  1. ;;1929
  1. ;;21,"58016052698 ")
  1. ;;1930
  1. ;;21,"58016052699 ")
  1. ;;1931
  1. ;;21,"58016052800 ")
  1. ;;1932
  1. ;;21,"58016052801 ")
  1. ;;1933
  1. ;;21,"58016052802 ")
  1. ;;1934
  1. ;;21,"58016052803 ")
  1. ;;1935
  1. ;;21,"58016052804 ")
  1. ;;1936
  1. ;;21,"58016052805 ")
  1. ;;1937
  1. ;;21,"58016052806 ")
  1. ;;1938
  1. ;;21,"58016052807 ")
  1. ;;1939
  1. ;;21,"58016052808 ")
  1. ;;1940
  1. ;;21,"58016052809 ")
  1. ;;1941
  1. ;;21,"58016052810 ")
  1. ;;1942
  1. ;;21,"58016052812 ")
  1. ;;1943
  1. ;;21,"58016052814 ")
  1. ;;1944
  1. ;;21,"58016052815 ")
  1. ;;1945
  1. ;;21,"58016052816 ")
  1. ;;1946
  1. ;;21,"58016052818 ")
  1. ;;1947
  1. ;;21,"58016052820 ")
  1. ;;1948
  1. ;;21,"58016052821 ")
  1. ;;1949
  1. ;;21,"58016052824 ")
  1. ;;1950
  1. ;;21,"58016052825 ")
  1. ;;1951
  1. ;;21,"58016052826 ")
  1. ;;1952
  1. ;;21,"58016052827 ")
  1. ;;1953
  1. ;;21,"58016052828 ")
  1. ;;1954
  1. ;;21,"58016052830 ")
  1. ;;1955
  1. ;;21,"58016052832 ")
  1. ;;1956
  1. ;;21,"58016052835 ")
  1. ;;1957
  1. ;;21,"58016052836 ")
  1. ;;1958
  1. ;;21,"58016052840 ")
  1. ;;1959
  1. ;;21,"58016052842 ")
  1. ;;1960
  1. ;;21,"58016052844 ")
  1. ;;1961
  1. ;;21,"58016052845 ")
  1. ;;1962
  1. ;;21,"58016052848 ")
  1. ;;1963
  1. ;;21,"58016052850 ")
  1. ;;1964
  1. ;;21,"58016052856 ")
  1. ;;1965
  1. ;;21,"58016052860 ")
  1. ;;1966
  1. ;;21,"58016052867 ")
  1. ;;1967
  1. ;;21,"58016052869 ")
  1. ;;1968
  1. ;;21,"58016052870 ")
  1. ;;1969
  1. ;;21,"58016052871 ")
  1. ;;1970
  1. ;;21,"58016052872 ")
  1. ;;1971
  1. ;;21,"58016052873 ")
  1. ;;1972
  1. ;;21,"58016052875 ")
  1. ;;1973
  1. ;;21,"58016052876 ")
  1. ;;1974
  1. ;;21,"58016052877 ")
  1. ;;1975
  1. ;;21,"58016052879 ")
  1. ;;1976
  1. ;;21,"58016052880 ")
  1. ;;1977
  1. ;;21,"58016052881 ")
  1. ;;1978
  1. ;;21,"58016052882 ")
  1. ;;1979
  1. ;;21,"58016052883 ")
  1. ;;1980
  1. ;;21,"58016052884 ")
  1. ;;1981
  1. ;;21,"58016052887 ")
  1. ;;1982
  1. ;;21,"58016052889 ")
  1. ;;1983
  1. ;;21,"58016052890 ")
  1. ;;1984
  1. ;;21,"58016052891 ")
  1. ;;1985
  1. ;;21,"58016052892 ")
  1. ;;1986
  1. ;;21,"58016052893 ")
  1. ;;1987
  1. ;;21,"58016052896 ")
  1. ;;1988
  1. ;;21,"58016052897 ")
  1. ;;1989
  1. ;;21,"58016052898 ")
  1. ;;1990
  1. ;;21,"58016052899 ")
  1. ;;1991
  1. ;;21,"58016052900 ")
  1. ;;1992
  1. ;;21,"58016052910 ")
  1. ;;1993
  1. ;;21,"58016052930 ")
  1. ;;1994
  1. ;;21,"58016052950 ")
  1. ;;1995
  1. ;;21,"58016053100 ")
  1. ;;1996
  1. ;;21,"58016053101 ")
  1. ;;1997
  1. ;;21,"58016053102 ")
  1. ;;1998
  1. ;;21,"58016053103 ")
  1. ;;1999
  1. ;;21,"58016053104 ")
  1. ;;2000
  1. ;;21,"58016053105 ")
  1. ;;2001
  1. ;;21,"58016053106 ")
  1. ;;2002
  1. ;;21,"58016053107 ")
  1. ;;2003
  1. ;;21,"58016053108 ")
  1. ;;2004
  1. ;;21,"58016053109 ")
  1. ;;2005
  1. ;;21,"58016053110 ")
  1. ;;2006
  1. ;;21,"58016053112 ")
  1. ;;2007
  1. ;;21,"58016053114 ")
  1. ;;2008
  1. ;;21,"58016053115 ")
  1. ;;2009
  1. ;;21,"58016053116 ")
  1. ;;2010
  1. ;;21,"58016053118 ")
  1. ;;2011
  1. ;;21,"58016053120 ")
  1. ;;2012
  1. ;;21,"58016053121 ")
  1. ;;2013
  1. ;;21,"58016053124 ")
  1. ;;2014
  1. ;;21,"58016053125 ")
  1. ;;2015
  1. ;;21,"58016053126 ")
  1. ;;2016
  1. ;;21,"58016053127 ")
  1. ;;2017
  1. ;;21,"58016053128 ")
  1. ;;2018
  1. ;;21,"58016053130 ")
  1. ;;2019
  1. ;;21,"58016053132 ")
  1. ;;2020
  1. ;;21,"58016053135 ")
  1. ;;2021
  1. ;;21,"58016053136 ")
  1. ;;2022
  1. ;;21,"58016053140 ")
  1. ;;2023
  1. ;;21,"58016053142 ")
  1. ;;2024
  1. ;;21,"58016053144 ")
  1. ;;2025
  1. ;;21,"58016053145 ")
  1. ;;2026
  1. ;;21,"58016053148 ")
  1. ;;2027
  1. ;;21,"58016053150 ")
  1. ;;2028
  1. ;;21,"58016053156 ")
  1. ;;2029
  1. ;;21,"58016053160 ")
  1. ;;2030