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

BGP61A7.m

Go to the documentation of this file.
  1. BGP61A7 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"63874-0638-30 ")
  1. ;;2023
  1. ;;21,"63874-0638-40 ")
  1. ;;2024
  1. ;;21,"63874-0638-50 ")
  1. ;;2025
  1. ;;21,"63874-0638-60 ")
  1. ;;2026
  1. ;;21,"63874-0638-90 ")
  1. ;;2027
  1. ;;21,"63874-0924-01 ")
  1. ;;2028
  1. ;;21,"63874-0924-06 ")
  1. ;;2029
  1. ;;21,"63874-0924-08 ")
  1. ;;2030
  1. ;;21,"63874-0924-10 ")
  1. ;;2031
  1. ;;21,"63874-0924-20 ")
  1. ;;2032
  1. ;;21,"63874-0924-30 ")
  1. ;;2033
  1. ;;21,"63874-0924-40 ")
  1. ;;2034
  1. ;;21,"63874-0924-60 ")
  1. ;;2035
  1. ;;21,"63874-0924-90 ")
  1. ;;2036
  1. ;;21,"63874-1070-01 ")
  1. ;;2037
  1. ;;21,"63874-1246-00 ")
  1. ;;2038
  1. ;;21,"63874-1246-01 ")
  1. ;;2039
  1. ;;21,"63874-1246-02 ")
  1. ;;2040
  1. ;;21,"63874-1246-03 ")
  1. ;;2041
  1. ;;21,"63874-1246-06 ")
  1. ;;2042
  1. ;;21,"63874-1247-01 ")
  1. ;;2043
  1. ;;21,"63874-1247-02 ")
  1. ;;2044
  1. ;;21,"63874-1247-03 ")
  1. ;;2045
  1. ;;21,"63874-1247-06 ")
  1. ;;2046
  1. ;;21,"63874-1247-08 ")
  1. ;;2047
  1. ;;21,"63874-1247-09 ")
  1. ;;2048
  1. ;;21,"64125-0133-01 ")
  1. ;;2049
  1. ;;21,"64125-0133-10 ")
  1. ;;2050
  1. ;;21,"64125-0134-01 ")
  1. ;;2051
  1. ;;21,"64125-0134-10 ")
  1. ;;2052
  1. ;;21,"64125-0135-01 ")
  1. ;;2053
  1. ;;21,"64125-0135-10 ")
  1. ;;2054
  1. ;;21,"64679-0714-01 ")
  1. ;;2055
  1. ;;21,"64679-0714-04 ")
  1. ;;2056
  1. ;;21,"64679-0715-01 ")
  1. ;;2057
  1. ;;21,"64679-0715-04 ")
  1. ;;2058
  1. ;;21,"64720-0322-10 ")
  1. ;;2059
  1. ;;21,"64720-0323-10 ")
  1. ;;2060
  1. ;;21,"64980-0154-01 ")
  1. ;;2061
  1. ;;21,"64980-0154-05 ")
  1. ;;2062
  1. ;;21,"64980-0155-01 ")
  1. ;;2063
  1. ;;21,"64980-0155-05 ")
  1. ;;2064
  1. ;;21,"65243-0006-03 ")
  1. ;;2065
  1. ;;21,"65243-0006-09 ")
  1. ;;2066
  1. ;;21,"65243-0242-03 ")
  1. ;;2067
  1. ;;21,"65243-0242-09 ")
  1. ;;2068
  1. ;;21,"65862-0159-01 ")
  1. ;;2069
  1. ;;21,"65862-0159-05 ")
  1. ;;2070
  1. ;;21,"65862-0160-01 ")
  1. ;;2071
  1. ;;21,"65862-0160-05 ")
  1. ;;2072
  1. ;;21,"65862-0214-01 ")
  1. ;;2073
  1. ;;21,"65862-0215-01 ")
  1. ;;2074
  1. ;;21,"66116-0176-20 ")
  1. ;;2075
  1. ;;21,"66116-0253-30 ")
  1. ;;2076
  1. ;;21,"66116-0254-30 ")
  1. ;;2077
  1. ;;21,"66116-0280-30 ")
  1. ;;2078
  1. ;;21,"66116-0648-30 ")
  1. ;;2079
  1. ;;21,"66213-0421-10 ")
  1. ;;2080
  1. ;;21,"66213-0421-50 ")
  1. ;;2081
  1. ;;21,"66213-0422-04 ")
  1. ;;2082
  1. ;;21,"66213-0422-16 ")
  1. ;;2083
  1. ;;21,"66213-0423-04 ")
  1. ;;2084
  1. ;;21,"66213-0423-16 ")
  1. ;;2085
  1. ;;21,"66213-0425-10 ")
  1. ;;2086
  1. ;;21,"66213-0425-11 ")
  1. ;;2087
  1. ;;21,"66267-0016-10 ")
  1. ;;2088
  1. ;;21,"66267-0016-12 ")
  1. ;;2089
  1. ;;21,"66267-0016-20 ")
  1. ;;2090
  1. ;;21,"66267-0016-28 ")
  1. ;;2091
  1. ;;21,"66267-0016-30 ")
  1. ;;2092
  1. ;;21,"66267-0016-60 ")
  1. ;;2093
  1. ;;21,"66267-0017-10 ")
  1. ;;2094
  1. ;;21,"66267-0017-30 ")
  1. ;;2095
  1. ;;21,"66267-0018-30 ")
  1. ;;2096
  1. ;;21,"66267-0018-60 ")
  1. ;;2097
  1. ;;21,"66267-0018-90 ")
  1. ;;2098
  1. ;;21,"66267-0019-14 ")
  1. ;;2099
  1. ;;21,"66267-0019-30 ")
  1. ;;2100
  1. ;;21,"66267-0019-60 ")
  1. ;;2101
  1. ;;21,"66267-0019-90 ")
  1. ;;2102
  1. ;;21,"66267-0019-91 ")
  1. ;;2103
  1. ;;21,"66267-0020-30 ")
  1. ;;2104
  1. ;;21,"66267-0020-60 ")
  1. ;;2105
  1. ;;21,"66267-0020-90 ")
  1. ;;2106
  1. ;;21,"66267-0032-15 ")
  1. ;;2107
  1. ;;21,"66267-0032-20 ")
  1. ;;2108
  1. ;;21,"66267-0032-30 ")
  1. ;;2109
  1. ;;21,"66267-0038-15 ")
  1. ;;2110
  1. ;;21,"66267-0039-12 ")
  1. ;;2111
  1. ;;21,"66267-0039-30 ")
  1. ;;2112
  1. ;;21,"66267-0039-60 ")
  1. ;;2113
  1. ;;21,"66267-0039-90 ")
  1. ;;2114
  1. ;;21,"66267-0084-30 ")
  1. ;;2115
  1. ;;21,"66267-0266-30 ")
  1. ;;2116
  1. ;;21,"66267-0560-90 ")
  1. ;;2117
  1. ;;21,"66267-0680-30 ")
  1. ;;2118
  1. ;;21,"66267-0723-30 ")
  1. ;;2119
  1. ;;21,"66267-1006-00 ")
  1. ;;2120
  1. ;;21,"66336-0027-30 ")
  1. ;;2121
  1. ;;21,"66336-0027-60 ")
  1. ;;2122
  1. ;;21,"66336-0027-62 ")
  1. ;;2123
  1. ;;21,"66336-0027-90 ")
  1. ;;2124
  1. ;;21,"66336-0027-94 ")
  1. ;;2125
  1. ;;21,"66336-0056-30 ")
  1. ;;2126
  1. ;;21,"66336-0056-60 ")
  1. ;;2127
  1. ;;21,"66336-0102-30 ")
  1. ;;2128
  1. ;;21,"66336-0224-30 ")
  1. ;;2129
  1. ;;21,"66336-0224-60 ")
  1. ;;2130
  1. ;;21,"66336-0314-30 ")
  1. ;;2131
  1. ;;21,"66336-0314-90 ")
  1. ;;2132
  1. ;;21,"66336-0354-30 ")
  1. ;;2133
  1. ;;21,"66336-0354-60 ")
  1. ;;2134
  1. ;;21,"66336-0354-62 ")
  1. ;;2135
  1. ;;21,"66336-0354-90 ")
  1. ;;2136
  1. ;;21,"66336-0460-03 ")
  1. ;;2137
  1. ;;21,"66336-0460-10 ")
  1. ;;2138
  1. ;;21,"66336-0460-20 ")
  1. ;;2139
  1. ;;21,"66336-0460-30 ")
  1. ;;2140
  1. ;;21,"66336-0460-60 ")
  1. ;;2141
  1. ;;21,"66336-0553-30 ")
  1. ;;2142
  1. ;;21,"66336-0553-40 ")
  1. ;;2143
  1. ;;21,"66336-0619-30 ")
  1. ;;2144
  1. ;;21,"66336-0673-30 ")
  1. ;;2145
  1. ;;21,"66336-0673-50 ")
  1. ;;2146
  1. ;;21,"66336-0673-60 ")
  1. ;;2147
  1. ;;21,"66336-0673-90 ")
  1. ;;2148
  1. ;;21,"66336-0703-30 ")
  1. ;;2149
  1. ;;21,"66336-0703-60 ")
  1. ;;2150
  1. ;;21,"66336-0703-90 ")
  1. ;;2151
  1. ;;21,"66336-0703-94 ")
  1. ;;2152
  1. ;;21,"66336-0718-02 ")
  1. ;;2153
  1. ;;21,"66336-0718-10 ")
  1. ;;2154
  1. ;;21,"66336-0718-15 ")
  1. ;;2155
  1. ;;21,"66336-0718-30 ")
  1. ;;2156
  1. ;;21,"66336-0718-60 ")
  1. ;;2157
  1. ;;21,"66336-0718-90 ")
  1. ;;2158
  1. ;;21,"66336-0791-30 ")
  1. ;;2159
  1. ;;21,"66647-2051-11 ")
  1. ;;2160
  1. ;;21,"66647-4340-20 ")
  1. ;;2161
  1. ;;21,"66647-4340-50 ")
  1. ;;2162
  1. ;;21,"66993-0716-02 ")
  1. ;;2163
  1. ;;21,"67544-0009-07 ")
  1. ;;2164
  1. ;;21,"67544-0009-14 ")
  1. ;;2165
  1. ;;21,"67544-0009-15 ")
  1. ;;2166
  1. ;;21,"67544-0009-20 ")
  1. ;;2167
  1. ;;21,"67544-0009-30 ")
  1. ;;2168
  1. ;;21,"67544-0009-53 ")
  1. ;;2169
  1. ;;21,"67544-0010-07 ")
  1. ;;2170
  1. ;;21,"67544-0010-10 ")
  1. ;;2171
  1. ;;21,"67544-0010-15 ")
  1. ;;2172
  1. ;;21,"67544-0010-20 ")
  1. ;;2173
  1. ;;21,"67544-0010-21 ")
  1. ;;2174
  1. ;;21,"67544-0010-30 ")
  1. ;;2175
  1. ;;21,"67544-0010-45 ")
  1. ;;2176
  1. ;;21,"67544-0010-53 ")
  1. ;;2177
  1. ;;21,"67544-0010-60 ")
  1. ;;2178
  1. ;;21,"67544-0011-30 ")
  1. ;;2179
  1. ;;21,"67544-0011-50 ")
  1. ;;2180
  1. ;;21,"67544-0011-53 ")
  1. ;;2181
  1. ;;21,"67544-0011-60 ")
  1. ;;2182
  1. ;;21,"67544-0011-70 ")
  1. ;;2183
  1. ;;21,"67544-0031-30 ")
  1. ;;2184
  1. ;;21,"67544-0057-30 ")
  1. ;;2185
  1. ;;21,"67544-0057-53 ")
  1. ;;2186
  1. ;;21,"67544-0057-60 ")
  1. ;;2187
  1. ;;21,"67544-0057-70 ")
  1. ;;2188
  1. ;;21,"67544-0057-75 ")
  1. ;;2189
  1. ;;21,"67544-0057-80 ")
  1. ;;2190
  1. ;;21,"67544-0057-92 ")
  1. ;;2191
  1. ;;21,"67544-0057-94 ")
  1. ;;2192
  1. ;;21,"67544-0085-30 ")
  1. ;;2193
  1. ;;21,"67544-0085-53 ")
  1. ;;2194
  1. ;;21,"67544-0085-60 ")
  1. ;;2195
  1. ;;21,"67544-0085-70 ")
  1. ;;2196
  1. ;;21,"67544-0085-75 ")
  1. ;;2197
  1. ;;21,"67544-0085-80 ")
  1. ;;2198
  1. ;;21,"67544-0121-30 ")
  1. ;;2199
  1. ;;21,"67544-0121-53 ")
  1. ;;2200
  1. ;;21,"67544-0121-60 ")
  1. ;;2201
  1. ;;21,"67544-0121-70 ")
  1. ;;2202
  1. ;;21,"67544-0121-75 ")
  1. ;;2203
  1. ;;21,"67544-0206-30 ")
  1. ;;2204
  1. ;;21,"67544-0206-60 ")
  1. ;;2205
  1. ;;21,"67544-0253-30 ")
  1. ;;2206
  1. ;;21,"67544-0253-53 ")
  1. ;;2207
  1. ;;21,"67544-0253-60 ")
  1. ;;2208
  1. ;;21,"67544-0253-70 ")
  1. ;;2209
  1. ;;21,"67544-0267-30 ")
  1. ;;2210
  1. ;;21,"67544-0383-30 ")
  1. ;;2211
  1. ;;21,"67544-0383-53 ")
  1. ;;2212
  1. ;;21,"67544-0383-60 ")
  1. ;;2213
  1. ;;21,"67544-0383-70 ")
  1. ;;2214
  1. ;;21,"67544-0394-30 ")
  1. ;;2215
  1. ;;21,"67544-0394-53 ")
  1. ;;2216
  1. ;;21,"67544-0394-60 ")
  1. ;;2217
  1. ;;21,"67544-0394-70 ")
  1. ;;2218
  1. ;;21,"67544-0759-53 ")
  1. ;;2219
  1. ;;21,"67544-0996-10 ")
  1. ;;2220
  1. ;;21,"67544-0996-14 ")
  1. ;;2221
  1. ;;21,"67544-0996-15 ")
  1. ;;2222
  1. ;;21,"67544-0996-20 ")
  1. ;;2223
  1. ;;21,"67544-0996-21 ")
  1. ;;2224
  1. ;;21,"67544-0996-28 ")
  1. ;;2225
  1. ;;21,"67544-0996-30 ")
  1. ;;2226
  1. ;;21,"67544-0996-40 ")
  1. ;;2227
  1. ;;21,"67544-0996-45 ")
  1. ;;2228
  1. ;;21,"67544-0996-53 ")
  1. ;;2229
  1. ;;21,"67544-0996-59 ")
  1. ;;2230
  1. ;;21,"67544-0996-60 ")
  1. ;;2231
  1. ;;21,"67544-0996-62 ")
  1. ;;2232
  1. ;;21,"67544-1045-30 ")
  1. ;;2233
  1. ;;21,"67544-1045-53 ")
  1. ;;2234
  1. ;;21,"67877-0210-01 ")
  1. ;;2235
  1. ;;21,"67877-0211-01 ")
  1. ;;2236
  1. ;;21,"68071-0304-30 ")
  1. ;;2237
  1. ;;21,"68071-0305-30 ")
  1. ;;2238
  1. ;;21,"68071-0361-30 ")
  1. ;;2239
  1. ;;21,"68071-0414-30 ")
  1. ;;2240
  1. ;;21,"68071-0421-30 ")
  1. ;;2241
  1. ;;21,"68071-0421-60 ")
  1. ;;2242
  1. ;;21,"68071-0421-90 ")
  1. ;;2243
  1. ;;21,"68071-0698-10 ")
  1. ;;2244
  1. ;;21,"68071-0698-14 ")
  1. ;;2245
  1. ;;21,"68071-0698-20 ")
  1. ;;2246
  1. ;;21,"68071-0698-30 ")
  1. ;;2247
  1. ;;21,"68071-0698-60 ")
  1. ;;2248
  1. ;;21,"68071-0703-14 ")
  1. ;;2249
  1. ;;21,"68071-0703-30 ")
  1. ;;2250
  1. ;;21,"68071-0703-45 ")
  1. ;;2251
  1. ;;21,"68071-0703-60 ")
  1. ;;2252
  1. ;;21,"68071-0788-30 ")
  1. ;;2253
  1. ;;21,"68071-0789-30 ")
  1. ;;2254
  1. ;;21,"68071-2007-03 ")
  1. ;;2255
  1. ;;21,"68071-2007-06 ")
  1. ;;2256
  1. ;;21,"68084-0189-01 ")
  1. ;;2257
  1. ;;21,"68084-0189-11 ")
  1. ;;2258
  1. ;;21,"68084-0200-01 ")
  1. ;;2259
  1. ;;21,"68084-0200-11 ")
  1. ;;2260
  1. ;;21,"68084-0225-01 ")
  1. ;;2261
  1. ;;21,"68084-0225-11 ")
  1. ;;2262
  1. ;;21,"68084-0226-01 ")
  1. ;;2263
  1. ;;21,"68084-0226-11 ")
  1. ;;2264
  1. ;;21,"68084-0396-01 ")
  1. ;;2265
  1. ;;21,"68084-0396-11 ")
  1. ;;2266
  1. ;;21,"68084-0396-65 ")
  1. ;;2267
  1. ;;21,"68084-0523-11 ")
  1. ;;2268
  1. ;;21,"68084-0523-21 ")
  1. ;;2269
  1. ;;21,"68084-0790-11 ")
  1. ;;2270
  1. ;;21,"68084-0790-21 ")
  1. ;;2271
  1. ;;21,"68084-0814-11 ")
  1. ;;2272
  1. ;;21,"68084-0814-21 ")
  1. ;;2273
  1. ;;21,"68084-0818-25 ")
  1. ;;2274
  1. ;;21,"68084-0818-95 ")
  1. ;;2275
  1. ;;21,"68180-0311-01 ")
  1. ;;2276
  1. ;;21,"68180-0312-01 ")
  1. ;;2277
  1. ;;21,"68180-0313-01 ")
  1. ;;2278
  1. ;;21,"68180-0314-06 ")
  1. ;;2279
  1. ;;21,"68180-0315-06 ")
  1. ;;2280
  1. ;;21,"68180-0316-06 ")
  1. ;;2281
  1. ;;21,"68180-0317-06 ")
  1. ;;2282
  1. ;;21,"68180-0322-01 ")
  1. ;;2283
  1. ;;21,"68180-0323-01 ")
  1. ;;2284
  1. ;;21,"68180-0324-01 ")
  1. ;;2285
  1. ;;21,"68180-0779-01 ")
  1. ;;2286
  1. ;;21,"68180-0780-01 ")
  1. ;;2287
  1. ;;21,"68258-2012-03 ")
  1. ;;2288
  1. ;;21,"68258-2012-09 ")
  1. ;;2289
  1. ;;21,"68258-4993-01 ")
  1. ;;2290
  1. ;;21,"68258-7048-03 ")
  1. ;;2291
  1. ;;21,"68258-7049-03 ")
  1. ;;2292
  1. ;;21,"68258-7083-01 ")
  1. ;;2293
  1. ;;21,"68258-7083-02 ")
  1. ;;2294
  1. ;;21,"68258-7083-03 ")
  1. ;;2295
  1. ;;21,"68258-7083-06 ")
  1. ;;2296
  1. ;;21,"68258-7119-03 ")
  1. ;;2297
  1. ;;21,"68258-7119-09 ")
  1. ;;2298
  1. ;;21,"68258-7125-06 ")
  1. ;;2299
  1. ;;21,"68258-7143-03 ")
  1. ;;2300
  1. ;;21,"68258-7145-03 ")
  1. ;;2301
  1. ;;21,"68258-7160-03 ")
  1. ;;2302
  1. ;;21,"68308-0219-01 ")
  1. ;;2303
  1. ;;21,"68308-0220-01 ")
  1. ;;2304
  1. ;;21,"68308-0554-10 ")
  1. ;;2305
  1. ;;21,"68387-0335-15 ")
  1. ;;2306
  1. ;;21,"68387-0335-24 ")
  1. ;;2307
  1. ;;21,"68387-0335-30 ")
  1. ;;2308
  1. ;;21,"68387-0335-60 ")
  1. ;;2309
  1. ;;21,"68387-0335-90 ")
  1. ;;2310
  1. ;;21,"68387-0336-30 ")
  1. ;;2311
  1. ;;21,"68387-0336-90 ")
  1. ;;2312
  1. ;;21,"68387-0337-24 ")
  1. ;;2313
  1. ;;21,"68387-0337-30 ")
  1. ;;2314
  1. ;;21,"68387-0338-30 ")
  1. ;;2315
  1. ;;21,"68387-0339-30 ")
  1. ;;2316
  1. ;;21,"68387-0485-15 ")
  1. ;;2317
  1. ;;21,"68387-0485-30 ")
  1. ;;2318
  1. ;;21,"68387-0486-15 ")
  1. ;;2319
  1. ;;21,"68387-0486-30 ")
  1. ;;2320
  1. ;;21,"68387-0487-30 ")
  1. ;;2321
  1. ;;21,"68387-0520-12 ")
  1. ;;2322
  1. ;;21,"68387-0520-20 ")
  1. ;;2323
  1. ;;21,"68387-0520-30 ")
  1. ;;2324
  1. ;;21,"68387-0520-60 ")
  1. ;;2325
  1. ;;21,"68387-0520-90 ")
  1. ;;2326
  1. ;;21,"68405-0023-26 ")
  1. ;;2327
  1. ;;21,"68405-0044-26 ")
  1. ;;2328
  1. ;;21,"68405-0053-26 ")
  1. ;;2329
  1. ;;21,"68453-0170-10 ")
  1. ;;2330
  1. ;;21,"68462-0279-01 ")
  1. ;;2331
  1. ;;21,"68462-0279-05 ")
  1. ;;2332
  1. ;;21,"68462-0280-01 ")
  1. ;;2333
  1. ;;21,"68462-0280-05 ")
  1. ;;2334
  1. ;;21,"68462-0382-01 ")
  1. ;;2335
  1. ;;21,"68462-0383-01 ")
  1. ;;2336
  1. ;;21,"68462-0384-01 ")
  1. ;;2337
  1. ;;21,"68645-0230-59 ")
  1. ;;2338
  1. ;;21,"68788-0748-03 ")
  1. ;;2339
  1. ;;21,"68788-0748-06 ")
  1. ;;2340
  1. ;;21,"68788-0748-09 ")
  1. ;;2341
  1. ;;21,"68788-2212-03 ")
  1. ;;2342
  1. ;;21,"68788-2212-06 ")
  1. ;;2343
  1. ;;21,"68788-2212-09 ")
  1. ;;2344
  1. ;;21,"68788-2213-03 ")
  1. ;;2345
  1. ;;21,"68788-2213-06 ")
  1. ;;2346
  1. ;;21,"68788-9013-03 ")
  1. ;;2347
  1. ;;21,"68788-9013-06 ")
  1. ;;2348
  1. ;;21,"68788-9013-09 ")
  1. ;;2349
  1. ;;21,"68788-9127-03 ")
  1. ;;2350
  1. ;;21,"68788-9127-06 ")
  1. ;;2351
  1. ;;21,"68788-9127-09 ")
  1. ;;2352
  1. ;;21,"68788-9905-03 ")
  1. ;;2353
  1. ;;21,"68788-9905-06 ")
  1. ;;2354
  1. ;;21,"68788-9905-09 ")
  1. ;;2355