BGP0YN3.m

BGP0YN3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;

 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010

 ;

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)

 ;;

 ;;918

 ;;

 ;;2407

 ;;

 ;;2408

 ;;

 ;;2410

 ;;

 ;;2409

 ;;

 ;;2411

 ;;

 ;;1071

 ;;

 ;;1070

 ;;

 ;;292

 ;;

 ;;291

 ;;

 ;;2829

 ;;

 ;;2819

 ;;

 ;;2820

 ;;

 ;;2818

 ;;

 ;;2824

 ;;

 ;;2822

 ;;

 ;;2823

 ;;

 ;;2826

 ;;

 ;;2821

 ;;

 ;;2833

 ;;

 ;;2831

 ;;

 ;;2830

 ;;

 ;;2828

 ;;

 ;;2827

 ;;

 ;;2832

 ;;

 ;;568

 ;;

 ;;567

 ;;

 ;;3349

 ;;

 ;;3352

 ;;

 ;;3351

 ;;

 ;;3353

 ;;

 ;;3350

 ;;

 ;;3348

 ;;

 ;;3105

 ;;

 ;;3107

 ;;

 ;;3106

 ;;

 ;;3108

 ;;

 ;;3424

 ;;

 ;;3425

 ;;

 ;;1278

 ;;

 ;;1277

 ;;

 ;;1276

 ;;

 ;;3104

 ;;

 ;;1611

 ;;

 ;;1612

 ;;

 ;;2451

 ;;

 ;;2450

 ;;

 ;;2449

 ;;

 ;;2448

 ;;

 ;;512

 ;;

 ;;198

 ;;

 ;;199

 ;;

 ;;197

 ;;

 ;;2447

 ;;

 ;;200

 ;;

 ;;202

 ;;

 ;;203

 ;;

 ;;201

 ;;

 ;;921

 ;;

 ;;569

 ;;

 ;;580

 ;;

 ;;581

 ;;

 ;;582

 ;;

 ;;513

 ;;

 ;;196

 ;;

 ;;2948

 ;;

 ;;514

 ;;

 ;;3586

 ;;

 ;;3585

 ;;

 ;;3584

 ;;

 ;;3583

 ;;

 ;;3582

 ;;

 ;;3587

 ;;

 ;;3580

 ;;

 ;;3579

 ;;

 ;;3581

 ;;

 ;;3578

 ;;

 ;;321

 ;;

 ;;883

 ;;

 ;;1913

 ;;

 ;;882

 ;;

 ;;1319

 ;;

 ;;1320

 ;;

 ;;1318

 ;;

 ;;3293

 ;;

 ;;3292

 ;;

 ;;3294

 ;;

 ;;1184

 ;;

 ;;1182

 ;;

 ;;1185

 ;;

 ;;1183

 ;;

 ;;1187

 ;;

 ;;1186

 ;;

 ;;1188

 ;;

 ;;2413

 ;;

 ;;2412

 ;;

 ;;2414

 ;;

 ;;205

 ;;

 ;;204

 ;;

 ;;1322

 ;;

 ;;1321

 ;;

 ;;721

 ;;

 ;;717

 ;;

 ;;719

 ;;

 ;;718

 ;;

 ;;720

 ;;

 ;;2304

 ;;

 ;;2311

 ;;

 ;;2312

 ;;

 ;;2308

 ;;

 ;;2305

 ;;

 ;;2310

 ;;

 ;;2306

 ;;

 ;;2307

 ;;

 ;;2309

 ;;

 ;;2322

 ;;

 ;;2315

 ;;

 ;;2318

 ;;

 ;;2321

 ;;

 ;;2313

 ;;

 ;;2317

 ;;

 ;;2314

 ;;

 ;;2316

 ;;

 ;;2320

 ;;

 ;;724

 ;;

 ;;722

 ;;

 ;;723

 ;;

 ;;2299

 ;;

 ;;2302

 ;;

 ;;2300

 ;;

 ;;2301

 ;;

 ;;2303

 ;;

 ;;725

 ;;

 ;;726

 ;;

 ;;1550

 ;;

 ;;984

 ;;

 ;;1245

 ;;

 ;;1246

 ;;

 ;;1247

 ;;

 ;;1434

 ;;

 ;;1433

 ;;

 ;;1429

 ;;

 ;;1430

 ;;

 ;;1431

 ;;

 ;;1432

 ;;

 ;;1428

 ;;

 ;;2396

 ;;

 ;;2394

 ;;

 ;;2395

 ;;

 ;;2692

 ;;

 ;;2690

 ;;

 ;;2689

 ;;

 ;;2686

 ;;

 ;;2687

 ;;

 ;;2688

 ;;

 ;;2691

 ;;

 ;;2701

 ;;

 ;;2698

 ;;

 ;;2693

 ;;

 ;;2697

 ;;

 ;;2694

 ;;

 ;;2699

 ;;

 ;;2695

 ;;

 ;;2696

 ;;

 ;;2700

 ;;

 ;;3056

 ;;

 ;;3059

 ;;

 ;;3058

 ;;

 ;;3057

 ;;

 ;;269

 ;;

 ;;270

 ;;

 ;;3055

 ;;

 ;;3327

 ;;

 ;;3326

 ;;

 ;;1595

 ;;

 ;;1596

 ;;

 ;;174

 ;;

 ;;173

 ;;

 ;;252

 ;;

 ;;172

 ;;

 ;;175

 ;;

 ;;171

 ;;

 ;;170

 ;;

 ;;169

 ;;

 ;;168

 ;;

 ;;2685

 ;;

 ;;1248

 ;;

 ;;467

 ;;

 ;;466

 ;;

 ;;462

 ;;

 ;;461

 ;;

 ;;464

 ;;

 ;;468

 ;;

 ;;465

 ;;

 ;;463

 ;;

 ;;2930

 ;;

 ;;2931

 ;;

 ;;865

 ;;

 ;;866

 ;;

 ;;867

 ;;

 ;;310

 ;;

 ;;309

 ;;

 ;;459

 ;;

 ;;460

 ;;

 ;;457

 ;;

 ;;455

 ;;

 ;;456

 ;;

 ;;458

 ;;

 ;;12

 ;;

 ;;10

 ;;

 ;;11

 ;;

 ;;3524

 ;;

 ;;3525

 ;;

 ;;3526

 ;;

 ;;3528

 ;;

 ;;3527

 ;;

 ;;3529

 ;;

 ;;3530

 ;;

 ;;3531

 ;;

 ;;3532

 ;;

 ;;469

 ;;

 ;;471

 ;;

 ;;470

 ;;

 ;;474

 ;;

 ;;476

 ;;

 ;;477

 ;;

 ;;472

 ;;

 ;;475

 ;;

 ;;473

 ;;

 ;;3271

 ;;

 ;;3268

 ;;

 ;;3269

 ;;

 ;;3266

 ;;

 ;;3267

 ;;

 ;;3270

 ;;

 ;;1307

 ;;

 ;;1158

 ;;

 ;;1156

 ;;

 ;;1157

 ;;

 ;;1154

 ;;

 ;;1155

 ;;

 ;;311

 ;;

 ;;1161

 ;;

 ;;1162

 ;;

 ;;1160

 ;;

 ;;1159

 ;;

 ;;1306

 ;;

 ;;1305

 ;;

 ;;2323

 ;;

 ;;2319

 ;;

 ;;162

 ;;

 ;;2702

 ;;

 ;;478

 ;;

 ;;1703

 ;;

 ;;1704

 ;;

 ;;1705

 ;;

 ;;1706

 ;;

 ;;1707

 ;;

 ;;1708

 ;;

 ;;3223

 ;;

 ;;3224

 ;;

 ;;2461

 ;;

 ;;2462

 ;;

 ;;2463

 ;;

 ;;2464

 ;;

 ;;2465

 ;;

 ;;2466

 ;;

 ;;1253

 ;;

 ;;1254

 ;;

 ;;1255

 ;;

 ;;1256

 ;;

 ;;1257

 ;;

 ;;1258

 ;;

 ;;1259

 ;;

 ;;2109

 ;;

 ;;2110

 ;;

 ;;1470

 ;;

 ;;1471

 ;;

 ;;1472

 ;;

 ;;1473

 ;;

 ;;1475

 ;;

 ;;1476

 ;;

 ;;2020

 ;;

 ;;2006

 ;;

 ;;2007

 ;;

 ;;2009

 ;;

 ;;2010

 ;;

 ;;2011

 ;;

 ;;2013

 ;;

 ;;2014

 ;;

 ;;2016

 ;;

 ;;2017

 ;;

 ;;2004

 ;;

 ;;1987

 ;;

 ;;1988

 ;;

 ;;1989

 ;;

 ;;1990

 ;;

 ;;1991

 ;;

 ;;1992

 ;;

 ;;1993

 ;;

 ;;1994

 ;;

 ;;1995

 ;;

 ;;1996

 ;;

 ;;1997

 ;;

 ;;2000

 ;;

 ;;2001

 ;;

 ;;734

 ;;

 ;;735

 ;;

 ;;736

 ;;

 ;;257

 ;;

 ;;258

 ;;

 ;;259

 ;;

 ;;260

 ;;

 ;;253

 ;;

 ;;254

 ;;

 ;;255

 ;;

 ;;256

 ;;

 ;;1561

 ;;

 ;;2400

 ;;

 ;;2401

 ;;

 ;;2402

 ;;

 ;;2403

 ;;

 ;;551

 ;;

 ;;552

 ;;

 ;;575

 ;;

 ;;574

 ;;

 ;;488

 ;;

 ;;489

 ;;

 ;;490

 ;;

 ;;491

 ;;

 ;;3211

 ;;

 ;;3212

 ;;

 ;;1096

 ;;

 ;;1097

 ;;

 ;;3377

 ;;

 ;;1981

 ;;

 ;;1984

 ;;

 ;;1999

 ;;

 ;;2002

 ;;

 ;;2003

 ;;

 ;;2005

 ;;

 ;;2008

 ;;

 ;;2012

 ;;

 ;;2015

 ;;

 ;;2773

 ;;

 ;;2774

 ;;

 ;;2775

 ;;

 ;;2776

 ;;

 ;;2777

 ;;

 ;;2778

 ;;

 ;;2779

 ;;

 ;;2780

 ;;

 ;;2781

 ;;

 ;;2784

 ;;

 ;;2785

 ;;

 ;;2786

 ;;

 ;;2787

 ;;

 ;;2789

 ;;

 ;;2790

 ;;

 ;;2792

 ;;

 ;;2793

 ;;

 ;;2794

 ;;

 ;;2796

 ;;

 ;;2797

 ;;

 ;;2937

 ;;

 ;;2938

 ;;

 ;;2939

 ;;

 ;;870

 ;;

 ;;871

 ;;

 ;;872

 ;;

 ;;3199

 ;;

 ;;3200

 ;;

 ;;3201

 ;;

 ;;3202

 ;;

 ;;1551

 ;;

 ;;1552

 ;;

 ;;1553

 ;;

 ;;3091

 ;;

 ;;3092

 ;;

 ;;3093

 ;;

 ;;3094

 ;;

 ;;3095

 ;;

 ;;3096

 ;;

 ;;3097

 ;;

 ;;3099

 ;;

 ;;2443

 ;;

 ;;312

 ;;

 ;;313

 ;;

 ;;492

 ;;

 ;;493

 ;;

 ;;494

 ;;

 ;;3164

 ;;

 ;;3165

 ;;

 ;;3166

 ;;

 ;;3167

 ;;

 ;;3168

 ;;

 ;;3169

 ;;

 ;;3159

 ;;

 ;;3160

 ;;

 ;;3161

 ;;

 ;;3162

 ;;

 ;;3163

 ;;

 ;;2762

 ;;

 ;;2764

 ;;

 ;;2765

 ;;

 ;;2766

 ;;

 ;;2767

 ;;

 ;;2768

 ;;

 ;;2769

 ;;

 ;;3547

 ;;

 ;;3548

 ;;

 ;;3331

 ;;

 ;;3332

 ;;

 ;;3333

 ;;

 ;;3334

 ;;

 ;;3335

 ;;

 ;;3336

 ;;

 ;;3420

 ;;

 ;;3421

 ;;

 ;;3422

 ;;

 ;;3423

 ;;

 ;;3086

 ;;

 ;;3087

 ;;

 ;;3088

 ;;

 ;;3089

 ;;

 ;;743

 ;;

 ;;744

 ;;

 ;;745

 ;;

 ;;746

 ;;

 ;;747

 ;;

 ;;1527

 ;;

 ;;1528

 ;;

 ;;1529

 ;;

 ;;1530

 ;;

 ;;3550

 ;;

 ;;3551

 ;;

 ;;3552

 ;;

 ;;3553

 ;;

 ;;3555

 ;;

 ;;487

 ;;

 ;;1469

 ;;

 ;;272

 ;;

 ;;271

 ;;

 ;;273

 ;;

 ;;1010

 ;;

 ;;1011

 ;;

 ;;1608

 ;;

 ;;1609

 ;;

 ;;1610

 ;;

 ;;3442

 ;;

 ;;3443

 ;;

 ;;1974

 ;;

 ;;1975

 ;;

 ;;1976

 ;;

 ;;1977

 ;;

 ;;1978

 ;;

 ;;1979

 ;;

 ;;1980

 ;;

 ;;1982

 ;;

 ;;1983

 ;;

 ;;1985

 ;;

 ;;1986

 ;;

 ;;274

 ;;

 ;;275

 ;;

 ;;276

 ;;

 ;;277

 ;;

 ;;3278

 ;;

 ;;3279

 ;;

 ;;1172

 ;;

 ;;1170

 ;;

 ;;1171

 ;;

 ;;1308

 ;;

 ;;549

 ;;

 ;;550

 ;;

 ;;3157

 ;;

 ;;742

 ;;

 ;;740

 ;;

 ;;741

 ;;

 ;;3213

 ;;

 ;;3214

 ;;

 ;;3215

 ;;

 ;;1260

 ;;

 ;;1261

 ;;

 ;;1309

 ;;

 ;;1100

 ;;

 ;;1101

 ;;

 ;;1102

 ;;

 ;;16

 ;;

 ;;3192

 ;;

 ;;3193

 ;;

 ;;1012

 ;;

 ;;1013

 ;;

 ;;1014

 ;;

 ;;3158

 ;;

 ;;902

 ;;

 ;;903

 ;;

 ;;904

 ;;

 ;;905

 ;;

 ;;906

 ;;

 ;;544

 ;;

 ;;545

 ;;

 ;;546

 ;;

 ;;547

 ;;

 ;;548

 ;;

 ;;2539

 ;;

 ;;2540

 ;;

 ;;2543

 ;;

 ;;2544

 ;;

 ;;2548

 ;;

 ;;2550

 ;;

 ;;379

 ;;

 ;;380

 ;;

 ;;819

 ;;

 ;;820

 ;;

 ;;822

 ;;

 ;;821

 ;;

 ;;3029

 ;;

 ;;3030

 ;;

 ;;3031

 ;;

 ;;3033

 ;;

 ;;3032

 ;;

 ;;3491

 ;;

 ;;3492

 ;;

 ;;3493

 ;;

 ;;3495

 ;;

 ;;3494

 ;;

 ;;438

 ;;

 ;;439

 ;;

 ;;441

 ;;

 ;;440

 ;;

 ;;1137

 ;;

 ;;1138

 ;;

 ;;1139

 ;;

 ;;1140

 ;;

 ;;1291

 ;;

 ;;1292

 ;;

 ;;1293

 ;;

 ;;1295

 ;;

 ;;1294

 ;;

 ;;1296

 ;;

 ;;1297

 ;;

 ;;1298

 ;;

 ;;1300

 ;;

 ;;1299

 ;;

 ;;147

 ;;

 ;;148

 ;;

 ;;149

 ;;

 ;;150

 ;;

 ;;307

 ;;

 ;;305

 ;;

 ;;308

 ;;

 ;;306

 ;;

 ;;142

 ;;

 ;;143

 ;;

 ;;144

 ;;

 ;;146

 ;;

 ;;145

 ;;

 ;;1141

 ;;

 ;;1142

 ;;

 ;;1143

 ;;

 ;;1144

 ;;

 ;;1407

 ;;

 ;;1408

 ;;

 ;;1409

 ;;

 ;;3255

 ;;

 ;;3256

 ;;

 ;;3257

 ;;

 ;;3258

 ;;

 ;;3259

 ;;

 ;;2632

 ;;

 ;;2634

 ;;

 ;;2633

 ;;

 ;;2635

 ;;

 ;;2926

 ;;

 ;;2927

 ;;

 ;;2928

 ;;

 ;;2929

 ;;

 ;;3496

 ;;

 ;;3497

 ;;

 ;;3498

 ;;

 ;;3499

 ;;

 ;;3500

 ;;

 ;;3501

 ;;

 ;;3502

 ;;

 ;;3503

 ;;

 ;;3504

 ;;

 ;;3506

 ;;

 ;;3505

 ;;

 ;;1241

 ;;

 ;;1242

 ;;

 ;;1243

 ;;

 ;;1410

 ;;

 ;;1411

 ;;

 ;;1412

 ;;

 ;;1414

 ;;

 ;;1413

 ;;

 ;;1590

 ;;

 ;;1591

 ;;

 ;;1592

 ;;

 ;;1593

 ;;

 ;;431

 ;;

 ;;432

 ;;

 ;;434

 ;;

 ;;433

 ;;

 ;;435

 ;;

 ;;437

 ;;

 ;;436

 ;;

 ;;702

 ;;

 ;;703

 ;;

 ;;704

 ;;

 ;;705

 ;;

 ;;857

 ;;

 ;;858

 ;;

 ;;3320

 ;;

 ;;3321

 ;;

 ;;3322

 ;;

 ;;3323

 ;;

 ;;2223

 ;;

 ;;2384

 ;;

 ;;2385

 ;;

 ;;2386

 ;;

 ;;899

 ;;

 ;;697

 ;;

 ;;698

 ;;

 ;;699

 ;;

 ;;3024

 ;;

 ;;3025

 ;;

 ;;3026

 ;;

 ;;3027

 ;;

 ;;3028

 ;;

 ;;700

 ;;

 ;;701

 ;;

 ;;2636

 ;;

 ;;2637

 ;;

 ;;2638

 ;;

 ;;2639

 ;;

 ;;2640

 ;;

 ;;2641

 ;;

 ;;2642

 ;;

 ;;2643

 ;;

 ;;2645

 ;;

 ;;2644

 ;;

 ;;2231

 ;;

 ;;2224

 ;;

 ;;2225

 ;;

 ;;2226

 ;;

 ;;2227

 ;;

 ;;2228

 ;;

 ;;2229

 ;;

 ;;2232

 ;;

 ;;2230

 ;;

 ;;1565

 ;;

 ;;1566

 ;;

 ;;1567

 ;;

 ;;3359

 ;;

 ;;3360

 ;;

 ;;3361

 ;;

 ;;3221

 ;;

 ;;3222

 ;;

 ;;444

 ;;

 ;;445

 ;;

 ;;443

 ;;

 ;;442

 ;;

 ;;3372

 ;;

 ;;3260

 ;;

 ;;3261

 ;;

 ;;3262

 ;;

 ;;3263

 ;;

 ;;3324

 ;;

 ;;151

 ;;

 ;;3034

 ;;

 ;;3035

 ;;

 ;;706

 ;;

 ;;707

 ;;

 ;;708

 ;;

 ;;2234

 ;;

 ;;2235

 ;;

 ;;2236

 ;;

 ;;2233

 ;;

 ;;2237

 ;;

 ;;2238

 ;;

 ;;2241

 ;;

 ;;2242

 ;;

 ;;2239

 ;;

 ;;2240

 ;;

 ;;2248

 ;;

 ;;2250

 ;;

 ;;2247

 ;;

 ;;2246

 ;;

 ;;2249

 ;;

 ;;2245

 ;;

 ;;2252

 ;;

 ;;2251

 ;;

 ;;2244

 ;;

 ;;2243

 ;;

 ;;976

 ;;

 ;;978

 ;;

 ;;977

 ;;

 ;;979

 ;;

 ;;2388

 ;;

 ;;2387

 ;;

 ;;709

 ;;

 ;;1415

 ;;

 ;;1594

 ;;

 ;;1244

 ;;

 ;;2935

 ;;

 ;;2936

 ;;

 ;;2646

 ;;

 ;;2649

 ;;

 ;;2648

 ;;

 ;;2647

 ;;

 ;;2653

 ;;

 ;;2650

 ;;

 ;;2654

 ;;

 ;;2652

 ;;

 ;;2651

 ;;

 ;;3040

 ;;

 ;;3042

 ;;

 ;;3038

 ;;

 ;;3036

 ;;

 ;;3037

 ;;

 ;;3039

 ;;

 ;;3041

 ;;

 ;;3043

 ;;

 ;;7

 ;;

 ;;152

 ;;

 ;;153

 ;;

 ;;446

 ;;

 ;;859

 ;;

 ;;860

 ;;

 ;;3508

 ;;

 ;;3510

 ;;

 ;;3509

 ;;

 ;;3511

 ;;

 ;;3512

 ;;

 ;;3507

 ;;

 ;;3605

 ;;

 ;;3598

 ;;

 ;;3599

 ;;

 ;;3600

 ;;

 ;;3601

 ;;

 ;;3602

 ;;

 ;;3603

 ;;

 ;;3604

 ;;

 ;;3430

 ;;

 ;;3431

 ;;

 ;;3432

 ;;

 ;;3386

 ;;

 ;;3387

 ;;

 ;;3388

 ;;

 ;;3389

 ;;

 ;;3390

 ;;

 ;;3391

 ;;

 ;;3392

 ;;

 ;;3393

 ;;

 ;;3394

 ;;

 ;;3395

 ;;

 ;;3426

 ;;

 ;;3396

 ;;

 ;;3427

 ;;

 ;;3434

 ;;

 ;;3428

 ;;

 ;;3433

 ;;

 ;;3429

 ;;

 ;;519

 ;;

 ;;354

 ;;

 ;;355

 ;;

 ;;356

 ;;

 ;;357

 ;;

 ;;358

 ;;

 ;;359

 ;;

 ;;523

 ;;

 ;;367

 ;;

 ;;368

 ;;

 ;;369

 ;;

 ;;370

 ;;

 ;;371

 ;;

 ;;372

 ;;

 ;;373

 ;;

 ;;522

 ;;

 ;;521

 ;;

 ;;360

 ;;

 ;;361

 ;;

 ;;362

 ;;

 ;;363

 ;;

 ;;364

 ;;

 ;;365

 ;;

 ;;366

 ;;

 ;;520

 ;;

 ;;3615

 ;;

 ;;3606

 ;;

 ;;3607

 ;;

 ;;3608

 ;;

 ;;3609

 ;;

 ;;3610

 ;;

 ;;3611

 ;;

 ;;3612

 ;;

 ;;3613

 ;;

 ;;3614

 ;;

 ;;787

 ;;

 ;;782

 ;;

 ;;783

 ;;

 ;;784

 ;;

 ;;785

 ;;

 ;;786

 ;;

 ;;794

 ;;

 ;;788

 ;;

 ;;789

 ;;

 ;;790

 ;;

 ;;791

 ;;

 ;;792

 ;;

 ;;793

 ;;

 ;;795

 ;;

 ;;796

 ;;

 ;;797

 ;;

 ;;798

 ;;

 ;;799

 ;;

 ;;800

 ;;

 ;;801

 ;;

 ;;802

 ;;

 ;;803

 ;;

 ;;804

 ;;

 ;;805

 ;;

 ;;806

 ;;

 ;;1850

 ;;

 ;;1851

 ;;

 ;;1837

 ;;

 ;;1838

