BGP06A13.m

BGP06A13 ;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)

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

 ;;4655

 ;;21,"58016-0149-07 ")

 ;;4656

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

 ;;4657

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

 ;;4658

 ;;21,"58016-0149-21 ")

 ;;4659

 ;;21,"58016-0149-24 ")

 ;;4660

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

 ;;4661

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

 ;;4662

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

 ;;4663

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

 ;;4664

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

 ;;4665

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

 ;;4666

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

 ;;4667

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

 ;;4668

 ;;21,"58016-0154-16 ")

 ;;4669

 ;;21,"58016-0154-18 ")

 ;;4670

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

 ;;4671

 ;;21,"58016-0154-24 ")

 ;;4672

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

 ;;4673

 ;;21,"58016-0154-36 ")

 ;;4674

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

 ;;4675

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

 ;;4676

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

 ;;4677

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

 ;;4678

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

 ;;4679

 ;;21,"58016-0155-16 ")

 ;;4680

 ;;21,"58016-0155-18 ")

 ;;4681

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

 ;;4682

 ;;21,"58016-0155-24 ")

 ;;4683

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

 ;;4684

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

 ;;4685

 ;;21,"58016-0155-36 ")

 ;;4686

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

 ;;4687

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

 ;;4688

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

 ;;4689

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

 ;;4690

 ;;21,"58016-0156-06 ")

 ;;4691

 ;;21,"58016-0156-07 ")

 ;;4692

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

 ;;4693

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

 ;;4694

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

 ;;4695

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

 ;;4696

 ;;21,"58016-0156-16 ")

 ;;4697

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

 ;;4698

 ;;21,"58016-0156-21 ")

 ;;4699

 ;;21,"58016-0156-24 ")

 ;;4700

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

 ;;4701

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

 ;;4702

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

 ;;4703

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

 ;;4704

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

 ;;4705

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

 ;;4706

 ;;21,"58016-0161-06 ")

 ;;4707

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

 ;;4708

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

 ;;4709

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

 ;;4710

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

 ;;4711

 ;;21,"58016-0161-16 ")

 ;;4712

 ;;21,"58016-0161-18 ")

 ;;4713

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

 ;;4714

 ;;21,"58016-0161-21 ")

 ;;4715

 ;;21,"58016-0161-24 ")

 ;;4716

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

 ;;4717

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

 ;;4718

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

 ;;4719

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

 ;;4720

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

 ;;4721

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

 ;;4722

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

 ;;4723

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

 ;;4724

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

 ;;4725

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

 ;;4726

 ;;21,"58016-0164-24 ")

 ;;4727

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

 ;;4728

 ;;21,"58016-0164-36 ")

 ;;4729

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

 ;;4730

 ;;21,"58016-0164-48 ")

 ;;4731

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

 ;;4732

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

 ;;4733

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

 ;;4734

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

 ;;4735

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

 ;;4736

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

 ;;4737

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

 ;;4738

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

 ;;4739

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

 ;;4740

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

 ;;4741

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

 ;;4742

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

 ;;4743

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

 ;;4744

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

 ;;4745

 ;;21,"58016-0184-18 ")

 ;;4746

 ;;21,"58016-0184-24 ")

 ;;4747

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

 ;;4748

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

 ;;4749

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

 ;;4750

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

 ;;4751

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

 ;;4752

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

 ;;4753

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

 ;;4754

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

 ;;4755

 ;;21,"58016-0339-18 ")

 ;;4756

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

 ;;4757

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

 ;;4758

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

 ;;4759

 ;;21,"58016-0356-21 ")

 ;;4760

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

 ;;4761

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

 ;;4762

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

 ;;4763

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

 ;;4764

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

 ;;4765

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

 ;;4766

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

 ;;4767

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

 ;;4768

 ;;21,"58016-0391-06 ")

 ;;4769

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

 ;;4770

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

 ;;4771

 ;;21,"58016-0391-18 ")

 ;;4772

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

 ;;4773

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

 ;;4774

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

 ;;4775

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

 ;;4776

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

 ;;4777

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

 ;;4778

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

 ;;4779

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

 ;;4780

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

 ;;4781

 ;;21,"58016-0453-21 ")

 ;;4782

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

 ;;4783

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

 ;;4784

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

 ;;4785

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

 ;;4786

 ;;21,"58016-0573-07 ")

 ;;4787

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

 ;;4788

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

 ;;4789

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

 ;;4790

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

 ;;4791

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

 ;;4792

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

 ;;4793

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

 ;;4794

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

 ;;4795

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

 ;;4796

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

 ;;4797

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

 ;;4798

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

 ;;4799

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

 ;;4800

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

 ;;4801

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

 ;;4802

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

 ;;4803

 ;;21,"58016-0643-09 ")

 ;;4804

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

 ;;4805

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

 ;;4806

 ;;21,"58016-0643-18 ")

 ;;4807

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

 ;;4808

 ;;21,"58016-0643-21 ")

 ;;4809

 ;;21,"58016-0643-24 ")

 ;;4810

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

 ;;4811

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

 ;;4812

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

 ;;4813

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

 ;;4814

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

 ;;4815

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

 ;;4816

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

 ;;4817

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

 ;;4818

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

 ;;4819

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

 ;;4820

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

 ;;4821

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

 ;;4822

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

 ;;4823

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

 ;;4824

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

 ;;4825

 ;;21,"58016-0872-18 ")

 ;;4826

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

 ;;4827

 ;;21,"58016-0872-24 ")

 ;;4828

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

 ;;4829

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

 ;;4830

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

 ;;4831

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

 ;;4832

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

 ;;4833

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

 ;;4834

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

 ;;4835

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

 ;;4836

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

 ;;4837

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

 ;;4838

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

 ;;4839

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

 ;;4840

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

 ;;4841

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

 ;;4842

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

 ;;4843

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

 ;;4844

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

 ;;4845

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

 ;;4846

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

 ;;4847

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

 ;;4848

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

 ;;4849

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

 ;;4850

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

 ;;4851

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

 ;;4852

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

 ;;4853

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

 ;;4854

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

 ;;4855

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

 ;;4856

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

 ;;4857

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

 ;;4858

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

 ;;4859

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

 ;;4860

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

 ;;4861

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

 ;;4862

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

 ;;4863

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

 ;;4864

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

 ;;4865

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

 ;;4866

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

 ;;4867

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

 ;;4868

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

 ;;4869

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

 ;;4870

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

 ;;4871

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

 ;;4872

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

 ;;4873

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

 ;;4874

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

 ;;4875

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

 ;;4876

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

 ;;4877

 ;;21,"58016-1018-06 ")

 ;;4878

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

 ;;4879

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

 ;;4880

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

 ;;4881

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

 ;;4882

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

 ;;4883

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

 ;;4884

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

 ;;4885

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

 ;;4886

 ;;21,"58016-1027-06 ")

 ;;4887

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

 ;;4888

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

 ;;4889

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

 ;;4890

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

 ;;4891

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

 ;;4892

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

 ;;4893

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

 ;;4894

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

 ;;4895

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

 ;;4896

 ;;21,"58016-1037-06 ")

 ;;4897

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

 ;;4898

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

 ;;4899

 ;;21,"58016-1039-06 ")

 ;;4900

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

 ;;4901

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

 ;;4902

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

 ;;4903

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

 ;;4904

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

 ;;4905

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

 ;;4906

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

 ;;4907

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

 ;;4908

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

 ;;4909

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

 ;;4910

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

 ;;4911

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

 ;;4912

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

 ;;4913

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

 ;;4914

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

 ;;4915

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

 ;;4916

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

 ;;4917

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

 ;;4918

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

 ;;4919

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

 ;;4920

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

 ;;4921

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

 ;;4922

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

 ;;4923

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

 ;;4924

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

 ;;4925

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

 ;;4926

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

 ;;4927

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

 ;;4928

 ;;21,"58664-0742-10 ")

 ;;4929

 ;;21,"58664-0742-15 ")

 ;;4930

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

 ;;4931

 ;;21,"58864-0029-40 ")

 ;;4932

 ;;21,"58864-0149-40 ")

 ;;4933

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

 ;;4934

 ;;21,"58864-0189-14 ")

 ;;4935

 ;;21,"58864-0189-20 ")

 ;;4936

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

 ;;4937

 ;;21,"58864-0190-14 ")

 ;;4938

 ;;21,"58864-0190-20 ")

 ;;4939

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

 ;;4940

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

 ;;4941

 ;;21,"58864-0199-40 ")

 ;;4942

 ;;21,"58864-0199-56 ")

 ;;4943

 ;;21,"58864-0379-40 ")

 ;;4944

 ;;21,"58864-0478-20 ")

 ;;4945

 ;;21,"58864-0493-40 ")

 ;;4946

 ;;21,"58864-0493-98 ")

 ;;4947

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

 ;;4948

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

 ;;4949

 ;;21,"58864-0675-40 ")

 ;;4950

 ;;21,"58864-0791-06 ")

 ;;4951

 ;;21,"59015-0459-01 ")

 ;;4952

 ;;21,"59015-0460-02 ")

 ;;4953

 ;;21,"59016-0134-10 ")

 ;;4954

 ;;21,"59016-0134-12 ")

 ;;4955

 ;;21,"59016-0134-14 ")

 ;;4956

 ;;21,"59016-0134-15 ")

 ;;4957

 ;;21,"59366-7338-01 ")

 ;;4958

 ;;21,"59366-7339-01 ")

 ;;4959

 ;;21,"59366-7340-05 ")

 ;;4960

 ;;21,"59439-0478-02 ")

 ;;4961

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

 ;;4962

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

 ;;4963

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

 ;;4964

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

 ;;4965

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

 ;;4966

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

 ;;4967

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

 ;;4968

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

 ;;4969

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

 ;;4970

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

 ;;4971

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

 ;;4972

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

 ;;4973

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

 ;;4974

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

 ;;4975

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

 ;;4976

 ;;21,"59772-0036-04 ")

 ;;4977

 ;;21,"59772-0147-02 ")

 ;;4978

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

 ;;4979

 ;;21,"59772-0170-10 ")

 ;;4980

 ;;21,"59772-0174-02 ")

 ;;4981

 ;;21,"59772-0174-20 ")

 ;;4982

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

 ;;4983

 ;;21,"59772-0802-02 ")

 ;;4984

 ;;21,"59772-0803-02 ")

 ;;4985

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

 ;;4986

 ;;21,"59772-0815-50 ")

 ;;4987

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

 ;;4988

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

 ;;4989

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

 ;;4990

 ;;21,"59772-6550-02 ")

 ;;4991

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

 ;;4992

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

 ;;4993

 ;;21,"59772-7271-02 ")

 ;;4994

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

 ;;4995

 ;;21,"59772-7271-04 ")

 ;;4996

 ;;21,"59772-7271-07 ")

 ;;4997

 ;;21,"59772-7490-02 ")

 ;;4998

 ;;21,"59772-7490-04 ")

 ;;4999

 ;;21,"59772-7491-04 ")

 ;;5000

 ;;21,"59772-7492-02 ")

 ;;5001

 ;;21,"59772-7492-04 ")

 ;;5002

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

 ;;5003

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

 ;;5004

 ;;21,"59772-7494-04 ")

 ;;5005

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

 ;;5006

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

 ;;5007

 ;;21,"59911-5869-01 ")

 ;;5008

 ;;21,"59911-5870-01 ")

 ;;5009

 ;;21,"59911-5883-04 ")

 ;;5010

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

 ;;5011

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

 ;;5012

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

 ;;5013

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

 ;;5014

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

 ;;5015

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

 ;;5016

 ;;21,"60346-0082-44 ")

 ;;5017

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

 ;;5018

 ;;21,"60346-0364-09 ")

 ;;5019

 ;;21,"60346-0364-15 ")

 ;;5020

 ;;21,"60346-0364-21 ")

 ;;5021

 ;;21,"60346-0364-44 ")

 ;;5022

 ;;21,"60346-0433-06 ")

 ;;5023

 ;;21,"60346-0433-10 ")

 ;;5024

 ;;21,"60346-0433-14 ")

 ;;5025

 ;;21,"60346-0433-15 ")

 ;;5026

 ;;21,"60346-0433-20 ")

 ;;5027

 ;;21,"60346-0433-44 ")

 ;;5028

 ;;21,"60346-0433-99 ")

 ;;5029

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

 ;;5030

 ;;21,"60346-0655-06 ")

 ;;5031

 ;;21,"60346-0655-10 ")

 ;;5032

 ;;21,"60346-0655-15 ")

 ;;5033

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

 ;;5034

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

 ;;5035

 ;;21,"60429-0023-40 ")

 ;;5036

 ;;21,"60429-0024-40 ")

 ;;5037

 ;;21,"60429-0036-40 ")

 ;;5038

 ;;21,"60429-0037-40 ")

 ;;5039

 ;;21,"60429-0059-40 ")

 ;;5040

