BGP33J13.m

BGP33J13 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;

 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7

 ;

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,"55289-0589-10 ")

 ;;4655

 ;;21,"55289-0589-14 ")

 ;;4656

 ;;21,"55289-0589-20 ")

 ;;4657

 ;;21,"55289-0592-10 ")

 ;;4658

 ;;21,"55289-0592-20 ")

 ;;4659

 ;;21,"55289-0592-28 ")

 ;;4660

 ;;21,"55289-0592-40 ")

 ;;4661

 ;;21,"55289-0592-97 ")

 ;;4662

 ;;21,"55289-0612-28 ")

 ;;4663

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

 ;;4664

 ;;21,"55289-0645-20 ")

 ;;4665

 ;;21,"55289-0645-28 ")

 ;;4666

 ;;21,"55289-0645-30 ")

 ;;4667

 ;;21,"55289-0645-40 ")

 ;;4668

 ;;21,"55289-0645-56 ")

 ;;4669

 ;;21,"55289-0645-80 ")

 ;;4670

 ;;21,"55289-0705-02 ")

 ;;4671

 ;;21,"55289-0705-06 ")

 ;;4672

 ;;21,"55289-0705-15 ")

 ;;4673

 ;;21,"55289-0705-16 ")

 ;;4674

 ;;21,"55289-0705-20 ")

 ;;4675

 ;;21,"55289-0705-28 ")

 ;;4676

 ;;21,"55289-0705-30 ")

 ;;4677

 ;;21,"55289-0705-40 ")

 ;;4678

 ;;21,"55289-0705-56 ")

 ;;4679

 ;;21,"55289-0707-20 ")

 ;;4680

 ;;21,"55289-0707-28 ")

 ;;4681

 ;;21,"55289-0711-07 ")

 ;;4682

 ;;21,"55289-0711-10 ")

 ;;4683

 ;;21,"55289-0711-14 ")

 ;;4684

 ;;21,"55289-0717-10 ")

 ;;4685

 ;;21,"55289-0727-20 ")

 ;;4686

 ;;21,"55289-0727-30 ")

 ;;4687

 ;;21,"55289-0746-06 ")

 ;;4688

 ;;21,"55289-0746-10 ")

 ;;4689

 ;;21,"55289-0749-30 ")

 ;;4690

 ;;21,"55289-0767-14 ")

 ;;4691

 ;;21,"55289-0767-20 ")

 ;;4692

 ;;21,"55289-0767-21 ")

 ;;4693

 ;;21,"55289-0767-28 ")

 ;;4694

 ;;21,"55289-0767-30 ")

 ;;4695

 ;;21,"55289-0821-03 ")

 ;;4696

 ;;21,"55289-0821-06 ")

 ;;4697

 ;;21,"55289-0821-10 ")

 ;;4698

 ;;21,"55289-0821-14 ")

 ;;4699

 ;;21,"55289-0821-20 ")

 ;;4700

 ;;21,"55289-0821-30 ")

 ;;4701

 ;;21,"55289-0821-40 ")

 ;;4702

 ;;21,"55289-0821-50 ")

 ;;4703

 ;;21,"55289-0821-79 ")

 ;;4704

 ;;21,"55289-0823-06 ")

 ;;4705

 ;;21,"55289-0823-12 ")

 ;;4706

 ;;21,"55289-0823-14 ")

 ;;4707

 ;;21,"55289-0823-20 ")

 ;;4708

 ;;21,"55289-0826-10 ")

 ;;4709

 ;;21,"55289-0826-20 ")

 ;;4710

 ;;21,"55289-0831-20 ")

 ;;4711

 ;;21,"55289-0841-03 ")

 ;;4712

 ;;21,"55289-0841-10 ")

 ;;4713

 ;;21,"55289-0845-06 ")

 ;;4714

 ;;21,"55289-0845-20 ")

 ;;4715

 ;;21,"55289-0845-21 ")

 ;;4716

 ;;21,"55289-0845-30 ")

 ;;4717

 ;;21,"55289-0866-01 ")

 ;;4718

 ;;21,"55289-0866-02 ")

 ;;4719

 ;;21,"55289-0866-04 ")

 ;;4720

 ;;21,"55289-0866-06 ")

 ;;4721

 ;;21,"55289-0866-08 ")

 ;;4722

 ;;21,"55289-0866-10 ")

 ;;4723

 ;;21,"55289-0866-14 ")

 ;;4724

 ;;21,"55289-0866-20 ")

 ;;4725

 ;;21,"55289-0866-28 ")

 ;;4726

 ;;21,"55289-0866-30 ")

 ;;4727

 ;;21,"55289-0866-60 ")

 ;;4728

 ;;21,"55289-0866-74 ")

 ;;4729

 ;;21,"55289-0866-85 ")

 ;;4730

 ;;21,"55289-0866-86 ")

 ;;4731

 ;;21,"55289-0866-87 ")

 ;;4732

 ;;21,"55289-0866-90 ")

 ;;4733

 ;;21,"55289-0866-93 ")

 ;;4734

 ;;21,"55289-0885-08 ")

 ;;4735

 ;;21,"55289-0890-20 ")

 ;;4736

 ;;21,"55289-0890-30 ")

 ;;4737

 ;;21,"55289-0890-56 ")

 ;;4738

 ;;21,"55289-0904-14 ")

 ;;4739

 ;;21,"55289-0904-79 ")

 ;;4740

 ;;21,"55289-0909-10 ")

 ;;4741

 ;;21,"55289-0909-14 ")

 ;;4742

 ;;21,"55289-0909-20 ")

 ;;4743

 ;;21,"55289-0909-28 ")

 ;;4744

 ;;21,"55289-0915-06 ")

 ;;4745

 ;;21,"55289-0915-15 ")

 ;;4746

 ;;21,"55289-0915-24 ")

 ;;4747

 ;;21,"55289-0915-30 ")

 ;;4748

 ;;21,"55289-0954-79 ")

 ;;4749

 ;;21,"55289-0964-04 ")

 ;;4750

 ;;21,"55289-0964-14 ")

 ;;4751

 ;;21,"55390-0109-01 ")

 ;;4752

 ;;21,"55390-0110-10 ")

 ;;4753

 ;;21,"55390-0197-01 ")

 ;;4754

 ;;21,"55390-0198-01 ")

 ;;4755

 ;;21,"55390-0199-01 ")

 ;;4756

 ;;21,"55390-0309-10 ")

 ;;4757

 ;;21,"55390-0310-10 ")

 ;;4758

 ;;21,"55390-0311-10 ")

 ;;4759

 ;;21,"55390-0312-10 ")

 ;;4760

 ;;21,"55390-0316-01 ")

 ;;4761

 ;;21,"55868-5487-01 ")

 ;;4762

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

 ;;4763

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

 ;;4764

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

 ;;4765

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

 ;;4766

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

 ;;4767

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

 ;;4768

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

 ;;4769

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

 ;;4770

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

 ;;4771

 ;;21,"55887-0139-21 ")

 ;;4772

 ;;21,"55887-0139-28 ")

 ;;4773

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

 ;;4774

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

 ;;4775

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

 ;;4776

 ;;21,"55887-0147-45 ")

 ;;4777

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

 ;;4778

 ;;21,"55887-0181-15 ")

 ;;4779

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

 ;;4780

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

 ;;4781

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

 ;;4782

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

 ;;4783

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

 ;;4784

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

 ;;4785

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

 ;;4786

 ;;21,"55887-0292-10 ")

 ;;4787

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

 ;;4788

 ;;21,"55887-0292-28 ")

 ;;4789

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

 ;;4790

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

 ;;4791

 ;;21,"55887-0311-15 ")

 ;;4792

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

 ;;4793

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

 ;;4794

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

 ;;4795

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

 ;;4796

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

 ;;4797

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

 ;;4798

 ;;21,"55887-0378-06 ")

 ;;4799

 ;;21,"55887-0378-15 ")

 ;;4800

 ;;21,"55887-0378-21 ")

 ;;4801

 ;;21,"55887-0378-28 ")

 ;;4802

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

 ;;4803

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

 ;;4804

 ;;21,"55887-0378-42 ")

 ;;4805

 ;;21,"55887-0388-03 ")

 ;;4806

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

 ;;4807

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

 ;;4808

 ;;21,"55887-0463-21 ")

 ;;4809

 ;;21,"55887-0463-28 ")

 ;;4810

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

 ;;4811

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

 ;;4812

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

 ;;4813

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

 ;;4814

 ;;21,"55887-0584-04 ")

 ;;4815

 ;;21,"55887-0584-06 ")

 ;;4816

 ;;21,"55887-0584-08 ")

 ;;4817

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

 ;;4818

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

 ;;4819

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

 ;;4820

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

 ;;4821

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

 ;;4822

 ;;21,"55887-0584-21 ")

 ;;4823

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

 ;;4824

 ;;21,"55887-0584-28 ")

 ;;4825

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

 ;;4826

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

 ;;4827

 ;;21,"55887-0584-42 ")

 ;;4828

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

 ;;4829

 ;;21,"55887-0584-71 ")

 ;;4830

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

 ;;4831

 ;;21,"55887-0586-28 ")

 ;;4832

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

 ;;4833

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

 ;;4834

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

 ;;4835

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

 ;;4836

 ;;21,"55887-0611-08 ")

 ;;4837

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

 ;;4838

 ;;21,"55887-0611-15 ")

 ;;4839

 ;;21,"55887-0611-16 ")

 ;;4840

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

 ;;4841

 ;;21,"55887-0611-21 ")

 ;;4842

 ;;21,"55887-0611-28 ")

 ;;4843

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

 ;;4844

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

 ;;4845

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

 ;;4846

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

 ;;4847

 ;;21,"55887-0622-09 ")

 ;;4848

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

 ;;4849

 ;;21,"55887-0622-21 ")

 ;;4850

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

 ;;4851

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

 ;;4852

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

 ;;4853

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

 ;;4854

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

 ;;4855

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

 ;;4856

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

 ;;4857

 ;;21,"55887-0642-05 ")

 ;;4858

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

 ;;4859

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

 ;;4860

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

 ;;4861

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

 ;;4862

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

 ;;4863

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

 ;;4864

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

 ;;4865

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

 ;;4866

 ;;21,"55887-0704-28 ")

 ;;4867

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

 ;;4868

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

 ;;4869

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

 ;;4870

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

 ;;4871

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

 ;;4872

 ;;21,"55887-0746-56 ")

 ;;4873

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

 ;;4874

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

 ;;4875

 ;;21,"55887-0761-02 ")

 ;;4876

 ;;21,"55887-0764-75 ")

 ;;4877

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

 ;;4878

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

 ;;4879

 ;;21,"55887-0768-21 ")

 ;;4880

 ;;21,"55887-0768-28 ")

 ;;4881

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

 ;;4882

 ;;21,"55887-0768-32 ")

 ;;4883

 ;;21,"55887-0785-04 ")

 ;;4884

 ;;21,"55887-0785-06 ")

 ;;4885

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

 ;;4886

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

 ;;4887

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

 ;;4888

 ;;21,"55887-0787-28 ")

 ;;4889

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

 ;;4890

 ;;21,"55887-0790-15 ")

 ;;4891

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

 ;;4892

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

 ;;4893

 ;;21,"55887-0794-75 ")

 ;;4894

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

 ;;4895

 ;;21,"55887-0810-10 ")

 ;;4896

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

 ;;4897

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

 ;;4898

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

 ;;4899

 ;;21,"55887-0817-22 ")

 ;;4900

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

 ;;4901

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

 ;;4902

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

 ;;4903

 ;;21,"55887-0830-28 ")

 ;;4904

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

 ;;4905

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

 ;;4906

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

 ;;4907

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

 ;;4908

 ;;21,"55887-0849-21 ")

 ;;4909

 ;;21,"55887-0849-28 ")

 ;;4910

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

 ;;4911

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

 ;;4912

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

 ;;4913

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

 ;;4914

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

 ;;4915

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

 ;;4916

 ;;21,"55887-0889-21 ")

 ;;4917

 ;;21,"55887-0889-28 ")

 ;;4918

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

 ;;4919

 ;;21,"55887-0893-10 ")

 ;;4920

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

 ;;4921

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

 ;;4922

 ;;21,"55887-0893-24 ")

 ;;4923

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

 ;;4924

 ;;21,"55887-0904-06 ")

 ;;4925

 ;;21,"55887-0904-10 ")

 ;;4926

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

 ;;4927

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

 ;;4928

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

 ;;4929

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

 ;;4930

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

 ;;4931

 ;;21,"55887-0924-28 ")

 ;;4932

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

 ;;4933

 ;;21,"55887-0930-28 ")

 ;;4934

 ;;21,"55887-0933-06 ")

 ;;4935

 ;;21,"55887-0955-21 ")

 ;;4936

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

 ;;4937

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

 ;;4938

 ;;21,"55887-0958-05 ")

 ;;4939

 ;;21,"55887-0958-08 ")

 ;;4940

 ;;21,"55887-0958-09 ")

 ;;4941

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

 ;;4942

 ;;21,"55887-0958-15 ")

 ;;4943

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

 ;;4944

 ;;21,"55887-0958-21 ")

 ;;4945

 ;;21,"55887-0958-28 ")

 ;;4946

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

 ;;4947

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

 ;;4948

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

 ;;4949

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

 ;;4950

 ;;21,"55887-0979-16 ")

 ;;4951

 ;;21,"55887-0980-21 ")

 ;;4952

 ;;21,"55887-0980-28 ")

 ;;4953

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

 ;;4954

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

 ;;4955

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

 ;;4956

 ;;21,"55887-0982-04 ")

 ;;4957

 ;;21,"55887-0982-05 ")

 ;;4958

 ;;21,"55887-0982-09 ")

 ;;4959

 ;;21,"55887-0982-10 ")

 ;;4960

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

 ;;4961

 ;;21,"55887-0982-15 ")

 ;;4962

 ;;21,"55887-0982-45 ")

 ;;4963

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

 ;;4964

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

 ;;4965

 ;;21,"55887-0983-06 ")

 ;;4966

 ;;21,"55887-0983-10 ")

 ;;4967

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

 ;;4968

 ;;21,"55887-0983-15 ")

 ;;4969

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

 ;;4970

 ;;21,"55887-0983-28 ")

 ;;4971

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

 ;;4972

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

 ;;4973

 ;;21,"55887-0983-42 ")

 ;;4974

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

 ;;4975

 ;;21,"55887-0991-21 ")

 ;;4976

 ;;21,"55887-0991-28 ")

 ;;4977

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

 ;;4978

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

 ;;4979

 ;;21,"55887-0993-09 ")

 ;;4980

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

 ;;4981

 ;;21,"55887-0993-15 ")

 ;;4982

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

 ;;4983

 ;;21,"55887-0993-21 ")

 ;;4984

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

 ;;4985

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

 ;;4986

 ;;21,"55887-0993-42 ")

 ;;4987

 ;;21,"55953-0251-80 ")

 ;;4988

 ;;21,"55953-0253-80 ")

 ;;4989

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

 ;;4990

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

 ;;4991

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

 ;;4992

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

 ;;4993

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

 ;;4994

 ;;21,"57866-0117-05 ")

 ;;4995

 ;;21,"57866-0117-06 ")

 ;;4996

 ;;21,"57866-0155-00 ")

 ;;4997

 ;;21,"57866-0155-05 ")

 ;;4998

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

 ;;4999

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

 ;;5000

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

 ;;5001

 ;;21,"57866-0340-05 ")

 ;;5002

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

 ;;5003

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

 ;;5004

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

 ;;5005

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

 ;;5006

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

 ;;5007

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

 ;;5008

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

 ;;5009

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

 ;;5010

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

 ;;5011

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

 ;;5012

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

 ;;5013

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

 ;;5014

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

 ;;5015

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

 ;;5016

 ;;21,"57866-4693-06 ")

 ;;5017

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

 ;;5018

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

 ;;5019

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

 ;;5020

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

 ;;5021

 ;;21,"57866-6041-05 ")

 ;;5022

 ;;21,"57866-6041-08 ")

 ;;5023

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

 ;;5024

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

 ;;5025

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

 ;;5026

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

 ;;5027

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

 ;;5028

 ;;21,"57866-7216-07 ")

 ;;5029

 ;;21,"57866-7216-08 ")

 ;;5030

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

 ;;5031

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

 ;;5032

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

 ;;5033

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

 ;;5034

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

 ;;5035

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

 ;;5036

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

 ;;5037

 ;;21,"58016-0101-08 ")

 ;;5038

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

 ;;5039

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

 ;;5040

