BGP2VF9.m

BGP2VF9 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;

 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 ;

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,"55887-0524-82 ")

 ;;4644

 ;;21,"55887-0524-90 ")

 ;;4645

 ;;21,"55887-0541-30 ")

 ;;2890

 ;;21,"55887-0548-30 ")

 ;;2789

 ;;21,"55887-0549-30 ")

 ;;3583

 ;;21,"55887-0549-60 ")

 ;;3584

 ;;21,"55887-0549-90 ")

 ;;3585

 ;;21,"55887-0550-30 ")

 ;;1175

 ;;21,"55887-0552-30 ")

 ;;418

 ;;21,"55887-0552-60 ")

 ;;419

 ;;21,"55887-0552-90 ")

 ;;420

 ;;21,"55887-0570-20 ")

 ;;291

 ;;21,"55887-0570-30 ")

 ;;292

 ;;21,"55887-0570-40 ")

 ;;293

 ;;21,"55887-0570-60 ")

 ;;294

 ;;21,"55887-0570-90 ")

 ;;295

 ;;21,"55887-0570-92 ")

 ;;296

 ;;21,"55887-0572-14 ")

 ;;67

 ;;21,"55887-0572-30 ")

 ;;68

 ;;21,"55887-0572-50 ")

 ;;69

 ;;21,"55887-0572-60 ")

 ;;70

 ;;21,"55887-0572-90 ")

 ;;71

 ;;21,"55887-0650-30 ")

 ;;947

 ;;21,"55887-0650-60 ")

 ;;948

 ;;21,"55887-0650-90 ")

 ;;949

 ;;21,"55887-0650-92 ")

 ;;950

 ;;21,"55887-0660-30 ")

 ;;5141

 ;;21,"55887-0660-60 ")

 ;;5142

 ;;21,"55887-0661-01 ")

 ;;2326

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

 ;;2327

 ;;21,"55887-0661-60 ")

 ;;2328

 ;;21,"55887-0661-90 ")

 ;;2329

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

 ;;4881

 ;;21,"55887-0662-60 ")

 ;;4882

 ;;21,"55887-0663-30 ")

 ;;762

 ;;21,"55887-0663-60 ")

 ;;763

 ;;21,"55887-0663-90 ")

 ;;764

 ;;21,"55887-0664-30 ")

 ;;2168

 ;;21,"55887-0664-90 ")

 ;;2169

 ;;21,"55887-0665-30 ")

 ;;5053

 ;;21,"55887-0665-60 ")

 ;;5054

 ;;21,"55887-0665-82 ")

 ;;5055

 ;;21,"55887-0665-90 ")

 ;;5056

 ;;21,"55887-0745-50 ")

 ;;3252

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

 ;;4504

 ;;21,"55887-0871-60 ")

 ;;4505

 ;;21,"55887-0925-30 ")

 ;;4012

 ;;21,"55887-0925-60 ")

 ;;4013

 ;;21,"55887-0925-82 ")

 ;;4014

 ;;21,"55887-0925-90 ")

 ;;4015

 ;;21,"55887-0947-07 ")

 ;;2426

 ;;21,"55887-0947-30 ")

 ;;2330

 ;;21,"55887-0967-30 ")

 ;;4016

 ;;21,"55887-0967-60 ")

 ;;4017

 ;;21,"57664-0357-88 ")

 ;;2565

 ;;21,"57664-0361-13 ")

 ;;2580

 ;;21,"57664-0361-88 ")

 ;;2581

 ;;21,"57664-0362-13 ")

 ;;2549

 ;;21,"57664-0362-88 ")

 ;;2550

 ;;21,"57664-0421-13 ")

 ;;3413

 ;;21,"57664-0421-83 ")

 ;;3414

 ;;21,"57664-0421-99 ")

 ;;3415

 ;;21,"57664-0422-13 ")

 ;;3586

 ;;21,"57664-0422-18 ")

 ;;3587

 ;;21,"57664-0422-83 ")

 ;;3588

 ;;21,"57664-0422-99 ")

 ;;3589

 ;;21,"57664-0424-13 ")

 ;;3718

 ;;21,"57664-0424-83 ")

 ;;3719

 ;;21,"57664-0424-99 ")

 ;;3720

 ;;21,"57664-0425-13 ")

 ;;3810

 ;;21,"57664-0425-83 ")

 ;;3811

 ;;21,"57664-0425-99 ")

 ;;3812

 ;;21,"57664-0499-18 ")

 ;;2790

 ;;21,"57664-0499-83 ")

 ;;2791

 ;;21,"57664-0500-18 ")

 ;;2891

 ;;21,"57664-0500-83 ")

 ;;2892

 ;;21,"57664-0501-18 ")

 ;;2983

 ;;21,"57664-0501-83 ")

 ;;2984

 ;;21,"57664-0507-13 ")

 ;;1043

 ;;21,"57664-0507-18 ")

 ;;1044

 ;;21,"57664-0507-83 ")

 ;;1045

 ;;21,"57664-0507-88 ")

 ;;1046

 ;;21,"57664-0508-13 ")

 ;;1176

 ;;21,"57664-0508-18 ")

 ;;1177

 ;;21,"57664-0508-83 ")

 ;;1178

 ;;21,"57664-0508-88 ")

 ;;1179

 ;;21,"57664-0509-13 ")

 ;;1321

 ;;21,"57664-0509-18 ")

 ;;1322

 ;;21,"57664-0509-83 ")

 ;;1323

 ;;21,"57664-0509-88 ")

 ;;1324

 ;;21,"57664-0510-18 ")

 ;;3022

 ;;21,"57664-0510-83 ")

 ;;3023

 ;;21,"57866-0920-01 ")

 ;;2427

 ;;21,"57866-0920-02 ")

 ;;2428

 ;;21,"57866-0920-03 ")

 ;;2429

 ;;21,"57866-0922-01 ")

 ;;2331

 ;;21,"57866-0922-02 ")

 ;;2332

 ;;21,"57866-0922-03 ")

 ;;2333

 ;;21,"57866-3061-02 ")

 ;;2893

 ;;21,"57866-3071-01 ")

 ;;72

 ;;21,"57866-3072-01 ")

 ;;297

 ;;21,"57866-3072-02 ")

 ;;298

 ;;21,"57866-3072-03 ")

 ;;299

 ;;21,"57866-3072-10 ")

 ;;300

 ;;21,"57866-3073-01 ")

 ;;421

 ;;21,"57866-3073-02 ")

 ;;422

 ;;21,"57866-3073-03 ")

 ;;423

 ;;21,"57866-3906-01 ")

 ;;489

 ;;21,"57866-3907-01 ")

 ;;191

 ;;21,"57866-3930-01 ")

 ;;2645

 ;;21,"57866-3931-01 ")

 ;;2688

 ;;21,"57866-4688-01 ")

 ;;4403

 ;;21,"57866-4688-02 ")

 ;;4404

 ;;21,"57866-4688-03 ")

 ;;4405

 ;;21,"57866-4688-04 ")

 ;;4406

 ;;21,"57866-4715-01 ")

 ;;4646

 ;;21,"57866-4715-02 ")

 ;;4647

 ;;21,"57866-4715-03 ")

 ;;4648

 ;;21,"57866-4715-04 ")

 ;;4649

 ;;21,"57866-6650-01 ")

 ;;3253

 ;;21,"57866-6650-02 ")

 ;;3254

 ;;21,"57866-6650-03 ")

 ;;3255

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

 ;;4943

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

 ;;4944

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

 ;;4945

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

 ;;4946

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

 ;;4018

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

 ;;4019

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

 ;;4020

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

 ;;4021

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

 ;;4282

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

 ;;4283

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

 ;;4284

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

 ;;4285

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

 ;;4142

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

 ;;4143

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

 ;;4144

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

 ;;4145

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

 ;;765

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

 ;;766

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

 ;;767

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

 ;;768

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

 ;;2004

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

 ;;2005

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

 ;;2006

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

 ;;2007

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

 ;;1047

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

 ;;1048

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

 ;;1049

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

 ;;1050

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

 ;;839

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

 ;;840

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

 ;;841

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

 ;;842

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

 ;;536

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

 ;;537

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

 ;;538

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

 ;;539

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

 ;;3041

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

 ;;3042

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

 ;;3043

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

 ;;3044

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

 ;;1180

 ;;21,"58016-0178-02 ")

 ;;1181

 ;;21,"58016-0178-04 ")

 ;;1182

 ;;21,"58016-0178-05 ")

 ;;1183

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

 ;;1184

 ;;21,"58016-0178-12 ")

 ;;1185

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

 ;;1186

 ;;21,"58016-0178-15 ")

 ;;1187

 ;;21,"58016-0178-20 ")

 ;;1188

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

 ;;1189

 ;;21,"58016-0178-40 ")

 ;;1190

 ;;21,"58016-0178-50 ")

 ;;1191

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

 ;;1192

 ;;21,"58016-0178-89 ")

 ;;1193

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

 ;;1194

 ;;21,"58016-0178-99 ")

 ;;1195

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

 ;;4733

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

 ;;4734

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

 ;;4735

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

 ;;4736

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

 ;;1325

 ;;21,"58016-0224-02 ")

 ;;1326

 ;;21,"58016-0224-04 ")

 ;;1327

 ;;21,"58016-0224-05 ")

 ;;1328

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

 ;;1329

 ;;21,"58016-0224-12 ")

 ;;1330

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

 ;;1331

 ;;21,"58016-0224-15 ")

 ;;1332

 ;;21,"58016-0224-20 ")

 ;;1333

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

 ;;1334

 ;;21,"58016-0224-40 ")

 ;;1335

 ;;21,"58016-0224-50 ")

 ;;1336

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

 ;;1337

 ;;21,"58016-0224-89 ")

 ;;1338

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

 ;;1339

 ;;21,"58016-0224-99 ")

 ;;1340

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

 ;;681

 ;;21,"58016-0240-02 ")

 ;;682

 ;;21,"58016-0240-03 ")

 ;;683

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

 ;;684

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

 ;;685

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

 ;;686

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

 ;;4650

 ;;21,"58016-0263-02 ")

 ;;4651

 ;;21,"58016-0263-03 ")

 ;;4652

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

 ;;4653

 ;;21,"58016-0263-12 ")

 ;;4654

 ;;21,"58016-0263-15 ")

 ;;4655

 ;;21,"58016-0263-20 ")

 ;;4656

 ;;21,"58016-0263-28 ")

 ;;4657

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

 ;;4658

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

 ;;4659

 ;;21,"58016-0263-73 ")

 ;;4660

 ;;21,"58016-0263-89 ")

 ;;4661

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

 ;;4662

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

 ;;2985

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

 ;;2986

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

 ;;2987

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

 ;;2988

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

 ;;5143

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

 ;;5144

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

 ;;5145

 ;;21,"58016-0323-15 ")

 ;;5146

 ;;21,"58016-0323-20 ")

 ;;5147

 ;;21,"58016-0323-21 ")

 ;;5148

 ;;21,"58016-0323-28 ")

 ;;5149

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

 ;;5150

 ;;21,"58016-0323-40 ")

 ;;5151

 ;;21,"58016-0323-50 ")

 ;;5152

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

 ;;5153

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

 ;;5154

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

 ;;3075

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

 ;;3076

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

 ;;3077

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

 ;;3078

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

 ;;4947

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

 ;;4948

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

 ;;4949

 ;;21,"58016-0349-15 ")

 ;;4950

 ;;21,"58016-0349-20 ")

 ;;4951

 ;;21,"58016-0349-21 ")

 ;;4952

 ;;21,"58016-0349-28 ")

 ;;4953

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

 ;;4954

 ;;21,"58016-0349-40 ")

 ;;4955

 ;;21,"58016-0349-50 ")

 ;;4956

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

 ;;4957

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

 ;;4958

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

 ;;4831

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

 ;;4832

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

 ;;4833

 ;;21,"58016-0350-15 ")

 ;;4834

 ;;21,"58016-0350-20 ")

 ;;4835

 ;;21,"58016-0350-21 ")

 ;;4836

 ;;21,"58016-0350-28 ")

 ;;4837

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

 ;;4838

 ;;21,"58016-0350-40 ")

 ;;4839

 ;;21,"58016-0350-50 ")

 ;;4840

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

 ;;4841

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

 ;;4842

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

 ;;4989

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

 ;;4990

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

 ;;4991

 ;;21,"58016-0351-15 ")

 ;;4992

 ;;21,"58016-0351-20 ")

 ;;4993

 ;;21,"58016-0351-21 ")

 ;;4994

 ;;21,"58016-0351-28 ")

 ;;4995

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

 ;;4996

 ;;21,"58016-0351-40 ")

 ;;4997

 ;;21,"58016-0351-50 ")

 ;;4998

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

 ;;4999

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

 ;;5000

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

 ;;4286

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

 ;;4287

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

 ;;4288

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

 ;;4289

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

 ;;3590

 ;;21,"58016-0485-02 ")

 ;;3591

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

 ;;3592

 ;;21,"58016-0485-12 ")

 ;;3593

 ;;21,"58016-0485-15 ")

 ;;3594

 ;;21,"58016-0485-20 ")

 ;;3595

 ;;21,"58016-0485-25 ")

 ;;3596

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

 ;;3597

 ;;21,"58016-0485-40 ")

 ;;3598

 ;;21,"58016-0485-50 ")

 ;;3599

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

 ;;3600

 ;;21,"58016-0485-70 ")

 ;;3601

 ;;21,"58016-0485-80 ")

 ;;3602

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

 ;;3603

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

 ;;3256

 ;;21,"58016-0491-02 ")

 ;;3257

 ;;21,"58016-0491-15 ")

 ;;3258

 ;;21,"58016-0491-20 ")

 ;;3259

 ;;21,"58016-0491-25 ")

 ;;3260

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

 ;;3261

 ;;21,"58016-0491-40 ")

 ;;3262

 ;;21,"58016-0491-50 ")

 ;;3263

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

 ;;3264

 ;;21,"58016-0491-70 ")

 ;;3265

 ;;21,"58016-0491-80 ")

 ;;3266

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

 ;;3267

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

 ;;1428

 ;;21,"58016-0502-15 ")

 ;;1429

 ;;21,"58016-0502-28 ")

 ;;1430

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

 ;;1431

 ;;21,"58016-0502-50 ")

 ;;1432

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

 ;;1433

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

 ;;3326

 ;;21,"58016-0508-15 ")

 ;;3327

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

 ;;3328

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

 ;;3329

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

 ;;3148

 ;;21,"58016-0519-02 ")

 ;;3149

 ;;21,"58016-0519-12 ")

 ;;3150

 ;;21,"58016-0519-15 ")

 ;;3151

 ;;21,"58016-0519-20 ")

 ;;3152

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

 ;;3153

 ;;21,"58016-0519-40 ")

 ;;3154

 ;;21,"58016-0519-50 ")

 ;;3155

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

 ;;3156

 ;;21,"58016-0519-70 ")

 ;;3157

 ;;21,"58016-0519-80 ")

 ;;3158

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

 ;;3159

 ;;21,"58016-0519-99 ")

 ;;3160

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

 ;;3056

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

 ;;3057

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

 ;;3058

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

 ;;3059

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

 ;;604

 ;;21,"58016-0584-02 ")

 ;;605

 ;;21,"58016-0584-03 ")

 ;;606

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

 ;;607

 ;;21,"58016-0584-12 ")

 ;;608

 ;;21,"58016-0584-15 ")

 ;;609

 ;;21,"58016-0584-20 ")

 ;;610

 ;;21,"58016-0584-25 ")

 ;;611

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

 ;;612

 ;;21,"58016-0584-40 ")

 ;;613

 ;;21,"58016-0584-50 ")

 ;;614

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

 ;;615

 ;;21,"58016-0584-70 ")

 ;;616

 ;;21,"58016-0584-73 ")

 ;;617

 ;;21,"58016-0584-80 ")

 ;;618

 ;;21,"58016-0584-89 ")

 ;;619

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

 ;;620

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

 ;;1051

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

 ;;1052

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

 ;;1053

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

 ;;1054

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

 ;;1196

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

 ;;1197

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

 ;;1198

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

 ;;1199

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

 ;;769

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

 ;;770

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

 ;;771

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

 ;;772

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

 ;;2989

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

 ;;2990

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

 ;;2991

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

 ;;2992

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

 ;;5057

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

 ;;5058

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

 ;;5059

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

 ;;5060

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

 ;;4783

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

 ;;4784

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

 ;;4785

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

 ;;4786

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

 ;;2792

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

 ;;2793

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

 ;;2794

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

 ;;2795

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

 ;;3416

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

 ;;3417

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

 ;;3418

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

 ;;3419

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

 ;;1595

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

 ;;1596

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

 ;;1597

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

 ;;1598

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

 ;;4146

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

 ;;4147

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

 ;;4148

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

 ;;4149

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

 ;;4022

