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

BGPM5AFX.m

Go to the documentation of this file.
BGPM5AFX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"58016006950 ")
 ;;1642
 ;;21,"58016006956 ")
 ;;1643
 ;;21,"58016006960 ")
 ;;1644
 ;;21,"58016006967 ")
 ;;1645
 ;;21,"58016006969 ")
 ;;1646
 ;;21,"58016006970 ")
 ;;1647
 ;;21,"58016006971 ")
 ;;1648
 ;;21,"58016006972 ")
 ;;1649
 ;;21,"58016006973 ")
 ;;1650
 ;;21,"58016006975 ")
 ;;1651
 ;;21,"58016006976 ")
 ;;1652
 ;;21,"58016006977 ")
 ;;1653
 ;;21,"58016006979 ")
 ;;1654
 ;;21,"58016006980 ")
 ;;1655
 ;;21,"58016006981 ")
 ;;1656
 ;;21,"58016006982 ")
 ;;1657
 ;;21,"58016006983 ")
 ;;1658
 ;;21,"58016006984 ")
 ;;1659
 ;;21,"58016006987 ")
 ;;1660
 ;;21,"58016006989 ")
 ;;1661
 ;;21,"58016006990 ")
 ;;1662
 ;;21,"58016006991 ")
 ;;1663
 ;;21,"58016006992 ")
 ;;1664
 ;;21,"58016006993 ")
 ;;1665
 ;;21,"58016006996 ")
 ;;1666
 ;;21,"58016006997 ")
 ;;1667
 ;;21,"58016006998 ")
 ;;1668
 ;;21,"58016006999 ")
 ;;1669
 ;;21,"58016016500 ")
 ;;1670
 ;;21,"58016016600 ")
 ;;1671
 ;;21,"58016022800 ")
 ;;1672
 ;;21,"58016022802 ")
 ;;1673
 ;;21,"58016022830 ")
 ;;1674
 ;;21,"58016022860 ")
 ;;1675
 ;;21,"58016022890 ")
 ;;1676
 ;;21,"58016034001 ")
 ;;1677
 ;;21,"58016034004 ")
 ;;1678
 ;;21,"58016034005 ")
 ;;1679
 ;;21,"58016034006 ")
 ;;1680
 ;;21,"58016034007 ")
 ;;1681
 ;;21,"58016034008 ")
 ;;1682
 ;;21,"58016034009 ")
 ;;1683
 ;;21,"58016034012 ")
 ;;1684
 ;;21,"58016034014 ")
 ;;1685
 ;;21,"58016034016 ")
 ;;1686
 ;;21,"58016034018 ")
 ;;1687
 ;;21,"58016034021 ")
 ;;1688
 ;;21,"58016034024 ")
 ;;1689
 ;;21,"58016034025 ")
 ;;1690
 ;;21,"58016034026 ")
 ;;1691
 ;;21,"58016034027 ")
 ;;1692
 ;;21,"58016034032 ")
 ;;1693
 ;;21,"58016034035 ")
 ;;1694
 ;;21,"58016034036 ")
 ;;1695
 ;;21,"58016034042 ")
 ;;1696
 ;;21,"58016034044 ")
 ;;1697
 ;;21,"58016034045 ")
 ;;1698
 ;;21,"58016034048 ")
 ;;1699
 ;;21,"58016034050 ")
 ;;1700
 ;;21,"58016034056 ")
 ;;1701
 ;;21,"58016034060 ")
 ;;1702
 ;;21,"58016034067 ")
 ;;1703
 ;;21,"58016034069 ")
 ;;1704
 ;;21,"58016034070 ")
 ;;1705
 ;;21,"58016034071 ")
 ;;1706
 ;;21,"58016034072 ")
 ;;1707
 ;;21,"58016034075 ")
 ;;1708
 ;;21,"58016034076 ")
 ;;1709
 ;;21,"58016034077 ")
 ;;1710
 ;;21,"58016034079 ")
 ;;1711
 ;;21,"58016034080 ")
 ;;1712
 ;;21,"58016034081 ")
 ;;1713
 ;;21,"58016034082 ")
 ;;1714
 ;;21,"58016034083 ")
 ;;1715
 ;;21,"58016034084 ")
 ;;1716
 ;;21,"58016034087 ")
 ;;1717
 ;;21,"58016034090 ")
 ;;1718
 ;;21,"58016034091 ")
 ;;1719
 ;;21,"58016034092 ")
 ;;1720
 ;;21,"58016034093 ")
 ;;1721
 ;;21,"58016034096 ")
 ;;1722
 ;;21,"58016034097 ")
 ;;1723
 ;;21,"58016034098 ")
 ;;1724
 ;;21,"58016034099 ")
 ;;1725
 ;;21,"58016057900 ")
 ;;1726
 ;;21,"58016057901 ")
 ;;1727
 ;;21,"58016057902 ")
 ;;1728
 ;;21,"58016057903 ")
 ;;1729
 ;;21,"58016057904 ")
 ;;1730
 ;;21,"58016057905 ")
 ;;1731
 ;;21,"58016057906 ")
 ;;1732
 ;;21,"58016057907 ")
 ;;1733
 ;;21,"58016057908 ")
 ;;1734
 ;;21,"58016057909 ")
 ;;1735
 ;;21,"58016057910 ")
 ;;1736
 ;;21,"58016057912 ")
 ;;1737
 ;;21,"58016057914 ")
 ;;1738
 ;;21,"58016057915 ")
 ;;1739
 ;;21,"58016057916 ")
 ;;1740
 ;;21,"58016057918 ")
 ;;1741
 ;;21,"58016057920 ")
 ;;1742
 ;;21,"58016057921 ")
 ;;1743
 ;;21,"58016057924 ")
 ;;1744
 ;;21,"58016057925 ")
 ;;1745
 ;;21,"58016057926 ")
 ;;1746
 ;;21,"58016057927 ")
 ;;1747
 ;;21,"58016057928 ")
 ;;1748
 ;;21,"58016057930 ")
 ;;1749
 ;;21,"58016057932 ")
 ;;1750
 ;;21,"58016057935 ")
 ;;1751
 ;;21,"58016057936 ")
 ;;1752
 ;;21,"58016057940 ")
 ;;1753
 ;;21,"58016057942 ")
 ;;1754
 ;;21,"58016057944 ")
 ;;1755
 ;;21,"58016057945 ")
 ;;1756
 ;;21,"58016057948 ")
 ;;1757
 ;;21,"58016057950 ")
 ;;1758
 ;;21,"58016057956 ")
 ;;1759
 ;;21,"58016057960 ")
 ;;1760
 ;;21,"58016057967 ")
 ;;1761
 ;;21,"58016057969 ")
 ;;1762
 ;;21,"58016057970 ")
 ;;1763
 ;;21,"58016057971 ")
 ;;1764
 ;;21,"58016057972 ")
 ;;1765
 ;;21,"58016057973 ")
 ;;1766
 ;;21,"58016057975 ")
 ;;1767
 ;;21,"58016057976 ")
 ;;1768
 ;;21,"58016057977 ")
 ;;1769
 ;;21,"58016057979 ")
 ;;1770
 ;;21,"58016057980 ")
 ;;1771
 ;;21,"58016057981 ")
 ;;1772
 ;;21,"58016057982 ")
 ;;1773
 ;;21,"58016057983 ")
 ;;1774
 ;;21,"58016057984 ")
 ;;1775
 ;;21,"58016057987 ")
 ;;1776
 ;;21,"58016057989 ")
 ;;1777
 ;;21,"58016057990 ")
 ;;1778
 ;;21,"58016057991 ")
 ;;1779
 ;;21,"58016057992 ")
 ;;1780
 ;;21,"58016057993 ")
 ;;1781
 ;;21,"58016057996 ")
 ;;1782
 ;;21,"58016057997 ")
 ;;1783
 ;;21,"58016057998 ")
 ;;1784
 ;;21,"58016057999 ")
 ;;1785
 ;;21,"58016058000 ")
 ;;1786
 ;;21,"58016058001 ")
 ;;1787
 ;;21,"58016058002 ")
 ;;1788
 ;;21,"58016058003 ")
 ;;1789
 ;;21,"58016058004 ")
 ;;1790
 ;;21,"58016058005 ")
 ;;1791
 ;;21,"58016058006 ")
 ;;1792
 ;;21,"58016058007 ")
 ;;1793
 ;;21,"58016058008 ")
 ;;1794
 ;;21,"58016058009 ")
 ;;1795
 ;;21,"58016058010 ")
 ;;1796
 ;;21,"58016058012 ")
 ;;1797
 ;;21,"58016058014 ")
 ;;1798
 ;;21,"58016058015 ")
 ;;1799
 ;;21,"58016058016 ")
 ;;1800
 ;;21,"58016058018 ")
 ;;1801
 ;;21,"58016058020 ")
 ;;1802
 ;;21,"58016058021 ")
 ;;1803
 ;;21,"58016058024 ")
 ;;1804
 ;;21,"58016058025 ")
 ;;1805
 ;;21,"58016058026 ")
 ;;1806
 ;;21,"58016058027 ")
 ;;1807
 ;;21,"58016058028 ")
 ;;1808
 ;;21,"58016058030 ")
 ;;1809
 ;;21,"58016058032 ")
 ;;1810
 ;;21,"58016058035 ")
 ;;1811
 ;;21,"58016058036 ")
 ;;1812
 ;;21,"58016058040 ")
 ;;1813
 ;;21,"58016058042 ")
 ;;1814
 ;;21,"58016058044 ")
 ;;1815
 ;;21,"58016058045 ")
 ;;1816
 ;;21,"58016058048 ")
 ;;1817
 ;;21,"58016058050 ")
 ;;1818
 ;;21,"58016058056 ")
 ;;1819
 ;;21,"58016058060 ")
 ;;1820
 ;;21,"58016058067 ")
 ;;1821
 ;;21,"58016058069 ")
 ;;1822
 ;;21,"58016058070 ")
 ;;1823
 ;;21,"58016058071 ")
 ;;1824
 ;;21,"58016058072 ")
 ;;1825
 ;;21,"58016058073 ")
 ;;1826
 ;;21,"58016058075 ")
 ;;1827
 ;;21,"58016058076 ")
 ;;1828
 ;;21,"58016058077 ")
 ;;1829
 ;;21,"58016058079 ")
 ;;1830
 ;;21,"58016058080 ")
 ;;1831
 ;;21,"58016058081 ")
 ;;1832
 ;;21,"58016058082 ")
 ;;1833
 ;;21,"58016058083 ")
 ;;1834
 ;;21,"58016058084 ")
 ;;1835
 ;;21,"58016058087 ")
 ;;1836
 ;;21,"58016058089 ")
 ;;1837
 ;;21,"58016058090 ")
 ;;1838
 ;;21,"58016058091 ")
 ;;1839
 ;;21,"58016058092 ")
 ;;1840
 ;;21,"58016058093 ")
 ;;1841
 ;;21,"58016058096 ")
 ;;1842
 ;;21,"58016058097 ")
 ;;1843
 ;;21,"58016058098 ")
 ;;1844
 ;;21,"58016058099 ")
 ;;1845
 ;;21,"58016058100 ")
 ;;1846
 ;;21,"58016058101 ")
 ;;1847
 ;;21,"58016058102 ")
 ;;1848
 ;;21,"58016058103 ")
 ;;1849
 ;;21,"58016058104 ")
 ;;1850
 ;;21,"58016058105 ")
 ;;1851
 ;;21,"58016058106 ")
 ;;1852
 ;;21,"58016058107 ")
 ;;1853
 ;;21,"58016058108 ")
 ;;1854
 ;;21,"58016058109 ")
 ;;1855
 ;;21,"58016058110 ")
 ;;1856
 ;;21,"58016058112 ")
 ;;1857
 ;;21,"58016058114 ")
 ;;1858
 ;;21,"58016058115 ")
 ;;1859
 ;;21,"58016058116 ")
 ;;1860
 ;;21,"58016058118 ")
 ;;1861
 ;;21,"58016058120 ")
 ;;1862
 ;;21,"58016058121 ")
 ;;1863
 ;;21,"58016058124 ")
 ;;1864
 ;;21,"58016058125 ")
 ;;1865
 ;;21,"58016058126 ")
 ;;1866
 ;;21,"58016058127 ")
 ;;1867
 ;;21,"58016058128 ")
 ;;1868
 ;;21,"58016058130 ")
 ;;1869
 ;;21,"58016058132 ")
 ;;1870
 ;;21,"58016058135 ")
 ;;1871
 ;;21,"58016058136 ")
 ;;1872
 ;;21,"58016058140 ")
 ;;1873
 ;;21,"58016058142 ")
 ;;1874
 ;;21,"58016058144 ")
 ;;1875
 ;;21,"58016058145 ")
 ;;1876
 ;;21,"58016058148 ")
 ;;1877
 ;;21,"58016058150 ")
 ;;1878
 ;;21,"58016058156 ")
 ;;1879
 ;;21,"58016058160 ")
 ;;1880
 ;;21,"58016058167 ")
 ;;1881
 ;;21,"58016058169 ")
 ;;1882
 ;;21,"58016058170 ")
 ;;1883
 ;;21,"58016058171 ")
 ;;1884
 ;;21,"58016058172 ")
 ;;1885
 ;;21,"58016058173 ")
 ;;1886
 ;;21,"58016058175 ")
 ;;1887
 ;;21,"58016058176 ")
 ;;1888
 ;;21,"58016058177 ")
 ;;1889
 ;;21,"58016058179 ")
 ;;1890
 ;;21,"58016058180 ")
 ;;1891
 ;;21,"58016058181 ")
 ;;1892
 ;;21,"58016058182 ")
 ;;1893
 ;;21,"58016058183 ")
 ;;1894
 ;;21,"58016058184 ")
 ;;1895
 ;;21,"58016058187 ")
 ;;1896
 ;;21,"58016058189 ")
 ;;1897
 ;;21,"58016058190 ")
 ;;1898
 ;;21,"58016058191 ")
 ;;1899
 ;;21,"58016058192 ")
 ;;1900
 ;;21,"58016058193 ")
 ;;1901
 ;;21,"58016058196 ")
 ;;1902
 ;;21,"58016058197 ")
 ;;1903
 ;;21,"58016058198 ")
 ;;1904
 ;;21,"58016058199 ")
 ;;1905
 ;;21,"58016091700 ")
 ;;1906
 ;;21,"58016091701 ")
 ;;1907
 ;;21,"58016091702 ")
 ;;1908
 ;;21,"58016091703 ")
 ;;1909
 ;;21,"58016091704 ")
 ;;1910
 ;;21,"58016091705 ")
 ;;1911
 ;;21,"58016091706 ")
 ;;1912
 ;;21,"58016091708 ")
 ;;1913
 ;;21,"58016091709 ")
 ;;1914
 ;;21,"58016091710 ")
 ;;1915
 ;;21,"58016091712 ")
 ;;1916
 ;;21,"58016091714 ")
 ;;1917
 ;;21,"58016091715 ")
 ;;1918
 ;;21,"58016091716 ")
 ;;1919
 ;;21,"58016091718 ")
 ;;1920
 ;;21,"58016091720 ")
 ;;1921
 ;;21,"58016091721 ")
 ;;1922
 ;;21,"58016091724 ")
 ;;1923
 ;;21,"58016091725 ")
 ;;1924
 ;;21,"58016091726 ")
 ;;1925
 ;;21,"58016091727 ")
 ;;1926
 ;;21,"58016091728 ")
 ;;1927
 ;;21,"58016091730 ")
 ;;1928
 ;;21,"58016091732 ")
 ;;1929
 ;;21,"58016091735 ")
 ;;1930
 ;;21,"58016091736 ")
 ;;1931
 ;;21,"58016091740 ")
 ;;1932
 ;;21,"58016091742 ")
 ;;1933
 ;;21,"58016091744 ")
 ;;1934
 ;;21,"58016091745 ")
 ;;1935
 ;;21,"58016091748 ")
 ;;1936
 ;;21,"58016091750 ")
 ;;1937
 ;;21,"58016091756 ")
 ;;1938
 ;;21,"58016091760 ")
 ;;1939
 ;;21,"58016091767 ")
 ;;1940
 ;;21,"58016091769 ")
 ;;1941
 ;;21,"58016091770 ")
 ;;1942
 ;;21,"58016091771 ")
 ;;1943
 ;;21,"58016091772 ")
 ;;1944
 ;;21,"58016091773 ")
 ;;1945
 ;;21,"58016091775 ")
 ;;1946
 ;;21,"58016091776 ")
 ;;1947
 ;;21,"58016091777 ")
 ;;1948
 ;;21,"58016091779 ")
 ;;1949
 ;;21,"58016091780 ")
 ;;1950
 ;;21,"58016091781 ")
 ;;1951
 ;;21,"58016091782 ")
 ;;1952
 ;;21,"58016091783 ")
 ;;1953
 ;;21,"58016091784 ")
 ;;1954
 ;;21,"58016091787 ")
 ;;1955
 ;;21,"58016091789 ")
 ;;1956
 ;;21,"58016091790 ")
 ;;1957
 ;;21,"58016091791 ")
 ;;1958
 ;;21,"58016091792 ")
 ;;1959
 ;;21,"58016091793 ")
 ;;1960
 ;;21,"58016091796 ")
 ;;1961
 ;;21,"58016091797 ")
 ;;1962
 ;;21,"58016091798 ")
 ;;1963
 ;;21,"58016091799 ")
 ;;1964
 ;;21,"58016093500 ")
 ;;1965
 ;;21,"58016093501 ")
 ;;1966
 ;;21,"58016093502 ")
 ;;1967
 ;;21,"58016093503 ")
 ;;1968
 ;;21,"58016093504 ")
 ;;1969
 ;;21,"58016093505 ")
 ;;1970
 ;;21,"58016093506 ")
 ;;1971
 ;;21,"58016093507 ")
 ;;1972
 ;;21,"58016093508 ")
 ;;1973
 ;;21,"58016093509 ")
 ;;1974
 ;;21,"58016093510 ")
 ;;1975
 ;;21,"58016093512 ")
 ;;1976
 ;;21,"58016093514 ")
 ;;1977
 ;;21,"58016093515 ")
 ;;1978
 ;;21,"58016093516 ")
 ;;1979
 ;;21,"58016093518 ")
 ;;1980
 ;;21,"58016093520 ")
 ;;1981
 ;;21,"58016093521 ")
 ;;1982
 ;;21,"58016093524 ")
 ;;1983
 ;;21,"58016093525 ")
 ;;1984
 ;;21,"58016093526 ")
 ;;1985
 ;;21,"58016093527 ")
 ;;1986
 ;;21,"58016093530 ")
 ;;1987
 ;;21,"58016093532 ")
 ;;1988
 ;;21,"58016093535 ")
 ;;1989
 ;;21,"58016093536 ")
 ;;1990
 ;;21,"58016093540 ")
 ;;1991
 ;;21,"58016093542 ")
 ;;1992
 ;;21,"58016093544 ")
 ;;1993