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

BGP51W6.m

Go to the documentation of this file.
BGP51W6 ;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,"60429-0284-01 ")
 ;;926
 ;;21,"60429-0285-01 ")
 ;;948
 ;;21,"60429-0291-01 ")
 ;;46
 ;;21,"60429-0293-01 ")
 ;;169
 ;;21,"60429-0330-10 ")
 ;;2121
 ;;21,"60429-0330-30 ")
 ;;2122
 ;;21,"60429-0330-90 ")
 ;;2123
 ;;21,"60429-0331-10 ")
 ;;2209
 ;;21,"60429-0331-30 ")
 ;;2210
 ;;21,"60429-0331-90 ")
 ;;2211
 ;;21,"60429-0332-10 ")
 ;;2270
 ;;21,"60429-0332-30 ")
 ;;2271
 ;;21,"60429-0332-90 ")
 ;;2272
 ;;21,"60429-0336-01 ")
 ;;1983
 ;;21,"60429-0337-01 ")
 ;;1989
 ;;21,"60429-0722-18 ")
 ;;1549
 ;;21,"60429-0722-60 ")
 ;;1550
 ;;21,"60429-0723-12 ")
 ;;1118
 ;;21,"60429-0723-18 ")
 ;;1119
 ;;21,"60429-0723-60 ")
 ;;1120
 ;;21,"60429-0723-90 ")
 ;;1121
 ;;21,"60429-0724-18 ")
 ;;1330
 ;;21,"60429-0724-60 ")
 ;;1331
 ;;21,"60429-0725-05 ")
 ;;1817
 ;;21,"60429-0725-18 ")
 ;;1818
 ;;21,"60429-0725-60 ")
 ;;1819
 ;;21,"60429-0725-90 ")
 ;;1820
 ;;21,"60505-0141-00 ")
 ;;267
 ;;21,"60505-0141-01 ")
 ;;268
 ;;21,"60505-0141-02 ")
 ;;269
 ;;21,"60505-0141-08 ")
 ;;270
 ;;21,"60505-0142-00 ")
 ;;472
 ;;21,"60505-0142-01 ")
 ;;473
 ;;21,"60505-0142-02 ")
 ;;474
 ;;21,"60505-0142-04 ")
 ;;475
 ;;21,"60505-0190-00 ")
 ;;1114
 ;;21,"60505-0190-01 ")
 ;;1115
 ;;21,"60505-0190-04 ")
 ;;1116
 ;;21,"60505-0190-08 ")
 ;;1117
 ;;21,"60505-0191-00 ")
 ;;1402
 ;;21,"60505-0191-01 ")
 ;;1403
 ;;21,"60505-0191-04 ")
 ;;1404
 ;;21,"60505-0191-08 ")
 ;;1405
 ;;21,"60505-0192-00 ")
 ;;1575
 ;;21,"60505-0192-01 ")
 ;;1576
 ;;21,"60505-0192-04 ")
 ;;1577
 ;;21,"60505-0192-08 ")
 ;;1578
 ;;21,"60505-0260-01 ")
 ;;1811
 ;;21,"60505-0260-02 ")
 ;;1812
 ;;21,"60505-0260-07 ")
 ;;1813
 ;;21,"60505-1329-01 ")
 ;;1946
 ;;21,"60760-0024-60 ")
 ;;458
 ;;21,"60760-0024-98 ")
 ;;459
 ;;21,"60760-0042-60 ")
 ;;1827
 ;;21,"60760-0141-60 ")
 ;;271
 ;;21,"60760-0141-98 ")
 ;;272
 ;;21,"60760-0175-30 ")
 ;;2441
 ;;21,"60760-0175-90 ")
 ;;2442
 ;;21,"60760-0176-30 ")
 ;;2457
 ;;21,"60760-0176-90 ")
 ;;2458
 ;;21,"60760-0229-30 ")
 ;;93
 ;;21,"60760-0229-90 ")
 ;;94
 ;;21,"60760-0230-30 ")
 ;;166
 ;;21,"60760-0230-90 ")
 ;;167
 ;;21,"60760-0973-60 ")
 ;;1125
 ;;21,"60760-0973-98 ")
 ;;1126
 ;;21,"60760-0974-60 ")
 ;;1398
 ;;21,"60760-0974-90 ")
 ;;1399
 ;;21,"60760-0975-60 ")
 ;;1573
 ;;21,"60760-0975-90 ")
 ;;1574
 ;;21,"61442-0115-01 ")
 ;;47
 ;;21,"61442-0116-01 ")
 ;;92
 ;;21,"61442-0117-01 ")
 ;;168
 ;;21,"61442-0361-01 ")
 ;;1122
 ;;21,"61442-0361-05 ")
 ;;1123
 ;;21,"61442-0361-10 ")
 ;;1124
 ;;21,"61442-0362-01 ")
 ;;1400
 ;;21,"61442-0362-05 ")
 ;;1401
 ;;21,"61442-0363-01 ")
 ;;1571
 ;;21,"61442-0363-05 ")
 ;;1572
 ;;21,"62037-0571-01 ")
 ;;1815
 ;;21,"62037-0571-10 ")
 ;;1816
 ;;21,"62037-0577-01 ")
 ;;1944
 ;;21,"62037-0577-10 ")
 ;;1945
 ;;21,"62037-0674-01 ")
 ;;1127
 ;;21,"62037-0674-10 ")
 ;;1128
 ;;21,"62037-0675-01 ")
 ;;1409
 ;;21,"62037-0675-10 ")
 ;;1410
 ;;21,"62037-0676-01 ")
 ;;1579
 ;;21,"62037-0676-10 ")
 ;;1580
 ;;21,"62584-0259-01 ")
 ;;1129
 ;;21,"62584-0259-11 ")
 ;;1130
 ;;21,"62584-0332-01 ")
 ;;1407
 ;;21,"62584-0332-11 ")
 ;;1408
 ;;21,"62584-0452-01 ")
 ;;1581
 ;;21,"62584-0452-11 ")
 ;;1582
 ;;21,"62756-0142-01 ")
 ;;1809
 ;;21,"62756-0142-02 ")
 ;;1810
 ;;21,"62756-0143-01 ")
 ;;1947
 ;;21,"63304-0254-05 ")
 ;;2124
 ;;21,"63304-0254-30 ")
 ;;2125
 ;;21,"63304-0254-90 ")
 ;;2126
 ;;21,"63304-0255-05 ")
 ;;2206
 ;;21,"63304-0255-30 ")
 ;;2207
 ;;21,"63304-0255-90 ")
 ;;2208
 ;;21,"63304-0261-05 ")
 ;;2273
 ;;21,"63304-0261-30 ")
 ;;2274
 ;;21,"63304-0261-90 ")
 ;;2275
 ;;21,"63304-0311-05 ")
 ;;2127
 ;;21,"63304-0311-30 ")
 ;;2128
 ;;21,"63304-0311-90 ")
 ;;2129
 ;;21,"63304-0312-05 ")
 ;;2203
 ;;21,"63304-0312-30 ")
 ;;2204
 ;;21,"63304-0312-90 ")
 ;;2205
 ;;21,"63304-0313-05 ")
 ;;2276
 ;;21,"63304-0313-30 ")
 ;;2277
 ;;21,"63304-0313-90 ")
 ;;2278
 ;;21,"63629-1255-01 ")
 ;;170
 ;;21,"63629-1255-02 ")
 ;;171
 ;;21,"63629-1269-01 ")
 ;;2333
 ;;21,"63629-1392-01 ")
 ;;2525
 ;;21,"63629-1392-02 ")
 ;;2526
 ;;21,"63629-1392-03 ")
 ;;2527
 ;;21,"63629-1393-01 ")
 ;;832
 ;;21,"63629-1393-02 ")
 ;;833
 ;;21,"63629-1393-03 ")
 ;;834
 ;;21,"63629-1393-04 ")
 ;;835
 ;;21,"63629-1394-01 ")
 ;;441
 ;;21,"63629-1394-02 ")
 ;;442
 ;;21,"63629-1394-03 ")
 ;;443
 ;;21,"63629-1395-01 ")
 ;;1101
 ;;21,"63629-1395-02 ")
 ;;1102
 ;;21,"63629-1395-03 ")
 ;;1103
 ;;21,"63629-1396-01 ")
 ;;1425
 ;;21,"63629-1396-02 ")
 ;;1426
 ;;21,"63629-1397-01 ")
 ;;1592
 ;;21,"63629-1397-02 ")
 ;;1593
 ;;21,"63629-1397-03 ")
 ;;1594
 ;;21,"63629-1397-04 ")
 ;;1595
 ;;21,"63629-1397-05 ")
 ;;1596
 ;;21,"63629-1398-01 ")
 ;;306
 ;;21,"63629-1398-02 ")
 ;;307
 ;;21,"63629-1398-03 ")
 ;;308
 ;;21,"63629-2793-01 ")
 ;;2598
 ;;21,"63629-2793-03 ")
 ;;2599
 ;;21,"63629-2793-04 ")
 ;;2600
 ;;21,"63629-2793-05 ")
 ;;2601
 ;;21,"63629-2883-01 ")
 ;;1828
 ;;21,"63629-2883-02 ")
 ;;1829
 ;;21,"63629-2883-03 ")
 ;;1830
 ;;21,"63629-2907-01 ")
 ;;669
 ;;21,"63629-2907-02 ")
 ;;670
 ;;21,"63629-3043-01 ")
 ;;100
 ;;21,"63629-3043-02 ")
 ;;101
 ;;21,"63629-3158-01 ")
 ;;576
 ;;21,"63629-3158-02 ")
 ;;577
 ;;21,"63629-3158-03 ")
 ;;578
 ;;21,"63629-3397-03 ")
 ;;914
 ;;21,"63629-3998-01 ")
 ;;2484
 ;;21,"63629-4071-01 ")
 ;;529
 ;;21,"63739-0119-10 ")
 ;;836
 ;;21,"63739-0640-10 ")
 ;;1094
 ;;21,"63874-0316-01 ")
 ;;250
 ;;21,"63874-0316-02 ")
 ;;251
 ;;21,"63874-0316-04 ")
 ;;252
 ;;21,"63874-0316-05 ")
 ;;253
 ;;21,"63874-0316-10 ")
 ;;254
 ;;21,"63874-0316-12 ")
 ;;255
 ;;21,"63874-0316-14 ")
 ;;256
 ;;21,"63874-0316-15 ")
 ;;257
 ;;21,"63874-0316-20 ")
 ;;258
 ;;21,"63874-0316-21 ")
 ;;259
 ;;21,"63874-0316-24 ")
 ;;260
 ;;21,"63874-0316-28 ")
 ;;261
 ;;21,"63874-0316-30 ")
 ;;262
 ;;21,"63874-0316-50 ")
 ;;263
 ;;21,"63874-0316-60 ")
 ;;264
 ;;21,"63874-0316-81 ")
 ;;265
 ;;21,"63874-0316-90 ")
 ;;266
 ;;21,"63874-0317-01 ")
 ;;801
 ;;21,"63874-0317-02 ")
 ;;802
 ;;21,"63874-0317-04 ")
 ;;803
 ;;21,"63874-0317-10 ")
 ;;804
 ;;21,"63874-0317-12 ")
 ;;805
 ;;21,"63874-0317-14 ")
 ;;806
 ;;21,"63874-0317-15 ")
 ;;807
 ;;21,"63874-0317-20 ")
 ;;808
 ;;21,"63874-0317-24 ")
 ;;809
 ;;21,"63874-0317-28 ")
 ;;810
 ;;21,"63874-0317-30 ")
 ;;811
 ;;21,"63874-0317-40 ")
 ;;812
 ;;21,"63874-0317-50 ")
 ;;813
 ;;21,"63874-0317-60 ")
 ;;814
 ;;21,"63874-0317-90 ")
 ;;815
 ;;21,"63874-0357-01 ")
 ;;21
 ;;21,"63874-0357-02 ")
 ;;22
 ;;21,"63874-0357-10 ")
 ;;23
 ;;21,"63874-0357-12 ")
 ;;24
 ;;21,"63874-0357-14 ")
 ;;25
 ;;21,"63874-0357-15 ")
 ;;26
 ;;21,"63874-0357-20 ")
 ;;27
 ;;21,"63874-0357-21 ")
 ;;28
 ;;21,"63874-0357-24 ")
 ;;29
 ;;21,"63874-0357-30 ")
 ;;30
 ;;21,"63874-0357-40 ")
 ;;31
 ;;21,"63874-0357-60 ")
 ;;32
 ;;21,"63874-0432-01 ")
 ;;444
 ;;21,"63874-0432-02 ")
 ;;445
 ;;21,"63874-0432-04 ")
 ;;446
 ;;21,"63874-0432-10 ")
 ;;447
 ;;21,"63874-0432-14 ")
 ;;448
 ;;21,"63874-0432-20 ")
 ;;449
 ;;21,"63874-0432-21 ")
 ;;450
 ;;21,"63874-0432-24 ")
 ;;451
 ;;21,"63874-0432-28 ")
 ;;452
 ;;21,"63874-0432-30 ")
 ;;453
 ;;21,"63874-0432-50 ")
 ;;454
 ;;21,"63874-0432-60 ")
 ;;455
 ;;21,"63874-0432-81 ")
 ;;456
 ;;21,"63874-0432-90 ")
 ;;457
 ;;21,"63874-0501-01 ")
 ;;1104
 ;;21,"63874-0501-04 ")
 ;;1105
 ;;21,"63874-0501-10 ")
 ;;1106
 ;;21,"63874-0501-14 ")
 ;;1107
 ;;21,"63874-0501-20 ")
 ;;1108
 ;;21,"63874-0501-24 ")
 ;;1109
 ;;21,"63874-0501-28 ")
 ;;1110
 ;;21,"63874-0501-30 ")
 ;;1111
 ;;21,"63874-0501-60 ")
 ;;1112
 ;;21,"63874-0501-90 ")
 ;;1113
 ;;21,"63874-0588-01 ")
 ;;671
 ;;21,"63874-0588-04 ")
 ;;672
 ;;21,"63874-0588-10 ")
 ;;673
 ;;21,"63874-0588-14 ")
 ;;674
 ;;21,"63874-0588-20 ")
 ;;675
 ;;21,"63874-0588-30 ")
 ;;676
 ;;21,"63874-0588-60 ")
 ;;677
 ;;21,"63874-0588-80 ")
 ;;678
 ;;21,"63874-0588-90 ")
 ;;679
 ;;21,"63874-0635-01 ")
 ;;1427
 ;;21,"63874-0635-10 ")
 ;;1428
 ;;21,"63874-0635-20 ")
 ;;1429
 ;;21,"63874-0635-28 ")
 ;;1430
 ;;21,"63874-0635-30 ")
 ;;1431
 ;;21,"63874-0635-60 ")
 ;;1432
 ;;21,"63874-0635-90 ")
 ;;1433
 ;;21,"63874-0665-01 ")
 ;;634
 ;;21,"63874-0665-04 ")
 ;;635
 ;;21,"63874-0665-10 ")
 ;;636
 ;;21,"63874-0665-14 ")
 ;;637
 ;;21,"63874-0665-30 ")
 ;;638
 ;;21,"63874-0665-60 ")
 ;;639
 ;;21,"63874-0665-90 ")
 ;;640
 ;;21,"63874-0974-01 ")
 ;;1589
 ;;21,"63874-0974-30 ")
 ;;1590
 ;;21,"63874-0974-60 ")
 ;;1591
 ;;21,"64720-0123-10 ")
 ;;641
 ;;21,"64720-0124-10 ")
 ;;668
 ;;21,"64720-0125-10 ")
 ;;837
 ;;21,"64720-0125-11 ")
 ;;838
 ;;21,"64764-0121-03 ")
 ;;2415
 ;;21,"64764-0123-03 ")
 ;;2416
 ;;21,"64764-0124-03 ")
 ;;2417
 ;;21,"64764-0125-30 ")
 ;;2034
 ;;21,"64764-0151-04 ")
 ;;2089
 ;;21,"64764-0151-05 ")
 ;;2090
 ;;21,"64764-0151-06 ")
 ;;2091
 ;;21,"64764-0155-18 ")
 ;;2652
 ;;21,"64764-0155-60 ")
 ;;2653
 ;;21,"64764-0158-18 ")
 ;;2667
 ;;21,"64764-0158-60 ")
 ;;2668
 ;;21,"64764-0250-30 ")
 ;;2035
 ;;21,"64764-0251-03 ")
 ;;2418
 ;;21,"64764-0253-03 ")
 ;;2419
 ;;21,"64764-0254-03 ")
 ;;2420
 ;;21,"64764-0301-14 ")
 ;;2170
 ;;21,"64764-0301-15 ")
 ;;2171
 ;;21,"64764-0301-16 ")
 ;;2172
 ;;21,"64764-0302-30 ")
 ;;2639
 ;;21,"64764-0304-30 ")
 ;;2641
 ;;21,"64764-0310-30 ")
 ;;2679
 ;;21,"64764-0335-60 ")
 ;;2362
 ;;21,"64764-0337-60 ")
 ;;2363
 ;;21,"64764-0451-24 ")
 ;;2243
 ;;21,"64764-0451-25 ")
 ;;2244
 ;;21,"64764-0451-26 ")
 ;;2245
 ;;21,"64764-0510-30 ")
 ;;2678
 ;;21,"64764-0625-30 ")
 ;;2033
 ;;21,"65084-0416-18 ")
 ;;1547
 ;;21,"65084-0416-20 ")
 ;;1548
 ;;21,"65162-0174-10 ")
 ;;1437
 ;;21,"65162-0174-11 ")
 ;;1438
 ;;21,"65162-0174-50 ")
 ;;1439
 ;;21,"65162-0175-10 ")
 ;;1095
 ;;21,"65162-0175-11 ")
 ;;1096
 ;;21,"65162-0175-50 ")
 ;;1097
 ;;21,"65162-0177-10 ")
 ;;1583
 ;;21,"65162-0177-11 ")
 ;;1584
 ;;21,"65162-0177-50 ")
 ;;1585
 ;;21,"65162-0218-10 ")
 ;;1098
 ;;21,"65162-0218-11 ")
 ;;1099
 ;;21,"65162-0218-50 ")
 ;;1100
 ;;21,"65162-0219-10 ")
 ;;1434
 ;;21,"65162-0219-11 ")
 ;;1435
 ;;21,"65162-0219-50 ")
 ;;1436
 ;;21,"65162-0220-10 ")
 ;;1586
 ;;21,"65162-0220-11 ")
 ;;1587
 ;;21,"65162-0220-50 ")
 ;;1588
 ;;21,"65243-0176-09 ")
 ;;825
 ;;21,"65243-0176-12 ")
 ;;826
 ;;21,"65243-0176-18 ")
 ;;827
 ;;21,"65243-0176-27 ")
 ;;828
 ;;21,"65243-0176-36 ")
 ;;829
 ;;21,"65243-0183-18 ")
 ;;460
 ;;21,"65243-0185-36 ")
 ;;824
 ;;21,"65243-0195-09 ")
 ;;2326
 ;;21,"65243-0195-12 ")
 ;;2327
 ;;21,"65243-0196-09 ")
 ;;2346
 ;;21,"65243-0239-09 ")
 ;;1443
 ;;21,"65243-0239-18 ")
 ;;1444
 ;;21,"65243-0239-27 ")
 ;;1445
 ;;21,"65243-0288-06 ")
 ;;1086
 ;;21,"65243-0288-09 ")
 ;;1087
 ;;21,"65243-0288-12 ")
 ;;1088
 ;;21,"65243-0288-18 ")
 ;;1089
 ;;21,"65243-0289-06 ")
 ;;1610
 ;;21,"65243-0289-09 ")
 ;;1611
 ;;21,"65243-0289-12 ")
 ;;1612
 ;;21,"65243-0289-18 ")
 ;;1613
 ;;21,"65243-0325-09 ")
 ;;682
 ;;21,"65243-0325-18 ")
 ;;683
 ;;21,"65243-0343-09 ")
 ;;822
 ;;21,"65243-0343-36 ")
 ;;823
 ;;21,"65243-0346-09 ")
 ;;304
 ;;21,"65243-0371-06 ")
 ;;1603
 ;;21,"65243-0371-09 ")
 ;;1604
 ;;21,"65243-0372-06 ")
 ;;1083
 ;;21,"65243-0372-09 ")
 ;;1084
 ;;21,"65243-0372-18 ")
 ;;1085
 ;;21,"65243-0373-09 ")
 ;;1446
 ;;21,"65243-0375-09 ")
 ;;689
 ;;21,"65243-0378-09 ")
 ;;305
 ;;21,"65862-0008-01 ")
 ;;1090
 ;;21,"65862-0008-05 ")
 ;;1091
 ;;21,"65862-0008-90 ")
 ;;1092
 ;;21,"65862-0008-99 ")
 ;;1093
 ;;21,"65862-0009-01 ")
 ;;1440
 ;;21,"65862-0009-05 ")
 ;;1441
 ;;21,"65862-0009-90 ")
 ;;1442
 ;;21,"65862-0010-01 ")
 ;;1605
 ;;21,"65862-0010-05 ")
 ;;1606
 ;;21,"65862-0010-46 ")
 ;;1607
 ;;21,"65862-0010-90 ")
 ;;1608
 ;;21,"65862-0010-99 ")
 ;;1609
 ;;21,"65862-0028-01 ")
 ;;633
 ;;21,"65862-0029-01 ")
 ;;680
 ;;21,"65862-0029-05 ")
 ;;681
 ;;21,"65862-0030-01 ")
 ;;830
 ;;21,"65862-0030-99 ")
 ;;831
 ;;21,"65862-0080-01 ")
 ;;2485
 ;;21,"65862-0080-05 ")
 ;;2486
 ;;21,"65862-0081-01 ")
 ;;2528
 ;;21,"65862-0081-05 ")
 ;;2529
 ;;21,"65862-0082-01 ")
 ;;2596
 ;;21,"65862-0082-05 ")
 ;;2597
 ;;21,"65862-0291-01 ")
 ;;1825
 ;;21,"65862-0291-05 ")
 ;;1826
 ;;21,"65862-0292-01 ")
 ;;1941
 ;;21,"65862-0512-30 ")
 ;;2120
 ;;21,"65862-0513-30 ")
 ;;2202
 ;;21,"65862-0514-30 ")
 ;;2269
 ;;21,"65862-0525-18 ")
 ;;2654
 ;;21,"65862-0525-60 ")
 ;;2655
 ;;21,"65862-0526-18 ")
 ;;2669
 ;;21,"65862-0526-60 ")
 ;;2670
 ;;21,"65862-0670-01 ")
 ;;2005
 ;;21,"65862-0671-01 ")
 ;;2013
 ;;21,"65862-0672-01 ")
 ;;2032
 ;;21,"66105-0145-01 ")
 ;;2306
 ;;21,"66105-0145-03 ")
 ;;2307
 ;;21,"66105-0145-06 ")
 ;;2308
 ;;21,"66105-0145-09 ")
 ;;2309
 ;;21,"66105-0145-15 ")
 ;;2310
 ;;21,"66105-0154-01 ")
 ;;2165
 ;;21,"66105-0154-03 ")
 ;;2166
 ;;21,"66105-0154-06 ")
 ;;2167
 ;;21,"66105-0154-09 ")
 ;;2168
 ;;21,"66105-0154-15 ")
 ;;2169
 ;;21,"66105-0156-01 ")
 ;;2084
 ;;21,"66105-0156-03 ")
 ;;2085