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

BGP47Z5.m

Go to the documentation of this file.
BGP47Z5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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-3300-02 ")
 ;;2086
 ;;21,"54868-3300-03 ")
 ;;2087
 ;;21,"54868-3300-04 ")
 ;;2088
 ;;21,"54868-3817-00 ")
 ;;1450
 ;;21,"54868-3853-02 ")
 ;;109
 ;;21,"54868-4064-00 ")
 ;;1403
 ;;21,"54868-4064-01 ")
 ;;1404
 ;;21,"54868-4066-00 ")
 ;;2300
 ;;21,"54868-4066-01 ")
 ;;2301
 ;;21,"54868-4068-00 ")
 ;;916
 ;;21,"54868-4073-00 ")
 ;;2353
 ;;21,"54868-4073-01 ")
 ;;2354
 ;;21,"54868-4073-02 ")
 ;;2355
 ;;21,"54868-4073-03 ")
 ;;2356
 ;;21,"54868-4074-00 ")
 ;;2416
 ;;21,"54868-4074-01 ")
 ;;2417
 ;;21,"54868-4074-02 ")
 ;;2418
 ;;21,"54868-4074-03 ")
 ;;2419
 ;;21,"54868-4074-04 ")
 ;;2420
 ;;21,"54868-4184-00 ")
 ;;771
 ;;21,"54868-4184-01 ")
 ;;772
 ;;21,"54868-4184-02 ")
 ;;773
 ;;21,"54868-4186-00 ")
 ;;748
 ;;21,"54868-4186-01 ")
 ;;745
 ;;21,"54868-4186-02 ")
 ;;746
 ;;21,"54868-4186-03 ")
 ;;747
 ;;21,"54868-4418-00 ")
 ;;878
 ;;21,"54868-4432-00 ")
 ;;1978
 ;;21,"54868-4432-01 ")
 ;;1979
 ;;21,"54868-4531-00 ")
 ;;1591
 ;;21,"54868-4531-01 ")
 ;;1592
 ;;21,"54868-4531-02 ")
 ;;1593
 ;;21,"54868-4531-03 ")
 ;;1594
 ;;21,"54868-4531-04 ")
 ;;1595
 ;;21,"54868-4532-00 ")
 ;;1526
 ;;21,"54868-4532-01 ")
 ;;1527
 ;;21,"54868-4532-02 ")
 ;;1528
 ;;21,"54868-4532-03 ")
 ;;1529
 ;;21,"54868-4532-04 ")
 ;;1530
 ;;21,"54868-4868-00 ")
 ;;1097
 ;;21,"54868-4868-01 ")
 ;;1098
 ;;21,"54868-4868-02 ")
 ;;1099
 ;;21,"54868-4870-00 ")
 ;;2492
 ;;21,"54868-4870-01 ")
 ;;2493
 ;;21,"54868-4870-02 ")
 ;;2494
 ;;21,"54868-4875-00 ")
 ;;1769
 ;;21,"54868-4875-01 ")
 ;;1770
 ;;21,"54868-4875-02 ")
 ;;1771
 ;;21,"54868-4875-03 ")
 ;;1772
 ;;21,"54868-4970-00 ")
 ;;949
 ;;21,"54868-4970-01 ")
 ;;950
 ;;21,"54868-4970-02 ")
 ;;951
 ;;21,"54868-4992-00 ")
 ;;1164
 ;;21,"54868-4992-01 ")
 ;;1165
 ;;21,"54868-5053-00 ")
 ;;929
 ;;21,"54868-5053-01 ")
 ;;930
 ;;21,"54868-5081-00 ")
 ;;1034
 ;;21,"54868-5179-00 ")
 ;;2650
 ;;21,"54868-5197-00 ")
 ;;1316
 ;;21,"54868-5197-01 ")
 ;;1317
 ;;21,"54868-5197-02 ")
 ;;1318
 ;;21,"54868-5200-00 ")
 ;;2680
 ;;21,"54868-5200-01 ")
 ;;2681
 ;;21,"54868-5208-00 ")
 ;;900
 ;;21,"54868-5208-01 ")
 ;;901
 ;;21,"54868-5209-00 ")
 ;;2669
 ;;21,"54868-5209-01 ")
 ;;2670
 ;;21,"54868-5311-00 ")
 ;;2541
 ;;21,"54868-5311-01 ")
 ;;2542
 ;;21,"54868-5320-00 ")
 ;;2548
 ;;21,"54868-5320-01 ")
 ;;2549
 ;;21,"54868-5320-03 ")
 ;;2550
 ;;21,"54868-5320-04 ")
 ;;2551
 ;;21,"54868-5420-00 ")
 ;;2655
 ;;21,"54868-5476-00 ")
 ;;1413
 ;;21,"54868-5523-00 ")
 ;;2687
 ;;21,"54868-5523-01 ")
 ;;2688
 ;;21,"54868-5548-02 ")
 ;;2535
 ;;21,"54868-5561-00 ")
 ;;1408
 ;;21,"54868-5561-01 ")
 ;;1409
 ;;21,"54868-5567-00 ")
 ;;2663
 ;;21,"54868-5672-00 ")
 ;;2622
 ;;21,"54868-5690-00 ")
 ;;2519
 ;;21,"54868-5690-01 ")
 ;;2520
 ;;21,"54868-5690-02 ")
 ;;2521
 ;;21,"54868-5690-03 ")
 ;;2522
 ;;21,"54868-5699-00 ")
 ;;2627
 ;;21,"54868-5761-00 ")
 ;;249
 ;;21,"54868-5761-01 ")
 ;;250
 ;;21,"54868-5761-02 ")
 ;;251
 ;;21,"54868-5762-00 ")
 ;;384
 ;;21,"54868-5762-01 ")
 ;;385
 ;;21,"54868-5762-02 ")
 ;;386
 ;;21,"54868-5764-00 ")
 ;;91
 ;;21,"54868-5764-01 ")
 ;;92
 ;;21,"54868-5781-00 ")
 ;;2462
 ;;21,"54868-5781-01 ")
 ;;2463
 ;;21,"54868-5781-02 ")
 ;;2464
 ;;21,"54868-5781-03 ")
 ;;2465
 ;;21,"54868-5782-00 ")
 ;;2375
 ;;21,"54868-5782-01 ")
 ;;2376
 ;;21,"54868-5782-02 ")
 ;;2377
 ;;21,"54868-5782-03 ")
 ;;2378
 ;;21,"54868-5782-04 ")
 ;;2379
 ;;21,"54868-5783-00 ")
 ;;2439
 ;;21,"54868-5783-01 ")
 ;;2440
 ;;21,"54868-5792-00 ")
 ;;2335
 ;;21,"54868-5792-01 ")
 ;;2336
 ;;21,"54868-5792-02 ")
 ;;2337
 ;;21,"54868-5793-00 ")
 ;;2281
 ;;21,"54868-5793-01 ")
 ;;2282
 ;;21,"54868-5804-00 ")
 ;;2580
 ;;21,"54868-5841-00 ")
 ;;2256
 ;;21,"54868-5841-01 ")
 ;;2257
 ;;21,"54868-5841-02 ")
 ;;2258
 ;;21,"54868-5983-00 ")
 ;;2584
 ;;21,"54868-5983-01 ")
 ;;2585
 ;;21,"54868-5984-00 ")
 ;;2264
 ;;21,"54868-5984-01 ")
 ;;2265
 ;;21,"54868-5984-02 ")
 ;;2266
 ;;21,"54868-5996-00 ")
 ;;2577
 ;;21,"54868-5996-01 ")
 ;;2578
 ;;21,"54868-5997-00 ")
 ;;2571
 ;;21,"54868-5997-01 ")
 ;;2572
 ;;21,"54868-6036-00 ")
 ;;2556
 ;;21,"54868-6123-00 ")
 ;;2595
 ;;21,"54868-6124-00 ")
 ;;2236
 ;;21,"54868-6124-01 ")
 ;;2237
 ;;21,"54868-6250-00 ")
 ;;2567
 ;;21,"54868-6297-00 ")
 ;;2513
 ;;21,"54868-6335-00 ")
 ;;2683
 ;;21,"55045-1858-08 ")
 ;;1075
 ;;21,"55045-1921-08 ")
 ;;999
 ;;21,"55045-2321-08 ")
 ;;2124
 ;;21,"55045-2321-09 ")
 ;;2125
 ;;21,"55045-2357-08 ")
 ;;641
 ;;21,"55045-2846-08 ")
 ;;751
 ;;21,"55045-3017-06 ")
 ;;1930
 ;;21,"55045-3043-09 ")
 ;;2064
 ;;21,"55045-3344-01 ")
 ;;314
 ;;21,"55045-3499-01 ")
 ;;489
 ;;21,"55045-3791-01 ")
 ;;564
 ;;21,"55045-3792-01 ")
 ;;663
 ;;21,"55045-3794-09 ")
 ;;144
 ;;21,"55045-3795-09 ")
 ;;3
 ;;21,"55045-3796-09 ")
 ;;457
 ;;21,"55048-0018-30 ")
 ;;388
 ;;21,"55048-0018-90 ")
 ;;389
 ;;21,"55048-0019-30 ")
 ;;253
 ;;21,"55048-0019-90 ")
 ;;254
 ;;21,"55048-0020-30 ")
 ;;2334
 ;;21,"55048-0021-30 ")
 ;;2460
 ;;21,"55048-0022-30 ")
 ;;2380
 ;;21,"55048-0023-30 ")
 ;;2581
 ;;21,"55048-0024-30 ")
 ;;2574
 ;;21,"55048-0111-30 ")
 ;;94
 ;;21,"55048-0121-30 ")
 ;;252
 ;;21,"55048-0122-30 ")
 ;;387
 ;;21,"55048-0123-30 ")
 ;;2381
 ;;21,"55048-0124-30 ")
 ;;2461
 ;;21,"55048-0125-30 ")
 ;;2508
 ;;21,"55048-0210-30 ")
 ;;970
 ;;21,"55048-0211-30 ")
 ;;1027
 ;;21,"55048-0212-30 ")
 ;;1096
 ;;21,"55048-0213-30 ")
 ;;1159
 ;;21,"55048-0542-30 ")
 ;;1515
 ;;21,"55048-0543-30 ")
 ;;1587
 ;;21,"55048-0544-30 ")
 ;;1775
 ;;21,"55048-0819-30 ")
 ;;1969
 ;;21,"55048-0820-30 ")
 ;;1858
 ;;21,"55111-0269-90 ")
 ;;20
 ;;21,"55111-0270-05 ")
 ;;159
 ;;21,"55111-0270-90 ")
 ;;160
 ;;21,"55111-0271-05 ")
 ;;472
 ;;21,"55111-0271-90 ")
 ;;473
 ;;21,"55111-0338-01 ")
 ;;2293
 ;;21,"55111-0339-01 ")
 ;;2313
 ;;21,"55111-0339-05 ")
 ;;2314
 ;;21,"55111-0340-01 ")
 ;;2372
 ;;21,"55111-0340-05 ")
 ;;2373
 ;;21,"55111-0341-01 ")
 ;;2447
 ;;21,"55111-0341-05 ")
 ;;2448
 ;;21,"55111-0586-01 ")
 ;;2500
 ;;21,"55111-0587-01 ")
 ;;2424
 ;;21,"55289-0039-30 ")
 ;;2411
 ;;21,"55289-0078-30 ")
 ;;2118
 ;;21,"55289-0096-30 ")
 ;;2350
 ;;21,"55289-0103-30 ")
 ;;315
 ;;21,"55289-0103-60 ")
 ;;316
 ;;21,"55289-0270-30 ")
 ;;224
 ;;21,"55289-0270-90 ")
 ;;225
 ;;21,"55289-0289-90 ")
 ;;1363
 ;;21,"55289-0299-30 ")
 ;;390
 ;;21,"55289-0299-90 ")
 ;;391
 ;;21,"55289-0306-30 ")
 ;;1304
 ;;21,"55289-0306-90 ")
 ;;1305
 ;;21,"55289-0323-01 ")
 ;;1696
 ;;21,"55289-0323-30 ")
 ;;1697
 ;;21,"55289-0329-01 ")
 ;;605
 ;;21,"55289-0335-01 ")
 ;;561
 ;;21,"55289-0335-10 ")
 ;;562
 ;;21,"55289-0335-50 ")
 ;;563
 ;;21,"55289-0357-01 ")
 ;;1751
 ;;21,"55289-0357-30 ")
 ;;1752
 ;;21,"55289-0448-30 ")
 ;;25
 ;;21,"55289-0481-01 ")
 ;;1958
 ;;21,"55289-0481-30 ")
 ;;1959
 ;;21,"55289-0481-60 ")
 ;;1960
 ;;21,"55289-0543-30 ")
 ;;1542
 ;;21,"55289-0545-30 ")
 ;;1616
 ;;21,"55289-0549-30 ")
 ;;514
 ;;21,"55289-0549-60 ")
 ;;515
 ;;21,"55289-0602-30 ")
 ;;106
 ;;21,"55289-0607-14 ")
 ;;2062
 ;;21,"55289-0607-30 ")
 ;;2063
 ;;21,"55289-0723-30 ")
 ;;2205
 ;;21,"55289-0723-90 ")
 ;;2206
 ;;21,"55289-0723-93 ")
 ;;2207
 ;;21,"55289-0770-14 ")
 ;;1044
 ;;21,"55289-0774-14 ")
 ;;1113
 ;;21,"55289-0798-07 ")
 ;;1654
 ;;21,"55289-0798-30 ")
 ;;1655
 ;;21,"55289-0853-30 ")
 ;;977
 ;;21,"55289-0893-30 ")
 ;;654
 ;;21,"55289-0893-97 ")
 ;;655
 ;;21,"55289-0896-08 ")
 ;;1853
 ;;21,"55289-0896-30 ")
 ;;1854
 ;;21,"55289-0896-97 ")
 ;;1855
 ;;21,"55289-0981-30 ")
 ;;2490
 ;;21,"55700-0011-30 ")
 ;;2455
 ;;21,"55700-0011-60 ")
 ;;2456
 ;;21,"55700-0011-90 ")
 ;;2457
 ;;21,"55700-0012-30 ")
 ;;2503
 ;;21,"55700-0012-60 ")
 ;;2504
 ;;21,"55700-0012-90 ")
 ;;2505
 ;;21,"55700-0015-30 ")
 ;;437
 ;;21,"55700-0015-60 ")
 ;;438
 ;;21,"55700-0024-30 ")
 ;;2013
 ;;21,"55700-0024-60 ")
 ;;2014
 ;;21,"55700-0024-90 ")
 ;;2015
 ;;21,"55887-0135-90 ")
 ;;427
 ;;21,"55887-0136-90 ")
 ;;129
 ;;21,"55887-0361-30 ")
 ;;1661
 ;;21,"55887-0361-60 ")
 ;;1662
 ;;21,"55887-0361-90 ")
 ;;1663
 ;;21,"55887-0363-30 ")
 ;;702
 ;;21,"55887-0363-60 ")
 ;;703
 ;;21,"55887-0363-90 ")
 ;;704
 ;;21,"55887-0389-30 ")
 ;;1791
 ;;21,"55887-0389-60 ")
 ;;1792
 ;;21,"55887-0389-82 ")
 ;;1793
 ;;21,"55887-0389-90 ")
 ;;1794
 ;;21,"55887-0402-30 ")
 ;;2004
 ;;21,"55887-0402-60 ")
 ;;2005
 ;;21,"55887-0402-82 ")
 ;;2006
 ;;21,"55887-0402-90 ")
 ;;2007
 ;;21,"55887-0418-30 ")
 ;;2181
 ;;21,"55887-0449-30 ")
 ;;1935
 ;;21,"55887-0449-60 ")
 ;;1936
 ;;21,"55887-0449-90 ")
 ;;1937
 ;;21,"55887-0597-30 ")
 ;;541
 ;;21,"55887-0597-60 ")
 ;;542
 ;;21,"55887-0597-90 ")
 ;;543
 ;;21,"55887-0598-30 ")
 ;;620
 ;;21,"55887-0598-60 ")
 ;;621
 ;;21,"55887-0598-90 ")
 ;;622
 ;;21,"55887-0701-30 ")
 ;;980
 ;;21,"55887-0701-60 ")
 ;;981
 ;;21,"55887-0701-82 ")
 ;;982
 ;;21,"55887-0701-90 ")
 ;;983
 ;;21,"55887-0802-90 ")
 ;;1721
 ;;21,"55887-0824-30 ")
 ;;282
 ;;21,"55887-0824-60 ")
 ;;283
 ;;21,"55887-0824-82 ")
 ;;284
 ;;21,"55887-0824-90 ")
 ;;285
 ;;21,"55887-0864-30 ")
 ;;495
 ;;21,"55887-0864-60 ")
 ;;496
 ;;21,"55887-0864-90 ")
 ;;497
 ;;21,"55887-0920-30 ")
 ;;749
 ;;21,"55887-0986-30 ")
 ;;768
 ;;21,"55887-0986-90 ")
 ;;769
 ;;21,"57664-0055-13 ")
 ;;26
 ;;21,"57664-0055-18 ")
 ;;27
 ;;21,"57664-0055-99 ")
 ;;28
 ;;21,"57664-0056-13 ")
 ;;169
 ;;21,"57664-0056-18 ")
 ;;170
 ;;21,"57664-0056-99 ")
 ;;171
 ;;21,"57664-0057-13 ")
 ;;462
 ;;21,"57664-0057-18 ")
 ;;463
 ;;21,"57664-0057-99 ")
 ;;464
 ;;21,"57664-0116-88 ")
 ;;2002
 ;;21,"57664-0117-13 ")
 ;;2046
 ;;21,"57664-0117-88 ")
 ;;2047
 ;;21,"57664-0118-13 ")
 ;;2171
 ;;21,"57664-0118-88 ")
 ;;2172
 ;;21,"57664-0568-13 ")
 ;;4
 ;;21,"57664-0568-18 ")
 ;;5
 ;;21,"57664-0568-99 ")
 ;;6
 ;;21,"57664-0569-13 ")
 ;;141
 ;;21,"57664-0569-18 ")
 ;;142
 ;;21,"57664-0569-99 ")
 ;;143
 ;;21,"57664-0570-13 ")
 ;;454
 ;;21,"57664-0570-18 ")
 ;;455
 ;;21,"57664-0570-99 ")
 ;;456
 ;;21,"57866-0102-01 ")
 ;;1685
 ;;21,"57866-0229-01 ")
 ;;952
 ;;21,"57866-0230-01 ")
 ;;1043
 ;;21,"57866-0234-01 ")
 ;;1393
 ;;21,"57866-0284-01 ")
 ;;474
 ;;21,"57866-3025-01 ")
 ;;1335
 ;;21,"57866-4068-01 ")
 ;;1650
 ;;21,"57866-4069-01 ")
 ;;1724
 ;;21,"57866-4070-01 ")
 ;;1768
 ;;21,"57866-6126-01 ")
 ;;1133
 ;;21,"57866-6127-01 ")
 ;;1081
 ;;21,"57866-6127-02 ")
 ;;1082
 ;;21,"57866-6414-02 ")
 ;;2133
 ;;21,"57866-6625-01 ")
 ;;318
 ;;21,"57866-6626-01 ")
 ;;490
 ;;21,"57866-6717-02 ")
 ;;1615
 ;;21,"57866-6719-03 ")
 ;;1467
 ;;21,"57866-6912-01 ")
 ;;2019
 ;;21,"57866-6914-01 ")
 ;;2119
 ;;21,"57866-7076-01 ")
 ;;130
 ;;21,"58016-0374-30 ")
 ;;2129
 ;;21,"58016-0504-00 ")
 ;;993
 ;;21,"58016-0504-20 ")
 ;;994
 ;;21,"58016-0504-30 ")
 ;;995
 ;;21,"58016-0504-60 ")
 ;;996
 ;;21,"58016-0509-00 ")
 ;;1945
 ;;21,"58016-0509-02 ")
 ;;1946
 ;;21,"58016-0509-12 ")
 ;;1947
 ;;21,"58016-0509-15 ")
 ;;1948
 ;;21,"58016-0509-20 ")
 ;;1949
 ;;21,"58016-0509-30 ")
 ;;1950
 ;;21,"58016-0509-60 ")
 ;;1951
 ;;21,"58016-0511-00 ")
 ;;1869
 ;;21,"58016-0511-08 ")
 ;;1870
 ;;21,"58016-0511-30 ")
 ;;1871
 ;;21,"58016-0606-00 ")
 ;;544
 ;;21,"58016-0606-12 ")
 ;;545
 ;;21,"58016-0606-15 ")
 ;;546
 ;;21,"58016-0606-20 ")
 ;;547
 ;;21,"58016-0606-30 ")
 ;;548
 ;;21,"58016-0606-90 ")
 ;;549
 ;;21,"58016-0607-00 ")
 ;;614
 ;;21,"58016-0607-12 ")
 ;;615
 ;;21,"58016-0607-15 ")
 ;;616
 ;;21,"58016-0607-20 ")
 ;;617
 ;;21,"58016-0607-30 ")
 ;;618
 ;;21,"58016-0607-90 ")
 ;;619
 ;;21,"58016-0608-00 ")
 ;;657
 ;;21,"58016-0608-12 ")
 ;;658
 ;;21,"58016-0608-15 ")
 ;;659
 ;;21,"58016-0608-20 ")
 ;;660
 ;;21,"58016-0608-30 ")
 ;;661
 ;;21,"58016-0608-90 ")
 ;;662
 ;;21,"58016-0721-00 ")
 ;;2009
 ;;21,"58016-0721-30 ")
 ;;2010
 ;;21,"58016-0721-60 ")
 ;;2011
 ;;21,"58016-0721-90 ")
 ;;2012
 ;;21,"58016-0860-00 ")
 ;;2194
 ;;21,"58016-0860-12 ")
 ;;2195
 ;;21,"58016-0860-15 ")
 ;;2196
 ;;21,"58016-0860-20 ")
 ;;2197
 ;;21,"58016-0860-30 ")
 ;;2198
 ;;21,"58118-0238-03 ")
 ;;161
 ;;21,"58118-0238-09 ")
 ;;162
 ;;21,"58118-0239-03 ")
 ;;470
 ;;21,"58118-0239-09 ")
 ;;471
 ;;21,"58118-0262-03 ")
 ;;1804
 ;;21,"58118-0262-06 ")
 ;;1805
 ;;21,"58118-0262-09 ")
 ;;1806
 ;;21,"58118-2108-03 ")
 ;;39
 ;;21,"58118-2108-09 ")
 ;;40
 ;;21,"58118-2271-03 ")
 ;;2283
 ;;21,"58118-2271-09 ")
 ;;2284
 ;;21,"58118-2272-03 ")
 ;;2315
 ;;21,"58118-2272-09 ")
 ;;2316
 ;;21,"58118-2273-03 ")
 ;;2402
 ;;21,"58118-2273-09 ")
 ;;2403
 ;;21,"58118-2274-03 ")
 ;;2482
 ;;21,"58118-2274-09 ")
 ;;2483
 ;;21,"58118-2277-03 ")
 ;;2430
 ;;21,"58118-2277-09 ")
 ;;2431
 ;;21,"58118-2279-03 ")
 ;;2516
 ;;21,"58118-2279-09 ")
 ;;2517
 ;;21,"58177-0061-09 ")
 ;;776
 ;;21,"58177-0061-11 ")
 ;;777
 ;;21,"58177-0061-19 ")
 ;;778