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