BGP63E4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
+1 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
+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,"54458-0992-10 ")
+2 ;;1237
+3 ;;21,"54458-0993-09 ")
+4 ;;1174
+5 ;;21,"54569-4437-00 ")
+6 ;;304
+7 ;;21,"54569-4438-00 ")
+8 ;;380
+9 ;;21,"54569-4572-00 ")
+10 ;;79
+11 ;;21,"54569-4696-00 ")
+12 ;;764
+13 ;;21,"54569-4698-00 ")
+14 ;;524
+15 ;;21,"54569-4714-00 ")
+16 ;;12
+17 ;;21,"54569-4719-00 ")
+18 ;;35
+19 ;;21,"54569-4719-01 ")
+20 ;;36
+21 ;;21,"54569-4722-00 ")
+22 ;;1414
+23 ;;21,"54569-4722-01 ")
+24 ;;1415
+25 ;;21,"54569-4766-00 ")
+26 ;;1693
+27 ;;21,"54569-4766-03 ")
+28 ;;1694
+29 ;;21,"54569-4767-00 ")
+30 ;;1628
+31 ;;21,"54569-4767-03 ")
+32 ;;1629
+33 ;;21,"54569-4829-00 ")
+34 ;;1175
+35 ;;21,"54569-4895-00 ")
+36 ;;147
+37 ;;21,"54569-5232-00 ")
+38 ;;798
+39 ;;21,"54569-5361-00 ")
+40 ;;609
+41 ;;21,"54569-5362-00 ")
+42 ;;525
+43 ;;21,"54569-5606-00 ")
+44 ;;429
+45 ;;21,"54569-5665-00 ")
+46 ;;1588
+47 ;;21,"54569-5666-00 ")
+48 ;;553
+49 ;;21,"54569-5667-00 ")
+50 ;;1735
+51 ;;21,"54569-5685-00 ")
+52 ;;957
+53 ;;21,"54569-5685-01 ")
+54 ;;958
+55 ;;21,"54569-5801-00 ")
+56 ;;987
+57 ;;21,"54569-5867-00 ")
+58 ;;188
+59 ;;21,"54569-5878-00 ")
+60 ;;703
+61 ;;21,"54569-5880-01 ")
+62 ;;1464
+63 ;;21,"54569-5903-00 ")
+64 ;;1529
+65 ;;21,"54569-5937-00 ")
+66 ;;765
+67 ;;21,"54569-5938-00 ")
+68 ;;799
+69 ;;21,"54569-5998-00 ")
+70 ;;1521
+71 ;;21,"54569-5999-00 ")
+72 ;;1365
+73 ;;21,"54569-6091-00 ")
+74 ;;1176
+75 ;;21,"54569-6091-01 ")
+76 ;;1177
+77 ;;21,"54569-6092-00 ")
+78 ;;1238
+79 ;;21,"54569-6092-01 ")
+80 ;;1239
+81 ;;21,"54569-6110-01 ")
+82 ;;1662
+83 ;;21,"54569-6173-00 ")
+84 ;;381
+85 ;;21,"54569-6173-01 ")
+86 ;;382
+87 ;;21,"54569-6180-00 ")
+88 ;;1465
+89 ;;21,"54569-6180-01 ")
+90 ;;1466
+91 ;;21,"54569-6182-00 ")
+92 ;;1366
+93 ;;21,"54569-6182-01 ")
+94 ;;1367
+95 ;;21,"54569-6223-00 ")
+96 ;;1416
+97 ;;21,"54569-6228-00 ")
+98 ;;1307
+99 ;;21,"54569-6228-01 ")
+100 ;;1308
+101 ;;21,"54569-6294-00 ")
+102 ;;305
+103 ;;21,"54569-6294-01 ")
+104 ;;306
+105 ;;21,"54569-6297-00 ")
+106 ;;238
+107 ;;21,"54569-6309-00 ")
+108 ;;80
+109 ;;21,"54569-8595-00 ")
+110 ;;1022
+111 ;;21,"54868-0009-00 ")
+112 ;;1055
+113 ;;21,"54868-0009-01 ")
+114 ;;1056
+115 ;;21,"54868-1802-00 ")
+116 ;;1542
+117 ;;21,"54868-2335-00 ")
+118 ;;239
+119 ;;21,"54868-2335-01 ")
+120 ;;240
+121 ;;21,"54868-3443-00 ")
+122 ;;1506
+123 ;;21,"54868-3443-01 ")
+124 ;;1507
+125 ;;21,"54868-3726-00 ")
+126 ;;383
+127 ;;21,"54868-3726-01 ")
+128 ;;384
+129 ;;21,"54868-3726-02 ")
+130 ;;385
+131 ;;21,"54868-3906-00 ")
+132 ;;933
+133 ;;21,"54868-3906-01 ")
+134 ;;934
+135 ;;21,"54868-4003-00 ")
+136 ;;1240
+137 ;;21,"54868-4062-00 ")
+138 ;;1006
+139 ;;21,"54868-4062-01 ")
+140 ;;1007
+141 ;;21,"54868-4066-00 ")
+142 ;;742
+143 ;;21,"54868-4066-01 ")
+144 ;;743
+145 ;;21,"54868-4073-00 ")
+146 ;;766
+147 ;;21,"54868-4073-01 ")
+148 ;;767
+149 ;;21,"54868-4073-02 ")
+150 ;;768
+151 ;;21,"54868-4073-03 ")
+152 ;;769
+153 ;;21,"54868-4074-00 ")
+154 ;;800
+155 ;;21,"54868-4074-01 ")
+156 ;;801
+157 ;;21,"54868-4074-02 ")
+158 ;;802
+159 ;;21,"54868-4074-03 ")
+160 ;;803
+161 ;;21,"54868-4074-04 ")
+162 ;;804
+163 ;;21,"54868-4199-00 ")
+164 ;;81
+165 ;;21,"54868-4199-01 ")
+166 ;;82
+167 ;;21,"54868-4199-02 ")
+168 ;;83
+169 ;;21,"54868-4341-00 ")
+170 ;;1467
+171 ;;21,"54868-4341-01 ")
+172 ;;1468
+173 ;;21,"54868-4413-00 ")
+174 ;;13
+175 ;;21,"54868-4414-00 ")
+176 ;;148
+177 ;;21,"54868-4425-00 ")
+178 ;;1695
+179 ;;21,"54868-4425-01 ")
+180 ;;1696
+181 ;;21,"54868-4425-02 ")
+182 ;;1697
+183 ;;21,"54868-4428-00 ")
+184 ;;1630
+185 ;;21,"54868-4428-01 ")
+186 ;;1631
+187 ;;21,"54868-4428-02 ")
+188 ;;1632
+189 ;;21,"54868-4479-00 ")
+190 ;;1508
+191 ;;21,"54868-4479-01 ")
+192 ;;1509
+193 ;;21,"54868-4479-02 ")
+194 ;;1510
+195 ;;21,"54868-4494-00 ")
+196 ;;1104
+197 ;;21,"54868-4526-01 ")
+198 ;;1134
+199 ;;21,"54868-4539-01 ")
+200 ;;479
+201 ;;21,"54868-4540-01 ")
+202 ;;1589
+203 ;;21,"54868-4605-01 ")
+204 ;;496
+205 ;;21,"54868-4612-00 ")
+206 ;;23
+207 ;;21,"54868-4637-00 ")
+208 ;;1241
+209 ;;21,"54868-4637-01 ")
+210 ;;1242
+211 ;;21,"54868-4637-02 ")
+212 ;;1243
+213 ;;21,"54868-4637-03 ")
+214 ;;1244
+215 ;;21,"54868-4637-04 ")
+216 ;;1245
+217 ;;21,"54868-4645-00 ")
+218 ;;526
+219 ;;21,"54868-4645-01 ")
+220 ;;527
+221 ;;21,"54868-4645-02 ")
+222 ;;528
+223 ;;21,"54868-4652-00 ")
+224 ;;610
+225 ;;21,"54868-4652-01 ")
+226 ;;611
+227 ;;21,"54868-4652-02 ")
+228 ;;612
+229 ;;21,"54868-4652-03 ")
+230 ;;613
+231 ;;21,"54868-4729-00 ")
+232 ;;979
+233 ;;21,"54868-4785-00 ")
+234 ;;1309
+235 ;;21,"54868-4785-01 ")
+236 ;;1310
+237 ;;21,"54868-4785-02 ")
+238 ;;1311
+239 ;;21,"54868-4785-03 ")
+240 ;;1312
+241 ;;21,"54868-4869-00 ")
+242 ;;988
+243 ;;21,"54868-4870-00 ")
+244 ;;704
+245 ;;21,"54868-4870-01 ")
+246 ;;705
+247 ;;21,"54868-4870-02 ")
+248 ;;706
+249 ;;21,"54868-4885-00 ")
+250 ;;445
+251 ;;21,"54868-4885-01 ")
+252 ;;446
+253 ;;21,"54868-4904-00 ")
+254 ;;935
+255 ;;21,"54868-4904-01 ")
+256 ;;936
+257 ;;21,"54868-4977-00 ")
+258 ;;1178
+259 ;;21,"54868-4977-01 ")
+260 ;;1179
+261 ;;21,"54868-4977-02 ")
+262 ;;1180
+263 ;;21,"54868-4986-00 ")
+264 ;;430
+265 ;;21,"54868-4986-01 ")
+266 ;;431
+267 ;;21,"54868-4986-02 ")
+268 ;;432
+269 ;;21,"54868-5075-00 ")
+270 ;;1522
+271 ;;21,"54868-5075-01 ")
+272 ;;1523
+273 ;;21,"54868-5077-00 ")
+274 ;;307
+275 ;;21,"54868-5078-00 ")
+276 ;;1530
+277 ;;21,"54868-5078-01 ")
+278 ;;1531
+279 ;;21,"54868-5082-00 ")
+280 ;;554
+281 ;;21,"54868-5082-01 ")
+282 ;;555
+283 ;;21,"54868-5082-02 ")
+284 ;;556
+285 ;;21,"54868-5082-03 ")
+286 ;;557
+287 ;;21,"54868-5100-00 ")
+288 ;;1023
+289 ;;21,"54868-5100-01 ")
+290 ;;1024
+291 ;;21,"54868-5170-00 ")
+292 ;;1515
+293 ;;21,"54868-5170-01 ")
+294 ;;1516
+295 ;;21,"54868-5256-00 ")
+296 ;;918
+297 ;;21,"54868-5281-00 ")
+298 ;;1052
+299 ;;21,"54868-5281-01 ")
+300 ;;1053
+301 ;;21,"54868-5296-00 ")
+302 ;;959
+303 ;;21,"54868-5297-00 ")
+304 ;;1600
+305 ;;21,"54868-5313-00 ")
+306 ;;960
+307 ;;21,"54868-5313-01 ")
+308 ;;961
+309 ;;21,"54868-5323-00 ")
+310 ;;1736
+311 ;;21,"54868-5346-00 ")
+312 ;;1060
+313 ;;21,"54868-5346-01 ")
+314 ;;1061
+315 ;;21,"54868-5418-00 ")
+316 ;;1577
+317 ;;21,"54868-5465-00 ")
+318 ;;1141
+319 ;;21,"54868-5466-00 ")
+320 ;;42
+321 ;;21,"54868-5466-01 ")
+322 ;;43
+323 ;;21,"54868-5469-00 ")
+324 ;;1071
+325 ;;21,"54868-5469-01 ")
+326 ;;1072
+327 ;;21,"54868-5475-00 ")
+328 ;;1564
+329 ;;21,"54868-5489-00 ")
+330 ;;37
+331 ;;21,"54868-5503-00 ")
+332 ;;1042
+333 ;;21,"54868-5503-01 ")
+334 ;;1043
+335 ;;21,"54868-5591-00 ")
+336 ;;29
+337 ;;21,"54868-5607-00 ")
+338 ;;1759
+339 ;;21,"54868-5690-01 ")
+340 ;;727
+341 ;;21,"54868-5690-02 ")
+342 ;;728
+343 ;;21,"54868-5705-00 ")
+344 ;;1368
+345 ;;21,"54868-5780-00 ")
+346 ;;1663
+347 ;;21,"54868-5781-00 ")
+348 ;;707
+349 ;;21,"54868-5781-02 ")
+350 ;;708
+351 ;;21,"54868-5782-00 ")
+352 ;;805
+353 ;;21,"54868-5782-01 ")
+354 ;;806
+355 ;;21,"54868-5782-02 ")
+356 ;;807
+357 ;;21,"54868-5782-03 ")
+358 ;;808
+359 ;;21,"54868-5782-04 ")
+360 ;;809
+361 ;;21,"54868-5783-00 ")
+362 ;;830
+363 ;;21,"54868-5783-01 ")
+364 ;;831
+365 ;;21,"54868-5787-00 ")
+366 ;;1001
+367 ;;21,"54868-5792-00 ")
+368 ;;770
+369 ;;21,"54868-5792-01 ")
+370 ;;771
+371 ;;21,"54868-5804-00 ")
+372 ;;874
+373 ;;21,"54868-5977-00 ")
+374 ;;577
+375 ;;21,"54868-5983-00 ")
+376 ;;884
+377 ;;21,"54868-5983-01 ")
+378 ;;885
+379 ;;21,"54868-5996-00 ")
+380 ;;903
+381 ;;21,"54868-5997-00 ")
+382 ;;894
+383 ;;21,"54868-6036-00 ")
+384 ;;843
+385 ;;21,"54868-6123-00 ")
+386 ;;666
+387 ;;21,"55045-3170-00 ")
+388 ;;962
+389 ;;21,"55045-3225-06 ")
+390 ;;1313
+391 ;;21,"55045-3373-08 ")
+392 ;;1044
+393 ;;21,"55045-3401-08 ")
+394 ;;386
+395 ;;21,"55045-3409-09 ")
+396 ;;614
+397 ;;21,"55111-0133-01 ")
+398 ;;1045
+399 ;;21,"55111-0134-01 ")
+400 ;;1025
+401 ;;21,"55111-0338-01 ")
+402 ;;744
+403 ;;21,"55111-0339-01 ")
+404 ;;772
+405 ;;21,"55111-0339-05 ")
+406 ;;773
+407 ;;21,"55111-0340-01 ")
+408 ;;810
+409 ;;21,"55111-0340-05 ")
+410 ;;811
+411 ;;21,"55111-0341-01 ")
+412 ;;709
+413 ;;21,"55111-0341-05 ")
+414 ;;710
+415 ;;21,"55111-0586-01 ")
+416 ;;729
+417 ;;21,"55111-0587-01 ")
+418 ;;832
+419 ;;21,"55289-0039-30 ")
+420 ;;812
+421 ;;21,"55289-0096-30 ")
+422 ;;774
+423 ;;21,"55289-0238-30 ")
+424 ;;241
+425 ;;21,"55289-0436-30 ")
+426 ;;447
+427 ;;21,"55289-0443-30 ")
+428 ;;1532
+429 ;;21,"55289-0484-30 ")
+430 ;;1026
+431 ;;21,"55289-0522-30 ")
+432 ;;1469
+433 ;;21,"55289-0573-30 ")
+434 ;;1314
+435 ;;21,"55289-0815-30 ")
+436 ;;1698
+437 ;;21,"55289-0817-30 ")
+438 ;;529
+439 ;;21,"55289-0820-30 ")
+440 ;;1737
+441 ;;21,"55289-0825-30 ")
+442 ;;615
+443 ;;21,"55289-0838-30 ")
+444 ;;1633
+445 ;;21,"55289-0876-30 ")
+446 ;;558
+447 ;;21,"55289-0878-30 ")
+448 ;;1315
+449 ;;21,"55289-0878-90 ")
+450 ;;1316
+451 ;;21,"55289-0981-30 ")
+452 ;;711
+453 ;;21,"55390-0712-01 ")
+454 ;;1046
+455 ;;21,"55887-0102-30 ")
+456 ;;149
+457 ;;21,"55887-0103-30 ")
+458 ;;189
+459 ;;21,"55887-0105-30 ")
+460 ;;84
+461 ;;21,"55887-0175-30 ")
+462 ;;937
+463 ;;21,"55887-0307-30 ")
+464 ;;616
+465 ;;21,"55887-0366-30 ")
+466 ;;919
+467 ;;21,"55887-0425-30 ")
+468 ;;1181
+469 ;;21,"55887-0425-60 ")
+470 ;;1182
+471 ;;21,"55887-0425-90 ")
+472 ;;1183
+473 ;;21,"55887-0426-20 ")
+474 ;;1246
+475 ;;21,"55887-0426-60 ")
+476 ;;1247
+477 ;;21,"55887-0426-90 ")
+478 ;;1248
+479 ;;21,"55887-0432-30 ")
+480 ;;308
+481 ;;21,"55887-0432-60 ")
+482 ;;309
+483 ;;21,"55887-0432-90 ")
+484 ;;310
+485 ;;21,"55887-0532-60 ")
+486 ;;1317
+487 ;;21,"55887-0594-30 ")
+488 ;;1047
+489 ;;21,"55887-0594-90 ")
+490 ;;1048
+491 ;;21,"55887-0595-30 ")
+492 ;;1027
+493 ;;21,"55887-0595-90 ")
+494 ;;1028
+495 ;;21,"57237-0026-01 ")
+496 ;;1062
+497 ;;21,"57237-0026-30 ")
+498 ;;1063
+499 ;;21,"57237-0027-01 ")
+500 ;;1073
+501 ;;21,"57237-0027-30 ")
+502 ;;1074
+503 ;;21,"58016-0053-00 ")
+504 ;;448
+505 ;;21,"58016-0053-30 ")
+506 ;;449
+507 ;;21,"58016-0053-60 ")
+508 ;;450
+509 ;;21,"58016-0053-90 ")
+510 ;;451
+511 ;;21,"58016-0065-00 ")
+512 ;;938
+513 ;;21,"58016-0065-30 ")
+514 ;;939
+515 ;;21,"58016-0065-60 ")
+516 ;;940
+517 ;;21,"58016-0065-90 ")
+518 ;;941
+519 ;;21,"58016-0066-00 ")
+520 ;;433
+521 ;;21,"58016-0066-30 ")
+522 ;;434
+523 ;;21,"58016-0066-60 ")
+524 ;;435
+525 ;;21,"58016-0066-90 ")
+526 ;;436
+527 ;;21,"58016-0228-00 ")
+528 ;;1249
+529 ;;21,"58016-0228-02 ")
+530 ;;1250
+531 ;;21,"58016-0228-30 ")
+532 ;;1251
+533 ;;21,"58016-0228-60 ")
+534 ;;1252
+535 ;;21,"58016-0228-90 ")
+536 ;;1253
+537 ;;21,"58016-4631-01 ")
+538 ;;1590
+539 ;;21,"58864-0605-30 ")
+540 ;;530
+541 ;;21,"58864-0659-30 ")
+542 ;;1470
+543 ;;21,"58864-0661-30 ")
+544 ;;1493
+545 ;;21,"58864-0662-30 ")
+546 ;;387
+547 ;;21,"58864-0681-30 ")
+548 ;;617
+549 ;;21,"58864-0726-15 ")
+550 ;;85
+551 ;;21,"58864-0726-30 ")
+552 ;;86
+553 ;;21,"58864-0771-15 ")
+554 ;;150
+555 ;;21,"58864-0807-30 ")
+556 ;;311
+557 ;;21,"58864-0838-30 ")
+558 ;;1511
+559 ;;21,"59746-0333-10 ")
+560 ;;312
+561 ;;21,"59746-0333-90 ")
+562 ;;313
+563 ;;21,"59746-0334-10 ")
+564 ;;388
+565 ;;21,"59746-0334-30 ")
+566 ;;389
+567 ;;21,"59746-0334-90 ")
+568 ;;390
+569 ;;21,"59746-0335-10 ")
+570 ;;242
+571 ;;21,"59746-0335-30 ")
+572 ;;243
+573 ;;21,"59746-0335-90 ")
+574 ;;244
+575 ;;21,"59746-0337-90 ")
+576 ;;1417
+577 ;;21,"59746-0338-90 ")
+578 ;;1369
+579 ;;21,"59746-0339-30 ")
+580 ;;1471
+581 ;;21,"59746-0339-90 ")
+582 ;;1472
+583 ;;21,"59746-0360-30 ")
+584 ;;578
+585 ;;21,"59746-0361-90 ")
+586 ;;618
+587 ;;21,"59746-0362-90 ")
+588 ;;531
+589 ;;21,"59746-0363-90 ")
+590 ;;559
+591 ;;21,"59762-0011-01 ")
+592 ;;1418
+593 ;;21,"59762-0011-02 ")
+594 ;;1419
+595 ;;21,"59762-0012-01 ")
+596 ;;1370
+597 ;;21,"59762-0012-02 ")
+598 ;;1371
+599 ;;21,"59762-0015-01 ")
+600 ;;1473
+601 ;;21,"59762-0015-02 ")
+602 ;;1474
+603 ;;21,"59762-0070-01 ")
+604 ;;314
+605 ;;21,"59762-0071-01 ")
+606 ;;391
+607 ;;21,"59762-0071-02 ")
+608 ;;392
+609 ;;21,"59762-0072-01 ")
+610 ;;245
+611 ;;21,"59762-0072-02 ")
+612 ;;246
+613 ;;21,"59762-0220-01 ")
+614 ;;1553
+615 ;;21,"59762-0222-01 ")
+616 ;;1543
+617 ;;21,"59762-0223-01 ")
+618 ;;1565
+619 ;;21,"59762-3293-01 ")
+620 ;;1184
+621 ;;21,"59762-3293-02 ")
+622 ;;1185
+623 ;;21,"59762-3293-03 ")
+624 ;;1186
+625 ;;21,"59762-3293-04 ")
+626 ;;1187
+627 ;;21,"59762-3294-01 ")
+628 ;;1254
+629 ;;21,"59762-3294-02 ")
+630 ;;1255
+631 ;;21,"59762-3294-03 ")
+632 ;;1256
+633 ;;21,"59762-3294-04 ")
+634 ;;1257
+635 ;;21,"59762-3295-01 ")
+636 ;;1318
+637 ;;21,"59762-3295-02 ")
+638 ;;1319
+639 ;;21,"59762-3295-03 ")
+640 ;;1320
+641 ;;21,"59762-3295-04 ")
+642 ;;1321
+643 ;;21,"59762-5250-01 ")
+644 ;;1064
+645 ;;21,"59762-5250-04 ")
+646 ;;1065
+647 ;;21,"59762-5251-01 ")
+648 ;;1075
+649 ;;21,"59762-5251-04 ")
+650 ;;1076
+651 ;;21,"60429-0044-01 ")
+652 ;;1188
+653 ;;21,"60429-0044-10 ")
+654 ;;1189
+655 ;;21,"60429-0045-01 ")
+656 ;;1258
+657 ;;21,"60429-0045-10 ")
+658 ;;1259
+659 ;;21,"60429-0046-01 ")
+660 ;;1322
+661 ;;21,"60429-0046-10 ")
+662 ;;1323
+663 ;;21,"60505-0205-03 ")
+664 ;;1190
+665 ;;21,"60505-0206-03 ")
+666 ;;1260
+667 ;;21,"60505-0207-03 ")
+668 ;;1324
+669 ;;21,"60505-0208-01 ")
+670 ;;1049
+671 ;;21,"60505-0209-01 ")
+672 ;;1029
+673 ;;21,"60505-0261-01 ")
+674 ;;973
+675 ;;21,"60505-0262-01 ")
+676 ;;920