BGPM5BEH ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"11819012160 ")
+2 ;;269
+3 ;;21,"11819012190 ")
+4 ;;270
+5 ;;21,"12634049060 ")
+6 ;;2052
+7 ;;21,"12634072960 ")
+8 ;;2053
+9 ;;21,"12634075690 ")
+10 ;;271
+11 ;;21,"12634078480 ")
+12 ;;2054
+13 ;;21,"12634078912 ")
+14 ;;272
+15 ;;21,"12634079012 ")
+16 ;;2055
+17 ;;21,"13107000801 ")
+18 ;;273
+19 ;;21,"13107000805 ")
+20 ;;274
+21 ;;21,"13107000849 ")
+22 ;;275
+23 ;;21,"13107000850 ")
+24 ;;276
+25 ;;21,"13107000860 ")
+26 ;;277
+27 ;;21,"13107000890 ")
+28 ;;278
+29 ;;21,"13107000901 ")
+30 ;;279
+31 ;;21,"13107000905 ")
+32 ;;280
+33 ;;21,"13107000922 ")
+34 ;;281
+35 ;;21,"13107000950 ")
+36 ;;282
+37 ;;21,"13107000960 ")
+38 ;;283
+39 ;;21,"13107000990 ")
+40 ;;284
+41 ;;21,"13107001001 ")
+42 ;;285
+43 ;;21,"13107001005 ")
+44 ;;286
+45 ;;21,"13107001026 ")
+46 ;;287
+47 ;;21,"13107001050 ")
+48 ;;288
+49 ;;21,"13107001090 ")
+50 ;;289
+51 ;;21,"13411016302 ")
+52 ;;290
+53 ;;21,"13411016303 ")
+54 ;;291
+55 ;;21,"13411016306 ")
+56 ;;292
+57 ;;21,"13411016309 ")
+58 ;;293
+59 ;;21,"13411016310 ")
+60 ;;294
+61 ;;21,"13411016402 ")
+62 ;;295
+63 ;;21,"13411016403 ")
+64 ;;296
+65 ;;21,"13411016406 ")
+66 ;;297
+67 ;;21,"13411016409 ")
+68 ;;298
+69 ;;21,"13411016410 ")
+70 ;;299
+71 ;;21,"13411022001 ")
+72 ;;2056
+73 ;;21,"13411022002 ")
+74 ;;2057
+75 ;;21,"13411022003 ")
+76 ;;2058
+77 ;;21,"13411022006 ")
+78 ;;2059
+79 ;;21,"13411022010 ")
+80 ;;2060
+81 ;;21,"13411022101 ")
+82 ;;2061
+83 ;;21,"13411022102 ")
+84 ;;2062
+85 ;;21,"13411022103 ")
+86 ;;2063
+87 ;;21,"13411022106 ")
+88 ;;2064
+89 ;;21,"13411022110 ")
+90 ;;2065
+91 ;;21,"13411022302 ")
+92 ;;300
+93 ;;21,"13411022303 ")
+94 ;;301
+95 ;;21,"13411022306 ")
+96 ;;302
+97 ;;21,"13411022309 ")
+98 ;;303
+99 ;;21,"13411022310 ")
+100 ;;304
+101 ;;21,"13411034603 ")
+102 ;;2066
+103 ;;21,"13411034703 ")
+104 ;;2067
+105 ;;21,"13411034803 ")
+106 ;;2068
+107 ;;21,"13411034903 ")
+108 ;;2069
+109 ;;21,"13411035003 ")
+110 ;;2070
+111 ;;21,"13668000101 ")
+112 ;;305
+113 ;;21,"13668000105 ")
+114 ;;306
+115 ;;21,"13668000110 ")
+116 ;;307
+117 ;;21,"13668000112 ")
+118 ;;308
+119 ;;21,"13668000130 ")
+120 ;;309
+121 ;;21,"13668000160 ")
+122 ;;310
+123 ;;21,"13668000190 ")
+124 ;;311
+125 ;;21,"13668000201 ")
+126 ;;312
+127 ;;21,"13668000205 ")
+128 ;;313
+129 ;;21,"13668000212 ")
+130 ;;314
+131 ;;21,"13668000230 ")
+132 ;;315
+133 ;;21,"13668000260 ")
+134 ;;316
+135 ;;21,"13668000290 ")
+136 ;;317
+137 ;;21,"13668000301 ")
+138 ;;318
+139 ;;21,"13668000305 ")
+140 ;;319
+141 ;;21,"13668000312 ")
+142 ;;320
+143 ;;21,"13668000330 ")
+144 ;;321
+145 ;;21,"13668000360 ")
+146 ;;322
+147 ;;21,"13668000390 ")
+148 ;;323
+149 ;;21,"13668001205 ")
+150 ;;324
+151 ;;21,"13668001212 ")
+152 ;;325
+153 ;;21,"13668001230 ")
+154 ;;326
+155 ;;21,"13668001260 ")
+156 ;;327
+157 ;;21,"13668001290 ")
+158 ;;328
+159 ;;21,"13668001305 ")
+160 ;;329
+161 ;;21,"13668001312 ")
+162 ;;330
+163 ;;21,"13668001330 ")
+164 ;;331
+165 ;;21,"13668001360 ")
+166 ;;332
+167 ;;21,"13668001390 ")
+168 ;;333
+169 ;;21,"14550020210 ")
+170 ;;334
+171 ;;21,"14550020250 ")
+172 ;;335
+173 ;;21,"14550051702 ")
+174 ;;1
+175 ;;21,"14550051704 ")
+176 ;;2
+177 ;;21,"14550051802 ")
+178 ;;3
+179 ;;21,"14550051804 ")
+180 ;;4
+181 ;;21,"14550051902 ")
+182 ;;5
+183 ;;21,"14550051904 ")
+184 ;;6
+185 ;;21,"14565020210 ")
+186 ;;342
+187 ;;21,"14565020250 ")
+188 ;;343
+189 ;;21,"14593040901 ")
+190 ;;344
+191 ;;21,"14593040902 ")
+192 ;;345
+193 ;;21,"14593040905 ")
+194 ;;346
+195 ;;21,"14593040910 ")
+196 ;;347
+197 ;;21,"14593041001 ")
+198 ;;348
+199 ;;21,"14593041010 ")
+200 ;;349
+201 ;;21,"14593041101 ")
+202 ;;350
+203 ;;21,"14593041110 ")
+204 ;;351
+205 ;;21,"15548096701 ")
+206 ;;7
+207 ;;21,"15548096705 ")
+208 ;;8
+209 ;;21,"15548096801 ")
+210 ;;9
+211 ;;21,"15548096805 ")
+212 ;;10
+213 ;;21,"16252051801 ")
+214 ;;2081
+215 ;;21,"16252051901 ")
+216 ;;2082
+217 ;;21,"16252052001 ")
+218 ;;2083
+219 ;;21,"16252052300 ")
+220 ;;4339
+221 ;;21,"16252052301 ")
+222 ;;4340
+223 ;;21,"16252052400 ")
+224 ;;4341
+225 ;;21,"16252052401 ")
+226 ;;4342
+227 ;;21,"16252052500 ")
+228 ;;4343
+229 ;;21,"16252052501 ")
+230 ;;4344
+231 ;;21,"16364000101 ")
+232 ;;2084
+233 ;;21,"16364000201 ")
+234 ;;2085
+235 ;;21,"16364000301 ")
+236 ;;2086
+237 ;;21,"16590028730 ")
+238 ;;2087
+239 ;;21,"16590028760 ")
+240 ;;2088
+241 ;;21,"16590028771 ")
+242 ;;2089
+243 ;;21,"16590028790 ")
+244 ;;2090
+245 ;;21,"16590031330 ")
+246 ;;356
+247 ;;21,"16590031360 ")
+248 ;;357
+249 ;;21,"16590031390 ")
+250 ;;358
+251 ;;21,"16590041860 ")
+252 ;;11
+253 ;;21,"16729000101 ")
+254 ;;2092
+255 ;;21,"16729000201 ")
+256 ;;2093
+257 ;;21,"16729000301 ")
+258 ;;2094
+259 ;;21,"16729013900 ")
+260 ;;2095
+261 ;;21,"16729013916 ")
+262 ;;2096
+263 ;;21,"16729013917 ")
+264 ;;2097
+265 ;;21,"16729014000 ")
+266 ;;2098
+267 ;;21,"16729014016 ")
+268 ;;2099
+269 ;;21,"16729014017 ")
+270 ;;2100
+271 ;;21,"17856084402 ")
+272 ;;2101
+273 ;;21,"17856087302 ")
+274 ;;2102
+275 ;;21,"17856289802 ")
+276 ;;2103
+277 ;;21,"17856315802 ")
+278 ;;2104
+279 ;;21,"20091053101 ")
+280 ;;360
+281 ;;21,"20091053105 ")
+282 ;;361
+283 ;;21,"20091053110 ")
+284 ;;362
+285 ;;21,"20091053301 ")
+286 ;;363
+287 ;;21,"20091053305 ")
+288 ;;364
+289 ;;21,"20091053310 ")
+290 ;;365
+291 ;;21,"20091053501 ")
+292 ;;366
+293 ;;21,"20091053505 ")
+294 ;;367
+295 ;;21,"20091053510 ")
+296 ;;368
+297 ;;21,"21695046730 ")
+298 ;;2105
+299 ;;21,"21695046760 ")
+300 ;;2106
+301 ;;21,"21695046830 ")
+302 ;;2107
+303 ;;21,"21695046860 ")
+304 ;;2108
+305 ;;21,"21695046872 ")
+306 ;;2109
+307 ;;21,"21695046878 ")
+308 ;;2110
+309 ;;21,"21695046930 ")
+310 ;;2111
+311 ;;21,"21695046990 ")
+312 ;;2112
+313 ;;21,"21695047000 ")
+314 ;;2113
+315 ;;21,"21695047030 ")
+316 ;;2114
+317 ;;21,"21695047060 ")
+318 ;;2115
+319 ;;21,"21695047078 ")
+320 ;;2116
+321 ;;21,"21695047090 ")
+322 ;;2117
+323 ;;21,"21695047100 ")
+324 ;;369
+325 ;;21,"21695047130 ")
+326 ;;370
+327 ;;21,"21695047160 ")
+328 ;;371
+329 ;;21,"21695047178 ")
+330 ;;372
+331 ;;21,"21695047190 ")
+332 ;;373
+333 ;;21,"21695047230 ")
+334 ;;374
+335 ;;21,"21695047260 ")
+336 ;;375
+337 ;;21,"21695047300 ")
+338 ;;376
+339 ;;21,"21695047330 ")
+340 ;;377
+341 ;;21,"21695047360 ")
+342 ;;378
+343 ;;21,"21695047378 ")
+344 ;;379
+345 ;;21,"21695047390 ")
+346 ;;380
+347 ;;21,"21695056830 ")
+348 ;;12
+349 ;;21,"21695074630 ")
+350 ;;2119
+351 ;;21,"21695074690 ")
+352 ;;2120
+353 ;;21,"21695074730 ")
+354 ;;2121
+355 ;;21,"21695074760 ")
+356 ;;2122
+357 ;;21,"21695074790 ")
+358 ;;2123
+359 ;;21,"21695082860 ")
+360 ;;382
+361 ;;21,"21695082890 ")
+362 ;;383
+363 ;;21,"21695089400 ")
+364 ;;13
+365 ;;21,"23155005601 ")
+366 ;;2125
+367 ;;21,"23155005610 ")
+368 ;;2126
+369 ;;21,"23155005701 ")
+370 ;;2127
+371 ;;21,"23155005710 ")
+372 ;;2128
+373 ;;21,"23155005801 ")
+374 ;;2129
+375 ;;21,"23155005810 ")
+376 ;;2130
+377 ;;21,"23155010201 ")
+378 ;;385
+379 ;;21,"23155010205 ")
+380 ;;386
+381 ;;21,"23155010210 ")
+382 ;;387
+383 ;;21,"23155010301 ")
+384 ;;388
+385 ;;21,"23155010305 ")
+386 ;;389
+387 ;;21,"23155010310 ")
+388 ;;390
+389 ;;21,"23155010401 ")
+390 ;;391
+391 ;;21,"23155010405 ")
+392 ;;392
+393 ;;21,"23155010410 ")
+394 ;;393
+395 ;;21,"23155011501 ")
+396 ;;14
+397 ;;21,"23155011510 ")
+398 ;;15
+399 ;;21,"23155011601 ")
+400 ;;16
+401 ;;21,"23155011610 ")
+402 ;;17
+403 ;;21,"23155011701 ")
+404 ;;18
+405 ;;21,"23155011710 ")
+406 ;;19
+407 ;;21,"23490046000 ")
+408 ;;2137
+409 ;;21,"23490046100 ")
+410 ;;2138
+411 ;;21,"23490064103 ")
+412 ;;2139
+413 ;;21,"23490064106 ")
+414 ;;2140
+415 ;;21,"23490064200 ")
+416 ;;2141
+417 ;;21,"23490064203 ")
+418 ;;2142
+419 ;;21,"23490064206 ")
+420 ;;2143
+421 ;;21,"23490064209 ")
+422 ;;2144
+423 ;;21,"23490089800 ")
+424 ;;400
+425 ;;21,"23490089803 ")
+426 ;;401
+427 ;;21,"23490089806 ")
+428 ;;402
+429 ;;21,"23490089809 ")
+430 ;;403
+431 ;;21,"23490089900 ")
+432 ;;404
+433 ;;21,"23490089906 ")
+434 ;;405
+435 ;;21,"23490090003 ")
+436 ;;406
+437 ;;21,"23490090006 ")
+438 ;;407
+439 ;;21,"23490112807 ")
+440 ;;2145
+441 ;;21,"23490563201 ")
+442 ;;2146
+443 ;;21,"23490563202 ")
+444 ;;2147
+445 ;;21,"23490563203 ")
+446 ;;2148
+447 ;;21,"23490563301 ")
+448 ;;2149
+449 ;;21,"23490563403 ")
+450 ;;2150
+451 ;;21,"23490563503 ")
+452 ;;2151
+453 ;;21,"23490563801 ")
+454 ;;2152
+455 ;;21,"23490563802 ")
+456 ;;2153
+457 ;;21,"23490563901 ")
+458 ;;2154
+459 ;;21,"23490563902 ")
+460 ;;2155
+461 ;;21,"23490683801 ")
+462 ;;408
+463 ;;21,"23490683802 ")
+464 ;;409
+465 ;;21,"23490683803 ")
+466 ;;410
+467 ;;21,"23490683804 ")
+468 ;;411
+469 ;;21,"23490683901 ")
+470 ;;412
+471 ;;21,"23490683902 ")
+472 ;;413
+473 ;;21,"23490683903 ")
+474 ;;414
+475 ;;21,"23490683904 ")
+476 ;;415
+477 ;;21,"23490726001 ")
+478 ;;416
+479 ;;21,"23490726002 ")
+480 ;;417
+481 ;;21,"23490726003 ")
+482 ;;418
+483 ;;21,"23490726004 ")
+484 ;;419
+485 ;;21,"23490744901 ")
+486 ;;20
+487 ;;21,"23490745806 ")
+488 ;;421
+489 ;;21,"24196054501 ")
+490 ;;2157
+491 ;;21,"24196054505 ")
+492 ;;2158
+493 ;;21,"24196054510 ")
+494 ;;2159
+495 ;;21,"24196054601 ")
+496 ;;2160
+497 ;;21,"24196054605 ")
+498 ;;2161
+499 ;;21,"24196054610 ")
+500 ;;2162
+501 ;;21,"24236006402 ")
+502 ;;2163
+503 ;;21,"24236008702 ")
+504 ;;422
+505 ;;21,"24236015702 ")
+506 ;;423
+507 ;;21,"24236017202 ")
+508 ;;2164
+509 ;;21,"24236017702 ")
+510 ;;424
+511 ;;21,"24236018002 ")
+512 ;;2165
+513 ;;21,"24236021602 ")
+514 ;;2166
+515 ;;21,"24236023602 ")
+516 ;;425
+517 ;;21,"24236025202 ")
+518 ;;2167
+519 ;;21,"24236025502 ")
+520 ;;2168
+521 ;;21,"24236026602 ")
+522 ;;2169
+523 ;;21,"24236027602 ")
+524 ;;2170
+525 ;;21,"24236030402 ")
+526 ;;426
+527 ;;21,"24236031602 ")
+528 ;;427
+529 ;;21,"24236034002 ")
+530 ;;428
+531 ;;21,"24236036802 ")
+532 ;;2171
+533 ;;21,"24236038102 ")
+534 ;;2172
+535 ;;21,"24236043102 ")
+536 ;;2173
+537 ;;21,"24236048902 ")
+538 ;;2174
+539 ;;21,"24236056802 ")
+540 ;;429
+541 ;;21,"24236063202 ")
+542 ;;2175
+543 ;;21,"24236071502 ")
+544 ;;430
+545 ;;21,"24236079102 ")
+546 ;;431
+547 ;;21,"24236079902 ")
+548 ;;2176
+549 ;;21,"24236090802 ")
+550 ;;432
+551 ;;21,"24236098802 ")
+552 ;;433
+553 ;;21,"24236099402 ")
+554 ;;434
+555 ;;21,"24724001401 ")
+556 ;;435
+557 ;;21,"24724001450 ")
+558 ;;436
+559 ;;21,"24724001501 ")
+560 ;;437
+561 ;;21,"24724001550 ")
+562 ;;438
+563 ;;21,"24724001601 ")
+564 ;;439
+565 ;;21,"24724001650 ")
+566 ;;440
+567 ;;21,"26053006701 ")
+568 ;;2177
+569 ;;21,"26053015701 ")
+570 ;;2178
+571 ;;21,"26053015801 ")
+572 ;;2179
+573 ;;21,"26053015901 ")
+574 ;;2180
+575 ;;21,"26053016001 ")
+576 ;;2181
+577 ;;21,"26053016101 ")
+578 ;;2182
+579 ;;21,"26053016201 ")
+580 ;;2183
+581 ;;21,"26053016301 ")
+582 ;;2184
+583 ;;21,"26053016401 ")
+584 ;;21
+585 ;;21,"26053022001 ")
+586 ;;442
+587 ;;21,"26053022101 ")
+588 ;;443
+589 ;;21,"26053043901 ")
+590 ;;444
+591 ;;21,"33358015730 ")
+592 ;;2186
+593 ;;21,"33358015760 ")
+594 ;;2187
+595 ;;21,"33358015800 ")
+596 ;;2188
+597 ;;21,"33358015830 ")
+598 ;;2189
+599 ;;21,"33358015860 ")
+600 ;;2190
+601 ;;21,"33358016030 ")
+602 ;;2191
+603 ;;21,"33358016060 ")
+604 ;;2192
+605 ;;21,"33358016101 ")
+606 ;;2193
+607 ;;21,"33358016130 ")
+608 ;;2194
+609 ;;21,"33358016160 ")
+610 ;;2195
+611 ;;21,"33358023400 ")
+612 ;;445
+613 ;;21,"33358023430 ")
+614 ;;446
+615 ;;21,"33358023460 ")
+616 ;;447
+617 ;;21,"33358023560 ")
+618 ;;448
+619 ;;21,"33358023630 ")
+620 ;;449
+621 ;;21,"33358023660 ")
+622 ;;450
+623 ;;21,"33358023730 ")
+624 ;;451
+625 ;;21,"33358023760 ")
+626 ;;452
+627 ;;21,"33358046530 ")
+628 ;;453
+629 ;;21,"35356011300 ")
+630 ;;2196
+631 ;;21,"35356011330 ")
+632 ;;2197
+633 ;;21,"35356026928 ")
+634 ;;454
+635 ;;21,"35356036030 ")
+636 ;;2198
+637 ;;21,"41284052301 ")
+638 ;;4345
+639 ;;21,"41284052400 ")
+640 ;;4346
+641 ;;21,"41284052401 ")
+642 ;;4347
+643 ;;21,"41284052500 ")
+644 ;;4348
+645 ;;21,"41284052501 ")
+646 ;;4349
+647 ;;21,"42291030790 ")
+648 ;;2199
+649 ;;21,"42291030890 ")
+650 ;;2200
+651 ;;21,"42291030990 ")
+652 ;;2201
+653 ;;21,"42291061018 ")
+654 ;;455
+655 ;;21,"42291061036 ")
+656 ;;456
+657 ;;21,"42291061090 ")
+658 ;;457
+659 ;;21,"42291061118 ")
+660 ;;458
+661 ;;21,"43063001201 ")
+662 ;;459
+663 ;;21,"43063003430 ")
+664 ;;2202
+665 ;;21,"43063003490 ")
+666 ;;2203
+667 ;;21,"43063011990 ")
+668 ;;2204
+669 ;;21,"43063012090 ")
+670 ;;2205
+671 ;;21,"43063012130 ")
+672 ;;2206
+673 ;;21,"43063012190 ")
+674 ;;2207
+675 ;;21,"43063012230 ")
+676 ;;2208
+677 ;;21,"43063012290 ")
+678 ;;2209
+679 ;;21,"43353006553 ")
+680 ;;460
+681 ;;21,"43353006560 ")
+682 ;;461
+683 ;;21,"43353006580 ")
+684 ;;462
+685 ;;21,"43353006594 ")
+686 ;;463
+687 ;;21,"43353012530 ")
+688 ;;464
+689 ;;21,"43353012560 ")
+690 ;;465
+691 ;;21,"43353012630 ")
+692 ;;466
+693 ;;21,"43353012660 ")
+694 ;;467
+695 ;;21,"43353017145 ")
+696 ;;468
+697 ;;21,"43353017153 ")
+698 ;;469
+699 ;;21,"43353017160 ")
+700 ;;470
+701 ;;21,"43353017180 ")
+702 ;;471
+703 ;;21,"43353026160 ")
+704 ;;2210
+705 ;;21,"43353034030 ")
+706 ;;472
+707 ;;21,"43353034053 ")
+708 ;;473
+709 ;;21,"43353034060 ")
+710 ;;474
+711 ;;21,"43353034070 ")
+712 ;;475
+713 ;;21,"43353034075 ")
+714 ;;476
+715 ;;21,"43353034080 ")
+716 ;;477