BGP62Z4 ;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,"13411-0109-06 ")
+2 ;;1320
+3 ;;21,"13411-0109-09 ")
+4 ;;1321
+5 ;;21,"13411-0109-10 ")
+6 ;;1322
+7 ;;21,"13411-0110-01 ")
+8 ;;1496
+9 ;;21,"13411-0110-03 ")
+10 ;;1497
+11 ;;21,"13411-0110-06 ")
+12 ;;1498
+13 ;;21,"13411-0110-09 ")
+14 ;;1499
+15 ;;21,"13411-0110-10 ")
+16 ;;1500
+17 ;;21,"13411-0152-01 ")
+18 ;;3576
+19 ;;21,"13411-0152-03 ")
+20 ;;3577
+21 ;;21,"13411-0152-06 ")
+22 ;;3578
+23 ;;21,"13411-0152-09 ")
+24 ;;3579
+25 ;;21,"13411-0152-15 ")
+26 ;;3580
+27 ;;21,"13411-0153-01 ")
+28 ;;3313
+29 ;;21,"13411-0153-03 ")
+30 ;;3314
+31 ;;21,"13411-0153-06 ")
+32 ;;3315
+33 ;;21,"13411-0153-09 ")
+34 ;;3316
+35 ;;21,"13411-0153-15 ")
+36 ;;3317
+37 ;;21,"13411-0172-01 ")
+38 ;;2310
+39 ;;21,"13411-0172-03 ")
+40 ;;2311
+41 ;;21,"13411-0172-06 ")
+42 ;;2312
+43 ;;21,"13411-0172-09 ")
+44 ;;2313
+45 ;;21,"13411-0172-10 ")
+46 ;;2314
+47 ;;21,"13411-0173-01 ")
+48 ;;2469
+49 ;;21,"13411-0173-03 ")
+50 ;;2470
+51 ;;21,"13411-0173-06 ")
+52 ;;2471
+53 ;;21,"13411-0173-09 ")
+54 ;;2472
+55 ;;21,"13411-0173-10 ")
+56 ;;2473
+57 ;;21,"13668-0004-01 ")
+58 ;;3479
+59 ;;21,"13668-0004-05 ")
+60 ;;3480
+61 ;;21,"13668-0004-10 ")
+62 ;;3481
+63 ;;21,"13668-0004-30 ")
+64 ;;3482
+65 ;;21,"13668-0004-50 ")
+66 ;;3483
+67 ;;21,"13668-0004-90 ")
+68 ;;3484
+69 ;;21,"13668-0005-01 ")
+70 ;;3581
+71 ;;21,"13668-0005-05 ")
+72 ;;3582
+73 ;;21,"13668-0005-10 ")
+74 ;;3583
+75 ;;21,"13668-0005-30 ")
+76 ;;3584
+77 ;;21,"13668-0005-50 ")
+78 ;;3585
+79 ;;21,"13668-0005-90 ")
+80 ;;3586
+81 ;;21,"13668-0006-01 ")
+82 ;;3318
+83 ;;21,"13668-0006-05 ")
+84 ;;3319
+85 ;;21,"13668-0006-10 ")
+86 ;;3320
+87 ;;21,"13668-0006-30 ")
+88 ;;3321
+89 ;;21,"13668-0006-50 ")
+90 ;;3322
+91 ;;21,"13668-0006-90 ")
+92 ;;3323
+93 ;;21,"13668-0009-01 ")
+94 ;;1683
+95 ;;21,"13668-0009-05 ")
+96 ;;1684
+97 ;;21,"13668-0009-09 ")
+98 ;;1685
+99 ;;21,"13668-0009-30 ")
+100 ;;1686
+101 ;;21,"13668-0009-74 ")
+102 ;;1687
+103 ;;21,"13668-0010-01 ")
+104 ;;1804
+105 ;;21,"13668-0010-05 ")
+106 ;;1805
+107 ;;21,"13668-0010-06 ")
+108 ;;1806
+109 ;;21,"13668-0010-30 ")
+110 ;;1807
+111 ;;21,"13668-0010-74 ")
+112 ;;1808
+113 ;;21,"13668-0011-01 ")
+114 ;;1978
+115 ;;21,"13668-0011-05 ")
+116 ;;1979
+117 ;;21,"13668-0011-08 ")
+118 ;;1980
+119 ;;21,"13668-0011-30 ")
+120 ;;1981
+121 ;;21,"13668-0011-74 ")
+122 ;;1982
+123 ;;21,"13668-0018-01 ")
+124 ;;1323
+125 ;;21,"13668-0018-05 ")
+126 ;;1324
+127 ;;21,"13668-0018-30 ")
+128 ;;1325
+129 ;;21,"13668-0018-74 ")
+130 ;;1326
+131 ;;21,"13668-0018-90 ")
+132 ;;1327
+133 ;;21,"13668-0019-01 ")
+134 ;;1501
+135 ;;21,"13668-0019-05 ")
+136 ;;1502
+137 ;;21,"13668-0019-30 ")
+138 ;;1503
+139 ;;21,"13668-0019-74 ")
+140 ;;1504
+141 ;;21,"13668-0019-90 ")
+142 ;;1505
+143 ;;21,"13668-0020-01 ")
+144 ;;1193
+145 ;;21,"13668-0020-05 ")
+146 ;;1194
+147 ;;21,"13668-0020-30 ")
+148 ;;1195
+149 ;;21,"13668-0020-74 ")
+150 ;;1196
+151 ;;21,"13668-0020-90 ")
+152 ;;1197
+153 ;;21,"13668-0109-60 ")
+154 ;;999
+155 ;;21,"13668-0110-05 ")
+156 ;;1030
+157 ;;21,"13668-0110-30 ")
+158 ;;1031
+159 ;;21,"13668-0111-05 ")
+160 ;;1097
+161 ;;21,"13668-0111-30 ")
+162 ;;1098
+163 ;;21,"13668-0135-01 ")
+164 ;;2259
+165 ;;21,"13668-0135-05 ")
+166 ;;2260
+167 ;;21,"13668-0135-10 ")
+168 ;;2261
+169 ;;21,"13668-0136-01 ")
+170 ;;2123
+171 ;;21,"13668-0136-05 ")
+172 ;;2124
+173 ;;21,"13668-0136-10 ")
+174 ;;2125
+175 ;;21,"13668-0137-01 ")
+176 ;;2200
+177 ;;21,"13668-0137-05 ")
+178 ;;2201
+179 ;;21,"13668-0137-10 ")
+180 ;;2202
+181 ;;21,"13668-0330-01 ")
+182 ;;789
+183 ;;21,"13668-0330-05 ")
+184 ;;790
+185 ;;21,"13668-0331-01 ")
+186 ;;549
+187 ;;21,"13668-0331-05 ")
+188 ;;550
+189 ;;21,"13668-0332-01 ")
+190 ;;668
+191 ;;21,"13668-0333-01 ")
+192 ;;749
+193 ;;21,"13668-0430-60 ")
+194 ;;104
+195 ;;21,"13668-0431-25 ")
+196 ;;176
+197 ;;21,"13668-0431-60 ")
+198 ;;177
+199 ;;21,"13668-0432-60 ")
+200 ;;323
+201 ;;21,"16241-0759-01 ")
+202 ;;2653
+203 ;;21,"16252-0533-30 ")
+204 ;;3485
+205 ;;21,"16252-0533-50 ")
+206 ;;3486
+207 ;;21,"16252-0534-30 ")
+208 ;;3587
+209 ;;21,"16252-0534-50 ")
+210 ;;3588
+211 ;;21,"16252-0534-90 ")
+212 ;;3589
+213 ;;21,"16252-0535-30 ")
+214 ;;3324
+215 ;;21,"16252-0535-50 ")
+216 ;;3325
+217 ;;21,"16252-0535-90 ")
+218 ;;3326
+219 ;;21,"16590-0011-30 ")
+220 ;;4005
+221 ;;21,"16590-0011-56 ")
+222 ;;4006
+223 ;;21,"16590-0011-60 ")
+224 ;;4007
+225 ;;21,"16590-0011-72 ")
+226 ;;4008
+227 ;;21,"16590-0011-90 ")
+228 ;;4009
+229 ;;21,"16590-0012-15 ")
+230 ;;4224
+231 ;;21,"16590-0012-28 ")
+232 ;;4225
+233 ;;21,"16590-0012-30 ")
+234 ;;4226
+235 ;;21,"16590-0012-56 ")
+236 ;;4227
+237 ;;21,"16590-0012-60 ")
+238 ;;4228
+239 ;;21,"16590-0012-72 ")
+240 ;;4229
+241 ;;21,"16590-0012-82 ")
+242 ;;4230
+243 ;;21,"16590-0012-90 ")
+244 ;;4231
+245 ;;21,"16590-0013-28 ")
+246 ;;4386
+247 ;;21,"16590-0013-30 ")
+248 ;;4387
+249 ;;21,"16590-0013-60 ")
+250 ;;4388
+251 ;;21,"16590-0013-82 ")
+252 ;;4389
+253 ;;21,"16590-0013-90 ")
+254 ;;4390
+255 ;;21,"16590-0036-30 ")
+256 ;;105
+257 ;;21,"16590-0036-60 ")
+258 ;;106
+259 ;;21,"16590-0037-30 ")
+260 ;;406
+261 ;;21,"16590-0037-60 ")
+262 ;;407
+263 ;;21,"16590-0038-30 ")
+264 ;;178
+265 ;;21,"16590-0038-56 ")
+266 ;;179
+267 ;;21,"16590-0038-60 ")
+268 ;;180
+269 ;;21,"16590-0038-90 ")
+270 ;;181
+271 ;;21,"16590-0055-30 ")
+272 ;;1688
+273 ;;21,"16590-0055-60 ")
+274 ;;1689
+275 ;;21,"16590-0055-90 ")
+276 ;;1690
+277 ;;21,"16590-0056-15 ")
+278 ;;1809
+279 ;;21,"16590-0056-30 ")
+280 ;;1810
+281 ;;21,"16590-0056-60 ")
+282 ;;1811
+283 ;;21,"16590-0056-71 ")
+284 ;;1812
+285 ;;21,"16590-0056-90 ")
+286 ;;1813
+287 ;;21,"16590-0066-30 ")
+288 ;;1032
+289 ;;21,"16590-0066-60 ")
+290 ;;1033
+291 ;;21,"16590-0067-30 ")
+292 ;;1099
+293 ;;21,"16590-0067-60 ")
+294 ;;1100
+295 ;;21,"16590-0081-28 ")
+296 ;;4823
+297 ;;21,"16590-0081-30 ")
+298 ;;4824
+299 ;;21,"16590-0081-60 ")
+300 ;;4825
+301 ;;21,"16590-0081-72 ")
+302 ;;4826
+303 ;;21,"16590-0081-90 ")
+304 ;;4827
+305 ;;21,"16590-0083-30 ")
+306 ;;1378
+307 ;;21,"16590-0083-60 ")
+308 ;;1379
+309 ;;21,"16590-0084-30 ")
+310 ;;1583
+311 ;;21,"16590-0084-60 ")
+312 ;;1584
+313 ;;21,"16590-0085-30 ")
+314 ;;1328
+315 ;;21,"16590-0085-60 ")
+316 ;;1329
+317 ;;21,"16590-0086-30 ")
+318 ;;1506
+319 ;;21,"16590-0086-56 ")
+320 ;;1507
+321 ;;21,"16590-0086-60 ")
+322 ;;1508
+323 ;;21,"16590-0086-90 ")
+324 ;;1509
+325 ;;21,"16590-0087-60 ")
+326 ;;1198
+327 ;;21,"16590-0099-30 ")
+328 ;;2315
+329 ;;21,"16590-0099-60 ")
+330 ;;2316
+331 ;;21,"16590-0100-28 ")
+332 ;;2474
+333 ;;21,"16590-0100-30 ")
+334 ;;2475
+335 ;;21,"16590-0100-56 ")
+336 ;;2476
+337 ;;21,"16590-0100-60 ")
+338 ;;2477
+339 ;;21,"16590-0100-71 ")
+340 ;;2478
+341 ;;21,"16590-0100-90 ")
+342 ;;2479
+343 ;;21,"16590-0139-30 ")
+344 ;;2126
+345 ;;21,"16590-0139-60 ")
+346 ;;2127
+347 ;;21,"16590-0153-30 ")
+348 ;;3751
+349 ;;21,"16590-0153-60 ")
+350 ;;3752
+351 ;;21,"16590-0154-30 ")
+352 ;;3843
+353 ;;21,"16590-0154-45 ")
+354 ;;3844
+355 ;;21,"16590-0154-56 ")
+356 ;;3845
+357 ;;21,"16590-0154-60 ")
+358 ;;3846
+359 ;;21,"16590-0154-90 ")
+360 ;;3847
+361 ;;21,"16590-0155-30 ")
+362 ;;3933
+363 ;;21,"16590-0155-60 ")
+364 ;;3934
+365 ;;21,"16590-0166-30 ")
+366 ;;474
+367 ;;21,"16590-0166-60 ")
+368 ;;475
+369 ;;21,"16590-0166-90 ")
+370 ;;476
+371 ;;21,"16590-0171-30 ")
+372 ;;5127
+373 ;;21,"16590-0171-60 ")
+374 ;;5128
+375 ;;21,"16590-0171-90 ")
+376 ;;5129
+377 ;;21,"16590-0181-15 ")
+378 ;;2964
+379 ;;21,"16590-0181-28 ")
+380 ;;2965
+381 ;;21,"16590-0181-30 ")
+382 ;;2966
+383 ;;21,"16590-0181-60 ")
+384 ;;2967
+385 ;;21,"16590-0181-90 ")
+386 ;;2968
+387 ;;21,"16590-0231-15 ")
+388 ;;791
+389 ;;21,"16590-0231-30 ")
+390 ;;792
+391 ;;21,"16590-0231-45 ")
+392 ;;793
+393 ;;21,"16590-0231-60 ")
+394 ;;794
+395 ;;21,"16590-0231-82 ")
+396 ;;795
+397 ;;21,"16590-0231-90 ")
+398 ;;796
+399 ;;21,"16590-0232-15 ")
+400 ;;551
+401 ;;21,"16590-0232-28 ")
+402 ;;552
+403 ;;21,"16590-0232-30 ")
+404 ;;553
+405 ;;21,"16590-0232-45 ")
+406 ;;554
+407 ;;21,"16590-0232-60 ")
+408 ;;555
+409 ;;21,"16590-0232-71 ")
+410 ;;556
+411 ;;21,"16590-0232-90 ")
+412 ;;557
+413 ;;21,"16590-0246-30 ")
+414 ;;347
+415 ;;21,"16590-0246-60 ")
+416 ;;348
+417 ;;21,"16590-0246-90 ")
+418 ;;349
+419 ;;21,"16590-0249-30 ")
+420 ;;3487
+421 ;;21,"16590-0249-60 ")
+422 ;;3488
+423 ;;21,"16590-0249-90 ")
+424 ;;3489
+425 ;;21,"16590-0250-30 ")
+426 ;;3590
+427 ;;21,"16590-0250-60 ")
+428 ;;3591
+429 ;;21,"16590-0250-90 ")
+430 ;;3592
+431 ;;21,"16590-0251-30 ")
+432 ;;3327
+433 ;;21,"16590-0251-60 ")
+434 ;;3328
+435 ;;21,"16590-0251-90 ")
+436 ;;3329
+437 ;;21,"16590-0270-30 ")
+438 ;;2788
+439 ;;21,"16590-0270-60 ")
+440 ;;2789
+441 ;;21,"16590-0270-90 ")
+442 ;;2790
+443 ;;21,"16590-0322-30 ")
+444 ;;2830
+445 ;;21,"16590-0322-56 ")
+446 ;;2831
+447 ;;21,"16590-0322-60 ")
+448 ;;2832
+449 ;;21,"16590-0322-72 ")
+450 ;;2833
+451 ;;21,"16590-0322-90 ")
+452 ;;2834
+453 ;;21,"16590-0416-10 ")
+454 ;;3330
+455 ;;21,"16590-0416-15 ")
+456 ;;3331
+457 ;;21,"16590-0416-30 ")
+458 ;;3332
+459 ;;21,"16590-0416-60 ")
+460 ;;3333
+461 ;;21,"16590-0416-90 ")
+462 ;;3334
+463 ;;21,"16590-0437-30 ")
+464 ;;4120
+465 ;;21,"16590-0437-60 ")
+466 ;;4121
+467 ;;21,"16590-0437-90 ")
+468 ;;4122
+469 ;;21,"16590-0457-15 ")
+470 ;;3593
+471 ;;21,"16590-0457-28 ")
+472 ;;3594
+473 ;;21,"16590-0457-30 ")
+474 ;;3595
+475 ;;21,"16590-0457-60 ")
+476 ;;3596
+477 ;;21,"16590-0457-90 ")
+478 ;;3597
+479 ;;21,"16590-0480-30 ")
+480 ;;1983
+481 ;;21,"16590-0480-45 ")
+482 ;;1984
+483 ;;21,"16590-0480-60 ")
+484 ;;1985
+485 ;;21,"16590-0480-90 ")
+486 ;;1986
+487 ;;21,"16590-0482-30 ")
+488 ;;1034
+489 ;;21,"16590-0482-60 ")
+490 ;;1035
+491 ;;21,"16590-0482-72 ")
+492 ;;1036
+493 ;;21,"16590-0482-90 ")
+494 ;;1037
+495 ;;21,"16590-0483-30 ")
+496 ;;1101
+497 ;;21,"16590-0483-60 ")
+498 ;;1102
+499 ;;21,"16590-0483-72 ")
+500 ;;1103
+501 ;;21,"16590-0483-90 ")
+502 ;;1104
+503 ;;21,"16590-0484-30 ")
+504 ;;4668
+505 ;;21,"16590-0484-60 ")
+506 ;;4669
+507 ;;21,"16590-0484-72 ")
+508 ;;4670
+509 ;;21,"16590-0484-90 ")
+510 ;;4671
+511 ;;21,"16590-0490-30 ")
+512 ;;2694
+513 ;;21,"16590-0490-60 ")
+514 ;;2695
+515 ;;21,"16590-0490-72 ")
+516 ;;2696
+517 ;;21,"16590-0490-90 ")
+518 ;;2697
+519 ;;21,"16590-0497-30 ")
+520 ;;2203
+521 ;;21,"16590-0497-60 ")
+522 ;;2204
+523 ;;21,"16590-0497-72 ")
+524 ;;2205
+525 ;;21,"16590-0497-90 ")
+526 ;;2206
+527 ;;21,"16590-0510-30 ")
+528 ;;5258
+529 ;;21,"16590-0510-60 ")
+530 ;;5259
+531 ;;21,"16590-0510-72 ")
+532 ;;5260
+533 ;;21,"16590-0510-90 ")
+534 ;;5261
+535 ;;21,"16590-0512-06 ")
+536 ;;3140
+537 ;;21,"16590-0512-30 ")
+538 ;;3141
+539 ;;21,"16590-0512-60 ")
+540 ;;3142
+541 ;;21,"16590-0512-72 ")
+542 ;;3143
+543 ;;21,"16590-0512-90 ")
+544 ;;3144
+545 ;;21,"16590-0513-30 ")
+546 ;;3217
+547 ;;21,"16590-0513-56 ")
+548 ;;3218
+549 ;;21,"16590-0513-60 ")
+550 ;;3219
+551 ;;21,"16590-0513-72 ")
+552 ;;3220
+553 ;;21,"16590-0513-90 ")
+554 ;;3221
+555 ;;21,"16590-0514-30 ")
+556 ;;2918
+557 ;;21,"16590-0514-60 ")
+558 ;;2919
+559 ;;21,"16590-0514-72 ")
+560 ;;2920
+561 ;;21,"16590-0514-90 ")
+562 ;;2921
+563 ;;21,"16590-0526-30 ")
+564 ;;276
+565 ;;21,"16590-0526-60 ")
+566 ;;277
+567 ;;21,"16590-0526-90 ")
+568 ;;278
+569 ;;21,"16590-0541-30 ")
+570 ;;4495
+571 ;;21,"16590-0541-60 ")
+572 ;;4496
+573 ;;21,"16590-0541-72 ")
+574 ;;4497
+575 ;;21,"16590-0541-90 ")
+576 ;;4498
+577 ;;21,"16590-0577-30 ")
+578 ;;4937
+579 ;;21,"16590-0585-28 ")
+580 ;;669
+581 ;;21,"16590-0585-30 ")
+582 ;;670
+583 ;;21,"16590-0585-60 ")
+584 ;;671
+585 ;;21,"16590-0585-71 ")
+586 ;;672
+587 ;;21,"16590-0585-90 ")
+588 ;;673
+589 ;;21,"16590-0631-30 ")
+590 ;;4696
+591 ;;21,"16590-0631-60 ")
+592 ;;4697
+593 ;;21,"16590-0631-71 ")
+594 ;;4698
+595 ;;21,"16590-0631-90 ")
+596 ;;4699
+597 ;;21,"16590-0644-30 ")
+598 ;;1380
+599 ;;21,"16590-0644-60 ")
+600 ;;1381
+601 ;;21,"16590-0644-90 ")
+602 ;;1382
+603 ;;21,"16590-0700-30 ")
+604 ;;3490
+605 ;;21,"16590-0700-60 ")
+606 ;;3491
+607 ;;21,"16590-0700-82 ")
+608 ;;3492
+609 ;;21,"16590-0764-30 ")
+610 ;;4736
+611 ;;21,"16590-0764-60 ")
+612 ;;4737
+613 ;;21,"16590-0764-90 ")
+614 ;;4738
+615 ;;21,"16590-0843-90 ")
+616 ;;2480
+617 ;;21,"16714-0311-01 ")
+618 ;;1276
+619 ;;21,"16714-0312-01 ")
+620 ;;1383
+621 ;;21,"16714-0313-01 ")
+622 ;;1455
+623 ;;21,"16714-0314-01 ")
+624 ;;1585
+625 ;;21,"16714-0315-01 ")
+626 ;;1163
+627 ;;21,"16714-0334-01 ")
+628 ;;107
+629 ;;21,"16714-0334-02 ")
+630 ;;108
+631 ;;21,"16714-0334-03 ")
+632 ;;109
+633 ;;21,"16714-0335-01 ")
+634 ;;182
+635 ;;21,"16714-0335-02 ")
+636 ;;183
+637 ;;21,"16714-0335-03 ")
+638 ;;184
+639 ;;21,"16714-0336-01 ")
+640 ;;324
+641 ;;21,"16714-0351-01 ")
+642 ;;2317
+643 ;;21,"16714-0351-02 ")
+644 ;;2318
+645 ;;21,"16714-0351-03 ")
+646 ;;2319
+647 ;;21,"16714-0352-01 ")
+648 ;;2481
+649 ;;21,"16714-0352-02 ")
+650 ;;2482
+651 ;;21,"16714-0352-03 ")
+652 ;;2483
+653 ;;21,"16714-0353-01 ")
+654 ;;2698
+655 ;;21,"16714-0353-02 ")
+656 ;;2699
+657 ;;21,"16714-0353-03 ")
+658 ;;2700
+659 ;;21,"16714-0353-04 ")
+660 ;;2701
+661 ;;21,"16714-0446-01 ")
+662 ;;4010
+663 ;;21,"16714-0446-02 ")
+664 ;;4011
+665 ;;21,"16714-0447-01 ")
+666 ;;4232
+667 ;;21,"16714-0447-02 ")
+668 ;;4233
+669 ;;21,"16714-0448-01 ")
+670 ;;4391