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

BGP51J6.m

Go to the documentation of this file.
BGP51J6 ;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,"58016-0995-24 ")
 ;;749
 ;;21,"58016-0995-28 ")
 ;;750
 ;;21,"58016-0995-30 ")
 ;;751
 ;;21,"58016-0995-40 ")
 ;;752
 ;;21,"58016-0995-45 ")
 ;;753
 ;;21,"58016-0995-50 ")
 ;;754
 ;;21,"58016-0995-60 ")
 ;;755
 ;;21,"58016-0995-75 ")
 ;;756
 ;;21,"58118-2113-06 ")
 ;;243
 ;;21,"58118-2114-03 ")
 ;;244
 ;;21,"58118-2114-06 ")
 ;;245
 ;;21,"58118-2212-03 ")
 ;;110
 ;;21,"58118-2212-09 ")
 ;;111
 ;;21,"58118-2213-03 ")
 ;;241
 ;;21,"58118-2213-09 ")
 ;;242
 ;;21,"58118-2214-03 ")
 ;;348
 ;;21,"58118-2214-09 ")
 ;;349
 ;;21,"58118-2605-03 ")
 ;;2356
 ;;21,"58118-2605-06 ")
 ;;2357
 ;;21,"58118-5316-03 ")
 ;;2581
 ;;21,"58407-0534-01 ")
 ;;645
 ;;21,"58605-0524-01 ")
 ;;635
 ;;21,"58657-0420-16 ")
 ;;1617
 ;;21,"58657-0421-01 ")
 ;;1586
 ;;21,"58864-0022-15 ")
 ;;235
 ;;21,"58864-0022-30 ")
 ;;236
 ;;21,"58864-0023-30 ")
 ;;354
 ;;21,"58864-0024-30 ")
 ;;117
 ;;21,"58864-0292-30 ")
 ;;1493
 ;;21,"58864-0700-15 ")
 ;;2164
 ;;21,"58864-0757-30 ")
 ;;515
 ;;21,"58864-0857-30 ")
 ;;737
 ;;21,"58864-0891-06 ")
 ;;1895
 ;;21,"59011-0255-30 ")
 ;;2613
 ;;21,"59011-0256-30 ")
 ;;2612
 ;;21,"59630-0074-10 ")
 ;;905
 ;;21,"59630-0170-11 ")
 ;;651
 ;;21,"59702-0650-01 ")
 ;;629
 ;;21,"59702-0661-01 ")
 ;;637
 ;;21,"59762-2630-01 ")
 ;;1735
 ;;21,"59762-2630-04 ")
 ;;1736
 ;;21,"59762-2631-01 ")
 ;;1784
 ;;21,"59762-2631-04 ")
 ;;1785
 ;;21,"60429-0095-01 ")
 ;;1424
 ;;21,"60429-0096-01 ")
 ;;1465
 ;;21,"60429-0097-01 ")
 ;;1492
 ;;21,"60429-0252-01 ")
 ;;738
 ;;21,"60429-0252-05 ")
 ;;739
 ;;21,"60429-0253-01 ")
 ;;857
 ;;21,"60429-0253-05 ")
 ;;858
 ;;21,"60429-0287-30 ")
 ;;1099
 ;;21,"60429-0287-90 ")
 ;;1100
 ;;21,"60429-0288-30 ")
 ;;1123
 ;;21,"60429-0288-90 ")
 ;;1124
 ;;21,"60429-0289-30 ")
 ;;1111
 ;;21,"60429-0289-90 ")
 ;;1112
 ;;21,"60429-0530-01 ")
 ;;2009
 ;;21,"60429-0530-05 ")
 ;;2010
 ;;21,"60429-0530-20 ")
 ;;2011
 ;;21,"60429-0530-30 ")
 ;;2012
 ;;21,"60429-0530-60 ")
 ;;2013
 ;;21,"60429-0530-90 ")
 ;;2014
 ;;21,"60429-0531-01 ")
 ;;2343
 ;;21,"60429-0531-05 ")
 ;;2344
 ;;21,"60429-0531-15 ")
 ;;2345
 ;;21,"60429-0531-20 ")
 ;;2346
 ;;21,"60429-0531-30 ")
 ;;2347
 ;;21,"60429-0531-60 ")
 ;;2348
 ;;21,"60429-0531-90 ")
 ;;2349
 ;;21,"60429-0545-01 ")
 ;;740
 ;;21,"60429-0545-10 ")
 ;;741
 ;;21,"60429-0546-01 ")
 ;;2502
 ;;21,"60429-0547-01 ")
 ;;2582
 ;;21,"60429-0547-05 ")
 ;;2583
 ;;21,"60432-0651-04 ")
 ;;1295
 ;;21,"60505-2604-00 ")
 ;;2015
 ;;21,"60505-2604-01 ")
 ;;2016
 ;;21,"60505-2604-08 ")
 ;;2017
 ;;21,"60505-2605-00 ")
 ;;2352
 ;;21,"60505-2605-01 ")
 ;;2353
 ;;21,"60505-2605-08 ")
 ;;2354
 ;;21,"60760-0116-30 ")
 ;;2584
 ;;21,"60760-0191-30 ")
 ;;1340
 ;;21,"60760-0193-30 ")
 ;;1387
 ;;21,"60760-0211-30 ")
 ;;1852
 ;;21,"60760-0212-15 ")
 ;;115
 ;;21,"60760-0212-30 ")
 ;;116
 ;;21,"60760-0214-30 ")
 ;;353
 ;;21,"60760-0221-30 ")
 ;;477
 ;;21,"60760-0288-30 ")
 ;;2355
 ;;21,"60760-0367-30 ")
 ;;237
 ;;21,"60760-0367-60 ")
 ;;238
 ;;21,"60760-0515-30 ")
 ;;2019
 ;;21,"60760-0550-30 ")
 ;;2497
 ;;21,"60760-0551-30 ")
 ;;2567
 ;;21,"60793-0145-01 ")
 ;;1737
 ;;21,"60793-0146-01 ")
 ;;1786
 ;;21,"61442-0231-01 ")
 ;;2018
 ;;21,"61442-0232-01 ")
 ;;2351
 ;;21,"61919-0011-30 ")
 ;;112
 ;;21,"61919-0011-60 ")
 ;;113
 ;;21,"61919-0011-90 ")
 ;;114
 ;;21,"61919-0012-30 ")
 ;;239
 ;;21,"61919-0012-90 ")
 ;;240
 ;;21,"61919-0013-30 ")
 ;;350
 ;;21,"61919-0013-71 ")
 ;;351
 ;;21,"61919-0013-90 ")
 ;;352
 ;;21,"61919-0527-30 ")
 ;;2350
 ;;21,"61919-0528-30 ")
 ;;2020
 ;;21,"61919-0528-60 ")
 ;;2021
 ;;21,"61919-0955-30 ")
 ;;2598
 ;;21,"63402-0190-30 ")
 ;;1324
 ;;21,"63402-0191-10 ")
 ;;1350
 ;;21,"63402-0193-10 ")
 ;;1408
 ;;21,"63629-1256-01 ")
 ;;2403
 ;;21,"63629-1256-02 ")
 ;;2404
 ;;21,"63629-1256-03 ")
 ;;2405
 ;;21,"63629-1256-04 ")
 ;;2406
 ;;21,"63629-1256-05 ")
 ;;2407
 ;;21,"63629-1368-01 ")
 ;;417
 ;;21,"63629-1368-02 ")
 ;;418
 ;;21,"63629-1368-03 ")
 ;;419
 ;;21,"63629-1368-04 ")
 ;;420
 ;;21,"63629-1368-05 ")
 ;;421
 ;;21,"63629-1368-06 ")
 ;;422
 ;;21,"63629-1368-07 ")
 ;;423
 ;;21,"63629-1368-08 ")
 ;;424
 ;;21,"63629-1369-00 ")
 ;;128
 ;;21,"63629-1369-01 ")
 ;;129
 ;;21,"63629-1369-02 ")
 ;;130
 ;;21,"63629-1369-03 ")
 ;;131
 ;;21,"63629-1369-04 ")
 ;;132
 ;;21,"63629-1369-05 ")
 ;;133
 ;;21,"63629-1369-06 ")
 ;;134
 ;;21,"63629-1369-07 ")
 ;;135
 ;;21,"63629-1369-08 ")
 ;;136
 ;;21,"63629-1369-09 ")
 ;;137
 ;;21,"63629-1369-10 ")
 ;;138
 ;;21,"63629-1370-01 ")
 ;;4
 ;;21,"63629-1370-02 ")
 ;;5
 ;;21,"63629-1370-03 ")
 ;;6
 ;;21,"63629-1370-04 ")
 ;;7
 ;;21,"63629-1370-05 ")
 ;;8
 ;;21,"63629-1370-06 ")
 ;;9
 ;;21,"63629-1510-01 ")
 ;;1510
 ;;21,"63629-1510-02 ")
 ;;1511
 ;;21,"63629-1510-03 ")
 ;;1512
 ;;21,"63629-1774-01 ")
 ;;668
 ;;21,"63629-1774-02 ")
 ;;669
 ;;21,"63629-1774-03 ")
 ;;670
 ;;21,"63629-1774-04 ")
 ;;671
 ;;21,"63629-1774-05 ")
 ;;672
 ;;21,"63629-1774-06 ")
 ;;673
 ;;21,"63629-1774-07 ")
 ;;674
 ;;21,"63629-1774-08 ")
 ;;675
 ;;21,"63629-2756-01 ")
 ;;1104
 ;;21,"63629-2951-01 ")
 ;;1009
 ;;21,"63629-2951-02 ")
 ;;1010
 ;;21,"63629-2951-03 ")
 ;;1011
 ;;21,"63629-2951-04 ")
 ;;1020
 ;;21,"63629-2952-01 ")
 ;;1060
 ;;21,"63629-2952-02 ")
 ;;1061
 ;;21,"63629-2952-03 ")
 ;;1062
 ;;21,"63629-3141-01 ")
 ;;2550
 ;;21,"63629-3141-02 ")
 ;;2551
 ;;21,"63629-3141-03 ")
 ;;2552
 ;;21,"63629-3141-04 ")
 ;;2553
 ;;21,"63629-3141-05 ")
 ;;2554
 ;;21,"63629-3141-06 ")
 ;;2555
 ;;21,"63629-3142-01 ")
 ;;1405
 ;;21,"63629-3142-02 ")
 ;;1406
 ;;21,"63629-3142-03 ")
 ;;1407
 ;;21,"63629-3152-01 ")
 ;;1030
 ;;21,"63629-3152-02 ")
 ;;1031
 ;;21,"63629-3199-01 ")
 ;;1246
 ;;21,"63629-3199-02 ")
 ;;1247
 ;;21,"63629-3199-03 ")
 ;;1248
 ;;21,"63629-3199-04 ")
 ;;1249
 ;;21,"63629-3221-01 ")
 ;;1140
 ;;21,"63629-3337-01 ")
 ;;2483
 ;;21,"63629-3337-02 ")
 ;;2484
 ;;21,"63629-3337-03 ")
 ;;2485
 ;;21,"63629-3337-04 ")
 ;;2486
 ;;21,"63629-3362-01 ")
 ;;554
 ;;21,"63629-3362-02 ")
 ;;555
 ;;21,"63629-3362-03 ")
 ;;556
 ;;21,"63629-3362-04 ")
 ;;557
 ;;21,"63629-3362-05 ")
 ;;558
 ;;21,"63629-3362-06 ")
 ;;559
 ;;21,"63629-3405-01 ")
 ;;1819
 ;;21,"63629-3405-02 ")
 ;;1820
 ;;21,"63629-3405-03 ")
 ;;1821
 ;;21,"63629-3405-04 ")
 ;;1822
 ;;21,"63629-3548-01 ")
 ;;2395
 ;;21,"63629-3548-02 ")
 ;;2396
 ;;21,"63629-3548-03 ")
 ;;2397
 ;;21,"63629-3548-04 ")
 ;;2398
 ;;21,"63629-3548-05 ")
 ;;2399
 ;;21,"63629-3548-06 ")
 ;;2400
 ;;21,"63629-3548-07 ")
 ;;2401
 ;;21,"63629-3548-08 ")
 ;;2402
 ;;21,"63629-3549-01 ")
 ;;2083
 ;;21,"63629-3549-02 ")
 ;;2084
 ;;21,"63629-3549-03 ")
 ;;2085
 ;;21,"63629-3549-04 ")
 ;;2086
 ;;21,"63629-3549-05 ")
 ;;2087
 ;;21,"63629-3549-06 ")
 ;;2088
 ;;21,"63629-3597-01 ")
 ;;445
 ;;21,"63629-3597-02 ")
 ;;446
 ;;21,"63629-3597-03 ")
 ;;447
 ;;21,"63629-3597-04 ")
 ;;448
 ;;21,"63629-3786-01 ")
 ;;1351
 ;;21,"63629-3786-02 ")
 ;;1352
 ;;21,"63629-3906-01 ")
 ;;1752
 ;;21,"63629-3906-02 ")
 ;;1753
 ;;21,"63629-3906-03 ")
 ;;1754
 ;;21,"63629-4026-01 ")
 ;;1625
 ;;21,"63629-4123-01 ")
 ;;1114
 ;;21,"63629-4123-02 ")
 ;;1115
 ;;21,"63629-4304-01 ")
 ;;560
 ;;21,"63629-4304-02 ")
 ;;561
 ;;21,"63629-4304-03 ")
 ;;562
 ;;21,"63629-4597-01 ")
 ;;2556
 ;;21,"63739-0200-10 ")
 ;;1630
 ;;21,"63739-0201-10 ")
 ;;1657
 ;;21,"63739-0526-10 ")
 ;;2416
 ;;21,"63874-0219-01 ")
 ;;1063
 ;;21,"63874-0219-20 ")
 ;;1064
 ;;21,"63874-0219-25 ")
 ;;1065
 ;;21,"63874-0219-30 ")
 ;;1066
 ;;21,"63874-0268-01 ")
 ;;918
 ;;21,"63874-0268-02 ")
 ;;919
 ;;21,"63874-0268-10 ")
 ;;920
 ;;21,"63874-0268-12 ")
 ;;921
 ;;21,"63874-0268-14 ")
 ;;922
 ;;21,"63874-0268-15 ")
 ;;923
 ;;21,"63874-0268-20 ")
 ;;924
 ;;21,"63874-0268-21 ")
 ;;925
 ;;21,"63874-0268-24 ")
 ;;926
 ;;21,"63874-0268-25 ")
 ;;927
 ;;21,"63874-0268-28 ")
 ;;928
 ;;21,"63874-0268-30 ")
 ;;929
 ;;21,"63874-0268-40 ")
 ;;930
 ;;21,"63874-0268-50 ")
 ;;931
 ;;21,"63874-0268-60 ")
 ;;932
 ;;21,"63874-0280-01 ")
 ;;2136
 ;;21,"63874-0280-04 ")
 ;;2137
 ;;21,"63874-0280-06 ")
 ;;2138
 ;;21,"63874-0280-10 ")
 ;;2139
 ;;21,"63874-0280-15 ")
 ;;2140
 ;;21,"63874-0280-20 ")
 ;;2141
 ;;21,"63874-0280-30 ")
 ;;2142
 ;;21,"63874-0280-40 ")
 ;;2143
 ;;21,"63874-0280-60 ")
 ;;2144
 ;;21,"63874-0280-90 ")
 ;;2145
 ;;21,"63874-0296-01 ")
 ;;437
 ;;21,"63874-0296-04 ")
 ;;438
 ;;21,"63874-0296-15 ")
 ;;439
 ;;21,"63874-0296-20 ")
 ;;440
 ;;21,"63874-0296-30 ")
 ;;441
 ;;21,"63874-0296-40 ")
 ;;442
 ;;21,"63874-0296-60 ")
 ;;443
 ;;21,"63874-0296-90 ")
 ;;444
 ;;21,"63874-0311-01 ")
 ;;10
 ;;21,"63874-0311-02 ")
 ;;11
 ;;21,"63874-0311-04 ")
 ;;12
 ;;21,"63874-0311-10 ")
 ;;13
 ;;21,"63874-0311-12 ")
 ;;14
 ;;21,"63874-0311-15 ")
 ;;15
 ;;21,"63874-0311-20 ")
 ;;16
 ;;21,"63874-0311-24 ")
 ;;17
 ;;21,"63874-0311-30 ")
 ;;18
 ;;21,"63874-0311-40 ")
 ;;19
 ;;21,"63874-0311-50 ")
 ;;20
 ;;21,"63874-0311-60 ")
 ;;21
 ;;21,"63874-0311-72 ")
 ;;22
 ;;21,"63874-0311-74 ")
 ;;23
 ;;21,"63874-0311-77 ")
 ;;24
 ;;21,"63874-0311-90 ")
 ;;25
 ;;21,"63874-0359-01 ")
 ;;425
 ;;21,"63874-0359-02 ")
 ;;426
 ;;21,"63874-0359-04 ")
 ;;427
 ;;21,"63874-0359-14 ")
 ;;428
 ;;21,"63874-0359-15 ")
 ;;429
 ;;21,"63874-0359-20 ")
 ;;430
 ;;21,"63874-0359-28 ")
 ;;431
 ;;21,"63874-0359-30 ")
 ;;432
 ;;21,"63874-0359-40 ")
 ;;433
 ;;21,"63874-0359-50 ")
 ;;434
 ;;21,"63874-0359-60 ")
 ;;435
 ;;21,"63874-0359-90 ")
 ;;436
 ;;21,"63874-0430-01 ")
 ;;152
 ;;21,"63874-0430-02 ")
 ;;153
 ;;21,"63874-0430-04 ")
 ;;154
 ;;21,"63874-0430-14 ")
 ;;155
 ;;21,"63874-0430-15 ")
 ;;156
 ;;21,"63874-0430-20 ")
 ;;157
 ;;21,"63874-0430-25 ")
 ;;158
 ;;21,"63874-0430-28 ")
 ;;159
 ;;21,"63874-0430-30 ")
 ;;160
 ;;21,"63874-0430-40 ")
 ;;161
 ;;21,"63874-0430-50 ")
 ;;162
 ;;21,"63874-0430-60 ")
 ;;163
 ;;21,"63874-0430-90 ")
 ;;164
 ;;21,"63874-0448-01 ")
 ;;676
 ;;21,"63874-0448-02 ")
 ;;677
 ;;21,"63874-0448-03 ")
 ;;678
 ;;21,"63874-0448-10 ")
 ;;679
 ;;21,"63874-0448-20 ")
 ;;680
 ;;21,"63874-0448-30 ")
 ;;681
 ;;21,"63874-0448-50 ")
 ;;682
 ;;21,"63874-0448-60 ")
 ;;683
 ;;21,"63874-0448-90 ")
 ;;684
 ;;21,"63874-0579-01 ")
 ;;1176
 ;;21,"63874-0579-04 ")
 ;;1177
 ;;21,"63874-0579-10 ")
 ;;1178
 ;;21,"63874-0579-12 ")
 ;;1179
 ;;21,"63874-0579-14 ")
 ;;1180
 ;;21,"63874-0579-15 ")
 ;;1181
 ;;21,"63874-0579-20 ")
 ;;1182
 ;;21,"63874-0579-28 ")
 ;;1183
 ;;21,"63874-0579-30 ")
 ;;1184
 ;;21,"63874-0579-32 ")
 ;;1185
 ;;21,"63874-0579-40 ")
 ;;1186
 ;;21,"63874-0579-50 ")
 ;;1187
 ;;21,"63874-0579-60 ")
 ;;1188
 ;;21,"63874-0579-90 ")
 ;;1189
 ;;21,"63874-0638-01 ")
 ;;1227
 ;;21,"63874-0638-04 ")
 ;;1228
 ;;21,"63874-0638-10 ")
 ;;1229
 ;;21,"63874-0638-14 ")
 ;;1230
 ;;21,"63874-0638-15 ")
 ;;1231
 ;;21,"63874-0638-20 ")
 ;;1232
 ;;21,"63874-0638-21 ")
 ;;1233
 ;;21,"63874-0638-28 ")
 ;;1234
 ;;21,"63874-0638-30 ")
 ;;1235
 ;;21,"63874-0638-40 ")
 ;;1236
 ;;21,"63874-0638-50 ")
 ;;1237
 ;;21,"63874-0638-60 ")
 ;;1238
 ;;21,"63874-0638-90 ")
 ;;1239
 ;;21,"63874-0924-01 ")
 ;;1864
 ;;21,"63874-0924-06 ")
 ;;1865
 ;;21,"63874-0924-08 ")
 ;;1866
 ;;21,"63874-0924-10 ")
 ;;1867
 ;;21,"63874-0924-20 ")
 ;;1868
 ;;21,"63874-0924-30 ")
 ;;1869
 ;;21,"63874-0924-40 ")
 ;;1870
 ;;21,"63874-0924-60 ")
 ;;1871
 ;;21,"63874-0924-90 ")
 ;;1872
 ;;21,"63874-1070-01 ")
 ;;1744
 ;;21,"63874-1246-00 ")
 ;;2089
 ;;21,"63874-1246-01 ")
 ;;2090
 ;;21,"63874-1246-02 ")
 ;;2091
 ;;21,"63874-1246-03 ")
 ;;2092
 ;;21,"63874-1246-06 ")
 ;;2093
 ;;21,"63874-1247-01 ")
 ;;2410
 ;;21,"63874-1247-02 ")
 ;;2411
 ;;21,"63874-1247-03 ")
 ;;2412
 ;;21,"63874-1247-06 ")
 ;;2413
 ;;21,"63874-1247-08 ")
 ;;2414
 ;;21,"63874-1247-09 ")
 ;;2415
 ;;21,"64125-0133-01 ")
 ;;1437
 ;;21,"64125-0133-10 ")
 ;;1438
 ;;21,"64125-0134-01 ")
 ;;1476
 ;;21,"64125-0134-10 ")
 ;;1477
 ;;21,"64125-0135-01 ")
 ;;1513
 ;;21,"64125-0135-10 ")
 ;;1514
 ;;21,"64679-0714-01 ")
 ;;2094
 ;;21,"64679-0714-04 ")
 ;;2095
 ;;21,"64679-0715-01 ")
 ;;2408
 ;;21,"64679-0715-04 ")
 ;;2409
 ;;21,"64720-0322-10 ")
 ;;1749
 ;;21,"64720-0323-10 ")
 ;;1823
 ;;21,"64980-0154-01 ")
 ;;789
 ;;21,"64980-0154-05 ")
 ;;790
 ;;21,"64980-0155-01 ")
 ;;874
 ;;21,"64980-0155-05 ")
 ;;875
 ;;21,"65243-0006-03 ")
 ;;293
 ;;21,"65243-0006-09 ")
 ;;294
 ;;21,"65243-0242-03 ")
 ;;295
 ;;21,"65243-0242-09 ")
 ;;296
 ;;21,"65862-0159-01 ")
 ;;1926
 ;;21,"65862-0159-05 ")
 ;;1927
 ;;21,"65862-0160-01 ")
 ;;2236
 ;;21,"65862-0160-05 ")
 ;;2237
 ;;21,"65862-0214-01 ")
 ;;1768
 ;;21,"65862-0215-01 ")
 ;;1844
 ;;21,"66116-0176-20 ")
 ;;2181
 ;;21,"66116-0253-30 ")
 ;;1450
 ;;21,"66116-0254-30 ")
 ;;1487
 ;;21,"66116-0280-30 ")
 ;;290