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

BGP51R3.m

Go to the documentation of this file.
BGP51R3 ;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,"43353-0188-45 ")
 ;;334
 ;;21,"43353-0256-30 ")
 ;;134
 ;;21,"43353-0256-45 ")
 ;;135
 ;;21,"43353-0256-53 ")
 ;;136
 ;;21,"43353-0256-60 ")
 ;;137
 ;;21,"43353-0295-30 ")
 ;;323
 ;;21,"43353-0295-45 ")
 ;;324
 ;;21,"43353-0295-53 ")
 ;;325
 ;;21,"43353-0311-30 ")
 ;;1209
 ;;21,"43353-0311-60 ")
 ;;1210
 ;;21,"43353-0311-80 ")
 ;;1211
 ;;21,"43353-0328-60 ")
 ;;138
 ;;21,"43353-0452-30 ")
 ;;139
 ;;21,"43353-0534-30 ")
 ;;320
 ;;21,"43353-0534-45 ")
 ;;321
 ;;21,"43353-0534-60 ")
 ;;322
 ;;21,"43353-0545-45 ")
 ;;130
 ;;21,"43353-0551-30 ")
 ;;332
 ;;21,"43353-0599-60 ")
 ;;1575
 ;;21,"43353-0599-80 ")
 ;;1576
 ;;21,"43353-0600-30 ")
 ;;1649
 ;;21,"43353-0600-60 ")
 ;;1650
 ;;21,"43353-0601-60 ")
 ;;1614
 ;;21,"43353-0602-60 ")
 ;;1615
 ;;21,"43353-0684-15 ")
 ;;131
 ;;21,"43353-0684-30 ")
 ;;132
 ;;21,"43353-0684-45 ")
 ;;133
 ;;21,"43353-0691-30 ")
 ;;331
 ;;21,"43353-0723-60 ")
 ;;1170
 ;;21,"43353-0750-60 ")
 ;;1279
 ;;21,"43353-0750-81 ")
 ;;1280
 ;;21,"43353-0782-30 ")
 ;;1237
 ;;21,"43353-0782-60 ")
 ;;1238
 ;;21,"43353-0782-80 ")
 ;;1239
 ;;21,"43353-0792-30 ")
 ;;1171
 ;;21,"43353-0792-60 ")
 ;;1172
 ;;21,"43353-0836-30 ")
 ;;1234
 ;;21,"43353-0836-60 ")
 ;;1235
 ;;21,"43353-0836-80 ")
 ;;1236
 ;;21,"43547-0230-09 ")
 ;;46
 ;;21,"43547-0230-11 ")
 ;;47
 ;;21,"43547-0231-09 ")
 ;;128
 ;;21,"43547-0231-11 ")
 ;;129
 ;;21,"43547-0232-09 ")
 ;;335
 ;;21,"43547-0232-11 ")
 ;;336
 ;;21,"43598-0313-30 ")
 ;;2201
 ;;21,"43598-0314-30 ")
 ;;2156
 ;;21,"43598-0315-30 ")
 ;;2189
 ;;21,"43598-0315-90 ")
 ;;2190
 ;;21,"43598-0316-30 ")
 ;;2147
 ;;21,"43598-0316-90 ")
 ;;2148
 ;;21,"43598-0317-30 ")
 ;;2112
 ;;21,"43598-0318-30 ")
 ;;2176
 ;;21,"43598-0318-90 ")
 ;;2177
 ;;21,"43598-0319-30 ")
 ;;2136
 ;;21,"43598-0319-90 ")
 ;;2137
 ;;21,"43598-0320-30 ")
 ;;2105
 ;;21,"43598-0321-30 ")
 ;;2164
 ;;21,"43598-0321-90 ")
 ;;2165
 ;;21,"43598-0322-30 ")
 ;;2121
 ;;21,"43598-0322-90 ")
 ;;2122
 ;;21,"43598-0323-30 ")
 ;;2099
 ;;21,"43683-0133-30 ")
 ;;125
 ;;21,"45963-0152-02 ")
 ;;1276
 ;;21,"47335-0669-13 ")
 ;;632
 ;;21,"47335-0669-81 ")
 ;;633
 ;;21,"47335-0669-83 ")
 ;;634
 ;;21,"47335-0670-13 ")
 ;;655
 ;;21,"47335-0670-81 ")
 ;;656
 ;;21,"47335-0670-83 ")
 ;;657
 ;;21,"47335-0671-13 ")
 ;;677
 ;;21,"47335-0671-81 ")
 ;;678
 ;;21,"47335-0671-83 ")
 ;;679
 ;;21,"47335-0672-13 ")
 ;;699
 ;;21,"47335-0672-81 ")
 ;;700
 ;;21,"47335-0672-83 ")
 ;;701
 ;;21,"47335-0673-13 ")
 ;;721
 ;;21,"47335-0673-81 ")
 ;;722
 ;;21,"47335-0673-83 ")
 ;;723
 ;;21,"47335-0675-13 ")
 ;;790
 ;;21,"47335-0675-81 ")
 ;;791
 ;;21,"47335-0676-13 ")
 ;;849
 ;;21,"47335-0676-81 ")
 ;;850
 ;;21,"47335-0677-13 ")
 ;;905
 ;;21,"47335-0677-81 ")
 ;;906
 ;;21,"47335-0678-13 ")
 ;;943
 ;;21,"47335-0678-81 ")
 ;;944
 ;;21,"47335-0679-81 ")
 ;;952
 ;;21,"47463-0018-30 ")
 ;;313
 ;;21,"47463-0018-90 ")
 ;;314
 ;;21,"47463-0019-30 ")
 ;;126
 ;;21,"47463-0019-90 ")
 ;;127
 ;;21,"47463-0020-30 ")
 ;;1796
 ;;21,"47463-0021-30 ")
 ;;1942
 ;;21,"47463-0022-30 ")
 ;;1846
 ;;21,"47463-0023-30 ")
 ;;2056
 ;;21,"47463-0024-30 ")
 ;;2048
 ;;21,"47463-0210-30 ")
 ;;780
 ;;21,"47463-0211-30 ")
 ;;830
 ;;21,"47463-0212-30 ")
 ;;886
 ;;21,"47463-0213-30 ")
 ;;935
 ;;21,"47463-0542-30 ")
 ;;1173
 ;;21,"47463-0543-30 ")
 ;;1243
 ;;21,"47463-0544-30 ")
 ;;1384
 ;;21,"47463-0819-30 ")
 ;;1478
 ;;21,"47463-0820-30 ")
 ;;1454
 ;;21,"47781-0368-01 ")
 ;;1174
 ;;21,"47781-0369-01 ")
 ;;1242
 ;;21,"47781-0370-01 ")
 ;;1277
 ;;21,"49884-0677-01 ")
 ;;1175
 ;;21,"49884-0677-05 ")
 ;;1176
 ;;21,"49884-0678-01 ")
 ;;1240
 ;;21,"49884-0678-05 ")
 ;;1241
 ;;21,"49884-0679-01 ")
 ;;1278
 ;;21,"49884-0829-05 ")
 ;;781
 ;;21,"49884-0829-09 ")
 ;;782
 ;;21,"49884-0829-11 ")
 ;;783
 ;;21,"49884-0830-05 ")
 ;;831
 ;;21,"49884-0830-09 ")
 ;;832
 ;;21,"49884-0830-11 ")
 ;;833
 ;;21,"49884-0831-05 ")
 ;;887
 ;;21,"49884-0831-09 ")
 ;;888
 ;;21,"49884-0831-11 ")
 ;;889
 ;;21,"49884-0832-05 ")
 ;;936
 ;;21,"49884-0832-09 ")
 ;;937
 ;;21,"49884-0832-11 ")
 ;;938
 ;;21,"49884-0929-01 ")
 ;;1765
 ;;21,"49884-0929-05 ")
 ;;1766
 ;;21,"49884-0930-01 ")
 ;;1794
 ;;21,"49884-0930-05 ")
 ;;1795
 ;;21,"49884-0931-01 ")
 ;;1844
 ;;21,"49884-0931-05 ")
 ;;1845
 ;;21,"49884-0932-01 ")
 ;;1940
 ;;21,"49884-0932-05 ")
 ;;1941
 ;;21,"49884-0952-01 ")
 ;;1901
 ;;21,"49884-0952-05 ")
 ;;1902
 ;;21,"49884-0953-01 ")
 ;;1984
 ;;21,"49884-0953-05 ")
 ;;1985
 ;;21,"49999-0075-00 ")
 ;;1636
 ;;21,"49999-0075-30 ")
 ;;1637
 ;;21,"49999-0075-90 ")
 ;;1638
 ;;21,"49999-0248-10 ")
 ;;304
 ;;21,"49999-0283-00 ")
 ;;1474
 ;;21,"49999-0283-30 ")
 ;;1475
 ;;21,"49999-0283-60 ")
 ;;1476
 ;;21,"49999-0283-90 ")
 ;;1477
 ;;21,"49999-0284-00 ")
 ;;1567
 ;;21,"49999-0284-30 ")
 ;;1568
 ;;21,"49999-0284-60 ")
 ;;1569
 ;;21,"49999-0284-90 ")
 ;;1570
 ;;21,"49999-0310-00 ")
 ;;1452
 ;;21,"49999-0310-60 ")
 ;;1453
 ;;21,"49999-0357-30 ")
 ;;1296
 ;;21,"49999-0357-60 ")
 ;;1297
 ;;21,"49999-0357-90 ")
 ;;1298
 ;;21,"49999-0436-30 ")
 ;;290
 ;;21,"49999-0436-90 ")
 ;;291
 ;;21,"49999-0476-30 ")
 ;;1244
 ;;21,"49999-0476-60 ")
 ;;1245
 ;;21,"49999-0476-90 ")
 ;;1246
 ;;21,"49999-0478-30 ")
 ;;468
 ;;21,"49999-0478-90 ")
 ;;469
 ;;21,"49999-0496-30 ")
 ;;851
 ;;21,"49999-0499-10 ")
 ;;724
 ;;21,"49999-0572-10 ")
 ;;1082
 ;;21,"49999-0821-10 ")
 ;;1049
 ;;21,"49999-0946-30 ")
 ;;1974
 ;;21,"49999-0947-30 ")
 ;;1832
 ;;21,"49999-0948-30 ")
 ;;1890
 ;;21,"49999-0989-30 ")
 ;;2128
 ;;21,"50268-0081-15 ")
 ;;124
 ;;21,"50268-0082-15 ")
 ;;305
 ;;21,"50268-0083-15 ")
 ;;48
 ;;21,"50268-0084-15 ")
 ;;123
 ;;21,"50268-0085-15 ")
 ;;306
 ;;21,"50268-0597-15 ")
 ;;1299
 ;;21,"50268-0598-15 ")
 ;;1345
 ;;21,"50268-0599-15 ")
 ;;1383
 ;;21,"50419-0701-05 ")
 ;;1142
 ;;21,"50419-0701-10 ")
 ;;1143
 ;;21,"50419-0702-05 ")
 ;;1204
 ;;21,"50419-0702-10 ")
 ;;1205
 ;;21,"50419-0703-05 ")
 ;;1269
 ;;21,"51079-0400-01 ")
 ;;1301
 ;;21,"51079-0400-20 ")
 ;;1302
 ;;21,"51079-0450-01 ")
 ;;49
 ;;21,"51079-0450-20 ")
 ;;50
 ;;21,"51079-0450-63 ")
 ;;51
 ;;21,"51079-0450-66 ")
 ;;52
 ;;21,"51079-0451-01 ")
 ;;119
 ;;21,"51079-0451-17 ")
 ;;120
 ;;21,"51079-0451-19 ")
 ;;121
 ;;21,"51079-0451-20 ")
 ;;122
 ;;21,"51079-0451-30 ")
 ;;106
 ;;21,"51079-0451-56 ")
 ;;117
 ;;21,"51079-0451-69 ")
 ;;118
 ;;21,"51079-0452-01 ")
 ;;307
 ;;21,"51079-0452-17 ")
 ;;308
 ;;21,"51079-0452-19 ")
 ;;309
 ;;21,"51079-0452-20 ")
 ;;310
 ;;21,"51079-0452-30 ")
 ;;311
 ;;21,"51079-0452-56 ")
 ;;312
 ;;21,"51079-0467-01 ")
 ;;1050
 ;;21,"51079-0467-20 ")
 ;;1051
 ;;21,"51079-0468-01 ")
 ;;1080
 ;;21,"51079-0468-20 ")
 ;;1081
 ;;21,"51079-0745-01 ")
 ;;480
 ;;21,"51079-0745-17 ")
 ;;481
 ;;21,"51079-0745-19 ")
 ;;482
 ;;21,"51079-0745-20 ")
 ;;483
 ;;21,"51079-0746-01 ")
 ;;521
 ;;21,"51079-0746-17 ")
 ;;522
 ;;21,"51079-0746-19 ")
 ;;523
 ;;21,"51079-0746-20 ")
 ;;524
 ;;21,"51079-0747-01 ")
 ;;550
 ;;21,"51079-0747-20 ")
 ;;551
 ;;21,"51079-0869-01 ")
 ;;1645
 ;;21,"51079-0869-20 ")
 ;;1646
 ;;21,"51079-0869-30 ")
 ;;1647
 ;;21,"51079-0869-56 ")
 ;;1648
 ;;21,"51079-0894-01 ")
 ;;1525
 ;;21,"51079-0894-20 ")
 ;;1526
 ;;21,"51079-0896-01 ")
 ;;1346
 ;;21,"51079-0896-20 ")
 ;;1347
 ;;21,"51079-0897-01 ")
 ;;1381
 ;;21,"51079-0897-08 ")
 ;;1382
 ;;21,"51079-0899-01 ")
 ;;1571
 ;;21,"51079-0899-20 ")
 ;;1572
 ;;21,"51079-0899-30 ")
 ;;1573
 ;;21,"51079-0899-56 ")
 ;;1574
 ;;21,"51079-0917-01 ")
 ;;1712
 ;;21,"51079-0917-20 ")
 ;;1713
 ;;21,"51079-0924-01 ")
 ;;567
 ;;21,"51079-0924-20 ")
 ;;568
 ;;21,"51079-0925-01 ")
 ;;571
 ;;21,"51079-0925-20 ")
 ;;572
 ;;21,"51079-0926-01 ")
 ;;573
 ;;21,"51079-0926-20 ")
 ;;574
 ;;21,"51079-0947-01 ")
 ;;588
 ;;21,"51079-0947-08 ")
 ;;589
 ;;21,"51079-0948-01 ")
 ;;606
 ;;21,"51079-0948-08 ")
 ;;607
 ;;21,"51079-0949-01 ")
 ;;623
 ;;21,"51079-0949-08 ")
 ;;624
 ;;21,"51138-0086-30 ")
 ;;53
 ;;21,"51138-0087-30 ")
 ;;195
 ;;21,"51138-0088-30 ")
 ;;374
 ;;21,"51138-0151-30 ")
 ;;54
 ;;21,"51138-0152-30 ")
 ;;194
 ;;21,"51138-0153-30 ")
 ;;375
 ;;21,"51138-0279-30 ")
 ;;1527
 ;;21,"51138-0280-30 ")
 ;;1578
 ;;21,"51138-0281-30 ")
 ;;1644
 ;;21,"51138-0287-30 ")
 ;;1714
 ;;21,"51138-0288-30 ")
 ;;1721
 ;;21,"51138-0289-30 ")
 ;;1734
 ;;21,"51138-0292-30 ")
 ;;777
 ;;21,"51138-0293-30 ")
 ;;834
 ;;21,"51138-0294-30 ")
 ;;890
 ;;21,"51138-0295-30 ")
 ;;934
 ;;21,"51138-0296-10 ")
 ;;635
 ;;21,"51138-0296-30 ")
 ;;636
 ;;21,"51138-0297-30 ")
 ;;658
 ;;21,"51138-0298-20 ")
 ;;680
 ;;21,"51138-0298-30 ")
 ;;681
 ;;21,"51138-0299-30 ")
 ;;702
 ;;21,"51138-0300-30 ")
 ;;726
 ;;21,"51138-0301-30 ")
 ;;745
 ;;21,"51138-0302-10 ")
 ;;795
 ;;21,"51138-0302-30 ")
 ;;796
 ;;21,"51138-0303-30 ")
 ;;847
 ;;21,"51138-0304-20 ")
 ;;901
 ;;21,"51138-0304-30 ")
 ;;902
 ;;21,"51138-0305-30 ")
 ;;946
 ;;21,"51138-0360-10 ")
 ;;1303
 ;;21,"51138-0360-30 ")
 ;;1304
 ;;21,"51138-0361-10 ")
 ;;1342
 ;;21,"51138-0361-30 ")
 ;;1343
 ;;21,"51138-0362-10 ")
 ;;1392
 ;;21,"51138-0362-30 ")
 ;;1393
 ;;21,"51138-0387-10 ")
 ;;1011
 ;;21,"51138-0387-30 ")
 ;;1012
 ;;21,"51138-0388-10 ")
 ;;1037
 ;;21,"51138-0388-30 ")
 ;;1038
 ;;21,"51138-0389-10 ")
 ;;1077
 ;;21,"51138-0389-30 ")
 ;;1078
 ;;21,"51138-0390-10 ")
 ;;1177
 ;;21,"51138-0390-30 ")
 ;;1178
 ;;21,"51138-0391-10 ")
 ;;1225
 ;;21,"51138-0391-30 ")
 ;;1226
 ;;21,"51138-0404-30 ")
 ;;1010
 ;;21,"51138-0405-10 ")
 ;;1035
 ;;21,"51138-0405-30 ")
 ;;1036
 ;;21,"51138-0406-10 ")
 ;;1075
 ;;21,"51138-0406-30 ")
 ;;1076
 ;;21,"51138-0418-30 ")
 ;;1768
 ;;21,"51138-0419-30 ")
 ;;1791
 ;;21,"51138-0420-30 ")
 ;;1842
 ;;21,"51138-0422-30 ")
 ;;1926
 ;;21,"51138-0432-30 ")
 ;;1769
 ;;21,"51138-0433-30 ")
 ;;1790
 ;;21,"51138-0434-30 ")
 ;;1843
 ;;21,"51138-0435-30 ")
 ;;1925
 ;;21,"51138-0531-10 ")
 ;;1781
 ;;21,"51138-0531-30 ")
 ;;1782
 ;;21,"51138-0532-10 ")
 ;;1833
 ;;21,"51138-0532-30 ")
 ;;1834
 ;;21,"51138-0533-10 ")
 ;;1891
 ;;21,"51138-0533-30 ")
 ;;1892
 ;;21,"51138-0534-10 ")
 ;;1916
 ;;21,"51138-0534-30 ")
 ;;1917
 ;;21,"51138-0535-10 ")
 ;;1976
 ;;21,"51138-0535-30 ")
 ;;1977
 ;;21,"51138-0536-10 ")
 ;;2003
 ;;21,"51138-0536-30 ")
 ;;2004
 ;;21,"51138-0544-30 ")
 ;;753
 ;;21,"51138-0545-30 ")
 ;;815
 ;;21,"51138-0546-30 ")
 ;;861
 ;;21,"51138-0547-30 ")
 ;;917
 ;;21,"51138-0548-30 ")
 ;;949
 ;;21,"51138-0557-30 ")
 ;;1215
 ;;21,"51138-0558-30 ")
 ;;100
 ;;21,"51138-0559-30 ")
 ;;283
 ;;21,"51138-0560-30 ")
 ;;462
 ;;21,"51138-0576-30 ")
 ;;2007
 ;;21,"51138-0577-20 ")
 ;;2012
 ;;21,"51138-0577-30 ")
 ;;2013
 ;;21,"51138-0578-10 ")
 ;;2018
 ;;21,"51138-0578-30 ")
 ;;2019
 ;;21,"51138-0579-10 ")
 ;;2026
 ;;21,"51138-0579-20 ")
 ;;2027
 ;;21,"51138-0579-30 ")
 ;;2028
 ;;21,"51991-0667-90 ")
 ;;190
 ;;21,"51991-0668-90 ")
 ;;369
 ;;21,"52544-0484-01 ")
 ;;614
 ;;21,"52544-0691-19 ")
 ;;967
 ;;21,"52544-0691-30 ")
 ;;968
 ;;21,"52544-0692-19 ")
 ;;977
 ;;21,"52544-0692-30 ")
 ;;978
 ;;21,"52544-0693-19 ")
 ;;987
 ;;21,"52544-0693-30 ")
 ;;988
 ;;21,"52544-0694-19 ")
 ;;998
 ;;21,"52544-0694-30 ")
 ;;999
 ;;21,"52544-0695-19 ")
 ;;1006
 ;;21,"52544-0695-30 ")
 ;;1007
 ;;21,"52959-0050-30 ")
 ;;1643
 ;;21,"52959-0072-01 ")
 ;;608
 ;;21,"52959-0209-90 ")
 ;;377
 ;;21,"52959-0910-90 ")
 ;;55
 ;;21,"52959-0911-30 ")
 ;;188
 ;;21,"52959-0911-90 ")
 ;;189
 ;;21,"52959-0982-60 ")
 ;;1224
 ;;21,"52959-0996-60 ")
 ;;1179
 ;;21,"53002-1129-00 ")
 ;;1641
 ;;21,"53002-1129-03 ")
 ;;1642
 ;;21,"53002-1205-00 ")
 ;;1579
 ;;21,"53002-1205-03 ")
 ;;1580
 ;;21,"53002-1467-00 ")
 ;;1523
 ;;21,"53002-1467-03 ")
 ;;1524
 ;;21,"53217-0006-30 ")
 ;;797
 ;;21,"53217-0006-60 ")
 ;;798
 ;;21,"53217-0006-90 ")
 ;;799
 ;;21,"53217-0010-30 ")
 ;;1336
 ;;21,"53217-0010-60 ")
 ;;1337
 ;;21,"53217-0010-90 ")
 ;;1338
 ;;21,"53489-0368-01 ")
 ;;1013
 ;;21,"53489-0369-01 ")
 ;;1039
 ;;21,"53489-0370-01 ")
 ;;1079
 ;;21,"53746-0006-01 ")
 ;;56
 ;;21,"53746-0006-05 ")
 ;;57
 ;;21,"53746-0007-01 ")
 ;;191
 ;;21,"53746-0007-05 ")
 ;;192
 ;;21,"53746-0008-01 ")
 ;;370
 ;;21,"53746-0008-05 ")
 ;;371
 ;;21,"54458-0895-02 ")
 ;;372
 ;;21,"54458-0903-02 ")
 ;;373
 ;;21,"54458-0904-02 ")
 ;;193
 ;;21,"54458-0948-08 ")
 ;;1339
 ;;21,"54458-0950-10 ")
 ;;1307
 ;;21,"54569-0646-00 ")
 ;;1472
 ;;21,"54569-0646-02 ")
 ;;1473
 ;;21,"54569-3667-02 ")
 ;;525
 ;;21,"54569-3691-00 ")
 ;;1639
 ;;21,"54569-3691-04 ")
 ;;1640
 ;;21,"54569-3866-01 ")
 ;;282
 ;;21,"54569-4447-04 ")
 ;;1581
 ;;21,"54569-4472-00 ")
 ;;461
 ;;21,"54569-4913-00 ")
 ;;848
 ;;21,"54569-4914-00 ")
 ;;903
 ;;21,"54569-4914-01 ")
 ;;904
 ;;21,"54569-5155-00 ")
 ;;1305