BGPM5ATN ;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,"00781202005 ")
+2 ;;7839
+3 ;;21,"00781202031 ")
+4 ;;7840
+5 ;;21,"00781202076 ")
+6 ;;7841
+7 ;;21,"00781211201 ")
+8 ;;7842
+9 ;;21,"00781211301 ")
+10 ;;7843
+11 ;;21,"00781211317 ")
+12 ;;7844
+13 ;;21,"00781214401 ")
+14 ;;7845
+15 ;;21,"00781214405 ")
+16 ;;7846
+17 ;;21,"00781214501 ")
+18 ;;7847
+19 ;;21,"00781214505 ")
+20 ;;7848
+21 ;;21,"00781217601 ")
+22 ;;7849
+23 ;;21,"00781217660 ")
+24 ;;7850
+25 ;;21,"00781217664 ")
+26 ;;7851
+27 ;;21,"00781217669 ")
+28 ;;7852
+29 ;;21,"00781224801 ")
+30 ;;7853
+31 ;;21,"00781225801 ")
+32 ;;7854
+33 ;;21,"00781226801 ")
+34 ;;7855
+35 ;;21,"00781226807 ")
+36 ;;7856
+37 ;;21,"00781226822 ")
+38 ;;7857
+39 ;;21,"00781226860 ")
+40 ;;7858
+41 ;;21,"00781226868 ")
+42 ;;7859
+43 ;;21,"00781226881 ")
+44 ;;7860
+45 ;;21,"00781226907 ")
+46 ;;7861
+47 ;;21,"00781226922 ")
+48 ;;7862
+49 ;;21,"00781226950 ")
+50 ;;7863
+51 ;;21,"00781226969 ")
+52 ;;7864
+53 ;;21,"00781226981 ")
+54 ;;7865
+55 ;;21,"00781261301 ")
+56 ;;7866
+57 ;;21,"00781261305 ")
+58 ;;7867
+59 ;;21,"00781261331 ")
+60 ;;7868
+61 ;;21,"00781261376 ")
+62 ;;7869
+63 ;;21,"00781293801 ")
+64 ;;7870
+65 ;;21,"00781293850 ")
+66 ;;7871
+67 ;;21,"00781303270 ")
+68 ;;7872
+69 ;;21,"00781303295 ")
+70 ;;7873
+71 ;;21,"00781303370 ")
+72 ;;7874
+73 ;;21,"00781303395 ")
+74 ;;7875
+75 ;;21,"00781303446 ")
+76 ;;7876
+77 ;;21,"00781315796 ")
+78 ;;7877
+79 ;;21,"00781320685 ")
+80 ;;7878
+81 ;;21,"00781320695 ")
+82 ;;7879
+83 ;;21,"00781320785 ")
+84 ;;7880
+85 ;;21,"00781320795 ")
+86 ;;7881
+87 ;;21,"00781320885 ")
+88 ;;7882
+89 ;;21,"00781320895 ")
+90 ;;7883
+91 ;;21,"00781320990 ")
+92 ;;7884
+93 ;;21,"00781320995 ")
+94 ;;7885
+95 ;;21,"00781321046 ")
+96 ;;7886
+97 ;;21,"00781323909 ")
+98 ;;7887
+99 ;;21,"00781323946 ")
+100 ;;7888
+101 ;;21,"00781324009 ")
+102 ;;7889
+103 ;;21,"00781324048 ")
+104 ;;7890
+105 ;;21,"00781333870 ")
+106 ;;7891
+107 ;;21,"00781333885 ")
+108 ;;7892
+109 ;;21,"00781333895 ")
+110 ;;7893
+111 ;;21,"00781334646 ")
+112 ;;7894
+113 ;;21,"00781334695 ")
+114 ;;7895
+115 ;;21,"00781340078 ")
+116 ;;7896
+117 ;;21,"00781340095 ")
+118 ;;7897
+119 ;;21,"00781340278 ")
+120 ;;7898
+121 ;;21,"00781340295 ")
+122 ;;7899
+123 ;;21,"00781340485 ")
+124 ;;7900
+125 ;;21,"00781340495 ")
+126 ;;7901
+127 ;;21,"00781340778 ")
+128 ;;7902
+129 ;;21,"00781340795 ")
+130 ;;7903
+131 ;;21,"00781340880 ")
+132 ;;7904
+133 ;;21,"00781340895 ")
+134 ;;7905
+135 ;;21,"00781340946 ")
+136 ;;7906
+137 ;;21,"00781340995 ")
+138 ;;7907
+139 ;;21,"00781345070 ")
+140 ;;7908
+141 ;;21,"00781345095 ")
+142 ;;7909
+143 ;;21,"00781345170 ")
+144 ;;7910
+145 ;;21,"00781345196 ")
+146 ;;7911
+147 ;;21,"00781345246 ")
+148 ;;7912
+149 ;;21,"00781345295 ")
+150 ;;7913
+151 ;;21,"00781392280 ")
+152 ;;7914
+153 ;;21,"00781392296 ")
+154 ;;7915
+155 ;;21,"00781392646 ")
+156 ;;7916
+157 ;;21,"00781392695 ")
+158 ;;7917
+159 ;;21,"00781504301 ")
+160 ;;7918
+161 ;;21,"00781504401 ")
+162 ;;7919
+163 ;;21,"00781504450 ")
+164 ;;7920
+165 ;;21,"00781506001 ")
+166 ;;7921
+167 ;;21,"00781506005 ")
+168 ;;7922
+169 ;;21,"00781506020 ")
+170 ;;7923
+171 ;;21,"00781506101 ")
+172 ;;7924
+173 ;;21,"00781506105 ")
+174 ;;7925
+175 ;;21,"00781506120 ")
+176 ;;7926
+177 ;;21,"00781511501 ")
+178 ;;7927
+179 ;;21,"00781538501 ")
+180 ;;7928
+181 ;;21,"00781538510 ")
+182 ;;7929
+183 ;;21,"00781538531 ")
+184 ;;7930
+185 ;;21,"00781538601 ")
+186 ;;7931
+187 ;;21,"00781538610 ")
+188 ;;7932
+189 ;;21,"00781538631 ")
+190 ;;7933
+191 ;;21,"00781538701 ")
+192 ;;7934
+193 ;;21,"00781538710 ")
+194 ;;7935
+195 ;;21,"00781538731 ")
+196 ;;7936
+197 ;;21,"00781543820 ")
+198 ;;7937
+199 ;;21,"00781543901 ")
+200 ;;7938
+201 ;;21,"00781543920 ")
+202 ;;7939
+203 ;;21,"00781579201 ")
+204 ;;7940
+205 ;;21,"00781579210 ")
+206 ;;7941
+207 ;;21,"00781579220 ")
+208 ;;7942
+209 ;;21,"00781579250 ")
+210 ;;7943
+211 ;;21,"00781602246 ")
+212 ;;7944
+213 ;;21,"00781602252 ")
+214 ;;7945
+215 ;;21,"00781602346 ")
+216 ;;7946
+217 ;;21,"00781602352 ")
+218 ;;7947
+219 ;;21,"00781603446 ")
+220 ;;7948
+221 ;;21,"00781603455 ")
+222 ;;7949
+223 ;;21,"00781603458 ")
+224 ;;7950
+225 ;;21,"00781603846 ")
+226 ;;7951
+227 ;;21,"00781603855 ")
+228 ;;7952
+229 ;;21,"00781603858 ")
+230 ;;7953
+231 ;;21,"00781603946 ")
+232 ;;7954
+233 ;;21,"00781603955 ")
+234 ;;7955
+235 ;;21,"00781603958 ")
+236 ;;7956
+237 ;;21,"00781604105 ")
+238 ;;7957
+239 ;;21,"00781604106 ")
+240 ;;7958
+241 ;;21,"00781604108 ")
+242 ;;7959
+243 ;;21,"00781604146 ")
+244 ;;7960
+245 ;;21,"00781604155 ")
+246 ;;7961
+247 ;;21,"00781604158 ")
+248 ;;7962
+249 ;;21,"00781606316 ")
+250 ;;7963
+251 ;;21,"00781607746 ")
+252 ;;7964
+253 ;;21,"00781607761 ")
+254 ;;7965
+255 ;;21,"00781607846 ")
+256 ;;7966
+257 ;;21,"00781607861 ")
+258 ;;7967
+259 ;;21,"00781610246 ")
+260 ;;7968
+261 ;;21,"00781610446 ")
+262 ;;7969
+263 ;;21,"00781612046 ")
+264 ;;7970
+265 ;;21,"00781612048 ")
+266 ;;7971
+267 ;;21,"00781612146 ")
+268 ;;7972
+269 ;;21,"00781612148 ")
+270 ;;7973
+271 ;;21,"00781613494 ")
+272 ;;7974
+273 ;;21,"00781613495 ")
+274 ;;7975
+275 ;;21,"00781613594 ")
+276 ;;7976
+277 ;;21,"00781613595 ")
+278 ;;7977
+279 ;;21,"00781613694 ")
+280 ;;7978
+281 ;;21,"00781613948 ")
+282 ;;7979
+283 ;;21,"00781613954 ")
+284 ;;7980
+285 ;;21,"00781613957 ")
+286 ;;7981
+287 ;;21,"00781615394 ")
+288 ;;7982
+289 ;;21,"00781615395 ")
+290 ;;7983
+291 ;;21,"00781615397 ")
+292 ;;7984
+293 ;;21,"00781615646 ")
+294 ;;7985
+295 ;;21,"00781615652 ")
+296 ;;7986
+297 ;;21,"00781615657 ")
+298 ;;7987
+299 ;;21,"00781615746 ")
+300 ;;7988
+301 ;;21,"00781615752 ")
+302 ;;7989
+303 ;;21,"00781615757 ")
+304 ;;7990
+305 ;;21,"00781616846 ")
+306 ;;7991
+307 ;;21,"00781616852 ")
+308 ;;7992
+309 ;;21,"00781616946 ")
+310 ;;7993
+311 ;;21,"00781616952 ")
+312 ;;7994
+313 ;;21,"00781620246 ")
+314 ;;7995
+315 ;;21,"00781620257 ")
+316 ;;7996
+317 ;;21,"00781620291 ")
+318 ;;7997
+319 ;;21,"00781620346 ")
+320 ;;7998
+321 ;;21,"00781620357 ")
+322 ;;7999
+323 ;;21,"00781620391 ")
+324 ;;8000
+325 ;;21,"00781920696 ")
+326 ;;8001
+327 ;;21,"00781920795 ")
+328 ;;8002
+329 ;;21,"00781932685 ")
+330 ;;8003
+331 ;;21,"00781932695 ")
+332 ;;8004
+333 ;;21,"00781932785 ")
+334 ;;8005
+335 ;;21,"00781932795 ")
+336 ;;8006
+337 ;;21,"00781932885 ")
+338 ;;8007
+339 ;;21,"00781932895 ")
+340 ;;8008
+341 ;;21,"00781932990 ")
+342 ;;8009
+343 ;;21,"00781932995 ")
+344 ;;8010
+345 ;;21,"00781933046 ")
+346 ;;8011
+347 ;;21,"00781933746 ")
+348 ;;8012
+349 ;;21,"00781933795 ")
+350 ;;8013
+351 ;;21,"00781933885 ")
+352 ;;8014
+353 ;;21,"00781933895 ")
+354 ;;8015
+355 ;;21,"00781933985 ")
+356 ;;8016
+357 ;;21,"00781933996 ")
+358 ;;8017
+359 ;;21,"00781936301 ")
+360 ;;8018
+361 ;;21,"00781936305 ")
+362 ;;8019
+363 ;;21,"00781940178 ")
+364 ;;8020
+365 ;;21,"00781940195 ")
+366 ;;8021
+367 ;;21,"00781940278 ")
+368 ;;8022
+369 ;;21,"00781940295 ")
+370 ;;8023
+371 ;;21,"00781940485 ")
+372 ;;8024
+373 ;;21,"00781940495 ")
+374 ;;8025
+375 ;;21,"00781940778 ")
+376 ;;8026
+377 ;;21,"00781940795 ")
+378 ;;8027
+379 ;;21,"00781940880 ")
+380 ;;8028
+381 ;;21,"00781940895 ")
+382 ;;8029
+383 ;;21,"00781940946 ")
+384 ;;8030
+385 ;;21,"00781940995 ")
+386 ;;8031
+387 ;;21,"00781941215 ")
+388 ;;8032
+389 ;;21,"00781941292 ")
+390 ;;8033
+391 ;;21,"00781941315 ")
+392 ;;8034
+393 ;;21,"00781941392 ")
+394 ;;8035
+395 ;;21,"00781945170 ")
+396 ;;8036
+397 ;;21,"00781945195 ")
+398 ;;8037
+399 ;;21,"00781945196 ")
+400 ;;8038
+401 ;;21,"00781945246 ")
+402 ;;8039
+403 ;;21,"00781945295 ")
+404 ;;8040
+405 ;;21,"00904042751 ")
+406 ;;8041
+407 ;;21,"00904042840 ")
+408 ;;8042
+409 ;;21,"00904042851 ")
+410 ;;8043
+411 ;;21,"00904042861 ")
+412 ;;8044
+413 ;;21,"00904042895 ")
+414 ;;8045
+415 ;;21,"00904043040 ")
+416 ;;8046
+417 ;;21,"00904043051 ")
+418 ;;8047
+419 ;;21,"00904043061 ")
+420 ;;8048
+421 ;;21,"00904164660 ")
+422 ;;8049
+423 ;;21,"00904201740 ")
+424 ;;8050
+425 ;;21,"00904201760 ")
+426 ;;8051
+427 ;;21,"00904207340 ")
+428 ;;8052
+429 ;;21,"00904207360 ")
+430 ;;8053
+431 ;;21,"00904221860 ")
+432 ;;8054
+433 ;;21,"00904240760 ")
+434 ;;8055
+435 ;;21,"00904240780 ")
+436 ;;8056
+437 ;;21,"00904241660 ")
+438 ;;8057
+439 ;;21,"00904241680 ")
+440 ;;8058
+441 ;;21,"00904245060 ")
+442 ;;8059
+443 ;;21,"00904245080 ")
+444 ;;8060
+445 ;;21,"00904245160 ")
+446 ;;8061
+447 ;;21,"00904245180 ")
+448 ;;8062
+449 ;;21,"00904245280 ")
+450 ;;8063
+451 ;;21,"00904246216 ")
+452 ;;8064
+453 ;;21,"00904246316 ")
+454 ;;8065
+455 ;;21,"00904246860 ")
+456 ;;8066
+457 ;;21,"00904247116 ")
+458 ;;8067
+459 ;;21,"00904261740 ")
+460 ;;8068
+461 ;;21,"00904261760 ")
+462 ;;8069
+463 ;;21,"00904261761 ")
+464 ;;8070
+465 ;;21,"00904261840 ")
+466 ;;8071
+467 ;;21,"00904261851 ")
+468 ;;8072
+469 ;;21,"00904261904 ")
+470 ;;8073
+471 ;;21,"00904261907 ")
+472 ;;8074
+473 ;;21,"00904262004 ")
+474 ;;8075
+475 ;;21,"00904262007 ")
+476 ;;8076
+477 ;;21,"00904264760 ")
+478 ;;8077
+479 ;;21,"00904265304 ")
+480 ;;8078
+481 ;;21,"00904272540 ")
+482 ;;8079
+483 ;;21,"00904272560 ")
+484 ;;8080
+485 ;;21,"00904272561 ")
+486 ;;8081
+487 ;;21,"00904272640 ")
+488 ;;8082
+489 ;;21,"00904272660 ")
+490 ;;8083
+491 ;;21,"00904283760 ")
+492 ;;8084
+493 ;;21,"00904283860 ")
+494 ;;8085
+495 ;;21,"00904380040 ")
+496 ;;8086
+497 ;;21,"00904380060 ")
+498 ;;8087
+499 ;;21,"00904380061 ")
+500 ;;8088
+501 ;;21,"00904380140 ")
+502 ;;8089
+503 ;;21,"00904380160 ")
+504 ;;8090
+505 ;;21,"00904380161 ")
+506 ;;8091
+507 ;;21,"00904380204 ")
+508 ;;8092
+509 ;;21,"00904380208 ")
+510 ;;8093
+511 ;;21,"00904380304 ")
+512 ;;8094
+513 ;;21,"00904380308 ")
+514 ;;8095
+515 ;;21,"00904383860 ")
+516 ;;8096
+517 ;;21,"00904400104 ")
+518 ;;8097
+519 ;;21,"00904400108 ")
+520 ;;8098
+521 ;;21,"00904400404 ")
+522 ;;8099
+523 ;;21,"00904400408 ")
+524 ;;8100
+525 ;;21,"00904520460 ")
+526 ;;8101
+527 ;;21,"00904520560 ")
+528 ;;8102
+529 ;;21,"00904580761 ")
+530 ;;8103
+531 ;;21,"00904581361 ")
+532 ;;8104
+533 ;;21,"00904584261 ")
+534 ;;8105
+535 ;;21,"00904584361 ")
+536 ;;8106
+537 ;;21,"00904595961 ")
+538 ;;8107
+539 ;;21,"00904596061 ")
+540 ;;8108
+541 ;;21,"00904601004 ")
+542 ;;8109
+543 ;;21,"00904625161 ")
+544 ;;8110
+545 ;;21,"00904768260 ")
+546 ;;8111
+547 ;;21,"00904768351 ")
+548 ;;8112
+549 ;;21,"00904771340 ")
+550 ;;8113
+551 ;;21,"00904771360 ")
+552 ;;8114
+553 ;;21,"00904773303 ")
+554 ;;8115
+555 ;;21,"00904773330 ")
+556 ;;8116
+557 ;;21,"00904787840 ")
+558 ;;8117
+559 ;;21,"00904787851 ")
+560 ;;8118
+561 ;;21,"00904787860 ")
+562 ;;8119
+563 ;;21,"016014797 ")
+564 ;;2733
+565 ;;21,"40 ")
+566 ;;5464
+567 ;;21,"52959036720 ")
+568 ;;2
+569 ;;21,"52959036721 ")
+570 ;;3
+571 ;;21,"52959036730 ")
+572 ;;4
+573 ;;21,"52959036740 ")
+574 ;;5
+575 ;;21,"52959036810 ")
+576 ;;6
+577 ;;21,"52959036814 ")
+578 ;;7
+579 ;;21,"52959036820 ")
+580 ;;8
+581 ;;21,"52959036821 ")
+582 ;;9
+583 ;;21,"52959036828 ")
+584 ;;10
+585 ;;21,"52959036830 ")
+586 ;;11
+587 ;;21,"52959036840 ")
+588 ;;12
+589 ;;21,"52959038920 ")
+590 ;;13
+591 ;;21,"52959038928 ")
+592 ;;14
+593 ;;21,"52959038930 ")
+594 ;;15
+595 ;;21,"52959038940 ")
+596 ;;16
+597 ;;21,"52959042804 ")
+598 ;;17
+599 ;;21,"52959042810 ")
+600 ;;18
+601 ;;21,"52959042814 ")
+602 ;;19
+603 ;;21,"52959042815 ")
+604 ;;20
+605 ;;21,"52959042816 ")
+606 ;;21
+607 ;;21,"52959042818 ")
+608 ;;22
+609 ;;21,"52959042820 ")
+610 ;;23
+611 ;;21,"52959042828 ")
+612 ;;24
+613 ;;21,"52959042830 ")
+614 ;;25
+615 ;;21,"52959047414 ")
+616 ;;26
+617 ;;21,"52959047420 ")
+618 ;;27
+619 ;;21,"52959047430 ")
+620 ;;28
+621 ;;21,"52959056000 ")
+622 ;;29
+623 ;;21,"52959060910 ")
+624 ;;30
+625 ;;21,"52959061302 ")
+626 ;;31
+627 ;;21,"52959061303 ")
+628 ;;32
+629 ;;21,"52959061903 ")
+630 ;;33
+631 ;;21,"52959062000 ")
+632 ;;34
+633 ;;21,"52959062001 ")
+634 ;;35
+635 ;;21,"52959066120 ")
+636 ;;36
+637 ;;21,"52959066130 ")
+638 ;;37
+639 ;;21,"52959070204 ")
+640 ;;38
+641 ;;21,"52959070209 ")
+642 ;;39
+643 ;;21,"52959070212 ")
+644 ;;40
+645 ;;21,"52959070214 ")
+646 ;;41
+647 ;;21,"52959070215 ")
+648 ;;42
+649 ;;21,"52959070220 ")
+650 ;;43
+651 ;;21,"52959070221 ")
+652 ;;44
+653 ;;21,"52959070230 ")
+654 ;;45
+655 ;;21,"52959070240 ")
+656 ;;46
+657 ;;21,"52959070710 ")
+658 ;;47
+659 ;;21,"52959070714 ")
+660 ;;48
+661 ;;21,"52959070715 ")
+662 ;;49
+663 ;;21,"52959070720 ")
+664 ;;50
+665 ;;21,"52959070730 ")
+666 ;;51
+667 ;;21,"52959070760 ")
+668 ;;52
+669 ;;21,"52959073000 ")
+670 ;;53
+671 ;;21,"52959073004 ")
+672 ;;54
+673 ;;21,"52959073006 ")
+674 ;;55
+675 ;;21,"52959073010 ")
+676 ;;56
+677 ;;21,"52959073014 ")
+678 ;;57
+679 ;;21,"52959073015 ")
+680 ;;58
+681 ;;21,"52959073020 ")
+682 ;;59
+683 ;;21,"52959073021 ")
+684 ;;60
+685 ;;21,"52959073028 ")
+686 ;;61
+687 ;;21,"52959073030 ")
+688 ;;62
+689 ;;21,"52959073060 ")
+690 ;;63
+691 ;;21,"52959073414 ")
+692 ;;64
+693 ;;21,"52959073420 ")
+694 ;;65
+695 ;;21,"52959073430 ")
+696 ;;66
+697 ;;21,"52959073460 ")
+698 ;;67
+699 ;;21,"52959073906 ")
+700 ;;68
+701 ;;21,"52959073910 ")
+702 ;;69
+703 ;;21,"52959073914 ")
+704 ;;70
+705 ;;21,"52959073920 ")
+706 ;;71
+707 ;;21,"52959074420 ")
+708 ;;72
+709 ;;21,"52959074430 ")
+710 ;;73
+711 ;;21,"52959074440 ")
+712 ;;74