BGP63D6 ;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,"63874-0379-10 ")
+2 ;;1897
+3 ;;21,"63874-0379-30 ")
+4 ;;1898
+5 ;;21,"63874-0423-01 ")
+6 ;;775
+7 ;;21,"63874-0423-07 ")
+8 ;;776
+9 ;;21,"63874-0423-10 ")
+10 ;;777
+11 ;;21,"63874-0423-14 ")
+12 ;;778
+13 ;;21,"63874-0423-20 ")
+14 ;;779
+15 ;;21,"63874-0423-30 ")
+16 ;;780
+17 ;;21,"63874-0423-60 ")
+18 ;;781
+19 ;;21,"63874-0514-01 ")
+20 ;;1317
+21 ;;21,"63874-0514-10 ")
+22 ;;1318
+23 ;;21,"63874-0514-14 ")
+24 ;;1319
+25 ;;21,"63874-0514-15 ")
+26 ;;1320
+27 ;;21,"63874-0514-16 ")
+28 ;;1321
+29 ;;21,"63874-0514-20 ")
+30 ;;1322
+31 ;;21,"63874-0514-28 ")
+32 ;;1323
+33 ;;21,"63874-0514-30 ")
+34 ;;1324
+35 ;;21,"63874-0514-60 ")
+36 ;;1325
+37 ;;21,"63874-0514-90 ")
+38 ;;1326
+39 ;;21,"63874-0522-01 ")
+40 ;;1057
+41 ;;21,"63874-0522-15 ")
+42 ;;1058
+43 ;;21,"63874-0522-30 ")
+44 ;;1059
+45 ;;21,"63874-0522-60 ")
+46 ;;1060
+47 ;;21,"63874-0558-01 ")
+48 ;;1691
+49 ;;21,"63874-0558-10 ")
+50 ;;1692
+51 ;;21,"63874-0558-14 ")
+52 ;;1693
+53 ;;21,"63874-0558-16 ")
+54 ;;1694
+55 ;;21,"63874-0558-28 ")
+56 ;;1695
+57 ;;21,"63874-0558-30 ")
+58 ;;1696
+59 ;;21,"63874-0558-60 ")
+60 ;;1697
+61 ;;21,"63874-0558-90 ")
+62 ;;1698
+63 ;;21,"63874-0581-10 ")
+64 ;;1796
+65 ;;21,"63874-0581-30 ")
+66 ;;1797
+67 ;;21,"63874-0581-90 ")
+68 ;;1798
+69 ;;21,"63874-0655-01 ")
+70 ;;496
+71 ;;21,"63874-0655-10 ")
+72 ;;497
+73 ;;21,"63874-0655-20 ")
+74 ;;498
+75 ;;21,"63874-0655-30 ")
+76 ;;499
+77 ;;21,"63874-0655-60 ")
+78 ;;500
+79 ;;21,"63874-0987-01 ")
+80 ;;656
+81 ;;21,"63874-0987-10 ")
+82 ;;657
+83 ;;21,"63874-0987-14 ")
+84 ;;658
+85 ;;21,"63874-0987-20 ")
+86 ;;659
+87 ;;21,"63874-0987-30 ")
+88 ;;660
+89 ;;21,"63874-0987-60 ")
+90 ;;661
+91 ;;21,"63874-1114-09 ")
+92 ;;1403
+93 ;;21,"64455-0140-30 ")
+94 ;;570
+95 ;;21,"64455-0140-90 ")
+96 ;;571
+97 ;;21,"64455-0141-10 ")
+98 ;;782
+99 ;;21,"64455-0141-30 ")
+100 ;;783
+101 ;;21,"64455-0141-90 ")
+102 ;;784
+103 ;;21,"64455-0142-10 ")
+104 ;;501
+105 ;;21,"64455-0142-30 ")
+106 ;;502
+107 ;;21,"64455-0142-90 ")
+108 ;;503
+109 ;;21,"64455-0143-10 ")
+110 ;;662
+111 ;;21,"64455-0143-30 ")
+112 ;;663
+113 ;;21,"64455-0143-90 ")
+114 ;;664
+115 ;;21,"64679-0902-01 ")
+116 ;;285
+117 ;;21,"64679-0902-02 ")
+118 ;;286
+119 ;;21,"64679-0902-05 ")
+120 ;;287
+121 ;;21,"64679-0903-01 ")
+122 ;;348
+123 ;;21,"64679-0903-02 ")
+124 ;;349
+125 ;;21,"64679-0903-05 ")
+126 ;;350
+127 ;;21,"64679-0904-01 ")
+128 ;;404
+129 ;;21,"64679-0904-02 ")
+130 ;;405
+131 ;;21,"64679-0904-05 ")
+132 ;;406
+133 ;;21,"64679-0905-01 ")
+134 ;;256
+135 ;;21,"64679-0905-04 ")
+136 ;;257
+137 ;;21,"64679-0923-02 ")
+138 ;;572
+139 ;;21,"64679-0923-03 ")
+140 ;;573
+141 ;;21,"64679-0923-09 ")
+142 ;;574
+143 ;;21,"64679-0923-10 ")
+144 ;;575
+145 ;;21,"64679-0924-02 ")
+146 ;;785
+147 ;;21,"64679-0924-03 ")
+148 ;;786
+149 ;;21,"64679-0924-09 ")
+150 ;;787
+151 ;;21,"64679-0924-10 ")
+152 ;;788
+153 ;;21,"64679-0925-02 ")
+154 ;;504
+155 ;;21,"64679-0925-03 ")
+156 ;;505
+157 ;;21,"64679-0925-09 ")
+158 ;;506
+159 ;;21,"64679-0925-10 ")
+160 ;;507
+161 ;;21,"64679-0926-02 ")
+162 ;;665
+163 ;;21,"64679-0926-03 ")
+164 ;;666
+165 ;;21,"64679-0926-09 ")
+166 ;;667
+167 ;;21,"64679-0926-10 ")
+168 ;;668
+169 ;;21,"64679-0927-01 ")
+170 ;;1142
+171 ;;21,"64679-0927-02 ")
+172 ;;1143
+173 ;;21,"64679-0927-05 ")
+174 ;;1144
+175 ;;21,"64679-0927-09 ")
+176 ;;1145
+177 ;;21,"64679-0928-01 ")
+178 ;;1699
+179 ;;21,"64679-0928-05 ")
+180 ;;1700
+181 ;;21,"64679-0928-06 ")
+182 ;;1701
+183 ;;21,"64679-0928-10 ")
+184 ;;1702
+185 ;;21,"64679-0929-01 ")
+186 ;;1061
+187 ;;21,"64679-0929-05 ")
+188 ;;1062
+189 ;;21,"64679-0929-06 ")
+190 ;;1063
+191 ;;21,"64679-0929-10 ")
+192 ;;1064
+193 ;;21,"64679-0941-01 ")
+194 ;;1327
+195 ;;21,"64679-0941-05 ")
+196 ;;1328
+197 ;;21,"64679-0941-06 ")
+198 ;;1329
+199 ;;21,"64679-0941-10 ")
+200 ;;1330
+201 ;;21,"64679-0942-01 ")
+202 ;;1537
+203 ;;21,"64679-0942-02 ")
+204 ;;1538
+205 ;;21,"64679-0942-05 ")
+206 ;;1539
+207 ;;21,"64679-0942-09 ")
+208 ;;1540
+209 ;;21,"64679-0953-01 ")
+210 ;;1404
+211 ;;21,"64679-0953-02 ")
+212 ;;1405
+213 ;;21,"64679-0953-05 ")
+214 ;;1406
+215 ;;21,"64679-0953-09 ")
+216 ;;1407
+217 ;;21,"65162-0751-03 ")
+218 ;;240
+219 ;;21,"65162-0751-10 ")
+220 ;;241
+221 ;;21,"65162-0751-50 ")
+222 ;;242
+223 ;;21,"65162-0752-03 ")
+224 ;;65
+225 ;;21,"65162-0752-10 ")
+226 ;;66
+227 ;;21,"65162-0752-50 ")
+228 ;;67
+229 ;;21,"65162-0753-03 ")
+230 ;;140
+231 ;;21,"65162-0753-10 ")
+232 ;;141
+233 ;;21,"65162-0753-50 ")
+234 ;;142
+235 ;;21,"65162-0754-03 ")
+236 ;;202
+237 ;;21,"65162-0754-10 ")
+238 ;;203
+239 ;;21,"65162-0754-50 ")
+240 ;;204
+241 ;;21,"65243-0303-03 ")
+242 ;;1703
+243 ;;21,"65243-0314-03 ")
+244 ;;1541
+245 ;;21,"65862-0037-01 ")
+246 ;;1146
+247 ;;21,"65862-0037-05 ")
+248 ;;1147
+249 ;;21,"65862-0037-99 ")
+250 ;;1148
+251 ;;21,"65862-0038-01 ")
+252 ;;1704
+253 ;;21,"65862-0038-05 ")
+254 ;;1705
+255 ;;21,"65862-0038-99 ")
+256 ;;1706
+257 ;;21,"65862-0039-01 ")
+258 ;;1065
+259 ;;21,"65862-0039-05 ")
+260 ;;1066
+261 ;;21,"65862-0039-99 ")
+262 ;;1067
+263 ;;21,"65862-0040-01 ")
+264 ;;1331
+265 ;;21,"65862-0040-05 ")
+266 ;;1332
+267 ;;21,"65862-0040-99 ")
+268 ;;1333
+269 ;;21,"65862-0041-01 ")
+270 ;;1408
+271 ;;21,"65862-0041-05 ")
+272 ;;1409
+273 ;;21,"65862-0041-99 ")
+274 ;;1410
+275 ;;21,"65862-0042-01 ")
+276 ;;1542
+277 ;;21,"65862-0042-05 ")
+278 ;;1543
+279 ;;21,"65862-0042-99 ")
+280 ;;1544
+281 ;;21,"65862-0116-01 ")
+282 ;;68
+283 ;;21,"65862-0117-01 ")
+284 ;;143
+285 ;;21,"65862-0118-01 ")
+286 ;;205
+287 ;;21,"65862-0164-01 ")
+288 ;;2088
+289 ;;21,"65862-0165-01 ")
+290 ;;2101
+291 ;;21,"65862-0166-01 ")
+292 ;;2117
+293 ;;21,"65862-0286-01 ")
+294 ;;1751
+295 ;;21,"65862-0287-01 ")
+296 ;;1758
+297 ;;21,"65862-0288-01 ")
+298 ;;1765
+299 ;;21,"65862-0471-90 ")
+300 ;;823
+301 ;;21,"65862-0472-90 ")
+302 ;;854
+303 ;;21,"65862-0473-90 ")
+304 ;;889
+305 ;;21,"65862-0474-01 ")
+306 ;;1914
+307 ;;21,"65862-0474-30 ")
+308 ;;1915
+309 ;;21,"65862-0475-01 ")
+310 ;;2009
+311 ;;21,"65862-0475-05 ")
+312 ;;2010
+313 ;;21,"65862-0476-01 ")
+314 ;;2062
+315 ;;21,"65862-0476-05 ")
+316 ;;2063
+317 ;;21,"65862-0477-01 ")
+318 ;;1962
+319 ;;21,"65862-0477-05 ")
+320 ;;1963
+321 ;;21,"65862-0617-90 ")
+322 ;;1899
+323 ;;21,"65862-0618-90 ")
+324 ;;1799
+325 ;;21,"65862-0619-90 ")
+326 ;;1832
+327 ;;21,"65862-0620-90 ")
+328 ;;1865
+329 ;;21,"66105-0101-09 ")
+330 ;;1800
+331 ;;21,"66105-0102-09 ")
+332 ;;1833
+333 ;;21,"66105-0103-09 ")
+334 ;;1866
+335 ;;21,"66105-0524-09 ")
+336 ;;1900
+337 ;;21,"66105-0548-03 ")
+338 ;;1334
+339 ;;21,"66105-0555-10 ")
+340 ;;1707
+341 ;;21,"66267-0323-30 ")
+342 ;;508
+343 ;;21,"66267-0323-60 ")
+344 ;;509
+345 ;;21,"66267-0323-90 ")
+346 ;;510
+347 ;;21,"66267-0323-91 ")
+348 ;;511
+349 ;;21,"66267-0380-30 ")
+350 ;;669
+351 ;;21,"66267-0380-60 ")
+352 ;;670
+353 ;;21,"66267-0380-90 ")
+354 ;;671
+355 ;;21,"66267-0380-91 ")
+356 ;;672
+357 ;;21,"66267-0413-30 ")
+358 ;;789
+359 ;;21,"66267-0413-60 ")
+360 ;;790
+361 ;;21,"66267-0413-90 ")
+362 ;;791
+363 ;;21,"66267-0413-92 ")
+364 ;;792
+365 ;;21,"66336-0124-30 ")
+366 ;;206
+367 ;;21,"66336-0232-30 ")
+368 ;;243
+369 ;;21,"66336-0366-30 ")
+370 ;;69
+371 ;;21,"66336-0389-30 ")
+372 ;;512
+373 ;;21,"66336-0389-60 ")
+374 ;;513
+375 ;;21,"66336-0391-30 ")
+376 ;;793
+377 ;;21,"66336-0391-60 ")
+378 ;;794
+379 ;;21,"66336-0393-30 ")
+380 ;;673
+381 ;;21,"66336-0393-60 ")
+382 ;;674
+383 ;;21,"66336-0618-60 ")
+384 ;;288
+385 ;;21,"66336-0691-30 ")
+386 ;;144
+387 ;;21,"66336-0741-30 ")
+388 ;;1335
+389 ;;21,"66336-0750-60 ")
+390 ;;407
+391 ;;21,"66336-0750-90 ")
+392 ;;408
+393 ;;21,"66336-0773-30 ")
+394 ;;70
+395 ;;21,"66336-0794-60 ")
+396 ;;258
+397 ;;21,"66336-0946-30 ")
+398 ;;351
+399 ;;21,"66336-0946-60 ")
+400 ;;352
+401 ;;21,"66336-0946-90 ")
+402 ;;353
+403 ;;21,"66336-0972-30 ")
+404 ;;1068
+405 ;;21,"66636-0691-30 ")
+406 ;;145
+407 ;;21,"66685-0301-00 ")
+408 ;;576
+409 ;;21,"66685-0301-02 ")
+410 ;;577
+411 ;;21,"66685-0302-00 ")
+412 ;;795
+413 ;;21,"66685-0302-02 ")
+414 ;;796
+415 ;;21,"66685-0303-00 ")
+416 ;;514
+417 ;;21,"66685-0303-02 ")
+418 ;;515
+419 ;;21,"66685-0304-00 ")
+420 ;;675
+421 ;;21,"66685-0304-02 ")
+422 ;;676
+423 ;;21,"66685-0701-01 ")
+424 ;;1149
+425 ;;21,"66685-0701-02 ")
+426 ;;1150
+427 ;;21,"66685-0702-01 ")
+428 ;;1708
+429 ;;21,"66685-0702-02 ")
+430 ;;1709
+431 ;;21,"66685-0702-03 ")
+432 ;;1710
+433 ;;21,"66685-0703-01 ")
+434 ;;1069
+435 ;;21,"66685-0703-02 ")
+436 ;;1070
+437 ;;21,"66685-0703-03 ")
+438 ;;1071
+439 ;;21,"66685-0704-01 ")
+440 ;;1336
+441 ;;21,"66685-0704-02 ")
+442 ;;1337
+443 ;;21,"66685-0704-03 ")
+444 ;;1338
+445 ;;21,"66685-0705-01 ")
+446 ;;1411
+447 ;;21,"66685-0705-02 ")
+448 ;;1412
+449 ;;21,"66685-0706-01 ")
+450 ;;1545
+451 ;;21,"66685-0706-03 ")
+452 ;;1546
+453 ;;21,"66685-0706-04 ")
+454 ;;1547
+455 ;;21,"67046-0156-30 ")
+456 ;;797
+457 ;;21,"67046-0157-30 ")
+458 ;;798
+459 ;;21,"67046-0158-30 ")
+460 ;;516
+461 ;;21,"67046-0159-30 ")
+462 ;;677
+463 ;;21,"67046-0159-60 ")
+464 ;;678
+465 ;;21,"67046-0160-30 ")
+466 ;;517
+467 ;;21,"67046-0161-30 ")
+468 ;;679
+469 ;;21,"67046-0161-60 ")
+470 ;;680
+471 ;;21,"67253-0106-10 ")
+472 ;;2089
+473 ;;21,"67253-0107-10 ")
+474 ;;2102
+475 ;;21,"67253-0671-10 ")
+476 ;;1916
+477 ;;21,"67253-0672-10 ")
+478 ;;2011
+479 ;;21,"67253-0672-11 ")
+480 ;;2012
+481 ;;21,"67253-0673-10 ")
+482 ;;2064
+483 ;;21,"67253-0673-11 ")
+484 ;;2065
+485 ;;21,"67253-0674-10 ")
+486 ;;1964
+487 ;;21,"67253-0674-11 ")
+488 ;;1965
+489 ;;21,"67544-0062-30 ")
+490 ;;1151
+491 ;;21,"67544-0128-15 ")
+492 ;;1711
+493 ;;21,"67544-0134-15 ")
+494 ;;1339
+495 ;;21,"67544-0148-15 ")
+496 ;;1548
+497 ;;21,"67544-0159-15 ")
+498 ;;1072
+499 ;;21,"67544-0173-30 ")
+500 ;;1712
+501 ;;21,"67544-0174-30 ")
+502 ;;1340
+503 ;;21,"67544-0219-15 ")
+504 ;;1073
+505 ;;21,"67544-0306-30 ")
+506 ;;890
+507 ;;21,"67544-0311-30 ")
+508 ;;891
+509 ;;21,"67544-0322-15 ")
+510 ;;855
+511 ;;21,"67544-0350-80 ")
+512 ;;578
+513 ;;21,"67544-0380-30 ")
+514 ;;824
+515 ;;21,"67544-0431-15 ")
+516 ;;856
+517 ;;21,"67544-0454-15 ")
+518 ;;892
+519 ;;21,"67544-0489-15 ")
+520 ;;825
+521 ;;21,"67544-0997-30 ")
+522 ;;1549
+523 ;;21,"67544-0999-60 ")
+524 ;;1341
+525 ;;21,"68001-0140-04 ")
+526 ;;1917
+527 ;;21,"68001-0141-00 ")
+528 ;;1966
+529 ;;21,"68001-0141-03 ")
+530 ;;1967
+531 ;;21,"68001-0142-00 ")
+532 ;;2013
+533 ;;21,"68001-0142-03 ")
+534 ;;2014
+535 ;;21,"68001-0143-00 ")
+536 ;;2066
+537 ;;21,"68001-0143-03 ")
+538 ;;2067
+539 ;;21,"68001-0186-05 ")
+540 ;;1867
+541 ;;21,"68001-0187-05 ")
+542 ;;1834
+543 ;;21,"68001-0188-05 ")
+544 ;;1801
+545 ;;21,"68001-0189-05 ")
+546 ;;1901
+547 ;;21,"68001-0207-00 ")
+548 ;;1713
+549 ;;21,"68001-0207-08 ")
+550 ;;1714
+551 ;;21,"68001-0208-00 ")
+552 ;;1342
+553 ;;21,"68001-0208-08 ")
+554 ;;1343
+555 ;;21,"68001-0209-00 ")
+556 ;;1550
+557 ;;21,"68001-0209-08 ")
+558 ;;1551
+559 ;;21,"68001-0210-00 ")
+560 ;;1074
+561 ;;21,"68001-0210-08 ")
+562 ;;1075
+563 ;;21,"68001-0211-00 ")
+564 ;;1152
+565 ;;21,"68001-0211-08 ")
+566 ;;1153
+567 ;;21,"68001-0212-00 ")
+568 ;;1413
+569 ;;21,"68001-0260-05 ")
+570 ;;1868
+571 ;;21,"68001-0268-00 ")
+572 ;;1076
+573 ;;21,"68001-0268-08 ")
+574 ;;1077
+575 ;;21,"68001-0269-00 ")
+576 ;;1344
+577 ;;21,"68001-0269-08 ")
+578 ;;1345
+579 ;;21,"68001-0270-00 ")
+580 ;;1414
+581 ;;21,"68001-0271-00 ")
+582 ;;1552
+583 ;;21,"68001-0271-08 ")
+584 ;;1553
+585 ;;21,"68084-0058-01 ")
+586 ;;1154
+587 ;;21,"68084-0060-01 ")
+588 ;;1715
+589 ;;21,"68084-0060-11 ")
+590 ;;1716
+591 ;;21,"68084-0061-01 ")
+592 ;;1078
+593 ;;21,"68084-0061-11 ")
+594 ;;1079
+595 ;;21,"68084-0062-01 ")
+596 ;;1346
+597 ;;21,"68084-0062-11 ")
+598 ;;1347
+599 ;;21,"68084-0064-01 ")
+600 ;;1554
+601 ;;21,"68084-0064-11 ")
+602 ;;1555
+603 ;;21,"68084-0196-01 ")
+604 ;;1717
+605 ;;21,"68084-0196-11 ")
+606 ;;1718
+607 ;;21,"68084-0197-01 ")
+608 ;;1080
+609 ;;21,"68084-0198-01 ")
+610 ;;1348
+611 ;;21,"68084-0198-11 ")
+612 ;;1349
+613 ;;21,"68084-0199-01 ")
+614 ;;1556
+615 ;;21,"68084-0266-01 ")
+616 ;;2015
+617 ;;21,"68084-0266-11 ")
+618 ;;2016
+619 ;;21,"68084-0267-01 ")
+620 ;;2068
+621 ;;21,"68084-0267-11 ")
+622 ;;2069
+623 ;;21,"68084-0268-01 ")
+624 ;;1968
+625 ;;21,"68084-0268-11 ")
+626 ;;1969
+627 ;;21,"68084-0294-11 ")
+628 ;;1918
+629 ;;21,"68084-0294-21 ")
+630 ;;1919
+631 ;;21,"68084-0390-01 ")
+632 ;;799
+633 ;;21,"68084-0390-11 ")
+634 ;;800
+635 ;;21,"68084-0391-01 ")
+636 ;;518
+637 ;;21,"68084-0391-11 ")
+638 ;;519
+639 ;;21,"68084-0392-01 ")
+640 ;;681
+641 ;;21,"68084-0392-11 ")
+642 ;;682
+643 ;;21,"68084-0739-25 ")
+644 ;;207
+645 ;;21,"68084-0765-21 ")
+646 ;;1155
+647 ;;21,"68115-0127-15 ")
+648 ;;520
+649 ;;21,"68115-0128-60 ")
+650 ;;683
+651 ;;21,"68115-0128-90 ")
+652 ;;684
+653 ;;21,"68115-0217-30 ")
+654 ;;208
+655 ;;21,"68115-0362-60 ")
+656 ;;1350
+657 ;;21,"68115-0363-30 ")
+658 ;;1719
+659 ;;21,"68115-0615-00 ")
+660 ;;71
+661 ;;21,"68180-0235-01 ")
+662 ;;1752
+663 ;;21,"68180-0236-01 ")
+664 ;;1759
+665 ;;21,"68180-0237-01 ")
+666 ;;1766
+667 ;;21,"68180-0512-01 ")
+668 ;;1156
+669 ;;21,"68180-0512-02 ")
+670 ;;1157
+671 ;;21,"68180-0512-09 ")
+672 ;;1158
+673 ;;21,"68180-0513-01 ")
+674 ;;1720