BGPM5AQF ;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,"65862004105 ")
+2 ;;4171
+3 ;;21,"65862004130 ")
+4 ;;4172
+5 ;;21,"65862004159 ")
+6 ;;4173
+7 ;;21,"65862004200 ")
+8 ;;4174
+9 ;;21,"65862004201 ")
+10 ;;4175
+11 ;;21,"65862004205 ")
+12 ;;4176
+13 ;;21,"65862004230 ")
+14 ;;4177
+15 ;;21,"65862004249 ")
+16 ;;4178
+17 ;;21,"65862004300 ")
+18 ;;4179
+19 ;;21,"65862004301 ")
+20 ;;4180
+21 ;;21,"65862004305 ")
+22 ;;4181
+23 ;;21,"65862004319 ")
+24 ;;4182
+25 ;;21,"65862004330 ")
+26 ;;4183
+27 ;;21,"65862004399 ")
+28 ;;4184
+29 ;;21,"65862004400 ")
+30 ;;4185
+31 ;;21,"65862004401 ")
+32 ;;4186
+33 ;;21,"65862004405 ")
+34 ;;4187
+35 ;;21,"65862004430 ")
+36 ;;4188
+37 ;;21,"65862004459 ")
+38 ;;4189
+39 ;;21,"65862004499 ")
+40 ;;4190
+41 ;;21,"65862004500 ")
+42 ;;4191
+43 ;;21,"65862004501 ")
+44 ;;4192
+45 ;;21,"65862004505 ")
+46 ;;4193
+47 ;;21,"65862004530 ")
+48 ;;4194
+49 ;;21,"65862004559 ")
+50 ;;4195
+51 ;;21,"65862004599 ")
+52 ;;4196
+53 ;;21,"65862030801 ")
+54 ;;4197
+55 ;;21,"65862030830 ")
+56 ;;4198
+57 ;;21,"65862030849 ")
+58 ;;4199
+59 ;;21,"65862030899 ")
+60 ;;4200
+61 ;;21,"65862030901 ")
+62 ;;4201
+63 ;;21,"65862030926 ")
+64 ;;4202
+65 ;;21,"65862030930 ")
+66 ;;4203
+67 ;;21,"65862030999 ")
+68 ;;4204
+69 ;;21,"65862047130 ")
+70 ;;4205
+71 ;;21,"65862047149 ")
+72 ;;4206
+73 ;;21,"65862047190 ")
+74 ;;4207
+75 ;;21,"65862047199 ")
+76 ;;4208
+77 ;;21,"65862047230 ")
+78 ;;4209
+79 ;;21,"65862047239 ")
+80 ;;4210
+81 ;;21,"65862047290 ")
+82 ;;4211
+83 ;;21,"65862047299 ")
+84 ;;4212
+85 ;;21,"65862047322 ")
+86 ;;4213
+87 ;;21,"65862047330 ")
+88 ;;4214
+89 ;;21,"65862047390 ")
+90 ;;4215
+91 ;;21,"65862047399 ")
+92 ;;4216
+93 ;;21,"66003010501 ")
+94 ;;4217
+95 ;;21,"66105010109 ")
+96 ;;4218
+97 ;;21,"66105010209 ")
+98 ;;4219
+99 ;;21,"66105010309 ")
+100 ;;4220
+101 ;;21,"66105050301 ")
+102 ;;4221
+103 ;;21,"66105050303 ")
+104 ;;4222
+105 ;;21,"66105050306 ")
+106 ;;4223
+107 ;;21,"66105050309 ")
+108 ;;4224
+109 ;;21,"66105050310 ")
+110 ;;4225
+111 ;;21,"66105050315 ")
+112 ;;4226
+113 ;;21,"66105050401 ")
+114 ;;4227
+115 ;;21,"66105050403 ")
+116 ;;4228
+117 ;;21,"66105050406 ")
+118 ;;4229
+119 ;;21,"66105050409 ")
+120 ;;4230
+121 ;;21,"66105050415 ")
+122 ;;4231
+123 ;;21,"66105052409 ")
+124 ;;4232
+125 ;;21,"66105054409 ")
+126 ;;4233
+127 ;;21,"66105054501 ")
+128 ;;4234
+129 ;;21,"66105054503 ")
+130 ;;4235
+131 ;;21,"66105054506 ")
+132 ;;4236
+133 ;;21,"66105054509 ")
+134 ;;4237
+135 ;;21,"66105054510 ")
+136 ;;4238
+137 ;;21,"66105054609 ")
+138 ;;4239
+139 ;;21,"66105054803 ")
+140 ;;4240
+141 ;;21,"66105055510 ")
+142 ;;4241
+143 ;;21,"66105066602 ")
+144 ;;4242
+145 ;;21,"66105066603 ")
+146 ;;4243
+147 ;;21,"66105066606 ")
+148 ;;4244
+149 ;;21,"66105066609 ")
+150 ;;4245
+151 ;;21,"66105066610 ")
+152 ;;4246
+153 ;;21,"66105069402 ")
+154 ;;4247
+155 ;;21,"66105069403 ")
+156 ;;4248
+157 ;;21,"66105069406 ")
+158 ;;4249
+159 ;;21,"66105069409 ")
+160 ;;4250
+161 ;;21,"66105069410 ")
+162 ;;4251
+163 ;;21,"66105069502 ")
+164 ;;4252
+165 ;;21,"66105069503 ")
+166 ;;4253
+167 ;;21,"66105069506 ")
+168 ;;4254
+169 ;;21,"66105069509 ")
+170 ;;4255
+171 ;;21,"66105069510 ")
+172 ;;4256
+173 ;;21,"66105078223 ")
+174 ;;4257
+175 ;;21,"66105078823 ")
+176 ;;4258
+177 ;;21,"66105084203 ")
+178 ;;4259
+179 ;;21,"66105084206 ")
+180 ;;4260
+181 ;;21,"66105084209 ")
+182 ;;4261
+183 ;;21,"66105084210 ")
+184 ;;4262
+185 ;;21,"66105084228 ")
+186 ;;4263
+187 ;;21,"66116027930 ")
+188 ;;4264
+189 ;;21,"66116030030 ")
+190 ;;4265
+191 ;;21,"66116030430 ")
+192 ;;4266
+193 ;;21,"66116031030 ")
+194 ;;4267
+195 ;;21,"66116032530 ")
+196 ;;4268
+197 ;;21,"66116032630 ")
+198 ;;4269
+199 ;;21,"66116050030 ")
+200 ;;4270
+201 ;;21,"66116050230 ")
+202 ;;4271
+203 ;;21,"66116071830 ")
+204 ;;4272
+205 ;;21,"66116081330 ")
+206 ;;4273
+207 ;;21,"66116081930 ")
+208 ;;4274
+209 ;;21,"66116082930 ")
+210 ;;4275
+211 ;;21,"66116083030 ")
+212 ;;4276
+213 ;;21,"66116083130 ")
+214 ;;4277
+215 ;;21,"66116086130 ")
+216 ;;4278
+217 ;;21,"66116087230 ")
+218 ;;4279
+219 ;;21,"66116087430 ")
+220 ;;4280
+221 ;;21,"66267004020 ")
+222 ;;4281
+223 ;;21,"66267004030 ")
+224 ;;4282
+225 ;;21,"66267004040 ")
+226 ;;4283
+227 ;;21,"66267004060 ")
+228 ;;4284
+229 ;;21,"66267004090 ")
+230 ;;4285
+231 ;;21,"66267004230 ")
+232 ;;4286
+233 ;;21,"66267004260 ")
+234 ;;4287
+235 ;;21,"66267004290 ")
+236 ;;4288
+237 ;;21,"66267025330 ")
+238 ;;4289
+239 ;;21,"66267029310 ")
+240 ;;4290
+241 ;;21,"66267029320 ")
+242 ;;4291
+243 ;;21,"66267029330 ")
+244 ;;4292
+245 ;;21,"66267029340 ")
+246 ;;4293
+247 ;;21,"66267029360 ")
+248 ;;4294
+249 ;;21,"66267029390 ")
+250 ;;4295
+251 ;;21,"66267032310 ")
+252 ;;4296
+253 ;;21,"66267032320 ")
+254 ;;4297
+255 ;;21,"66267032330 ")
+256 ;;4298
+257 ;;21,"66267032340 ")
+258 ;;4299
+259 ;;21,"66267032360 ")
+260 ;;4300
+261 ;;21,"66267032390 ")
+262 ;;4301
+263 ;;21,"66267032391 ")
+264 ;;4302
+265 ;;21,"66267032820 ")
+266 ;;4303
+267 ;;21,"66267032830 ")
+268 ;;4304
+269 ;;21,"66267032860 ")
+270 ;;4305
+271 ;;21,"66267032930 ")
+272 ;;4306
+273 ;;21,"66267033030 ")
+274 ;;4307
+275 ;;21,"66267033060 ")
+276 ;;4308
+277 ;;21,"66267036530 ")
+278 ;;4309
+279 ;;21,"66267036630 ")
+280 ;;4310
+281 ;;21,"66267036730 ")
+282 ;;4311
+283 ;;21,"66267037030 ")
+284 ;;4312
+285 ;;21,"66267038010 ")
+286 ;;4313
+287 ;;21,"66267038020 ")
+288 ;;4314
+289 ;;21,"66267038030 ")
+290 ;;4315
+291 ;;21,"66267038040 ")
+292 ;;4316
+293 ;;21,"66267038060 ")
+294 ;;4317
+295 ;;21,"66267038090 ")
+296 ;;4318
+297 ;;21,"66267038091 ")
+298 ;;4319
+299 ;;21,"66267041310 ")
+300 ;;4320
+301 ;;21,"66267041315 ")
+302 ;;4321
+303 ;;21,"66267041320 ")
+304 ;;4322
+305 ;;21,"66267041330 ")
+306 ;;4323
+307 ;;21,"66267041335 ")
+308 ;;4324
+309 ;;21,"66267041340 ")
+310 ;;4325
+311 ;;21,"66267041360 ")
+312 ;;4326
+313 ;;21,"66267041390 ")
+314 ;;4327
+315 ;;21,"66267041392 ")
+316 ;;4328
+317 ;;21,"66267045120 ")
+318 ;;4329
+319 ;;21,"66267045130 ")
+320 ;;4330
+321 ;;21,"66267045140 ")
+322 ;;4331
+323 ;;21,"66267045160 ")
+324 ;;4332
+325 ;;21,"66267045190 ")
+326 ;;4333
+327 ;;21,"66267046910 ")
+328 ;;4334
+329 ;;21,"66267046920 ")
+330 ;;4335
+331 ;;21,"66267046930 ")
+332 ;;4336
+333 ;;21,"66267046940 ")
+334 ;;4337
+335 ;;21,"66267046960 ")
+336 ;;4338
+337 ;;21,"66267050730 ")
+338 ;;4339
+339 ;;21,"66267052310 ")
+340 ;;4340
+341 ;;21,"66267052320 ")
+342 ;;4341
+343 ;;21,"66267052330 ")
+344 ;;4342
+345 ;;21,"66267052340 ")
+346 ;;4343
+347 ;;21,"66267052360 ")
+348 ;;4344
+349 ;;21,"66267052390 ")
+350 ;;4345
+351 ;;21,"66267054010 ")
+352 ;;4346
+353 ;;21,"66267054020 ")
+354 ;;4347
+355 ;;21,"66267054030 ")
+356 ;;4348
+357 ;;21,"66267054040 ")
+358 ;;4349
+359 ;;21,"66267054060 ")
+360 ;;4350
+361 ;;21,"66267054090 ")
+362 ;;4351
+363 ;;21,"66267056510 ")
+364 ;;4352
+365 ;;21,"66267056515 ")
+366 ;;4353
+367 ;;21,"66267056520 ")
+368 ;;4354
+369 ;;21,"66267056530 ")
+370 ;;4355
+371 ;;21,"66267056560 ")
+372 ;;4356
+373 ;;21,"66267057010 ")
+374 ;;4357
+375 ;;21,"66267057020 ")
+376 ;;4358
+377 ;;21,"66267057030 ")
+378 ;;4359
+379 ;;21,"66267057040 ")
+380 ;;4360
+381 ;;21,"66267057060 ")
+382 ;;4361
+383 ;;21,"66267057090 ")
+384 ;;4362
+385 ;;21,"66267057705 ")
+386 ;;4363
+387 ;;21,"66267057710 ")
+388 ;;4364
+389 ;;21,"66267057715 ")
+390 ;;4365
+391 ;;21,"66267057720 ")
+392 ;;4366
+393 ;;21,"66267057730 ")
+394 ;;4367
+395 ;;21,"66267057740 ")
+396 ;;4368
+397 ;;21,"66267057760 ")
+398 ;;4369
+399 ;;21,"66267057790 ")
+400 ;;4370
+401 ;;21,"66267057810 ")
+402 ;;4371
+403 ;;21,"66267057820 ")
+404 ;;4372
+405 ;;21,"66267057830 ")
+406 ;;4373
+407 ;;21,"66267057840 ")
+408 ;;4374
+409 ;;21,"66267057860 ")
+410 ;;4375
+411 ;;21,"66267058305 ")
+412 ;;4376
+413 ;;21,"66267058310 ")
+414 ;;4377
+415 ;;21,"66267058320 ")
+416 ;;4378
+417 ;;21,"66267058330 ")
+418 ;;4379
+419 ;;21,"66267058340 ")
+420 ;;4380
+421 ;;21,"66267058360 ")
+422 ;;4381
+423 ;;21,"66267075130 ")
+424 ;;4382
+425 ;;21,"66267075190 ")
+426 ;;4383
+427 ;;21,"66267075230 ")
+428 ;;4384
+429 ;;21,"66267075290 ")
+430 ;;4385
+431 ;;21,"66267100900 ")
+432 ;;4386
+433 ;;21,"66336016930 ")
+434 ;;4387
+435 ;;21,"66336038730 ")
+436 ;;4388
+437 ;;21,"66336038930 ")
+438 ;;4389
+439 ;;21,"66336038960 ")
+440 ;;4390
+441 ;;21,"66336039130 ")
+442 ;;4391
+443 ;;21,"66336039160 ")
+444 ;;4392
+445 ;;21,"66336039330 ")
+446 ;;4393
+447 ;;21,"66336039360 ")
+448 ;;4394
+449 ;;21,"66336057230 ")
+450 ;;4395
+451 ;;21,"66336061860 ")
+452 ;;4396
+453 ;;21,"66336074130 ")
+454 ;;4397
+455 ;;21,"66336075060 ")
+456 ;;4398
+457 ;;21,"66336075090 ")
+458 ;;4399
+459 ;;21,"66336079460 ")
+460 ;;4400
+461 ;;21,"66336080530 ")
+462 ;;4401
+463 ;;21,"66336080590 ")
+464 ;;4402
+465 ;;21,"66336086730 ")
+466 ;;4403
+467 ;;21,"66336094630 ")
+468 ;;4404
+469 ;;21,"66336094660 ")
+470 ;;4405
+471 ;;21,"66336094690 ")
+472 ;;4406
+473 ;;21,"66336097207 ")
+474 ;;4407
+475 ;;21,"66336097230 ")
+476 ;;4408
+477 ;;21,"66685030100 ")
+478 ;;4409
+479 ;;21,"66685030102 ")
+480 ;;4410
+481 ;;21,"66685030200 ")
+482 ;;4411
+483 ;;21,"66685030201 ")
+484 ;;4412
+485 ;;21,"66685030202 ")
+486 ;;4413
+487 ;;21,"66685030300 ")
+488 ;;4414
+489 ;;21,"66685030301 ")
+490 ;;4415
+491 ;;21,"66685030302 ")
+492 ;;4416
+493 ;;21,"66685030400 ")
+494 ;;4417
+495 ;;21,"66685030401 ")
+496 ;;4418
+497 ;;21,"66685030402 ")
+498 ;;4419
+499 ;;21,"66685070100 ")
+500 ;;4420
+501 ;;21,"66685070101 ")
+502 ;;4421
+503 ;;21,"66685070102 ")
+504 ;;4422
+505 ;;21,"66685070103 ")
+506 ;;4423
+507 ;;21,"66685070200 ")
+508 ;;4424
+509 ;;21,"66685070201 ")
+510 ;;4425
+511 ;;21,"66685070202 ")
+512 ;;4426
+513 ;;21,"66685070203 ")
+514 ;;4427
+515 ;;21,"66685070204 ")
+516 ;;4428
+517 ;;21,"66685070300 ")
+518 ;;4429
+519 ;;21,"66685070301 ")
+520 ;;4430
+521 ;;21,"66685070302 ")
+522 ;;4431
+523 ;;21,"66685070303 ")
+524 ;;4432
+525 ;;21,"66685070304 ")
+526 ;;4433
+527 ;;21,"66685070400 ")
+528 ;;4434
+529 ;;21,"66685070401 ")
+530 ;;4435
+531 ;;21,"66685070402 ")
+532 ;;4436
+533 ;;21,"66685070403 ")
+534 ;;4437
+535 ;;21,"66685070404 ")
+536 ;;4438
+537 ;;21,"66685070500 ")
+538 ;;4439
+539 ;;21,"66685070501 ")
+540 ;;4440
+541 ;;21,"66685070502 ")
+542 ;;4441
+543 ;;21,"66685070503 ")
+544 ;;4442
+545 ;;21,"66685070600 ")
+546 ;;4443
+547 ;;21,"66685070601 ")
+548 ;;4444
+549 ;;21,"66685070602 ")
+550 ;;4445
+551 ;;21,"66685070603 ")
+552 ;;4446
+553 ;;21,"66685070604 ")
+554 ;;4447
+555 ;;21,"67046015630 ")
+556 ;;4448
+557 ;;21,"67046015730 ")
+558 ;;4449
+559 ;;21,"67046015830 ")
+560 ;;4450
+561 ;;21,"67046015930 ")
+562 ;;4451
+563 ;;21,"67046015960 ")
+564 ;;4452
+565 ;;21,"67046016030 ")
+566 ;;4453
+567 ;;21,"67046016130 ")
+568 ;;4454
+569 ;;21,"67046016160 ")
+570 ;;4455
+571 ;;21,"67046042530 ")
+572 ;;4456
+573 ;;21,"67046042630 ")
+574 ;;4457
+575 ;;21,"67046042730 ")
+576 ;;4458
+577 ;;21,"67046042830 ")
+578 ;;4459
+579 ;;21,"67228002503 ")
+580 ;;4460
+581 ;;21,"67228002506 ")
+582 ;;4461
+583 ;;21,"67228002603 ")
+584 ;;4462
+585 ;;21,"67228002606 ")
+586 ;;4463
+587 ;;21,"67228008503 ")
+588 ;;4464
+589 ;;21,"67228008506 ")
+590 ;;4465
+591 ;;21,"67228016403 ")
+592 ;;4466
+593 ;;21,"67228016406 ")
+594 ;;4467
+595 ;;21,"67228016903 ")
+596 ;;4468
+597 ;;21,"67228016906 ")
+598 ;;4469
+599 ;;21,"67228026403 ")
+600 ;;4470
+601 ;;21,"67228026406 ")
+602 ;;4471
+603 ;;21,"67228026703 ")
+604 ;;4472
+605 ;;21,"67228026706 ")
+606 ;;4473
+607 ;;21,"67228029303 ")
+608 ;;4474
+609 ;;21,"67228029306 ")
+610 ;;4475
+611 ;;21,"67228031703 ")
+612 ;;4476
+613 ;;21,"67228031706 ")
+614 ;;4477
+615 ;;21,"67228031803 ")
+616 ;;4478
+617 ;;21,"67228031806 ")
+618 ;;4479
+619 ;;21,"67228034503 ")
+620 ;;4480
+621 ;;21,"67228034506 ")
+622 ;;4481
+623 ;;21,"67228044103 ")
+624 ;;4482
+625 ;;21,"67228044106 ")
+626 ;;4483
+627 ;;21,"67228046003 ")
+628 ;;4484
+629 ;;21,"67228046006 ")
+630 ;;4485
+631 ;;21,"67263040630 ")
+632 ;;4486
+633 ;;21,"67296054201 ")
+634 ;;4487
+635 ;;21,"67296062201 ")
+636 ;;4488
+637 ;;21,"67296062202 ")
+638 ;;4489
+639 ;;21,"67296063001 ")
+640 ;;4490
+641 ;;21,"67544004215 ")
+642 ;;4491
+643 ;;21,"67544004230 ")
+644 ;;4492
+645 ;;21,"67544004245 ")
+646 ;;4493
+647 ;;21,"67544004253 ")
+648 ;;4494
+649 ;;21,"67544004260 ")
+650 ;;4495
+651 ;;21,"67544004270 ")
+652 ;;4496
+653 ;;21,"67544004273 ")
+654 ;;4497
+655 ;;21,"67544004280 ")
+656 ;;4498
+657 ;;21,"67544004292 ")
+658 ;;4499
+659 ;;21,"67544004294 ")
+660 ;;4500
+661 ;;21,"67544006230 ")
+662 ;;4501
+663 ;;21,"67544006260 ")
+664 ;;4502
+665 ;;21,"67544006282 ")
+666 ;;4503
+667 ;;21,"67544012815 ")
+668 ;;4504
+669 ;;21,"67544012830 ")
+670 ;;4505
+671 ;;21,"67544012845 ")
+672 ;;4506
+673 ;;21,"67544012853 ")
+674 ;;4507
+675 ;;21,"67544012860 ")
+676 ;;4508
+677 ;;21,"67544013415 ")
+678 ;;4509
+679 ;;21,"67544013430 ")
+680 ;;4510
+681 ;;21,"67544013445 ")
+682 ;;4511
+683 ;;21,"67544013460 ")
+684 ;;4512
+685 ;;21,"67544013480 ")
+686 ;;4513
+687 ;;21,"67544014815 ")
+688 ;;4514
+689 ;;21,"67544014830 ")
+690 ;;4515
+691 ;;21,"67544014831 ")
+692 ;;4516
+693 ;;21,"67544014845 ")
+694 ;;4517
+695 ;;21,"67544014853 ")
+696 ;;4518
+697 ;;21,"67544014860 ")
+698 ;;4519
+699 ;;21,"67544014880 ")
+700 ;;4520
+701 ;;21,"67544015060 ")
+702 ;;4521
+703 ;;21,"67544015073 ")
+704 ;;4522