BGP0YN3   ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;

 +1       ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010

 +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       ;;

 +2       ;;918

 +3       ;;

 +4       ;;2407

 +5       ;;

 +6       ;;2408

 +7       ;;

 +8       ;;2410

 +9       ;;

 +10      ;;2409

 +11      ;;

 +12      ;;2411

 +13      ;;

 +14      ;;1071

 +15      ;;

 +16      ;;1070

 +17      ;;

 +18      ;;292

 +19      ;;

 +20      ;;291

 +21      ;;

 +22      ;;2829

 +23      ;;

 +24      ;;2819

 +25      ;;

 +26      ;;2820

 +27      ;;

 +28      ;;2818

 +29      ;;

 +30      ;;2824

 +31      ;;

 +32      ;;2822

 +33      ;;

 +34      ;;2823

 +35      ;;

 +36      ;;2826

 +37      ;;

 +38      ;;2821

 +39      ;;

 +40      ;;2833

 +41      ;;

 +42      ;;2831

 +43      ;;

 +44      ;;2830

 +45      ;;

 +46      ;;2828

 +47      ;;

 +48      ;;2827

 +49      ;;

 +50      ;;2832

 +51      ;;

 +52      ;;568

 +53      ;;

 +54      ;;567

 +55      ;;

 +56      ;;3349

 +57      ;;

 +58      ;;3352

 +59      ;;

 +60      ;;3351

 +61      ;;

 +62      ;;3353

 +63      ;;

 +64      ;;3350

 +65      ;;

 +66      ;;3348

 +67      ;;

 +68      ;;3105

 +69      ;;

 +70      ;;3107

 +71      ;;

 +72      ;;3106

 +73      ;;

 +74      ;;3108

 +75      ;;

 +76      ;;3424

 +77      ;;

 +78      ;;3425

 +79      ;;

 +80      ;;1278

 +81      ;;

 +82      ;;1277

 +83      ;;

 +84      ;;1276

 +85      ;;

 +86      ;;3104

 +87      ;;

 +88      ;;1611

 +89      ;;

 +90      ;;1612

 +91      ;;

 +92      ;;2451

 +93      ;;

 +94      ;;2450

 +95      ;;

 +96      ;;2449

 +97      ;;

 +98      ;;2448

 +99      ;;

 +100     ;;512

 +101     ;;

 +102     ;;198

 +103     ;;

 +104     ;;199

 +105     ;;

 +106     ;;197

 +107     ;;

 +108     ;;2447

 +109     ;;

 +110     ;;200

 +111     ;;

 +112     ;;202

 +113     ;;

 +114     ;;203

 +115     ;;

 +116     ;;201

 +117     ;;

 +118     ;;921

 +119     ;;

 +120     ;;569

 +121     ;;

 +122     ;;580

 +123     ;;

 +124     ;;581

 +125     ;;

 +126     ;;582

 +127     ;;

 +128     ;;513

 +129     ;;

 +130     ;;196

 +131     ;;

 +132     ;;2948

 +133     ;;

 +134     ;;514

 +135     ;;

 +136     ;;3586

 +137     ;;

 +138     ;;3585

 +139     ;;

 +140     ;;3584

 +141     ;;

 +142     ;;3583

 +143     ;;

 +144     ;;3582

 +145     ;;

 +146     ;;3587

 +147     ;;

 +148     ;;3580

 +149     ;;

 +150     ;;3579

 +151     ;;

 +152     ;;3581

 +153     ;;

 +154     ;;3578

 +155     ;;

 +156     ;;321

 +157     ;;

 +158     ;;883

 +159     ;;

 +160     ;;1913

 +161     ;;

 +162     ;;882

 +163     ;;

 +164     ;;1319

 +165     ;;

 +166     ;;1320

 +167     ;;

 +168     ;;1318

 +169     ;;

 +170     ;;3293

 +171     ;;

 +172     ;;3292

 +173     ;;

 +174     ;;3294

 +175     ;;

 +176     ;;1184

 +177     ;;

 +178     ;;1182

 +179     ;;

 +180     ;;1185

 +181     ;;

 +182     ;;1183

 +183     ;;

 +184     ;;1187

 +185     ;;

 +186     ;;1186

 +187     ;;

 +188     ;;1188

 +189     ;;

 +190     ;;2413

 +191     ;;

 +192     ;;2412

 +193     ;;

 +194     ;;2414

 +195     ;;

 +196     ;;205

 +197     ;;

 +198     ;;204

 +199     ;;

 +200     ;;1322

 +201     ;;

 +202     ;;1321

 +203     ;;

 +204     ;;721

 +205     ;;

 +206     ;;717

 +207     ;;

 +208     ;;719

 +209     ;;

 +210     ;;718

 +211     ;;

 +212     ;;720

 +213     ;;

 +214     ;;2304

 +215     ;;

 +216     ;;2311

 +217     ;;

 +218     ;;2312

 +219     ;;

 +220     ;;2308

 +221     ;;

 +222     ;;2305

 +223     ;;

 +224     ;;2310

 +225     ;;

 +226     ;;2306

 +227     ;;

 +228     ;;2307

 +229     ;;

 +230     ;;2309

 +231     ;;

 +232     ;;2322

 +233     ;;

 +234     ;;2315

 +235     ;;

 +236     ;;2318

 +237     ;;

 +238     ;;2321

 +239     ;;

 +240     ;;2313

 +241     ;;

 +242     ;;2317

 +243     ;;

 +244     ;;2314

 +245     ;;

 +246     ;;2316

 +247     ;;

 +248     ;;2320

 +249     ;;

 +250     ;;724

 +251     ;;

 +252     ;;722

 +253     ;;

 +254     ;;723

 +255     ;;

 +256     ;;2299

 +257     ;;

 +258     ;;2302

 +259     ;;

 +260     ;;2300

 +261     ;;

 +262     ;;2301

 +263     ;;

 +264     ;;2303

 +265     ;;

 +266     ;;725

 +267     ;;

 +268     ;;726

 +269     ;;

 +270     ;;1550

 +271     ;;

 +272     ;;984

 +273     ;;

 +274     ;;1245

 +275     ;;

 +276     ;;1246

 +277     ;;

 +278     ;;1247

 +279     ;;

 +280     ;;1434

 +281     ;;

 +282     ;;1433

 +283     ;;

 +284     ;;1429

 +285     ;;

 +286     ;;1430

 +287     ;;

 +288     ;;1431

 +289     ;;

 +290     ;;1432

 +291     ;;

 +292     ;;1428

 +293     ;;

 +294     ;;2396

 +295     ;;

 +296     ;;2394

 +297     ;;

 +298     ;;2395

 +299     ;;

 +300     ;;2692

 +301     ;;

 +302     ;;2690

 +303     ;;

 +304     ;;2689

 +305     ;;

 +306     ;;2686

 +307     ;;

 +308     ;;2687

 +309     ;;

 +310     ;;2688

 +311     ;;

 +312     ;;2691

 +313     ;;

 +314     ;;2701

 +315     ;;

 +316     ;;2698

 +317     ;;

 +318     ;;2693

 +319     ;;

 +320     ;;2697

 +321     ;;

 +322     ;;2694

 +323     ;;

 +324     ;;2699

 +325     ;;

 +326     ;;2695

 +327     ;;

 +328     ;;2696

 +329     ;;

 +330     ;;2700

 +331     ;;

 +332     ;;3056

 +333     ;;

 +334     ;;3059

 +335     ;;

 +336     ;;3058

 +337     ;;

 +338     ;;3057

 +339     ;;

 +340     ;;269

 +341     ;;

 +342     ;;270

 +343     ;;

 +344     ;;3055

 +345     ;;

 +346     ;;3327

 +347     ;;

 +348     ;;3326

 +349     ;;

 +350     ;;1595

 +351     ;;

 +352     ;;1596

 +353     ;;

 +354     ;;174

 +355     ;;

 +356     ;;173

 +357     ;;

 +358     ;;252

 +359     ;;

 +360     ;;172

 +361     ;;

 +362     ;;175

 +363     ;;

 +364     ;;171

 +365     ;;

 +366     ;;170

 +367     ;;

 +368     ;;169

 +369     ;;

 +370     ;;168

 +371     ;;

 +372     ;;2685

 +373     ;;

 +374     ;;1248

 +375     ;;

 +376     ;;467

 +377     ;;

 +378     ;;466

 +379     ;;

 +380     ;;462

 +381     ;;

 +382     ;;461

 +383     ;;

 +384     ;;464

 +385     ;;

 +386     ;;468

 +387     ;;

 +388     ;;465

 +389     ;;

 +390     ;;463

 +391     ;;

 +392     ;;2930

 +393     ;;

 +394     ;;2931

 +395     ;;

 +396     ;;865