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

BGP51J5.m

Go to the documentation of this file.
BGP51J5 ;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,"54868-5943-01 ")
 ;;890
 ;;21,"54868-6189-00 ")
 ;;2516
 ;;21,"54868-6189-01 ")
 ;;2517
 ;;21,"54868-6215-00 ")
 ;;2605
 ;;21,"54868-6215-01 ")
 ;;2606
 ;;21,"54868-6215-02 ")
 ;;2607
 ;;21,"54868-6215-03 ")
 ;;2608
 ;;21,"55045-1208-02 ")
 ;;1003
 ;;21,"55045-1208-03 ")
 ;;1004
 ;;21,"55045-1208-06 ")
 ;;1005
 ;;21,"55045-1208-07 ")
 ;;1006
 ;;21,"55045-1208-08 ")
 ;;1007
 ;;21,"55045-1208-09 ")
 ;;1008
 ;;21,"55045-1463-00 ")
 ;;165
 ;;21,"55045-1463-01 ")
 ;;166
 ;;21,"55045-1463-02 ")
 ;;167
 ;;21,"55045-1463-03 ")
 ;;168
 ;;21,"55045-1463-04 ")
 ;;169
 ;;21,"55045-1463-06 ")
 ;;170
 ;;21,"55045-1463-07 ")
 ;;171
 ;;21,"55045-1463-08 ")
 ;;172
 ;;21,"55045-1463-09 ")
 ;;173
 ;;21,"55045-1582-01 ")
 ;;685
 ;;21,"55045-1582-03 ")
 ;;686
 ;;21,"55045-1582-05 ")
 ;;687
 ;;21,"55045-1582-07 ")
 ;;688
 ;;21,"55045-1582-08 ")
 ;;689
 ;;21,"55045-1582-09 ")
 ;;690
 ;;21,"55045-1592-06 ")
 ;;544
 ;;21,"55045-1592-08 ")
 ;;545
 ;;21,"55045-1682-00 ")
 ;;36
 ;;21,"55045-1682-05 ")
 ;;37
 ;;21,"55045-1682-06 ")
 ;;38
 ;;21,"55045-1682-08 ")
 ;;39
 ;;21,"55045-1721-00 ")
 ;;1472
 ;;21,"55045-1741-01 ")
 ;;404
 ;;21,"55045-1741-05 ")
 ;;405
 ;;21,"55045-1741-06 ")
 ;;406
 ;;21,"55045-1741-08 ")
 ;;407
 ;;21,"55045-1741-09 ")
 ;;408
 ;;21,"55045-2084-03 ")
 ;;1225
 ;;21,"55045-2084-06 ")
 ;;1226
 ;;21,"55045-2153-01 ")
 ;;454
 ;;21,"55045-2153-08 ")
 ;;455
 ;;21,"55045-2271-00 ")
 ;;2129
 ;;21,"55045-2271-01 ")
 ;;2130
 ;;21,"55045-2271-02 ")
 ;;2131
 ;;21,"55045-2271-06 ")
 ;;2132
 ;;21,"55045-2271-07 ")
 ;;2133
 ;;21,"55045-2271-08 ")
 ;;2134
 ;;21,"55045-2271-09 ")
 ;;2135
 ;;21,"55045-2352-08 ")
 ;;1067
 ;;21,"55045-2812-06 ")
 ;;1861
 ;;21,"55045-2812-07 ")
 ;;1862
 ;;21,"55045-2812-08 ")
 ;;1863
 ;;21,"55045-3034-07 ")
 ;;1745
 ;;21,"55045-3302-08 ")
 ;;1808
 ;;21,"55045-3438-08 ")
 ;;2482
 ;;21,"55045-3461-08 ")
 ;;1345
 ;;21,"55045-3462-08 ")
 ;;1394
 ;;21,"55045-3633-01 ")
 ;;2533
 ;;21,"55045-3633-02 ")
 ;;2534
 ;;21,"55045-3799-01 ")
 ;;1441
 ;;21,"55045-3811-01 ")
 ;;2417
 ;;21,"55045-3811-02 ")
 ;;2418
 ;;21,"55045-3811-03 ")
 ;;2419
 ;;21,"55045-3811-06 ")
 ;;2420
 ;;21,"55045-3812-01 ")
 ;;2096
 ;;21,"55045-3812-03 ")
 ;;2097
 ;;21,"55048-0012-28 ")
 ;;2535
 ;;21,"55048-0012-30 ")
 ;;2536
 ;;21,"55048-0012-60 ")
 ;;2537
 ;;21,"55048-0012-90 ")
 ;;2538
 ;;21,"55048-0014-30 ")
 ;;540
 ;;21,"55048-0014-60 ")
 ;;541
 ;;21,"55048-0014-90 ")
 ;;542
 ;;21,"55048-0015-30 ")
 ;;175
 ;;21,"55048-0015-60 ")
 ;;176
 ;;21,"55048-0016-30 ")
 ;;401
 ;;21,"55048-0016-60 ")
 ;;402
 ;;21,"55048-0017-30 ")
 ;;453
 ;;21,"55048-0051-30 ")
 ;;979
 ;;21,"55048-0051-60 ")
 ;;980
 ;;21,"55048-0118-30 ")
 ;;174
 ;;21,"55048-0119-30 ")
 ;;403
 ;;21,"55048-0120-30 ")
 ;;543
 ;;21,"55048-0372-30 ")
 ;;1515
 ;;21,"55048-0372-60 ")
 ;;1516
 ;;21,"55048-0396-28 ")
 ;;1395
 ;;21,"55048-0396-30 ")
 ;;1396
 ;;21,"55048-0824-30 ")
 ;;2429
 ;;21,"55048-0824-60 ")
 ;;2430
 ;;21,"55048-0824-71 ")
 ;;2431
 ;;21,"55048-0824-90 ")
 ;;2432
 ;;21,"55048-0825-06 ")
 ;;2107
 ;;21,"55048-0825-30 ")
 ;;2108
 ;;21,"55048-0825-71 ")
 ;;2109
 ;;21,"55048-0825-90 ")
 ;;2110
 ;;21,"55048-0827-30 ")
 ;;1748
 ;;21,"55048-0854-30 ")
 ;;1811
 ;;21,"55048-0881-30 ")
 ;;2435
 ;;21,"55048-0891-30 ")
 ;;2436
 ;;21,"55111-0478-01 ")
 ;;2105
 ;;21,"55111-0478-05 ")
 ;;2106
 ;;21,"55111-0479-01 ")
 ;;2433
 ;;21,"55111-0479-05 ")
 ;;2434
 ;;21,"55111-0617-01 ")
 ;;1371
 ;;21,"55111-0619-01 ")
 ;;1331
 ;;21,"55111-0629-30 ")
 ;;1311
 ;;21,"55111-0640-01 ")
 ;;1547
 ;;21,"55111-0641-01 ")
 ;;1551
 ;;21,"55289-0014-30 ")
 ;;1393
 ;;21,"55289-0016-30 ")
 ;;399
 ;;21,"55289-0016-60 ")
 ;;400
 ;;21,"55289-0018-01 ")
 ;;1223
 ;;21,"55289-0018-30 ")
 ;;1224
 ;;21,"55289-0026-20 ")
 ;;1086
 ;;21,"55289-0035-01 ")
 ;;1569
 ;;21,"55289-0035-14 ")
 ;;1570
 ;;21,"55289-0035-20 ")
 ;;1571
 ;;21,"55289-0035-28 ")
 ;;1572
 ;;21,"55289-0035-30 ")
 ;;1573
 ;;21,"55289-0035-60 ")
 ;;1574
 ;;21,"55289-0040-15 ")
 ;;976
 ;;21,"55289-0040-20 ")
 ;;977
 ;;21,"55289-0040-30 ")
 ;;978
 ;;21,"55289-0124-12 ")
 ;;34
 ;;21,"55289-0124-30 ")
 ;;35
 ;;21,"55289-0144-14 ")
 ;;1473
 ;;21,"55289-0144-30 ")
 ;;1474
 ;;21,"55289-0144-90 ")
 ;;1475
 ;;21,"55289-0149-30 ")
 ;;1439
 ;;21,"55289-0149-60 ")
 ;;1440
 ;;21,"55289-0205-30 ")
 ;;2539
 ;;21,"55289-0258-30 ")
 ;;1277
 ;;21,"55289-0264-12 ")
 ;;899
 ;;21,"55289-0337-01 ")
 ;;1649
 ;;21,"55289-0370-30 ")
 ;;1190
 ;;21,"55289-0399-02 ")
 ;;2099
 ;;21,"55289-0399-03 ")
 ;;2100
 ;;21,"55289-0399-10 ")
 ;;2101
 ;;21,"55289-0399-14 ")
 ;;2102
 ;;21,"55289-0399-30 ")
 ;;2103
 ;;21,"55289-0399-60 ")
 ;;2104
 ;;21,"55289-0399-79 ")
 ;;1857
 ;;21,"55289-0399-90 ")
 ;;2098
 ;;21,"55289-0419-01 ")
 ;;2421
 ;;21,"55289-0419-06 ")
 ;;2422
 ;;21,"55289-0419-10 ")
 ;;2423
 ;;21,"55289-0419-14 ")
 ;;2424
 ;;21,"55289-0419-15 ")
 ;;2425
 ;;21,"55289-0419-21 ")
 ;;2426
 ;;21,"55289-0419-30 ")
 ;;2427
 ;;21,"55289-0419-60 ")
 ;;2428
 ;;21,"55289-0439-12 ")
 ;;888
 ;;21,"55289-0535-01 ")
 ;;1655
 ;;21,"55289-0535-30 ")
 ;;1656
 ;;21,"55289-0572-30 ")
 ;;2481
 ;;21,"55289-0690-12 ")
 ;;850
 ;;21,"55289-0729-06 ")
 ;;1858
 ;;21,"55289-0729-12 ")
 ;;1859
 ;;21,"55289-0729-30 ")
 ;;1860
 ;;21,"55289-0730-01 ")
 ;;177
 ;;21,"55289-0730-12 ")
 ;;178
 ;;21,"55289-0730-25 ")
 ;;179
 ;;21,"55289-0730-30 ")
 ;;180
 ;;21,"55289-0730-60 ")
 ;;181
 ;;21,"55289-0730-90 ")
 ;;182
 ;;21,"55289-0792-06 ")
 ;;2124
 ;;21,"55289-0792-10 ")
 ;;2125
 ;;21,"55289-0792-12 ")
 ;;2126
 ;;21,"55289-0792-20 ")
 ;;2127
 ;;21,"55289-0792-30 ")
 ;;2128
 ;;21,"55289-0839-30 ")
 ;;1517
 ;;21,"55289-0879-10 ")
 ;;691
 ;;21,"55289-0879-15 ")
 ;;692
 ;;21,"55289-0879-20 ")
 ;;693
 ;;21,"55289-0879-30 ")
 ;;694
 ;;21,"55289-0879-60 ")
 ;;695
 ;;21,"55289-0983-30 ")
 ;;1552
 ;;21,"55700-0047-08 ")
 ;;696
 ;;21,"55700-0129-60 ")
 ;;936
 ;;21,"55700-0132-30 ")
 ;;1312
 ;;21,"55700-0133-30 ")
 ;;1330
 ;;21,"55700-0135-30 ")
 ;;1370
 ;;21,"57664-0515-13 ")
 ;;2111
 ;;21,"57664-0515-18 ")
 ;;2112
 ;;21,"57664-0515-88 ")
 ;;2113
 ;;21,"57664-0516-13 ")
 ;;2437
 ;;21,"57664-0516-18 ")
 ;;2438
 ;;21,"57664-0516-88 ")
 ;;2439
 ;;21,"58016-0002-00 ")
 ;;615
 ;;21,"58016-0002-30 ")
 ;;616
 ;;21,"58016-0002-60 ")
 ;;617
 ;;21,"58016-0002-90 ")
 ;;618
 ;;21,"58016-0040-00 ")
 ;;1346
 ;;21,"58016-0040-30 ")
 ;;1347
 ;;21,"58016-0040-60 ")
 ;;1348
 ;;21,"58016-0040-90 ")
 ;;1349
 ;;21,"58016-0073-00 ")
 ;;590
 ;;21,"58016-0073-30 ")
 ;;591
 ;;21,"58016-0073-60 ")
 ;;592
 ;;21,"58016-0073-90 ")
 ;;593
 ;;21,"58016-0089-00 ")
 ;;846
 ;;21,"58016-0089-30 ")
 ;;847
 ;;21,"58016-0089-60 ")
 ;;848
 ;;21,"58016-0089-90 ")
 ;;849
 ;;21,"58016-0091-00 ")
 ;;1087
 ;;21,"58016-0091-30 ")
 ;;1088
 ;;21,"58016-0091-60 ")
 ;;1089
 ;;21,"58016-0091-90 ")
 ;;1090
 ;;21,"58016-0092-00 ")
 ;;939
 ;;21,"58016-0092-30 ")
 ;;940
 ;;21,"58016-0092-60 ")
 ;;941
 ;;21,"58016-0092-90 ")
 ;;942
 ;;21,"58016-0093-00 ")
 ;;1053
 ;;21,"58016-0093-30 ")
 ;;1054
 ;;21,"58016-0093-60 ")
 ;;1055
 ;;21,"58016-0093-90 ")
 ;;1056
 ;;21,"58016-0233-00 ")
 ;;960
 ;;21,"58016-0233-02 ")
 ;;961
 ;;21,"58016-0233-10 ")
 ;;962
 ;;21,"58016-0233-12 ")
 ;;963
 ;;21,"58016-0233-14 ")
 ;;964
 ;;21,"58016-0233-15 ")
 ;;965
 ;;21,"58016-0233-20 ")
 ;;966
 ;;21,"58016-0233-21 ")
 ;;967
 ;;21,"58016-0233-24 ")
 ;;968
 ;;21,"58016-0233-25 ")
 ;;969
 ;;21,"58016-0233-28 ")
 ;;970
 ;;21,"58016-0233-30 ")
 ;;971
 ;;21,"58016-0233-40 ")
 ;;972
 ;;21,"58016-0233-50 ")
 ;;973
 ;;21,"58016-0233-60 ")
 ;;974
 ;;21,"58016-0233-90 ")
 ;;975
 ;;21,"58016-0292-00 ")
 ;;1383
 ;;21,"58016-0292-30 ")
 ;;1384
 ;;21,"58016-0292-60 ")
 ;;1385
 ;;21,"58016-0292-90 ")
 ;;1386
 ;;21,"58016-0322-00 ")
 ;;1071
 ;;21,"58016-0322-02 ")
 ;;1072
 ;;21,"58016-0322-30 ")
 ;;1073
 ;;21,"58016-0322-60 ")
 ;;1074
 ;;21,"58016-0322-90 ")
 ;;1075
 ;;21,"58016-0341-00 ")
 ;;2157
 ;;21,"58016-0341-10 ")
 ;;2158
 ;;21,"58016-0341-20 ")
 ;;2159
 ;;21,"58016-0341-30 ")
 ;;2160
 ;;21,"58016-0341-40 ")
 ;;2161
 ;;21,"58016-0341-60 ")
 ;;2162
 ;;21,"58016-0341-90 ")
 ;;2163
 ;;21,"58016-0342-00 ")
 ;;1888
 ;;21,"58016-0342-10 ")
 ;;1889
 ;;21,"58016-0342-20 ")
 ;;1890
 ;;21,"58016-0342-30 ")
 ;;1891
 ;;21,"58016-0342-40 ")
 ;;1892
 ;;21,"58016-0342-60 ")
 ;;1893
 ;;21,"58016-0342-90 ")
 ;;1894
 ;;21,"58016-0493-00 ")
 ;;1043
 ;;21,"58016-0493-02 ")
 ;;1044
 ;;21,"58016-0493-30 ")
 ;;1045
 ;;21,"58016-0493-60 ")
 ;;1046
 ;;21,"58016-0493-90 ")
 ;;1047
 ;;21,"58016-0596-00 ")
 ;;1787
 ;;21,"58016-0596-30 ")
 ;;1788
 ;;21,"58016-0596-60 ")
 ;;1789
 ;;21,"58016-0596-90 ")
 ;;1790
 ;;21,"58016-0663-00 ")
 ;;1144
 ;;21,"58016-0663-30 ")
 ;;1145
 ;;21,"58016-0663-60 ")
 ;;1146
 ;;21,"58016-0663-90 ")
 ;;1147
 ;;21,"58016-0709-00 ")
 ;;1587
 ;;21,"58016-0709-02 ")
 ;;1588
 ;;21,"58016-0709-03 ")
 ;;1589
 ;;21,"58016-0709-20 ")
 ;;1590
 ;;21,"58016-0709-30 ")
 ;;1591
 ;;21,"58016-0709-40 ")
 ;;1592
 ;;21,"58016-0709-42 ")
 ;;1593
 ;;21,"58016-0709-50 ")
 ;;1594
 ;;21,"58016-0709-73 ")
 ;;1595
 ;;21,"58016-0709-89 ")
 ;;1596
 ;;21,"58016-0710-00 ")
 ;;571
 ;;21,"58016-0710-30 ")
 ;;572
 ;;21,"58016-0710-60 ")
 ;;573
 ;;21,"58016-0710-90 ")
 ;;574
 ;;21,"58016-0710-99 ")
 ;;575
 ;;21,"58016-0797-00 ")
 ;;1269
 ;;21,"58016-0797-30 ")
 ;;1270
 ;;21,"58016-0797-60 ")
 ;;1271
 ;;21,"58016-0797-90 ")
 ;;1272
 ;;21,"58016-0808-00 ")
 ;;478
 ;;21,"58016-0808-30 ")
 ;;479
 ;;21,"58016-0808-60 ")
 ;;480
 ;;21,"58016-0808-90 ")
 ;;481
 ;;21,"58016-0813-00 ")
 ;;95
 ;;21,"58016-0813-02 ")
 ;;96
 ;;21,"58016-0813-03 ")
 ;;97
 ;;21,"58016-0813-10 ")
 ;;98
 ;;21,"58016-0813-12 ")
 ;;99
 ;;21,"58016-0813-15 ")
 ;;100
 ;;21,"58016-0813-20 ")
 ;;101
 ;;21,"58016-0813-24 ")
 ;;102
 ;;21,"58016-0813-30 ")
 ;;103
 ;;21,"58016-0813-50 ")
 ;;104
 ;;21,"58016-0813-60 ")
 ;;105
 ;;21,"58016-0813-73 ")
 ;;106
 ;;21,"58016-0813-89 ")
 ;;107
 ;;21,"58016-0813-90 ")
 ;;108
 ;;21,"58016-0813-99 ")
 ;;109
 ;;21,"58016-0814-00 ")
 ;;246
 ;;21,"58016-0814-02 ")
 ;;247
 ;;21,"58016-0814-15 ")
 ;;248
 ;;21,"58016-0814-20 ")
 ;;249
 ;;21,"58016-0814-25 ")
 ;;250
 ;;21,"58016-0814-30 ")
 ;;251
 ;;21,"58016-0814-40 ")
 ;;252
 ;;21,"58016-0814-45 ")
 ;;253
 ;;21,"58016-0814-50 ")
 ;;254
 ;;21,"58016-0814-60 ")
 ;;255
 ;;21,"58016-0814-89 ")
 ;;256
 ;;21,"58016-0814-90 ")
 ;;257
 ;;21,"58016-0814-99 ")
 ;;258
 ;;21,"58016-0815-00 ")
 ;;339
 ;;21,"58016-0815-15 ")
 ;;340
 ;;21,"58016-0815-20 ")
 ;;341
 ;;21,"58016-0815-21 ")
 ;;342
 ;;21,"58016-0815-28 ")
 ;;343
 ;;21,"58016-0815-30 ")
 ;;344
 ;;21,"58016-0815-60 ")
 ;;345
 ;;21,"58016-0815-90 ")
 ;;346
 ;;21,"58016-0815-99 ")
 ;;347
 ;;21,"58016-0826-06 ")
 ;;1631
 ;;21,"58016-0826-50 ")
 ;;1632
 ;;21,"58016-0833-00 ")
 ;;1159
 ;;21,"58016-0833-10 ")
 ;;1160
 ;;21,"58016-0833-14 ")
 ;;1161
 ;;21,"58016-0833-15 ")
 ;;1162
 ;;21,"58016-0833-20 ")
 ;;1163
 ;;21,"58016-0833-21 ")
 ;;1164
 ;;21,"58016-0833-30 ")
 ;;1165
 ;;21,"58016-0833-40 ")
 ;;1166
 ;;21,"58016-0833-50 ")
 ;;1167
 ;;21,"58016-0833-60 ")
 ;;1168
 ;;21,"58016-0833-90 ")
 ;;1169
 ;;21,"58016-0834-00 ")
 ;;1254
 ;;21,"58016-0834-10 ")
 ;;1255
 ;;21,"58016-0834-14 ")
 ;;1256
 ;;21,"58016-0834-15 ")
 ;;1257
 ;;21,"58016-0834-20 ")
 ;;1258
 ;;21,"58016-0834-21 ")
 ;;1259
 ;;21,"58016-0834-30 ")
 ;;1260
 ;;21,"58016-0834-40 ")
 ;;1261
 ;;21,"58016-0834-50 ")
 ;;1262
 ;;21,"58016-0834-60 ")
 ;;1263
 ;;21,"58016-0834-90 ")
 ;;1264
 ;;21,"58016-0839-00 ")
 ;;1425
 ;;21,"58016-0839-12 ")
 ;;1426
 ;;21,"58016-0839-15 ")
 ;;1427
 ;;21,"58016-0839-20 ")
 ;;1428
 ;;21,"58016-0839-30 ")
 ;;1429
 ;;21,"58016-0841-00 ")
 ;;1460
 ;;21,"58016-0841-12 ")
 ;;1461
 ;;21,"58016-0841-15 ")
 ;;1462
 ;;21,"58016-0841-20 ")
 ;;1463
 ;;21,"58016-0841-30 ")
 ;;1464
 ;;21,"58016-0858-00 ")
 ;;506
 ;;21,"58016-0858-14 ")
 ;;507
 ;;21,"58016-0858-21 ")
 ;;508
 ;;21,"58016-0858-28 ")
 ;;509
 ;;21,"58016-0858-30 ")
 ;;510
 ;;21,"58016-0858-40 ")
 ;;511
 ;;21,"58016-0858-50 ")
 ;;512
 ;;21,"58016-0858-60 ")
 ;;513
 ;;21,"58016-0858-99 ")
 ;;514
 ;;21,"58016-0863-00 ")
 ;;2568
 ;;21,"58016-0863-30 ")
 ;;2569
 ;;21,"58016-0863-60 ")
 ;;2570
 ;;21,"58016-0863-90 ")
 ;;2571
 ;;21,"58016-0866-00 ")
 ;;1494
 ;;21,"58016-0866-12 ")
 ;;1495
 ;;21,"58016-0866-15 ")
 ;;1496
 ;;21,"58016-0866-20 ")
 ;;1497
 ;;21,"58016-0866-30 ")
 ;;1498
 ;;21,"58016-0995-00 ")
 ;;742
 ;;21,"58016-0995-10 ")
 ;;743
 ;;21,"58016-0995-12 ")
 ;;744
 ;;21,"58016-0995-14 ")
 ;;745
 ;;21,"58016-0995-15 ")
 ;;746
 ;;21,"58016-0995-20 ")
 ;;747
 ;;21,"58016-0995-21 ")
 ;;748