BGPM5APW ;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,"49856018509 ")
+2 ;;640
+3 ;;21,"49856018600 ")
+4 ;;641
+5 ;;21,"49856018601 ")
+6 ;;642
+7 ;;21,"49856018607 ")
+8 ;;643
+9 ;;21,"49856018609 ")
+10 ;;644
+11 ;;21,"49856018700 ")
+12 ;;645
+13 ;;21,"49856018701 ")
+14 ;;646
+15 ;;21,"49856018707 ")
+16 ;;647
+17 ;;21,"49856018709 ")
+18 ;;648
+19 ;;21,"49856018800 ")
+20 ;;649
+21 ;;21,"49856018801 ")
+22 ;;650
+23 ;;21,"49856018900 ")
+24 ;;651
+25 ;;21,"49856018901 ")
+26 ;;652
+27 ;;21,"49856018908 ")
+28 ;;653
+29 ;;21,"49856018909 ")
+30 ;;654
+31 ;;21,"49856020501 ")
+32 ;;655
+33 ;;21,"49856020502 ")
+34 ;;656
+35 ;;21,"49856020503 ")
+36 ;;657
+37 ;;21,"49856020505 ")
+38 ;;658
+39 ;;21,"49856020507 ")
+40 ;;659
+41 ;;21,"49856020601 ")
+42 ;;660
+43 ;;21,"49856020602 ")
+44 ;;661
+45 ;;21,"49856020603 ")
+46 ;;662
+47 ;;21,"49856020605 ")
+48 ;;663
+49 ;;21,"49856020607 ")
+50 ;;664
+51 ;;21,"49856020701 ")
+52 ;;665
+53 ;;21,"49856020702 ")
+54 ;;666
+55 ;;21,"49856020703 ")
+56 ;;667
+57 ;;21,"49856020705 ")
+58 ;;668
+59 ;;21,"49856020707 ")
+60 ;;669
+61 ;;21,"49856020801 ")
+62 ;;670
+63 ;;21,"49856020802 ")
+64 ;;671
+65 ;;21,"49856020901 ")
+66 ;;672
+67 ;;21,"49856020902 ")
+68 ;;673
+69 ;;21,"49856251002 ")
+70 ;;674
+71 ;;21,"49856251003 ")
+72 ;;675
+73 ;;21,"49856251004 ")
+74 ;;676
+75 ;;21,"49856251102 ")
+76 ;;677
+77 ;;21,"49856251103 ")
+78 ;;678
+79 ;;21,"49856251104 ")
+80 ;;679
+81 ;;21,"49856251202 ")
+82 ;;680
+83 ;;21,"49856251203 ")
+84 ;;681
+85 ;;21,"49856251208 ")
+86 ;;682
+87 ;;21,"49884044401 ")
+88 ;;683
+89 ;;21,"49884044410 ")
+90 ;;684
+91 ;;21,"49884044501 ")
+92 ;;685
+93 ;;21,"49884044510 ")
+94 ;;686
+95 ;;21,"49884044601 ")
+96 ;;687
+97 ;;21,"49884044610 ")
+98 ;;688
+99 ;;21,"49884044701 ")
+100 ;;689
+101 ;;21,"49884044710 ")
+102 ;;690
+103 ;;21,"49884055601 ")
+104 ;;691
+105 ;;21,"49884055610 ")
+106 ;;692
+107 ;;21,"49884055701 ")
+108 ;;693
+109 ;;21,"49884055710 ")
+110 ;;694
+111 ;;21,"49884055801 ")
+112 ;;695
+113 ;;21,"49884055810 ")
+114 ;;696
+115 ;;21,"49884055901 ")
+116 ;;697
+117 ;;21,"49884055910 ")
+118 ;;698
+119 ;;21,"49884056001 ")
+120 ;;699
+121 ;;21,"49884056010 ")
+122 ;;700
+123 ;;21,"49884059101 ")
+124 ;;701
+125 ;;21,"49884059110 ")
+126 ;;702
+127 ;;21,"49884059201 ")
+128 ;;703
+129 ;;21,"49884059210 ")
+130 ;;704
+131 ;;21,"49884059301 ")
+132 ;;705
+133 ;;21,"49884059310 ")
+134 ;;706
+135 ;;21,"49884059401 ")
+136 ;;707
+137 ;;21,"49884059410 ")
+138 ;;708
+139 ;;21,"49884061901 ")
+140 ;;709
+141 ;;21,"49884061910 ")
+142 ;;710
+143 ;;21,"49884062001 ")
+144 ;;711
+145 ;;21,"49884062010 ")
+146 ;;712
+147 ;;21,"49884062101 ")
+148 ;;713
+149 ;;21,"49884062110 ")
+150 ;;714
+151 ;;21,"49884062201 ")
+152 ;;715
+153 ;;21,"49884063501 ")
+154 ;;716
+155 ;;21,"49884063510 ")
+156 ;;717
+157 ;;21,"49884068601 ")
+158 ;;718
+159 ;;21,"49884068701 ")
+160 ;;719
+161 ;;21,"49884079301 ")
+162 ;;720
+163 ;;21,"49884079401 ")
+164 ;;721
+165 ;;21,"49884079410 ")
+166 ;;722
+167 ;;21,"49884079501 ")
+168 ;;723
+169 ;;21,"49884079510 ")
+170 ;;724
+171 ;;21,"49884079601 ")
+172 ;;725
+173 ;;21,"49884081501 ")
+174 ;;726
+175 ;;21,"49884081601 ")
+176 ;;727
+177 ;;21,"49884081701 ")
+178 ;;728
+179 ;;21,"49884081801 ")
+180 ;;729
+181 ;;21,"49884099009 ")
+182 ;;730
+183 ;;21,"49884099109 ")
+184 ;;731
+185 ;;21,"49999010500 ")
+186 ;;732
+187 ;;21,"49999010510 ")
+188 ;;733
+189 ;;21,"49999010530 ")
+190 ;;734
+191 ;;21,"49999010560 ")
+192 ;;735
+193 ;;21,"49999018210 ")
+194 ;;736
+195 ;;21,"49999018230 ")
+196 ;;737
+197 ;;21,"49999018260 ")
+198 ;;738
+199 ;;21,"49999018310 ")
+200 ;;739
+201 ;;21,"49999018330 ")
+202 ;;740
+203 ;;21,"49999018360 ")
+204 ;;741
+205 ;;21,"49999018390 ")
+206 ;;742
+207 ;;21,"49999023900 ")
+208 ;;743
+209 ;;21,"49999023930 ")
+210 ;;744
+211 ;;21,"49999023960 ")
+212 ;;745
+213 ;;21,"49999024000 ")
+214 ;;746
+215 ;;21,"49999024030 ")
+216 ;;747
+217 ;;21,"49999029430 ")
+218 ;;748
+219 ;;21,"49999029500 ")
+220 ;;749
+221 ;;21,"49999029510 ")
+222 ;;750
+223 ;;21,"49999029530 ")
+224 ;;751
+225 ;;21,"49999030530 ")
+226 ;;752
+227 ;;21,"49999032100 ")
+228 ;;753
+229 ;;21,"49999032130 ")
+230 ;;754
+231 ;;21,"49999032160 ")
+232 ;;755
+233 ;;21,"49999034500 ")
+234 ;;756
+235 ;;21,"49999034530 ")
+236 ;;757
+237 ;;21,"49999046910 ")
+238 ;;758
+239 ;;21,"49999046930 ")
+240 ;;759
+241 ;;21,"49999046960 ")
+242 ;;760
+243 ;;21,"49999046990 ")
+244 ;;761
+245 ;;21,"49999051130 ")
+246 ;;762
+247 ;;21,"49999051160 ")
+248 ;;763
+249 ;;21,"49999054300 ")
+250 ;;764
+251 ;;21,"49999054330 ")
+252 ;;765
+253 ;;21,"49999076100 ")
+254 ;;766
+255 ;;21,"49999076130 ")
+256 ;;767
+257 ;;21,"49999081530 ")
+258 ;;768
+259 ;;21,"49999081590 ")
+260 ;;769
+261 ;;21,"49999082300 ")
+262 ;;770
+263 ;;21,"49999087000 ")
+264 ;;771
+265 ;;21,"49999087130 ")
+266 ;;772
+267 ;;21,"49999087190 ")
+268 ;;773
+269 ;;21,"49999087700 ")
+270 ;;774
+271 ;;21,"49999087730 ")
+272 ;;775
+273 ;;21,"49999087790 ")
+274 ;;776
+275 ;;21,"49999087800 ")
+276 ;;777
+277 ;;21,"49999087830 ")
+278 ;;778
+279 ;;21,"49999087890 ")
+280 ;;779
+281 ;;21,"49999087900 ")
+282 ;;780
+283 ;;21,"49999087930 ")
+284 ;;781
+285 ;;21,"49999087990 ")
+286 ;;782
+287 ;;21,"49999088000 ")
+288 ;;783
+289 ;;21,"49999088030 ")
+290 ;;784
+291 ;;21,"49999088090 ")
+292 ;;785
+293 ;;21,"49999092400 ")
+294 ;;786
+295 ;;21,"49999092410 ")
+296 ;;787
+297 ;;21,"49999092430 ")
+298 ;;788
+299 ;;21,"49999092460 ")
+300 ;;789
+301 ;;21,"49999093430 ")
+302 ;;790
+303 ;;21,"49999094300 ")
+304 ;;791
+305 ;;21,"49999094390 ")
+306 ;;792
+307 ;;21,"49999098830 ")
+308 ;;793
+309 ;;21,"51079025640 ")
+310 ;;794
+311 ;;21,"51079026140 ")
+312 ;;795
+313 ;;21,"51079069740 ")
+314 ;;796
+315 ;;21,"51079069840 ")
+316 ;;797
+317 ;;21,"51079069940 ")
+318 ;;798
+319 ;;21,"51079086301 ")
+320 ;;799
+321 ;;21,"51079086320 ")
+322 ;;800
+323 ;;21,"51079086401 ")
+324 ;;801
+325 ;;21,"51079086420 ")
+326 ;;802
+327 ;;21,"51079095001 ")
+328 ;;803
+329 ;;21,"51079095020 ")
+330 ;;804
+331 ;;21,"51079095101 ")
+332 ;;805
+333 ;;21,"51079095120 ")
+334 ;;806
+335 ;;21,"51079095201 ")
+336 ;;807
+337 ;;21,"51079095220 ")
+338 ;;808
+339 ;;21,"51079095301 ")
+340 ;;809
+341 ;;21,"51079095320 ")
+342 ;;810
+343 ;;21,"51079098101 ")
+344 ;;811
+345 ;;21,"51079098120 ")
+346 ;;812
+347 ;;21,"51079098130 ")
+348 ;;813
+349 ;;21,"51079098140 ")
+350 ;;814
+351 ;;21,"51079098156 ")
+352 ;;815
+353 ;;21,"51079098157 ")
+354 ;;816
+355 ;;21,"51079098160 ")
+356 ;;817
+357 ;;21,"51079098201 ")
+358 ;;818
+359 ;;21,"51079098217 ")
+360 ;;819
+361 ;;21,"51079098219 ")
+362 ;;820
+363 ;;21,"51079098220 ")
+364 ;;821
+365 ;;21,"51079098230 ")
+366 ;;822
+367 ;;21,"51079098240 ")
+368 ;;823
+369 ;;21,"51079098256 ")
+370 ;;824
+371 ;;21,"51079098257 ")
+372 ;;825
+373 ;;21,"51079098260 ")
+374 ;;826
+375 ;;21,"51079098301 ")
+376 ;;827
+377 ;;21,"51079098317 ")
+378 ;;828
+379 ;;21,"51079098319 ")
+380 ;;829
+381 ;;21,"51079098320 ")
+382 ;;830
+383 ;;21,"51079098330 ")
+384 ;;831
+385 ;;21,"51079098340 ")
+386 ;;832
+387 ;;21,"51079098356 ")
+388 ;;833
+389 ;;21,"51079098357 ")
+390 ;;834
+391 ;;21,"51079098360 ")
+392 ;;835
+393 ;;21,"51079098401 ")
+394 ;;836
+395 ;;21,"51079098420 ")
+396 ;;837
+397 ;;21,"51079098440 ")
+398 ;;838
+399 ;;21,"51079098450 ")
+400 ;;839
+401 ;;21,"51129045201 ")
+402 ;;840
+403 ;;21,"51129110501 ")
+404 ;;841
+405 ;;21,"51129130901 ")
+406 ;;842
+407 ;;21,"51129133001 ")
+408 ;;843
+409 ;;21,"51129133901 ")
+410 ;;844
+411 ;;21,"51129139701 ")
+412 ;;845
+413 ;;21,"51129140001 ")
+414 ;;846
+415 ;;21,"51129157101 ")
+416 ;;847
+417 ;;21,"51129157201 ")
+418 ;;848
+419 ;;21,"51129161401 ")
+420 ;;849
+421 ;;21,"51129163801 ")
+422 ;;850
+423 ;;21,"51129171101 ")
+424 ;;851
+425 ;;21,"51129171201 ")
+426 ;;852
+427 ;;21,"51129175001 ")
+428 ;;853
+429 ;;21,"51129178301 ")
+430 ;;854
+431 ;;21,"51129178601 ")
+432 ;;855
+433 ;;21,"51129181601 ")
+434 ;;856
+435 ;;21,"51129188801 ")
+436 ;;857
+437 ;;21,"51129188901 ")
+438 ;;858
+439 ;;21,"51129191501 ")
+440 ;;859
+441 ;;21,"51129191601 ")
+442 ;;860
+443 ;;21,"51129194701 ")
+444 ;;861
+445 ;;21,"51129196501 ")
+446 ;;862
+447 ;;21,"51129199601 ")
+448 ;;863
+449 ;;21,"51129209901 ")
+450 ;;864
+451 ;;21,"51129213001 ")
+452 ;;865
+453 ;;21,"51129224201 ")
+454 ;;866
+455 ;;21,"51129227401 ")
+456 ;;867
+457 ;;21,"51129239101 ")
+458 ;;868
+459 ;;21,"51129239201 ")
+460 ;;869
+461 ;;21,"51129240101 ")
+462 ;;870
+463 ;;21,"51129254001 ")
+464 ;;871
+465 ;;21,"51129255501 ")
+466 ;;872
+467 ;;21,"51129267901 ")
+468 ;;873
+469 ;;21,"51129268001 ")
+470 ;;874
+471 ;;21,"51129273901 ")
+472 ;;875
+473 ;;21,"51129276001 ")
+474 ;;876
+475 ;;21,"51129277001 ")
+476 ;;877
+477 ;;21,"51129277601 ")
+478 ;;878
+479 ;;21,"51129280701 ")
+480 ;;879
+481 ;;21,"51129284601 ")
+482 ;;880
+483 ;;21,"51129284602 ")
+484 ;;881
+485 ;;21,"51129286501 ")
+486 ;;882
+487 ;;21,"51129286502 ")
+488 ;;883
+489 ;;21,"51129287001 ")
+490 ;;884
+491 ;;21,"51129287002 ")
+492 ;;885
+493 ;;21,"51129287401 ")
+494 ;;886
+495 ;;21,"51129291301 ")
+496 ;;887
+497 ;;21,"51129291302 ")
+498 ;;888
+499 ;;21,"51129295601 ")
+500 ;;889
+501 ;;21,"51129300001 ")
+502 ;;890
+503 ;;21,"51129300002 ")
+504 ;;891
+505 ;;21,"51129303301 ")
+506 ;;892
+507 ;;21,"51129303302 ")
+508 ;;893
+509 ;;21,"51129304301 ")
+510 ;;894
+511 ;;21,"51129304302 ")
+512 ;;895
+513 ;;21,"51129306501 ")
+514 ;;896
+515 ;;21,"51129306502 ")
+516 ;;897
+517 ;;21,"51129307001 ")
+518 ;;898
+519 ;;21,"51129307002 ")
+520 ;;899
+521 ;;21,"51129307201 ")
+522 ;;900
+523 ;;21,"51129307202 ")
+524 ;;901
+525 ;;21,"51129308601 ")
+526 ;;902
+527 ;;21,"51129308602 ")
+528 ;;903
+529 ;;21,"51129309401 ")
+530 ;;904
+531 ;;21,"51129309402 ")
+532 ;;905
+533 ;;21,"51129309701 ")
+534 ;;906
+535 ;;21,"51129310801 ")
+536 ;;907
+537 ;;21,"51129310802 ")
+538 ;;908
+539 ;;21,"51129314701 ")
+540 ;;909
+541 ;;21,"51129314702 ")
+542 ;;910
+543 ;;21,"51129316101 ")
+544 ;;911
+545 ;;21,"51129316102 ")
+546 ;;912
+547 ;;21,"51129316601 ")
+548 ;;913
+549 ;;21,"51129316602 ")
+550 ;;914
+551 ;;21,"51129329801 ")
+552 ;;915
+553 ;;21,"51129329802 ")
+554 ;;916
+555 ;;21,"51129330701 ")
+556 ;;917
+557 ;;21,"51129330702 ")
+558 ;;918
+559 ;;21,"51129332001 ")
+560 ;;919
+561 ;;21,"51129332002 ")
+562 ;;920
+563 ;;21,"51129334501 ")
+564 ;;921
+565 ;;21,"51129334502 ")
+566 ;;922
+567 ;;21,"51129345001 ")
+568 ;;923
+569 ;;21,"51129345002 ")
+570 ;;924
+571 ;;21,"51129347601 ")
+572 ;;925
+573 ;;21,"51129347602 ")
+574 ;;926
+575 ;;21,"51129348201 ")
+576 ;;927
+577 ;;21,"51129348202 ")
+578 ;;928
+579 ;;21,"51129351801 ")
+580 ;;929
+581 ;;21,"51129351802 ")
+582 ;;930
+583 ;;21,"51129353301 ")
+584 ;;931
+585 ;;21,"51129353302 ")
+586 ;;932
+587 ;;21,"51129355701 ")
+588 ;;933
+589 ;;21,"51129355702 ")
+590 ;;934
+591 ;;21,"51129367301 ")
+592 ;;935
+593 ;;21,"51129367302 ")
+594 ;;936
+595 ;;21,"51129371501 ")
+596 ;;937
+597 ;;21,"51129371502 ")
+598 ;;938
+599 ;;21,"51129373801 ")
+600 ;;939
+601 ;;21,"51129373802 ")
+602 ;;940
+603 ;;21,"51129374501 ")
+604 ;;941
+605 ;;21,"51129374502 ")
+606 ;;942
+607 ;;21,"51129374601 ")
+608 ;;943
+609 ;;21,"51129374602 ")
+610 ;;944
+611 ;;21,"51129374701 ")
+612 ;;945
+613 ;;21,"51129374702 ")
+614 ;;946
+615 ;;21,"51129377301 ")
+616 ;;947
+617 ;;21,"51129377302 ")
+618 ;;948
+619 ;;21,"51129380701 ")
+620 ;;949
+621 ;;21,"51129380702 ")
+622 ;;950
+623 ;;21,"51129382301 ")
+624 ;;951
+625 ;;21,"51129382302 ")
+626 ;;952
+627 ;;21,"51129383001 ")
+628 ;;953
+629 ;;21,"51129383002 ")
+630 ;;954
+631 ;;21,"51129387201 ")
+632 ;;955
+633 ;;21,"51129387202 ")
+634 ;;956
+635 ;;21,"51129387701 ")
+636 ;;957
+637 ;;21,"51129387702 ")
+638 ;;958
+639 ;;21,"51129390001 ")
+640 ;;959
+641 ;;21,"51129390002 ")
+642 ;;960
+643 ;;21,"51129390901 ")
+644 ;;961
+645 ;;21,"51129390902 ")
+646 ;;962
+647 ;;21,"51129394001 ")
+648 ;;963
+649 ;;21,"51129394002 ")
+650 ;;964
+651 ;;21,"51129394101 ")
+652 ;;965
+653 ;;21,"51129394102 ")
+654 ;;966
+655 ;;21,"51129397601 ")
+656 ;;967
+657 ;;21,"51129397602 ")
+658 ;;968
+659 ;;21,"51129403501 ")
+660 ;;969
+661 ;;21,"51129403502 ")
+662 ;;970
+663 ;;21,"51129405301 ")
+664 ;;971
+665 ;;21,"51129405302 ")
+666 ;;972
+667 ;;21,"51129406501 ")
+668 ;;973
+669 ;;21,"51129406502 ")
+670 ;;974
+671 ;;21,"51129410501 ")
+672 ;;975
+673 ;;21,"51129410502 ")
+674 ;;976
+675 ;;21,"51129411701 ")
+676 ;;977
+677 ;;21,"51129411702 ")
+678 ;;978
+679 ;;21,"51129412201 ")
+680 ;;979
+681 ;;21,"51129412202 ")
+682 ;;980
+683 ;;21,"51129428601 ")
+684 ;;981
+685 ;;21,"51129428602 ")
+686 ;;982
+687 ;;21,"51129430701 ")
+688 ;;983
+689 ;;21,"51129430702 ")
+690 ;;984
+691 ;;21,"51129431501 ")
+692 ;;985
+693 ;;21,"51129431502 ")
+694 ;;986
+695 ;;21,"51129435501 ")
+696 ;;987
+697 ;;21,"51129435502 ")
+698 ;;988
+699 ;;21,"51129447001 ")
+700 ;;989
+701 ;;21,"51129447002 ")
+702 ;;990
+703 ;;21,"51129447901 ")
+704 ;;991
+705 ;;21,"51129447902 ")
+706 ;;992
+707 ;;21,"51129461301 ")
+708 ;;993
+709 ;;21,"51129461302 ")
+710 ;;994
+711 ;;21,"51129850501 ")
+712 ;;995
+713 ;;21,"51129903401 ")
+714 ;;996
+715 ;;21,"51138001330 ")
+716 ;;997
+717 ;;21,"51138001430 ")
+718 ;;998
+719 ;;21,"51138001530 ")
+720 ;;999
+721 ;;21,"51138001630 ")
+722 ;;1000
+723 ;;21,"51138003330 ")
+724 ;;1001