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

BGP7IXLC.m

Go to the documentation of this file.
BGP7IXLC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 11, 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,"00677-1709-06 ")
 ;;1804
 ;;21,"00677-1709-07 ")
 ;;1805
 ;;21,"00677-1710-01 ")
 ;;1806
 ;;21,"00677-1710-05 ")
 ;;1807
 ;;21,"00677-1710-06 ")
 ;;1808
 ;;21,"00677-1711-01 ")
 ;;1809
 ;;21,"00677-1711-05 ")
 ;;1820
 ;;21,"00677-1711-06 ")
 ;;1821
 ;;21,"00677-1712-01 ")
 ;;1865
 ;;21,"00677-1712-05 ")
 ;;1866
 ;;21,"00677-1712-06 ")
 ;;1867
 ;;21,"00677-1712-07 ")
 ;;1868
 ;;21,"00677-1893-01 ")
 ;;1826
 ;;21,"00677-1893-06 ")
 ;;1827
 ;;21,"00677-1894-01 ")
 ;;1828
 ;;21,"00677-1894-06 ")
 ;;1829
 ;;21,"00677-1895-01 ")
 ;;1830
 ;;21,"00677-1895-06 ")
 ;;1831
 ;;21,"00686-0277-20 ")
 ;;1869
 ;;21,"00686-0278-20 ")
 ;;1986
 ;;21,"00686-0279-20 ")
 ;;1870
 ;;21,"00686-0280-20 ")
 ;;1855
 ;;21,"00781-1078-01 ")
 ;;1874
 ;;21,"00781-1078-05 ")
 ;;76
 ;;21,"00781-1078-10 ")
 ;;1875
 ;;21,"00781-1126-01 ")
 ;;1856
 ;;21,"00781-1168-01 ")
 ;;1882
 ;;21,"00781-1168-05 ")
 ;;468
 ;;21,"00781-1168-10 ")
 ;;469
 ;;21,"00781-1168-13 ")
 ;;470
 ;;21,"00781-1169-01 ")
 ;;1883
 ;;21,"00781-1169-05 ")
 ;;471
 ;;21,"00781-1169-10 ")
 ;;472
 ;;21,"00781-1169-13 ")
 ;;473
 ;;21,"00781-1181-01 ")
 ;;1926
 ;;21,"00781-1182-01 ")
 ;;1946
 ;;21,"00781-1183-01 ")
 ;;1947
 ;;21,"00781-1223-01 ")
 ;;1843
 ;;21,"00781-1223-05 ")
 ;;286
 ;;21,"00781-1223-10 ")
 ;;1844
 ;;21,"00781-1223-13 ")
 ;;1845
 ;;21,"00781-1228-01 ")
 ;;1846
 ;;21,"00781-1228-05 ")
 ;;287
 ;;21,"00781-1228-10 ")
 ;;1847
 ;;21,"00781-1228-13 ")
 ;;1848
 ;;21,"00781-1315-01 ")
 ;;2007
 ;;21,"00781-1316-01 ")
 ;;1952
 ;;21,"00781-1344-13 ")
 ;;531
 ;;21,"00781-1354-13 ")
 ;;1990
 ;;21,"00781-1364-01 ")
 ;;1911
 ;;21,"00781-1364-13 ")
 ;;1912
 ;;21,"00781-1371-01 ")
 ;;1849
 ;;21,"00781-1371-10 ")
 ;;1850
 ;;21,"00781-1371-13 ")
 ;;1851
 ;;21,"00781-1372-01 ")
 ;;1891
 ;;21,"00781-1372-10 ")
 ;;1892
 ;;21,"00781-1372-13 ")
 ;;1893
 ;;21,"00781-1384-05 ")
 ;;1857
 ;;21,"00781-1384-13 ")
 ;;964
 ;;21,"00781-1431-01 ")
 ;;2008
 ;;21,"00781-1432-01 ")
 ;;1925
 ;;21,"00781-1506-01 ")
 ;;1998
 ;;21,"00781-1506-05 ")
 ;;77
 ;;21,"00781-1506-10 ")
 ;;1999
 ;;21,"00781-1506-13 ")
 ;;2000
 ;;21,"00781-1507-01 ")
 ;;1884
 ;;21,"00781-1507-05 ")
 ;;78
 ;;21,"00781-1507-10 ")
 ;;1885
 ;;21,"00781-1507-13 ")
 ;;1886
 ;;21,"00781-1824-01 ")
 ;;1898
 ;;21,"00781-1824-05 ")
 ;;1899
 ;;21,"00781-1824-31 ")
 ;;1900
 ;;21,"00781-1833-01 ")
 ;;1991
 ;;21,"00781-1833-05 ")
 ;;1992
 ;;21,"00781-1833-31 ")
 ;;1993
 ;;21,"00781-1841-01 ")
 ;;1974
 ;;21,"00781-1841-05 ")
 ;;1975
 ;;21,"00781-1841-31 ")
 ;;1976
 ;;21,"00781-2061-01 ")
 ;;1797
 ;;21,"00814-6445-14 ")
 ;;965
 ;;21,"00839-7114-16 ")
 ;;1950
 ;;21,"00839-7114-20 ")
 ;;532
 ;;21,"00839-7115-16 ")
 ;;2009
 ;;21,"00839-7116-16 ")
 ;;1951
 ;;21,"00839-7118-12 ")
 ;;1953
 ;;21,"00839-7197-06 ")
 ;;2020
 ;;21,"00839-7198-06 ")
 ;;1979
 ;;21,"00839-7572-06 ")
 ;;1954
 ;;21,"00839-7573-06 ")
 ;;1955
 ;;21,"00839-7574-06 ")
 ;;1956
 ;;21,"00839-7575-06 ")
 ;;1977
 ;;21,"00839-7584-06 ")
 ;;1957
 ;;21,"00839-7585-06 ")
 ;;1958
 ;;21,"00839-7586-06 ")
 ;;1959
 ;;21,"00839-7723-06 ")
 ;;1966
 ;;21,"00839-7723-16 ")
 ;;1967
 ;;21,"00839-7724-06 ")
 ;;1832
 ;;21,"00839-7741-06 ")
 ;;1968
 ;;21,"00839-7741-16 ")
 ;;1969
 ;;21,"00839-7742-06 ")
 ;;1833
 ;;21,"00839-7761-06 ")
 ;;1834
 ;;21,"00839-7761-12 ")
 ;;1835
 ;;21,"00839-7762-06 ")
 ;;1836
 ;;21,"00839-7762-12 ")
 ;;1837
 ;;21,"00839-7807-06 ")
 ;;1994
 ;;21,"00839-7808-06 ")
 ;;1917
 ;;21,"00839-7841-06 ")
 ;;1894
 ;;21,"00839-7841-16 ")
 ;;1895
 ;;21,"00839-7842-06 ")
 ;;1896
 ;;21,"00839-7842-16 ")
 ;;1897
 ;;21,"00839-7870-06 ")
 ;;1982
 ;;21,"00839-7871-06 ")
 ;;1983
 ;;21,"00839-7936-06 ")
 ;;1901
 ;;21,"00839-7937-06 ")
 ;;1902
 ;;21,"00839-7951-06 ")
 ;;1864
 ;;21,"00839-8084-06 ")
 ;;1984
 ;;21,"00904-0411-60 ")
 ;;1871
 ;;21,"00904-0411-61 ")
 ;;1872
 ;;21,"00904-0411-80 ")
 ;;1873
 ;;21,"00904-0412-60 ")
 ;;1987
 ;;21,"00904-0412-61 ")
 ;;1988
 ;;21,"00904-0412-80 ")
 ;;1989
 ;;21,"00904-0414-60 ")
 ;;1887
 ;;21,"00904-0414-61 ")
 ;;1888
 ;;21,"00904-0414-80 ")
 ;;1889
 ;;21,"00904-0416-40 ")
 ;;1903
 ;;21,"00904-0416-60 ")
 ;;1904
 ;;21,"00904-0418-40 ")
 ;;1905
 ;;21,"00904-0418-60 ")
 ;;1906
 ;;21,"00904-0418-61 ")
 ;;1907
 ;;21,"00904-0421-60 ")
 ;;1908
 ;;21,"00904-0422-60 ")
 ;;1909
 ;;21,"00904-0423-60 ")
 ;;1910
 ;;21,"00904-0424-60 ")
 ;;1890
 ;;21,"00904-0434-60 ")
 ;;1995
 ;;21,"00904-0434-61 ")
 ;;1996
 ;;21,"00904-0434-80 ")
 ;;1997
 ;;21,"00904-0438-60 ")
 ;;1928
 ;;21,"00904-3408-60 ")
 ;;2010
 ;;21,"00904-3409-60 ")
 ;;2011
 ;;21,"00904-5069-60 ")
 ;;2001
 ;;21,"00904-5070-60 ")
 ;;2063
 ;;21,"00904-5071-60 ")
 ;;2064
 ;;21,"00904-5110-60 ")
 ;;288
 ;;21,"00904-5110-80 ")
 ;;289
 ;;21,"00904-5111-60 ")
 ;;290
 ;;21,"00904-5111-80 ")
 ;;291
 ;;21,"00904-5138-60 ")
 ;;1985
 ;;21,"00904-5139-60 ")
 ;;2552
 ;;21,"00904-5392-60 ")
 ;;1915
 ;;21,"00904-5392-80 ")
 ;;1916
 ;;21,"00904-7634-60 ")
 ;;2004
 ;;21,"00904-7634-61 ")
 ;;2005
 ;;21,"00904-7634-80 ")
 ;;2006
 ;;21,"00904-7635-60 ")
 ;;2546
 ;;21,"00904-7635-61 ")
 ;;2547
 ;;21,"00904-7772-60 ")
 ;;1918
 ;;21,"00904-7772-61 ")
 ;;1919
 ;;21,"00904-7772-80 ")
 ;;1920
 ;;21,"00904-7773-60 ")
 ;;2505
 ;;21,"00904-7773-61 ")
 ;;2506
 ;;21,"00904-7773-80 ")
 ;;2507
 ;;21,"00904-7816-60 ")
 ;;1927
 ;;21,"00904-7817-60 ")
 ;;2002
 ;;21,"00904-7818-60 ")
 ;;2003
 ;;21,"00904-7820-60 ")
 ;;2508
 ;;21,"00904-7820-80 ")
 ;;2509
 ;;21,"00904-7821-60 ")
 ;;2510
 ;;21,"00904-7821-80 ")
 ;;2511
 ;;21,"00904-7881-60 ")
 ;;2019
 ;;21,"00904-7882-60 ")
 ;;2608
 ;;21,"00904-7893-60 ")
 ;;2548
 ;;21,"00904-7894-60 ")
 ;;2549
 ;;21,"00904-7946-60 ")
 ;;2512
 ;;21,"00904-7946-80 ")
 ;;2513
 ;;21,"00904-7947-60 ")
 ;;2514
 ;;21,"00904-7947-80 ")
 ;;2515
 ;;21,"00905-5711-52 ")
 ;;163
 ;;21,"00905-5721-31 ")
 ;;79
 ;;21,"10130-0130-20 ")
 ;;1212
 ;;21,"10130-0130-40 ")
 ;;1213
 ;;21,"11819-0083-30 ")
 ;;292
 ;;21,"11819-0083-60 ")
 ;;293
 ;;21,"11819-0083-90 ")
 ;;294
 ;;21,"11819-0083-95 ")
 ;;295
 ;;21,"11819-0083-97 ")
 ;;296
 ;;21,"11819-0083-98 ")
 ;;297
 ;;21,"11819-0102-30 ")
 ;;80
 ;;21,"11819-0102-90 ")
 ;;1
 ;;21,"11819-0102-95 ")
 ;;2
 ;;21,"11822-5234-01 ")
 ;;1214
 ;;21,"11822-5260-01 ")
 ;;1215
 ;;21,"11845-0174-01 ")
 ;;1112
 ;;21,"11845-0174-03 ")
 ;;1113
 ;;21,"11845-0175-01 ")
 ;;1128
 ;;21,"11845-0208-01 ")
 ;;1054
 ;;21,"11845-0209-01 ")
 ;;1027
 ;;21,"11845-0210-01 ")
 ;;1038
 ;;21,"11845-0258-01 ")
 ;;823
 ;;21,"11845-0259-01 ")
 ;;868
 ;;21,"11845-0260-01 ")
 ;;935
 ;;21,"11845-0261-01 ")
 ;;966
 ;;21,"12280-0049-00 ")
 ;;2034
 ;;21,"12280-0050-00 ")
 ;;1978
 ;;21,"12280-0145-00 ")
 ;;2976
 ;;21,"12280-0172-30 ")
 ;;2035
 ;;21,"12634-0436-01 ")
 ;;3
 ;;21,"12634-0472-60 ")
 ;;533
 ;;21,"17022-0149-24 ")
 ;;298
 ;;21,"17022-0345-24 ")
 ;;299
 ;;21,"17088-4201-01 ")
 ;;1100
 ;;21,"17228-0109-01 ")
 ;;228
 ;;21,"17228-0110-01 ")
 ;;229
 ;;21,"17228-0111-01 ")
 ;;230
 ;;21,"17236-0081-01 ")
 ;;300
 ;;21,"17236-0081-10 ")
 ;;301
 ;;21,"17236-0082-01 ")
 ;;252
 ;;21,"17236-0082-10 ")
 ;;253
 ;;21,"17236-0580-01 ")
 ;;534
 ;;21,"17236-0580-10 ")
 ;;535
 ;;21,"17236-0581-01 ")
 ;;824
 ;;21,"17236-0581-10 ")
 ;;825
 ;;21,"17236-0582-01 ")
 ;;869
 ;;21,"17236-0582-10 ")
 ;;870
 ;;21,"17236-0583-01 ")
 ;;967
 ;;21,"17236-0583-10 ")
 ;;968
 ;;21,"17236-0584-01 ")
 ;;1114
 ;;21,"17236-0585-01 ")
 ;;1129
 ;;21,"17236-0686-10 ")
 ;;164
 ;;21,"17236-0686-30 ")
 ;;165
 ;;21,"17236-0877-01 ")
 ;;1055
 ;;21,"17236-0878-01 ")
 ;;1028
 ;;21,"17236-0879-01 ")
 ;;1039
 ;;21,"17236-0883-01 ")
 ;;951
 ;;21,"17236-0885-01 ")
 ;;907
 ;;21,"17236-0886-01 ")
 ;;807
 ;;21,"17372-0733-01 ")
 ;;302
 ;;21,"17372-0733-10 ")
 ;;303
 ;;21,"17372-0734-01 ")
 ;;304
 ;;21,"17372-0734-10 ")
 ;;305
 ;;21,"17372-0752-01 ")
 ;;4
 ;;21,"17372-0752-05 ")
 ;;5
 ;;21,"17372-0752-10 ")
 ;;6
 ;;21,"17372-0753-01 ")
 ;;7
 ;;21,"17372-0753-05 ")
 ;;8
 ;;21,"17372-0753-10 ")
 ;;9
 ;;21,"19458-0266-01 ")
 ;;413
 ;;21,"19458-0267-01 ")
 ;;414
 ;;21,"19458-0276-01 ")
 ;;536
 ;;21,"19458-0418-01 ")
 ;;537
 ;;21,"19458-0419-01 ")
 ;;538
 ;;21,"19458-0420-01 ")
 ;;539
 ;;21,"19458-0501-01 ")
 ;;735
 ;;21,"19458-0502-01 ")
 ;;736
 ;;21,"19458-0503-01 ")
 ;;737
 ;;21,"19458-0519-01 ")
 ;;1216
 ;;21,"19458-0537-01 ")
 ;;1159
 ;;21,"19458-0566-01 ")
 ;;1217
 ;;21,"19458-0621-01 ")
 ;;306
 ;;21,"19458-0646-01 ")
 ;;307
 ;;21,"19458-0648-01 ")
 ;;1218
 ;;21,"19458-0673-01 ")
 ;;1160
 ;;21,"19458-0713-01 ")
 ;;1161
 ;;21,"38245-0136-10 ")
 ;;2012
 ;;21,"38245-0136-20 ")
 ;;2013
 ;;21,"38245-0417-10 ")
 ;;2083
 ;;21,"38245-0417-20 ")
 ;;2084
 ;;21,"38245-0712-10 ")
 ;;10
 ;;21,"38245-0712-20 ")
 ;;11
 ;;21,"38245-0713-10 ")
 ;;12
 ;;21,"38245-0713-20 ")
 ;;13
 ;;21,"38245-0724-10 ")
 ;;2110
 ;;21,"38245-0724-20 ")
 ;;2111
 ;;21,"38245-0727-10 ")
 ;;2043
 ;;21,"38245-0727-20 ")
 ;;2044
 ;;21,"38245-0731-10 ")
 ;;2112
 ;;21,"38245-0731-50 ")
 ;;415
 ;;21,"43806-0039-40 ")
 ;;14
 ;;21,"43806-0039-70 ")
 ;;15
 ;;21,"43806-0039-80 ")
 ;;16
 ;;21,"43806-0088-40 ")
 ;;474
 ;;21,"43806-0088-70 ")
 ;;475
 ;;21,"43806-0093-40 ")
 ;;476
 ;;21,"43806-0093-70 ")
 ;;477
 ;;21,"43806-0401-40 ")
 ;;17
 ;;21,"43806-0401-70 ")
 ;;18
 ;;21,"43806-0401-80 ")
 ;;19
 ;;21,"43806-0727-40 ")
 ;;308
 ;;21,"43806-0727-70 ")
 ;;309
 ;;21,"43806-0727-80 ")
 ;;310
 ;;21,"43806-0734-40 ")
 ;;311
 ;;21,"43806-0734-70 ")
 ;;312
 ;;21,"43806-0734-80 ")
 ;;313
 ;;21,"43806-0961-40 ")
 ;;1040
 ;;21,"43806-0972-40 ")
 ;;1041
 ;;21,"43806-0972-70 ")
 ;;1042
 ;;21,"43806-0984-40 ")
 ;;1043
 ;;21,"44514-0514-18 ")
 ;;314
 ;;21,"44514-0515-18 ")
 ;;254
 ;;21,"44514-0756-88 ")
 ;;540
 ;;21,"44514-0757-88 ")
 ;;826
 ;;21,"44514-0758-88 ")
 ;;871
 ;;21,"44514-0759-88 ")
 ;;969
 ;;21,"44514-0876-18 ")
 ;;166
 ;;21,"44514-0885-18 ")
 ;;20
 ;;21,"45868-4179-00 ")
 ;;1087
 ;;21,"46703-0094-01 ")
 ;;541
 ;;21,"46703-0094-10 ")
 ;;542
 ;;21,"46703-0095-01 ")
 ;;827
 ;;21,"46703-0095-10 ")
 ;;828
 ;;21,"46703-0096-01 ")
 ;;872
 ;;21,"46703-0096-10 ")
 ;;873
 ;;21,"46703-0097-01 ")
 ;;970
 ;;21,"46703-0097-05 ")
 ;;971
 ;;21,"47028-0054-01 ")
 ;;2150
 ;;21,"49035-0015-01 ")
 ;;543
 ;;21,"49035-0016-01 ")
 ;;544
 ;;21,"49035-0017-01 ")
 ;;545
 ;;21,"49035-0048-01 ")
 ;;1162
 ;;21,"49035-0049-01 ")
 ;;1163
 ;;21,"49035-0062-01 ")
 ;;315
 ;;21,"49035-0067-01 ")
 ;;1219
 ;;21,"49035-0068-01 ")
 ;;1220
 ;;21,"49035-0069-01 ")
 ;;1221
 ;;21,"49035-0072-01 ")
 ;;416
 ;;21,"49035-0073-01 ")
 ;;417
 ;;21,"49035-0087-01 ")
 ;;546
 ;;21,"49035-0118-01 ")
 ;;738
 ;;21,"49035-0119-01 ")
 ;;739
 ;;21,"49035-0120-01 ")
 ;;740
 ;;21,"49035-0166-01 ")
 ;;167
 ;;21,"49035-0179-01 ")
 ;;316
 ;;21,"49706-0347-00 ")
 ;;1222
 ;;21,"49884-0106-01 ")
 ;;547
 ;;21,"49884-0106-05 ")
 ;;548
 ;;21,"49884-0106-10 ")
 ;;549
 ;;21,"49884-0107-01 ")
 ;;829
 ;;21,"49884-0107-05 ")
 ;;830
 ;;21,"49884-0107-10 ")
 ;;831
 ;;21,"49884-0108-01 ")
 ;;874
 ;;21,"49884-0108-05 ")
 ;;875
 ;;21,"49884-0108-10 ")
 ;;876
 ;;21,"49884-0109-01 ")
 ;;972
 ;;21,"49884-0109-05 ")
 ;;973
 ;;21,"49884-0109-10 ")
 ;;974
 ;;21,"49884-0412-01 ")
 ;;2085
 ;;21,"49884-0412-10 ")
 ;;2086
 ;;21,"49884-0413-01 ")
 ;;2087
 ;;21,"49884-0413-10 ")
 ;;2088
 ;;21,"49884-0442-01 ")
 ;;2028
 ;;21,"49884-0443-01 ")
 ;;2029
 ;;21,"49884-0443-05 ")
 ;;478
 ;;21,"49884-0456-01 ")
 ;;2117
 ;;21,"49884-0456-10 ")
 ;;2118
 ;;21,"49884-0457-01 ")
 ;;2030
 ;;21,"49884-0457-10 ")
 ;;2031
 ;;21,"49884-0582-01 ")
 ;;2045
 ;;21,"49884-0582-10 ")
 ;;2046
 ;;21,"49884-0583-01 ")
 ;;2047
 ;;21,"49884-0583-10 ")
 ;;2048
 ;;21,"49884-0584-01 ")
 ;;2049
 ;;21,"49884-0584-10 ")
 ;;2050
 ;;21,"49884-0585-01 ")
 ;;2018
 ;;21,"49884-0585-10 ")
 ;;2021
 ;;21,"49884-0587-01 ")
 ;;2113
 ;;21,"49884-0588-01 ")
 ;;2033
 ;;21,"49884-0944-01 ")
 ;;2078
 ;;21,"49884-0944-10 ")
 ;;2079
 ;;21,"49999-0010-00 ")
 ;;2089
 ;;21,"49999-0010-30 ")
 ;;2090
 ;;21,"49999-0010-60 ")
 ;;2091
 ;;21,"49999-0104-00 ")
 ;;2177
 ;;21,"49999-0104-30 ")
 ;;2178
 ;;21,"49999-0104-60 ")
 ;;2179
 ;;21,"49999-0178-00 ")
 ;;21
 ;;21,"49999-0178-30 ")
 ;;22
 ;;21,"49999-0201-30 ")
 ;;418
 ;;21,"49999-0202-30 ")
 ;;464
 ;;21,"49999-0203-30 ")
 ;;405
 ;;21,"49999-0226-00 ")
 ;;2964
 ;;21,"49999-0226-30 ")
 ;;255
 ;;21,"49999-0286-60 ")
 ;;877
 ;;21,"49999-0512-30 ")
 ;;1081
 ;;21,"49999-0555-90 ")
 ;;832
 ;;21,"49999-0575-20 ")
 ;;270
 ;;21,"49999-0577-20 ")
 ;;1153
 ;;21,"50053-3109-01 ")
 ;;550
 ;;21,"50053-3109-02 ")
 ;;551
 ;;21,"50053-3110-01 ")
 ;;552
 ;;21,"50053-3110-02 ")
 ;;553
 ;;21,"50053-3111-01 ")
 ;;554