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

BGP51W3.m

Go to the documentation of this file.
BGP51W3 ;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,"35356-0896-30 ")
 ;;58
 ;;21,"35356-0897-30 ")
 ;;2549
 ;;21,"35356-0897-60 ")
 ;;2550
 ;;21,"35356-0899-30 ")
 ;;352
 ;;21,"35356-0899-60 ")
 ;;353
 ;;21,"35356-0899-90 ")
 ;;354
 ;;21,"35356-0922-60 ")
 ;;1503
 ;;21,"35356-0931-30 ")
 ;;567
 ;;21,"35356-0931-60 ")
 ;;568
 ;;21,"35356-0931-90 ")
 ;;569
 ;;21,"35356-0932-30 ")
 ;;2487
 ;;21,"35356-0932-60 ")
 ;;2488
 ;;21,"35356-0932-90 ")
 ;;2489
 ;;21,"35356-0959-30 ")
 ;;1494
 ;;21,"35356-0959-60 ")
 ;;1495
 ;;21,"35356-0959-90 ")
 ;;1496
 ;;21,"35356-0970-30 ")
 ;;2427
 ;;21,"35356-0970-60 ")
 ;;2428
 ;;21,"35356-0970-90 ")
 ;;2429
 ;;21,"35356-0995-30 ")
 ;;642
 ;;21,"35356-0995-60 ")
 ;;643
 ;;21,"35356-0995-90 ")
 ;;644
 ;;21,"42254-0071-30 ")
 ;;2548
 ;;21,"42254-0090-30 ")
 ;;906
 ;;21,"42254-0090-60 ")
 ;;907
 ;;21,"42254-0090-90 ")
 ;;908
 ;;21,"42254-0281-30 ")
 ;;951
 ;;21,"42254-0281-90 ")
 ;;952
 ;;21,"42291-0305-01 ")
 ;;2443
 ;;21,"42291-0306-01 ")
 ;;2464
 ;;21,"42291-0605-10 ")
 ;;1276
 ;;21,"42291-0605-12 ")
 ;;1277
 ;;21,"42291-0605-18 ")
 ;;1278
 ;;21,"42291-0605-27 ")
 ;;1279
 ;;21,"42291-0605-36 ")
 ;;1280
 ;;21,"42291-0605-45 ")
 ;;1281
 ;;21,"42291-0605-60 ")
 ;;1282
 ;;21,"42291-0605-90 ")
 ;;1283
 ;;21,"42291-0606-10 ")
 ;;1490
 ;;21,"42291-0606-18 ")
 ;;1491
 ;;21,"42291-0606-27 ")
 ;;1492
 ;;21,"42291-0606-90 ")
 ;;1493
 ;;21,"42291-0607-10 ")
 ;;1754
 ;;21,"42291-0607-18 ")
 ;;1755
 ;;21,"42291-0607-60 ")
 ;;1756
 ;;21,"42291-0607-90 ")
 ;;1757
 ;;21,"42291-0610-10 ")
 ;;1922
 ;;21,"42291-0610-18 ")
 ;;1923
 ;;21,"42291-0610-36 ")
 ;;1924
 ;;21,"42291-0610-90 ")
 ;;1925
 ;;21,"42291-0611-18 ")
 ;;1953
 ;;21,"42291-0612-10 ")
 ;;1290
 ;;21,"42291-0612-12 ")
 ;;1291
 ;;21,"42291-0612-18 ")
 ;;1292
 ;;21,"42291-0612-27 ")
 ;;1293
 ;;21,"42291-0612-36 ")
 ;;1294
 ;;21,"42291-0612-45 ")
 ;;1295
 ;;21,"42291-0612-60 ")
 ;;1296
 ;;21,"42291-0612-90 ")
 ;;1297
 ;;21,"42291-0613-10 ")
 ;;1486
 ;;21,"42291-0613-18 ")
 ;;1487
 ;;21,"42291-0613-27 ")
 ;;1488
 ;;21,"42291-0613-90 ")
 ;;1489
 ;;21,"42291-0614-10 ")
 ;;1758
 ;;21,"42291-0614-18 ")
 ;;1759
 ;;21,"42291-0614-60 ")
 ;;1760
 ;;21,"42291-0614-90 ")
 ;;1761
 ;;21,"42291-0693-60 ")
 ;;2662
 ;;21,"42291-0694-60 ")
 ;;2677
 ;;21,"42291-0719-90 ")
 ;;2012
 ;;21,"42291-0720-90 ")
 ;;2027
 ;;21,"42549-0498-30 ")
 ;;192
 ;;21,"42549-0499-30 ")
 ;;107
 ;;21,"42571-0100-01 ")
 ;;56
 ;;21,"42571-0100-05 ")
 ;;57
 ;;21,"42571-0101-01 ")
 ;;110
 ;;21,"42571-0101-05 ")
 ;;111
 ;;21,"42571-0103-01 ")
 ;;190
 ;;21,"42571-0103-05 ")
 ;;191
 ;;21,"43063-0012-01 ")
 ;;1284
 ;;21,"43063-0012-60 ")
 ;;1285
 ;;21,"43063-0012-86 ")
 ;;1286
 ;;21,"43063-0012-90 ")
 ;;1287
 ;;21,"43063-0012-93 ")
 ;;1288
 ;;21,"43063-0012-94 ")
 ;;1289
 ;;21,"43063-0034-30 ")
 ;;108
 ;;21,"43063-0034-90 ")
 ;;109
 ;;21,"43063-0119-90 ")
 ;;936
 ;;21,"43063-0120-90 ")
 ;;950
 ;;21,"43063-0121-30 ")
 ;;59
 ;;21,"43063-0121-90 ")
 ;;60
 ;;21,"43063-0122-30 ")
 ;;193
 ;;21,"43063-0122-90 ")
 ;;194
 ;;21,"43063-0372-30 ")
 ;;1954
 ;;21,"43063-0397-86 ")
 ;;2618
 ;;21,"43063-0428-30 ")
 ;;1929
 ;;21,"43063-0428-90 ")
 ;;1918
 ;;21,"43063-0428-93 ")
 ;;1919
 ;;21,"43063-0428-94 ")
 ;;1920
 ;;21,"43063-0429-93 ")
 ;;1479
 ;;21,"43063-0429-94 ")
 ;;1480
 ;;21,"43063-0430-30 ")
 ;;1771
 ;;21,"43063-0430-60 ")
 ;;1772
 ;;21,"43063-0430-90 ")
 ;;1773
 ;;21,"43063-0430-93 ")
 ;;1774
 ;;21,"43063-0430-94 ")
 ;;1775
 ;;21,"43063-0430-98 ")
 ;;1776
 ;;21,"43063-0433-14 ")
 ;;901
 ;;21,"43063-0433-30 ")
 ;;902
 ;;21,"43063-0433-86 ")
 ;;903
 ;;21,"43063-0433-90 ")
 ;;904
 ;;21,"43063-0433-93 ")
 ;;905
 ;;21,"43063-0507-30 ")
 ;;1481
 ;;21,"43063-0507-60 ")
 ;;1482
 ;;21,"43063-0507-90 ")
 ;;1483
 ;;21,"43353-0340-30 ")
 ;;1306
 ;;21,"43353-0340-53 ")
 ;;1307
 ;;21,"43353-0340-60 ")
 ;;1308
 ;;21,"43353-0340-70 ")
 ;;1309
 ;;21,"43353-0340-75 ")
 ;;1310
 ;;21,"43353-0340-80 ")
 ;;1311
 ;;21,"43353-0340-92 ")
 ;;1312
 ;;21,"43353-0340-94 ")
 ;;1313
 ;;21,"43353-0340-96 ")
 ;;1314
 ;;21,"43353-0344-53 ")
 ;;1475
 ;;21,"43353-0344-60 ")
 ;;1476
 ;;21,"43353-0344-80 ")
 ;;1477
 ;;21,"43353-0344-92 ")
 ;;1478
 ;;21,"43353-0349-30 ")
 ;;1777
 ;;21,"43353-0349-45 ")
 ;;1778
 ;;21,"43353-0349-53 ")
 ;;1779
 ;;21,"43353-0349-60 ")
 ;;1780
 ;;21,"43353-0349-73 ")
 ;;1781
 ;;21,"43353-0349-80 ")
 ;;1782
 ;;21,"43353-0349-86 ")
 ;;1783
 ;;21,"43353-0369-53 ")
 ;;390
 ;;21,"43353-0369-60 ")
 ;;391
 ;;21,"43353-0369-70 ")
 ;;392
 ;;21,"43353-0369-80 ")
 ;;393
 ;;21,"43353-0369-92 ")
 ;;394
 ;;21,"43353-0369-94 ")
 ;;395
 ;;21,"43353-0379-60 ")
 ;;201
 ;;21,"43353-0379-73 ")
 ;;202
 ;;21,"43353-0379-80 ")
 ;;203
 ;;21,"43353-0379-92 ")
 ;;204
 ;;21,"43353-0379-98 ")
 ;;205
 ;;21,"43353-0477-30 ")
 ;;1298
 ;;21,"43353-0477-53 ")
 ;;1299
 ;;21,"43353-0477-60 ")
 ;;1300
 ;;21,"43353-0477-70 ")
 ;;1301
 ;;21,"43353-0477-80 ")
 ;;1302
 ;;21,"43353-0477-92 ")
 ;;1303
 ;;21,"43353-0477-94 ")
 ;;1304
 ;;21,"43353-0477-96 ")
 ;;1305
 ;;21,"43353-0514-30 ")
 ;;1762
 ;;21,"43353-0514-45 ")
 ;;1763
 ;;21,"43353-0514-53 ")
 ;;1764
 ;;21,"43353-0514-60 ")
 ;;1765
 ;;21,"43353-0514-73 ")
 ;;1766
 ;;21,"43353-0514-80 ")
 ;;1767
 ;;21,"43353-0514-86 ")
 ;;1768
 ;;21,"43353-0520-60 ")
 ;;1769
 ;;21,"43353-0520-80 ")
 ;;1770
 ;;21,"43353-0530-60 ")
 ;;1484
 ;;21,"43353-0530-80 ")
 ;;1485
 ;;21,"43353-0582-80 ")
 ;;721
 ;;21,"43353-0585-94 ")
 ;;1921
 ;;21,"43353-0589-30 ")
 ;;1315
 ;;21,"43353-0589-53 ")
 ;;1316
 ;;21,"43353-0589-60 ")
 ;;1317
 ;;21,"43353-0589-70 ")
 ;;1318
 ;;21,"43353-0589-75 ")
 ;;1319
 ;;21,"43353-0589-80 ")
 ;;1320
 ;;21,"43353-0589-92 ")
 ;;1049
 ;;21,"43353-0589-94 ")
 ;;1050
 ;;21,"43353-0589-96 ")
 ;;1051
 ;;21,"43353-0656-53 ")
 ;;756
 ;;21,"43353-0656-60 ")
 ;;757
 ;;21,"43353-0656-70 ")
 ;;758
 ;;21,"43353-0656-80 ")
 ;;759
 ;;21,"43353-0656-90 ")
 ;;760
 ;;21,"43353-0656-92 ")
 ;;761
 ;;21,"43353-0656-94 ")
 ;;762
 ;;21,"43353-0659-60 ")
 ;;659
 ;;21,"43353-0659-80 ")
 ;;660
 ;;21,"43353-0811-53 ")
 ;;1364
 ;;21,"43353-0842-30 ")
 ;;1052
 ;;21,"43547-0248-10 ")
 ;;1053
 ;;21,"43547-0248-11 ")
 ;;1054
 ;;21,"43547-0248-50 ")
 ;;1055
 ;;21,"43547-0249-10 ")
 ;;1361
 ;;21,"43547-0249-11 ")
 ;;1362
 ;;21,"43547-0249-50 ")
 ;;1363
 ;;21,"43547-0250-10 ")
 ;;1635
 ;;21,"43547-0250-11 ")
 ;;1636
 ;;21,"43547-0250-50 ")
 ;;1637
 ;;21,"43547-0320-10 ")
 ;;1056
 ;;21,"43547-0320-11 ")
 ;;1057
 ;;21,"43547-0320-50 ")
 ;;1058
 ;;21,"43547-0321-10 ")
 ;;1359
 ;;21,"43547-0321-50 ")
 ;;1360
 ;;21,"43547-0322-10 ")
 ;;1638
 ;;21,"43547-0322-50 ")
 ;;1639
 ;;21,"43683-0123-60 ")
 ;;149
 ;;21,"43683-0124-30 ")
 ;;546
 ;;21,"43683-0131-30 ")
 ;;1640
 ;;21,"43683-0131-60 ")
 ;;1641
 ;;21,"43683-0132-30 ")
 ;;1037
 ;;21,"43683-0132-60 ")
 ;;1038
 ;;21,"45802-0770-78 ")
 ;;41
 ;;21,"45802-0822-78 ")
 ;;69
 ;;21,"45802-0947-78 ")
 ;;146
 ;;21,"45963-0753-02 ")
 ;;2579
 ;;21,"47463-0241-30 ")
 ;;70
 ;;21,"47463-0242-30 ")
 ;;40
 ;;21,"47463-0243-30 ")
 ;;147
 ;;21,"47463-0243-60 ")
 ;;148
 ;;21,"47463-0244-30 ")
 ;;316
 ;;21,"47463-0245-30 ")
 ;;589
 ;;21,"47463-0245-60 ")
 ;;590
 ;;21,"47463-0246-30 ")
 ;;2439
 ;;21,"47463-0247-30 ")
 ;;2450
 ;;21,"47463-0248-90 ")
 ;;763
 ;;21,"47463-0434-60 ")
 ;;2386
 ;;21,"47463-0435-60 ")
 ;;2377
 ;;21,"47463-0508-30 ")
 ;;1629
 ;;21,"47463-0509-30 ")
 ;;1039
 ;;21,"47463-0509-60 ")
 ;;1040
 ;;21,"47463-0509-74 ")
 ;;1041
 ;;21,"47463-0509-90 ")
 ;;1042
 ;;21,"47463-0510-30 ")
 ;;1879
 ;;21,"47463-0510-60 ")
 ;;1880
 ;;21,"47463-0510-71 ")
 ;;1881
 ;;21,"47463-0510-74 ")
 ;;1882
 ;;21,"47463-0510-90 ")
 ;;1883
 ;;21,"47463-0583-30 ")
 ;;2097
 ;;21,"47463-0584-30 ")
 ;;2178
 ;;21,"47463-0585-30 ")
 ;;2250
 ;;21,"47463-0611-60 ")
 ;;1633
 ;;21,"47463-0611-74 ")
 ;;1634
 ;;21,"47463-0612-30 ")
 ;;1365
 ;;21,"47463-0764-60 ")
 ;;2312
 ;;21,"47463-0765-30 ")
 ;;2323
 ;;21,"47463-0766-30 ")
 ;;2349
 ;;21,"47463-0777-30 ")
 ;;2067
 ;;21,"49884-0745-01 ")
 ;;517
 ;;21,"49884-0745-05 ")
 ;;518
 ;;21,"49884-0746-01 ")
 ;;591
 ;;21,"49884-0746-05 ")
 ;;592
 ;;21,"49884-0984-01 ")
 ;;1982
 ;;21,"49884-0985-01 ")
 ;;1988
 ;;21,"49999-0106-00 ")
 ;;1043
 ;;21,"49999-0106-01 ")
 ;;1044
 ;;21,"49999-0106-28 ")
 ;;1045
 ;;21,"49999-0106-30 ")
 ;;1046
 ;;21,"49999-0106-60 ")
 ;;1047
 ;;21,"49999-0106-90 ")
 ;;1048
 ;;21,"49999-0107-00 ")
 ;;424
 ;;21,"49999-0107-20 ")
 ;;425
 ;;21,"49999-0107-30 ")
 ;;426
 ;;21,"49999-0107-60 ")
 ;;427
 ;;21,"49999-0107-90 ")
 ;;428
 ;;21,"49999-0108-00 ")
 ;;321
 ;;21,"49999-0108-30 ")
 ;;322
 ;;21,"49999-0108-60 ")
 ;;323
 ;;21,"49999-0108-90 ")
 ;;324
 ;;21,"49999-0113-00 ")
 ;;751
 ;;21,"49999-0113-01 ")
 ;;752
 ;;21,"49999-0113-30 ")
 ;;753
 ;;21,"49999-0113-60 ")
 ;;754
 ;;21,"49999-0113-90 ")
 ;;755
 ;;21,"49999-0116-00 ")
 ;;1630
 ;;21,"49999-0116-30 ")
 ;;1631
 ;;21,"49999-0116-60 ")
 ;;1632
 ;;21,"49999-0304-30 ")
 ;;2324
 ;;21,"49999-0401-30 ")
 ;;2576
 ;;21,"49999-0401-60 ")
 ;;2577
 ;;21,"49999-0401-90 ")
 ;;2578
 ;;21,"49999-0449-15 ")
 ;;2095
 ;;21,"49999-0449-30 ")
 ;;2096
 ;;21,"49999-0450-30 ")
 ;;2179
 ;;21,"49999-0451-30 ")
 ;;2248
 ;;21,"49999-0451-90 ")
 ;;2249
 ;;21,"49999-0495-30 ")
 ;;1370
 ;;21,"49999-0495-60 ")
 ;;1371
 ;;21,"49999-0514-30 ")
 ;;492
 ;;21,"49999-0571-60 ")
 ;;943
 ;;21,"49999-0660-30 ")
 ;;2555
 ;;21,"49999-0660-60 ")
 ;;2556
 ;;21,"49999-0781-00 ")
 ;;71
 ;;21,"49999-0781-30 ")
 ;;72
 ;;21,"49999-0781-60 ")
 ;;73
 ;;21,"49999-0781-90 ")
 ;;74
 ;;21,"49999-0807-00 ")
 ;;142
 ;;21,"49999-0807-30 ")
 ;;143
 ;;21,"49999-0807-60 ")
 ;;144
 ;;21,"49999-0807-90 ")
 ;;145
 ;;21,"49999-0808-00 ")
 ;;925
 ;;21,"49999-0820-30 ")
 ;;1885
 ;;21,"49999-0820-60 ")
 ;;1886
 ;;21,"49999-0820-90 ")
 ;;1887
 ;;21,"49999-0935-30 ")
 ;;2348
 ;;21,"50268-0531-15 ")
 ;;1884
 ;;21,"50458-0140-30 ")
 ;;2356
 ;;21,"50458-0140-90 ")
 ;;2357
 ;;21,"50458-0141-30 ")
 ;;2358
 ;;21,"50458-0141-90 ")
 ;;2359
 ;;21,"51079-0062-01 ")
 ;;1997
 ;;21,"51079-0062-03 ")
 ;;2004
 ;;21,"51079-0172-01 ")
 ;;1029
 ;;21,"51079-0172-20 ")
 ;;1030
 ;;21,"51079-0173-01 ")
 ;;1368
 ;;21,"51079-0173-08 ")
 ;;1369
 ;;21,"51079-0174-01 ")
 ;;1627
 ;;21,"51079-0174-20 ")
 ;;1628
 ;;21,"51079-0425-01 ")
 ;;67
 ;;21,"51079-0425-20 ")
 ;;68
 ;;21,"51079-0426-01 ")
 ;;150
 ;;21,"51079-0426-20 ")
 ;;151
 ;;21,"51079-0513-01 ")
 ;;2107
 ;;21,"51079-0513-20 ")
 ;;2108
 ;;21,"51079-0514-01 ")
 ;;2187
 ;;21,"51079-0514-20 ")
 ;;2188
 ;;21,"51079-0515-01 ")
 ;;2257
 ;;21,"51079-0515-20 ")
 ;;2258
 ;;21,"51079-0539-01 ")
 ;;2014
 ;;21,"51079-0539-03 ")
 ;;2015
 ;;21,"51079-0555-01 ")
 ;;2028
 ;;21,"51079-0555-03 ")
 ;;2029
 ;;21,"51079-0810-01 ")
 ;;317
 ;;21,"51079-0810-17 ")
 ;;318
 ;;21,"51079-0810-19 ")
 ;;319
 ;;21,"51079-0810-20 ")
 ;;320
 ;;21,"51079-0811-01 ")
 ;;429
 ;;21,"51079-0811-17 ")
 ;;430
 ;;21,"51079-0811-19 ")
 ;;431
 ;;21,"51079-0811-20 ")
 ;;432
 ;;21,"51079-0872-01 ")
 ;;661
 ;;21,"51079-0872-20 ")
 ;;662
 ;;21,"51079-0873-01 ")
 ;;747
 ;;21,"51079-0873-17 ")
 ;;748
 ;;21,"51079-0873-19 ")
 ;;749
 ;;21,"51079-0873-20 ")
 ;;750
 ;;21,"51079-0972-01 ")
 ;;1031
 ;;21,"51079-0972-17 ")
 ;;1032
 ;;21,"51079-0972-19 ")
 ;;1033
 ;;21,"51079-0972-20 ")
 ;;1034
 ;;21,"51079-0972-30 ")
 ;;1035
 ;;21,"51079-0972-56 ")
 ;;1036
 ;;21,"51079-0973-01 ")
 ;;1366
 ;;21,"51079-0973-20 ")
 ;;1367
 ;;21,"51079-0995-01 ")
 ;;1551
 ;;21,"51079-0995-20 ")
 ;;1552
 ;;21,"51138-0074-30 ")
 ;;1028
 ;;21,"51138-0075-30 ")
 ;;1372
 ;;21,"51138-0076-30 ")
 ;;1653
 ;;21,"51138-0083-30 ")
 ;;1027
 ;;21,"51138-0084-30 ")
 ;;1373
 ;;21,"51138-0085-30 ")
 ;;1652
 ;;21,"51138-0214-15 ")
 ;;2098
 ;;21,"51138-0214-30 ")
 ;;2099
 ;;21,"51138-0215-15 ")
 ;;2176
 ;;21,"51138-0215-30 ")
 ;;2177
 ;;21,"51138-0216-15 ")
 ;;2246
 ;;21,"51138-0216-30 ")
 ;;2247
 ;;21,"51138-0251-30 ")
 ;;314
 ;;21,"51138-0252-30 ")
 ;;434
 ;;21,"51138-0265-30 ")
 ;;491
 ;;21,"51138-0266-30 ")
 ;;519
 ;;21,"51138-0267-30 ")
 ;;594
 ;;21,"51138-0268-30 ")
 ;;520
 ;;21,"51138-0269-30 ")
 ;;593
 ;;21,"51138-0270-30 ")
 ;;315
 ;;21,"51138-0271-30 ")
 ;;433
 ;;21,"51138-0337-30 ")
 ;;42
 ;;21,"51138-0338-30 ")
 ;;66
 ;;21,"51138-0339-30 ")
 ;;152
 ;;21,"51138-0367-30 ")
 ;;911
 ;;21,"51138-0368-30 ")
 ;;924
 ;;21,"51138-0369-30 ")
 ;;944
 ;;21,"51138-0370-30 ")
 ;;621
 ;;21,"51138-0371-30 ")
 ;;658
 ;;21,"51138-0372-10 ")
 ;;764
 ;;21,"51138-0372-30 ")
 ;;765
 ;;21,"51138-0470-30 ")
 ;;2474
 ;;21,"51138-0471-30 ")
 ;;2516
 ;;21,"51138-0472-30 ")
 ;;2581
 ;;21,"51138-0473-30 ")
 ;;2473
 ;;21,"51138-0474-30 ")
 ;;2517
 ;;21,"51138-0475-30 ")
 ;;2580