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

BGP51R5.m

Go to the documentation of this file.
BGP51R5 ;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,"58118-0260-09 ")
 ;;1324
 ;;21,"58118-0261-03 ")
 ;;1356
 ;;21,"58118-0261-06 ")
 ;;1357
 ;;21,"58118-0261-09 ")
 ;;1358
 ;;21,"58118-0262-03 ")
 ;;1412
 ;;21,"58118-0262-06 ")
 ;;1413
 ;;21,"58118-0262-09 ")
 ;;1414
 ;;21,"58118-2108-03 ")
 ;;79
 ;;21,"58118-2108-09 ")
 ;;80
 ;;21,"58118-2271-03 ")
 ;;1772
 ;;21,"58118-2271-09 ")
 ;;1773
 ;;21,"58118-2272-03 ")
 ;;1822
 ;;21,"58118-2272-09 ")
 ;;1823
 ;;21,"58118-2273-03 ")
 ;;1878
 ;;21,"58118-2273-09 ")
 ;;1879
 ;;21,"58118-2274-03 ")
 ;;1966
 ;;21,"58118-2274-09 ")
 ;;1967
 ;;21,"58118-2277-03 ")
 ;;1910
 ;;21,"58118-2277-09 ")
 ;;1911
 ;;21,"58118-2279-03 ")
 ;;1995
 ;;21,"58118-2279-09 ")
 ;;1996
 ;;21,"58517-0120-30 ")
 ;;423
 ;;21,"58864-0101-20 ")
 ;;494
 ;;21,"58864-0101-30 ")
 ;;495
 ;;21,"58864-0530-30 ")
 ;;1502
 ;;21,"58864-0530-60 ")
 ;;1503
 ;;21,"58864-0606-30 ")
 ;;580
 ;;21,"58864-0619-30 ")
 ;;617
 ;;21,"58864-0620-14 ")
 ;;277
 ;;21,"58864-0620-30 ")
 ;;278
 ;;21,"58864-0635-14 ")
 ;;667
 ;;21,"58864-0649-14 ")
 ;;1679
 ;;21,"58864-0649-30 ")
 ;;1680
 ;;21,"58864-0649-60 ")
 ;;1681
 ;;21,"58864-0657-30 ")
 ;;457
 ;;21,"58864-0669-14 ")
 ;;1151
 ;;21,"58864-0677-30 ")
 ;;1709
 ;;21,"58864-0706-14 ")
 ;;1606
 ;;21,"58864-0706-60 ")
 ;;1607
 ;;21,"58864-0714-30 ")
 ;;690
 ;;21,"58864-0720-30 ")
 ;;1462
 ;;21,"58864-0720-60 ")
 ;;1463
 ;;21,"58864-0724-30 ")
 ;;645
 ;;21,"58864-0810-30 ")
 ;;1072
 ;;21,"58864-0810-90 ")
 ;;1073
 ;;21,"58864-0824-01 ")
 ;;1190
 ;;21,"58864-0824-14 ")
 ;;1191
 ;;21,"58864-0873-14 ")
 ;;596
 ;;21,"58864-0873-30 ")
 ;;597
 ;;21,"58864-0966-01 ")
 ;;1192
 ;;21,"59630-0500-10 ")
 ;;1422
 ;;21,"59630-0501-10 ")
 ;;1426
 ;;21,"59630-0502-10 ")
 ;;1432
 ;;21,"59630-0503-10 ")
 ;;1437
 ;;21,"59762-1520-01 ")
 ;;81
 ;;21,"59762-1520-02 ")
 ;;82
 ;;21,"59762-1530-01 ")
 ;;254
 ;;21,"59762-1530-02 ")
 ;;255
 ;;21,"59762-1530-03 ")
 ;;256
 ;;21,"59762-1530-04 ")
 ;;257
 ;;21,"59762-1530-05 ")
 ;;258
 ;;21,"59762-1530-06 ")
 ;;259
 ;;21,"59762-1540-01 ")
 ;;426
 ;;21,"59762-1540-02 ")
 ;;427
 ;;21,"59762-1540-03 ")
 ;;428
 ;;21,"59762-1540-04 ")
 ;;429
 ;;21,"59762-1540-05 ")
 ;;430
 ;;21,"59762-6690-03 ")
 ;;1320
 ;;21,"59762-6690-05 ")
 ;;1321
 ;;21,"59762-6690-08 ")
 ;;1322
 ;;21,"59762-6691-03 ")
 ;;1359
 ;;21,"59762-6691-05 ")
 ;;1360
 ;;21,"59762-6691-08 ")
 ;;1361
 ;;21,"59762-6692-03 ")
 ;;1410
 ;;21,"59762-6692-08 ")
 ;;1411
 ;;21,"59762-6710-01 ")
 ;;2100
 ;;21,"59762-6711-01 ")
 ;;2107
 ;;21,"59762-6712-01 ")
 ;;2113
 ;;21,"59762-6720-01 ")
 ;;2124
 ;;21,"59762-6720-05 ")
 ;;2125
 ;;21,"59762-6721-01 ")
 ;;2138
 ;;21,"59762-6721-05 ")
 ;;2139
 ;;21,"59762-6722-01 ")
 ;;2150
 ;;21,"59762-6722-05 ")
 ;;2151
 ;;21,"59762-6723-01 ")
 ;;2157
 ;;21,"59762-6730-01 ")
 ;;2167
 ;;21,"59762-6730-05 ")
 ;;2168
 ;;21,"59762-6731-01 ")
 ;;2178
 ;;21,"59762-6731-05 ")
 ;;2179
 ;;21,"59762-6732-01 ")
 ;;2192
 ;;21,"59762-6732-05 ")
 ;;2193
 ;;21,"59762-6733-01 ")
 ;;2203
 ;;21,"60429-0143-05 ")
 ;;83
 ;;21,"60429-0143-30 ")
 ;;84
 ;;21,"60429-0143-90 ")
 ;;85
 ;;21,"60429-0144-05 ")
 ;;251
 ;;21,"60429-0144-30 ")
 ;;252
 ;;21,"60429-0144-90 ")
 ;;253
 ;;21,"60429-0145-05 ")
 ;;431
 ;;21,"60429-0145-30 ")
 ;;432
 ;;21,"60429-0145-90 ")
 ;;433
 ;;21,"60429-0197-60 ")
 ;;1467
 ;;21,"60429-0198-30 ")
 ;;1617
 ;;21,"60429-0198-60 ")
 ;;1618
 ;;21,"60429-0198-90 ")
 ;;1619
 ;;21,"60429-0237-90 ")
 ;;1557
 ;;21,"60505-0007-04 ")
 ;;761
 ;;21,"60505-0007-08 ")
 ;;762
 ;;21,"60505-0008-04 ")
 ;;819
 ;;21,"60505-0008-08 ")
 ;;820
 ;;21,"60505-0009-04 ")
 ;;867
 ;;21,"60505-0009-08 ")
 ;;868
 ;;21,"60505-0010-04 ")
 ;;922
 ;;21,"60505-0010-08 ")
 ;;923
 ;;21,"60505-0014-06 ")
 ;;578
 ;;21,"60505-0014-08 ")
 ;;579
 ;;21,"60505-0015-06 ")
 ;;594
 ;;21,"60505-0015-08 ")
 ;;595
 ;;21,"60505-0016-06 ")
 ;;615
 ;;21,"60505-0016-08 ")
 ;;616
 ;;21,"60505-0193-02 ")
 ;;86
 ;;21,"60505-0193-03 ")
 ;;87
 ;;21,"60505-0194-02 ")
 ;;247
 ;;21,"60505-0194-03 ")
 ;;248
 ;;21,"60505-0195-02 ")
 ;;436
 ;;21,"60505-0195-03 ")
 ;;437
 ;;21,"60505-0210-03 ")
 ;;640
 ;;21,"60505-0210-09 ")
 ;;641
 ;;21,"60505-0211-03 ")
 ;;662
 ;;21,"60505-0211-09 ")
 ;;663
 ;;21,"60505-0212-03 ")
 ;;685
 ;;21,"60505-0212-09 ")
 ;;686
 ;;21,"60505-0213-03 ")
 ;;706
 ;;21,"60505-0213-09 ")
 ;;707
 ;;21,"60505-0214-03 ")
 ;;732
 ;;21,"60505-0214-09 ")
 ;;733
 ;;21,"60505-2740-01 ")
 ;;1547
 ;;21,"60505-2741-01 ")
 ;;1604
 ;;21,"60505-2741-05 ")
 ;;1605
 ;;21,"60505-2742-01 ")
 ;;1682
 ;;21,"60505-2742-05 ")
 ;;1683
 ;;21,"60598-0120-30 ")
 ;;959
 ;;21,"60598-0120-90 ")
 ;;960
 ;;21,"60598-0121-30 ")
 ;;961
 ;;21,"60598-0121-90 ")
 ;;962
 ;;21,"60598-0122-30 ")
 ;;971
 ;;21,"60598-0123-30 ")
 ;;981
 ;;21,"60598-0123-90 ")
 ;;982
 ;;21,"60598-0124-30 ")
 ;;991
 ;;21,"60598-0124-90 ")
 ;;992
 ;;21,"60760-0072-30 ")
 ;;912
 ;;21,"60760-0072-90 ")
 ;;913
 ;;21,"60760-0182-30 ")
 ;;1318
 ;;21,"60760-0182-90 ")
 ;;1319
 ;;21,"60760-0183-30 ")
 ;;1362
 ;;21,"60760-0183-90 ")
 ;;1363
 ;;21,"60760-0238-30 ")
 ;;249
 ;;21,"60760-0238-90 ")
 ;;250
 ;;21,"60760-0239-30 ")
 ;;434
 ;;21,"60760-0239-90 ")
 ;;435
 ;;21,"60760-0984-30 ")
 ;;1684
 ;;21,"60760-0984-90 ")
 ;;1685
 ;;21,"60760-0985-30 ")
 ;;1603
 ;;21,"62037-0548-01 ")
 ;;576
 ;;21,"62037-0548-10 ")
 ;;577
 ;;21,"62037-0549-01 ")
 ;;592
 ;;21,"62037-0549-10 ")
 ;;593
 ;;21,"62037-0550-01 ")
 ;;611
 ;;21,"62037-0550-10 ")
 ;;612
 ;;21,"62037-0597-05 ")
 ;;759
 ;;21,"62037-0597-90 ")
 ;;760
 ;;21,"62037-0598-05 ")
 ;;817
 ;;21,"62037-0598-90 ")
 ;;818
 ;;21,"62037-0599-05 ")
 ;;865
 ;;21,"62037-0599-90 ")
 ;;866
 ;;21,"62037-0600-05 ")
 ;;920
 ;;21,"62037-0600-90 ")
 ;;921
 ;;21,"62037-0691-30 ")
 ;;969
 ;;21,"62037-0691-90 ")
 ;;970
 ;;21,"62037-0692-30 ")
 ;;979
 ;;21,"62037-0692-90 ")
 ;;980
 ;;21,"62037-0693-30 ")
 ;;989
 ;;21,"62037-0693-90 ")
 ;;990
 ;;21,"62037-0694-30 ")
 ;;1000
 ;;21,"62037-0694-90 ")
 ;;1001
 ;;21,"62037-0695-30 ")
 ;;1008
 ;;21,"62037-0695-90 ")
 ;;1009
 ;;21,"62037-0696-05 ")
 ;;642
 ;;21,"62037-0696-30 ")
 ;;643
 ;;21,"62037-0696-90 ")
 ;;644
 ;;21,"62037-0697-05 ")
 ;;664
 ;;21,"62037-0697-30 ")
 ;;665
 ;;21,"62037-0697-90 ")
 ;;666
 ;;21,"62037-0698-05 ")
 ;;687
 ;;21,"62037-0698-30 ")
 ;;688
 ;;21,"62037-0698-90 ")
 ;;689
 ;;21,"62037-0699-05 ")
 ;;708
 ;;21,"62037-0699-30 ")
 ;;709
 ;;21,"62037-0699-90 ")
 ;;710
 ;;21,"62037-0700-05 ")
 ;;734
 ;;21,"62037-0700-30 ")
 ;;735
 ;;21,"62037-0700-90 ")
 ;;736
 ;;21,"62175-0260-37 ")
 ;;1314
 ;;21,"62175-0260-43 ")
 ;;1315
 ;;21,"62175-0260-46 ")
 ;;1316
 ;;21,"62175-0260-55 ")
 ;;1317
 ;;21,"62175-0261-37 ")
 ;;1364
 ;;21,"62175-0261-43 ")
 ;;1365
 ;;21,"62175-0261-46 ")
 ;;1366
 ;;21,"62175-0261-55 ")
 ;;1367
 ;;21,"62175-0262-32 ")
 ;;1407
 ;;21,"62175-0262-37 ")
 ;;1408
 ;;21,"62175-0262-46 ")
 ;;1409
 ;;21,"62175-0485-37 ")
 ;;1704
 ;;21,"62175-0486-37 ")
 ;;1725
 ;;21,"62175-0487-37 ")
 ;;1743
 ;;21,"62175-0570-37 ")
 ;;1708
 ;;21,"62175-0571-37 ")
 ;;1731
 ;;21,"62175-0572-37 ")
 ;;1747
 ;;21,"62175-0580-37 ")
 ;;1717
 ;;21,"62175-0581-37 ")
 ;;1724
 ;;21,"62175-0582-37 ")
 ;;1737
 ;;21,"62175-0583-37 ")
 ;;1753
 ;;21,"62451-0733-19 ")
 ;;598
 ;;21,"62451-0734-19 ")
 ;;618
 ;;21,"62451-8841-54 ")
 ;;1188
 ;;21,"62451-8841-72 ")
 ;;1189
 ;;21,"62451-8851-54 ")
 ;;1255
 ;;21,"62451-8851-72 ")
 ;;1256
 ;;21,"62584-0974-01 ")
 ;;763
 ;;21,"62584-0974-11 ")
 ;;764
 ;;21,"62584-0974-30 ")
 ;;765
 ;;21,"62584-0974-90 ")
 ;;766
 ;;21,"62584-0975-01 ")
 ;;822
 ;;21,"62584-0975-11 ")
 ;;823
 ;;21,"62584-0975-30 ")
 ;;824
 ;;21,"62584-0975-90 ")
 ;;825
 ;;21,"62584-0976-01 ")
 ;;869
 ;;21,"62584-0976-11 ")
 ;;870
 ;;21,"62584-0976-30 ")
 ;;871
 ;;21,"62584-0976-90 ")
 ;;872
 ;;21,"62584-0977-01 ")
 ;;924
 ;;21,"62584-0977-11 ")
 ;;925
 ;;21,"62584-0977-30 ")
 ;;926
 ;;21,"62584-0977-90 ")
 ;;927
 ;;21,"63304-0435-01 ")
 ;;1028
 ;;21,"63304-0436-01 ")
 ;;1070
 ;;21,"63304-0437-01 ")
 ;;1101
 ;;21,"63304-0488-01 ")
 ;;1508
 ;;21,"63304-0489-01 ")
 ;;1556
 ;;21,"63304-0499-30 ")
 ;;2158
 ;;21,"63304-0500-30 ")
 ;;2191
 ;;21,"63304-0501-30 ")
 ;;2101
 ;;21,"63304-0502-30 ")
 ;;2106
 ;;21,"63304-0503-30 ")
 ;;2114
 ;;21,"63304-0587-30 ")
 ;;2123
 ;;21,"63304-0588-30 ")
 ;;2140
 ;;21,"63304-0589-30 ")
 ;;2149
 ;;21,"63304-0590-30 ")
 ;;2166
 ;;21,"63304-0591-30 ")
 ;;2180
 ;;21,"63304-0603-30 ")
 ;;2204
 ;;21,"63629-1454-01 ")
 ;;1880
 ;;21,"63629-1559-01 ")
 ;;1312
 ;;21,"63629-1559-02 ")
 ;;1313
 ;;21,"63629-1560-01 ")
 ;;1368
 ;;21,"63629-1561-01 ")
 ;;1403
 ;;21,"63629-1561-02 ")
 ;;1404
 ;;21,"63629-1561-03 ")
 ;;1405
 ;;21,"63629-1561-04 ")
 ;;1406
 ;;21,"63629-1565-01 ")
 ;;438
 ;;21,"63629-1565-02 ")
 ;;439
 ;;21,"63629-1565-03 ")
 ;;440
 ;;21,"63629-1566-01 ")
 ;;242
 ;;21,"63629-1566-02 ")
 ;;243
 ;;21,"63629-1566-03 ")
 ;;244
 ;;21,"63629-1566-04 ")
 ;;245
 ;;21,"63629-1566-05 ")
 ;;246
 ;;21,"63629-1597-01 ")
 ;;1071
 ;;21,"63629-3052-01 ")
 ;;1686
 ;;21,"63629-3052-02 ")
 ;;1687
 ;;21,"63629-3564-01 ")
 ;;911
 ;;21,"63629-3649-01 ")
 ;;532
 ;;21,"63629-3678-01 ")
 ;;88
 ;;21,"63629-3750-01 ")
 ;;1214
 ;;21,"63629-4073-01 ")
 ;;1602
 ;;21,"63629-4089-01 ")
 ;;1152
 ;;21,"63629-4337-01 ")
 ;;1504
 ;;21,"63629-4717-01 ")
 ;;1507
 ;;21,"63739-0079-10 ")
 ;;496
 ;;21,"63739-0080-10 ")
 ;;531
 ;;21,"63739-0283-10 ")
 ;;803
 ;;21,"63739-0283-31 ")
 ;;772
 ;;21,"63739-0284-10 ")
 ;;855
 ;;21,"63739-0284-31 ")
 ;;821
 ;;21,"63739-0285-04 ")
 ;;873
 ;;21,"63739-0285-10 ")
 ;;874
 ;;21,"63739-0285-31 ")
 ;;875
 ;;21,"63739-0451-10 ")
 ;;1187
 ;;21,"63739-0452-10 ")
 ;;1254
 ;;21,"64455-0771-47 ")
 ;;473
 ;;21,"64455-0771-55 ")
 ;;474
 ;;21,"64455-0772-47 ")
 ;;506
 ;;21,"64455-0791-47 ")
 ;;539
 ;;21,"64455-0792-47 ")
 ;;559
 ;;21,"64455-0795-30 ")
 ;;756
 ;;21,"64455-0795-42 ")
 ;;757
 ;;21,"64455-0795-49 ")
 ;;758
 ;;21,"64455-0796-30 ")
 ;;809
 ;;21,"64455-0796-42 ")
 ;;810
 ;;21,"64455-0796-49 ")
 ;;811
 ;;21,"64455-0796-50 ")
 ;;812
 ;;21,"64455-0797-30 ")
 ;;856
 ;;21,"64455-0797-42 ")
 ;;857
 ;;21,"64455-0797-49 ")
 ;;858
 ;;21,"64455-0798-30 ")
 ;;915
 ;;21,"64455-0798-42 ")
 ;;916
 ;;21,"64455-0799-42 ")
 ;;950
 ;;21,"64679-0421-01 ")
 ;;91
 ;;21,"64679-0422-01 ")
 ;;267
 ;;21,"64679-0422-02 ")
 ;;268
 ;;21,"64679-0423-01 ")
 ;;445
 ;;21,"64679-0423-02 ")
 ;;446
 ;;21,"65084-0412-18 ")
 ;;1200
 ;;21,"65162-0006-09 ")
 ;;89
 ;;21,"65162-0006-50 ")
 ;;90
 ;;21,"65162-0007-09 ")
 ;;269
 ;;21,"65162-0007-50 ")
 ;;270
 ;;21,"65162-0008-09 ")
 ;;443
 ;;21,"65162-0008-50 ")
 ;;444
 ;;21,"65243-0028-09 ")
 ;;1062
 ;;21,"65243-0054-09 ")
 ;;1264
 ;;21,"65243-0111-09 ")
 ;;1109
 ;;21,"65243-0260-09 ")
 ;;1669
 ;;21,"65243-0311-09 ")
 ;;1061
 ;;21,"65243-0312-09 ")
 ;;1110
 ;;21,"65243-0312-18 ")
 ;;1111
 ;;21,"65243-0317-09 ")
 ;;1199
 ;;21,"65243-0318-09 ")
 ;;1263
 ;;21,"65597-0110-10 ")
 ;;2031
 ;;21,"65597-0110-30 ")
 ;;2032
 ;;21,"65597-0110-90 ")
 ;;2033
 ;;21,"65597-0111-10 ")
 ;;2037
 ;;21,"65597-0111-30 ")
 ;;2038
 ;;21,"65597-0111-90 ")
 ;;2039
 ;;21,"65597-0112-10 ")
 ;;2034
 ;;21,"65597-0112-30 ")
 ;;2035
 ;;21,"65597-0112-90 ")
 ;;2036
 ;;21,"65597-0113-10 ")
 ;;2041
 ;;21,"65597-0113-30 ")
 ;;2042
 ;;21,"65597-0113-90 ")
 ;;2043
 ;;21,"65597-0114-30 ")
 ;;2078
 ;;21,"65597-0114-90 ")
 ;;2079
 ;;21,"65597-0115-30 ")
 ;;2080
 ;;21,"65597-0115-90 ")
 ;;2081
 ;;21,"65597-0116-30 ")
 ;;2082
 ;;21,"65597-0116-90 ")
 ;;2083
 ;;21,"65597-0117-30 ")
 ;;2084
 ;;21,"65597-0117-90 ")
 ;;2085
 ;;21,"65597-0118-30 ")
 ;;2086
 ;;21,"65597-0118-90 ")
 ;;2087
 ;;21,"65862-0101-05 ")
 ;;92
 ;;21,"65862-0101-90 ")
 ;;93
 ;;21,"65862-0101-99 ")
 ;;94
 ;;21,"65862-0102-05 ")
 ;;264
 ;;21,"65862-0102-90 ")
 ;;265
 ;;21,"65862-0102-99 ")
 ;;266
 ;;21,"65862-0103-05 ")
 ;;447
 ;;21,"65862-0103-90 ")
 ;;448
 ;;21,"65862-0103-99 ")
 ;;449
 ;;21,"65862-0582-01 ")
 ;;1777
 ;;21,"65862-0582-05 ")
 ;;1778
 ;;21,"65862-0583-01 ")
 ;;1824
 ;;21,"65862-0583-05 ")
 ;;1825
 ;;21,"65862-0584-01 ")
 ;;1881
 ;;21,"65862-0584-05 ")
 ;;1882
 ;;21,"65862-0585-01 ")
 ;;1912
 ;;21,"65862-0585-05 ")
 ;;1913
 ;;21,"65862-0586-01 ")
 ;;1968
 ;;21,"65862-0586-05 ")
 ;;1969
 ;;21,"65862-0587-01 ")
 ;;1997
 ;;21,"65862-0587-05 ")
 ;;1998
 ;;21,"65862-0673-01 ")
 ;;1032
 ;;21,"65862-0673-99 ")
 ;;1033
 ;;21,"65862-0674-01 ")
 ;;1059
 ;;21,"65862-0674-99 ")
 ;;1060
 ;;21,"65862-0675-01 ")
 ;;1112
 ;;21,"65862-0675-99 ")
 ;;1113
 ;;21,"66105-0528-01 ")
 ;;272
 ;;21,"66105-0528-03 ")
 ;;273
 ;;21,"66105-0528-06 ")
 ;;274
 ;;21,"66105-0528-09 ")
 ;;275