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

BGP51W5.m

Go to the documentation of this file.
BGP51W5 ;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-0243-60 ")
 ;;141
 ;;21,"55048-0244-30 ")
 ;;325
 ;;21,"55048-0245-30 ")
 ;;587
 ;;21,"55048-0245-60 ")
 ;;588
 ;;21,"55048-0246-30 ")
 ;;2435
 ;;21,"55048-0247-30 ")
 ;;2454
 ;;21,"55048-0248-30 ")
 ;;736
 ;;21,"55048-0248-90 ")
 ;;737
 ;;21,"55048-0269-30 ")
 ;;667
 ;;21,"55048-0270-30 ")
 ;;423
 ;;21,"55048-0273-60 ")
 ;;2569
 ;;21,"55048-0273-71 ")
 ;;2570
 ;;21,"55048-0288-60 ")
 ;;78
 ;;21,"55048-0289-60 ")
 ;;137
 ;;21,"55048-0434-60 ")
 ;;2382
 ;;21,"55048-0437-60 ")
 ;;2380
 ;;21,"55048-0508-30 ")
 ;;1673
 ;;21,"55048-0508-60 ")
 ;;1674
 ;;21,"55048-0509-30 ")
 ;;994
 ;;21,"55048-0509-60 ")
 ;;995
 ;;21,"55048-0509-71 ")
 ;;996
 ;;21,"55048-0509-74 ")
 ;;997
 ;;21,"55048-0509-90 ")
 ;;998
 ;;21,"55048-0510-30 ")
 ;;1862
 ;;21,"55048-0510-60 ")
 ;;1863
 ;;21,"55048-0510-71 ")
 ;;1864
 ;;21,"55048-0510-74 ")
 ;;1865
 ;;21,"55048-0510-90 ")
 ;;1866
 ;;21,"55048-0583-30 ")
 ;;2103
 ;;21,"55048-0584-30 ")
 ;;2183
 ;;21,"55048-0585-30 ")
 ;;2254
 ;;21,"55048-0611-60 ")
 ;;1675
 ;;21,"55048-0611-74 ")
 ;;1676
 ;;21,"55048-0612-30 ")
 ;;1394
 ;;21,"55048-0629-60 ")
 ;;999
 ;;21,"55048-0629-71 ")
 ;;1000
 ;;21,"55048-0630-60 ")
 ;;1001
 ;;21,"55048-0630-71 ")
 ;;1002
 ;;21,"55048-0631-60 ")
 ;;1858
 ;;21,"55048-0631-71 ")
 ;;1859
 ;;21,"55048-0632-60 ")
 ;;1860
 ;;21,"55048-0632-71 ")
 ;;1861
 ;;21,"55048-0764-60 ")
 ;;2313
 ;;21,"55048-0765-30 ")
 ;;2320
 ;;21,"55048-0766-30 ")
 ;;2351
 ;;21,"55048-0777-30 ")
 ;;2068
 ;;21,"55111-0320-01 ")
 ;;38
 ;;21,"55111-0320-05 ")
 ;;39
 ;;21,"55111-0321-01 ")
 ;;75
 ;;21,"55111-0321-05 ")
 ;;76
 ;;21,"55111-0322-01 ")
 ;;138
 ;;21,"55111-0322-05 ")
 ;;139
 ;;21,"55111-0328-90 ")
 ;;1981
 ;;21,"55111-0329-90 ")
 ;;1987
 ;;21,"55111-0695-01 ")
 ;;2472
 ;;21,"55111-0696-01 ")
 ;;2510
 ;;21,"55111-0696-10 ")
 ;;2511
 ;;21,"55111-0697-01 ")
 ;;2567
 ;;21,"55111-0697-10 ")
 ;;2568
 ;;21,"55289-0066-90 ")
 ;;20
 ;;21,"55289-0125-30 ")
 ;;489
 ;;21,"55289-0211-60 ")
 ;;978
 ;;21,"55289-0265-90 ")
 ;;964
 ;;21,"55289-0281-30 ")
 ;;2589
 ;;21,"55289-0281-60 ")
 ;;2590
 ;;21,"55289-0281-86 ")
 ;;2591
 ;;21,"55289-0281-90 ")
 ;;2592
 ;;21,"55289-0301-93 ")
 ;;595
 ;;21,"55289-0384-30 ")
 ;;1846
 ;;21,"55289-0384-60 ")
 ;;1847
 ;;21,"55289-0384-86 ")
 ;;1848
 ;;21,"55289-0384-90 ")
 ;;1849
 ;;21,"55289-0384-93 ")
 ;;1850
 ;;21,"55289-0384-94 ")
 ;;1851
 ;;21,"55289-0424-30 ")
 ;;345
 ;;21,"55289-0606-30 ")
 ;;654
 ;;21,"55289-0606-90 ")
 ;;655
 ;;21,"55289-0615-14 ")
 ;;1059
 ;;21,"55289-0615-30 ")
 ;;1060
 ;;21,"55289-0615-60 ")
 ;;1061
 ;;21,"55289-0615-86 ")
 ;;1062
 ;;21,"55289-0615-90 ")
 ;;1063
 ;;21,"55289-0615-93 ")
 ;;1064
 ;;21,"55289-0615-94 ")
 ;;1065
 ;;21,"55289-0615-98 ")
 ;;1066
 ;;21,"55289-0779-07 ")
 ;;522
 ;;21,"55289-0806-14 ")
 ;;337
 ;;21,"55289-0806-30 ")
 ;;338
 ;;21,"55289-0806-60 ")
 ;;339
 ;;21,"55289-0806-86 ")
 ;;340
 ;;21,"55289-0806-90 ")
 ;;341
 ;;21,"55289-0892-01 ")
 ;;775
 ;;21,"55289-0892-14 ")
 ;;776
 ;;21,"55289-0892-15 ")
 ;;777
 ;;21,"55289-0892-30 ")
 ;;778
 ;;21,"55289-0892-60 ")
 ;;779
 ;;21,"55289-0892-86 ")
 ;;780
 ;;21,"55289-0892-90 ")
 ;;781
 ;;21,"55289-0892-93 ")
 ;;782
 ;;21,"55289-0892-98 ")
 ;;783
 ;;21,"55289-0919-30 ")
 ;;1677
 ;;21,"55289-0919-60 ")
 ;;1678
 ;;21,"55289-0919-90 ")
 ;;1679
 ;;21,"55289-0919-93 ")
 ;;1680
 ;;21,"55289-0919-94 ")
 ;;1681
 ;;21,"55289-0919-98 ")
 ;;1682
 ;;21,"55289-0934-30 ")
 ;;1382
 ;;21,"55289-0934-60 ")
 ;;1383
 ;;21,"55289-0934-93 ")
 ;;1384
 ;;21,"55289-0934-94 ")
 ;;1385
 ;;21,"55289-0934-98 ")
 ;;1386
 ;;21,"55289-0976-01 ")
 ;;397
 ;;21,"55289-0976-14 ")
 ;;398
 ;;21,"55289-0976-30 ")
 ;;399
 ;;21,"55289-0976-60 ")
 ;;400
 ;;21,"55289-0976-93 ")
 ;;401
 ;;21,"55700-0022-30 ")
 ;;521
 ;;21,"55700-0041-30 ")
 ;;1969
 ;;21,"57237-0020-01 ")
 ;;623
 ;;21,"57237-0021-01 ")
 ;;651
 ;;21,"57237-0021-05 ")
 ;;652
 ;;21,"57237-0021-99 ")
 ;;653
 ;;21,"57237-0022-01 ")
 ;;784
 ;;21,"57237-0022-05 ")
 ;;785
 ;;21,"57237-0022-99 ")
 ;;786
 ;;21,"57237-0023-01 ")
 ;;2475
 ;;21,"57237-0023-05 ")
 ;;2476
 ;;21,"57237-0024-01 ")
 ;;2518
 ;;21,"57237-0024-05 ")
 ;;2519
 ;;21,"57237-0025-01 ")
 ;;2582
 ;;21,"57237-0025-05 ")
 ;;2583
 ;;21,"57664-0397-13 ")
 ;;1072
 ;;21,"57664-0397-18 ")
 ;;973
 ;;21,"57664-0397-51 ")
 ;;1067
 ;;21,"57664-0397-53 ")
 ;;1068
 ;;21,"57664-0397-58 ")
 ;;1069
 ;;21,"57664-0397-88 ")
 ;;1070
 ;;21,"57664-0397-99 ")
 ;;1071
 ;;21,"57664-0398-13 ")
 ;;342
 ;;21,"57664-0398-18 ")
 ;;343
 ;;21,"57664-0398-88 ")
 ;;344
 ;;21,"57664-0399-13 ")
 ;;402
 ;;21,"57664-0399-18 ")
 ;;403
 ;;21,"57664-0399-88 ")
 ;;404
 ;;21,"57664-0435-13 ")
 ;;1387
 ;;21,"57664-0435-18 ")
 ;;1388
 ;;21,"57664-0435-51 ")
 ;;1389
 ;;21,"57664-0435-53 ")
 ;;1390
 ;;21,"57664-0435-58 ")
 ;;1391
 ;;21,"57664-0435-88 ")
 ;;1392
 ;;21,"57664-0435-99 ")
 ;;1393
 ;;21,"57664-0474-13 ")
 ;;1683
 ;;21,"57664-0474-18 ")
 ;;1684
 ;;21,"57664-0474-51 ")
 ;;1685
 ;;21,"57664-0474-53 ")
 ;;1686
 ;;21,"57664-0474-58 ")
 ;;1687
 ;;21,"57664-0474-88 ")
 ;;1688
 ;;21,"57664-0474-99 ")
 ;;1689
 ;;21,"57664-0724-88 ")
 ;;2449
 ;;21,"57664-0725-88 ")
 ;;2440
 ;;21,"57664-0727-88 ")
 ;;2431
 ;;21,"57664-0745-13 ")
 ;;2016
 ;;21,"57664-0745-88 ")
 ;;2017
 ;;21,"57664-0747-13 ")
 ;;2030
 ;;21,"57664-0747-88 ")
 ;;2031
 ;;21,"58016-0005-00 ")
 ;;87
 ;;21,"58016-0005-30 ")
 ;;88
 ;;21,"58016-0005-60 ")
 ;;89
 ;;21,"58016-0005-90 ")
 ;;90
 ;;21,"58016-0058-00 ")
 ;;2477
 ;;21,"58016-0058-30 ")
 ;;2478
 ;;21,"58016-0058-60 ")
 ;;2479
 ;;21,"58016-0058-90 ")
 ;;2480
 ;;21,"58016-0081-00 ")
 ;;2352
 ;;21,"58016-0081-30 ")
 ;;2353
 ;;21,"58016-0081-60 ")
 ;;2354
 ;;21,"58016-0081-90 ")
 ;;2355
 ;;21,"58016-0082-00 ")
 ;;2316
 ;;21,"58016-0082-30 ")
 ;;2317
 ;;21,"58016-0082-60 ")
 ;;2318
 ;;21,"58016-0082-90 ")
 ;;2319
 ;;21,"58016-0213-00 ")
 ;;974
 ;;21,"58016-0213-10 ")
 ;;975
 ;;21,"58016-0213-30 ")
 ;;976
 ;;21,"58016-0213-60 ")
 ;;977
 ;;21,"58016-0334-00 ")
 ;;523
 ;;21,"58016-0334-02 ")
 ;;524
 ;;21,"58016-0334-30 ")
 ;;525
 ;;21,"58016-0334-60 ")
 ;;526
 ;;21,"58016-0334-90 ")
 ;;527
 ;;21,"58016-0370-30 ")
 ;;968
 ;;21,"58016-0376-00 ")
 ;;405
 ;;21,"58016-0376-02 ")
 ;;406
 ;;21,"58016-0376-30 ")
 ;;407
 ;;21,"58016-0376-60 ")
 ;;408
 ;;21,"58016-0376-90 ")
 ;;409
 ;;21,"58016-0376-99 ")
 ;;410
 ;;21,"58016-0378-00 ")
 ;;787
 ;;21,"58016-0378-02 ")
 ;;788
 ;;21,"58016-0378-30 ")
 ;;789
 ;;21,"58016-0378-60 ")
 ;;790
 ;;21,"58016-0378-90 ")
 ;;791
 ;;21,"58016-0378-99 ")
 ;;792
 ;;21,"58016-0411-00 ")
 ;;2584
 ;;21,"58016-0411-02 ")
 ;;2585
 ;;21,"58016-0411-30 ")
 ;;2586
 ;;21,"58016-0411-60 ")
 ;;2587
 ;;21,"58016-0411-90 ")
 ;;2588
 ;;21,"58016-0457-00 ")
 ;;1335
 ;;21,"58016-0457-10 ")
 ;;1336
 ;;21,"58016-0457-30 ")
 ;;1337
 ;;21,"58016-0457-60 ")
 ;;1338
 ;;21,"58016-0466-00 ")
 ;;1690
 ;;21,"58016-0466-30 ")
 ;;1691
 ;;21,"58016-0466-60 ")
 ;;1692
 ;;21,"58016-0466-90 ")
 ;;1693
 ;;21,"58016-0467-00 ")
 ;;126
 ;;21,"58016-0467-30 ")
 ;;127
 ;;21,"58016-0467-60 ")
 ;;160
 ;;21,"58016-0467-90 ")
 ;;161
 ;;21,"58016-0536-00 ")
 ;;1419
 ;;21,"58016-0536-30 ")
 ;;1420
 ;;21,"58016-0536-60 ")
 ;;1421
 ;;21,"58016-0536-90 ")
 ;;1422
 ;;21,"58016-0553-00 ")
 ;;1554
 ;;21,"58016-0553-10 ")
 ;;1555
 ;;21,"58016-0553-30 ")
 ;;1556
 ;;21,"58016-0553-60 ")
 ;;1557
 ;;21,"58016-0691-00 ")
 ;;572
 ;;21,"58016-0691-30 ")
 ;;573
 ;;21,"58016-0691-60 ")
 ;;574
 ;;21,"58016-0691-90 ")
 ;;575
 ;;21,"58016-0772-00 ")
 ;;1139
 ;;21,"58016-0772-30 ")
 ;;1140
 ;;21,"58016-0772-60 ")
 ;;1141
 ;;21,"58016-0772-90 ")
 ;;1142
 ;;21,"58016-0844-00 ")
 ;;162
 ;;21,"58016-0844-30 ")
 ;;163
 ;;21,"58016-0844-60 ")
 ;;164
 ;;21,"58016-0844-90 ")
 ;;165
 ;;21,"58016-0876-00 ")
 ;;273
 ;;21,"58016-0876-10 ")
 ;;274
 ;;21,"58016-0876-12 ")
 ;;275
 ;;21,"58016-0876-14 ")
 ;;276
 ;;21,"58016-0876-15 ")
 ;;277
 ;;21,"58016-0876-20 ")
 ;;278
 ;;21,"58016-0876-21 ")
 ;;279
 ;;21,"58016-0876-24 ")
 ;;280
 ;;21,"58016-0876-28 ")
 ;;281
 ;;21,"58016-0876-30 ")
 ;;282
 ;;21,"58016-0876-40 ")
 ;;283
 ;;21,"58016-0876-50 ")
 ;;284
 ;;21,"58016-0876-60 ")
 ;;285
 ;;21,"58016-0883-00 ")
 ;;1805
 ;;21,"58016-0883-30 ")
 ;;1806
 ;;21,"58016-0883-60 ")
 ;;1807
 ;;21,"58016-0883-90 ")
 ;;1808
 ;;21,"58118-0010-06 ")
 ;;1558
 ;;21,"58118-0010-08 ")
 ;;1559
 ;;21,"58118-0010-09 ")
 ;;1560
 ;;21,"58118-0102-03 ")
 ;;1136
 ;;21,"58118-0102-06 ")
 ;;1137
 ;;21,"58118-0102-09 ")
 ;;1138
 ;;21,"58118-0178-03 ")
 ;;1801
 ;;21,"58118-0178-06 ")
 ;;1802
 ;;21,"58118-0178-07 ")
 ;;1803
 ;;21,"58118-0178-09 ")
 ;;1804
 ;;21,"58118-0321-03 ")
 ;;95
 ;;21,"58118-0321-06 ")
 ;;96
 ;;21,"58118-0322-03 ")
 ;;158
 ;;21,"58118-0322-06 ")
 ;;159
 ;;21,"58118-0435-03 ")
 ;;1423
 ;;21,"58118-0435-09 ")
 ;;1424
 ;;21,"58118-0461-06 ")
 ;;469
 ;;21,"58118-0461-08 ")
 ;;470
 ;;21,"58118-0461-09 ")
 ;;471
 ;;21,"58118-1452-03 ")
 ;;286
 ;;21,"58118-1452-06 ")
 ;;287
 ;;21,"58118-1452-09 ")
 ;;288
 ;;21,"58118-2331-03 ")
 ;;2522
 ;;21,"58118-2331-09 ")
 ;;2523
 ;;21,"58118-2332-03 ")
 ;;2603
 ;;21,"58118-2332-09 ")
 ;;2604
 ;;21,"58118-5420-01 ")
 ;;2130
 ;;21,"58118-5420-03 ")
 ;;2131
 ;;21,"58118-5420-06 ")
 ;;2132
 ;;21,"58118-5420-09 ")
 ;;2133
 ;;21,"58118-7212-03 ")
 ;;1951
 ;;21,"58118-7212-09 ")
 ;;1952
 ;;21,"58118-8343-08 ")
 ;;695
 ;;21,"58118-8343-09 ")
 ;;696
 ;;21,"58517-0040-90 ")
 ;;1131
 ;;21,"58864-0015-28 ")
 ;;1132
 ;;21,"58864-0015-30 ")
 ;;1133
 ;;21,"58864-0015-60 ")
 ;;1134
 ;;21,"58864-0015-90 ")
 ;;1135
 ;;21,"58864-0027-14 ")
 ;;289
 ;;21,"58864-0027-30 ")
 ;;290
 ;;21,"58864-0027-60 ")
 ;;291
 ;;21,"58864-0027-90 ")
 ;;292
 ;;21,"58864-0161-30 ")
 ;;467
 ;;21,"58864-0161-60 ")
 ;;468
 ;;21,"58864-0224-30 ")
 ;;798
 ;;21,"58864-0224-60 ")
 ;;799
 ;;21,"58864-0224-93 ")
 ;;800
 ;;21,"58864-0507-30 ")
 ;;1800
 ;;21,"58864-0687-30 ")
 ;;2334
 ;;21,"58864-0687-60 ")
 ;;2335
 ;;21,"58864-0689-30 ")
 ;;615
 ;;21,"58864-0689-60 ")
 ;;616
 ;;21,"58864-0693-30 ")
 ;;1564
 ;;21,"58864-0693-60 ")
 ;;1565
 ;;21,"58864-0705-30 ")
 ;;555
 ;;21,"58864-0711-30 ")
 ;;2501
 ;;21,"58864-0789-30 ")
 ;;1406
 ;;21,"58864-0851-30 ")
 ;;1814
 ;;21,"58864-0858-30 ")
 ;;507
 ;;21,"58864-0952-30 ")
 ;;2524
 ;;21,"58864-0953-30 ")
 ;;2602
 ;;21,"58864-0956-30 ")
 ;;579
 ;;21,"58864-0957-30 ")
 ;;528
 ;;21,"59630-0574-60 ")
 ;;1962
 ;;21,"59630-0575-60 ")
 ;;1968
 ;;21,"59762-0540-01 ")
 ;;505
 ;;21,"59762-0541-01 ")
 ;;544
 ;;21,"59762-0541-02 ")
 ;;545
 ;;21,"59762-0542-01 ")
 ;;601
 ;;21,"59762-0542-02 ")
 ;;602
 ;;21,"59762-2330-07 ")
 ;;2483
 ;;21,"59762-2331-06 ")
 ;;2520
 ;;21,"59762-2331-08 ")
 ;;2521
 ;;21,"59762-2332-06 ")
 ;;2605
 ;;21,"59762-2332-08 ")
 ;;2606
 ;;21,"59762-3725-01 ")
 ;;627
 ;;21,"59762-3726-03 ")
 ;;692
 ;;21,"59762-3727-04 ")
 ;;795
 ;;21,"59762-3727-06 ")
 ;;796
 ;;21,"59762-3727-07 ")
 ;;797
 ;;21,"59762-4320-00 ")
 ;;1143
 ;;21,"59762-4320-02 ")
 ;;1144
 ;;21,"59762-4320-06 ")
 ;;1145
 ;;21,"59762-4321-00 ")
 ;;1416
 ;;21,"59762-4321-02 ")
 ;;1417
 ;;21,"59762-4321-06 ")
 ;;1418
 ;;21,"59762-4322-00 ")
 ;;1561
 ;;21,"59762-4322-02 ")
 ;;1562
 ;;21,"59762-4322-06 ")
 ;;1563
 ;;21,"59762-5031-01 ")
 ;;506
 ;;21,"59762-5032-01 ")
 ;;542
 ;;21,"59762-5032-02 ")
 ;;543
 ;;21,"59762-5033-01 ")
 ;;603
 ;;21,"59762-5033-02 ")
 ;;604
 ;;21,"59762-7020-09 ")
 ;;626
 ;;21,"59762-7021-05 ")
 ;;693
 ;;21,"59762-7021-09 ")
 ;;694
 ;;21,"59762-7022-05 ")
 ;;793
 ;;21,"59762-7022-09 ")
 ;;794
 ;;21,"60429-0082-01 ")
 ;;293
 ;;21,"60429-0082-10 ")
 ;;294
 ;;21,"60429-0083-01 ")
 ;;465
 ;;21,"60429-0083-10 ")
 ;;466
 ;;21,"60429-0085-12 ")
 ;;725
 ;;21,"60429-0085-18 ")
 ;;726
 ;;21,"60429-0085-27 ")
 ;;727
 ;;21,"60429-0085-30 ")
 ;;728
 ;;21,"60429-0085-36 ")
 ;;729
 ;;21,"60429-0085-60 ")
 ;;730
 ;;21,"60429-0085-90 ")
 ;;731
 ;;21,"60429-0111-01 ")
 ;;1146
 ;;21,"60429-0111-10 ")
 ;;1147
 ;;21,"60429-0111-12 ")
 ;;1148
 ;;21,"60429-0111-18 ")
 ;;1149
 ;;21,"60429-0111-27 ")
 ;;1150
 ;;21,"60429-0111-36 ")
 ;;1151
 ;;21,"60429-0111-45 ")
 ;;1152
 ;;21,"60429-0111-60 ")
 ;;1153
 ;;21,"60429-0111-90 ")
 ;;1154
 ;;21,"60429-0112-01 ")
 ;;1411
 ;;21,"60429-0112-05 ")
 ;;1412
 ;;21,"60429-0112-18 ")
 ;;1413
 ;;21,"60429-0112-27 ")
 ;;1414
 ;;21,"60429-0112-90 ")
 ;;1415
 ;;21,"60429-0113-05 ")
 ;;1566
 ;;21,"60429-0113-10 ")
 ;;1567
 ;;21,"60429-0113-18 ")
 ;;1568
 ;;21,"60429-0113-60 ")
 ;;1569
 ;;21,"60429-0113-90 ")
 ;;1570
 ;;21,"60429-0280-01 ")
 ;;1948
 ;;21,"60429-0280-10 ")
 ;;1949
 ;;21,"60429-0280-18 ")
 ;;1950
 ;;21,"60429-0283-01 ")
 ;;915