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

BGP51J3.m

Go to the documentation of this file.
BGP51J3 ;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,"35356-0742-90 ")
 ;;365
 ;;21,"35356-0743-30 ")
 ;;521
 ;;21,"35356-0745-15 ")
 ;;2442
 ;;21,"35356-0759-30 ")
 ;;473
 ;;21,"35356-0764-30 ")
 ;;1832
 ;;21,"35356-0845-30 ")
 ;;2522
 ;;21,"35356-0862-06 ")
 ;;880
 ;;21,"35356-0862-20 ")
 ;;881
 ;;21,"35356-0862-30 ")
 ;;882
 ;;21,"42192-0520-16 ")
 ;;1623
 ;;21,"42254-0130-60 ")
 ;;1777
 ;;21,"42254-0147-14 ")
 ;;1847
 ;;21,"42254-0147-30 ")
 ;;1848
 ;;21,"42254-0147-60 ")
 ;;1849
 ;;21,"42254-0189-60 ")
 ;;1778
 ;;21,"42254-0231-00 ")
 ;;822
 ;;21,"42254-0268-20 ")
 ;;1584
 ;;21,"42254-0316-30 ")
 ;;1775
 ;;21,"42254-0316-60 ")
 ;;1776
 ;;21,"42254-0323-60 ")
 ;;878
 ;;21,"42254-0333-60 ")
 ;;906
 ;;21,"42254-0358-30 ")
 ;;2591
 ;;21,"42254-0368-00 ")
 ;;819
 ;;21,"42254-0368-30 ")
 ;;820
 ;;21,"42254-0368-60 ")
 ;;821
 ;;21,"42291-0244-04 ")
 ;;1615
 ;;21,"42291-0244-16 ")
 ;;1616
 ;;21,"42291-0245-01 ")
 ;;1585
 ;;21,"42291-0247-90 ")
 ;;1293
 ;;21,"42291-0271-30 ")
 ;;1313
 ;;21,"42291-0272-90 ")
 ;;1337
 ;;21,"42291-0273-90 ")
 ;;1377
 ;;21,"42549-0329-30 ")
 ;;264
 ;;21,"42549-0492-30 ")
 ;;1292
 ;;21,"42549-0495-30 ")
 ;;626
 ;;21,"42549-0495-60 ")
 ;;627
 ;;21,"42549-0495-90 ")
 ;;628
 ;;21,"42549-0529-30 ")
 ;;261
 ;;21,"42549-0529-60 ")
 ;;262
 ;;21,"42549-0529-90 ")
 ;;263
 ;;21,"42549-0548-28 ")
 ;;2332
 ;;21,"42549-0548-30 ")
 ;;2333
 ;;21,"42549-0553-30 ")
 ;;823
 ;;21,"42549-0553-60 ")
 ;;824
 ;;21,"42549-0553-90 ")
 ;;825
 ;;21,"42549-0563-30 ")
 ;;2331
 ;;21,"42549-0593-30 ")
 ;;2330
 ;;21,"42549-0605-30 ")
 ;;485
 ;;21,"42549-0605-60 ")
 ;;486
 ;;21,"42549-0613-30 ")
 ;;92
 ;;21,"42582-0100-10 ")
 ;;1541
 ;;21,"42582-0200-10 ")
 ;;1545
 ;;21,"42847-0103-03 ")
 ;;1297
 ;;21,"42847-0103-10 ")
 ;;1298
 ;;21,"42847-0103-30 ")
 ;;1299
 ;;21,"42847-0106-03 ")
 ;;1300
 ;;21,"42847-0106-10 ")
 ;;1301
 ;;21,"42847-0106-30 ")
 ;;1302
 ;;21,"42998-0303-01 ")
 ;;600
 ;;21,"42998-0679-01 ")
 ;;1697
 ;;21,"43063-0068-79 ")
 ;;2329
 ;;21,"43063-0193-60 ")
 ;;500
 ;;21,"43063-0240-30 ")
 ;;1779
 ;;21,"43063-0257-30 ")
 ;;1097
 ;;21,"43063-0336-30 ")
 ;;487
 ;;21,"43063-0336-60 ")
 ;;488
 ;;21,"43063-0366-01 ")
 ;;2321
 ;;21,"43063-0366-06 ")
 ;;2322
 ;;21,"43063-0366-10 ")
 ;;2323
 ;;21,"43063-0366-14 ")
 ;;2324
 ;;21,"43063-0366-15 ")
 ;;2325
 ;;21,"43063-0366-21 ")
 ;;2326
 ;;21,"43063-0366-30 ")
 ;;2327
 ;;21,"43063-0366-60 ")
 ;;2328
 ;;21,"43063-0369-10 ")
 ;;826
 ;;21,"43063-0369-15 ")
 ;;827
 ;;21,"43063-0369-20 ")
 ;;828
 ;;21,"43063-0369-30 ")
 ;;829
 ;;21,"43063-0369-60 ")
 ;;830
 ;;21,"43063-0505-30 ")
 ;;1774
 ;;21,"43353-0026-10 ")
 ;;1948
 ;;21,"43353-0026-20 ")
 ;;1949
 ;;21,"43353-0026-28 ")
 ;;1950
 ;;21,"43353-0026-45 ")
 ;;1951
 ;;21,"43353-0026-53 ")
 ;;1952
 ;;21,"43353-0026-59 ")
 ;;1953
 ;;21,"43353-0026-60 ")
 ;;1954
 ;;21,"43353-0174-07 ")
 ;;1955
 ;;21,"43353-0174-10 ")
 ;;1956
 ;;21,"43353-0174-14 ")
 ;;1957
 ;;21,"43353-0174-15 ")
 ;;1958
 ;;21,"43353-0174-20 ")
 ;;1959
 ;;21,"43353-0174-30 ")
 ;;1960
 ;;21,"43353-0174-45 ")
 ;;1961
 ;;21,"43353-0174-53 ")
 ;;1962
 ;;21,"43353-0174-59 ")
 ;;1963
 ;;21,"43353-0174-60 ")
 ;;1964
 ;;21,"43353-0175-07 ")
 ;;2293
 ;;21,"43353-0175-10 ")
 ;;2294
 ;;21,"43353-0175-14 ")
 ;;2295
 ;;21,"43353-0175-15 ")
 ;;2296
 ;;21,"43353-0175-20 ")
 ;;2297
 ;;21,"43353-0175-21 ")
 ;;2298
 ;;21,"43353-0175-25 ")
 ;;2299
 ;;21,"43353-0175-30 ")
 ;;2300
 ;;21,"43353-0175-40 ")
 ;;2301
 ;;21,"43353-0175-45 ")
 ;;2302
 ;;21,"43353-0175-53 ")
 ;;2303
 ;;21,"43353-0175-59 ")
 ;;2304
 ;;21,"43353-0175-60 ")
 ;;2305
 ;;21,"43353-0176-14 ")
 ;;2306
 ;;21,"43353-0176-40 ")
 ;;2307
 ;;21,"43353-0275-30 ")
 ;;831
 ;;21,"43353-0275-53 ")
 ;;832
 ;;21,"43353-0275-60 ")
 ;;833
 ;;21,"43353-0275-70 ")
 ;;834
 ;;21,"43353-0443-30 ")
 ;;2558
 ;;21,"43353-0557-28 ")
 ;;1947
 ;;21,"43353-0558-07 ")
 ;;2308
 ;;21,"43353-0558-10 ")
 ;;2309
 ;;21,"43353-0558-14 ")
 ;;2310
 ;;21,"43353-0558-15 ")
 ;;2311
 ;;21,"43353-0558-20 ")
 ;;2312
 ;;21,"43353-0558-21 ")
 ;;2313
 ;;21,"43353-0558-25 ")
 ;;2314
 ;;21,"43353-0558-28 ")
 ;;2315
 ;;21,"43353-0558-30 ")
 ;;2316
 ;;21,"43353-0558-40 ")
 ;;2317
 ;;21,"43353-0558-45 ")
 ;;2318
 ;;21,"43353-0558-53 ")
 ;;2319
 ;;21,"43353-0558-60 ")
 ;;2320
 ;;21,"43353-0559-30 ")
 ;;1378
 ;;21,"43353-0567-20 ")
 ;;2261
 ;;21,"43353-0567-30 ")
 ;;2262
 ;;21,"43353-0590-07 ")
 ;;1976
 ;;21,"43353-0590-10 ")
 ;;1977
 ;;21,"43353-0590-14 ")
 ;;1978
 ;;21,"43353-0590-15 ")
 ;;1979
 ;;21,"43353-0590-20 ")
 ;;1980
 ;;21,"43353-0590-28 ")
 ;;1981
 ;;21,"43353-0590-30 ")
 ;;1982
 ;;21,"43353-0590-45 ")
 ;;1983
 ;;21,"43353-0590-53 ")
 ;;1984
 ;;21,"43353-0590-59 ")
 ;;1985
 ;;21,"43353-0590-60 ")
 ;;1986
 ;;21,"43353-0617-07 ")
 ;;2278
 ;;21,"43353-0617-10 ")
 ;;2279
 ;;21,"43353-0617-14 ")
 ;;2280
 ;;21,"43353-0617-15 ")
 ;;2281
 ;;21,"43353-0617-20 ")
 ;;2282
 ;;21,"43353-0617-21 ")
 ;;2283
 ;;21,"43353-0617-25 ")
 ;;2284
 ;;21,"43353-0617-28 ")
 ;;2285
 ;;21,"43353-0617-30 ")
 ;;2286
 ;;21,"43353-0617-40 ")
 ;;2287
 ;;21,"43353-0617-45 ")
 ;;2288
 ;;21,"43353-0617-53 ")
 ;;2289
 ;;21,"43353-0617-59 ")
 ;;2290
 ;;21,"43353-0617-60 ")
 ;;2291
 ;;21,"43353-0617-62 ")
 ;;2292
 ;;21,"43353-0620-07 ")
 ;;1965
 ;;21,"43353-0620-10 ")
 ;;1966
 ;;21,"43353-0620-14 ")
 ;;1967
 ;;21,"43353-0620-15 ")
 ;;1968
 ;;21,"43353-0620-20 ")
 ;;1969
 ;;21,"43353-0620-28 ")
 ;;1970
 ;;21,"43353-0620-30 ")
 ;;1971
 ;;21,"43353-0620-45 ")
 ;;1972
 ;;21,"43353-0620-53 ")
 ;;1973
 ;;21,"43353-0620-59 ")
 ;;1974
 ;;21,"43353-0620-60 ")
 ;;1975
 ;;21,"43353-0669-07 ")
 ;;1987
 ;;21,"43353-0669-10 ")
 ;;1988
 ;;21,"43353-0669-14 ")
 ;;1989
 ;;21,"43353-0669-15 ")
 ;;1990
 ;;21,"43353-0669-20 ")
 ;;1991
 ;;21,"43353-0669-45 ")
 ;;1992
 ;;21,"43353-0669-53 ")
 ;;1993
 ;;21,"43353-0669-59 ")
 ;;1994
 ;;21,"43353-0669-60 ")
 ;;1995
 ;;21,"43353-0670-07 ")
 ;;2263
 ;;21,"43353-0670-10 ")
 ;;2264
 ;;21,"43353-0670-14 ")
 ;;2265
 ;;21,"43353-0670-15 ")
 ;;2266
 ;;21,"43353-0670-20 ")
 ;;2267
 ;;21,"43353-0670-21 ")
 ;;2268
 ;;21,"43353-0670-25 ")
 ;;2269
 ;;21,"43353-0670-28 ")
 ;;2270
 ;;21,"43353-0670-30 ")
 ;;2271
 ;;21,"43353-0670-40 ")
 ;;2272
 ;;21,"43353-0670-45 ")
 ;;2273
 ;;21,"43353-0670-53 ")
 ;;2274
 ;;21,"43353-0670-59 ")
 ;;2275
 ;;21,"43353-0670-60 ")
 ;;2276
 ;;21,"43353-0670-62 ")
 ;;2277
 ;;21,"43353-0727-30 ")
 ;;2587
 ;;21,"43353-0727-60 ")
 ;;2588
 ;;21,"43353-0743-30 ")
 ;;2589
 ;;21,"43353-0743-60 ")
 ;;2590
 ;;21,"43353-0841-30 ")
 ;;1338
 ;;21,"45963-0293-30 ")
 ;;1730
 ;;21,"45963-0294-30 ")
 ;;1732
 ;;21,"45963-0295-30 ")
 ;;1734
 ;;21,"46672-0053-10 ")
 ;;835
 ;;21,"46672-0053-50 ")
 ;;836
 ;;21,"47335-0586-83 ")
 ;;1314
 ;;21,"47335-0587-88 ")
 ;;1336
 ;;21,"47335-0588-88 ")
 ;;1376
 ;;21,"47463-0012-28 ")
 ;;2559
 ;;21,"47463-0012-30 ")
 ;;2560
 ;;21,"47463-0012-60 ")
 ;;2561
 ;;21,"47463-0012-90 ")
 ;;2562
 ;;21,"47463-0014-30 ")
 ;;501
 ;;21,"47463-0014-60 ")
 ;;502
 ;;21,"47463-0014-90 ")
 ;;503
 ;;21,"47463-0015-30 ")
 ;;265
 ;;21,"47463-0015-60 ")
 ;;266
 ;;21,"47463-0016-30 ")
 ;;335
 ;;21,"47463-0016-60 ")
 ;;336
 ;;21,"47463-0017-30 ")
 ;;484
 ;;21,"47463-0051-30 ")
 ;;988
 ;;21,"47463-0051-60 ")
 ;;989
 ;;21,"47463-0372-30 ")
 ;;1490
 ;;21,"47463-0372-60 ")
 ;;1491
 ;;21,"47463-0396-28 ")
 ;;1379
 ;;21,"47463-0396-30 ")
 ;;1380
 ;;21,"47463-0824-30 ")
 ;;2257
 ;;21,"47463-0824-60 ")
 ;;2258
 ;;21,"47463-0824-71 ")
 ;;2259
 ;;21,"47463-0824-90 ")
 ;;2260
 ;;21,"47463-0825-06 ")
 ;;1996
 ;;21,"47463-0825-30 ")
 ;;1997
 ;;21,"47463-0825-71 ")
 ;;1998
 ;;21,"47463-0825-90 ")
 ;;1999
 ;;21,"47463-0827-30 ")
 ;;1780
 ;;21,"47463-0854-30 ")
 ;;1846
 ;;21,"49769-0395-16 ")
 ;;1618
 ;;21,"49884-0054-01 ")
 ;;1434
 ;;21,"49884-0054-10 ")
 ;;1435
 ;;21,"49884-0055-01 ")
 ;;1451
 ;;21,"49884-0055-10 ")
 ;;1452
 ;;21,"49884-0056-01 ")
 ;;1488
 ;;21,"49884-0056-10 ")
 ;;1489
 ;;21,"49884-0222-01 ")
 ;;1289
 ;;21,"49884-0222-03 ")
 ;;1290
 ;;21,"49884-0222-05 ")
 ;;1291
 ;;21,"49999-0037-00 ")
 ;;2174
 ;;21,"49999-0037-10 ")
 ;;2175
 ;;21,"49999-0037-15 ")
 ;;2176
 ;;21,"49999-0037-20 ")
 ;;2177
 ;;21,"49999-0037-30 ")
 ;;2178
 ;;21,"49999-0037-60 ")
 ;;2179
 ;;21,"49999-0037-90 ")
 ;;2180
 ;;21,"49999-0063-00 ")
 ;;267
 ;;21,"49999-0063-15 ")
 ;;268
 ;;21,"49999-0063-30 ")
 ;;269
 ;;21,"49999-0063-50 ")
 ;;270
 ;;21,"49999-0063-60 ")
 ;;271
 ;;21,"49999-0063-90 ")
 ;;272
 ;;21,"49999-0115-20 ")
 ;;996
 ;;21,"49999-0115-30 ")
 ;;997
 ;;21,"49999-0115-60 ")
 ;;1013
 ;;21,"49999-0151-08 ")
 ;;837
 ;;21,"49999-0151-20 ")
 ;;838
 ;;21,"49999-0151-30 ")
 ;;839
 ;;21,"49999-0151-60 ")
 ;;840
 ;;21,"49999-0190-30 ")
 ;;1253
 ;;21,"49999-0205-00 ")
 ;;89
 ;;21,"49999-0205-30 ")
 ;;90
 ;;21,"49999-0205-60 ")
 ;;91
 ;;21,"49999-0228-00 ")
 ;;331
 ;;21,"49999-0228-30 ")
 ;;332
 ;;21,"49999-0228-60 ")
 ;;333
 ;;21,"49999-0228-90 ")
 ;;334
 ;;21,"49999-0318-00 ")
 ;;529
 ;;21,"49999-0318-30 ")
 ;;530
 ;;21,"49999-0318-60 ")
 ;;531
 ;;21,"49999-0394-30 ")
 ;;1652
 ;;21,"49999-0394-60 ")
 ;;1653
 ;;21,"49999-0394-90 ")
 ;;1654
 ;;21,"49999-0400-30 ")
 ;;1470
 ;;21,"49999-0453-15 ")
 ;;1879
 ;;21,"49999-0453-30 ")
 ;;1880
 ;;21,"49999-0551-30 ")
 ;;594
 ;;21,"49999-0604-15 ")
 ;;1800
 ;;21,"49999-0604-30 ")
 ;;1801
 ;;21,"49999-0604-60 ")
 ;;1802
 ;;21,"49999-0737-00 ")
 ;;1412
 ;;21,"49999-0737-14 ")
 ;;1413
 ;;21,"49999-0737-15 ")
 ;;1414
 ;;21,"49999-0737-30 ")
 ;;1415
 ;;21,"49999-0737-60 ")
 ;;1416
 ;;21,"49999-0737-90 ")
 ;;1417
 ;;21,"49999-0763-00 ")
 ;;2530
 ;;21,"49999-0763-30 ")
 ;;2531
 ;;21,"49999-0764-30 ")
 ;;2478
 ;;21,"49999-0764-60 ")
 ;;2479
 ;;21,"49999-0778-30 ")
 ;;1325
 ;;21,"49999-0779-15 ")
 ;;1361
 ;;21,"49999-0779-30 ")
 ;;1362
 ;;21,"49999-0867-00 ")
 ;;1679
 ;;21,"49999-0909-00 ")
 ;;459
 ;;21,"49999-0909-30 ")
 ;;460
 ;;21,"49999-0909-60 ")
 ;;461
 ;;21,"49999-0931-00 ")
 ;;2459
 ;;21,"49999-0931-02 ")
 ;;2460
 ;;21,"49999-0931-15 ")
 ;;2461
 ;;21,"49999-0931-30 ")
 ;;2462
 ;;21,"49999-0931-60 ")
 ;;2463
 ;;21,"49999-0932-00 ")
 ;;2027
 ;;21,"49999-0932-30 ")
 ;;2028
 ;;21,"49999-0932-60 ")
 ;;2029
 ;;21,"50436-0193-01 ")
 ;;1418
 ;;21,"50436-1006-01 ")
 ;;1833
 ;;21,"50436-3026-01 ")
 ;;2458
 ;;21,"50436-3030-01 ")
 ;;2030
 ;;21,"50436-3030-02 ")
 ;;2031
 ;;21,"50436-3071-01 ")
 ;;61
 ;;21,"50436-3071-02 ")
 ;;62
 ;;21,"50436-3071-05 ")
 ;;63
 ;;21,"50436-3072-01 ")
 ;;194
 ;;21,"50436-3072-02 ")
 ;;195
 ;;21,"50436-3072-05 ")
 ;;196
 ;;21,"50436-3073-01 ")
 ;;389
 ;;21,"50436-3073-02 ")
 ;;390
 ;;21,"50436-3074-01 ")
 ;;532
 ;;21,"50436-3075-01 ")
 ;;465
 ;;21,"50436-4565-01 ")
 ;;1210
 ;;21,"50436-4856-01 ")
 ;;735
 ;;21,"50436-4856-02 ")
 ;;736
 ;;21,"50436-5537-01 ")
 ;;1308
 ;;21,"50436-5538-01 ")
 ;;1326
 ;;21,"50436-5538-04 ")
 ;;1327
 ;;21,"50436-5539-01 ")
 ;;1366
 ;;21,"50436-5539-04 ")
 ;;1367
 ;;21,"50991-0514-16 ")
 ;;910
 ;;21,"51079-0095-01 ")
 ;;1650
 ;;21,"51079-0095-20 ")
 ;;1651
 ;;21,"51079-0107-01 ")
 ;;198
 ;;21,"51079-0107-17 ")
 ;;199
 ;;21,"51079-0107-19 ")
 ;;200
 ;;21,"51079-0107-20 ")
 ;;201
 ;;21,"51079-0107-63 ")
 ;;202
 ;;21,"51079-0131-01 ")
 ;;57
 ;;21,"51079-0131-20 ")
 ;;58
 ;;21,"51079-0131-63 ")
 ;;59
 ;;21,"51079-0133-01 ")
 ;;385
 ;;21,"51079-0133-20 ")
 ;;386
 ;;21,"51079-0133-63 ")
 ;;387
 ;;21,"51079-0147-01 ")
 ;;463
 ;;21,"51079-0147-20 ")
 ;;464
 ;;21,"51079-0436-01 ")
 ;;1129
 ;;21,"51079-0436-20 ")
 ;;1130
 ;;21,"51079-0437-01 ")
 ;;1204
 ;;21,"51079-0437-20 ")
 ;;1205
 ;;21,"51079-0438-01 ")
 ;;1208
 ;;21,"51079-0438-20 ")
 ;;1209
 ;;21,"51079-0563-01 ")
 ;;527
 ;;21,"51079-0563-20 ")
 ;;528
 ;;21,"51079-0565-01 ")
 ;;1698
 ;;21,"51079-0565-20 ")
 ;;1699
 ;;21,"51079-0566-01 ")
 ;;1708
 ;;21,"51079-0566-20 ")
 ;;1709
 ;;21,"51079-0567-01 ")
 ;;1710
 ;;21,"51079-0567-20 ")
 ;;1711
 ;;21,"51079-0580-01 ")
 ;;1727
 ;;21,"51079-0580-20 ")
 ;;1728
 ;;21,"51079-0651-01 ")
 ;;1280
 ;;21,"51079-0651-20 ")
 ;;1281
 ;;21,"51079-0724-01 ")
 ;;2032
 ;;21,"51079-0724-20 ")
 ;;2033
 ;;21,"51079-0725-01 ")
 ;;2456
 ;;21,"51079-0725-20 ")
 ;;2457
 ;;21,"51138-0001-30 ")
 ;;60
 ;;21,"51138-0002-30 ")
 ;;197
 ;;21,"51138-0003-30 ")
 ;;388
 ;;21,"51138-0004-30 ")
 ;;462
 ;;21,"51138-0005-30 ")
 ;;526
 ;;21,"51138-0006-30 ")
 ;;567
 ;;21,"51138-0012-30 ")
 ;;859
 ;;21,"51138-0028-30 ")
 ;;1128
 ;;21,"51138-0029-30 ")
 ;;1206
 ;;21,"51138-0030-30 ")
 ;;1207
 ;;21,"51138-0031-30 ")
 ;;1278
 ;;21,"51138-0032-30 ")
 ;;1279
 ;;21,"51285-0538-02 ")
 ;;1729
 ;;21,"51285-0539-02 ")
 ;;1731
 ;;21,"51285-0554-02 ")
 ;;1733
 ;;21,"51293-0605-01 ")
 ;;1544