BGP47Y10.m

BGP47Y10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;

 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114

 ;

START ;

 K:'$G(ATXPGMC) ^TMP("ATX",$J)

 S ATXPGMC=$G(ATXPGMC)+1

 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"58016-0646-00 ")

 ;;2528

 ;;21,"58016-0646-30 ")

 ;;2529

 ;;21,"58016-0646-60 ")

 ;;2530

 ;;21,"58016-0646-90 ")

 ;;2531

 ;;21,"58016-0685-00 ")

 ;;230

 ;;21,"58016-0685-10 ")

 ;;231

 ;;21,"58016-0685-30 ")

 ;;232

 ;;21,"58016-0685-60 ")

 ;;233

 ;;21,"58016-0685-90 ")

 ;;234

 ;;21,"58016-0686-00 ")

 ;;314

 ;;21,"58016-0686-10 ")

 ;;315

 ;;21,"58016-0686-30 ")

 ;;316

 ;;21,"58016-0686-60 ")

 ;;317

 ;;21,"58016-0686-90 ")

 ;;318

 ;;21,"58016-0760-00 ")

 ;;2238

 ;;21,"58016-0760-30 ")

 ;;2239

 ;;21,"58016-0760-60 ")

 ;;2240

 ;;21,"58016-0760-90 ")

 ;;2241

 ;;21,"58016-0917-00 ")

 ;;1582

 ;;21,"58016-0917-30 ")

 ;;1583

 ;;21,"58016-0917-60 ")

 ;;1584

 ;;21,"58016-0917-90 ")

 ;;1585

 ;;21,"58016-0956-00 ")

 ;;1732

 ;;21,"58016-0956-30 ")

 ;;1733

 ;;21,"58016-0956-60 ")

 ;;1734

 ;;21,"58016-0956-90 ")

 ;;1735

 ;;21,"58016-0963-00 ")

 ;;1933

 ;;21,"58016-0963-30 ")

 ;;1934

 ;;21,"58016-0963-60 ")

 ;;1935

 ;;21,"58016-0963-90 ")

 ;;1936

 ;;21,"58016-0998-00 ")

 ;;2080

 ;;21,"58016-0998-30 ")

 ;;2081

 ;;21,"58016-0998-60 ")

 ;;2082

 ;;21,"58016-0998-90 ")

 ;;2083

 ;;21,"58016-2638-14 ")

 ;;1736

 ;;21,"58016-2638-21 ")

 ;;1737

 ;;21,"58016-2638-30 ")

 ;;1738

 ;;21,"58016-2638-60 ")

 ;;1739

 ;;21,"58016-2638-90 ")

 ;;1740

 ;;21,"58016-4631-01 ")

 ;;4986

 ;;21,"58118-0115-03 ")

 ;;3466

 ;;21,"58118-0115-06 ")

 ;;3467

 ;;21,"58118-0115-09 ")

 ;;3468

 ;;21,"58118-0116-03 ")

 ;;4781

 ;;21,"58118-0116-09 ")

 ;;4782

 ;;21,"58118-0117-03 ")

 ;;4844

 ;;21,"58118-0117-09 ")

 ;;4845

 ;;21,"58118-0118-03 ")

 ;;4919

 ;;21,"58118-0118-09 ")

 ;;4920

 ;;21,"58118-0337-03 ")

 ;;26

 ;;21,"58118-0337-09 ")

 ;;27

 ;;21,"58118-0338-08 ")

 ;;66

 ;;21,"58118-0338-09 ")

 ;;67

 ;;21,"58118-0339-08 ")

 ;;172

 ;;21,"58118-0339-09 ")

 ;;173

 ;;21,"58118-0340-03 ")

 ;;301

 ;;21,"58118-0340-09 ")

 ;;302

 ;;21,"58118-0409-03 ")

 ;;3418

 ;;21,"58118-0409-06 ")

 ;;3419

 ;;21,"58118-0409-09 ")

 ;;3420

 ;;21,"58118-0515-03 ")

 ;;2029

 ;;21,"58118-0515-09 ")

 ;;2030

 ;;21,"58118-0517-03 ")

 ;;2519

 ;;21,"58118-0517-09 ")

 ;;2520

 ;;21,"58118-0590-08 ")

 ;;2862

 ;;21,"58118-0590-09 ")

 ;;2863

 ;;21,"58118-0591-08 ")

 ;;2943

 ;;21,"58118-0591-09 ")

 ;;2944

 ;;21,"58118-1520-03 ")

 ;;4487

 ;;21,"58118-1520-09 ")

 ;;4488

 ;;21,"58118-2271-03 ")

 ;;3737

 ;;21,"58118-2271-09 ")

 ;;3738

 ;;21,"58118-2272-03 ")

 ;;3750

 ;;21,"58118-2272-09 ")

 ;;3751

 ;;21,"58118-2273-03 ")

 ;;3809

 ;;21,"58118-2273-09 ")

 ;;3810

 ;;21,"58118-2274-03 ")

 ;;3927

 ;;21,"58118-2274-09 ")

 ;;3928

 ;;21,"58118-2277-03 ")

 ;;3869

 ;;21,"58118-2277-09 ")

 ;;3870

 ;;21,"58118-2279-03 ")

 ;;3953

 ;;21,"58118-2279-09 ")

 ;;3954

 ;;21,"58118-4725-03 ")

 ;;4010

 ;;21,"58118-4725-09 ")

 ;;4011

 ;;21,"58118-4745-03 ")

 ;;4055

 ;;21,"58118-4745-09 ")

 ;;4056

 ;;21,"58118-4775-03 ")

 ;;4081

 ;;21,"58118-4775-09 ")

 ;;4082

 ;;21,"58177-0341-04 ")

 ;;15

 ;;21,"58177-0342-04 ")

 ;;94

 ;;21,"58177-0342-08 ")

 ;;95

 ;;21,"58177-0343-04 ")

 ;;200

 ;;21,"58177-0343-08 ")

 ;;201

 ;;21,"58177-0344-04 ")

 ;;257

 ;;21,"58177-0344-08 ")

 ;;258

 ;;21,"58517-0240-30 ")

 ;;3370

 ;;21,"58864-0000-63 ")

 ;;2163

 ;;21,"58864-0006-30 ")

 ;;2164

 ;;21,"58864-0066-28 ")

 ;;499

 ;;21,"58864-0104-30 ")

 ;;1283

 ;;21,"58864-0510-15 ")

 ;;1445

 ;;21,"58864-0603-15 ")

 ;;1946

 ;;21,"58864-0603-30 ")

 ;;1947

 ;;21,"58864-0603-90 ")

 ;;1948

 ;;21,"58864-0605-30 ")

 ;;3687

 ;;21,"58864-0618-15 ")

 ;;2472

 ;;21,"58864-0618-30 ")

 ;;2473

 ;;21,"58864-0654-30 ")

 ;;2001

 ;;21,"58864-0659-30 ")

 ;;4877

 ;;21,"58864-0661-30 ")

 ;;4525

 ;;21,"58864-0662-30 ")

 ;;3323

 ;;21,"58864-0667-30 ")

 ;;1377

 ;;21,"58864-0674-30 ")

 ;;2800

 ;;21,"58864-0681-30 ")

 ;;3629

 ;;21,"58864-0726-15 ")

 ;;3126

 ;;21,"58864-0726-30 ")

 ;;3127

 ;;21,"58864-0750-30 ")

 ;;2284

 ;;21,"58864-0753-30 ")

 ;;1599

 ;;21,"58864-0753-90 ")

 ;;1600

 ;;21,"58864-0754-30 ")

 ;;804

 ;;21,"58864-0755-30 ")

 ;;961

 ;;21,"58864-0762-30 ")

 ;;1123

 ;;21,"58864-0771-15 ")

 ;;3193

 ;;21,"58864-0774-30 ")

 ;;1238

 ;;21,"58864-0774-90 ")

 ;;1239

 ;;21,"58864-0787-30 ")

 ;;4309

 ;;21,"58864-0807-30 ")

 ;;3254

 ;;21,"58864-0817-90 ")

 ;;3125

 ;;21,"58864-0838-30 ")

 ;;4534

 ;;21,"58864-0847-30 ")

 ;;2888

 ;;21,"58864-0859-30 ")

 ;;2603

 ;;21,"58864-0863-30 ")

 ;;2679

 ;;21,"58864-0869-30 ")

 ;;2640

 ;;21,"59746-0333-10 ")

 ;;3310

 ;;21,"59746-0333-90 ")

 ;;3311

 ;;21,"59746-0334-10 ")

 ;;3421

 ;;21,"59746-0334-30 ")

 ;;3422

 ;;21,"59746-0334-90 ")

 ;;3423

 ;;21,"59746-0335-10 ")

 ;;3519

 ;;21,"59746-0335-30 ")

 ;;3520

 ;;21,"59746-0335-90 ")

 ;;3521

 ;;21,"59746-0337-30 ")

 ;;4807

 ;;21,"59746-0337-90 ")

 ;;4808

 ;;21,"59746-0338-30 ")

 ;;4863

 ;;21,"59746-0338-90 ")

 ;;4864

 ;;21,"59746-0339-30 ")

 ;;4932

 ;;21,"59746-0339-90 ")

 ;;4933

 ;;21,"59762-0011-01 ")

 ;;4811

 ;;21,"59762-0011-02 ")

 ;;4812

 ;;21,"59762-0012-01 ")

 ;;4859

 ;;21,"59762-0012-02 ")

 ;;4860

 ;;21,"59762-0015-01 ")

 ;;4936

 ;;21,"59762-0015-02 ")

 ;;4937

 ;;21,"59762-0070-01 ")

 ;;3315

 ;;21,"59762-0071-01 ")

 ;;3413

 ;;21,"59762-0071-02 ")

 ;;3414

 ;;21,"59762-0072-01 ")

 ;;3525

 ;;21,"59762-0072-02 ")

 ;;3526

 ;;21,"59762-0220-01 ")

 ;;4563

 ;;21,"59762-0222-01 ")

 ;;4551

 ;;21,"59762-0223-01 ")

 ;;4585

 ;;21,"59762-2140-01 ")

 ;;2971

 ;;21,"59762-2140-06 ")

 ;;2972

 ;;21,"59762-2141-01 ")

 ;;2992

 ;;21,"59762-2141-06 ")

 ;;2993

 ;;21,"59762-2142-01 ")

 ;;3019

 ;;21,"59762-2142-06 ")

 ;;3020

 ;;21,"59762-2270-01 ")

 ;;1473

 ;;21,"59762-2270-03 ")

 ;;1474

 ;;21,"59762-2270-07 ")

 ;;1475

 ;;21,"59762-2271-01 ")

 ;;1550

 ;;21,"59762-2271-03 ")

 ;;1551

 ;;21,"59762-2271-07 ")

 ;;1552

 ;;21,"59762-2272-01 ")

 ;;1922

 ;;21,"59762-2272-03 ")

 ;;1923

 ;;21,"59762-2272-07 ")

 ;;1924

 ;;21,"59762-2273-01 ")

 ;;2039

 ;;21,"59762-2273-03 ")

 ;;2040

 ;;21,"59762-2273-07 ")

 ;;2041

 ;;21,"59762-2274-01 ")

 ;;2280

 ;;21,"59762-2274-03 ")

 ;;2281

 ;;21,"59762-2274-07 ")

 ;;2330

 ;;21,"59762-2275-01 ")

 ;;2434

 ;;21,"59762-2275-03 ")

 ;;2435

 ;;21,"59762-2275-07 ")

 ;;2436

 ;;21,"59762-3146-01 ")

 ;;97

 ;;21,"59762-3146-02 ")

 ;;98

 ;;21,"59762-3147-01 ")

 ;;216

 ;;21,"59762-3147-02 ")

 ;;217

 ;;21,"59762-3148-01 ")

 ;;272

 ;;21,"59762-3148-02 ")

 ;;273

 ;;21,"59762-3294-01 ")

 ;;4395

 ;;21,"59762-3294-02 ")

 ;;4396

 ;;21,"59762-3294-03 ")

 ;;4397

 ;;21,"59762-3294-04 ")

 ;;4398

 ;;21,"59762-3295-01 ")

 ;;4451

 ;;21,"59762-3295-02 ")

 ;;4452

 ;;21,"59762-3295-03 ")

 ;;4453

 ;;21,"59762-3295-04 ")

 ;;4454

 ;;21,"59762-5019-01 ")

 ;;2598

 ;;21,"59762-5020-01 ")

 ;;2631

 ;;21,"59762-5021-01 ")

 ;;2668

 ;;21,"59762-5022-01 ")

 ;;2708

 ;;21,"59762-5250-01 ")

 ;;4183

 ;;21,"59762-5250-04 ")

 ;;4184

 ;;21,"59762-5251-01 ")

 ;;4191

 ;;21,"59762-5251-04 ")

 ;;4192

 ;;21,"59772-5160-05 ")

 ;;4098

 ;;21,"59772-5161-05 ")

 ;;4105

 ;;21,"59772-5162-05 ")

 ;;4111

 ;;21,"59772-5163-05 ")

 ;;4119

 ;;21,"59772-7045-01 ")

 ;;388

 ;;21,"59772-7045-03 ")

 ;;389

 ;;21,"59772-7046-01 ")

 ;;500

 ;;21,"59772-7046-03 ")

 ;;501

 ;;21,"59772-7047-01 ")

 ;;612

 ;;21,"59772-7047-03 ")

 ;;613

 ;;21,"59772-7048-01 ")

 ;;658

 ;;21,"59930-1655-01 ")

 ;;399

 ;;21,"59930-1655-02 ")

 ;;400

 ;;21,"59930-1655-03 ")

 ;;401

 ;;21,"59930-1656-01 ")

 ;;520

 ;;21,"59930-1656-02 ")

 ;;521

 ;;21,"59930-1656-03 ")

 ;;522

 ;;21,"59930-1657-01 ")

 ;;625

 ;;21,"59930-1657-02 ")

 ;;626

 ;;21,"59930-1657-03 ")

 ;;627

 ;;21,"59930-1658-01 ")

 ;;666

 ;;21,"60346-0534-30 ")

 ;;1232

 ;;21,"60346-0595-30 ")

 ;;2538

 ;;21,"60346-0612-30 ")

 ;;917

 ;;21,"60346-0612-90 ")

 ;;918

 ;;21,"60346-0618-30 ")

 ;;2805

 ;;21,"60346-0778-30 ")

 ;;502

 ;;21,"60346-0778-90 ")

 ;;503

 ;;21,"60346-0868-30 ")

 ;;611

 ;;21,"60346-0871-03 ")

 ;;1987

 ;;21,"60346-0871-30 ")

 ;;1988

 ;;21,"60346-0901-30 ")

 ;;1071

 ;;21,"60346-0972-08 ")

 ;;1972

 ;;21,"60346-0972-30 ")

 ;;1973

 ;;21,"60346-0984-30 ")

 ;;2750

 ;;21,"60346-0984-60 ")

 ;;2751

 ;;21,"60429-0029-01 ")

 ;;361

 ;;21,"60429-0029-10 ")

 ;;362

 ;;21,"60429-0029-90 ")

 ;;363

 ;;21,"60429-0030-01 ")

 ;;450

 ;;21,"60429-0030-10 ")

 ;;451

 ;;21,"60429-0030-12 ")

 ;;452

 ;;21,"60429-0030-27 ")

 ;;453

 ;;21,"60429-0030-60 ")

 ;;454

 ;;21,"60429-0030-90 ")

 ;;455

 ;;21,"60429-0031-01 ")

 ;;572

 ;;21,"60429-0031-10 ")

 ;;573

 ;;21,"60429-0031-12 ")

 ;;574

 ;;21,"60429-0031-27 ")

 ;;575

 ;;21,"60429-0031-30 ")

 ;;576

 ;;21,"60429-0031-60 ")

 ;;577

 ;;21,"60429-0031-90 ")

 ;;578

 ;;21,"60429-0038-01 ")

 ;;2722

 ;;21,"60429-0039-01 ")

 ;;2755

 ;;21,"60429-0039-10 ")

 ;;2756

 ;;21,"60429-0040-01 ")

 ;;2816

 ;;21,"60429-0040-10 ")

 ;;2849

 ;;21,"60429-0041-01 ")

 ;;2921

 ;;21,"60429-0041-10 ")

 ;;2922

 ;;21,"60429-0044-01 ")

 ;;4233

 ;;21,"60429-0044-10 ")

 ;;4234

 ;;21,"60429-0045-01 ")

 ;;4339

 ;;21,"60429-0045-10 ")

 ;;4340

 ;;21,"60429-0045-90 ")

 ;;4341

 ;;21,"60429-0046-01 ")

 ;;4412

 ;;21,"60429-0046-10 ")

 ;;4413

 ;;21,"60429-0071-01 ")

 ;;700

 ;;21,"60429-0071-05 ")

 ;;701

 ;;21,"60429-0071-10 ")

 ;;702

 ;;21,"60429-0071-27 ")

 ;;703

 ;;21,"60429-0071-30 ")

 ;;704

 ;;21,"60429-0071-60 ")

 ;;705

 ;;21,"60429-0071-90 ")

 ;;706

 ;;21,"60429-0072-01 ")

 ;;873

 ;;21,"60429-0072-05 ")

 ;;874

 ;;21,"60429-0072-10 ")

 ;;875

 ;;21,"60429-0072-27 ")

 ;;876

 ;;21,"60429-0072-30 ")

 ;;877

 ;;21,"60429-0072-60 ")

 ;;878

 ;;21,"60429-0072-90 ")

 ;;879

 ;;21,"60429-0073-01 ")

 ;;1021

 ;;21,"60429-0073-05 ")

 ;;1022

 ;;21,"60429-0073-10 ")

 ;;1023

 ;;21,"60429-0073-27 ")

 ;;1024

 ;;21,"60429-0073-30 ")

 ;;1025

 ;;21,"60429-0073-60 ")

 ;;1026

 ;;21,"60429-0073-90 ")

 ;;1027

 ;;21,"60429-0074-01 ")

 ;;1180

 ;;21,"60429-0074-05 ")

 ;;1181

 ;;21,"60429-0074-10 ")

 ;;1182

 ;;21,"60429-0074-27 ")

 ;;1183

 ;;21,"60429-0074-30 ")

 ;;1184

 ;;21,"60429-0074-60 ")

 ;;1185

 ;;21,"60429-0074-90 ")

 ;;1186

 ;;21,"60429-0234-10 ")

 ;;1235

 ;;21,"60429-0234-45 ")

 ;;1236

 ;;21,"60429-0234-90 ")

 ;;1237

 ;;21,"60429-0235-10 ")

 ;;1294

 ;;21,"60429-0235-18 ")

 ;;1295

 ;;21,"60429-0235-45 ")

 ;;1296

 ;;21,"60429-0235-90 ")

 ;;1297

 ;;21,"60429-0236-10 ")

 ;;1384

 ;;21,"60429-0236-18 ")

 ;;1385

 ;;21,"60429-0236-45 ")

 ;;1386

 ;;21,"60429-0236-90 ")

 ;;1387

 ;;21,"60429-0257-01 ")

 ;;674

 ;;21,"60429-0316-10 ")

 ;;3312

 ;;21,"60429-0316-30 ")

 ;;3313

 ;;21,"60429-0316-90 ")

 ;;3314

 ;;21,"60429-0317-10 ")

 ;;3415

 ;;21,"60429-0317-30 ")

 ;;3416

 ;;21,"60429-0317-90 ")

 ;;3417

 ;;21,"60429-0318-10 ")

 ;;3522

 ;;21,"60429-0318-30 ")

 ;;3523

 ;;21,"60429-0318-90 ")

 ;;3524

 ;;21,"60429-0728-01 ")

 ;;1469

 ;;21,"60429-0728-10 ")

 ;;1470

 ;;21,"60429-0728-30 ")

 ;;1471

 ;;21,"60429-0728-90 ")

 ;;1472

 ;;21,"60429-0729-01 ")

 ;;1555

 ;;21,"60429-0729-10 ")

 ;;1556

 ;;21,"60429-0729-30 ")

 ;;1557

 ;;21,"60429-0729-45 ")

 ;;1558

 ;;21,"60429-0729-90 ")

 ;;1559

 ;;21,"60429-0730-01 ")

 ;;1917

 ;;21,"60429-0730-10 ")

 ;;1918

 ;;21,"60429-0730-30 ")

 ;;1919

 ;;21,"60429-0730-45 ")

 ;;1920

 ;;21,"60429-0730-90 ")

 ;;1921

 ;;21,"60429-0731-01 ")

 ;;2042

 ;;21,"60429-0731-10 ")

 ;;2043

 ;;21,"60429-0731-30 ")

 ;;2044

 ;;21,"60429-0731-45 ")

 ;;2045

 ;;21,"60429-0731-90 ")

 ;;2046

 ;;21,"60429-0732-10 ")

 ;;2277

 ;;21,"60429-0732-30 ")

 ;;2278

 ;;21,"60429-0732-90 ")

 ;;2279

 ;;21,"60429-0733-01 ")

 ;;2506

 ;;21,"60429-0733-10 ")

 ;;2507

 ;;21,"60429-0733-30 ")

 ;;2508

 ;;21,"60429-0733-45 ")

 ;;2509

 ;;21,"60429-0733-90 ")

 ;;2510

 ;;21,"60429-0755-10 ")

 ;;1253

 ;;21,"60429-0755-45 ")

 ;;1254

 ;;21,"60429-0755-90 ")

 ;;1255

 ;;21,"60429-0756-10 ")

 ;;1342

 ;;21,"60429-0756-18 ")

 ;;1343

 ;;21,"60429-0756-45 ")

 ;;1344

 ;;21,"60429-0756-90 ")

 ;;1345

 ;;21,"60429-0757-10 ")

 ;;1399

 ;;21,"60429-0757-18 ")

 ;;1400

 ;;21,"60429-0757-45 ")

 ;;1409

 ;;21,"60429-0757-90 ")

 ;;1410

 ;;21,"60505-0003-06 ")

 ;;386

 ;;21,"60505-0003-09 ")

 ;;387

 ;;21,"60505-0004-06 ")

 ;;504

 ;;21,"60505-0004-09 ")

 ;;505

 ;;21,"60505-0005-06 ")

 ;;609

 ;;21,"60505-0005-09 ")

 ;;610

 ;;21,"60505-0006-06 ")

 ;;659

 ;;21,"60505-0006-09 ")

 ;;660

 ;;21,"60505-0049-07 ")

 ;;711

 ;;21,"60505-0049-09 ")

 ;;712

 ;;21,"60505-0050-07 ")

 ;;858

 ;;21,"60505-0050-09 ")

 ;;859

 ;;21,"60505-0051-07 ")

 ;;1007

 ;;21,"60505-0051-09 ")

 ;;1008

 ;;21,"60505-0052-09 ")

 ;;1165

 ;;21,"60505-0172-00 ")

 ;;2594

 ;;21,"60505-0172-01 ")

 ;;2595

 ;;21,"60505-0173-00 ")

 ;;2620

 ;;21,"60505-0173-01 ")

 ;;2621

 ;;21,"60505-0174-00 ")

 ;;2663

 ;;21,"60505-0174-01 ")

 ;;2664

 ;;21,"60505-0175-00 ")

 ;;2699

 ;;21,"60505-0175-01 ")

 ;;2700

 ;;21,"60505-0184-00 ")

 ;;1448

 ;;21,"60505-0184-01 ")

 ;;1449

 ;;21,"60505-0185-00 ")

 ;;1574

 ;;21,"60505-0185-01 ")

 ;;1575

 ;;21,"60505-0185-07 ")

 ;;1576

 ;;21,"60505-0185-09 ")

 ;;1577

