BGP71N2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 30, 2016 ;
+1 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
+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,"16590-0011-60 ")
+2 ;;358
+3 ;;21,"16590-0011-90 ")
+4 ;;359
+5 ;;21,"16590-0012-28 ")
+6 ;;360
+7 ;;21,"16590-0012-30 ")
+8 ;;361
+9 ;;21,"16590-0012-56 ")
+10 ;;362
+11 ;;21,"16590-0012-60 ")
+12 ;;363
+13 ;;21,"16590-0012-72 ")
+14 ;;364
+15 ;;21,"16590-0012-82 ")
+16 ;;365
+17 ;;21,"16590-0012-90 ")
+18 ;;366
+19 ;;21,"16590-0013-28 ")
+20 ;;367
+21 ;;21,"16590-0013-30 ")
+22 ;;368
+23 ;;21,"16590-0013-60 ")
+24 ;;369
+25 ;;21,"16590-0013-82 ")
+26 ;;370
+27 ;;21,"16590-0013-90 ")
+28 ;;371
+29 ;;21,"16590-0022-15 ")
+30 ;;372
+31 ;;21,"16590-0022-20 ")
+32 ;;373
+33 ;;21,"16590-0022-30 ")
+34 ;;374
+35 ;;21,"16590-0022-60 ")
+36 ;;375
+37 ;;21,"16590-0022-72 ")
+38 ;;376
+39 ;;21,"16590-0022-90 ")
+40 ;;377
+41 ;;21,"16590-0081-28 ")
+42 ;;378
+43 ;;21,"16590-0081-30 ")
+44 ;;379
+45 ;;21,"16590-0081-60 ")
+46 ;;380
+47 ;;21,"16590-0081-90 ")
+48 ;;381
+49 ;;21,"16590-0436-25 ")
+50 ;;335
+51 ;;21,"16590-0436-28 ")
+52 ;;336
+53 ;;21,"16590-0436-30 ")
+54 ;;337
+55 ;;21,"16590-0436-60 ")
+56 ;;338
+57 ;;21,"16590-0437-30 ")
+58 ;;386
+59 ;;21,"16590-0437-60 ")
+60 ;;387
+61 ;;21,"16590-0437-90 ")
+62 ;;388
+63 ;;21,"16590-0527-15 ")
+64 ;;339
+65 ;;21,"16590-0527-20 ")
+66 ;;340
+67 ;;21,"16590-0527-28 ")
+68 ;;341
+69 ;;21,"16590-0527-30 ")
+70 ;;342
+71 ;;21,"16590-0527-45 ")
+72 ;;343
+73 ;;21,"16590-0527-60 ")
+74 ;;344
+75 ;;21,"16590-0527-90 ")
+76 ;;348
+77 ;;21,"16590-0528-15 ")
+78 ;;349
+79 ;;21,"16590-0528-20 ")
+80 ;;350
+81 ;;21,"16590-0528-25 ")
+82 ;;351
+83 ;;21,"16590-0528-30 ")
+84 ;;352
+85 ;;21,"16590-0528-40 ")
+86 ;;353
+87 ;;21,"16590-0528-56 ")
+88 ;;354
+89 ;;21,"16590-0528-60 ")
+90 ;;355
+91 ;;21,"16590-0528-90 ")
+92 ;;382
+93 ;;21,"16590-0541-30 ")
+94 ;;404
+95 ;;21,"16590-0541-60 ")
+96 ;;405
+97 ;;21,"16590-0541-72 ")
+98 ;;406
+99 ;;21,"16590-0541-90 ")
+100 ;;407
+101 ;;21,"16590-0581-30 ")
+102 ;;408
+103 ;;21,"16590-0581-60 ")
+104 ;;409
+105 ;;21,"16590-0581-72 ")
+106 ;;410
+107 ;;21,"16590-0581-90 ")
+108 ;;411
+109 ;;21,"16590-0631-30 ")
+110 ;;412
+111 ;;21,"16590-0631-60 ")
+112 ;;413
+113 ;;21,"16590-0764-30 ")
+114 ;;414
+115 ;;21,"16590-0911-30 ")
+116 ;;415
+117 ;;21,"16590-0911-72 ")
+118 ;;416
+119 ;;21,"16714-0446-01 ")
+120 ;;417
+121 ;;21,"16714-0446-02 ")
+122 ;;418
+123 ;;21,"16714-0447-01 ")
+124 ;;419
+125 ;;21,"16714-0447-02 ")
+126 ;;420
+127 ;;21,"16714-0448-01 ")
+128 ;;421
+129 ;;21,"16714-0448-02 ")
+130 ;;422
+131 ;;21,"16714-0449-01 ")
+132 ;;423
+133 ;;21,"16714-0450-01 ")
+134 ;;424
+135 ;;21,"16714-0451-01 ")
+136 ;;425
+137 ;;21,"16714-0551-02 ")
+138 ;;383
+139 ;;21,"16714-0561-02 ")
+140 ;;384
+141 ;;21,"16714-0621-01 ")
+142 ;;385
+143 ;;21,"16714-0621-02 ")
+144 ;;389
+145 ;;21,"16714-0622-01 ")
+146 ;;390
+147 ;;21,"16714-0622-02 ")
+148 ;;391
+149 ;;21,"16729-0171-01 ")
+150 ;;432
+151 ;;21,"16729-0171-17 ")
+152 ;;433
+153 ;;21,"16729-0172-01 ")
+154 ;;434
+155 ;;21,"16729-0172-17 ")
+156 ;;435
+157 ;;21,"16729-0173-01 ")
+158 ;;436
+159 ;;21,"16729-0173-17 ")
+160 ;;437
+161 ;;21,"16729-0174-01 ")
+162 ;;438
+163 ;;21,"16729-0175-01 ")
+164 ;;439
+165 ;;21,"16729-0176-01 ")
+166 ;;440
+167 ;;21,"17856-0423-03 ")
+168 ;;441
+169 ;;21,"17856-0423-05 ")
+170 ;;442
+171 ;;21,"17856-1508-02 ")
+172 ;;443
+173 ;;21,"17856-1508-05 ")
+174 ;;444
+175 ;;21,"21695-0105-14 ")
+176 ;;392
+177 ;;21,"21695-0105-30 ")
+178 ;;393
+179 ;;21,"21695-0105-60 ")
+180 ;;394
+181 ;;21,"21695-0139-60 ")
+182 ;;448
+183 ;;21,"21695-0209-20 ")
+184 ;;449
+185 ;;21,"21695-0209-30 ")
+186 ;;450
+187 ;;21,"21695-0209-60 ")
+188 ;;451
+189 ;;21,"21695-0209-72 ")
+190 ;;452
+191 ;;21,"21695-0211-15 ")
+192 ;;395
+193 ;;21,"21695-0211-30 ")
+194 ;;396
+195 ;;21,"21695-0212-15 ")
+196 ;;397
+197 ;;21,"21695-0212-30 ")
+198 ;;398
+199 ;;21,"21695-0212-45 ")
+200 ;;399
+201 ;;21,"21695-0213-15 ")
+202 ;;400
+203 ;;21,"21695-0213-30 ")
+204 ;;401
+205 ;;21,"21695-0225-30 ")
+206 ;;402
+207 ;;21,"21695-0226-30 ")
+208 ;;403
+209 ;;21,"21695-0251-30 ")
+210 ;;462
+211 ;;21,"21695-0251-60 ")
+212 ;;463
+213 ;;21,"21695-0251-90 ")
+214 ;;464
+215 ;;21,"21695-0252-30 ")
+216 ;;465
+217 ;;21,"21695-0253-30 ")
+218 ;;466
+219 ;;21,"21695-0257-08 ")
+220 ;;467
+221 ;;21,"21695-0257-28 ")
+222 ;;468
+223 ;;21,"21695-0257-30 ")
+224 ;;469
+225 ;;21,"21695-0257-60 ")
+226 ;;470
+227 ;;21,"21695-0319-30 ")
+228 ;;426
+229 ;;21,"21695-0354-60 ")
+230 ;;472
+231 ;;21,"21695-0376-60 ")
+232 ;;427
+233 ;;21,"21695-0441-30 ")
+234 ;;474
+235 ;;21,"21695-0446-30 ")
+236 ;;475
+237 ;;21,"21695-0446-90 ")
+238 ;;476
+239 ;;21,"21695-0506-07 ")
+240 ;;428
+241 ;;21,"21695-0506-15 ")
+242 ;;429
+243 ;;21,"21695-0506-30 ")
+244 ;;430
+245 ;;21,"21695-0506-60 ")
+246 ;;431
+247 ;;21,"21695-0507-07 ")
+248 ;;445
+249 ;;21,"21695-0507-10 ")
+250 ;;446
+251 ;;21,"21695-0507-15 ")
+252 ;;447
+253 ;;21,"21695-0507-30 ")
+254 ;;453
+255 ;;21,"21695-0507-60 ")
+256 ;;454
+257 ;;21,"21695-0594-16 ")
+258 ;;486
+259 ;;21,"21695-0843-60 ")
+260 ;;487
+261 ;;21,"21695-0890-30 ")
+262 ;;488
+263 ;;21,"21695-0943-30 ")
+264 ;;489
+265 ;;21,"21695-0970-16 ")
+266 ;;490
+267 ;;21,"23155-0128-01 ")
+268 ;;491
+269 ;;21,"23155-0129-01 ")
+270 ;;492
+271 ;;21,"29300-0131-01 ")
+272 ;;455
+273 ;;21,"29300-0132-01 ")
+274 ;;456
+275 ;;21,"33261-0008-00 ")
+276 ;;495
+277 ;;21,"33261-0008-02 ")
+278 ;;496
+279 ;;21,"33261-0008-03 ")
+280 ;;497
+281 ;;21,"33261-0008-10 ")
+282 ;;498
+283 ;;21,"33261-0008-14 ")
+284 ;;499
+285 ;;21,"33261-0008-20 ")
+286 ;;500
+287 ;;21,"33261-0008-21 ")
+288 ;;501
+289 ;;21,"33261-0008-28 ")
+290 ;;502
+291 ;;21,"33261-0008-30 ")
+292 ;;503
+293 ;;21,"33261-0008-56 ")
+294 ;;504
+295 ;;21,"33261-0008-60 ")
+296 ;;505
+297 ;;21,"33261-0008-84 ")
+298 ;;506
+299 ;;21,"33261-0008-90 ")
+300 ;;507
+301 ;;21,"33261-0040-00 ")
+302 ;;508
+303 ;;21,"33261-0040-30 ")
+304 ;;509
+305 ;;21,"33261-0040-60 ")
+306 ;;510
+307 ;;21,"33261-0040-90 ")
+308 ;;511
+309 ;;21,"33261-0172-07 ")
+310 ;;457
+311 ;;21,"33261-0172-14 ")
+312 ;;458
+313 ;;21,"33261-0172-21 ")
+314 ;;459
+315 ;;21,"33261-0172-28 ")
+316 ;;460
+317 ;;21,"33261-0172-30 ")
+318 ;;461
+319 ;;21,"33261-0172-60 ")
+320 ;;471
+321 ;;21,"33261-0172-90 ")
+322 ;;473
+323 ;;21,"33261-0173-07 ")
+324 ;;477
+325 ;;21,"33261-0173-12 ")
+326 ;;478
+327 ;;21,"33261-0173-14 ")
+328 ;;479
+329 ;;21,"33261-0173-15 ")
+330 ;;480
+331 ;;21,"33261-0173-21 ")
+332 ;;481
+333 ;;21,"33261-0173-28 ")
+334 ;;482
+335 ;;21,"33261-0173-30 ")
+336 ;;483
+337 ;;21,"33261-0173-42 ")
+338 ;;484
+339 ;;21,"33261-0173-60 ")
+340 ;;485
+341 ;;21,"33261-0173-90 ")
+342 ;;493
+343 ;;21,"33261-0358-00 ")
+344 ;;529
+345 ;;21,"33261-0358-02 ")
+346 ;;530
+347 ;;21,"33261-0358-03 ")
+348 ;;531
+349 ;;21,"33261-0358-07 ")
+350 ;;532
+351 ;;21,"33261-0358-14 ")
+352 ;;533
+353 ;;21,"33261-0358-20 ")
+354 ;;534
+355 ;;21,"33261-0358-21 ")
+356 ;;535
+357 ;;21,"33261-0358-28 ")
+358 ;;536
+359 ;;21,"33261-0358-30 ")
+360 ;;537
+361 ;;21,"33261-0358-60 ")
+362 ;;538
+363 ;;21,"33261-0358-90 ")
+364 ;;539
+365 ;;21,"33261-0363-30 ")
+366 ;;540
+367 ;;21,"33261-0363-60 ")
+368 ;;541
+369 ;;21,"33261-0363-90 ")
+370 ;;542
+371 ;;21,"33261-0454-02 ")
+372 ;;494
+373 ;;21,"33261-0454-30 ")
+374 ;;512
+375 ;;21,"33261-0454-60 ")
+376 ;;513
+377 ;;21,"33261-0454-90 ")
+378 ;;514
+379 ;;21,"33261-0459-02 ")
+380 ;;547
+381 ;;21,"33261-0459-30 ")
+382 ;;548
+383 ;;21,"33261-0459-60 ")
+384 ;;549
+385 ;;21,"33261-0459-90 ")
+386 ;;550
+387 ;;21,"33261-0486-30 ")
+388 ;;515
+389 ;;21,"33261-0486-60 ")
+390 ;;516
+391 ;;21,"33261-0486-90 ")
+392 ;;517
+393 ;;21,"33261-0626-30 ")
+394 ;;554
+395 ;;21,"33261-0626-60 ")
+396 ;;555
+397 ;;21,"33261-0626-90 ")
+398 ;;556
+399 ;;21,"33261-0652-07 ")
+400 ;;518
+401 ;;21,"33261-0652-14 ")
+402 ;;519
+403 ;;21,"33261-0652-30 ")
+404 ;;520
+405 ;;21,"33261-0652-60 ")
+406 ;;521
+407 ;;21,"33261-0682-02 ")
+408 ;;561
+409 ;;21,"33261-0682-07 ")
+410 ;;562
+411 ;;21,"33261-0682-14 ")
+412 ;;563
+413 ;;21,"33261-0682-20 ")
+414 ;;564
+415 ;;21,"33261-0682-21 ")
+416 ;;565
+417 ;;21,"33261-0682-28 ")
+418 ;;566
+419 ;;21,"33261-0682-30 ")
+420 ;;567
+421 ;;21,"33261-0682-60 ")
+422 ;;568
+423 ;;21,"33261-0682-90 ")
+424 ;;569
+425 ;;21,"33261-0802-30 ")
+426 ;;570
+427 ;;21,"33261-0802-60 ")
+428 ;;571
+429 ;;21,"33261-0802-90 ")
+430 ;;572
+431 ;;21,"33261-0853-00 ")
+432 ;;573
+433 ;;21,"33261-0853-30 ")
+434 ;;574
+435 ;;21,"33261-0853-60 ")
+436 ;;575
+437 ;;21,"33261-0853-90 ")
+438 ;;576
+439 ;;21,"33261-0854-00 ")
+440 ;;577
+441 ;;21,"33261-0854-30 ")
+442 ;;578
+443 ;;21,"33261-0854-60 ")
+444 ;;579
+445 ;;21,"33261-0854-90 ")
+446 ;;580
+447 ;;21,"33261-0922-00 ")
+448 ;;581
+449 ;;21,"33261-0922-30 ")
+450 ;;582
+451 ;;21,"33261-0922-60 ")
+452 ;;583
+453 ;;21,"33261-0922-90 ")
+454 ;;584
+455 ;;21,"33261-0944-30 ")
+456 ;;585
+457 ;;21,"33261-0944-60 ")
+458 ;;586
+459 ;;21,"33261-0944-90 ")
+460 ;;587
+461 ;;21,"33342-0299-07 ")
+462 ;;522
+463 ;;21,"33342-0300-11 ")
+464 ;;523
+465 ;;21,"33342-0301-11 ")
+466 ;;524
+467 ;;21,"33358-0022-15 ")
+468 ;;591
+469 ;;21,"33358-0022-30 ")
+470 ;;592
+471 ;;21,"33358-0022-60 ")
+472 ;;593
+473 ;;21,"33358-0023-00 ")
+474 ;;594
+475 ;;21,"33358-0023-20 ")
+476 ;;595
+477 ;;21,"33358-0023-30 ")
+478 ;;596
+479 ;;21,"33358-0023-60 ")
+480 ;;597
+481 ;;21,"33358-0024-00 ")
+482 ;;598
+483 ;;21,"33358-0024-30 ")
+484 ;;599
+485 ;;21,"33358-0024-60 ")
+486 ;;600
+487 ;;21,"33358-0045-30 ")
+488 ;;601
+489 ;;21,"33358-0046-04 ")
+490 ;;602
+491 ;;21,"33358-0058-30 ")
+492 ;;603
+493 ;;21,"33358-0059-20 ")
+494 ;;604
+495 ;;21,"33358-0059-30 ")
+496 ;;605
+497 ;;21,"33358-0059-60 ")
+498 ;;606
+499 ;;21,"33358-0061-30 ")
+500 ;;607
+501 ;;21,"33358-0061-90 ")
+502 ;;608
+503 ;;21,"33358-0117-30 ")
+504 ;;609
+505 ;;21,"33358-0117-60 ")
+506 ;;610
+507 ;;21,"33358-0118-30 ")
+508 ;;611
+509 ;;21,"33358-0118-60 ")
+510 ;;612
+511 ;;21,"33358-0119-30 ")
+512 ;;613
+513 ;;21,"33358-0119-60 ")
+514 ;;614
+515 ;;21,"33358-0189-30 ")
+516 ;;615
+517 ;;21,"33358-0189-60 ")
+518 ;;616
+519 ;;21,"33358-0190-30 ")
+520 ;;617
+521 ;;21,"33358-0190-60 ")
+522 ;;618
+523 ;;21,"33358-0191-30 ")
+524 ;;619
+525 ;;21,"33358-0227-30 ")
+526 ;;525
+527 ;;21,"33358-0326-30 ")
+528 ;;526
+529 ;;21,"33358-0420-30 ")
+530 ;;527
+531 ;;21,"33358-0439-30 ")
+532 ;;528
+533 ;;21,"35356-0424-30 ")
+534 ;;624
+535 ;;21,"35356-0424-60 ")
+536 ;;625
+537 ;;21,"35356-0572-30 ")
+538 ;;543
+539 ;;21,"35356-0572-60 ")
+540 ;;544
+541 ;;21,"35356-0573-30 ")
+542 ;;545
+543 ;;21,"35356-0573-60 ")
+544 ;;546
+545 ;;21,"35356-0574-30 ")
+546 ;;551
+547 ;;21,"35356-0574-60 ")
+548 ;;552
+549 ;;21,"35356-0592-30 ")
+550 ;;632
+551 ;;21,"35356-0645-30 ")
+552 ;;553
+553 ;;21,"35356-0645-60 ")
+554 ;;557
+555 ;;21,"35356-0650-30 ")
+556 ;;635
+557 ;;21,"35356-0656-30 ")
+558 ;;558
+559 ;;21,"35356-0712-00 ")
+560 ;;637
+561 ;;21,"35356-0712-30 ")
+562 ;;638
+563 ;;21,"35356-0712-60 ")
+564 ;;639
+565 ;;21,"35356-0712-90 ")
+566 ;;640
+567 ;;21,"35356-0741-30 ")
+568 ;;641
+569 ;;21,"35356-0742-30 ")
+570 ;;642
+571 ;;21,"35356-0742-60 ")
+572 ;;643
+573 ;;21,"35356-0742-90 ")
+574 ;;644
+575 ;;21,"35356-0743-30 ")
+576 ;;645
+577 ;;21,"35356-0745-15 ")
+578 ;;559
+579 ;;21,"35356-0745-60 ")
+580 ;;560
+581 ;;21,"35356-0759-30 ")
+582 ;;648
+583 ;;21,"35356-0764-30 ")
+584 ;;588
+585 ;;21,"35356-0845-30 ")
+586 ;;589
+587 ;;21,"35356-0862-06 ")
+588 ;;651
+589 ;;21,"35356-0862-20 ")
+590 ;;652
+591 ;;21,"35356-0862-30 ")
+592 ;;653
+593 ;;21,"42043-0320-03 ")
+594 ;;590
+595 ;;21,"42043-0321-01 ")
+596 ;;620
+597 ;;21,"42043-0322-01 ")
+598 ;;621
+599 ;;21,"42192-0520-16 ")
+600 ;;657
+601 ;;21,"42254-0130-60 ")
+602 ;;622
+603 ;;21,"42254-0147-14 ")
+604 ;;623
+605 ;;21,"42254-0189-60 ")
+606 ;;626
+607 ;;21,"42254-0268-20 ")
+608 ;;661
+609 ;;21,"42254-0323-60 ")
+610 ;;662
+611 ;;21,"42291-0181-01 ")
+612 ;;663
+613 ;;21,"42291-0244-04 ")
+614 ;;664
+615 ;;21,"42291-0244-16 ")
+616 ;;665
+617 ;;21,"42291-0245-01 ")
+618 ;;666
+619 ;;21,"42291-0247-90 ")
+620 ;;667
+621 ;;21,"42291-0267-01 ")
+622 ;;668
+623 ;;21,"42291-0271-30 ")
+624 ;;627
+625 ;;21,"42291-0272-90 ")
+626 ;;628
+627 ;;21,"42291-0273-90 ")
+628 ;;629
+629 ;;21,"42291-0345-01 ")
+630 ;;672
+631 ;;21,"42291-0346-01 ")
+632 ;;673
+633 ;;21,"42291-0347-01 ")
+634 ;;674
+635 ;;21,"42549-0329-30 ")
+636 ;;675
+637 ;;21,"42549-0492-30 ")
+638 ;;676
+639 ;;21,"42549-0495-30 ")
+640 ;;677
+641 ;;21,"42549-0529-30 ")
+642 ;;678
+643 ;;21,"42549-0529-60 ")
+644 ;;679
+645 ;;21,"42549-0529-90 ")
+646 ;;680
+647 ;;21,"42549-0548-28 ")
+648 ;;630
+649 ;;21,"42549-0548-30 ")
+650 ;;631
+651 ;;21,"42549-0553-30 ")
+652 ;;683
+653 ;;21,"42549-0563-30 ")
+654 ;;633
+655 ;;21,"42549-0593-30 ")
+656 ;;634
+657 ;;21,"42549-0605-30 ")
+658 ;;686
+659 ;;21,"42549-0605-60 ")
+660 ;;687
+661 ;;21,"42549-0613-30 ")
+662 ;;688
+663 ;;21,"42582-0100-10 ")
+664 ;;689
+665 ;;21,"42582-0101-10 ")
+666 ;;690
+667 ;;21,"42582-0200-10 ")
+668 ;;691
+669 ;;21,"42582-0201-10 ")
+670 ;;692
+671 ;;21,"42847-0103-03 ")
+672 ;;693
+673 ;;21,"42847-0103-10 ")
+674 ;;694
+675 ;;21,"42847-0103-30 ")
+676 ;;695
+677 ;;21,"42847-0106-03 ")
+678 ;;696
+679 ;;21,"42847-0106-10 ")
+680 ;;697
+681 ;;21,"42847-0106-30 ")
+682 ;;698
+683 ;;21,"42998-0303-01 ")
+684 ;;699