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

BGP13Y3.m

Go to the documentation of this file.
BGP13Y3 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"43063-0171-14 ")
 ;;41
 ;;21,"43063-0232-30 ")
 ;;22
 ;;21,"43063-0232-60 ")
 ;;23
 ;;21,"43063-0233-60 ")
 ;;73
 ;;21,"43063-0234-60 ")
 ;;107
 ;;21,"43353-0073-30 ")
 ;;259
 ;;21,"43353-0073-45 ")
 ;;260
 ;;21,"43353-0073-53 ")
 ;;261
 ;;21,"43353-0188-30 ")
 ;;262
 ;;21,"43353-0188-45 ")
 ;;263
 ;;21,"43353-0256-30 ")
 ;;492
 ;;21,"43353-0256-45 ")
 ;;493
 ;;21,"43353-0256-53 ")
 ;;494
 ;;21,"43353-0256-60 ")
 ;;495
 ;;21,"43353-0295-30 ")
 ;;264
 ;;21,"43353-0295-45 ")
 ;;265
 ;;21,"43353-0295-53 ")
 ;;266
 ;;21,"43353-0311-30 ")
 ;;1456
 ;;21,"43353-0311-60 ")
 ;;1457
 ;;21,"43353-0328-60 ")
 ;;600
 ;;21,"43353-0452-30 ")
 ;;496
 ;;21,"43353-0534-30 ")
 ;;367
 ;;21,"43353-0534-45 ")
 ;;267
 ;;21,"43353-0534-60 ")
 ;;268
 ;;21,"43353-0545-45 ")
 ;;586
 ;;21,"43353-0551-30 ")
 ;;357
 ;;21,"43353-0599-60 ")
 ;;1936
 ;;21,"43353-0599-80 ")
 ;;1937
 ;;21,"43353-0600-60 ")
 ;;2027
 ;;21,"43353-0601-60 ")
 ;;1938
 ;;21,"43353-0602-60 ")
 ;;1939
 ;;21,"43547-0230-09 ")
 ;;401
 ;;21,"43547-0230-11 ")
 ;;402
 ;;21,"43547-0231-09 ")
 ;;497
 ;;21,"43547-0231-11 ")
 ;;498
 ;;21,"43547-0232-09 ")
 ;;269
 ;;21,"43547-0232-11 ")
 ;;270
 ;;21,"43683-0133-30 ")
 ;;601
 ;;21,"49884-0271-01 ")
 ;;1856
 ;;21,"49884-0272-01 ")
 ;;1908
 ;;21,"49884-0273-01 ")
 ;;1973
 ;;21,"49884-0273-05 ")
 ;;1974
 ;;21,"49884-0498-01 ")
 ;;1331
 ;;21,"49884-0498-05 ")
 ;;1332
 ;;21,"49884-0499-01 ")
 ;;1345
 ;;21,"49884-0499-05 ")
 ;;1346
 ;;21,"49999-0075-00 ")
 ;;1975
 ;;21,"49999-0075-30 ")
 ;;1976
 ;;21,"49999-0283-00 ")
 ;;1725
 ;;21,"49999-0283-30 ")
 ;;1726
 ;;21,"49999-0284-00 ")
 ;;1909
 ;;21,"49999-0284-30 ")
 ;;1910
 ;;21,"49999-0296-30 ")
 ;;1263
 ;;21,"49999-0310-00 ")
 ;;1802
 ;;21,"49999-0310-60 ")
 ;;1803
 ;;21,"49999-0357-30 ")
 ;;1497
 ;;21,"49999-0436-30 ")
 ;;499
 ;;21,"49999-0436-90 ")
 ;;500
 ;;21,"49999-0476-30 ")
 ;;1545
 ;;21,"49999-0478-30 ")
 ;;271
 ;;21,"49999-0478-90 ")
 ;;272
 ;;21,"49999-0496-30 ")
 ;;773
 ;;21,"49999-0499-10 ")
 ;;1018
 ;;21,"49999-0572-10 ")
 ;;1200
 ;;21,"49999-0821-10 ")
 ;;1264
 ;;21,"49999-0946-30 ")
 ;;7
 ;;21,"49999-0947-30 ")
 ;;56
 ;;21,"49999-0948-30 ")
 ;;88
 ;;21,"49999-0989-30 ")
 ;;212
 ;;21,"50111-0486-01 ")
 ;;1804
 ;;21,"50111-0486-02 ")
 ;;1805
 ;;21,"50111-0486-03 ")
 ;;1806
 ;;21,"50111-0487-01 ")
 ;;1727
 ;;21,"50111-0487-02 ")
 ;;1728
 ;;21,"51079-0400-01 ")
 ;;1529
 ;;21,"51079-0400-20 ")
 ;;1530
 ;;21,"51079-0450-01 ")
 ;;403
 ;;21,"51079-0450-20 ")
 ;;404
 ;;21,"51079-0450-63 ")
 ;;446
 ;;21,"51079-0451-01 ")
 ;;501
 ;;21,"51079-0451-17 ")
 ;;502
 ;;21,"51079-0451-19 ")
 ;;503
 ;;21,"51079-0451-20 ")
 ;;504
 ;;21,"51079-0451-56 ")
 ;;505
 ;;21,"51079-0451-69 ")
 ;;602
 ;;21,"51079-0452-01 ")
 ;;273
 ;;21,"51079-0452-17 ")
 ;;274
 ;;21,"51079-0452-19 ")
 ;;275
 ;;21,"51079-0452-20 ")
 ;;276
 ;;21,"51079-0452-30 ")
 ;;277
 ;;21,"51079-0452-56 ")
 ;;278
 ;;21,"51079-0467-01 ")
 ;;1265
 ;;21,"51079-0467-20 ")
 ;;1266
 ;;21,"51079-0468-01 ")
 ;;1201
 ;;21,"51079-0468-20 ")
 ;;1202
 ;;21,"51079-0682-01 ")
 ;;1807
 ;;21,"51079-0682-17 ")
 ;;1808
 ;;21,"51079-0682-19 ")
 ;;1809
 ;;21,"51079-0682-20 ")
 ;;1810
 ;;21,"51079-0683-01 ")
 ;;1729
 ;;21,"51079-0683-20 ")
 ;;1730
 ;;21,"51079-0745-01 ")
 ;;1064
 ;;21,"51079-0745-17 ")
 ;;1065
 ;;21,"51079-0745-19 ")
 ;;1066
 ;;21,"51079-0745-20 ")
 ;;1067
 ;;21,"51079-0745-23 ")
 ;;1068
 ;;21,"51079-0745-24 ")
 ;;1069
 ;;21,"51079-0746-01 ")
 ;;1131
 ;;21,"51079-0746-17 ")
 ;;1132
 ;;21,"51079-0746-19 ")
 ;;1133
 ;;21,"51079-0746-20 ")
 ;;1134
 ;;21,"51079-0746-23 ")
 ;;1135
 ;;21,"51079-0746-24 ")
 ;;1136
 ;;21,"51079-0747-01 ")
 ;;1176
 ;;21,"51079-0747-20 ")
 ;;1177
 ;;21,"51079-0869-01 ")
 ;;1977
 ;;21,"51079-0869-17 ")
 ;;1978
 ;;21,"51079-0869-19 ")
 ;;1979
 ;;21,"51079-0869-20 ")
 ;;1980
 ;;21,"51079-0869-30 ")
 ;;1981
 ;;21,"51079-0869-56 ")
 ;;1982
 ;;21,"51079-0894-01 ")
 ;;1857
 ;;21,"51079-0894-20 ")
 ;;1858
 ;;21,"51079-0896-01 ")
 ;;1569
 ;;21,"51079-0896-20 ")
 ;;1570
 ;;21,"51079-0897-01 ")
 ;;1603
 ;;21,"51079-0897-08 ")
 ;;1604
 ;;21,"51079-0899-01 ")
 ;;1911
 ;;21,"51079-0899-20 ")
 ;;1912
 ;;21,"51079-0899-30 ")
 ;;1913
 ;;21,"51079-0899-56 ")
 ;;1914
 ;;21,"51079-0917-01 ")
 ;;1662
 ;;21,"51079-0917-20 ")
 ;;1663
 ;;21,"51079-0918-01 ")
 ;;1671
 ;;21,"51079-0918-20 ")
 ;;1672
 ;;21,"51079-0919-01 ")
 ;;1685
 ;;21,"51079-0919-08 ")
 ;;1686
 ;;21,"51079-0924-01 ")
 ;;624
 ;;21,"51079-0924-20 ")
 ;;625
 ;;21,"51079-0925-01 ")
 ;;633
 ;;21,"51079-0925-20 ")
 ;;634
 ;;21,"51079-0926-01 ")
 ;;614
 ;;21,"51079-0926-20 ")
 ;;615
 ;;21,"51079-0940-01 ")
 ;;1498
 ;;21,"51079-0940-20 ")
 ;;1499
 ;;21,"51079-0947-01 ")
 ;;645
 ;;21,"51079-0947-08 ")
 ;;646
 ;;21,"51079-0948-01 ")
 ;;663
 ;;21,"51079-0948-08 ")
 ;;664
 ;;21,"51079-0949-01 ")
 ;;691
 ;;21,"51079-0949-08 ")
 ;;692
 ;;21,"51079-0968-01 ")
 ;;1546
 ;;21,"51079-0968-20 ")
 ;;1547
 ;;21,"51079-0969-01 ")
 ;;1580
 ;;21,"51079-0969-20 ")
 ;;1581
 ;;21,"51655-0556-92 ")
 ;;1811
 ;;21,"51655-0586-82 ")
 ;;1731
 ;;21,"51991-0666-90 ")
 ;;447
 ;;21,"51991-0667-90 ")
 ;;603
 ;;21,"51991-0668-90 ")
 ;;368
 ;;21,"52152-0263-01 ")
 ;;1300
 ;;21,"52152-0264-01 ")
 ;;1307
 ;;21,"52152-0507-08 ")
 ;;405
 ;;21,"52152-0508-08 ")
 ;;506
 ;;21,"52152-0509-08 ")
 ;;279
 ;;21,"52544-0343-01 ")
 ;;1812
 ;;21,"52544-0343-05 ")
 ;;1813
 ;;21,"52544-0343-10 ")
 ;;1814
 ;;21,"52544-0344-01 ")
 ;;1815
 ;;21,"52544-0344-05 ")
 ;;1816
 ;;21,"52544-0344-10 ")
 ;;1817
 ;;21,"52544-0345-01 ")
 ;;1732
 ;;21,"52544-0345-05 ")
 ;;1733
 ;;21,"52544-0345-10 ")
 ;;1734
 ;;21,"52544-0346-01 ")
 ;;1735
 ;;21,"52544-0346-05 ")
 ;;1736
 ;;21,"52544-0346-10 ")
 ;;1737
 ;;21,"52544-0482-01 ")
 ;;647
 ;;21,"52544-0482-05 ")
 ;;648
 ;;21,"52544-0483-01 ")
 ;;665
 ;;21,"52544-0483-05 ")
 ;;666
 ;;21,"52544-0484-01 ")
 ;;693
 ;;21,"52544-0484-05 ")
 ;;694
 ;;21,"52544-0775-01 ")
 ;;1070
 ;;21,"52544-0775-05 ")
 ;;1071
 ;;21,"52544-0776-01 ")
 ;;1137
 ;;21,"52544-0776-05 ")
 ;;1138
 ;;21,"52544-0777-01 ")
 ;;1178
 ;;21,"52544-0778-01 ")
 ;;1047
 ;;21,"52544-0865-10 ")
 ;;774
 ;;21,"52959-0050-30 ")
 ;;1983
 ;;21,"52959-0072-01 ")
 ;;667
 ;;21,"52959-0209-90 ")
 ;;280
 ;;21,"52959-0910-90 ")
 ;;406
 ;;21,"52959-0911-30 ")
 ;;604
 ;;21,"52959-0911-90 ")
 ;;507
 ;;21,"52959-0982-60 ")
 ;;1433
 ;;21,"52959-0996-60 ")
 ;;1382
 ;;21,"53002-1129-00 ")
 ;;2028
 ;;21,"53002-1129-03 ")
 ;;2029
 ;;21,"53002-1205-00 ")
 ;;1940
 ;;21,"53002-1205-03 ")
 ;;1941
 ;;21,"53002-1467-00 ")
 ;;1883
 ;;21,"53002-1467-03 ")
 ;;1884
 ;;21,"53489-0368-01 ")
 ;;1241
 ;;21,"53489-0369-01 ")
 ;;1267
 ;;21,"53489-0370-01 ")
 ;;1203
 ;;21,"53746-0006-01 ")
 ;;407
 ;;21,"53746-0006-05 ")
 ;;408
 ;;21,"53746-0007-01 ")
 ;;508
 ;;21,"53746-0007-05 ")
 ;;509
 ;;21,"53746-0008-01 ")
 ;;281
 ;;21,"53746-0008-05 ")
 ;;282
 ;;21,"54458-0948-08 ")
 ;;1548
 ;;21,"54458-0950-10 ")
 ;;1500
 ;;21,"54569-0639-00 ")
 ;;1818
 ;;21,"54569-0639-01 ")
 ;;1819
 ;;21,"54569-0639-02 ")
 ;;1820
 ;;21,"54569-0646-00 ")
 ;;1738
 ;;21,"54569-0646-01 ")
 ;;1739
 ;;21,"54569-0646-02 ")
 ;;1740
 ;;21,"54569-2780-00 ")
 ;;1501
 ;;21,"54569-2780-01 ")
 ;;1502
 ;;21,"54569-2780-02 ")
 ;;1503
 ;;21,"54569-2780-03 ")
 ;;1504
 ;;21,"54569-2781-00 ")
 ;;1549
 ;;21,"54569-2781-01 ")
 ;;1550
 ;;21,"54569-2912-02 ")
 ;;635
 ;;21,"54569-3055-00 ")
 ;;1582
 ;;21,"54569-3055-02 ")
 ;;1583
 ;;21,"54569-3665-00 ")
 ;;1072
 ;;21,"54569-3665-01 ")
 ;;1073
 ;;21,"54569-3667-00 ")
 ;;1139
 ;;21,"54569-3667-01 ")
 ;;1140
 ;;21,"54569-3667-02 ")
 ;;1141
 ;;21,"54569-3691-00 ")
 ;;1984
 ;;21,"54569-3718-00 ")
 ;;1268
 ;;21,"54569-3718-03 ")
 ;;1269
 ;;21,"54569-3719-00 ")
 ;;1204
 ;;21,"54569-3784-00 ")
 ;;626
 ;;21,"54569-3785-00 ")
 ;;636
 ;;21,"54569-3785-02 ")
 ;;637
 ;;21,"54569-3786-00 ")
 ;;616
 ;;21,"54569-3786-01 ")
 ;;617
 ;;21,"54569-3802-00 ")
 ;;1915
 ;;21,"54569-3803-00 ")
 ;;775
 ;;21,"54569-3804-00 ")
 ;;817
 ;;21,"54569-3866-00 ")
 ;;510
 ;;21,"54569-3866-01 ")
 ;;511
 ;;21,"54569-3866-02 ")
 ;;512
 ;;21,"54569-3891-00 ")
 ;;1383
 ;;21,"54569-3891-01 ")
 ;;1384
 ;;21,"54569-3892-00 ")
 ;;1434
 ;;21,"54569-3893-00 ")
 ;;1471
 ;;21,"54569-4183-00 ")
 ;;1242
 ;;21,"54569-4211-00 ")
 ;;668
 ;;21,"54569-4447-00 ")
 ;;1916
 ;;21,"54569-4447-01 ")
 ;;1917
 ;;21,"54569-4447-04 ")
 ;;1918
 ;;21,"54569-4455-00 ")
 ;;724
 ;;21,"54569-4472-00 ")
 ;;283
 ;;21,"54569-4472-01 ")
 ;;284
 ;;21,"54569-4498-00 ")
 ;;2035
 ;;21,"54569-4499-00 ")
 ;;2038
 ;;21,"54569-4622-00 ")
 ;;1624
 ;;21,"54569-4623-00 ")
 ;;1637
 ;;21,"54569-4696-00 ")
 ;;57
 ;;21,"54569-4696-01 ")
 ;;58
 ;;21,"54569-4715-00 ")
 ;;940
 ;;21,"54569-4716-00 ")
 ;;959
 ;;21,"54569-4717-00 ")
 ;;980
 ;;21,"54569-4913-00 ")
 ;;776
 ;;21,"54569-4914-00 ")
 ;;818
 ;;21,"54569-4924-00 ")
 ;;860
 ;;21,"54569-4991-00 ")
 ;;1613
 ;;21,"54569-4992-00 ")
 ;;1643
 ;;21,"54569-5155-00 ")
 ;;1505
 ;;21,"54569-5156-00 ")
 ;;1551
 ;;21,"54569-5157-00 ")
 ;;1584
 ;;21,"54569-5232-00 ")
 ;;89
 ;;21,"54569-5232-01 ")
 ;;90
 ;;21,"54569-5282-00 ")
 ;;42
 ;;21,"54569-5370-00 ")
 ;;409
 ;;21,"54569-5431-00 ")
 ;;725
 ;;21,"54569-5704-00 ")
 ;;213
 ;;21,"54569-5878-00 ")
 ;;8
 ;;21,"54569-5881-00 ")
 ;;191
 ;;21,"54569-5901-00 ")
 ;;513
 ;;21,"54569-5901-01 ")
 ;;514
 ;;21,"54569-5902-00 ")
 ;;285
 ;;21,"54569-5902-01 ")
 ;;286
 ;;21,"54569-5937-00 ")
 ;;59
 ;;21,"54569-5938-00 ")
 ;;91
 ;;21,"54569-5951-00 ")
 ;;195
 ;;21,"54569-6099-00 ")
 ;;201
 ;;21,"54569-6117-00 ")
 ;;1205
 ;;21,"54738-0904-01 ")
 ;;1243
 ;;21,"54738-0904-03 ")
 ;;1244
 ;;21,"54738-0904-90 ")
 ;;1245
 ;;21,"54738-0905-01 ")
 ;;1270
 ;;21,"54738-0905-03 ")
 ;;1271
 ;;21,"54738-0905-90 ")
 ;;1272
 ;;21,"54738-0906-01 ")
 ;;1206
 ;;21,"54738-0906-03 ")
 ;;1207
 ;;21,"54738-0906-90 ")
 ;;1208
 ;;21,"54868-0120-00 ")
 ;;1821
 ;;21,"54868-0120-01 ")
 ;;1822
 ;;21,"54868-0120-03 ")
 ;;1823
 ;;21,"54868-0121-01 ")
 ;;1741
 ;;21,"54868-0121-02 ")
 ;;1742
 ;;21,"54868-0121-05 ")
 ;;1743
 ;;21,"54868-0121-06 ")
 ;;1744
 ;;21,"54868-0671-00 ")
 ;;1142
 ;;21,"54868-0823-00 ")
 ;;1246
 ;;21,"54868-0826-00 ")
 ;;1209
 ;;21,"54868-0826-01 ")
 ;;1210
 ;;21,"54868-0826-02 ")
 ;;1211
 ;;21,"54868-0933-00 ")
 ;;1745
 ;;21,"54868-1005-00 ")
 ;;618
 ;;21,"54868-1006-02 ")
 ;;1506
 ;;21,"54868-1006-03 ")
 ;;1507
 ;;21,"54868-1008-00 ")
 ;;1552
 ;;21,"54868-1008-01 ")
 ;;1553
 ;;21,"54868-1008-02 ")
 ;;1554
 ;;21,"54868-1207-00 ")
 ;;217
 ;;21,"54868-1207-01 ")
 ;;218
 ;;21,"54868-1283-00 ")
 ;;1985
 ;;21,"54868-1283-01 ")
 ;;1986
 ;;21,"54868-1443-03 ")
 ;;1585
 ;;21,"54868-1550-03 ")
 ;;1919
 ;;21,"54868-2147-02 ")
 ;;1859
 ;;21,"54868-2148-03 ")
 ;;777
 ;;21,"54868-2149-00 ")
 ;;819
 ;;21,"54868-2149-02 ")
 ;;820
 ;;21,"54868-2150-01 ")
 ;;861
 ;;21,"54868-2167-00 ")
 ;;1273
 ;;21,"54868-2167-02 ")
 ;;1274
 ;;21,"54868-2168-02 ")
 ;;1212
 ;;21,"54868-2168-03 ")
 ;;1213
 ;;21,"54868-2200-00 ")
 ;;1687
 ;;21,"54868-2200-02 ")
 ;;1688
 ;;21,"54868-2207-00 ")
 ;;1987
 ;;21,"54868-2207-02 ")
 ;;1988
 ;;21,"54868-2207-03 ")
 ;;1989
 ;;21,"54868-2207-04 ")
 ;;1990
 ;;21,"54868-2207-05 ")
 ;;1991
 ;;21,"54868-2207-06 ")
 ;;1992
 ;;21,"54868-2211-00 ")
 ;;1654
 ;;21,"54868-2276-02 ")
 ;;1143
 ;;21,"54868-2277-00 ")
 ;;1179
 ;;21,"54868-2290-00 ")
 ;;1074
 ;;21,"54868-2290-02 ")
 ;;1075
 ;;21,"54868-2290-03 ")
 ;;1076
 ;;21,"54868-2290-04 ")
 ;;1077
 ;;21,"54868-2322-01 ")
 ;;669
 ;;21,"54868-2322-02 ")
 ;;670
 ;;21,"54868-2322-03 ")
 ;;671
 ;;21,"54868-2469-00 ")
 ;;1301
 ;;21,"54868-2469-01 ")
 ;;1302
 ;;21,"54868-2868-00 ")
 ;;1385
 ;;21,"54868-2868-01 ")
 ;;1386
 ;;21,"54868-2868-02 ")
 ;;1387
 ;;21,"54868-2868-05 ")
 ;;1388
 ;;21,"54868-2869-00 ")
 ;;1435