BGP47Y10  ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;

 +1       ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114

 +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,"58016-0646-00 ")

 +2       ;;2528

 +3       ;;21,"58016-0646-30 ")

 +4       ;;2529

 +5       ;;21,"58016-0646-60 ")

 +6       ;;2530

 +7       ;;21,"58016-0646-90 ")

 +8       ;;2531

 +9       ;;21,"58016-0685-00 ")

 +10      ;;230

 +11      ;;21,"58016-0685-10 ")

 +12      ;;231

 +13      ;;21,"58016-0685-30 ")

 +14      ;;232

 +15      ;;21,"58016-0685-60 ")

 +16      ;;233

 +17      ;;21,"58016-0685-90 ")

 +18      ;;234

 +19      ;;21,"58016-0686-00 ")

 +20      ;;314

 +21      ;;21,"58016-0686-10 ")

 +22      ;;315

 +23      ;;21,"58016-0686-30 ")

 +24      ;;316

 +25      ;;21,"58016-0686-60 ")

 +26      ;;317

 +27      ;;21,"58016-0686-90 ")

 +28      ;;318

 +29      ;;21,"58016-0760-00 ")

 +30      ;;2238

 +31      ;;21,"58016-0760-30 ")

 +32      ;;2239

 +33      ;;21,"58016-0760-60 ")

 +34      ;;2240

 +35      ;;21,"58016-0760-90 ")

 +36      ;;2241

 +37      ;;21,"58016-0917-00 ")

 +38      ;;1582

 +39      ;;21,"58016-0917-30 ")

 +40      ;;1583

 +41      ;;21,"58016-0917-60 ")

 +42      ;;1584

 +43      ;;21,"58016-0917-90 ")

 +44      ;;1585

 +45      ;;21,"58016-0956-00 ")

 +46      ;;1732

 +47      ;;21,"58016-0956-30 ")

 +48      ;;1733

 +49      ;;21,"58016-0956-60 ")

 +50      ;;1734

 +51      ;;21,"58016-0956-90 ")

 +52      ;;1735

 +53      ;;21,"58016-0963-00 ")

 +54      ;;1933

 +55      ;;21,"58016-0963-30 ")

 +56      ;;1934

 +57      ;;21,"58016-0963-60 ")

 +58      ;;1935

 +59      ;;21,"58016-0963-90 ")

 +60      ;;1936

 +61      ;;21,"58016-0998-00 ")

 +62      ;;2080

 +63      ;;21,"58016-0998-30 ")

 +64      ;;2081

 +65      ;;21,"58016-0998-60 ")

 +66      ;;2082

 +67      ;;21,"58016-0998-90 ")

 +68      ;;2083

 +69      ;;21,"58016-2638-14 ")

 +70      ;;1736

 +71      ;;21,"58016-2638-21 ")

 +72      ;;1737

 +73      ;;21,"58016-2638-30 ")

 +74      ;;1738

 +75      ;;21,"58016-2638-60 ")

 +76      ;;1739

 +77      ;;21,"58016-2638-90 ")

 +78      ;;1740

 +79      ;;21,"58016-4631-01 ")

 +80      ;;4986

 +81      ;;21,"58118-0115-03 ")

 +82      ;;3466

 +83      ;;21,"58118-0115-06 ")

 +84      ;;3467

 +85      ;;21,"58118-0115-09 ")

 +86      ;;3468

 +87      ;;21,"58118-0116-03 ")

 +88      ;;4781

 +89      ;;21,"58118-0116-09 ")

 +90      ;;4782

 +91      ;;21,"58118-0117-03 ")

 +92      ;;4844

 +93      ;;21,"58118-0117-09 ")

 +94      ;;4845

 +95      ;;21,"58118-0118-03 ")

 +96      ;;4919

 +97      ;;21,"58118-0118-09 ")

 +98      ;;4920

 +99      ;;21,"58118-0337-03 ")

 +100     ;;26

 +101     ;;21,"58118-0337-09 ")

 +102     ;;27

 +103     ;;21,"58118-0338-08 ")

 +104     ;;66

 +105     ;;21,"58118-0338-09 ")

 +106     ;;67

 +107     ;;21,"58118-0339-08 ")

 +108     ;;172

 +109     ;;21,"58118-0339-09 ")

 +110     ;;173

 +111     ;;21,"58118-0340-03 ")

 +112     ;;301

 +113     ;;21,"58118-0340-09 ")

 +114     ;;302

 +115     ;;21,"58118-0409-03 ")

 +116     ;;3418

 +117     ;;21,"58118-0409-06 ")

 +118     ;;3419

 +119     ;;21,"58118-0409-09 ")

 +120     ;;3420

 +121     ;;21,"58118-0515-03 ")

 +122     ;;2029

 +123     ;;21,"58118-0515-09 ")

 +124     ;;2030

 +125     ;;21,"58118-0517-03 ")

 +126     ;;2519

 +127     ;;21,"58118-0517-09 ")

 +128     ;;2520

 +129     ;;21,"58118-0590-08 ")

 +130     ;;2862

 +131     ;;21,"58118-0590-09 ")

 +132     ;;2863

 +133     ;;21,"58118-0591-08 ")

 +134     ;;2943

 +135     ;;21,"58118-0591-09 ")

 +136     ;;2944

 +137     ;;21,"58118-1520-03 ")

 +138     ;;4487

 +139     ;;21,"58118-1520-09 ")

 +140     ;;4488

 +141     ;;21,"58118-2271-03 ")

 +142     ;;3737

 +143     ;;21,"58118-2271-09 ")

 +144     ;;3738

 +145     ;;21,"58118-2272-03 ")

 +146     ;;3750

 +147     ;;21,"58118-2272-09 ")

 +148     ;;3751

 +149     ;;21,"58118-2273-03 ")

 +150     ;;3809

 +151     ;;21,"58118-2273-09 ")

 +152     ;;3810

 +153     ;;21,"58118-2274-03 ")

 +154     ;;3927

 +155     ;;21,"58118-2274-09 ")

 +156     ;;3928

 +157     ;;21,"58118-2277-03 ")

 +158     ;;3869

 +159     ;;21,"58118-2277-09 ")

 +160     ;;3870

 +161     ;;21,"58118-2279-03 ")

 +162     ;;3953

 +163     ;;21,"58118-2279-09 ")

 +164     ;;3954

 +165     ;;21,"58118-4725-03 ")

 +166     ;;4010

 +167     ;;21,"58118-4725-09 ")

 +168     ;;4011

 +169     ;;21,"58118-4745-03 ")

 +170     ;;4055

 +171     ;;21,"58118-4745-09 ")

 +172     ;;4056

 +173     ;;21,"58118-4775-03 ")

 +174     ;;4081

 +175     ;;21,"58118-4775-09 ")

 +176     ;;4082

 +177     ;;21,"58177-0341-04 ")

 +178     ;;15

 +179     ;;21,"58177-0342-04 ")

 +180     ;;94

 +181     ;;21,"58177-0342-08 ")

 +182     ;;95

 +183     ;;21,"58177-0343-04 ")

 +184     ;;200

 +185     ;;21,"58177-0343-08 ")

 +186     ;;201

 +187     ;;21,"58177-0344-04 ")

 +188     ;;257

 +189     ;;21,"58177-0344-08 ")

 +190     ;;258

 +191     ;;21,"58517-0240-30 ")

 +192     ;;3370

 +193     ;;21,"58864-0000-63 ")

 +194     ;;2163

 +195     ;;21,"58864-0006-30 ")

 +196     ;;2164

 +197     ;;21,"58864-0066-28 ")

 +198     ;;499

 +199     ;;21,"58864-0104-30 ")

 +200     ;;1283

 +201     ;;21,"58864-0510-15 ")

 +202     ;;1445

 +203     ;;21,"58864-0603-15 ")

 +204     ;;1946

 +205     ;;21,"58864-0603-30 ")

 +206     ;;1947

 +207     ;;21,"58864-0603-90 ")

 +208     ;;1948

 +209     ;;21,"58864-0605-30 ")

 +210     ;;3687

 +211     ;;21,"58864-0618-15 ")

 +212     ;;2472

 +213     ;;21,"58864-0618-30 ")

 +214     ;;2473

 +215     ;;21,"58864-0654-30 ")

 +216     ;;2001

 +217     ;;21,"58864-0659-30 ")

 +218     ;;4877

 +219     ;;21,"58864-0661-30 ")

 +220     ;;4525

 +221     ;;21,"58864-0662-30 ")

 +222     ;;3323

 +223     ;;21,"58864-0667-30 ")

 +224     ;;1377

 +225     ;;21,"58864-0674-30 ")

 +226     ;;2800

 +227     ;;21,"58864-0681-30 ")

 +228     ;;3629

 +229     ;;21,"58864-0726-15 ")

 +230     ;;3126

 +231     ;;21,"58864-0726-30 ")

 +232     ;;3127

 +233     ;;21,"58864-0750-30 ")

 +234     ;;2284

 +235     ;;21,"58864-0753-30 ")

 +236     ;;1599

 +237     ;;21,"58864-0753-90 ")

 +238     ;;1600

 +239     ;;21,"58864-0754-30 ")

 +240     ;;804

 +241     ;;21,"58864-0755-30 ")

 +242     ;;961

 +243     ;;21,"58864-0762-30 ")

 +244     ;;1123

 +245     ;;21,"58864-0771-15 ")

 +246     ;;3193

 +247     ;;21,"58864-0774-30 ")

 +248     ;;1238

 +249     ;;21,"58864-0774-90 ")

 +250     ;;1239

 +251     ;;21,"58864-0787-30 ")

 +252     ;;4309

 +253     ;;21,"58864-0807-30 ")

 +254     ;;3254

 +255     ;;21,"58864-0817-90 ")

 +256     ;;3125

 +257     ;;21,"58864-0838-30 ")

 +258     ;;4534

 +259     ;;21,"58864-0847-30 ")

 +260     ;;2888

 +261     ;;21,"58864-0859-30 ")

 +262     ;;2603

 +263     ;;21,"58864-0863-30 ")

 +264     ;;2679

 +265     ;;21,"58864-0869-30 ")

 +266     ;;2640

 +267     ;;21,"59746-0333-10 ")

 +268     ;;3310

 +269     ;;21,"59746-0333-90 ")

 +270     ;;3311

 +271     ;;21,"59746-0334-10 ")

 +272     ;;3421

 +273     ;;21,"59746-0334-30 ")

 +274     ;;3422

 +275     ;;21,"59746-0334-90 ")

 +276     ;;3423

 +277     ;;21,"59746-0335-10 ")

 +278     ;;3519

 +279     ;;21,"59746-0335-30 ")

 +280     ;;3520

 +281     ;;21,"59746-0335-90 ")

 +282     ;;3521

 +283     ;;21,"59746-0337-30 ")

 +284     ;;4807

 +285     ;;21,"59746-0337-90 ")

 +286     ;;4808

 +287     ;;21,"59746-0338-30 ")

 +288     ;;4863

 +289     ;;21,"59746-0338-90 ")

 +290     ;;4864

 +291     ;;21,"59746-0339-30 ")

 +292     ;;4932

 +293     ;;21,"59746-0339-90 ")

 +294     ;;4933

 +295     ;;21,"59762-0011-01 ")

 +296     ;;4811

 +297     ;;21,"59762-0011-02 ")

 +298     ;;4812

 +299     ;;21,"59762-0012-01 ")

 +300     ;;4859

 +301     ;;21,"59762-0012-02 ")

 +302     ;;4860

 +303     ;;21,"59762-0015-01 ")

 +304     ;;4936

 +305     ;;21,"59762-0015-02 ")

 +306     ;;4937

 +307     ;;21,"59762-0070-01 ")

 +308     ;;3315

 +309     ;;21,"59762-0071-01 ")

 +310     ;;3413

 +311     ;;21,"59762-0071-02 ")

 +312     ;;3414

 +313     ;;21,"59762-0072-01 ")

 +314     ;;3525

 +315     ;;21,"59762-0072-02 ")

 +316     ;;3526

 +317     ;;21,"59762-0220-01 ")

 +318     ;;4563

 +319     ;;21,"59762-0222-01 ")

 +320     ;;4551

 +321     ;;21,"59762-0223-01 ")

 +322     ;;4585

 +323     ;;21,"59762-2140-01 ")

 +324     ;;2971

 +325     ;;21,"59762-2140-06 ")

 +326     ;;2972

 +327     ;;21,"59762-2141-01 ")

 +328     ;;2992

 +329     ;;21,"59762-2141-06 ")

 +330     ;;2993

 +331     ;;21,"59762-2142-01 ")

 +332     ;;3019

 +333     ;;21,"59762-2142-06 ")

 +334     ;;3020

 +335     ;;21,"59762-2270-01 ")

 +336     ;;1473

 +337     ;;21,"59762-2270-03 ")

 +338     ;;1474

 +339     ;;21,"59762-2270-07 ")

 +340     ;;1475

 +341     ;;21,"59762-2271-01 ")

 +342     ;;1550

 +343     ;;21,"59762-2271-03 ")

 +344     ;;1551

 +345     ;;21,"59762-2271-07 ")

 +346     ;;1552

 +347     ;;21,"59762-2272-01 ")

 +348     ;;1922

 +349     ;;21,"59762-2272-03 ")

 +350     ;;1923

 +351     ;;21,"59762-2272-07 ")

 +352     ;;1924

 +353     ;;21,"59762-2273-01 ")

 +354     ;;2039

 +355     ;;21,"59762-2273-03 ")

 +356     ;;2040

 +357     ;;21,"59762-2273-07 ")

 +358     ;;2041

 +359     ;;21,"59762-2274-01 ")

 +360     ;;2280

 +361     ;;21,"59762-2274-03 ")

 +362     ;;2281

 +363     ;;21,"59762-2274-07 ")

 +364     ;;2330

 +365     ;;21,"59762-2275-01 ")

 +366     ;;2434

 +367     ;;21,"59762-2275-03 ")

 +368     ;;2435

 +369     ;;21,"59762-2275-07 ")

 +370     ;;2436

 +371     ;;21,"59762-3146-01 ")

 +372     ;;97

 +373     ;;21,"59762-3146-02 ")

 +374     ;;98

 +375     ;;21,"59762-3147-01 ")

 +376     ;;216

 +377     ;;21,"59762-3147-02 ")

 +378     ;;217

 +379     ;;21,"59762-3148-01 ")

 +380     ;;272

 +381     ;;21,"59762-3148-02 ")

 +382     ;;273

 +383     ;;21,"59762-3294-01 ")

 +384     ;;4395

 +385     ;;21,"59762-3294-02 ")

 +386     ;;4396

 +387     ;;21,"59762-3294-03 ")

 +388     ;;4397

 +389     ;;21,"59762-3294-04 ")

 +390     ;;4398

 +391     ;;21,"59762-3295-01 ")

 +392     ;;4451

 +393     ;;21,"59762-3295-02 ")

 +394     ;;4452

 +395     ;;21,"59762-3295-03 ")

 +396     ;;4453

 +397     ;;21,"59762-3295-04 ")

 +398     ;;4454

 +399     ;;21,"59762-5019-01 ")

 +400     ;;2598

 +401     ;;21,"59762-5020-01 ")

 +402     ;;2631

 +403     ;;21,"59762-5021-01 ")

 +404     ;;2668

 +405     ;;21,"59762-5022-01 ")

 +406     ;;2708

 +407     ;;21,"59762-5250-01 ")

 +408     ;;4183

 +409     ;;21,"59762-5250-04 ")

 +410     ;;4184

 +411     ;;21,"59762-5251-01 ")

 +412     ;;4191

 +413     ;;21,"59762-5251-04 ")

 +414     ;;4192

 +415     ;;21,"59772-5160-05 ")

 +416     ;;4098

 +417     ;;21,"59772-5161-05 ")

 +418     ;;4105

 +419     ;;21,"59772-5162-05 ")

 +420     ;;4111

 +421     ;;21,"59772-5163-05 ")

 +422     ;;4119

 +423     ;;21,"59772-7045-01 ")

 +424     ;;388

 +425     ;;21,"59772-7045-03 ")

 +426     ;;389

 +427     ;;21,"59772-7046-01 ")

 +428     ;;500

 +429     ;;21,"59772-7046-03 ")

 +430     ;;501

 +431     ;;21,"59772-7047-01 ")

 +432     ;;612

 +433     ;;21,"59772-7047-03 ")

 +434     ;;613

 +435     ;;21,"59772-7048-01 ")

 +436     ;;658

 +437     ;;21,"59930-1655-01 ")

 +438     ;;399

 +439     ;;21,"59930-1655-02 ")

 +440     ;;400

 +441     ;;21,"59930-1655-03 ")

 +442     ;;401

 +443     ;;21,"59930-1656-01 ")

 +444     ;;520

 +445     ;;21,"59930-1656-02 ")

 +446     ;;521

 +447     ;;21,"59930-1656-03 ")

 +448     ;;522

 +449     ;;21,"59930-1657-01 ")

 +450     ;;625

 +451     ;;21,"59930-1657-02 ")

 +452     ;;626

 +453     ;;21,"59930-1657-03 ")

 +454     ;;627

 +455     ;;21,"59930-1658-01 ")

 +456     ;;666

 +457     ;;21,"60346-0534-30 ")

 +458     ;;1232

 +459     ;;21,"60346-0595-30 ")

 +460     ;;2538

 +461     ;;21,"60346-0612-30 ")

 +462     ;;917

 +463     ;;21,"60346-0612-90 ")

 +464     ;;918

 +465     ;;21,"60346-0618-30 ")

 +466     ;;2805

 +467     ;;21,"60346-0778-30 ")

 +468     ;;502

 +469     ;;21,"60346-0778-90 ")

 +470     ;;503

 +471     ;;21,"60346-0868-30 ")

 +472     ;;611

 +473     ;;21,"60346-0871-03 ")

 +474     ;;1987

 +475     ;;21,"60346-0871-30 ")

 +476     ;;1988

 +477     ;;21,"60346-0901-30 ")

 +478     ;;1071

 +479     ;;21,"60346-0972-08 ")

 +480     ;;1972

 +481     ;;21,"60346-0972-30 ")

 +482     ;;1973

 +483     ;;21,"60346-0984-30 ")

 +484     ;;2750

 +485     ;;21,"60346-0984-60 ")

 +486     ;;2751

 +487     ;;21,"60429-0029-01 ")

 +488     ;;361

 +489     ;;21,"60429-0029-10 ")

 +490     ;;362

 +491     ;;21,"60429-0029-90 ")

 +492     ;;363

 +493     ;;21,"60429-0030-01 ")

 +494     ;;450

 +495     ;;21,"60429-0030-10 ")

 +496     ;;451

 +497     ;;21,"60429-0030-12 ")

 +498     ;;452

 +499     ;;21,"60429-0030-27 ")

 +500     ;;453

 +501     ;;21,"60429-0030-60 ")

 +502     ;;454

 +503     ;;21,"60429-0030-90 ")

 +504     ;;455

 +505     ;;21,"60429-0031-01 ")

 +506     ;;572

 +507     ;;21,"60429-0031-10 ")

 +508     ;;573

 +509     ;;21,"60429-0031-12 ")

 +510     ;;574

 +511     ;;21,"60429-0031-27 ")

 +512     ;;575

 +513     ;;21,"60429-0031-30 ")

 +514     ;;576

 +515     ;;21,"60429-0031-60 ")

 +516     ;;577

 +517     ;;21,"60429-0031-90 ")

 +518     ;;578

 +519     ;;21,"60429-0038-01 ")

 +520     ;;2722

 +521     ;;21,"60429-0039-01 ")

 +522     ;;2755

 +523     ;;21,"60429-0039-10 ")

 +524     ;;2756

 +525     ;;21,"60429-0040-01 ")

 +526     ;;2816

 +527     ;;21,"60429-0040-10 ")

 +528     ;;2849

 +529     ;;21,"60429-0041-01 ")

 +530     ;;2921

 +531     ;;21,"60429-0041-10 ")

 +532     ;;2922

 +533     ;;21,"60429-0044-01 ")

 +534     ;;4233

 +535     ;;21,"60429-0044-10 ")

 +536     ;;4234

 +537     ;;21,"60429-0045-01 ")

 +538     ;;4339

 +539     ;;21,"60429-0045-10 ")

 +540     ;;4340