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

BGP7GXME.m

Go to the documentation of this file.
BGP7GXME ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 25, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"55081-1555-00 ")
 ;;1750
 ;;21,"55081-1704-00 ")
 ;;1751
 ;;21,"55081-1704-02 ")
 ;;1752
 ;;21,"55081-4949-00 ")
 ;;1753
 ;;21,"55081-4949-01 ")
 ;;1754
 ;;21,"55081-4949-02 ")
 ;;1755
 ;;21,"55081-4950-00 ")
 ;;1756
 ;;21,"55081-4950-01 ")
 ;;1757
 ;;21,"55175-0550-02 ")
 ;;607
 ;;21,"55175-0550-04 ")
 ;;330
 ;;21,"55175-1213-00 ")
 ;;1758
 ;;21,"55175-1213-01 ")
 ;;1759
 ;;21,"55175-1508-00 ")
 ;;1760
 ;;21,"55175-1508-08 ")
 ;;1761
 ;;21,"55175-1509-01 ")
 ;;1762
 ;;21,"55175-1702-00 ")
 ;;1763
 ;;21,"55175-1702-05 ")
 ;;1764
 ;;21,"55175-1832-03 ")
 ;;627
 ;;21,"55175-1835-03 ")
 ;;464
 ;;21,"55175-1905-00 ")
 ;;171
 ;;21,"55175-1905-01 ")
 ;;353
 ;;21,"55175-1905-02 ")
 ;;354
 ;;21,"55175-2210-02 ")
 ;;1765
 ;;21,"55175-2210-03 ")
 ;;1766
 ;;21,"55175-2211-01 ")
 ;;1767
 ;;21,"55175-2211-08 ")
 ;;1768
 ;;21,"55175-2557-02 ")
 ;;1769
 ;;21,"55175-2557-04 ")
 ;;1770
 ;;21,"55175-2747-00 ")
 ;;143
 ;;21,"55175-3006-00 ")
 ;;105
 ;;21,"55175-3006-09 ")
 ;;106
 ;;21,"55175-4181-02 ")
 ;;678
 ;;21,"55175-4181-03 ")
 ;;679
 ;;21,"55175-4186-01 ")
 ;;680
 ;;21,"55175-4186-03 ")
 ;;681
 ;;21,"55175-4186-06 ")
 ;;107
 ;;21,"55175-4187-00 ")
 ;;1065
 ;;21,"55175-4187-03 ")
 ;;1066
 ;;21,"55175-4187-04 ")
 ;;1067
 ;;21,"55175-4187-06 ")
 ;;25
 ;;21,"55175-4462-01 ")
 ;;1771
 ;;21,"55175-4462-03 ")
 ;;1772
 ;;21,"55289-0003-60 ")
 ;;1077
 ;;21,"55289-0009-30 ")
 ;;1773
 ;;21,"55289-0009-60 ")
 ;;1774
 ;;21,"55289-0036-04 ")
 ;;1775
 ;;21,"55289-0039-04 ")
 ;;1776
 ;;21,"55289-0045-30 ")
 ;;1777
 ;;21,"55289-0155-97 ")
 ;;1081
 ;;21,"55289-0259-01 ")
 ;;1068
 ;;21,"55289-0259-30 ")
 ;;1069
 ;;21,"55289-0259-60 ")
 ;;1070
 ;;21,"55289-0260-01 ")
 ;;1071
 ;;21,"55289-0260-06 ")
 ;;1072
 ;;21,"55289-0260-20 ")
 ;;1073
 ;;21,"55289-0260-30 ")
 ;;1074
 ;;21,"55289-0260-60 ")
 ;;1075
 ;;21,"55289-0260-97 ")
 ;;1076
 ;;21,"55289-0293-04 ")
 ;;1778
 ;;21,"55289-0293-08 ")
 ;;1779
 ;;21,"55289-0317-30 ")
 ;;1780
 ;;21,"55289-0317-60 ")
 ;;1781
 ;;21,"55289-0363-20 ")
 ;;1782
 ;;21,"55289-0363-24 ")
 ;;1783
 ;;21,"55289-0363-30 ")
 ;;1784
 ;;21,"55289-0404-30 ")
 ;;108
 ;;21,"55289-0498-30 ")
 ;;1785
 ;;21,"55289-0544-08 ")
 ;;1786
 ;;21,"55289-0544-60 ")
 ;;1787
 ;;21,"55289-0634-15 ")
 ;;1788
 ;;21,"55289-0634-60 ")
 ;;1789
 ;;21,"55289-0700-04 ")
 ;;1790
 ;;21,"55289-0751-30 ")
 ;;1079
 ;;21,"55289-0751-60 ")
 ;;1080
 ;;21,"55289-0785-30 ")
 ;;1791
 ;;21,"55289-0785-60 ")
 ;;1792
 ;;21,"55289-0787-60 ")
 ;;628
 ;;21,"55289-0788-60 ")
 ;;1094
 ;;21,"55289-0789-30 ")
 ;;1064
 ;;21,"55289-0809-30 ")
 ;;1793
 ;;21,"55289-0810-30 ")
 ;;1794
 ;;21,"55289-0863-04 ")
 ;;358
 ;;21,"55370-0111-07 ")
 ;;1795
 ;;21,"55370-0111-08 ")
 ;;1796
 ;;21,"55370-0112-07 ")
 ;;1797
 ;;21,"55370-0112-08 ")
 ;;1798
 ;;21,"55370-0315-48 ")
 ;;1799
 ;;21,"55726-0100-01 ")
 ;;243
 ;;21,"55726-0200-04 ")
 ;;517
 ;;21,"55726-1540-16 ")
 ;;279
 ;;21,"55947-0204-30 ")
 ;;1800
 ;;21,"55947-0205-30 ")
 ;;1801
 ;;21,"55947-0270-30 ")
 ;;1802
 ;;21,"55947-0763-12 ")
 ;;1803
 ;;21,"55953-0480-40 ")
 ;;1804
 ;;21,"55953-0480-70 ")
 ;;1805
 ;;21,"55953-0499-40 ")
 ;;1806
 ;;21,"55953-0499-70 ")
 ;;1807
 ;;21,"56126-0436-11 ")
 ;;608
 ;;21,"56126-0437-11 ")
 ;;424
 ;;21,"56126-0438-11 ")
 ;;1100
 ;;21,"57362-0119-13 ")
 ;;26
 ;;21,"57362-0119-19 ")
 ;;27
 ;;21,"57362-0119-83 ")
 ;;28
 ;;21,"57362-0119-84 ")
 ;;29
 ;;21,"57362-0119-85 ")
 ;;30
 ;;21,"57362-0131-13 ")
 ;;109
 ;;21,"57362-0131-19 ")
 ;;682
 ;;21,"57362-0131-83 ")
 ;;110
 ;;21,"57362-0131-84 ")
 ;;683
 ;;21,"57362-0131-85 ")
 ;;111
 ;;21,"57362-0134-11 ")
 ;;1808
 ;;21,"57362-0134-13 ")
 ;;1809
 ;;21,"57362-0134-19 ")
 ;;1810
 ;;21,"57362-0134-83 ")
 ;;1811
 ;;21,"57362-0134-85 ")
 ;;1812
 ;;21,"57362-0332-43 ")
 ;;1813
 ;;21,"57362-0332-45 ")
 ;;1814
 ;;21,"57362-0332-46 ")
 ;;1815
 ;;21,"57362-0347-11 ")
 ;;1816
 ;;21,"57362-0347-13 ")
 ;;1817
 ;;21,"57362-0347-19 ")
 ;;1818
 ;;21,"57362-0347-83 ")
 ;;1819
 ;;21,"57362-0347-85 ")
 ;;1820
 ;;21,"57362-0365-43 ")
 ;;444
 ;;21,"57362-0367-11 ")
 ;;1821
 ;;21,"57362-0367-19 ")
 ;;1822
 ;;21,"57362-0521-45 ")
 ;;1823
 ;;21,"57362-0522-11 ")
 ;;585
 ;;21,"57362-0522-19 ")
 ;;586
 ;;21,"57362-0523-11 ")
 ;;629
 ;;21,"57362-0523-19 ")
 ;;345
 ;;21,"57362-0524-11 ")
 ;;55
 ;;21,"57362-0524-19 ")
 ;;56
 ;;21,"57480-0365-01 ")
 ;;1101
 ;;21,"57480-0365-06 ")
 ;;1102
 ;;21,"57480-0366-01 ")
 ;;1095
 ;;21,"57480-0366-06 ")
 ;;1096
 ;;21,"57480-0367-01 ")
 ;;1097
 ;;21,"57480-0367-06 ")
 ;;1098
 ;;21,"57480-0422-01 ")
 ;;1824
 ;;21,"57480-0422-06 ")
 ;;1825
 ;;21,"57480-0423-01 ")
 ;;1826
 ;;21,"57480-0423-06 ")
 ;;1827
 ;;21,"57480-8422-06 ")
 ;;1828
 ;;21,"57779-0115-09 ")
 ;;1099
 ;;21,"57783-6791-01 ")
 ;;1829
 ;;21,"57783-6791-02 ")
 ;;1830
 ;;21,"57783-6891-01 ")
 ;;1831
 ;;21,"57783-6891-02 ")
 ;;1832
 ;;21,"57866-4651-02 ")
 ;;1103
 ;;21,"57866-4652-02 ")
 ;;1104
 ;;21,"57866-4653-01 ")
 ;;1105
 ;;21,"58016-0328-18 ")
 ;;1833
 ;;21,"58016-0328-20 ")
 ;;1834
 ;;21,"58016-0328-24 ")
 ;;1835
 ;;21,"58016-0328-48 ")
 ;;1836
 ;;21,"58016-0328-72 ")
 ;;1837
 ;;21,"58016-0330-24 ")
 ;;1838
 ;;21,"58016-0402-00 ")
 ;;1839
 ;;21,"58016-0402-12 ")
 ;;1840
 ;;21,"58016-0402-20 ")
 ;;1841
 ;;21,"58016-0402-30 ")
 ;;1842
 ;;21,"58016-0403-00 ")
 ;;1843
 ;;21,"58016-0403-12 ")
 ;;1844
 ;;21,"58016-0403-15 ")
 ;;1845
 ;;21,"58016-0403-20 ")
 ;;1846
 ;;21,"58016-0403-30 ")
 ;;1847
 ;;21,"58016-0404-12 ")
 ;;1848
 ;;21,"58016-0404-24 ")
 ;;1849
 ;;21,"58016-0404-36 ")
 ;;1850
 ;;21,"58016-0416-24 ")
 ;;172
 ;;21,"58016-0416-48 ")
 ;;355
 ;;21,"58016-0441-00 ")
 ;;331
 ;;21,"58016-0441-15 ")
 ;;609
 ;;21,"58016-0441-20 ")
 ;;610
 ;;21,"58016-0441-30 ")
 ;;332
 ;;21,"58016-0442-00 ")
 ;;425
 ;;21,"58016-0442-15 ")
 ;;426
 ;;21,"58016-0442-20 ")
 ;;31
 ;;21,"58016-0442-30 ")
 ;;32
 ;;21,"58016-0442-60 ")
 ;;33
 ;;21,"58016-0443-00 ")
 ;;112
 ;;21,"58016-0443-06 ")
 ;;684
 ;;21,"58016-0443-15 ")
 ;;113
 ;;21,"58016-0443-20 ")
 ;;114
 ;;21,"58016-0443-30 ")
 ;;115
 ;;21,"58016-0443-60 ")
 ;;685
 ;;21,"58016-0473-00 ")
 ;;1851
 ;;21,"58016-0473-12 ")
 ;;1852
 ;;21,"58016-0473-15 ")
 ;;1853
 ;;21,"58016-0473-20 ")
 ;;1854
 ;;21,"58016-0473-24 ")
 ;;1855
 ;;21,"58016-0473-30 ")
 ;;1856
 ;;21,"58016-0473-90 ")
 ;;1857
 ;;21,"58016-0477-06 ")
 ;;1106
 ;;21,"58016-0482-24 ")
 ;;1858
 ;;21,"58016-0482-48 ")
 ;;1859
 ;;21,"58016-0487-24 ")
 ;;1860
 ;;21,"58016-0487-48 ")
 ;;1861
 ;;21,"58016-0603-00 ")
 ;;1862
 ;;21,"58016-0603-01 ")
 ;;1863
 ;;21,"58016-0603-12 ")
 ;;1864
 ;;21,"58016-0603-15 ")
 ;;1865
 ;;21,"58016-0603-20 ")
 ;;1866
 ;;21,"58016-0603-24 ")
 ;;1867
 ;;21,"58016-0603-30 ")
 ;;1868
 ;;21,"58016-4021-01 ")
 ;;1869
 ;;21,"58016-4021-04 ")
 ;;1870
 ;;21,"58016-4021-05 ")
 ;;1871
 ;;21,"58016-4183-04 ")
 ;;47
 ;;21,"58173-0038-16 ")
 ;;1872
 ;;21,"58729-0507-41 ")
 ;;254
 ;;21,"58864-0501-17 ")
 ;;427
 ;;21,"59198-0252-01 ")
 ;;587
 ;;21,"59198-0253-01 ")
 ;;338
 ;;21,"59198-0254-01 ")
 ;;630
 ;;21,"59198-0255-01 ")
 ;;57
 ;;21,"59243-0021-10 ")
 ;;1131
 ;;21,"59743-0006-01 ")
 ;;1132
 ;;21,"59930-1510-05 ")
 ;;1873
 ;;21,"59930-1520-01 ")
 ;;1874
 ;;21,"59930-1520-02 ")
 ;;1875
 ;;21,"59930-1530-01 ")
 ;;1876
 ;;21,"59930-1530-02 ")
 ;;1877
 ;;21,"59930-1650-01 ")
 ;;1145
 ;;21,"59930-1650-02 ")
 ;;1146
 ;;21,"59930-1650-03 ")
 ;;1147
 ;;21,"59930-1660-01 ")
 ;;1108
 ;;21,"59930-1660-02 ")
 ;;1109
 ;;21,"59930-1660-03 ")
 ;;1110
 ;;21,"59930-1670-01 ")
 ;;1111
 ;;21,"59930-1670-02 ")
 ;;1112
 ;;21,"59930-1670-03 ")
 ;;1113
 ;;21,"59930-1680-01 ")
 ;;1115
 ;;21,"59936-0003-42 ")
 ;;364
 ;;21,"59936-0231-02 ")
 ;;365
 ;;21,"60104-6001-02 ")
 ;;1878
 ;;21,"60104-6001-06 ")
 ;;1879
 ;;21,"60104-6001-08 ")
 ;;1880
 ;;21,"60258-0335-16 ")
 ;;1138
 ;;21,"60258-0371-16 ")
 ;;1148
 ;;21,"60258-0390-16 ")
 ;;1881
 ;;21,"60346-0054-10 ")
 ;;1882
 ;;21,"60346-0054-30 ")
 ;;1883
 ;;21,"60346-0141-30 ")
 ;;1884
 ;;21,"60346-0261-04 ")
 ;;1885
 ;;21,"60346-0285-28 ")
 ;;1886
 ;;21,"60346-0285-30 ")
 ;;1887
 ;;21,"60346-0328-20 ")
 ;;198
 ;;21,"60346-0328-90 ")
 ;;199
 ;;21,"60346-0596-00 ")
 ;;116
 ;;21,"60346-0596-06 ")
 ;;686
 ;;21,"60346-0596-14 ")
 ;;687
 ;;21,"60346-0596-20 ")
 ;;117
 ;;21,"60346-0596-25 ")
 ;;118
 ;;21,"60346-0596-30 ")
 ;;119
 ;;21,"60346-0596-60 ")
 ;;120
 ;;21,"60346-0596-90 ")
 ;;121
 ;;21,"60346-0665-20 ")
 ;;1888
 ;;21,"60346-0669-00 ")
 ;;428
 ;;21,"60346-0669-20 ")
 ;;34
 ;;21,"60346-0669-30 ")
 ;;429
 ;;21,"60346-0669-44 ")
 ;;35
 ;;21,"60346-0669-60 ")
 ;;430
 ;;21,"60346-0669-90 ")
 ;;431
 ;;21,"60346-0672-04 ")
 ;;1889
 ;;21,"60346-0672-31 ")
 ;;1890
 ;;21,"60346-0713-30 ")
 ;;611
 ;;21,"60346-0713-60 ")
 ;;612
 ;;21,"60346-0717-30 ")
 ;;346
 ;;21,"60346-0723-30 ")
 ;;1891
 ;;21,"60346-0767-04 ")
 ;;1892
 ;;21,"60432-0019-16 ")
 ;;1114
 ;;21,"60432-0650-16 ")
 ;;1893
 ;;21,"60505-5802-09 ")
 ;;1894
 ;;21,"61392-0016-30 ")
 ;;1116
 ;;21,"61392-0016-31 ")
 ;;36
 ;;21,"61392-0016-32 ")
 ;;432
 ;;21,"61392-0016-39 ")
 ;;433
 ;;21,"61392-0016-45 ")
 ;;1117
 ;;21,"61392-0016-51 ")
 ;;1118
 ;;21,"61392-0016-54 ")
 ;;1119
 ;;21,"61392-0016-56 ")
 ;;1120
 ;;21,"61392-0016-60 ")
 ;;1121
 ;;21,"61392-0016-90 ")
 ;;1122
 ;;21,"61392-0016-91 ")
 ;;1123
 ;;21,"61392-0017-30 ")
 ;;1124
 ;;21,"61392-0017-31 ")
 ;;693
 ;;21,"61392-0017-32 ")
 ;;694
 ;;21,"61392-0017-39 ")
 ;;695
 ;;21,"61392-0017-45 ")
 ;;133
 ;;21,"61392-0017-51 ")
 ;;1125
 ;;21,"61392-0017-54 ")
 ;;1126
 ;;21,"61392-0017-56 ")
 ;;1127
 ;;21,"61392-0017-60 ")
 ;;1128
 ;;21,"61392-0017-90 ")
 ;;1129
 ;;21,"61392-0017-91 ")
 ;;1130
 ;;21,"61392-0567-30 ")
 ;;1895
 ;;21,"61392-0567-31 ")
 ;;1896
 ;;21,"61392-0567-32 ")
 ;;1897
 ;;21,"61392-0567-39 ")
 ;;1898
 ;;21,"61392-0567-45 ")
 ;;1899
 ;;21,"61392-0567-51 ")
 ;;1900
 ;;21,"61392-0567-54 ")
 ;;1901
 ;;21,"61392-0567-56 ")
 ;;1902
 ;;21,"61392-0567-60 ")
 ;;1903
 ;;21,"61392-0567-65 ")
 ;;1904
 ;;21,"61392-0567-90 ")
 ;;1905
 ;;21,"61392-0567-91 ")
 ;;1906
 ;;21,"61392-0567-95 ")
 ;;1907
 ;;21,"61392-0570-30 ")
 ;;1908
 ;;21,"61392-0570-31 ")
 ;;1909
 ;;21,"61392-0570-32 ")
 ;;1910
 ;;21,"61392-0570-39 ")
 ;;1911
 ;;21,"61392-0570-45 ")
 ;;1912
 ;;21,"61392-0570-51 ")
 ;;1913
 ;;21,"61392-0570-54 ")
 ;;1914
 ;;21,"61392-0570-56 ")
 ;;1915
 ;;21,"61392-0570-60 ")
 ;;1916
 ;;21,"61392-0570-65 ")
 ;;1917
 ;;21,"61392-0570-90 ")
 ;;1918
 ;;21,"61392-0570-91 ")
 ;;1919
 ;;21,"61392-0570-95 ")
 ;;1920
 ;;21,"61570-0019-01 ")
 ;;1133
 ;;21,"61570-0019-05 ")
 ;;1134
 ;;21,"61570-0020-01 ")
 ;;1107
 ;;21,"61570-0022-00 ")
 ;;577
 ;;21,"61570-0022-01 ")
 ;;1135
 ;;21,"62584-0605-01 ")
 ;;1921
 ;;21,"62584-0606-01 ")
 ;;1922
 ;;21,"63874-0377-01 ")
 ;;1923
 ;;21,"63874-0377-12 ")
 ;;1924
 ;;21,"63874-0377-15 ")
 ;;1925
 ;;21,"63874-0377-20 ")
 ;;1926
 ;;21,"63874-0377-24 ")
 ;;1927
 ;;21,"63874-0378-01 ")
 ;;1928
 ;;21,"63874-0378-24 ")
 ;;1929
 ;;21,"63874-0378-50 ")
 ;;1930
 ;;21,"63874-0443-01 ")
 ;;1155
 ;;21,"63874-0443-15 ")
 ;;1156
 ;;21,"63874-0443-20 ")
 ;;1157
 ;;21,"63874-0443-30 ")
 ;;1158
 ;;21,"63874-0447-01 ")
 ;;1139
 ;;21,"63874-0447-15 ")
 ;;1140
 ;;21,"63874-0447-20 ")
 ;;1141
 ;;21,"63874-0447-30 ")
 ;;1142
 ;;21,"63874-0447-60 ")
 ;;1143
 ;;21,"63874-0485-05 ")
 ;;1931
 ;;21,"63874-0485-12 ")
 ;;1932
 ;;21,"63874-0485-15 ")
 ;;1933
 ;;21,"63874-0485-20 ")
 ;;1934
 ;;21,"63874-0485-24 ")
 ;;1935
 ;;21,"63874-0675-01 ")
 ;;1144
 ;;21,"63874-0675-15 ")
 ;;1149
 ;;21,"63874-0675-20 ")
 ;;1150
 ;;21,"63874-0675-30 ")
 ;;1159
 ;;21,"63874-0709-01 ")
 ;;1936
 ;;21,"63874-0709-12 ")
 ;;1937
 ;;21,"63874-0709-24 ")
 ;;1938
 ;;21,"63874-0709-48 ")
 ;;1939
 ;;21,"63874-0709-90 ")
 ;;1940
 ;;21,"63874-0744-12 ")
 ;;1136
 ;;21,"63874-0744-24 ")
 ;;1137
 ;;21,"64661-0814-16 ")
 ;;530
 ;;21,"65162-0324-10 ")
 ;;37
 ;;21,"65162-0324-11 ")
 ;;434
 ;;21,"65162-0325-10 ")
 ;;122
 ;;21,"65162-0325-11 ")
 ;;688
 ;;21,"65162-0335-10 ")
 ;;333
 ;;21,"65473-0754-01 ")
 ;;1941
 ;;21,"65473-0758-01 ")
 ;;1942
 ;;21,"66116-0179-84 ")
 ;;1943
 ;;21,"66239-0111-16 ")
 ;;1161
 ;;21,"66267-0010-30 ")
 ;;1944
 ;;21,"67781-0251-01 ")
 ;;1153
 ;;21,"67781-0251-05 ")
 ;;1154
 ;;21,"67781-0252-01 ")
 ;;1152
 ;;21,"68115-0009-15 ")
 ;;1167
 ;;21,"68115-0328-60 ")
 ;;1151
 ;;9002226,599,.01)
 ;;BGP HEDIS ASTHMA NDC
 ;;9002226,599,.02)
 ;;@
 ;;9002226,599,.04)
 ;;n
 ;;9002226,599,.06)
 ;;@
 ;;9002226,599,.08)
 ;;@
 ;;9002226,599,.09)
 ;;@
 ;;9002226,599,.11)
 ;;@
 ;;9002226,599,.12)
 ;;@
 ;;9002226,599,.13)
 ;;1
 ;;9002226,599,.14)
 ;;@