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

BGPM5AIU.m

Go to the documentation of this file.
BGPM5AIU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"58016053167 ")
 ;;2031
 ;;21,"58016053169 ")
 ;;2032
 ;;21,"58016053170 ")
 ;;2033
 ;;21,"58016053171 ")
 ;;2034
 ;;21,"58016053172 ")
 ;;2035
 ;;21,"58016053173 ")
 ;;2036
 ;;21,"58016053175 ")
 ;;2037
 ;;21,"58016053176 ")
 ;;2038
 ;;21,"58016053177 ")
 ;;2039
 ;;21,"58016053179 ")
 ;;2040
 ;;21,"58016053180 ")
 ;;2041
 ;;21,"58016053181 ")
 ;;2042
 ;;21,"58016053182 ")
 ;;2043
 ;;21,"58016053183 ")
 ;;2044
 ;;21,"58016053184 ")
 ;;2045
 ;;21,"58016053187 ")
 ;;2046
 ;;21,"58016053189 ")
 ;;2047
 ;;21,"58016053190 ")
 ;;2048
 ;;21,"58016053191 ")
 ;;2049
 ;;21,"58016053192 ")
 ;;2050
 ;;21,"58016053193 ")
 ;;2051
 ;;21,"58016053196 ")
 ;;2052
 ;;21,"58016053197 ")
 ;;2053
 ;;21,"58016053198 ")
 ;;2054
 ;;21,"58016053199 ")
 ;;2055
 ;;21,"58016053200 ")
 ;;2056
 ;;21,"58016053201 ")
 ;;2057
 ;;21,"58016053202 ")
 ;;2058
 ;;21,"58016053203 ")
 ;;2059
 ;;21,"58016053204 ")
 ;;2060
 ;;21,"58016053205 ")
 ;;2061
 ;;21,"58016053206 ")
 ;;2062
 ;;21,"58016053207 ")
 ;;2063
 ;;21,"58016053208 ")
 ;;2064
 ;;21,"58016053209 ")
 ;;2065
 ;;21,"58016053210 ")
 ;;2066
 ;;21,"58016053212 ")
 ;;2067
 ;;21,"58016053214 ")
 ;;2068
 ;;21,"58016053215 ")
 ;;2069
 ;;21,"58016053216 ")
 ;;2070
 ;;21,"58016053218 ")
 ;;2071
 ;;21,"58016053220 ")
 ;;2072
 ;;21,"58016053221 ")
 ;;2073
 ;;21,"58016053224 ")
 ;;2074
 ;;21,"58016053225 ")
 ;;2075
 ;;21,"58016053226 ")
 ;;2076
 ;;21,"58016053227 ")
 ;;2077
 ;;21,"58016053228 ")
 ;;2078
 ;;21,"58016053230 ")
 ;;2079
 ;;21,"58016053232 ")
 ;;2080
 ;;21,"58016053235 ")
 ;;2081
 ;;21,"58016053236 ")
 ;;2082
 ;;21,"58016053240 ")
 ;;2083
 ;;21,"58016053242 ")
 ;;2084
 ;;21,"58016053244 ")
 ;;2085
 ;;21,"58016053245 ")
 ;;2086
 ;;21,"58016053248 ")
 ;;2087
 ;;21,"58016053250 ")
 ;;2088
 ;;21,"58016053256 ")
 ;;2089
 ;;21,"58016053260 ")
 ;;2090
 ;;21,"58016053267 ")
 ;;2091
 ;;21,"58016053269 ")
 ;;2092
 ;;21,"58016053270 ")
 ;;2093
 ;;21,"58016053271 ")
 ;;2094
 ;;21,"58016053272 ")
 ;;2095
 ;;21,"58016053273 ")
 ;;2096
 ;;21,"58016053275 ")
 ;;2097
 ;;21,"58016053276 ")
 ;;2098
 ;;21,"58016053277 ")
 ;;2099
 ;;21,"58016053279 ")
 ;;2100
 ;;21,"58016053280 ")
 ;;2101
 ;;21,"58016053281 ")
 ;;2102
 ;;21,"58016053282 ")
 ;;2103
 ;;21,"58016053283 ")
 ;;2104
 ;;21,"58016053284 ")
 ;;2105
 ;;21,"58016053287 ")
 ;;2106
 ;;21,"58016053289 ")
 ;;2107
 ;;21,"58016053290 ")
 ;;2108
 ;;21,"58016053291 ")
 ;;2109
 ;;21,"58016053292 ")
 ;;2110
 ;;21,"58016053293 ")
 ;;2111
 ;;21,"58016053296 ")
 ;;2112
 ;;21,"58016053297 ")
 ;;2113
 ;;21,"58016053298 ")
 ;;2114
 ;;21,"58016053299 ")
 ;;2115
 ;;21,"58016058200 ")
 ;;2116
 ;;21,"58016058215 ")
 ;;2117
 ;;21,"58016058220 ")
 ;;2118
 ;;21,"58016058230 ")
 ;;2119
 ;;21,"58016058260 ")
 ;;2120
 ;;21,"58016060400 ")
 ;;2121
 ;;21,"58016060430 ")
 ;;2122
 ;;21,"58016060460 ")
 ;;2123
 ;;21,"58016060490 ")
 ;;2124
 ;;21,"58016077100 ")
 ;;2125
 ;;21,"58016077112 ")
 ;;2126
 ;;21,"58016077115 ")
 ;;2127
 ;;21,"58016077120 ")
 ;;2128
 ;;21,"58016077130 ")
 ;;2129
 ;;21,"58016077160 ")
 ;;2130
 ;;21,"58016082000 ")
 ;;2131
 ;;21,"58016082001 ")
 ;;2132
 ;;21,"58016082002 ")
 ;;2133
 ;;21,"58016082003 ")
 ;;2134
 ;;21,"58016082004 ")
 ;;2135
 ;;21,"58016082005 ")
 ;;2136
 ;;21,"58016082006 ")
 ;;2137
 ;;21,"58016082007 ")
 ;;2138
 ;;21,"58016082008 ")
 ;;2139
 ;;21,"58016082009 ")
 ;;2140
 ;;21,"58016082010 ")
 ;;2141
 ;;21,"58016082012 ")
 ;;2142
 ;;21,"58016082014 ")
 ;;2143
 ;;21,"58016082015 ")
 ;;2144
 ;;21,"58016082016 ")
 ;;2145
 ;;21,"58016082018 ")
 ;;2146
 ;;21,"58016082020 ")
 ;;2147
 ;;21,"58016082021 ")
 ;;2148
 ;;21,"58016082024 ")
 ;;2149
 ;;21,"58016082025 ")
 ;;2150
 ;;21,"58016082026 ")
 ;;2151
 ;;21,"58016082027 ")
 ;;2152
 ;;21,"58016082028 ")
 ;;2153
 ;;21,"58016082030 ")
 ;;2154
 ;;21,"58016082032 ")
 ;;2155
 ;;21,"58016082035 ")
 ;;2156
 ;;21,"58016082036 ")
 ;;2157
 ;;21,"58016082040 ")
 ;;2158
 ;;21,"58016082042 ")
 ;;2159
 ;;21,"58016082044 ")
 ;;2160
 ;;21,"58016082045 ")
 ;;2161
 ;;21,"58016082048 ")
 ;;2162
 ;;21,"58016082050 ")
 ;;2163
 ;;21,"58016082056 ")
 ;;2164
 ;;21,"58016082060 ")
 ;;2165
 ;;21,"58016082067 ")
 ;;2166
 ;;21,"58016082069 ")
 ;;2167
 ;;21,"58016082070 ")
 ;;2168
 ;;21,"58016082071 ")
 ;;2169
 ;;21,"58016082072 ")
 ;;2170
 ;;21,"58016082073 ")
 ;;2171
 ;;21,"58016082075 ")
 ;;2172
 ;;21,"58016082076 ")
 ;;2173
 ;;21,"58016082077 ")
 ;;2174
 ;;21,"58016082079 ")
 ;;2175
 ;;21,"58016082080 ")
 ;;2176
 ;;21,"58016082081 ")
 ;;2177
 ;;21,"58016082082 ")
 ;;2178
 ;;21,"58016082083 ")
 ;;2179
 ;;21,"58016082084 ")
 ;;2180
 ;;21,"58016082087 ")
 ;;2181
 ;;21,"58016082089 ")
 ;;2182
 ;;21,"58016082090 ")
 ;;2183
 ;;21,"58016082091 ")
 ;;2184
 ;;21,"58016082092 ")
 ;;2185
 ;;21,"58016082093 ")
 ;;2186
 ;;21,"58016082096 ")
 ;;2187
 ;;21,"58016082097 ")
 ;;2188
 ;;21,"58016082098 ")
 ;;2189
 ;;21,"58016082099 ")
 ;;2190
 ;;21,"58016085200 ")
 ;;2191
 ;;21,"58016085201 ")
 ;;2192
 ;;21,"58016085202 ")
 ;;2193
 ;;21,"58016085203 ")
 ;;2194
 ;;21,"58016085204 ")
 ;;2195
 ;;21,"58016085205 ")
 ;;2196
 ;;21,"58016085207 ")
 ;;2197
 ;;21,"58016085208 ")
 ;;2198
 ;;21,"58016085209 ")
 ;;2199
 ;;21,"58016085210 ")
 ;;2200
 ;;21,"58016085212 ")
 ;;2201
 ;;21,"58016085214 ")
 ;;2202
 ;;21,"58016085215 ")
 ;;2203
 ;;21,"58016085216 ")
 ;;2204
 ;;21,"58016085218 ")
 ;;2205
 ;;21,"58016085220 ")
 ;;2206
 ;;21,"58016085221 ")
 ;;2207
 ;;21,"58016085225 ")
 ;;2208
 ;;21,"58016085226 ")
 ;;2209
 ;;21,"58016085227 ")
 ;;2210
 ;;21,"58016085228 ")
 ;;2211
 ;;21,"58016085230 ")
 ;;2212
 ;;21,"58016085232 ")
 ;;2213
 ;;21,"58016085235 ")
 ;;2214
 ;;21,"58016085236 ")
 ;;2215
 ;;21,"58016085240 ")
 ;;2216
 ;;21,"58016085242 ")
 ;;2217
 ;;21,"58016085244 ")
 ;;2218
 ;;21,"58016085245 ")
 ;;2219
 ;;21,"58016085248 ")
 ;;2220
 ;;21,"58016085250 ")
 ;;2221
 ;;21,"58016085256 ")
 ;;2222
 ;;21,"58016085260 ")
 ;;2223
 ;;21,"58016085267 ")
 ;;2224
 ;;21,"58016085269 ")
 ;;2225
 ;;21,"58016085270 ")
 ;;2226
 ;;21,"58016085271 ")
 ;;2227
 ;;21,"58016085272 ")
 ;;2228
 ;;21,"58016085273 ")
 ;;2229
 ;;21,"58016085275 ")
 ;;2230
 ;;21,"58016085276 ")
 ;;2231
 ;;21,"58016085277 ")
 ;;2232
 ;;21,"58016085279 ")
 ;;2233
 ;;21,"58016085280 ")
 ;;2234
 ;;21,"58016085281 ")
 ;;2235
 ;;21,"58016085282 ")
 ;;2236
 ;;21,"58016085283 ")
 ;;2237
 ;;21,"58016085284 ")
 ;;2238
 ;;21,"58016085287 ")
 ;;2239
 ;;21,"58016085289 ")
 ;;2240
 ;;21,"58016085290 ")
 ;;2241
 ;;21,"58016085291 ")
 ;;2242
 ;;21,"58016085292 ")
 ;;2243
 ;;21,"58016085293 ")
 ;;2244
 ;;21,"58016085296 ")
 ;;2245
 ;;21,"58016085297 ")
 ;;2246
 ;;21,"58016085298 ")
 ;;2247
 ;;21,"58016085299 ")
 ;;2248
 ;;21,"58016085900 ")
 ;;2249
 ;;21,"58016085901 ")
 ;;2250
 ;;21,"58016085902 ")
 ;;2251
 ;;21,"58016085903 ")
 ;;2252
 ;;21,"58016085904 ")
 ;;2253
 ;;21,"58016085905 ")
 ;;2254
 ;;21,"58016085906 ")
 ;;2255
 ;;21,"58016085907 ")
 ;;2256
 ;;21,"58016085908 ")
 ;;2257
 ;;21,"58016085909 ")
 ;;2258
 ;;21,"58016085910 ")
 ;;2259
 ;;21,"58016085912 ")
 ;;2260
 ;;21,"58016085914 ")
 ;;2261
 ;;21,"58016085915 ")
 ;;2262
 ;;21,"58016085916 ")
 ;;2263
 ;;21,"58016085918 ")
 ;;2264
 ;;21,"58016085920 ")
 ;;2265
 ;;21,"58016085921 ")
 ;;2266
 ;;21,"58016085924 ")
 ;;2267
 ;;21,"58016085925 ")
 ;;2268
 ;;21,"58016085926 ")
 ;;2269
 ;;21,"58016085927 ")
 ;;2270
 ;;21,"58016085928 ")
 ;;2271
 ;;21,"58016085930 ")
 ;;2272
 ;;21,"58016085932 ")
 ;;2273
 ;;21,"58016085935 ")
 ;;2274
 ;;21,"58016085936 ")
 ;;2275
 ;;21,"58016085940 ")
 ;;2276
 ;;21,"58016085942 ")
 ;;2277
 ;;21,"58016085944 ")
 ;;2278
 ;;21,"58016085945 ")
 ;;2279
 ;;21,"58016085948 ")
 ;;2280
 ;;21,"58016085950 ")
 ;;2281
 ;;21,"58016085956 ")
 ;;2282
 ;;21,"58016085960 ")
 ;;2283
 ;;21,"58016085967 ")
 ;;2284
 ;;21,"58016085969 ")
 ;;2285
 ;;21,"58016085970 ")
 ;;2286
 ;;21,"58016085971 ")
 ;;2287
 ;;21,"58016085972 ")
 ;;2288
 ;;21,"58016085973 ")
 ;;2289
 ;;21,"58016085975 ")
 ;;2290
 ;;21,"58016085976 ")
 ;;2291
 ;;21,"58016085977 ")
 ;;2292
 ;;21,"58016085979 ")
 ;;2293
 ;;21,"58016085980 ")
 ;;2294
 ;;21,"58016085981 ")
 ;;2295
 ;;21,"58016085982 ")
 ;;2296
 ;;21,"58016085989 ")
 ;;2297
 ;;21,"58016085990 ")
 ;;2298
 ;;21,"58016085991 ")
 ;;2299
 ;;21,"58016085992 ")
 ;;2300
 ;;21,"58016085993 ")
 ;;2301
 ;;21,"58016085996 ")
 ;;2302
 ;;21,"58016085997 ")
 ;;2303
 ;;21,"58016085998 ")
 ;;2304
 ;;21,"58016085999 ")
 ;;2305
 ;;21,"58016097400 ")
 ;;2306
 ;;21,"58016097430 ")
 ;;2307
 ;;21,"58016097460 ")
 ;;2308
 ;;21,"58016097490 ")
 ;;2309
 ;;21,"58016481001 ")
 ;;2310
 ;;21,"58016499601 ")
 ;;2311
 ;;21,"58087005712 ")
 ;;2312
 ;;21,"58087005812 ")
 ;;2313
 ;;21,"58087007030 ")
 ;;2314
 ;;21,"58087007060 ")
 ;;2315
 ;;21,"58087007130 ")
 ;;2316
 ;;21,"58087007160 ")
 ;;2317
 ;;21,"58107000290 ")
 ;;2318
 ;;21,"58107000350 ")
 ;;2319
 ;;21,"58107000415 ")
 ;;2320
 ;;21,"58107000575 ")
 ;;2321
 ;;21,"58107000690 ")
 ;;2322
 ;;21,"58107000745 ")
 ;;2323
 ;;21,"58864001601 ")
 ;;2324
 ;;21,"58864001628 ")
 ;;2325
 ;;21,"58864001630 ")
 ;;2326
 ;;21,"58864001660 ")
 ;;2327
 ;;21,"58864006501 ")
 ;;2328
 ;;21,"58864006530 ")
 ;;2329
 ;;21,"58864036330 ")
 ;;2330
 ;;21,"58864043160 ")
 ;;2331
 ;;21,"58864064556 ")
 ;;2332
 ;;21,"58864068030 ")
 ;;2333
 ;;21,"58864069530 ")
 ;;2334
 ;;21,"58864071730 ")
 ;;2335
 ;;21,"58864072730 ")
 ;;2336
 ;;21,"58864073730 ")
 ;;2337
 ;;21,"58864074930 ")
 ;;2338
 ;;21,"58864074990 ")
 ;;2339
 ;;21,"58864075930 ")
 ;;2340
 ;;21,"58864076530 ")
 ;;2341
 ;;21,"58864078430 ")
 ;;2342
 ;;21,"59252011100 ")
 ;;2343
 ;;21,"59564012510 ")
 ;;2344
 ;;21,"59564012525 ")
 ;;2345
 ;;21,"59564012610 ")
 ;;2346
 ;;21,"59564012625 ")
 ;;2347
 ;;21,"59762125801 ")
 ;;2348
 ;;21,"59762125802 ")
 ;;2349
 ;;21,"59762126101 ")
 ;;2350
 ;;21,"59762126102 ")
 ;;2351
 ;;21,"59762130001 ")
 ;;2352
 ;;21,"59762130003 ")
 ;;2353
 ;;21,"59762130101 ")
 ;;2354
 ;;21,"59762130103 ")
 ;;2355
 ;;21,"59762130201 ")
 ;;2356
 ;;21,"59762130203 ")
 ;;2357
 ;;21,"59772246101 ")
 ;;2358
 ;;21,"59772246102 ")
 ;;2359
 ;;21,"59772246201 ")
 ;;2360
 ;;21,"59772246202 ")
 ;;2361
 ;;21,"59772246203 ")
 ;;2362
 ;;21,"59772246301 ")
 ;;2363
 ;;21,"59772246302 ")
 ;;2364
 ;;21,"59772246303 ")
 ;;2365
 ;;21,"59772246401 ")
 ;;2366
 ;;21,"59772246403 ")
 ;;2367
 ;;21,"59772246501 ")
 ;;2368
 ;;21,"59772259201 ")
 ;;2369
 ;;21,"59772259301 ")
 ;;2370
 ;;21,"59772369202 ")
 ;;2371
 ;;21,"59772369205 ")
 ;;2372
 ;;21,"59772369302 ")
 ;;2373
 ;;21,"59772369305 ")
 ;;2374
 ;;21,"60346052306 ")
 ;;2375
 ;;21,"60429002530 ")
 ;;2376
 ;;21,"60429002590 ")
 ;;2377
 ;;21,"60429002630 ")
 ;;2378
 ;;21,"60429012630 ")
 ;;2379
 ;;21,"60429012660 ")
 ;;2380
 ;;21,"60429012730 ")
 ;;2381
 ;;21,"60429012760 ")
 ;;2382