BGPM5AQ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 2011;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
+2 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"58016006915 ")
+2 ;;2058
+3 ;;21,"58016006916 ")
+4 ;;2059
+5 ;;21,"58016006918 ")
+6 ;;2060
+7 ;;21,"58016006920 ")
+8 ;;2061
+9 ;;21,"58016006921 ")
+10 ;;2062
+11 ;;21,"58016006924 ")
+12 ;;2063
+13 ;;21,"58016006925 ")
+14 ;;2064
+15 ;;21,"58016006926 ")
+16 ;;2065
+17 ;;21,"58016006927 ")
+18 ;;2066
+19 ;;21,"58016006928 ")
+20 ;;2067
+21 ;;21,"58016006930 ")
+22 ;;2068
+23 ;;21,"58016006932 ")
+24 ;;2069
+25 ;;21,"58016006935 ")
+26 ;;2070
+27 ;;21,"58016006936 ")
+28 ;;2071
+29 ;;21,"58016006940 ")
+30 ;;2072
+31 ;;21,"58016006942 ")
+32 ;;2073
+33 ;;21,"58016006944 ")
+34 ;;2074
+35 ;;21,"58016006945 ")
+36 ;;2075
+37 ;;21,"58016006948 ")
+38 ;;2076
+39 ;;21,"58016006950 ")
+40 ;;2077
+41 ;;21,"58016006956 ")
+42 ;;2078
+43 ;;21,"58016006960 ")
+44 ;;2079
+45 ;;21,"58016006967 ")
+46 ;;2080
+47 ;;21,"58016006969 ")
+48 ;;2081
+49 ;;21,"58016006970 ")
+50 ;;2082
+51 ;;21,"58016006971 ")
+52 ;;2083
+53 ;;21,"58016006972 ")
+54 ;;2084
+55 ;;21,"58016006973 ")
+56 ;;2085
+57 ;;21,"58016006975 ")
+58 ;;2086
+59 ;;21,"58016006976 ")
+60 ;;2087
+61 ;;21,"58016006977 ")
+62 ;;2088
+63 ;;21,"58016006979 ")
+64 ;;2089
+65 ;;21,"58016006980 ")
+66 ;;2090
+67 ;;21,"58016006981 ")
+68 ;;2091
+69 ;;21,"58016006982 ")
+70 ;;2092
+71 ;;21,"58016006983 ")
+72 ;;2093
+73 ;;21,"58016006984 ")
+74 ;;2094
+75 ;;21,"58016006987 ")
+76 ;;2095
+77 ;;21,"58016006989 ")
+78 ;;2096
+79 ;;21,"58016006990 ")
+80 ;;2097
+81 ;;21,"58016006991 ")
+82 ;;2098
+83 ;;21,"58016006992 ")
+84 ;;2099
+85 ;;21,"58016006993 ")
+86 ;;2100
+87 ;;21,"58016006996 ")
+88 ;;2101
+89 ;;21,"58016006997 ")
+90 ;;2102
+91 ;;21,"58016006998 ")
+92 ;;2103
+93 ;;21,"58016006999 ")
+94 ;;2104
+95 ;;21,"58016016500 ")
+96 ;;2105
+97 ;;21,"58016016600 ")
+98 ;;2106
+99 ;;21,"58016022800 ")
+100 ;;2107
+101 ;;21,"58016022802 ")
+102 ;;2108
+103 ;;21,"58016022830 ")
+104 ;;2109
+105 ;;21,"58016022860 ")
+106 ;;2110
+107 ;;21,"58016022890 ")
+108 ;;2111
+109 ;;21,"58016034001 ")
+110 ;;2112
+111 ;;21,"58016034004 ")
+112 ;;2113
+113 ;;21,"58016034005 ")
+114 ;;2114
+115 ;;21,"58016034006 ")
+116 ;;2115
+117 ;;21,"58016034007 ")
+118 ;;2116
+119 ;;21,"58016034008 ")
+120 ;;2117
+121 ;;21,"58016034009 ")
+122 ;;2118
+123 ;;21,"58016034012 ")
+124 ;;2119
+125 ;;21,"58016034014 ")
+126 ;;2120
+127 ;;21,"58016034016 ")
+128 ;;2121
+129 ;;21,"58016034018 ")
+130 ;;2122
+131 ;;21,"58016034021 ")
+132 ;;2123
+133 ;;21,"58016034024 ")
+134 ;;2124
+135 ;;21,"58016034025 ")
+136 ;;2125
+137 ;;21,"58016034026 ")
+138 ;;2126
+139 ;;21,"58016034027 ")
+140 ;;2127
+141 ;;21,"58016034032 ")
+142 ;;2128
+143 ;;21,"58016034035 ")
+144 ;;2129
+145 ;;21,"58016034036 ")
+146 ;;2130
+147 ;;21,"58016034042 ")
+148 ;;2131
+149 ;;21,"58016034044 ")
+150 ;;2132
+151 ;;21,"58016034045 ")
+152 ;;2133
+153 ;;21,"58016034048 ")
+154 ;;2134
+155 ;;21,"58016034050 ")
+156 ;;2135
+157 ;;21,"58016034056 ")
+158 ;;2136
+159 ;;21,"58016034060 ")
+160 ;;2137
+161 ;;21,"58016034067 ")
+162 ;;2138
+163 ;;21,"58016034069 ")
+164 ;;2139
+165 ;;21,"58016034070 ")
+166 ;;2140
+167 ;;21,"58016034071 ")
+168 ;;2141
+169 ;;21,"58016034072 ")
+170 ;;2142
+171 ;;21,"58016034075 ")
+172 ;;2143
+173 ;;21,"58016034076 ")
+174 ;;2144
+175 ;;21,"58016034077 ")
+176 ;;2145
+177 ;;21,"58016034079 ")
+178 ;;2146
+179 ;;21,"58016034080 ")
+180 ;;2147
+181 ;;21,"58016034081 ")
+182 ;;2148
+183 ;;21,"58016034082 ")
+184 ;;2149
+185 ;;21,"58016034083 ")
+186 ;;2150
+187 ;;21,"58016034084 ")
+188 ;;2151
+189 ;;21,"58016034087 ")
+190 ;;2152
+191 ;;21,"58016034090 ")
+192 ;;2153
+193 ;;21,"58016034091 ")
+194 ;;2154
+195 ;;21,"58016034092 ")
+196 ;;2155
+197 ;;21,"58016034093 ")
+198 ;;2156
+199 ;;21,"58016034096 ")
+200 ;;2157
+201 ;;21,"58016034097 ")
+202 ;;2158
+203 ;;21,"58016034098 ")
+204 ;;2159
+205 ;;21,"58016034099 ")
+206 ;;2160
+207 ;;21,"58016036214 ")
+208 ;;2161
+209 ;;21,"58016036221 ")
+210 ;;2162
+211 ;;21,"58016036228 ")
+212 ;;2163
+213 ;;21,"58016036300 ")
+214 ;;2164
+215 ;;21,"58016036314 ")
+216 ;;2165
+217 ;;21,"58016036321 ")
+218 ;;2166
+219 ;;21,"58016036330 ")
+220 ;;2167
+221 ;;21,"58016036360 ")
+222 ;;2168
+223 ;;21,"58016047400 ")
+224 ;;2169
+225 ;;21,"58016047401 ")
+226 ;;2170
+227 ;;21,"58016047402 ")
+228 ;;2171
+229 ;;21,"58016047403 ")
+230 ;;2172
+231 ;;21,"58016047404 ")
+232 ;;2173
+233 ;;21,"58016047405 ")
+234 ;;2174
+235 ;;21,"58016047406 ")
+236 ;;2175
+237 ;;21,"58016047407 ")
+238 ;;2176
+239 ;;21,"58016047408 ")
+240 ;;2177
+241 ;;21,"58016047409 ")
+242 ;;2178
+243 ;;21,"58016047410 ")
+244 ;;2179
+245 ;;21,"58016047412 ")
+246 ;;2180
+247 ;;21,"58016047414 ")
+248 ;;2181
+249 ;;21,"58016047415 ")
+250 ;;2182
+251 ;;21,"58016047416 ")
+252 ;;2183
+253 ;;21,"58016047418 ")
+254 ;;2184
+255 ;;21,"58016047420 ")
+256 ;;2185
+257 ;;21,"58016047421 ")
+258 ;;2186
+259 ;;21,"58016047425 ")
+260 ;;2187
+261 ;;21,"58016047426 ")
+262 ;;2188
+263 ;;21,"58016047427 ")
+264 ;;2189
+265 ;;21,"58016047428 ")
+266 ;;2190
+267 ;;21,"58016047430 ")
+268 ;;2191
+269 ;;21,"58016047432 ")
+270 ;;2192
+271 ;;21,"58016047435 ")
+272 ;;2193
+273 ;;21,"58016047436 ")
+274 ;;2194
+275 ;;21,"58016047440 ")
+276 ;;2195
+277 ;;21,"58016047442 ")
+278 ;;2196
+279 ;;21,"58016047444 ")
+280 ;;2197
+281 ;;21,"58016047445 ")
+282 ;;2198
+283 ;;21,"58016047448 ")
+284 ;;2199
+285 ;;21,"58016047450 ")
+286 ;;2200
+287 ;;21,"58016047456 ")
+288 ;;2201
+289 ;;21,"58016047460 ")
+290 ;;2202
+291 ;;21,"58016047467 ")
+292 ;;2203
+293 ;;21,"58016047469 ")
+294 ;;2204
+295 ;;21,"58016047470 ")
+296 ;;2205
+297 ;;21,"58016047471 ")
+298 ;;2206
+299 ;;21,"58016047472 ")
+300 ;;2207
+301 ;;21,"58016047473 ")
+302 ;;2208
+303 ;;21,"58016047475 ")
+304 ;;2209
+305 ;;21,"58016047476 ")
+306 ;;2210
+307 ;;21,"58016047477 ")
+308 ;;2211
+309 ;;21,"58016047479 ")
+310 ;;2212
+311 ;;21,"58016047480 ")
+312 ;;2213
+313 ;;21,"58016047481 ")
+314 ;;2214
+315 ;;21,"58016047482 ")
+316 ;;2215
+317 ;;21,"58016047483 ")
+318 ;;2216
+319 ;;21,"58016047484 ")
+320 ;;2217
+321 ;;21,"58016047487 ")
+322 ;;2218
+323 ;;21,"58016047490 ")
+324 ;;2219
+325 ;;21,"58016047491 ")
+326 ;;2220
+327 ;;21,"58016047492 ")
+328 ;;2221
+329 ;;21,"58016047493 ")
+330 ;;2222
+331 ;;21,"58016047496 ")
+332 ;;2223
+333 ;;21,"58016047497 ")
+334 ;;2224
+335 ;;21,"58016047498 ")
+336 ;;2225
+337 ;;21,"58016047499 ")
+338 ;;2226
+339 ;;21,"58016054200 ")
+340 ;;2227
+341 ;;21,"58016054230 ")
+342 ;;2228
+343 ;;21,"58016056400 ")
+344 ;;2229
+345 ;;21,"58016056430 ")
+346 ;;2230
+347 ;;21,"58016056460 ")
+348 ;;2231
+349 ;;21,"58016056490 ")
+350 ;;2232
+351 ;;21,"58016057100 ")
+352 ;;2233
+353 ;;21,"58016057130 ")
+354 ;;2234
+355 ;;21,"58016057160 ")
+356 ;;2235
+357 ;;21,"58016057190 ")
+358 ;;2236
+359 ;;21,"58016057900 ")
+360 ;;2237
+361 ;;21,"58016057901 ")
+362 ;;2238
+363 ;;21,"58016057902 ")
+364 ;;2239
+365 ;;21,"58016057903 ")
+366 ;;2240
+367 ;;21,"58016057904 ")
+368 ;;2241
+369 ;;21,"58016057905 ")
+370 ;;2242
+371 ;;21,"58016057906 ")
+372 ;;2243
+373 ;;21,"58016057907 ")
+374 ;;2244
+375 ;;21,"58016057908 ")
+376 ;;2245
+377 ;;21,"58016057909 ")
+378 ;;2246
+379 ;;21,"58016057910 ")
+380 ;;2247
+381 ;;21,"58016057912 ")
+382 ;;2248
+383 ;;21,"58016057914 ")
+384 ;;2249
+385 ;;21,"58016057915 ")
+386 ;;2250
+387 ;;21,"58016057916 ")
+388 ;;2251
+389 ;;21,"58016057918 ")
+390 ;;2252
+391 ;;21,"58016057920 ")
+392 ;;2253
+393 ;;21,"58016057921 ")
+394 ;;2254
+395 ;;21,"58016057924 ")
+396 ;;2255
+397 ;;21,"58016057925 ")
+398 ;;2256
+399 ;;21,"58016057926 ")
+400 ;;2257
+401 ;;21,"58016057927 ")
+402 ;;2258
+403 ;;21,"58016057928 ")
+404 ;;2259
+405 ;;21,"58016057930 ")
+406 ;;2260
+407 ;;21,"58016057932 ")
+408 ;;2261
+409 ;;21,"58016057935 ")
+410 ;;2262
+411 ;;21,"58016057936 ")
+412 ;;2263
+413 ;;21,"58016057940 ")
+414 ;;2264
+415 ;;21,"58016057942 ")
+416 ;;2265
+417 ;;21,"58016057944 ")
+418 ;;2266
+419 ;;21,"58016057945 ")
+420 ;;2267
+421 ;;21,"58016057948 ")
+422 ;;2268
+423 ;;21,"58016057950 ")
+424 ;;2269
+425 ;;21,"58016057956 ")
+426 ;;2270
+427 ;;21,"58016057960 ")
+428 ;;2271
+429 ;;21,"58016057967 ")
+430 ;;2272
+431 ;;21,"58016057969 ")
+432 ;;2273
+433 ;;21,"58016057970 ")
+434 ;;2274
+435 ;;21,"58016057971 ")
+436 ;;2275
+437 ;;21,"58016057972 ")
+438 ;;2276
+439 ;;21,"58016057973 ")
+440 ;;2277
+441 ;;21,"58016057975 ")
+442 ;;2278
+443 ;;21,"58016057976 ")
+444 ;;2279
+445 ;;21,"58016057977 ")
+446 ;;2280
+447 ;;21,"58016057979 ")
+448 ;;2281
+449 ;;21,"58016057980 ")
+450 ;;2282
+451 ;;21,"58016057981 ")
+452 ;;2283
+453 ;;21,"58016057982 ")
+454 ;;2284
+455 ;;21,"58016057983 ")
+456 ;;2285
+457 ;;21,"58016057984 ")
+458 ;;2286
+459 ;;21,"58016057987 ")
+460 ;;2287
+461 ;;21,"58016057989 ")
+462 ;;2288
+463 ;;21,"58016057990 ")
+464 ;;2289
+465 ;;21,"58016057991 ")
+466 ;;2290
+467 ;;21,"58016057992 ")
+468 ;;2291
+469 ;;21,"58016057993 ")
+470 ;;2292
+471 ;;21,"58016057996 ")
+472 ;;2293
+473 ;;21,"58016057997 ")
+474 ;;2294
+475 ;;21,"58016057998 ")
+476 ;;2295
+477 ;;21,"58016057999 ")
+478 ;;2296
+479 ;;21,"58016058000 ")
+480 ;;2297
+481 ;;21,"58016058001 ")
+482 ;;2298
+483 ;;21,"58016058002 ")
+484 ;;2299
+485 ;;21,"58016058003 ")
+486 ;;2300
+487 ;;21,"58016058004 ")
+488 ;;2301
+489 ;;21,"58016058005 ")
+490 ;;2302
+491 ;;21,"58016058006 ")
+492 ;;2303
+493 ;;21,"58016058007 ")
+494 ;;2304
+495 ;;21,"58016058008 ")
+496 ;;2305
+497 ;;21,"58016058009 ")
+498 ;;2306
+499 ;;21,"58016058010 ")
+500 ;;2307
+501 ;;21,"58016058012 ")
+502 ;;2308
+503 ;;21,"58016058014 ")
+504 ;;2309
+505 ;;21,"58016058015 ")
+506 ;;2310
+507 ;;21,"58016058016 ")
+508 ;;2311
+509 ;;21,"58016058018 ")
+510 ;;2312
+511 ;;21,"58016058020 ")
+512 ;;2313
+513 ;;21,"58016058021 ")
+514 ;;2314
+515 ;;21,"58016058024 ")
+516 ;;2315
+517 ;;21,"58016058025 ")
+518 ;;2316
+519 ;;21,"58016058026 ")
+520 ;;2317
+521 ;;21,"58016058027 ")
+522 ;;2318
+523 ;;21,"58016058028 ")
+524 ;;2319
+525 ;;21,"58016058030 ")
+526 ;;2320
+527 ;;21,"58016058032 ")
+528 ;;2321
+529 ;;21,"58016058035 ")
+530 ;;2322
+531 ;;21,"58016058036 ")
+532 ;;2323
+533 ;;21,"58016058040 ")
+534 ;;2324
+535 ;;21,"58016058042 ")
+536 ;;2325
+537 ;;21,"58016058044 ")
+538 ;;2326
+539 ;;21,"58016058045 ")
+540 ;;2327
+541 ;;21,"58016058048 ")
+542 ;;2328
+543 ;;21,"58016058050 ")
+544 ;;2329
+545 ;;21,"58016058056 ")
+546 ;;2330
+547 ;;21,"58016058060 ")
+548 ;;2331
+549 ;;21,"58016058067 ")
+550 ;;2332
+551 ;;21,"58016058069 ")
+552 ;;2333
+553 ;;21,"58016058070 ")
+554 ;;2334
+555 ;;21,"58016058071 ")
+556 ;;2335
+557 ;;21,"58016058072 ")
+558 ;;2336
+559 ;;21,"58016058073 ")
+560 ;;2337
+561 ;;21,"58016058075 ")
+562 ;;2338
+563 ;;21,"58016058076 ")
+564 ;;2339
+565 ;;21,"58016058077 ")
+566 ;;2340
+567 ;;21,"58016058079 ")
+568 ;;2341
+569 ;;21,"58016058080 ")
+570 ;;2342
+571 ;;21,"58016058081 ")
+572 ;;2343
+573 ;;21,"58016058082 ")
+574 ;;2344
+575 ;;21,"58016058083 ")
+576 ;;2345
+577 ;;21,"58016058084 ")
+578 ;;2346
+579 ;;21,"58016058087 ")
+580 ;;2347
+581 ;;21,"58016058089 ")
+582 ;;2348
+583 ;;21,"58016058090 ")
+584 ;;2349
+585 ;;21,"58016058091 ")
+586 ;;2350
+587 ;;21,"58016058092 ")
+588 ;;2351
+589 ;;21,"58016058093 ")
+590 ;;2352
+591 ;;21,"58016058096 ")
+592 ;;2353
+593 ;;21,"58016058097 ")
+594 ;;2354
+595 ;;21,"58016058098 ")
+596 ;;2355
+597 ;;21,"58016058099 ")
+598 ;;2356
+599 ;;21,"58016058100 ")
+600 ;;2357
+601 ;;21,"58016058101 ")
+602 ;;2358
+603 ;;21,"58016058102 ")
+604 ;;2359
+605 ;;21,"58016058103 ")
+606 ;;2360
+607 ;;21,"58016058104 ")
+608 ;;2361
+609 ;;21,"58016058105 ")
+610 ;;2362
+611 ;;21,"58016058106 ")
+612 ;;2363
+613 ;;21,"58016058107 ")
+614 ;;2364
+615 ;;21,"58016058108 ")
+616 ;;2365
+617 ;;21,"58016058109 ")
+618 ;;2366
+619 ;;21,"58016058110 ")
+620 ;;2367
+621 ;;21,"58016058112 ")
+622 ;;2368
+623 ;;21,"58016058114 ")
+624 ;;2369
+625 ;;21,"58016058115 ")
+626 ;;2370
+627 ;;21,"58016058116 ")
+628 ;;2371
+629 ;;21,"58016058118 ")
+630 ;;2372
+631 ;;21,"58016058120 ")
+632 ;;2373
+633 ;;21,"58016058121 ")
+634 ;;2374
+635 ;;21,"58016058124 ")
+636 ;;2375
+637 ;;21,"58016058125 ")
+638 ;;2376
+639 ;;21,"58016058126 ")
+640 ;;2377
+641 ;;21,"58016058127 ")
+642 ;;2378
+643 ;;21,"58016058128 ")
+644 ;;2379
+645 ;;21,"58016058130 ")
+646 ;;2380
+647 ;;21,"58016058132 ")
+648 ;;2381
+649 ;;21,"58016058135 ")
+650 ;;2382
+651 ;;21,"58016058136 ")
+652 ;;2383
+653 ;;21,"58016058140 ")
+654 ;;2384
+655 ;;21,"58016058142 ")
+656 ;;2385
+657 ;;21,"58016058144 ")
+658 ;;2386
+659 ;;21,"58016058145 ")
+660 ;;2387
+661 ;;21,"58016058148 ")
+662 ;;2388
+663 ;;21,"58016058150 ")
+664 ;;2389
+665 ;;21,"58016058156 ")
+666 ;;2390
+667 ;;21,"58016058160 ")
+668 ;;2391
+669 ;;21,"58016058167 ")
+670 ;;2392
+671 ;;21,"58016058169 ")
+672 ;;2393
+673 ;;21,"58016058170 ")
+674 ;;2394
+675 ;;21,"58016058171 ")
+676 ;;2395
+677 ;;21,"58016058172 ")
+678 ;;2396
+679 ;;21,"58016058173 ")
+680 ;;2397
+681 ;;21,"58016058175 ")
+682 ;;2398
+683 ;;21,"58016058176 ")
+684 ;;2399
+685 ;;21,"58016058177 ")
+686 ;;2400
+687 ;;21,"58016058179 ")
+688 ;;2401
+689 ;;21,"58016058180 ")
+690 ;;2402
+691 ;;21,"58016058181 ")
+692 ;;2403
+693 ;;21,"58016058182 ")
+694 ;;2404
+695 ;;21,"58016058183 ")
+696 ;;2405
+697 ;;21,"58016058184 ")
+698 ;;2406
+699 ;;21,"58016058187 ")
+700 ;;2407
+701 ;;21,"58016058189 ")
+702 ;;2408
+703 ;;21,"58016058190 ")
+704 ;;2409