BGP62Y6 ;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,"16590-0088-30 ")
+2 ;;3058
+3 ;;21,"16590-0088-40 ")
+4 ;;3059
+5 ;;21,"16590-0089-21 ")
+6 ;;3182
+7 ;;21,"16590-0089-30 ")
+8 ;;3183
+9 ;;21,"16590-0089-40 ")
+10 ;;3184
+11 ;;21,"16590-0091-21 ")
+12 ;;3121
+13 ;;21,"16590-0091-30 ")
+14 ;;3122
+15 ;;21,"16590-0091-40 ")
+16 ;;3123
+17 ;;21,"16590-0182-36 ")
+18 ;;3724
+19 ;;21,"16590-0183-20 ")
+20 ;;3769
+21 ;;21,"16590-0183-30 ")
+22 ;;3770
+23 ;;21,"16590-0183-40 ")
+24 ;;3771
+25 ;;21,"16590-0210-14 ")
+26 ;;5666
+27 ;;21,"16590-0210-20 ")
+28 ;;5667
+29 ;;21,"16590-0210-28 ")
+30 ;;5668
+31 ;;21,"16590-0212-32 ")
+32 ;;5535
+33 ;;21,"16590-0215-20 ")
+34 ;;5454
+35 ;;21,"16590-0216-30 ")
+36 ;;6601
+37 ;;21,"16590-0217-30 ")
+38 ;;6683
+39 ;;21,"16590-0217-60 ")
+40 ;;6684
+41 ;;21,"16590-0248-06 ")
+42 ;;2654
+43 ;;21,"16590-0362-06 ")
+44 ;;2655
+45 ;;21,"16590-0369-40 ")
+46 ;;902
+47 ;;21,"16590-0383-03 ")
+48 ;;2787
+49 ;;21,"16590-0401-32 ")
+50 ;;435
+51 ;;21,"16590-0424-20 ")
+52 ;;316
+53 ;;21,"16590-0424-30 ")
+54 ;;317
+55 ;;21,"16590-0424-40 ")
+56 ;;318
+57 ;;21,"16590-0735-14 ")
+58 ;;4697
+59 ;;21,"16590-0735-20 ")
+60 ;;4698
+61 ;;21,"16590-0735-28 ")
+62 ;;4699
+63 ;;21,"16714-0202-01 ")
+64 ;;1404
+65 ;;21,"16714-0203-01 ")
+66 ;;1537
+67 ;;21,"16714-0203-02 ")
+68 ;;1538
+69 ;;21,"16714-0204-02 ")
+70 ;;1435
+71 ;;21,"16714-0204-03 ")
+72 ;;1436
+73 ;;21,"16714-0205-01 ")
+74 ;;7005
+75 ;;21,"16714-0205-02 ")
+76 ;;7006
+77 ;;21,"16714-0205-04 ")
+78 ;;7007
+79 ;;21,"16714-0206-01 ")
+80 ;;6949
+81 ;;21,"16714-0206-02 ")
+82 ;;6950
+83 ;;21,"16714-0207-01 ")
+84 ;;6976
+85 ;;21,"16714-0207-02 ")
+86 ;;6977
+87 ;;21,"16714-0208-01 ")
+88 ;;5273
+89 ;;21,"16714-0209-01 ")
+90 ;;5331
+91 ;;21,"16714-0212-01 ")
+92 ;;7084
+93 ;;21,"16714-0215-01 ")
+94 ;;5243
+95 ;;21,"16714-0215-02 ")
+96 ;;5244
+97 ;;21,"16714-0215-03 ")
+98 ;;5245
+99 ;;21,"16714-0216-01 ")
+100 ;;5295
+101 ;;21,"16714-0216-02 ")
+102 ;;5296
+103 ;;21,"16714-0216-03 ")
+104 ;;5297
+105 ;;21,"16714-0232-01 ")
+106 ;;5365
+107 ;;21,"16714-0232-02 ")
+108 ;;5366
+109 ;;21,"16714-0233-01 ")
+110 ;;5455
+111 ;;21,"16714-0233-02 ")
+112 ;;5456
+113 ;;21,"16714-0234-01 ")
+114 ;;3623
+115 ;;21,"16714-0234-02 ")
+116 ;;3624
+117 ;;21,"16714-0235-01 ")
+118 ;;3772
+119 ;;21,"16714-0235-02 ")
+120 ;;3773
+121 ;;21,"16714-0292-01 ")
+122 ;;942
+123 ;;21,"16714-0292-02 ")
+124 ;;943
+125 ;;21,"16714-0292-03 ")
+126 ;;944
+127 ;;21,"16714-0293-01 ")
+128 ;;1022
+129 ;;21,"16714-0293-02 ")
+130 ;;1023
+131 ;;21,"16714-0293-03 ")
+132 ;;1024
+133 ;;21,"16714-0294-01 ")
+134 ;;1183
+135 ;;21,"16714-0294-02 ")
+136 ;;1184
+137 ;;21,"16714-0294-03 ")
+138 ;;1185
+139 ;;21,"16714-0295-01 ")
+140 ;;971
+141 ;;21,"16714-0296-01 ")
+142 ;;1075
+143 ;;21,"16714-0297-01 ")
+144 ;;1226
+145 ;;21,"16714-0297-02 ")
+146 ;;1227
+147 ;;21,"16714-0298-01 ")
+148 ;;197
+149 ;;21,"16714-0298-02 ")
+150 ;;198
+151 ;;21,"16714-0299-02 ")
+152 ;;508
+153 ;;21,"16714-0299-03 ")
+154 ;;509
+155 ;;21,"16714-0299-04 ")
+156 ;;510
+157 ;;21,"16714-0386-01 ")
+158 ;;5246
+159 ;;21,"16714-0386-02 ")
+160 ;;5247
+161 ;;21,"16714-0386-03 ")
+162 ;;5248
+163 ;;21,"16714-0387-01 ")
+164 ;;5298
+165 ;;21,"16714-0387-02 ")
+166 ;;5299
+167 ;;21,"16714-0387-03 ")
+168 ;;5300
+169 ;;21,"16714-0388-01 ")
+170 ;;1437
+171 ;;21,"16714-0388-02 ")
+172 ;;1438
+173 ;;21,"16714-0389-01 ")
+174 ;;1405
+175 ;;21,"16714-0390-01 ")
+176 ;;1539
+177 ;;21,"16714-0390-02 ")
+178 ;;1540
+179 ;;21,"16714-0391-01 ")
+180 ;;7008
+181 ;;21,"16714-0391-02 ")
+182 ;;7009
+183 ;;21,"16714-0392-01 ")
+184 ;;6951
+185 ;;21,"16714-0392-02 ")
+186 ;;6952
+187 ;;21,"16714-0393-01 ")
+188 ;;6978
+189 ;;21,"16714-0393-02 ")
+190 ;;6979
+191 ;;21,"16714-0394-01 ")
+192 ;;7068
+193 ;;21,"16714-0395-01 ")
+194 ;;7085
+195 ;;21,"16714-0396-01 ")
+196 ;;5249
+197 ;;21,"16714-0396-02 ")
+198 ;;5250
+199 ;;21,"16714-0396-03 ")
+200 ;;5251
+201 ;;21,"16714-0397-01 ")
+202 ;;5301
+203 ;;21,"16714-0397-02 ")
+204 ;;5302
+205 ;;21,"16714-0397-03 ")
+206 ;;5303
+207 ;;21,"16714-0398-01 ")
+208 ;;5274
+209 ;;21,"16714-0399-01 ")
+210 ;;5332
+211 ;;21,"16714-0400-01 ")
+212 ;;5367
+213 ;;21,"16714-0400-02 ")
+214 ;;5368
+215 ;;21,"16714-0401-01 ")
+216 ;;5457
+217 ;;21,"16714-0401-02 ")
+218 ;;5458
+219 ;;21,"16714-0402-01 ")
+220 ;;7095
+221 ;;21,"16714-0402-02 ")
+222 ;;7096
+223 ;;21,"16714-0403-01 ")
+224 ;;7075
+225 ;;21,"16714-0403-02 ")
+226 ;;7076
+227 ;;21,"16714-0641-02 ")
+228 ;;1600
+229 ;;21,"16714-0641-03 ")
+230 ;;1601
+231 ;;21,"16714-0642-02 ")
+232 ;;1852
+233 ;;21,"16714-0642-03 ")
+234 ;;1853
+235 ;;21,"16714-0651-02 ")
+236 ;;4193
+237 ;;21,"16714-0652-02 ")
+238 ;;4395
+239 ;;21,"16714-0652-04 ")
+240 ;;4396
+241 ;;21,"16714-0653-01 ")
+242 ;;4700
+243 ;;21,"16781-0400-60 ")
+244 ;;6515
+245 ;;21,"16781-0403-50 ")
+246 ;;6433
+247 ;;21,"16781-0403-60 ")
+248 ;;6434
+249 ;;21,"16781-0457-60 ")
+250 ;;6545
+251 ;;21,"17478-0107-20 ")
+252 ;;4097
+253 ;;21,"17478-0107-30 ")
+254 ;;4098
+255 ;;21,"17478-0120-50 ")
+256 ;;2186
+257 ;;21,"17478-0121-50 ")
+258 ;;2194
+259 ;;21,"17478-0122-50 ")
+260 ;;2202
+261 ;;21,"17856-0823-30 ")
+262 ;;5536
+263 ;;21,"17856-0824-30 ")
+264 ;;5537
+265 ;;21,"18837-0145-60 ")
+266 ;;5669
+267 ;;21,"18837-0195-14 ")
+268 ;;1854
+269 ;;21,"18837-0244-20 ")
+270 ;;7010
+271 ;;21,"21695-0012-06 ")
+272 ;;2656
+273 ;;21,"21695-0013-03 ")
+274 ;;2788
+275 ;;21,"21695-0033-08 ")
+276 ;;2235
+277 ;;21,"21695-0033-12 ")
+278 ;;2236
+279 ;;21,"21695-0033-14 ")
+280 ;;2237
+281 ;;21,"21695-0033-21 ")
+282 ;;2238
+283 ;;21,"21695-0033-28 ")
+284 ;;2239
+285 ;;21,"21695-0033-40 ")
+286 ;;2240
+287 ;;21,"21695-0033-60 ")
+288 ;;2241
+289 ;;21,"21695-0033-90 ")
+290 ;;2242
+291 ;;21,"21695-0034-20 ")
+292 ;;2432
+293 ;;21,"21695-0034-21 ")
+294 ;;2433
+295 ;;21,"21695-0034-30 ")
+296 ;;2434
+297 ;;21,"21695-0044-06 ")
+298 ;;5965
+299 ;;21,"21695-0044-14 ")
+300 ;;5966
+301 ;;21,"21695-0044-20 ")
+302 ;;5967
+303 ;;21,"21695-0044-28 ")
+304 ;;5968
+305 ;;21,"21695-0044-30 ")
+306 ;;5969
+307 ;;21,"21695-0044-40 ")
+308 ;;5970
+309 ;;21,"21695-0044-42 ")
+310 ;;5971
+311 ;;21,"21695-0044-90 ")
+312 ;;5972
+313 ;;21,"21695-0125-05 ")
+314 ;;5670
+315 ;;21,"21695-0125-06 ")
+316 ;;5671
+317 ;;21,"21695-0125-10 ")
+318 ;;5672
+319 ;;21,"21695-0125-14 ")
+320 ;;5673
+321 ;;21,"21695-0125-20 ")
+322 ;;5674
+323 ;;21,"21695-0125-21 ")
+324 ;;5675
+325 ;;21,"21695-0125-28 ")
+326 ;;5676
+327 ;;21,"21695-0125-30 ")
+328 ;;5677
+329 ;;21,"21695-0125-40 ")
+330 ;;5678
+331 ;;21,"21695-0125-60 ")
+332 ;;5679
+333 ;;21,"21695-0150-20 ")
+334 ;;5459
+335 ;;21,"21695-0202-10 ")
+336 ;;6916
+337 ;;21,"21695-0210-06 ")
+338 ;;4397
+339 ;;21,"21695-0210-10 ")
+340 ;;4398
+341 ;;21,"21695-0210-14 ")
+342 ;;4399
+343 ;;21,"21695-0210-20 ")
+344 ;;4400
+345 ;;21,"21695-0210-28 ")
+346 ;;4401
+347 ;;21,"21695-0210-30 ")
+348 ;;4402
+349 ;;21,"21695-0214-20 ")
+350 ;;1076
+351 ;;21,"21695-0215-20 ")
+352 ;;1228
+353 ;;21,"21695-0294-00 ")
+354 ;;436
+355 ;;21,"21695-0302-28 ")
+356 ;;6602
+357 ;;21,"21695-0314-21 ")
+358 ;;199
+359 ;;21,"21695-0314-30 ")
+360 ;;200
+361 ;;21,"21695-0315-08 ")
+362 ;;511
+363 ;;21,"21695-0315-09 ")
+364 ;;512
+365 ;;21,"21695-0315-21 ")
+366 ;;513
+367 ;;21,"21695-0315-30 ")
+368 ;;514
+369 ;;21,"21695-0315-40 ")
+370 ;;515
+371 ;;21,"21695-0315-42 ")
+372 ;;516
+373 ;;21,"21695-0316-20 ")
+374 ;;1602
+375 ;;21,"21695-0316-28 ")
+376 ;;1603
+377 ;;21,"21695-0316-30 ")
+378 ;;1604
+379 ;;21,"21695-0316-40 ")
+380 ;;1605
+381 ;;21,"21695-0317-08 ")
+382 ;;1855
+383 ;;21,"21695-0317-12 ")
+384 ;;1856
+385 ;;21,"21695-0317-14 ")
+386 ;;1857
+387 ;;21,"21695-0317-20 ")
+388 ;;1858
+389 ;;21,"21695-0317-21 ")
+390 ;;1859
+391 ;;21,"21695-0317-28 ")
+392 ;;1860
+393 ;;21,"21695-0317-30 ")
+394 ;;1861
+395 ;;21,"21695-0317-40 ")
+396 ;;1862
+397 ;;21,"21695-0317-60 ")
+398 ;;1863
+399 ;;21,"21695-0318-12 ")
+400 ;;3774
+401 ;;21,"21695-0318-20 ")
+402 ;;3775
+403 ;;21,"21695-0318-28 ")
+404 ;;3776
+405 ;;21,"21695-0318-30 ")
+406 ;;3777
+407 ;;21,"21695-0318-40 ")
+408 ;;3778
+409 ;;21,"21695-0352-10 ")
+410 ;;6794
+411 ;;21,"21695-0370-10 ")
+412 ;;5369
+413 ;;21,"21695-0370-20 ")
+414 ;;5370
+415 ;;21,"21695-0384-15 ")
+416 ;;104
+417 ;;21,"21695-0384-80 ")
+418 ;;105
+419 ;;21,"21695-0385-00 ")
+420 ;;392
+421 ;;21,"21695-0385-15 ")
+422 ;;393
+423 ;;21,"21695-0385-80 ")
+424 ;;394
+425 ;;21,"21695-0387-28 ")
+426 ;;3124
+427 ;;21,"21695-0389-30 ")
+428 ;;3303
+429 ;;21,"21695-0401-12 ")
+430 ;;1186
+431 ;;21,"21695-0401-20 ")
+432 ;;1187
+433 ;;21,"21695-0411-06 ")
+434 ;;4194
+435 ;;21,"21695-0411-10 ")
+436 ;;4195
+437 ;;21,"21695-0411-14 ")
+438 ;;4196
+439 ;;21,"21695-0411-20 ")
+440 ;;4197
+441 ;;21,"21695-0411-60 ")
+442 ;;4198
+443 ;;21,"21695-0418-30 ")
+444 ;;319
+445 ;;21,"21695-0427-10 ")
+446 ;;1439
+447 ;;21,"21695-0427-20 ")
+448 ;;1440
+449 ;;21,"21695-0427-28 ")
+450 ;;1441
+451 ;;21,"21695-0427-50 ")
+452 ;;1442
+453 ;;21,"21695-0464-07 ")
+454 ;;4870
+455 ;;21,"21695-0519-07 ")
+456 ;;4969
+457 ;;21,"21695-0544-20 ")
+458 ;;729
+459 ;;21,"21695-0546-00 ")
+460 ;;1025
+461 ;;21,"21695-0549-30 ")
+462 ;;2587
+463 ;;21,"21695-0551-00 ")
+464 ;;1779
+465 ;;21,"21695-0551-20 ")
+466 ;;1780
+467 ;;21,"21695-0557-10 ")
+468 ;;2892
+469 ;;21,"21695-0558-10 ")
+470 ;;2955
+471 ;;21,"21695-0558-14 ")
+472 ;;2956
+473 ;;21,"21695-0558-20 ")
+474 ;;2957
+475 ;;21,"21695-0558-28 ")
+476 ;;2958
+477 ;;21,"21695-0581-14 ")
+478 ;;6148
+479 ;;21,"21695-0581-20 ")
+480 ;;6149
+481 ;;21,"21695-0581-30 ")
+482 ;;6150
+483 ;;21,"21695-0620-20 ")
+484 ;;7011
+485 ;;21,"21695-0622-60 ")
+486 ;;6980
+487 ;;21,"21695-0640-28 ")
+488 ;;6685
+489 ;;21,"21695-0640-40 ")
+490 ;;6686
+491 ;;21,"21695-0693-30 ")
+492 ;;6516
+493 ;;21,"21695-0767-50 ")
+494 ;;945
+495 ;;21,"21695-0772-00 ")
+496 ;;3605
+497 ;;21,"21695-0782-15 ")
+498 ;;5169
+499 ;;21,"21695-0789-20 ")
+500 ;;1556
+501 ;;21,"21695-0914-40 ")
+502 ;;4065
+503 ;;21,"23155-0017-01 ")
+504 ;;6603
+505 ;;21,"23155-0018-01 ")
+506 ;;6687
+507 ;;21,"23155-0133-01 ")
+508 ;;6405
+509 ;;21,"23155-0134-01 ")
+510 ;;6418
+511 ;;21,"23155-0135-25 ")
+512 ;;6376
+513 ;;21,"23155-0136-03 ")
+514 ;;6392
+515 ;;21,"23155-0141-01 ")
+516 ;;6345
+517 ;;21,"23155-0141-06 ")
+518 ;;6346
+519 ;;21,"23155-0142-01 ")
+520 ;;6123
+521 ;;21,"23155-0143-01 ")
+522 ;;6300
+523 ;;21,"23155-0201-31 ")
+524 ;;4099
+525 ;;21,"23155-0201-32 ")
+526 ;;4100
+527 ;;21,"23490-0081-00 ")
+528 ;;1077
+529 ;;21,"23490-0081-02 ")
+530 ;;1078
+531 ;;21,"23490-0081-03 ")
+532 ;;1079
+533 ;;21,"23490-0283-04 ")
+534 ;;1775
+535 ;;21,"23490-0285-04 ")
+536 ;;2126
+537 ;;21,"23490-0320-04 ")
+538 ;;4403
+539 ;;21,"23490-0320-07 ")
+540 ;;4404
+541 ;;21,"23490-0490-03 ")
+542 ;;5973
+543 ;;21,"23490-0490-06 ")
+544 ;;5974
+545 ;;21,"23490-1244-02 ")
+546 ;;5680
+547 ;;21,"23490-5065-01 ")
+548 ;;106
+549 ;;21,"23490-5066-01 ")
+550 ;;201
+551 ;;21,"23490-5066-02 ")
+552 ;;202
+553 ;;21,"23490-5066-03 ")
+554 ;;203
+555 ;;21,"23490-5067-01 ")
+556 ;;320
+557 ;;21,"23490-5068-01 ")
+558 ;;395
+559 ;;21,"23490-5068-02 ")
+560 ;;396
+561 ;;21,"23490-5070-01 ")
+562 ;;517
+563 ;;21,"23490-5070-02 ")
+564 ;;518
+565 ;;21,"23490-5070-03 ")
+566 ;;519
+567 ;;21,"23490-5070-04 ")
+568 ;;520
+569 ;;21,"23490-5070-05 ")
+570 ;;521
+571 ;;21,"23490-5070-06 ")
+572 ;;522
+573 ;;21,"23490-5070-07 ")
+574 ;;523
+575 ;;21,"23490-5074-01 ")
+576 ;;1080
+577 ;;21,"23490-5074-02 ")
+578 ;;1081
+579 ;;21,"23490-5074-03 ")
+580 ;;1082
+581 ;;21,"23490-5075-01 ")
+582 ;;972
+583 ;;21,"23490-5079-01 ")
+584 ;;787
+585 ;;21,"23490-5081-01 ")
+586 ;;849
+587 ;;21,"23490-5218-01 ")
+588 ;;5136
+589 ;;21,"23490-5218-02 ")
+590 ;;5137
+591 ;;21,"23490-5218-04 ")
+592 ;;5138
+593 ;;21,"23490-5219-01 ")
+594 ;;5170
+595 ;;21,"23490-5219-03 ")
+596 ;;5171
+597 ;;21,"23490-5221-00 ")
+598 ;;5196
+599 ;;21,"23490-5221-01 ")
+600 ;;5197
+601 ;;21,"23490-5221-02 ")
+602 ;;5198
+603 ;;21,"23490-5225-02 ")
+604 ;;1443
+605 ;;21,"23490-5225-03 ")
+606 ;;1444
+607 ;;21,"23490-5225-04 ")
+608 ;;1445
+609 ;;21,"23490-5225-05 ")
+610 ;;1446
+611 ;;21,"23490-5225-07 ")
+612 ;;1447
+613 ;;21,"23490-5231-01 ")
+614 ;;5304
+615 ;;21,"23490-5231-05 ")
+616 ;;5305
+617 ;;21,"23490-5231-07 ")
+618 ;;5306
+619 ;;21,"23490-5243-01 ")
+620 ;;5371
+621 ;;21,"23490-5244-01 ")
+622 ;;5460
+623 ;;21,"23490-5246-00 ")
+624 ;;2127
+625 ;;21,"23490-5248-01 ")
+626 ;;1606
+627 ;;21,"23490-5248-02 ")
+628 ;;1607
+629 ;;21,"23490-5248-03 ")
+630 ;;1608
+631 ;;21,"23490-5248-04 ")
+632 ;;1609
+633 ;;21,"23490-5248-05 ")
+634 ;;1610
+635 ;;21,"23490-5248-06 ")
+636 ;;1611
+637 ;;21,"23490-5248-07 ")
+638 ;;1612
+639 ;;21,"23490-5248-08 ")
+640 ;;1613
+641 ;;21,"23490-5249-01 ")
+642 ;;1557
+643 ;;21,"23490-5249-02 ")
+644 ;;1558
+645 ;;21,"23490-5250-01 ")
+646 ;;1781
+647 ;;21,"23490-5250-02 ")
+648 ;;1782
+649 ;;21,"23490-5251-00 ")
+650 ;;1864
+651 ;;21,"23490-5251-01 ")
+652 ;;1865
+653 ;;21,"23490-5251-02 ")
+654 ;;1866
+655 ;;21,"23490-5251-03 ")
+656 ;;1867
+657 ;;21,"23490-5251-05 ")
+658 ;;1868
+659 ;;21,"23490-5251-06 ")
+660 ;;1869
+661 ;;21,"23490-5251-07 ")
+662 ;;1870
+663 ;;21,"23490-5251-08 ")
+664 ;;1871
+665 ;;21,"23490-5251-09 ")
+666 ;;1872
+667 ;;21,"23490-5322-01 ")
+668 ;;4199