BGP62Y4 ;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,"00409-6476-44 ")
+2 ;;2520
+3 ;;21,"00409-6478-44 ")
+4 ;;2518
+5 ;;21,"00409-6482-01 ")
+6 ;;2521
+7 ;;21,"00409-7332-01 ")
+8 ;;6781
+9 ;;21,"00409-7332-61 ")
+10 ;;6782
+11 ;;21,"00409-7333-04 ")
+12 ;;6783
+13 ;;21,"00409-7333-49 ")
+14 ;;6784
+15 ;;21,"00409-7334-10 ")
+16 ;;6821
+17 ;;21,"00409-7335-03 ")
+18 ;;6836
+19 ;;21,"00409-7335-61 ")
+20 ;;6837
+21 ;;21,"00409-7336-04 ")
+22 ;;6838
+23 ;;21,"00409-7336-49 ")
+24 ;;6839
+25 ;;21,"00409-7337-01 ")
+26 ;;6870
+27 ;;21,"00409-7338-01 ")
+28 ;;6906
+29 ;;21,"00430-0112-24 ")
+30 ;;6121
+31 ;;21,"00430-0112-96 ")
+32 ;;6122
+33 ;;21,"00430-0113-20 ")
+34 ;;6297
+35 ;;21,"00430-0114-20 ")
+36 ;;6303
+37 ;;21,"00430-0115-20 ")
+38 ;;6298
+39 ;;21,"00430-0115-95 ")
+40 ;;6299
+41 ;;21,"00430-2782-17 ")
+42 ;;1403
+43 ;;21,"00430-2783-17 ")
+44 ;;1536
+45 ;;21,"00440-1101-30 ")
+46 ;;480
+47 ;;21,"00440-2406-20 ")
+48 ;;5648
+49 ;;21,"00440-7101-30 ")
+50 ;;481
+51 ;;21,"00440-7105-30 ")
+52 ;;179
+53 ;;21,"00440-7108-20 ")
+54 ;;1219
+55 ;;21,"00440-7175-06 ")
+56 ;;2642
+57 ;;21,"00440-7240-28 ")
+58 ;;1589
+59 ;;21,"00440-7241-21 ")
+60 ;;1818
+61 ;;21,"00440-7290-06 ")
+62 ;;4180
+63 ;;21,"00440-7291-20 ")
+64 ;;4356
+65 ;;21,"00440-7300-30 ")
+66 ;;2223
+67 ;;21,"00440-7381-40 ")
+68 ;;3981
+69 ;;21,"00440-7483-92 ")
+70 ;;6139
+71 ;;21,"00440-7512-40 ")
+72 ;;3514
+73 ;;21,"00440-8050-40 ")
+74 ;;3619
+75 ;;21,"00440-8055-40 ")
+76 ;;3620
+77 ;;21,"00440-8056-20 ")
+78 ;;3766
+79 ;;21,"00440-8358-20 ")
+80 ;;5649
+81 ;;21,"00440-8406-03 ")
+82 ;;5650
+83 ;;21,"00440-8505-40 ")
+84 ;;6596
+85 ;;21,"00472-0850-10 ")
+86 ;;5912
+87 ;;21,"00472-1285-16 ")
+88 ;;5531
+89 ;;21,"00472-1285-33 ")
+90 ;;5532
+91 ;;21,"00480-7146-99 ")
+92 ;;2643
+93 ;;21,"00480-7169-99 ")
+94 ;;2784
+95 ;;21,"00490-0085-00 ")
+96 ;;5010
+97 ;;21,"00490-0085-30 ")
+98 ;;5011
+99 ;;21,"00490-0085-60 ")
+100 ;;5012
+101 ;;21,"00490-0085-90 ")
+102 ;;5013
+103 ;;21,"00517-8711-10 ")
+104 ;;6785
+105 ;;21,"00517-8722-10 ")
+106 ;;6840
+107 ;;21,"00517-8725-10 ")
+108 ;;6871
+109 ;;21,"00517-8750-10 ")
+110 ;;6907
+111 ;;21,"00527-1335-01 ")
+112 ;;6403
+113 ;;21,"00527-1336-01 ")
+114 ;;5913
+115 ;;21,"00527-1338-25 ")
+116 ;;6370
+117 ;;21,"00527-1338-50 ")
+118 ;;6371
+119 ;;21,"00527-1381-04 ")
+120 ;;2510
+121 ;;21,"00527-1382-01 ")
+122 ;;2224
+123 ;;21,"00527-1383-01 ")
+124 ;;2425
+125 ;;21,"00527-1383-02 ")
+126 ;;2426
+127 ;;21,"00527-1384-01 ")
+128 ;;4181
+129 ;;21,"00527-1385-01 ")
+130 ;;4357
+131 ;;21,"00527-1386-50 ")
+132 ;;4692
+133 ;;21,"00527-1442-01 ")
+134 ;;5579
+135 ;;21,"00527-1443-01 ")
+136 ;;5651
+137 ;;21,"00527-1443-05 ")
+138 ;;5652
+139 ;;21,"00527-1535-01 ")
+140 ;;6414
+141 ;;21,"00527-1537-30 ")
+142 ;;6390
+143 ;;21,"00555-0011-02 ")
+144 ;;6597
+145 ;;21,"00555-0011-05 ")
+146 ;;6598
+147 ;;21,"00555-0178-01 ")
+148 ;;6501
+149 ;;21,"00555-0178-02 ")
+150 ;;6502
+151 ;;21,"00555-0179-01 ")
+152 ;;6567
+153 ;;21,"00555-0179-02 ")
+154 ;;6568
+155 ;;21,"00555-0180-01 ")
+156 ;;6490
+157 ;;21,"00555-0180-02 ")
+158 ;;6491
+159 ;;21,"00555-0259-02 ")
+160 ;;3422
+161 ;;21,"00555-0259-04 ")
+162 ;;3423
+163 ;;21,"00555-0379-87 ")
+164 ;;4317
+165 ;;21,"00555-0380-87 ")
+166 ;;4679
+167 ;;21,"00555-0445-22 ")
+168 ;;3549
+169 ;;21,"00555-0445-23 ")
+170 ;;3550
+171 ;;21,"00555-0816-10 ")
+172 ;;4693
+173 ;;21,"00574-0129-01 ")
+174 ;;2512
+175 ;;21,"00591-0410-01 ")
+176 ;;6396
+177 ;;21,"00591-0411-50 ")
+178 ;;6353
+179 ;;21,"00591-2234-01 ")
+180 ;;6599
+181 ;;21,"00591-2234-10 ")
+182 ;;6600
+183 ;;21,"00591-2235-01 ")
+184 ;;6681
+185 ;;21,"00591-2235-10 ")
+186 ;;6682
+187 ;;21,"00591-2365-69 ")
+188 ;;1306
+189 ;;21,"00591-2404-01 ")
+190 ;;6408
+191 ;;21,"00591-2805-60 ")
+192 ;;3042
+193 ;;21,"00591-2932-01 ")
+194 ;;2427
+195 ;;21,"00591-3120-01 ")
+196 ;;2428
+197 ;;21,"00591-3120-16 ")
+198 ;;2429
+199 ;;21,"00591-3153-01 ")
+200 ;;6544
+201 ;;21,"00591-3224-15 ")
+202 ;;5363
+203 ;;21,"00591-3549-69 ")
+204 ;;1307
+205 ;;21,"00591-3550-57 ")
+206 ;;1336
+207 ;;21,"00591-3550-68 ")
+208 ;;1337
+209 ;;21,"00591-5440-05 ")
+210 ;;5948
+211 ;;21,"00591-5440-50 ")
+212 ;;5949
+213 ;;21,"00591-5535-50 ")
+214 ;;6308
+215 ;;21,"00591-5553-05 ")
+216 ;;6140
+217 ;;21,"00591-5553-50 ")
+218 ;;6141
+219 ;;21,"00591-5571-01 ")
+220 ;;2137
+221 ;;21,"00591-5694-01 ")
+222 ;;6512
+223 ;;21,"00591-5694-60 ")
+224 ;;6513
+225 ;;21,"00591-5695-50 ")
+226 ;;6431
+227 ;;21,"00591-5708-01 ")
+228 ;;2225
+229 ;;21,"00603-1684-58 ")
+230 ;;5533
+231 ;;21,"00603-1685-58 ")
+232 ;;5534
+233 ;;21,"00603-3480-19 ")
+234 ;;6309
+235 ;;21,"00603-3481-19 ")
+236 ;;5950
+237 ;;21,"00603-3481-28 ")
+238 ;;5951
+239 ;;21,"00603-3482-19 ")
+240 ;;6142
+241 ;;21,"00603-3482-28 ")
+242 ;;6143
+243 ;;21,"00603-5780-21 ")
+244 ;;5580
+245 ;;21,"00603-5780-28 ")
+246 ;;5581
+247 ;;21,"00603-5781-21 ")
+248 ;;5653
+249 ;;21,"00603-5781-28 ")
+250 ;;5654
+251 ;;21,"00603-6500-84 ")
+252 ;;99
+253 ;;21,"00603-8537-47 ")
+254 ;;5186
+255 ;;21,"00686-3145-09 ")
+256 ;;1590
+257 ;;21,"00703-0315-01 ")
+258 ;;6872
+259 ;;21,"00703-0315-03 ")
+260 ;;6873
+261 ;;21,"00703-0325-03 ")
+262 ;;6908
+263 ;;21,"00703-0335-04 ")
+264 ;;6786
+265 ;;21,"00703-0346-03 ")
+266 ;;6841
+267 ;;21,"00703-0359-01 ")
+268 ;;6822
+269 ;;21,"00703-0956-01 ")
+270 ;;4061
+271 ;;21,"00703-0956-03 ")
+272 ;;4062
+273 ;;21,"00703-0958-01 ")
+274 ;;4063
+275 ;;21,"00703-0958-03 ")
+276 ;;4064
+277 ;;21,"00703-0960-31 ")
+278 ;;4090
+279 ;;21,"00703-0960-36 ")
+280 ;;4091
+281 ;;21,"00703-0969-31 ")
+282 ;;4077
+283 ;;21,"00703-0969-36 ")
+284 ;;4078
+285 ;;21,"00703-9089-01 ")
+286 ;;2522
+287 ;;21,"00703-9503-01 ")
+288 ;;5505
+289 ;;21,"00703-9503-03 ")
+290 ;;5506
+291 ;;21,"00703-9514-01 ")
+292 ;;5507
+293 ;;21,"00703-9514-03 ")
+294 ;;5508
+295 ;;21,"00703-9526-01 ")
+296 ;;5509
+297 ;;21,"00777-0869-02 ")
+298 ;;1591
+299 ;;21,"00777-0869-20 ")
+300 ;;1592
+301 ;;21,"00777-0871-02 ")
+302 ;;1819
+303 ;;21,"00777-0871-20 ")
+304 ;;1820
+305 ;;21,"00781-1205-01 ")
+306 ;;3621
+307 ;;21,"00781-1205-10 ")
+308 ;;3622
+309 ;;21,"00781-1496-01 ")
+310 ;;2644
+311 ;;21,"00781-1496-31 ")
+312 ;;2645
+313 ;;21,"00781-1496-68 ")
+314 ;;2646
+315 ;;21,"00781-1496-69 ")
+316 ;;2647
+317 ;;21,"00781-1497-01 ")
+318 ;;2856
+319 ;;21,"00781-1497-31 ")
+320 ;;2857
+321 ;;21,"00781-1619-66 ")
+322 ;;930
+323 ;;21,"00781-1643-66 ")
+324 ;;1007
+325 ;;21,"00781-1655-01 ")
+326 ;;3767
+327 ;;21,"00781-1655-10 ")
+328 ;;3768
+329 ;;21,"00781-1831-20 ")
+330 ;;1069
+331 ;;21,"00781-1852-20 ")
+332 ;;1220
+333 ;;21,"00781-1874-31 ")
+334 ;;970
+335 ;;21,"00781-1941-31 ")
+336 ;;2785
+337 ;;21,"00781-1941-33 ")
+338 ;;2786
+339 ;;21,"00781-1943-39 ")
+340 ;;900
+341 ;;21,"00781-1943-82 ")
+342 ;;901
+343 ;;21,"00781-1961-60 ")
+344 ;;2891
+345 ;;21,"00781-1962-60 ")
+346 ;;2946
+347 ;;21,"00781-2020-01 ")
+348 ;;180
+349 ;;21,"00781-2020-05 ")
+350 ;;181
+351 ;;21,"00781-2020-31 ")
+352 ;;182
+353 ;;21,"00781-2020-76 ")
+354 ;;183
+355 ;;21,"00781-2112-01 ")
+356 ;;2226
+357 ;;21,"00781-2113-01 ")
+358 ;;2430
+359 ;;21,"00781-2113-17 ")
+360 ;;2431
+361 ;;21,"00781-2144-01 ")
+362 ;;785
+363 ;;21,"00781-2144-05 ")
+364 ;;786
+365 ;;21,"00781-2145-01 ")
+366 ;;847
+367 ;;21,"00781-2145-05 ")
+368 ;;848
+369 ;;21,"00781-2176-60 ")
+370 ;;7002
+371 ;;21,"00781-2176-64 ")
+372 ;;7003
+373 ;;21,"00781-2176-69 ")
+374 ;;7004
+375 ;;21,"00781-2248-01 ")
+376 ;;3911
+377 ;;21,"00781-2258-01 ")
+378 ;;3982
+379 ;;21,"00781-2268-60 ")
+380 ;;6342
+381 ;;21,"00781-2613-01 ")
+382 ;;482
+383 ;;21,"00781-2613-05 ")
+384 ;;483
+385 ;;21,"00781-2613-31 ")
+386 ;;484
+387 ;;21,"00781-2613-76 ")
+388 ;;485
+389 ;;21,"00781-2938-01 ")
+390 ;;1425
+391 ;;21,"00781-2938-50 ")
+392 ;;1426
+393 ;;21,"00781-3206-85 ")
+394 ;;6874
+395 ;;21,"00781-3206-95 ")
+396 ;;6875
+397 ;;21,"00781-3207-85 ")
+398 ;;6909
+399 ;;21,"00781-3207-95 ")
+400 ;;6910
+401 ;;21,"00781-3208-85 ")
+402 ;;6787
+403 ;;21,"00781-3208-95 ")
+404 ;;6788
+405 ;;21,"00781-3209-90 ")
+406 ;;6842
+407 ;;21,"00781-3209-95 ")
+408 ;;6843
+409 ;;21,"00781-3210-46 ")
+410 ;;6823
+411 ;;21,"00781-3239-09 ")
+412 ;;4079
+413 ;;21,"00781-3240-09 ")
+414 ;;4092
+415 ;;21,"00781-3288-09 ")
+416 ;;2183
+417 ;;21,"00781-3289-09 ")
+418 ;;2190
+419 ;;21,"00781-3289-91 ")
+420 ;;2191
+421 ;;21,"00781-3290-09 ")
+422 ;;2199
+423 ;;21,"00781-3338-70 ")
+424 ;;1368
+425 ;;21,"00781-3338-85 ")
+426 ;;1369
+427 ;;21,"00781-3341-09 ")
+428 ;;4113
+429 ;;21,"00781-3342-09 ")
+430 ;;4124
+431 ;;21,"00781-3342-46 ")
+432 ;;4125
+433 ;;21,"00781-3343-09 ")
+434 ;;4136
+435 ;;21,"00781-3343-55 ")
+436 ;;4137
+437 ;;21,"00781-3400-78 ")
+438 ;;36
+439 ;;21,"00781-3400-95 ")
+440 ;;37
+441 ;;21,"00781-3402-78 ")
+442 ;;59
+443 ;;21,"00781-3402-95 ")
+444 ;;60
+445 ;;21,"00781-3404-85 ")
+446 ;;7
+447 ;;21,"00781-3404-95 ")
+448 ;;8
+449 ;;21,"00781-3407-78 ")
+450 ;;70
+451 ;;21,"00781-3407-95 ")
+452 ;;71
+453 ;;21,"00781-3408-80 ")
+454 ;;44
+455 ;;21,"00781-3408-95 ")
+456 ;;45
+457 ;;21,"00781-3409-46 ")
+458 ;;23
+459 ;;21,"00781-3409-95 ")
+460 ;;24
+461 ;;21,"00781-3412-15 ")
+462 ;;9
+463 ;;21,"00781-3412-92 ")
+464 ;;10
+465 ;;21,"00781-3413-15 ")
+466 ;;46
+467 ;;21,"00781-3413-92 ")
+468 ;;47
+469 ;;21,"00781-3450-70 ")
+470 ;;1370
+471 ;;21,"00781-3450-95 ")
+472 ;;1371
+473 ;;21,"00781-3451-70 ")
+474 ;;1308
+475 ;;21,"00781-3451-96 ")
+476 ;;1309
+477 ;;21,"00781-3452-46 ")
+478 ;;1338
+479 ;;21,"00781-3452-95 ")
+480 ;;1339
+481 ;;21,"00781-3918-96 ")
+482 ;;5102
+483 ;;21,"00781-5043-01 ")
+484 ;;5272
+485 ;;21,"00781-5044-01 ")
+486 ;;5329
+487 ;;21,"00781-5044-50 ")
+488 ;;5330
+489 ;;21,"00781-5060-01 ")
+490 ;;706
+491 ;;21,"00781-5060-20 ")
+492 ;;707
+493 ;;21,"00781-5061-01 ")
+494 ;;725
+495 ;;21,"00781-5061-20 ")
+496 ;;726
+497 ;;21,"00781-5115-01 ")
+498 ;;5914
+499 ;;21,"00781-5385-01 ")
+500 ;;6503
+501 ;;21,"00781-5385-31 ")
+502 ;;6504
+503 ;;21,"00781-5386-01 ")
+504 ;;6569
+505 ;;21,"00781-5386-31 ")
+506 ;;6570
+507 ;;21,"00781-5387-01 ")
+508 ;;6492
+509 ;;21,"00781-5387-31 ")
+510 ;;6493
+511 ;;21,"00781-5438-20 ")
+512 ;;7067
+513 ;;21,"00781-5439-01 ")
+514 ;;7082
+515 ;;21,"00781-5439-20 ")
+516 ;;7083
+517 ;;21,"00781-5790-01 ")
+518 ;;4785
+519 ;;21,"00781-5790-50 ")
+520 ;;4786
+521 ;;21,"00781-5791-01 ")
+522 ;;4858
+523 ;;21,"00781-5791-50 ")
+524 ;;4859
+525 ;;21,"00781-5792-20 ")
+526 ;;4961
+527 ;;21,"00781-5792-50 ")
+528 ;;4962
+529 ;;21,"00781-6022-46 ")
+530 ;;2872
+531 ;;21,"00781-6022-52 ")
+532 ;;2873
+533 ;;21,"00781-6023-46 ")
+534 ;;2922
+535 ;;21,"00781-6023-52 ")
+536 ;;2923
+537 ;;21,"00781-6039-46 ")
+538 ;;100
+539 ;;21,"00781-6039-55 ")
+540 ;;101
+541 ;;21,"00781-6039-58 ")
+542 ;;102
+543 ;;21,"00781-6041-46 ")
+544 ;;388
+545 ;;21,"00781-6041-55 ")
+546 ;;389
+547 ;;21,"00781-6041-58 ")
+548 ;;390
+549 ;;21,"00781-6077-46 ")
+550 ;;6947
+551 ;;21,"00781-6077-61 ")
+552 ;;6948
+553 ;;21,"00781-6078-46 ")
+554 ;;6974
+555 ;;21,"00781-6078-61 ")
+556 ;;6975
+557 ;;21,"00781-6102-46 ")
+558 ;;941
+559 ;;21,"00781-6104-46 ")
+560 ;;1021
+561 ;;21,"00781-6120-46 ")
+562 ;;3603
+563 ;;21,"00781-6120-48 ")
+564 ;;3604
+565 ;;21,"00781-6121-46 ")
+566 ;;3723
+567 ;;21,"00781-6135-94 ")
+568 ;;3588
+569 ;;21,"00781-6135-95 ")
+570 ;;3589
+571 ;;21,"00781-6136-94 ")
+572 ;;3578
+573 ;;21,"00781-6139-48 ")
+574 ;;1180
+575 ;;21,"00781-6139-54 ")
+576 ;;1181
+577 ;;21,"00781-6139-57 ")
+578 ;;1182
+579 ;;21,"00781-6153-94 ")
+580 ;;3593
+581 ;;21,"00781-6153-95 ")
+582 ;;3594
+583 ;;21,"00781-6156-46 ")
+584 ;;146
+585 ;;21,"00781-6156-52 ")
+586 ;;147
+587 ;;21,"00781-6156-57 ")
+588 ;;148
+589 ;;21,"00781-6157-46 ")
+590 ;;432
+591 ;;21,"00781-6157-52 ")
+592 ;;433
+593 ;;21,"00781-6157-57 ")
+594 ;;434
+595 ;;21,"00781-6168-46 ")
+596 ;;7093
+597 ;;21,"00781-6168-52 ")
+598 ;;7094
+599 ;;21,"00781-6169-46 ")
+600 ;;7073
+601 ;;21,"00781-6169-52 ")
+602 ;;7074
+603 ;;21,"00781-6202-46 ")
+604 ;;5240
+605 ;;21,"00781-6202-57 ")
+606 ;;5241
+607 ;;21,"00781-6202-91 ")
+608 ;;5242
+609 ;;21,"00781-6203-46 ")
+610 ;;5292
+611 ;;21,"00781-6203-57 ")
+612 ;;5293
+613 ;;21,"00781-6203-91 ")
+614 ;;5294
+615 ;;21,"00781-9205-96 ")
+616 ;;5103
+617 ;;21,"00781-9206-96 ")
+618 ;;5067
+619 ;;21,"00781-9207-95 ")
+620 ;;5087
+621 ;;21,"00781-9220-09 ")
+622 ;;2184
+623 ;;21,"00781-9220-91 ")
+624 ;;2185
+625 ;;21,"00781-9221-09 ")
+626 ;;2192
+627 ;;21,"00781-9221-91 ")
+628 ;;2193
+629 ;;21,"00781-9222-09 ")
+630 ;;2200
+631 ;;21,"00781-9222-91 ")
+632 ;;2201
+633 ;;21,"00781-9327-85 ")
+634 ;;6911
+635 ;;21,"00781-9327-95 ")
+636 ;;6912
+637 ;;21,"00781-9328-95 ")
+638 ;;6789
+639 ;;21,"00781-9329-90 ")
+640 ;;6844
+641 ;;21,"00781-9330-46 ")
+642 ;;6824
+643 ;;21,"00781-9337-46 ")
+644 ;;1340
+645 ;;21,"00781-9337-95 ")
+646 ;;1341
+647 ;;21,"00781-9338-95 ")
+648 ;;1372
+649 ;;21,"00781-9339-85 ")
+650 ;;1310
+651 ;;21,"00781-9339-96 ")
+652 ;;1311
+653 ;;21,"00781-9404-95 ")
+654 ;;11
+655 ;;21,"00781-9407-78 ")
+656 ;;72
+657 ;;21,"00781-9407-95 ")
+658 ;;73
+659 ;;21,"00781-9408-95 ")
+660 ;;48
+661 ;;21,"00781-9409-46 ")
+662 ;;25
+663 ;;21,"00781-9409-95 ")
+664 ;;26
+665 ;;21,"00781-9409-96 ")
+666 ;;27
+667 ;;21,"00781-9412-92 ")
+668 ;;12
+669 ;;21,"00781-9413-92 ")
+670 ;;49
+671 ;;21,"00781-9451-96 ")
+672 ;;1312