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

BGP0ZD8.m

Go to the documentation of this file.
BGP0ZD8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"61392-0295-31 ")
 ;;2730
 ;;21,"61392-0295-32 ")
 ;;2731
 ;;21,"61392-0295-39 ")
 ;;2729
 ;;21,"61392-0295-45 ")
 ;;2732
 ;;21,"61392-0295-51 ")
 ;;2735
 ;;21,"61392-0295-54 ")
 ;;2736
 ;;21,"61392-0295-56 ")
 ;;2737
 ;;21,"61392-0295-60 ")
 ;;2733
 ;;21,"61392-0295-90 ")
 ;;2734
 ;;21,"61392-0295-91 ")
 ;;2738
 ;;21,"61392-0298-30 ")
 ;;3060
 ;;21,"61392-0298-31 ")
 ;;3062
 ;;21,"61392-0298-32 ")
 ;;3063
 ;;21,"61392-0298-39 ")
 ;;3061
 ;;21,"61392-0298-45 ")
 ;;3064
 ;;21,"61392-0298-51 ")
 ;;3067
 ;;21,"61392-0298-54 ")
 ;;3068
 ;;21,"61392-0298-56 ")
 ;;3069
 ;;21,"61392-0298-60 ")
 ;;3065
 ;;21,"61392-0298-90 ")
 ;;3066
 ;;21,"61392-0298-91 ")
 ;;3070
 ;;21,"61392-0301-30 ")
 ;;3071
 ;;21,"61392-0301-31 ")
 ;;3073
 ;;21,"61392-0301-32 ")
 ;;3074
 ;;21,"61392-0301-39 ")
 ;;3072
 ;;21,"61392-0301-45 ")
 ;;3075
 ;;21,"61392-0301-51 ")
 ;;3078
 ;;21,"61392-0301-54 ")
 ;;3079
 ;;21,"61392-0301-56 ")
 ;;3080
 ;;21,"61392-0301-60 ")
 ;;3076
 ;;21,"61392-0301-90 ")
 ;;3077
 ;;21,"61392-0301-91 ")
 ;;3081
 ;;21,"61392-0398-30 ")
 ;;1435
 ;;21,"61392-0398-31 ")
 ;;1437
 ;;21,"61392-0398-32 ")
 ;;1438
 ;;21,"61392-0398-39 ")
 ;;1436
 ;;21,"61392-0398-45 ")
 ;;1439
 ;;21,"61392-0398-51 ")
 ;;1442
 ;;21,"61392-0398-54 ")
 ;;1443
 ;;21,"61392-0398-56 ")
 ;;1444
 ;;21,"61392-0398-60 ")
 ;;1440
 ;;21,"61392-0398-90 ")
 ;;1441
 ;;21,"61392-0398-91 ")
 ;;1445
 ;;21,"61392-0401-30 ")
 ;;1446
 ;;21,"61392-0401-31 ")
 ;;1448
 ;;21,"61392-0401-32 ")
 ;;1449
 ;;21,"61392-0401-39 ")
 ;;1447
 ;;21,"61392-0401-45 ")
 ;;1450
 ;;21,"61392-0401-51 ")
 ;;1454
 ;;21,"61392-0401-54 ")
 ;;1453
 ;;21,"61392-0401-56 ")
 ;;1455
 ;;21,"61392-0401-60 ")
 ;;1451
 ;;21,"61392-0401-90 ")
 ;;1452
 ;;21,"61392-0401-91 ")
 ;;1456
 ;;21,"61392-0527-30 ")
 ;;2059
 ;;21,"61392-0527-31 ")
 ;;2061
 ;;21,"61392-0527-32 ")
 ;;2062
 ;;21,"61392-0527-39 ")
 ;;2060
 ;;21,"61392-0527-45 ")
 ;;2063
 ;;21,"61392-0527-51 ")
 ;;2066
 ;;21,"61392-0527-54 ")
 ;;2067
 ;;21,"61392-0527-60 ")
 ;;2064
 ;;21,"61392-0527-90 ")
 ;;2065
 ;;21,"61392-0527-91 ")
 ;;2068
 ;;21,"61392-0528-30 ")
 ;;2069
 ;;21,"61392-0528-31 ")
 ;;2071
 ;;21,"61392-0528-32 ")
 ;;2072
 ;;21,"61392-0528-39 ")
 ;;2070
 ;;21,"61392-0528-45 ")
 ;;2073
 ;;21,"61392-0528-51 ")
 ;;2076
 ;;21,"61392-0528-54 ")
 ;;2077
 ;;21,"61392-0528-60 ")
 ;;2074
 ;;21,"61392-0528-90 ")
 ;;2075
 ;;21,"61392-0528-91 ")
 ;;2078
 ;;21,"61392-0529-30 ")
 ;;2079
 ;;21,"61392-0529-31 ")
 ;;2081
 ;;21,"61392-0529-32 ")
 ;;2082
 ;;21,"61392-0529-39 ")
 ;;2080
 ;;21,"61392-0529-45 ")
 ;;2083
 ;;21,"61392-0529-51 ")
 ;;2086
 ;;21,"61392-0529-54 ")
 ;;2087
 ;;21,"61392-0529-60 ")
 ;;2084
 ;;21,"61392-0529-90 ")
 ;;2085
 ;;21,"61392-0529-91 ")
 ;;2088
 ;;21,"61392-0573-30 ")
 ;;1056
 ;;21,"61392-0573-31 ")
 ;;1058
 ;;21,"61392-0573-32 ")
 ;;1059
 ;;21,"61392-0573-39 ")
 ;;1057
 ;;21,"61392-0573-45 ")
 ;;1060
 ;;21,"61392-0573-51 ")
 ;;1063
 ;;21,"61392-0573-54 ")
 ;;1064
 ;;21,"61392-0573-56 ")
 ;;1065
 ;;21,"61392-0573-60 ")
 ;;1061
 ;;21,"61392-0573-90 ")
 ;;1062
 ;;21,"61392-0573-91 ")
 ;;1066
 ;;21,"61392-0784-30 ")
 ;;985
 ;;21,"61392-0784-31 ")
 ;;987
 ;;21,"61392-0784-32 ")
 ;;988
 ;;21,"61392-0784-39 ")
 ;;986
 ;;21,"61392-0784-45 ")
 ;;989
 ;;21,"61392-0784-51 ")
 ;;992
 ;;21,"61392-0784-54 ")
 ;;993
 ;;21,"61392-0784-60 ")
 ;;990
 ;;21,"61392-0784-90 ")
 ;;991
 ;;21,"61392-0784-91 ")
 ;;994
 ;;21,"61392-0785-30 ")
 ;;995
 ;;21,"61392-0785-31 ")
 ;;997
 ;;21,"61392-0785-32 ")
 ;;998
 ;;21,"61392-0785-39 ")
 ;;996
 ;;21,"61392-0785-45 ")
 ;;999
 ;;21,"61392-0785-51 ")
 ;;1002
 ;;21,"61392-0785-54 ")
 ;;1003
 ;;21,"61392-0785-60 ")
 ;;1000
 ;;21,"61392-0785-90 ")
 ;;1001
 ;;21,"61392-0785-91 ")
 ;;1004
 ;;21,"61562-0077-11 ")
 ;;2457
 ;;21,"62037-0520-01 ")
 ;;2324
 ;;21,"62037-0826-75 ")
 ;;2962
 ;;21,"62584-0746-01 ")
 ;;2152
 ;;21,"62584-0746-85 ")
 ;;2153
 ;;21,"62584-0747-01 ")
 ;;2154
 ;;21,"62584-0747-85 ")
 ;;2155
 ;;21,"62584-0748-01 ")
 ;;2156
 ;;21,"62584-0748-85 ")
 ;;2157
 ;;21,"62682-2019-01 ")
 ;;21
 ;;21,"62682-2019-02 ")
 ;;20
 ;;21,"62991-1081-01 ")
 ;;1768
 ;;21,"62991-1081-02 ")
 ;;1769
 ;;21,"62991-1081-03 ")
 ;;1770
 ;;21,"62991-1081-04 ")
 ;;1771
 ;;21,"62991-1088-01 ")
 ;;2339
 ;;21,"62991-1088-02 ")
 ;;2340
 ;;21,"62991-1088-03 ")
 ;;2341
 ;;21,"62991-1088-04 ")
 ;;2342
 ;;21,"62991-1088-05 ")
 ;;2343
 ;;21,"62991-1088-06 ")
 ;;2344
 ;;21,"62991-1113-01 ")
 ;;1350
 ;;21,"62991-1113-02 ")
 ;;1351
 ;;21,"62991-1113-03 ")
 ;;1352
 ;;21,"62991-1239-01 ")
 ;;623
 ;;21,"62991-1239-02 ")
 ;;622
 ;;21,"62991-1354-02 ")
 ;;2502
 ;;21,"62991-2024-01 ")
 ;;38
 ;;21,"62991-2024-02 ")
 ;;39
 ;;21,"63275-9995-08 ")
 ;;2158
 ;;21,"63275-9995-09 ")
 ;;2159
 ;;21,"63275-9996-05 ")
 ;;2379
 ;;21,"63275-9996-08 ")
 ;;2380
 ;;21,"63275-9996-09 ")
 ;;2381
 ;;21,"63304-0681-01 ")
 ;;1564
 ;;21,"63304-0682-01 ")
 ;;1560
 ;;21,"63304-0690-01 ")
 ;;1368
 ;;21,"63304-0691-01 ")
 ;;1369
 ;;21,"63304-0691-05 ")
 ;;1370
 ;;21,"63304-0701-01 ")
 ;;352
 ;;21,"63304-0714-01 ")
 ;;353
 ;;21,"63323-0161-01 ")
 ;;810
 ;;21,"63323-0162-01 ")
 ;;811
 ;;21,"63323-0162-02 ")
 ;;812
 ;;21,"63370-0081-25 ")
 ;;30
 ;;21,"63370-0081-35 ")
 ;;31
 ;;21,"63370-0081-45 ")
 ;;32
 ;;21,"63370-0096-15 ")
 ;;1634
 ;;21,"63370-0096-25 ")
 ;;1635
 ;;21,"63370-0096-35 ")
 ;;1636
 ;;21,"63370-0096-45 ")
 ;;1637
 ;;21,"63370-0110-45 ")
 ;;1727
 ;;21,"63370-0110-50 ")
 ;;1728
 ;;21,"63370-0110-55 ")
 ;;1729
 ;;21,"63370-0114-15 ")
 ;;606
 ;;21,"63370-0114-25 ")
 ;;607
 ;;21,"63370-0114-35 ")
 ;;608
 ;;21,"63370-0114-45 ")
 ;;609
 ;;21,"63370-0114-50 ")
 ;;610
 ;;21,"63370-0130-25 ")
 ;;2330
 ;;21,"63370-0130-35 ")
 ;;2331
 ;;21,"63370-0130-45 ")
 ;;2332
 ;;21,"63370-0130-50 ")
 ;;2333
 ;;21,"63370-0130-55 ")
 ;;2334
 ;;21,"63370-0130-61 ")
 ;;2329
 ;;21,"63370-0164-25 ")
 ;;2477
 ;;21,"63370-0164-35 ")
 ;;2478
 ;;21,"63370-0164-45 ")
 ;;2479
 ;;21,"63370-0164-50 ")
 ;;2480
 ;;21,"63370-0185-15 ")
 ;;1340
 ;;21,"63370-0185-25 ")
 ;;1341
 ;;21,"63370-0185-35 ")
 ;;1342
 ;;21,"63370-0185-45 ")
 ;;1343
 ;;21,"63739-0135-01 ")
 ;;2042
 ;;21,"63739-0135-03 ")
 ;;2043
 ;;21,"63739-0136-01 ")
 ;;2044
 ;;21,"63739-0136-03 ")
 ;;2045
 ;;21,"63739-0137-01 ")
 ;;2046
 ;;21,"63739-0137-03 ")
 ;;2047
 ;;21,"63874-0301-01 ")
 ;;2597
 ;;21,"63874-0301-20 ")
 ;;2595
 ;;21,"63874-0301-21 ")
 ;;2596
 ;;21,"63874-0301-50 ")
 ;;2598
 ;;21,"63874-0307-01 ")
 ;;3441
 ;;21,"63874-0307-10 ")
 ;;3438
 ;;21,"63874-0307-20 ")
 ;;3439
 ;;21,"63874-0307-60 ")
 ;;3440
 ;;21,"63874-0318-01 ")
 ;;671
 ;;21,"63874-0318-02 ")
 ;;672
 ;;21,"63874-0318-08 ")
 ;;659
 ;;21,"63874-0318-14 ")
 ;;673
 ;;21,"63874-0318-20 ")
 ;;660
 ;;21,"63874-0318-21 ")
 ;;661
 ;;21,"63874-0318-22 ")
 ;;662
 ;;21,"63874-0318-25 ")
 ;;663
 ;;21,"63874-0318-28 ")
 ;;664
 ;;21,"63874-0318-30 ")
 ;;665
 ;;21,"63874-0318-40 ")
 ;;666
 ;;21,"63874-0318-50 ")
 ;;667
 ;;21,"63874-0318-60 ")
 ;;668
 ;;21,"63874-0318-75 ")
 ;;669
 ;;21,"63874-0318-90 ")
 ;;670
 ;;21,"63874-0322-01 ")
 ;;2177
 ;;21,"63874-0322-03 ")
 ;;2178
 ;;21,"63874-0322-08 ")
 ;;2160
 ;;21,"63874-0322-12 ")
 ;;2161
 ;;21,"63874-0322-14 ")
 ;;2162
 ;;21,"63874-0322-15 ")
 ;;2163
 ;;21,"63874-0322-16 ")
 ;;2164
 ;;21,"63874-0322-20 ")
 ;;2165
 ;;21,"63874-0322-21 ")
 ;;2166
 ;;21,"63874-0322-24 ")
 ;;2167
 ;;21,"63874-0322-25 ")
 ;;2168
 ;;21,"63874-0322-28 ")
 ;;2169
 ;;21,"63874-0322-30 ")
 ;;2170
 ;;21,"63874-0322-40 ")
 ;;2171
 ;;21,"63874-0322-45 ")
 ;;2172
 ;;21,"63874-0322-50 ")
 ;;2173
 ;;21,"63874-0322-56 ")
 ;;2174
 ;;21,"63874-0322-60 ")
 ;;2175
 ;;21,"63874-0322-90 ")
 ;;2176
 ;;21,"63874-0323-01 ")
 ;;2220
 ;;21,"63874-0323-03 ")
 ;;2222
 ;;21,"63874-0323-04 ")
 ;;2221
 ;;21,"63874-0323-12 ")
 ;;2201
 ;;21,"63874-0323-14 ")
 ;;2202
 ;;21,"63874-0323-15 ")
 ;;2203
 ;;21,"63874-0323-16 ")
 ;;2204
 ;;21,"63874-0323-20 ")
 ;;2205
 ;;21,"63874-0323-21 ")
 ;;2206
 ;;21,"63874-0323-24 ")
 ;;2207
 ;;21,"63874-0323-25 ")
 ;;2208
 ;;21,"63874-0323-28 ")
 ;;2209
 ;;21,"63874-0323-30 ")
 ;;2210
 ;;21,"63874-0323-40 ")
 ;;2211
 ;;21,"63874-0323-42 ")
 ;;2212
 ;;21,"63874-0323-45 ")
 ;;2213
 ;;21,"63874-0323-50 ")
 ;;2214
 ;;21,"63874-0323-56 ")
 ;;2215
 ;;21,"63874-0323-60 ")
 ;;2216
 ;;21,"63874-0323-80 ")
 ;;2217
 ;;21,"63874-0323-84 ")
 ;;2218
 ;;21,"63874-0323-90 ")
 ;;2219
 ;;21,"63874-0324-01 ")
 ;;2198
 ;;21,"63874-0324-03 ")
 ;;2200
 ;;21,"63874-0324-04 ")
 ;;2199
 ;;21,"63874-0324-06 ")
 ;;2179
 ;;21,"63874-0324-08 ")
 ;;2180
 ;;21,"63874-0324-10 ")
 ;;2181
 ;;21,"63874-0324-12 ")
 ;;2182
 ;;21,"63874-0324-14 ")
 ;;2183
 ;;21,"63874-0324-15 ")
 ;;2184
 ;;21,"63874-0324-16 ")
 ;;2185
 ;;21,"63874-0324-20 ")
 ;;2186
 ;;21,"63874-0324-21 ")
 ;;2187
 ;;21,"63874-0324-24 ")
 ;;2188
 ;;21,"63874-0324-25 ")
 ;;2189
 ;;21,"63874-0324-28 ")
 ;;2190
 ;;21,"63874-0324-30 ")
 ;;2191
 ;;21,"63874-0324-40 ")
 ;;2192
 ;;21,"63874-0324-45 ")
 ;;2193
 ;;21,"63874-0324-50 ")
 ;;2194
 ;;21,"63874-0324-60 ")
 ;;2195
 ;;21,"63874-0324-80 ")
 ;;2196
 ;;21,"63874-0324-90 ")
 ;;2197
 ;;21,"63874-0325-01 ")
 ;;2610
 ;;21,"63874-0325-02 ")
 ;;2613
 ;;21,"63874-0325-03 ")
 ;;2612
 ;;21,"63874-0325-04 ")
 ;;2611
 ;;21,"63874-0325-10 ")
 ;;2599
 ;;21,"63874-0325-14 ")
 ;;2600
 ;;21,"63874-0325-15 ")
 ;;2601
 ;;21,"63874-0325-20 ")
 ;;2602
 ;;21,"63874-0325-21 ")
 ;;2603
 ;;21,"63874-0325-28 ")
 ;;2604
 ;;21,"63874-0325-30 ")
 ;;2605
 ;;21,"63874-0325-40 ")
 ;;2606
 ;;21,"63874-0325-45 ")
 ;;2607
 ;;21,"63874-0325-60 ")
 ;;2608
 ;;21,"63874-0325-90 ")
 ;;2609
 ;;21,"63874-0326-01 ")
 ;;2629
 ;;21,"63874-0326-03 ")
 ;;2631
 ;;21,"63874-0326-04 ")
 ;;2630
 ;;21,"63874-0326-10 ")
 ;;2614
 ;;21,"63874-0326-14 ")
 ;;2615
 ;;21,"63874-0326-15 ")
 ;;2616
 ;;21,"63874-0326-20 ")
 ;;2617
 ;;21,"63874-0326-21 ")
 ;;2618
 ;;21,"63874-0326-25 ")
 ;;2619
 ;;21,"63874-0326-28 ")
 ;;2620
 ;;21,"63874-0326-30 ")
 ;;2621
 ;;21,"63874-0326-40 ")
 ;;2622
 ;;21,"63874-0326-42 ")
 ;;2623
 ;;21,"63874-0326-45 ")
 ;;2624
 ;;21,"63874-0326-50 ")
 ;;2625
 ;;21,"63874-0326-56 ")
 ;;2626
 ;;21,"63874-0326-60 ")
 ;;2627
 ;;21,"63874-0326-90 ")
 ;;2628
 ;;21,"63874-0334-01 ")
 ;;110
 ;;21,"63874-0334-04 ")
 ;;111
 ;;21,"63874-0334-10 ")
 ;;97
 ;;21,"63874-0334-12 ")
 ;;98
 ;;21,"63874-0334-14 ")
 ;;99
 ;;21,"63874-0334-15 ")
 ;;100
 ;;21,"63874-0334-20 ")
 ;;101
 ;;21,"63874-0334-24 ")
 ;;102
 ;;21,"63874-0334-28 ")
 ;;103
 ;;21,"63874-0334-30 ")
 ;;104
 ;;21,"63874-0334-40 ")
 ;;105
 ;;21,"63874-0334-50 ")
 ;;106
 ;;21,"63874-0334-60 ")
 ;;107
 ;;21,"63874-0334-72 ")
 ;;112
 ;;21,"63874-0334-74 ")
 ;;113
 ;;21,"63874-0334-77 ")
 ;;114
 ;;21,"63874-0334-80 ")
 ;;108
 ;;21,"63874-0334-90 ")
 ;;109
 ;;21,"63874-0339-01 ")
 ;;3023
 ;;21,"63874-0339-10 ")
 ;;3007
 ;;21,"63874-0339-12 ")
 ;;3008
 ;;21,"63874-0339-14 ")
 ;;3009
 ;;21,"63874-0339-15 ")
 ;;3010
 ;;21,"63874-0339-20 ")
 ;;3011
 ;;21,"63874-0339-21 ")
 ;;3012
 ;;21,"63874-0339-24 ")
 ;;3013
 ;;21,"63874-0339-26 ")
 ;;3014
 ;;21,"63874-0339-28 ")
 ;;3015
 ;;21,"63874-0339-30 ")
 ;;3016
 ;;21,"63874-0339-40 ")
 ;;3017
 ;;21,"63874-0339-42 ")
 ;;3018
 ;;21,"63874-0339-50 ")
 ;;3019
 ;;21,"63874-0339-56 ")
 ;;3020
 ;;21,"63874-0339-60 ")
 ;;3021
 ;;21,"63874-0339-90 ")
 ;;3022
 ;;21,"63874-0340-20 ")
 ;;1587
 ;;21,"63874-0340-30 ")
 ;;1588
 ;;21,"63874-0340-50 ")
 ;;1589
 ;;21,"63874-0350-01 ")
 ;;974
 ;;21,"63874-0350-03 ")
 ;;975
 ;;21,"63874-0350-10 ")
 ;;964
 ;;21,"63874-0350-12 ")
 ;;965
 ;;21,"63874-0350-14 ")
 ;;966
 ;;21,"63874-0350-15 ")
 ;;967
 ;;21,"63874-0350-20 ")
 ;;968
 ;;21,"63874-0350-28 ")
 ;;969
 ;;21,"63874-0350-30 ")
 ;;970
 ;;21,"63874-0350-50 ")
 ;;971
 ;;21,"63874-0350-60 ")
 ;;972
 ;;21,"63874-0350-90 ")
 ;;973
 ;;21,"63874-0353-01 ")
 ;;3253
 ;;21,"63874-0353-04 ")
 ;;3254
 ;;21,"63874-0353-10 ")
 ;;3243
 ;;21,"63874-0353-12 ")
 ;;3244
 ;;21,"63874-0353-14 ")
 ;;3245
 ;;21,"63874-0353-15 ")
 ;;3246
 ;;21,"63874-0353-20 ")
 ;;3247
 ;;21,"63874-0353-30 ")
 ;;3248
 ;;21,"63874-0353-40 ")
 ;;3249
 ;;21,"63874-0353-50 ")
 ;;3250
 ;;21,"63874-0353-60 ")
 ;;3251
 ;;21,"63874-0353-90 ")
 ;;3252
 ;;21,"63874-0362-01 ")
 ;;1403
 ;;21,"63874-0362-03 ")
 ;;1406
 ;;21,"63874-0362-04 ")
 ;;1404
 ;;21,"63874-0362-07 ")
 ;;1386
 ;;21,"63874-0362-08 ")
 ;;1405
 ;;21,"63874-0362-10 ")
 ;;1387
 ;;21,"63874-0362-12 ")
 ;;1388
 ;;21,"63874-0362-14 ")
 ;;1389
 ;;21,"63874-0362-15 ")
 ;;1390
 ;;21,"63874-0362-20 ")
 ;;1391
 ;;21,"63874-0362-21 ")
 ;;1392
 ;;21,"63874-0362-24 ")
 ;;1393
 ;;21,"63874-0362-28 ")
 ;;1394