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

BGP51O3.m

Go to the documentation of this file.
BGP51O3 ;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,"42254-0427-10 ")
 ;;1446
 ;;21,"42254-0427-90 ")
 ;;1447
 ;;21,"42291-0200-10 ")
 ;;173
 ;;21,"42291-0530-01 ")
 ;;2351
 ;;21,"42549-0303-30 ")
 ;;174
 ;;21,"42549-0303-90 ")
 ;;175
 ;;21,"42549-0308-30 ")
 ;;1169
 ;;21,"42549-0308-60 ")
 ;;1170
 ;;21,"42549-0308-90 ")
 ;;938
 ;;21,"42549-0321-40 ")
 ;;2076
 ;;21,"42549-0503-28 ")
 ;;176
 ;;21,"42549-0503-30 ")
 ;;177
 ;;21,"42549-0503-40 ")
 ;;178
 ;;21,"42549-0503-60 ")
 ;;179
 ;;21,"42549-0503-90 ")
 ;;180
 ;;21,"42549-0508-30 ")
 ;;1171
 ;;21,"42549-0508-60 ")
 ;;1172
 ;;21,"42549-0508-90 ")
 ;;1173
 ;;21,"42549-0521-12 ")
 ;;2070
 ;;21,"42549-0521-30 ")
 ;;2071
 ;;21,"42549-0521-40 ")
 ;;2072
 ;;21,"42549-0521-60 ")
 ;;2073
 ;;21,"42549-0521-81 ")
 ;;2074
 ;;21,"42549-0521-90 ")
 ;;2075
 ;;21,"42549-0545-30 ")
 ;;1630
 ;;21,"42549-0559-30 ")
 ;;2348
 ;;21,"42549-0559-56 ")
 ;;2349
 ;;21,"42549-0559-60 ")
 ;;2350
 ;;21,"42549-0641-30 ")
 ;;840
 ;;21,"42549-0641-60 ")
 ;;841
 ;;21,"42549-0641-90 ")
 ;;842
 ;;21,"42549-0650-30 ")
 ;;1439
 ;;21,"42549-0652-30 ")
 ;;1740
 ;;21,"42549-0652-60 ")
 ;;1741
 ;;21,"42549-0652-90 ")
 ;;1742
 ;;21,"42549-0682-07 ")
 ;;159
 ;;21,"42549-0682-15 ")
 ;;160
 ;;21,"42549-0682-20 ")
 ;;161
 ;;21,"42549-0682-28 ")
 ;;162
 ;;21,"42549-0682-30 ")
 ;;163
 ;;21,"42549-0682-40 ")
 ;;164
 ;;21,"42549-0682-45 ")
 ;;165
 ;;21,"42549-0682-56 ")
 ;;166
 ;;21,"42549-0682-60 ")
 ;;167
 ;;21,"42549-0682-62 ")
 ;;168
 ;;21,"42549-0682-72 ")
 ;;169
 ;;21,"42549-0682-82 ")
 ;;170
 ;;21,"42549-0682-84 ")
 ;;171
 ;;21,"42549-0682-90 ")
 ;;172
 ;;21,"43063-0050-03 ")
 ;;1174
 ;;21,"43063-0050-04 ")
 ;;1175
 ;;21,"43063-0050-06 ")
 ;;1176
 ;;21,"43063-0239-10 ")
 ;;1440
 ;;21,"43063-0239-15 ")
 ;;1441
 ;;21,"43063-0239-20 ")
 ;;1442
 ;;21,"43063-0239-21 ")
 ;;1443
 ;;21,"43063-0239-30 ")
 ;;1444
 ;;21,"43063-0239-40 ")
 ;;1445
 ;;21,"43063-0302-10 ")
 ;;149
 ;;21,"43063-0302-14 ")
 ;;150
 ;;21,"43063-0302-15 ")
 ;;151
 ;;21,"43063-0302-20 ")
 ;;152
 ;;21,"43063-0302-21 ")
 ;;153
 ;;21,"43063-0302-24 ")
 ;;154
 ;;21,"43063-0302-30 ")
 ;;155
 ;;21,"43063-0302-40 ")
 ;;156
 ;;21,"43063-0302-60 ")
 ;;157
 ;;21,"43063-0302-98 ")
 ;;158
 ;;21,"43063-0407-20 ")
 ;;2345
 ;;21,"43063-0407-30 ")
 ;;2346
 ;;21,"43063-0407-60 ")
 ;;2347
 ;;21,"43063-0409-01 ")
 ;;2077
 ;;21,"43063-0409-10 ")
 ;;2078
 ;;21,"43063-0409-14 ")
 ;;2079
 ;;21,"43063-0409-20 ")
 ;;2080
 ;;21,"43063-0409-28 ")
 ;;2081
 ;;21,"43063-0409-30 ")
 ;;2082
 ;;21,"43063-0409-40 ")
 ;;2083
 ;;21,"43063-0409-60 ")
 ;;2084
 ;;21,"43063-0409-90 ")
 ;;2085
 ;;21,"43063-0409-93 ")
 ;;2086
 ;;21,"43063-0419-01 ")
 ;;1743
 ;;21,"43063-0419-10 ")
 ;;1744
 ;;21,"43063-0419-12 ")
 ;;1745
 ;;21,"43063-0419-14 ")
 ;;1746
 ;;21,"43063-0419-20 ")
 ;;1747
 ;;21,"43063-0419-24 ")
 ;;1748
 ;;21,"43063-0419-28 ")
 ;;1749
 ;;21,"43063-0419-30 ")
 ;;1750
 ;;21,"43063-0419-40 ")
 ;;1751
 ;;21,"43063-0419-60 ")
 ;;1752
 ;;21,"43063-0419-90 ")
 ;;1753
 ;;21,"43063-0419-93 ")
 ;;1754
 ;;21,"43063-0460-90 ")
 ;;847
 ;;21,"43063-0494-10 ")
 ;;848
 ;;21,"43063-0494-15 ")
 ;;849
 ;;21,"43063-0494-21 ")
 ;;850
 ;;21,"43093-0101-01 ")
 ;;711
 ;;21,"43353-0183-21 ")
 ;;1185
 ;;21,"43353-0183-30 ")
 ;;1186
 ;;21,"43353-0183-45 ")
 ;;1187
 ;;21,"43353-0183-53 ")
 ;;1188
 ;;21,"43353-0183-60 ")
 ;;1189
 ;;21,"43353-0183-80 ")
 ;;1190
 ;;21,"43353-0183-92 ")
 ;;1191
 ;;21,"43353-0436-53 ")
 ;;2052
 ;;21,"43353-0436-60 ")
 ;;2053
 ;;21,"43353-0436-70 ")
 ;;2054
 ;;21,"43353-0436-80 ")
 ;;2055
 ;;21,"43353-0779-30 ")
 ;;1766
 ;;21,"43353-0779-53 ")
 ;;1767
 ;;21,"43353-0779-60 ")
 ;;1768
 ;;21,"43353-0779-70 ")
 ;;1769
 ;;21,"43353-0779-80 ")
 ;;1770
 ;;21,"43353-0791-53 ")
 ;;139
 ;;21,"43353-0791-60 ")
 ;;140
 ;;21,"43353-0791-70 ")
 ;;141
 ;;21,"43386-0480-24 ")
 ;;2354
 ;;21,"43386-0480-26 ")
 ;;2355
 ;;21,"43386-0480-28 ")
 ;;2356
 ;;21,"43547-0225-10 ")
 ;;1764
 ;;21,"43547-0225-50 ")
 ;;1765
 ;;21,"43547-0226-10 ")
 ;;2056
 ;;21,"43547-0226-50 ")
 ;;2057
 ;;21,"43683-0120-30 ")
 ;;1177
 ;;21,"45861-0013-00 ")
 ;;937
 ;;21,"45861-0103-01 ")
 ;;1388
 ;;21,"47463-0055-15 ")
 ;;142
 ;;21,"47463-0055-20 ")
 ;;143
 ;;21,"47463-0055-30 ")
 ;;144
 ;;21,"47463-0055-40 ")
 ;;145
 ;;21,"47463-0055-60 ")
 ;;146
 ;;21,"47463-0055-71 ")
 ;;147
 ;;21,"47463-0055-90 ")
 ;;148
 ;;21,"47463-0080-15 ")
 ;;1178
 ;;21,"47463-0080-20 ")
 ;;1179
 ;;21,"47463-0080-30 ")
 ;;1180
 ;;21,"47463-0080-40 ")
 ;;1181
 ;;21,"47463-0080-60 ")
 ;;1182
 ;;21,"47463-0080-71 ")
 ;;1183
 ;;21,"47463-0080-90 ")
 ;;1184
 ;;21,"47463-0081-30 ")
 ;;1412
 ;;21,"47463-0082-30 ")
 ;;843
 ;;21,"47463-0082-40 ")
 ;;844
 ;;21,"47463-0082-60 ")
 ;;845
 ;;21,"47463-0082-90 ")
 ;;846
 ;;21,"47463-0107-90 ")
 ;;1
 ;;21,"47463-0263-90 ")
 ;;924
 ;;21,"47463-0507-60 ")
 ;;1436
 ;;21,"47463-0507-84 ")
 ;;1437
 ;;21,"47463-0507-90 ")
 ;;1438
 ;;21,"47463-0514-30 ")
 ;;1761
 ;;21,"47463-0514-60 ")
 ;;1762
 ;;21,"47463-0514-90 ")
 ;;1763
 ;;21,"47463-0515-20 ")
 ;;2058
 ;;21,"47463-0515-30 ")
 ;;2059
 ;;21,"47463-0515-60 ")
 ;;2060
 ;;21,"47463-0515-71 ")
 ;;2061
 ;;21,"47463-0515-90 ")
 ;;2062
 ;;21,"47463-0616-90 ")
 ;;2352
 ;;21,"47463-0622-60 ")
 ;;2353
 ;;21,"47463-0848-90 ")
 ;;13
 ;;21,"47463-0849-60 ")
 ;;492
 ;;21,"47463-0849-90 ")
 ;;493
 ;;21,"49999-0034-01 ")
 ;;1192
 ;;21,"49999-0034-07 ")
 ;;1193
 ;;21,"49999-0034-10 ")
 ;;1194
 ;;21,"49999-0034-12 ")
 ;;1195
 ;;21,"49999-0034-15 ")
 ;;1196
 ;;21,"49999-0034-20 ")
 ;;1197
 ;;21,"49999-0034-21 ")
 ;;1198
 ;;21,"49999-0034-30 ")
 ;;1199
 ;;21,"49999-0034-60 ")
 ;;1200
 ;;21,"49999-0034-90 ")
 ;;1201
 ;;21,"49999-0044-10 ")
 ;;551
 ;;21,"49999-0044-14 ")
 ;;552
 ;;21,"49999-0044-15 ")
 ;;553
 ;;21,"49999-0044-18 ")
 ;;554
 ;;21,"49999-0044-20 ")
 ;;555
 ;;21,"49999-0044-30 ")
 ;;556
 ;;21,"49999-0044-40 ")
 ;;557
 ;;21,"49999-0044-60 ")
 ;;558
 ;;21,"49999-0044-90 ")
 ;;559
 ;;21,"49999-0046-14 ")
 ;;2357
 ;;21,"49999-0046-20 ")
 ;;2358
 ;;21,"49999-0046-30 ")
 ;;2359
 ;;21,"49999-0046-60 ")
 ;;2360
 ;;21,"49999-0048-01 ")
 ;;1771
 ;;21,"49999-0048-20 ")
 ;;1772
 ;;21,"49999-0048-30 ")
 ;;1773
 ;;21,"49999-0048-40 ")
 ;;1774
 ;;21,"49999-0048-60 ")
 ;;1775
 ;;21,"49999-0048-90 ")
 ;;1776
 ;;21,"49999-0064-00 ")
 ;;125
 ;;21,"49999-0064-01 ")
 ;;126
 ;;21,"49999-0064-06 ")
 ;;127
 ;;21,"49999-0064-07 ")
 ;;128
 ;;21,"49999-0064-10 ")
 ;;129
 ;;21,"49999-0064-14 ")
 ;;130
 ;;21,"49999-0064-15 ")
 ;;131
 ;;21,"49999-0064-18 ")
 ;;132
 ;;21,"49999-0064-20 ")
 ;;133
 ;;21,"49999-0064-30 ")
 ;;134
 ;;21,"49999-0064-40 ")
 ;;135
 ;;21,"49999-0064-50 ")
 ;;136
 ;;21,"49999-0064-60 ")
 ;;137
 ;;21,"49999-0064-90 ")
 ;;138
 ;;21,"49999-0065-01 ")
 ;;2048
 ;;21,"49999-0065-12 ")
 ;;2049
 ;;21,"49999-0065-20 ")
 ;;2050
 ;;21,"49999-0065-30 ")
 ;;2051
 ;;21,"49999-0065-40 ")
 ;;1898
 ;;21,"49999-0065-60 ")
 ;;2046
 ;;21,"49999-0065-90 ")
 ;;2047
 ;;21,"49999-0274-10 ")
 ;;877
 ;;21,"49999-0274-21 ")
 ;;878
 ;;21,"49999-0363-01 ")
 ;;1542
 ;;21,"49999-0363-15 ")
 ;;1543
 ;;21,"49999-0363-16 ")
 ;;1544
 ;;21,"49999-0363-18 ")
 ;;1545
 ;;21,"49999-0363-20 ")
 ;;1546
 ;;21,"49999-0363-30 ")
 ;;1547
 ;;21,"49999-0363-60 ")
 ;;1548
 ;;21,"49999-0363-90 ")
 ;;1549
 ;;21,"49999-0791-00 ")
 ;;774
 ;;21,"49999-0791-21 ")
 ;;775
 ;;21,"49999-0791-30 ")
 ;;776
 ;;21,"50111-0563-01 ")
 ;;1143
 ;;21,"50111-0563-02 ")
 ;;1144
 ;;21,"50111-0563-03 ")
 ;;1145
 ;;21,"50436-3024-01 ")
 ;;1518
 ;;21,"50436-3024-02 ")
 ;;1519
 ;;21,"50436-3024-03 ")
 ;;1520
 ;;21,"50436-3435-01 ")
 ;;474
 ;;21,"50436-3435-02 ")
 ;;475
 ;;21,"50436-3435-03 ")
 ;;476
 ;;21,"50436-3435-04 ")
 ;;477
 ;;21,"50436-3444-03 ")
 ;;674
 ;;21,"50436-3444-04 ")
 ;;675
 ;;21,"50436-4026-01 ")
 ;;1878
 ;;21,"50436-4026-03 ")
 ;;1879
 ;;21,"50436-4027-01 ")
 ;;1990
 ;;21,"50436-4027-02 ")
 ;;1991
 ;;21,"50436-4027-03 ")
 ;;1992
 ;;21,"50436-4027-04 ")
 ;;1993
 ;;21,"50436-4027-05 ")
 ;;1994
 ;;21,"50436-4841-01 ")
 ;;886
 ;;21,"50436-4841-02 ")
 ;;887
 ;;21,"50436-4841-03 ")
 ;;888
 ;;21,"50436-4841-04 ")
 ;;889
 ;;21,"50436-4842-01 ")
 ;;1135
 ;;21,"50436-4842-02 ")
 ;;1136
 ;;21,"50436-4842-03 ")
 ;;1137
 ;;21,"50436-4842-04 ")
 ;;1138
 ;;21,"50436-7601-01 ")
 ;;2263
 ;;21,"50436-9802-01 ")
 ;;770
 ;;21,"50436-9802-03 ")
 ;;771
 ;;21,"50436-9802-05 ")
 ;;772
 ;;21,"50436-9802-06 ")
 ;;773
 ;;21,"50458-0625-60 ")
 ;;706
 ;;21,"50580-0280-10 ")
 ;;879
 ;;21,"50580-0874-11 ")
 ;;1372
 ;;21,"51079-0644-01 ")
 ;;1139
 ;;21,"51079-0644-17 ")
 ;;1140
 ;;21,"51079-0644-19 ")
 ;;1141
 ;;21,"51079-0644-20 ")
 ;;1142
 ;;21,"51079-0819-01 ")
 ;;478
 ;;21,"51079-0819-20 ")
 ;;479
 ;;21,"51525-5901-01 ")
 ;;3
 ;;21,"51991-0467-01 ")
 ;;777
 ;;21,"51991-0468-01 ")
 ;;1146
 ;;21,"51991-0468-10 ")
 ;;1147
 ;;21,"52244-0429-10 ")
 ;;1895
 ;;21,"52244-0449-10 ")
 ;;2196
 ;;21,"52959-0006-10 ")
 ;;873
 ;;21,"52959-0006-20 ")
 ;;874
 ;;21,"52959-0006-30 ")
 ;;875
 ;;21,"52959-0006-90 ")
 ;;876
 ;;21,"52959-0026-00 ")
 ;;452
 ;;21,"52959-0026-03 ")
 ;;453
 ;;21,"52959-0026-06 ")
 ;;454
 ;;21,"52959-0026-10 ")
 ;;455
 ;;21,"52959-0026-12 ")
 ;;456
 ;;21,"52959-0026-14 ")
 ;;457
 ;;21,"52959-0026-15 ")
 ;;458
 ;;21,"52959-0026-20 ")
 ;;459
 ;;21,"52959-0026-21 ")
 ;;460
 ;;21,"52959-0026-24 ")
 ;;461
 ;;21,"52959-0026-25 ")
 ;;462
 ;;21,"52959-0026-28 ")
 ;;463
 ;;21,"52959-0026-30 ")
 ;;464
 ;;21,"52959-0026-32 ")
 ;;465
 ;;21,"52959-0026-40 ")
 ;;466
 ;;21,"52959-0026-45 ")
 ;;467
 ;;21,"52959-0026-50 ")
 ;;468
 ;;21,"52959-0026-52 ")
 ;;469
 ;;21,"52959-0026-56 ")
 ;;470
 ;;21,"52959-0026-60 ")
 ;;471
 ;;21,"52959-0026-80 ")
 ;;472
 ;;21,"52959-0026-90 ")
 ;;473
 ;;21,"52959-0035-00 ")
 ;;676
 ;;21,"52959-0035-01 ")
 ;;677
 ;;21,"52959-0035-10 ")
 ;;678
 ;;21,"52959-0035-20 ")
 ;;679
 ;;21,"52959-0035-21 ")
 ;;680
 ;;21,"52959-0035-28 ")
 ;;681
 ;;21,"52959-0035-30 ")
 ;;682
 ;;21,"52959-0035-40 ")
 ;;683
 ;;21,"52959-0035-56 ")
 ;;684
 ;;21,"52959-0035-60 ")
 ;;685
 ;;21,"52959-0035-70 ")
 ;;686
 ;;21,"52959-0035-90 ")
 ;;687
 ;;21,"52959-0042-00 ")
 ;;1148
 ;;21,"52959-0042-02 ")
 ;;1149
 ;;21,"52959-0042-04 ")
 ;;1150
 ;;21,"52959-0042-07 ")
 ;;1151
 ;;21,"52959-0042-10 ")
 ;;1152
 ;;21,"52959-0042-12 ")
 ;;1153
 ;;21,"52959-0042-14 ")
 ;;1154
 ;;21,"52959-0042-15 ")
 ;;1155
 ;;21,"52959-0042-20 ")
 ;;1156
 ;;21,"52959-0042-21 ")
 ;;1157
 ;;21,"52959-0042-25 ")
 ;;1158
 ;;21,"52959-0042-28 ")
 ;;1159
 ;;21,"52959-0042-30 ")
 ;;1160
 ;;21,"52959-0042-35 ")
 ;;1161
 ;;21,"52959-0042-40 ")
 ;;1162
 ;;21,"52959-0042-45 ")
 ;;1163
 ;;21,"52959-0042-60 ")
 ;;1164
 ;;21,"52959-0042-90 ")
 ;;1165
 ;;21,"52959-0069-10 ")
 ;;1366
 ;;21,"52959-0069-15 ")
 ;;1367
 ;;21,"52959-0069-20 ")
 ;;1368
 ;;21,"52959-0069-21 ")
 ;;1369
 ;;21,"52959-0069-30 ")
 ;;1370
 ;;21,"52959-0069-40 ")
 ;;1371
 ;;21,"52959-0099-00 ")
 ;;1977
 ;;21,"52959-0099-03 ")
 ;;1978
 ;;21,"52959-0099-10 ")
 ;;1979
 ;;21,"52959-0099-15 ")
 ;;1980
 ;;21,"52959-0099-20 ")
 ;;1981
 ;;21,"52959-0099-21 ")
 ;;1982
 ;;21,"52959-0099-28 ")
 ;;1983
 ;;21,"52959-0099-30 ")
 ;;1984
 ;;21,"52959-0099-40 ")
 ;;1985
 ;;21,"52959-0099-45 ")
 ;;1986
 ;;21,"52959-0099-50 ")
 ;;1987
 ;;21,"52959-0099-60 ")
 ;;1988
 ;;21,"52959-0099-90 ")
 ;;1989
 ;;21,"52959-0167-00 ")
 ;;1880
 ;;21,"52959-0167-03 ")
 ;;1881
 ;;21,"52959-0167-10 ")
 ;;1882
 ;;21,"52959-0167-12 ")
 ;;1883
 ;;21,"52959-0167-15 ")
 ;;1884
 ;;21,"52959-0167-20 ")
 ;;1885
 ;;21,"52959-0167-21 ")
 ;;1886
 ;;21,"52959-0167-24 ")
 ;;1887
 ;;21,"52959-0167-30 ")
 ;;1888
 ;;21,"52959-0167-40 ")
 ;;1889
 ;;21,"52959-0167-60 ")
 ;;1890
 ;;21,"52959-0167-90 ")
 ;;1891
 ;;21,"52959-0454-02 ")
 ;;505
 ;;21,"52959-0454-14 ")
 ;;506
 ;;21,"52959-0454-60 ")
 ;;507
 ;;21,"52959-0527-00 ")
 ;;2251
 ;;21,"52959-0527-02 ")
 ;;2252
 ;;21,"52959-0527-10 ")
 ;;2253
 ;;21,"52959-0527-14 ")
 ;;2254
 ;;21,"52959-0527-15 ")
 ;;2255
 ;;21,"52959-0527-20 ")
 ;;2256
 ;;21,"52959-0527-28 ")
 ;;2257
 ;;21,"52959-0527-30 ")
 ;;2258
 ;;21,"52959-0527-42 ")
 ;;2259
 ;;21,"52959-0527-45 ")
 ;;2260
 ;;21,"52959-0527-60 ")
 ;;2261
 ;;21,"52959-0527-90 ")
 ;;2262
 ;;21,"52959-0596-12 ")
 ;;1521
 ;;21,"52959-0596-15 ")
 ;;1522
 ;;21,"52959-0596-20 ")
 ;;1523
 ;;21,"52959-0596-30 ")
 ;;1524
 ;;21,"52959-0596-40 ")
 ;;1525
 ;;21,"52959-0596-60 ")
 ;;1526
 ;;21,"52959-0596-90 ")
 ;;1527
 ;;21,"52959-0673-60 ")
 ;;2364
 ;;21,"52959-0709-00 ")
 ;;1528
 ;;21,"52959-0709-14 ")
 ;;1529
 ;;21,"52959-0709-15 ")
 ;;1530
 ;;21,"52959-0709-20 ")
 ;;1531
 ;;21,"52959-0709-21 ")
 ;;1532
 ;;21,"52959-0709-28 ")
 ;;1533