BGP33J16.m

BGP33J16 ;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,"61553-0014-73 ")

 ;;5813

 ;;21,"61553-0048-72 ")

 ;;5814

 ;;21,"61553-0211-48 ")

 ;;5815

 ;;21,"61553-0216-48 ")

 ;;5816

 ;;21,"61570-0050-11 ")

 ;;5817

 ;;21,"61570-0052-01 ")

 ;;5818

 ;;21,"61570-0053-01 ")

 ;;5819

 ;;21,"61570-0053-05 ")

 ;;5820

 ;;21,"61570-0053-20 ")

 ;;5821

 ;;21,"61570-0054-10 ")

 ;;5822

 ;;21,"61570-0055-10 ")

 ;;5823

 ;;21,"61570-0056-10 ")

 ;;5824

 ;;21,"61748-0111-14 ")

 ;;5825

 ;;21,"61971-0120-05 ")

 ;;5826

 ;;21,"62037-0777-60 ")

 ;;5827

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

 ;;5828

 ;;21,"62436-0729-03 ")

 ;;5829

 ;;21,"62436-0729-04 ")

 ;;5830

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

 ;;5831

 ;;21,"62436-0730-05 ")

 ;;5832

 ;;21,"62584-0235-01 ")

 ;;5833

 ;;21,"62584-0235-11 ")

 ;;5834

 ;;21,"62584-0236-01 ")

 ;;5835

 ;;21,"62584-0236-11 ")

 ;;5836

 ;;21,"62584-0237-01 ")

 ;;5837

 ;;21,"62584-0237-11 ")

 ;;5838

 ;;21,"62584-0238-01 ")

 ;;5839

 ;;21,"62584-0238-11 ")

 ;;5840

 ;;21,"62584-0338-01 ")

 ;;5841

 ;;21,"62584-0338-11 ")

 ;;5842

 ;;21,"62584-0693-01 ")

 ;;5843

 ;;21,"62584-0693-11 ")

 ;;5844

 ;;21,"62584-0856-01 ")

 ;;5845

 ;;21,"62584-0856-11 ")

 ;;5846

 ;;21,"62584-0857-01 ")

 ;;5847

 ;;21,"62584-0857-11 ")

 ;;5848

 ;;21,"62756-0293-13 ")

 ;;5849

 ;;21,"62756-0293-88 ")

 ;;5850

 ;;21,"62756-0294-13 ")

 ;;5851

 ;;21,"62756-0294-88 ")

 ;;5852

 ;;21,"63304-0131-01 ")

 ;;5853

 ;;21,"63304-0132-04 ")

 ;;5854

 ;;21,"63304-0132-50 ")

 ;;5855

 ;;21,"63304-0148-01 ")

 ;;5856

 ;;21,"63304-0149-01 ")

 ;;5857

 ;;21,"63304-0149-50 ")

 ;;5858

 ;;21,"63304-0173-30 ")

 ;;5859

 ;;21,"63304-0509-01 ")

 ;;5860

 ;;21,"63304-0509-20 ")

 ;;5861

 ;;21,"63304-0512-50 ")

 ;;5862

 ;;21,"63304-0515-01 ")

 ;;5863

 ;;21,"63304-0515-04 ")

 ;;5864

 ;;21,"63304-0520-20 ")

 ;;5865

 ;;21,"63304-0521-01 ")

 ;;5866

 ;;21,"63304-0521-20 ")

 ;;5867

 ;;21,"63304-0582-01 ")

 ;;5868

 ;;21,"63304-0582-50 ")

 ;;5869

 ;;21,"63304-0615-01 ")

 ;;5870

 ;;21,"63304-0654-01 ")

 ;;5871

 ;;21,"63304-0655-01 ")

 ;;5872

 ;;21,"63304-0655-05 ")

 ;;5873

 ;;21,"63304-0656-01 ")

 ;;5874

 ;;21,"63304-0656-05 ")

 ;;5875

 ;;21,"63304-0657-01 ")

 ;;5876

 ;;21,"63304-0657-05 ")

 ;;5877

 ;;21,"63304-0658-01 ")

 ;;5878

 ;;21,"63304-0659-01 ")

 ;;5879

 ;;21,"63304-0692-01 ")

 ;;5880

 ;;21,"63304-0692-05 ")

 ;;5881

 ;;21,"63304-0693-01 ")

 ;;5882

 ;;21,"63304-0693-16 ")

 ;;5883

 ;;21,"63304-0694-01 ")

 ;;5884

 ;;21,"63304-0695-01 ")

 ;;5885

 ;;21,"63304-0696-05 ")

 ;;5886

 ;;21,"63304-0696-50 ")

 ;;5887

 ;;21,"63304-0697-01 ")

 ;;5888

 ;;21,"63304-0698-01 ")

 ;;5889

 ;;21,"63304-0699-50 ")

 ;;5890

 ;;21,"63304-0709-01 ")

 ;;5891

 ;;21,"63304-0710-01 ")

 ;;5892

 ;;21,"63304-0711-01 ")

 ;;5893

 ;;21,"63304-0711-50 ")

 ;;5894

 ;;21,"63304-0713-20 ")

 ;;5895

 ;;21,"63304-0715-50 ")

 ;;5896

 ;;21,"63304-0716-50 ")

 ;;5897

 ;;21,"63304-0717-01 ")

 ;;5898

 ;;21,"63304-0725-01 ")

 ;;5899

 ;;21,"63304-0725-60 ")

 ;;5900

 ;;21,"63304-0726-01 ")

 ;;5901

 ;;21,"63304-0726-60 ")

 ;;5902

 ;;21,"63304-0751-20 ")

 ;;5903

 ;;21,"63304-0751-60 ")

 ;;5904

 ;;21,"63304-0752-20 ")

 ;;5905

 ;;21,"63304-0752-60 ")

 ;;5906

 ;;21,"63304-0753-20 ")

 ;;5907

 ;;21,"63304-0754-20 ")

 ;;5908

 ;;21,"63304-0760-20 ")

 ;;5909

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

 ;;5910

 ;;21,"63304-0761-20 ")

 ;;5911

 ;;21,"63304-0762-20 ")

 ;;5912

 ;;21,"63304-0763-01 ")

 ;;5913

 ;;21,"63304-0763-05 ")

 ;;5914

 ;;21,"63304-0763-20 ")

 ;;5915

 ;;21,"63304-0768-01 ")

 ;;5916

 ;;21,"63304-0768-02 ")

 ;;5917

 ;;21,"63304-0768-07 ")

 ;;5918

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

 ;;5919

 ;;21,"63304-0821-04 ")

 ;;5920

 ;;21,"63304-0822-03 ")

 ;;5921

 ;;21,"63304-0822-04 ")

 ;;5922

 ;;21,"63304-0940-25 ")

 ;;5923

 ;;21,"63304-0941-10 ")

 ;;5924

 ;;21,"63304-0946-25 ")

 ;;5925

 ;;21,"63304-0947-25 ")

 ;;5926

 ;;21,"63304-0948-10 ")

 ;;5927

 ;;21,"63304-0954-01 ")

 ;;5928

 ;;21,"63304-0954-02 ")

 ;;5929

 ;;21,"63304-0956-01 ")

 ;;5930

 ;;21,"63304-0956-02 ")

 ;;5931

 ;;21,"63304-0957-03 ")

 ;;5932

 ;;21,"63304-0957-04 ")

 ;;5933

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

 ;;5934

 ;;21,"63304-0958-02 ")

 ;;5935

 ;;21,"63304-0959-01 ")

 ;;5936

 ;;21,"63304-0959-02 ")

 ;;5937

 ;;21,"63304-0960-01 ")

 ;;5938

 ;;21,"63304-0960-03 ")

 ;;5939

 ;;21,"63304-0960-04 ")

 ;;5940

 ;;21,"63304-0961-01 ")

 ;;5941

 ;;21,"63304-0961-03 ")

 ;;5942

 ;;21,"63304-0961-04 ")

 ;;5943

 ;;21,"63304-0963-04 ")

 ;;5944

 ;;21,"63304-0964-03 ")

 ;;5945

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

 ;;5946

 ;;21,"63304-0965-03 ")

 ;;5947

 ;;21,"63304-0965-04 ")

 ;;5948

 ;;21,"63304-0966-03 ")

 ;;5949

 ;;21,"63304-0966-04 ")

 ;;5950

 ;;21,"63304-0969-01 ")

 ;;5951

 ;;21,"63304-0969-03 ")

 ;;5952

 ;;21,"63304-0969-04 ")

 ;;5953

 ;;21,"63304-0970-01 ")

 ;;5954

 ;;21,"63304-0970-03 ")

 ;;5955

 ;;21,"63304-0970-04 ")

 ;;5956

 ;;21,"63304-0973-04 ")

 ;;5957

 ;;21,"63304-0974-01 ")

 ;;5958

 ;;21,"63304-0974-04 ")

 ;;5959

 ;;21,"63304-0977-01 ")

 ;;5960

 ;;21,"63304-0977-03 ")

 ;;5961

 ;;21,"63304-0977-04 ")

 ;;5962

 ;;21,"63304-0979-01 ")

 ;;5963

 ;;21,"63304-0979-03 ")

 ;;5964

 ;;21,"63304-0979-04 ")

 ;;5965

 ;;21,"63304-9070-04 ")

 ;;5966

 ;;21,"63323-0130-11 ")

 ;;5967

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

 ;;5968

 ;;21,"63323-0237-10 ")

 ;;5969

 ;;21,"63323-0238-61 ")

 ;;5970

 ;;21,"63323-0282-02 ")

 ;;5971

 ;;21,"63323-0282-04 ")

 ;;5972

 ;;21,"63323-0282-06 ")

 ;;5973

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

 ;;5974

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

 ;;5975

 ;;21,"63323-0344-10 ")

 ;;5976

 ;;21,"63323-0345-10 ")

 ;;5977

 ;;21,"63323-0346-10 ")

 ;;5978

 ;;21,"63323-0347-20 ")

 ;;5979

 ;;21,"63323-0348-61 ")

 ;;5980

 ;;21,"63323-0352-10 ")

 ;;5981

 ;;21,"63323-0352-45 ")

 ;;5982

 ;;21,"63323-0353-20 ")

 ;;5983

 ;;21,"63323-0353-45 ")

 ;;5984

 ;;21,"63323-0354-45 ")

 ;;5985

 ;;21,"63323-0354-61 ")

 ;;5986

 ;;21,"63323-0387-10 ")

 ;;5987

 ;;21,"63323-0388-10 ")

 ;;5988

 ;;21,"63323-0389-10 ")

 ;;5989

 ;;21,"63323-0398-10 ")

 ;;5990

 ;;21,"63323-0398-12 ")

 ;;5991

 ;;21,"63323-0399-23 ")

 ;;5992

 ;;21,"63323-0446-61 ")

 ;;5993

 ;;21,"63323-0446-66 ")

 ;;5994

 ;;21,"63629-1236-00 ")

 ;;5995

 ;;21,"63629-1236-01 ")

 ;;5996

 ;;21,"63629-1236-02 ")

 ;;5997

 ;;21,"63629-1236-03 ")

 ;;5998

 ;;21,"63629-1236-04 ")

 ;;5999

 ;;21,"63629-1236-05 ")

 ;;6000

 ;;21,"63629-1236-06 ")

 ;;6001

 ;;21,"63629-1236-07 ")

 ;;6002

 ;;21,"63629-1236-08 ")

 ;;6003

 ;;21,"63629-1248-01 ")

 ;;6004

 ;;21,"63629-1248-02 ")

 ;;6005

 ;;21,"63629-1248-03 ")

 ;;6006

 ;;21,"63629-1257-01 ")

 ;;6007

 ;;21,"63629-1257-02 ")

 ;;6008

 ;;21,"63629-1257-03 ")

 ;;6009

 ;;21,"63629-1284-01 ")

 ;;6010

 ;;21,"63629-1305-01 ")

 ;;6011

 ;;21,"63629-1305-02 ")

 ;;6012

 ;;21,"63629-1305-03 ")

 ;;6013

 ;;21,"63629-1317-01 ")

 ;;6014

 ;;21,"63629-1317-02 ")

 ;;6015

 ;;21,"63629-1317-03 ")

 ;;6016

 ;;21,"63629-1317-04 ")

 ;;6017

 ;;21,"63629-1317-05 ")

 ;;6018

 ;;21,"63629-1319-01 ")

 ;;6019

 ;;21,"63629-1319-02 ")

 ;;6020

 ;;21,"63629-1319-03 ")

 ;;6021

 ;;21,"63629-1319-04 ")

 ;;6022

 ;;21,"63629-1319-05 ")

 ;;6023

 ;;21,"63629-1319-06 ")

 ;;6024

 ;;21,"63629-1319-07 ")

 ;;6025

 ;;21,"63629-1319-08 ")

 ;;6026

 ;;21,"63629-1320-01 ")

 ;;6027

 ;;21,"63629-1320-02 ")

 ;;6028

 ;;21,"63629-1320-03 ")

 ;;6029

 ;;21,"63629-1320-04 ")

 ;;6030

 ;;21,"63629-1321-01 ")

 ;;6031

 ;;21,"63629-1326-01 ")

 ;;6032

 ;;21,"63629-1326-02 ")

 ;;6033

 ;;21,"63629-1350-01 ")

 ;;6034

 ;;21,"63629-1350-02 ")

 ;;6035

 ;;21,"63629-1350-03 ")

 ;;6036

 ;;21,"63629-1351-01 ")

 ;;6037

 ;;21,"63629-1351-02 ")

 ;;6038

 ;;21,"63629-1351-03 ")

 ;;6039

 ;;21,"63629-1357-01 ")

 ;;6040

 ;;21,"63629-1357-02 ")

 ;;6041

 ;;21,"63629-1357-03 ")

 ;;6042

 ;;21,"63629-1358-01 ")

 ;;6043

 ;;21,"63629-1358-02 ")

 ;;6044

 ;;21,"63629-1374-01 ")

 ;;6045

 ;;21,"63629-1374-02 ")

 ;;6046

 ;;21,"63629-1374-03 ")

 ;;6047

 ;;21,"63629-1374-04 ")

 ;;6048

 ;;21,"63629-1490-01 ")

 ;;6049

 ;;21,"63629-1490-02 ")

 ;;6050

 ;;21,"63629-1490-03 ")

 ;;6051

 ;;21,"63629-1490-04 ")

 ;;6052

 ;;21,"63629-1501-01 ")

 ;;6053

 ;;21,"63629-1501-02 ")

 ;;6054

 ;;21,"63629-1501-03 ")

 ;;6055

 ;;21,"63629-1501-04 ")

 ;;6056

 ;;21,"63629-1502-01 ")

 ;;6057

 ;;21,"63629-1502-02 ")

 ;;6058

 ;;21,"63629-1502-03 ")

 ;;6059

 ;;21,"63629-1502-04 ")

 ;;6060

 ;;21,"63629-1531-01 ")

 ;;6061

 ;;21,"63629-1531-02 ")

 ;;6062

 ;;21,"63629-1531-03 ")

 ;;6063

 ;;21,"63629-1531-04 ")

 ;;6064

 ;;21,"63629-1531-05 ")

 ;;6065

 ;;21,"63629-1614-01 ")

 ;;6066

 ;;21,"63629-1614-02 ")

 ;;6067

 ;;21,"63629-1614-03 ")

 ;;6068

 ;;21,"63629-1615-01 ")

 ;;6069

 ;;21,"63629-1615-02 ")

 ;;6070

 ;;21,"63629-1615-03 ")

 ;;6071

 ;;21,"63629-1615-04 ")

 ;;6072

 ;;21,"63629-1615-05 ")

 ;;6073

 ;;21,"63629-1724-01 ")

 ;;6074

 ;;21,"63629-1724-02 ")

 ;;6075

 ;;21,"63629-1724-03 ")

 ;;6076

 ;;21,"63629-1724-04 ")

 ;;6077

 ;;21,"63629-1724-05 ")

 ;;6078

 ;;21,"63629-1724-06 ")

 ;;6079

 ;;21,"63629-1759-01 ")

 ;;6080

 ;;21,"63629-1759-02 ")

 ;;6081

 ;;21,"63629-1759-03 ")

 ;;6082

 ;;21,"63629-1759-04 ")

 ;;6083

 ;;21,"63629-1759-05 ")

 ;;6084

 ;;21,"63629-1765-01 ")

 ;;6085

 ;;21,"63629-1834-01 ")

 ;;6086

 ;;21,"63629-1834-02 ")

 ;;6087

 ;;21,"63629-1834-03 ")

 ;;6088

 ;;21,"63629-1835-01 ")

 ;;6089

 ;;21,"63629-1835-02 ")

 ;;6090

 ;;21,"63629-2609-01 ")

 ;;6091

 ;;21,"63629-2609-02 ")

 ;;6092

 ;;21,"63629-2609-03 ")

 ;;6093

 ;;21,"63629-2610-01 ")

 ;;6094

 ;;21,"63629-2610-02 ")

 ;;6095

 ;;21,"63629-2610-03 ")

 ;;6096

 ;;21,"63629-2685-01 ")

 ;;6097

 ;;21,"63629-2685-02 ")

 ;;6098

 ;;21,"63629-2738-01 ")

 ;;6099

 ;;21,"63629-2738-02 ")

 ;;6100

 ;;21,"63629-2755-01 ")

 ;;6101

 ;;21,"63629-2755-02 ")

 ;;6102

 ;;21,"63629-2817-01 ")

 ;;6103

 ;;21,"63629-2817-02 ")

 ;;6104

 ;;21,"63629-2817-03 ")

 ;;6105

 ;;21,"63629-2817-04 ")

 ;;6106

 ;;21,"63629-2871-01 ")

 ;;6107

 ;;21,"63629-2887-01 ")

 ;;6108

 ;;21,"63629-2887-02 ")

 ;;6109

 ;;21,"63629-2895-01 ")

 ;;6110

 ;;21,"63629-2924-01 ")

 ;;6111

 ;;21,"63629-2924-02 ")

 ;;6112

 ;;21,"63629-2938-01 ")

 ;;6113

 ;;21,"63629-2940-01 ")

 ;;6114

 ;;21,"63629-3057-01 ")

 ;;6115

 ;;21,"63629-3189-01 ")

 ;;6116

 ;;21,"63739-0059-10 ")

 ;;6117

 ;;21,"63739-0228-10 ")

 ;;6118

 ;;21,"63739-0400-10 ")

 ;;6119

 ;;21,"63739-0427-10 ")

 ;;6120

 ;;21,"63739-0559-10 ")

 ;;6121

 ;;21,"63739-0575-10 ")

 ;;6122

 ;;21,"63874-0101-01 ")

 ;;6123

 ;;21,"63874-0101-03 ")

 ;;6124

 ;;21,"63874-0101-05 ")

 ;;6125

 ;;21,"63874-0101-09 ")

 ;;6126

 ;;21,"63874-0101-15 ")

 ;;6127

 ;;21,"63874-0101-18 ")

 ;;6128

 ;;21,"63874-0101-20 ")

 ;;6129

 ;;21,"63874-0101-21 ")

 ;;6130

 ;;21,"63874-0101-24 ")

 ;;6131

 ;;21,"63874-0101-28 ")

 ;;6132

 ;;21,"63874-0101-30 ")

 ;;6133

 ;;21,"63874-0101-40 ")

 ;;6134

 ;;21,"63874-0101-45 ")

 ;;6135

 ;;21,"63874-0101-50 ")

 ;;6136

 ;;21,"63874-0102-01 ")

 ;;6137

 ;;21,"63874-0102-03 ")

 ;;6138

 ;;21,"63874-0102-04 ")

 ;;6139

 ;;21,"63874-0102-05 ")

 ;;6140

 ;;21,"63874-0102-09 ")

 ;;6141

 ;;21,"63874-0102-10 ")

 ;;6142

 ;;21,"63874-0102-12 ")

 ;;6143

 ;;21,"63874-0102-14 ")

 ;;6144

 ;;21,"63874-0102-15 ")

 ;;6145

 ;;21,"63874-0102-18 ")

 ;;6146

 ;;21,"63874-0102-20 ")

 ;;6147

 ;;21,"63874-0102-21 ")

 ;;6148

 ;;21,"63874-0102-24 ")

 ;;6149

 ;;21,"63874-0102-28 ")

 ;;6150

 ;;21,"63874-0102-30 ")

 ;;6151

 ;;21,"63874-0102-40 ")

 ;;6152

 ;;21,"63874-0102-45 ")

 ;;6153

 ;;21,"63874-0102-50 ")

 ;;6154

 ;;21,"63874-0103-01 ")

 ;;6155

 ;;21,"63874-0103-21 ")

 ;;6156

 ;;21,"63874-0103-30 ")

 ;;6157

 ;;21,"63874-0107-01 ")

 ;;6158

 ;;21,"63874-0107-02 ")

 ;;6159

 ;;21,"63874-0107-04 ")

 ;;6160

 ;;21,"63874-0107-06 ")

 ;;6161

 ;;21,"63874-0107-08 ")

 ;;6162

 ;;21,"63874-0107-09 ")

 ;;6163

 ;;21,"63874-0107-10 ")

 ;;6164

 ;;21,"63874-0107-12 ")

 ;;6165

 ;;21,"63874-0107-14 ")

 ;;6166

 ;;21,"63874-0107-15 ")

 ;;6167

 ;;21,"63874-0107-16 ")

 ;;6168

 ;;21,"63874-0107-20 ")

 ;;6169

 ;;21,"63874-0107-28 ")

 ;;6170

 ;;21,"63874-0107-30 ")

 ;;6171

 ;;21,"63874-0107-40 ")

 ;;6172

 ;;21,"63874-0107-50 ")

 ;;6173

 ;;21,"63874-0107-60 ")

 ;;6174

 ;;21,"63874-0107-90 ")

 ;;6175

 ;;21,"63874-0108-01 ")

 ;;6176

 ;;21,"63874-0108-10 ")

 ;;6177

 ;;21,"63874-0108-12 ")

 ;;6178

 ;;21,"63874-0108-14 ")

 ;;6179

 ;;21,"63874-0108-15 ")

 ;;6180

 ;;21,"63874-0108-18 ")

 ;;6181

 ;;21,"63874-0108-20 ")

 ;;6182

 ;;21,"63874-0108-24 ")

 ;;6183

 ;;21,"63874-0108-28 ")

 ;;6184

 ;;21,"63874-0108-30 ")

 ;;6185

 ;;21,"63874-0108-40 ")

 ;;6186

 ;;21,"63874-0108-60 ")

 ;;6187

 ;;21,"63874-0109-03 ")

 ;;6188

 ;;21,"63874-0109-10 ")

 ;;6189

 ;;21,"63874-0109-12 ")

 ;;6190

 ;;21,"63874-0109-14 ")

 ;;6191

 ;;21,"63874-0109-15 ")

 ;;6192

 ;;21,"63874-0109-16 ")

 ;;6193

 ;;21,"63874-0109-18 ")

 ;;6194

 ;;21,"63874-0109-20 ")

 ;;6195

 ;;21,"63874-0109-21 ")

 ;;6196

 ;;21,"63874-0109-24 ")

 ;;6197

 ;;21,"63874-0109-28 ")

 ;;6198

