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

BGP48A3.m

Go to the documentation of this file.
BGP48A3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"54569-5618-00 ")
 ;;1336
 ;;21,"54569-5618-01 ")
 ;;1337
 ;;21,"54569-5618-02 ")
 ;;1329
 ;;21,"54569-5618-03 ")
 ;;1330
 ;;21,"54569-5619-00 ")
 ;;1447
 ;;21,"54569-5619-01 ")
 ;;1448
 ;;21,"54569-5619-02 ")
 ;;1388
 ;;21,"54569-5619-03 ")
 ;;1389
 ;;21,"54569-5619-04 ")
 ;;1390
 ;;21,"54569-5991-00 ")
 ;;1202
 ;;21,"54569-5992-00 ")
 ;;1220
 ;;21,"54569-5992-01 ")
 ;;1221
 ;;21,"54569-5993-00 ")
 ;;1244
 ;;21,"54569-5993-01 ")
 ;;1245
 ;;21,"54738-0925-01 ")
 ;;362
 ;;21,"54738-0925-02 ")
 ;;363
 ;;21,"54738-0925-03 ")
 ;;364
 ;;21,"54738-0926-01 ")
 ;;625
 ;;21,"54738-0926-02 ")
 ;;626
 ;;21,"54738-0926-03 ")
 ;;627
 ;;21,"54738-0927-01 ")
 ;;823
 ;;21,"54738-0927-02 ")
 ;;824
 ;;21,"54738-0927-03 ")
 ;;825
 ;;21,"54868-0795-00 ")
 ;;1207
 ;;21,"54868-0830-00 ")
 ;;1152
 ;;21,"54868-0830-01 ")
 ;;1153
 ;;21,"54868-1097-00 ")
 ;;1178
 ;;21,"54868-1097-01 ")
 ;;1179
 ;;21,"54868-2894-00 ")
 ;;1147
 ;;21,"54868-3545-00 ")
 ;;11
 ;;21,"54868-3545-01 ")
 ;;12
 ;;21,"54868-3545-02 ")
 ;;13
 ;;21,"54868-3545-03 ")
 ;;14
 ;;21,"54868-3546-00 ")
 ;;413
 ;;21,"54868-3546-01 ")
 ;;414
 ;;21,"54868-4160-00 ")
 ;;654
 ;;21,"54868-4160-01 ")
 ;;655
 ;;21,"54868-4529-00 ")
 ;;1367
 ;;21,"54868-4529-01 ")
 ;;1368
 ;;21,"54868-4529-02 ")
 ;;1369
 ;;21,"54868-4529-03 ")
 ;;1370
 ;;21,"54868-4561-00 ")
 ;;430
 ;;21,"54868-4561-01 ")
 ;;431
 ;;21,"54868-4561-02 ")
 ;;432
 ;;21,"54868-4561-03 ")
 ;;433
 ;;21,"54868-4561-04 ")
 ;;434
 ;;21,"54868-4564-00 ")
 ;;36
 ;;21,"54868-4564-01 ")
 ;;37
 ;;21,"54868-4564-02 ")
 ;;38
 ;;21,"54868-4564-03 ")
 ;;39
 ;;21,"54868-4564-04 ")
 ;;40
 ;;21,"54868-4564-05 ")
 ;;41
 ;;21,"54868-4566-00 ")
 ;;713
 ;;21,"54868-4566-01 ")
 ;;714
 ;;21,"54868-4566-02 ")
 ;;715
 ;;21,"54868-4566-03 ")
 ;;716
 ;;21,"54868-4566-04 ")
 ;;717
 ;;21,"54868-4569-00 ")
 ;;947
 ;;21,"54868-4569-01 ")
 ;;948
 ;;21,"54868-4569-02 ")
 ;;949
 ;;21,"54868-4609-00 ")
 ;;1293
 ;;21,"54868-4609-01 ")
 ;;1292
 ;;21,"54868-4906-00 ")
 ;;1252
 ;;21,"54868-4965-00 ")
 ;;1497
 ;;21,"54868-4965-01 ")
 ;;1498
 ;;21,"54868-4965-02 ")
 ;;1499
 ;;21,"54868-5148-00 ")
 ;;1341
 ;;21,"54868-5148-01 ")
 ;;1342
 ;;21,"54868-5148-02 ")
 ;;1343
 ;;21,"54868-5148-03 ")
 ;;1319
 ;;21,"54868-5148-04 ")
 ;;1320
 ;;21,"54868-5157-00 ")
 ;;1506
 ;;21,"54868-5157-01 ")
 ;;1507
 ;;21,"54868-5185-00 ")
 ;;1289
 ;;21,"54868-5185-01 ")
 ;;1290
 ;;21,"54868-5185-02 ")
 ;;1291
 ;;21,"54868-5185-03 ")
 ;;1275
 ;;21,"54868-5188-00 ")
 ;;1223
 ;;21,"54868-5188-01 ")
 ;;1224
 ;;21,"54868-5188-02 ")
 ;;1225
 ;;21,"54868-5217-00 ")
 ;;1080
 ;;21,"54868-5217-01 ")
 ;;1081
 ;;21,"54868-5217-02 ")
 ;;1082
 ;;21,"54868-5217-03 ")
 ;;1083
 ;;21,"54868-5217-04 ")
 ;;1084
 ;;21,"54868-5217-05 ")
 ;;1085
 ;;21,"54868-5243-00 ")
 ;;1442
 ;;21,"54868-5243-01 ")
 ;;1443
 ;;21,"54868-5243-02 ")
 ;;1444
 ;;21,"54868-5243-03 ")
 ;;1445
 ;;21,"54868-5243-04 ")
 ;;1446
 ;;21,"54868-5262-00 ")
 ;;1512
 ;;21,"54868-5262-01 ")
 ;;1513
 ;;21,"54868-5288-00 ")
 ;;1247
 ;;21,"54868-5288-01 ")
 ;;1248
 ;;21,"54868-5288-02 ")
 ;;1249
 ;;21,"54868-5376-00 ")
 ;;1502
 ;;21,"54868-5379-00 ")
 ;;1490
 ;;21,"54868-5399-00 ")
 ;;1226
 ;;21,"54868-5399-01 ")
 ;;1227
 ;;21,"54868-5467-00 ")
 ;;1239
 ;;21,"54868-5467-01 ")
 ;;1240
 ;;21,"54868-5467-02 ")
 ;;1241
 ;;21,"54868-5500-00 ")
 ;;1460
 ;;21,"54868-5500-01 ")
 ;;1461
 ;;21,"54868-5500-02 ")
 ;;1459
 ;;21,"54868-5505-00 ")
 ;;1116
 ;;21,"54868-5505-01 ")
 ;;1117
 ;;21,"54868-5505-02 ")
 ;;1118
 ;;21,"54868-5553-00 ")
 ;;1472
 ;;21,"54868-5553-01 ")
 ;;1473
 ;;21,"54868-5553-02 ")
 ;;1474
 ;;21,"54868-5558-00 ")
 ;;1141
 ;;21,"54868-5558-01 ")
 ;;1142
 ;;21,"54868-5973-00 ")
 ;;1172
 ;;21,"55045-2504-01 ")
 ;;419
 ;;21,"55045-2904-00 ")
 ;;33
 ;;21,"55045-2904-02 ")
 ;;34
 ;;21,"55045-2904-06 ")
 ;;35
 ;;21,"55045-2905-00 ")
 ;;435
 ;;21,"55045-2905-08 ")
 ;;436
 ;;21,"55045-2906-00 ")
 ;;704
 ;;21,"55045-2906-01 ")
 ;;705
 ;;21,"55045-2906-02 ")
 ;;706
 ;;21,"55045-2906-06 ")
 ;;707
 ;;21,"55045-2906-08 ")
 ;;708
 ;;21,"55045-2906-09 ")
 ;;709
 ;;21,"55045-3045-01 ")
 ;;15
 ;;21,"55045-3045-06 ")
 ;;16
 ;;21,"55045-3045-08 ")
 ;;17
 ;;21,"55045-3761-08 ")
 ;;70
 ;;21,"55048-0246-30 ")
 ;;1222
 ;;21,"55048-0247-30 ")
 ;;1243
 ;;21,"55048-0273-60 ")
 ;;1409
 ;;21,"55048-0273-71 ")
 ;;1410
 ;;21,"55048-0434-60 ")
 ;;1180
 ;;21,"55048-0437-60 ")
 ;;1171
 ;;21,"55048-0508-30 ")
 ;;863
 ;;21,"55048-0508-60 ")
 ;;864
 ;;21,"55048-0509-30 ")
 ;;321
 ;;21,"55048-0509-60 ")
 ;;322
 ;;21,"55048-0509-71 ")
 ;;323
 ;;21,"55048-0509-74 ")
 ;;324
 ;;21,"55048-0509-90 ")
 ;;325
 ;;21,"55048-0510-30 ")
 ;;987
 ;;21,"55048-0510-60 ")
 ;;988
 ;;21,"55048-0510-71 ")
 ;;989
 ;;21,"55048-0510-74 ")
 ;;990
 ;;21,"55048-0510-90 ")
 ;;991
 ;;21,"55048-0611-60 ")
 ;;747
 ;;21,"55048-0611-74 ")
 ;;748
 ;;21,"55048-0612-30 ")
 ;;479
 ;;21,"55048-0629-60 ")
 ;;130
 ;;21,"55048-0629-71 ")
 ;;131
 ;;21,"55048-0630-60 ")
 ;;132
 ;;21,"55048-0630-71 ")
 ;;133
 ;;21,"55048-0631-60 ")
 ;;1061
 ;;21,"55048-0631-71 ")
 ;;1062
 ;;21,"55048-0632-60 ")
 ;;1063
 ;;21,"55048-0632-71 ")
 ;;1064
 ;;21,"55111-0695-01 ")
 ;;1253
 ;;21,"55111-0696-01 ")
 ;;1322
 ;;21,"55111-0696-10 ")
 ;;1323
 ;;21,"55111-0697-01 ")
 ;;1411
 ;;21,"55111-0697-10 ")
 ;;1412
 ;;21,"55289-0211-60 ")
 ;;1
 ;;21,"55289-0281-30 ")
 ;;1373
 ;;21,"55289-0281-60 ")
 ;;1374
 ;;21,"55289-0281-86 ")
 ;;1375
 ;;21,"55289-0281-90 ")
 ;;1458
 ;;21,"55289-0384-30 ")
 ;;1018
 ;;21,"55289-0384-60 ")
 ;;1019
 ;;21,"55289-0384-86 ")
 ;;1020
 ;;21,"55289-0384-90 ")
 ;;1021
 ;;21,"55289-0384-93 ")
 ;;1022
 ;;21,"55289-0384-94 ")
 ;;1023
 ;;21,"55289-0615-14 ")
 ;;100
 ;;21,"55289-0615-30 ")
 ;;101
 ;;21,"55289-0615-60 ")
 ;;102
 ;;21,"55289-0615-86 ")
 ;;103
 ;;21,"55289-0615-90 ")
 ;;104
 ;;21,"55289-0615-93 ")
 ;;105
 ;;21,"55289-0615-94 ")
 ;;106
 ;;21,"55289-0615-98 ")
 ;;107
 ;;21,"55289-0919-30 ")
 ;;865
 ;;21,"55289-0919-60 ")
 ;;866
 ;;21,"55289-0919-90 ")
 ;;867
 ;;21,"55289-0919-93 ")
 ;;868
 ;;21,"55289-0919-94 ")
 ;;869
 ;;21,"55289-0919-98 ")
 ;;870
 ;;21,"55289-0934-30 ")
 ;;648
 ;;21,"55289-0934-60 ")
 ;;649
 ;;21,"55289-0934-93 ")
 ;;650
 ;;21,"55289-0934-94 ")
 ;;651
 ;;21,"55289-0934-98 ")
 ;;652
 ;;21,"55700-0041-30 ")
 ;;1148
 ;;21,"55887-0368-30 ")
 ;;1439
 ;;21,"55887-0368-60 ")
 ;;1440
 ;;21,"55887-0368-90 ")
 ;;1441
 ;;21,"55887-0414-30 ")
 ;;1096
 ;;21,"55887-0414-60 ")
 ;;1097
 ;;21,"55887-0414-90 ")
 ;;1098
 ;;21,"55887-0571-30 ")
 ;;902
 ;;21,"55887-0571-60 ")
 ;;903
 ;;21,"55887-0571-82 ")
 ;;904
 ;;21,"55887-0571-90 ")
 ;;905
 ;;21,"55887-0614-30 ")
 ;;473
 ;;21,"55887-0614-90 ")
 ;;474
 ;;21,"55887-0627-30 ")
 ;;65
 ;;21,"55887-0627-60 ")
 ;;66
 ;;21,"55887-0627-82 ")
 ;;67
 ;;21,"55887-0627-90 ")
 ;;68
 ;;21,"55887-0627-92 ")
 ;;69
 ;;21,"55887-0940-30 ")
 ;;1136
 ;;21,"55887-0940-90 ")
 ;;1137
 ;;21,"57664-0397-13 ")
 ;;52
 ;;21,"57664-0397-18 ")
 ;;53
 ;;21,"57664-0397-51 ")
 ;;54
 ;;21,"57664-0397-53 ")
 ;;55
 ;;21,"57664-0397-58 ")
 ;;56
 ;;21,"57664-0397-88 ")
 ;;57
 ;;21,"57664-0397-99 ")
 ;;58
 ;;21,"57664-0435-13 ")
 ;;420
 ;;21,"57664-0435-18 ")
 ;;421
 ;;21,"57664-0435-51 ")
 ;;422
 ;;21,"57664-0435-53 ")
 ;;423
 ;;21,"57664-0435-58 ")
 ;;424
 ;;21,"57664-0435-88 ")
 ;;425
 ;;21,"57664-0435-99 ")
 ;;426
 ;;21,"57664-0474-13 ")
 ;;718
 ;;21,"57664-0474-18 ")
 ;;719
 ;;21,"57664-0474-51 ")
 ;;720
 ;;21,"57664-0474-53 ")
 ;;721
 ;;21,"57664-0474-58 ")
 ;;722
 ;;21,"57664-0474-88 ")
 ;;723
 ;;21,"57664-0474-99 ")
 ;;935
 ;;21,"57664-0724-88 ")
 ;;1246
 ;;21,"57664-0725-88 ")
 ;;1219
 ;;21,"57664-0727-88 ")
 ;;1203
 ;;21,"57866-0248-01 ")
 ;;108
 ;;21,"57866-7991-01 ")
 ;;1360
 ;;21,"57866-9054-01 ")
 ;;671
 ;;21,"57866-9054-02 ")
 ;;672
 ;;21,"57866-9054-03 ")
 ;;673
 ;;21,"57866-9054-04 ")
 ;;674
 ;;21,"57866-9054-05 ")
 ;;675
 ;;21,"57866-9055-01 ")
 ;;468
 ;;21,"57866-9055-02 ")
 ;;469
 ;;21,"57866-9055-03 ")
 ;;470
 ;;21,"57866-9055-04 ")
 ;;471
 ;;21,"57866-9055-05 ")
 ;;472
 ;;21,"57866-9056-01 ")
 ;;59
 ;;21,"57866-9056-02 ")
 ;;60
 ;;21,"57866-9056-03 ")
 ;;61
 ;;21,"57866-9056-04 ")
 ;;62
 ;;21,"57866-9056-05 ")
 ;;63
 ;;21,"57866-9056-06 ")
 ;;64
 ;;21,"57866-9059-01 ")
 ;;18
 ;;21,"58016-0058-00 ")
 ;;1271
 ;;21,"58016-0058-30 ")
 ;;1272
 ;;21,"58016-0058-60 ")
 ;;1273
 ;;21,"58016-0058-90 ")
 ;;1274
 ;;21,"58016-0213-00 ")
 ;;7
 ;;21,"58016-0213-10 ")
 ;;8
 ;;21,"58016-0213-30 ")
 ;;9
 ;;21,"58016-0213-60 ")
 ;;10
 ;;21,"58016-0411-00 ")
 ;;1451
 ;;21,"58016-0411-02 ")
 ;;1417
 ;;21,"58016-0411-30 ")
 ;;1418
 ;;21,"58016-0411-60 ")
 ;;1419
 ;;21,"58016-0411-90 ")
 ;;1420
 ;;21,"58016-0457-00 ")
 ;;415
 ;;21,"58016-0457-10 ")
 ;;416
 ;;21,"58016-0457-30 ")
 ;;417
 ;;21,"58016-0457-60 ")
 ;;418
 ;;21,"58016-0466-00 ")
 ;;931
 ;;21,"58016-0466-30 ")
 ;;932
 ;;21,"58016-0466-60 ")
 ;;933
 ;;21,"58016-0466-90 ")
 ;;934
 ;;21,"58016-0536-00 ")
 ;;460
 ;;21,"58016-0536-30 ")
 ;;461
 ;;21,"58016-0536-60 ")
 ;;462
 ;;21,"58016-0536-90 ")
 ;;463
 ;;21,"58016-0553-00 ")
 ;;659
 ;;21,"58016-0553-10 ")
 ;;660
 ;;21,"58016-0553-30 ")
 ;;661
 ;;21,"58016-0553-60 ")
 ;;662
 ;;21,"58016-0772-00 ")
 ;;109
 ;;21,"58016-0772-30 ")
 ;;110
 ;;21,"58016-0772-60 ")
 ;;111
 ;;21,"58016-0772-90 ")
 ;;112
 ;;21,"58016-0883-00 ")
 ;;1091
 ;;21,"58016-0883-30 ")
 ;;1092
 ;;21,"58016-0883-60 ")
 ;;1093
 ;;21,"58016-0883-90 ")
 ;;1094
 ;;21,"58118-0010-06 ")
 ;;744
 ;;21,"58118-0010-08 ")
 ;;745
 ;;21,"58118-0010-09 ")
 ;;746
 ;;21,"58118-0102-03 ")
 ;;124
 ;;21,"58118-0102-06 ")
 ;;125
 ;;21,"58118-0102-09 ")
 ;;126
 ;;21,"58118-2331-03 ")
 ;;1308
 ;;21,"58118-2331-09 ")
 ;;1309
 ;;21,"58118-2332-03 ")
 ;;1396
 ;;21,"58118-2332-09 ")
 ;;1397
 ;;21,"58517-0040-90 ")
 ;;177
 ;;21,"58864-0015-28 ")
 ;;251
 ;;21,"58864-0015-30 ")
 ;;252
 ;;21,"58864-0015-60 ")
 ;;253
 ;;21,"58864-0015-90 ")
 ;;254
 ;;21,"58864-0507-30 ")
 ;;950
 ;;21,"58864-0693-30 ")
 ;;663
 ;;21,"58864-0693-60 ")
 ;;664
 ;;21,"58864-0711-30 ")
 ;;1299
 ;;21,"58864-0789-30 ")
 ;;459
 ;;21,"58864-0851-30 ")
 ;;1065
 ;;21,"58864-0952-30 ")
 ;;1340
 ;;21,"58864-0953-30 ")
 ;;1452
 ;;21,"59630-0574-60 ")
 ;;1140
 ;;21,"59630-0575-60 ")
 ;;1145
 ;;21,"59762-2330-07 ")
 ;;1263
 ;;21,"59762-2331-06 ")
 ;;1331
 ;;21,"59762-2331-08 ")
 ;;1332
 ;;21,"59762-2332-06 ")
 ;;1380
 ;;21,"59762-2332-08 ")
 ;;1381
 ;;21,"59762-4320-00 ")
 ;;121
 ;;21,"59762-4320-02 ")
 ;;122
 ;;21,"59762-4320-06 ")
 ;;123
 ;;21,"59762-4321-00 ")
 ;;491
 ;;21,"59762-4321-02 ")
 ;;492
 ;;21,"59762-4321-06 ")
 ;;493
 ;;21,"59762-4322-00 ")
 ;;741
 ;;21,"59762-4322-02 ")
 ;;742
 ;;21,"59762-4322-06 ")
 ;;743
 ;;21,"60429-0111-01 ")
 ;;188
 ;;21,"60429-0111-10 ")
 ;;189
 ;;21,"60429-0111-12 ")
 ;;190
 ;;21,"60429-0111-18 ")
 ;;191
 ;;21,"60429-0111-27 ")
 ;;192
 ;;21,"60429-0111-36 ")
 ;;193
 ;;21,"60429-0111-45 ")
 ;;194
 ;;21,"60429-0111-60 ")
 ;;195
 ;;21,"60429-0111-90 ")
 ;;196
 ;;21,"60429-0112-01 ")
 ;;540
 ;;21,"60429-0112-05 ")
 ;;541
 ;;21,"60429-0112-18 ")
 ;;542
 ;;21,"60429-0112-27 ")
 ;;543
 ;;21,"60429-0112-90 ")
 ;;544
 ;;21,"60429-0113-05 ")
 ;;897
 ;;21,"60429-0113-10 ")
 ;;898
 ;;21,"60429-0113-18 ")
 ;;899
 ;;21,"60429-0113-60 ")
 ;;900
 ;;21,"60429-0113-90 ")
 ;;901
 ;;21,"60429-0280-01 ")
 ;;1129
 ;;21,"60429-0280-10 ")
 ;;1130
 ;;21,"60429-0280-18 ")
 ;;1131
 ;;21,"60429-0722-18 ")
 ;;871
 ;;21,"60429-0722-60 ")
 ;;872
 ;;21,"60429-0723-12 ")
 ;;326
 ;;21,"60429-0723-18 ")
 ;;327
 ;;21,"60429-0723-60 ")
 ;;328
 ;;21,"60429-0723-90 ")
 ;;329
 ;;21,"60429-0724-18 ")
 ;;646
 ;;21,"60429-0724-60 ")
 ;;647
 ;;21,"60429-0725-05 ")
 ;;983
 ;;21,"60429-0725-18 ")
 ;;984
 ;;21,"60429-0725-60 ")
 ;;985
 ;;21,"60429-0725-90 ")
 ;;986
 ;;21,"60505-0190-00 ")
 ;;173
 ;;21,"60505-0190-01 ")
 ;;174
 ;;21,"60505-0190-04 ")
 ;;175
 ;;21,"60505-0190-08 ")
 ;;176
 ;;21,"60505-0191-00 ")
 ;;522
 ;;21,"60505-0191-01 ")
 ;;523
 ;;21,"60505-0191-04 ")
 ;;524
 ;;21,"60505-0191-08 ")
 ;;525
 ;;21,"60505-0192-00 ")
 ;;917
 ;;21,"60505-0192-01 ")
 ;;918
 ;;21,"60505-0192-04 ")
 ;;919
 ;;21,"60505-0192-08 ")
 ;;920
 ;;21,"60505-0260-01 ")
 ;;1031
 ;;21,"60505-0260-02 ")
 ;;1032
 ;;21,"60505-0260-07 ")
 ;;1033
 ;;21,"60505-1329-01 ")
 ;;1122
 ;;21,"60760-0042-60 ")
 ;;980
 ;;21,"60760-0175-30 ")
 ;;1216
 ;;21,"60760-0175-90 ")
 ;;1217
 ;;21,"60760-0176-30 ")
 ;;1234
 ;;21,"60760-0176-90 ")
 ;;1235
 ;;21,"60760-0973-60 ")
 ;;113
 ;;21,"60760-0973-98 ")
 ;;114
 ;;21,"60760-0974-60 ")
 ;;499
 ;;21,"60760-0974-90 ")
 ;;500