BGP62Y12 ;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,"54569-4713-02 ")
+2 ;;6445
+3 ;;21,"54569-4737-00 ")
+4 ;;5448
+5 ;;21,"54569-4820-00 ")
+6 ;;4498
+7 ;;21,"54569-4915-00 ")
+8 ;;4809
+9 ;;21,"54569-4915-01 ")
+10 ;;4810
+11 ;;21,"54569-4915-02 ")
+12 ;;4811
+13 ;;21,"54569-4922-00 ")
+14 ;;5027
+15 ;;21,"54569-4922-01 ")
+16 ;;5028
+17 ;;21,"54569-4922-02 ")
+18 ;;5029
+19 ;;21,"54569-4953-00 ")
+20 ;;3045
+21 ;;21,"54569-4972-00 ")
+22 ;;1670
+23 ;;21,"54569-5149-00 ")
+24 ;;5030
+25 ;;21,"54569-5154-00 ")
+26 ;;2149
+27 ;;21,"54569-5182-00 ")
+28 ;;711
+29 ;;21,"54569-5193-00 ")
+30 ;;742
+31 ;;21,"54569-5214-00 ")
+32 ;;7014
+33 ;;21,"54569-5214-01 ")
+34 ;;7015
+35 ;;21,"54569-5386-00 ")
+36 ;;5383
+37 ;;21,"54569-5386-01 ")
+38 ;;5384
+39 ;;21,"54569-5386-02 ")
+40 ;;5385
+41 ;;21,"54569-5386-03 ")
+42 ;;5386
+43 ;;21,"54569-5418-00 ")
+44 ;;5469
+45 ;;21,"54569-5448-00 ")
+46 ;;2809
+47 ;;21,"54569-5470-00 ")
+48 ;;1119
+49 ;;21,"54569-5470-01 ")
+50 ;;1120
+51 ;;21,"54569-5470-02 ")
+52 ;;1121
+53 ;;21,"54569-5470-03 ")
+54 ;;1122
+55 ;;21,"54569-5471-00 ")
+56 ;;1259
+57 ;;21,"54569-5471-01 ")
+58 ;;1260
+59 ;;21,"54569-5471-02 ")
+60 ;;1261
+61 ;;21,"54569-5471-03 ")
+62 ;;1262
+63 ;;21,"54569-5471-04 ")
+64 ;;1263
+65 ;;21,"54569-5487-00 ")
+66 ;;1037
+67 ;;21,"54569-5488-00 ")
+68 ;;955
+69 ;;21,"54569-5510-00 ")
+70 ;;4669
+71 ;;21,"54569-5553-00 ")
+72 ;;445
+73 ;;21,"54569-5574-00 ")
+74 ;;4499
+75 ;;21,"54569-5574-01 ")
+76 ;;4500
+77 ;;21,"54569-5574-02 ")
+78 ;;4501
+79 ;;21,"54569-5574-03 ")
+80 ;;4502
+81 ;;21,"54569-5574-04 ")
+82 ;;4503
+83 ;;21,"54569-5574-05 ")
+84 ;;4504
+85 ;;21,"54569-5574-06 ")
+86 ;;4505
+87 ;;21,"54569-5584-00 ")
+88 ;;4234
+89 ;;21,"54569-5584-01 ")
+90 ;;4235
+91 ;;21,"54569-5584-02 ")
+92 ;;4236
+93 ;;21,"54569-5638-00 ")
+94 ;;1009
+95 ;;21,"54569-5638-01 ")
+96 ;;1010
+97 ;;21,"54569-5649-00 ")
+98 ;;6982
+99 ;;21,"54569-5650-00 ")
+100 ;;6983
+101 ;;21,"54569-5688-00 ")
+102 ;;2901
+103 ;;21,"54569-5689-00 ")
+104 ;;1038
+105 ;;21,"54569-5690-00 ")
+106 ;;1039
+107 ;;21,"54569-5698-00 ")
+108 ;;2980
+109 ;;21,"54569-5698-01 ")
+110 ;;2981
+111 ;;21,"54569-5698-02 ")
+112 ;;2982
+113 ;;21,"54569-5720-00 ")
+114 ;;6880
+115 ;;21,"54569-5721-00 ")
+116 ;;6921
+117 ;;21,"54569-5722-00 ")
+118 ;;6801
+119 ;;21,"54569-5723-00 ")
+120 ;;6881
+121 ;;21,"54569-5724-00 ")
+122 ;;6922
+123 ;;21,"54569-5725-00 ")
+124 ;;6802
+125 ;;21,"54569-5727-00 ")
+126 ;;608
+127 ;;21,"54569-5754-00 ")
+128 ;;2687
+129 ;;21,"54569-5755-00 ")
+130 ;;2688
+131 ;;21,"54569-5756-00 ")
+132 ;;2810
+133 ;;21,"54569-5774-00 ")
+134 ;;2453
+135 ;;21,"54569-5774-01 ")
+136 ;;2454
+137 ;;21,"54569-5774-02 ")
+138 ;;2455
+139 ;;21,"54569-5774-03 ")
+140 ;;2456
+141 ;;21,"54569-5784-00 ")
+142 ;;5275
+143 ;;21,"54569-5785-00 ")
+144 ;;5307
+145 ;;21,"54569-5804-00 ")
+146 ;;2859
+147 ;;21,"54569-5806-00 ")
+148 ;;2549
+149 ;;21,"54569-5807-00 ")
+150 ;;2563
+151 ;;21,"54569-5808-00 ")
+152 ;;2602
+153 ;;21,"54569-5809-00 ")
+154 ;;2603
+155 ;;21,"54569-5810-00 ")
+156 ;;2604
+157 ;;21,"54569-5813-00 ")
+158 ;;5753
+159 ;;21,"54569-5824-00 ")
+160 ;;4319
+161 ;;21,"54569-5829-00 ")
+162 ;;2927
+163 ;;21,"54569-5831-00 ")
+164 ;;1199
+165 ;;21,"54569-5899-00 ")
+166 ;;4670
+167 ;;21,"54569-5917-00 ")
+168 ;;6984
+169 ;;21,"54569-5918-00 ")
+170 ;;6985
+171 ;;21,"54569-5919-00 ")
+172 ;;6955
+173 ;;21,"54569-5920-00 ")
+174 ;;6956
+175 ;;21,"54569-5921-00 ")
+176 ;;7016
+177 ;;21,"54569-5921-01 ")
+178 ;;7017
+179 ;;21,"54569-5921-02 ")
+180 ;;7018
+181 ;;21,"54569-5921-03 ")
+182 ;;7019
+183 ;;21,"54569-6037-00 ")
+184 ;;446
+185 ;;21,"54569-6043-00 ")
+186 ;;1200
+187 ;;21,"54569-6083-00 ")
+188 ;;3562
+189 ;;21,"54569-6084-00 ")
+190 ;;3563
+191 ;;21,"54569-6195-00 ")
+192 ;;5334
+193 ;;21,"54569-6204-00 ")
+194 ;;2811
+195 ;;21,"54569-6237-00 ")
+196 ;;4912
+197 ;;21,"54569-6237-01 ")
+198 ;;4913
+199 ;;21,"54569-6237-02 ")
+200 ;;4914
+201 ;;21,"54569-6237-03 ")
+202 ;;4915
+203 ;;21,"54569-6238-00 ")
+204 ;;4980
+205 ;;21,"54569-6238-01 ")
+206 ;;4981
+207 ;;21,"54569-6241-00 ")
+208 ;;4812
+209 ;;21,"54569-6241-01 ")
+210 ;;4813
+211 ;;21,"54569-6448-00 ")
+212 ;;2812
+213 ;;21,"54569-8004-00 ")
+214 ;;3733
+215 ;;21,"54569-8021-00 ")
+216 ;;3564
+217 ;;21,"54799-0533-60 ")
+218 ;;5917
+219 ;;21,"54799-0534-66 ")
+220 ;;5908
+221 ;;21,"54799-0535-60 ")
+222 ;;6764
+223 ;;21,"54807-0251-20 ")
+224 ;;408
+225 ;;21,"54868-0018-05 ")
+226 ;;3443
+227 ;;21,"54868-0021-00 ")
+228 ;;5754
+229 ;;21,"54868-0021-01 ")
+230 ;;5755
+231 ;;21,"54868-0021-02 ")
+232 ;;5756
+233 ;;21,"54868-0021-04 ")
+234 ;;5757
+235 ;;21,"54868-0021-05 ")
+236 ;;5758
+237 ;;21,"54868-0021-06 ")
+238 ;;5759
+239 ;;21,"54868-0021-07 ")
+240 ;;5760
+241 ;;21,"54868-0021-09 ")
+242 ;;5761
+243 ;;21,"54868-0023-01 ")
+244 ;;6022
+245 ;;21,"54868-0023-02 ")
+246 ;;6023
+247 ;;21,"54868-0023-03 ")
+248 ;;6024
+249 ;;21,"54868-0023-05 ")
+250 ;;6025
+251 ;;21,"54868-0023-06 ")
+252 ;;6026
+253 ;;21,"54868-0023-08 ")
+254 ;;6027
+255 ;;21,"54868-0023-09 ")
+256 ;;6028
+257 ;;21,"54868-0023-14 ")
+258 ;;6029
+259 ;;21,"54868-0153-00 ")
+260 ;;1671
+261 ;;21,"54868-0153-01 ")
+262 ;;1672
+263 ;;21,"54868-0153-03 ")
+264 ;;1673
+265 ;;21,"54868-0153-05 ")
+266 ;;1674
+267 ;;21,"54868-0153-08 ")
+268 ;;1675
+269 ;;21,"54868-0153-09 ")
+270 ;;1676
+271 ;;21,"54868-0154-00 ")
+272 ;;1976
+273 ;;21,"54868-0154-01 ")
+274 ;;1977
+275 ;;21,"54868-0154-02 ")
+276 ;;1978
+277 ;;21,"54868-0154-03 ")
+278 ;;1979
+279 ;;21,"54868-0154-04 ")
+280 ;;1980
+281 ;;21,"54868-0154-06 ")
+282 ;;1981
+283 ;;21,"54868-0154-07 ")
+284 ;;1982
+285 ;;21,"54868-0154-08 ")
+286 ;;1983
+287 ;;21,"54868-0154-09 ")
+288 ;;1984
+289 ;;21,"54868-0191-01 ")
+290 ;;6193
+291 ;;21,"54868-0191-02 ")
+292 ;;6194
+293 ;;21,"54868-0191-03 ")
+294 ;;6195
+295 ;;21,"54868-0191-04 ")
+296 ;;6196
+297 ;;21,"54868-0191-05 ")
+298 ;;6197
+299 ;;21,"54868-0191-06 ")
+300 ;;6198
+301 ;;21,"54868-0199-00 ")
+302 ;;924
+303 ;;21,"54868-0199-03 ")
+304 ;;925
+305 ;;21,"54868-0200-00 ")
+306 ;;997
+307 ;;21,"54868-0200-01 ")
+308 ;;998
+309 ;;21,"54868-0224-01 ")
+310 ;;3068
+311 ;;21,"54868-0224-03 ")
+312 ;;3069
+313 ;;21,"54868-0224-04 ")
+314 ;;3070
+315 ;;21,"54868-0224-06 ")
+316 ;;3071
+317 ;;21,"54868-0286-00 ")
+318 ;;1011
+319 ;;21,"54868-0333-01 ")
+320 ;;3444
+321 ;;21,"54868-0333-02 ")
+322 ;;3445
+323 ;;21,"54868-0333-04 ")
+324 ;;3446
+325 ;;21,"54868-0333-06 ")
+326 ;;3447
+327 ;;21,"54868-0333-07 ")
+328 ;;3448
+329 ;;21,"54868-0337-00 ")
+330 ;;5762
+331 ;;21,"54868-0337-01 ")
+332 ;;5763
+333 ;;21,"54868-0337-03 ")
+334 ;;5764
+335 ;;21,"54868-0388-01 ")
+336 ;;1123
+337 ;;21,"54868-0388-02 ")
+338 ;;1124
+339 ;;21,"54868-0388-04 ")
+340 ;;1125
+341 ;;21,"54868-0388-05 ")
+342 ;;1126
+343 ;;21,"54868-0425-00 ")
+344 ;;1985
+345 ;;21,"54868-0538-01 ")
+346 ;;1566
+347 ;;21,"54868-0538-02 ")
+348 ;;1567
+349 ;;21,"54868-0559-00 ")
+350 ;;1318
+351 ;;21,"54868-0654-00 ")
+352 ;;2928
+353 ;;21,"54868-0737-01 ")
+354 ;;6986
+355 ;;21,"54868-0840-00 ")
+356 ;;3204
+357 ;;21,"54868-0840-01 ")
+358 ;;3205
+359 ;;21,"54868-0840-02 ")
+360 ;;3206
+361 ;;21,"54868-0840-03 ")
+362 ;;3207
+363 ;;21,"54868-0840-04 ")
+364 ;;3208
+365 ;;21,"54868-0937-00 ")
+366 ;;3931
+367 ;;21,"54868-0937-01 ")
+368 ;;3932
+369 ;;21,"54868-0937-02 ")
+370 ;;3933
+371 ;;21,"54868-0939-05 ")
+372 ;;4506
+373 ;;21,"54868-0971-00 ")
+374 ;;3398
+375 ;;21,"54868-0971-01 ")
+376 ;;3399
+377 ;;21,"54868-1080-00 ")
+378 ;;5387
+379 ;;21,"54868-1080-01 ")
+380 ;;5388
+381 ;;21,"54868-1080-03 ")
+382 ;;5389
+383 ;;21,"54868-1171-00 ")
+384 ;;3651
+385 ;;21,"54868-1171-01 ")
+386 ;;3652
+387 ;;21,"54868-1171-02 ")
+388 ;;3653
+389 ;;21,"54868-1171-03 ")
+390 ;;3654
+391 ;;21,"54868-1173-00 ")
+392 ;;3817
+393 ;;21,"54868-1173-01 ")
+394 ;;3818
+395 ;;21,"54868-1173-02 ")
+396 ;;3819
+397 ;;21,"54868-1173-04 ")
+398 ;;3820
+399 ;;21,"54868-1173-05 ")
+400 ;;3821
+401 ;;21,"54868-1173-06 ")
+402 ;;3822
+403 ;;21,"54868-1380-00 ")
+404 ;;4003
+405 ;;21,"54868-1380-01 ")
+406 ;;4004
+407 ;;21,"54868-1380-02 ")
+408 ;;4005
+409 ;;21,"54868-1380-03 ")
+410 ;;4006
+411 ;;21,"54868-1385-01 ")
+412 ;;1792
+413 ;;21,"54868-1385-02 ")
+414 ;;1793
+415 ;;21,"54868-1386-01 ")
+416 ;;3139
+417 ;;21,"54868-1386-02 ")
+418 ;;3140
+419 ;;21,"54868-1386-03 ")
+420 ;;3141
+421 ;;21,"54868-1386-04 ")
+422 ;;3142
+423 ;;21,"54868-1386-05 ")
+424 ;;3143
+425 ;;21,"54868-1387-00 ")
+426 ;;3325
+427 ;;21,"54868-1387-01 ")
+428 ;;3326
+429 ;;21,"54868-1387-02 ")
+430 ;;3327
+431 ;;21,"54868-1387-04 ")
+432 ;;3328
+433 ;;21,"54868-1392-00 ")
+434 ;;1407
+435 ;;21,"54868-1616-02 ")
+436 ;;2144
+437 ;;21,"54868-1710-00 ")
+438 ;;5470
+439 ;;21,"54868-1774-00 ")
+440 ;;3363
+441 ;;21,"54868-1774-02 ")
+442 ;;3364
+443 ;;21,"54868-1780-01 ")
+444 ;;3734
+445 ;;21,"54868-1780-02 ")
+446 ;;3735
+447 ;;21,"54868-1857-00 ")
+448 ;;2302
+449 ;;21,"54868-1857-01 ")
+450 ;;2303
+451 ;;21,"54868-1857-02 ")
+452 ;;2304
+453 ;;21,"54868-1857-05 ")
+454 ;;2305
+455 ;;21,"54868-1857-06 ")
+456 ;;2306
+457 ;;21,"54868-1857-07 ")
+458 ;;2307
+459 ;;21,"54868-2390-00 ")
+460 ;;6522
+461 ;;21,"54868-2390-01 ")
+462 ;;6523
+463 ;;21,"54868-2391-00 ")
+464 ;;6446
+465 ;;21,"54868-2391-01 ")
+466 ;;6447
+467 ;;21,"54868-2391-02 ")
+468 ;;6448
+469 ;;21,"54868-2391-03 ")
+470 ;;6449
+471 ;;21,"54868-2391-04 ")
+472 ;;6450
+473 ;;21,"54868-2391-05 ")
+474 ;;6451
+475 ;;21,"54868-2488-01 ")
+476 ;;6803
+477 ;;21,"54868-2840-00 ")
+478 ;;3290
+479 ;;21,"54868-2840-01 ")
+480 ;;3291
+481 ;;21,"54868-2910-00 ")
+482 ;;1542
+483 ;;21,"54868-3105-00 ")
+484 ;;340
+485 ;;21,"54868-3105-01 ")
+486 ;;341
+487 ;;21,"54868-3105-02 ")
+488 ;;342
+489 ;;21,"54868-3105-03 ")
+490 ;;343
+491 ;;21,"54868-3107-01 ")
+492 ;;232
+493 ;;21,"54868-3107-02 ")
+494 ;;233
+495 ;;21,"54868-3107-03 ")
+496 ;;234
+497 ;;21,"54868-3107-06 ")
+498 ;;235
+499 ;;21,"54868-3107-07 ")
+500 ;;236
+501 ;;21,"54868-3107-09 ")
+502 ;;237
+503 ;;21,"54868-3109-00 ")
+504 ;;609
+505 ;;21,"54868-3109-01 ")
+506 ;;610
+507 ;;21,"54868-3109-02 ")
+508 ;;611
+509 ;;21,"54868-3109-03 ")
+510 ;;612
+511 ;;21,"54868-3109-05 ")
+512 ;;613
+513 ;;21,"54868-3109-06 ")
+514 ;;614
+515 ;;21,"54868-3109-07 ")
+516 ;;615
+517 ;;21,"54868-3109-08 ")
+518 ;;616
+519 ;;21,"54868-3109-09 ")
+520 ;;617
+521 ;;21,"54868-3113-00 ")
+522 ;;854
+523 ;;21,"54868-3113-03 ")
+524 ;;855
+525 ;;21,"54868-3113-05 ")
+526 ;;856
+527 ;;21,"54868-3113-07 ")
+528 ;;857
+529 ;;21,"54868-3113-08 ")
+530 ;;858
+531 ;;21,"54868-3113-09 ")
+532 ;;859
+533 ;;21,"54868-3169-00 ")
+534 ;;6317
+535 ;;21,"54868-3169-01 ")
+536 ;;6318
+537 ;;21,"54868-3169-02 ")
+538 ;;6319
+539 ;;21,"54868-3169-04 ")
+540 ;;6320
+541 ;;21,"54868-3169-05 ")
+542 ;;6321
+543 ;;21,"54868-3169-06 ")
+544 ;;6322
+545 ;;21,"54868-3244-00 ")
+546 ;;2813
+547 ;;21,"54868-3384-00 ")
+548 ;;2929
+549 ;;21,"54868-3480-00 ")
+550 ;;3591
+551 ;;21,"54868-3511-04 ")
+552 ;;5218
+553 ;;21,"54868-3648-01 ")
+554 ;;2814
+555 ;;21,"54868-3695-00 ")
+556 ;;2175
+557 ;;21,"54868-3742-01 ")
+558 ;;1468
+559 ;;21,"54868-3742-02 ")
+560 ;;1469
+561 ;;21,"54868-3742-03 ")
+562 ;;1470
+563 ;;21,"54868-3923-00 ")
+564 ;;4916
+565 ;;21,"54868-3923-01 ")
+566 ;;4917
+567 ;;21,"54868-3923-02 ")
+568 ;;4918
+569 ;;21,"54868-3923-03 ")
+570 ;;4919
+571 ;;21,"54868-3923-04 ")
+572 ;;4920
+573 ;;21,"54868-3923-05 ")
+574 ;;4921
+575 ;;21,"54868-4047-00 ")
+576 ;;77
+577 ;;21,"54868-4078-00 ")
+578 ;;2605
+579 ;;21,"54868-4078-01 ")
+580 ;;2606
+581 ;;21,"54868-4078-02 ")
+582 ;;2607
+583 ;;21,"54868-4125-01 ")
+584 ;;3609
+585 ;;21,"54868-4125-02 ")
+586 ;;3610
+587 ;;21,"54868-4150-00 ")
+588 ;;119
+589 ;;21,"54868-4150-01 ")
+590 ;;120
+591 ;;21,"54868-4150-02 ")
+592 ;;121
+593 ;;21,"54868-4154-00 ")
+594 ;;2176
+595 ;;21,"54868-4155-00 ")
+596 ;;409
+597 ;;21,"54868-4155-01 ")
+598 ;;410
+599 ;;21,"54868-4155-02 ")
+600 ;;411
+601 ;;21,"54868-4155-03 ")
+602 ;;412
+603 ;;21,"54868-4175-00 ")
+604 ;;4814
+605 ;;21,"54868-4175-01 ")
+606 ;;4815
+607 ;;21,"54868-4175-02 ")
+608 ;;4816
+609 ;;21,"54868-4175-03 ")
+610 ;;4817
+611 ;;21,"54868-4175-04 ")
+612 ;;4818
+613 ;;21,"54868-4175-05 ")
+614 ;;4819
+615 ;;21,"54868-4191-00 ")
+616 ;;3046
+617 ;;21,"54868-4191-01 ")
+618 ;;3047
+619 ;;21,"54868-4366-00 ")
+620 ;;7020
+621 ;;21,"54868-4366-01 ")
+622 ;;7021
+623 ;;21,"54868-4367-00 ")
+624 ;;5031
+625 ;;21,"54868-4367-01 ")
+626 ;;5032
+627 ;;21,"54868-4367-02 ")
+628 ;;5033
+629 ;;21,"54868-4367-03 ")
+630 ;;5034
+631 ;;21,"54868-4468-00 ")
+632 ;;154
+633 ;;21,"54868-4488-00 ")
+634 ;;3581
+635 ;;21,"54868-4527-00 ")
+636 ;;2533
+637 ;;21,"54868-4543-00 ")
+638 ;;743
+639 ;;21,"54868-4543-01 ")
+640 ;;744
+641 ;;21,"54868-4543-02 ")
+642 ;;745
+643 ;;21,"54868-4547-00 ")
+644 ;;4068
+645 ;;21,"54868-4644-00 ")
+646 ;;2689
+647 ;;21,"54868-4644-01 ")
+648 ;;2690
+649 ;;21,"54868-4644-02 ")
+650 ;;2691
+651 ;;21,"54868-4651-00 ")
+652 ;;1377
+653 ;;21,"54868-4682-00 ")
+654 ;;6957
+655 ;;21,"54868-4682-01 ")
+656 ;;6958
+657 ;;21,"54868-4734-00 ")
+658 ;;4671
+659 ;;21,"54868-4734-01 ")
+660 ;;4672
+661 ;;21,"54868-4734-02 ")
+662 ;;4673
+663 ;;21,"54868-4734-03 ")
+664 ;;4674
+665 ;;21,"54868-4734-04 ")
+666 ;;4675
+667 ;;21,"54868-4735-01 ")
+668 ;;910