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

BGP47Y3.m

Go to the documentation of this file.
BGP47Y3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"00378-2012-01 ")
 ;;4358
 ;;21,"00378-2022-05 ")
 ;;3096
 ;;21,"00378-2022-77 ")
 ;;3097
 ;;21,"00378-2023-05 ")
 ;;3166
 ;;21,"00378-2023-77 ")
 ;;3167
 ;;21,"00378-2023-93 ")
 ;;3168
 ;;21,"00378-2024-05 ")
 ;;3226
 ;;21,"00378-2024-77 ")
 ;;3227
 ;;21,"00378-2024-93 ")
 ;;3228
 ;;21,"00378-2025-01 ")
 ;;4419
 ;;21,"00378-2072-01 ")
 ;;1513
 ;;21,"00378-2073-01 ")
 ;;1612
 ;;21,"00378-2073-10 ")
 ;;1613
 ;;21,"00378-2074-01 ")
 ;;1770
 ;;21,"00378-2074-10 ")
 ;;1771
 ;;21,"00378-2075-01 ")
 ;;2114
 ;;21,"00378-2075-10 ")
 ;;2115
 ;;21,"00378-2076-01 ")
 ;;2336
 ;;21,"00378-2076-05 ")
 ;;2337
 ;;21,"00378-2077-01 ")
 ;;2294
 ;;21,"00378-3001-05 ")
 ;;4627
 ;;21,"00378-3001-77 ")
 ;;4628
 ;;21,"00378-3002-05 ")
 ;;4643
 ;;21,"00378-3002-77 ")
 ;;4644
 ;;21,"00378-3003-05 ")
 ;;4649
 ;;21,"00378-3003-77 ")
 ;;4650
 ;;21,"00378-3007-01 ")
 ;;374
 ;;21,"00378-3007-10 ")
 ;;375
 ;;21,"00378-3012-01 ")
 ;;490
 ;;21,"00378-3012-10 ")
 ;;491
 ;;21,"00378-3017-01 ")
 ;;591
 ;;21,"00378-3017-10 ")
 ;;592
 ;;21,"00378-3022-01 ")
 ;;656
 ;;21,"00378-3033-77 ")
 ;;4688
 ;;21,"00378-3033-93 ")
 ;;4689
 ;;21,"00378-3034-77 ")
 ;;4728
 ;;21,"00378-3034-93 ")
 ;;4729
 ;;21,"00378-3241-01 ")
 ;;2962
 ;;21,"00378-3242-01 ")
 ;;2984
 ;;21,"00378-3243-01 ")
 ;;3005
 ;;21,"00378-4041-77 ")
 ;;3295
 ;;21,"00378-4042-77 ")
 ;;3379
 ;;21,"00378-4042-93 ")
 ;;3380
 ;;21,"00378-4043-77 ")
 ;;3493
 ;;21,"00378-4043-93 ")
 ;;3494
 ;;21,"00378-4725-01 ")
 ;;4007
 ;;21,"00378-4735-01 ")
 ;;4019
 ;;21,"00378-4745-01 ")
 ;;4043
 ;;21,"00378-4775-01 ")
 ;;4071
 ;;21,"00378-6321-05 ")
 ;;5029
 ;;21,"00378-6321-77 ")
 ;;5030
 ;;21,"00378-6322-05 ")
 ;;5084
 ;;21,"00378-6322-77 ")
 ;;5085
 ;;21,"00378-6323-05 ")
 ;;5139
 ;;21,"00378-6323-77 ")
 ;;5140
 ;;21,"00378-6324-05 ")
 ;;5164
 ;;21,"00378-6324-77 ")
 ;;5165
 ;;21,"00378-6325-05 ")
 ;;5198
 ;;21,"00378-6325-77 ")
 ;;5199
 ;;21,"00378-6629-93 ")
 ;;3070
 ;;21,"00378-6895-01 ")
 ;;3726
 ;;21,"00378-6896-01 ")
 ;;3778
 ;;21,"00378-6896-05 ")
 ;;3779
 ;;21,"00378-6897-01 ")
 ;;3842
 ;;21,"00378-6897-05 ")
 ;;3843
 ;;21,"00378-6898-01 ")
 ;;3908
 ;;21,"00378-6898-05 ")
 ;;3909
 ;;21,"00378-6899-01 ")
 ;;3881
 ;;21,"00378-6900-01 ")
 ;;3963
 ;;21,"00440-7140-30 ")
 ;;3727
 ;;21,"00440-7140-90 ")
 ;;3728
 ;;21,"00440-7141-30 ")
 ;;3776
 ;;21,"00440-7141-90 ")
 ;;3777
 ;;21,"00440-7142-30 ")
 ;;3844
 ;;21,"00440-7142-90 ")
 ;;3845
 ;;21,"00440-7143-30 ")
 ;;3906
 ;;21,"00440-7143-90 ")
 ;;3907
 ;;21,"00440-7190-30 ")
 ;;85
 ;;21,"00440-7190-90 ")
 ;;86
 ;;21,"00440-7192-30 ")
 ;;187
 ;;21,"00440-7192-90 ")
 ;;188
 ;;21,"00440-7193-30 ")
 ;;255
 ;;21,"00440-7193-90 ")
 ;;256
 ;;21,"00440-7230-60 ")
 ;;370
 ;;21,"00440-7230-90 ")
 ;;371
 ;;21,"00440-7230-92 ")
 ;;372
 ;;21,"00440-7230-94 ")
 ;;373
 ;;21,"00440-7231-30 ")
 ;;492
 ;;21,"00440-7231-60 ")
 ;;493
 ;;21,"00440-7231-90 ")
 ;;494
 ;;21,"00440-7231-91 ")
 ;;495
 ;;21,"00440-7231-92 ")
 ;;496
 ;;21,"00440-7231-94 ")
 ;;497
 ;;21,"00440-7232-30 ")
 ;;585
 ;;21,"00440-7232-60 ")
 ;;586
 ;;21,"00440-7232-90 ")
 ;;587
 ;;21,"00440-7232-91 ")
 ;;588
 ;;21,"00440-7232-92 ")
 ;;589
 ;;21,"00440-7232-94 ")
 ;;590
 ;;21,"00440-7345-99 ")
 ;;3341
 ;;21,"00440-7485-90 ")
 ;;715
 ;;21,"00440-7486-10 ")
 ;;820
 ;;21,"00440-7486-30 ")
 ;;821
 ;;21,"00440-7486-60 ")
 ;;822
 ;;21,"00440-7486-90 ")
 ;;823
 ;;21,"00440-7486-91 ")
 ;;824
 ;;21,"00440-7487-30 ")
 ;;970
 ;;21,"00440-7487-90 ")
 ;;971
 ;;21,"00440-7488-90 ")
 ;;1140
 ;;21,"00440-7550-45 ")
 ;;1268
 ;;21,"00440-7550-90 ")
 ;;1269
 ;;21,"00440-7551-45 ")
 ;;1325
 ;;21,"00440-7551-90 ")
 ;;1326
 ;;21,"00440-7552-45 ")
 ;;1419
 ;;21,"00440-7552-90 ")
 ;;1420
 ;;21,"00440-7552-92 ")
 ;;1421
 ;;21,"00440-7674-81 ")
 ;;1616
 ;;21,"00440-7674-85 ")
 ;;1617
 ;;21,"00440-7674-89 ")
 ;;1618
 ;;21,"00440-7674-90 ")
 ;;1619
 ;;21,"00440-7675-30 ")
 ;;1772
 ;;21,"00440-7675-81 ")
 ;;1773
 ;;21,"00440-7675-85 ")
 ;;1774
 ;;21,"00440-7675-89 ")
 ;;1775
 ;;21,"00440-7675-90 ")
 ;;1776
 ;;21,"00440-7675-99 ")
 ;;1777
 ;;21,"00440-7676-14 ")
 ;;2118
 ;;21,"00440-7676-30 ")
 ;;2119
 ;;21,"00440-7676-45 ")
 ;;2120
 ;;21,"00440-7676-81 ")
 ;;2121
 ;;21,"00440-7676-85 ")
 ;;2122
 ;;21,"00440-7676-89 ")
 ;;2123
 ;;21,"00440-7676-90 ")
 ;;2124
 ;;21,"00440-7677-81 ")
 ;;2341
 ;;21,"00440-7677-85 ")
 ;;2342
 ;;21,"00440-7677-89 ")
 ;;2343
 ;;21,"00440-7677-90 ")
 ;;2344
 ;;21,"00440-7682-30 ")
 ;;4212
 ;;21,"00440-7683-30 ")
 ;;4355
 ;;21,"00440-7683-60 ")
 ;;4356
 ;;21,"00440-7684-30 ")
 ;;4422
 ;;21,"00440-8072-06 ")
 ;;2707
 ;;21,"00440-8270-06 ")
 ;;2667
 ;;21,"00440-8272-06 ")
 ;;2705
 ;;21,"00440-8567-30 ")
 ;;2963
 ;;21,"00440-8567-60 ")
 ;;2964
 ;;21,"00440-8567-90 ")
 ;;2965
 ;;21,"00440-8568-30 ")
 ;;2981
 ;;21,"00440-8568-60 ")
 ;;2982
 ;;21,"00440-8568-90 ")
 ;;2983
 ;;21,"00440-8569-30 ")
 ;;3006
 ;;21,"00440-8569-60 ")
 ;;3007
 ;;21,"00440-8569-90 ")
 ;;3008
 ;;21,"00490-0067-00 ")
 ;;4158
 ;;21,"00490-0067-30 ")
 ;;4159
 ;;21,"00490-0067-60 ")
 ;;4160
 ;;21,"00490-0067-90 ")
 ;;4161
 ;;21,"00490-7030-00 ")
 ;;4130
 ;;21,"00490-7030-30 ")
 ;;4131
 ;;21,"00490-7030-60 ")
 ;;4132
 ;;21,"00490-7030-90 ")
 ;;4133
 ;;21,"00574-0110-01 ")
 ;;2541
 ;;21,"00574-0112-15 ")
 ;;2551
 ;;21,"00574-0133-01 ")
 ;;4514
 ;;21,"00574-0134-01 ")
 ;;4521
 ;;21,"00574-0135-01 ")
 ;;4528
 ;;21,"00591-0405-01 ")
 ;;1511
 ;;21,"00591-0405-05 ")
 ;;1512
 ;;21,"00591-0406-01 ")
 ;;1614
 ;;21,"00591-0406-10 ")
 ;;1615
 ;;21,"00591-0407-01 ")
 ;;1778
 ;;21,"00591-0407-10 ")
 ;;1779
 ;;21,"00591-0408-01 ")
 ;;2116
 ;;21,"00591-0408-10 ")
 ;;2117
 ;;21,"00591-0409-01 ")
 ;;2338
 ;;21,"00591-0409-05 ")
 ;;2339
 ;;21,"00591-0409-75 ")
 ;;2340
 ;;21,"00591-0668-01 ")
 ;;716
 ;;21,"00591-0668-05 ")
 ;;717
 ;;21,"00591-0669-01 ")
 ;;818
 ;;21,"00591-0669-05 ")
 ;;819
 ;;21,"00591-0670-01 ")
 ;;972
 ;;21,"00591-0670-05 ")
 ;;973
 ;;21,"00591-0671-01 ")
 ;;1138
 ;;21,"00591-0671-05 ")
 ;;1139
 ;;21,"00591-0860-01 ")
 ;;4213
 ;;21,"00591-0860-05 ")
 ;;4214
 ;;21,"00591-0861-01 ")
 ;;4353
 ;;21,"00591-0861-05 ")
 ;;4354
 ;;21,"00591-0862-01 ")
 ;;4423
 ;;21,"00591-0862-05 ")
 ;;4424
 ;;21,"00591-0885-01 ")
 ;;2295
 ;;21,"00591-2315-10 ")
 ;;5031
 ;;21,"00591-2315-19 ")
 ;;5032
 ;;21,"00591-2316-10 ")
 ;;5082
 ;;21,"00591-2316-19 ")
 ;;5083
 ;;21,"00591-2317-10 ")
 ;;5141
 ;;21,"00591-2317-19 ")
 ;;5142
 ;;21,"00591-2318-19 ")
 ;;5163
 ;;21,"00591-2319-19 ")
 ;;5200
 ;;21,"00591-2782-19 ")
 ;;3094
 ;;21,"00591-2782-30 ")
 ;;3095
 ;;21,"00591-2783-19 ")
 ;;3169
 ;;21,"00591-2783-30 ")
 ;;3170
 ;;21,"00591-2784-19 ")
 ;;3224
 ;;21,"00591-2784-30 ")
 ;;3225
 ;;21,"00591-2785-19 ")
 ;;4690
 ;;21,"00591-2785-30 ")
 ;;4691
 ;;21,"00591-2786-19 ")
 ;;4726
 ;;21,"00591-2786-30 ")
 ;;4727
 ;;21,"00591-3745-10 ")
 ;;3287
 ;;21,"00591-3745-19 ")
 ;;3288
 ;;21,"00591-3746-10 ")
 ;;3390
 ;;21,"00591-3746-19 ")
 ;;3391
 ;;21,"00591-3746-30 ")
 ;;3392
 ;;21,"00591-3747-10 ")
 ;;3481
 ;;21,"00591-3747-19 ")
 ;;3482
 ;;21,"00591-3747-30 ")
 ;;3483
 ;;21,"00591-3757-01 ")
 ;;3723
 ;;21,"00591-3758-01 ")
 ;;3783
 ;;21,"00591-3758-05 ")
 ;;3784
 ;;21,"00591-3759-01 ")
 ;;3837
 ;;21,"00591-3759-05 ")
 ;;3838
 ;;21,"00591-3760-01 ")
 ;;3901
 ;;21,"00591-3760-05 ")
 ;;3902
 ;;21,"00591-3761-01 ")
 ;;3883
 ;;21,"00591-3762-01 ")
 ;;3965
 ;;21,"00597-0039-28 ")
 ;;3588
 ;;21,"00597-0039-37 ")
 ;;3589
 ;;21,"00597-0040-28 ")
 ;;3590
 ;;21,"00597-0040-37 ")
 ;;3591
 ;;21,"00597-0041-28 ")
 ;;3608
 ;;21,"00597-0041-37 ")
 ;;3609
 ;;21,"00597-0042-28 ")
 ;;4992
 ;;21,"00597-0042-37 ")
 ;;4993
 ;;21,"00597-0043-28 ")
 ;;4977
 ;;21,"00597-0043-37 ")
 ;;4978
 ;;21,"00597-0044-28 ")
 ;;4988
 ;;21,"00597-0044-37 ")
 ;;4989
 ;;21,"00597-0124-37 ")
 ;;4618
 ;;21,"00597-0125-37 ")
 ;;4619
 ;;21,"00597-0126-37 ")
 ;;4620
 ;;21,"00597-0127-37 ")
 ;;4621
 ;;21,"00603-4080-02 ")
 ;;3100
 ;;21,"00603-4080-16 ")
 ;;3101
 ;;21,"00603-4081-02 ")
 ;;3161
 ;;21,"00603-4081-16 ")
 ;;3162
 ;;21,"00603-4081-28 ")
 ;;3163
 ;;21,"00603-4082-02 ")
 ;;3231
 ;;21,"00603-4082-16 ")
 ;;3232
 ;;21,"00603-4082-28 ")
 ;;3233
 ;;21,"00603-4088-02 ")
 ;;4692
 ;;21,"00603-4088-16 ")
 ;;4693
 ;;21,"00603-4089-02 ")
 ;;4724
 ;;21,"00603-4089-16 ")
 ;;4725
 ;;21,"00603-4209-21 ")
 ;;1507
 ;;21,"00603-4209-28 ")
 ;;1508
 ;;21,"00603-4210-02 ")
 ;;1624
 ;;21,"00603-4210-16 ")
 ;;1625
 ;;21,"00603-4210-21 ")
 ;;1626
 ;;21,"00603-4210-28 ")
 ;;1627
 ;;21,"00603-4210-30 ")
 ;;1628
 ;;21,"00603-4210-32 ")
 ;;1629
 ;;21,"00603-4210-60 ")
 ;;1630
 ;;21,"00603-4211-02 ")
 ;;1782
 ;;21,"00603-4211-21 ")
 ;;1783
 ;;21,"00603-4211-28 ")
 ;;1784
 ;;21,"00603-4211-32 ")
 ;;1785
 ;;21,"00603-4211-34 ")
 ;;1786
 ;;21,"00603-4211-60 ")
 ;;1787
 ;;21,"00603-4212-02 ")
 ;;2138
 ;;21,"00603-4212-21 ")
 ;;2139
 ;;21,"00603-4212-28 ")
 ;;2140
 ;;21,"00603-4212-32 ")
 ;;2141
 ;;21,"00603-4212-34 ")
 ;;2142
 ;;21,"00603-4212-60 ")
 ;;2143
 ;;21,"00603-4213-21 ")
 ;;2297
 ;;21,"00603-4213-28 ")
 ;;2298
 ;;21,"00603-4214-02 ")
 ;;2360
 ;;21,"00603-4214-04 ")
 ;;2361
 ;;21,"00603-4214-21 ")
 ;;2362
 ;;21,"00603-4214-28 ")
 ;;2363
 ;;21,"00603-4214-30 ")
 ;;2364
 ;;21,"00603-4214-32 ")
 ;;2365
 ;;21,"00603-4214-60 ")
 ;;2366
 ;;21,"00603-4224-02 ")
 ;;3289
 ;;21,"00603-4224-32 ")
 ;;3290
 ;;21,"00603-4225-02 ")
 ;;3387
 ;;21,"00603-4225-16 ")
 ;;3388
 ;;21,"00603-4225-32 ")
 ;;3389
 ;;21,"00603-4226-02 ")
 ;;3484
 ;;21,"00603-4226-16 ")
 ;;3485
 ;;21,"00603-4226-32 ")
 ;;3486
 ;;21,"00603-4228-02 ")
 ;;4769
 ;;21,"00603-4228-16 ")
 ;;4770
 ;;21,"00603-4228-32 ")
 ;;4771
 ;;21,"00603-4229-02 ")
 ;;4828
 ;;21,"00603-4229-16 ")
 ;;4829
 ;;21,"00603-4229-32 ")
 ;;4830
 ;;21,"00603-4230-02 ")
 ;;4895
 ;;21,"00603-4230-16 ")
 ;;4896
 ;;21,"00603-4230-32 ")
 ;;4897
 ;;21,"00603-6345-02 ")
 ;;5025
 ;;21,"00603-6345-28 ")
 ;;5026
 ;;21,"00603-6346-02 ")
 ;;5089
 ;;21,"00603-6346-28 ")
 ;;5090
 ;;21,"00603-6347-02 ")
 ;;5134
 ;;21,"00603-6347-28 ")
 ;;5135
 ;;21,"00603-6348-02 ")
 ;;5169
 ;;21,"00603-6348-28 ")
 ;;5170
 ;;21,"00603-6349-02 ")
 ;;5193
 ;;21,"00603-6349-28 ")
 ;;5194
 ;;21,"00615-4519-53 ")
 ;;376
 ;;21,"00615-4519-63 ")
 ;;377
 ;;21,"00615-4520-53 ")
 ;;488
 ;;21,"00615-4520-63 ")
 ;;489
 ;;21,"00615-4521-53 ")
 ;;593
 ;;21,"00615-4521-63 ")
 ;;594
 ;;21,"00615-4590-53 ")
 ;;834
 ;;21,"00615-4590-63 ")
 ;;835
 ;;21,"00615-4591-53 ")
 ;;974
 ;;21,"00615-4591-63 ")
 ;;975
 ;;21,"00781-1176-01 ")
 ;;4357
 ;;21,"00781-1178-01 ")
 ;;4425
 ;;21,"00781-1229-01 ")
 ;;722
 ;;21,"00781-1229-10 ")
 ;;723
 ;;21,"00781-1229-13 ")
 ;;724
 ;;21,"00781-1231-01 ")
 ;;831
 ;;21,"00781-1231-10 ")
 ;;832
 ;;21,"00781-1231-13 ")
 ;;833
 ;;21,"00781-1232-01 ")
 ;;976
 ;;21,"00781-1232-10 ")
 ;;977
 ;;21,"00781-1232-13 ")
 ;;978
 ;;21,"00781-1233-01 ")
 ;;1148
 ;;21,"00781-1233-10 ")
 ;;1149
 ;;21,"00781-1665-01 ")
 ;;1631
 ;;21,"00781-1665-92 ")
 ;;1632
 ;;21,"00781-1666-01 ")
 ;;1780
 ;;21,"00781-1666-92 ")
 ;;1781
 ;;21,"00781-1667-01 ")
 ;;2144
 ;;21,"00781-1667-92 ")
 ;;2145
 ;;21,"00781-1668-01 ")
 ;;2367
 ;;21,"00781-1668-92 ")
 ;;2368
 ;;21,"00781-1669-01 ")
 ;;1506
 ;;21,"00781-1673-01 ")
 ;;2296
 ;;21,"00781-1828-01 ")
 ;;378
 ;;21,"00781-1828-10 ")
 ;;379
 ;;21,"00781-1829-01 ")
 ;;486
 ;;21,"00781-1829-10 ")
 ;;487
 ;;21,"00781-1838-01 ")
 ;;595
 ;;21,"00781-1838-10 ")
 ;;596
 ;;21,"00781-1839-01 ")
 ;;655
 ;;21,"00781-1848-01 ")
 ;;4215
 ;;21,"00781-1891-01 ")
 ;;12
 ;;21,"00781-1892-01 ")
 ;;83
 ;;21,"00781-1893-01 ")
 ;;190
 ;;21,"00781-1894-01 ")
 ;;253
 ;;21,"00781-2126-01 ")
 ;;2735
 ;;21,"00781-2127-01 ")
 ;;2777
 ;;21,"00781-2127-05 ")
 ;;2778
 ;;21,"00781-2128-01 ")
 ;;2843
 ;;21,"00781-2128-05 ")
 ;;2844
 ;;21,"00781-2129-01 ")
 ;;2916
 ;;21,"00781-2129-05 ")
 ;;2917
 ;;21,"00781-2271-01 ")
 ;;3724
 ;;21,"00781-2271-64 ")
 ;;3725
 ;;21,"00781-2272-01 ")
 ;;3780
 ;;21,"00781-2272-10 ")
 ;;3781
 ;;21,"00781-2272-64 ")
 ;;3782
 ;;21,"00781-2273-01 ")
 ;;3839
 ;;21,"00781-2273-10 ")
 ;;3840
 ;;21,"00781-2273-64 ")
 ;;3841
 ;;21,"00781-2274-01 ")
 ;;3903
 ;;21,"00781-2274-10 ")
 ;;3904
 ;;21,"00781-2274-64 ")
 ;;3905
 ;;21,"00781-2277-01 ")
 ;;3882
 ;;21,"00781-2279-01 ")
 ;;3964
 ;;21,"00781-5083-10 ")
 ;;1270
 ;;21,"00781-5083-92 ")
 ;;1271
 ;;21,"00781-5084-10 ")
 ;;1323
 ;;21,"00781-5084-92 ")
 ;;1324
 ;;21,"00781-5085-92 ")
 ;;1422
 ;;21,"00781-5131-01 ")
 ;;4008
 ;;21,"00781-5132-01 ")
 ;;4018
 ;;21,"00781-5133-01 ")
 ;;4044
 ;;21,"00781-5134-01 ")
 ;;4070
 ;;21,"00781-5204-10 ")
 ;;4831
 ;;21,"00781-5204-31 ")
 ;;4832