BGPM5ATY ;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,"60429002305 ")
+2 ;;3621
+3 ;;21,"60429002401 ")
+4 ;;3622
+5 ;;21,"60429002405 ")
+6 ;;3623
+7 ;;21,"60429003640 ")
+8 ;;3624
+9 ;;21,"60429003740 ")
+10 ;;3625
+11 ;;21,"60429005940 ")
+12 ;;3626
+13 ;;21,"60429006920 ")
+14 ;;3627
+15 ;;21,"60429006992 ")
+16 ;;3628
+17 ;;21,"60429014701 ")
+18 ;;3629
+19 ;;21,"60429014710 ")
+20 ;;3630
+21 ;;21,"60429014730 ")
+22 ;;3631
+23 ;;21,"60429014740 ")
+24 ;;3632
+25 ;;21,"60429014801 ")
+26 ;;3633
+27 ;;21,"60429014805 ")
+28 ;;3634
+29 ;;21,"60429014830 ")
+30 ;;3635
+31 ;;21,"60429014840 ")
+32 ;;3636
+33 ;;21,"60429017014 ")
+34 ;;3637
+35 ;;21,"60429017020 ")
+36 ;;3638
+37 ;;21,"60429020840 ")
+38 ;;3639
+39 ;;21,"60429020940 ")
+40 ;;3640
+41 ;;21,"60429074201 ")
+42 ;;3641
+43 ;;21,"60429074301 ")
+44 ;;3642
+45 ;;21,"60429074305 ")
+46 ;;3643
+47 ;;21,"60429074320 ")
+48 ;;3644
+49 ;;21,"60429074401 ")
+50 ;;3645
+51 ;;21,"60432006500 ")
+52 ;;3646
+53 ;;21,"60432006547 ")
+54 ;;3647
+55 ;;21,"60432006575 ")
+56 ;;3648
+57 ;;21,"60432069330 ")
+58 ;;3649
+59 ;;21,"60432069360 ")
+60 ;;3650
+61 ;;21,"60505067905 ")
+62 ;;3651
+63 ;;21,"60505067908 ")
+64 ;;3652
+65 ;;21,"60505067909 ")
+66 ;;3653
+67 ;;21,"60505068002 ")
+68 ;;3654
+69 ;;21,"60505068005 ")
+70 ;;3655
+71 ;;21,"60505074804 ")
+72 ;;3656
+73 ;;21,"60505074805 ")
+74 ;;3657
+75 ;;21,"60505074904 ")
+76 ;;3658
+77 ;;21,"60505074905 ")
+78 ;;3659
+79 ;;21,"60505075000 ")
+80 ;;3660
+81 ;;21,"60505075004 ")
+82 ;;3661
+83 ;;21,"60505075100 ")
+84 ;;3662
+85 ;;21,"60505075104 ")
+86 ;;3663
+87 ;;21,"60505075200 ")
+88 ;;3664
+89 ;;21,"60505075204 ")
+90 ;;3665
+91 ;;21,"60505075300 ")
+92 ;;3666
+93 ;;21,"60505075304 ")
+94 ;;3667
+95 ;;21,"60505076900 ")
+96 ;;3668
+97 ;;21,"60505120100 ")
+98 ;;3669
+99 ;;21,"60505120103 ")
+100 ;;3670
+101 ;;21,"60505120200 ")
+102 ;;3671
+103 ;;21,"60505120203 ")
+104 ;;3672
+105 ;;21,"60505130801 ")
+106 ;;3673
+107 ;;21,"60505130802 ")
+108 ;;3674
+109 ;;21,"60505130808 ")
+110 ;;3675
+111 ;;21,"60505130901 ")
+112 ;;3676
+113 ;;21,"60505130902 ")
+114 ;;3677
+115 ;;21,"60505130907 ")
+116 ;;3678
+117 ;;21,"60505130908 ")
+118 ;;3679
+119 ;;21,"60505131001 ")
+120 ;;3680
+121 ;;21,"60505131002 ")
+122 ;;3681
+123 ;;21,"60505131004 ")
+124 ;;3682
+125 ;;21,"60505131005 ")
+126 ;;3683
+127 ;;21,"60505253201 ")
+128 ;;3684
+129 ;;21,"60505253203 ")
+130 ;;3685
+131 ;;21,"60505253205 ")
+132 ;;3686
+133 ;;21,"60505253208 ")
+134 ;;3687
+135 ;;21,"60505253301 ")
+136 ;;3688
+137 ;;21,"60505253303 ")
+138 ;;3689
+139 ;;21,"60505253305 ")
+140 ;;3690
+141 ;;21,"60505253308 ")
+142 ;;3691
+143 ;;21,"60505253902 ")
+144 ;;3692
+145 ;;21,"60505253903 ")
+146 ;;3693
+147 ;;21,"60505253905 ")
+148 ;;3694
+149 ;;21,"60505254002 ")
+150 ;;3695
+151 ;;21,"60505254003 ")
+152 ;;3696
+153 ;;21,"60505254005 ")
+154 ;;3697
+155 ;;21,"60505254102 ")
+156 ;;3698
+157 ;;21,"60505254103 ")
+158 ;;3699
+159 ;;21,"60505254105 ")
+160 ;;3700
+161 ;;21,"60505257302 ")
+162 ;;3701
+163 ;;21,"60505257305 ")
+164 ;;3702
+165 ;;21,"60505257307 ")
+166 ;;3703
+167 ;;21,"60505257402 ")
+168 ;;3704
+169 ;;21,"60505257405 ")
+170 ;;3705
+171 ;;21,"60505257407 ")
+172 ;;3706
+173 ;;21,"60505258100 ")
+174 ;;3707
+175 ;;21,"60505258102 ")
+176 ;;3708
+177 ;;21,"60505258103 ")
+178 ;;3709
+179 ;;21,"60505258105 ")
+180 ;;3710
+181 ;;21,"60505261500 ")
+182 ;;3711
+183 ;;21,"60505261501 ")
+184 ;;3712
+185 ;;21,"60505261503 ")
+186 ;;3713
+187 ;;21,"60505261505 ")
+188 ;;3714
+189 ;;21,"60505261506 ")
+190 ;;3715
+191 ;;21,"60505261600 ")
+192 ;;3716
+193 ;;21,"60505261601 ")
+194 ;;3717
+195 ;;21,"60505261603 ")
+196 ;;3718
+197 ;;21,"60505261606 ")
+198 ;;3719
+199 ;;21,"60505261608 ")
+200 ;;3720
+201 ;;21,"60505261802 ")
+202 ;;3721
+203 ;;21,"60505261806 ")
+204 ;;3722
+205 ;;21,"60505268102 ")
+206 ;;3723
+207 ;;21,"60505268106 ")
+208 ;;3724
+209 ;;21,"60505268201 ")
+210 ;;3725
+211 ;;21,"60505268202 ")
+212 ;;3726
+213 ;;21,"60505268206 ")
+214 ;;3727
+215 ;;21,"60505607604 ")
+216 ;;3728
+217 ;;21,"60505608701 ")
+218 ;;3729
+219 ;;21,"60505608801 ")
+220 ;;3730
+221 ;;21,"60758090810 ")
+222 ;;3731
+223 ;;21,"60760000820 ")
+224 ;;3732
+225 ;;21,"60760000821 ")
+226 ;;3733
+227 ;;21,"60760000828 ")
+228 ;;3734
+229 ;;21,"60760000830 ")
+230 ;;3735
+231 ;;21,"60760000840 ")
+232 ;;3736
+233 ;;21,"60760006920 ")
+234 ;;3737
+235 ;;21,"60760010709 ")
+236 ;;3738
+237 ;;21,"60760010728 ")
+238 ;;3739
+239 ;;21,"60760010740 ")
+240 ;;3740
+241 ;;21,"60760011408 ")
+242 ;;3741
+243 ;;21,"60760011415 ")
+244 ;;3742
+245 ;;21,"60760011420 ")
+246 ;;3743
+247 ;;21,"60760011421 ")
+248 ;;3744
+249 ;;21,"60760011428 ")
+250 ;;3745
+251 ;;21,"60760011430 ")
+252 ;;3746
+253 ;;21,"60760011440 ")
+254 ;;3747
+255 ;;21,"60760017420 ")
+256 ;;3748
+257 ;;21,"60760017421 ")
+258 ;;3749
+259 ;;21,"60760017424 ")
+260 ;;3750
+261 ;;21,"60760017428 ")
+262 ;;3751
+263 ;;21,"60760017430 ")
+264 ;;3752
+265 ;;21,"60760017440 ")
+266 ;;3753
+267 ;;21,"60760026120 ")
+268 ;;3754
+269 ;;21,"60760026821 ")
+270 ;;3755
+271 ;;21,"60760026828 ")
+272 ;;3756
+273 ;;21,"60760026830 ")
+274 ;;3757
+275 ;;21,"60760033704 ")
+276 ;;3758
+277 ;;21,"60760033708 ")
+278 ;;3759
+279 ;;21,"60760033716 ")
+280 ;;3760
+281 ;;21,"60760033721 ")
+282 ;;3761
+283 ;;21,"60760033728 ")
+284 ;;3762
+285 ;;21,"60760033760 ")
+286 ;;3763
+287 ;;21,"60760033790 ")
+288 ;;3764
+289 ;;21,"60760056214 ")
+290 ;;3765
+291 ;;21,"60760056220 ")
+292 ;;3766
+293 ;;21,"60760069305 ")
+294 ;;3767
+295 ;;21,"60760069315 ")
+296 ;;3768
+297 ;;21,"60760069328 ")
+298 ;;3769
+299 ;;21,"60760069330 ")
+300 ;;3770
+301 ;;21,"60760069340 ")
+302 ;;3771
+303 ;;21,"60760071608 ")
+304 ;;3772
+305 ;;21,"60760071616 ")
+306 ;;3773
+307 ;;21,"60760071618 ")
+308 ;;3774
+309 ;;21,"60760071621 ")
+310 ;;3775
+311 ;;21,"60760071624 ")
+312 ;;3776
+313 ;;21,"60760071628 ")
+314 ;;3777
+315 ;;21,"60760071630 ")
+316 ;;3778
+317 ;;21,"60760071640 ")
+318 ;;3779
+319 ;;21,"60760072421 ")
+320 ;;3780
+321 ;;21,"60760072428 ")
+322 ;;3781
+323 ;;21,"60760072430 ")
+324 ;;3782
+325 ;;21,"60760081510 ")
+326 ;;3783
+327 ;;21,"60760081514 ")
+328 ;;3784
+329 ;;21,"60760081520 ")
+330 ;;3785
+331 ;;21,"60793013010 ")
+332 ;;3786
+333 ;;21,"60793013110 ")
+334 ;;3787
+335 ;;21,"61073004105 ")
+336 ;;3788
+337 ;;21,"61073004205 ")
+338 ;;3789
+339 ;;21,"61106473003 ")
+340 ;;3790
+341 ;;21,"61106473203 ")
+342 ;;3791
+343 ;;21,"61258833801 ")
+344 ;;3792
+345 ;;21,"61314062810 ")
+346 ;;3793
+347 ;;21,"61392051225 ")
+348 ;;3794
+349 ;;21,"61392051230 ")
+350 ;;3795
+351 ;;21,"61392051231 ")
+352 ;;3796
+353 ;;21,"61392051239 ")
+354 ;;3797
+355 ;;21,"61392071432 ")
+356 ;;3798
+357 ;;21,"61392071445 ")
+358 ;;3799
+359 ;;21,"61392071454 ")
+360 ;;3800
+361 ;;21,"61392071491 ")
+362 ;;3801
+363 ;;21,"61392073130 ")
+364 ;;3802
+365 ;;21,"61392073131 ")
+366 ;;3803
+367 ;;21,"61392073132 ")
+368 ;;3804
+369 ;;21,"61392073139 ")
+370 ;;3805
+371 ;;21,"61392073145 ")
+372 ;;3806
+373 ;;21,"61392073151 ")
+374 ;;3807
+375 ;;21,"61392073154 ")
+376 ;;3808
+377 ;;21,"61392073160 ")
+378 ;;3809
+379 ;;21,"61392073190 ")
+380 ;;3810
+381 ;;21,"61392073191 ")
+382 ;;3811
+383 ;;21,"61392073230 ")
+384 ;;3812
+385 ;;21,"61392073231 ")
+386 ;;3813
+387 ;;21,"61392073232 ")
+388 ;;3814
+389 ;;21,"61392073239 ")
+390 ;;3815
+391 ;;21,"61392073245 ")
+392 ;;3816
+393 ;;21,"61392073251 ")
+394 ;;3817
+395 ;;21,"61392073254 ")
+396 ;;3818
+397 ;;21,"61392073260 ")
+398 ;;3819
+399 ;;21,"61392073290 ")
+400 ;;3820
+401 ;;21,"61392073291 ")
+402 ;;3821
+403 ;;21,"61392077425 ")
+404 ;;3822
+405 ;;21,"61392077430 ")
+406 ;;3823
+407 ;;21,"61392077431 ")
+408 ;;3824
+409 ;;21,"61392077439 ")
+410 ;;3825
+411 ;;21,"61392078230 ")
+412 ;;3826
+413 ;;21,"61392078231 ")
+414 ;;3827
+415 ;;21,"61392078232 ")
+416 ;;3828
+417 ;;21,"61392078239 ")
+418 ;;3829
+419 ;;21,"61392078245 ")
+420 ;;3830
+421 ;;21,"61392078251 ")
+422 ;;3831
+423 ;;21,"61392078254 ")
+424 ;;3832
+425 ;;21,"61392078260 ")
+426 ;;3833
+427 ;;21,"61392078290 ")
+428 ;;3834
+429 ;;21,"61392078291 ")
+430 ;;3835
+431 ;;21,"61392078330 ")
+432 ;;3836
+433 ;;21,"61392078331 ")
+434 ;;3837
+435 ;;21,"61392078332 ")
+436 ;;3838
+437 ;;21,"61392078339 ")
+438 ;;3839
+439 ;;21,"61392078345 ")
+440 ;;3840
+441 ;;21,"61392078351 ")
+442 ;;3841
+443 ;;21,"61392078354 ")
+444 ;;3842
+445 ;;21,"61392078360 ")
+446 ;;3843
+447 ;;21,"61392078390 ")
+448 ;;3844
+449 ;;21,"61392078391 ")
+450 ;;3845
+451 ;;21,"61392079325 ")
+452 ;;3846
+453 ;;21,"61392079330 ")
+454 ;;3847
+455 ;;21,"61392079331 ")
+456 ;;3848
+457 ;;21,"61392079339 ")
+458 ;;3849
+459 ;;21,"61392094725 ")
+460 ;;3850
+461 ;;21,"61392094730 ")
+462 ;;3851
+463 ;;21,"61392094731 ")
+464 ;;3852
+465 ;;21,"61392094739 ")
+466 ;;3853
+467 ;;21,"61392099131 ")
+468 ;;3854
+469 ;;21,"61392099139 ")
+470 ;;3855
+471 ;;21,"61442016101 ")
+472 ;;3856
+473 ;;21,"61442016105 ")
+474 ;;3857
+475 ;;21,"61442016201 ")
+476 ;;3858
+477 ;;21,"61442016205 ")
+478 ;;3859
+479 ;;21,"61442017101 ")
+480 ;;3860
+481 ;;21,"61442017105 ")
+482 ;;3861
+483 ;;21,"61442017130 ")
+484 ;;3862
+485 ;;21,"61442017201 ")
+486 ;;3863
+487 ;;21,"61442017205 ")
+488 ;;3864
+489 ;;21,"61442017230 ")
+490 ;;3865
+491 ;;21,"61442020101 ")
+492 ;;3866
+493 ;;21,"61442020102 ")
+494 ;;3867
+495 ;;21,"61442020201 ")
+496 ;;3868
+497 ;;21,"61442020202 ")
+498 ;;3869
+499 ;;21,"61442022201 ")
+500 ;;3870
+501 ;;21,"61442022210 ")
+502 ;;3871
+503 ;;21,"61442022301 ")
+504 ;;3872
+505 ;;21,"61442022305 ")
+506 ;;3873
+507 ;;21,"61442022401 ")
+508 ;;3874
+509 ;;21,"61442022404 ")
+510 ;;3875
+511 ;;21,"61442022450 ")
+512 ;;3876
+513 ;;21,"61553001272 ")
+514 ;;3877
+515 ;;21,"61553001473 ")
+516 ;;3878
+517 ;;21,"61553021148 ")
+518 ;;3879
+519 ;;21,"61570008510 ")
+520 ;;3880
+521 ;;21,"61570008610 ")
+522 ;;3881
+523 ;;21,"61607049401 ")
+524 ;;3882
+525 ;;21,"61714021601 ")
+526 ;;3883
+527 ;;21,"61714021602 ")
+528 ;;3884
+529 ;;21,"61714021603 ")
+530 ;;3885
+531 ;;21,"61748011114 ")
+532 ;;3886
+533 ;;21,"61748020160 ")
+534 ;;3887
+535 ;;21,"61807000228 ")
+536 ;;3888
+537 ;;21,"61807000230 ")
+538 ;;3889
+539 ;;21,"61807000328 ")
+540 ;;3890
+541 ;;21,"61807000428 ")
+542 ;;3891
+543 ;;21,"61807000430 ")
+544 ;;3892
+545 ;;21,"61807000440 ")
+546 ;;3893
+547 ;;21,"61807000520 ")
+548 ;;3894
+549 ;;21,"61807000528 ")
+550 ;;3895
+551 ;;21,"61807000620 ")
+552 ;;3896
+553 ;;21,"61807000621 ")
+554 ;;3897
+555 ;;21,"61807000628 ")
+556 ;;3898
+557 ;;21,"61807000630 ")
+558 ;;3899
+559 ;;21,"61807000640 ")
+560 ;;3900
+561 ;;21,"61807001328 ")
+562 ;;3901
+563 ;;21,"61807001528 ")
+564 ;;3902
+565 ;;21,"61807003828 ")
+566 ;;3903
+567 ;;21,"61807004828 ")
+568 ;;3904
+569 ;;21,"61808010005 ")
+570 ;;3905
+571 ;;21,"61808010050 ")
+572 ;;3906
+573 ;;21,"61808015050 ")
+574 ;;3907
+575 ;;21,"61808021005 ")
+576 ;;3908
+577 ;;21,"61808021050 ")
+578 ;;3909
+579 ;;21,"61808320005 ")
+580 ;;3910
+581 ;;21,"61947648003 ")
+582 ;;3911
+583 ;;21,"61970011500 ")
+584 ;;3912
+585 ;;21,"61970011501 ")
+586 ;;3913
+587 ;;21,"61970011505 ")
+588 ;;3914
+589 ;;21,"61970012000 ")
+590 ;;3915
+591 ;;21,"61970012001 ")
+592 ;;3916
+593 ;;21,"61970012005 ")
+594 ;;3917
+595 ;;21,"61971011501 ")
+596 ;;3918
+597 ;;21,"61971011505 ")
+598 ;;3919
+599 ;;21,"61971012001 ")
+600 ;;3920
+601 ;;21,"61971012005 ")
+602 ;;3921
+603 ;;21,"62037077705 ")
+604 ;;3922
+605 ;;21,"62037077710 ")
+606 ;;3923
+607 ;;21,"62037077714 ")
+608 ;;3924
+609 ;;21,"62037077760 ")
+610 ;;3925
+611 ;;21,"62125021515 ")
+612 ;;3926
+613 ;;21,"62125031709 ")
+614 ;;3927
+615 ;;21,"62125031809 ")
+616 ;;3928
+617 ;;21,"62125031813 ")
+618 ;;3929
+619 ;;21,"62125031909 ")
+620 ;;3930
+621 ;;21,"62125032009 ")
+622 ;;3931
+623 ;;21,"62125032013 ")
+624 ;;3932
+625 ;;21,"62125041515 ")
+626 ;;3933
+627 ;;21,"62138008401 ")
+628 ;;3934
+629 ;;21,"62138011401 ")
+630 ;;3935
+631 ;;21,"62138060101 ")
+632 ;;3936
+633 ;;21,"62138103301 ")
+634 ;;3937
+635 ;;21,"62138600501 ")
+636 ;;3938
+637 ;;21,"62138738301 ")
+638 ;;3939
+639 ;;21,"62147500601 ")
+640 ;;3940
+641 ;;21,"62147500602 ")
+642 ;;3941
+643 ;;21,"62147500701 ")
+644 ;;3942
+645 ;;21,"62147500702 ")
+646 ;;3943
+647 ;;21,"62147500801 ")
+648 ;;3944
+649 ;;21,"62147500802 ")
+650 ;;3945
+651 ;;21,"62147500901 ")
+652 ;;3946
+653 ;;21,"62147500902 ")
+654 ;;3947
+655 ;;21,"62147501001 ")
+656 ;;3948
+657 ;;21,"62147501002 ")
+658 ;;3949
+659 ;;21,"62147501101 ")
+660 ;;3950
+661 ;;21,"62147501102 ")
+662 ;;3951
+663 ;;21,"62147501103 ")
+664 ;;3952
+665 ;;21,"62250080102 ")
+666 ;;3953
+667 ;;21,"62250080108 ")
+668 ;;3954
+669 ;;21,"62250080202 ")
+670 ;;3955
+671 ;;21,"62250080208 ")
+672 ;;3956
+673 ;;21,"62540544500 ")
+674 ;;3957
+675 ;;21,"62540544501 ")
+676 ;;3958
+677 ;;21,"62540544502 ")
+678 ;;3959
+679 ;;21,"62540544503 ")
+680 ;;3960
+681 ;;21,"62540544508 ")
+682 ;;3961
+683 ;;21,"62540544600 ")
+684 ;;3962
+685 ;;21,"62540544601 ")
+686 ;;3963
+687 ;;21,"62540544602 ")
+688 ;;3964
+689 ;;21,"62540544603 ")
+690 ;;3965
+691 ;;21,"62540544608 ")
+692 ;;3966
+693 ;;21,"62584023501 ")
+694 ;;3967
+695 ;;21,"62584023601 ")
+696 ;;3968
+697 ;;21,"62584023701 ")
+698 ;;3969
+699 ;;21,"62584023801 ")
+700 ;;3970
+701 ;;21,"62584033801 ")
+702 ;;3971
+703 ;;21,"62584039950 ")
+704 ;;3972