BGPM5BBG ;IHS/MSC/SAT-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,"67544073531 ")
+2 ;;6171
+3 ;;21,"67544073532 ")
+4 ;;6172
+5 ;;21,"67544074421 ")
+6 ;;6173
+7 ;;21,"67544074432 ")
+8 ;;6174
+9 ;;21,"67544083230 ")
+10 ;;6175
+11 ;;21,"67544083232 ")
+12 ;;6176
+13 ;;21,"67544083253 ")
+14 ;;6177
+15 ;;21,"67544083260 ")
+16 ;;6178
+17 ;;21,"67544084830 ")
+18 ;;6179
+19 ;;21,"67544084831 ")
+20 ;;6180
+21 ;;21,"67544084832 ")
+22 ;;6181
+23 ;;21,"67544084845 ")
+24 ;;6182
+25 ;;21,"67544084853 ")
+26 ;;6183
+27 ;;21,"67544084860 ")
+28 ;;6184
+29 ;;21,"67544084870 ")
+30 ;;6185
+31 ;;21,"67544084880 ")
+32 ;;6186
+33 ;;21,"67544084892 ")
+34 ;;6187
+35 ;;21,"67544086330 ")
+36 ;;6188
+37 ;;21,"67544086332 ")
+38 ;;6189
+39 ;;21,"67544086360 ")
+40 ;;6190
+41 ;;21,"67544087432 ")
+42 ;;6191
+43 ;;21,"67544090615 ")
+44 ;;6192
+45 ;;21,"67544090630 ")
+46 ;;6193
+47 ;;21,"67544090645 ")
+48 ;;6194
+49 ;;21,"67544090653 ")
+50 ;;6195
+51 ;;21,"67544090660 ")
+52 ;;6196
+53 ;;21,"67544090671 ")
+54 ;;6197
+55 ;;21,"67544090673 ")
+56 ;;6198
+57 ;;21,"67544090815 ")
+58 ;;6199
+59 ;;21,"67544090830 ")
+60 ;;6200
+61 ;;21,"67544090845 ")
+62 ;;6201
+63 ;;21,"67544090853 ")
+64 ;;6202
+65 ;;21,"67544090860 ")
+66 ;;6203
+67 ;;21,"67544090873 ")
+68 ;;6204
+69 ;;21,"67544090880 ")
+70 ;;6205
+71 ;;21,"67544094032 ")
+72 ;;6206
+73 ;;21,"67544095915 ")
+74 ;;6207
+75 ;;21,"67544095930 ")
+76 ;;6208
+77 ;;21,"67544095932 ")
+78 ;;6209
+79 ;;21,"67544095945 ")
+80 ;;6210
+81 ;;21,"67544095953 ")
+82 ;;6211
+83 ;;21,"67544095960 ")
+84 ;;6212
+85 ;;21,"67544095980 ")
+86 ;;6213
+87 ;;21,"67651002803 ")
+88 ;;6214
+89 ;;21,"67651002903 ")
+90 ;;6215
+91 ;;21,"67651003003 ")
+92 ;;6216
+93 ;;21,"67787020601 ")
+94 ;;6217
+95 ;;21,"67787020610 ")
+96 ;;6218
+97 ;;21,"67787020630 ")
+98 ;;6219
+99 ;;21,"67787020701 ")
+100 ;;6220
+101 ;;21,"67787020710 ")
+102 ;;6221
+103 ;;21,"67787020730 ")
+104 ;;6222
+105 ;;21,"67787020801 ")
+106 ;;6223
+107 ;;21,"67787020810 ")
+108 ;;6224
+109 ;;21,"67787020830 ")
+110 ;;6225
+111 ;;21,"67787021205 ")
+112 ;;6226
+113 ;;21,"67787021230 ")
+114 ;;6227
+115 ;;21,"67787021290 ")
+116 ;;6228
+117 ;;21,"67787021361 ")
+118 ;;6229
+119 ;;21,"67787021430 ")
+120 ;;6230
+121 ;;21,"67787021490 ")
+122 ;;6231
+123 ;;21,"68071000330 ")
+124 ;;6232
+125 ;;21,"68071003415 ")
+126 ;;6233
+127 ;;21,"68071003430 ")
+128 ;;6234
+129 ;;21,"68071003490 ")
+130 ;;6235
+131 ;;21,"68071009230 ")
+132 ;;6236
+133 ;;21,"68071012830 ")
+134 ;;6237
+135 ;;21,"68071022215 ")
+136 ;;6238
+137 ;;21,"68071022230 ")
+138 ;;6239
+139 ;;21,"68071022245 ")
+140 ;;6240
+141 ;;21,"68071022290 ")
+142 ;;6241
+143 ;;21,"68071023130 ")
+144 ;;6242
+145 ;;21,"68071023152 ")
+146 ;;6243
+147 ;;21,"68071023160 ")
+148 ;;6244
+149 ;;21,"68071023190 ")
+150 ;;6245
+151 ;;21,"68071023330 ")
+152 ;;6246
+153 ;;21,"68071024290 ")
+154 ;;6247
+155 ;;21,"68071029930 ")
+156 ;;6248
+157 ;;21,"68071030030 ")
+158 ;;6249
+159 ;;21,"68071030060 ")
+160 ;;6250
+161 ;;21,"68071032330 ")
+162 ;;6251
+163 ;;21,"68071032360 ")
+164 ;;6252
+165 ;;21,"68071032390 ")
+166 ;;6253
+167 ;;21,"68071032530 ")
+168 ;;6254
+169 ;;21,"68071032630 ")
+170 ;;6255
+171 ;;21,"68071041690 ")
+172 ;;6256
+173 ;;21,"68071047430 ")
+174 ;;6257
+175 ;;21,"68071047460 ")
+176 ;;6258
+177 ;;21,"68071048660 ")
+178 ;;6259
+179 ;;21,"68071054830 ")
+180 ;;6260
+181 ;;21,"68071054860 ")
+182 ;;6261
+183 ;;21,"68071068515 ")
+184 ;;6262
+185 ;;21,"68071068530 ")
+186 ;;6263
+187 ;;21,"68071069430 ")
+188 ;;6264
+189 ;;21,"68071069460 ")
+190 ;;6265
+191 ;;21,"68071070260 ")
+192 ;;6266
+193 ;;21,"68071077730 ")
+194 ;;6267
+195 ;;21,"68071131700 ")
+196 ;;6268
+197 ;;21,"68071131800 ")
+198 ;;6269
+199 ;;21,"68084003101 ")
+200 ;;6270
+201 ;;21,"68084003111 ")
+202 ;;6271
+203 ;;21,"68084003201 ")
+204 ;;6272
+205 ;;21,"68084003211 ")
+206 ;;6273
+207 ;;21,"68084004401 ")
+208 ;;6274
+209 ;;21,"68084004411 ")
+210 ;;6275
+211 ;;21,"68084004485 ")
+212 ;;6276
+213 ;;21,"68084004501 ")
+214 ;;6277
+215 ;;21,"68084004511 ")
+216 ;;6278
+217 ;;21,"68084004585 ")
+218 ;;6279
+219 ;;21,"68084004601 ")
+220 ;;6280
+221 ;;21,"68084004611 ")
+222 ;;6281
+223 ;;21,"68084004685 ")
+224 ;;6282
+225 ;;21,"68084004701 ")
+226 ;;6283
+227 ;;21,"68084004711 ")
+228 ;;6284
+229 ;;21,"68084004785 ")
+230 ;;6285
+231 ;;21,"68084010000 ")
+232 ;;6286
+233 ;;21,"68084010006 ")
+234 ;;6287
+235 ;;21,"68084011901 ")
+236 ;;6288
+237 ;;21,"68084011911 ")
+238 ;;6289
+239 ;;21,"68084012001 ")
+240 ;;6290
+241 ;;21,"68084012011 ")
+242 ;;6291
+243 ;;21,"68084012101 ")
+244 ;;6292
+245 ;;21,"68084012111 ")
+246 ;;6293
+247 ;;21,"68084018001 ")
+248 ;;6294
+249 ;;21,"68084018011 ")
+250 ;;6295
+251 ;;21,"68084018101 ")
+252 ;;6296
+253 ;;21,"68084018111 ")
+254 ;;6297
+255 ;;21,"68084018201 ")
+256 ;;6298
+257 ;;21,"68084018211 ")
+258 ;;6299
+259 ;;21,"68084028514 ")
+260 ;;6300
+261 ;;21,"68084033001 ")
+262 ;;6301
+263 ;;21,"68084033011 ")
+264 ;;6302
+265 ;;21,"68084033101 ")
+266 ;;6303
+267 ;;21,"68084033111 ")
+268 ;;6304
+269 ;;21,"68084048401 ")
+270 ;;6305
+271 ;;21,"68084048411 ")
+272 ;;6306
+273 ;;21,"68084048501 ")
+274 ;;6307
+275 ;;21,"68084048511 ")
+276 ;;6308
+277 ;;21,"68084048601 ")
+278 ;;6309
+279 ;;21,"68084048611 ")
+280 ;;6310
+281 ;;21,"68115002160 ")
+282 ;;6311
+283 ;;21,"68115002220 ")
+284 ;;6312
+285 ;;21,"68115002314 ")
+286 ;;6313
+287 ;;21,"68115002348 ")
+288 ;;6314
+289 ;;21,"68115002490 ")
+290 ;;6315
+291 ;;21,"68115014390 ")
+292 ;;6316
+293 ;;21,"68115026145 ")
+294 ;;6317
+295 ;;21,"68115043930 ")
+296 ;;6318
+297 ;;21,"68180031101 ")
+298 ;;6319
+299 ;;21,"68180031102 ")
+300 ;;6320
+301 ;;21,"68180031201 ")
+302 ;;6321
+303 ;;21,"68180031202 ")
+304 ;;6322
+305 ;;21,"68180031301 ")
+306 ;;6323
+307 ;;21,"68180031302 ")
+308 ;;6324
+309 ;;21,"68180031401 ")
+310 ;;6325
+311 ;;21,"68180031406 ")
+312 ;;6326
+313 ;;21,"68180031501 ")
+314 ;;6327
+315 ;;21,"68180031506 ")
+316 ;;6328
+317 ;;21,"68180031601 ")
+318 ;;6329
+319 ;;21,"68180031606 ")
+320 ;;6330
+321 ;;21,"68180031701 ")
+322 ;;6331
+323 ;;21,"68180031706 ")
+324 ;;6332
+325 ;;21,"68180035101 ")
+326 ;;6333
+327 ;;21,"68180035103 ")
+328 ;;6334
+329 ;;21,"68180035106 ")
+330 ;;6335
+331 ;;21,"68180035108 ")
+332 ;;6336
+333 ;;21,"68180035109 ")
+334 ;;6337
+335 ;;21,"68180035201 ")
+336 ;;6338
+337 ;;21,"68180035202 ")
+338 ;;6339
+339 ;;21,"68180035203 ")
+340 ;;6340
+341 ;;21,"68180035205 ")
+342 ;;6341
+343 ;;21,"68180035206 ")
+344 ;;6342
+345 ;;21,"68180035209 ")
+346 ;;6343
+347 ;;21,"68180035211 ")
+348 ;;6344
+349 ;;21,"68180035301 ")
+350 ;;6345
+351 ;;21,"68180035302 ")
+352 ;;6346
+353 ;;21,"68180035303 ")
+354 ;;6347
+355 ;;21,"68180035305 ")
+356 ;;6348
+357 ;;21,"68180035306 ")
+358 ;;6349
+359 ;;21,"68180035309 ")
+360 ;;6350
+361 ;;21,"68180035311 ")
+362 ;;6351
+363 ;;21,"68258700303 ")
+364 ;;6352
+365 ;;21,"68258700403 ")
+366 ;;6353
+367 ;;21,"68258700503 ")
+368 ;;6354
+369 ;;21,"68258700603 ")
+370 ;;6355
+371 ;;21,"68258700703 ")
+372 ;;6356
+373 ;;21,"68258700803 ")
+374 ;;6357
+375 ;;21,"68258700903 ")
+376 ;;6358
+377 ;;21,"68258701003 ")
+378 ;;6359
+379 ;;21,"68258705401 ")
+380 ;;6360
+381 ;;21,"68258705409 ")
+382 ;;6361
+383 ;;21,"68258705509 ")
+384 ;;6362
+385 ;;21,"68258708103 ")
+386 ;;6363
+387 ;;21,"68258708509 ")
+388 ;;6364
+389 ;;21,"68258708606 ")
+390 ;;6365
+391 ;;21,"68258710103 ")
+392 ;;6366
+393 ;;21,"68258710106 ")
+394 ;;6367
+395 ;;21,"68258710902 ")
+396 ;;6368
+397 ;;21,"68258710903 ")
+398 ;;6369
+399 ;;21,"68258710909 ")
+400 ;;6370
+401 ;;21,"68258711501 ")
+402 ;;6371
+403 ;;21,"68258711601 ")
+404 ;;6372
+405 ;;21,"68258711603 ")
+406 ;;6373
+407 ;;21,"68258711703 ")
+408 ;;6374
+409 ;;21,"68382000101 ")
+410 ;;6375
+411 ;;21,"68382000105 ")
+412 ;;6376
+413 ;;21,"68382000106 ")
+414 ;;6377
+415 ;;21,"68382000110 ")
+416 ;;6378
+417 ;;21,"68382000116 ")
+418 ;;6379
+419 ;;21,"68382001801 ")
+420 ;;6380
+421 ;;21,"68382001805 ")
+422 ;;6381
+423 ;;21,"68382001806 ")
+424 ;;6382
+425 ;;21,"68382001810 ")
+426 ;;6383
+427 ;;21,"68382001814 ")
+428 ;;6384
+429 ;;21,"68382001816 ")
+430 ;;6385
+431 ;;21,"68382001901 ")
+432 ;;6386
+433 ;;21,"68382001905 ")
+434 ;;6387
+435 ;;21,"68382001906 ")
+436 ;;6388
+437 ;;21,"68382001910 ")
+438 ;;6389
+439 ;;21,"68382001914 ")
+440 ;;6390
+441 ;;21,"68382001916 ")
+442 ;;6391
+443 ;;21,"68382002001 ")
+444 ;;6392
+445 ;;21,"68382002005 ")
+446 ;;6393
+447 ;;21,"68382002006 ")
+448 ;;6394
+449 ;;21,"68382002010 ")
+450 ;;6395
+451 ;;21,"68382002014 ")
+452 ;;6396
+453 ;;21,"68382002016 ")
+454 ;;6397
+455 ;;21,"68382002101 ")
+456 ;;6398
+457 ;;21,"68382002105 ")
+458 ;;6399
+459 ;;21,"68382002106 ")
+460 ;;6400
+461 ;;21,"68382002110 ")
+462 ;;6401
+463 ;;21,"68382002114 ")
+464 ;;6402
+465 ;;21,"68382002116 ")
+466 ;;6403
+467 ;;21,"68382003401 ")
+468 ;;6404
+469 ;;21,"68382003405 ")
+470 ;;6405
+471 ;;21,"68382003406 ")
+472 ;;6406
+473 ;;21,"68382003410 ")
+474 ;;6407
+475 ;;21,"68382003416 ")
+476 ;;6408
+477 ;;21,"68382003501 ")
+478 ;;6409
+479 ;;21,"68382003505 ")
+480 ;;6410
+481 ;;21,"68382003506 ")
+482 ;;6411
+483 ;;21,"68382003510 ")
+484 ;;6412
+485 ;;21,"68382003516 ")
+486 ;;6413
+487 ;;21,"68382003601 ")
+488 ;;6414
+489 ;;21,"68382003605 ")
+490 ;;6415
+491 ;;21,"68382003606 ")
+492 ;;6416
+493 ;;21,"68382003610 ")
+494 ;;6417
+495 ;;21,"68382003616 ")
+496 ;;6418
+497 ;;21,"68382004301 ")
+498 ;;6419
+499 ;;21,"68382004305 ")
+500 ;;6420
+501 ;;21,"68382004306 ")
+502 ;;6421
+503 ;;21,"68382004310 ")
+504 ;;6422
+505 ;;21,"68382004314 ")
+506 ;;6423
+507 ;;21,"68382004316 ")
+508 ;;6424
+509 ;;21,"68382004318 ")
+510 ;;6425
+511 ;;21,"68382004401 ")
+512 ;;6426
+513 ;;21,"68382004405 ")
+514 ;;6427
+515 ;;21,"68382004406 ")
+516 ;;6428
+517 ;;21,"68382004410 ")
+518 ;;6429
+519 ;;21,"68382004414 ")
+520 ;;6430
+521 ;;21,"68382004416 ")
+522 ;;6431
+523 ;;21,"68382004501 ")
+524 ;;6432
+525 ;;21,"68382004506 ")
+526 ;;6433
+527 ;;21,"68382004514 ")
+528 ;;6434
+529 ;;21,"68382004516 ")
+530 ;;6435
+531 ;;21,"68382004540 ")
+532 ;;6436
+533 ;;21,"68382009701 ")
+534 ;;6437
+535 ;;21,"68382009705 ")
+536 ;;6438
+537 ;;21,"68382009706 ")
+538 ;;6439
+539 ;;21,"68382009710 ")
+540 ;;6440
+541 ;;21,"68382009716 ")
+542 ;;6441
+543 ;;21,"68382009801 ")
+544 ;;6442
+545 ;;21,"68382009805 ")
+546 ;;6443
+547 ;;21,"68382009806 ")
+548 ;;6444
+549 ;;21,"68382009810 ")
+550 ;;6445
+551 ;;21,"68382009816 ")
+552 ;;6446
+553 ;;21,"68382009901 ")
+554 ;;6447
+555 ;;21,"68382009905 ")
+556 ;;6448
+557 ;;21,"68382009906 ")
+558 ;;6449
+559 ;;21,"68382009910 ")
+560 ;;6450
+561 ;;21,"68382009916 ")
+562 ;;6451
+563 ;;21,"68382010006 ")
+564 ;;6452
+565 ;;21,"68382010101 ")
+566 ;;6453
+567 ;;21,"68382010105 ")
+568 ;;6454
+569 ;;21,"68382010106 ")
+570 ;;6455
+571 ;;21,"68382010110 ")
+572 ;;6456
+573 ;;21,"68382010114 ")
+574 ;;6457
+575 ;;21,"68382010116 ")
+576 ;;6458
+577 ;;21,"68382010118 ")
+578 ;;6459
+579 ;;21,"68387011230 ")
+580 ;;6460
+581 ;;21,"68387011930 ")
+582 ;;6461
+583 ;;21,"68387012030 ")
+584 ;;6462
+585 ;;21,"68387012060 ")
+586 ;;6463
+587 ;;21,"68387012090 ")
+588 ;;6464
+589 ;;21,"68387012530 ")
+590 ;;6465
+591 ;;21,"68387016030 ")
+592 ;;6466
+593 ;;21,"68387016530 ")
+594 ;;6467
+595 ;;21,"68387016560 ")
+596 ;;6468
+597 ;;21,"68387016590 ")
+598 ;;6469
+599 ;;21,"68387016630 ")
+600 ;;6470
+601 ;;21,"68387016660 ")
+602 ;;6471
+603 ;;21,"68387033015 ")
+604 ;;6472
+605 ;;21,"68387033030 ")
+606 ;;6473
+607 ;;21,"68387033060 ")
+608 ;;6474
+609 ;;21,"68387033515 ")
+610 ;;6475
+611 ;;21,"68387033524 ")
+612 ;;6476
+613 ;;21,"68387033530 ")
+614 ;;6477
+615 ;;21,"68387033560 ")
+616 ;;6478
+617 ;;21,"68387033590 ")
+618 ;;6479
+619 ;;21,"68387033630 ")
+620 ;;6480
+621 ;;21,"68387033690 ")
+622 ;;6481
+623 ;;21,"68387033724 ")
+624 ;;6482
+625 ;;21,"68387033730 ")
+626 ;;6483
+627 ;;21,"68387033830 ")
+628 ;;6484
+629 ;;21,"68387033930 ")
+630 ;;6485
+631 ;;21,"68387034830 ")
+632 ;;6486
+633 ;;21,"68387036060 ")
+634 ;;6487
+635 ;;21,"68387036307 ")
+636 ;;6488
+637 ;;21,"68387036315 ")
+638 ;;6489
+639 ;;21,"68387036330 ")
+640 ;;6490
+641 ;;21,"68462011301 ")
+642 ;;6491
+643 ;;21,"68462011305 ")
+644 ;;6492
+645 ;;21,"68462011401 ")
+646 ;;6493
+647 ;;21,"68462011405 ")
+648 ;;6494
+649 ;;21,"68462011501 ")
+650 ;;6495
+651 ;;21,"68462011505 ")
+652 ;;6496
+653 ;;21,"68533001000 ")
+654 ;;6497
+655 ;;21,"68533001017 ")
+656 ;;6498
+657 ;;21,"68533001028 ")
+658 ;;6499
+659 ;;21,"68533001040 ")
+660 ;;6500
+661 ;;21,"68533001100 ")
+662 ;;6501
+663 ;;21,"68533001117 ")
+664 ;;6502
+665 ;;21,"68533001126 ")
+666 ;;6503
+667 ;;21,"68533001140 ")
+668 ;;6504
+669 ;;21,"68533001200 ")
+670 ;;6505
+671 ;;21,"68533001217 ")
+672 ;;6506
+673 ;;21,"68533001225 ")
+674 ;;6507
+675 ;;21,"68533001240 ")
+676 ;;6508
+677 ;;21,"68533005500 ")
+678 ;;6509
+679 ;;21,"68533005512 ")
+680 ;;6510
+681 ;;21,"68533005525 ")
+682 ;;6511
+683 ;;21,"68533005540 ")
+684 ;;6512
+685 ;;21,"68533005600 ")
+686 ;;6513
+687 ;;21,"68533005612 ")
+688 ;;6514
+689 ;;21,"68533005625 ")
+690 ;;6515
+691 ;;21,"68533005640 ")
+692 ;;6516
+693 ;;21,"68533005700 ")
+694 ;;6517
+695 ;;21,"68533005712 ")
+696 ;;6518
+697 ;;21,"68533005725 ")
+698 ;;6519
+699 ;;21,"68533005740 ")
+700 ;;6520
+701 ;;21,"68533053350 ")
+702 ;;6521
+703 ;;21,"68533053390 ")
+704 ;;6522