BGP62Y14 ;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,"55289-0019-30 ")
+2 ;;246
+3 ;;21,"55289-0019-40 ")
+4 ;;247
+5 ;;21,"55289-0019-60 ")
+6 ;;248
+7 ;;21,"55289-0019-97 ")
+8 ;;249
+9 ;;21,"55289-0020-04 ")
+10 ;;624
+11 ;;21,"55289-0020-06 ")
+12 ;;625
+13 ;;21,"55289-0020-09 ")
+14 ;;626
+15 ;;21,"55289-0020-14 ")
+16 ;;627
+17 ;;21,"55289-0020-15 ")
+18 ;;628
+19 ;;21,"55289-0020-21 ")
+20 ;;629
+21 ;;21,"55289-0020-24 ")
+22 ;;630
+23 ;;21,"55289-0020-28 ")
+24 ;;631
+25 ;;21,"55289-0020-30 ")
+26 ;;632
+27 ;;21,"55289-0020-40 ")
+28 ;;633
+29 ;;21,"55289-0020-42 ")
+30 ;;634
+31 ;;21,"55289-0020-50 ")
+32 ;;635
+33 ;;21,"55289-0020-56 ")
+34 ;;636
+35 ;;21,"55289-0020-60 ")
+36 ;;637
+37 ;;21,"55289-0020-63 ")
+38 ;;638
+39 ;;21,"55289-0021-10 ")
+40 ;;2989
+41 ;;21,"55289-0021-14 ")
+42 ;;2990
+43 ;;21,"55289-0021-20 ")
+44 ;;2991
+45 ;;21,"55289-0021-28 ")
+46 ;;2992
+47 ;;21,"55289-0025-04 ")
+48 ;;3329
+49 ;;21,"55289-0025-20 ")
+50 ;;3330
+51 ;;21,"55289-0025-28 ")
+52 ;;3331
+53 ;;21,"55289-0025-30 ")
+54 ;;3332
+55 ;;21,"55289-0025-40 ")
+56 ;;3333
+57 ;;21,"55289-0027-20 ")
+58 ;;3365
+59 ;;21,"55289-0033-28 ")
+60 ;;861
+61 ;;21,"55289-0033-40 ")
+62 ;;862
+63 ;;21,"55289-0043-14 ")
+64 ;;6030
+65 ;;21,"55289-0050-40 ")
+66 ;;3516
+67 ;;21,"55289-0057-06 ")
+68 ;;1679
+69 ;;21,"55289-0057-10 ")
+70 ;;1680
+71 ;;21,"55289-0057-15 ")
+72 ;;1681
+73 ;;21,"55289-0057-20 ")
+74 ;;1682
+75 ;;21,"55289-0057-24 ")
+76 ;;1683
+77 ;;21,"55289-0057-28 ")
+78 ;;1684
+79 ;;21,"55289-0057-30 ")
+80 ;;1685
+81 ;;21,"55289-0057-40 ")
+82 ;;1686
+83 ;;21,"55289-0057-97 ")
+84 ;;1687
+85 ;;21,"55289-0058-01 ")
+86 ;;1992
+87 ;;21,"55289-0058-04 ")
+88 ;;1993
+89 ;;21,"55289-0058-08 ")
+90 ;;1994
+91 ;;21,"55289-0058-10 ")
+92 ;;1995
+93 ;;21,"55289-0058-14 ")
+94 ;;1996
+95 ;;21,"55289-0058-17 ")
+96 ;;1997
+97 ;;21,"55289-0058-20 ")
+98 ;;1998
+99 ;;21,"55289-0058-21 ")
+100 ;;1999
+101 ;;21,"55289-0058-24 ")
+102 ;;2000
+103 ;;21,"55289-0058-28 ")
+104 ;;2001
+105 ;;21,"55289-0058-30 ")
+106 ;;2002
+107 ;;21,"55289-0058-40 ")
+108 ;;2003
+109 ;;21,"55289-0058-56 ")
+110 ;;2128
+111 ;;21,"55289-0072-01 ")
+112 ;;1688
+113 ;;21,"55289-0072-40 ")
+114 ;;1689
+115 ;;21,"55289-0075-03 ")
+116 ;;3144
+117 ;;21,"55289-0075-40 ")
+118 ;;3145
+119 ;;21,"55289-0075-56 ")
+120 ;;3146
+121 ;;21,"55289-0077-10 ")
+122 ;;5039
+123 ;;21,"55289-0081-20 ")
+124 ;;7023
+125 ;;21,"55289-0094-10 ")
+126 ;;4016
+127 ;;21,"55289-0094-20 ")
+128 ;;4017
+129 ;;21,"55289-0094-30 ")
+130 ;;4018
+131 ;;21,"55289-0094-40 ")
+132 ;;4019
+133 ;;21,"55289-0107-02 ")
+134 ;;6031
+135 ;;21,"55289-0107-06 ")
+136 ;;6032
+137 ;;21,"55289-0107-10 ")
+138 ;;6033
+139 ;;21,"55289-0107-12 ")
+140 ;;6034
+141 ;;21,"55289-0107-14 ")
+142 ;;6035
+143 ;;21,"55289-0107-20 ")
+144 ;;6036
+145 ;;21,"55289-0107-28 ")
+146 ;;6037
+147 ;;21,"55289-0107-30 ")
+148 ;;6038
+149 ;;21,"55289-0107-40 ")
+150 ;;6039
+151 ;;21,"55289-0107-50 ")
+152 ;;6040
+153 ;;21,"55289-0107-56 ")
+154 ;;6041
+155 ;;21,"55289-0107-60 ")
+156 ;;6042
+157 ;;21,"55289-0107-79 ")
+158 ;;6043
+159 ;;21,"55289-0107-90 ")
+160 ;;6044
+161 ;;21,"55289-0107-93 ")
+162 ;;6045
+163 ;;21,"55289-0110-03 ")
+164 ;;3449
+165 ;;21,"55289-0110-09 ")
+166 ;;3450
+167 ;;21,"55289-0110-20 ")
+168 ;;3451
+169 ;;21,"55289-0110-28 ")
+170 ;;3452
+171 ;;21,"55289-0110-30 ")
+172 ;;3453
+173 ;;21,"55289-0110-40 ")
+174 ;;3454
+175 ;;21,"55289-0110-56 ")
+176 ;;3455
+177 ;;21,"55289-0112-01 ")
+178 ;;3517
+179 ;;21,"55289-0112-04 ")
+180 ;;3518
+181 ;;21,"55289-0112-10 ")
+182 ;;3519
+183 ;;21,"55289-0112-15 ")
+184 ;;3520
+185 ;;21,"55289-0112-20 ")
+186 ;;3521
+187 ;;21,"55289-0112-28 ")
+188 ;;3522
+189 ;;21,"55289-0112-40 ")
+190 ;;3523
+191 ;;21,"55289-0112-56 ")
+192 ;;3524
+193 ;;21,"55289-0112-98 ")
+194 ;;3525
+195 ;;21,"55289-0182-06 ")
+196 ;;349
+197 ;;21,"55289-0182-09 ")
+198 ;;350
+199 ;;21,"55289-0182-14 ")
+200 ;;351
+201 ;;21,"55289-0182-30 ")
+202 ;;352
+203 ;;21,"55289-0182-40 ")
+204 ;;353
+205 ;;21,"55289-0201-14 ")
+206 ;;6452
+207 ;;21,"55289-0201-20 ")
+208 ;;6453
+209 ;;21,"55289-0201-30 ")
+210 ;;6454
+211 ;;21,"55289-0202-30 ")
+212 ;;6524
+213 ;;21,"55289-0206-10 ")
+214 ;;3658
+215 ;;21,"55289-0206-20 ")
+216 ;;3659
+217 ;;21,"55289-0206-28 ")
+218 ;;3660
+219 ;;21,"55289-0206-30 ")
+220 ;;3661
+221 ;;21,"55289-0206-40 ")
+222 ;;3662
+223 ;;21,"55289-0206-56 ")
+224 ;;3663
+225 ;;21,"55289-0206-97 ")
+226 ;;3664
+227 ;;21,"55289-0207-04 ")
+228 ;;3833
+229 ;;21,"55289-0207-15 ")
+230 ;;3834
+231 ;;21,"55289-0207-20 ")
+232 ;;3835
+233 ;;21,"55289-0207-28 ")
+234 ;;3836
+235 ;;21,"55289-0207-30 ")
+236 ;;3837
+237 ;;21,"55289-0207-40 ")
+238 ;;3838
+239 ;;21,"55289-0217-28 ")
+240 ;;3295
+241 ;;21,"55289-0217-40 ")
+242 ;;3296
+243 ;;21,"55289-0235-60 ")
+244 ;;6323
+245 ;;21,"55289-0241-02 ")
+246 ;;5777
+247 ;;21,"55289-0241-04 ")
+248 ;;5778
+249 ;;21,"55289-0241-06 ")
+250 ;;5779
+251 ;;21,"55289-0241-10 ")
+252 ;;5780
+253 ;;21,"55289-0241-14 ")
+254 ;;5781
+255 ;;21,"55289-0241-15 ")
+256 ;;5782
+257 ;;21,"55289-0241-17 ")
+258 ;;5783
+259 ;;21,"55289-0241-20 ")
+260 ;;5784
+261 ;;21,"55289-0241-28 ")
+262 ;;5785
+263 ;;21,"55289-0241-40 ")
+264 ;;5786
+265 ;;21,"55289-0241-60 ")
+266 ;;5787
+267 ;;21,"55289-0241-93 ")
+268 ;;5788
+269 ;;21,"55289-0241-97 ")
+270 ;;5789
+271 ;;21,"55289-0274-02 ")
+272 ;;2819
+273 ;;21,"55289-0274-03 ")
+274 ;;2820
+275 ;;21,"55289-0274-07 ")
+276 ;;2821
+277 ;;21,"55289-0310-04 ")
+278 ;;2700
+279 ;;21,"55289-0310-06 ")
+280 ;;2701
+281 ;;21,"55289-0310-14 ")
+282 ;;2702
+283 ;;21,"55289-0371-03 ")
+284 ;;4529
+285 ;;21,"55289-0371-06 ")
+286 ;;4530
+287 ;;21,"55289-0371-10 ")
+288 ;;4531
+289 ;;21,"55289-0371-14 ")
+290 ;;4532
+291 ;;21,"55289-0371-15 ")
+292 ;;4533
+293 ;;21,"55289-0371-20 ")
+294 ;;4534
+295 ;;21,"55289-0371-30 ")
+296 ;;4535
+297 ;;21,"55289-0371-40 ")
+298 ;;4536
+299 ;;21,"55289-0371-50 ")
+300 ;;4537
+301 ;;21,"55289-0371-79 ")
+302 ;;4538
+303 ;;21,"55289-0371-97 ")
+304 ;;4539
+305 ;;21,"55289-0372-10 ")
+306 ;;5396
+307 ;;21,"55289-0372-14 ")
+308 ;;5397
+309 ;;21,"55289-0372-20 ")
+310 ;;5398
+311 ;;21,"55289-0372-97 ")
+312 ;;5399
+313 ;;21,"55289-0385-04 ")
+314 ;;5400
+315 ;;21,"55289-0385-30 ")
+316 ;;5401
+317 ;;21,"55289-0393-02 ")
+318 ;;7087
+319 ;;21,"55289-0394-05 ")
+320 ;;4984
+321 ;;21,"55289-0394-07 ")
+322 ;;4985
+323 ;;21,"55289-0405-14 ")
+324 ;;1477
+325 ;;21,"55289-0405-20 ")
+326 ;;1478
+327 ;;21,"55289-0426-21 ")
+328 ;;3254
+329 ;;21,"55289-0441-04 ")
+330 ;;2320
+331 ;;21,"55289-0441-15 ")
+332 ;;2321
+333 ;;21,"55289-0441-17 ")
+334 ;;2322
+335 ;;21,"55289-0441-20 ")
+336 ;;2323
+337 ;;21,"55289-0441-28 ")
+338 ;;2324
+339 ;;21,"55289-0441-30 ")
+340 ;;2325
+341 ;;21,"55289-0441-40 ")
+342 ;;2326
+343 ;;21,"55289-0441-42 ")
+344 ;;2327
+345 ;;21,"55289-0441-56 ")
+346 ;;2328
+347 ;;21,"55289-0441-80 ")
+348 ;;2329
+349 ;;21,"55289-0441-97 ")
+350 ;;2330
+351 ;;21,"55289-0446-01 ")
+352 ;;6719
+353 ;;21,"55289-0446-10 ")
+354 ;;6720
+355 ;;21,"55289-0446-12 ")
+356 ;;6721
+357 ;;21,"55289-0446-14 ")
+358 ;;6722
+359 ;;21,"55289-0446-16 ")
+360 ;;6723
+361 ;;21,"55289-0446-20 ")
+362 ;;6724
+363 ;;21,"55289-0446-28 ")
+364 ;;6725
+365 ;;21,"55289-0446-30 ")
+366 ;;6726
+367 ;;21,"55289-0446-40 ")
+368 ;;6727
+369 ;;21,"55289-0446-56 ")
+370 ;;6728
+371 ;;21,"55289-0446-60 ")
+372 ;;6729
+373 ;;21,"55289-0457-10 ")
+374 ;;5597
+375 ;;21,"55289-0457-20 ")
+376 ;;5598
+377 ;;21,"55289-0459-06 ")
+378 ;;4248
+379 ;;21,"55289-0459-10 ")
+380 ;;4249
+381 ;;21,"55289-0459-12 ")
+382 ;;4250
+383 ;;21,"55289-0459-14 ")
+384 ;;4251
+385 ;;21,"55289-0502-16 ")
+386 ;;6324
+387 ;;21,"55289-0502-30 ")
+388 ;;6325
+389 ;;21,"55289-0502-60 ")
+390 ;;6326
+391 ;;21,"55289-0525-21 ")
+392 ;;3212
+393 ;;21,"55289-0525-30 ")
+394 ;;3213
+395 ;;21,"55289-0525-40 ")
+396 ;;3214
+397 ;;21,"55289-0525-42 ")
+398 ;;3215
+399 ;;21,"55289-0525-63 ")
+400 ;;3216
+401 ;;21,"55289-0542-10 ")
+402 ;;5476
+403 ;;21,"55289-0589-14 ")
+404 ;;1479
+405 ;;21,"55289-0589-20 ")
+406 ;;1480
+407 ;;21,"55289-0589-28 ")
+408 ;;1481
+409 ;;21,"55289-0592-10 ")
+410 ;;3942
+411 ;;21,"55289-0592-20 ")
+412 ;;3943
+413 ;;21,"55289-0592-28 ")
+414 ;;3944
+415 ;;21,"55289-0592-40 ")
+416 ;;3945
+417 ;;21,"55289-0592-97 ")
+418 ;;3946
+419 ;;21,"55289-0612-28 ")
+420 ;;3839
+421 ;;21,"55289-0612-30 ")
+422 ;;3840
+423 ;;21,"55289-0645-20 ")
+424 ;;3107
+425 ;;21,"55289-0645-28 ")
+426 ;;3108
+427 ;;21,"55289-0645-30 ")
+428 ;;3109
+429 ;;21,"55289-0645-40 ")
+430 ;;3110
+431 ;;21,"55289-0645-56 ")
+432 ;;3111
+433 ;;21,"55289-0645-80 ")
+434 ;;3112
+435 ;;21,"55289-0705-02 ")
+436 ;;3527
+437 ;;21,"55289-0705-06 ")
+438 ;;3528
+439 ;;21,"55289-0705-15 ")
+440 ;;3529
+441 ;;21,"55289-0705-16 ")
+442 ;;3530
+443 ;;21,"55289-0705-20 ")
+444 ;;3531
+445 ;;21,"55289-0705-28 ")
+446 ;;3532
+447 ;;21,"55289-0705-30 ")
+448 ;;3533
+449 ;;21,"55289-0705-40 ")
+450 ;;3534
+451 ;;21,"55289-0705-56 ")
+452 ;;3535
+453 ;;21,"55289-0707-20 ")
+454 ;;747
+455 ;;21,"55289-0707-28 ")
+456 ;;748
+457 ;;21,"55289-0711-07 ")
+458 ;;4930
+459 ;;21,"55289-0711-10 ")
+460 ;;4931
+461 ;;21,"55289-0711-14 ")
+462 ;;4932
+463 ;;21,"55289-0717-10 ")
+464 ;;4729
+465 ;;21,"55289-0746-06 ")
+466 ;;2146
+467 ;;21,"55289-0746-10 ")
+468 ;;2147
+469 ;;21,"55289-0749-30 ")
+470 ;;5144
+471 ;;21,"55289-0767-10 ")
+472 ;;1272
+473 ;;21,"55289-0767-14 ")
+474 ;;1273
+475 ;;21,"55289-0767-20 ")
+476 ;;1274
+477 ;;21,"55289-0767-21 ")
+478 ;;1275
+479 ;;21,"55289-0767-28 ")
+480 ;;1276
+481 ;;21,"55289-0767-30 ")
+482 ;;1277
+483 ;;21,"55289-0821-03 ")
+484 ;;4540
+485 ;;21,"55289-0821-06 ")
+486 ;;4541
+487 ;;21,"55289-0821-10 ")
+488 ;;4542
+489 ;;21,"55289-0821-14 ")
+490 ;;4543
+491 ;;21,"55289-0821-20 ")
+492 ;;4544
+493 ;;21,"55289-0821-30 ")
+494 ;;4545
+495 ;;21,"55289-0821-40 ")
+496 ;;4546
+497 ;;21,"55289-0821-50 ")
+498 ;;4547
+499 ;;21,"55289-0821-79 ")
+500 ;;4548
+501 ;;21,"55289-0823-06 ")
+502 ;;4252
+503 ;;21,"55289-0823-12 ")
+504 ;;4253
+505 ;;21,"55289-0823-14 ")
+506 ;;4254
+507 ;;21,"55289-0823-20 ")
+508 ;;4255
+509 ;;21,"55289-0826-10 ")
+510 ;;4730
+511 ;;21,"55289-0826-20 ")
+512 ;;4731
+513 ;;21,"55289-0841-03 ")
+514 ;;4822
+515 ;;21,"55289-0841-10 ")
+516 ;;4823
+517 ;;21,"55289-0845-06 ")
+518 ;;1138
+519 ;;21,"55289-0845-20 ")
+520 ;;1139
+521 ;;21,"55289-0845-21 ")
+522 ;;1140
+523 ;;21,"55289-0845-28 ")
+524 ;;1141
+525 ;;21,"55289-0845-30 ")
+526 ;;1142
+527 ;;21,"55289-0866-01 ")
+528 ;;6212
+529 ;;21,"55289-0866-02 ")
+530 ;;6213
+531 ;;21,"55289-0866-04 ")
+532 ;;6214
+533 ;;21,"55289-0866-06 ")
+534 ;;6215
+535 ;;21,"55289-0866-08 ")
+536 ;;6216
+537 ;;21,"55289-0866-10 ")
+538 ;;6217
+539 ;;21,"55289-0866-14 ")
+540 ;;6218
+541 ;;21,"55289-0866-20 ")
+542 ;;6219
+543 ;;21,"55289-0866-28 ")
+544 ;;6220
+545 ;;21,"55289-0866-30 ")
+546 ;;6221
+547 ;;21,"55289-0866-60 ")
+548 ;;6222
+549 ;;21,"55289-0866-71 ")
+550 ;;6223
+551 ;;21,"55289-0866-74 ")
+552 ;;6224
+553 ;;21,"55289-0866-85 ")
+554 ;;6225
+555 ;;21,"55289-0866-86 ")
+556 ;;6226
+557 ;;21,"55289-0866-87 ")
+558 ;;6227
+559 ;;21,"55289-0866-90 ")
+560 ;;6228
+561 ;;21,"55289-0866-93 ")
+562 ;;6229
+563 ;;21,"55289-0866-98 ")
+564 ;;6230
+565 ;;21,"55289-0885-08 ")
+566 ;;1690
+567 ;;21,"55289-0890-20 ")
+568 ;;2466
+569 ;;21,"55289-0890-28 ")
+570 ;;2467
+571 ;;21,"55289-0890-30 ")
+572 ;;2468
+573 ;;21,"55289-0890-40 ")
+574 ;;2469
+575 ;;21,"55289-0890-56 ")
+576 ;;2470
+577 ;;21,"55289-0890-90 ")
+578 ;;2471
+579 ;;21,"55289-0904-79 ")
+580 ;;5059
+581 ;;21,"55289-0909-10 ")
+582 ;;2993
+583 ;;21,"55289-0909-14 ")
+584 ;;2994
+585 ;;21,"55289-0909-20 ")
+586 ;;2995
+587 ;;21,"55289-0909-28 ")
+588 ;;2996
+589 ;;21,"55289-0915-06 ")
+590 ;;3217
+591 ;;21,"55289-0915-15 ")
+592 ;;3218
+593 ;;21,"55289-0915-24 ")
+594 ;;3219
+595 ;;21,"55289-0915-30 ")
+596 ;;3220
+597 ;;21,"55289-0954-79 ")
+598 ;;7064
+599 ;;21,"55289-0964-04 ")
+600 ;;2703
+601 ;;21,"55289-0964-14 ")
+602 ;;2704
+603 ;;21,"55390-0109-01 ")
+604 ;;2177
+605 ;;21,"55390-0110-10 ")
+606 ;;5898
+607 ;;21,"55390-0309-10 ")
+608 ;;6884
+609 ;;21,"55390-0310-10 ")
+610 ;;6925
+611 ;;21,"55390-0311-10 ")
+612 ;;6806
+613 ;;21,"55390-0312-10 ")
+614 ;;6849
+615 ;;21,"55390-0316-01 ")
+616 ;;6829
+617 ;;21,"55648-0961-01 ")
+618 ;;2705
+619 ;;21,"55648-0961-02 ")
+620 ;;2706
+621 ;;21,"55648-0961-04 ")
+622 ;;2707
+623 ;;21,"55648-0961-05 ")
+624 ;;2708
+625 ;;21,"55648-0961-06 ")
+626 ;;2709
+627 ;;21,"55648-0961-07 ")
+628 ;;2710
+629 ;;21,"55648-0961-08 ")
+630 ;;2711
+631 ;;21,"55648-0962-01 ")
+632 ;;2860
+633 ;;21,"55648-0964-01 ")
+634 ;;2822
+635 ;;21,"55648-0964-02 ")
+636 ;;2823
+637 ;;21,"55648-0964-03 ")
+638 ;;2824
+639 ;;21,"55648-0964-05 ")
+640 ;;2825
+641 ;;21,"55648-0964-06 ")
+642 ;;2826
+643 ;;21,"55648-0964-07 ")
+644 ;;2827
+645 ;;21,"55868-5487-01 ")
+646 ;;2828
+647 ;;21,"55887-0071-60 ")
+648 ;;3456
+649 ;;21,"55887-0181-15 ")
+650 ;;2617
+651 ;;21,"55887-0215-01 ")
+652 ;;3736
+653 ;;21,"55887-0216-20 ")
+654 ;;1012
+655 ;;21,"55887-0218-01 ")
+656 ;;3611
+657 ;;21,"55887-0292-10 ")
+658 ;;4732
+659 ;;21,"55887-0292-20 ")
+660 ;;4733
+661 ;;21,"55887-0292-28 ")
+662 ;;4734
+663 ;;21,"55887-0292-30 ")
+664 ;;4735
+665 ;;21,"55887-0306-01 ")
+666 ;;3400
+667 ;;21,"55887-0311-15 ")
+668 ;;2618