BGP62Z3 ;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,"00406-9932-03 ")
+2 ;;5021
+3 ;;21,"00406-9933-03 ")
+4 ;;5026
+5 ;;21,"00406-9934-03 ")
+6 ;;5031
+7 ;;21,"00430-0210-14 ")
+8 ;;2412
+9 ;;21,"00430-0220-14 ")
+10 ;;2652
+11 ;;21,"00440-7090-30 ")
+12 ;;3996
+13 ;;21,"00440-7091-30 ")
+14 ;;4212
+15 ;;21,"00440-7092-30 ")
+16 ;;4375
+17 ;;21,"00440-7478-30 ")
+18 ;;4885
+19 ;;21,"00440-8575-20 ")
+20 ;;771
+21 ;;21,"00440-8576-30 ")
+22 ;;534
+23 ;;21,"00456-1100-31 ")
+24 ;;456
+25 ;;21,"00456-1110-30 ")
+26 ;;453
+27 ;;21,"00456-1120-30 ")
+28 ;;454
+29 ;;21,"00456-1140-30 ")
+30 ;;455
+31 ;;21,"00456-2005-01 ")
+32 ;;2258
+33 ;;21,"00456-2010-01 ")
+34 ;;2118
+35 ;;21,"00456-2010-11 ")
+36 ;;2119
+37 ;;21,"00456-2010-63 ")
+38 ;;2120
+39 ;;21,"00456-2020-01 ")
+40 ;;2195
+41 ;;21,"00456-2020-11 ")
+42 ;;2196
+43 ;;21,"00456-2020-63 ")
+44 ;;2197
+45 ;;21,"00456-2101-08 ")
+46 ;;2279
+47 ;;21,"00456-2202-28 ")
+48 ;;1153
+49 ;;21,"00456-2212-30 ")
+50 ;;1151
+51 ;;21,"00456-2220-30 ")
+52 ;;1152
+53 ;;21,"00456-2240-30 ")
+54 ;;1154
+55 ;;21,"00456-2280-30 ")
+56 ;;1155
+57 ;;21,"00456-4010-01 ")
+58 ;;1674
+59 ;;21,"00456-4020-01 ")
+60 ;;1795
+61 ;;21,"00456-4020-63 ")
+62 ;;1796
+63 ;;21,"00456-4040-01 ")
+64 ;;1970
+65 ;;21,"00456-4130-08 ")
+66 ;;1771
+67 ;;21,"00490-0034-00 ")
+68 ;;1450
+69 ;;21,"00490-0034-30 ")
+70 ;;1451
+71 ;;21,"00490-0034-60 ")
+72 ;;1452
+73 ;;21,"00490-0034-90 ")
+74 ;;1453
+75 ;;21,"00490-0114-00 ")
+76 ;;1576
+77 ;;21,"00490-0114-30 ")
+78 ;;1577
+79 ;;21,"00490-0114-60 ")
+80 ;;1578
+81 ;;21,"00490-0114-90 ")
+82 ;;1579
+83 ;;21,"00490-0163-00 ")
+84 ;;338
+85 ;;21,"00490-0163-30 ")
+86 ;;339
+87 ;;21,"00490-0163-60 ")
+88 ;;340
+89 ;;21,"00490-0163-90 ")
+90 ;;341
+91 ;;21,"00555-0201-01 ")
+92 ;;2413
+93 ;;21,"00555-0489-02 ")
+94 ;;772
+95 ;;21,"00555-0489-04 ")
+96 ;;773
+97 ;;21,"00555-0490-02 ")
+98 ;;535
+99 ;;21,"00555-0490-04 ")
+100 ;;536
+101 ;;21,"00555-0594-02 ")
+102 ;;5280
+103 ;;21,"00555-0595-02 ")
+104 ;;5287
+105 ;;21,"00555-0732-02 ")
+106 ;;665
+107 ;;21,"00555-0732-04 ")
+108 ;;666
+109 ;;21,"00555-0733-02 ")
+110 ;;748
+111 ;;21,"00555-0871-54 ")
+112 ;;2755
+113 ;;21,"00555-0871-88 ")
+114 ;;2756
+115 ;;21,"00555-0876-02 ")
+116 ;;2304
+117 ;;21,"00555-0877-02 ")
+118 ;;2455
+119 ;;21,"00555-0877-04 ")
+120 ;;2456
+121 ;;21,"00555-0877-05 ")
+122 ;;2457
+123 ;;21,"00555-0877-07 ")
+124 ;;2458
+125 ;;21,"00555-0967-02 ")
+126 ;;2787
+127 ;;21,"00555-0968-02 ")
+128 ;;2801
+129 ;;21,"00555-0969-02 ")
+130 ;;2766
+131 ;;21,"00591-0764-60 ")
+132 ;;473
+133 ;;21,"00591-0767-60 ")
+134 ;;516
+135 ;;21,"00591-0809-01 ")
+136 ;;4665
+137 ;;21,"00591-0809-05 ")
+138 ;;4666
+139 ;;21,"00591-0839-25 ")
+140 ;;164
+141 ;;21,"00591-0839-60 ")
+142 ;;165
+143 ;;21,"00591-0858-60 ")
+144 ;;100
+145 ;;21,"00591-1117-10 ")
+146 ;;3746
+147 ;;21,"00591-1117-30 ")
+148 ;;3747
+149 ;;21,"00591-1118-10 ")
+150 ;;3838
+151 ;;21,"00591-1118-30 ")
+152 ;;3839
+153 ;;21,"00591-1119-30 ")
+154 ;;3929
+155 ;;21,"00591-2114-01 ")
+156 ;;4758
+157 ;;21,"00591-2230-15 ")
+158 ;;3816
+159 ;;21,"00591-2231-15 ")
+160 ;;3914
+161 ;;21,"00591-2469-15 ")
+162 ;;3817
+163 ;;21,"00591-2470-15 ")
+164 ;;3915
+165 ;;21,"00591-2471-15 ")
+166 ;;3976
+167 ;;21,"00591-3176-01 ")
+168 ;;1675
+169 ;;21,"00591-3176-05 ")
+170 ;;1676
+171 ;;21,"00591-3177-01 ")
+172 ;;1797
+173 ;;21,"00591-3177-05 ")
+174 ;;1798
+175 ;;21,"00591-3178-01 ")
+176 ;;1971
+177 ;;21,"00591-3178-05 ")
+178 ;;1972
+179 ;;21,"00591-3331-05 ")
+180 ;;270
+181 ;;21,"00591-3331-19 ")
+182 ;;271
+183 ;;21,"00591-3331-30 ")
+184 ;;272
+185 ;;21,"00591-3332-05 ")
+186 ;;342
+187 ;;21,"00591-3332-30 ")
+188 ;;343
+189 ;;21,"00591-3540-05 ")
+190 ;;101
+191 ;;21,"00591-3540-60 ")
+192 ;;102
+193 ;;21,"00591-3541-05 ")
+194 ;;166
+195 ;;21,"00591-3541-25 ")
+196 ;;167
+197 ;;21,"00591-3541-60 ")
+198 ;;168
+199 ;;21,"00591-3542-60 ")
+200 ;;321
+201 ;;21,"00591-3543-60 ")
+202 ;;169
+203 ;;21,"00591-3543-76 ")
+204 ;;170
+205 ;;21,"00591-4151-38 ")
+206 ;;2280
+207 ;;21,"00591-5599-01 ")
+208 ;;537
+209 ;;21,"00591-5599-10 ")
+210 ;;538
+211 ;;21,"00591-5600-01 ")
+212 ;;774
+213 ;;21,"00591-5600-10 ")
+214 ;;775
+215 ;;21,"00591-5629-01 ")
+216 ;;4695
+217 ;;21,"00591-5631-01 ")
+218 ;;4821
+219 ;;21,"00591-5631-10 ")
+220 ;;4822
+221 ;;21,"00591-5632-01 ")
+222 ;;4886
+223 ;;21,"00591-5633-01 ")
+224 ;;4734
+225 ;;21,"00591-5713-01 ")
+226 ;;4543
+227 ;;21,"00591-5714-01 ")
+228 ;;4544
+229 ;;21,"00591-5715-01 ")
+230 ;;4541
+231 ;;21,"00591-5716-30 ")
+232 ;;4542
+233 ;;21,"00591-5786-01 ")
+234 ;;5047
+235 ;;21,"00591-5786-05 ")
+236 ;;5048
+237 ;;21,"00591-5787-01 ")
+238 ;;5124
+239 ;;21,"00591-5787-05 ")
+240 ;;5125
+241 ;;21,"00591-5787-10 ")
+242 ;;5126
+243 ;;21,"00591-5788-01 ")
+244 ;;5219
+245 ;;21,"00591-5788-05 ")
+246 ;;5220
+247 ;;21,"00591-5789-01 ")
+248 ;;5257
+249 ;;21,"00603-2212-02 ")
+250 ;;3997
+251 ;;21,"00603-2212-16 ")
+252 ;;3998
+253 ;;21,"00603-2212-21 ")
+254 ;;3999
+255 ;;21,"00603-2212-32 ")
+256 ;;4000
+257 ;;21,"00603-2213-02 ")
+258 ;;4213
+259 ;;21,"00603-2213-21 ")
+260 ;;4214
+261 ;;21,"00603-2213-30 ")
+262 ;;4215
+263 ;;21,"00603-2213-32 ")
+264 ;;4216
+265 ;;21,"00603-2214-21 ")
+266 ;;4376
+267 ;;21,"00603-2214-32 ")
+268 ;;4377
+269 ;;21,"00603-2215-21 ")
+270 ;;4489
+271 ;;21,"00603-2215-25 ")
+272 ;;4490
+273 ;;21,"00603-2216-21 ")
+274 ;;4115
+275 ;;21,"00603-2216-25 ")
+276 ;;4116
+277 ;;21,"00603-2217-21 ")
+278 ;;4186
+279 ;;21,"00603-6147-21 ")
+280 ;;776
+281 ;;21,"00603-6147-32 ")
+282 ;;777
+283 ;;21,"00603-6148-21 ")
+284 ;;539
+285 ;;21,"00603-6148-32 ")
+286 ;;540
+287 ;;21,"00603-6149-21 ")
+288 ;;1454
+289 ;;21,"00603-6150-16 ")
+290 ;;1580
+291 ;;21,"00603-6150-21 ")
+292 ;;1581
+293 ;;21,"00603-6150-25 ")
+294 ;;1582
+295 ;;21,"00603-6151-21 ")
+296 ;;1161
+297 ;;21,"00603-6151-25 ")
+298 ;;1162
+299 ;;21,"00603-6156-21 ")
+300 ;;1275
+301 ;;21,"00603-6157-21 ")
+302 ;;1376
+303 ;;21,"00603-6157-25 ")
+304 ;;1377
+305 ;;21,"00603-6160-02 ")
+306 ;;778
+307 ;;21,"00603-6160-13 ")
+308 ;;779
+309 ;;21,"00603-6160-16 ")
+310 ;;780
+311 ;;21,"00603-6160-20 ")
+312 ;;781
+313 ;;21,"00603-6160-21 ")
+314 ;;782
+315 ;;21,"00603-6160-28 ")
+316 ;;783
+317 ;;21,"00603-6160-32 ")
+318 ;;784
+319 ;;21,"00603-6161-02 ")
+320 ;;541
+321 ;;21,"00603-6161-04 ")
+322 ;;542
+323 ;;21,"00603-6161-16 ")
+324 ;;543
+325 ;;21,"00603-6161-20 ")
+326 ;;544
+327 ;;21,"00603-6161-21 ")
+328 ;;545
+329 ;;21,"00603-6161-28 ")
+330 ;;546
+331 ;;21,"00603-6161-32 ")
+332 ;;547
+333 ;;21,"00615-0828-39 ")
+334 ;;4001
+335 ;;21,"00615-0829-39 ")
+336 ;;4217
+337 ;;21,"00615-0830-39 ")
+338 ;;4378
+339 ;;21,"00641-4513-86 ")
+340 ;;4735
+341 ;;21,"00777-3104-02 ")
+342 ;;2305
+343 ;;21,"00777-3105-02 ")
+344 ;;2459
+345 ;;21,"00777-3105-07 ")
+346 ;;2460
+347 ;;21,"00777-3105-30 ")
+348 ;;2461
+349 ;;21,"00777-3105-33 ")
+350 ;;2462
+351 ;;21,"00777-3107-30 ")
+352 ;;2690
+353 ;;21,"00781-1053-01 ")
+354 ;;403
+355 ;;21,"00781-1053-10 ")
+356 ;;404
+357 ;;21,"00781-1064-01 ")
+358 ;;12
+359 ;;21,"00781-1064-10 ")
+360 ;;13
+361 ;;21,"00781-1486-01 ")
+362 ;;4002
+363 ;;21,"00781-1486-10 ")
+364 ;;4003
+365 ;;21,"00781-1486-31 ")
+366 ;;4004
+367 ;;21,"00781-1487-01 ")
+368 ;;4218
+369 ;;21,"00781-1487-10 ")
+370 ;;4219
+371 ;;21,"00781-1487-31 ")
+372 ;;4220
+373 ;;21,"00781-1488-01 ")
+374 ;;4379
+375 ;;21,"00781-1488-10 ")
+376 ;;4380
+377 ;;21,"00781-1488-31 ")
+378 ;;4381
+379 ;;21,"00781-1489-01 ")
+380 ;;4491
+381 ;;21,"00781-1489-10 ")
+382 ;;4492
+383 ;;21,"00781-1489-31 ")
+384 ;;4493
+385 ;;21,"00781-1490-01 ")
+386 ;;4117
+387 ;;21,"00781-1490-10 ")
+388 ;;4118
+389 ;;21,"00781-1490-31 ")
+390 ;;4119
+391 ;;21,"00781-1491-01 ")
+392 ;;4187
+393 ;;21,"00781-1491-10 ")
+394 ;;4188
+395 ;;21,"00781-1491-31 ")
+396 ;;4189
+397 ;;21,"00781-1529-60 ")
+398 ;;171
+399 ;;21,"00781-1762-01 ")
+400 ;;4906
+401 ;;21,"00781-1764-01 ")
+402 ;;4934
+403 ;;21,"00781-1764-10 ")
+404 ;;4935
+405 ;;21,"00781-1764-13 ")
+406 ;;4936
+407 ;;21,"00781-1766-01 ")
+408 ;;4980
+409 ;;21,"00781-1766-10 ")
+410 ;;4981
+411 ;;21,"00781-1766-13 ")
+412 ;;4982
+413 ;;21,"00781-1971-01 ")
+414 ;;4589
+415 ;;21,"00781-1972-01 ")
+416 ;;4619
+417 ;;21,"00781-1973-01 ")
+418 ;;4667
+419 ;;21,"00781-1974-01 ")
+420 ;;4687
+421 ;;21,"00781-1975-01 ")
+422 ;;4609
+423 ;;21,"00781-1976-50 ")
+424 ;;4615
+425 ;;21,"00781-2027-01 ")
+426 ;;4550
+427 ;;21,"00781-2037-01 ")
+428 ;;4563
+429 ;;21,"00781-2047-01 ")
+430 ;;4577
+431 ;;21,"00781-2191-31 ")
+432 ;;949
+433 ;;21,"00781-2192-31 ")
+434 ;;939
+435 ;;21,"00781-2193-31 ")
+436 ;;961
+437 ;;21,"00781-2194-31 ")
+438 ;;955
+439 ;;21,"00781-2195-31 ")
+440 ;;943
+441 ;;21,"00781-2822-01 ")
+442 ;;2463
+443 ;;21,"00781-2822-10 ")
+444 ;;2464
+445 ;;21,"00781-2823-01 ")
+446 ;;2306
+447 ;;21,"00781-2823-10 ")
+448 ;;2307
+449 ;;21,"00781-2824-01 ")
+450 ;;2691
+451 ;;21,"00781-2824-10 ")
+452 ;;2692
+453 ;;21,"00781-2824-31 ")
+454 ;;2693
+455 ;;21,"00781-2827-08 ")
+456 ;;2308
+457 ;;21,"00781-2828-08 ")
+458 ;;2465
+459 ;;21,"00781-5157-01 ")
+460 ;;1677
+461 ;;21,"00781-5169-60 ")
+462 ;;172
+463 ;;21,"00904-0201-61 ")
+464 ;;4221
+465 ;;21,"00904-0202-61 ")
+466 ;;4382
+467 ;;21,"00904-3990-61 ")
+468 ;;785
+469 ;;21,"00904-3991-61 ")
+470 ;;548
+471 ;;21,"00904-5219-60 ")
+472 ;;786
+473 ;;21,"00904-5676-61 ")
+474 ;;2825
+475 ;;21,"00904-5677-61 ")
+476 ;;2958
+477 ;;21,"00904-5678-61 ")
+478 ;;3134
+479 ;;21,"00904-5679-61 ")
+480 ;;3211
+481 ;;21,"00904-5784-61 ")
+482 ;;2309
+483 ;;21,"00904-5785-61 ")
+484 ;;2466
+485 ;;21,"00904-5913-61 ")
+486 ;;14
+487 ;;21,"00904-6084-61 ")
+488 ;;1678
+489 ;;21,"00904-6085-61 ")
+490 ;;1799
+491 ;;21,"00904-6086-61 ")
+492 ;;1973
+493 ;;21,"00904-6087-61 ")
+494 ;;3477
+495 ;;21,"00904-6088-61 ")
+496 ;;3574
+497 ;;21,"00904-6089-61 ")
+498 ;;3311
+499 ;;21,"00904-6093-61 ")
+500 ;;405
+501 ;;21,"00904-6109-61 ")
+502 ;;2826
+503 ;;21,"00904-6110-61 ")
+504 ;;2959
+505 ;;21,"00904-6111-61 ")
+506 ;;3135
+507 ;;21,"00904-6112-61 ")
+508 ;;3212
+509 ;;21,"00904-6129-61 ")
+510 ;;15
+511 ;;21,"00904-6246-61 ")
+512 ;;1316
+513 ;;21,"00904-6247-61 ")
+514 ;;1494
+515 ;;21,"00904-6248-61 ")
+516 ;;1191
+517 ;;21,"00904-6314-61 ")
+518 ;;2121
+519 ;;21,"00904-6315-61 ")
+520 ;;2198
+521 ;;21,"00904-6331-61 ")
+522 ;;3478
+523 ;;21,"00904-6332-61 ")
+524 ;;3575
+525 ;;21,"00904-6333-61 ")
+526 ;;3312
+527 ;;21,"00904-6366-61 ")
+528 ;;998
+529 ;;21,"00904-6367-61 ")
+530 ;;1029
+531 ;;21,"00904-6368-61 ")
+532 ;;1095
+533 ;;21,"00904-6426-61 ")
+534 ;;2122
+535 ;;21,"00904-6427-61 ")
+536 ;;2199
+537 ;;21,"00904-6468-61 ")
+538 ;;1317
+539 ;;21,"00904-6469-61 ")
+540 ;;1495
+541 ;;21,"00904-6470-61 ")
+542 ;;1192
+543 ;;21,"10370-0101-00 ")
+544 ;;273
+545 ;;21,"10370-0101-03 ")
+546 ;;274
+547 ;;21,"10370-0101-50 ")
+548 ;;275
+549 ;;21,"10370-0102-00 ")
+550 ;;344
+551 ;;21,"10370-0102-03 ")
+552 ;;345
+553 ;;21,"10370-0102-50 ")
+554 ;;346
+555 ;;21,"10370-0159-06 ")
+556 ;;103
+557 ;;21,"10370-0160-06 ")
+558 ;;173
+559 ;;21,"10370-0160-10 ")
+560 ;;174
+561 ;;21,"10370-0160-50 ")
+562 ;;175
+563 ;;21,"10370-0161-06 ")
+564 ;;322
+565 ;;21,"10370-0175-11 ")
+566 ;;2760
+567 ;;21,"10370-0176-11 ")
+568 ;;2782
+569 ;;21,"10544-0109-30 ")
+570 ;;4222
+571 ;;21,"10544-0110-30 ")
+572 ;;4383
+573 ;;21,"10544-0110-60 ")
+574 ;;4384
+575 ;;21,"10544-0110-90 ")
+576 ;;4385
+577 ;;21,"10544-0149-30 ")
+578 ;;1800
+579 ;;21,"10544-0150-30 ")
+580 ;;1974
+581 ;;21,"10544-0181-30 ")
+582 ;;2467
+583 ;;21,"10544-0329-30 ")
+584 ;;4223
+585 ;;21,"10544-0336-30 ")
+586 ;;2468
+587 ;;21,"10544-0346-30 ")
+588 ;;787
+589 ;;21,"10544-0346-60 ")
+590 ;;788
+591 ;;21,"10544-0405-30 ")
+592 ;;4494
+593 ;;21,"10544-0533-30 ")
+594 ;;667
+595 ;;21,"10768-7060-03 ")
+596 ;;1679
+597 ;;21,"10768-7191-03 ")
+598 ;;1801
+599 ;;21,"10768-7616-03 ")
+600 ;;1975
+601 ;;21,"12280-0065-00 ")
+602 ;;1680
+603 ;;21,"12280-0171-60 ")
+604 ;;1096
+605 ;;21,"13107-0001-05 ")
+606 ;;3981
+607 ;;21,"13107-0001-30 ")
+608 ;;3982
+609 ;;21,"13107-0003-05 ")
+610 ;;3840
+611 ;;21,"13107-0003-30 ")
+612 ;;3841
+613 ;;21,"13107-0003-34 ")
+614 ;;3842
+615 ;;21,"13107-0005-01 ")
+616 ;;1681
+617 ;;21,"13107-0005-05 ")
+618 ;;1682
+619 ;;21,"13107-0006-01 ")
+620 ;;1802
+621 ;;21,"13107-0006-05 ")
+622 ;;1803
+623 ;;21,"13107-0007-01 ")
+624 ;;1976
+625 ;;21,"13107-0007-05 ")
+626 ;;1977
+627 ;;21,"13107-0031-05 ")
+628 ;;3748
+629 ;;21,"13107-0031-30 ")
+630 ;;3749
+631 ;;21,"13107-0031-34 ")
+632 ;;3750
+633 ;;21,"13107-0032-05 ")
+634 ;;3930
+635 ;;21,"13107-0032-30 ")
+636 ;;3931
+637 ;;21,"13107-0032-34 ")
+638 ;;3932
+639 ;;21,"13107-0154-05 ")
+640 ;;2827
+641 ;;21,"13107-0154-30 ")
+642 ;;2828
+643 ;;21,"13107-0154-90 ")
+644 ;;2829
+645 ;;21,"13107-0155-05 ")
+646 ;;2960
+647 ;;21,"13107-0155-30 ")
+648 ;;2961
+649 ;;21,"13107-0155-90 ")
+650 ;;2962
+651 ;;21,"13107-0155-99 ")
+652 ;;2963
+653 ;;21,"13107-0156-05 ")
+654 ;;3136
+655 ;;21,"13107-0156-30 ")
+656 ;;3137
+657 ;;21,"13107-0156-90 ")
+658 ;;3138
+659 ;;21,"13107-0156-99 ")
+660 ;;3139
+661 ;;21,"13107-0157-05 ")
+662 ;;3213
+663 ;;21,"13107-0157-30 ")
+664 ;;3214
+665 ;;21,"13107-0157-90 ")
+666 ;;3215
+667 ;;21,"13107-0157-99 ")
+668 ;;3216
+669 ;;21,"13411-0100-03 ")
+670 ;;1318
+671 ;;21,"13411-0109-01 ")
+672 ;;1319