BGP2VF9   ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;

 +1       ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 +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,"55887-0524-82 ")

 +2       ;;4644

 +3       ;;21,"55887-0524-90 ")

 +4       ;;4645

 +5       ;;21,"55887-0541-30 ")

 +6       ;;2890

 +7       ;;21,"55887-0548-30 ")

 +8       ;;2789

 +9       ;;21,"55887-0549-30 ")

 +10      ;;3583

 +11      ;;21,"55887-0549-60 ")

 +12      ;;3584

 +13      ;;21,"55887-0549-90 ")

 +14      ;;3585

 +15      ;;21,"55887-0550-30 ")

 +16      ;;1175

 +17      ;;21,"55887-0552-30 ")

 +18      ;;418

 +19      ;;21,"55887-0552-60 ")

 +20      ;;419

 +21      ;;21,"55887-0552-90 ")

 +22      ;;420

 +23      ;;21,"55887-0570-20 ")

 +24      ;;291

 +25      ;;21,"55887-0570-30 ")

 +26      ;;292

 +27      ;;21,"55887-0570-40 ")

 +28      ;;293

 +29      ;;21,"55887-0570-60 ")

 +30      ;;294

 +31      ;;21,"55887-0570-90 ")

 +32      ;;295

 +33      ;;21,"55887-0570-92 ")

 +34      ;;296

 +35      ;;21,"55887-0572-14 ")

 +36      ;;67

 +37      ;;21,"55887-0572-30 ")

 +38      ;;68

 +39      ;;21,"55887-0572-50 ")

 +40      ;;69

 +41      ;;21,"55887-0572-60 ")

 +42      ;;70

 +43      ;;21,"55887-0572-90 ")

 +44      ;;71

 +45      ;;21,"55887-0650-30 ")

 +46      ;;947

 +47      ;;21,"55887-0650-60 ")

 +48      ;;948

 +49      ;;21,"55887-0650-90 ")

 +50      ;;949

 +51      ;;21,"55887-0650-92 ")

 +52      ;;950

 +53      ;;21,"55887-0660-30 ")

 +54      ;;5141

 +55      ;;21,"55887-0660-60 ")

 +56      ;;5142

 +57      ;;21,"55887-0661-01 ")

 +58      ;;2326

 +59      ;;21,"55887-0661-30 ")

 +60      ;;2327

 +61      ;;21,"55887-0661-60 ")

 +62      ;;2328

 +63      ;;21,"55887-0661-90 ")

 +64      ;;2329

 +65      ;;21,"55887-0662-30 ")

 +66      ;;4881

 +67      ;;21,"55887-0662-60 ")

 +68      ;;4882

 +69      ;;21,"55887-0663-30 ")

 +70      ;;762

 +71      ;;21,"55887-0663-60 ")

 +72      ;;763

 +73      ;;21,"55887-0663-90 ")

 +74      ;;764

 +75      ;;21,"55887-0664-30 ")

 +76      ;;2168

 +77      ;;21,"55887-0664-90 ")

 +78      ;;2169

 +79      ;;21,"55887-0665-30 ")

 +80      ;;5053

 +81      ;;21,"55887-0665-60 ")

 +82      ;;5054

 +83      ;;21,"55887-0665-82 ")

 +84      ;;5055

 +85      ;;21,"55887-0665-90 ")

 +86      ;;5056

 +87      ;;21,"55887-0745-50 ")

 +88      ;;3252

 +89      ;;21,"55887-0871-30 ")

 +90      ;;4504

 +91      ;;21,"55887-0871-60 ")

 +92      ;;4505

 +93      ;;21,"55887-0925-30 ")

 +94      ;;4012

 +95      ;;21,"55887-0925-60 ")

 +96      ;;4013

 +97      ;;21,"55887-0925-82 ")

 +98      ;;4014

 +99      ;;21,"55887-0925-90 ")

 +100     ;;4015

 +101     ;;21,"55887-0947-07 ")

 +102     ;;2426

 +103     ;;21,"55887-0947-30 ")

 +104     ;;2330

 +105     ;;21,"55887-0967-30 ")

 +106     ;;4016

 +107     ;;21,"55887-0967-60 ")

 +108     ;;4017

 +109     ;;21,"57664-0357-88 ")

 +110     ;;2565

 +111     ;;21,"57664-0361-13 ")

 +112     ;;2580

 +113     ;;21,"57664-0361-88 ")

 +114     ;;2581

 +115     ;;21,"57664-0362-13 ")

 +116     ;;2549

 +117     ;;21,"57664-0362-88 ")

 +118     ;;2550

 +119     ;;21,"57664-0421-13 ")

 +120     ;;3413

 +121     ;;21,"57664-0421-83 ")

 +122     ;;3414

 +123     ;;21,"57664-0421-99 ")

 +124     ;;3415

 +125     ;;21,"57664-0422-13 ")

 +126     ;;3586

 +127     ;;21,"57664-0422-18 ")

 +128     ;;3587

 +129     ;;21,"57664-0422-83 ")

 +130     ;;3588

 +131     ;;21,"57664-0422-99 ")

 +132     ;;3589

 +133     ;;21,"57664-0424-13 ")

 +134     ;;3718

 +135     ;;21,"57664-0424-83 ")

 +136     ;;3719

 +137     ;;21,"57664-0424-99 ")

 +138     ;;3720

 +139     ;;21,"57664-0425-13 ")

 +140     ;;3810

 +141     ;;21,"57664-0425-83 ")

 +142     ;;3811

 +143     ;;21,"57664-0425-99 ")

 +144     ;;3812

 +145     ;;21,"57664-0499-18 ")

 +146     ;;2790

 +147     ;;21,"57664-0499-83 ")

 +148     ;;2791

 +149     ;;21,"57664-0500-18 ")

 +150     ;;2891

 +151     ;;21,"57664-0500-83 ")

 +152     ;;2892

 +153     ;;21,"57664-0501-18 ")

 +154     ;;2983

 +155     ;;21,"57664-0501-83 ")

 +156     ;;2984

 +157     ;;21,"57664-0507-13 ")

 +158     ;;1043

 +159     ;;21,"57664-0507-18 ")

 +160     ;;1044

 +161     ;;21,"57664-0507-83 ")

 +162     ;;1045

 +163     ;;21,"57664-0507-88 ")

 +164     ;;1046

 +165     ;;21,"57664-0508-13 ")

 +166     ;;1176

 +167     ;;21,"57664-0508-18 ")

 +168     ;;1177

 +169     ;;21,"57664-0508-83 ")

 +170     ;;1178

 +171     ;;21,"57664-0508-88 ")

 +172     ;;1179

 +173     ;;21,"57664-0509-13 ")

 +174     ;;1321

 +175     ;;21,"57664-0509-18 ")

 +176     ;;1322

 +177     ;;21,"57664-0509-83 ")

 +178     ;;1323

 +179     ;;21,"57664-0509-88 ")

 +180     ;;1324

 +181     ;;21,"57664-0510-18 ")

 +182     ;;3022

 +183     ;;21,"57664-0510-83 ")

 +184     ;;3023

 +185     ;;21,"57866-0920-01 ")

 +186     ;;2427

 +187     ;;21,"57866-0920-02 ")

 +188     ;;2428

 +189     ;;21,"57866-0920-03 ")

 +190     ;;2429

 +191     ;;21,"57866-0922-01 ")

 +192     ;;2331

 +193     ;;21,"57866-0922-02 ")

 +194     ;;2332

 +195     ;;21,"57866-0922-03 ")

 +196     ;;2333

 +197     ;;21,"57866-3061-02 ")

 +198     ;;2893

 +199     ;;21,"57866-3071-01 ")

 +200     ;;72

 +201     ;;21,"57866-3072-01 ")

 +202     ;;297

 +203     ;;21,"57866-3072-02 ")

 +204     ;;298

 +205     ;;21,"57866-3072-03 ")

 +206     ;;299

 +207     ;;21,"57866-3072-10 ")

 +208     ;;300

 +209     ;;21,"57866-3073-01 ")

 +210     ;;421

 +211     ;;21,"57866-3073-02 ")

 +212     ;;422

 +213     ;;21,"57866-3073-03 ")

 +214     ;;423

 +215     ;;21,"57866-3906-01 ")

 +216     ;;489

 +217     ;;21,"57866-3907-01 ")

 +218     ;;191

 +219     ;;21,"57866-3930-01 ")

 +220     ;;2645

 +221     ;;21,"57866-3931-01 ")

 +222     ;;2688

 +223     ;;21,"57866-4688-01 ")

 +224     ;;4403

 +225     ;;21,"57866-4688-02 ")

 +226     ;;4404

 +227     ;;21,"57866-4688-03 ")

 +228     ;;4405

 +229     ;;21,"57866-4688-04 ")

 +230     ;;4406

 +231     ;;21,"57866-4715-01 ")

 +232     ;;4646

 +233     ;;21,"57866-4715-02 ")

 +234     ;;4647

 +235     ;;21,"57866-4715-03 ")

 +236     ;;4648

 +237     ;;21,"57866-4715-04 ")

 +238     ;;4649

 +239     ;;21,"57866-6650-01 ")

 +240     ;;3253

 +241     ;;21,"57866-6650-02 ")

 +242     ;;3254

 +243     ;;21,"57866-6650-03 ")

 +244     ;;3255

 +245     ;;21,"58016-0004-00 ")

 +246     ;;4943

 +247     ;;21,"58016-0004-30 ")

 +248     ;;4944

 +249     ;;21,"58016-0004-60 ")

 +250     ;;4945

 +251     ;;21,"58016-0004-90 ")

 +252     ;;4946

 +253     ;;21,"58016-0009-00 ")

 +254     ;;4018

 +255     ;;21,"58016-0009-30 ")

 +256     ;;4019

 +257     ;;21,"58016-0009-60 ")

 +258     ;;4020

 +259     ;;21,"58016-0009-90 ")

 +260     ;;4021

 +261     ;;21,"58016-0010-00 ")

 +262     ;;4282

 +263     ;;21,"58016-0010-30 ")

 +264     ;;4283

 +265     ;;21,"58016-0010-60 ")

 +266     ;;4284

 +267     ;;21,"58016-0010-90 ")

 +268     ;;4285

 +269     ;;21,"58016-0011-00 ")

 +270     ;;4142

 +271     ;;21,"58016-0011-30 ")

 +272     ;;4143

 +273     ;;21,"58016-0011-60 ")

 +274     ;;4144

 +275     ;;21,"58016-0011-90 ")

 +276     ;;4145

 +277     ;;21,"58016-0024-00 ")

 +278     ;;765

 +279     ;;21,"58016-0024-30 ")

 +280     ;;766

 +281     ;;21,"58016-0024-60 ")

 +282     ;;767

 +283     ;;21,"58016-0024-90 ")

 +284     ;;768

 +285     ;;21,"58016-0027-00 ")

 +286     ;;2004

 +287     ;;21,"58016-0027-30 ")

 +288     ;;2005

 +289     ;;21,"58016-0027-60 ")

 +290     ;;2006

 +291     ;;21,"58016-0027-90 ")

 +292     ;;2007

 +293     ;;21,"58016-0030-00 ")

 +294     ;;1047

 +295     ;;21,"58016-0030-30 ")

 +296     ;;1048

 +297     ;;21,"58016-0030-60 ")

 +298     ;;1049

 +299     ;;21,"58016-0030-90 ")

 +300     ;;1050

 +301     ;;21,"58016-0031-00 ")

 +302     ;;839

 +303     ;;21,"58016-0031-30 ")

 +304     ;;840

 +305     ;;21,"58016-0031-60 ")

 +306     ;;841

 +307     ;;21,"58016-0031-90 ")

 +308     ;;842

 +309     ;;21,"58016-0073-00 ")

 +310     ;;536

 +311     ;;21,"58016-0073-30 ")

 +312     ;;537

 +313     ;;21,"58016-0073-60 ")

 +314     ;;538

 +315     ;;21,"58016-0073-90 ")

 +316     ;;539

 +317     ;;21,"58016-0100-00 ")

 +318     ;;3041

 +319     ;;21,"58016-0100-30 ")

 +320     ;;3042

 +321     ;;21,"58016-0100-60 ")

 +322     ;;3043

 +323     ;;21,"58016-0100-90 ")

 +324     ;;3044

 +325     ;;21,"58016-0178-00 ")

 +326     ;;1180

 +327     ;;21,"58016-0178-02 ")

 +328     ;;1181

 +329     ;;21,"58016-0178-04 ")

 +330     ;;1182

 +331     ;;21,"58016-0178-05 ")

 +332     ;;1183

 +333     ;;21,"58016-0178-10 ")

 +334     ;;1184

 +335     ;;21,"58016-0178-12 ")

 +336     ;;1185

 +337     ;;21,"58016-0178-14 ")

 +338     ;;1186

 +339     ;;21,"58016-0178-15 ")

 +340     ;;1187

 +341     ;;21,"58016-0178-20 ")

 +342     ;;1188

 +343     ;;21,"58016-0178-30 ")

 +344     ;;1189

 +345     ;;21,"58016-0178-40 ")

 +346     ;;1190

 +347     ;;21,"58016-0178-50 ")

 +348     ;;1191

 +349     ;;21,"58016-0178-60 ")

 +350     ;;1192

 +351     ;;21,"58016-0178-89 ")

 +352     ;;1193

 +353     ;;21,"58016-0178-90 ")

 +354     ;;1194

 +355     ;;21,"58016-0178-99 ")

 +356     ;;1195

 +357     ;;21,"58016-0220-00 ")

 +358     ;;4733

 +359     ;;21,"58016-0220-30 ")

 +360     ;;4734

 +361     ;;21,"58016-0220-60 ")

 +362     ;;4735

 +363     ;;21,"58016-0220-90 ")

 +364     ;;4736

 +365     ;;21,"58016-0224-00 ")

 +366     ;;1325

 +367     ;;21,"58016-0224-02 ")

 +368     ;;1326

 +369     ;;21,"58016-0224-04 ")

 +370     ;;1327

 +371     ;;21,"58016-0224-05 ")

 +372     ;;1328

 +373     ;;21,"58016-0224-10 ")

 +374     ;;1329

 +375     ;;21,"58016-0224-12 ")

 +376     ;;1330

 +377     ;;21,"58016-0224-14 ")

 +378     ;;1331

 +379     ;;21,"58016-0224-15 ")

 +380     ;;1332

 +381     ;;21,"58016-0224-20 ")

 +382     ;;1333

 +383     ;;21,"58016-0224-30 ")

 +384     ;;1334

 +385     ;;21,"58016-0224-40 ")

 +386     ;;1335

 +387     ;;21,"58016-0224-50 ")

 +388     ;;1336

 +389     ;;21,"58016-0224-60 ")

 +390     ;;1337

 +391     ;;21,"58016-0224-89 ")

 +392     ;;1338

 +393     ;;21,"58016-0224-90 ")

 +394     ;;1339

 +395     ;;21,"58016-0224-99 ")

 +396     ;;1340

 +397     ;;21,"58016-0240-00 ")

 +398     ;;681

 +399     ;;21,"58016-0240-02 ")

 +400     ;;682

 +401     ;;21,"58016-0240-03 ")

 +402     ;;683

 +403     ;;21,"58016-0240-30 ")

 +404     ;;684

 +405     ;;21,"58016-0240-60 ")

 +406     ;;685

 +407     ;;21,"58016-0240-90 ")

 +408     ;;686

 +409     ;;21,"58016-0263-00 ")

 +410     ;;4650

 +411     ;;21,"58016-0263-02 ")

 +412     ;;4651

 +413     ;;21,"58016-0263-03 ")

 +414     ;;4652

 +415     ;;21,"58016-0263-10 ")

 +416     ;;4653

 +417     ;;21,"58016-0263-12 ")

 +418     ;;4654

 +419     ;;21,"58016-0263-15 ")

 +420     ;;4655

 +421     ;;21,"58016-0263-20 ")

 +422     ;;4656

 +423     ;;21,"58016-0263-28 ")

 +424     ;;4657

 +425     ;;21,"58016-0263-30 ")

 +426     ;;4658

 +427     ;;21,"58016-0263-60 ")

 +428     ;;4659

 +429     ;;21,"58016-0263-73 ")

 +430     ;;4660

 +431     ;;21,"58016-0263-89 ")

 +432     ;;4661

 +433     ;;21,"58016-0263-90 ")

 +434     ;;4662

 +435     ;;21,"58016-0282-00 ")

 +436     ;;2985

 +437     ;;21,"58016-0282-30 ")

 +438     ;;2986

 +439     ;;21,"58016-0282-60 ")

 +440     ;;2987

 +441     ;;21,"58016-0282-90 ")

 +442     ;;2988

 +443     ;;21,"58016-0323-00 ")

 +444     ;;5143

 +445     ;;21,"58016-0323-10 ")

 +446     ;;5144

 +447     ;;21,"58016-0323-14 ")

 +448     ;;5145

 +449     ;;21,"58016-0323-15 ")

 +450     ;;5146

 +451     ;;21,"58016-0323-20 ")

 +452     ;;5147

 +453     ;;21,"58016-0323-21 ")

 +454     ;;5148

 +455     ;;21,"58016-0323-28 ")

 +456     ;;5149

 +457     ;;21,"58016-0323-30 ")

 +458     ;;5150

 +459     ;;21,"58016-0323-40 ")

 +460     ;;5151

 +461     ;;21,"58016-0323-50 ")

 +462     ;;5152

 +463     ;;21,"58016-0323-60 ")

 +464     ;;5153

 +465     ;;21,"58016-0323-90 ")

 +466     ;;5154

 +467     ;;21,"58016-0336-00 ")

 +468     ;;3075

 +469     ;;21,"58016-0336-30 ")

 +470     ;;3076

 +471     ;;21,"58016-0336-60 ")

 +472     ;;3077

 +473     ;;21,"58016-0336-90 ")

 +474     ;;3078

 +475     ;;21,"58016-0349-00 ")

 +476     ;;4947

 +477     ;;21,"58016-0349-10 ")

 +478     ;;4948

 +479     ;;21,"58016-0349-14 ")

 +480     ;;4949

 +481     ;;21,"58016-0349-15 ")

 +482     ;;4950

 +483     ;;21,"58016-0349-20 ")

 +484     ;;4951

 +485     ;;21,"58016-0349-21 ")

 +486     ;;4952

 +487     ;;21,"58016-0349-28 ")

 +488     ;;4953

 +489     ;;21,"58016-0349-30 ")

 +490     ;;4954

 +491     ;;21,"58016-0349-40 ")

 +492     ;;4955

 +493     ;;21,"58016-0349-50 ")

 +494     ;;4956

 +495     ;;21,"58016-0349-60 ")

 +496     ;;4957

 +497     ;;21,"58016-0349-90 ")

 +498     ;;4958

 +499     ;;21,"58016-0350-00 ")

 +500     ;;4831

 +501     ;;21,"58016-0350-10 ")

 +502     ;;4832

 +503     ;;21,"58016-0350-14 ")

 +504     ;;4833

 +505     ;;21,"58016-0350-15 ")

 +506     ;;4834

 +507     ;;21,"58016-0350-20 ")

 +508     ;;4835

 +509     ;;21,"58016-0350-21 ")

 +510     ;;4836

 +511     ;;21,"58016-0350-28 ")

 +512     ;;4837

 +513     ;;21,"58016-0350-30 ")

 +514     ;;4838

 +515     ;;21,"58016-0350-40 ")

 +516     ;;4839

 +517     ;;21,"58016-0350-50 ")

 +518     ;;4840

 +519     ;;21,"58016-0350-60 ")

 +520     ;;4841

 +521     ;;21,"58016-0350-90 ")

 +522     ;;4842

 +523     ;;21,"58016-0351-00 ")

 +524     ;;4989

 +525     ;;21,"58016-0351-10 ")

 +526     ;;4990

 +527     ;;21,"58016-0351-14 ")

 +528     ;;4991

 +529     ;;21,"58016-0351-15 ")

 +530     ;;4992

 +531     ;;21,"58016-0351-20 ")

 +532     ;;4993

 +533     ;;21,"58016-0351-21 ")

 +534     ;;4994

 +535     ;;21,"58016-0351-28 ")

 +536     ;;4995

 +537     ;;21,"58016-0351-30 ")

 +538     ;;4996

 +539     ;;21,"58016-0351-40 ")

 +540     ;;4997

 +541     ;;21,"58016-0351-50 ")