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

BGP44O2.m

Go to the documentation of this file.
BGP44O2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
 ;;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,"00186-0162-54 ")
 ;;3250
 ;;21,"00186-0322-28 ")
 ;;3259
 ;;21,"00186-0322-54 ")
 ;;3260
 ;;21,"00186-0324-54 ")
 ;;3270
 ;;21,"00187-0140-30 ")
 ;;449
 ;;21,"00187-0140-90 ")
 ;;450
 ;;21,"00187-0141-30 ")
 ;;545
 ;;21,"00187-0141-90 ")
 ;;546
 ;;21,"00187-0142-10 ")
 ;;645
 ;;21,"00187-0142-30 ")
 ;;646
 ;;21,"00187-0142-90 ")
 ;;647
 ;;21,"00187-0143-10 ")
 ;;736
 ;;21,"00187-0143-30 ")
 ;;737
 ;;21,"00187-0143-90 ")
 ;;738
 ;;21,"00187-0146-01 ")
 ;;2914
 ;;21,"00245-0193-01 ")
 ;;2284
 ;;21,"00245-0193-10 ")
 ;;2285
 ;;21,"00245-0193-30 ")
 ;;2286
 ;;21,"00245-0193-90 ")
 ;;2287
 ;;21,"00245-0194-01 ")
 ;;2374
 ;;21,"00245-0194-10 ")
 ;;2375
 ;;21,"00245-0194-30 ")
 ;;2376
 ;;21,"00245-0194-90 ")
 ;;2377
 ;;21,"00245-0195-01 ")
 ;;2447
 ;;21,"00245-0195-10 ")
 ;;2448
 ;;21,"00245-0195-30 ")
 ;;2449
 ;;21,"00245-0195-90 ")
 ;;2450
 ;;21,"00247-1023-00 ")
 ;;1465
 ;;21,"00247-1023-30 ")
 ;;1466
 ;;21,"00247-1023-60 ")
 ;;1467
 ;;21,"00247-1090-30 ")
 ;;1938
 ;;21,"00247-1090-60 ")
 ;;1939
 ;;21,"00247-1091-30 ")
 ;;1877
 ;;21,"00247-1091-60 ")
 ;;1878
 ;;21,"00247-1147-10 ")
 ;;1272
 ;;21,"00247-1147-30 ")
 ;;1273
 ;;21,"00247-1147-60 ")
 ;;1274
 ;;21,"00247-1149-30 ")
 ;;3078
 ;;21,"00247-1149-60 ")
 ;;3079
 ;;21,"00247-1150-30 ")
 ;;3159
 ;;21,"00247-1150-60 ")
 ;;3160
 ;;21,"00247-1396-30 ")
 ;;936
 ;;21,"00310-0130-11 ")
 ;;1083
 ;;21,"00310-0131-11 ")
 ;;1269
 ;;21,"00310-0132-11 ")
 ;;1474
 ;;21,"00310-0133-11 ")
 ;;1521
 ;;21,"00310-0134-11 ")
 ;;1674
 ;;21,"00310-0135-11 ")
 ;;937
 ;;21,"00310-0141-11 ")
 ;;2998
 ;;21,"00310-0142-11 ")
 ;;3081
 ;;21,"00310-0145-11 ")
 ;;3161
 ;;21,"00378-0081-01 ")
 ;;2876
 ;;21,"00378-0083-01 ")
 ;;2877
 ;;21,"00378-0084-01 ")
 ;;2879
 ;;21,"00378-0086-01 ")
 ;;2880
 ;;21,"00378-0226-77 ")
 ;;1747
 ;;21,"00378-0254-77 ")
 ;;1772
 ;;21,"00378-0272-77 ")
 ;;1811
 ;;21,"00378-0441-01 ")
 ;;2
 ;;21,"00378-0443-01 ")
 ;;63
 ;;21,"00378-0444-01 ")
 ;;110
 ;;21,"00378-0447-01 ")
 ;;195
 ;;21,"00378-0542-77 ")
 ;;3185
 ;;21,"00378-0543-77 ")
 ;;3195
 ;;21,"00378-0544-77 ")
 ;;3207
 ;;21,"00378-0712-01 ")
 ;;2896
 ;;21,"00378-0723-01 ")
 ;;2897
 ;;21,"00378-1012-01 ")
 ;;2968
 ;;21,"00378-1051-01 ")
 ;;416
 ;;21,"00378-1051-05 ")
 ;;417
 ;;21,"00378-1052-01 ")
 ;;451
 ;;21,"00378-1052-10 ")
 ;;452
 ;;21,"00378-1053-01 ")
 ;;547
 ;;21,"00378-1053-10 ")
 ;;548
 ;;21,"00378-1054-01 ")
 ;;648
 ;;21,"00378-1054-05 ")
 ;;649
 ;;21,"00378-1117-77 ")
 ;;1717
 ;;21,"00378-1418-77 ")
 ;;3369
 ;;21,"00378-1418-93 ")
 ;;3370
 ;;21,"00378-1419-10 ")
 ;;3416
 ;;21,"00378-1419-77 ")
 ;;3417
 ;;21,"00378-1419-93 ")
 ;;3418
 ;;21,"00378-1420-77 ")
 ;;3476
 ;;21,"00378-1420-93 ")
 ;;3477
 ;;21,"00378-2012-01 ")
 ;;3019
 ;;21,"00378-2022-05 ")
 ;;2090
 ;;21,"00378-2022-77 ")
 ;;2091
 ;;21,"00378-2023-05 ")
 ;;2147
 ;;21,"00378-2023-77 ")
 ;;2148
 ;;21,"00378-2023-93 ")
 ;;2149
 ;;21,"00378-2024-05 ")
 ;;2214
 ;;21,"00378-2024-77 ")
 ;;2215
 ;;21,"00378-2024-93 ")
 ;;2216
 ;;21,"00378-2025-01 ")
 ;;3102
 ;;21,"00378-2072-01 ")
 ;;901
 ;;21,"00378-2073-01 ")
 ;;993
 ;;21,"00378-2073-10 ")
 ;;994
 ;;21,"00378-2074-01 ")
 ;;1124
 ;;21,"00378-2074-10 ")
 ;;1125
 ;;21,"00378-2075-01 ")
 ;;1383
 ;;21,"00378-2075-10 ")
 ;;1384
 ;;21,"00378-2076-01 ")
 ;;1571
 ;;21,"00378-2076-05 ")
 ;;1572
 ;;21,"00378-2077-01 ")
 ;;1499
 ;;21,"00378-3001-05 ")
 ;;3251
 ;;21,"00378-3001-77 ")
 ;;3252
 ;;21,"00378-3002-05 ")
 ;;3265
 ;;21,"00378-3002-77 ")
 ;;3266
 ;;21,"00378-3003-05 ")
 ;;3271
 ;;21,"00378-3003-77 ")
 ;;3272
 ;;21,"00378-3007-01 ")
 ;;220
 ;;21,"00378-3007-10 ")
 ;;221
 ;;21,"00378-3012-01 ")
 ;;309
 ;;21,"00378-3012-10 ")
 ;;310
 ;;21,"00378-3017-01 ")
 ;;335
 ;;21,"00378-3017-10 ")
 ;;336
 ;;21,"00378-3022-01 ")
 ;;407
 ;;21,"00378-3033-77 ")
 ;;3311
 ;;21,"00378-3033-93 ")
 ;;3312
 ;;21,"00378-3034-77 ")
 ;;3335
 ;;21,"00378-3034-93 ")
 ;;3336
 ;;21,"00378-3241-01 ")
 ;;1993
 ;;21,"00378-3242-01 ")
 ;;2004
 ;;21,"00378-3243-01 ")
 ;;2019
 ;;21,"00378-4041-77 ")
 ;;2276
 ;;21,"00378-4042-77 ")
 ;;2363
 ;;21,"00378-4042-93 ")
 ;;2364
 ;;21,"00378-4043-77 ")
 ;;2442
 ;;21,"00378-4043-93 ")
 ;;2443
 ;;21,"00378-4725-01 ")
 ;;2835
 ;;21,"00378-4735-01 ")
 ;;2836
 ;;21,"00378-4745-01 ")
 ;;2850
 ;;21,"00378-4775-01 ")
 ;;2865
 ;;21,"00378-6321-05 ")
 ;;3583
 ;;21,"00378-6321-77 ")
 ;;3584
 ;;21,"00378-6322-05 ")
 ;;3628
 ;;21,"00378-6322-77 ")
 ;;3629
 ;;21,"00378-6323-05 ")
 ;;3675
 ;;21,"00378-6323-77 ")
 ;;3676
 ;;21,"00378-6324-05 ")
 ;;3694
 ;;21,"00378-6324-77 ")
 ;;3695
 ;;21,"00378-6325-05 ")
 ;;3720
 ;;21,"00378-6325-77 ")
 ;;3721
 ;;21,"00378-6629-93 ")
 ;;2068
 ;;21,"00378-6895-01 ")
 ;;2613
 ;;21,"00378-6896-01 ")
 ;;2655
 ;;21,"00378-6896-05 ")
 ;;2656
 ;;21,"00378-6897-01 ")
 ;;2695
 ;;21,"00378-6897-05 ")
 ;;2696
 ;;21,"00378-6898-01 ")
 ;;2787
 ;;21,"00378-6898-05 ")
 ;;2788
 ;;21,"00378-6899-01 ")
 ;;2747
 ;;21,"00378-6900-01 ")
 ;;2811
 ;;21,"00440-7140-30 ")
 ;;2617
 ;;21,"00440-7140-90 ")
 ;;2618
 ;;21,"00440-7141-30 ")
 ;;2637
 ;;21,"00440-7141-90 ")
 ;;2638
 ;;21,"00440-7142-30 ")
 ;;2682
 ;;21,"00440-7142-90 ")
 ;;2683
 ;;21,"00440-7143-30 ")
 ;;2765
 ;;21,"00440-7143-90 ")
 ;;2766
 ;;21,"00440-7190-30 ")
 ;;25
 ;;21,"00440-7190-90 ")
 ;;26
 ;;21,"00440-7192-30 ")
 ;;91
 ;;21,"00440-7192-90 ")
 ;;92
 ;;21,"00440-7193-30 ")
 ;;161
 ;;21,"00440-7193-90 ")
 ;;162
 ;;21,"00440-7230-60 ")
 ;;245
 ;;21,"00440-7230-90 ")
 ;;246
 ;;21,"00440-7230-92 ")
 ;;247
 ;;21,"00440-7230-94 ")
 ;;248
 ;;21,"00440-7231-30 ")
 ;;273
 ;;21,"00440-7231-60 ")
 ;;302
 ;;21,"00440-7231-90 ")
 ;;303
 ;;21,"00440-7231-91 ")
 ;;304
 ;;21,"00440-7231-92 ")
 ;;305
 ;;21,"00440-7231-94 ")
 ;;306
 ;;21,"00440-7232-30 ")
 ;;340
 ;;21,"00440-7232-60 ")
 ;;341
 ;;21,"00440-7232-90 ")
 ;;342
 ;;21,"00440-7232-91 ")
 ;;343
 ;;21,"00440-7232-92 ")
 ;;344
 ;;21,"00440-7232-94 ")
 ;;345
 ;;21,"00440-7345-99 ")
 ;;2290
 ;;21,"00440-7485-90 ")
 ;;415
 ;;21,"00440-7486-10 ")
 ;;453
 ;;21,"00440-7486-30 ")
 ;;454
 ;;21,"00440-7486-60 ")
 ;;455
 ;;21,"00440-7486-90 ")
 ;;483
 ;;21,"00440-7486-91 ")
 ;;484
 ;;21,"00440-7487-30 ")
 ;;574
 ;;21,"00440-7487-90 ")
 ;;575
 ;;21,"00440-7488-90 ")
 ;;679
 ;;21,"00440-7550-45 ")
 ;;740
 ;;21,"00440-7550-90 ")
 ;;741
 ;;21,"00440-7551-45 ")
 ;;821
 ;;21,"00440-7551-90 ")
 ;;822
 ;;21,"00440-7552-45 ")
 ;;837
 ;;21,"00440-7552-90 ")
 ;;838
 ;;21,"00440-7552-92 ")
 ;;839
 ;;21,"00440-7674-90 ")
 ;;1000
 ;;21,"00440-7675-30 ")
 ;;1168
 ;;21,"00440-7675-90 ")
 ;;1169
 ;;21,"00440-7676-14 ")
 ;;1311
 ;;21,"00440-7676-30 ")
 ;;1312
 ;;21,"00440-7676-45 ")
 ;;1313
 ;;21,"00440-7676-90 ")
 ;;1314
 ;;21,"00440-7677-90 ")
 ;;1660
 ;;21,"00440-7682-30 ")
 ;;2996
 ;;21,"00440-7683-30 ")
 ;;3043
 ;;21,"00440-7683-60 ")
 ;;3044
 ;;21,"00440-7684-30 ")
 ;;3116
 ;;21,"00440-8072-06 ")
 ;;1797
 ;;21,"00440-8270-06 ")
 ;;1769
 ;;21,"00440-8272-06 ")
 ;;1796
 ;;21,"00440-8567-30 ")
 ;;1998
 ;;21,"00440-8567-60 ")
 ;;1999
 ;;21,"00440-8567-90 ")
 ;;2000
 ;;21,"00440-8568-30 ")
 ;;2007
 ;;21,"00440-8568-60 ")
 ;;2008
 ;;21,"00440-8568-90 ")
 ;;2009
 ;;21,"00440-8569-30 ")
 ;;2024
 ;;21,"00440-8569-60 ")
 ;;2025
 ;;21,"00440-8569-90 ")
 ;;2026
 ;;21,"00490-0067-00 ")
 ;;2898
 ;;21,"00490-0067-30 ")
 ;;2899
 ;;21,"00490-0067-60 ")
 ;;2900
 ;;21,"00490-0067-90 ")
 ;;2901
 ;;21,"00490-7030-00 ")
 ;;2890
 ;;21,"00490-7030-30 ")
 ;;2891
 ;;21,"00490-7030-60 ")
 ;;2892
 ;;21,"00490-7030-90 ")
 ;;2893
 ;;21,"00574-0110-01 ")
 ;;1677
 ;;21,"00574-0112-15 ")
 ;;1687
 ;;21,"00574-0133-01 ")
 ;;3165
 ;;21,"00574-0134-01 ")
 ;;3169
 ;;21,"00574-0135-01 ")
 ;;3177
 ;;21,"00591-0405-01 ")
 ;;923
 ;;21,"00591-0405-05 ")
 ;;924
 ;;21,"00591-0406-01 ")
 ;;1021
 ;;21,"00591-0406-10 ")
 ;;1022
 ;;21,"00591-0407-01 ")
 ;;1215
 ;;21,"00591-0407-10 ")
 ;;1216
 ;;21,"00591-0408-01 ")
 ;;1370
 ;;21,"00591-0408-10 ")
 ;;1371
 ;;21,"00591-0409-01 ")
 ;;1647
 ;;21,"00591-0409-05 ")
 ;;1648
 ;;21,"00591-0860-01 ")
 ;;2975
 ;;21,"00591-0860-05 ")
 ;;2976
 ;;21,"00591-0861-01 ")
 ;;3062
 ;;21,"00591-0861-05 ")
 ;;3063
 ;;21,"00591-0862-01 ")
 ;;3129
 ;;21,"00591-0862-05 ")
 ;;3130
 ;;21,"00591-0885-01 ")
 ;;1508
 ;;21,"00591-2315-10 ")
 ;;3586
 ;;21,"00591-2315-19 ")
 ;;3587
 ;;21,"00591-2316-10 ")
 ;;3633
 ;;21,"00591-2316-19 ")
 ;;3634
 ;;21,"00591-2317-10 ")
 ;;3667
 ;;21,"00591-2317-19 ")
 ;;3668
 ;;21,"00591-2318-19 ")
 ;;3692
 ;;21,"00591-2319-19 ")
 ;;3716
 ;;21,"00591-2782-19 ")
 ;;2098
 ;;21,"00591-2782-30 ")
 ;;2099
 ;;21,"00591-2783-19 ")
 ;;2165
 ;;21,"00591-2783-30 ")
 ;;2166
 ;;21,"00591-2784-19 ")
 ;;2227
 ;;21,"00591-2784-30 ")
 ;;2228
 ;;21,"00591-2785-19 ")
 ;;3309
 ;;21,"00591-2785-30 ")
 ;;3310
 ;;21,"00591-2786-19 ")
 ;;3337
 ;;21,"00591-2786-30 ")
 ;;3338
 ;;21,"00591-3745-10 ")
 ;;2280
 ;;21,"00591-3745-19 ")
 ;;2281
 ;;21,"00591-3746-10 ")
 ;;2367
 ;;21,"00591-3747-10 ")
 ;;2456
 ;;21,"00591-3757-01 ")
 ;;2622
 ;;21,"00591-3758-01 ")
 ;;2659
 ;;21,"00591-3758-05 ")
 ;;2660
 ;;21,"00591-3759-01 ")
 ;;2712
 ;;21,"00591-3759-05 ")
 ;;2713
 ;;21,"00591-3760-01 ")
 ;;2755
 ;;21,"00591-3760-05 ")
 ;;2756
 ;;21,"00591-3761-01 ")
 ;;2734
 ;;21,"00591-3762-01 ")
 ;;2807
 ;;21,"00597-0039-37 ")
 ;;2502
 ;;21,"00597-0040-37 ")
 ;;2503
 ;;21,"00597-0041-37 ")
 ;;2518
 ;;21,"00597-0042-37 ")
 ;;3552
 ;;21,"00597-0043-37 ")
 ;;3542
 ;;21,"00597-0044-37 ")
 ;;3551
 ;;21,"00597-0124-37 ")
 ;;3242
 ;;21,"00597-0125-37 ")
 ;;3243
 ;;21,"00597-0126-37 ")
 ;;3244
 ;;21,"00597-0127-37 ")
 ;;3245
 ;;21,"00603-4080-02 ")
 ;;2078
 ;;21,"00603-4080-16 ")
 ;;2079
 ;;21,"00603-4081-02 ")
 ;;2139
 ;;21,"00603-4081-16 ")
 ;;2140
 ;;21,"00603-4081-28 ")
 ;;2141
 ;;21,"00603-4082-02 ")
 ;;2197
 ;;21,"00603-4082-16 ")
 ;;2198
 ;;21,"00603-4082-28 ")
 ;;2199
 ;;21,"00603-4088-02 ")
 ;;3300
 ;;21,"00603-4088-16 ")
 ;;3301
 ;;21,"00603-4089-02 ")
 ;;3327
 ;;21,"00603-4089-16 ")
 ;;3328
 ;;21,"00603-4209-21 ")
 ;;889
 ;;21,"00603-4209-28 ")
 ;;890
 ;;21,"00603-4210-02 ")
 ;;962
 ;;21,"00603-4210-16 ")
 ;;963
 ;;21,"00603-4210-21 ")
 ;;964
 ;;21,"00603-4210-28 ")
 ;;965
 ;;21,"00603-4210-30 ")
 ;;966
 ;;21,"00603-4210-32 ")
 ;;967
 ;;21,"00603-4210-60 ")
 ;;968
 ;;21,"00603-4211-02 ")
 ;;1137
 ;;21,"00603-4211-21 ")
 ;;1138
 ;;21,"00603-4211-28 ")
 ;;1139
 ;;21,"00603-4211-32 ")
 ;;1140
 ;;21,"00603-4211-34 ")
 ;;1141
 ;;21,"00603-4211-60 ")
 ;;1142
 ;;21,"00603-4212-02 ")
 ;;1444
 ;;21,"00603-4212-21 ")
 ;;1445
 ;;21,"00603-4212-28 ")
 ;;1446
 ;;21,"00603-4212-32 ")
 ;;1447
 ;;21,"00603-4212-34 ")
 ;;1448
 ;;21,"00603-4212-60 ")
 ;;1449
 ;;21,"00603-4213-21 ")
 ;;1483
 ;;21,"00603-4213-28 ")
 ;;1484
 ;;21,"00603-4214-02 ")
 ;;1550
 ;;21,"00603-4214-04 ")
 ;;1551
 ;;21,"00603-4214-21 ")
 ;;1552
 ;;21,"00603-4214-28 ")
 ;;1553
 ;;21,"00603-4214-30 ")
 ;;1554
 ;;21,"00603-4214-32 ")
 ;;1555
 ;;21,"00603-4214-60 ")
 ;;1556
 ;;21,"00603-4224-02 ")
 ;;2238
 ;;21,"00603-4224-32 ")
 ;;2239
 ;;21,"00603-4225-02 ")
 ;;2311
 ;;21,"00603-4225-16 ")
 ;;2312
 ;;21,"00603-4225-32 ")
 ;;2313
 ;;21,"00603-4226-02 ")
 ;;2393
 ;;21,"00603-4226-16 ")
 ;;2394
 ;;21,"00603-4226-32 ")
 ;;2395
 ;;21,"00603-4228-02 ")
 ;;3354
 ;;21,"00603-4228-16 ")
 ;;3355
 ;;21,"00603-4228-32 ")
 ;;3356
 ;;21,"00603-4229-02 ")
 ;;3410
 ;;21,"00603-4229-16 ")
 ;;3411
 ;;21,"00603-4229-32 ")
 ;;3412
 ;;21,"00603-4230-02 ")
 ;;3466
 ;;21,"00603-4230-16 ")
 ;;3467
 ;;21,"00603-4230-32 ")
 ;;3468
 ;;21,"00781-1665-01 ")
 ;;1028
 ;;21,"00781-1665-92 ")
 ;;1029
 ;;21,"00781-1666-01 ")
 ;;1208
 ;;21,"00781-1666-92 ")
 ;;1209
 ;;21,"00781-1667-01 ")
 ;;1377
 ;;21,"00781-1667-92 ")
 ;;1378
 ;;21,"00781-1668-01 ")
 ;;1653
 ;;21,"00781-1668-92 ")
 ;;1654
 ;;21,"00781-1669-01 ")
 ;;916
 ;;21,"00781-1673-01 ")
 ;;1507
 ;;21,"00781-1828-01 ")
 ;;228
 ;;21,"00781-1828-10 ")
 ;;229
 ;;21,"00781-1829-01 ")
 ;;292
 ;;21,"00781-1829-10 ")
 ;;293
 ;;21,"00781-1838-01 ")
 ;;348
 ;;21,"00781-1838-10 ")
 ;;349
 ;;21,"00781-1839-01 ")
 ;;404
 ;;21,"00781-1891-01 ")
 ;;7
 ;;21,"00781-1892-01 ")
 ;;59
 ;;21,"00781-2126-01 ")
 ;;1831
 ;;21,"00781-2127-01 ")
 ;;1866
 ;;21,"00781-2127-05 ")
 ;;1867
 ;;21,"00781-2128-01 ")
 ;;1919
 ;;21,"00781-2128-05 ")
 ;;1920
 ;;21,"00781-2129-01 ")
 ;;1972
 ;;21,"00781-2129-05 ")
 ;;1973
 ;;21,"00781-2271-01 ")
 ;;2625
 ;;21,"00781-2271-64 ")
 ;;2626
 ;;21,"00781-2272-01 ")
 ;;2661
 ;;21,"00781-2272-10 ")
 ;;2662
 ;;21,"00781-2272-64 ")
 ;;2663
 ;;21,"00781-2273-01 ")
 ;;2715
 ;;21,"00781-2273-10 ")
 ;;2716
 ;;21,"00781-2273-64 ")
 ;;2717