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

BGP51P5.m

Go to the documentation of this file.
BGP51P5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"55048-0520-30 ")
 ;;1175
 ;;21,"55048-0521-30 ")
 ;;980
 ;;21,"55048-0522-30 ")
 ;;1574
 ;;21,"55048-0523-30 ")
 ;;1307
 ;;21,"55048-0524-30 ")
 ;;1355
 ;;21,"55048-0524-60 ")
 ;;1356
 ;;21,"55048-0524-74 ")
 ;;1357
 ;;21,"55111-0252-01 ")
 ;;1775
 ;;21,"55111-0252-05 ")
 ;;1776
 ;;21,"55111-0253-01 ")
 ;;1896
 ;;21,"55111-0253-05 ")
 ;;1897
 ;;21,"55111-0254-01 ")
 ;;2010
 ;;21,"55111-0254-05 ")
 ;;2011
 ;;21,"55111-0255-01 ")
 ;;2135
 ;;21,"55111-0255-05 ")
 ;;2136
 ;;21,"55111-0466-01 ")
 ;;975
 ;;21,"55111-0466-05 ")
 ;;976
 ;;21,"55111-0467-01 ")
 ;;1074
 ;;21,"55111-0467-05 ")
 ;;1075
 ;;21,"55111-0468-01 ")
 ;;1167
 ;;21,"55111-0468-05 ")
 ;;1168
 ;;21,"55111-0469-01 ")
 ;;1216
 ;;21,"55111-0469-05 ")
 ;;1217
 ;;21,"55289-0093-30 ")
 ;;1548
 ;;21,"55289-0093-60 ")
 ;;1549
 ;;21,"55289-0093-90 ")
 ;;1550
 ;;21,"55289-0093-93 ")
 ;;1551
 ;;21,"55289-0227-01 ")
 ;;463
 ;;21,"55289-0227-30 ")
 ;;464
 ;;21,"55289-0227-90 ")
 ;;465
 ;;21,"55289-0228-01 ")
 ;;577
 ;;21,"55289-0228-03 ")
 ;;578
 ;;21,"55289-0228-06 ")
 ;;579
 ;;21,"55289-0228-14 ")
 ;;580
 ;;21,"55289-0228-30 ")
 ;;581
 ;;21,"55289-0228-60 ")
 ;;582
 ;;21,"55289-0228-90 ")
 ;;583
 ;;21,"55289-0233-01 ")
 ;;176
 ;;21,"55289-0233-12 ")
 ;;177
 ;;21,"55289-0233-60 ")
 ;;178
 ;;21,"55289-0233-90 ")
 ;;179
 ;;21,"55289-0234-01 ")
 ;;180
 ;;21,"55289-0234-30 ")
 ;;181
 ;;21,"55289-0234-90 ")
 ;;182
 ;;21,"55289-0254-30 ")
 ;;747
 ;;21,"55289-0382-30 ")
 ;;1277
 ;;21,"55289-0382-93 ")
 ;;1278
 ;;21,"55289-0413-30 ")
 ;;1321
 ;;21,"55289-0413-60 ")
 ;;1322
 ;;21,"55289-0413-90 ")
 ;;1323
 ;;21,"55289-0413-93 ")
 ;;1324
 ;;21,"55289-0413-94 ")
 ;;1325
 ;;21,"55289-0587-30 ")
 ;;864
 ;;21,"55289-0627-30 ")
 ;;1317
 ;;21,"55289-0630-30 ")
 ;;2373
 ;;21,"55289-0630-90 ")
 ;;2374
 ;;21,"55289-0653-30 ")
 ;;824
 ;;21,"55289-0653-90 ")
 ;;825
 ;;21,"55289-0855-30 ")
 ;;1081
 ;;21,"55289-0902-30 ")
 ;;984
 ;;21,"55289-0986-30 ")
 ;;1909
 ;;21,"55289-0988-30 ")
 ;;2327
 ;;21,"55289-0993-30 ")
 ;;2304
 ;;21,"55289-0993-60 ")
 ;;2305
 ;;21,"55289-0993-90 ")
 ;;2306
 ;;21,"55700-0103-90 ")
 ;;185
 ;;21,"55700-0121-30 ")
 ;;392
 ;;21,"55700-0136-30 ")
 ;;339
 ;;21,"57664-0166-08 ")
 ;;1326
 ;;21,"57664-0166-18 ")
 ;;1327
 ;;21,"57664-0166-52 ")
 ;;1328
 ;;21,"57664-0166-58 ")
 ;;1329
 ;;21,"57664-0167-08 ")
 ;;1575
 ;;21,"57664-0167-18 ")
 ;;1576
 ;;21,"57664-0167-52 ")
 ;;1577
 ;;21,"57664-0167-58 ")
 ;;1578
 ;;21,"57664-0242-13 ")
 ;;1782
 ;;21,"57664-0242-18 ")
 ;;1783
 ;;21,"57664-0242-88 ")
 ;;1784
 ;;21,"57664-0244-13 ")
 ;;1901
 ;;21,"57664-0244-18 ")
 ;;1902
 ;;21,"57664-0244-88 ")
 ;;1903
 ;;21,"57664-0245-13 ")
 ;;2018
 ;;21,"57664-0245-18 ")
 ;;2019
 ;;21,"57664-0245-88 ")
 ;;2020
 ;;21,"57664-0247-13 ")
 ;;2148
 ;;21,"57664-0247-18 ")
 ;;2149
 ;;21,"57664-0247-88 ")
 ;;2150
 ;;21,"57664-0264-18 ")
 ;;471
 ;;21,"57664-0264-88 ")
 ;;472
 ;;21,"57664-0265-18 ")
 ;;568
 ;;21,"57664-0265-88 ")
 ;;569
 ;;21,"57664-0266-18 ")
 ;;822
 ;;21,"57664-0266-88 ")
 ;;823
 ;;21,"57664-0477-08 ")
 ;;1330
 ;;21,"57664-0477-18 ")
 ;;1331
 ;;21,"57664-0477-52 ")
 ;;1332
 ;;21,"57664-0477-58 ")
 ;;1333
 ;;21,"57664-0506-08 ")
 ;;1279
 ;;21,"57664-0506-18 ")
 ;;1280
 ;;21,"57664-0506-52 ")
 ;;1281
 ;;21,"57664-0506-58 ")
 ;;1282
 ;;21,"57664-0655-88 ")
 ;;59
 ;;21,"57664-0656-88 ")
 ;;62
 ;;21,"58016-0001-00 ")
 ;;246
 ;;21,"58016-0001-30 ")
 ;;247
 ;;21,"58016-0001-60 ")
 ;;248
 ;;21,"58016-0001-90 ")
 ;;249
 ;;21,"58016-0045-00 ")
 ;;1224
 ;;21,"58016-0045-30 ")
 ;;1225
 ;;21,"58016-0045-60 ")
 ;;1226
 ;;21,"58016-0045-90 ")
 ;;1227
 ;;21,"58016-0286-00 ")
 ;;2368
 ;;21,"58016-0286-02 ")
 ;;2369
 ;;21,"58016-0286-30 ")
 ;;2370
 ;;21,"58016-0286-60 ")
 ;;2371
 ;;21,"58016-0286-90 ")
 ;;2372
 ;;21,"58016-0300-00 ")
 ;;419
 ;;21,"58016-0300-30 ")
 ;;420
 ;;21,"58016-0300-60 ")
 ;;421
 ;;21,"58016-0300-90 ")
 ;;422
 ;;21,"58016-0331-00 ")
 ;;2328
 ;;21,"58016-0331-30 ")
 ;;2329
 ;;21,"58016-0331-60 ")
 ;;2330
 ;;21,"58016-0331-90 ")
 ;;2331
 ;;21,"58016-0333-00 ")
 ;;564
 ;;21,"58016-0333-15 ")
 ;;565
 ;;21,"58016-0333-30 ")
 ;;566
 ;;21,"58016-0333-60 ")
 ;;567
 ;;21,"58016-0373-00 ")
 ;;1082
 ;;21,"58016-0373-02 ")
 ;;1083
 ;;21,"58016-0373-30 ")
 ;;1084
 ;;21,"58016-0373-60 ")
 ;;1085
 ;;21,"58016-0373-90 ")
 ;;1086
 ;;21,"58016-0442-00 ")
 ;;1338
 ;;21,"58016-0442-02 ")
 ;;1339
 ;;21,"58016-0442-30 ")
 ;;1340
 ;;21,"58016-0442-60 ")
 ;;1341
 ;;21,"58016-0442-90 ")
 ;;1342
 ;;21,"58016-0442-99 ")
 ;;1343
 ;;21,"58016-0526-00 ")
 ;;2307
 ;;21,"58016-0526-02 ")
 ;;2308
 ;;21,"58016-0526-30 ")
 ;;2309
 ;;21,"58016-0526-60 ")
 ;;2310
 ;;21,"58016-0526-90 ")
 ;;2311
 ;;21,"58016-0528-00 ")
 ;;63
 ;;21,"58016-0528-30 ")
 ;;64
 ;;21,"58016-0528-60 ")
 ;;65
 ;;21,"58016-0529-00 ")
 ;;172
 ;;21,"58016-0529-10 ")
 ;;173
 ;;21,"58016-0529-30 ")
 ;;174
 ;;21,"58016-0529-50 ")
 ;;175
 ;;21,"58016-0531-00 ")
 ;;183
 ;;21,"58016-0531-30 ")
 ;;184
 ;;21,"58016-0532-00 ")
 ;;250
 ;;21,"58016-0532-02 ")
 ;;251
 ;;21,"58016-0532-60 ")
 ;;252
 ;;21,"58016-0582-00 ")
 ;;473
 ;;21,"58016-0582-15 ")
 ;;474
 ;;21,"58016-0582-20 ")
 ;;475
 ;;21,"58016-0582-30 ")
 ;;476
 ;;21,"58016-0582-60 ")
 ;;477
 ;;21,"58016-0604-00 ")
 ;;311
 ;;21,"58016-0640-00 ")
 ;;1334
 ;;21,"58016-0640-15 ")
 ;;1335
 ;;21,"58016-0640-20 ")
 ;;1336
 ;;21,"58016-0640-30 ")
 ;;1337
 ;;21,"58016-0771-00 ")
 ;;826
 ;;21,"58016-0771-12 ")
 ;;827
 ;;21,"58016-0771-15 ")
 ;;828
 ;;21,"58016-0771-20 ")
 ;;829
 ;;21,"58016-0771-30 ")
 ;;830
 ;;21,"58016-0771-60 ")
 ;;831
 ;;21,"58016-0859-00 ")
 ;;312
 ;;21,"58016-0859-30 ")
 ;;313
 ;;21,"58016-0859-60 ")
 ;;314
 ;;21,"58016-0859-90 ")
 ;;315
 ;;21,"58016-0974-00 ")
 ;;985
 ;;21,"58016-0974-30 ")
 ;;986
 ;;21,"58016-0974-60 ")
 ;;987
 ;;21,"58016-0974-90 ")
 ;;988
 ;;21,"58118-0110-03 ")
 ;;66
 ;;21,"58118-0110-09 ")
 ;;67
 ;;21,"58118-0163-03 ")
 ;;1904
 ;;21,"58118-0163-09 ")
 ;;1905
 ;;21,"58118-0164-03 ")
 ;;2021
 ;;21,"58118-0164-09 ")
 ;;2022
 ;;21,"58118-0165-03 ")
 ;;2146
 ;;21,"58118-0165-09 ")
 ;;2147
 ;;21,"58118-0167-06 ")
 ;;1572
 ;;21,"58118-0167-08 ")
 ;;1573
 ;;21,"58118-0405-03 ")
 ;;1080
 ;;21,"58118-0477-06 ")
 ;;1344
 ;;21,"58118-0477-08 ")
 ;;1345
 ;;21,"58118-0477-09 ")
 ;;1346
 ;;21,"58118-0506-03 ")
 ;;1283
 ;;21,"58118-0506-09 ")
 ;;1284
 ;;21,"58118-0621-03 ")
 ;;478
 ;;21,"58118-0621-09 ")
 ;;479
 ;;21,"58118-0622-03 ")
 ;;563
 ;;21,"58118-0622-09 ")
 ;;742
 ;;21,"58118-0623-09 ")
 ;;749
 ;;21,"58118-0734-03 ")
 ;;919
 ;;21,"58118-0736-03 ")
 ;;1110
 ;;21,"58177-0293-04 ")
 ;;916
 ;;21,"58177-0293-09 ")
 ;;917
 ;;21,"58177-0293-11 ")
 ;;918
 ;;21,"58177-0358-04 ")
 ;;1188
 ;;21,"58177-0358-09 ")
 ;;1189
 ;;21,"58177-0368-04 ")
 ;;1107
 ;;21,"58177-0368-09 ")
 ;;1108
 ;;21,"58177-0368-11 ")
 ;;1109
 ;;21,"58177-0369-04 ")
 ;;996
 ;;21,"58177-0369-09 ")
 ;;997
 ;;21,"58177-0369-11 ")
 ;;998
 ;;21,"58517-0320-30 ")
 ;;1252
 ;;21,"58864-0016-01 ")
 ;;1382
 ;;21,"58864-0016-28 ")
 ;;1383
 ;;21,"58864-0016-30 ")
 ;;1384
 ;;21,"58864-0016-60 ")
 ;;1385
 ;;21,"58864-0065-01 ")
 ;;740
 ;;21,"58864-0065-30 ")
 ;;741
 ;;21,"58864-0363-30 ")
 ;;124
 ;;21,"58864-0645-56 ")
 ;;103
 ;;21,"58864-0680-30 ")
 ;;233
 ;;21,"58864-0695-30 ")
 ;;1581
 ;;21,"58864-0717-30 ")
 ;;750
 ;;21,"58864-0727-30 ")
 ;;2159
 ;;21,"58864-0737-30 ")
 ;;1915
 ;;21,"58864-0749-30 ")
 ;;480
 ;;21,"58864-0749-90 ")
 ;;481
 ;;21,"58864-0759-30 ")
 ;;1187
 ;;21,"58864-0765-30 ")
 ;;1106
 ;;21,"58864-0784-30 ")
 ;;2380
 ;;21,"59762-0810-01 ")
 ;;2
 ;;21,"59762-0811-01 ")
 ;;20
 ;;21,"59762-0812-01 ")
 ;;44
 ;;21,"59762-1258-01 ")
 ;;890
 ;;21,"59762-1258-02 ")
 ;;891
 ;;21,"59762-1261-01 ")
 ;;907
 ;;21,"59762-1261-02 ")
 ;;908
 ;;21,"59762-1300-01 ")
 ;;1253
 ;;21,"59762-1300-03 ")
 ;;1254
 ;;21,"59762-1301-01 ")
 ;;1380
 ;;21,"59762-1301-03 ")
 ;;1381
 ;;21,"59762-1302-01 ")
 ;;1579
 ;;21,"59762-1302-03 ")
 ;;1580
 ;;21,"60429-0025-30 ")
 ;;736
 ;;21,"60429-0025-90 ")
 ;;737
 ;;21,"60429-0026-30 ")
 ;;748
 ;;21,"60429-0126-30 ")
 ;;1314
 ;;21,"60429-0126-60 ")
 ;;1315
 ;;21,"60429-0127-30 ")
 ;;1535
 ;;21,"60429-0139-01 ")
 ;;921
 ;;21,"60429-0139-10 ")
 ;;922
 ;;21,"60429-0140-01 ")
 ;;999
 ;;21,"60429-0140-10 ")
 ;;1000
 ;;21,"60429-0141-01 ")
 ;;1111
 ;;21,"60429-0141-10 ")
 ;;1112
 ;;21,"60429-0141-45 ")
 ;;1113
 ;;21,"60429-0142-01 ")
 ;;1190
 ;;21,"60429-0142-05 ")
 ;;1191
 ;;21,"60429-0142-10 ")
 ;;1192
 ;;21,"60429-0142-45 ")
 ;;1193
 ;;21,"60429-0211-90 ")
 ;;429
 ;;21,"60429-0277-01 ")
 ;;2219
 ;;21,"60429-0277-05 ")
 ;;2220
 ;;21,"60429-0278-01 ")
 ;;2242
 ;;21,"60429-0278-05 ")
 ;;2243
 ;;21,"60429-0279-01 ")
 ;;2271
 ;;21,"60429-0753-01 ")
 ;;868
 ;;21,"60429-0754-01 ")
 ;;872
 ;;21,"60429-0830-10 ")
 ;;920
 ;;21,"60429-0831-10 ")
 ;;1001
 ;;21,"60505-2606-01 ")
 ;;1764
 ;;21,"60505-2606-08 ")
 ;;1765
 ;;21,"60505-2607-01 ")
 ;;1817
 ;;21,"60505-2607-08 ")
 ;;1818
 ;;21,"60505-2608-01 ")
 ;;1939
 ;;21,"60505-2608-08 ")
 ;;1940
 ;;21,"60505-2609-01 ")
 ;;2062
 ;;21,"60505-2609-08 ")
 ;;2063
 ;;21,"60760-0059-30 ")
 ;;738
 ;;21,"60760-0059-90 ")
 ;;739
 ;;21,"60760-0060-30 ")
 ;;487
 ;;21,"60760-0060-90 ")
 ;;488
 ;;21,"60760-0061-90 ")
 ;;759
 ;;21,"60760-0142-60 ")
 ;;1762
 ;;21,"60760-0142-98 ")
 ;;1763
 ;;21,"60760-0143-60 ")
 ;;1819
 ;;21,"60760-0143-98 ")
 ;;1820
 ;;21,"60760-0144-60 ")
 ;;1941
 ;;21,"60760-0144-98 ")
 ;;1942
 ;;21,"60760-0145-60 ")
 ;;2060
 ;;21,"60760-0145-98 ")
 ;;2061
 ;;21,"60760-0251-60 ")
 ;;1396
 ;;21,"60760-0251-98 ")
 ;;1397
 ;;21,"60760-0252-60 ")
 ;;1582
 ;;21,"60760-0292-60 ")
 ;;2244
 ;;21,"60760-0976-30 ")
 ;;1114
 ;;21,"60760-0976-90 ")
 ;;1115
 ;;21,"60760-0977-30 ")
 ;;1004
 ;;21,"60760-0977-90 ")
 ;;1005
 ;;21,"60760-0978-30 ")
 ;;923
 ;;21,"60760-0978-90 ")
 ;;924
 ;;21,"60793-0283-01 ")
 ;;2439
 ;;21,"60793-0284-01 ")
 ;;2445
 ;;21,"60793-0800-01 ")
 ;;1
 ;;21,"60793-0801-01 ")
 ;;19
 ;;21,"60793-0802-01 ")
 ;;43
 ;;21,"61919-0317-30 ")
 ;;1395
 ;;21,"62037-0830-01 ")
 ;;925
 ;;21,"62037-0830-10 ")
 ;;926
 ;;21,"62037-0831-01 ")
 ;;1002
 ;;21,"62037-0831-10 ")
 ;;1003
 ;;21,"62037-0832-01 ")
 ;;1116
 ;;21,"62037-0832-10 ")
 ;;1117
 ;;21,"62037-0833-01 ")
 ;;1194
 ;;21,"62037-0833-10 ")
 ;;1195
 ;;21,"62584-0265-01 ")
 ;;1248
 ;;21,"62584-0265-11 ")
 ;;1249
 ;;21,"62584-0266-01 ")
 ;;1393
 ;;21,"62584-0266-11 ")
 ;;1394
 ;;21,"62584-0267-01 ")
 ;;1583
 ;;21,"62584-0267-11 ")
 ;;1584
 ;;21,"62584-0467-01 ")
 ;;731
 ;;21,"62584-0467-11 ")
 ;;732
 ;;21,"62584-0715-01 ")
 ;;755
 ;;21,"62584-0715-11 ")
 ;;756
 ;;21,"62756-0368-88 ")
 ;;2431
 ;;21,"62756-0369-88 ")
 ;;2435
 ;;21,"62756-0370-88 ")
 ;;2425
 ;;21,"63304-0579-01 ")
 ;;1250
 ;;21,"63304-0579-10 ")
 ;;1251
 ;;21,"63304-0580-01 ")
 ;;1386
 ;;21,"63304-0580-10 ")
 ;;1387
 ;;21,"63304-0581-01 ")
 ;;1585
 ;;21,"63304-0581-10 ")
 ;;1586
 ;;21,"63304-0621-01 ")
 ;;485
 ;;21,"63304-0621-10 ")
 ;;486
 ;;21,"63304-0622-01 ")
 ;;729
 ;;21,"63304-0622-10 ")
 ;;730
 ;;21,"63304-0623-01 ")
 ;;757
 ;;21,"63304-0623-10 ")
 ;;758
 ;;21,"63629-1423-01 ")
 ;;104
 ;;21,"63629-1423-02 ")
 ;;105
 ;;21,"63629-1462-01 ")
 ;;1587
 ;;21,"63629-1462-02 ")
 ;;1588
 ;;21,"63629-1462-03 ")
 ;;1589
 ;;21,"63629-1463-01 ")
 ;;1388
 ;;21,"63629-1463-02 ")
 ;;1389
 ;;21,"63629-1463-03 ")
 ;;1390
 ;;21,"63629-1463-04 ")
 ;;1391
 ;;21,"63629-1463-05 ")
 ;;1392
 ;;21,"63629-1674-01 ")
 ;;2344
 ;;21,"63629-1740-01 ")
 ;;733
 ;;21,"63629-1740-02 ")
 ;;734
 ;;21,"63629-1740-03 ")
 ;;735
 ;;21,"63629-1785-01 ")
 ;;482
 ;;21,"63629-1785-02 ")
 ;;483
 ;;21,"63629-1785-03 ")
 ;;484
 ;;21,"63629-1842-01 ")
 ;;294
 ;;21,"63629-2570-01 ")
 ;;120
 ;;21,"63629-2570-02 ")
 ;;121
 ;;21,"63629-2570-03 ")
 ;;122
 ;;21,"63629-2570-04 ")
 ;;123
 ;;21,"63629-2626-01 ")
 ;;751
 ;;21,"63629-2626-02 ")
 ;;752
 ;;21,"63629-2626-03 ")
 ;;753
 ;;21,"63629-2626-04 ")
 ;;754
 ;;21,"63629-2909-01 ")
 ;;2282
 ;;21,"63629-2909-02 ")
 ;;2283
 ;;21,"63629-2909-03 ")
 ;;2284
 ;;21,"63629-2909-04 ")
 ;;2285
 ;;21,"63629-3587-01 ")
 ;;274
 ;;21,"63629-3587-02 ")
 ;;275
 ;;21,"63629-3636-01 ")
 ;;1104
 ;;21,"63629-3636-02 ")
 ;;1105
 ;;21,"63629-3668-01 ")
 ;;1823
 ;;21,"63629-3668-02 ")
 ;;1824
 ;;21,"63629-3668-03 ")
 ;;1825
 ;;21,"63629-3669-01 ")
 ;;1943
 ;;21,"63629-3669-02 ")
 ;;1944
 ;;21,"63629-3669-03 ")
 ;;1945
 ;;21,"63629-3738-01 ")
 ;;2322
 ;;21,"63629-3871-01 ")
 ;;415
 ;;21,"63629-4060-01 ")
 ;;1760
 ;;21,"63629-4060-02 ")
 ;;1761
 ;;21,"63629-4070-01 ")
 ;;2058
 ;;21,"63629-4070-02 ")
 ;;2059