BGP06A13  ;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       ;;21,"58016-0149-00 ")

 +2       ;;4655

 +3       ;;21,"58016-0149-07 ")

 +4       ;;4656

 +5       ;;21,"58016-0149-10 ")

 +6       ;;4657

 +7       ;;21,"58016-0149-20 ")

 +8       ;;4658

 +9       ;;21,"58016-0149-21 ")

 +10      ;;4659

 +11      ;;21,"58016-0149-24 ")

 +12      ;;4660

 +13      ;;21,"58016-0149-25 ")

 +14      ;;4661

 +15      ;;21,"58016-0149-28 ")

 +16      ;;4662

 +17      ;;21,"58016-0149-30 ")

 +18      ;;4663

 +19      ;;21,"58016-0149-40 ")

 +20      ;;4664

 +21      ;;21,"58016-0154-00 ")

 +22      ;;4665

 +23      ;;21,"58016-0154-10 ")

 +24      ;;4666

 +25      ;;21,"58016-0154-12 ")

 +26      ;;4667

 +27      ;;21,"58016-0154-14 ")

 +28      ;;4668

 +29      ;;21,"58016-0154-16 ")

 +30      ;;4669

 +31      ;;21,"58016-0154-18 ")

 +32      ;;4670

 +33      ;;21,"58016-0154-20 ")

 +34      ;;4671

 +35      ;;21,"58016-0154-24 ")

 +36      ;;4672

 +37      ;;21,"58016-0154-30 ")

 +38      ;;4673

 +39      ;;21,"58016-0154-36 ")

 +40      ;;4674

 +41      ;;21,"58016-0154-40 ")

 +42      ;;4675

 +43      ;;21,"58016-0155-00 ")

 +44      ;;4676

 +45      ;;21,"58016-0155-10 ")

 +46      ;;4677

 +47      ;;21,"58016-0155-12 ")

 +48      ;;4678

 +49      ;;21,"58016-0155-15 ")

 +50      ;;4679

 +51      ;;21,"58016-0155-16 ")

 +52      ;;4680

 +53      ;;21,"58016-0155-18 ")

 +54      ;;4681

 +55      ;;21,"58016-0155-20 ")

 +56      ;;4682

 +57      ;;21,"58016-0155-24 ")

 +58      ;;4683

 +59      ;;21,"58016-0155-28 ")

 +60      ;;4684

 +61      ;;21,"58016-0155-30 ")

 +62      ;;4685

 +63      ;;21,"58016-0155-36 ")

 +64      ;;4686

 +65      ;;21,"58016-0155-40 ")

 +66      ;;4687

 +67      ;;21,"58016-0156-00 ")

 +68      ;;4688

 +69      ;;21,"58016-0156-02 ")

 +70      ;;4689

 +71      ;;21,"58016-0156-03 ")

 +72      ;;4690

 +73      ;;21,"58016-0156-06 ")

 +74      ;;4691

 +75      ;;21,"58016-0156-07 ")

 +76      ;;4692

 +77      ;;21,"58016-0156-10 ")

 +78      ;;4693

 +79      ;;21,"58016-0156-12 ")

 +80      ;;4694

 +81      ;;21,"58016-0156-14 ")

 +82      ;;4695

 +83      ;;21,"58016-0156-15 ")

 +84      ;;4696

 +85      ;;21,"58016-0156-16 ")

 +86      ;;4697

 +87      ;;21,"58016-0156-20 ")

 +88      ;;4698

 +89      ;;21,"58016-0156-21 ")

 +90      ;;4699

 +91      ;;21,"58016-0156-24 ")

 +92      ;;4700

 +93      ;;21,"58016-0156-28 ")

 +94      ;;4701

 +95      ;;21,"58016-0156-30 ")

 +96      ;;4702

 +97      ;;21,"58016-0156-40 ")

 +98      ;;4703

 +99      ;;21,"58016-0156-60 ")

 +100     ;;4704

 +101     ;;21,"58016-0156-73 ")

 +102     ;;4705

 +103     ;;21,"58016-0156-89 ")

 +104     ;;4706

 +105     ;;21,"58016-0161-06 ")

 +106     ;;4707

 +107     ;;21,"58016-0161-10 ")

 +108     ;;4708

 +109     ;;21,"58016-0161-12 ")

 +110     ;;4709

 +111     ;;21,"58016-0161-14 ")

 +112     ;;4710

 +113     ;;21,"58016-0161-15 ")

 +114     ;;4711

 +115     ;;21,"58016-0161-16 ")

 +116     ;;4712

 +117     ;;21,"58016-0161-18 ")

 +118     ;;4713

 +119     ;;21,"58016-0161-20 ")

 +120     ;;4714

 +121     ;;21,"58016-0161-21 ")

 +122     ;;4715

 +123     ;;21,"58016-0161-24 ")

 +124     ;;4716

 +125     ;;21,"58016-0161-28 ")

 +126     ;;4717

 +127     ;;21,"58016-0161-30 ")

 +128     ;;4718

 +129     ;;21,"58016-0161-40 ")

 +130     ;;4719

 +131     ;;21,"58016-0161-50 ")

 +132     ;;4720

 +133     ;;21,"58016-0161-60 ")

 +134     ;;4721

 +135     ;;21,"58016-0162-28 ")

 +136     ;;4722

 +137     ;;21,"58016-0162-30 ")

 +138     ;;4723

 +139     ;;21,"58016-0162-40 ")

 +140     ;;4724

 +141     ;;21,"58016-0164-10 ")

 +142     ;;4725

 +143     ;;21,"58016-0164-20 ")

 +144     ;;4726

 +145     ;;21,"58016-0164-24 ")

 +146     ;;4727

 +147     ;;21,"58016-0164-30 ")

 +148     ;;4728

 +149     ;;21,"58016-0164-36 ")

 +150     ;;4729

 +151     ;;21,"58016-0164-40 ")

 +152     ;;4730

 +153     ;;21,"58016-0164-48 ")

 +154     ;;4731

 +155     ;;21,"58016-0167-00 ")

 +156     ;;4732

 +157     ;;21,"58016-0167-12 ")

 +158     ;;4733

 +159     ;;21,"58016-0167-15 ")

 +160     ;;4734

 +161     ;;21,"58016-0167-20 ")

 +162     ;;4735

 +163     ;;21,"58016-0167-30 ")

 +164     ;;4736

 +165     ;;21,"58016-0167-40 ")

 +166     ;;4737

 +167     ;;21,"58016-0171-20 ")

 +168     ;;4738

 +169     ;;21,"58016-0171-30 ")

 +170     ;;4739

 +171     ;;21,"58016-0175-30 ")

 +172     ;;4740

 +173     ;;21,"58016-0175-40 ")

 +174     ;;4741

 +175     ;;21,"58016-0176-40 ")

 +176     ;;4742

 +177     ;;21,"58016-0184-00 ")

 +178     ;;4743

 +179     ;;21,"58016-0184-12 ")

 +180     ;;4744

 +181     ;;21,"58016-0184-15 ")

 +182     ;;4745

 +183     ;;21,"58016-0184-18 ")

 +184     ;;4746

 +185     ;;21,"58016-0184-24 ")

 +186     ;;4747

 +187     ;;21,"58016-0184-30 ")

 +188     ;;4748

 +189     ;;21,"58016-0184-40 ")

 +190     ;;4749

 +191     ;;21,"58016-0284-15 ")

 +192     ;;4750

 +193     ;;21,"58016-0284-20 ")

 +194     ;;4751

 +195     ;;21,"58016-0284-30 ")

 +196     ;;4752

 +197     ;;21,"58016-0284-50 ")

 +198     ;;4753

 +199     ;;21,"58016-0339-12 ")

 +200     ;;4754

 +201     ;;21,"58016-0339-15 ")

 +202     ;;4755

 +203     ;;21,"58016-0339-18 ")

 +204     ;;4756

 +205     ;;21,"58016-0339-20 ")

 +206     ;;4757

 +207     ;;21,"58016-0339-30 ")

 +208     ;;4758

 +209     ;;21,"58016-0356-00 ")

 +210     ;;4759

 +211     ;;21,"58016-0356-21 ")

 +212     ;;4760

 +213     ;;21,"58016-0356-30 ")

 +214     ;;4761

 +215     ;;21,"58016-0356-60 ")

 +216     ;;4762

 +217     ;;21,"58016-0356-90 ")

 +218     ;;4763

 +219     ;;21,"58016-0362-40 ")

 +220     ;;4764

 +221     ;;21,"58016-0373-20 ")

 +222     ;;4765

 +223     ;;21,"58016-0373-40 ")

 +224     ;;4766

 +225     ;;21,"58016-0391-00 ")

 +226     ;;4767

 +227     ;;21,"58016-0391-01 ")

 +228     ;;4768

 +229     ;;21,"58016-0391-06 ")

 +230     ;;4769

 +231     ;;21,"58016-0391-10 ")

 +232     ;;4770

 +233     ;;21,"58016-0391-15 ")

 +234     ;;4771

 +235     ;;21,"58016-0391-18 ")

 +236     ;;4772

 +237     ;;21,"58016-0391-20 ")

 +238     ;;4773

 +239     ;;21,"58016-0391-28 ")

 +240     ;;4774

 +241     ;;21,"58016-0391-30 ")

 +242     ;;4775

 +243     ;;21,"58016-0391-60 ")

 +244     ;;4776

 +245     ;;21,"58016-0391-90 ")

 +246     ;;4777

 +247     ;;21,"58016-0453-00 ")

 +248     ;;4778

 +249     ;;21,"58016-0453-12 ")

 +250     ;;4779

 +251     ;;21,"58016-0453-15 ")

 +252     ;;4780

 +253     ;;21,"58016-0453-20 ")

 +254     ;;4781

 +255     ;;21,"58016-0453-21 ")

 +256     ;;4782

 +257     ;;21,"58016-0453-30 ")

 +258     ;;4783

 +259     ;;21,"58016-0453-40 ")

 +260     ;;4784

 +261     ;;21,"58016-0512-20 ")

 +262     ;;4785

 +263     ;;21,"58016-0573-00 ")

 +264     ;;4786

 +265     ;;21,"58016-0573-07 ")

 +266     ;;4787

 +267     ;;21,"58016-0573-10 ")

 +268     ;;4788

 +269     ;;21,"58016-0573-20 ")

 +270     ;;4789

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

 +272     ;;4790

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

 +274     ;;4791

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

 +276     ;;4792

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

 +278     ;;4793

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

 +280     ;;4794

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

 +282     ;;4795

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

 +284     ;;4796

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

 +286     ;;4797

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

 +288     ;;4798

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

 +290     ;;4799

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

 +292     ;;4800

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

 +294     ;;4801

 +295     ;;21,"58016-0643-02 ")

 +296     ;;4802

 +297     ;;21,"58016-0643-04 ")

 +298     ;;4803

 +299     ;;21,"58016-0643-09 ")

 +300     ;;4804

 +301     ;;21,"58016-0643-12 ")

 +302     ;;4805

 +303     ;;21,"58016-0643-15 ")

 +304     ;;4806

 +305     ;;21,"58016-0643-18 ")

 +306     ;;4807

 +307     ;;21,"58016-0643-20 ")

 +308     ;;4808

 +309     ;;21,"58016-0643-21 ")

 +310     ;;4809

 +311     ;;21,"58016-0643-24 ")

 +312     ;;4810

 +313     ;;21,"58016-0643-30 ")

 +314     ;;4811

 +315     ;;21,"58016-0643-40 ")

 +316     ;;4812

 +317     ;;21,"58016-0643-50 ")

 +318     ;;4813

 +319     ;;21,"58016-0643-60 ")

 +320     ;;4814

 +321     ;;21,"58016-0643-89 ")

 +322     ;;4815

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

 +324     ;;4816

 +325     ;;21,"58016-0643-99 ")

 +326     ;;4817

 +327     ;;21,"58016-0663-20 ")

 +328     ;;4818

 +329     ;;21,"58016-0810-00 ")

 +330     ;;4819

 +331     ;;21,"58016-0810-12 ")

 +332     ;;4820

 +333     ;;21,"58016-0810-15 ")

 +334     ;;4821

 +335     ;;21,"58016-0810-30 ")

 +336     ;;4822

 +337     ;;21,"58016-0810-60 ")

 +338     ;;4823

 +339     ;;21,"58016-0872-12 ")

 +340     ;;4824

 +341     ;;21,"58016-0872-15 ")

 +342     ;;4825

 +343     ;;21,"58016-0872-18 ")

 +344     ;;4826

 +345     ;;21,"58016-0872-20 ")

 +346     ;;4827

 +347     ;;21,"58016-0872-24 ")

 +348     ;;4828

 +349     ;;21,"58016-0872-30 ")

 +350     ;;4829

 +351     ;;21,"58016-0873-00 ")

 +352     ;;4830

 +353     ;;21,"58016-0873-15 ")

 +354     ;;4831

 +355     ;;21,"58016-0873-20 ")

 +356     ;;4832

 +357     ;;21,"58016-0873-30 ")

 +358     ;;4833

 +359     ;;21,"58016-0924-00 ")

 +360     ;;4834

 +361     ;;21,"58016-0924-30 ")

 +362     ;;4835

 +363     ;;21,"58016-0924-60 ")

 +364     ;;4836

 +365     ;;21,"58016-0924-90 ")

 +366     ;;4837

 +367     ;;21,"58016-0953-00 ")

 +368     ;;4838

 +369     ;;21,"58016-0953-02 ")

 +370     ;;4839

 +371     ;;21,"58016-0953-10 ")

 +372     ;;4840

 +373     ;;21,"58016-0953-12 ")

 +374     ;;4841

 +375     ;;21,"58016-0953-15 ")

 +376     ;;4842

 +377     ;;21,"58016-0953-20 ")

 +378     ;;4843

 +379     ;;21,"58016-0953-30 ")

 +380     ;;4844

 +381     ;;21,"58016-0953-60 ")

 +382     ;;4845

 +383     ;;21,"58016-0953-90 ")

 +384     ;;4846

 +385     ;;21,"58016-0955-00 ")

 +386     ;;4847

 +387     ;;21,"58016-0955-30 ")

 +388     ;;4848

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

 +390     ;;4849

 +391     ;;21,"58016-0955-90 ")

 +392     ;;4850

 +393     ;;21,"58016-0957-00 ")

 +394     ;;4851

 +395     ;;21,"58016-0957-02 ")

 +396     ;;4852

 +397     ;;21,"58016-0957-10 ")

 +398     ;;4853

 +399     ;;21,"58016-0957-12 ")

 +400     ;;4854

 +401     ;;21,"58016-0957-15 ")

 +402     ;;4855

 +403     ;;21,"58016-0957-20 ")

 +404     ;;4856

 +405     ;;21,"58016-0957-30 ")

 +406     ;;4857

 +407     ;;21,"58016-0957-60 ")

 +408     ;;4858

 +409     ;;21,"58016-0957-90 ")

 +410     ;;4859

 +411     ;;21,"58016-0975-00 ")

 +412     ;;4860

 +413     ;;21,"58016-0975-30 ")

 +414     ;;4861

 +415     ;;21,"58016-0975-60 ")

 +416     ;;4862

 +417     ;;21,"58016-0975-90 ")

 +418     ;;4863

 +419     ;;21,"58016-1000-01 ")

 +420     ;;4864

 +421     ;;21,"58016-1002-01 ")

 +422     ;;4865

 +423     ;;21,"58016-1002-20 ")

 +424     ;;4866

 +425     ;;21,"58016-1003-01 ")

 +426     ;;4867

 +427     ;;21,"58016-1004-01 ")

 +428     ;;4868

 +429     ;;21,"58016-1005-01 ")

 +430     ;;4869

 +431     ;;21,"58016-1006-01 ")

 +432     ;;4870

 +433     ;;21,"58016-1006-05 ")

 +434     ;;4871

 +435     ;;21,"58016-1007-01 ")

 +436     ;;4872

 +437     ;;21,"58016-1009-03 ")

 +438     ;;4873

 +439     ;;21,"58016-1011-01 ")

 +440     ;;4874

 +441     ;;21,"58016-1017-01 ")

 +442     ;;4875

 +443     ;;21,"58016-1017-03 ")

 +444     ;;4876

 +445     ;;21,"58016-1018-01 ")

 +446     ;;4877

 +447     ;;21,"58016-1018-06 ")

 +448     ;;4878

 +449     ;;21,"58016-1019-01 ")

 +450     ;;4879

 +451     ;;21,"58016-1021-01 ")

 +452     ;;4880

 +453     ;;21,"58016-1023-01 ")

 +454     ;;4881

 +455     ;;21,"58016-1023-03 ")

 +456     ;;4882

 +457     ;;21,"58016-1024-01 ")

 +458     ;;4883

 +459     ;;21,"58016-1025-01 ")

 +460     ;;4884

 +461     ;;21,"58016-1026-01 ")

 +462     ;;4885

 +463     ;;21,"58016-1027-01 ")

 +464     ;;4886

 +465     ;;21,"58016-1027-06 ")

 +466     ;;4887

 +467     ;;21,"58016-1028-01 ")

 +468     ;;4888

 +469     ;;21,"58016-1029-01 ")

 +470     ;;4889

 +471     ;;21,"58016-1031-01 ")

 +472     ;;4890

 +473     ;;21,"58016-1032-01 ")

 +474     ;;4891

 +475     ;;21,"58016-1033-01 ")

 +476     ;;4892

 +477     ;;21,"58016-1034-01 ")

 +478     ;;4893

 +479     ;;21,"58016-1035-01 ")

 +480     ;;4894

 +481     ;;21,"58016-1036-01 ")

 +482     ;;4895

 +483     ;;21,"58016-1037-01 ")

 +484     ;;4896

 +485     ;;21,"58016-1037-06 ")

 +486     ;;4897

 +487     ;;21,"58016-1038-01 ")

 +488     ;;4898

 +489     ;;21,"58016-1039-01 ")

 +490     ;;4899

 +491     ;;21,"58016-1039-06 ")

 +492     ;;4900

 +493     ;;21,"58016-1045-01 ")

 +494     ;;4901

 +495     ;;21,"58016-1046-01 ")

 +496     ;;4902

 +497     ;;21,"58016-1056-01 ")

 +498     ;;4903

 +499     ;;21,"58016-1058-01 ")

 +500     ;;4904

 +501     ;;21,"58016-1062-01 ")

 +502     ;;4905

 +503     ;;21,"58016-4113-01 ")

 +504     ;;4906

 +505     ;;21,"58016-4114-01 ")

 +506     ;;4907

 +507     ;;21,"58016-4147-01 ")

 +508     ;;4908

 +509     ;;21,"58016-4148-01 ")

 +510     ;;4909

 +511     ;;21,"58016-4192-01 ")

 +512     ;;4910

 +513     ;;21,"58016-4192-05 ")

 +514     ;;4911

 +515     ;;21,"58016-4193-01 ")

 +516     ;;4912

 +517     ;;21,"58016-4193-05 ")

 +518     ;;4913

 +519     ;;21,"58016-4786-01 ")

 +520     ;;4914

 +521     ;;21,"58016-4790-01 ")

 +522     ;;4915

 +523     ;;21,"58016-4804-01 ")

 +524     ;;4916

 +525     ;;21,"58016-4807-01 ")

 +526     ;;4917

 +527     ;;21,"58016-4808-01 ")

 +528     ;;4918

 +529     ;;21,"58016-4814-01 ")

 +530     ;;4919

 +531     ;;21,"58016-4834-01 ")

 +532     ;;4920

 +533     ;;21,"58016-4842-01 ")

 +534     ;;4921

 +535     ;;21,"58016-4847-01 ")

 +536     ;;4922

 +537     ;;21,"58016-4869-01 ")

 +538     ;;4923

 +539     ;;21,"58016-4873-01 ")

 +540     ;;4924

 +541     ;;21,"58016-4990-01 ")

 +542     ;;4925

 +543     ;;21,"58016-9438-01 ")

 +544     ;;4926