BGPM5ATM ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"00480778101 ")
+2 ;;7487
+3 ;;21,"00480778201 ")
+4 ;;7488
+5 ;;21,"00480778203 ")
+6 ;;7489
+7 ;;21,"00480778301 ")
+8 ;;7490
+9 ;;21,"00480778303 ")
+10 ;;7491
+11 ;;21,"00480778401 ")
+12 ;;7492
+13 ;;21,"00480778404 ")
+14 ;;7493
+15 ;;21,"00480778501 ")
+16 ;;7494
+17 ;;21,"00480778503 ")
+18 ;;7495
+19 ;;21,"00490709800 ")
+20 ;;7496
+21 ;;21,"00490709801 ")
+22 ;;7497
+23 ;;21,"00490709802 ")
+24 ;;7498
+25 ;;21,"00490709803 ")
+26 ;;7499
+27 ;;21,"00490709804 ")
+28 ;;7500
+29 ;;21,"00490709805 ")
+30 ;;7501
+31 ;;21,"00490709806 ")
+32 ;;7502
+33 ;;21,"00490709807 ")
+34 ;;7503
+35 ;;21,"00490709808 ")
+36 ;;7504
+37 ;;21,"00490709809 ")
+38 ;;7505
+39 ;;21,"00490709810 ")
+40 ;;7506
+41 ;;21,"00490709812 ")
+42 ;;7507
+43 ;;21,"00490709814 ")
+44 ;;7508
+45 ;;21,"00490709815 ")
+46 ;;7509
+47 ;;21,"00490709816 ")
+48 ;;7510
+49 ;;21,"00490709818 ")
+50 ;;7511
+51 ;;21,"00490709820 ")
+52 ;;7512
+53 ;;21,"00490709821 ")
+54 ;;7513
+55 ;;21,"00490709824 ")
+56 ;;7514
+57 ;;21,"00490709825 ")
+58 ;;7515
+59 ;;21,"00490709826 ")
+60 ;;7516
+61 ;;21,"00490709827 ")
+62 ;;7517
+63 ;;21,"00490709828 ")
+64 ;;7518
+65 ;;21,"00490709830 ")
+66 ;;7519
+67 ;;21,"00490709832 ")
+68 ;;7520
+69 ;;21,"00490709835 ")
+70 ;;7521
+71 ;;21,"00490709836 ")
+72 ;;7522
+73 ;;21,"00490709840 ")
+74 ;;7523
+75 ;;21,"00490709842 ")
+76 ;;7524
+77 ;;21,"00490709844 ")
+78 ;;7525
+79 ;;21,"00490709845 ")
+80 ;;7526
+81 ;;21,"00490709848 ")
+82 ;;7527
+83 ;;21,"00490709850 ")
+84 ;;7528
+85 ;;21,"00490709856 ")
+86 ;;7529
+87 ;;21,"00490709860 ")
+88 ;;7530
+89 ;;21,"00490709867 ")
+90 ;;7531
+91 ;;21,"00490709869 ")
+92 ;;7532
+93 ;;21,"00490709870 ")
+94 ;;7533
+95 ;;21,"00490709871 ")
+96 ;;7534
+97 ;;21,"00490709872 ")
+98 ;;7535
+99 ;;21,"00490709873 ")
+100 ;;7536
+101 ;;21,"00490709875 ")
+102 ;;7537
+103 ;;21,"00490709876 ")
+104 ;;7538
+105 ;;21,"00490709877 ")
+106 ;;7539
+107 ;;21,"00490709879 ")
+108 ;;7540
+109 ;;21,"00490709880 ")
+110 ;;7541
+111 ;;21,"00490709881 ")
+112 ;;7542
+113 ;;21,"00490709882 ")
+114 ;;7543
+115 ;;21,"00490709883 ")
+116 ;;7544
+117 ;;21,"00490709884 ")
+118 ;;7545
+119 ;;21,"00490709887 ")
+120 ;;7546
+121 ;;21,"00490709889 ")
+122 ;;7547
+123 ;;21,"00490709890 ")
+124 ;;7548
+125 ;;21,"00490709891 ")
+126 ;;7549
+127 ;;21,"00490709892 ")
+128 ;;7550
+129 ;;21,"00490709893 ")
+130 ;;7551
+131 ;;21,"00490709896 ")
+132 ;;7552
+133 ;;21,"00490709897 ")
+134 ;;7553
+135 ;;21,"00490709898 ")
+136 ;;7554
+137 ;;21,"00490709899 ")
+138 ;;7555
+139 ;;21,"00490714601 ")
+140 ;;7556
+141 ;;21,"00490714602 ")
+142 ;;7557
+143 ;;21,"00490714603 ")
+144 ;;7558
+145 ;;21,"00490714604 ")
+146 ;;7559
+147 ;;21,"00490714605 ")
+148 ;;7560
+149 ;;21,"00490714606 ")
+150 ;;7561
+151 ;;21,"00490714607 ")
+152 ;;7562
+153 ;;21,"00490714608 ")
+154 ;;7563
+155 ;;21,"00490714609 ")
+156 ;;7564
+157 ;;21,"00490714610 ")
+158 ;;7565
+159 ;;21,"00490714612 ")
+160 ;;7566
+161 ;;21,"00490714614 ")
+162 ;;7567
+163 ;;21,"00490714615 ")
+164 ;;7568
+165 ;;21,"00490714616 ")
+166 ;;7569
+167 ;;21,"00490714618 ")
+168 ;;7570
+169 ;;21,"00490714620 ")
+170 ;;7571
+171 ;;21,"00490714621 ")
+172 ;;7572
+173 ;;21,"00490714624 ")
+174 ;;7573
+175 ;;21,"00490714625 ")
+176 ;;7574
+177 ;;21,"00490714626 ")
+178 ;;7575
+179 ;;21,"00490714627 ")
+180 ;;7576
+181 ;;21,"00490714628 ")
+182 ;;7577
+183 ;;21,"00490714630 ")
+184 ;;7578
+185 ;;21,"00490714632 ")
+186 ;;7579
+187 ;;21,"00490714635 ")
+188 ;;7580
+189 ;;21,"00490714636 ")
+190 ;;7581
+191 ;;21,"00490714640 ")
+192 ;;7582
+193 ;;21,"00490714642 ")
+194 ;;7583
+195 ;;21,"00490714644 ")
+196 ;;7584
+197 ;;21,"00490714645 ")
+198 ;;7585
+199 ;;21,"00490714648 ")
+200 ;;7586
+201 ;;21,"00490714650 ")
+202 ;;7587
+203 ;;21,"00490714656 ")
+204 ;;7588
+205 ;;21,"00490714660 ")
+206 ;;7589
+207 ;;21,"00490714667 ")
+208 ;;7590
+209 ;;21,"00490714669 ")
+210 ;;7591
+211 ;;21,"00490714670 ")
+212 ;;7592
+213 ;;21,"00490714671 ")
+214 ;;7593
+215 ;;21,"00490714672 ")
+216 ;;7594
+217 ;;21,"00490714673 ")
+218 ;;7595
+219 ;;21,"00490714675 ")
+220 ;;7596
+221 ;;21,"00490714676 ")
+222 ;;7597
+223 ;;21,"00490714677 ")
+224 ;;7598
+225 ;;21,"00490714679 ")
+226 ;;7599
+227 ;;21,"00490714680 ")
+228 ;;7600
+229 ;;21,"00490714681 ")
+230 ;;7601
+231 ;;21,"00490714682 ")
+232 ;;7602
+233 ;;21,"00490714683 ")
+234 ;;7603
+235 ;;21,"00490714684 ")
+236 ;;7604
+237 ;;21,"00490714687 ")
+238 ;;7605
+239 ;;21,"00490714689 ")
+240 ;;7606
+241 ;;21,"00490714690 ")
+242 ;;7607
+243 ;;21,"00490714691 ")
+244 ;;7608
+245 ;;21,"00490714692 ")
+246 ;;7609
+247 ;;21,"00490714693 ")
+248 ;;7610
+249 ;;21,"00517871110 ")
+250 ;;7611
+251 ;;21,"00517872210 ")
+252 ;;7612
+253 ;;21,"00517872510 ")
+254 ;;7613
+255 ;;21,"00517875010 ")
+256 ;;7614
+257 ;;21,"00527133501 ")
+258 ;;7615
+259 ;;21,"00527133601 ")
+260 ;;7616
+261 ;;21,"00527133606 ")
+262 ;;7617
+263 ;;21,"00527133610 ")
+264 ;;7618
+265 ;;21,"00527133825 ")
+266 ;;7619
+267 ;;21,"00527133850 ")
+268 ;;7620
+269 ;;21,"00527138101 ")
+270 ;;7621
+271 ;;21,"00527138104 ")
+272 ;;7622
+273 ;;21,"00527138201 ")
+274 ;;7623
+275 ;;21,"00527138301 ")
+276 ;;7624
+277 ;;21,"00527138302 ")
+278 ;;7625
+279 ;;21,"00527138401 ")
+280 ;;7626
+281 ;;21,"00527138501 ")
+282 ;;7627
+283 ;;21,"00527138650 ")
+284 ;;7628
+285 ;;21,"00527144201 ")
+286 ;;7629
+287 ;;21,"00527144301 ")
+288 ;;7630
+289 ;;21,"00527144305 ")
+290 ;;7631
+291 ;;21,"00527153501 ")
+292 ;;7632
+293 ;;21,"00527153701 ")
+294 ;;7633
+295 ;;21,"00527153730 ")
+296 ;;7634
+297 ;;21,"00555001002 ")
+298 ;;7635
+299 ;;21,"00555001005 ")
+300 ;;7636
+301 ;;21,"00555001102 ")
+302 ;;7637
+303 ;;21,"00555001105 ")
+304 ;;7638
+305 ;;21,"00555001302 ")
+306 ;;7639
+307 ;;21,"00555001304 ")
+308 ;;7640
+309 ;;21,"00555001305 ")
+310 ;;7641
+311 ;;21,"00555001313 ")
+312 ;;7642
+313 ;;21,"00555017801 ")
+314 ;;7643
+315 ;;21,"00555017802 ")
+316 ;;7644
+317 ;;21,"00555017901 ")
+318 ;;7645
+319 ;;21,"00555017902 ")
+320 ;;7646
+321 ;;21,"00555018001 ")
+322 ;;7647
+323 ;;21,"00555018002 ")
+324 ;;7648
+325 ;;21,"00555021522 ")
+326 ;;7649
+327 ;;21,"00555021523 ")
+328 ;;7650
+329 ;;21,"00555023002 ")
+330 ;;7651
+331 ;;21,"00555025902 ")
+332 ;;7652
+333 ;;21,"00555025904 ")
+334 ;;7653
+335 ;;21,"00555037987 ")
+336 ;;7654
+337 ;;21,"00555038087 ")
+338 ;;7655
+339 ;;21,"00555044521 ")
+340 ;;7656
+341 ;;21,"00555044522 ")
+342 ;;7657
+343 ;;21,"00555044523 ")
+344 ;;7658
+345 ;;21,"00555044536 ")
+346 ;;7659
+347 ;;21,"00555051210 ")
+348 ;;7660
+349 ;;21,"00555051402 ")
+350 ;;7661
+351 ;;21,"00555051404 ")
+352 ;;7662
+353 ;;21,"00555051418 ")
+354 ;;7663
+355 ;;21,"00555051502 ")
+356 ;;7664
+357 ;;21,"00555051504 ")
+358 ;;7665
+359 ;;21,"00555051518 ")
+360 ;;7666
+361 ;;21,"00555052522 ")
+362 ;;7667
+363 ;;21,"00555052523 ")
+364 ;;7668
+365 ;;21,"00555052528 ")
+366 ;;7669
+367 ;;21,"00555052622 ")
+368 ;;7670
+369 ;;21,"00555052623 ")
+370 ;;7671
+371 ;;21,"00555058202 ")
+372 ;;7672
+373 ;;21,"00555058210 ")
+374 ;;7673
+375 ;;21,"00555058218 ")
+376 ;;7674
+377 ;;21,"00555069402 ")
+378 ;;7675
+379 ;;21,"00555069502 ")
+380 ;;7676
+381 ;;21,"00555069610 ")
+382 ;;7677
+383 ;;21,"00555081402 ")
+384 ;;7678
+385 ;;21,"00555081403 ")
+386 ;;7679
+387 ;;21,"00555081405 ")
+388 ;;7680
+389 ;;21,"00555081502 ")
+390 ;;7681
+391 ;;21,"00555081503 ")
+392 ;;7682
+393 ;;21,"00555081505 ")
+394 ;;7683
+395 ;;21,"00555081602 ")
+396 ;;7684
+397 ;;21,"00555081603 ")
+398 ;;7685
+399 ;;21,"00555081605 ")
+400 ;;7686
+401 ;;21,"00555081610 ")
+402 ;;7687
+403 ;;21,"00574012901 ")
+404 ;;7688
+405 ;;21,"00591030901 ")
+406 ;;7689
+407 ;;21,"00591031025 ")
+408 ;;7690
+409 ;;21,"00591031050 ")
+410 ;;7691
+411 ;;21,"00591041001 ")
+412 ;;7692
+413 ;;21,"00591041125 ")
+414 ;;7693
+415 ;;21,"00591041150 ")
+416 ;;7694
+417 ;;21,"00591049905 ")
+418 ;;7695
+419 ;;21,"00591049950 ")
+420 ;;7696
+421 ;;21,"00591223401 ")
+422 ;;7697
+423 ;;21,"00591223410 ")
+424 ;;7698
+425 ;;21,"00591223501 ")
+426 ;;7699
+427 ;;21,"00591223510 ")
+428 ;;7700
+429 ;;21,"00591236569 ")
+430 ;;7701
+431 ;;21,"00591240401 ")
+432 ;;7702
+433 ;;21,"00591247401 ")
+434 ;;7703
+435 ;;21,"00591247410 ")
+436 ;;7704
+437 ;;21,"00591247501 ")
+438 ;;7705
+439 ;;21,"00591247510 ")
+440 ;;7706
+441 ;;21,"00591312001 ")
+442 ;;7707
+443 ;;21,"00591312016 ")
+444 ;;7708
+445 ;;21,"00591315300 ")
+446 ;;7709
+447 ;;21,"00591315301 ")
+448 ;;7710
+449 ;;21,"00591322415 ")
+450 ;;7711
+451 ;;21,"00591322560 ")
+452 ;;7712
+453 ;;21,"00591354969 ")
+454 ;;7713
+455 ;;21,"00591355068 ")
+456 ;;7714
+457 ;;21,"00591396111 ")
+458 ;;7715
+459 ;;21,"00591544005 ")
+460 ;;7716
+461 ;;21,"00591544050 ")
+462 ;;7717
+463 ;;21,"00591553550 ")
+464 ;;7718
+465 ;;21,"00591554601 ")
+466 ;;7719
+467 ;;21,"00591554605 ")
+468 ;;7720
+469 ;;21,"00591554701 ")
+470 ;;7721
+471 ;;21,"00591555305 ")
+472 ;;7722
+473 ;;21,"00591555350 ")
+474 ;;7723
+475 ;;21,"00591557101 ")
+476 ;;7724
+477 ;;21,"00591569401 ")
+478 ;;7725
+479 ;;21,"00591569460 ")
+480 ;;7726
+481 ;;21,"00591569500 ")
+482 ;;7727
+483 ;;21,"00591569550 ")
+484 ;;7728
+485 ;;21,"00591570801 ")
+486 ;;7729
+487 ;;21,"00603168454 ")
+488 ;;7730
+489 ;;21,"00603168458 ")
+490 ;;7731
+491 ;;21,"00603168554 ")
+492 ;;7732
+493 ;;21,"00603168558 ")
+494 ;;7733
+495 ;;21,"00603226621 ")
+496 ;;7734
+497 ;;21,"00603226628 ")
+498 ;;7735
+499 ;;21,"00603226719 ")
+500 ;;7736
+501 ;;21,"00603226728 ")
+502 ;;7737
+503 ;;21,"00603258621 ")
+504 ;;7738
+505 ;;21,"00603258721 ")
+506 ;;7739
+507 ;;21,"00603259521 ")
+508 ;;7740
+509 ;;21,"00603259528 ")
+510 ;;7741
+511 ;;21,"00603259621 ")
+512 ;;7742
+513 ;;21,"00603259628 ")
+514 ;;7743
+515 ;;21,"00603348019 ")
+516 ;;7744
+517 ;;21,"00603348119 ")
+518 ;;7745
+519 ;;21,"00603348128 ")
+520 ;;7746
+521 ;;21,"00603348219 ")
+522 ;;7747
+523 ;;21,"00603348228 ")
+524 ;;7748
+525 ;;21,"00603577821 ")
+526 ;;7749
+527 ;;21,"00603577921 ")
+528 ;;7750
+529 ;;21,"00603577928 ")
+530 ;;7751
+531 ;;21,"00603578010 ")
+532 ;;7752
+533 ;;21,"00603578021 ")
+534 ;;7753
+535 ;;21,"00603578028 ")
+536 ;;7754
+537 ;;21,"00603578032 ")
+538 ;;7755
+539 ;;21,"00603578110 ")
+540 ;;7756
+541 ;;21,"00603578121 ")
+542 ;;7757
+543 ;;21,"00603578128 ")
+544 ;;7758
+545 ;;21,"00603591921 ")
+546 ;;7759
+547 ;;21,"00603591932 ")
+548 ;;7760
+549 ;;21,"00603592021 ")
+550 ;;7761
+551 ;;21,"00603592032 ")
+552 ;;7762
+553 ;;21,"00603650064 ")
+554 ;;7763
+555 ;;21,"00603650066 ")
+556 ;;7764
+557 ;;21,"00603650084 ")
+558 ;;7765
+559 ;;21,"00603650164 ")
+560 ;;7766
+561 ;;21,"00603650166 ")
+562 ;;7767
+563 ;;21,"00603654164 ")
+564 ;;7768
+565 ;;21,"00603654168 ")
+566 ;;7769
+567 ;;21,"00603654264 ")
+568 ;;7770
+569 ;;21,"00603654268 ")
+570 ;;7771
+571 ;;21,"00603853747 ")
+572 ;;7772
+573 ;;21,"00615017031 ")
+574 ;;7773
+575 ;;21,"00615017039 ")
+576 ;;7774
+577 ;;21,"00641276441 ")
+578 ;;7775
+579 ;;21,"00641276443 ")
+580 ;;7776
+581 ;;21,"00641276541 ")
+582 ;;7777
+583 ;;21,"00641276543 ")
+584 ;;7778
+585 ;;21,"00641276641 ")
+586 ;;7779
+587 ;;21,"00641590001 ")
+588 ;;7780
+589 ;;21,"00641590101 ")
+590 ;;7781
+591 ;;21,"00641590102 ")
+592 ;;7782
+593 ;;21,"00641590201 ")
+594 ;;7783
+595 ;;21,"00641590202 ")
+596 ;;7784
+597 ;;21,"00677143501 ")
+598 ;;7785
+599 ;;21,"00682911301 ")
+600 ;;7786
+601 ;;21,"00686314509 ")
+602 ;;7787
+603 ;;21,"00703031501 ")
+604 ;;7788
+605 ;;21,"00703031503 ")
+606 ;;7789
+607 ;;21,"00703032501 ")
+608 ;;7790
+609 ;;21,"00703032503 ")
+610 ;;7791
+611 ;;21,"00703033501 ")
+612 ;;7792
+613 ;;21,"00703033503 ")
+614 ;;7793
+615 ;;21,"00703033504 ")
+616 ;;7794
+617 ;;21,"00703034601 ")
+618 ;;7795
+619 ;;21,"00703034603 ")
+620 ;;7796
+621 ;;21,"00703035901 ")
+622 ;;7797
+623 ;;21,"00703096031 ")
+624 ;;7798
+625 ;;21,"00703096036 ")
+626 ;;7799
+627 ;;21,"00703096931 ")
+628 ;;7800
+629 ;;21,"00703096936 ")
+630 ;;7801
+631 ;;21,"00703908501 ")
+632 ;;7802
+633 ;;21,"00703908503 ")
+634 ;;7803
+635 ;;21,"00703908901 ")
+636 ;;7804
+637 ;;21,"00703910204 ")
+638 ;;7805
+639 ;;21,"00703911004 ")
+640 ;;7806
+641 ;;21,"00703912004 ")
+642 ;;7807
+643 ;;21,"00703913801 ")
+644 ;;7808
+645 ;;21,"00703950301 ")
+646 ;;7809
+647 ;;21,"00703950303 ")
+648 ;;7810
+649 ;;21,"00703951401 ")
+650 ;;7811
+651 ;;21,"00703951403 ")
+652 ;;7812
+653 ;;21,"00703952601 ")
+654 ;;7813
+655 ;;21,"00781120501 ")
+656 ;;7814
+657 ;;21,"00781120510 ")
+658 ;;7815
+659 ;;21,"00781149601 ")
+660 ;;7816
+661 ;;21,"00781149631 ")
+662 ;;7817
+663 ;;21,"00781149669 ")
+664 ;;7818
+665 ;;21,"00781161966 ")
+666 ;;7819
+667 ;;21,"00781164366 ")
+668 ;;7820
+669 ;;21,"00781165501 ")
+670 ;;7821
+671 ;;21,"00781165510 ")
+672 ;;7822
+673 ;;21,"00781183113 ")
+674 ;;7823
+675 ;;21,"00781183120 ")
+676 ;;7824
+677 ;;21,"00781185213 ")
+678 ;;7825
+679 ;;21,"00781185220 ")
+680 ;;7826
+681 ;;21,"00781187431 ")
+682 ;;7827
+683 ;;21,"00781194339 ")
+684 ;;7828
+685 ;;21,"00781194382 ")
+686 ;;7829
+687 ;;21,"00781196101 ")
+688 ;;7830
+689 ;;21,"00781196110 ")
+690 ;;7831
+691 ;;21,"00781196131 ")
+692 ;;7832
+693 ;;21,"00781196160 ")
+694 ;;7833
+695 ;;21,"00781196201 ")
+696 ;;7834
+697 ;;21,"00781196205 ")
+698 ;;7835
+699 ;;21,"00781196231 ")
+700 ;;7836
+701 ;;21,"00781196260 ")
+702 ;;7837
+703 ;;21,"00781202001 ")
+704 ;;7838