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

BGP51P3.m

Go to the documentation of this file.
BGP51P3 ;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,"43353-0104-53 ")
 ;;1980
 ;;21,"43353-0104-60 ")
 ;;1981
 ;;21,"43353-0111-30 ")
 ;;2074
 ;;21,"43353-0111-53 ")
 ;;2075
 ;;21,"43353-0111-60 ")
 ;;2076
 ;;21,"43353-0111-80 ")
 ;;2077
 ;;21,"43353-0119-30 ")
 ;;1842
 ;;21,"43353-0119-53 ")
 ;;1843
 ;;21,"43353-0119-60 ")
 ;;1844
 ;;21,"43353-0119-80 ")
 ;;1845
 ;;21,"43353-0122-30 ")
 ;;1976
 ;;21,"43353-0122-53 ")
 ;;1977
 ;;21,"43353-0122-60 ")
 ;;1978
 ;;21,"43353-0132-53 ")
 ;;1735
 ;;21,"43353-0133-30 ")
 ;;2078
 ;;21,"43353-0133-53 ")
 ;;2079
 ;;21,"43353-0133-60 ")
 ;;2080
 ;;21,"43353-0133-80 ")
 ;;2081
 ;;21,"43353-0134-45 ")
 ;;1150
 ;;21,"43353-0134-60 ")
 ;;1151
 ;;21,"43353-0156-53 ")
 ;;1839
 ;;21,"43353-0156-60 ")
 ;;1840
 ;;21,"43353-0156-80 ")
 ;;1841
 ;;21,"43353-0160-30 ")
 ;;1982
 ;;21,"43353-0160-53 ")
 ;;1983
 ;;21,"43353-0160-60 ")
 ;;1984
 ;;21,"43353-0160-70 ")
 ;;1985
 ;;21,"43353-0160-80 ")
 ;;1986
 ;;21,"43353-0173-30 ")
 ;;1031
 ;;21,"43353-0173-42 ")
 ;;1032
 ;;21,"43353-0173-45 ")
 ;;1033
 ;;21,"43353-0173-60 ")
 ;;1034
 ;;21,"43353-0173-80 ")
 ;;1035
 ;;21,"43353-0348-30 ")
 ;;1036
 ;;21,"43353-0348-45 ")
 ;;1037
 ;;21,"43353-0399-60 ")
 ;;676
 ;;21,"43353-0440-30 ")
 ;;2070
 ;;21,"43353-0440-53 ")
 ;;2071
 ;;21,"43353-0440-60 ")
 ;;2072
 ;;21,"43353-0440-80 ")
 ;;2073
 ;;21,"43353-0478-30 ")
 ;;1987
 ;;21,"43353-0478-53 ")
 ;;1988
 ;;21,"43353-0478-60 ")
 ;;1989
 ;;21,"43353-0485-53 ")
 ;;1736
 ;;21,"43353-0485-60 ")
 ;;1737
 ;;21,"43353-0486-30 ")
 ;;1835
 ;;21,"43353-0486-53 ")
 ;;1836
 ;;21,"43353-0486-60 ")
 ;;1837
 ;;21,"43353-0486-80 ")
 ;;1838
 ;;21,"43353-0508-60 ")
 ;;148
 ;;21,"43353-0576-45 ")
 ;;1474
 ;;21,"43353-0576-53 ")
 ;;1475
 ;;21,"43353-0576-60 ")
 ;;1476
 ;;21,"43353-0576-70 ")
 ;;1477
 ;;21,"43353-0576-80 ")
 ;;1478
 ;;21,"43353-0576-92 ")
 ;;1479
 ;;21,"43353-0583-30 ")
 ;;1038
 ;;21,"43353-0583-45 ")
 ;;1039
 ;;21,"43353-0583-60 ")
 ;;1040
 ;;21,"43353-0701-60 ")
 ;;149
 ;;21,"43353-0706-60 ")
 ;;200
 ;;21,"43353-0795-16 ")
 ;;1148
 ;;21,"43353-0795-60 ")
 ;;1149
 ;;21,"43353-0830-60 ")
 ;;674
 ;;21,"43353-0830-73 ")
 ;;675
 ;;21,"43353-0832-60 ")
 ;;2066
 ;;21,"43353-0832-80 ")
 ;;2067
 ;;21,"43353-0833-30 ")
 ;;553
 ;;21,"43353-0833-45 ")
 ;;554
 ;;21,"43353-0833-60 ")
 ;;555
 ;;21,"43353-0833-80 ")
 ;;556
 ;;21,"43353-0834-30 ")
 ;;668
 ;;21,"43353-0834-45 ")
 ;;669
 ;;21,"43353-0834-60 ")
 ;;670
 ;;21,"43353-0834-80 ")
 ;;671
 ;;21,"43353-0837-53 ")
 ;;1740
 ;;21,"43353-0837-60 ")
 ;;1741
 ;;21,"43353-0837-80 ")
 ;;1742
 ;;21,"43353-0838-30 ")
 ;;1829
 ;;21,"43353-0838-53 ")
 ;;1830
 ;;21,"43353-0838-60 ")
 ;;1831
 ;;21,"43353-0838-80 ")
 ;;1832
 ;;21,"43353-0874-80 ")
 ;;1994
 ;;21,"43478-0900-88 ")
 ;;291
 ;;21,"43478-0901-88 ")
 ;;325
 ;;21,"43478-0902-88 ")
 ;;352
 ;;21,"43478-0903-88 ")
 ;;382
 ;;21,"43547-0254-10 ")
 ;;1738
 ;;21,"43547-0254-50 ")
 ;;1739
 ;;21,"43547-0255-10 ")
 ;;1833
 ;;21,"43547-0255-50 ")
 ;;1834
 ;;21,"43547-0256-10 ")
 ;;1990
 ;;21,"43547-0256-50 ")
 ;;1991
 ;;21,"43547-0257-10 ")
 ;;2068
 ;;21,"43547-0257-50 ")
 ;;2069
 ;;21,"43683-0142-30 ")
 ;;2287
 ;;21,"43683-0143-30 ")
 ;;2321
 ;;21,"43683-0144-30 ")
 ;;677
 ;;21,"43683-0146-30 ")
 ;;1483
 ;;21,"47463-0028-30 ")
 ;;552
 ;;21,"47463-0029-30 ")
 ;;672
 ;;21,"47463-0029-90 ")
 ;;673
 ;;21,"47463-0030-30 ")
 ;;817
 ;;21,"47463-0056-30 ")
 ;;1992
 ;;21,"47463-0056-60 ")
 ;;1993
 ;;21,"47463-0057-30 ")
 ;;1827
 ;;21,"47463-0057-60 ")
 ;;1828
 ;;21,"47463-0058-30 ")
 ;;2090
 ;;21,"47463-0058-60 ")
 ;;2091
 ;;21,"47463-0059-30 ")
 ;;1743
 ;;21,"47463-0059-60 ")
 ;;1744
 ;;21,"47463-0519-30 ")
 ;;1027
 ;;21,"47463-0519-60 ")
 ;;1028
 ;;21,"47463-0520-30 ")
 ;;1152
 ;;21,"47463-0521-30 ")
 ;;955
 ;;21,"47463-0522-30 ")
 ;;1674
 ;;21,"47463-0523-30 ")
 ;;1276
 ;;21,"47463-0524-30 ")
 ;;1480
 ;;21,"47463-0524-60 ")
 ;;1481
 ;;21,"47463-0524-74 ")
 ;;1482
 ;;21,"49884-0122-01 ")
 ;;2213
 ;;21,"49884-0122-05 ")
 ;;2214
 ;;21,"49884-0123-01 ")
 ;;2251
 ;;21,"49884-0123-05 ")
 ;;2252
 ;;21,"49884-0124-01 ")
 ;;2279
 ;;21,"49884-0124-05 ")
 ;;2280
 ;;21,"49884-0282-01 ")
 ;;292
 ;;21,"49884-0282-10 ")
 ;;293
 ;;21,"49884-0328-01 ")
 ;;323
 ;;21,"49884-0328-10 ")
 ;;324
 ;;21,"49884-0329-01 ")
 ;;353
 ;;21,"49884-0329-10 ")
 ;;354
 ;;21,"49884-0330-01 ")
 ;;380
 ;;21,"49884-0330-10 ")
 ;;381
 ;;21,"49884-0404-01 ")
 ;;956
 ;;21,"49884-0404-10 ")
 ;;957
 ;;21,"49884-0405-01 ")
 ;;1025
 ;;21,"49884-0405-10 ")
 ;;1026
 ;;21,"49884-0406-01 ")
 ;;1153
 ;;21,"49884-0406-10 ")
 ;;1154
 ;;21,"49884-0407-01 ")
 ;;1204
 ;;21,"49884-0407-10 ")
 ;;1205
 ;;21,"49999-0010-00 ")
 ;;1484
 ;;21,"49999-0010-30 ")
 ;;1485
 ;;21,"49999-0010-40 ")
 ;;1486
 ;;21,"49999-0010-60 ")
 ;;1487
 ;;21,"49999-0104-00 ")
 ;;678
 ;;21,"49999-0104-30 ")
 ;;679
 ;;21,"49999-0104-60 ")
 ;;680
 ;;21,"49999-0104-90 ")
 ;;613
 ;;21,"49999-0178-00 ")
 ;;852
 ;;21,"49999-0178-30 ")
 ;;853
 ;;21,"49999-0178-60 ")
 ;;854
 ;;21,"49999-0178-90 ")
 ;;855
 ;;21,"49999-0201-30 ")
 ;;41
 ;;21,"49999-0202-30 ")
 ;;53
 ;;21,"49999-0226-00 ")
 ;;1569
 ;;21,"49999-0226-30 ")
 ;;1570
 ;;21,"49999-0226-60 ")
 ;;1571
 ;;21,"49999-0286-60 ")
 ;;195
 ;;21,"49999-0286-90 ")
 ;;196
 ;;21,"49999-0454-00 ")
 ;;433
 ;;21,"49999-0454-10 ")
 ;;434
 ;;21,"49999-0454-30 ")
 ;;435
 ;;21,"49999-0454-60 ")
 ;;436
 ;;21,"49999-0454-90 ")
 ;;437
 ;;21,"49999-0482-30 ")
 ;;992
 ;;21,"49999-0483-00 ")
 ;;1092
 ;;21,"49999-0483-30 ")
 ;;1093
 ;;21,"49999-0484-00 ")
 ;;1180
 ;;21,"49999-0484-30 ")
 ;;1181
 ;;21,"49999-0512-30 ")
 ;;2301
 ;;21,"49999-0512-60 ")
 ;;2302
 ;;21,"49999-0512-90 ")
 ;;2303
 ;;21,"49999-0555-14 ")
 ;;155
 ;;21,"49999-0555-60 ")
 ;;156
 ;;21,"49999-0555-90 ")
 ;;157
 ;;21,"49999-0575-10 ")
 ;;1291
 ;;21,"49999-0575-20 ")
 ;;1292
 ;;21,"49999-0575-30 ")
 ;;1293
 ;;21,"49999-0575-60 ")
 ;;1294
 ;;21,"49999-0575-90 ")
 ;;1295
 ;;21,"49999-0577-20 ")
 ;;1793
 ;;21,"49999-0866-00 ")
 ;;883
 ;;21,"49999-0872-30 ")
 ;;2158
 ;;21,"49999-0938-30 ")
 ;;2030
 ;;21,"49999-0939-30 ")
 ;;1914
 ;;21,"49999-0996-00 ")
 ;;1223
 ;;21,"50111-0467-01 ")
 ;;75
 ;;21,"50111-0467-03 ")
 ;;76
 ;;21,"50111-0468-01 ")
 ;;153
 ;;21,"50111-0468-03 ")
 ;;154
 ;;21,"50111-0469-01 ")
 ;;193
 ;;21,"50111-0469-03 ")
 ;;194
 ;;21,"50111-0470-01 ")
 ;;241
 ;;21,"50111-0471-01 ")
 ;;257
 ;;21,"50111-0471-02 ")
 ;;258
 ;;21,"50268-0050-15 ")
 ;;418
 ;;21,"50268-0051-15 ")
 ;;427
 ;;21,"50436-4313-02 ")
 ;;152
 ;;21,"50436-4314-02 ")
 ;;197
 ;;21,"50436-4315-01 ")
 ;;303
 ;;21,"50742-0101-01 ")
 ;;438
 ;;21,"50742-0101-10 ")
 ;;439
 ;;21,"50742-0102-01 ")
 ;;611
 ;;21,"50742-0102-10 ")
 ;;612
 ;;21,"50742-0103-01 ")
 ;;856
 ;;21,"50742-0103-10 ")
 ;;857
 ;;21,"50742-0107-01 ")
 ;;1300
 ;;21,"50742-0107-05 ")
 ;;1301
 ;;21,"50742-0108-01 ")
 ;;1361
 ;;21,"50742-0108-10 ")
 ;;1362
 ;;21,"50742-0109-01 ")
 ;;1567
 ;;21,"50742-0109-10 ")
 ;;1568
 ;;21,"51079-0169-01 ")
 ;;965
 ;;21,"51079-0169-20 ")
 ;;966
 ;;21,"51079-0170-01 ")
 ;;1064
 ;;21,"51079-0170-20 ")
 ;;1065
 ;;21,"51079-0171-01 ")
 ;;1160
 ;;21,"51079-0171-03 ")
 ;;1161
 ;;21,"51079-0255-01 ")
 ;;1296
 ;;21,"51079-0255-17 ")
 ;;1297
 ;;21,"51079-0255-19 ")
 ;;1298
 ;;21,"51079-0255-20 ")
 ;;1299
 ;;21,"51079-0277-01 ")
 ;;77
 ;;21,"51079-0277-20 ")
 ;;78
 ;;21,"51079-0278-01 ")
 ;;150
 ;;21,"51079-0278-20 ")
 ;;151
 ;;21,"51079-0279-01 ")
 ;;198
 ;;21,"51079-0279-20 ")
 ;;199
 ;;21,"51079-0684-01 ")
 ;;606
 ;;21,"51079-0684-17 ")
 ;;607
 ;;21,"51079-0684-19 ")
 ;;608
 ;;21,"51079-0684-20 ")
 ;;609
 ;;21,"51079-0684-63 ")
 ;;610
 ;;21,"51079-0685-01 ")
 ;;858
 ;;21,"51079-0685-20 ")
 ;;859
 ;;21,"51079-0759-01 ")
 ;;440
 ;;21,"51079-0759-17 ")
 ;;441
 ;;21,"51079-0759-19 ")
 ;;442
 ;;21,"51079-0759-20 ")
 ;;443
 ;;21,"51079-0759-63 ")
 ;;444
 ;;21,"51079-0771-01 ")
 ;;1770
 ;;21,"51079-0771-17 ")
 ;;1771
 ;;21,"51079-0771-19 ")
 ;;1772
 ;;21,"51079-0771-20 ")
 ;;1773
 ;;21,"51079-0801-01 ")
 ;;1365
 ;;21,"51079-0801-17 ")
 ;;1366
 ;;21,"51079-0801-19 ")
 ;;1367
 ;;21,"51079-0801-20 ")
 ;;1368
 ;;21,"51079-0801-30 ")
 ;;1369
 ;;21,"51079-0801-56 ")
 ;;1370
 ;;21,"51079-0802-01 ")
 ;;1561
 ;;21,"51079-0802-17 ")
 ;;1562
 ;;21,"51079-0802-19 ")
 ;;1563
 ;;21,"51079-0802-20 ")
 ;;1564
 ;;21,"51079-0812-01 ")
 ;;12
 ;;21,"51079-0812-20 ")
 ;;13
 ;;21,"51079-0813-01 ")
 ;;39
 ;;21,"51079-0813-20 ")
 ;;40
 ;;21,"51079-0928-01 ")
 ;;2187
 ;;21,"51079-0928-20 ")
 ;;2188
 ;;21,"51079-0929-01 ")
 ;;2228
 ;;21,"51079-0929-20 ")
 ;;2229
 ;;21,"51079-0930-01 ")
 ;;1879
 ;;21,"51079-0930-17 ")
 ;;1880
 ;;21,"51079-0930-19 ")
 ;;1881
 ;;21,"51079-0930-20 ")
 ;;1882
 ;;21,"51079-0931-01 ")
 ;;1995
 ;;21,"51079-0931-17 ")
 ;;1996
 ;;21,"51079-0931-19 ")
 ;;1997
 ;;21,"51079-0931-20 ")
 ;;1998
 ;;21,"51079-0932-01 ")
 ;;2125
 ;;21,"51079-0932-20 ")
 ;;2126
 ;;21,"51138-0009-30 ")
 ;;2351
 ;;21,"51138-0010-30 ")
 ;;2363
 ;;21,"51138-0011-30 ")
 ;;2395
 ;;21,"51138-0096-30 ")
 ;;446
 ;;21,"51138-0097-30 ")
 ;;604
 ;;21,"51138-0098-30 ")
 ;;861
 ;;21,"51138-0105-30 ")
 ;;1290
 ;;21,"51138-0106-30 ")
 ;;1363
 ;;21,"51138-0107-30 ")
 ;;1364
 ;;21,"51138-0108-30 ")
 ;;1565
 ;;21,"51138-0109-30 ")
 ;;1566
 ;;21,"51138-0115-30 ")
 ;;1288
 ;;21,"51138-0116-30 ")
 ;;1372
 ;;21,"51138-0117-30 ")
 ;;1559
 ;;21,"51138-0118-30 ")
 ;;1289
 ;;21,"51138-0119-30 ")
 ;;1371
 ;;21,"51138-0120-30 ")
 ;;1560
 ;;21,"51138-0131-30 ")
 ;;445
 ;;21,"51138-0132-30 ")
 ;;605
 ;;21,"51138-0133-30 ")
 ;;860
 ;;21,"51138-0157-30 ")
 ;;1287
 ;;21,"51138-0158-30 ")
 ;;1373
 ;;21,"51138-0159-30 ")
 ;;1558
 ;;21,"51138-0172-30 ")
 ;;963
 ;;21,"51138-0173-30 ")
 ;;1067
 ;;21,"51138-0174-30 ")
 ;;1162
 ;;21,"51138-0175-30 ")
 ;;1212
 ;;21,"51138-0204-30 ")
 ;;964
 ;;21,"51138-0205-30 ")
 ;;1066
 ;;21,"51138-0206-30 ")
 ;;1163
 ;;21,"51138-0207-30 ")
 ;;1211
 ;;21,"51138-0373-10 ")
 ;;304
 ;;21,"51138-0373-30 ")
 ;;305
 ;;21,"51138-0374-10 ")
 ;;337
 ;;21,"51138-0374-30 ")
 ;;338
 ;;21,"51138-0375-10 ")
 ;;363
 ;;21,"51138-0375-30 ")
 ;;364
 ;;21,"51138-0376-10 ")
 ;;391
 ;;21,"51138-0376-30 ")
 ;;370
 ;;21,"51138-0383-30 ")
 ;;1767
 ;;21,"51138-0384-30 ")
 ;;1885
 ;;21,"51138-0385-30 ")
 ;;2000
 ;;21,"51138-0386-30 ")
 ;;2129
 ;;21,"51138-0409-10 ")
 ;;306
 ;;21,"51138-0409-30 ")
 ;;307
 ;;21,"51138-0410-10 ")
 ;;335
 ;;21,"51138-0410-30 ")
 ;;336
 ;;21,"51138-0411-10 ")
 ;;365
 ;;21,"51138-0411-30 ")
 ;;366
 ;;21,"51138-0412-10 ")
 ;;389
 ;;21,"51138-0412-30 ")
 ;;390
 ;;21,"51138-0413-30 ")
 ;;73
 ;;21,"51138-0414-30 ")
 ;;166
 ;;21,"51138-0415-30 ")
 ;;189
 ;;21,"51138-0416-20 ")
 ;;242
 ;;21,"51138-0416-30 ")
 ;;243
 ;;21,"51138-0417-30 ")
 ;;256
 ;;21,"51138-0452-30 ")
 ;;1683
 ;;21,"51138-0453-30 ")
 ;;1689
 ;;21,"51138-0454-30 ")
 ;;1702
 ;;21,"51138-0455-30 ")
 ;;1703
 ;;21,"51138-0459-30 ")
 ;;2185
 ;;21,"51138-0459-60 ")
 ;;2186
 ;;21,"51138-0460-30 ")
 ;;2226
 ;;21,"51138-0460-60 ")
 ;;2227
 ;;21,"51138-0461-30 ")
 ;;2262
 ;;21,"51138-0461-60 ")
 ;;2263
 ;;21,"51138-0462-10 ")
 ;;960
 ;;21,"51138-0462-15 ")
 ;;961
 ;;21,"51138-0462-30 ")
 ;;962
 ;;21,"51138-0463-10 ")
 ;;1059
 ;;21,"51138-0463-30 ")
 ;;1060
 ;;21,"51138-0463-50 ")
 ;;1061
 ;;21,"51138-0464-10 ")
 ;;1156
 ;;21,"51138-0464-30 ")
 ;;1157
 ;;21,"51138-0465-10 ")
 ;;1209
 ;;21,"51138-0465-30 ")
 ;;1210
 ;;21,"51138-0466-30 ")
 ;;1766
 ;;21,"51138-0467-30 ")
 ;;1886
 ;;21,"51138-0468-30 ")
 ;;1999
 ;;21,"51138-0469-30 ")
 ;;2130
 ;;21,"51138-0502-30 ")
 ;;2352
 ;;21,"51138-0503-30 ")
 ;;2357
 ;;21,"51138-0504-30 ")
 ;;2393
 ;;21,"51138-0511-30 ")
 ;;2165
 ;;21,"51138-0512-30 ")
 ;;2172
 ;;21,"51138-0513-30 ")
 ;;2174
 ;;21,"51138-0514-30 ")
 ;;2181
 ;;21,"51138-0528-30 ")
 ;;2184
 ;;21,"51138-0529-30 ")
 ;;2225
 ;;21,"51138-0530-30 ")
 ;;2261
 ;;21,"51138-0541-30 ")
 ;;2183
 ;;21,"51138-0542-30 ")
 ;;2224
 ;;21,"51138-0543-30 ")
 ;;2260
 ;;21,"51138-0565-10 ")
 ;;993
 ;;21,"51138-0565-15 ")
 ;;994
 ;;21,"51138-0565-30 ")
 ;;995
 ;;21,"51138-0566-10 ")
 ;;1095
 ;;21,"51138-0566-30 ")
 ;;1096
 ;;21,"51138-0566-50 ")
 ;;1097
 ;;21,"51138-0567-10 ")
 ;;1183
 ;;21,"51138-0567-30 ")
 ;;1184
 ;;21,"51138-0568-10 ")
 ;;1221
 ;;21,"51138-0568-30 ")
 ;;1222
 ;;21,"51138-0581-30 ")
 ;;279
 ;;21,"51138-0582-30 ")
 ;;310
 ;;21,"51138-0583-30 ")
 ;;342
 ;;21,"51138-0584-30 ")
 ;;369
 ;;21,"51285-0040-01 ")
 ;;2418
 ;;21,"51285-0047-02 ")
 ;;2356
 ;;21,"51285-0050-02 ")
 ;;2392
 ;;21,"51285-0060-01 ")
 ;;897
 ;;21,"51285-0061-01 ")
 ;;915
 ;;21,"51991-0817-01 ")
 ;;302
 ;;21,"51991-0818-01 ")
 ;;333
 ;;21,"51991-0819-01 ")
 ;;361