BGPM5AIS ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"55154960800 ")
+2 ;;1327
+3 ;;21,"55154960900 ")
+4 ;;1328
+5 ;;21,"55154960908 ")
+6 ;;1329
+7 ;;21,"55154961208 ")
+8 ;;1330
+9 ;;21,"55160010601 ")
+10 ;;1331
+11 ;;21,"55160010610 ")
+12 ;;1332
+13 ;;21,"55160010701 ")
+14 ;;1333
+15 ;;21,"55160010710 ")
+16 ;;1334
+17 ;;21,"55160010801 ")
+18 ;;1335
+19 ;;21,"55160010810 ")
+20 ;;1336
+21 ;;21,"55160010901 ")
+22 ;;1337
+23 ;;21,"55160010905 ")
+24 ;;1338
+25 ;;21,"55160010910 ")
+26 ;;1339
+27 ;;21,"55160011801 ")
+28 ;;1340
+29 ;;21,"55160011901 ")
+30 ;;1341
+31 ;;21,"55160011910 ")
+32 ;;1342
+33 ;;21,"55160012001 ")
+34 ;;1343
+35 ;;21,"55160012010 ")
+36 ;;1344
+37 ;;21,"55160013201 ")
+38 ;;1345
+39 ;;21,"55160013301 ")
+40 ;;1346
+41 ;;21,"55289009330 ")
+42 ;;1347
+43 ;;21,"55289009360 ")
+44 ;;1348
+45 ;;21,"55289009390 ")
+46 ;;1349
+47 ;;21,"55289009393 ")
+48 ;;1350
+49 ;;21,"55289009397 ")
+50 ;;1351
+51 ;;21,"55289013197 ")
+52 ;;1352
+53 ;;21,"55289022701 ")
+54 ;;1353
+55 ;;21,"55289022730 ")
+56 ;;1354
+57 ;;21,"55289022790 ")
+58 ;;1355
+59 ;;21,"55289022797 ")
+60 ;;1356
+61 ;;21,"55289022801 ")
+62 ;;1357
+63 ;;21,"55289022803 ")
+64 ;;1358
+65 ;;21,"55289022806 ")
+66 ;;1359
+67 ;;21,"55289022814 ")
+68 ;;1360
+69 ;;21,"55289022830 ")
+70 ;;1361
+71 ;;21,"55289022860 ")
+72 ;;1362
+73 ;;21,"55289022890 ")
+74 ;;1363
+75 ;;21,"55289022897 ")
+76 ;;1364
+77 ;;21,"55289023301 ")
+78 ;;1365
+79 ;;21,"55289023310 ")
+80 ;;1366
+81 ;;21,"55289023312 ")
+82 ;;1367
+83 ;;21,"55289023360 ")
+84 ;;1368
+85 ;;21,"55289023390 ")
+86 ;;1369
+87 ;;21,"55289023397 ")
+88 ;;1370
+89 ;;21,"55289023401 ")
+90 ;;1371
+91 ;;21,"55289023430 ")
+92 ;;1372
+93 ;;21,"55289023460 ")
+94 ;;1373
+95 ;;21,"55289023490 ")
+96 ;;1374
+97 ;;21,"55289025430 ")
+98 ;;1375
+99 ;;21,"55289038230 ")
+100 ;;1376
+101 ;;21,"55289038293 ")
+102 ;;1377
+103 ;;21,"55289041301 ")
+104 ;;1378
+105 ;;21,"55289041314 ")
+106 ;;1379
+107 ;;21,"55289041330 ")
+108 ;;1380
+109 ;;21,"55289041360 ")
+110 ;;1381
+111 ;;21,"55289041390 ")
+112 ;;1382
+113 ;;21,"55289041393 ")
+114 ;;1383
+115 ;;21,"55289041394 ")
+116 ;;1384
+117 ;;21,"55289041397 ")
+118 ;;1385
+119 ;;21,"55289058730 ")
+120 ;;1386
+121 ;;21,"55289062730 ")
+122 ;;1387
+123 ;;21,"55289063030 ")
+124 ;;1388
+125 ;;21,"55289063090 ")
+126 ;;1389
+127 ;;21,"55289065330 ")
+128 ;;1390
+129 ;;21,"55289065390 ")
+130 ;;1391
+131 ;;21,"55289085530 ")
+132 ;;1392
+133 ;;21,"55289090230 ")
+134 ;;1393
+135 ;;21,"55289098630 ")
+136 ;;1394
+137 ;;21,"55289098830 ")
+138 ;;1395
+139 ;;21,"55289099330 ")
+140 ;;1396
+141 ;;21,"55289099360 ")
+142 ;;1397
+143 ;;21,"55289099390 ")
+144 ;;1398
+145 ;;21,"55370012200 ")
+146 ;;1399
+147 ;;21,"55370012400 ")
+148 ;;1400
+149 ;;21,"55370045707 ")
+150 ;;1401
+151 ;;21,"55370045807 ")
+152 ;;1402
+153 ;;21,"55370045907 ")
+154 ;;1403
+155 ;;21,"55370082007 ")
+156 ;;1404
+157 ;;21,"55370082008 ")
+158 ;;1405
+159 ;;21,"55390000310 ")
+160 ;;1406
+161 ;;21,"55390007310 ")
+162 ;;1407
+163 ;;21,"55390013020 ")
+164 ;;1408
+165 ;;21,"55390013040 ")
+166 ;;1409
+167 ;;21,"55390034810 ")
+168 ;;1410
+169 ;;21,"55390037310 ")
+170 ;;1411
+171 ;;21,"55567001500 ")
+172 ;;1412
+173 ;;21,"55567001535 ")
+174 ;;1413
+175 ;;21,"55567001600 ")
+176 ;;1414
+177 ;;21,"55567001635 ")
+178 ;;1415
+179 ;;21,"55567002500 ")
+180 ;;1416
+181 ;;21,"55567002506 ")
+182 ;;1417
+183 ;;21,"55567002518 ")
+184 ;;1418
+185 ;;21,"55567002535 ")
+186 ;;1419
+187 ;;21,"55567002800 ")
+188 ;;1420
+189 ;;21,"55567002815 ")
+190 ;;1421
+191 ;;21,"55567002818 ")
+192 ;;1422
+193 ;;21,"55567002835 ")
+194 ;;1423
+195 ;;21,"55567002900 ")
+196 ;;1424
+197 ;;21,"55567002915 ")
+198 ;;1425
+199 ;;21,"55567002918 ")
+200 ;;1426
+201 ;;21,"55567002935 ")
+202 ;;1427
+203 ;;21,"55887007401 ")
+204 ;;1428
+205 ;;21,"55887007430 ")
+206 ;;1429
+207 ;;21,"55887007460 ")
+208 ;;1430
+209 ;;21,"55887007490 ")
+210 ;;1431
+211 ;;21,"55887018030 ")
+212 ;;1432
+213 ;;21,"55887025930 ")
+214 ;;1433
+215 ;;21,"55887025960 ")
+216 ;;1434
+217 ;;21,"55887026730 ")
+218 ;;1435
+219 ;;21,"55887027401 ")
+220 ;;1436
+221 ;;21,"55887027430 ")
+222 ;;1437
+223 ;;21,"55887027460 ")
+224 ;;1438
+225 ;;21,"55887027490 ")
+226 ;;1439
+227 ;;21,"55887034830 ")
+228 ;;1440
+229 ;;21,"55887034920 ")
+230 ;;1441
+231 ;;21,"55887034930 ")
+232 ;;1442
+233 ;;21,"55887034990 ")
+234 ;;1443
+235 ;;21,"55887045330 ")
+236 ;;1444
+237 ;;21,"55887045360 ")
+238 ;;1445
+239 ;;21,"55887047401 ")
+240 ;;1446
+241 ;;21,"55887047430 ")
+242 ;;1447
+243 ;;21,"55887047460 ")
+244 ;;1448
+245 ;;21,"55887047490 ")
+246 ;;1449
+247 ;;21,"55887047492 ")
+248 ;;1450
+249 ;;21,"55887055901 ")
+250 ;;1451
+251 ;;21,"55887055930 ")
+252 ;;1452
+253 ;;21,"55887055960 ")
+254 ;;1453
+255 ;;21,"55887055990 ")
+256 ;;1454
+257 ;;21,"55887057560 ")
+258 ;;1455
+259 ;;21,"55887058501 ")
+260 ;;1456
+261 ;;21,"55887058530 ")
+262 ;;1457
+263 ;;21,"55887058560 ")
+264 ;;1458
+265 ;;21,"55887058582 ")
+266 ;;1459
+267 ;;21,"55887058590 ")
+268 ;;1460
+269 ;;21,"55887059901 ")
+270 ;;1461
+271 ;;21,"55887059930 ")
+272 ;;1462
+273 ;;21,"55887059960 ")
+274 ;;1463
+275 ;;21,"55887059990 ")
+276 ;;1464
+277 ;;21,"55887061330 ")
+278 ;;1465
+279 ;;21,"55887061360 ")
+280 ;;1466
+281 ;;21,"55887061382 ")
+282 ;;1467
+283 ;;21,"55887062501 ")
+284 ;;1468
+285 ;;21,"55887062530 ")
+286 ;;1469
+287 ;;21,"55887062560 ")
+288 ;;1470
+289 ;;21,"55887062590 ")
+290 ;;1471
+291 ;;21,"55887072930 ")
+292 ;;1472
+293 ;;21,"55887073160 ")
+294 ;;1473
+295 ;;21,"55887079290 ")
+296 ;;1474
+297 ;;21,"55887083220 ")
+298 ;;1475
+299 ;;21,"55887083230 ")
+300 ;;1476
+301 ;;21,"55887083260 ")
+302 ;;1477
+303 ;;21,"55887083801 ")
+304 ;;1478
+305 ;;21,"55887083830 ")
+306 ;;1479
+307 ;;21,"55887083860 ")
+308 ;;1480
+309 ;;21,"55887083890 ")
+310 ;;1481
+311 ;;21,"55887099830 ")
+312 ;;1482
+313 ;;21,"55887099860 ")
+314 ;;1483
+315 ;;21,"55887099890 ")
+316 ;;1484
+317 ;;21,"57451057901 ")
+318 ;;1485
+319 ;;21,"57451057902 ")
+320 ;;1486
+321 ;;21,"57451058001 ")
+322 ;;1487
+323 ;;21,"57451058002 ")
+324 ;;1488
+325 ;;21,"57451058101 ")
+326 ;;1489
+327 ;;21,"57451058102 ")
+328 ;;1490
+329 ;;21,"57451062101 ")
+330 ;;1491
+331 ;;21,"57451062102 ")
+332 ;;1492
+333 ;;21,"57451062201 ")
+334 ;;1493
+335 ;;21,"57451062202 ")
+336 ;;1494
+337 ;;21,"57451062301 ")
+338 ;;1495
+339 ;;21,"57451062302 ")
+340 ;;1496
+341 ;;21,"57451500301 ")
+342 ;;1497
+343 ;;21,"57451500302 ")
+344 ;;1498
+345 ;;21,"57451500303 ")
+346 ;;1499
+347 ;;21,"57451500401 ")
+348 ;;1500
+349 ;;21,"57451500402 ")
+350 ;;1501
+351 ;;21,"57451500403 ")
+352 ;;1502
+353 ;;21,"57451500501 ")
+354 ;;1503
+355 ;;21,"57451500502 ")
+356 ;;1504
+357 ;;21,"57451500503 ")
+358 ;;1505
+359 ;;21,"57451500601 ")
+360 ;;1506
+361 ;;21,"57451500602 ")
+362 ;;1507
+363 ;;21,"57451500603 ")
+364 ;;1508
+365 ;;21,"57451500701 ")
+366 ;;1509
+367 ;;21,"57451500702 ")
+368 ;;1510
+369 ;;21,"57451500703 ")
+370 ;;1511
+371 ;;21,"57451500704 ")
+372 ;;1512
+373 ;;21,"57451500901 ")
+374 ;;1513
+375 ;;21,"57451500902 ")
+376 ;;1514
+377 ;;21,"57451500903 ")
+378 ;;1515
+379 ;;21,"57451501001 ")
+380 ;;1516
+381 ;;21,"57451501002 ")
+382 ;;1517
+383 ;;21,"57451501003 ")
+384 ;;1518
+385 ;;21,"57451501101 ")
+386 ;;1519
+387 ;;21,"57451501102 ")
+388 ;;1520
+389 ;;21,"57451501103 ")
+390 ;;1521
+391 ;;21,"57451501801 ")
+392 ;;1522
+393 ;;21,"57451501802 ")
+394 ;;1523
+395 ;;21,"57451501803 ")
+396 ;;1524
+397 ;;21,"57451501901 ")
+398 ;;1525
+399 ;;21,"57451501902 ")
+400 ;;1526
+401 ;;21,"57451501903 ")
+402 ;;1527
+403 ;;21,"57451502001 ")
+404 ;;1528
+405 ;;21,"57451502002 ")
+406 ;;1529
+407 ;;21,"57451502003 ")
+408 ;;1530
+409 ;;21,"57664016252 ")
+410 ;;1531
+411 ;;21,"57664016258 ")
+412 ;;1532
+413 ;;21,"57664016259 ")
+414 ;;1533
+415 ;;21,"57664016608 ")
+416 ;;1534
+417 ;;21,"57664016618 ")
+418 ;;1535
+419 ;;21,"57664016652 ")
+420 ;;1536
+421 ;;21,"57664016658 ")
+422 ;;1537
+423 ;;21,"57664016708 ")
+424 ;;1538
+425 ;;21,"57664016718 ")
+426 ;;1539
+427 ;;21,"57664016752 ")
+428 ;;1540
+429 ;;21,"57664016758 ")
+430 ;;1541
+431 ;;21,"57664016759 ")
+432 ;;1542
+433 ;;21,"57664026413 ")
+434 ;;1543
+435 ;;21,"57664026418 ")
+436 ;;1544
+437 ;;21,"57664026488 ")
+438 ;;1545
+439 ;;21,"57664026513 ")
+440 ;;1546
+441 ;;21,"57664026518 ")
+442 ;;1547
+443 ;;21,"57664026588 ")
+444 ;;1548
+445 ;;21,"57664026613 ")
+446 ;;1549
+447 ;;21,"57664026618 ")
+448 ;;1550
+449 ;;21,"57664026688 ")
+450 ;;1551
+451 ;;21,"57664029308 ")
+452 ;;1552
+453 ;;21,"57664029318 ")
+454 ;;1553
+455 ;;21,"57664029383 ")
+456 ;;1554
+457 ;;21,"57664029399 ")
+458 ;;1555
+459 ;;21,"57664029408 ")
+460 ;;1556
+461 ;;21,"57664029418 ")
+462 ;;1557
+463 ;;21,"57664029508 ")
+464 ;;1558
+465 ;;21,"57664029518 ")
+466 ;;1559
+467 ;;21,"57664029571 ")
+468 ;;1560
+469 ;;21,"57664029573 ")
+470 ;;1561
+471 ;;21,"57664029608 ")
+472 ;;1562
+473 ;;21,"57664029618 ")
+474 ;;1563
+475 ;;21,"57664029699 ")
+476 ;;1564
+477 ;;21,"57664029708 ")
+478 ;;1565
+479 ;;21,"57664029718 ")
+480 ;;1566
+481 ;;21,"57664029799 ")
+482 ;;1567
+483 ;;21,"57664047708 ")
+484 ;;1568
+485 ;;21,"57664047718 ")
+486 ;;1569
+487 ;;21,"57664047752 ")
+488 ;;1570
+489 ;;21,"57664047758 ")
+490 ;;1571
+491 ;;21,"57664050608 ")
+492 ;;1572
+493 ;;21,"57664050618 ")
+494 ;;1573
+495 ;;21,"57664050652 ")
+496 ;;1574
+497 ;;21,"57664050654 ")
+498 ;;1575
+499 ;;21,"57664050658 ")
+500 ;;1576
+501 ;;21,"57664050659 ")
+502 ;;1577
+503 ;;21,"57866315501 ")
+504 ;;1578
+505 ;;21,"57866333001 ")
+506 ;;1579
+507 ;;21,"57866333002 ")
+508 ;;1580
+509 ;;21,"57866333003 ")
+510 ;;1581
+511 ;;21,"57866333004 ")
+512 ;;1582
+513 ;;21,"57866333005 ")
+514 ;;1583
+515 ;;21,"57866333101 ")
+516 ;;1584
+517 ;;21,"57866333102 ")
+518 ;;1585
+519 ;;21,"57866333103 ")
+520 ;;1586
+521 ;;21,"57866333201 ")
+522 ;;1587
+523 ;;21,"57866333202 ")
+524 ;;1588
+525 ;;21,"57866333203 ")
+526 ;;1589
+527 ;;21,"57866430901 ")
+528 ;;1590
+529 ;;21,"57866430902 ")
+530 ;;1591
+531 ;;21,"57866430903 ")
+532 ;;1592
+533 ;;21,"57866431301 ")
+534 ;;1593
+535 ;;21,"57866431302 ")
+536 ;;1594
+537 ;;21,"57866431304 ")
+538 ;;1595
+539 ;;21,"57866431401 ")
+540 ;;1596
+541 ;;21,"57866431402 ")
+542 ;;1597
+543 ;;21,"57866431501 ")
+544 ;;1598
+545 ;;21,"57866431600 ")
+546 ;;1599
+547 ;;21,"57866431601 ")
+548 ;;1600
+549 ;;21,"57866431602 ")
+550 ;;1601
+551 ;;21,"57866657800 ")
+552 ;;1602
+553 ;;21,"57866657801 ")
+554 ;;1603
+555 ;;21,"57866657802 ")
+556 ;;1604
+557 ;;21,"57866657803 ")
+558 ;;1605
+559 ;;21,"57866657805 ")
+560 ;;1606
+561 ;;21,"57866657901 ")
+562 ;;1607
+563 ;;21,"57866657902 ")
+564 ;;1608
+565 ;;21,"57866658001 ")
+566 ;;1609
+567 ;;21,"57866658101 ")
+568 ;;1610
+569 ;;21,"57866706801 ")
+570 ;;1611
+571 ;;21,"57866706802 ")
+572 ;;1612
+573 ;;21,"58016000100 ")
+574 ;;1613
+575 ;;21,"58016000101 ")
+576 ;;1614
+577 ;;21,"58016000102 ")
+578 ;;1615
+579 ;;21,"58016000103 ")
+580 ;;1616
+581 ;;21,"58016000104 ")
+582 ;;1617
+583 ;;21,"58016000105 ")
+584 ;;1618
+585 ;;21,"58016000106 ")
+586 ;;1619
+587 ;;21,"58016000107 ")
+588 ;;1620
+589 ;;21,"58016000108 ")
+590 ;;1621
+591 ;;21,"58016000109 ")
+592 ;;1622
+593 ;;21,"58016000110 ")
+594 ;;1623
+595 ;;21,"58016000130 ")
+596 ;;1624
+597 ;;21,"58016000160 ")
+598 ;;1625
+599 ;;21,"58016000190 ")
+600 ;;1626
+601 ;;21,"58016004500 ")
+602 ;;1627
+603 ;;21,"58016004501 ")
+604 ;;1628
+605 ;;21,"58016004502 ")
+606 ;;1629
+607 ;;21,"58016004503 ")
+608 ;;1630
+609 ;;21,"58016004504 ")
+610 ;;1631
+611 ;;21,"58016004505 ")
+612 ;;1632
+613 ;;21,"58016004530 ")
+614 ;;1633
+615 ;;21,"58016004560 ")
+616 ;;1634
+617 ;;21,"58016004590 ")
+618 ;;1635
+619 ;;21,"58016028600 ")
+620 ;;1636
+621 ;;21,"58016028601 ")
+622 ;;1637
+623 ;;21,"58016028602 ")
+624 ;;1638
+625 ;;21,"58016028603 ")
+626 ;;1639
+627 ;;21,"58016028604 ")
+628 ;;1640
+629 ;;21,"58016028605 ")
+630 ;;1641
+631 ;;21,"58016028606 ")
+632 ;;1642
+633 ;;21,"58016028607 ")
+634 ;;1643
+635 ;;21,"58016028608 ")
+636 ;;1644
+637 ;;21,"58016028609 ")
+638 ;;1645
+639 ;;21,"58016028610 ")
+640 ;;1646
+641 ;;21,"58016028612 ")
+642 ;;1647
+643 ;;21,"58016028614 ")
+644 ;;1648
+645 ;;21,"58016028615 ")
+646 ;;1649
+647 ;;21,"58016028616 ")
+648 ;;1650
+649 ;;21,"58016028618 ")
+650 ;;1651
+651 ;;21,"58016028620 ")
+652 ;;1652
+653 ;;21,"58016028621 ")
+654 ;;1653
+655 ;;21,"58016028624 ")
+656 ;;1654
+657 ;;21,"58016028625 ")
+658 ;;1655
+659 ;;21,"58016028626 ")
+660 ;;1656
+661 ;;21,"58016028627 ")
+662 ;;1657
+663 ;;21,"58016028628 ")
+664 ;;1658
+665 ;;21,"58016028630 ")
+666 ;;1659
+667 ;;21,"58016028632 ")
+668 ;;1660
+669 ;;21,"58016028635 ")
+670 ;;1661
+671 ;;21,"58016028636 ")
+672 ;;1662
+673 ;;21,"58016028640 ")
+674 ;;1663
+675 ;;21,"58016028642 ")
+676 ;;1664
+677 ;;21,"58016028644 ")
+678 ;;1665
+679 ;;21,"58016028645 ")
+680 ;;1666
+681 ;;21,"58016028648 ")
+682 ;;1667
+683 ;;21,"58016028650 ")
+684 ;;1668
+685 ;;21,"58016028656 ")
+686 ;;1669
+687 ;;21,"58016028660 ")
+688 ;;1670
+689 ;;21,"58016028667 ")
+690 ;;1671
+691 ;;21,"58016028669 ")
+692 ;;1672
+693 ;;21,"58016028670 ")
+694 ;;1673
+695 ;;21,"58016028671 ")
+696 ;;1674
+697 ;;21,"58016028672 ")
+698 ;;1675
+699 ;;21,"58016028673 ")
+700 ;;1676
+701 ;;21,"58016028675 ")
+702 ;;1677
+703 ;;21,"58016028676 ")
+704 ;;1678