BGP33J13  ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;

 +1       ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7

 +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,"55289-0589-10 ")

 +2       ;;4655

 +3       ;;21,"55289-0589-14 ")

 +4       ;;4656

 +5       ;;21,"55289-0589-20 ")

 +6       ;;4657

 +7       ;;21,"55289-0592-10 ")

 +8       ;;4658

 +9       ;;21,"55289-0592-20 ")

 +10      ;;4659

 +11      ;;21,"55289-0592-28 ")

 +12      ;;4660

 +13      ;;21,"55289-0592-40 ")

 +14      ;;4661

 +15      ;;21,"55289-0592-97 ")

 +16      ;;4662

 +17      ;;21,"55289-0612-28 ")

 +18      ;;4663

 +19      ;;21,"55289-0612-30 ")

 +20      ;;4664

 +21      ;;21,"55289-0645-20 ")

 +22      ;;4665

 +23      ;;21,"55289-0645-28 ")

 +24      ;;4666

 +25      ;;21,"55289-0645-30 ")

 +26      ;;4667

 +27      ;;21,"55289-0645-40 ")

 +28      ;;4668

 +29      ;;21,"55289-0645-56 ")

 +30      ;;4669

 +31      ;;21,"55289-0645-80 ")

 +32      ;;4670

 +33      ;;21,"55289-0705-02 ")

 +34      ;;4671

 +35      ;;21,"55289-0705-06 ")

 +36      ;;4672

 +37      ;;21,"55289-0705-15 ")

 +38      ;;4673

 +39      ;;21,"55289-0705-16 ")

 +40      ;;4674

 +41      ;;21,"55289-0705-20 ")

 +42      ;;4675

 +43      ;;21,"55289-0705-28 ")

 +44      ;;4676

 +45      ;;21,"55289-0705-30 ")

 +46      ;;4677

 +47      ;;21,"55289-0705-40 ")

 +48      ;;4678

 +49      ;;21,"55289-0705-56 ")

 +50      ;;4679

 +51      ;;21,"55289-0707-20 ")

 +52      ;;4680

 +53      ;;21,"55289-0707-28 ")

 +54      ;;4681

 +55      ;;21,"55289-0711-07 ")

 +56      ;;4682

 +57      ;;21,"55289-0711-10 ")

 +58      ;;4683

 +59      ;;21,"55289-0711-14 ")

 +60      ;;4684

 +61      ;;21,"55289-0717-10 ")

 +62      ;;4685

 +63      ;;21,"55289-0727-20 ")

 +64      ;;4686

 +65      ;;21,"55289-0727-30 ")

 +66      ;;4687

 +67      ;;21,"55289-0746-06 ")

 +68      ;;4688

 +69      ;;21,"55289-0746-10 ")

 +70      ;;4689

 +71      ;;21,"55289-0749-30 ")

 +72      ;;4690

 +73      ;;21,"55289-0767-14 ")

 +74      ;;4691

 +75      ;;21,"55289-0767-20 ")

 +76      ;;4692

 +77      ;;21,"55289-0767-21 ")

 +78      ;;4693

 +79      ;;21,"55289-0767-28 ")

 +80      ;;4694

 +81      ;;21,"55289-0767-30 ")

 +82      ;;4695

 +83      ;;21,"55289-0821-03 ")

 +84      ;;4696

 +85      ;;21,"55289-0821-06 ")

 +86      ;;4697

 +87      ;;21,"55289-0821-10 ")

 +88      ;;4698

 +89      ;;21,"55289-0821-14 ")

 +90      ;;4699

 +91      ;;21,"55289-0821-20 ")

 +92      ;;4700

 +93      ;;21,"55289-0821-30 ")

 +94      ;;4701

 +95      ;;21,"55289-0821-40 ")

 +96      ;;4702

 +97      ;;21,"55289-0821-50 ")

 +98      ;;4703

 +99      ;;21,"55289-0821-79 ")

 +100     ;;4704

 +101     ;;21,"55289-0823-06 ")

 +102     ;;4705

 +103     ;;21,"55289-0823-12 ")

 +104     ;;4706

 +105     ;;21,"55289-0823-14 ")

 +106     ;;4707

 +107     ;;21,"55289-0823-20 ")

 +108     ;;4708

 +109     ;;21,"55289-0826-10 ")

 +110     ;;4709

 +111     ;;21,"55289-0826-20 ")

 +112     ;;4710

 +113     ;;21,"55289-0831-20 ")

 +114     ;;4711

 +115     ;;21,"55289-0841-03 ")

 +116     ;;4712

 +117     ;;21,"55289-0841-10 ")

 +118     ;;4713

 +119     ;;21,"55289-0845-06 ")

 +120     ;;4714

 +121     ;;21,"55289-0845-20 ")

 +122     ;;4715

 +123     ;;21,"55289-0845-21 ")

 +124     ;;4716

 +125     ;;21,"55289-0845-30 ")

 +126     ;;4717

 +127     ;;21,"55289-0866-01 ")

 +128     ;;4718

 +129     ;;21,"55289-0866-02 ")

 +130     ;;4719

 +131     ;;21,"55289-0866-04 ")

 +132     ;;4720

 +133     ;;21,"55289-0866-06 ")

 +134     ;;4721

 +135     ;;21,"55289-0866-08 ")

 +136     ;;4722

 +137     ;;21,"55289-0866-10 ")

 +138     ;;4723

 +139     ;;21,"55289-0866-14 ")

 +140     ;;4724

 +141     ;;21,"55289-0866-20 ")

 +142     ;;4725

 +143     ;;21,"55289-0866-28 ")

 +144     ;;4726

 +145     ;;21,"55289-0866-30 ")

 +146     ;;4727

 +147     ;;21,"55289-0866-60 ")

 +148     ;;4728

 +149     ;;21,"55289-0866-74 ")

 +150     ;;4729

 +151     ;;21,"55289-0866-85 ")

 +152     ;;4730

 +153     ;;21,"55289-0866-86 ")

 +154     ;;4731

 +155     ;;21,"55289-0866-87 ")

 +156     ;;4732

 +157     ;;21,"55289-0866-90 ")

 +158     ;;4733

 +159     ;;21,"55289-0866-93 ")

 +160     ;;4734

 +161     ;;21,"55289-0885-08 ")

 +162     ;;4735

 +163     ;;21,"55289-0890-20 ")

 +164     ;;4736

 +165     ;;21,"55289-0890-30 ")

 +166     ;;4737

 +167     ;;21,"55289-0890-56 ")

 +168     ;;4738

 +169     ;;21,"55289-0904-14 ")

 +170     ;;4739

 +171     ;;21,"55289-0904-79 ")

 +172     ;;4740

 +173     ;;21,"55289-0909-10 ")

 +174     ;;4741

 +175     ;;21,"55289-0909-14 ")

 +176     ;;4742

 +177     ;;21,"55289-0909-20 ")

 +178     ;;4743

 +179     ;;21,"55289-0909-28 ")

 +180     ;;4744

 +181     ;;21,"55289-0915-06 ")

 +182     ;;4745

 +183     ;;21,"55289-0915-15 ")

 +184     ;;4746

 +185     ;;21,"55289-0915-24 ")

 +186     ;;4747

 +187     ;;21,"55289-0915-30 ")

 +188     ;;4748

 +189     ;;21,"55289-0954-79 ")

 +190     ;;4749

 +191     ;;21,"55289-0964-04 ")

 +192     ;;4750

 +193     ;;21,"55289-0964-14 ")

 +194     ;;4751

 +195     ;;21,"55390-0109-01 ")

 +196     ;;4752

 +197     ;;21,"55390-0110-10 ")

 +198     ;;4753

 +199     ;;21,"55390-0197-01 ")

 +200     ;;4754

 +201     ;;21,"55390-0198-01 ")

 +202     ;;4755

 +203     ;;21,"55390-0199-01 ")

 +204     ;;4756

 +205     ;;21,"55390-0309-10 ")

 +206     ;;4757

 +207     ;;21,"55390-0310-10 ")

 +208     ;;4758

 +209     ;;21,"55390-0311-10 ")

 +210     ;;4759

 +211     ;;21,"55390-0312-10 ")

 +212     ;;4760

 +213     ;;21,"55390-0316-01 ")

 +214     ;;4761

 +215     ;;21,"55868-5487-01 ")

 +216     ;;4762

 +217     ;;21,"55887-0060-20 ")

 +218     ;;4763

 +219     ;;21,"55887-0071-30 ")

 +220     ;;4764

 +221     ;;21,"55887-0071-40 ")

 +222     ;;4765

 +223     ;;21,"55887-0071-60 ")

 +224     ;;4766

 +225     ;;21,"55887-0138-20 ")

 +226     ;;4767

 +227     ;;21,"55887-0138-30 ")

 +228     ;;4768

 +229     ;;21,"55887-0138-60 ")

 +230     ;;4769

 +231     ;;21,"55887-0138-90 ")

 +232     ;;4770

 +233     ;;21,"55887-0139-14 ")

 +234     ;;4771

 +235     ;;21,"55887-0139-21 ")

 +236     ;;4772

 +237     ;;21,"55887-0139-28 ")

 +238     ;;4773

 +239     ;;21,"55887-0147-14 ")

 +240     ;;4774

 +241     ;;21,"55887-0147-20 ")

 +242     ;;4775

 +243     ;;21,"55887-0147-30 ")

 +244     ;;4776

 +245     ;;21,"55887-0147-45 ")

 +246     ;;4777

 +247     ;;21,"55887-0147-60 ")

 +248     ;;4778

 +249     ;;21,"55887-0181-15 ")

 +250     ;;4779

 +251     ;;21,"55887-0187-60 ")

 +252     ;;4780

 +253     ;;21,"55887-0215-01 ")

 +254     ;;4781

 +255     ;;21,"55887-0216-20 ")

 +256     ;;4782

 +257     ;;21,"55887-0218-01 ")

 +258     ;;4783

 +259     ;;21,"55887-0244-20 ")

 +260     ;;4784

 +261     ;;21,"55887-0244-30 ")

 +262     ;;4785

 +263     ;;21,"55887-0263-20 ")

 +264     ;;4786

 +265     ;;21,"55887-0292-10 ")

 +266     ;;4787

 +267     ;;21,"55887-0292-20 ")

 +268     ;;4788

 +269     ;;21,"55887-0292-28 ")

 +270     ;;4789

 +271     ;;21,"55887-0292-30 ")

 +272     ;;4790

 +273     ;;21,"55887-0306-01 ")

 +274     ;;4791

 +275     ;;21,"55887-0311-15 ")

 +276     ;;4792

 +277     ;;21,"55887-0311-30 ")

 +278     ;;4793

 +279     ;;21,"55887-0320-30 ")

 +280     ;;4794

 +281     ;;21,"55887-0320-60 ")

 +282     ;;4795

 +283     ;;21,"55887-0332-30 ")

 +284     ;;4796

 +285     ;;21,"55887-0372-30 ")

 +286     ;;4797

 +287     ;;21,"55887-0372-60 ")

 +288     ;;4798

 +289     ;;21,"55887-0378-06 ")

 +290     ;;4799

 +291     ;;21,"55887-0378-15 ")

 +292     ;;4800

 +293     ;;21,"55887-0378-21 ")

 +294     ;;4801

 +295     ;;21,"55887-0378-28 ")

 +296     ;;4802

 +297     ;;21,"55887-0378-30 ")

 +298     ;;4803

 +299     ;;21,"55887-0378-40 ")

 +300     ;;4804

 +301     ;;21,"55887-0378-42 ")

 +302     ;;4805

 +303     ;;21,"55887-0388-03 ")

 +304     ;;4806

 +305     ;;21,"55887-0419-20 ")

 +306     ;;4807

 +307     ;;21,"55887-0419-30 ")

 +308     ;;4808

 +309     ;;21,"55887-0463-21 ")

 +310     ;;4809

 +311     ;;21,"55887-0463-28 ")

 +312     ;;4810

 +313     ;;21,"55887-0492-07 ")

 +314     ;;4811

 +315     ;;21,"55887-0527-30 ")

 +316     ;;4812

 +317     ;;21,"55887-0534-40 ")

 +318     ;;4813

 +319     ;;21,"55887-0584-01 ")

 +320     ;;4814

 +321     ;;21,"55887-0584-04 ")

 +322     ;;4815

 +323     ;;21,"55887-0584-06 ")

 +324     ;;4816

 +325     ;;21,"55887-0584-08 ")

 +326     ;;4817

 +327     ;;21,"55887-0584-10 ")

 +328     ;;4818

 +329     ;;21,"55887-0584-12 ")

 +330     ;;4819

 +331     ;;21,"55887-0584-14 ")

 +332     ;;4820

 +333     ;;21,"55887-0584-15 ")

 +334     ;;4821

 +335     ;;21,"55887-0584-20 ")

 +336     ;;4822

 +337     ;;21,"55887-0584-21 ")

 +338     ;;4823

 +339     ;;21,"55887-0584-25 ")

 +340     ;;4824

 +341     ;;21,"55887-0584-28 ")

 +342     ;;4825

 +343     ;;21,"55887-0584-30 ")

 +344     ;;4826

 +345     ;;21,"55887-0584-40 ")

 +346     ;;4827

 +347     ;;21,"55887-0584-42 ")

 +348     ;;4828

 +349     ;;21,"55887-0584-60 ")

 +350     ;;4829

 +351     ;;21,"55887-0584-71 ")

 +352     ;;4830

 +353     ;;21,"55887-0586-20 ")

 +354     ;;4831

 +355     ;;21,"55887-0586-28 ")

 +356     ;;4832

 +357     ;;21,"55887-0586-30 ")

 +358     ;;4833

 +359     ;;21,"55887-0586-60 ")

 +360     ;;4834

 +361     ;;21,"55887-0586-90 ")

 +362     ;;4835

 +363     ;;21,"55887-0611-01 ")

 +364     ;;4836

 +365     ;;21,"55887-0611-08 ")

 +366     ;;4837

 +367     ;;21,"55887-0611-14 ")

 +368     ;;4838

 +369     ;;21,"55887-0611-15 ")

 +370     ;;4839

 +371     ;;21,"55887-0611-16 ")

 +372     ;;4840

 +373     ;;21,"55887-0611-20 ")

 +374     ;;4841

 +375     ;;21,"55887-0611-21 ")

 +376     ;;4842

 +377     ;;21,"55887-0611-28 ")

 +378     ;;4843

 +379     ;;21,"55887-0611-30 ")

 +380     ;;4844

 +381     ;;21,"55887-0611-40 ")

 +382     ;;4845

 +383     ;;21,"55887-0611-60 ")

 +384     ;;4846

 +385     ;;21,"55887-0622-01 ")

 +386     ;;4847

 +387     ;;21,"55887-0622-09 ")

 +388     ;;4848

 +389     ;;21,"55887-0622-20 ")

 +390     ;;4849

 +391     ;;21,"55887-0622-21 ")

 +392     ;;4850

 +393     ;;21,"55887-0622-30 ")

 +394     ;;4851

 +395     ;;21,"55887-0622-40 ")

 +396     ;;4852

 +397     ;;21,"55887-0629-14 ")

 +398     ;;4853

 +399     ;;21,"55887-0629-20 ")

 +400     ;;4854

 +401     ;;21,"55887-0637-14 ")

 +402     ;;4855

 +403     ;;21,"55887-0637-20 ")

 +404     ;;4856

 +405     ;;21,"55887-0637-30 ")

 +406     ;;4857

 +407     ;;21,"55887-0642-05 ")

 +408     ;;4858

 +409     ;;21,"55887-0652-14 ")

 +410     ;;4859

 +411     ;;21,"55887-0652-20 ")

 +412     ;;4860

 +413     ;;21,"55887-0652-30 ")

 +414     ;;4861

 +415     ;;21,"55887-0659-14 ")

 +416     ;;4862

 +417     ;;21,"55887-0659-20 ")

 +418     ;;4863

 +419     ;;21,"55887-0659-30 ")

 +420     ;;4864

 +421     ;;21,"55887-0704-14 ")

 +422     ;;4865

 +423     ;;21,"55887-0704-20 ")

 +424     ;;4866

 +425     ;;21,"55887-0704-28 ")

 +426     ;;4867

 +427     ;;21,"55887-0704-30 ")

 +428     ;;4868

 +429     ;;21,"55887-0714-01 ")

 +430     ;;4869

 +431     ;;21,"55887-0719-01 ")

 +432     ;;4870

 +433     ;;21,"55887-0719-20 ")

 +434     ;;4871

 +435     ;;21,"55887-0746-20 ")

 +436     ;;4872

 +437     ;;21,"55887-0746-56 ")

 +438     ;;4873

 +439     ;;21,"55887-0747-20 ")

 +440     ;;4874

 +441     ;;21,"55887-0761-01 ")

 +442     ;;4875

 +443     ;;21,"55887-0761-02 ")

 +444     ;;4876

 +445     ;;21,"55887-0764-75 ")

 +446     ;;4877

 +447     ;;21,"55887-0768-14 ")

 +448     ;;4878

 +449     ;;21,"55887-0768-20 ")

 +450     ;;4879

 +451     ;;21,"55887-0768-21 ")

 +452     ;;4880

 +453     ;;21,"55887-0768-28 ")

 +454     ;;4881

 +455     ;;21,"55887-0768-30 ")

 +456     ;;4882

 +457     ;;21,"55887-0768-32 ")

 +458     ;;4883

 +459     ;;21,"55887-0785-04 ")

 +460     ;;4884

 +461     ;;21,"55887-0785-06 ")

 +462     ;;4885

 +463     ;;21,"55887-0785-30 ")

 +464     ;;4886

 +465     ;;21,"55887-0786-30 ")

 +466     ;;4887

 +467     ;;21,"55887-0787-20 ")

 +468     ;;4888

 +469     ;;21,"55887-0787-28 ")

 +470     ;;4889

 +471     ;;21,"55887-0787-40 ")

 +472     ;;4890

 +473     ;;21,"55887-0790-15 ")

 +474     ;;4891

 +475     ;;21,"55887-0790-20 ")

 +476     ;;4892

 +477     ;;21,"55887-0790-30 ")

 +478     ;;4893

 +479     ;;21,"55887-0794-75 ")

 +480     ;;4894

 +481     ;;21,"55887-0810-07 ")

 +482     ;;4895

 +483     ;;21,"55887-0810-10 ")

 +484     ;;4896

 +485     ;;21,"55887-0813-30 ")

 +486     ;;4897

 +487     ;;21,"55887-0814-01 ")

 +488     ;;4898

 +489     ;;21,"55887-0814-14 ")

 +490     ;;4899

 +491     ;;21,"55887-0817-22 ")

 +492     ;;4900

 +493     ;;21,"55887-0823-01 ")

 +494     ;;4901

 +495     ;;21,"55887-0823-14 ")

 +496     ;;4902

 +497     ;;21,"55887-0830-20 ")

 +498     ;;4903

 +499     ;;21,"55887-0830-28 ")

 +500     ;;4904

 +501     ;;21,"55887-0830-30 ")

 +502     ;;4905

 +503     ;;21,"55887-0830-40 ")

 +504     ;;4906

 +505     ;;21,"55887-0837-30 ")

 +506     ;;4907

 +507     ;;21,"55887-0849-20 ")

 +508     ;;4908

 +509     ;;21,"55887-0849-21 ")

 +510     ;;4909

 +511     ;;21,"55887-0849-28 ")

 +512     ;;4910

 +513     ;;21,"55887-0849-30 ")

 +514     ;;4911

 +515     ;;21,"55887-0849-40 ")

 +516     ;;4912

 +517     ;;21,"55887-0855-20 ")

 +518     ;;4913

 +519     ;;21,"55887-0858-14 ")

 +520     ;;4914

 +521     ;;21,"55887-0858-20 ")

 +522     ;;4915

 +523     ;;21,"55887-0867-01 ")

 +524     ;;4916

 +525     ;;21,"55887-0889-21 ")

 +526     ;;4917

 +527     ;;21,"55887-0889-28 ")

 +528     ;;4918

 +529     ;;21,"55887-0889-40 ")

 +530     ;;4919

 +531     ;;21,"55887-0893-10 ")

 +532     ;;4920

 +533     ;;21,"55887-0893-14 ")

 +534     ;;4921

 +535     ;;21,"55887-0893-20 ")

 +536     ;;4922

 +537     ;;21,"55887-0893-24 ")

 +538     ;;4923

 +539     ;;21,"55887-0893-30 ")

 +540     ;;4924

 +541     ;;21,"55887-0904-06 ")

 +542     ;;4925

 +543     ;;21,"55887-0904-10 ")

 +544     ;;4926