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

BGP51O4.m

Go to the documentation of this file.
BGP51O4 ;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-0709-30 ")
 ;;1534
 ;;21,"52959-0709-40 ")
 ;;1535
 ;;21,"52959-0709-42 ")
 ;;1536
 ;;21,"52959-0709-45 ")
 ;;1537
 ;;21,"52959-0709-50 ")
 ;;1538
 ;;21,"52959-0709-56 ")
 ;;1539
 ;;21,"52959-0709-60 ")
 ;;1540
 ;;21,"52959-0709-90 ")
 ;;1541
 ;;21,"52959-0846-00 ")
 ;;778
 ;;21,"52959-0846-10 ")
 ;;779
 ;;21,"52959-0846-15 ")
 ;;780
 ;;21,"52959-0846-20 ")
 ;;781
 ;;21,"52959-0846-21 ")
 ;;782
 ;;21,"52959-0846-30 ")
 ;;783
 ;;21,"52959-0846-40 ")
 ;;784
 ;;21,"52959-0846-42 ")
 ;;785
 ;;21,"52959-0846-45 ")
 ;;786
 ;;21,"52959-0846-60 ")
 ;;787
 ;;21,"52959-0846-90 ")
 ;;788
 ;;21,"52959-0868-00 ")
 ;;508
 ;;21,"52959-0868-60 ")
 ;;509
 ;;21,"52959-0868-90 ")
 ;;510
 ;;21,"53002-0304-20 ")
 ;;1892
 ;;21,"53002-0304-30 ")
 ;;1893
 ;;21,"53002-0304-40 ")
 ;;1894
 ;;21,"53002-0308-15 ")
 ;;1166
 ;;21,"53002-0308-21 ")
 ;;1167
 ;;21,"53002-0308-30 ")
 ;;1168
 ;;21,"53002-0356-30 ")
 ;;480
 ;;21,"53002-0359-20 ")
 ;;1995
 ;;21,"53002-0359-30 ")
 ;;1996
 ;;21,"53002-0359-40 ")
 ;;1997
 ;;21,"53002-0576-10 ")
 ;;669
 ;;21,"53002-0576-15 ")
 ;;670
 ;;21,"53002-0576-20 ")
 ;;671
 ;;21,"53002-0576-30 ")
 ;;672
 ;;21,"53002-0576-40 ")
 ;;673
 ;;21,"53217-0121-01 ")
 ;;1387
 ;;21,"53489-0110-01 ")
 ;;121
 ;;21,"53489-0110-05 ")
 ;;122
 ;;21,"53489-0110-10 ")
 ;;123
 ;;21,"53489-0591-01 ")
 ;;1363
 ;;21,"53489-0591-05 ")
 ;;1364
 ;;21,"53489-0591-10 ")
 ;;1365
 ;;21,"54348-0108-09 ")
 ;;1361
 ;;21,"54348-0108-10 ")
 ;;1362
 ;;21,"54348-0109-20 ")
 ;;1680
 ;;21,"54348-0931-10 ")
 ;;124
 ;;21,"54569-0838-00 ")
 ;;2323
 ;;21,"54569-0838-01 ")
 ;;2324
 ;;21,"54569-0838-02 ")
 ;;2325
 ;;21,"54569-0838-05 ")
 ;;2326
 ;;21,"54569-0838-06 ")
 ;;2327
 ;;21,"54569-0838-07 ")
 ;;2328
 ;;21,"54569-0843-00 ")
 ;;2186
 ;;21,"54569-0843-01 ")
 ;;2187
 ;;21,"54569-0843-02 ")
 ;;2188
 ;;21,"54569-0843-03 ")
 ;;2189
 ;;21,"54569-0843-04 ")
 ;;2190
 ;;21,"54569-0843-06 ")
 ;;2191
 ;;21,"54569-0843-07 ")
 ;;2192
 ;;21,"54569-0852-00 ")
 ;;1681
 ;;21,"54569-0852-01 ")
 ;;1682
 ;;21,"54569-0852-03 ")
 ;;1683
 ;;21,"54569-0852-04 ")
 ;;1684
 ;;21,"54569-0852-05 ")
 ;;1685
 ;;21,"54569-1709-00 ")
 ;;113
 ;;21,"54569-1709-01 ")
 ;;114
 ;;21,"54569-1709-02 ")
 ;;115
 ;;21,"54569-1709-03 ")
 ;;116
 ;;21,"54569-1709-04 ")
 ;;117
 ;;21,"54569-1709-07 ")
 ;;118
 ;;21,"54569-1709-08 ")
 ;;119
 ;;21,"54569-1709-09 ")
 ;;120
 ;;21,"54569-1970-00 ")
 ;;574
 ;;21,"54569-1970-01 ")
 ;;575
 ;;21,"54569-1970-02 ")
 ;;576
 ;;21,"54569-1970-03 ")
 ;;577
 ;;21,"54569-1970-04 ")
 ;;578
 ;;21,"54569-1970-05 ")
 ;;579
 ;;21,"54569-2573-00 ")
 ;;1352
 ;;21,"54569-2573-01 ")
 ;;1353
 ;;21,"54569-2573-02 ")
 ;;1354
 ;;21,"54569-2573-03 ")
 ;;1355
 ;;21,"54569-2573-04 ")
 ;;1356
 ;;21,"54569-2573-06 ")
 ;;1357
 ;;21,"54569-2573-07 ")
 ;;1358
 ;;21,"54569-2573-08 ")
 ;;1359
 ;;21,"54569-2573-09 ")
 ;;1360
 ;;21,"54569-3193-01 ")
 ;;1349
 ;;21,"54569-3193-05 ")
 ;;1350
 ;;21,"54569-3193-08 ")
 ;;1351
 ;;21,"54569-3403-00 ")
 ;;108
 ;;21,"54569-3403-01 ")
 ;;109
 ;;21,"54569-3403-04 ")
 ;;110
 ;;21,"54569-3403-05 ")
 ;;111
 ;;21,"54569-3403-09 ")
 ;;112
 ;;21,"54569-4048-04 ")
 ;;2194
 ;;21,"54569-4614-00 ")
 ;;1677
 ;;21,"54569-4614-02 ")
 ;;1678
 ;;21,"54569-4614-04 ")
 ;;1679
 ;;21,"54569-5030-01 ")
 ;;580
 ;;21,"54569-5184-00 ")
 ;;1348
 ;;21,"54569-5477-00 ")
 ;;1599
 ;;21,"54569-5477-01 ")
 ;;1600
 ;;21,"54569-5477-02 ")
 ;;1601
 ;;21,"54569-5477-05 ")
 ;;1602
 ;;21,"54569-5477-06 ")
 ;;1603
 ;;21,"54569-5782-00 ")
 ;;851
 ;;21,"54569-5782-01 ")
 ;;852
 ;;21,"54569-5782-02 ")
 ;;853
 ;;21,"54569-5966-00 ")
 ;;2193
 ;;21,"54569-6064-00 ")
 ;;1391
 ;;21,"54569-6064-01 ")
 ;;1392
 ;;21,"54569-6064-02 ")
 ;;1393
 ;;21,"54569-6186-00 ")
 ;;1458
 ;;21,"54569-6186-01 ")
 ;;1459
 ;;21,"54569-6186-02 ")
 ;;1460
 ;;21,"54569-6186-03 ")
 ;;1461
 ;;21,"54569-6186-04 ")
 ;;1462
 ;;21,"54569-6243-00 ")
 ;;1390
 ;;21,"54569-6329-00 ")
 ;;524
 ;;21,"54569-6360-00 ")
 ;;911
 ;;21,"54569-6360-01 ")
 ;;912
 ;;21,"54569-6360-02 ")
 ;;913
 ;;21,"54569-6360-03 ")
 ;;914
 ;;21,"54569-6360-04 ")
 ;;915
 ;;21,"54569-6472-00 ")
 ;;566
 ;;21,"54569-8302-00 ")
 ;;1340
 ;;21,"54569-8317-00 ")
 ;;1686
 ;;21,"54569-8328-00 ")
 ;;1463
 ;;21,"54868-0586-02 ")
 ;;1687
 ;;21,"54868-0586-03 ")
 ;;1688
 ;;21,"54868-0586-06 ")
 ;;1689
 ;;21,"54868-0586-07 ")
 ;;1690
 ;;21,"54868-0586-08 ")
 ;;1691
 ;;21,"54868-0604-00 ")
 ;;1896
 ;;21,"54868-0735-00 ")
 ;;567
 ;;21,"54868-0735-02 ")
 ;;568
 ;;21,"54868-0735-03 ")
 ;;569
 ;;21,"54868-0735-04 ")
 ;;570
 ;;21,"54868-0735-05 ")
 ;;571
 ;;21,"54868-0735-07 ")
 ;;572
 ;;21,"54868-0735-08 ")
 ;;573
 ;;21,"54868-0816-00 ")
 ;;99
 ;;21,"54868-0816-02 ")
 ;;100
 ;;21,"54868-0816-03 ")
 ;;101
 ;;21,"54868-0816-04 ")
 ;;102
 ;;21,"54868-0816-05 ")
 ;;103
 ;;21,"54868-0816-06 ")
 ;;104
 ;;21,"54868-0816-07 ")
 ;;105
 ;;21,"54868-0816-08 ")
 ;;106
 ;;21,"54868-0816-09 ")
 ;;107
 ;;21,"54868-1017-00 ")
 ;;709
 ;;21,"54868-1103-01 ")
 ;;2180
 ;;21,"54868-1103-03 ")
 ;;2181
 ;;21,"54868-1103-05 ")
 ;;2182
 ;;21,"54868-1103-06 ")
 ;;2183
 ;;21,"54868-1103-07 ")
 ;;2184
 ;;21,"54868-1103-09 ")
 ;;2185
 ;;21,"54868-1110-00 ")
 ;;1341
 ;;21,"54868-1110-01 ")
 ;;1342
 ;;21,"54868-1110-02 ")
 ;;1343
 ;;21,"54868-1110-03 ")
 ;;1344
 ;;21,"54868-1110-05 ")
 ;;1345
 ;;21,"54868-1110-08 ")
 ;;1346
 ;;21,"54868-1110-09 ")
 ;;1347
 ;;21,"54868-4102-01 ")
 ;;2329
 ;;21,"54868-4102-02 ")
 ;;2330
 ;;21,"54868-4102-03 ")
 ;;2331
 ;;21,"54868-4102-04 ")
 ;;2332
 ;;21,"54868-4102-05 ")
 ;;2333
 ;;21,"54868-4733-00 ")
 ;;1604
 ;;21,"54868-4733-01 ")
 ;;1605
 ;;21,"54868-4733-02 ")
 ;;1606
 ;;21,"54868-4733-03 ")
 ;;1607
 ;;21,"54868-4733-04 ")
 ;;1608
 ;;21,"54868-4733-05 ")
 ;;1609
 ;;21,"54868-4733-06 ")
 ;;1610
 ;;21,"54868-4733-07 ")
 ;;1611
 ;;21,"54868-4733-08 ")
 ;;1612
 ;;21,"54868-5597-00 ")
 ;;854
 ;;21,"54868-5597-01 ")
 ;;855
 ;;21,"54868-5597-02 ")
 ;;856
 ;;21,"54868-5597-03 ")
 ;;857
 ;;21,"54868-6022-00 ")
 ;;1409
 ;;21,"54868-6102-00 ")
 ;;1464
 ;;21,"54868-6102-01 ")
 ;;1465
 ;;21,"54868-6102-02 ")
 ;;1466
 ;;21,"54868-6102-03 ")
 ;;1467
 ;;21,"54868-6102-04 ")
 ;;1468
 ;;21,"54868-6102-05 ")
 ;;1424
 ;;21,"55045-1325-00 ")
 ;;2291
 ;;21,"55045-1325-01 ")
 ;;2292
 ;;21,"55045-1325-02 ")
 ;;2293
 ;;21,"55045-1325-03 ")
 ;;2294
 ;;21,"55045-1325-04 ")
 ;;2295
 ;;21,"55045-1325-05 ")
 ;;2296
 ;;21,"55045-1325-07 ")
 ;;2297
 ;;21,"55045-1325-08 ")
 ;;2298
 ;;21,"55045-1325-09 ")
 ;;2299
 ;;21,"55045-1386-00 ")
 ;;1954
 ;;21,"55045-1386-01 ")
 ;;1955
 ;;21,"55045-1386-02 ")
 ;;1956
 ;;21,"55045-1386-04 ")
 ;;1957
 ;;21,"55045-1386-07 ")
 ;;1958
 ;;21,"55045-1386-08 ")
 ;;1959
 ;;21,"55045-1386-09 ")
 ;;1960
 ;;21,"55045-1433-00 ")
 ;;360
 ;;21,"55045-1433-01 ")
 ;;361
 ;;21,"55045-1433-02 ")
 ;;362
 ;;21,"55045-1433-03 ")
 ;;363
 ;;21,"55045-1433-04 ")
 ;;364
 ;;21,"55045-1433-05 ")
 ;;365
 ;;21,"55045-1433-06 ")
 ;;366
 ;;21,"55045-1433-07 ")
 ;;367
 ;;21,"55045-1433-08 ")
 ;;368
 ;;21,"55045-1433-09 ")
 ;;369
 ;;21,"55045-1531-01 ")
 ;;1792
 ;;21,"55045-1531-02 ")
 ;;1793
 ;;21,"55045-1531-03 ")
 ;;1794
 ;;21,"55045-1531-08 ")
 ;;1795
 ;;21,"55045-1531-09 ")
 ;;1796
 ;;21,"55045-1566-00 ")
 ;;1035
 ;;21,"55045-1566-01 ")
 ;;1036
 ;;21,"55045-1566-02 ")
 ;;1037
 ;;21,"55045-1566-05 ")
 ;;1038
 ;;21,"55045-1566-06 ")
 ;;1039
 ;;21,"55045-1566-07 ")
 ;;1040
 ;;21,"55045-1566-08 ")
 ;;1041
 ;;21,"55045-1566-09 ")
 ;;1042
 ;;21,"55045-1594-00 ")
 ;;663
 ;;21,"55045-1594-04 ")
 ;;664
 ;;21,"55045-1594-06 ")
 ;;665
 ;;21,"55045-1594-07 ")
 ;;666
 ;;21,"55045-1594-08 ")
 ;;667
 ;;21,"55045-1594-09 ")
 ;;668
 ;;21,"55045-2777-06 ")
 ;;2365
 ;;21,"55045-2777-08 ")
 ;;2366
 ;;21,"55045-2972-00 ")
 ;;1587
 ;;21,"55045-2972-04 ")
 ;;1588
 ;;21,"55045-2972-05 ")
 ;;1589
 ;;21,"55045-2972-06 ")
 ;;1590
 ;;21,"55045-2972-07 ")
 ;;1591
 ;;21,"55045-2972-08 ")
 ;;1592
 ;;21,"55045-3058-01 ")
 ;;1032
 ;;21,"55045-3058-06 ")
 ;;1033
 ;;21,"55045-3058-09 ")
 ;;1034
 ;;21,"55045-3123-09 ")
 ;;358
 ;;21,"55045-3487-01 ")
 ;;750
 ;;21,"55045-3487-03 ")
 ;;751
 ;;21,"55045-3546-01 ")
 ;;359
 ;;21,"55045-3759-06 ")
 ;;1031
 ;;21,"55045-3767-08 ")
 ;;349
 ;;21,"55045-3943-01 ")
 ;;350
 ;;21,"55048-0055-15 ")
 ;;351
 ;;21,"55048-0055-20 ")
 ;;352
 ;;21,"55048-0055-30 ")
 ;;353
 ;;21,"55048-0055-40 ")
 ;;354
 ;;21,"55048-0055-60 ")
 ;;355
 ;;21,"55048-0055-71 ")
 ;;356
 ;;21,"55048-0055-90 ")
 ;;357
 ;;21,"55048-0080-14 ")
 ;;1022
 ;;21,"55048-0080-15 ")
 ;;1023
 ;;21,"55048-0080-20 ")
 ;;1024
 ;;21,"55048-0080-30 ")
 ;;1025
 ;;21,"55048-0080-40 ")
 ;;1026
 ;;21,"55048-0080-45 ")
 ;;1027
 ;;21,"55048-0080-60 ")
 ;;1028
 ;;21,"55048-0080-71 ")
 ;;1029
 ;;21,"55048-0080-90 ")
 ;;1030
 ;;21,"55048-0082-10 ")
 ;;752
 ;;21,"55048-0082-30 ")
 ;;753
 ;;21,"55048-0082-40 ")
 ;;754
 ;;21,"55048-0082-60 ")
 ;;755
 ;;21,"55048-0082-90 ")
 ;;756
 ;;21,"55048-0107-90 ")
 ;;2
 ;;21,"55048-0136-30 ")
 ;;1019
 ;;21,"55048-0136-60 ")
 ;;1020
 ;;21,"55048-0136-90 ")
 ;;1021
 ;;21,"55048-0147-20 ")
 ;;757
 ;;21,"55048-0263-90 ")
 ;;936
 ;;21,"55048-0507-60 ")
 ;;1469
 ;;21,"55048-0507-71 ")
 ;;1470
 ;;21,"55048-0507-78 ")
 ;;1471
 ;;21,"55048-0507-84 ")
 ;;1472
 ;;21,"55048-0507-90 ")
 ;;1473
 ;;21,"55048-0514-30 ")
 ;;1789
 ;;21,"55048-0514-60 ")
 ;;1790
 ;;21,"55048-0514-90 ")
 ;;1791
 ;;21,"55048-0515-20 ")
 ;;1961
 ;;21,"55048-0515-30 ")
 ;;1962
 ;;21,"55048-0515-60 ")
 ;;1963
 ;;21,"55048-0515-71 ")
 ;;1964
 ;;21,"55048-0515-90 ")
 ;;1965
 ;;21,"55048-0616-90 ")
 ;;2285
 ;;21,"55048-0622-60 ")
 ;;2286
 ;;21,"55048-0848-90 ")
 ;;6
 ;;21,"55048-0849-60 ")
 ;;481
 ;;21,"55048-0849-90 ")
 ;;482
 ;;21,"55253-0276-60 ")
 ;;1410
 ;;21,"55253-0277-60 ")
 ;;1419
 ;;21,"55289-0017-20 ")
 ;;2197
 ;;21,"55289-0017-40 ")
 ;;2198
 ;;21,"55289-0049-01 ")
 ;;337
 ;;21,"55289-0049-10 ")
 ;;338
 ;;21,"55289-0049-14 ")
 ;;339
 ;;21,"55289-0049-15 ")
 ;;340
 ;;21,"55289-0049-20 ")
 ;;341
 ;;21,"55289-0049-21 ")
 ;;342
 ;;21,"55289-0049-24 ")
 ;;343
 ;;21,"55289-0049-30 ")
 ;;344
 ;;21,"55289-0049-40 ")
 ;;345
 ;;21,"55289-0049-60 ")
 ;;346
 ;;21,"55289-0049-90 ")
 ;;347
 ;;21,"55289-0049-98 ")
 ;;348
 ;;21,"55289-0115-15 ")
 ;;1379
 ;;21,"55289-0115-20 ")
 ;;1380
 ;;21,"55289-0115-21 ")
 ;;1381
 ;;21,"55289-0115-30 ")
 ;;1382
 ;;21,"55289-0164-01 ")
 ;;1966
 ;;21,"55289-0164-10 ")
 ;;1967
 ;;21,"55289-0164-15 ")
 ;;1968
 ;;21,"55289-0164-20 ")
 ;;1969
 ;;21,"55289-0164-24 ")
 ;;1970
 ;;21,"55289-0164-28 ")
 ;;1971
 ;;21,"55289-0164-30 ")
 ;;1972
 ;;21,"55289-0164-40 ")
 ;;1973
 ;;21,"55289-0164-60 ")
 ;;1974
 ;;21,"55289-0164-90 ")
 ;;1975
 ;;21,"55289-0164-93 ")
 ;;1976
 ;;21,"55289-0236-10 ")
 ;;747
 ;;21,"55289-0236-14 ")
 ;;748
 ;;21,"55289-0236-30 ")
 ;;749
 ;;21,"55289-0403-92 ")
 ;;1420
 ;;21,"55289-0567-10 ")
 ;;1043
 ;;21,"55289-0567-12 ")
 ;;1044
 ;;21,"55289-0567-14 ")
 ;;1045
 ;;21,"55289-0567-15 ")
 ;;1046
 ;;21,"55289-0567-17 ")
 ;;1047
 ;;21,"55289-0567-18 ")
 ;;1048
 ;;21,"55289-0567-20 ")
 ;;1049
 ;;21,"55289-0567-21 ")
 ;;1050
 ;;21,"55289-0567-30 ")
 ;;1051
 ;;21,"55289-0567-42 ")
 ;;1052
 ;;21,"55289-0567-60 ")
 ;;1053
 ;;21,"55289-0567-90 ")
 ;;1054
 ;;21,"55289-0567-98 ")
 ;;1055
 ;;21,"55289-0578-20 ")
 ;;483
 ;;21,"55289-0578-40 ")
 ;;484
 ;;21,"55289-0633-08 ")
 ;;655
 ;;21,"55289-0633-10 ")
 ;;656
 ;;21,"55289-0633-17 ")
 ;;657
 ;;21,"55289-0633-20 ")
 ;;658
 ;;21,"55289-0633-24 ")
 ;;659
 ;;21,"55289-0633-28 ")
 ;;660
 ;;21,"55289-0633-30 ")
 ;;661
 ;;21,"55289-0633-40 ")
 ;;662
 ;;21,"55289-0670-01 ")
 ;;1777
 ;;21,"55289-0670-10 ")
 ;;1778
 ;;21,"55289-0670-12 ")
 ;;1779
 ;;21,"55289-0670-14 ")
 ;;1780
 ;;21,"55289-0670-20 ")
 ;;1781
 ;;21,"55289-0670-24 ")
 ;;1782
 ;;21,"55289-0670-28 ")
 ;;1783
 ;;21,"55289-0670-30 ")
 ;;1784
 ;;21,"55289-0670-40 ")
 ;;1785
 ;;21,"55289-0670-60 ")
 ;;1786
 ;;21,"55289-0670-90 ")
 ;;1787
 ;;21,"55289-0670-93 ")
 ;;1788
 ;;21,"55289-0695-28 ")
 ;;500
 ;;21,"55289-0695-40 ")
 ;;501
 ;;21,"55289-0736-10 ")
 ;;1593
 ;;21,"55289-0736-15 ")
 ;;1594
 ;;21,"55289-0736-20 ")
 ;;1595
 ;;21,"55289-0736-21 ")
 ;;1596
 ;;21,"55289-0736-30 ")
 ;;1597
 ;;21,"55289-0736-40 ")
 ;;1598
 ;;21,"55289-0745-10 ")
 ;;880
 ;;21,"55289-0745-20 ")
 ;;881
 ;;21,"55289-0877-14 ")
 ;;2287
 ;;21,"55289-0877-20 ")
 ;;2288
 ;;21,"55289-0877-30 ")
 ;;2289
 ;;21,"55289-0877-60 ")
 ;;2290
 ;;21,"55289-0888-24 ")
 ;;707
 ;;21,"55390-0059-10 ")
 ;;2205
 ;;21,"55700-0004-01 ")
 ;;764
 ;;21,"55700-0004-18 ")
 ;;765
 ;;21,"55700-0004-21 ")
 ;;766
 ;;21,"55700-0004-30 ")
 ;;767