BGP62Y16 ;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,"58016-0123-30 ")
+2 ;;3083
+3 ;;21,"58016-0123-40 ")
+4 ;;3084
+5 ;;21,"58016-0126-00 ")
+6 ;;3221
+7 ;;21,"58016-0126-15 ")
+8 ;;3222
+9 ;;21,"58016-0126-18 ")
+10 ;;3223
+11 ;;21,"58016-0126-20 ")
+12 ;;3224
+13 ;;21,"58016-0126-21 ")
+14 ;;3225
+15 ;;21,"58016-0126-28 ")
+16 ;;3226
+17 ;;21,"58016-0126-30 ")
+18 ;;3227
+19 ;;21,"58016-0126-42 ")
+20 ;;3228
+21 ;;21,"58016-0126-60 ")
+22 ;;3229
+23 ;;21,"58016-0126-99 ")
+24 ;;3230
+25 ;;21,"58016-0127-06 ")
+26 ;;3462
+27 ;;21,"58016-0127-08 ")
+28 ;;3463
+29 ;;21,"58016-0127-10 ")
+30 ;;3464
+31 ;;21,"58016-0127-14 ")
+32 ;;3465
+33 ;;21,"58016-0127-20 ")
+34 ;;3466
+35 ;;21,"58016-0127-21 ")
+36 ;;3467
+37 ;;21,"58016-0127-24 ")
+38 ;;3468
+39 ;;21,"58016-0127-28 ")
+40 ;;3469
+41 ;;21,"58016-0127-30 ")
+42 ;;3470
+43 ;;21,"58016-0127-40 ")
+44 ;;3471
+45 ;;21,"58016-0127-42 ")
+46 ;;3472
+47 ;;21,"58016-0127-50 ")
+48 ;;3473
+49 ;;21,"58016-0127-60 ")
+50 ;;3474
+51 ;;21,"58016-0137-00 ")
+52 ;;4269
+53 ;;21,"58016-0137-02 ")
+54 ;;4270
+55 ;;21,"58016-0137-10 ")
+56 ;;4271
+57 ;;21,"58016-0137-12 ")
+58 ;;4272
+59 ;;21,"58016-0137-15 ")
+60 ;;4273
+61 ;;21,"58016-0137-20 ")
+62 ;;4274
+63 ;;21,"58016-0137-30 ")
+64 ;;4275
+65 ;;21,"58016-0137-60 ")
+66 ;;4276
+67 ;;21,"58016-0137-90 ")
+68 ;;4277
+69 ;;21,"58016-0138-00 ")
+70 ;;1698
+71 ;;21,"58016-0138-02 ")
+72 ;;1699
+73 ;;21,"58016-0138-03 ")
+74 ;;1700
+75 ;;21,"58016-0138-12 ")
+76 ;;1701
+77 ;;21,"58016-0138-14 ")
+78 ;;1702
+79 ;;21,"58016-0138-15 ")
+80 ;;1703
+81 ;;21,"58016-0138-20 ")
+82 ;;1704
+83 ;;21,"58016-0138-21 ")
+84 ;;1705
+85 ;;21,"58016-0138-24 ")
+86 ;;1706
+87 ;;21,"58016-0138-28 ")
+88 ;;1707
+89 ;;21,"58016-0138-30 ")
+90 ;;1708
+91 ;;21,"58016-0138-40 ")
+92 ;;1709
+93 ;;21,"58016-0138-56 ")
+94 ;;1710
+95 ;;21,"58016-0138-60 ")
+96 ;;1711
+97 ;;21,"58016-0138-73 ")
+98 ;;1712
+99 ;;21,"58016-0138-89 ")
+100 ;;1713
+101 ;;21,"58016-0139-00 ")
+102 ;;2015
+103 ;;21,"58016-0139-02 ")
+104 ;;2016
+105 ;;21,"58016-0139-03 ")
+106 ;;2017
+107 ;;21,"58016-0139-04 ")
+108 ;;2018
+109 ;;21,"58016-0139-05 ")
+110 ;;2019
+111 ;;21,"58016-0139-06 ")
+112 ;;2020
+113 ;;21,"58016-0139-08 ")
+114 ;;2021
+115 ;;21,"58016-0139-10 ")
+116 ;;2022
+117 ;;21,"58016-0139-12 ")
+118 ;;2023
+119 ;;21,"58016-0139-14 ")
+120 ;;2024
+121 ;;21,"58016-0139-15 ")
+122 ;;2025
+123 ;;21,"58016-0139-18 ")
+124 ;;2026
+125 ;;21,"58016-0139-20 ")
+126 ;;2027
+127 ;;21,"58016-0139-21 ")
+128 ;;2028
+129 ;;21,"58016-0139-24 ")
+130 ;;2029
+131 ;;21,"58016-0139-28 ")
+132 ;;2030
+133 ;;21,"58016-0139-30 ")
+134 ;;2031
+135 ;;21,"58016-0139-40 ")
+136 ;;2032
+137 ;;21,"58016-0139-50 ")
+138 ;;2033
+139 ;;21,"58016-0139-56 ")
+140 ;;2034
+141 ;;21,"58016-0139-60 ")
+142 ;;2035
+143 ;;21,"58016-0139-73 ")
+144 ;;2036
+145 ;;21,"58016-0139-89 ")
+146 ;;2037
+147 ;;21,"58016-0145-18 ")
+148 ;;3255
+149 ;;21,"58016-0146-00 ")
+150 ;;3673
+151 ;;21,"58016-0146-02 ")
+152 ;;3674
+153 ;;21,"58016-0146-03 ")
+154 ;;3675
+155 ;;21,"58016-0146-10 ")
+156 ;;3676
+157 ;;21,"58016-0146-12 ")
+158 ;;3677
+159 ;;21,"58016-0146-16 ")
+160 ;;3678
+161 ;;21,"58016-0146-20 ")
+162 ;;3679
+163 ;;21,"58016-0146-21 ")
+164 ;;3680
+165 ;;21,"58016-0146-24 ")
+166 ;;3681
+167 ;;21,"58016-0146-28 ")
+168 ;;3682
+169 ;;21,"58016-0146-30 ")
+170 ;;3683
+171 ;;21,"58016-0146-40 ")
+172 ;;3684
+173 ;;21,"58016-0146-60 ")
+174 ;;3685
+175 ;;21,"58016-0146-73 ")
+176 ;;3686
+177 ;;21,"58016-0146-89 ")
+178 ;;3687
+179 ;;21,"58016-0146-90 ")
+180 ;;3688
+181 ;;21,"58016-0147-00 ")
+182 ;;3848
+183 ;;21,"58016-0147-02 ")
+184 ;;3849
+185 ;;21,"58016-0147-03 ")
+186 ;;3850
+187 ;;21,"58016-0147-06 ")
+188 ;;3851
+189 ;;21,"58016-0147-10 ")
+190 ;;3852
+191 ;;21,"58016-0147-12 ")
+192 ;;3853
+193 ;;21,"58016-0147-15 ")
+194 ;;3854
+195 ;;21,"58016-0147-16 ")
+196 ;;3855
+197 ;;21,"58016-0147-20 ")
+198 ;;3856
+199 ;;21,"58016-0147-21 ")
+200 ;;3857
+201 ;;21,"58016-0147-24 ")
+202 ;;3858
+203 ;;21,"58016-0147-28 ")
+204 ;;3859
+205 ;;21,"58016-0147-30 ")
+206 ;;3860
+207 ;;21,"58016-0147-40 ")
+208 ;;3861
+209 ;;21,"58016-0147-50 ")
+210 ;;3862
+211 ;;21,"58016-0147-60 ")
+212 ;;3863
+213 ;;21,"58016-0147-73 ")
+214 ;;3864
+215 ;;21,"58016-0147-89 ")
+216 ;;3865
+217 ;;21,"58016-0147-90 ")
+218 ;;3866
+219 ;;21,"58016-0148-00 ")
+220 ;;796
+221 ;;21,"58016-0148-08 ")
+222 ;;797
+223 ;;21,"58016-0148-09 ")
+224 ;;798
+225 ;;21,"58016-0148-10 ")
+226 ;;799
+227 ;;21,"58016-0148-12 ")
+228 ;;800
+229 ;;21,"58016-0148-14 ")
+230 ;;801
+231 ;;21,"58016-0148-15 ")
+232 ;;802
+233 ;;21,"58016-0148-20 ")
+234 ;;803
+235 ;;21,"58016-0148-24 ")
+236 ;;804
+237 ;;21,"58016-0148-28 ")
+238 ;;805
+239 ;;21,"58016-0148-30 ")
+240 ;;806
+241 ;;21,"58016-0148-40 ")
+242 ;;807
+243 ;;21,"58016-0148-50 ")
+244 ;;808
+245 ;;21,"58016-0149-00 ")
+246 ;;865
+247 ;;21,"58016-0149-07 ")
+248 ;;866
+249 ;;21,"58016-0149-10 ")
+250 ;;867
+251 ;;21,"58016-0149-20 ")
+252 ;;868
+253 ;;21,"58016-0149-21 ")
+254 ;;869
+255 ;;21,"58016-0149-24 ")
+256 ;;870
+257 ;;21,"58016-0149-25 ")
+258 ;;871
+259 ;;21,"58016-0149-28 ")
+260 ;;872
+261 ;;21,"58016-0149-30 ")
+262 ;;873
+263 ;;21,"58016-0149-40 ")
+264 ;;874
+265 ;;21,"58016-0156-00 ")
+266 ;;6236
+267 ;;21,"58016-0156-02 ")
+268 ;;6237
+269 ;;21,"58016-0156-03 ")
+270 ;;6238
+271 ;;21,"58016-0156-06 ")
+272 ;;6239
+273 ;;21,"58016-0156-07 ")
+274 ;;6240
+275 ;;21,"58016-0156-10 ")
+276 ;;6241
+277 ;;21,"58016-0156-12 ")
+278 ;;6242
+279 ;;21,"58016-0156-14 ")
+280 ;;6243
+281 ;;21,"58016-0156-15 ")
+282 ;;6244
+283 ;;21,"58016-0156-16 ")
+284 ;;6245
+285 ;;21,"58016-0156-20 ")
+286 ;;6246
+287 ;;21,"58016-0156-21 ")
+288 ;;6247
+289 ;;21,"58016-0156-24 ")
+290 ;;6248
+291 ;;21,"58016-0156-28 ")
+292 ;;6249
+293 ;;21,"58016-0156-30 ")
+294 ;;6250
+295 ;;21,"58016-0156-40 ")
+296 ;;6251
+297 ;;21,"58016-0156-60 ")
+298 ;;6252
+299 ;;21,"58016-0156-73 ")
+300 ;;6253
+301 ;;21,"58016-0156-89 ")
+302 ;;6254
+303 ;;21,"58016-0161-10 ")
+304 ;;6048
+305 ;;21,"58016-0161-12 ")
+306 ;;6049
+307 ;;21,"58016-0161-14 ")
+308 ;;6050
+309 ;;21,"58016-0161-15 ")
+310 ;;6051
+311 ;;21,"58016-0161-16 ")
+312 ;;6052
+313 ;;21,"58016-0161-18 ")
+314 ;;6053
+315 ;;21,"58016-0161-20 ")
+316 ;;6054
+317 ;;21,"58016-0161-21 ")
+318 ;;6055
+319 ;;21,"58016-0161-24 ")
+320 ;;6056
+321 ;;21,"58016-0161-28 ")
+322 ;;6057
+323 ;;21,"58016-0161-30 ")
+324 ;;6058
+325 ;;21,"58016-0161-40 ")
+326 ;;6059
+327 ;;21,"58016-0161-50 ")
+328 ;;6060
+329 ;;21,"58016-0161-60 ")
+330 ;;6061
+331 ;;21,"58016-0162-28 ")
+332 ;;3115
+333 ;;21,"58016-0162-30 ")
+334 ;;3116
+335 ;;21,"58016-0162-40 ")
+336 ;;3117
+337 ;;21,"58016-0167-00 ")
+338 ;;3475
+339 ;;21,"58016-0167-20 ")
+340 ;;3476
+341 ;;21,"58016-0167-40 ")
+342 ;;3477
+343 ;;21,"58016-0171-20 ")
+344 ;;5599
+345 ;;21,"58016-0171-30 ")
+346 ;;5600
+347 ;;21,"58016-0204-00 ")
+348 ;;5411
+349 ;;21,"58016-0204-30 ")
+350 ;;5412
+351 ;;21,"58016-0204-60 ")
+352 ;;5413
+353 ;;21,"58016-0204-90 ")
+354 ;;5414
+355 ;;21,"58016-0284-15 ")
+356 ;;6458
+357 ;;21,"58016-0284-20 ")
+358 ;;6459
+359 ;;21,"58016-0284-30 ")
+360 ;;6460
+361 ;;21,"58016-0284-50 ")
+362 ;;6461
+363 ;;21,"58016-0299-00 ")
+364 ;;2999
+365 ;;21,"58016-0299-30 ")
+366 ;;3000
+367 ;;21,"58016-0299-60 ")
+368 ;;3001
+369 ;;21,"58016-0299-90 ")
+370 ;;3002
+371 ;;21,"58016-0339-30 ")
+372 ;;5222
+373 ;;21,"58016-0391-00 ")
+374 ;;2716
+375 ;;21,"58016-0391-01 ")
+376 ;;2717
+377 ;;21,"58016-0391-06 ")
+378 ;;2718
+379 ;;21,"58016-0391-10 ")
+380 ;;2719
+381 ;;21,"58016-0391-15 ")
+382 ;;2720
+383 ;;21,"58016-0391-18 ")
+384 ;;2721
+385 ;;21,"58016-0391-20 ")
+386 ;;2722
+387 ;;21,"58016-0391-28 ")
+388 ;;2723
+389 ;;21,"58016-0391-30 ")
+390 ;;2724
+391 ;;21,"58016-0391-60 ")
+392 ;;2725
+393 ;;21,"58016-0391-90 ")
+394 ;;2726
+395 ;;21,"58016-0453-00 ")
+396 ;;2338
+397 ;;21,"58016-0453-12 ")
+398 ;;2339
+399 ;;21,"58016-0453-15 ")
+400 ;;2340
+401 ;;21,"58016-0453-20 ")
+402 ;;2341
+403 ;;21,"58016-0453-21 ")
+404 ;;2342
+405 ;;21,"58016-0453-30 ")
+406 ;;2343
+407 ;;21,"58016-0453-40 ")
+408 ;;2344
+409 ;;21,"58016-0550-10 ")
+410 ;;3003
+411 ;;21,"58016-0550-12 ")
+412 ;;3004
+413 ;;21,"58016-0550-14 ")
+414 ;;3005
+415 ;;21,"58016-0550-15 ")
+416 ;;3006
+417 ;;21,"58016-0550-20 ")
+418 ;;3007
+419 ;;21,"58016-0550-30 ")
+420 ;;3008
+421 ;;21,"58016-0550-40 ")
+422 ;;3009
+423 ;;21,"58016-0573-00 ")
+424 ;;4935
+425 ;;21,"58016-0573-07 ")
+426 ;;4936
+427 ;;21,"58016-0573-10 ")
+428 ;;4937
+429 ;;21,"58016-0573-20 ")
+430 ;;4938
+431 ;;21,"58016-0573-30 ")
+432 ;;4939
+433 ;;21,"58016-0573-60 ")
+434 ;;4940
+435 ;;21,"58016-0573-90 ")
+436 ;;4941
+437 ;;21,"58016-0633-00 ")
+438 ;;2038
+439 ;;21,"58016-0633-30 ")
+440 ;;2039
+441 ;;21,"58016-0633-60 ")
+442 ;;2040
+443 ;;21,"58016-0633-90 ")
+444 ;;2041
+445 ;;21,"58016-0634-00 ")
+446 ;;2480
+447 ;;21,"58016-0634-30 ")
+448 ;;2481
+449 ;;21,"58016-0634-60 ")
+450 ;;2482
+451 ;;21,"58016-0634-90 ")
+452 ;;2483
+453 ;;21,"58016-0643-00 ")
+454 ;;752
+455 ;;21,"58016-0643-02 ")
+456 ;;753
+457 ;;21,"58016-0643-04 ")
+458 ;;754
+459 ;;21,"58016-0643-09 ")
+460 ;;755
+461 ;;21,"58016-0643-12 ")
+462 ;;756
+463 ;;21,"58016-0643-15 ")
+464 ;;757
+465 ;;21,"58016-0643-18 ")
+466 ;;758
+467 ;;21,"58016-0643-20 ")
+468 ;;759
+469 ;;21,"58016-0643-21 ")
+470 ;;760
+471 ;;21,"58016-0643-24 ")
+472 ;;761
+473 ;;21,"58016-0643-30 ")
+474 ;;762
+475 ;;21,"58016-0643-40 ")
+476 ;;763
+477 ;;21,"58016-0643-50 ")
+478 ;;764
+479 ;;21,"58016-0643-60 ")
+480 ;;765
+481 ;;21,"58016-0643-89 ")
+482 ;;766
+483 ;;21,"58016-0643-90 ")
+484 ;;767
+485 ;;21,"58016-0643-99 ")
+486 ;;768
+487 ;;21,"58016-0872-12 ")
+488 ;;5147
+489 ;;21,"58016-0872-15 ")
+490 ;;5148
+491 ;;21,"58016-0872-18 ")
+492 ;;5149
+493 ;;21,"58016-0872-20 ")
+494 ;;5150
+495 ;;21,"58016-0872-24 ")
+496 ;;5151
+497 ;;21,"58016-0872-30 ")
+498 ;;5152
+499 ;;21,"58016-0873-00 ")
+500 ;;6526
+501 ;;21,"58016-0873-15 ")
+502 ;;6527
+503 ;;21,"58016-0873-20 ")
+504 ;;6528
+505 ;;21,"58016-0873-30 ")
+506 ;;6529
+507 ;;21,"58016-0924-00 ")
+508 ;;4824
+509 ;;21,"58016-0924-30 ")
+510 ;;4825
+511 ;;21,"58016-0924-60 ")
+512 ;;4826
+513 ;;21,"58016-0924-90 ")
+514 ;;4827
+515 ;;21,"58016-0953-00 ")
+516 ;;4573
+517 ;;21,"58016-0953-02 ")
+518 ;;4574
+519 ;;21,"58016-0953-10 ")
+520 ;;4575
+521 ;;21,"58016-0953-12 ")
+522 ;;4576
+523 ;;21,"58016-0953-15 ")
+524 ;;4577
+525 ;;21,"58016-0953-20 ")
+526 ;;4578
+527 ;;21,"58016-0953-30 ")
+528 ;;4579
+529 ;;21,"58016-0953-60 ")
+530 ;;4580
+531 ;;21,"58016-0953-90 ")
+532 ;;4581
+533 ;;21,"58016-0955-00 ")
+534 ;;5920
+535 ;;21,"58016-0955-30 ")
+536 ;;5921
+537 ;;21,"58016-0955-60 ")
+538 ;;5922
+539 ;;21,"58016-0955-90 ")
+540 ;;5923
+541 ;;21,"58016-0957-00 ")
+542 ;;4743
+543 ;;21,"58016-0957-02 ")
+544 ;;4744
+545 ;;21,"58016-0957-10 ")
+546 ;;4745
+547 ;;21,"58016-0957-12 ")
+548 ;;4746
+549 ;;21,"58016-0957-15 ")
+550 ;;4747
+551 ;;21,"58016-0957-20 ")
+552 ;;4748
+553 ;;21,"58016-0957-30 ")
+554 ;;4749
+555 ;;21,"58016-0957-60 ")
+556 ;;4750
+557 ;;21,"58016-0957-90 ")
+558 ;;4751
+559 ;;21,"58016-0964-00 ")
+560 ;;5484
+561 ;;21,"58016-0964-30 ")
+562 ;;5485
+563 ;;21,"58016-0964-60 ")
+564 ;;5486
+565 ;;21,"58016-0964-90 ")
+566 ;;5487
+567 ;;21,"58016-0975-00 ")
+568 ;;4987
+569 ;;21,"58016-0975-30 ")
+570 ;;4988
+571 ;;21,"58016-0975-60 ")
+572 ;;4989
+573 ;;21,"58016-0975-90 ")
+574 ;;4990
+575 ;;21,"58016-1004-01 ")
+576 ;;125
+577 ;;21,"58016-1005-01 ")
+578 ;;415
+579 ;;21,"58016-1006-01 ")
+580 ;;416
+581 ;;21,"58016-1007-01 ")
+582 ;;417
+583 ;;21,"58016-1011-01 ")
+584 ;;999
+585 ;;21,"58016-1019-01 ")
+586 ;;1570
+587 ;;21,"58016-1021-01 ")
+588 ;;1796
+589 ;;21,"58016-1023-01 ")
+590 ;;3566
+591 ;;21,"58016-1024-01 ")
+592 ;;3567
+593 ;;21,"58016-1025-01 ")
+594 ;;3568
+595 ;;21,"58016-1026-01 ")
+596 ;;3612
+597 ;;21,"58016-1027-01 ")
+598 ;;3613
+599 ;;21,"58016-1028-01 ")
+600 ;;3737
+601 ;;21,"58016-1029-01 ")
+602 ;;3738
+603 ;;21,"58016-1033-01 ")
+604 ;;835
+605 ;;21,"58016-1034-01 ")
+606 ;;836
+607 ;;21,"58016-1035-01 ")
+608 ;;5564
+609 ;;21,"58016-1036-01 ")
+610 ;;3376
+611 ;;21,"58016-1037-01 ")
+612 ;;3377
+613 ;;21,"58016-1038-01 ")
+614 ;;3493
+615 ;;21,"58016-1039-01 ")
+616 ;;3494
+617 ;;21,"58016-1045-01 ")
+618 ;;1797
+619 ;;21,"58016-1046-01 ")
+620 ;;1571
+621 ;;21,"58016-4192-01 ")
+622 ;;5178
+623 ;;21,"58016-4786-01 ")
+624 ;;6807
+625 ;;21,"58016-4790-01 ")
+626 ;;6885
+627 ;;21,"58016-4804-01 ")
+628 ;;1146
+629 ;;21,"58016-4807-01 ")
+630 ;;7047
+631 ;;21,"58016-4814-01 ")
+632 ;;2727
+633 ;;21,"58016-4834-01 ")
+634 ;;6850
+635 ;;21,"58016-4842-01 ")
+636 ;;959
+637 ;;21,"58016-4847-01 ")
+638 ;;3569
+639 ;;21,"58016-4869-01 ")
+640 ;;932
+641 ;;21,"58016-4873-01 ")
+642 ;;6851
+643 ;;21,"58016-4990-01 ")
+644 ;;1280
+645 ;;21,"58016-9438-01 ")
+646 ;;6808
+647 ;;21,"58016-9551-01 ")
+648 ;;6926
+649 ;;21,"58463-0002-30 ")
+650 ;;718
+651 ;;21,"58864-0029-30 ")
+652 ;;647
+653 ;;21,"58864-0029-40 ")
+654 ;;648
+655 ;;21,"58864-0034-10 ")
+656 ;;4942
+657 ;;21,"58864-0034-14 ")
+658 ;;4943
+659 ;;21,"58864-0067-20 ")
+660 ;;3010
+661 ;;21,"58864-0072-30 ")
+662 ;;1714
+663 ;;21,"58864-0072-40 ")
+664 ;;1715
+665 ;;21,"58864-0073-20 ")
+666 ;;2042
+667 ;;21,"58864-0073-28 ")
+668 ;;2043