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

BGP51F3.m

Go to the documentation of this file.
BGP51F3 ;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,"52959-0433-15 ")
 ;;830
 ;;21,"52959-0433-20 ")
 ;;831
 ;;21,"52959-0433-30 ")
 ;;832
 ;;21,"52959-0433-40 ")
 ;;833
 ;;21,"52959-0433-50 ")
 ;;834
 ;;21,"52959-0433-60 ")
 ;;835
 ;;21,"52959-0481-10 ")
 ;;482
 ;;21,"52959-0481-12 ")
 ;;483
 ;;21,"52959-0481-20 ")
 ;;484
 ;;21,"52959-0481-30 ")
 ;;485
 ;;21,"52959-0501-20 ")
 ;;257
 ;;21,"52959-0534-01 ")
 ;;990
 ;;21,"52959-0534-02 ")
 ;;991
 ;;21,"52959-0534-10 ")
 ;;992
 ;;21,"52959-0534-12 ")
 ;;993
 ;;21,"52959-0534-15 ")
 ;;994
 ;;21,"52959-0534-20 ")
 ;;995
 ;;21,"52959-0534-28 ")
 ;;996
 ;;21,"52959-0534-30 ")
 ;;997
 ;;21,"52959-0534-45 ")
 ;;998
 ;;21,"52959-0534-60 ")
 ;;999
 ;;21,"52959-0534-90 ")
 ;;1000
 ;;21,"52959-0568-04 ")
 ;;1448
 ;;21,"52959-0582-03 ")
 ;;749
 ;;21,"52959-0700-04 ")
 ;;1513
 ;;21,"52959-0700-06 ")
 ;;1514
 ;;21,"52959-0700-08 ")
 ;;1515
 ;;21,"52959-0731-12 ")
 ;;1389
 ;;21,"52959-0804-04 ")
 ;;1303
 ;;21,"52959-0804-08 ")
 ;;1304
 ;;21,"52959-0833-06 ")
 ;;889
 ;;21,"52959-0833-20 ")
 ;;890
 ;;21,"52959-0871-30 ")
 ;;242
 ;;21,"52959-0882-30 ")
 ;;747
 ;;21,"52959-0914-30 ")
 ;;989
 ;;21,"53002-0327-92 ")
 ;;1476
 ;;21,"53002-0402-05 ")
 ;;1001
 ;;21,"53002-0402-10 ")
 ;;1002
 ;;21,"53002-0402-20 ")
 ;;1003
 ;;21,"53002-0402-30 ")
 ;;1004
 ;;21,"53002-0621-10 ")
 ;;836
 ;;21,"53002-0621-15 ")
 ;;837
 ;;21,"53002-0621-20 ")
 ;;838
 ;;21,"53002-0621-30 ")
 ;;839
 ;;21,"53002-0621-40 ")
 ;;840
 ;;21,"53014-0548-01 ")
 ;;211
 ;;21,"53014-0548-67 ")
 ;;212
 ;;21,"53217-0007-20 ")
 ;;745
 ;;21,"53217-0007-30 ")
 ;;746
 ;;21,"53217-0048-01 ")
 ;;1390
 ;;21,"54348-0117-12 ")
 ;;1248
 ;;21,"54348-0650-01 ")
 ;;349
 ;;21,"54348-0650-02 ")
 ;;350
 ;;21,"54348-0650-06 ")
 ;;351
 ;;21,"54348-0650-20 ")
 ;;352
 ;;21,"54348-0650-50 ")
 ;;353
 ;;21,"54348-0920-06 ")
 ;;406
 ;;21,"54348-0920-12 ")
 ;;407
 ;;21,"54348-0921-04 ")
 ;;664
 ;;21,"54348-0921-06 ")
 ;;665
 ;;21,"54348-0921-10 ")
 ;;666
 ;;21,"54348-0988-06 ")
 ;;922
 ;;21,"54569-0239-00 ")
 ;;306
 ;;21,"54569-0239-01 ")
 ;;307
 ;;21,"54569-0239-02 ")
 ;;308
 ;;21,"54569-0239-03 ")
 ;;309
 ;;21,"54569-0241-00 ")
 ;;345
 ;;21,"54569-0241-02 ")
 ;;346
 ;;21,"54569-0241-03 ")
 ;;347
 ;;21,"54569-0241-05 ")
 ;;348
 ;;21,"54569-0406-00 ")
 ;;408
 ;;21,"54569-0406-03 ")
 ;;409
 ;;21,"54569-0409-01 ")
 ;;678
 ;;21,"54569-0409-03 ")
 ;;679
 ;;21,"54569-0409-04 ")
 ;;680
 ;;21,"54569-0413-00 ")
 ;;659
 ;;21,"54569-0413-01 ")
 ;;660
 ;;21,"54569-0413-04 ")
 ;;661
 ;;21,"54569-0413-06 ")
 ;;662
 ;;21,"54569-0413-08 ")
 ;;663
 ;;21,"54569-1046-00 ")
 ;;1315
 ;;21,"54569-1047-00 ")
 ;;1503
 ;;21,"54569-1054-00 ")
 ;;1455
 ;;21,"54569-1055-00 ")
 ;;1537
 ;;21,"54569-1056-00 ")
 ;;1491
 ;;21,"54569-1640-01 ")
 ;;763
 ;;21,"54569-1754-00 ")
 ;;1249
 ;;21,"54569-1754-01 ")
 ;;1250
 ;;21,"54569-1754-05 ")
 ;;1251
 ;;21,"54569-1754-06 ")
 ;;1252
 ;;21,"54569-1754-09 ")
 ;;1253
 ;;21,"54569-2353-02 ")
 ;;824
 ;;21,"54569-2353-05 ")
 ;;825
 ;;21,"54569-2571-01 ")
 ;;921
 ;;21,"54569-3540-02 ")
 ;;1490
 ;;21,"54569-3882-00 ")
 ;;1316
 ;;21,"54569-4168-00 ")
 ;;1254
 ;;21,"54569-4168-03 ")
 ;;1255
 ;;21,"54569-4510-00 ")
 ;;214
 ;;21,"54569-5609-00 ")
 ;;1372
 ;;21,"54569-5609-01 ")
 ;;1373
 ;;21,"54569-5736-00 ")
 ;;1454
 ;;21,"54569-5744-00 ")
 ;;1386
 ;;21,"54569-5744-01 ")
 ;;1387
 ;;21,"54569-5745-00 ")
 ;;1420
 ;;21,"54569-5745-01 ")
 ;;1421
 ;;21,"54569-5745-02 ")
 ;;1422
 ;;21,"54569-5747-00 ")
 ;;1343
 ;;21,"54569-6379-00 ")
 ;;1351
 ;;21,"54569-8321-00 ")
 ;;667
 ;;21,"54569-8329-00 ")
 ;;1256
 ;;21,"54738-0554-01 ")
 ;;1550
 ;;21,"54738-0554-03 ")
 ;;1551
 ;;21,"54738-0555-01 ")
 ;;1562
 ;;21,"54738-0555-03 ")
 ;;1563
 ;;21,"54838-0502-80 ")
 ;;765
 ;;21,"54838-0514-40 ")
 ;;262
 ;;21,"54859-0502-10 ")
 ;;146
 ;;21,"54859-0801-60 ")
 ;;147
 ;;21,"54868-0026-07 ")
 ;;305
 ;;21,"54868-0063-00 ")
 ;;668
 ;;21,"54868-0063-02 ")
 ;;669
 ;;21,"54868-0063-03 ")
 ;;670
 ;;21,"54868-0063-04 ")
 ;;671
 ;;21,"54868-0063-05 ")
 ;;672
 ;;21,"54868-0063-07 ")
 ;;673
 ;;21,"54868-0063-09 ")
 ;;674
 ;;21,"54868-0229-01 ")
 ;;402
 ;;21,"54868-0229-02 ")
 ;;403
 ;;21,"54868-0229-03 ")
 ;;404
 ;;21,"54868-0229-04 ")
 ;;405
 ;;21,"54868-0229-05 ")
 ;;401
 ;;21,"54868-0263-00 ")
 ;;1504
 ;;21,"54868-0263-01 ")
 ;;1505
 ;;21,"54868-0534-02 ")
 ;;213
 ;;21,"54868-0601-00 ")
 ;;1423
 ;;21,"54868-0601-01 ")
 ;;1424
 ;;21,"54868-0601-02 ")
 ;;1425
 ;;21,"54868-0601-03 ")
 ;;1426
 ;;21,"54868-1029-00 ")
 ;;1492
 ;;21,"54868-1029-01 ")
 ;;1493
 ;;21,"54868-1029-02 ")
 ;;1494
 ;;21,"54868-1323-00 ")
 ;;1257
 ;;21,"54868-1323-01 ")
 ;;1258
 ;;21,"54868-1323-02 ")
 ;;1259
 ;;21,"54868-1323-04 ")
 ;;1260
 ;;21,"54868-1323-05 ")
 ;;1261
 ;;21,"54868-1323-06 ")
 ;;1262
 ;;21,"54868-1323-07 ")
 ;;1263
 ;;21,"54868-1323-08 ")
 ;;1264
 ;;21,"54868-1323-09 ")
 ;;1265
 ;;21,"54868-1332-03 ")
 ;;271
 ;;21,"54868-1332-04 ")
 ;;272
 ;;21,"54868-1332-05 ")
 ;;273
 ;;21,"54868-1332-06 ")
 ;;274
 ;;21,"54868-1332-07 ")
 ;;275
 ;;21,"54868-1613-00 ")
 ;;1437
 ;;21,"54868-1613-01 ")
 ;;1438
 ;;21,"54868-1613-02 ")
 ;;1439
 ;;21,"54868-1613-03 ")
 ;;1440
 ;;21,"54868-1804-02 ")
 ;;675
 ;;21,"54868-1804-04 ")
 ;;676
 ;;21,"54868-1804-05 ")
 ;;677
 ;;21,"54868-1854-00 ")
 ;;923
 ;;21,"54868-1854-01 ")
 ;;924
 ;;21,"54868-1854-03 ")
 ;;925
 ;;21,"54868-1867-00 ")
 ;;1314
 ;;21,"54868-1990-00 ")
 ;;1536
 ;;21,"54868-2032-00 ")
 ;;764
 ;;21,"54868-2088-00 ")
 ;;1374
 ;;21,"54868-2189-01 ")
 ;;177
 ;;21,"54868-2189-03 ")
 ;;175
 ;;21,"54868-2292-00 ")
 ;;72
 ;;21,"54868-2292-02 ")
 ;;73
 ;;21,"54868-2301-00 ")
 ;;68
 ;;21,"54868-2301-02 ")
 ;;69
 ;;21,"54868-2340-02 ")
 ;;1552
 ;;21,"54868-2340-03 ")
 ;;1553
 ;;21,"54868-2844-00 ")
 ;;1266
 ;;21,"54868-2844-01 ")
 ;;1267
 ;;21,"54868-2892-00 ")
 ;;820
 ;;21,"54868-2892-03 ")
 ;;821
 ;;21,"54868-2892-04 ")
 ;;822
 ;;21,"54868-2892-05 ")
 ;;823
 ;;21,"54868-3007-00 ")
 ;;260
 ;;21,"54868-3007-01 ")
 ;;261
 ;;21,"54868-3935-00 ")
 ;;1452
 ;;21,"54868-3935-01 ")
 ;;1453
 ;;21,"54868-4021-00 ")
 ;;1344
 ;;21,"54868-4336-00 ")
 ;;766
 ;;21,"54868-4336-01 ")
 ;;767
 ;;21,"54868-4338-00 ")
 ;;294
 ;;21,"54868-4686-00 ")
 ;;1435
 ;;21,"54868-4794-00 ")
 ;;1383
 ;;21,"54868-4794-01 ")
 ;;1384
 ;;21,"54868-4794-02 ")
 ;;1385
 ;;21,"54868-5121-00 ")
 ;;943
 ;;21,"54868-5121-02 ")
 ;;944
 ;;21,"54868-5121-03 ")
 ;;945
 ;;21,"54868-5121-04 ")
 ;;946
 ;;21,"54868-5151-01 ")
 ;;1538
 ;;21,"54868-5151-02 ")
 ;;1539
 ;;21,"54868-5151-04 ")
 ;;1540
 ;;21,"54868-5151-05 ")
 ;;1541
 ;;21,"54868-5957-00 ")
 ;;220
 ;;21,"54868-6098-00 ")
 ;;245
 ;;21,"54868-6196-00 ")
 ;;201
 ;;21,"54868-6196-01 ")
 ;;202
 ;;21,"54868-6377-00 ")
 ;;138
 ;;21,"55045-1124-00 ")
 ;;368
 ;;21,"55045-1124-01 ")
 ;;369
 ;;21,"55045-1124-05 ")
 ;;370
 ;;21,"55045-1124-08 ")
 ;;371
 ;;21,"55045-1250-02 ")
 ;;1528
 ;;21,"55045-1266-08 ")
 ;;1498
 ;;21,"55045-1417-02 ")
 ;;752
 ;;21,"55045-1446-05 ")
 ;;533
 ;;21,"55045-1446-07 ")
 ;;534
 ;;21,"55045-1446-08 ")
 ;;535
 ;;21,"55045-1446-09 ")
 ;;536
 ;;21,"55045-1596-00 ")
 ;;1067
 ;;21,"55045-1596-01 ")
 ;;1068
 ;;21,"55045-1596-02 ")
 ;;1069
 ;;21,"55045-1596-03 ")
 ;;1070
 ;;21,"55045-1596-05 ")
 ;;1071
 ;;21,"55045-1596-06 ")
 ;;1072
 ;;21,"55045-1596-08 ")
 ;;1073
 ;;21,"55045-1596-09 ")
 ;;1074
 ;;21,"55045-1643-09 ")
 ;;1296
 ;;21,"55045-1661-08 ")
 ;;897
 ;;21,"55045-1687-02 ")
 ;;1468
 ;;21,"55045-1699-02 ")
 ;;1446
 ;;21,"55045-1805-07 ")
 ;;464
 ;;21,"55045-1805-08 ")
 ;;465
 ;;21,"55045-2195-05 ")
 ;;879
 ;;21,"55045-2195-07 ")
 ;;880
 ;;21,"55045-2195-08 ")
 ;;881
 ;;21,"55045-3011-02 ")
 ;;1417
 ;;21,"55045-3011-03 ")
 ;;1418
 ;;21,"55045-3514-02 ")
 ;;1350
 ;;21,"55045-3591-01 ")
 ;;241
 ;;21,"55048-0045-60 ")
 ;;90
 ;;21,"55048-0355-90 ")
 ;;882
 ;;21,"55048-0367-15 ")
 ;;522
 ;;21,"55048-0367-20 ")
 ;;523
 ;;21,"55048-0367-30 ")
 ;;524
 ;;21,"55048-0367-60 ")
 ;;525
 ;;21,"55048-0603-00 ")
 ;;1046
 ;;21,"55048-0603-02 ")
 ;;1047
 ;;21,"55048-0603-06 ")
 ;;1048
 ;;21,"55048-0603-12 ")
 ;;1049
 ;;21,"55048-0603-15 ")
 ;;1050
 ;;21,"55048-0603-20 ")
 ;;1051
 ;;21,"55048-0603-30 ")
 ;;1052
 ;;21,"55048-0603-40 ")
 ;;1053
 ;;21,"55048-0603-60 ")
 ;;1054
 ;;21,"55048-0603-71 ")
 ;;1055
 ;;21,"55048-0603-90 ")
 ;;1056
 ;;21,"55048-0604-02 ")
 ;;978
 ;;21,"55048-0604-30 ")
 ;;979
 ;;21,"55048-0609-30 ")
 ;;1286
 ;;21,"55048-0609-60 ")
 ;;1287
 ;;21,"55289-0100-01 ")
 ;;362
 ;;21,"55289-0100-10 ")
 ;;363
 ;;21,"55289-0100-15 ")
 ;;364
 ;;21,"55289-0100-20 ")
 ;;365
 ;;21,"55289-0100-30 ")
 ;;366
 ;;21,"55289-0100-40 ")
 ;;367
 ;;21,"55289-0138-12 ")
 ;;727
 ;;21,"55289-0138-17 ")
 ;;728
 ;;21,"55289-0138-20 ")
 ;;729
 ;;21,"55289-0138-25 ")
 ;;730
 ;;21,"55289-0138-30 ")
 ;;731
 ;;21,"55289-0139-06 ")
 ;;526
 ;;21,"55289-0139-10 ")
 ;;527
 ;;21,"55289-0139-12 ")
 ;;528
 ;;21,"55289-0139-20 ")
 ;;529
 ;;21,"55289-0139-30 ")
 ;;530
 ;;21,"55289-0139-40 ")
 ;;531
 ;;21,"55289-0139-60 ")
 ;;532
 ;;21,"55289-0226-10 ")
 ;;883
 ;;21,"55289-0226-15 ")
 ;;884
 ;;21,"55289-0226-30 ")
 ;;885
 ;;21,"55289-0354-10 ")
 ;;896
 ;;21,"55289-0464-02 ")
 ;;1057
 ;;21,"55289-0464-05 ")
 ;;1058
 ;;21,"55289-0464-10 ")
 ;;1059
 ;;21,"55289-0464-12 ")
 ;;1060
 ;;21,"55289-0464-15 ")
 ;;1061
 ;;21,"55289-0464-20 ")
 ;;1062
 ;;21,"55289-0464-25 ")
 ;;1063
 ;;21,"55289-0464-30 ")
 ;;1064
 ;;21,"55289-0464-60 ")
 ;;1065
 ;;21,"55289-0464-79 ")
 ;;1066
 ;;21,"55289-0531-04 ")
 ;;1285
 ;;21,"55289-0762-30 ")
 ;;256
 ;;21,"55289-0912-10 ")
 ;;466
 ;;21,"55289-0912-30 ")
 ;;467
 ;;21,"55289-0912-60 ")
 ;;468
 ;;21,"55289-0928-02 ")
 ;;1413
 ;;21,"55289-0928-04 ")
 ;;1414
 ;;21,"55289-0928-06 ")
 ;;1415
 ;;21,"55289-0928-79 ")
 ;;1416
 ;;21,"55289-0940-02 ")
 ;;1392
 ;;21,"55289-0940-06 ")
 ;;1393
 ;;21,"55289-0948-02 ")
 ;;976
 ;;21,"55494-0100-10 ")
 ;;400
 ;;21,"55700-0033-30 ")
 ;;89
 ;;21,"55700-0042-15 ")
 ;;372
 ;;21,"55700-0042-20 ")
 ;;373
 ;;21,"55700-0042-30 ")
 ;;374
 ;;21,"55700-0042-60 ")
 ;;375
 ;;21,"57664-0107-88 ")
 ;;977
 ;;21,"57664-0108-18 ")
 ;;1075
 ;;21,"57664-0108-88 ")
 ;;1076
 ;;21,"57664-0109-88 ")
 ;;1284
 ;;21,"57664-0146-31 ")
 ;;1294
 ;;21,"57664-0146-34 ")
 ;;1295
 ;;21,"57664-0185-31 ")
 ;;1469
 ;;21,"57664-0185-34 ")
 ;;1470
 ;;21,"58016-0018-00 ")
 ;;42
 ;;21,"58016-0018-30 ")
 ;;43
 ;;21,"58016-0018-60 ")
 ;;44
 ;;21,"58016-0018-90 ")
 ;;45
 ;;21,"58016-0041-00 ")
 ;;285
 ;;21,"58016-0041-30 ")
 ;;286
 ;;21,"58016-0041-60 ")
 ;;287
 ;;21,"58016-0041-90 ")
 ;;288
 ;;21,"58016-0259-00 ")
 ;;812
 ;;21,"58016-0259-10 ")
 ;;813
 ;;21,"58016-0259-20 ")
 ;;814
 ;;21,"58016-0259-30 ")
 ;;815
 ;;21,"58016-0259-50 ")
 ;;816
 ;;21,"58016-0259-60 ")
 ;;817
 ;;21,"58016-0390-01 ")
 ;;1489
 ;;21,"58016-0405-00 ")
 ;;415
 ;;21,"58016-0405-06 ")
 ;;416
 ;;21,"58016-0405-15 ")
 ;;417
 ;;21,"58016-0405-20 ")
 ;;418
 ;;21,"58016-0405-30 ")
 ;;419
 ;;21,"58016-0406-00 ")
 ;;645
 ;;21,"58016-0406-09 ")
 ;;646
 ;;21,"58016-0406-12 ")
 ;;647
 ;;21,"58016-0406-15 ")
 ;;648
 ;;21,"58016-0406-20 ")
 ;;649
 ;;21,"58016-0406-30 ")
 ;;650
 ;;21,"58016-0406-40 ")
 ;;651
 ;;21,"58016-0406-60 ")
 ;;652
 ;;21,"58016-0407-01 ")
 ;;762
 ;;21,"58016-0409-00 ")
 ;;335
 ;;21,"58016-0409-10 ")
 ;;336
 ;;21,"58016-0409-12 ")
 ;;337
 ;;21,"58016-0409-15 ")
 ;;338
 ;;21,"58016-0409-20 ")
 ;;339
 ;;21,"58016-0409-21 ")
 ;;340
 ;;21,"58016-0409-24 ")
 ;;341
 ;;21,"58016-0409-30 ")
 ;;342
 ;;21,"58016-0409-60 ")
 ;;343
 ;;21,"58016-0409-90 ")
 ;;344
 ;;21,"58016-0424-00 ")
 ;;1235
 ;;21,"58016-0424-02 ")
 ;;1236
 ;;21,"58016-0424-03 ")
 ;;1237
 ;;21,"58016-0424-10 ")
 ;;1238
 ;;21,"58016-0424-12 ")
 ;;1239
 ;;21,"58016-0424-15 ")
 ;;1240
 ;;21,"58016-0424-20 ")
 ;;1241
 ;;21,"58016-0424-30 ")
 ;;1242
 ;;21,"58016-0424-50 ")
 ;;1243
 ;;21,"58016-0424-60 ")
 ;;1244
 ;;21,"58016-0424-73 ")
 ;;1245
 ;;21,"58016-0424-89 ")
 ;;1246
 ;;21,"58016-0424-90 ")
 ;;1247
 ;;21,"58016-0452-00 ")
 ;;686
 ;;21,"58016-0452-20 ")
 ;;687
 ;;21,"58016-0452-30 ")
 ;;688
 ;;21,"58016-0464-10 ")
 ;;917
 ;;21,"58016-0464-15 ")
 ;;918
 ;;21,"58016-0464-20 ")
 ;;919
 ;;21,"58016-0464-30 ")
 ;;920
 ;;21,"58016-0472-24 ")
 ;;1312
 ;;21,"58016-0472-36 ")
 ;;1313
 ;;21,"58016-4845-01 ")
 ;;761
 ;;21,"58016-4852-01 ")
 ;;215
 ;;21,"58016-5009-01 ")
 ;;1419
 ;;21,"58016-9299-01 ")
 ;;772
 ;;21,"58118-0011-06 ")
 ;;643
 ;;21,"58118-0011-08 ")
 ;;644
 ;;21,"58118-0012-06 ")
 ;;689
 ;;21,"58118-0012-08 ")
 ;;690
 ;;21,"58118-0034-01 ")
 ;;1311
 ;;21,"58118-0613-03 ")
 ;;808
 ;;21,"58118-0613-06 ")
 ;;809