BGP62Y5 ;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,"00781-9452-46 ")
+2 ;;1342
+3 ;;21,"00781-9452-95 ")
+4 ;;1343
+5 ;;21,"00884-4557-30 ")
+6 ;;5162
+7 ;;21,"00884-4558-20 ")
+8 ;;5183
+9 ;;21,"00904-0427-51 ")
+10 ;;6310
+11 ;;21,"00904-0428-40 ")
+12 ;;5952
+13 ;;21,"00904-0428-51 ")
+14 ;;5953
+15 ;;21,"00904-0428-61 ")
+16 ;;5954
+17 ;;21,"00904-0428-95 ")
+18 ;;5955
+19 ;;21,"00904-0430-04 ")
+20 ;;6144
+21 ;;21,"00904-0430-40 ")
+22 ;;6145
+23 ;;21,"00904-0430-51 ")
+24 ;;6146
+25 ;;21,"00904-0430-61 ")
+26 ;;6147
+27 ;;21,"00904-2725-40 ")
+28 ;;5655
+29 ;;21,"00904-2725-60 ")
+30 ;;5656
+31 ;;21,"00904-2725-61 ")
+32 ;;5657
+33 ;;21,"00904-5807-61 ")
+34 ;;5582
+35 ;;21,"00904-5959-61 ")
+36 ;;2227
+37 ;;21,"00904-6010-04 ")
+38 ;;2648
+39 ;;21,"00904-6249-61 ")
+40 ;;4787
+41 ;;21,"00904-6250-61 ")
+42 ;;4860
+43 ;;21,"00904-6251-61 ")
+44 ;;4963
+45 ;;21,"00904-6351-61 ")
+46 ;;4788
+47 ;;21,"00904-6352-61 ")
+48 ;;4861
+49 ;;21,"00904-6353-61 ")
+50 ;;4964
+51 ;;21,"00904-6378-61 ")
+52 ;;4358
+53 ;;21,"00904-6406-06 ")
+54 ;;5014
+55 ;;21,"10019-0098-01 ")
+56 ;;6790
+57 ;;21,"10019-0098-71 ")
+58 ;;6791
+59 ;;21,"10019-0610-01 ")
+60 ;;1373
+61 ;;21,"10019-0610-10 ")
+62 ;;1374
+63 ;;21,"10019-0611-03 ")
+64 ;;1313
+65 ;;21,"10019-0611-10 ")
+66 ;;1314
+67 ;;21,"10019-0612-05 ")
+68 ;;1344
+69 ;;21,"10019-0612-11 ")
+70 ;;1345
+71 ;;21,"10019-0620-01 ")
+72 ;;5104
+73 ;;21,"10019-0620-10 ")
+74 ;;5105
+75 ;;21,"10019-0621-03 ")
+76 ;;5068
+77 ;;21,"10019-0621-20 ")
+78 ;;5069
+79 ;;21,"10019-0622-05 ")
+80 ;;5088
+81 ;;21,"10019-0622-11 ")
+82 ;;5089
+83 ;;21,"10019-0648-02 ")
+84 ;;2529
+85 ;;21,"10019-0648-71 ")
+86 ;;2530
+87 ;;21,"10019-0685-01 ")
+88 ;;6876
+89 ;;21,"10019-0685-71 ")
+90 ;;6877
+91 ;;21,"10019-0686-02 ")
+92 ;;6913
+93 ;;21,"10019-0686-71 ")
+94 ;;6914
+95 ;;21,"10019-0687-03 ")
+96 ;;6792
+97 ;;21,"10019-0687-71 ")
+98 ;;6793
+99 ;;21,"10019-0688-04 ")
+100 ;;6845
+101 ;;21,"10019-0688-27 ")
+102 ;;6846
+103 ;;21,"10019-0689-05 ")
+104 ;;6825
+105 ;;21,"10019-0689-11 ")
+106 ;;6826
+107 ;;21,"10122-0801-20 ")
+108 ;;7034
+109 ;;21,"10122-0801-60 ")
+110 ;;7035
+111 ;;21,"10122-0802-20 ")
+112 ;;7038
+113 ;;21,"10122-0802-28 ")
+114 ;;7039
+115 ;;21,"10135-0474-01 ")
+116 ;;4182
+117 ;;21,"10135-0475-01 ")
+118 ;;4359
+119 ;;21,"10135-0475-05 ")
+120 ;;4360
+121 ;;21,"10135-0475-13 ")
+122 ;;4361
+123 ;;21,"10135-0475-47 ")
+124 ;;4362
+125 ;;21,"10135-0476-50 ")
+126 ;;4694
+127 ;;21,"10135-0539-01 ")
+128 ;;5915
+129 ;;21,"10147-0941-06 ")
+130 ;;4769
+131 ;;21,"10337-0800-01 ")
+132 ;;6404
+133 ;;21,"10337-0801-01 ")
+134 ;;6415
+135 ;;21,"10337-0801-03 ")
+136 ;;6416
+137 ;;21,"10337-0801-50 ")
+138 ;;6417
+139 ;;21,"10337-0802-03 ")
+140 ;;6372
+141 ;;21,"10337-0802-05 ")
+142 ;;6373
+143 ;;21,"10337-0802-06 ")
+144 ;;6374
+145 ;;21,"10337-0802-25 ")
+146 ;;6375
+147 ;;21,"10337-0814-03 ")
+148 ;;6391
+149 ;;21,"10337-0815-06 ")
+150 ;;6386
+151 ;;21,"10337-0818-01 ")
+152 ;;6766
+153 ;;21,"10337-0819-01 ")
+154 ;;6765
+155 ;;21,"10370-0107-05 ")
+156 ;;4660
+157 ;;21,"10370-0108-05 ")
+158 ;;4151
+159 ;;21,"10515-0125-01 ")
+160 ;;5106
+161 ;;21,"10544-0004-14 ")
+162 ;;1821
+163 ;;21,"10544-0004-20 ")
+164 ;;1822
+165 ;;21,"10544-0004-28 ")
+166 ;;1823
+167 ;;21,"10544-0007-21 ")
+168 ;;486
+169 ;;21,"10544-0007-30 ")
+170 ;;487
+171 ;;21,"10544-0013-28 ")
+172 ;;1824
+173 ;;21,"10544-0013-40 ")
+174 ;;1825
+175 ;;21,"10544-0020-10 ")
+176 ;;1826
+177 ;;21,"10544-0020-14 ")
+178 ;;1827
+179 ;;21,"10544-0020-20 ")
+180 ;;1828
+181 ;;21,"10544-0020-28 ")
+182 ;;1829
+183 ;;21,"10544-0020-30 ")
+184 ;;1830
+185 ;;21,"10544-0020-40 ")
+186 ;;1831
+187 ;;21,"10544-0169-14 ")
+188 ;;5956
+189 ;;21,"10544-0169-20 ")
+190 ;;5957
+191 ;;21,"10544-0169-28 ")
+192 ;;5958
+193 ;;21,"10544-0306-10 ")
+194 ;;1832
+195 ;;21,"10544-0306-28 ")
+196 ;;1833
+197 ;;21,"10544-0307-10 ")
+198 ;;4363
+199 ;;21,"10544-0331-20 ")
+200 ;;1070
+201 ;;21,"10544-0332-28 ")
+202 ;;2228
+203 ;;21,"10544-0332-60 ")
+204 ;;2229
+205 ;;21,"10544-0503-14 ")
+206 ;;1834
+207 ;;21,"10544-0503-20 ")
+208 ;;1835
+209 ;;21,"10544-0503-28 ")
+210 ;;1836
+211 ;;21,"10544-0503-30 ")
+212 ;;1837
+213 ;;21,"10544-0503-40 ")
+214 ;;1838
+215 ;;21,"10544-0525-06 ")
+216 ;;5658
+217 ;;21,"10544-0525-10 ")
+218 ;;5659
+219 ;;21,"10544-0525-14 ")
+220 ;;5660
+221 ;;21,"10544-0525-20 ")
+222 ;;5661
+223 ;;21,"10544-0525-28 ")
+224 ;;5662
+225 ;;21,"10544-0603-06 ")
+226 ;;4183
+227 ;;21,"10544-0603-10 ")
+228 ;;4184
+229 ;;21,"10544-0603-14 ")
+230 ;;4185
+231 ;;21,"10544-0603-20 ")
+232 ;;4186
+233 ;;21,"10544-0604-06 ")
+234 ;;4187
+235 ;;21,"10544-0604-10 ")
+236 ;;4188
+237 ;;21,"10544-0604-14 ")
+238 ;;4189
+239 ;;21,"10544-0604-20 ")
+240 ;;4190
+241 ;;21,"10544-0605-06 ")
+242 ;;4364
+243 ;;21,"10544-0605-10 ")
+244 ;;4365
+245 ;;21,"10544-0605-14 ")
+246 ;;4366
+247 ;;21,"10544-0605-20 ")
+248 ;;4367
+249 ;;21,"10544-0606-06 ")
+250 ;;4368
+251 ;;21,"10544-0606-10 ")
+252 ;;4369
+253 ;;21,"10544-0606-14 ")
+254 ;;4370
+255 ;;21,"10544-0606-15 ")
+256 ;;4371
+257 ;;21,"10544-0606-20 ")
+258 ;;4372
+259 ;;21,"10544-0606-42 ")
+260 ;;4373
+261 ;;21,"10544-0607-06 ")
+262 ;;4374
+263 ;;21,"10544-0607-10 ")
+264 ;;4375
+265 ;;21,"10544-0607-14 ")
+266 ;;4376
+267 ;;21,"10544-0607-20 ")
+268 ;;4377
+269 ;;21,"10544-0608-06 ")
+270 ;;4378
+271 ;;21,"10544-0608-10 ")
+272 ;;4379
+273 ;;21,"10544-0608-14 ")
+274 ;;4380
+275 ;;21,"10544-0608-20 ")
+276 ;;4381
+277 ;;21,"10544-0617-14 ")
+278 ;;1839
+279 ;;21,"10544-0617-20 ")
+280 ;;1840
+281 ;;21,"10544-0617-28 ")
+282 ;;1841
+283 ;;21,"10544-0617-30 ")
+284 ;;1842
+285 ;;21,"10544-0617-40 ")
+286 ;;1843
+287 ;;21,"10544-0619-21 ")
+288 ;;488
+289 ;;21,"10544-0619-30 ")
+290 ;;489
+291 ;;21,"10544-0619-42 ")
+292 ;;490
+293 ;;21,"10631-0555-30 ")
+294 ;;5122
+295 ;;21,"10631-0556-20 ")
+296 ;;5128
+297 ;;21,"10631-0557-30 ")
+298 ;;5163
+299 ;;21,"10631-0573-10 ")
+300 ;;1551
+301 ;;21,"11042-0112-96 ")
+302 ;;1593
+303 ;;21,"11042-0112-97 ")
+304 ;;1594
+305 ;;21,"11042-0113-96 ")
+306 ;;1844
+307 ;;21,"11042-0113-97 ")
+308 ;;1845
+309 ;;21,"11042-0115-40 ")
+310 ;;2129
+311 ;;21,"11042-0142-03 ")
+312 ;;716
+313 ;;21,"12280-0073-10 ")
+314 ;;6915
+315 ;;21,"12280-0122-50 ")
+316 ;;5166
+317 ;;21,"12280-0153-50 ")
+318 ;;918
+319 ;;21,"12280-0153-75 ")
+320 ;;919
+321 ;;21,"12280-0156-15 ")
+322 ;;982
+323 ;;21,"12280-0156-75 ")
+324 ;;983
+325 ;;21,"12634-0183-01 ")
+326 ;;184
+327 ;;21,"12634-0183-60 ")
+328 ;;185
+329 ;;21,"12634-0183-71 ")
+330 ;;186
+331 ;;21,"12634-0183-81 ")
+332 ;;187
+333 ;;21,"12634-0183-84 ")
+334 ;;188
+335 ;;21,"12634-0183-85 ")
+336 ;;189
+337 ;;21,"12634-0183-91 ")
+338 ;;190
+339 ;;21,"12634-0183-94 ")
+340 ;;191
+341 ;;21,"12634-0185-01 ")
+342 ;;491
+343 ;;21,"12634-0185-60 ")
+344 ;;492
+345 ;;21,"12634-0185-71 ")
+346 ;;493
+347 ;;21,"12634-0185-81 ")
+348 ;;494
+349 ;;21,"12634-0185-84 ")
+350 ;;495
+351 ;;21,"12634-0185-85 ")
+352 ;;496
+353 ;;21,"12634-0185-91 ")
+354 ;;497
+355 ;;21,"12634-0185-94 ")
+356 ;;498
+357 ;;21,"12634-0185-96 ")
+358 ;;499
+359 ;;21,"12634-0185-99 ")
+360 ;;500
+361 ;;21,"13107-0077-01 ")
+362 ;;4382
+363 ;;21,"13310-0145-01 ")
+364 ;;5583
+365 ;;21,"13310-0146-01 ")
+366 ;;5663
+367 ;;21,"13411-0108-01 ")
+368 ;;5015
+369 ;;21,"13411-0108-02 ")
+370 ;;5016
+371 ;;21,"13411-0108-03 ")
+372 ;;5017
+373 ;;21,"13411-0108-06 ")
+374 ;;5018
+375 ;;21,"13411-0108-09 ")
+376 ;;5019
+377 ;;21,"13411-0108-15 ")
+378 ;;5020
+379 ;;21,"13411-0112-01 ")
+380 ;;4862
+381 ;;21,"13411-0112-02 ")
+382 ;;4863
+383 ;;21,"13411-0112-03 ")
+384 ;;4864
+385 ;;21,"13411-0112-05 ")
+386 ;;4865
+387 ;;21,"13411-0112-06 ")
+388 ;;4866
+389 ;;21,"13411-0131-01 ")
+390 ;;2649
+391 ;;21,"13411-0131-03 ")
+392 ;;2650
+393 ;;21,"13411-0131-06 ")
+394 ;;2651
+395 ;;21,"13411-0131-09 ")
+396 ;;2652
+397 ;;21,"13411-0131-15 ")
+398 ;;2653
+399 ;;21,"13411-0154-01 ")
+400 ;;4789
+401 ;;21,"13411-0154-02 ")
+402 ;;4790
+403 ;;21,"13411-0154-03 ")
+404 ;;4791
+405 ;;21,"13411-0154-05 ")
+406 ;;4792
+407 ;;21,"13411-0154-06 ")
+408 ;;4793
+409 ;;21,"13411-0185-01 ")
+410 ;;2947
+411 ;;21,"13411-0185-03 ")
+412 ;;2948
+413 ;;21,"13411-0185-04 ")
+414 ;;2949
+415 ;;21,"13411-0185-06 ")
+416 ;;2950
+417 ;;21,"13411-0185-15 ")
+418 ;;2951
+419 ;;21,"13517-0131-01 ")
+420 ;;5907
+421 ;;21,"13551-0501-05 ")
+422 ;;2148
+423 ;;21,"13668-0082-01 ")
+424 ;;4794
+425 ;;21,"13668-0082-50 ")
+426 ;;4795
+427 ;;21,"13668-0082-74 ")
+428 ;;4796
+429 ;;21,"13668-0083-01 ")
+430 ;;4867
+431 ;;21,"13668-0083-50 ")
+432 ;;4868
+433 ;;21,"13668-0083-74 ")
+434 ;;4869
+435 ;;21,"13668-0084-01 ")
+436 ;;4965
+437 ;;21,"13668-0084-21 ")
+438 ;;4966
+439 ;;21,"13668-0084-50 ")
+440 ;;4967
+441 ;;21,"13668-0084-74 ")
+442 ;;4968
+443 ;;21,"13668-0201-30 ")
+444 ;;5021
+445 ;;21,"13913-0001-03 ")
+446 ;;4661
+447 ;;21,"13913-0001-30 ")
+448 ;;4662
+449 ;;21,"13913-0001-50 ")
+450 ;;4663
+451 ;;21,"14290-0500-86 ")
+452 ;;6432
+453 ;;21,"14290-0501-88 ")
+454 ;;6514
+455 ;;21,"14290-0545-92 ")
+456 ;;5903
+457 ;;21,"14290-0550-98 ")
+458 ;;6767
+459 ;;21,"14290-0551-98 ")
+460 ;;6769
+461 ;;21,"14290-0570-98 ")
+462 ;;6768
+463 ;;21,"14290-0571-98 ")
+464 ;;6770
+465 ;;21,"15082-0601-10 ")
+466 ;;1353
+467 ;;21,"15082-0607-05 ")
+468 ;;3597
+469 ;;21,"15082-0623-10 ")
+470 ;;1383
+471 ;;21,"15082-0624-10 ")
+472 ;;1392
+473 ;;21,"15338-0100-14 ")
+474 ;;5959
+475 ;;21,"15456-0001-03 ")
+476 ;;4664
+477 ;;21,"15456-0001-50 ")
+478 ;;4665
+479 ;;21,"15686-0101-01 ")
+480 ;;5584
+481 ;;21,"15686-0101-05 ")
+482 ;;5585
+483 ;;21,"15686-0102-01 ")
+484 ;;5664
+485 ;;21,"15686-0102-05 ")
+486 ;;5665
+487 ;;21,"15749-0820-04 ")
+488 ;;192
+489 ;;21,"15749-0820-10 ")
+490 ;;193
+491 ;;21,"15749-0820-11 ")
+492 ;;194
+493 ;;21,"15749-0825-02 ")
+494 ;;501
+495 ;;21,"15749-0825-04 ")
+496 ;;502
+497 ;;21,"15749-0825-10 ")
+498 ;;503
+499 ;;21,"16110-0075-01 ")
+500 ;;6409
+501 ;;21,"16110-0259-04 ")
+502 ;;6354
+503 ;;21,"16110-0259-07 ")
+504 ;;6355
+505 ;;21,"16110-0260-06 ")
+506 ;;6397
+507 ;;21,"16110-0501-01 ")
+508 ;;6348
+509 ;;21,"16110-0502-01 ")
+510 ;;6302
+511 ;;21,"16252-0514-01 ")
+512 ;;4191
+513 ;;21,"16252-0515-01 ")
+514 ;;4383
+515 ;;21,"16252-0516-05 ")
+516 ;;4695
+517 ;;21,"16571-0070-12 ")
+518 ;;5123
+519 ;;21,"16571-0071-12 ")
+520 ;;5167
+521 ;;21,"16571-0072-11 ")
+522 ;;5187
+523 ;;21,"16571-0411-10 ")
+524 ;;4192
+525 ;;21,"16571-0412-10 ")
+526 ;;4384
+527 ;;21,"16571-0412-50 ")
+528 ;;4385
+529 ;;21,"16571-0413-05 ")
+530 ;;4696
+531 ;;21,"16590-0014-30 ")
+532 ;;195
+533 ;;21,"16590-0014-71 ")
+534 ;;196
+535 ;;21,"16590-0015-33 ")
+536 ;;391
+537 ;;21,"16590-0016-15 ")
+538 ;;504
+539 ;;21,"16590-0016-20 ")
+540 ;;505
+541 ;;21,"16590-0016-30 ")
+542 ;;506
+543 ;;21,"16590-0016-40 ")
+544 ;;507
+545 ;;21,"16590-0017-20 ")
+546 ;;727
+547 ;;21,"16590-0017-30 ")
+548 ;;728
+549 ;;21,"16590-0018-33 ")
+550 ;;103
+551 ;;21,"16590-0019-20 ")
+552 ;;1071
+553 ;;21,"16590-0019-30 ")
+554 ;;1072
+555 ;;21,"16590-0019-60 ")
+556 ;;1073
+557 ;;21,"16590-0019-90 ")
+558 ;;1074
+559 ;;21,"16590-0020-10 ")
+560 ;;1221
+561 ;;21,"16590-0020-14 ")
+562 ;;1222
+563 ;;21,"16590-0020-20 ")
+564 ;;1223
+565 ;;21,"16590-0020-28 ")
+566 ;;1224
+567 ;;21,"16590-0020-30 ")
+568 ;;1225
+569 ;;21,"16590-0035-14 ")
+570 ;;2952
+571 ;;21,"16590-0035-21 ")
+572 ;;2953
+573 ;;21,"16590-0035-30 ")
+574 ;;2954
+575 ;;21,"16590-0041-14 ")
+576 ;;5133
+577 ;;21,"16590-0041-21 ")
+578 ;;5134
+579 ;;21,"16590-0041-30 ")
+580 ;;5135
+581 ;;21,"16590-0042-33 ")
+582 ;;5168
+583 ;;21,"16590-0043-05 ")
+584 ;;1427
+585 ;;21,"16590-0043-10 ")
+586 ;;1428
+587 ;;21,"16590-0043-14 ")
+588 ;;1429
+589 ;;21,"16590-0043-15 ")
+590 ;;1430
+591 ;;21,"16590-0043-20 ")
+592 ;;1431
+593 ;;21,"16590-0043-24 ")
+594 ;;1432
+595 ;;21,"16590-0043-30 ")
+596 ;;1433
+597 ;;21,"16590-0043-60 ")
+598 ;;1434
+599 ;;21,"16590-0044-20 ")
+600 ;;5364
+601 ;;21,"16590-0049-36 ")
+602 ;;1778
+603 ;;21,"16590-0050-21 ")
+604 ;;1595
+605 ;;21,"16590-0050-28 ")
+606 ;;1596
+607 ;;21,"16590-0050-30 ")
+608 ;;1597
+609 ;;21,"16590-0050-60 ")
+610 ;;1598
+611 ;;21,"16590-0050-90 ")
+612 ;;1599
+613 ;;21,"16590-0051-20 ")
+614 ;;1846
+615 ;;21,"16590-0051-21 ")
+616 ;;1847
+617 ;;21,"16590-0051-28 ")
+618 ;;1848
+619 ;;21,"16590-0051-30 ")
+620 ;;1849
+621 ;;21,"16590-0051-60 ")
+622 ;;1850
+623 ;;21,"16590-0051-90 ")
+624 ;;1851
+625 ;;21,"16590-0054-10 ")
+626 ;;4386
+627 ;;21,"16590-0054-14 ")
+628 ;;4387
+629 ;;21,"16590-0054-20 ")
+630 ;;4388
+631 ;;21,"16590-0054-28 ")
+632 ;;4389
+633 ;;21,"16590-0054-30 ")
+634 ;;4390
+635 ;;21,"16590-0054-40 ")
+636 ;;4391
+637 ;;21,"16590-0054-60 ")
+638 ;;4392
+639 ;;21,"16590-0054-71 ")
+640 ;;4393
+641 ;;21,"16590-0054-90 ")
+642 ;;4394
+643 ;;21,"16590-0057-20 ")
+644 ;;2230
+645 ;;21,"16590-0057-28 ")
+646 ;;2231
+647 ;;21,"16590-0057-30 ")
+648 ;;2232
+649 ;;21,"16590-0057-40 ")
+650 ;;2233
+651 ;;21,"16590-0057-60 ")
+652 ;;2234
+653 ;;21,"16590-0076-21 ")
+654 ;;3983
+655 ;;21,"16590-0076-30 ")
+656 ;;3984
+657 ;;21,"16590-0082-20 ")
+658 ;;5960
+659 ;;21,"16590-0082-21 ")
+660 ;;5961
+661 ;;21,"16590-0082-28 ")
+662 ;;5962
+663 ;;21,"16590-0082-30 ")
+664 ;;5963
+665 ;;21,"16590-0082-60 ")
+666 ;;5964
+667 ;;21,"16590-0088-28 ")
+668 ;;3057