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

BGP47Z3.m

Go to the documentation of this file.
BGP47Z3 ;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,"21695-0512-30 ")
 ;;1921
 ;;21,"21695-0512-90 ")
 ;;1922
 ;;21,"21695-0541-60 ")
 ;;34
 ;;21,"21695-0542-30 ")
 ;;213
 ;;21,"21695-0542-60 ")
 ;;214
 ;;21,"21695-0542-90 ")
 ;;215
 ;;21,"21695-0543-30 ")
 ;;352
 ;;21,"21695-0543-90 ")
 ;;353
 ;;21,"21695-0776-30 ")
 ;;1679
 ;;21,"21695-0803-30 ")
 ;;1104
 ;;21,"21695-0807-30 ")
 ;;1789
 ;;21,"21695-0807-90 ")
 ;;1790
 ;;21,"21695-0866-90 ")
 ;;2307
 ;;21,"21695-0868-90 ")
 ;;2180
 ;;21,"21695-0908-30 ")
 ;;1532
 ;;21,"21695-0908-90 ")
 ;;1524
 ;;21,"21695-0909-30 ")
 ;;1589
 ;;21,"21695-0909-90 ")
 ;;1590
 ;;21,"21695-0916-30 ")
 ;;2443
 ;;21,"21695-0916-90 ")
 ;;2444
 ;;21,"21695-0998-30 ")
 ;;1114
 ;;21,"23155-0026-01 ")
 ;;1861
 ;;21,"23155-0027-01 ")
 ;;1956
 ;;21,"23490-5055-03 ")
 ;;15
 ;;21,"23490-5056-01 ")
 ;;481
 ;;21,"23490-5056-02 ")
 ;;482
 ;;21,"23490-5057-03 ")
 ;;154
 ;;21,"23490-5057-04 ")
 ;;155
 ;;21,"23490-5057-06 ")
 ;;156
 ;;21,"23490-5057-09 ")
 ;;157
 ;;21,"23490-5447-03 ")
 ;;642
 ;;21,"23490-5447-06 ")
 ;;643
 ;;21,"23490-5450-03 ")
 ;;1125
 ;;21,"23490-5450-04 ")
 ;;1126
 ;;21,"23490-5991-01 ")
 ;;1511
 ;;21,"23490-5992-01 ")
 ;;1583
 ;;21,"23490-6462-01 ")
 ;;1927
 ;;21,"23490-6462-05 ")
 ;;1928
 ;;21,"23490-6463-01 ")
 ;;1980
 ;;21,"23490-6464-01 ")
 ;;2036
 ;;21,"23490-6464-09 ")
 ;;2037
 ;;21,"23490-6466-01 ")
 ;;2130
 ;;21,"23490-6466-06 ")
 ;;2131
 ;;21,"23490-6466-09 ")
 ;;2132
 ;;21,"23490-7060-01 ")
 ;;2351
 ;;21,"23490-7062-01 ")
 ;;2496
 ;;21,"24477-0515-01 ")
 ;;1451
 ;;21,"24477-0516-01 ")
 ;;1462
 ;;21,"24658-0190-10 ")
 ;;1
 ;;21,"24658-0190-90 ")
 ;;2
 ;;21,"24658-0191-10 ")
 ;;135
 ;;21,"24658-0191-90 ")
 ;;136
 ;;21,"24658-0192-10 ")
 ;;449
 ;;21,"24658-0192-90 ")
 ;;450
 ;;21,"31722-0237-10 ")
 ;;88
 ;;21,"31722-0237-90 ")
 ;;89
 ;;21,"31722-0238-10 ")
 ;;260
 ;;21,"31722-0238-90 ")
 ;;261
 ;;21,"31722-0239-10 ")
 ;;405
 ;;21,"31722-0239-90 ")
 ;;406
 ;;21,"33261-0437-02 ")
 ;;137
 ;;21,"33261-0437-30 ")
 ;;138
 ;;21,"33261-0437-60 ")
 ;;139
 ;;21,"33261-0437-90 ")
 ;;140
 ;;21,"33261-0535-02 ")
 ;;358
 ;;21,"33261-0535-30 ")
 ;;359
 ;;21,"33261-0535-60 ")
 ;;360
 ;;21,"33261-0535-90 ")
 ;;361
 ;;21,"33261-0675-00 ")
 ;;1999
 ;;21,"33261-0675-02 ")
 ;;1984
 ;;21,"33261-0675-07 ")
 ;;1985
 ;;21,"33261-0675-14 ")
 ;;1986
 ;;21,"33261-0675-20 ")
 ;;1987
 ;;21,"33261-0675-21 ")
 ;;1988
 ;;21,"33261-0675-28 ")
 ;;1989
 ;;21,"33261-0675-30 ")
 ;;1990
 ;;21,"33261-0675-60 ")
 ;;1991
 ;;21,"33261-0675-90 ")
 ;;1992
 ;;21,"33261-0824-00 ")
 ;;2320
 ;;21,"33261-0824-30 ")
 ;;2321
 ;;21,"33261-0824-60 ")
 ;;2322
 ;;21,"33261-0824-90 ")
 ;;2323
 ;;21,"33261-0825-00 ")
 ;;2484
 ;;21,"33261-0825-30 ")
 ;;2485
 ;;21,"33261-0825-60 ")
 ;;2486
 ;;21,"33261-0825-90 ")
 ;;2487
 ;;21,"33261-0826-00 ")
 ;;46
 ;;21,"33261-0826-30 ")
 ;;47
 ;;21,"33261-0826-60 ")
 ;;48
 ;;21,"33261-0826-90 ")
 ;;49
 ;;21,"33261-0836-00 ")
 ;;2058
 ;;21,"33261-0836-30 ")
 ;;2059
 ;;21,"33261-0836-60 ")
 ;;2060
 ;;21,"33261-0836-90 ")
 ;;2061
 ;;21,"33261-0840-00 ")
 ;;1777
 ;;21,"33261-0840-30 ")
 ;;1778
 ;;21,"33261-0840-60 ")
 ;;1779
 ;;21,"33261-0840-90 ")
 ;;1780
 ;;21,"33261-0844-00 ")
 ;;1656
 ;;21,"33261-0844-30 ")
 ;;1657
 ;;21,"33261-0844-60 ")
 ;;1658
 ;;21,"33261-0844-90 ")
 ;;1659
 ;;21,"33261-0982-00 ")
 ;;2362
 ;;21,"33261-0982-30 ")
 ;;2363
 ;;21,"33261-0982-60 ")
 ;;2364
 ;;21,"33261-0982-90 ")
 ;;2365
 ;;21,"33358-0109-30 ")
 ;;724
 ;;21,"33358-0222-00 ")
 ;;2412
 ;;21,"33358-0262-00 ")
 ;;1680
 ;;21,"33358-0262-30 ")
 ;;1681
 ;;21,"35356-0002-10 ")
 ;;451
 ;;21,"35356-0026-00 ")
 ;;608
 ;;21,"35356-0027-00 ")
 ;;653
 ;;21,"35356-0059-10 ")
 ;;219
 ;;21,"35356-0059-30 ")
 ;;220
 ;;21,"35356-0059-60 ")
 ;;221
 ;;21,"35356-0059-90 ")
 ;;222
 ;;21,"35356-0268-30 ")
 ;;2532
 ;;21,"35356-0510-30 ")
 ;;942
 ;;21,"35356-0511-30 ")
 ;;971
 ;;21,"35356-0739-10 ")
 ;;114
 ;;21,"35356-0740-10 ")
 ;;115
 ;;21,"35356-0774-30 ")
 ;;479
 ;;21,"35356-0774-60 ")
 ;;480
 ;;21,"35356-0858-30 ")
 ;;152
 ;;21,"35356-0858-60 ")
 ;;153
 ;;21,"35356-0866-60 ")
 ;;637
 ;;21,"35356-0907-30 ")
 ;;678
 ;;21,"35356-0907-90 ")
 ;;679
 ;;21,"35356-0915-30 ")
 ;;38
 ;;21,"35356-0917-30 ")
 ;;2317
 ;;21,"35356-0947-30 ")
 ;;1035
 ;;21,"35356-0952-30 ")
 ;;1637
 ;;21,"35356-0960-30 ")
 ;;2399
 ;;21,"35356-0960-60 ")
 ;;2400
 ;;21,"35356-0960-90 ")
 ;;2401
 ;;21,"35356-0965-30 ")
 ;;2425
 ;;21,"35356-0965-60 ")
 ;;2426
 ;;21,"35356-0965-90 ")
 ;;2427
 ;;21,"35356-0971-30 ")
 ;;555
 ;;21,"35356-0971-60 ")
 ;;556
 ;;21,"35356-0971-90 ")
 ;;557
 ;;21,"42254-0072-30 ")
 ;;2396
 ;;21,"42254-0073-30 ")
 ;;2436
 ;;21,"42254-0074-30 ")
 ;;2507
 ;;21,"42254-0095-30 ")
 ;;1726
 ;;21,"42254-0095-90 ")
 ;;1727
 ;;21,"42254-0398-30 ")
 ;;960
 ;;21,"42254-0421-30 ")
 ;;897
 ;;21,"42254-0429-30 ")
 ;;2073
 ;;21,"42291-0640-90 ")
 ;;1434
 ;;21,"42291-0641-90 ")
 ;;1449
 ;;21,"42806-0055-05 ")
 ;;35
 ;;21,"42806-0055-09 ")
 ;;36
 ;;21,"42806-0055-10 ")
 ;;37
 ;;21,"42806-0056-05 ")
 ;;210
 ;;21,"42806-0056-09 ")
 ;;211
 ;;21,"42806-0056-10 ")
 ;;212
 ;;21,"42806-0057-05 ")
 ;;354
 ;;21,"42806-0057-09 ")
 ;;355
 ;;21,"42806-0057-10 ")
 ;;356
 ;;21,"42806-0501-01 ")
 ;;1431
 ;;21,"42806-0501-05 ")
 ;;1432
 ;;21,"42806-0501-09 ")
 ;;1433
 ;;21,"42806-0502-01 ")
 ;;1446
 ;;21,"42806-0502-05 ")
 ;;1447
 ;;21,"42806-0502-09 ")
 ;;1448
 ;;21,"43063-0011-01 ")
 ;;2199
 ;;21,"43063-0171-14 ")
 ;;2292
 ;;21,"43063-0232-30 ")
 ;;2445
 ;;21,"43063-0232-60 ")
 ;;2446
 ;;21,"43063-0233-60 ")
 ;;2312
 ;;21,"43063-0234-60 ")
 ;;2371
 ;;21,"43063-0402-60 ")
 ;;2368
 ;;21,"43063-0404-30 ")
 ;;452
 ;;21,"43063-0404-90 ")
 ;;453
 ;;21,"43353-0073-30 ")
 ;;409
 ;;21,"43353-0073-45 ")
 ;;410
 ;;21,"43353-0073-53 ")
 ;;411
 ;;21,"43353-0130-30 ")
 ;;1578
 ;;21,"43353-0130-60 ")
 ;;1579
 ;;21,"43353-0130-80 ")
 ;;1580
 ;;21,"43353-0188-30 ")
 ;;412
 ;;21,"43353-0188-45 ")
 ;;413
 ;;21,"43353-0256-30 ")
 ;;262
 ;;21,"43353-0256-45 ")
 ;;263
 ;;21,"43353-0256-53 ")
 ;;264
 ;;21,"43353-0256-60 ")
 ;;265
 ;;21,"43353-0295-30 ")
 ;;320
 ;;21,"43353-0295-45 ")
 ;;321
 ;;21,"43353-0295-53 ")
 ;;322
 ;;21,"43353-0295-60 ")
 ;;319
 ;;21,"43353-0311-30 ")
 ;;1555
 ;;21,"43353-0311-60 ")
 ;;1556
 ;;21,"43353-0311-80 ")
 ;;1557
 ;;21,"43353-0328-60 ")
 ;;182
 ;;21,"43353-0452-30 ")
 ;;116
 ;;21,"43353-0534-30 ")
 ;;476
 ;;21,"43353-0534-45 ")
 ;;477
 ;;21,"43353-0534-60 ")
 ;;478
 ;;21,"43353-0545-45 ")
 ;;158
 ;;21,"43353-0551-30 ")
 ;;475
 ;;21,"43353-0599-60 ")
 ;;2054
 ;;21,"43353-0599-80 ")
 ;;2055
 ;;21,"43353-0600-30 ")
 ;;2153
 ;;21,"43353-0600-60 ")
 ;;2154
 ;;21,"43353-0601-60 ")
 ;;2096
 ;;21,"43353-0602-60 ")
 ;;2097
 ;;21,"43353-0684-15 ")
 ;;174
 ;;21,"43353-0684-30 ")
 ;;175
 ;;21,"43353-0684-45 ")
 ;;176
 ;;21,"43353-0691-30 ")
 ;;465
 ;;21,"43353-0723-60 ")
 ;;1525
 ;;21,"43353-0750-60 ")
 ;;1638
 ;;21,"43353-0750-81 ")
 ;;1639
 ;;21,"43353-0782-30 ")
 ;;1607
 ;;21,"43353-0782-60 ")
 ;;1608
 ;;21,"43353-0782-80 ")
 ;;1609
 ;;21,"43353-0792-30 ")
 ;;1533
 ;;21,"43353-0792-60 ")
 ;;1534
 ;;21,"43353-0836-30 ")
 ;;1604
 ;;21,"43353-0836-60 ")
 ;;1605
 ;;21,"43353-0836-80 ")
 ;;1606
 ;;21,"43547-0230-09 ")
 ;;65
 ;;21,"43547-0230-11 ")
 ;;66
 ;;21,"43547-0231-09 ")
 ;;216
 ;;21,"43547-0231-11 ")
 ;;217
 ;;21,"43547-0232-09 ")
 ;;362
 ;;21,"43547-0232-11 ")
 ;;363
 ;;21,"43683-0133-30 ")
 ;;218
 ;;21,"45963-0152-02 ")
 ;;1634
 ;;21,"47335-0669-13 ")
 ;;788
 ;;21,"47335-0669-81 ")
 ;;789
 ;;21,"47335-0669-83 ")
 ;;790
 ;;21,"47335-0670-13 ")
 ;;804
 ;;21,"47335-0670-81 ")
 ;;805
 ;;21,"47335-0670-83 ")
 ;;806
 ;;21,"47335-0671-13 ")
 ;;831
 ;;21,"47335-0671-81 ")
 ;;832
 ;;21,"47335-0671-83 ")
 ;;833
 ;;21,"47335-0672-13 ")
 ;;859
 ;;21,"47335-0672-81 ")
 ;;860
 ;;21,"47335-0672-83 ")
 ;;861
 ;;21,"47335-0673-13 ")
 ;;902
 ;;21,"47335-0673-81 ")
 ;;903
 ;;21,"47335-0673-83 ")
 ;;904
 ;;21,"47335-0675-13 ")
 ;;978
 ;;21,"47335-0675-81 ")
 ;;979
 ;;21,"47335-0676-13 ")
 ;;1051
 ;;21,"47335-0676-81 ")
 ;;1052
 ;;21,"47335-0677-13 ")
 ;;1127
 ;;21,"47335-0677-81 ")
 ;;1128
 ;;21,"47335-0678-13 ")
 ;;1174
 ;;21,"47335-0678-81 ")
 ;;1175
 ;;21,"47335-0679-81 ")
 ;;1184
 ;;21,"47463-0018-30 ")
 ;;403
 ;;21,"47463-0018-90 ")
 ;;404
 ;;21,"47463-0019-30 ")
 ;;266
 ;;21,"47463-0019-90 ")
 ;;267
 ;;21,"47463-0020-30 ")
 ;;2338
 ;;21,"47463-0021-30 ")
 ;;2466
 ;;21,"47463-0022-30 ")
 ;;2374
 ;;21,"47463-0023-30 ")
 ;;2582
 ;;21,"47463-0024-30 ")
 ;;2573
 ;;21,"47463-0210-30 ")
 ;;959
 ;;21,"47463-0211-30 ")
 ;;1036
 ;;21,"47463-0212-30 ")
 ;;1103
 ;;21,"47463-0213-30 ")
 ;;1170
 ;;21,"47463-0542-30 ")
 ;;1523
 ;;21,"47463-0543-30 ")
 ;;1596
 ;;21,"47463-0544-30 ")
 ;;1803
 ;;21,"47463-0819-30 ")
 ;;1957
 ;;21,"47463-0820-30 ")
 ;;1860
 ;;21,"47463-5705-30 ")
 ;;1464
 ;;21,"47463-5706-30 ")
 ;;1538
 ;;21,"47463-5707-30 ")
 ;;1611
 ;;21,"47781-0368-01 ")
 ;;1514
 ;;21,"47781-0369-01 ")
 ;;1588
 ;;21,"47781-0370-01 ")
 ;;1636
 ;;21,"49884-0271-01 ")
 ;;2020
 ;;21,"49884-0272-01 ")
 ;;2098
 ;;21,"49884-0273-01 ")
 ;;2201
 ;;21,"49884-0273-05 ")
 ;;2202
 ;;21,"49884-0498-01 ")
 ;;1427
 ;;21,"49884-0498-05 ")
 ;;1428
 ;;21,"49884-0499-01 ")
 ;;1444
 ;;21,"49884-0499-05 ")
 ;;1445
 ;;21,"49884-0677-01 ")
 ;;1509
 ;;21,"49884-0677-05 ")
 ;;1510
 ;;21,"49884-0678-01 ")
 ;;1581
 ;;21,"49884-0678-05 ")
 ;;1582
 ;;21,"49884-0679-01 ")
 ;;1635
 ;;21,"49884-0829-05 ")
 ;;972
 ;;21,"49884-0829-09 ")
 ;;973
 ;;21,"49884-0829-11 ")
 ;;974
 ;;21,"49884-0830-05 ")
 ;;1031
 ;;21,"49884-0830-09 ")
 ;;1032
 ;;21,"49884-0830-11 ")
 ;;1033
 ;;21,"49884-0831-05 ")
 ;;1100
 ;;21,"49884-0831-09 ")
 ;;1101
 ;;21,"49884-0831-11 ")
 ;;1102
 ;;21,"49884-0832-05 ")
 ;;1161
 ;;21,"49884-0832-09 ")
 ;;1162
 ;;21,"49884-0832-11 ")
 ;;1163
 ;;21,"49884-0929-01 ")
 ;;2288
 ;;21,"49884-0929-05 ")
 ;;2289
 ;;21,"49884-0930-01 ")
 ;;2305
 ;;21,"49884-0930-05 ")
 ;;2306
 ;;21,"49884-0931-01 ")
 ;;2360
 ;;21,"49884-0931-05 ")
 ;;2361
 ;;21,"49884-0932-01 ")
 ;;2451
 ;;21,"49884-0932-05 ")
 ;;2452
 ;;21,"49884-0952-01 ")
 ;;2421
 ;;21,"49884-0952-05 ")
 ;;2422
 ;;21,"49884-0953-01 ")
 ;;2501
 ;;21,"49884-0953-05 ")
 ;;2502
 ;;21,"49999-0075-00 ")
 ;;2126
 ;;21,"49999-0075-30 ")
 ;;2127
 ;;21,"49999-0075-90 ")
 ;;2128
 ;;21,"49999-0248-10 ")
 ;;357
 ;;21,"49999-0283-00 ")
 ;;1923
 ;;21,"49999-0283-30 ")
 ;;1924
 ;;21,"49999-0283-60 ")
 ;;1925
 ;;21,"49999-0283-90 ")
 ;;1926
 ;;21,"49999-0284-00 ")
 ;;2038
 ;;21,"49999-0284-30 ")
 ;;2039
 ;;21,"49999-0284-60 ")
 ;;2052
 ;;21,"49999-0284-90 ")
 ;;2053
 ;;21,"49999-0296-30 ")
 ;;1338
 ;;21,"49999-0310-00 ")
 ;;1878
 ;;21,"49999-0310-60 ")
 ;;1879
 ;;21,"49999-0357-30 ")
 ;;1682
 ;;21,"49999-0357-60 ")
 ;;1683
 ;;21,"49999-0357-90 ")
 ;;1684
 ;;21,"49999-0436-30 ")
 ;;293
 ;;21,"49999-0436-90 ")
 ;;294
 ;;21,"49999-0476-30 ")
 ;;1725
 ;;21,"49999-0476-60 ")
 ;;1568
 ;;21,"49999-0476-90 ")
 ;;1569
 ;;21,"49999-0478-30 ")
 ;;505
 ;;21,"49999-0478-90 ")
 ;;506
 ;;21,"49999-0496-30 ")
 ;;1054
 ;;21,"49999-0499-10 ")
 ;;899
 ;;21,"49999-0572-10 ")
 ;;1377
 ;;21,"49999-0821-10 ")
 ;;1291
 ;;21,"49999-0946-30 ")
 ;;2497
 ;;21,"49999-0947-30 ")
 ;;2352
 ;;21,"49999-0948-30 ")
 ;;2415
 ;;21,"49999-0989-30 ")
 ;;2638
 ;;21,"50111-0486-01 ")
 ;;1862
 ;;21,"50111-0486-02 ")
 ;;1863
 ;;21,"50111-0486-03 ")
 ;;1864
 ;;21,"50111-0487-01 ")
 ;;1954
 ;;21,"50111-0487-02 ")
 ;;1955
 ;;21,"50268-0081-15 ")
 ;;268
 ;;21,"50268-0082-15 ")
 ;;402
 ;;21,"50268-0597-15 ")
 ;;1507
 ;;21,"50268-0598-15 ")
 ;;1577
 ;;21,"50268-0599-15 ")
 ;;1631
 ;;21,"50419-0701-05 ")
 ;;1475
 ;;21,"50419-0701-10 ")
 ;;1476
 ;;21,"50419-0702-05 ")
 ;;1543
 ;;21,"50419-0702-10 ")
 ;;1544
 ;;21,"50419-0703-05 ")
 ;;1617
 ;;21,"51079-0400-01 ")
 ;;1673
 ;;21,"51079-0400-20 ")
 ;;1674
 ;;21,"51079-0450-01 ")
 ;;16
 ;;21,"51079-0450-20 ")
 ;;17
 ;;21,"51079-0450-63 ")
 ;;18
 ;;21,"51079-0450-66 ")
 ;;19
 ;;21,"51079-0451-01 ")
 ;;149
 ;;21,"51079-0451-17 ")
 ;;150
 ;;21,"51079-0451-19 ")
 ;;151
 ;;21,"51079-0451-20 ")
 ;;123
 ;;21,"51079-0451-30 ")
 ;;110
 ;;21,"51079-0451-56 ")
 ;;111
 ;;21,"51079-0451-69 ")
 ;;112
 ;;21,"51079-0452-01 ")
 ;;443
 ;;21,"51079-0452-17 ")
 ;;444
 ;;21,"51079-0452-19 ")
 ;;445
 ;;21,"51079-0452-20 ")
 ;;446
 ;;21,"51079-0452-30 ")
 ;;447
 ;;21,"51079-0452-56 ")
 ;;448
 ;;21,"51079-0467-01 ")
 ;;1285
 ;;21,"51079-0467-20 ")
 ;;1286
 ;;21,"51079-0468-01 ")
 ;;1343
 ;;21,"51079-0468-20 ")
 ;;1344
 ;;21,"51079-0682-01 ")
 ;;1865
 ;;21,"51079-0682-17 ")
 ;;1866
 ;;21,"51079-0682-19 ")
 ;;1867