BGP62Y9 ;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,"43598-0204-51 ")
+2 ;;987
+3 ;;21,"43598-0204-52 ")
+4 ;;988
+5 ;;21,"43598-0204-53 ")
+6 ;;989
+7 ;;21,"43598-0205-01 ")
+8 ;;576
+9 ;;21,"43598-0205-05 ")
+10 ;;577
+11 ;;21,"43598-0206-14 ")
+12 ;;1088
+13 ;;21,"43598-0206-78 ")
+14 ;;1089
+15 ;;21,"43598-0207-50 ")
+16 ;;438
+17 ;;21,"43598-0207-51 ")
+18 ;;439
+19 ;;21,"43598-0207-52 ")
+20 ;;440
+21 ;;21,"43598-0208-50 ")
+22 ;;1032
+23 ;;21,"43598-0208-51 ")
+24 ;;1033
+25 ;;21,"43598-0208-52 ")
+26 ;;1034
+27 ;;21,"43598-0209-52 ")
+28 ;;397
+29 ;;21,"43598-0209-53 ")
+30 ;;398
+31 ;;21,"43598-0209-80 ")
+32 ;;399
+33 ;;21,"43598-0213-50 ")
+34 ;;951
+35 ;;21,"43598-0213-51 ")
+36 ;;952
+37 ;;21,"43598-0213-52 ")
+38 ;;953
+39 ;;21,"43598-0218-30 ")
+40 ;;973
+41 ;;21,"43598-0219-01 ")
+42 ;;733
+43 ;;21,"43598-0219-14 ")
+44 ;;734
+45 ;;21,"43598-0220-28 ")
+46 ;;906
+47 ;;21,"43598-0220-40 ")
+48 ;;907
+49 ;;21,"43598-0221-14 ")
+50 ;;1242
+51 ;;21,"43598-0221-78 ")
+52 ;;1243
+53 ;;21,"43598-0222-52 ")
+54 ;;107
+55 ;;21,"43598-0222-53 ")
+56 ;;108
+57 ;;21,"43598-0222-80 ")
+58 ;;109
+59 ;;21,"43598-0223-50 ")
+60 ;;150
+61 ;;21,"43598-0223-51 ")
+62 ;;151
+63 ;;21,"43598-0223-52 ")
+64 ;;152
+65 ;;21,"43598-0224-01 ")
+66 ;;709
+67 ;;21,"43598-0225-01 ")
+68 ;;217
+69 ;;21,"43598-0225-05 ")
+70 ;;218
+71 ;;21,"43684-0200-20 ")
+72 ;;6377
+73 ;;21,"44009-0801-20 ")
+74 ;;7037
+75 ;;21,"44009-0802-20 ")
+76 ;;7041
+77 ;;21,"44183-0180-02 ")
+78 ;;7101
+79 ;;21,"44183-0400-22 ")
+80 ;;7103
+81 ;;21,"44567-0100-10 ")
+82 ;;63
+83 ;;21,"44567-0101-10 ")
+84 ;;76
+85 ;;21,"44567-0102-10 ")
+86 ;;15
+87 ;;21,"44567-0103-10 ")
+88 ;;52
+89 ;;21,"44567-0104-10 ")
+90 ;;29
+91 ;;21,"44567-0311-10 ")
+92 ;;3590
+93 ;;21,"44567-0312-01 ")
+94 ;;3580
+95 ;;21,"44567-0700-25 ")
+96 ;;6918
+97 ;;21,"44567-0701-25 ")
+98 ;;6796
+99 ;;21,"44567-0702-25 ")
+100 ;;6848
+101 ;;21,"44567-0703-01 ")
+102 ;;6828
+103 ;;21,"44567-0706-25 ")
+104 ;;1376
+105 ;;21,"44567-0707-25 ")
+106 ;;1316
+107 ;;21,"44567-0708-10 ")
+108 ;;1347
+109 ;;21,"44567-0709-10 ")
+110 ;;1361
+111 ;;21,"45565-0031-03 ")
+112 ;;3637
+113 ;;21,"45809-0401-20 ")
+114 ;;7104
+115 ;;21,"45809-0801-12 ")
+116 ;;7111
+117 ;;21,"45809-0801-30 ")
+118 ;;7112
+119 ;;21,"45809-0801-60 ")
+120 ;;7113
+121 ;;21,"45809-0801-90 ")
+122 ;;7114
+123 ;;21,"46063-0563-15 ")
+124 ;;578
+125 ;;21,"46063-0563-28 ")
+126 ;;579
+127 ;;21,"47781-0266-03 ")
+128 ;;5141
+129 ;;21,"47781-0267-03 ")
+130 ;;5208
+131 ;;21,"47781-0268-30 ")
+132 ;;5022
+133 ;;21,"48102-0111-30 ")
+134 ;;717
+135 ;;21,"49349-0685-14 ")
+136 ;;2801
+137 ;;21,"49884-0007-05 ")
+138 ;;580
+139 ;;21,"49884-0041-01 ")
+140 ;;735
+141 ;;21,"49884-0041-05 ")
+142 ;;736
+143 ;;21,"49884-0041-07 ")
+144 ;;737
+145 ;;21,"49884-0073-28 ")
+146 ;;441
+147 ;;21,"49884-0073-47 ")
+148 ;;442
+149 ;;21,"49884-0091-01 ")
+150 ;;6406
+151 ;;21,"49884-0092-01 ")
+152 ;;6419
+153 ;;21,"49884-0092-05 ")
+154 ;;6420
+155 ;;21,"49884-0093-03 ")
+156 ;;6378
+157 ;;21,"49884-0093-04 ")
+158 ;;6379
+159 ;;21,"49884-0096-01 ")
+160 ;;6534
+161 ;;21,"49884-0097-01 ")
+162 ;;6555
+163 ;;21,"49884-0098-03 ")
+164 ;;6477
+165 ;;21,"49884-0168-28 ")
+166 ;;1035
+167 ;;21,"49884-0168-47 ")
+168 ;;1036
+169 ;;21,"49884-0201-49 ")
+170 ;;1197
+171 ;;21,"49884-0201-70 ")
+172 ;;1198
+173 ;;21,"49884-0236-11 ")
+174 ;;6393
+175 ;;21,"49884-0298-07 ")
+176 ;;1090
+177 ;;21,"49884-0298-12 ")
+178 ;;1091
+179 ;;21,"49884-0299-12 ")
+180 ;;1244
+181 ;;21,"49884-0305-02 ")
+182 ;;6387
+183 ;;21,"49884-0313-02 ")
+184 ;;6388
+185 ;;21,"49884-0369-69 ")
+186 ;;110
+187 ;;21,"49884-0511-01 ")
+188 ;;6535
+189 ;;21,"49884-0512-01 ")
+190 ;;6556
+191 ;;21,"49884-0512-10 ")
+192 ;;6557
+193 ;;21,"49884-0513-03 ")
+194 ;;6478
+195 ;;21,"49884-0637-05 ")
+196 ;;4207
+197 ;;21,"49884-0637-74 ")
+198 ;;4208
+199 ;;21,"49884-0638-74 ")
+200 ;;4444
+201 ;;21,"49884-0639-05 ")
+202 ;;4705
+203 ;;21,"49884-0726-01 ")
+204 ;;6398
+205 ;;21,"49884-0727-03 ")
+206 ;;6360
+207 ;;21,"49884-0727-04 ")
+208 ;;6361
+209 ;;21,"49999-0001-28 ")
+210 ;;792
+211 ;;21,"49999-0001-40 ")
+212 ;;793
+213 ;;21,"49999-0002-06 ")
+214 ;;3638
+215 ;;21,"49999-0002-20 ")
+216 ;;3639
+217 ;;21,"49999-0002-24 ")
+218 ;;3640
+219 ;;21,"49999-0002-30 ")
+220 ;;3641
+221 ;;21,"49999-0002-40 ")
+222 ;;3642
+223 ;;21,"49999-0007-00 ")
+224 ;;1932
+225 ;;21,"49999-0007-10 ")
+226 ;;1933
+227 ;;21,"49999-0007-12 ")
+228 ;;1934
+229 ;;21,"49999-0007-14 ")
+230 ;;1935
+231 ;;21,"49999-0007-15 ")
+232 ;;1936
+233 ;;21,"49999-0007-20 ")
+234 ;;1937
+235 ;;21,"49999-0007-21 ")
+236 ;;1938
+237 ;;21,"49999-0007-28 ")
+238 ;;1939
+239 ;;21,"49999-0007-30 ")
+240 ;;1940
+241 ;;21,"49999-0007-40 ")
+242 ;;1941
+243 ;;21,"49999-0007-60 ")
+244 ;;1942
+245 ;;21,"49999-0007-90 ")
+246 ;;1943
+247 ;;21,"49999-0011-00 ")
+248 ;;2275
+249 ;;21,"49999-0011-04 ")
+250 ;;2276
+251 ;;21,"49999-0011-15 ")
+252 ;;2277
+253 ;;21,"49999-0011-18 ")
+254 ;;2278
+255 ;;21,"49999-0011-20 ")
+256 ;;2279
+257 ;;21,"49999-0011-28 ")
+258 ;;2280
+259 ;;21,"49999-0012-00 ")
+260 ;;3310
+261 ;;21,"49999-0012-14 ")
+262 ;;3311
+263 ;;21,"49999-0012-20 ")
+264 ;;3312
+265 ;;21,"49999-0012-28 ")
+266 ;;3313
+267 ;;21,"49999-0012-30 ")
+268 ;;3314
+269 ;;21,"49999-0012-40 ")
+270 ;;3315
+271 ;;21,"49999-0014-00 ")
+272 ;;3187
+273 ;;21,"49999-0014-10 ")
+274 ;;3188
+275 ;;21,"49999-0014-21 ")
+276 ;;3189
+277 ;;21,"49999-0014-30 ")
+278 ;;3190
+279 ;;21,"49999-0015-00 ")
+280 ;;581
+281 ;;21,"49999-0015-06 ")
+282 ;;582
+283 ;;21,"49999-0015-08 ")
+284 ;;583
+285 ;;21,"49999-0015-12 ")
+286 ;;584
+287 ;;21,"49999-0015-14 ")
+288 ;;585
+289 ;;21,"49999-0015-15 ")
+290 ;;586
+291 ;;21,"49999-0015-20 ")
+292 ;;587
+293 ;;21,"49999-0015-21 ")
+294 ;;588
+295 ;;21,"49999-0015-28 ")
+296 ;;589
+297 ;;21,"49999-0015-30 ")
+298 ;;590
+299 ;;21,"49999-0015-40 ")
+300 ;;591
+301 ;;21,"49999-0015-42 ")
+302 ;;592
+303 ;;21,"49999-0015-45 ")
+304 ;;593
+305 ;;21,"49999-0016-04 ")
+306 ;;219
+307 ;;21,"49999-0016-21 ")
+308 ;;220
+309 ;;21,"49999-0016-30 ")
+310 ;;221
+311 ;;21,"49999-0016-40 ")
+312 ;;222
+313 ;;21,"49999-0020-00 ")
+314 ;;6167
+315 ;;21,"49999-0020-14 ")
+316 ;;6168
+317 ;;21,"49999-0020-20 ")
+318 ;;6169
+319 ;;21,"49999-0020-28 ")
+320 ;;6170
+321 ;;21,"49999-0020-30 ")
+322 ;;6171
+323 ;;21,"49999-0021-14 ")
+324 ;;1454
+325 ;;21,"49999-0021-20 ")
+326 ;;1455
+327 ;;21,"49999-0023-00 ")
+328 ;;3130
+329 ;;21,"49999-0023-20 ")
+330 ;;3131
+331 ;;21,"49999-0023-28 ")
+332 ;;3132
+333 ;;21,"49999-0023-30 ")
+334 ;;3133
+335 ;;21,"49999-0023-40 ")
+336 ;;3134
+337 ;;21,"49999-0033-00 ")
+338 ;;326
+339 ;;21,"49999-0033-30 ")
+340 ;;327
+341 ;;21,"49999-0041-04 ")
+342 ;;1642
+343 ;;21,"49999-0041-10 ")
+344 ;;1643
+345 ;;21,"49999-0041-12 ")
+346 ;;1644
+347 ;;21,"49999-0041-20 ")
+348 ;;1645
+349 ;;21,"49999-0041-28 ")
+350 ;;1646
+351 ;;21,"49999-0041-30 ")
+352 ;;1647
+353 ;;21,"49999-0041-40 ")
+354 ;;1648
+355 ;;21,"49999-0050-10 ")
+356 ;;3798
+357 ;;21,"49999-0050-12 ")
+358 ;;3799
+359 ;;21,"49999-0050-14 ")
+360 ;;3800
+361 ;;21,"49999-0050-20 ")
+362 ;;3801
+363 ;;21,"49999-0050-21 ")
+364 ;;3802
+365 ;;21,"49999-0050-28 ")
+366 ;;3803
+367 ;;21,"49999-0050-30 ")
+368 ;;3804
+369 ;;21,"49999-0050-40 ")
+370 ;;3805
+371 ;;21,"49999-0061-04 ")
+372 ;;4445
+373 ;;21,"49999-0061-07 ")
+374 ;;4446
+375 ;;21,"49999-0061-10 ")
+376 ;;4447
+377 ;;21,"49999-0061-14 ")
+378 ;;4448
+379 ;;21,"49999-0061-20 ")
+380 ;;4449
+381 ;;21,"49999-0061-25 ")
+382 ;;4450
+383 ;;21,"49999-0067-28 ")
+384 ;;3276
+385 ;;21,"49999-0067-40 ")
+386 ;;3277
+387 ;;21,"49999-0077-06 ")
+388 ;;5706
+389 ;;21,"49999-0077-10 ")
+390 ;;5707
+391 ;;21,"49999-0077-14 ")
+392 ;;5708
+393 ;;21,"49999-0077-20 ")
+394 ;;5709
+395 ;;21,"49999-0077-28 ")
+396 ;;5710
+397 ;;21,"49999-0077-30 ")
+398 ;;5711
+399 ;;21,"49999-0077-60 ")
+400 ;;5712
+401 ;;21,"49999-0077-90 ")
+402 ;;5713
+403 ;;21,"49999-0080-28 ")
+404 ;;3430
+405 ;;21,"49999-0080-30 ")
+406 ;;3431
+407 ;;21,"49999-0080-40 ")
+408 ;;3432
+409 ;;21,"49999-0096-04 ")
+410 ;;2667
+411 ;;21,"49999-0096-06 ")
+412 ;;2668
+413 ;;21,"49999-0117-20 ")
+414 ;;853
+415 ;;21,"49999-0120-20 ")
+416 ;;3992
+417 ;;21,"49999-0120-28 ")
+418 ;;3993
+419 ;;21,"49999-0120-40 ")
+420 ;;3994
+421 ;;21,"49999-0126-11 ")
+422 ;;5992
+423 ;;21,"49999-0126-14 ")
+424 ;;5993
+425 ;;21,"49999-0126-20 ")
+426 ;;5994
+427 ;;21,"49999-0126-30 ")
+428 ;;5995
+429 ;;21,"49999-0126-56 ")
+430 ;;5996
+431 ;;21,"49999-0164-10 ")
+432 ;;5543
+433 ;;21,"49999-0168-00 ")
+434 ;;400
+435 ;;21,"49999-0168-50 ")
+436 ;;401
+437 ;;21,"49999-0168-80 ")
+438 ;;402
+439 ;;21,"49999-0177-20 ")
+440 ;;1245
+441 ;;21,"49999-0191-00 ")
+442 ;;111
+443 ;;21,"49999-0191-50 ")
+444 ;;112
+445 ;;21,"49999-0191-80 ")
+446 ;;113
+447 ;;21,"49999-0199-30 ")
+448 ;;5142
+449 ;;21,"49999-0213-20 ")
+450 ;;1092
+451 ;;21,"49999-0224-00 ")
+452 ;;6696
+453 ;;21,"49999-0224-14 ")
+454 ;;6697
+455 ;;21,"49999-0224-30 ")
+456 ;;6698
+457 ;;21,"49999-0224-40 ")
+458 ;;6699
+459 ;;21,"49999-0246-20 ")
+460 ;;1093
+461 ;;21,"49999-0260-15 ")
+462 ;;2591
+463 ;;21,"49999-0261-00 ")
+464 ;;1785
+465 ;;21,"49999-0261-20 ")
+466 ;;1786
+467 ;;21,"49999-0267-28 ")
+468 ;;3919
+469 ;;21,"49999-0267-30 ")
+470 ;;3920
+471 ;;21,"49999-0267-40 ")
+472 ;;3921
+473 ;;21,"49999-0290-06 ")
+474 ;;2440
+475 ;;21,"49999-0290-07 ")
+476 ;;2441
+477 ;;21,"49999-0290-10 ")
+478 ;;2442
+479 ;;21,"49999-0290-20 ")
+480 ;;2443
+481 ;;21,"49999-0290-21 ")
+482 ;;2444
+483 ;;21,"49999-0290-30 ")
+484 ;;2445
+485 ;;21,"49999-0309-20 ")
+486 ;;5374
+487 ;;21,"49999-0309-30 ")
+488 ;;5375
+489 ;;21,"49999-0315-00 ")
+490 ;;3553
+491 ;;21,"49999-0325-50 ")
+492 ;;5172
+493 ;;21,"49999-0325-75 ")
+494 ;;5173
+495 ;;21,"49999-0332-20 ")
+496 ;;3726
+497 ;;21,"49999-0333-06 ")
+498 ;;4209
+499 ;;21,"49999-0333-10 ")
+500 ;;4210
+501 ;;21,"49999-0333-14 ")
+502 ;;4211
+503 ;;21,"49999-0333-20 ")
+504 ;;4212
+505 ;;21,"49999-0334-00 ")
+506 ;;4451
+507 ;;21,"49999-0334-01 ")
+508 ;;4452
+509 ;;21,"49999-0334-06 ")
+510 ;;4453
+511 ;;21,"49999-0334-10 ")
+512 ;;4454
+513 ;;21,"49999-0334-14 ")
+514 ;;4455
+515 ;;21,"49999-0334-20 ")
+516 ;;4456
+517 ;;21,"49999-0334-28 ")
+518 ;;4457
+519 ;;21,"49999-0334-30 ")
+520 ;;4458
+521 ;;21,"49999-0356-00 ")
+522 ;;954
+523 ;;21,"49999-0365-50 ")
+524 ;;990
+525 ;;21,"49999-0407-20 ")
+526 ;;2965
+527 ;;21,"49999-0417-10 ")
+528 ;;4799
+529 ;;21,"49999-0418-02 ")
+530 ;;4889
+531 ;;21,"49999-0418-07 ")
+532 ;;4890
+533 ;;21,"49999-0418-10 ")
+534 ;;4891
+535 ;;21,"49999-0418-30 ")
+536 ;;4892
+537 ;;21,"49999-0418-50 ")
+538 ;;4893
+539 ;;21,"49999-0455-05 ")
+540 ;;5023
+541 ;;21,"49999-0455-10 ")
+542 ;;5024
+543 ;;21,"49999-0455-30 ")
+544 ;;5025
+545 ;;21,"49999-0503-20 ")
+546 ;;5589
+547 ;;21,"49999-0504-28 ")
+548 ;;6517
+549 ;;21,"49999-0505-07 ")
+550 ;;6437
+551 ;;21,"49999-0505-20 ")
+552 ;;6438
+553 ;;21,"49999-0505-28 ")
+554 ;;6439
+555 ;;21,"49999-0541-00 ")
+556 ;;6616
+557 ;;21,"49999-0541-28 ")
+558 ;;6617
+559 ;;21,"49999-0556-00 ")
+560 ;;5188
+561 ;;21,"49999-0556-50 ")
+562 ;;5189
+563 ;;21,"49999-0557-30 ")
+564 ;;5209
+565 ;;21,"49999-0557-42 ")
+566 ;;5210
+567 ;;21,"49999-0582-15 ")
+568 ;;2559
+569 ;;21,"49999-0586-01 ")
+570 ;;6797
+571 ;;21,"49999-0586-10 ")
+572 ;;6798
+573 ;;21,"49999-0649-10 ")
+574 ;;5714
+575 ;;21,"49999-0649-20 ")
+576 ;;5715
+577 ;;21,"49999-0649-30 ")
+578 ;;5716
+579 ;;21,"49999-0649-60 ")
+580 ;;5717
+581 ;;21,"49999-0649-90 ")
+582 ;;5718
+583 ;;21,"49999-0651-30 ")
+584 ;;710
+585 ;;21,"49999-0713-00 ")
+586 ;;1561
+587 ;;21,"49999-0766-20 ")
+588 ;;738
+589 ;;21,"49999-0766-28 ")
+590 ;;739
+591 ;;21,"49999-0785-20 ")
+592 ;;5462
+593 ;;21,"49999-0786-06 ")
+594 ;;2669
+595 ;;21,"49999-0810-00 ")
+596 ;;3392
+597 ;;21,"49999-0904-14 ")
+598 ;;2966
+599 ;;21,"49999-0904-20 ")
+600 ;;2967
+601 ;;21,"49999-0983-00 ")
+602 ;;443
+603 ;;21,"50111-0767-28 ")
+604 ;;2592
+605 ;;21,"50111-0787-10 ")
+606 ;;2670
+607 ;;21,"50111-0787-51 ")
+608 ;;2671
+609 ;;21,"50111-0787-52 ")
+610 ;;2672
+611 ;;21,"50111-0787-66 ")
+612 ;;2673
+613 ;;21,"50111-0788-10 ")
+614 ;;2802
+615 ;;21,"50111-0788-52 ")
+616 ;;2803
+617 ;;21,"50111-0788-55 ")
+618 ;;2804
+619 ;;21,"50111-0788-67 ")
+620 ;;2805
+621 ;;21,"50111-0789-10 ")
+622 ;;2858
+623 ;;21,"50111-0791-20 ")
+624 ;;2593
+625 ;;21,"50111-0792-22 ")
+626 ;;2594
+627 ;;21,"50111-0793-20 ")
+628 ;;2560
+629 ;;21,"50111-0794-78 ")
+630 ;;2532
+631 ;;21,"50268-0098-15 ")
+632 ;;2674
+633 ;;21,"50268-0099-13 ")
+634 ;;2806
+635 ;;21,"50268-0100-15 ")
+636 ;;2675
+637 ;;21,"50268-0101-13 ")
+638 ;;2807
+639 ;;21,"50268-0151-15 ")
+640 ;;1649
+641 ;;21,"50268-0152-15 ")
+642 ;;1944
+643 ;;21,"50268-0180-15 ")
+644 ;;2281
+645 ;;21,"50268-0181-15 ")
+646 ;;2446
+647 ;;21,"50268-0277-15 ")
+648 ;;6311
+649 ;;21,"50268-0278-15 ")
+650 ;;5997
+651 ;;21,"50268-0279-15 ")
+652 ;;6172
+653 ;;21,"50268-0567-11 ")
+654 ;;6518
+655 ;;21,"50268-0567-15 ")
+656 ;;6519
+657 ;;21,"50268-0569-11 ")
+658 ;;6440
+659 ;;21,"50268-0569-13 ")
+660 ;;6441
+661 ;;21,"50268-0728-15 ")
+662 ;;5590
+663 ;;21,"50268-0729-13 ")
+664 ;;5719
+665 ;;21,"50268-0775-15 ")
+666 ;;2140
+667 ;;21,"50383-0286-04 ")
+668 ;;4770
+669 ;;21,"50383-0286-08 ")
+670 ;;4771