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

BGPM5BAU.m

Go to the documentation of this file.
  1. BGPM5BAU ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"49999012820 ")
  1. ;;1595
  1. ;;21,"49999012830 ")
  1. ;;1596
  1. ;;21,"49999012860 ")
  1. ;;1597
  1. ;;21,"49999012890 ")
  1. ;;1598
  1. ;;21,"49999015600 ")
  1. ;;1599
  1. ;;21,"49999015614 ")
  1. ;;1600
  1. ;;21,"49999015620 ")
  1. ;;1601
  1. ;;21,"49999015630 ")
  1. ;;1602
  1. ;;21,"49999015660 ")
  1. ;;1603
  1. ;;21,"49999020500 ")
  1. ;;1604
  1. ;;21,"49999020530 ")
  1. ;;1605
  1. ;;21,"49999020560 ")
  1. ;;1606
  1. ;;21,"49999021525 ")
  1. ;;1607
  1. ;;21,"49999021530 ")
  1. ;;1608
  1. ;;21,"49999021560 ")
  1. ;;1609
  1. ;;21,"49999021590 ")
  1. ;;1610
  1. ;;21,"49999022800 ")
  1. ;;1611
  1. ;;21,"49999022830 ")
  1. ;;1612
  1. ;;21,"49999022860 ")
  1. ;;1613
  1. ;;21,"49999022890 ")
  1. ;;1614
  1. ;;21,"49999031800 ")
  1. ;;1615
  1. ;;21,"49999031830 ")
  1. ;;1616
  1. ;;21,"49999031860 ")
  1. ;;1617
  1. ;;21,"49999034300 ")
  1. ;;1618
  1. ;;21,"49999034315 ")
  1. ;;1619
  1. ;;21,"49999034330 ")
  1. ;;1620
  1. ;;21,"49999034360 ")
  1. ;;1621
  1. ;;21,"49999036214 ")
  1. ;;1622
  1. ;;21,"49999036230 ")
  1. ;;1623
  1. ;;21,"49999036290 ")
  1. ;;1624
  1. ;;21,"49999040030 ")
  1. ;;1625
  1. ;;21,"49999053830 ")
  1. ;;1626
  1. ;;21,"49999055130 ")
  1. ;;1627
  1. ;;21,"49999061330 ")
  1. ;;1628
  1. ;;21,"49999062930 ")
  1. ;;1629
  1. ;;21,"49999062960 ")
  1. ;;1630
  1. ;;21,"49999063030 ")
  1. ;;1631
  1. ;;21,"49999063130 ")
  1. ;;1632
  1. ;;21,"49999063160 ")
  1. ;;1633
  1. ;;21,"49999063200 ")
  1. ;;1634
  1. ;;21,"49999063230 ")
  1. ;;1635
  1. ;;21,"49999063260 ")
  1. ;;1636
  1. ;;21,"49999065400 ")
  1. ;;1637
  1. ;;21,"49999065430 ")
  1. ;;1638
  1. ;;21,"49999078930 ")
  1. ;;1639
  1. ;;21,"49999078960 ")
  1. ;;1640
  1. ;;21,"49999078990 ")
  1. ;;1641
  1. ;;21,"49999082830 ")
  1. ;;1642
  1. ;;21,"49999086030 ")
  1. ;;1643
  1. ;;21,"49999086060 ")
  1. ;;1644
  1. ;;21,"49999086090 ")
  1. ;;1645
  1. ;;21,"49999086130 ")
  1. ;;1646
  1. ;;21,"49999086160 ")
  1. ;;1647
  1. ;;21,"49999086190 ")
  1. ;;1648
  1. ;;21,"49999088630 ")
  1. ;;1649
  1. ;;21,"49999090900 ")
  1. ;;1650
  1. ;;21,"49999090930 ")
  1. ;;1651
  1. ;;21,"49999090960 ")
  1. ;;1652
  1. ;;21,"49999091330 ")
  1. ;;1653
  1. ;;21,"49999091530 ")
  1. ;;1654
  1. ;;21,"49999091560 ")
  1. ;;1655
  1. ;;21,"49999091590 ")
  1. ;;1656
  1. ;;21,"50111043301 ")
  1. ;;1657
  1. ;;21,"50111043302 ")
  1. ;;1658
  1. ;;21,"50111043303 ")
  1. ;;1659
  1. ;;21,"50111043310 ")
  1. ;;1660
  1. ;;21,"50111043317 ")
  1. ;;1661
  1. ;;21,"50111043401 ")
  1. ;;1662
  1. ;;21,"50111043402 ")
  1. ;;1663
  1. ;;21,"50111043403 ")
  1. ;;1664
  1. ;;21,"50111043410 ")
  1. ;;1665
  1. ;;21,"50111043417 ")
  1. ;;1666
  1. ;;21,"50111044101 ")
  1. ;;1667
  1. ;;21,"50111044102 ")
  1. ;;1668
  1. ;;21,"50111044103 ")
  1. ;;1669
  1. ;;21,"50111044106 ")
  1. ;;1670
  1. ;;21,"50111044110 ")
  1. ;;1671
  1. ;;21,"50111044117 ")
  1. ;;1672
  1. ;;21,"50111052303 ")
  1. ;;1673
  1. ;;21,"50111052403 ")
  1. ;;1674
  1. ;;21,"50111064701 ")
  1. ;;1675
  1. ;;21,"50111064702 ")
  1. ;;1676
  1. ;;21,"50111064703 ")
  1. ;;1677
  1. ;;21,"50111064801 ")
  1. ;;1678
  1. ;;21,"50111064802 ")
  1. ;;1679
  1. ;;21,"50111064803 ")
  1. ;;1680
  1. ;;21,"50111064810 ")
  1. ;;1681
  1. ;;21,"50111064844 ")
  1. ;;1682
  1. ;;21,"50111093001 ")
  1. ;;1683
  1. ;;21,"50111093002 ")
  1. ;;1684
  1. ;;21,"50111093003 ")
  1. ;;1685
  1. ;;21,"50111093005 ")
  1. ;;1686
  1. ;;21,"50111093010 ")
  1. ;;1687
  1. ;;21,"50111093101 ")
  1. ;;1688
  1. ;;21,"50111093102 ")
  1. ;;1689
  1. ;;21,"50111093103 ")
  1. ;;1690
  1. ;;21,"50111093107 ")
  1. ;;1691
  1. ;;21,"50111093110 ")
  1. ;;1692
  1. ;;21,"50111093201 ")
  1. ;;1693
  1. ;;21,"50111093202 ")
  1. ;;1694
  1. ;;21,"50111093203 ")
  1. ;;1695
  1. ;;21,"50111093210 ")
  1. ;;1696
  1. ;;21,"51079008601 ")
  1. ;;1697
  1. ;;21,"51079008620 ")
  1. ;;1698
  1. ;;21,"51079008630 ")
  1. ;;1699
  1. ;;21,"51079008656 ")
  1. ;;1700
  1. ;;21,"51079008701 ")
  1. ;;1701
  1. ;;21,"51079008720 ")
  1. ;;1702
  1. ;;21,"51079008730 ")
  1. ;;1703
  1. ;;21,"51079008756 ")
  1. ;;1704
  1. ;;21,"51079008801 ")
  1. ;;1705
  1. ;;21,"51079008820 ")
  1. ;;1706
  1. ;;21,"51079008830 ")
  1. ;;1707
  1. ;;21,"51079008856 ")
  1. ;;1708
  1. ;;21,"51079010701 ")
  1. ;;1709
  1. ;;21,"51079010717 ")
  1. ;;1710
  1. ;;21,"51079010719 ")
  1. ;;1711
  1. ;;21,"51079010720 ")
  1. ;;1712
  1. ;;21,"51079010763 ")
  1. ;;1713
  1. ;;21,"51079013101 ")
  1. ;;1714
  1. ;;21,"51079013120 ")
  1. ;;1715
  1. ;;21,"51079013163 ")
  1. ;;1716
  1. ;;21,"51079013301 ")
  1. ;;1717
  1. ;;21,"51079013320 ")
  1. ;;1718
  1. ;;21,"51079013363 ")
  1. ;;1719
  1. ;;21,"51079013401 ")
  1. ;;1720
  1. ;;21,"51079013420 ")
  1. ;;1721
  1. ;;21,"51079013501 ")
  1. ;;1722
  1. ;;21,"51079013520 ")
  1. ;;1723
  1. ;;21,"51079013601 ")
  1. ;;1724
  1. ;;21,"51079013604 ")
  1. ;;1725
  1. ;;21,"51079013720 ")
  1. ;;1726
  1. ;;21,"51079014701 ")
  1. ;;1727
  1. ;;21,"51079014720 ")
  1. ;;1728
  1. ;;21,"51079042719 ")
  1. ;;1729
  1. ;;21,"51079042720 ")
  1. ;;1730
  1. ;;21,"51079042819 ")
  1. ;;1731
  1. ;;21,"51079042820 ")
  1. ;;1732
  1. ;;21,"51079048001 ")
  1. ;;1733
  1. ;;21,"51079048020 ")
  1. ;;1734
  1. ;;21,"51079048201 ")
  1. ;;1735
  1. ;;21,"51079048220 ")
  1. ;;1736
  1. ;;21,"51079048230 ")
  1. ;;1737
  1. ;;21,"51079048256 ")
  1. ;;1738
  1. ;;21,"51079056301 ")
  1. ;;1739
  1. ;;21,"51079056320 ")
  1. ;;1740
  1. ;;21,"51079056420 ")
  1. ;;1741
  1. ;;21,"51079076201 ")
  1. ;;1742
  1. ;;21,"51079076220 ")
  1. ;;1743
  1. ;;21,"51079076301 ")
  1. ;;1744
  1. ;;21,"51079076320 ")
  1. ;;1745
  1. ;;21,"51079076401 ")
  1. ;;1746
  1. ;;21,"51079076420 ")
  1. ;;1747
  1. ;;21,"51079077401 ")
  1. ;;1748
  1. ;;21,"51079077420 ")
  1. ;;1749
  1. ;;21,"51079077520 ")
  1. ;;1750
  1. ;;21,"51079080320 ")
  1. ;;1751
  1. ;;21,"51079080401 ")
  1. ;;1752
  1. ;;21,"51079080419 ")
  1. ;;1753
  1. ;;21,"51079080420 ")
  1. ;;1754
  1. ;;21,"51079080520 ")
  1. ;;1755
  1. ;;21,"51079082463 ")
  1. ;;1756
  1. ;;21,"51079082562 ")
  1. ;;1757
  1. ;;21,"51079082563 ")
  1. ;;1758
  1. ;;21,"51079097101 ")
  1. ;;1759
  1. ;;21,"51079097117 ")
  1. ;;1760
  1. ;;21,"51079097119 ")
  1. ;;1761
  1. ;;21,"51079097120 ")
  1. ;;1762
  1. ;;21,"51079099201 ")
  1. ;;1763
  1. ;;21,"51079099220 ")
  1. ;;1764
  1. ;;21,"51079099301 ")
  1. ;;1765
  1. ;;21,"51079099320 ")
  1. ;;1766
  1. ;;21,"51079099701 ")
  1. ;;1767
  1. ;;21,"51079099720 ")
  1. ;;1768
  1. ;;21,"51129111101 ")
  1. ;;1769
  1. ;;21,"51129113101 ")
  1. ;;1770
  1. ;;21,"51129125901 ")
  1. ;;1771
  1. ;;21,"51129144301 ")
  1. ;;1772
  1. ;;21,"51129144501 ")
  1. ;;1773
  1. ;;21,"51129152601 ")
  1. ;;1774
  1. ;;21,"51129155001 ")
  1. ;;1775
  1. ;;21,"51129156001 ")
  1. ;;1776
  1. ;;21,"51129157801 ")
  1. ;;1777
  1. ;;21,"51129161101 ")
  1. ;;1778
  1. ;;21,"51129163201 ")
  1. ;;1779
  1. ;;21,"51129167901 ")
  1. ;;1780
  1. ;;21,"51129175101 ")
  1. ;;1781
  1. ;;21,"51129189301 ")
  1. ;;1782
  1. ;;21,"51129196701 ")
  1. ;;1783
  1. ;;21,"51129196901 ")
  1. ;;1784
  1. ;;21,"51129198401 ")
  1. ;;1785
  1. ;;21,"51129202901 ")
  1. ;;1786
  1. ;;21,"51129203601 ")
  1. ;;1787
  1. ;;21,"51129205401 ")
  1. ;;1788
  1. ;;21,"51129221101 ")
  1. ;;1789
  1. ;;21,"51129229701 ")
  1. ;;1790
  1. ;;21,"51129229801 ")
  1. ;;1791
  1. ;;21,"51129229901 ")
  1. ;;1792
  1. ;;21,"51129232701 ")
  1. ;;1793
  1. ;;21,"51129235801 ")
  1. ;;1794
  1. ;;21,"51129235901 ")
  1. ;;1795
  1. ;;21,"51129236501 ")
  1. ;;1796
  1. ;;21,"51129238601 ")
  1. ;;1797
  1. ;;21,"51129238701 ")
  1. ;;1798
  1. ;;21,"51129238801 ")
  1. ;;1799
  1. ;;21,"51129238901 ")
  1. ;;1800
  1. ;;21,"51129242101 ")
  1. ;;1801
  1. ;;21,"51129242501 ")
  1. ;;1802
  1. ;;21,"51129247101 ")
  1. ;;1803
  1. ;;21,"51129255701 ")
  1. ;;1804
  1. ;;21,"51129257001 ")
  1. ;;1805
  1. ;;21,"51129282401 ")
  1. ;;1806
  1. ;;21,"51129285401 ")
  1. ;;1807
  1. ;;21,"51129285402 ")
  1. ;;1808
  1. ;;21,"51129286601 ")
  1. ;;1809
  1. ;;21,"51129286602 ")
  1. ;;1810
  1. ;;21,"51129287301 ")
  1. ;;1811
  1. ;;21,"51129287302 ")
  1. ;;1812
  1. ;;21,"51129287901 ")
  1. ;;1813
  1. ;;21,"51129287902 ")
  1. ;;1814
  1. ;;21,"51129288101 ")
  1. ;;1815
  1. ;;21,"51129288102 ")
  1. ;;1816
  1. ;;21,"51129290201 ")
  1. ;;1817
  1. ;;21,"51129290202 ")
  1. ;;1818
  1. ;;21,"51129294901 ")
  1. ;;1819
  1. ;;21,"51129295401 ")
  1. ;;1820
  1. ;;21,"51129299001 ")
  1. ;;1821
  1. ;;21,"51129299002 ")
  1. ;;1822
  1. ;;21,"51129301501 ")
  1. ;;1823
  1. ;;21,"51129301502 ")
  1. ;;1824
  1. ;;21,"51129302001 ")
  1. ;;1825
  1. ;;21,"51129302002 ")
  1. ;;1826
  1. ;;21,"51129302101 ")
  1. ;;1827
  1. ;;21,"51129302102 ")
  1. ;;1828
  1. ;;21,"51129304701 ")
  1. ;;1829
  1. ;;21,"51129304702 ")
  1. ;;1830
  1. ;;21,"51129304801 ")
  1. ;;1831
  1. ;;21,"51129304802 ")
  1. ;;1832
  1. ;;21,"51129305601 ")
  1. ;;1833
  1. ;;21,"51129317801 ")
  1. ;;1834
  1. ;;21,"51129317802 ")
  1. ;;1835
  1. ;;21,"51129318501 ")
  1. ;;1836
  1. ;;21,"51129318502 ")
  1. ;;1837
  1. ;;21,"51129323201 ")
  1. ;;1838
  1. ;;21,"51129323202 ")
  1. ;;1839
  1. ;;21,"51129324001 ")
  1. ;;1840
  1. ;;21,"51129324002 ")
  1. ;;1841
  1. ;;21,"51129325101 ")
  1. ;;1842
  1. ;;21,"51129325102 ")
  1. ;;1843
  1. ;;21,"51129326901 ")
  1. ;;1844
  1. ;;21,"51129326902 ")
  1. ;;1845
  1. ;;21,"51129331301 ")
  1. ;;1846
  1. ;;21,"51129331302 ")
  1. ;;1847
  1. ;;21,"51129351301 ")
  1. ;;1848
  1. ;;21,"51129351302 ")
  1. ;;1849
  1. ;;21,"51129354701 ")
  1. ;;1850
  1. ;;21,"51129354702 ")
  1. ;;1851
  1. ;;21,"51129355201 ")
  1. ;;1852
  1. ;;21,"51129355202 ")
  1. ;;1853
  1. ;;21,"51129366801 ")
  1. ;;1854
  1. ;;21,"51129366802 ")
  1. ;;1855
  1. ;;21,"51129368701 ")
  1. ;;1856
  1. ;;21,"51129368702 ")
  1. ;;1857
  1. ;;21,"51129370401 ")
  1. ;;1858
  1. ;;21,"51129370402 ")
  1. ;;1859
  1. ;;21,"51129371201 ")
  1. ;;1860
  1. ;;21,"51129371202 ")
  1. ;;1861
  1. ;;21,"51129372901 ")
  1. ;;1862
  1. ;;21,"51129372902 ")
  1. ;;1863
  1. ;;21,"51129375901 ")
  1. ;;1864
  1. ;;21,"51129375902 ")
  1. ;;1865
  1. ;;21,"51129382801 ")
  1. ;;1866
  1. ;;21,"51129382802 ")
  1. ;;1867
  1. ;;21,"51129383201 ")
  1. ;;1868
  1. ;;21,"51129383202 ")
  1. ;;1869
  1. ;;21,"51129383501 ")
  1. ;;1870
  1. ;;21,"51129383502 ")
  1. ;;1871
  1. ;;21,"51129385501 ")
  1. ;;1872
  1. ;;21,"51129385502 ")
  1. ;;1873
  1. ;;21,"51129386601 ")
  1. ;;1874
  1. ;;21,"51129386602 ")
  1. ;;1875
  1. ;;21,"51129388401 ")
  1. ;;1876
  1. ;;21,"51129388402 ")
  1. ;;1877
  1. ;;21,"51129395501 ")
  1. ;;1878
  1. ;;21,"51129395502 ")
  1. ;;1879
  1. ;;21,"51129397501 ")
  1. ;;1880
  1. ;;21,"51129397502 ")
  1. ;;1881
  1. ;;21,"51129400301 ")
  1. ;;1882
  1. ;;21,"51129400302 ")
  1. ;;1883
  1. ;;21,"51129403601 ")
  1. ;;1884
  1. ;;21,"51129403602 ")
  1. ;;1885
  1. ;;21,"51129405901 ")
  1. ;;1886
  1. ;;21,"51129405902 ")
  1. ;;1887
  1. ;;21,"51129407501 ")
  1. ;;1888
  1. ;;21,"51129407502 ")
  1. ;;1889
  1. ;;21,"51129410701 ")
  1. ;;1890
  1. ;;21,"51129410702 ")
  1. ;;1891
  1. ;;21,"51129415001 ")
  1. ;;1892
  1. ;;21,"51129415002 ")
  1. ;;1893
  1. ;;21,"51129418201 ")
  1. ;;1894
  1. ;;21,"51129418202 ")
  1. ;;1895
  1. ;;21,"51129419101 ")
  1. ;;1896
  1. ;;21,"51129419102 ")
  1. ;;1897
  1. ;;21,"51129419601 ")
  1. ;;1898
  1. ;;21,"51129419602 ")
  1. ;;1899
  1. ;;21,"51129421001 ")
  1. ;;1900
  1. ;;21,"51129421002 ")
  1. ;;1901
  1. ;;21,"51129422501 ")
  1. ;;1902
  1. ;;21,"51129422502 ")
  1. ;;1903
  1. ;;21,"51129424601 ")
  1. ;;1904
  1. ;;21,"51129424602 ")
  1. ;;1905
  1. ;;21,"51129425701 ")
  1. ;;1906
  1. ;;21,"51129425702 ")
  1. ;;1907
  1. ;;21,"51129427601 ")
  1. ;;1908
  1. ;;21,"51129427602 ")
  1. ;;1909
  1. ;;21,"51129433701 ")
  1. ;;1910
  1. ;;21,"51129433702 ")
  1. ;;1911
  1. ;;21,"51129434701 ")
  1. ;;1912
  1. ;;21,"51129434702 ")
  1. ;;1913
  1. ;;21,"51129435601 ")
  1. ;;1914
  1. ;;21,"51129435602 ")
  1. ;;1915
  1. ;;21,"51129443401 ")
  1. ;;1916
  1. ;;21,"51129443402 ")
  1. ;;1917
  1. ;;21,"51129453701 ")
  1. ;;1918
  1. ;;21,"51129453702 ")
  1. ;;1919
  1. ;;21,"51129455901 ")
  1. ;;1920
  1. ;;21,"51129455902 ")
  1. ;;1921
  1. ;;21,"51129457001 ")
  1. ;;1922
  1. ;;21,"51129457002 ")
  1. ;;1923
  1. ;;21,"51129461601 ")
  1. ;;1924
  1. ;;21,"51129461602 ")
  1. ;;1925
  1. ;;21,"51129466001 ")
  1. ;;1926
  1. ;;21,"51129466002 ")
  1. ;;1927
  1. ;;21,"51129468101 ")
  1. ;;1928
  1. ;;21,"51129468102 ")
  1. ;;1929
  1. ;;21,"51129748701 ")
  1. ;;1930
  1. ;;21,"51129757701 ")
  1. ;;1931
  1. ;;21,"51129821201 ")
  1. ;;1932
  1. ;;21,"51129946101 ")
  1. ;;1933
  1. ;;21,"51138000130 ")
  1. ;;1934
  1. ;;21,"51138000230 ")
  1. ;;1935
  1. ;;21,"51138000330 ")
  1. ;;1936
  1. ;;21,"51138000430 ")
  1. ;;1937
  1. ;;21,"51138000530 ")
  1. ;;1938
  1. ;;21,"51138000630 ")
  1. ;;1939
  1. ;;21,"51138008903 ")
  1. ;;1940
  1. ;;21,"51138008930 ")
  1. ;;1941
  1. ;;21,"51138009030 ")
  1. ;;1942
  1. ;;21,"51138009130 ")
  1. ;;1943
  1. ;;21,"51138009330 ")
  1. ;;1944
  1. ;;21,"51138009430 ")
  1. ;;1945
  1. ;;21,"51138009530 ")
  1. ;;1946