BGP51J3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
+1 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
+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,"35356-0742-90 ")
+2 ;;365
+3 ;;21,"35356-0743-30 ")
+4 ;;521
+5 ;;21,"35356-0745-15 ")
+6 ;;2442
+7 ;;21,"35356-0759-30 ")
+8 ;;473
+9 ;;21,"35356-0764-30 ")
+10 ;;1832
+11 ;;21,"35356-0845-30 ")
+12 ;;2522
+13 ;;21,"35356-0862-06 ")
+14 ;;880
+15 ;;21,"35356-0862-20 ")
+16 ;;881
+17 ;;21,"35356-0862-30 ")
+18 ;;882
+19 ;;21,"42192-0520-16 ")
+20 ;;1623
+21 ;;21,"42254-0130-60 ")
+22 ;;1777
+23 ;;21,"42254-0147-14 ")
+24 ;;1847
+25 ;;21,"42254-0147-30 ")
+26 ;;1848
+27 ;;21,"42254-0147-60 ")
+28 ;;1849
+29 ;;21,"42254-0189-60 ")
+30 ;;1778
+31 ;;21,"42254-0231-00 ")
+32 ;;822
+33 ;;21,"42254-0268-20 ")
+34 ;;1584
+35 ;;21,"42254-0316-30 ")
+36 ;;1775
+37 ;;21,"42254-0316-60 ")
+38 ;;1776
+39 ;;21,"42254-0323-60 ")
+40 ;;878
+41 ;;21,"42254-0333-60 ")
+42 ;;906
+43 ;;21,"42254-0358-30 ")
+44 ;;2591
+45 ;;21,"42254-0368-00 ")
+46 ;;819
+47 ;;21,"42254-0368-30 ")
+48 ;;820
+49 ;;21,"42254-0368-60 ")
+50 ;;821
+51 ;;21,"42291-0244-04 ")
+52 ;;1615
+53 ;;21,"42291-0244-16 ")
+54 ;;1616
+55 ;;21,"42291-0245-01 ")
+56 ;;1585
+57 ;;21,"42291-0247-90 ")
+58 ;;1293
+59 ;;21,"42291-0271-30 ")
+60 ;;1313
+61 ;;21,"42291-0272-90 ")
+62 ;;1337
+63 ;;21,"42291-0273-90 ")
+64 ;;1377
+65 ;;21,"42549-0329-30 ")
+66 ;;264
+67 ;;21,"42549-0492-30 ")
+68 ;;1292
+69 ;;21,"42549-0495-30 ")
+70 ;;626
+71 ;;21,"42549-0495-60 ")
+72 ;;627
+73 ;;21,"42549-0495-90 ")
+74 ;;628
+75 ;;21,"42549-0529-30 ")
+76 ;;261
+77 ;;21,"42549-0529-60 ")
+78 ;;262
+79 ;;21,"42549-0529-90 ")
+80 ;;263
+81 ;;21,"42549-0548-28 ")
+82 ;;2332
+83 ;;21,"42549-0548-30 ")
+84 ;;2333
+85 ;;21,"42549-0553-30 ")
+86 ;;823
+87 ;;21,"42549-0553-60 ")
+88 ;;824
+89 ;;21,"42549-0553-90 ")
+90 ;;825
+91 ;;21,"42549-0563-30 ")
+92 ;;2331
+93 ;;21,"42549-0593-30 ")
+94 ;;2330
+95 ;;21,"42549-0605-30 ")
+96 ;;485
+97 ;;21,"42549-0605-60 ")
+98 ;;486
+99 ;;21,"42549-0613-30 ")
+100 ;;92
+101 ;;21,"42582-0100-10 ")
+102 ;;1541
+103 ;;21,"42582-0200-10 ")
+104 ;;1545
+105 ;;21,"42847-0103-03 ")
+106 ;;1297
+107 ;;21,"42847-0103-10 ")
+108 ;;1298
+109 ;;21,"42847-0103-30 ")
+110 ;;1299
+111 ;;21,"42847-0106-03 ")
+112 ;;1300
+113 ;;21,"42847-0106-10 ")
+114 ;;1301
+115 ;;21,"42847-0106-30 ")
+116 ;;1302
+117 ;;21,"42998-0303-01 ")
+118 ;;600
+119 ;;21,"42998-0679-01 ")
+120 ;;1697
+121 ;;21,"43063-0068-79 ")
+122 ;;2329
+123 ;;21,"43063-0193-60 ")
+124 ;;500
+125 ;;21,"43063-0240-30 ")
+126 ;;1779
+127 ;;21,"43063-0257-30 ")
+128 ;;1097
+129 ;;21,"43063-0336-30 ")
+130 ;;487
+131 ;;21,"43063-0336-60 ")
+132 ;;488
+133 ;;21,"43063-0366-01 ")
+134 ;;2321
+135 ;;21,"43063-0366-06 ")
+136 ;;2322
+137 ;;21,"43063-0366-10 ")
+138 ;;2323
+139 ;;21,"43063-0366-14 ")
+140 ;;2324
+141 ;;21,"43063-0366-15 ")
+142 ;;2325
+143 ;;21,"43063-0366-21 ")
+144 ;;2326
+145 ;;21,"43063-0366-30 ")
+146 ;;2327
+147 ;;21,"43063-0366-60 ")
+148 ;;2328
+149 ;;21,"43063-0369-10 ")
+150 ;;826
+151 ;;21,"43063-0369-15 ")
+152 ;;827
+153 ;;21,"43063-0369-20 ")
+154 ;;828
+155 ;;21,"43063-0369-30 ")
+156 ;;829
+157 ;;21,"43063-0369-60 ")
+158 ;;830
+159 ;;21,"43063-0505-30 ")
+160 ;;1774
+161 ;;21,"43353-0026-10 ")
+162 ;;1948
+163 ;;21,"43353-0026-20 ")
+164 ;;1949
+165 ;;21,"43353-0026-28 ")
+166 ;;1950
+167 ;;21,"43353-0026-45 ")
+168 ;;1951
+169 ;;21,"43353-0026-53 ")
+170 ;;1952
+171 ;;21,"43353-0026-59 ")
+172 ;;1953
+173 ;;21,"43353-0026-60 ")
+174 ;;1954
+175 ;;21,"43353-0174-07 ")
+176 ;;1955
+177 ;;21,"43353-0174-10 ")
+178 ;;1956
+179 ;;21,"43353-0174-14 ")
+180 ;;1957
+181 ;;21,"43353-0174-15 ")
+182 ;;1958
+183 ;;21,"43353-0174-20 ")
+184 ;;1959
+185 ;;21,"43353-0174-30 ")
+186 ;;1960
+187 ;;21,"43353-0174-45 ")
+188 ;;1961
+189 ;;21,"43353-0174-53 ")
+190 ;;1962
+191 ;;21,"43353-0174-59 ")
+192 ;;1963
+193 ;;21,"43353-0174-60 ")
+194 ;;1964
+195 ;;21,"43353-0175-07 ")
+196 ;;2293
+197 ;;21,"43353-0175-10 ")
+198 ;;2294
+199 ;;21,"43353-0175-14 ")
+200 ;;2295
+201 ;;21,"43353-0175-15 ")
+202 ;;2296
+203 ;;21,"43353-0175-20 ")
+204 ;;2297
+205 ;;21,"43353-0175-21 ")
+206 ;;2298
+207 ;;21,"43353-0175-25 ")
+208 ;;2299
+209 ;;21,"43353-0175-30 ")
+210 ;;2300
+211 ;;21,"43353-0175-40 ")
+212 ;;2301
+213 ;;21,"43353-0175-45 ")
+214 ;;2302
+215 ;;21,"43353-0175-53 ")
+216 ;;2303
+217 ;;21,"43353-0175-59 ")
+218 ;;2304
+219 ;;21,"43353-0175-60 ")
+220 ;;2305
+221 ;;21,"43353-0176-14 ")
+222 ;;2306
+223 ;;21,"43353-0176-40 ")
+224 ;;2307
+225 ;;21,"43353-0275-30 ")
+226 ;;831
+227 ;;21,"43353-0275-53 ")
+228 ;;832
+229 ;;21,"43353-0275-60 ")
+230 ;;833
+231 ;;21,"43353-0275-70 ")
+232 ;;834
+233 ;;21,"43353-0443-30 ")
+234 ;;2558
+235 ;;21,"43353-0557-28 ")
+236 ;;1947
+237 ;;21,"43353-0558-07 ")
+238 ;;2308
+239 ;;21,"43353-0558-10 ")
+240 ;;2309
+241 ;;21,"43353-0558-14 ")
+242 ;;2310
+243 ;;21,"43353-0558-15 ")
+244 ;;2311
+245 ;;21,"43353-0558-20 ")
+246 ;;2312
+247 ;;21,"43353-0558-21 ")
+248 ;;2313
+249 ;;21,"43353-0558-25 ")
+250 ;;2314
+251 ;;21,"43353-0558-28 ")
+252 ;;2315
+253 ;;21,"43353-0558-30 ")
+254 ;;2316
+255 ;;21,"43353-0558-40 ")
+256 ;;2317
+257 ;;21,"43353-0558-45 ")
+258 ;;2318
+259 ;;21,"43353-0558-53 ")
+260 ;;2319
+261 ;;21,"43353-0558-60 ")
+262 ;;2320
+263 ;;21,"43353-0559-30 ")
+264 ;;1378
+265 ;;21,"43353-0567-20 ")
+266 ;;2261
+267 ;;21,"43353-0567-30 ")
+268 ;;2262
+269 ;;21,"43353-0590-07 ")
+270 ;;1976
+271 ;;21,"43353-0590-10 ")
+272 ;;1977
+273 ;;21,"43353-0590-14 ")
+274 ;;1978
+275 ;;21,"43353-0590-15 ")
+276 ;;1979
+277 ;;21,"43353-0590-20 ")
+278 ;;1980
+279 ;;21,"43353-0590-28 ")
+280 ;;1981
+281 ;;21,"43353-0590-30 ")
+282 ;;1982
+283 ;;21,"43353-0590-45 ")
+284 ;;1983
+285 ;;21,"43353-0590-53 ")
+286 ;;1984
+287 ;;21,"43353-0590-59 ")
+288 ;;1985
+289 ;;21,"43353-0590-60 ")
+290 ;;1986
+291 ;;21,"43353-0617-07 ")
+292 ;;2278
+293 ;;21,"43353-0617-10 ")
+294 ;;2279
+295 ;;21,"43353-0617-14 ")
+296 ;;2280
+297 ;;21,"43353-0617-15 ")
+298 ;;2281
+299 ;;21,"43353-0617-20 ")
+300 ;;2282
+301 ;;21,"43353-0617-21 ")
+302 ;;2283
+303 ;;21,"43353-0617-25 ")
+304 ;;2284
+305 ;;21,"43353-0617-28 ")
+306 ;;2285
+307 ;;21,"43353-0617-30 ")
+308 ;;2286
+309 ;;21,"43353-0617-40 ")
+310 ;;2287
+311 ;;21,"43353-0617-45 ")
+312 ;;2288
+313 ;;21,"43353-0617-53 ")
+314 ;;2289
+315 ;;21,"43353-0617-59 ")
+316 ;;2290
+317 ;;21,"43353-0617-60 ")
+318 ;;2291
+319 ;;21,"43353-0617-62 ")
+320 ;;2292
+321 ;;21,"43353-0620-07 ")
+322 ;;1965
+323 ;;21,"43353-0620-10 ")
+324 ;;1966
+325 ;;21,"43353-0620-14 ")
+326 ;;1967
+327 ;;21,"43353-0620-15 ")
+328 ;;1968
+329 ;;21,"43353-0620-20 ")
+330 ;;1969
+331 ;;21,"43353-0620-28 ")
+332 ;;1970
+333 ;;21,"43353-0620-30 ")
+334 ;;1971
+335 ;;21,"43353-0620-45 ")
+336 ;;1972
+337 ;;21,"43353-0620-53 ")
+338 ;;1973
+339 ;;21,"43353-0620-59 ")
+340 ;;1974
+341 ;;21,"43353-0620-60 ")
+342 ;;1975
+343 ;;21,"43353-0669-07 ")
+344 ;;1987
+345 ;;21,"43353-0669-10 ")
+346 ;;1988
+347 ;;21,"43353-0669-14 ")
+348 ;;1989
+349 ;;21,"43353-0669-15 ")
+350 ;;1990
+351 ;;21,"43353-0669-20 ")
+352 ;;1991
+353 ;;21,"43353-0669-45 ")
+354 ;;1992
+355 ;;21,"43353-0669-53 ")
+356 ;;1993
+357 ;;21,"43353-0669-59 ")
+358 ;;1994
+359 ;;21,"43353-0669-60 ")
+360 ;;1995
+361 ;;21,"43353-0670-07 ")
+362 ;;2263
+363 ;;21,"43353-0670-10 ")
+364 ;;2264
+365 ;;21,"43353-0670-14 ")
+366 ;;2265
+367 ;;21,"43353-0670-15 ")
+368 ;;2266
+369 ;;21,"43353-0670-20 ")
+370 ;;2267
+371 ;;21,"43353-0670-21 ")
+372 ;;2268
+373 ;;21,"43353-0670-25 ")
+374 ;;2269
+375 ;;21,"43353-0670-28 ")
+376 ;;2270
+377 ;;21,"43353-0670-30 ")
+378 ;;2271
+379 ;;21,"43353-0670-40 ")
+380 ;;2272
+381 ;;21,"43353-0670-45 ")
+382 ;;2273
+383 ;;21,"43353-0670-53 ")
+384 ;;2274
+385 ;;21,"43353-0670-59 ")
+386 ;;2275
+387 ;;21,"43353-0670-60 ")
+388 ;;2276
+389 ;;21,"43353-0670-62 ")
+390 ;;2277
+391 ;;21,"43353-0727-30 ")
+392 ;;2587
+393 ;;21,"43353-0727-60 ")
+394 ;;2588
+395 ;;21,"43353-0743-30 ")
+396 ;;2589
+397 ;;21,"43353-0743-60 ")
+398 ;;2590
+399 ;;21,"43353-0841-30 ")
+400 ;;1338
+401 ;;21,"45963-0293-30 ")
+402 ;;1730
+403 ;;21,"45963-0294-30 ")
+404 ;;1732
+405 ;;21,"45963-0295-30 ")
+406 ;;1734
+407 ;;21,"46672-0053-10 ")
+408 ;;835
+409 ;;21,"46672-0053-50 ")
+410 ;;836
+411 ;;21,"47335-0586-83 ")
+412 ;;1314
+413 ;;21,"47335-0587-88 ")
+414 ;;1336
+415 ;;21,"47335-0588-88 ")
+416 ;;1376
+417 ;;21,"47463-0012-28 ")
+418 ;;2559
+419 ;;21,"47463-0012-30 ")
+420 ;;2560
+421 ;;21,"47463-0012-60 ")
+422 ;;2561
+423 ;;21,"47463-0012-90 ")
+424 ;;2562
+425 ;;21,"47463-0014-30 ")
+426 ;;501
+427 ;;21,"47463-0014-60 ")
+428 ;;502
+429 ;;21,"47463-0014-90 ")
+430 ;;503
+431 ;;21,"47463-0015-30 ")
+432 ;;265
+433 ;;21,"47463-0015-60 ")
+434 ;;266
+435 ;;21,"47463-0016-30 ")
+436 ;;335
+437 ;;21,"47463-0016-60 ")
+438 ;;336
+439 ;;21,"47463-0017-30 ")
+440 ;;484
+441 ;;21,"47463-0051-30 ")
+442 ;;988
+443 ;;21,"47463-0051-60 ")
+444 ;;989
+445 ;;21,"47463-0372-30 ")
+446 ;;1490
+447 ;;21,"47463-0372-60 ")
+448 ;;1491
+449 ;;21,"47463-0396-28 ")
+450 ;;1379
+451 ;;21,"47463-0396-30 ")
+452 ;;1380
+453 ;;21,"47463-0824-30 ")
+454 ;;2257
+455 ;;21,"47463-0824-60 ")
+456 ;;2258
+457 ;;21,"47463-0824-71 ")
+458 ;;2259
+459 ;;21,"47463-0824-90 ")
+460 ;;2260
+461 ;;21,"47463-0825-06 ")
+462 ;;1996
+463 ;;21,"47463-0825-30 ")
+464 ;;1997
+465 ;;21,"47463-0825-71 ")
+466 ;;1998
+467 ;;21,"47463-0825-90 ")
+468 ;;1999
+469 ;;21,"47463-0827-30 ")
+470 ;;1780
+471 ;;21,"47463-0854-30 ")
+472 ;;1846
+473 ;;21,"49769-0395-16 ")
+474 ;;1618
+475 ;;21,"49884-0054-01 ")
+476 ;;1434
+477 ;;21,"49884-0054-10 ")
+478 ;;1435
+479 ;;21,"49884-0055-01 ")
+480 ;;1451
+481 ;;21,"49884-0055-10 ")
+482 ;;1452
+483 ;;21,"49884-0056-01 ")
+484 ;;1488
+485 ;;21,"49884-0056-10 ")
+486 ;;1489
+487 ;;21,"49884-0222-01 ")
+488 ;;1289
+489 ;;21,"49884-0222-03 ")
+490 ;;1290
+491 ;;21,"49884-0222-05 ")
+492 ;;1291
+493 ;;21,"49999-0037-00 ")
+494 ;;2174
+495 ;;21,"49999-0037-10 ")
+496 ;;2175
+497 ;;21,"49999-0037-15 ")
+498 ;;2176
+499 ;;21,"49999-0037-20 ")
+500 ;;2177
+501 ;;21,"49999-0037-30 ")
+502 ;;2178
+503 ;;21,"49999-0037-60 ")
+504 ;;2179
+505 ;;21,"49999-0037-90 ")
+506 ;;2180
+507 ;;21,"49999-0063-00 ")
+508 ;;267
+509 ;;21,"49999-0063-15 ")
+510 ;;268
+511 ;;21,"49999-0063-30 ")
+512 ;;269
+513 ;;21,"49999-0063-50 ")
+514 ;;270
+515 ;;21,"49999-0063-60 ")
+516 ;;271
+517 ;;21,"49999-0063-90 ")
+518 ;;272
+519 ;;21,"49999-0115-20 ")
+520 ;;996
+521 ;;21,"49999-0115-30 ")
+522 ;;997
+523 ;;21,"49999-0115-60 ")
+524 ;;1013
+525 ;;21,"49999-0151-08 ")
+526 ;;837
+527 ;;21,"49999-0151-20 ")
+528 ;;838
+529 ;;21,"49999-0151-30 ")
+530 ;;839
+531 ;;21,"49999-0151-60 ")
+532 ;;840
+533 ;;21,"49999-0190-30 ")
+534 ;;1253
+535 ;;21,"49999-0205-00 ")
+536 ;;89
+537 ;;21,"49999-0205-30 ")
+538 ;;90
+539 ;;21,"49999-0205-60 ")
+540 ;;91
+541 ;;21,"49999-0228-00 ")
+542 ;;331
+543 ;;21,"49999-0228-30 ")
+544 ;;332
+545 ;;21,"49999-0228-60 ")
+546 ;;333
+547 ;;21,"49999-0228-90 ")
+548 ;;334
+549 ;;21,"49999-0318-00 ")
+550 ;;529
+551 ;;21,"49999-0318-30 ")
+552 ;;530
+553 ;;21,"49999-0318-60 ")
+554 ;;531
+555 ;;21,"49999-0394-30 ")
+556 ;;1652
+557 ;;21,"49999-0394-60 ")
+558 ;;1653
+559 ;;21,"49999-0394-90 ")
+560 ;;1654
+561 ;;21,"49999-0400-30 ")
+562 ;;1470
+563 ;;21,"49999-0453-15 ")
+564 ;;1879
+565 ;;21,"49999-0453-30 ")
+566 ;;1880
+567 ;;21,"49999-0551-30 ")
+568 ;;594
+569 ;;21,"49999-0604-15 ")
+570 ;;1800
+571 ;;21,"49999-0604-30 ")
+572 ;;1801
+573 ;;21,"49999-0604-60 ")
+574 ;;1802
+575 ;;21,"49999-0737-00 ")
+576 ;;1412
+577 ;;21,"49999-0737-14 ")
+578 ;;1413
+579 ;;21,"49999-0737-15 ")
+580 ;;1414
+581 ;;21,"49999-0737-30 ")
+582 ;;1415
+583 ;;21,"49999-0737-60 ")
+584 ;;1416
+585 ;;21,"49999-0737-90 ")
+586 ;;1417
+587 ;;21,"49999-0763-00 ")
+588 ;;2530
+589 ;;21,"49999-0763-30 ")
+590 ;;2531
+591 ;;21,"49999-0764-30 ")
+592 ;;2478
+593 ;;21,"49999-0764-60 ")
+594 ;;2479
+595 ;;21,"49999-0778-30 ")
+596 ;;1325
+597 ;;21,"49999-0779-15 ")
+598 ;;1361
+599 ;;21,"49999-0779-30 ")
+600 ;;1362
+601 ;;21,"49999-0867-00 ")
+602 ;;1679
+603 ;;21,"49999-0909-00 ")
+604 ;;459
+605 ;;21,"49999-0909-30 ")
+606 ;;460
+607 ;;21,"49999-0909-60 ")
+608 ;;461
+609 ;;21,"49999-0931-00 ")
+610 ;;2459
+611 ;;21,"49999-0931-02 ")
+612 ;;2460
+613 ;;21,"49999-0931-15 ")
+614 ;;2461
+615 ;;21,"49999-0931-30 ")
+616 ;;2462
+617 ;;21,"49999-0931-60 ")
+618 ;;2463
+619 ;;21,"49999-0932-00 ")
+620 ;;2027
+621 ;;21,"49999-0932-30 ")
+622 ;;2028
+623 ;;21,"49999-0932-60 ")
+624 ;;2029
+625 ;;21,"50436-0193-01 ")
+626 ;;1418
+627 ;;21,"50436-1006-01 ")
+628 ;;1833
+629 ;;21,"50436-3026-01 ")
+630 ;;2458
+631 ;;21,"50436-3030-01 ")
+632 ;;2030
+633 ;;21,"50436-3030-02 ")
+634 ;;2031
+635 ;;21,"50436-3071-01 ")
+636 ;;61
+637 ;;21,"50436-3071-02 ")
+638 ;;62
+639 ;;21,"50436-3071-05 ")
+640 ;;63
+641 ;;21,"50436-3072-01 ")
+642 ;;194
+643 ;;21,"50436-3072-02 ")
+644 ;;195
+645 ;;21,"50436-3072-05 ")
+646 ;;196
+647 ;;21,"50436-3073-01 ")
+648 ;;389
+649 ;;21,"50436-3073-02 ")
+650 ;;390
+651 ;;21,"50436-3074-01 ")
+652 ;;532
+653 ;;21,"50436-3075-01 ")
+654 ;;465
+655 ;;21,"50436-4565-01 ")
+656 ;;1210
+657 ;;21,"50436-4856-01 ")
+658 ;;735
+659 ;;21,"50436-4856-02 ")
+660 ;;736
+661 ;;21,"50436-5537-01 ")
+662 ;;1308
+663 ;;21,"50436-5538-01 ")
+664 ;;1326
+665 ;;21,"50436-5538-04 ")
+666 ;;1327
+667 ;;21,"50436-5539-01 ")
+668 ;;1366
+669 ;;21,"50436-5539-04 ")
+670 ;;1367
+671 ;;21,"50991-0514-16 ")
+672 ;;910
+673 ;;21,"51079-0095-01 ")
+674 ;;1650
+675 ;;21,"51079-0095-20 ")
+676 ;;1651
+677 ;;21,"51079-0107-01 ")
+678 ;;198
+679 ;;21,"51079-0107-17 ")
+680 ;;199
+681 ;;21,"51079-0107-19 ")
+682 ;;200
+683 ;;21,"51079-0107-20 ")
+684 ;;201
+685 ;;21,"51079-0107-63 ")
+686 ;;202
+687 ;;21,"51079-0131-01 ")
+688 ;;57
+689 ;;21,"51079-0131-20 ")
+690 ;;58
+691 ;;21,"51079-0131-63 ")
+692 ;;59
+693 ;;21,"51079-0133-01 ")
+694 ;;385
+695 ;;21,"51079-0133-20 ")
+696 ;;386
+697 ;;21,"51079-0133-63 ")
+698 ;;387
+699 ;;21,"51079-0147-01 ")
+700 ;;463
+701 ;;21,"51079-0147-20 ")
+702 ;;464
+703 ;;21,"51079-0436-01 ")
+704 ;;1129
+705 ;;21,"51079-0436-20 ")
+706 ;;1130
+707 ;;21,"51079-0437-01 ")
+708 ;;1204
+709 ;;21,"51079-0437-20 ")
+710 ;;1205
+711 ;;21,"51079-0438-01 ")
+712 ;;1208
+713 ;;21,"51079-0438-20 ")
+714 ;;1209
+715 ;;21,"51079-0563-01 ")
+716 ;;527
+717 ;;21,"51079-0563-20 ")
+718 ;;528
+719 ;;21,"51079-0565-01 ")
+720 ;;1698
+721 ;;21,"51079-0565-20 ")
+722 ;;1699
+723 ;;21,"51079-0566-01 ")
+724 ;;1708
+725 ;;21,"51079-0566-20 ")
+726 ;;1709
+727 ;;21,"51079-0567-01 ")
+728 ;;1710
+729 ;;21,"51079-0567-20 ")
+730 ;;1711
+731 ;;21,"51079-0580-01 ")
+732 ;;1727
+733 ;;21,"51079-0580-20 ")
+734 ;;1728
+735 ;;21,"51079-0651-01 ")
+736 ;;1280
+737 ;;21,"51079-0651-20 ")
+738 ;;1281
+739 ;;21,"51079-0724-01 ")
+740 ;;2032
+741 ;;21,"51079-0724-20 ")
+742 ;;2033
+743 ;;21,"51079-0725-01 ")
+744 ;;2456
+745 ;;21,"51079-0725-20 ")
+746 ;;2457
+747 ;;21,"51138-0001-30 ")
+748 ;;60
+749 ;;21,"51138-0002-30 ")
+750 ;;197
+751 ;;21,"51138-0003-30 ")
+752 ;;388
+753 ;;21,"51138-0004-30 ")
+754 ;;462
+755 ;;21,"51138-0005-30 ")
+756 ;;526
+757 ;;21,"51138-0006-30 ")
+758 ;;567
+759 ;;21,"51138-0012-30 ")
+760 ;;859
+761 ;;21,"51138-0028-30 ")
+762 ;;1128
+763 ;;21,"51138-0029-30 ")
+764 ;;1206
+765 ;;21,"51138-0030-30 ")
+766 ;;1207
+767 ;;21,"51138-0031-30 ")
+768 ;;1278
+769 ;;21,"51138-0032-30 ")
+770 ;;1279
+771 ;;21,"51285-0538-02 ")
+772 ;;1729
+773 ;;21,"51285-0539-02 ")
+774 ;;1731
+775 ;;21,"51285-0554-02 ")
+776 ;;1733
+777 ;;21,"51293-0605-01 ")
+778 ;;1544