BGPM5AQE ;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,"63629152204 ")
+2 ;;3819
+3 ;;21,"63629152205 ")
+4 ;;3820
+5 ;;21,"63629152501 ")
+6 ;;3821
+7 ;;21,"63629152502 ")
+8 ;;3822
+9 ;;21,"63629152503 ")
+10 ;;3823
+11 ;;21,"63629152601 ")
+12 ;;3824
+13 ;;21,"63629152602 ")
+14 ;;3825
+15 ;;21,"63629152603 ")
+16 ;;3826
+17 ;;21,"63629152604 ")
+18 ;;3827
+19 ;;21,"63629167901 ")
+20 ;;3828
+21 ;;21,"63629167902 ")
+22 ;;3829
+23 ;;21,"63629167903 ")
+24 ;;3830
+25 ;;21,"63629167904 ")
+26 ;;3831
+27 ;;21,"63629170601 ")
+28 ;;3832
+29 ;;21,"63629170602 ")
+30 ;;3833
+31 ;;21,"63629170603 ")
+32 ;;3834
+33 ;;21,"63629176101 ")
+34 ;;3835
+35 ;;21,"63629176102 ")
+36 ;;3836
+37 ;;21,"63629176103 ")
+38 ;;3837
+39 ;;21,"63629254101 ")
+40 ;;3838
+41 ;;21,"63629254102 ")
+42 ;;3839
+43 ;;21,"63629254103 ")
+44 ;;3840
+45 ;;21,"63629254104 ")
+46 ;;3841
+47 ;;21,"63629268801 ")
+48 ;;3842
+49 ;;21,"63629268802 ")
+50 ;;3843
+51 ;;21,"63629268803 ")
+52 ;;3844
+53 ;;21,"63629268804 ")
+54 ;;3845
+55 ;;21,"63629268805 ")
+56 ;;3846
+57 ;;21,"63629289601 ")
+58 ;;3847
+59 ;;21,"63629290801 ")
+60 ;;3848
+61 ;;21,"63629290802 ")
+62 ;;3849
+63 ;;21,"63629290803 ")
+64 ;;3850
+65 ;;21,"63629290804 ")
+66 ;;3851
+67 ;;21,"63629293501 ")
+68 ;;3852
+69 ;;21,"63629293502 ")
+70 ;;3853
+71 ;;21,"63629293503 ")
+72 ;;3854
+73 ;;21,"63629293504 ")
+74 ;;3855
+75 ;;21,"63629321701 ")
+76 ;;3856
+77 ;;21,"63629337101 ")
+78 ;;3857
+79 ;;21,"63629337102 ")
+80 ;;3858
+81 ;;21,"63629337103 ")
+82 ;;3859
+83 ;;21,"63629337104 ")
+84 ;;3860
+85 ;;21,"63629337301 ")
+86 ;;3861
+87 ;;21,"63629337302 ")
+88 ;;3862
+89 ;;21,"63629337303 ")
+90 ;;3863
+91 ;;21,"63629337304 ")
+92 ;;3864
+93 ;;21,"63629337401 ")
+94 ;;3865
+95 ;;21,"63629337402 ")
+96 ;;3866
+97 ;;21,"63629337403 ")
+98 ;;3867
+99 ;;21,"63629337404 ")
+100 ;;3868
+101 ;;21,"63629337601 ")
+102 ;;3869
+103 ;;21,"63629337602 ")
+104 ;;3870
+105 ;;21,"63629337603 ")
+106 ;;3871
+107 ;;21,"63629337604 ")
+108 ;;3872
+109 ;;21,"63629337701 ")
+110 ;;3873
+111 ;;21,"63629337702 ")
+112 ;;3874
+113 ;;21,"63629337703 ")
+114 ;;3875
+115 ;;21,"63629337704 ")
+116 ;;3876
+117 ;;21,"63629339001 ")
+118 ;;3877
+119 ;;21,"63629339002 ")
+120 ;;3878
+121 ;;21,"63629339003 ")
+122 ;;3879
+123 ;;21,"63629339004 ")
+124 ;;3880
+125 ;;21,"63629373901 ")
+126 ;;3881
+127 ;;21,"63629373902 ")
+128 ;;3882
+129 ;;21,"63629373903 ")
+130 ;;3883
+131 ;;21,"63629436701 ")
+132 ;;3884
+133 ;;21,"63629436702 ")
+134 ;;3885
+135 ;;21,"63629436703 ")
+136 ;;3886
+137 ;;21,"63629447001 ")
+138 ;;3887
+139 ;;21,"63629447002 ")
+140 ;;3888
+141 ;;21,"63739004201 ")
+142 ;;3889
+143 ;;21,"63739004301 ")
+144 ;;3890
+145 ;;21,"63739030210 ")
+146 ;;3891
+147 ;;21,"63739032205 ")
+148 ;;3892
+149 ;;21,"63739034810 ")
+150 ;;3893
+151 ;;21,"63739034910 ")
+152 ;;3894
+153 ;;21,"63739035010 ")
+154 ;;3895
+155 ;;21,"63874005810 ")
+156 ;;3896
+157 ;;21,"63874005815 ")
+158 ;;3897
+159 ;;21,"63874005830 ")
+160 ;;3898
+161 ;;21,"63874005890 ")
+162 ;;3899
+163 ;;21,"63874034701 ")
+164 ;;3900
+165 ;;21,"63874034702 ")
+166 ;;3901
+167 ;;21,"63874034705 ")
+168 ;;3902
+169 ;;21,"63874034720 ")
+170 ;;3903
+171 ;;21,"63874034730 ")
+172 ;;3904
+173 ;;21,"63874034740 ")
+174 ;;3905
+175 ;;21,"63874034742 ")
+176 ;;3906
+177 ;;21,"63874034745 ")
+178 ;;3907
+179 ;;21,"63874034790 ")
+180 ;;3908
+181 ;;21,"63874034801 ")
+182 ;;3909
+183 ;;21,"63874034810 ")
+184 ;;3910
+185 ;;21,"63874034814 ")
+186 ;;3911
+187 ;;21,"63874034820 ")
+188 ;;3912
+189 ;;21,"63874034830 ")
+190 ;;3913
+191 ;;21,"63874034860 ")
+192 ;;3914
+193 ;;21,"63874034890 ")
+194 ;;3915
+195 ;;21,"63874037910 ")
+196 ;;3916
+197 ;;21,"63874037930 ")
+198 ;;3917
+199 ;;21,"63874042301 ")
+200 ;;3918
+201 ;;21,"63874042307 ")
+202 ;;3919
+203 ;;21,"63874042310 ")
+204 ;;3920
+205 ;;21,"63874042314 ")
+206 ;;3921
+207 ;;21,"63874042320 ")
+208 ;;3922
+209 ;;21,"63874042330 ")
+210 ;;3923
+211 ;;21,"63874042360 ")
+212 ;;3924
+213 ;;21,"63874051401 ")
+214 ;;3925
+215 ;;21,"63874051410 ")
+216 ;;3926
+217 ;;21,"63874051414 ")
+218 ;;3927
+219 ;;21,"63874051415 ")
+220 ;;3928
+221 ;;21,"63874051416 ")
+222 ;;3929
+223 ;;21,"63874051420 ")
+224 ;;3930
+225 ;;21,"63874051428 ")
+226 ;;3931
+227 ;;21,"63874051430 ")
+228 ;;3932
+229 ;;21,"63874051460 ")
+230 ;;3933
+231 ;;21,"63874051490 ")
+232 ;;3934
+233 ;;21,"63874052201 ")
+234 ;;3935
+235 ;;21,"63874052215 ")
+236 ;;3936
+237 ;;21,"63874052230 ")
+238 ;;3937
+239 ;;21,"63874052260 ")
+240 ;;3938
+241 ;;21,"63874055801 ")
+242 ;;3939
+243 ;;21,"63874055810 ")
+244 ;;3940
+245 ;;21,"63874055814 ")
+246 ;;3941
+247 ;;21,"63874055816 ")
+248 ;;3942
+249 ;;21,"63874055828 ")
+250 ;;3943
+251 ;;21,"63874055830 ")
+252 ;;3944
+253 ;;21,"63874055860 ")
+254 ;;3945
+255 ;;21,"63874055890 ")
+256 ;;3946
+257 ;;21,"63874058110 ")
+258 ;;3947
+259 ;;21,"63874058130 ")
+260 ;;3948
+261 ;;21,"63874058190 ")
+262 ;;3949
+263 ;;21,"63874064710 ")
+264 ;;3950
+265 ;;21,"63874064714 ")
+266 ;;3951
+267 ;;21,"63874064730 ")
+268 ;;3952
+269 ;;21,"63874065501 ")
+270 ;;3953
+271 ;;21,"63874065510 ")
+272 ;;3954
+273 ;;21,"63874065520 ")
+274 ;;3955
+275 ;;21,"63874065530 ")
+276 ;;3956
+277 ;;21,"63874065560 ")
+278 ;;3957
+279 ;;21,"63874098701 ")
+280 ;;3958
+281 ;;21,"63874098710 ")
+282 ;;3959
+283 ;;21,"63874098714 ")
+284 ;;3960
+285 ;;21,"63874098720 ")
+286 ;;3961
+287 ;;21,"63874098730 ")
+288 ;;3962
+289 ;;21,"63874098760 ")
+290 ;;3963
+291 ;;21,"63874111409 ")
+292 ;;3964
+293 ;;21,"64455013001 ")
+294 ;;3965
+295 ;;21,"64455013101 ")
+296 ;;3966
+297 ;;21,"64455013107 ")
+298 ;;3967
+299 ;;21,"64455013201 ")
+300 ;;3968
+301 ;;21,"64455013207 ")
+302 ;;3969
+303 ;;21,"64455014010 ")
+304 ;;3970
+305 ;;21,"64455014011 ")
+306 ;;3971
+307 ;;21,"64455014030 ")
+308 ;;3972
+309 ;;21,"64455014090 ")
+310 ;;3973
+311 ;;21,"64455014110 ")
+312 ;;3974
+313 ;;21,"64455014111 ")
+314 ;;3975
+315 ;;21,"64455014130 ")
+316 ;;3976
+317 ;;21,"64455014190 ")
+318 ;;3977
+319 ;;21,"64455014210 ")
+320 ;;3978
+321 ;;21,"64455014211 ")
+322 ;;3979
+323 ;;21,"64455014230 ")
+324 ;;3980
+325 ;;21,"64455014290 ")
+326 ;;3981
+327 ;;21,"64455014310 ")
+328 ;;3982
+329 ;;21,"64455014311 ")
+330 ;;3983
+331 ;;21,"64455014330 ")
+332 ;;3984
+333 ;;21,"64455014390 ")
+334 ;;3985
+335 ;;21,"64455014501 ")
+336 ;;3986
+337 ;;21,"64455014601 ")
+338 ;;3987
+339 ;;21,"64579001300 ")
+340 ;;3988
+341 ;;21,"64579001301 ")
+342 ;;3989
+343 ;;21,"64579001400 ")
+344 ;;3990
+345 ;;21,"64579001420 ")
+346 ;;3991
+347 ;;21,"64579001500 ")
+348 ;;3992
+349 ;;21,"64579001501 ")
+350 ;;3993
+351 ;;21,"64579009400 ")
+352 ;;3994
+353 ;;21,"64579009401 ")
+354 ;;3995
+355 ;;21,"64579009500 ")
+356 ;;3996
+357 ;;21,"64579009501 ")
+358 ;;3997
+359 ;;21,"64579009600 ")
+360 ;;3998
+361 ;;21,"64579009601 ")
+362 ;;3999
+363 ;;21,"64579009801 ")
+364 ;;4000
+365 ;;21,"64579018100 ")
+366 ;;4001
+367 ;;21,"64579018101 ")
+368 ;;4002
+369 ;;21,"64674003937 ")
+370 ;;4003
+371 ;;21,"64674004037 ")
+372 ;;4004
+373 ;;21,"64674004070 ")
+374 ;;4005
+375 ;;21,"64674004137 ")
+376 ;;4006
+377 ;;21,"64674004170 ")
+378 ;;4007
+379 ;;21,"64674004237 ")
+380 ;;4008
+381 ;;21,"64674004337 ")
+382 ;;4009
+383 ;;21,"64674004437 ")
+384 ;;4010
+385 ;;21,"64679090201 ")
+386 ;;4011
+387 ;;21,"64679090202 ")
+388 ;;4012
+389 ;;21,"64679090301 ")
+390 ;;4013
+391 ;;21,"64679090302 ")
+392 ;;4014
+393 ;;21,"64679090401 ")
+394 ;;4015
+395 ;;21,"64679090402 ")
+396 ;;4016
+397 ;;21,"64679090501 ")
+398 ;;4017
+399 ;;21,"64679090502 ")
+400 ;;4018
+401 ;;21,"64679092301 ")
+402 ;;4019
+403 ;;21,"64679092302 ")
+404 ;;4020
+405 ;;21,"64679092303 ")
+406 ;;4021
+407 ;;21,"64679092307 ")
+408 ;;4022
+409 ;;21,"64679092309 ")
+410 ;;4023
+411 ;;21,"64679092310 ")
+412 ;;4024
+413 ;;21,"64679092401 ")
+414 ;;4025
+415 ;;21,"64679092402 ")
+416 ;;4026
+417 ;;21,"64679092403 ")
+418 ;;4027
+419 ;;21,"64679092407 ")
+420 ;;4028
+421 ;;21,"64679092409 ")
+422 ;;4029
+423 ;;21,"64679092410 ")
+424 ;;4030
+425 ;;21,"64679092501 ")
+426 ;;4031
+427 ;;21,"64679092502 ")
+428 ;;4032
+429 ;;21,"64679092503 ")
+430 ;;4033
+431 ;;21,"64679092507 ")
+432 ;;4034
+433 ;;21,"64679092509 ")
+434 ;;4035
+435 ;;21,"64679092510 ")
+436 ;;4036
+437 ;;21,"64679092601 ")
+438 ;;4037
+439 ;;21,"64679092602 ")
+440 ;;4038
+441 ;;21,"64679092603 ")
+442 ;;4039
+443 ;;21,"64679092607 ")
+444 ;;4040
+445 ;;21,"64679092609 ")
+446 ;;4041
+447 ;;21,"64679092610 ")
+448 ;;4042
+449 ;;21,"64679092701 ")
+450 ;;4043
+451 ;;21,"64679092702 ")
+452 ;;4044
+453 ;;21,"64679092705 ")
+454 ;;4045
+455 ;;21,"64679092709 ")
+456 ;;4046
+457 ;;21,"64679092801 ")
+458 ;;4047
+459 ;;21,"64679092802 ")
+460 ;;4048
+461 ;;21,"64679092805 ")
+462 ;;4049
+463 ;;21,"64679092806 ")
+464 ;;4050
+465 ;;21,"64679092810 ")
+466 ;;4051
+467 ;;21,"64679092901 ")
+468 ;;4052
+469 ;;21,"64679092902 ")
+470 ;;4053
+471 ;;21,"64679092905 ")
+472 ;;4054
+473 ;;21,"64679092906 ")
+474 ;;4055
+475 ;;21,"64679092910 ")
+476 ;;4056
+477 ;;21,"64679094101 ")
+478 ;;4057
+479 ;;21,"64679094102 ")
+480 ;;4058
+481 ;;21,"64679094105 ")
+482 ;;4059
+483 ;;21,"64679094106 ")
+484 ;;4060
+485 ;;21,"64679094110 ")
+486 ;;4061
+487 ;;21,"64679094201 ")
+488 ;;4062
+489 ;;21,"64679094202 ")
+490 ;;4063
+491 ;;21,"64679094205 ")
+492 ;;4064
+493 ;;21,"64679094209 ")
+494 ;;4065
+495 ;;21,"64679095301 ")
+496 ;;4066
+497 ;;21,"64679095302 ")
+498 ;;4067
+499 ;;21,"64679095305 ")
+500 ;;4068
+501 ;;21,"64679095309 ")
+502 ;;4069
+503 ;;21,"64725005003 ")
+504 ;;4070
+505 ;;21,"64725005203 ")
+506 ;;4071
+507 ;;21,"64725005303 ")
+508 ;;4072
+509 ;;21,"64725012303 ")
+510 ;;4073
+511 ;;21,"64725012503 ")
+512 ;;4074
+513 ;;21,"64725012603 ")
+514 ;;4075
+515 ;;21,"64725019803 ")
+516 ;;4076
+517 ;;21,"64725019903 ")
+518 ;;4077
+519 ;;21,"64725039403 ")
+520 ;;4078
+521 ;;21,"65084023410 ")
+522 ;;4079
+523 ;;21,"65084023510 ")
+524 ;;4080
+525 ;;21,"65084023710 ")
+526 ;;4081
+527 ;;21,"65243009203 ")
+528 ;;4082
+529 ;;21,"65243009206 ")
+530 ;;4083
+531 ;;21,"65243009303 ")
+532 ;;4084
+533 ;;21,"65243009306 ")
+534 ;;4085
+535 ;;21,"65243009403 ")
+536 ;;4086
+537 ;;21,"65243009406 ")
+538 ;;4087
+539 ;;21,"65243012103 ")
+540 ;;4088
+541 ;;21,"65243012109 ")
+542 ;;4089
+543 ;;21,"65243012145 ")
+544 ;;4090
+545 ;;21,"65243030303 ")
+546 ;;4091
+547 ;;21,"65243030306 ")
+548 ;;4092
+549 ;;21,"65243030309 ")
+550 ;;4093
+551 ;;21,"65243030312 ")
+552 ;;4094
+553 ;;21,"65243030318 ")
+554 ;;4095
+555 ;;21,"65243031403 ")
+556 ;;4096
+557 ;;21,"65243031406 ")
+558 ;;4097
+559 ;;21,"65243031409 ")
+560 ;;4098
+561 ;;21,"65243031412 ")
+562 ;;4099
+563 ;;21,"65243031445 ")
+564 ;;4100
+565 ;;21,"65243034103 ")
+566 ;;4101
+567 ;;21,"65243034106 ")
+568 ;;4102
+569 ;;21,"65243034109 ")
+570 ;;4103
+571 ;;21,"65243034112 ")
+572 ;;4104
+573 ;;21,"65243034145 ")
+574 ;;4105
+575 ;;21,"65427001901 ")
+576 ;;4106
+577 ;;21,"65427002001 ")
+578 ;;4107
+579 ;;21,"65427002101 ")
+580 ;;4108
+581 ;;21,"65427002201 ")
+582 ;;4109
+583 ;;21,"65427052723 ")
+584 ;;4110
+585 ;;21,"65427052740 ")
+586 ;;4111
+587 ;;21,"65427052798 ")
+588 ;;4112
+589 ;;21,"65427053023 ")
+590 ;;4113
+591 ;;21,"65427053040 ")
+592 ;;4114
+593 ;;21,"65427053099 ")
+594 ;;4115
+595 ;;21,"65427053223 ")
+596 ;;4116
+597 ;;21,"65427053240 ")
+598 ;;4117
+599 ;;21,"65427053299 ")
+600 ;;4118
+601 ;;21,"65597010130 ")
+602 ;;4119
+603 ;;21,"65597010310 ")
+604 ;;4120
+605 ;;21,"65597010330 ")
+606 ;;4121
+607 ;;21,"65597010377 ")
+608 ;;4122
+609 ;;21,"65597010390 ")
+610 ;;4123
+611 ;;21,"65597010410 ")
+612 ;;4124
+613 ;;21,"65597010430 ")
+614 ;;4125
+615 ;;21,"65597010477 ")
+616 ;;4126
+617 ;;21,"65597010490 ")
+618 ;;4127
+619 ;;21,"65597010501 ")
+620 ;;4128
+621 ;;21,"65597010507 ")
+622 ;;4129
+623 ;;21,"65597010510 ")
+624 ;;4130
+625 ;;21,"65597010511 ")
+626 ;;4131
+627 ;;21,"65597010530 ")
+628 ;;4132
+629 ;;21,"65597010550 ")
+630 ;;4133
+631 ;;21,"65597010590 ")
+632 ;;4134
+633 ;;21,"65597010601 ")
+634 ;;4135
+635 ;;21,"65597010607 ")
+636 ;;4136
+637 ;;21,"65597010610 ")
+638 ;;4137
+639 ;;21,"65597010611 ")
+640 ;;4138
+641 ;;21,"65597010630 ")
+642 ;;4139
+643 ;;21,"65597010650 ")
+644 ;;4140
+645 ;;21,"65597010690 ")
+646 ;;4141
+647 ;;21,"65597010701 ")
+648 ;;4142
+649 ;;21,"65597010707 ")
+650 ;;4143
+651 ;;21,"65597010710 ")
+652 ;;4144
+653 ;;21,"65597010711 ")
+654 ;;4145
+655 ;;21,"65597010730 ")
+656 ;;4146
+657 ;;21,"65597010750 ")
+658 ;;4147
+659 ;;21,"65597010790 ")
+660 ;;4148
+661 ;;21,"65862003700 ")
+662 ;;4149
+663 ;;21,"65862003701 ")
+664 ;;4150
+665 ;;21,"65862003705 ")
+666 ;;4151
+667 ;;21,"65862003713 ")
+668 ;;4152
+669 ;;21,"65862003730 ")
+670 ;;4153
+671 ;;21,"65862003800 ")
+672 ;;4154
+673 ;;21,"65862003801 ")
+674 ;;4155
+675 ;;21,"65862003805 ")
+676 ;;4156
+677 ;;21,"65862003813 ")
+678 ;;4157
+679 ;;21,"65862003830 ")
+680 ;;4158
+681 ;;21,"65862003900 ")
+682 ;;4159
+683 ;;21,"65862003901 ")
+684 ;;4160
+685 ;;21,"65862003905 ")
+686 ;;4161
+687 ;;21,"65862003913 ")
+688 ;;4162
+689 ;;21,"65862003930 ")
+690 ;;4163
+691 ;;21,"65862004000 ")
+692 ;;4164
+693 ;;21,"65862004001 ")
+694 ;;4165
+695 ;;21,"65862004005 ")
+696 ;;4166
+697 ;;21,"65862004030 ")
+698 ;;4167
+699 ;;21,"65862004065 ")
+700 ;;4168
+701 ;;21,"65862004100 ")
+702 ;;4169
+703 ;;21,"65862004101 ")
+704 ;;4170