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

BGP51R2.m

Go to the documentation of this file.
BGP51R2 ;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,"00440-8610-90 ")
 ;;1691
 ;;21,"00440-8610-94 ")
 ;;1692
 ;;21,"00456-2612-00 ")
 ;;648
 ;;21,"00456-2612-30 ")
 ;;649
 ;;21,"00456-2612-63 ")
 ;;628
 ;;21,"00456-2612-90 ")
 ;;650
 ;;21,"00456-2613-00 ")
 ;;671
 ;;21,"00456-2613-30 ")
 ;;672
 ;;21,"00456-2613-63 ")
 ;;651
 ;;21,"00456-2613-90 ")
 ;;670
 ;;21,"00456-2614-00 ")
 ;;694
 ;;21,"00456-2614-30 ")
 ;;695
 ;;21,"00456-2614-63 ")
 ;;673
 ;;21,"00456-2614-90 ")
 ;;693
 ;;21,"00456-2615-00 ")
 ;;712
 ;;21,"00456-2615-30 ")
 ;;713
 ;;21,"00456-2615-63 ")
 ;;714
 ;;21,"00456-2615-90 ")
 ;;715
 ;;21,"00456-2616-00 ")
 ;;738
 ;;21,"00456-2616-30 ")
 ;;739
 ;;21,"00456-2616-63 ")
 ;;717
 ;;21,"00456-2616-90 ")
 ;;737
 ;;21,"00456-2617-00 ")
 ;;749
 ;;21,"00456-2617-30 ")
 ;;750
 ;;21,"00456-2617-90 ")
 ;;751
 ;;21,"00490-0126-00 ")
 ;;184
 ;;21,"00490-0126-30 ")
 ;;185
 ;;21,"00490-0126-60 ")
 ;;186
 ;;21,"00490-0126-90 ")
 ;;187
 ;;21,"00555-1069-02 ")
 ;;1124
 ;;21,"00555-1070-02 ")
 ;;1133
 ;;21,"00591-0343-01 ")
 ;;1446
 ;;21,"00591-0343-05 ")
 ;;1447
 ;;21,"00591-0343-10 ")
 ;;1448
 ;;21,"00591-0345-01 ")
 ;;1485
 ;;21,"00591-0345-05 ")
 ;;1486
 ;;21,"00591-0345-10 ")
 ;;1487
 ;;21,"00591-0404-01 ")
 ;;1441
 ;;21,"00591-2880-01 ")
 ;;1715
 ;;21,"00591-2882-01 ")
 ;;1722
 ;;21,"00591-2884-01 ")
 ;;1735
 ;;21,"00591-2886-01 ")
 ;;1751
 ;;21,"00591-3193-01 ")
 ;;1153
 ;;21,"00591-3193-05 ")
 ;;1154
 ;;21,"00591-3194-01 ")
 ;;1212
 ;;21,"00591-3194-05 ")
 ;;1213
 ;;21,"00591-3757-01 ")
 ;;1762
 ;;21,"00591-3758-01 ")
 ;;1800
 ;;21,"00591-3758-05 ")
 ;;1801
 ;;21,"00591-3759-01 ")
 ;;1857
 ;;21,"00591-3759-05 ")
 ;;1858
 ;;21,"00591-3760-01 ")
 ;;1927
 ;;21,"00591-3760-05 ")
 ;;1928
 ;;21,"00591-3761-01 ")
 ;;1908
 ;;21,"00591-3762-01 ")
 ;;1983
 ;;21,"00597-0124-37 ")
 ;;2062
 ;;21,"00597-0125-37 ")
 ;;2065
 ;;21,"00597-0126-37 ")
 ;;2068
 ;;21,"00597-0127-37 ")
 ;;2071
 ;;21,"00603-2108-02 ")
 ;;18
 ;;21,"00603-2108-25 ")
 ;;19
 ;;21,"00603-2108-28 ")
 ;;20
 ;;21,"00603-2108-32 ")
 ;;21
 ;;21,"00603-2109-02 ")
 ;;179
 ;;21,"00603-2109-25 ")
 ;;180
 ;;21,"00603-2109-28 ")
 ;;181
 ;;21,"00603-2109-32 ")
 ;;182
 ;;21,"00603-2109-34 ")
 ;;183
 ;;21,"00603-2110-02 ")
 ;;360
 ;;21,"00603-2110-16 ")
 ;;361
 ;;21,"00603-2110-28 ")
 ;;362
 ;;21,"00603-2110-32 ")
 ;;363
 ;;21,"00603-2110-33 ")
 ;;364
 ;;21,"00603-2110-60 ")
 ;;365
 ;;21,"00603-3581-21 ")
 ;;1017
 ;;21,"00603-3581-28 ")
 ;;1018
 ;;21,"00603-3582-21 ")
 ;;1044
 ;;21,"00603-3582-28 ")
 ;;1045
 ;;21,"00603-3583-21 ")
 ;;1086
 ;;21,"00603-3583-28 ")
 ;;1087
 ;;21,"00677-1978-01 ")
 ;;1419
 ;;21,"00677-1979-01 ")
 ;;1425
 ;;21,"00677-1980-01 ")
 ;;1431
 ;;21,"00677-1981-01 ")
 ;;1434
 ;;21,"00781-2271-01 ")
 ;;1763
 ;;21,"00781-2271-64 ")
 ;;1764
 ;;21,"00781-2272-01 ")
 ;;1797
 ;;21,"00781-2272-10 ")
 ;;1798
 ;;21,"00781-2272-64 ")
 ;;1799
 ;;21,"00781-2273-01 ")
 ;;1859
 ;;21,"00781-2273-10 ")
 ;;1860
 ;;21,"00781-2273-64 ")
 ;;1861
 ;;21,"00781-2274-01 ")
 ;;1929
 ;;21,"00781-2274-10 ")
 ;;1930
 ;;21,"00781-2274-64 ")
 ;;1931
 ;;21,"00781-2277-01 ")
 ;;1907
 ;;21,"00781-2279-01 ")
 ;;1982
 ;;21,"00781-2452-05 ")
 ;;629
 ;;21,"00781-2452-31 ")
 ;;630
 ;;21,"00781-2452-92 ")
 ;;631
 ;;21,"00781-2453-05 ")
 ;;652
 ;;21,"00781-2453-31 ")
 ;;653
 ;;21,"00781-2453-92 ")
 ;;654
 ;;21,"00781-2454-05 ")
 ;;674
 ;;21,"00781-2454-31 ")
 ;;675
 ;;21,"00781-2454-92 ")
 ;;676
 ;;21,"00781-2455-05 ")
 ;;696
 ;;21,"00781-2455-31 ")
 ;;697
 ;;21,"00781-2455-92 ")
 ;;698
 ;;21,"00781-2456-05 ")
 ;;718
 ;;21,"00781-2456-31 ")
 ;;719
 ;;21,"00781-2456-92 ")
 ;;720
 ;;21,"00781-2457-05 ")
 ;;742
 ;;21,"00781-2457-31 ")
 ;;743
 ;;21,"00781-2457-92 ")
 ;;744
 ;;21,"00832-0042-09 ")
 ;;22
 ;;21,"00832-0042-10 ")
 ;;23
 ;;21,"00832-0043-09 ")
 ;;177
 ;;21,"00832-0043-10 ")
 ;;178
 ;;21,"00832-0044-09 ")
 ;;366
 ;;21,"00832-0044-10 ")
 ;;367
 ;;21,"00904-2920-61 ")
 ;;1449
 ;;21,"00904-2924-61 ")
 ;;1484
 ;;21,"00904-5991-61 ")
 ;;24
 ;;21,"00904-5992-61 ")
 ;;176
 ;;21,"00904-5993-61 ")
 ;;368
 ;;21,"00904-6149-61 ")
 ;;910
 ;;21,"00904-6174-40 ")
 ;;156
 ;;21,"00904-6174-89 ")
 ;;157
 ;;21,"00904-6175-40 ")
 ;;337
 ;;21,"00904-6175-89 ")
 ;;338
 ;;21,"00904-6188-40 ")
 ;;25
 ;;21,"00904-6188-89 ")
 ;;26
 ;;21,"00904-6369-61 ")
 ;;27
 ;;21,"00904-6370-61 ")
 ;;155
 ;;21,"00904-6371-61 ")
 ;;339
 ;;21,"10135-0524-03 ")
 ;;28
 ;;21,"10135-0524-05 ")
 ;;29
 ;;21,"10135-0524-10 ")
 ;;30
 ;;21,"10135-0524-90 ")
 ;;31
 ;;21,"10135-0525-03 ")
 ;;151
 ;;21,"10135-0525-05 ")
 ;;152
 ;;21,"10135-0525-10 ")
 ;;153
 ;;21,"10135-0525-90 ")
 ;;154
 ;;21,"10135-0526-01 ")
 ;;340
 ;;21,"10135-0526-03 ")
 ;;341
 ;;21,"10135-0526-05 ")
 ;;342
 ;;21,"10135-0526-10 ")
 ;;343
 ;;21,"10135-0526-90 ")
 ;;344
 ;;21,"10544-0035-30 ")
 ;;1652
 ;;21,"10544-0541-30 ")
 ;;1653
 ;;21,"10631-0488-01 ")
 ;;1511
 ;;21,"10631-0489-01 ")
 ;;1560
 ;;21,"10631-0490-01 ")
 ;;1624
 ;;21,"10631-0490-05 ")
 ;;1625
 ;;21,"13411-0148-01 ")
 ;;285
 ;;21,"13411-0148-03 ")
 ;;286
 ;;21,"13411-0148-06 ")
 ;;287
 ;;21,"13411-0148-09 ")
 ;;288
 ;;21,"13411-0148-10 ")
 ;;289
 ;;21,"13411-0157-01 ")
 ;;101
 ;;21,"13411-0157-03 ")
 ;;102
 ;;21,"13411-0157-06 ")
 ;;103
 ;;21,"13411-0157-09 ")
 ;;104
 ;;21,"13411-0157-10 ")
 ;;105
 ;;21,"13411-0158-01 ")
 ;;463
 ;;21,"13411-0158-03 ")
 ;;464
 ;;21,"13411-0158-06 ")
 ;;465
 ;;21,"13411-0158-09 ")
 ;;466
 ;;21,"13411-0158-10 ")
 ;;467
 ;;21,"13668-0022-03 ")
 ;;32
 ;;21,"13668-0022-05 ")
 ;;33
 ;;21,"13668-0023-03 ")
 ;;158
 ;;21,"13668-0023-05 ")
 ;;159
 ;;21,"13668-0024-05 ")
 ;;348
 ;;21,"13668-0024-10 ")
 ;;349
 ;;21,"13668-0132-01 ")
 ;;1019
 ;;21,"13668-0132-05 ")
 ;;1020
 ;;21,"13668-0132-10 ")
 ;;1021
 ;;21,"13668-0132-90 ")
 ;;1022
 ;;21,"13668-0133-01 ")
 ;;1040
 ;;21,"13668-0133-05 ")
 ;;1041
 ;;21,"13668-0133-10 ")
 ;;1042
 ;;21,"13668-0133-90 ")
 ;;1043
 ;;21,"13668-0134-01 ")
 ;;1088
 ;;21,"13668-0134-05 ")
 ;;1089
 ;;21,"13668-0134-10 ")
 ;;1090
 ;;21,"13668-0134-90 ")
 ;;1091
 ;;21,"13668-0343-30 ")
 ;;2069
 ;;21,"13668-0344-30 ")
 ;;2066
 ;;21,"13668-0345-30 ")
 ;;2063
 ;;21,"13668-0346-30 ")
 ;;2060
 ;;21,"16252-0539-01 ")
 ;;1115
 ;;21,"16252-0540-01 ")
 ;;1116
 ;;21,"16252-0545-90 ")
 ;;160
 ;;21,"16590-0295-30 ")
 ;;161
 ;;21,"16590-0295-60 ")
 ;;162
 ;;21,"16590-0460-30 ")
 ;;345
 ;;21,"16590-0460-60 ")
 ;;346
 ;;21,"16590-0460-90 ")
 ;;347
 ;;21,"16590-0948-60 ")
 ;;1344
 ;;21,"21695-0151-15 ")
 ;;284
 ;;21,"21695-0403-30 ")
 ;;794
 ;;21,"21695-0404-30 ")
 ;;854
 ;;21,"21695-0408-30 ")
 ;;515
 ;;21,"21695-0408-60 ")
 ;;516
 ;;21,"21695-0410-30 ")
 ;;564
 ;;21,"21695-0511-30 ")
 ;;1451
 ;;21,"21695-0512-30 ")
 ;;1479
 ;;21,"21695-0512-90 ")
 ;;1480
 ;;21,"21695-0541-60 ")
 ;;34
 ;;21,"21695-0542-30 ")
 ;;169
 ;;21,"21695-0542-60 ")
 ;;170
 ;;21,"21695-0542-90 ")
 ;;171
 ;;21,"21695-0543-30 ")
 ;;350
 ;;21,"21695-0543-90 ")
 ;;351
 ;;21,"21695-0776-30 ")
 ;;1300
 ;;21,"21695-0803-30 ")
 ;;885
 ;;21,"21695-0807-30 ")
 ;;1385
 ;;21,"21695-0807-90 ")
 ;;1386
 ;;21,"21695-0866-90 ")
 ;;1802
 ;;21,"21695-0868-90 ")
 ;;1651
 ;;21,"21695-0908-30 ")
 ;;1168
 ;;21,"21695-0908-90 ")
 ;;1169
 ;;21,"21695-0909-30 ")
 ;;1228
 ;;21,"21695-0909-90 ")
 ;;1229
 ;;21,"21695-0916-30 ")
 ;;1932
 ;;21,"21695-0916-90 ")
 ;;1933
 ;;21,"21695-0998-30 ")
 ;;884
 ;;21,"23155-0026-01 ")
 ;;1450
 ;;21,"23155-0027-01 ")
 ;;1481
 ;;21,"23490-5055-03 ")
 ;;35
 ;;21,"23490-5056-01 ")
 ;;352
 ;;21,"23490-5056-02 ")
 ;;353
 ;;21,"23490-5057-03 ")
 ;;172
 ;;21,"23490-5057-04 ")
 ;;173
 ;;21,"23490-5057-06 ")
 ;;174
 ;;21,"23490-5057-09 ")
 ;;175
 ;;21,"23490-5447-03 ")
 ;;517
 ;;21,"23490-5447-06 ")
 ;;518
 ;;21,"23490-5450-03 ")
 ;;907
 ;;21,"23490-5450-04 ")
 ;;908
 ;;21,"23490-5991-01 ")
 ;;1167
 ;;21,"23490-5992-01 ")
 ;;1230
 ;;21,"23490-6462-01 ")
 ;;1482
 ;;21,"23490-6462-05 ")
 ;;1483
 ;;21,"23490-6463-01 ")
 ;;1512
 ;;21,"23490-6464-01 ")
 ;;1561
 ;;21,"23490-6464-09 ")
 ;;1562
 ;;21,"23490-6466-01 ")
 ;;1633
 ;;21,"23490-6466-06 ")
 ;;1634
 ;;21,"23490-6466-09 ")
 ;;1635
 ;;21,"23490-7060-01 ")
 ;;1831
 ;;21,"23490-7062-01 ")
 ;;1975
 ;;21,"24477-0515-01 ")
 ;;1136
 ;;21,"24477-0516-01 ")
 ;;1141
 ;;21,"31722-0237-10 ")
 ;;40
 ;;21,"31722-0237-90 ")
 ;;41
 ;;21,"31722-0238-10 ")
 ;;163
 ;;21,"31722-0238-90 ")
 ;;164
 ;;21,"31722-0239-10 ")
 ;;358
 ;;21,"31722-0239-90 ")
 ;;359
 ;;21,"33261-0437-02 ")
 ;;165
 ;;21,"33261-0437-30 ")
 ;;166
 ;;21,"33261-0437-60 ")
 ;;167
 ;;21,"33261-0437-90 ")
 ;;168
 ;;21,"33261-0535-02 ")
 ;;354
 ;;21,"33261-0535-30 ")
 ;;355
 ;;21,"33261-0535-60 ")
 ;;356
 ;;21,"33261-0535-90 ")
 ;;357
 ;;21,"33261-0675-00 ")
 ;;1513
 ;;21,"33261-0675-02 ")
 ;;1514
 ;;21,"33261-0675-07 ")
 ;;1515
 ;;21,"33261-0675-14 ")
 ;;1516
 ;;21,"33261-0675-20 ")
 ;;1517
 ;;21,"33261-0675-21 ")
 ;;1518
 ;;21,"33261-0675-28 ")
 ;;1519
 ;;21,"33261-0675-30 ")
 ;;1520
 ;;21,"33261-0675-60 ")
 ;;1521
 ;;21,"33261-0675-90 ")
 ;;1522
 ;;21,"33261-0824-00 ")
 ;;1803
 ;;21,"33261-0824-30 ")
 ;;1804
 ;;21,"33261-0824-60 ")
 ;;1805
 ;;21,"33261-0824-90 ")
 ;;1806
 ;;21,"33261-0825-00 ")
 ;;1934
 ;;21,"33261-0825-30 ")
 ;;1935
 ;;21,"33261-0825-60 ")
 ;;1936
 ;;21,"33261-0825-90 ")
 ;;1937
 ;;21,"33261-0826-00 ")
 ;;36
 ;;21,"33261-0826-30 ")
 ;;37
 ;;21,"33261-0826-60 ")
 ;;38
 ;;21,"33261-0826-90 ")
 ;;39
 ;;21,"33261-0836-00 ")
 ;;1563
 ;;21,"33261-0836-30 ")
 ;;1564
 ;;21,"33261-0836-60 ")
 ;;1565
 ;;21,"33261-0836-90 ")
 ;;1566
 ;;21,"33261-0840-00 ")
 ;;1387
 ;;21,"33261-0840-30 ")
 ;;1388
 ;;21,"33261-0840-60 ")
 ;;1389
 ;;21,"33261-0840-90 ")
 ;;1390
 ;;21,"33261-0844-00 ")
 ;;1292
 ;;21,"33261-0844-30 ")
 ;;1293
 ;;21,"33261-0844-60 ")
 ;;1294
 ;;21,"33261-0844-90 ")
 ;;1295
 ;;21,"33261-0982-00 ")
 ;;1849
 ;;21,"33261-0982-30 ")
 ;;1850
 ;;21,"33261-0982-60 ")
 ;;1851
 ;;21,"33261-0982-90 ")
 ;;1852
 ;;21,"33358-0109-30 ")
 ;;590
 ;;21,"33358-0222-00 ")
 ;;1889
 ;;21,"33358-0262-00 ")
 ;;1290
 ;;21,"33358-0262-30 ")
 ;;1291
 ;;21,"35356-0026-00 ")
 ;;520
 ;;21,"35356-0027-00 ")
 ;;552
 ;;21,"35356-0059-10 ")
 ;;145
 ;;21,"35356-0059-30 ")
 ;;146
 ;;21,"35356-0059-60 ")
 ;;147
 ;;21,"35356-0059-90 ")
 ;;148
 ;;21,"35356-0268-30 ")
 ;;2009
 ;;21,"35356-0510-30 ")
 ;;752
 ;;21,"35356-0511-30 ")
 ;;778
 ;;21,"35356-0739-10 ")
 ;;149
 ;;21,"35356-0740-10 ")
 ;;150
 ;;21,"35356-0774-30 ")
 ;;315
 ;;21,"35356-0774-60 ")
 ;;316
 ;;21,"35356-0858-30 ")
 ;;143
 ;;21,"35356-0858-60 ")
 ;;144
 ;;21,"35356-0866-60 ")
 ;;519
 ;;21,"35356-0907-30 ")
 ;;565
 ;;21,"35356-0907-90 ")
 ;;566
 ;;21,"35356-0915-30 ")
 ;;42
 ;;21,"35356-0917-30 ")
 ;;1792
 ;;21,"35356-0947-30 ")
 ;;829
 ;;21,"35356-0952-30 ")
 ;;1281
 ;;21,"35356-0960-30 ")
 ;;1854
 ;;21,"35356-0960-60 ")
 ;;1855
 ;;21,"35356-0960-90 ")
 ;;1856
 ;;21,"35356-0965-30 ")
 ;;1903
 ;;21,"35356-0965-60 ")
 ;;1904
 ;;21,"35356-0965-90 ")
 ;;1905
 ;;21,"35356-0971-30 ")
 ;;484
 ;;21,"35356-0971-60 ")
 ;;485
 ;;21,"35356-0971-90 ")
 ;;486
 ;;21,"42254-0072-30 ")
 ;;1853
 ;;21,"42254-0073-30 ")
 ;;1906
 ;;21,"42254-0074-30 ")
 ;;1986
 ;;21,"42254-0095-30 ")
 ;;1348
 ;;21,"42254-0095-90 ")
 ;;1349
 ;;21,"42254-0398-30 ")
 ;;779
 ;;21,"42254-0421-30 ")
 ;;725
 ;;21,"42254-0429-30 ")
 ;;1577
 ;;21,"42291-0236-90 ")
 ;;792
 ;;21,"42291-0237-90 ")
 ;;852
 ;;21,"42291-0286-10 ")
 ;;1014
 ;;21,"42291-0286-90 ")
 ;;1015
 ;;21,"42291-0287-10 ")
 ;;1047
 ;;21,"42291-0287-90 ")
 ;;1048
 ;;21,"42291-0288-10 ")
 ;;1083
 ;;21,"42291-0288-90 ")
 ;;1084
 ;;21,"42291-0640-90 ")
 ;;1125
 ;;21,"42291-0641-90 ")
 ;;1132
 ;;21,"42806-0055-05 ")
 ;;43
 ;;21,"42806-0055-09 ")
 ;;44
 ;;21,"42806-0055-10 ")
 ;;45
 ;;21,"42806-0056-05 ")
 ;;140
 ;;21,"42806-0056-09 ")
 ;;141
 ;;21,"42806-0056-10 ")
 ;;142
 ;;21,"42806-0057-05 ")
 ;;317
 ;;21,"42806-0057-09 ")
 ;;318
 ;;21,"42806-0057-10 ")
 ;;319
 ;;21,"42806-0501-01 ")
 ;;1126
 ;;21,"42806-0501-05 ")
 ;;1127
 ;;21,"42806-0501-09 ")
 ;;1128
 ;;21,"42806-0502-01 ")
 ;;1129
 ;;21,"42806-0502-05 ")
 ;;1130
 ;;21,"42806-0502-09 ")
 ;;1131
 ;;21,"43063-0011-01 ")
 ;;1693
 ;;21,"43063-0171-14 ")
 ;;1767
 ;;21,"43063-0232-30 ")
 ;;1938
 ;;21,"43063-0232-60 ")
 ;;1939
 ;;21,"43063-0233-60 ")
 ;;1793
 ;;21,"43063-0234-60 ")
 ;;1847
 ;;21,"43063-0402-60 ")
 ;;1848
 ;;21,"43063-0404-30 ")
 ;;326
 ;;21,"43063-0404-90 ")
 ;;327
 ;;21,"43353-0073-30 ")
 ;;328
 ;;21,"43353-0073-45 ")
 ;;329
 ;;21,"43353-0073-53 ")
 ;;330
 ;;21,"43353-0130-30 ")
 ;;1231
 ;;21,"43353-0130-60 ")
 ;;1232
 ;;21,"43353-0130-80 ")
 ;;1233
 ;;21,"43353-0188-30 ")
 ;;333