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

BGP51Q2.m

Go to the documentation of this file.
BGP51Q2 ;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,"00185-0053-01 ")
 ;;48
 ;;21,"00185-0053-05 ")
 ;;49
 ;;21,"00185-0101-01 ")
 ;;1354
 ;;21,"00185-0101-10 ")
 ;;1355
 ;;21,"00185-0102-01 ")
 ;;1634
 ;;21,"00185-0102-10 ")
 ;;1635
 ;;21,"00185-0102-33 ")
 ;;1636
 ;;21,"00185-0103-01 ")
 ;;1749
 ;;21,"00185-0103-10 ")
 ;;1750
 ;;21,"00185-0104-01 ")
 ;;1823
 ;;21,"00185-0104-10 ")
 ;;1824
 ;;21,"00185-0124-01 ")
 ;;3288
 ;;21,"00185-0152-01 ")
 ;;3522
 ;;21,"00185-0152-10 ")
 ;;3523
 ;;21,"00185-0173-01 ")
 ;;3618
 ;;21,"00185-0173-10 ")
 ;;3619
 ;;21,"00185-0204-01 ")
 ;;3296
 ;;21,"00185-0211-01 ")
 ;;3321
 ;;21,"00185-0277-01 ")
 ;;3339
 ;;21,"00185-0325-01 ")
 ;;3295
 ;;21,"00185-0341-01 ")
 ;;3398
 ;;21,"00185-0342-01 ")
 ;;3413
 ;;21,"00185-0505-01 ")
 ;;14
 ;;21,"00185-0505-05 ")
 ;;15
 ;;21,"00185-0820-01 ")
 ;;112
 ;;21,"00185-0820-05 ")
 ;;113
 ;;21,"00185-5400-01 ")
 ;;1141
 ;;21,"00185-5400-10 ")
 ;;1142
 ;;21,"00185-5400-33 ")
 ;;1143
 ;;21,"00185-7100-01 ")
 ;;3434
 ;;21,"00185-7100-10 ")
 ;;3435
 ;;21,"00186-0004-31 ")
 ;;2354
 ;;21,"00186-0008-31 ")
 ;;2360
 ;;21,"00186-0016-28 ")
 ;;2371
 ;;21,"00186-0016-31 ")
 ;;2372
 ;;21,"00186-0016-54 ")
 ;;2373
 ;;21,"00186-0032-28 ")
 ;;2384
 ;;21,"00186-0032-31 ")
 ;;2385
 ;;21,"00186-0032-54 ")
 ;;2386
 ;;21,"00186-0162-28 ")
 ;;3796
 ;;21,"00186-0162-54 ")
 ;;3797
 ;;21,"00186-0322-28 ")
 ;;3809
 ;;21,"00186-0322-54 ")
 ;;3810
 ;;21,"00186-0324-54 ")
 ;;3818
 ;;21,"00187-0140-30 ")
 ;;524
 ;;21,"00187-0140-90 ")
 ;;525
 ;;21,"00187-0141-30 ")
 ;;621
 ;;21,"00187-0141-90 ")
 ;;622
 ;;21,"00187-0142-10 ")
 ;;733
 ;;21,"00187-0142-30 ")
 ;;734
 ;;21,"00187-0142-90 ")
 ;;735
 ;;21,"00187-0143-10 ")
 ;;831
 ;;21,"00187-0143-30 ")
 ;;832
 ;;21,"00187-0143-90 ")
 ;;833
 ;;21,"00187-0146-01 ")
 ;;3390
 ;;21,"00245-0193-01 ")
 ;;2629
 ;;21,"00245-0193-10 ")
 ;;2630
 ;;21,"00245-0193-30 ")
 ;;2631
 ;;21,"00245-0193-90 ")
 ;;2632
 ;;21,"00245-0194-01 ")
 ;;2704
 ;;21,"00245-0194-10 ")
 ;;2705
 ;;21,"00245-0194-30 ")
 ;;2706
 ;;21,"00245-0194-90 ")
 ;;2707
 ;;21,"00245-0195-01 ")
 ;;2810
 ;;21,"00245-0195-10 ")
 ;;2811
 ;;21,"00245-0195-30 ")
 ;;2812
 ;;21,"00245-0195-90 ")
 ;;2813
 ;;21,"00310-0130-11 ")
 ;;1270
 ;;21,"00310-0131-11 ")
 ;;1486
 ;;21,"00310-0132-11 ")
 ;;1720
 ;;21,"00310-0133-11 ")
 ;;1782
 ;;21,"00310-0134-11 ")
 ;;1969
 ;;21,"00310-0135-10 ")
 ;;1075
 ;;21,"00310-0135-11 ")
 ;;1076
 ;;21,"00310-0141-11 ")
 ;;3495
 ;;21,"00310-0142-11 ")
 ;;3590
 ;;21,"00310-0145-11 ")
 ;;3684
 ;;21,"00378-0081-01 ")
 ;;3344
 ;;21,"00378-0083-01 ")
 ;;3346
 ;;21,"00378-0084-01 ")
 ;;3349
 ;;21,"00378-0086-01 ")
 ;;3351
 ;;21,"00378-0226-77 ")
 ;;2046
 ;;21,"00378-0254-77 ")
 ;;2074
 ;;21,"00378-0272-77 ")
 ;;2106
 ;;21,"00378-0441-01 ")
 ;;16
 ;;21,"00378-0443-01 ")
 ;;45
 ;;21,"00378-0444-01 ")
 ;;116
 ;;21,"00378-0447-01 ")
 ;;192
 ;;21,"00378-0542-77 ")
 ;;3716
 ;;21,"00378-0543-77 ")
 ;;3738
 ;;21,"00378-0544-77 ")
 ;;3746
 ;;21,"00378-0712-01 ")
 ;;3356
 ;;21,"00378-0723-01 ")
 ;;3385
 ;;21,"00378-1012-01 ")
 ;;3430
 ;;21,"00378-1051-01 ")
 ;;520
 ;;21,"00378-1051-05 ")
 ;;521
 ;;21,"00378-1052-01 ")
 ;;571
 ;;21,"00378-1052-10 ")
 ;;572
 ;;21,"00378-1053-01 ")
 ;;683
 ;;21,"00378-1053-10 ")
 ;;684
 ;;21,"00378-1054-01 ")
 ;;783
 ;;21,"00378-1054-05 ")
 ;;784
 ;;21,"00378-1117-77 ")
 ;;2015
 ;;21,"00378-1418-77 ")
 ;;3965
 ;;21,"00378-1418-93 ")
 ;;3966
 ;;21,"00378-1419-10 ")
 ;;4002
 ;;21,"00378-1419-77 ")
 ;;4003
 ;;21,"00378-1419-93 ")
 ;;4004
 ;;21,"00378-1420-77 ")
 ;;4071
 ;;21,"00378-1420-93 ")
 ;;4072
 ;;21,"00378-2012-01 ")
 ;;3528
 ;;21,"00378-2022-05 ")
 ;;2419
 ;;21,"00378-2022-77 ")
 ;;2420
 ;;21,"00378-2023-05 ")
 ;;2491
 ;;21,"00378-2023-77 ")
 ;;2492
 ;;21,"00378-2023-93 ")
 ;;2493
 ;;21,"00378-2024-05 ")
 ;;2545
 ;;21,"00378-2024-77 ")
 ;;2546
 ;;21,"00378-2024-93 ")
 ;;2547
 ;;21,"00378-2025-01 ")
 ;;3620
 ;;21,"00378-2072-01 ")
 ;;1042
 ;;21,"00378-2073-01 ")
 ;;1165
 ;;21,"00378-2073-10 ")
 ;;1166
 ;;21,"00378-2074-01 ")
 ;;1372
 ;;21,"00378-2074-10 ")
 ;;1373
 ;;21,"00378-2075-01 ")
 ;;1659
 ;;21,"00378-2075-10 ")
 ;;1660
 ;;21,"00378-2076-01 ")
 ;;1847
 ;;21,"00378-2076-05 ")
 ;;1848
 ;;21,"00378-2077-01 ")
 ;;1757
 ;;21,"00378-2901-77 ")
 ;;4143
 ;;21,"00378-2901-93 ")
 ;;4144
 ;;21,"00378-2902-77 ")
 ;;4154
 ;;21,"00378-2902-93 ")
 ;;4155
 ;;21,"00378-2903-77 ")
 ;;4161
 ;;21,"00378-2903-93 ")
 ;;4162
 ;;21,"00378-3001-05 ")
 ;;3799
 ;;21,"00378-3001-77 ")
 ;;3800
 ;;21,"00378-3002-05 ")
 ;;3813
 ;;21,"00378-3002-77 ")
 ;;3814
 ;;21,"00378-3003-05 ")
 ;;3819
 ;;21,"00378-3003-77 ")
 ;;3820
 ;;21,"00378-3007-01 ")
 ;;258
 ;;21,"00378-3007-10 ")
 ;;259
 ;;21,"00378-3012-01 ")
 ;;302
 ;;21,"00378-3012-10 ")
 ;;303
 ;;21,"00378-3017-01 ")
 ;;385
 ;;21,"00378-3017-10 ")
 ;;386
 ;;21,"00378-3022-01 ")
 ;;454
 ;;21,"00378-3033-77 ")
 ;;3858
 ;;21,"00378-3033-93 ")
 ;;3859
 ;;21,"00378-3034-77 ")
 ;;3887
 ;;21,"00378-3034-93 ")
 ;;3888
 ;;21,"00378-3241-01 ")
 ;;2315
 ;;21,"00378-3242-01 ")
 ;;2327
 ;;21,"00378-3243-01 ")
 ;;2343
 ;;21,"00378-4041-77 ")
 ;;2626
 ;;21,"00378-4042-77 ")
 ;;2696
 ;;21,"00378-4042-93 ")
 ;;2697
 ;;21,"00378-4043-77 ")
 ;;2820
 ;;21,"00378-4043-93 ")
 ;;2821
 ;;21,"00378-4725-01 ")
 ;;3289
 ;;21,"00378-4735-01 ")
 ;;3294
 ;;21,"00378-4745-01 ")
 ;;3322
 ;;21,"00378-4775-01 ")
 ;;3338
 ;;21,"00378-6321-05 ")
 ;;4197
 ;;21,"00378-6321-77 ")
 ;;4198
 ;;21,"00378-6322-05 ")
 ;;4268
 ;;21,"00378-6322-77 ")
 ;;4269
 ;;21,"00378-6323-05 ")
 ;;4309
 ;;21,"00378-6323-77 ")
 ;;4310
 ;;21,"00378-6324-05 ")
 ;;4347
 ;;21,"00378-6324-77 ")
 ;;4348
 ;;21,"00378-6325-05 ")
 ;;4374
 ;;21,"00378-6325-77 ")
 ;;4375
 ;;21,"00378-6629-93 ")
 ;;2396
 ;;21,"00378-6895-01 ")
 ;;3023
 ;;21,"00378-6896-01 ")
 ;;3051
 ;;21,"00378-6896-05 ")
 ;;3052
 ;;21,"00378-6897-01 ")
 ;;3108
 ;;21,"00378-6897-05 ")
 ;;3109
 ;;21,"00378-6898-01 ")
 ;;3191
 ;;21,"00378-6898-05 ")
 ;;3192
 ;;21,"00378-6899-01 ")
 ;;3166
 ;;21,"00378-6900-01 ")
 ;;3240
 ;;21,"00440-7140-30 ")
 ;;3020
 ;;21,"00440-7140-90 ")
 ;;3021
 ;;21,"00440-7141-30 ")
 ;;3055
 ;;21,"00440-7141-90 ")
 ;;3056
 ;;21,"00440-7142-30 ")
 ;;3104
 ;;21,"00440-7142-90 ")
 ;;3105
 ;;21,"00440-7143-30 ")
 ;;3187
 ;;21,"00440-7143-90 ")
 ;;3188
 ;;21,"00440-7190-30 ")
 ;;46
 ;;21,"00440-7190-90 ")
 ;;47
 ;;21,"00440-7192-30 ")
 ;;114
 ;;21,"00440-7192-90 ")
 ;;115
 ;;21,"00440-7193-30 ")
 ;;193
 ;;21,"00440-7193-90 ")
 ;;194
 ;;21,"00440-7230-60 ")
 ;;254
 ;;21,"00440-7230-90 ")
 ;;255
 ;;21,"00440-7230-92 ")
 ;;256
 ;;21,"00440-7230-94 ")
 ;;257
 ;;21,"00440-7231-30 ")
 ;;304
 ;;21,"00440-7231-60 ")
 ;;305
 ;;21,"00440-7231-90 ")
 ;;306
 ;;21,"00440-7231-91 ")
 ;;307
 ;;21,"00440-7231-92 ")
 ;;308
 ;;21,"00440-7231-94 ")
 ;;309
 ;;21,"00440-7232-30 ")
 ;;379
 ;;21,"00440-7232-60 ")
 ;;380
 ;;21,"00440-7232-90 ")
 ;;381
 ;;21,"00440-7232-91 ")
 ;;382
 ;;21,"00440-7232-92 ")
 ;;383
 ;;21,"00440-7232-94 ")
 ;;384
 ;;21,"00440-7345-99 ")
 ;;2641
 ;;21,"00440-7485-90 ")
 ;;519
 ;;21,"00440-7486-10 ")
 ;;573
 ;;21,"00440-7486-30 ")
 ;;574
 ;;21,"00440-7486-60 ")
 ;;575
 ;;21,"00440-7486-90 ")
 ;;576
 ;;21,"00440-7486-91 ")
 ;;577
 ;;21,"00440-7487-30 ")
 ;;681
 ;;21,"00440-7487-90 ")
 ;;682
 ;;21,"00440-7488-90 ")
 ;;785
 ;;21,"00440-7550-45 ")
 ;;862
 ;;21,"00440-7550-90 ")
 ;;863
 ;;21,"00440-7551-45 ")
 ;;898
 ;;21,"00440-7551-90 ")
 ;;899
 ;;21,"00440-7552-45 ")
 ;;968
 ;;21,"00440-7552-90 ")
 ;;969
 ;;21,"00440-7552-92 ")
 ;;970
 ;;21,"00440-7674-81 ")
 ;;1168
 ;;21,"00440-7674-85 ")
 ;;1169
 ;;21,"00440-7674-89 ")
 ;;1170
 ;;21,"00440-7674-90 ")
 ;;1171
 ;;21,"00440-7675-30 ")
 ;;1367
 ;;21,"00440-7675-81 ")
 ;;1368
 ;;21,"00440-7675-85 ")
 ;;1369
 ;;21,"00440-7675-89 ")
 ;;1370
 ;;21,"00440-7675-90 ")
 ;;1371
 ;;21,"00440-7676-14 ")
 ;;1661
 ;;21,"00440-7676-30 ")
 ;;1662
 ;;21,"00440-7676-45 ")
 ;;1663
 ;;21,"00440-7676-81 ")
 ;;1664
 ;;21,"00440-7676-85 ")
 ;;1665
 ;;21,"00440-7676-89 ")
 ;;1666
 ;;21,"00440-7676-90 ")
 ;;1667
 ;;21,"00440-7677-81 ")
 ;;1849
 ;;21,"00440-7677-85 ")
 ;;1850
 ;;21,"00440-7677-89 ")
 ;;1851
 ;;21,"00440-7677-90 ")
 ;;1852
 ;;21,"00440-7682-30 ")
 ;;3431
 ;;21,"00440-7683-30 ")
 ;;3526
 ;;21,"00440-7683-60 ")
 ;;3527
 ;;21,"00440-7684-30 ")
 ;;3621
 ;;21,"00440-8072-06 ")
 ;;2107
 ;;21,"00440-8270-06 ")
 ;;2075
 ;;21,"00440-8272-06 ")
 ;;2105
 ;;21,"00440-8567-30 ")
 ;;2316
 ;;21,"00440-8567-60 ")
 ;;2317
 ;;21,"00440-8567-90 ")
 ;;2318
 ;;21,"00440-8568-30 ")
 ;;2324
 ;;21,"00440-8568-60 ")
 ;;2325
 ;;21,"00440-8568-90 ")
 ;;2326
 ;;21,"00440-8569-30 ")
 ;;2344
 ;;21,"00440-8569-60 ")
 ;;2345
 ;;21,"00440-8569-90 ")
 ;;2346
 ;;21,"00490-0067-00 ")
 ;;3381
 ;;21,"00490-0067-30 ")
 ;;3382
 ;;21,"00490-0067-60 ")
 ;;3383
 ;;21,"00490-0067-90 ")
 ;;3384
 ;;21,"00490-7030-00 ")
 ;;3357
 ;;21,"00490-7030-30 ")
 ;;3358
 ;;21,"00490-7030-60 ")
 ;;3359
 ;;21,"00490-7030-90 ")
 ;;3360
 ;;21,"00574-0110-01 ")
 ;;1971
 ;;21,"00574-0112-15 ")
 ;;1978
 ;;21,"00574-0133-01 ")
 ;;3692
 ;;21,"00574-0134-01 ")
 ;;3696
 ;;21,"00574-0135-01 ")
 ;;3702
 ;;21,"00591-0405-01 ")
 ;;1043
 ;;21,"00591-0405-05 ")
 ;;1044
 ;;21,"00591-0406-01 ")
 ;;1163
 ;;21,"00591-0406-10 ")
 ;;1164
 ;;21,"00591-0407-01 ")
 ;;1374
 ;;21,"00591-0407-10 ")
 ;;1375
 ;;21,"00591-0408-01 ")
 ;;1657
 ;;21,"00591-0408-10 ")
 ;;1658
 ;;21,"00591-0409-01 ")
 ;;1845
 ;;21,"00591-0409-05 ")
 ;;1846
 ;;21,"00591-0860-01 ")
 ;;3432
 ;;21,"00591-0860-05 ")
 ;;3433
 ;;21,"00591-0861-01 ")
 ;;3524
 ;;21,"00591-0861-05 ")
 ;;3525
 ;;21,"00591-0862-01 ")
 ;;3622
 ;;21,"00591-0862-05 ")
 ;;3623
 ;;21,"00591-0885-01 ")
 ;;1758
 ;;21,"00591-2315-10 ")
 ;;4201
 ;;21,"00591-2315-19 ")
 ;;4202
 ;;21,"00591-2316-10 ")
 ;;4264
 ;;21,"00591-2316-19 ")
 ;;4265
 ;;21,"00591-2317-10 ")
 ;;4313
 ;;21,"00591-2317-19 ")
 ;;4314
 ;;21,"00591-2318-19 ")
 ;;4344
 ;;21,"00591-2319-19 ")
 ;;4378
 ;;21,"00591-2782-19 ")
 ;;2421
 ;;21,"00591-2782-30 ")
 ;;2422
 ;;21,"00591-2783-19 ")
 ;;2489
 ;;21,"00591-2783-30 ")
 ;;2490
 ;;21,"00591-2784-19 ")
 ;;2548
 ;;21,"00591-2784-30 ")
 ;;2549
 ;;21,"00591-2785-19 ")
 ;;3854
 ;;21,"00591-2785-30 ")
 ;;3855
 ;;21,"00591-2786-19 ")
 ;;3891
 ;;21,"00591-2786-30 ")
 ;;3892
 ;;21,"00591-3292-15 ")
 ;;2899
 ;;21,"00591-3293-15 ")
 ;;2911
 ;;21,"00591-3294-15 ")
 ;;2919
 ;;21,"00591-3745-10 ")
 ;;2622
 ;;21,"00591-3745-19 ")
 ;;2623
 ;;21,"00591-3746-10 ")
 ;;2701
 ;;21,"00591-3746-19 ")
 ;;2702
 ;;21,"00591-3746-30 ")
 ;;2703
 ;;21,"00591-3747-10 ")
 ;;2814
 ;;21,"00591-3747-19 ")
 ;;2815
 ;;21,"00591-3747-30 ")
 ;;2816
 ;;21,"00591-3757-01 ")
 ;;3022
 ;;21,"00591-3758-01 ")
 ;;3053
 ;;21,"00591-3758-05 ")
 ;;3054
 ;;21,"00591-3759-01 ")
 ;;3106
 ;;21,"00591-3759-05 ")
 ;;3107
 ;;21,"00591-3760-01 ")
 ;;3189
 ;;21,"00591-3760-05 ")
 ;;3190
 ;;21,"00591-3761-01 ")
 ;;3165
 ;;21,"00591-3762-01 ")
 ;;3239
 ;;21,"00597-0039-37 ")
 ;;2896
 ;;21,"00597-0040-37 ")
 ;;2900
 ;;21,"00597-0041-37 ")
 ;;2912
 ;;21,"00597-0042-37 ")
 ;;4156
 ;;21,"00597-0043-37 ")
 ;;4137
 ;;21,"00597-0044-37 ")
 ;;4145
 ;;21,"00597-0124-37 ")
 ;;3784
 ;;21,"00597-0125-37 ")
 ;;3787
 ;;21,"00597-0126-37 ")
 ;;3790
 ;;21,"00597-0127-37 ")
 ;;3793
 ;;21,"00603-4080-02 ")
 ;;2423
 ;;21,"00603-4080-16 ")
 ;;2424
 ;;21,"00603-4081-02 ")
 ;;2486
 ;;21,"00603-4081-16 ")
 ;;2487
 ;;21,"00603-4081-28 ")
 ;;2488
 ;;21,"00603-4082-02 ")
 ;;2550
 ;;21,"00603-4082-16 ")
 ;;2551
 ;;21,"00603-4082-28 ")
 ;;2552
 ;;21,"00603-4088-02 ")
 ;;3856
 ;;21,"00603-4088-16 ")
 ;;3857
 ;;21,"00603-4089-02 ")
 ;;3889
 ;;21,"00603-4089-16 ")
 ;;3890
 ;;21,"00603-4209-21 ")
 ;;1045
 ;;21,"00603-4209-28 ")
 ;;1046
 ;;21,"00603-4210-02 ")
 ;;1154
 ;;21,"00603-4210-16 ")
 ;;1155
 ;;21,"00603-4210-21 ")
 ;;1156
 ;;21,"00603-4210-28 ")
 ;;1157
 ;;21,"00603-4210-30 ")
 ;;1158
 ;;21,"00603-4210-32 ")
 ;;1159
 ;;21,"00603-4210-60 ")
 ;;1160
 ;;21,"00603-4211-02 ")
 ;;1378
 ;;21,"00603-4211-21 ")
 ;;1379
 ;;21,"00603-4211-28 ")
 ;;1380
 ;;21,"00603-4211-32 ")
 ;;1381
 ;;21,"00603-4211-34 ")
 ;;1382
 ;;21,"00603-4211-60 ")
 ;;1383
 ;;21,"00603-4212-02 ")
 ;;1649
 ;;21,"00603-4212-21 ")
 ;;1650
 ;;21,"00603-4212-28 ")
 ;;1651
 ;;21,"00603-4212-32 ")
 ;;1652
 ;;21,"00603-4212-34 ")
 ;;1653
 ;;21,"00603-4212-60 ")
 ;;1654
 ;;21,"00603-4213-21 ")
 ;;1759
 ;;21,"00603-4213-28 ")
 ;;1760
 ;;21,"00603-4214-02 ")
 ;;1836
 ;;21,"00603-4214-04 ")
 ;;1837
 ;;21,"00603-4214-21 ")
 ;;1838
 ;;21,"00603-4214-28 ")
 ;;1839
 ;;21,"00603-4214-30 ")
 ;;1840
 ;;21,"00603-4214-32 ")
 ;;1841
 ;;21,"00603-4214-60 ")
 ;;1842