BGP33J16  ;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,"61553-0014-73 ")

 +2       ;;5813

 +3       ;;21,"61553-0048-72 ")

 +4       ;;5814

 +5       ;;21,"61553-0211-48 ")

 +6       ;;5815

 +7       ;;21,"61553-0216-48 ")

 +8       ;;5816

 +9       ;;21,"61570-0050-11 ")

 +10      ;;5817

 +11      ;;21,"61570-0052-01 ")

 +12      ;;5818

 +13      ;;21,"61570-0053-01 ")

 +14      ;;5819

 +15      ;;21,"61570-0053-05 ")

 +16      ;;5820

 +17      ;;21,"61570-0053-20 ")

 +18      ;;5821

 +19      ;;21,"61570-0054-10 ")

 +20      ;;5822

 +21      ;;21,"61570-0055-10 ")

 +22      ;;5823

 +23      ;;21,"61570-0056-10 ")

 +24      ;;5824

 +25      ;;21,"61748-0111-14 ")

 +26      ;;5825

 +27      ;;21,"61971-0120-05 ")

 +28      ;;5826

 +29      ;;21,"62037-0777-60 ")

 +30      ;;5827

 +31      ;;21,"62436-0728-01 ")

 +32      ;;5828

 +33      ;;21,"62436-0729-03 ")

 +34      ;;5829

 +35      ;;21,"62436-0729-04 ")

 +36      ;;5830

 +37      ;;21,"62436-0730-01 ")

 +38      ;;5831

 +39      ;;21,"62436-0730-05 ")

 +40      ;;5832

 +41      ;;21,"62584-0235-01 ")

 +42      ;;5833

 +43      ;;21,"62584-0235-11 ")

 +44      ;;5834

 +45      ;;21,"62584-0236-01 ")

 +46      ;;5835

 +47      ;;21,"62584-0236-11 ")

 +48      ;;5836

 +49      ;;21,"62584-0237-01 ")

 +50      ;;5837

 +51      ;;21,"62584-0237-11 ")

 +52      ;;5838

 +53      ;;21,"62584-0238-01 ")

 +54      ;;5839

 +55      ;;21,"62584-0238-11 ")

 +56      ;;5840

 +57      ;;21,"62584-0338-01 ")

 +58      ;;5841

 +59      ;;21,"62584-0338-11 ")

 +60      ;;5842

 +61      ;;21,"62584-0693-01 ")

 +62      ;;5843

 +63      ;;21,"62584-0693-11 ")

 +64      ;;5844

 +65      ;;21,"62584-0856-01 ")

 +66      ;;5845

 +67      ;;21,"62584-0856-11 ")

 +68      ;;5846

 +69      ;;21,"62584-0857-01 ")

 +70      ;;5847

 +71      ;;21,"62584-0857-11 ")

 +72      ;;5848

 +73      ;;21,"62756-0293-13 ")

 +74      ;;5849

 +75      ;;21,"62756-0293-88 ")

 +76      ;;5850

 +77      ;;21,"62756-0294-13 ")

 +78      ;;5851

 +79      ;;21,"62756-0294-88 ")

 +80      ;;5852

 +81      ;;21,"63304-0131-01 ")

 +82      ;;5853

 +83      ;;21,"63304-0132-04 ")

 +84      ;;5854

 +85      ;;21,"63304-0132-50 ")

 +86      ;;5855

 +87      ;;21,"63304-0148-01 ")

 +88      ;;5856

 +89      ;;21,"63304-0149-01 ")

 +90      ;;5857

 +91      ;;21,"63304-0149-50 ")

 +92      ;;5858

 +93      ;;21,"63304-0173-30 ")

 +94      ;;5859

 +95      ;;21,"63304-0509-01 ")

 +96      ;;5860

 +97      ;;21,"63304-0509-20 ")

 +98      ;;5861

 +99      ;;21,"63304-0512-50 ")

 +100     ;;5862

 +101     ;;21,"63304-0515-01 ")

 +102     ;;5863

 +103     ;;21,"63304-0515-04 ")

 +104     ;;5864

 +105     ;;21,"63304-0520-20 ")

 +106     ;;5865

 +107     ;;21,"63304-0521-01 ")

 +108     ;;5866

 +109     ;;21,"63304-0521-20 ")

 +110     ;;5867

 +111     ;;21,"63304-0582-01 ")

 +112     ;;5868

 +113     ;;21,"63304-0582-50 ")

 +114     ;;5869

 +115     ;;21,"63304-0615-01 ")

 +116     ;;5870

 +117     ;;21,"63304-0654-01 ")

 +118     ;;5871

 +119     ;;21,"63304-0655-01 ")

 +120     ;;5872

 +121     ;;21,"63304-0655-05 ")

 +122     ;;5873

 +123     ;;21,"63304-0656-01 ")

 +124     ;;5874

 +125     ;;21,"63304-0656-05 ")

 +126     ;;5875

 +127     ;;21,"63304-0657-01 ")

 +128     ;;5876

 +129     ;;21,"63304-0657-05 ")

 +130     ;;5877

 +131     ;;21,"63304-0658-01 ")

 +132     ;;5878

 +133     ;;21,"63304-0659-01 ")

 +134     ;;5879

 +135     ;;21,"63304-0692-01 ")

 +136     ;;5880

 +137     ;;21,"63304-0692-05 ")

 +138     ;;5881

 +139     ;;21,"63304-0693-01 ")

 +140     ;;5882

 +141     ;;21,"63304-0693-16 ")

 +142     ;;5883

 +143     ;;21,"63304-0694-01 ")

 +144     ;;5884

 +145     ;;21,"63304-0695-01 ")

 +146     ;;5885

 +147     ;;21,"63304-0696-05 ")

 +148     ;;5886

 +149     ;;21,"63304-0696-50 ")

 +150     ;;5887

 +151     ;;21,"63304-0697-01 ")

 +152     ;;5888

 +153     ;;21,"63304-0698-01 ")

 +154     ;;5889

 +155     ;;21,"63304-0699-50 ")

 +156     ;;5890

 +157     ;;21,"63304-0709-01 ")

 +158     ;;5891

 +159     ;;21,"63304-0710-01 ")

 +160     ;;5892

 +161     ;;21,"63304-0711-01 ")

 +162     ;;5893

 +163     ;;21,"63304-0711-50 ")

 +164     ;;5894

 +165     ;;21,"63304-0713-20 ")

 +166     ;;5895

 +167     ;;21,"63304-0715-50 ")

 +168     ;;5896

 +169     ;;21,"63304-0716-50 ")

 +170     ;;5897

 +171     ;;21,"63304-0717-01 ")

 +172     ;;5898

 +173     ;;21,"63304-0725-01 ")

 +174     ;;5899

 +175     ;;21,"63304-0725-60 ")

 +176     ;;5900

 +177     ;;21,"63304-0726-01 ")

 +178     ;;5901

 +179     ;;21,"63304-0726-60 ")

 +180     ;;5902

 +181     ;;21,"63304-0751-20 ")

 +182     ;;5903

 +183     ;;21,"63304-0751-60 ")

 +184     ;;5904

 +185     ;;21,"63304-0752-20 ")

 +186     ;;5905

 +187     ;;21,"63304-0752-60 ")

 +188     ;;5906

 +189     ;;21,"63304-0753-20 ")

 +190     ;;5907

 +191     ;;21,"63304-0754-20 ")

 +192     ;;5908

 +193     ;;21,"63304-0760-20 ")

 +194     ;;5909

 +195     ;;21,"63304-0761-01 ")

 +196     ;;5910

 +197     ;;21,"63304-0761-20 ")

 +198     ;;5911

 +199     ;;21,"63304-0762-20 ")

 +200     ;;5912

 +201     ;;21,"63304-0763-01 ")

 +202     ;;5913

 +203     ;;21,"63304-0763-05 ")

 +204     ;;5914

 +205     ;;21,"63304-0763-20 ")

 +206     ;;5915

 +207     ;;21,"63304-0768-01 ")

 +208     ;;5916

 +209     ;;21,"63304-0768-02 ")

 +210     ;;5917

 +211     ;;21,"63304-0768-07 ")

 +212     ;;5918

 +213     ;;21,"63304-0821-03 ")

 +214     ;;5919

 +215     ;;21,"63304-0821-04 ")

 +216     ;;5920

 +217     ;;21,"63304-0822-03 ")

 +218     ;;5921

 +219     ;;21,"63304-0822-04 ")

 +220     ;;5922

 +221     ;;21,"63304-0940-25 ")

 +222     ;;5923

 +223     ;;21,"63304-0941-10 ")

 +224     ;;5924

 +225     ;;21,"63304-0946-25 ")

 +226     ;;5925

 +227     ;;21,"63304-0947-25 ")

 +228     ;;5926

 +229     ;;21,"63304-0948-10 ")

 +230     ;;5927

 +231     ;;21,"63304-0954-01 ")

 +232     ;;5928

 +233     ;;21,"63304-0954-02 ")

 +234     ;;5929

 +235     ;;21,"63304-0956-01 ")

 +236     ;;5930

 +237     ;;21,"63304-0956-02 ")

 +238     ;;5931

 +239     ;;21,"63304-0957-03 ")

 +240     ;;5932

 +241     ;;21,"63304-0957-04 ")

 +242     ;;5933

 +243     ;;21,"63304-0958-01 ")

 +244     ;;5934

 +245     ;;21,"63304-0958-02 ")

 +246     ;;5935

 +247     ;;21,"63304-0959-01 ")

 +248     ;;5936

 +249     ;;21,"63304-0959-02 ")

 +250     ;;5937

 +251     ;;21,"63304-0960-01 ")

 +252     ;;5938

 +253     ;;21,"63304-0960-03 ")

 +254     ;;5939

 +255     ;;21,"63304-0960-04 ")

 +256     ;;5940

 +257     ;;21,"63304-0961-01 ")

 +258     ;;5941

 +259     ;;21,"63304-0961-03 ")

 +260     ;;5942

 +261     ;;21,"63304-0961-04 ")

 +262     ;;5943

 +263     ;;21,"63304-0963-04 ")

 +264     ;;5944

 +265     ;;21,"63304-0964-03 ")

 +266     ;;5945

 +267     ;;21,"63304-0964-04 ")

 +268     ;;5946

 +269     ;;21,"63304-0965-03 ")

 +270     ;;5947

 +271     ;;21,"63304-0965-04 ")

 +272     ;;5948

 +273     ;;21,"63304-0966-03 ")

 +274     ;;5949

 +275     ;;21,"63304-0966-04 ")

 +276     ;;5950

 +277     ;;21,"63304-0969-01 ")

 +278     ;;5951

 +279     ;;21,"63304-0969-03 ")

 +280     ;;5952

 +281     ;;21,"63304-0969-04 ")

 +282     ;;5953

 +283     ;;21,"63304-0970-01 ")

 +284     ;;5954

 +285     ;;21,"63304-0970-03 ")

 +286     ;;5955

 +287     ;;21,"63304-0970-04 ")

 +288     ;;5956

 +289     ;;21,"63304-0973-04 ")

 +290     ;;5957

 +291     ;;21,"63304-0974-01 ")

 +292     ;;5958

 +293     ;;21,"63304-0974-04 ")

 +294     ;;5959

 +295     ;;21,"63304-0977-01 ")

 +296     ;;5960

 +297     ;;21,"63304-0977-03 ")

 +298     ;;5961

 +299     ;;21,"63304-0977-04 ")

 +300     ;;5962

 +301     ;;21,"63304-0979-01 ")

 +302     ;;5963

 +303     ;;21,"63304-0979-03 ")

 +304     ;;5964

 +305     ;;21,"63304-0979-04 ")

 +306     ;;5965

 +307     ;;21,"63304-9070-04 ")

 +308     ;;5966

 +309     ;;21,"63323-0130-11 ")

 +310     ;;5967

 +311     ;;21,"63323-0236-10 ")

 +312     ;;5968

 +313     ;;21,"63323-0237-10 ")

 +314     ;;5969

 +315     ;;21,"63323-0238-61 ")

 +316     ;;5970

 +317     ;;21,"63323-0282-02 ")

 +318     ;;5971

 +319     ;;21,"63323-0282-04 ")

 +320     ;;5972

 +321     ;;21,"63323-0282-06 ")

 +322     ;;5973

 +323     ;;21,"63323-0282-60 ")

 +324     ;;5974

 +325     ;;21,"63323-0323-20 ")

 +326     ;;5975

 +327     ;;21,"63323-0344-10 ")

 +328     ;;5976

 +329     ;;21,"63323-0345-10 ")

 +330     ;;5977

 +331     ;;21,"63323-0346-10 ")

 +332     ;;5978

 +333     ;;21,"63323-0347-20 ")

 +334     ;;5979

 +335     ;;21,"63323-0348-61 ")

 +336     ;;5980

 +337     ;;21,"63323-0352-10 ")

 +338     ;;5981

 +339     ;;21,"63323-0352-45 ")

 +340     ;;5982

 +341     ;;21,"63323-0353-20 ")

 +342     ;;5983

 +343     ;;21,"63323-0353-45 ")

 +344     ;;5984

 +345     ;;21,"63323-0354-45 ")

 +346     ;;5985

 +347     ;;21,"63323-0354-61 ")

 +348     ;;5986

 +349     ;;21,"63323-0387-10 ")

 +350     ;;5987

 +351     ;;21,"63323-0388-10 ")

 +352     ;;5988

 +353     ;;21,"63323-0389-10 ")

 +354     ;;5989

 +355     ;;21,"63323-0398-10 ")

 +356     ;;5990

 +357     ;;21,"63323-0398-12 ")

 +358     ;;5991

 +359     ;;21,"63323-0399-23 ")

 +360     ;;5992

 +361     ;;21,"63323-0446-61 ")

 +362     ;;5993

 +363     ;;21,"63323-0446-66 ")

 +364     ;;5994

 +365     ;;21,"63629-1236-00 ")

 +366     ;;5995

 +367     ;;21,"63629-1236-01 ")

 +368     ;;5996

 +369     ;;21,"63629-1236-02 ")

 +370     ;;5997

 +371     ;;21,"63629-1236-03 ")

 +372     ;;5998

 +373     ;;21,"63629-1236-04 ")

 +374     ;;5999

 +375     ;;21,"63629-1236-05 ")

 +376     ;;6000

 +377     ;;21,"63629-1236-06 ")

 +378     ;;6001

 +379     ;;21,"63629-1236-07 ")

 +380     ;;6002

 +381     ;;21,"63629-1236-08 ")

 +382     ;;6003

 +383     ;;21,"63629-1248-01 ")

 +384     ;;6004

 +385     ;;21,"63629-1248-02 ")

 +386     ;;6005

 +387     ;;21,"63629-1248-03 ")

 +388     ;;6006

 +389     ;;21,"63629-1257-01 ")

 +390     ;;6007

 +391     ;;21,"63629-1257-02 ")

 +392     ;;6008

 +393     ;;21,"63629-1257-03 ")

 +394     ;;6009

 +395     ;;21,"63629-1284-01 ")

 +396     ;;6010

 +397     ;;21,"63629-1305-01 ")

 +398     ;;6011

 +399     ;;21,"63629-1305-02 ")

 +400     ;;6012

 +401     ;;21,"63629-1305-03 ")

 +402     ;;6013

 +403     ;;21,"63629-1317-01 ")

 +404     ;;6014

 +405     ;;21,"63629-1317-02 ")

 +406     ;;6015

 +407     ;;21,"63629-1317-03 ")

 +408     ;;6016

 +409     ;;21,"63629-1317-04 ")

 +410     ;;6017

 +411     ;;21,"63629-1317-05 ")

 +412     ;;6018

 +413     ;;21,"63629-1319-01 ")

 +414     ;;6019

 +415     ;;21,"63629-1319-02 ")

 +416     ;;6020

 +417     ;;21,"63629-1319-03 ")

 +418     ;;6021

 +419     ;;21,"63629-1319-04 ")

 +420     ;;6022

 +421     ;;21,"63629-1319-05 ")

 +422     ;;6023

 +423     ;;21,"63629-1319-06 ")

 +424     ;;6024

 +425     ;;21,"63629-1319-07 ")

 +426     ;;6025

 +427     ;;21,"63629-1319-08 ")

 +428     ;;6026

 +429     ;;21,"63629-1320-01 ")

 +430     ;;6027

 +431     ;;21,"63629-1320-02 ")

 +432     ;;6028

 +433     ;;21,"63629-1320-03 ")

 +434     ;;6029

 +435     ;;21,"63629-1320-04 ")

 +436     ;;6030

 +437     ;;21,"63629-1321-01 ")

 +438     ;;6031

 +439     ;;21,"63629-1326-01 ")

 +440     ;;6032

 +441     ;;21,"63629-1326-02 ")

 +442     ;;6033

 +443     ;;21,"63629-1350-01 ")

 +444     ;;6034

 +445     ;;21,"63629-1350-02 ")

 +446     ;;6035

 +447     ;;21,"63629-1350-03 ")

 +448     ;;6036

 +449     ;;21,"63629-1351-01 ")

 +450     ;;6037

 +451     ;;21,"63629-1351-02 ")

 +452     ;;6038

 +453     ;;21,"63629-1351-03 ")

 +454     ;;6039

 +455     ;;21,"63629-1357-01 ")

 +456     ;;6040

 +457     ;;21,"63629-1357-02 ")

 +458     ;;6041

 +459     ;;21,"63629-1357-03 ")

 +460     ;;6042

 +461     ;;21,"63629-1358-01 ")

 +462     ;;6043

 +463     ;;21,"63629-1358-02 ")

 +464     ;;6044

 +465     ;;21,"63629-1374-01 ")

 +466     ;;6045

 +467     ;;21,"63629-1374-02 ")

 +468     ;;6046

 +469     ;;21,"63629-1374-03 ")

 +470     ;;6047

 +471     ;;21,"63629-1374-04 ")

 +472     ;;6048

 +473     ;;21,"63629-1490-01 ")

 +474     ;;6049

 +475     ;;21,"63629-1490-02 ")

 +476     ;;6050

 +477     ;;21,"63629-1490-03 ")

 +478     ;;6051

 +479     ;;21,"63629-1490-04 ")

 +480     ;;6052

 +481     ;;21,"63629-1501-01 ")

 +482     ;;6053

 +483     ;;21,"63629-1501-02 ")

 +484     ;;6054

 +485     ;;21,"63629-1501-03 ")

 +486     ;;6055

 +487     ;;21,"63629-1501-04 ")

 +488     ;;6056

 +489     ;;21,"63629-1502-01 ")

 +490     ;;6057

 +491     ;;21,"63629-1502-02 ")

 +492     ;;6058

 +493     ;;21,"63629-1502-03 ")

 +494     ;;6059

 +495     ;;21,"63629-1502-04 ")

 +496     ;;6060

 +497     ;;21,"63629-1531-01 ")

 +498     ;;6061

 +499     ;;21,"63629-1531-02 ")

 +500     ;;6062

 +501     ;;21,"63629-1531-03 ")

 +502     ;;6063

 +503     ;;21,"63629-1531-04 ")

 +504     ;;6064

 +505     ;;21,"63629-1531-05 ")

 +506     ;;6065

 +507     ;;21,"63629-1614-01 ")

 +508     ;;6066

 +509     ;;21,"63629-1614-02 ")

 +510     ;;6067

 +511     ;;21,"63629-1614-03 ")

 +512     ;;6068

 +513     ;;21,"63629-1615-01 ")

 +514     ;;6069

 +515     ;;21,"63629-1615-02 ")

 +516     ;;6070

 +517     ;;21,"63629-1615-03 ")

 +518     ;;6071

 +519     ;;21,"63629-1615-04 ")

 +520     ;;6072

 +521     ;;21,"63629-1615-05 ")

 +522     ;;6073

 +523     ;;21,"63629-1724-01 ")

 +524     ;;6074

 +525     ;;21,"63629-1724-02 ")

 +526     ;;6075

 +527     ;;21,"63629-1724-03 ")

 +528     ;;6076

 +529     ;;21,"63629-1724-04 ")

 +530     ;;6077

 +531     ;;21,"63629-1724-05 ")

 +532     ;;6078

 +533     ;;21,"63629-1724-06 ")

 +534     ;;6079

 +535     ;;21,"63629-1759-01 ")

 +536     ;;6080

 +537     ;;21,"63629-1759-02 ")

 +538     ;;6081

 +539     ;;21,"63629-1759-03 ")

 +540     ;;6082

 +541     ;;21,"63629-1759-04 ")

 +542     ;;6083

 +543     ;;21,"63629-1759-05 ")

 +544     ;;6084