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

BGP50M2.m

Go to the documentation of this file.
BGP50M2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 06, 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,"13411-0162-09 ")
 ;;1289
 ;;21,"13411-0162-15 ")
 ;;1290
 ;;21,"16252-0505-30 ")
 ;;1087
 ;;21,"16252-0505-50 ")
 ;;1088
 ;;21,"16252-0505-90 ")
 ;;1089
 ;;21,"16252-0506-30 ")
 ;;1205
 ;;21,"16252-0506-50 ")
 ;;1206
 ;;21,"16252-0506-90 ")
 ;;1207
 ;;21,"16252-0507-30 ")
 ;;1386
 ;;21,"16252-0507-50 ")
 ;;1387
 ;;21,"16252-0507-90 ")
 ;;1388
 ;;21,"16252-0508-30 ")
 ;;1555
 ;;21,"16252-0508-50 ")
 ;;1556
 ;;21,"16252-0508-90 ")
 ;;1557
 ;;21,"16252-0509-30 ")
 ;;1705
 ;;21,"16252-0509-50 ")
 ;;1706
 ;;21,"16252-0509-90 ")
 ;;1707
 ;;21,"16252-0526-90 ")
 ;;844
 ;;21,"16252-0527-50 ")
 ;;911
 ;;21,"16252-0527-90 ")
 ;;912
 ;;21,"16252-0528-50 ")
 ;;1011
 ;;21,"16252-0528-90 ")
 ;;1012
 ;;21,"16252-0529-90 ")
 ;;1086
 ;;21,"16590-0411-30 ")
 ;;726
 ;;21,"16590-0431-30 ")
 ;;1547
 ;;21,"16590-0431-90 ")
 ;;1548
 ;;21,"16590-0446-30 ")
 ;;1395
 ;;21,"16590-0546-30 ")
 ;;1007
 ;;21,"16590-0546-90 ")
 ;;1008
 ;;21,"16590-0547-30 ")
 ;;548
 ;;21,"16590-0547-60 ")
 ;;549
 ;;21,"16590-0547-72 ")
 ;;550
 ;;21,"16590-0547-90 ")
 ;;551
 ;;21,"16590-0726-90 ")
 ;;1711
 ;;21,"16590-0941-30 ")
 ;;675
 ;;21,"16714-0681-01 ")
 ;;1090
 ;;21,"16714-0681-02 ")
 ;;1091
 ;;21,"16714-0682-01 ")
 ;;1208
 ;;21,"16714-0682-02 ")
 ;;1209
 ;;21,"16714-0682-03 ")
 ;;1210
 ;;21,"16714-0683-01 ")
 ;;1392
 ;;21,"16714-0683-02 ")
 ;;1393
 ;;21,"16714-0683-03 ")
 ;;1394
 ;;21,"16714-0684-01 ")
 ;;1549
 ;;21,"16714-0684-02 ")
 ;;1550
 ;;21,"16714-0684-03 ")
 ;;1551
 ;;21,"16714-0685-01 ")
 ;;1712
 ;;21,"16714-0685-02 ")
 ;;1713
 ;;21,"16714-0685-03 ")
 ;;1714
 ;;21,"16729-0004-10 ")
 ;;1211
 ;;21,"16729-0004-15 ")
 ;;1212
 ;;21,"16729-0004-17 ")
 ;;1213
 ;;21,"16729-0005-10 ")
 ;;1389
 ;;21,"16729-0005-15 ")
 ;;1390
 ;;21,"16729-0005-17 ")
 ;;1391
 ;;21,"16729-0006-10 ")
 ;;1552
 ;;21,"16729-0006-15 ")
 ;;1553
 ;;21,"16729-0006-17 ")
 ;;1554
 ;;21,"16729-0007-10 ")
 ;;1708
 ;;21,"16729-0007-15 ")
 ;;1709
 ;;21,"16729-0007-17 ")
 ;;1710
 ;;21,"21695-0178-30 ")
 ;;843
 ;;21,"21695-0179-30 ")
 ;;913
 ;;21,"21695-0179-90 ")
 ;;914
 ;;21,"21695-0180-30 ")
 ;;1009
 ;;21,"21695-0180-90 ")
 ;;1010
 ;;21,"21695-0255-90 ")
 ;;266
 ;;21,"21695-0287-90 ")
 ;;727
 ;;21,"21695-0288-90 ")
 ;;771
 ;;21,"21695-0325-30 ")
 ;;1862
 ;;21,"21695-0339-30 ")
 ;;1866
 ;;21,"21695-0534-30 ")
 ;;441
 ;;21,"21695-0535-30 ")
 ;;543
 ;;21,"21695-0535-90 ")
 ;;544
 ;;21,"21695-0536-30 ")
 ;;678
 ;;21,"21695-0536-90 ")
 ;;679
 ;;21,"21695-0659-30 ")
 ;;784
 ;;21,"21695-0738-90 ")
 ;;1116
 ;;21,"21695-0739-30 ")
 ;;1240
 ;;21,"21695-0739-90 ")
 ;;1241
 ;;21,"21695-0740-30 ")
 ;;1442
 ;;21,"21695-0740-90 ")
 ;;1443
 ;;21,"21695-0741-30 ")
 ;;1578
 ;;21,"21695-0741-90 ")
 ;;1579
 ;;21,"21695-0742-30 ")
 ;;1758
 ;;21,"21695-0742-90 ")
 ;;1759
 ;;21,"21695-0759-90 ")
 ;;713
 ;;21,"21695-0827-30 ")
 ;;1893
 ;;21,"23490-0131-03 ")
 ;;164
 ;;21,"23490-0132-03 ")
 ;;265
 ;;21,"23490-0133-03 ")
 ;;358
 ;;21,"23490-0167-03 ")
 ;;1863
 ;;21,"23490-1981-03 ")
 ;;1071
 ;;21,"23490-5838-02 ")
 ;;442
 ;;21,"23490-5838-06 ")
 ;;443
 ;;21,"23490-5838-09 ")
 ;;444
 ;;21,"23490-5839-00 ")
 ;;541
 ;;21,"23490-5839-01 ")
 ;;542
 ;;21,"23490-5840-01 ")
 ;;680
 ;;21,"23490-5840-02 ")
 ;;681
 ;;21,"23490-9350-03 ")
 ;;831
 ;;21,"23490-9350-06 ")
 ;;832
 ;;21,"23490-9350-09 ")
 ;;833
 ;;21,"23490-9351-03 ")
 ;;925
 ;;21,"23490-9351-06 ")
 ;;926
 ;;21,"23490-9351-09 ")
 ;;927
 ;;21,"23490-9352-03 ")
 ;;1035
 ;;21,"23490-9352-06 ")
 ;;1036
 ;;21,"23490-9352-09 ")
 ;;1037
 ;;21,"23490-9353-03 ")
 ;;1242
 ;;21,"23490-9353-06 ")
 ;;1243
 ;;21,"23490-9353-09 ")
 ;;1244
 ;;21,"23490-9354-03 ")
 ;;1439
 ;;21,"23490-9354-06 ")
 ;;1440
 ;;21,"23490-9354-09 ")
 ;;1441
 ;;21,"23490-9355-03 ")
 ;;1580
 ;;21,"23490-9355-06 ")
 ;;1581
 ;;21,"23490-9355-09 ")
 ;;1582
 ;;21,"23490-9356-03 ")
 ;;1113
 ;;21,"23490-9356-06 ")
 ;;1114
 ;;21,"23490-9356-09 ")
 ;;1115
 ;;21,"23490-9357-03 ")
 ;;1755
 ;;21,"23490-9357-06 ")
 ;;1756
 ;;21,"23490-9357-09 ")
 ;;1757
 ;;21,"23490-9925-01 ")
 ;;728
 ;;21,"23490-9925-09 ")
 ;;729
 ;;21,"23490-9926-01 ")
 ;;770
 ;;21,"24658-0210-10 ")
 ;;1117
 ;;21,"24658-0210-30 ")
 ;;1118
 ;;21,"24658-0210-45 ")
 ;;1119
 ;;21,"24658-0210-90 ")
 ;;1120
 ;;21,"24658-0211-10 ")
 ;;1236
 ;;21,"24658-0211-30 ")
 ;;1237
 ;;21,"24658-0211-45 ")
 ;;1238
 ;;21,"24658-0211-90 ")
 ;;1239
 ;;21,"24658-0212-10 ")
 ;;1444
 ;;21,"24658-0212-30 ")
 ;;1445
 ;;21,"24658-0212-45 ")
 ;;1446
 ;;21,"24658-0212-90 ")
 ;;1447
 ;;21,"24658-0213-10 ")
 ;;1574
 ;;21,"24658-0213-30 ")
 ;;1575
 ;;21,"24658-0213-45 ")
 ;;1576
 ;;21,"24658-0213-90 ")
 ;;1577
 ;;21,"24658-0214-10 ")
 ;;1760
 ;;21,"24658-0214-30 ")
 ;;1761
 ;;21,"24658-0214-45 ")
 ;;1762
 ;;21,"24658-0214-90 ")
 ;;1763
 ;;21,"24658-0300-10 ")
 ;;1121
 ;;21,"24658-0300-30 ")
 ;;1122
 ;;21,"24658-0300-45 ")
 ;;1123
 ;;21,"24658-0300-90 ")
 ;;1124
 ;;21,"24658-0301-10 ")
 ;;1231
 ;;21,"24658-0301-15 ")
 ;;1232
 ;;21,"24658-0301-30 ")
 ;;1233
 ;;21,"24658-0301-45 ")
 ;;1234
 ;;21,"24658-0301-90 ")
 ;;1235
 ;;21,"24658-0302-10 ")
 ;;1448
 ;;21,"24658-0302-15 ")
 ;;1449
 ;;21,"24658-0302-30 ")
 ;;1450
 ;;21,"24658-0302-45 ")
 ;;1451
 ;;21,"24658-0302-90 ")
 ;;1452
 ;;21,"24658-0303-10 ")
 ;;1569
 ;;21,"24658-0303-15 ")
 ;;1570
 ;;21,"24658-0303-30 ")
 ;;1571
 ;;21,"24658-0303-45 ")
 ;;1572
 ;;21,"24658-0303-90 ")
 ;;1573
 ;;21,"24658-0304-10 ")
 ;;1764
 ;;21,"24658-0304-15 ")
 ;;1765
 ;;21,"24658-0304-30 ")
 ;;1766
 ;;21,"24658-0304-45 ")
 ;;1767
 ;;21,"24658-0304-90 ")
 ;;1768
 ;;21,"33261-0541-02 ")
 ;;1435
 ;;21,"33261-0541-30 ")
 ;;1436
 ;;21,"33261-0541-60 ")
 ;;1437
 ;;21,"33261-0541-90 ")
 ;;1438
 ;;21,"33261-0542-02 ")
 ;;1583
 ;;21,"33261-0542-30 ")
 ;;1584
 ;;21,"33261-0542-60 ")
 ;;1585
 ;;21,"33261-0542-90 ")
 ;;1586
 ;;21,"33261-0546-00 ")
 ;;1245
 ;;21,"33261-0546-30 ")
 ;;1246
 ;;21,"33261-0546-60 ")
 ;;1247
 ;;21,"33261-0546-90 ")
 ;;1248
 ;;21,"33261-0548-30 ")
 ;;539
 ;;21,"33261-0548-60 ")
 ;;540
 ;;21,"33261-0549-00 ")
 ;;682
 ;;21,"33261-0549-30 ")
 ;;683
 ;;21,"33261-0549-60 ")
 ;;684
 ;;21,"33261-0549-90 ")
 ;;685
 ;;21,"33261-0867-00 ")
 ;;929
 ;;21,"33261-0867-30 ")
 ;;930
 ;;21,"33261-0867-60 ")
 ;;931
 ;;21,"33261-0867-90 ")
 ;;932
 ;;21,"33261-0868-00 ")
 ;;1030
 ;;21,"33261-0868-30 ")
 ;;1031
 ;;21,"33261-0868-60 ")
 ;;1032
 ;;21,"33261-0868-90 ")
 ;;1033
 ;;21,"33261-0953-00 ")
 ;;1072
 ;;21,"33261-0953-30 ")
 ;;1073
 ;;21,"33261-0953-60 ")
 ;;1074
 ;;21,"33261-0953-90 ")
 ;;1075
 ;;21,"33261-0959-00 ")
 ;;54
 ;;21,"33261-0959-30 ")
 ;;55
 ;;21,"33261-0959-60 ")
 ;;56
 ;;21,"33261-0959-90 ")
 ;;57
 ;;21,"33261-0972-00 ")
 ;;145
 ;;21,"33261-0972-30 ")
 ;;146
 ;;21,"33261-0972-60 ")
 ;;147
 ;;21,"33261-0972-90 ")
 ;;148
 ;;21,"33261-0973-00 ")
 ;;236
 ;;21,"33261-0973-30 ")
 ;;237
 ;;21,"33261-0973-60 ")
 ;;238
 ;;21,"33261-0973-90 ")
 ;;239
 ;;21,"33358-0210-01 ")
 ;;71
 ;;21,"33358-0210-30 ")
 ;;72
 ;;21,"33358-0210-60 ")
 ;;73
 ;;21,"33358-0210-90 ")
 ;;74
 ;;21,"33358-0223-30 ")
 ;;445
 ;;21,"33358-0224-30 ")
 ;;533
 ;;21,"33358-0225-00 ")
 ;;534
 ;;21,"33358-0225-60 ")
 ;;535
 ;;21,"33358-0226-30 ")
 ;;686
 ;;21,"35356-0125-30 ")
 ;;1034
 ;;21,"35356-0413-30 ")
 ;;785
 ;;21,"35356-0519-30 ")
 ;;714
 ;;21,"35356-0600-30 ")
 ;;1754
 ;;21,"35356-0604-30 ")
 ;;1249
 ;;21,"35356-0667-30 ")
 ;;1433
 ;;21,"35356-0775-30 ")
 ;;1587
 ;;21,"35356-0781-30 ")
 ;;1434
 ;;21,"35356-0860-30 ")
 ;;58
 ;;21,"35356-0885-30 ")
 ;;536
 ;;21,"35356-0885-60 ")
 ;;537
 ;;21,"35356-0885-90 ")
 ;;538
 ;;21,"35356-0894-30 ")
 ;;149
 ;;21,"35356-0919-30 ")
 ;;928
 ;;21,"35356-0921-30 ")
 ;;830
 ;;21,"35356-0929-30 ")
 ;;244
 ;;21,"42254-0019-30 ")
 ;;245
 ;;21,"42254-0019-45 ")
 ;;246
 ;;21,"42254-0019-90 ")
 ;;247
 ;;21,"42254-0025-30 ")
 ;;689
 ;;21,"42254-0025-90 ")
 ;;690
 ;;21,"42254-0028-30 ")
 ;;530
 ;;21,"42254-0028-90 ")
 ;;531
 ;;21,"42254-0032-30 ")
 ;;1592
 ;;21,"42254-0032-45 ")
 ;;1593
 ;;21,"42254-0032-90 ")
 ;;1594
 ;;21,"42254-0060-30 ")
 ;;1424
 ;;21,"42254-0060-90 ")
 ;;1425
 ;;21,"42254-0106-30 ")
 ;;447
 ;;21,"42254-0106-90 ")
 ;;448
 ;;21,"42254-0129-30 ")
 ;;1253
 ;;21,"42254-0129-90 ")
 ;;1254
 ;;21,"42254-0131-30 ")
 ;;1026
 ;;21,"42254-0131-90 ")
 ;;1027
 ;;21,"42254-0168-90 ")
 ;;1745
 ;;21,"42254-0202-30 ")
 ;;936
 ;;21,"42254-0202-90 ")
 ;;937
 ;;21,"42254-0225-30 ")
 ;;1595
 ;;21,"42254-0261-30 ")
 ;;155
 ;;21,"42254-0261-45 ")
 ;;156
 ;;21,"42254-0261-90 ")
 ;;157
 ;;21,"42254-0267-30 ")
 ;;349
 ;;21,"42254-0267-45 ")
 ;;350
 ;;21,"42254-0267-90 ")
 ;;351
 ;;21,"42254-0307-30 ")
 ;;59
 ;;21,"42254-0379-30 ")
 ;;240
 ;;21,"42254-0379-90 ")
 ;;241
 ;;21,"42254-0382-30 ")
 ;;151
 ;;21,"42254-0382-90 ")
 ;;152
 ;;21,"42254-0391-30 ")
 ;;62
 ;;21,"42254-0392-90 ")
 ;;346
 ;;21,"42254-0424-30 ")
 ;;828
 ;;21,"42254-0425-30 ")
 ;;933
 ;;21,"42254-0425-90 ")
 ;;934
 ;;21,"42254-0434-30 ")
 ;;1029
 ;;21,"42291-0143-10 ")
 ;;60
 ;;21,"42291-0143-90 ")
 ;;61
 ;;21,"42291-0144-10 ")
 ;;153
 ;;21,"42291-0144-90 ")
 ;;154
 ;;21,"42291-0145-50 ")
 ;;242
 ;;21,"42291-0145-90 ")
 ;;243
 ;;21,"42291-0146-50 ")
 ;;347
 ;;21,"42291-0146-90 ")
 ;;348
 ;;21,"42291-0375-90 ")
 ;;446
 ;;21,"42291-0376-90 ")
 ;;532
 ;;21,"42291-0377-10 ")
 ;;687
 ;;21,"42291-0377-90 ")
 ;;688
 ;;21,"42549-0490-90 ")
 ;;1076
 ;;21,"42549-0708-30 ")
 ;;829
 ;;21,"42549-0715-90 ")
 ;;1252
 ;;21,"42571-0005-90 ")
 ;;1112
 ;;21,"42571-0010-05 ")
 ;;1250
 ;;21,"42571-0010-90 ")
 ;;1251
 ;;21,"42571-0020-10 ")
 ;;1426
 ;;21,"42571-0020-90 ")
 ;;1427
 ;;21,"42571-0040-10 ")
 ;;1590
 ;;21,"42571-0040-90 ")
 ;;1591
 ;;21,"42571-0080-05 ")
 ;;1746
 ;;21,"42571-0080-90 ")
 ;;1747
 ;;21,"43063-0008-01 ")
 ;;1428
 ;;21,"43063-0080-30 ")
 ;;1752
 ;;21,"43063-0080-90 ")
 ;;1753
 ;;21,"43063-0143-30 ")
 ;;935
 ;;21,"43063-0195-30 ")
 ;;1028
 ;;21,"43063-0373-30 ")
 ;;63
 ;;21,"43063-0443-30 ")
 ;;938
 ;;21,"43063-0444-30 ")
 ;;1022
 ;;21,"43063-0453-30 ")
 ;;248
 ;;21,"43353-0031-15 ")
 ;;786
 ;;21,"43353-0031-45 ")
 ;;787
 ;;21,"43353-0031-60 ")
 ;;788
 ;;21,"43353-0031-82 ")
 ;;789
 ;;21,"43353-0031-91 ")
 ;;790
 ;;21,"43353-0227-15 ")
 ;;1588
 ;;21,"43353-0227-45 ")
 ;;1589
 ;;21,"43353-0228-15 ")
 ;;1748
 ;;21,"43353-0228-30 ")
 ;;1749
 ;;21,"43353-0228-45 ")
 ;;1750
 ;;21,"43353-0228-60 ")
 ;;1751
 ;;21,"43353-0229-15 ")
 ;;1429
 ;;21,"43353-0229-30 ")
 ;;1430
 ;;21,"43353-0229-45 ")
 ;;1431
 ;;21,"43353-0229-60 ")
 ;;1432
 ;;21,"43353-0289-15 ")
 ;;766
 ;;21,"43353-0289-17 ")
 ;;767
 ;;21,"43353-0289-45 ")
 ;;768
 ;;21,"43353-0289-91 ")
 ;;769
 ;;21,"43353-0290-15 ")
 ;;730
 ;;21,"43353-0290-45 ")
 ;;731
 ;;21,"43353-0394-15 ")
 ;;1741
 ;;21,"43353-0394-30 ")
 ;;1742
 ;;21,"43353-0394-45 ")
 ;;1743
 ;;21,"43353-0394-60 ")
 ;;1744
 ;;21,"43353-0474-45 ")
 ;;1024
 ;;21,"43353-0496-45 ")
 ;;1025
 ;;21,"43353-0625-15 ")
 ;;1417
 ;;21,"43353-0625-30 ")
 ;;1418
 ;;21,"43353-0625-45 ")
 ;;1419
 ;;21,"43353-0625-60 ")
 ;;1420
 ;;21,"43353-0664-15 ")
 ;;1737
 ;;21,"43353-0664-30 ")
 ;;1738
 ;;21,"43353-0664-45 ")
 ;;1739
 ;;21,"43353-0664-60 ")
 ;;1740
 ;;21,"43353-0665-15 ")
 ;;1597
 ;;21,"43353-0665-30 ")
 ;;1598
 ;;21,"43353-0665-45 ")
 ;;1599
 ;;21,"43353-0665-60 ")
 ;;1600
 ;;21,"43353-0666-30 ")
 ;;1733
 ;;21,"43353-0666-45 ")
 ;;1734
 ;;21,"43353-0666-60 ")
 ;;1735
 ;;21,"43353-0685-45 ")
 ;;1023
 ;;21,"43353-0718-45 ")
 ;;691
 ;;21,"43353-0718-60 ")
 ;;692
 ;;21,"43353-0763-45 ")
 ;;693
 ;;21,"43353-0768-15 ")
 ;;1736
 ;;21,"43353-0773-15 ")
 ;;1421
 ;;21,"43353-0773-45 ")
 ;;1422
 ;;21,"43353-0773-60 ")
 ;;1423
 ;;21,"43353-0774-15 ")
 ;;1596
 ;;21,"43353-0776-15 ")
 ;;342
 ;;21,"43353-0776-30 ")
 ;;343
 ;;21,"43353-0776-45 ")
 ;;344
 ;;21,"43353-0776-60 ")
 ;;345
 ;;21,"43353-0781-15 ")
 ;;249
 ;;21,"43353-0781-30 ")
 ;;250
 ;;21,"43353-0781-45 ")
 ;;251
 ;;21,"43353-0821-15 ")
 ;;252
 ;;21,"43353-0821-45 ")
 ;;253
 ;;21,"43353-0827-15 ")
 ;;334
 ;;21,"43353-0827-30 ")
 ;;335
 ;;21,"43353-0827-45 ")
 ;;336
 ;;21,"43353-0827-53 ")
 ;;337
 ;;21,"43353-0827-60 ")
 ;;338
 ;;21,"43353-0843-15 ")
 ;;339
 ;;21,"43353-0843-30 ")
 ;;340
 ;;21,"43353-0843-45 ")
 ;;341
 ;;21,"43353-0844-30 ")
 ;;1077
 ;;21,"43353-0844-45 ")
 ;;1078
 ;;21,"43353-0851-09 ")
 ;;150
 ;;21,"43353-0856-15 ")
 ;;1601
 ;;21,"43353-0856-17 ")
 ;;1602
 ;;21,"43353-0856-30 ")
 ;;1603
 ;;21,"43353-0856-45 ")
 ;;1604
 ;;21,"43353-0856-60 ")
 ;;1605
 ;;21,"43353-0856-88 ")
 ;;1606
 ;;21,"43353-0858-15 ")
 ;;1727
 ;;21,"43353-0858-19 ")
 ;;1728
 ;;21,"43353-0858-30 ")
 ;;1729