ATXXB21.m

ATXXB21 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;

 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48

 ;

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,"0YPB0YZ ")

 ;;7949

 ;;21,"0YPB30Z ")

 ;;7950

 ;;21,"0YPB31Z ")

 ;;7951

 ;;21,"0YPB33Z ")

 ;;7952

 ;;21,"0YPB37Z ")

 ;;7953

 ;;21,"0YPB3JZ ")

 ;;7954

 ;;21,"0YPB3KZ ")

 ;;7955

 ;;21,"0YPB3YZ ")

 ;;7956

 ;;21,"0YPB40Z ")

 ;;7957

 ;;21,"0YPB41Z ")

 ;;7958

 ;;21,"0YPB43Z ")

 ;;7959

 ;;21,"0YPB47Z ")

 ;;7960

 ;;21,"0YPB4JZ ")

 ;;7961

 ;;21,"0YPB4KZ ")

 ;;7962

 ;;21,"0YPB4YZ ")

 ;;7963

 ;;21,"0YPBX0Z ")

 ;;7964

 ;;21,"0YPBX1Z ")

 ;;7965

 ;;21,"0YPBX3Z ")

 ;;7966

 ;;21,"0YPBX7Z ")

 ;;7967

 ;;21,"0YPBXJZ ")

 ;;7968

 ;;21,"0YPBXKZ ")

 ;;7969

 ;;21,"0YPBXYZ ")

 ;;7970

 ;;21,"0YQ5XZZ ")

 ;;7971

 ;;21,"0YQ6XZZ ")

 ;;7972

 ;;21,"0YQ7XZZ ")

 ;;7973

 ;;21,"0YQ8XZZ ")

 ;;7974

 ;;21,"0YQAXZZ ")

 ;;7975

 ;;21,"0YQEXZZ ")

 ;;7976

 ;;21,"0YU007Z ")

 ;;7977

 ;;21,"0YU00JZ ")

 ;;7978

 ;;21,"0YU00KZ ")

 ;;7979

 ;;21,"0YU047Z ")

 ;;7980

 ;;21,"0YU04JZ ")

 ;;7981

 ;;21,"0YU04KZ ")

 ;;7982

 ;;21,"0YU107Z ")

 ;;7983

 ;;21,"0YU10JZ ")

 ;;7984

 ;;21,"0YU10KZ ")

 ;;7985

 ;;21,"0YU147Z ")

 ;;7986

 ;;21,"0YU14JZ ")

 ;;7987

 ;;21,"0YU14KZ ")

 ;;7988

 ;;21,"0YU907Z ")

 ;;7989

 ;;21,"0YU90JZ ")

 ;;7990

 ;;21,"0YU90KZ ")

 ;;7991

 ;;21,"0YU947Z ")

 ;;7992

 ;;21,"0YU94JZ ")

 ;;7993

 ;;21,"0YU94KZ ")

 ;;7994

 ;;21,"0YUB07Z ")

 ;;7995

 ;;21,"0YUB0JZ ")

 ;;7996

 ;;21,"0YUB0KZ ")

 ;;7997

 ;;21,"0YUB47Z ")

 ;;7998

 ;;21,"0YUB4JZ ")

 ;;7999

 ;;21,"0YUB4KZ ")

 ;;8000

 ;;21,"0YUC07Z ")

 ;;8001

 ;;21,"0YUC0JZ ")

 ;;8002

 ;;21,"0YUC0KZ ")

 ;;8003

 ;;21,"0YUC47Z ")

 ;;8004

 ;;21,"0YUC4JZ ")

 ;;8005

 ;;21,"0YUC4KZ ")

 ;;8006

 ;;21,"0YUD07Z ")

 ;;8007

 ;;21,"0YUD0JZ ")

 ;;8008

 ;;21,"0YUD0KZ ")

 ;;8009

 ;;21,"0YUD47Z ")

 ;;8010

 ;;21,"0YUD4JZ ")

 ;;8011

 ;;21,"0YUD4KZ ")

 ;;8012

 ;;21,"0YUF07Z ")

 ;;8013

 ;;21,"0YUF0JZ ")

 ;;8014

 ;;21,"0YUF0KZ ")

 ;;8015

 ;;21,"0YUF47Z ")

 ;;8016

 ;;21,"0YUF4JZ ")

 ;;8017

 ;;21,"0YUF4KZ ")

 ;;8018

 ;;21,"0YUG07Z ")

 ;;8019

 ;;21,"0YUG0JZ ")

 ;;8020

 ;;21,"0YUG0KZ ")

 ;;8021

 ;;21,"0YUG47Z ")

 ;;8022

 ;;21,"0YUG4JZ ")

 ;;8023

 ;;21,"0YUG4KZ ")

 ;;8024

 ;;21,"0YUH07Z ")

 ;;8025

 ;;21,"0YUH0JZ ")

 ;;8026

 ;;21,"0YUH0KZ ")

 ;;8027

 ;;21,"0YUH47Z ")

 ;;8028

 ;;21,"0YUH4JZ ")

 ;;8029

 ;;21,"0YUH4KZ ")

 ;;8030

 ;;21,"0YUJ07Z ")

 ;;8031

 ;;21,"0YUJ0JZ ")

 ;;8032

 ;;21,"0YUJ0KZ ")

 ;;8033

 ;;21,"0YUJ47Z ")

 ;;8034

 ;;21,"0YUJ4JZ ")

 ;;8035

 ;;21,"0YUJ4KZ ")

 ;;8036

 ;;21,"0YUK07Z ")

 ;;8037

 ;;21,"0YUK0JZ ")

 ;;8038

 ;;21,"0YUK0KZ ")

 ;;8039

 ;;21,"0YUK47Z ")

 ;;8040

 ;;21,"0YUK4JZ ")

 ;;8041

 ;;21,"0YUK4KZ ")

 ;;8042

 ;;21,"0YUL07Z ")

 ;;8043

 ;;21,"0YUL0JZ ")

 ;;8044

 ;;21,"0YUL0KZ ")

 ;;8045

 ;;21,"0YUL47Z ")

 ;;8046

 ;;21,"0YUL4JZ ")

 ;;8047

 ;;21,"0YUL4KZ ")

 ;;8048

 ;;21,"0YUM07Z ")

 ;;8049

 ;;21,"0YUM0JZ ")

 ;;8050

 ;;21,"0YUM0KZ ")

 ;;8051

 ;;21,"0YUM47Z ")

 ;;8052

 ;;21,"0YUM4JZ ")

 ;;8053

 ;;21,"0YUM4KZ ")

 ;;8054

 ;;21,"0YUN07Z ")

 ;;8055

 ;;21,"0YUN0JZ ")

 ;;8056

 ;;21,"0YUN0KZ ")

 ;;8057

 ;;21,"0YUN47Z ")

 ;;8058

 ;;21,"0YUN4JZ ")

 ;;8059

 ;;21,"0YUN4KZ ")

 ;;8060

 ;;21,"0YUP07Z ")

 ;;8061

 ;;21,"0YUP0JZ ")

 ;;8062

 ;;21,"0YUP0KZ ")

 ;;8063

 ;;21,"0YUP47Z ")

 ;;8064

 ;;21,"0YUP4JZ ")

 ;;8065

 ;;21,"0YUP4KZ ")

 ;;8066

 ;;21,"0YUQ07Z ")

 ;;8067

 ;;21,"0YUQ0JZ ")

 ;;8068

 ;;21,"0YUQ0KZ ")

 ;;8069

 ;;21,"0YUQ47Z ")

 ;;8070

 ;;21,"0YUQ4JZ ")

 ;;8071

 ;;21,"0YUQ4KZ ")

 ;;8072

 ;;21,"0YUR07Z ")

 ;;8073

 ;;21,"0YUR0JZ ")

 ;;8074

 ;;21,"0YUR0KZ ")

 ;;8075

 ;;21,"0YUR47Z ")

 ;;8076

 ;;21,"0YUR4JZ ")

 ;;8077

 ;;21,"0YUR4KZ ")

 ;;8078

 ;;21,"0YUS07Z ")

 ;;8079

 ;;21,"0YUS0JZ ")

 ;;8080

 ;;21,"0YUS0KZ ")

 ;;8081

 ;;21,"0YUS47Z ")

 ;;8082

 ;;21,"0YUS4JZ ")

 ;;8083

 ;;21,"0YUS4KZ ")

 ;;8084

 ;;21,"0YUT07Z ")

 ;;8085

 ;;21,"0YUT0JZ ")

 ;;8086

 ;;21,"0YUT0KZ ")

 ;;8087

 ;;21,"0YUT47Z ")

 ;;8088

 ;;21,"0YUT4JZ ")

 ;;8089

 ;;21,"0YUT4KZ ")

 ;;8090

 ;;21,"0YUU07Z ")

 ;;8091

 ;;21,"0YUU0JZ ")

 ;;8092

 ;;21,"0YUU0KZ ")

 ;;8093

 ;;21,"0YUU47Z ")

 ;;8094

 ;;21,"0YUU4JZ ")

 ;;8095

 ;;21,"0YUU4KZ ")

 ;;8096

 ;;21,"0YUV07Z ")

 ;;8097

 ;;21,"0YUV0JZ ")

 ;;8098

 ;;21,"0YUV0KZ ")

 ;;8099

 ;;21,"0YUV47Z ")

 ;;8100

 ;;21,"0YUV4JZ ")

 ;;8101

 ;;21,"0YUV4KZ ")

 ;;8102

 ;;21,"0YUW07Z ")

 ;;8103

 ;;21,"0YUW0JZ ")

 ;;8104

 ;;21,"0YUW0KZ ")

 ;;8105

 ;;21,"0YUW47Z ")

 ;;8106

 ;;21,"0YUW4JZ ")

 ;;8107

 ;;21,"0YUW4KZ ")

 ;;8108

 ;;21,"0YUX07Z ")

 ;;8109

 ;;21,"0YUX0JZ ")

 ;;8110

 ;;21,"0YUX0KZ ")

 ;;8111

 ;;21,"0YUX47Z ")

 ;;8112

 ;;21,"0YUX4JZ ")

 ;;8113

 ;;21,"0YUX4KZ ")

 ;;8114

 ;;21,"0YUY07Z ")

 ;;8115

 ;;21,"0YUY0JZ ")

 ;;8116

 ;;21,"0YUY0KZ ")

 ;;8117

 ;;21,"0YUY47Z ")

 ;;8118

 ;;21,"0YUY4JZ ")

 ;;8119

 ;;21,"0YUY4KZ ")

 ;;8120

 ;;21,"0YW900Z ")

 ;;8121

 ;;21,"0YW903Z ")

 ;;8122

 ;;21,"0YW907Z ")

 ;;8123

 ;;21,"0YW90JZ ")

 ;;8124

 ;;21,"0YW90KZ ")

 ;;8125

 ;;21,"0YW90YZ ")

 ;;8126

 ;;21,"0YW930Z ")

 ;;8127

 ;;21,"0YW933Z ")

 ;;8128

 ;;21,"0YW937Z ")

 ;;8129

 ;;21,"0YW93JZ ")

 ;;8130

 ;;21,"0YW93KZ ")

 ;;8131

 ;;21,"0YW93YZ ")

 ;;8132

 ;;21,"0YW940Z ")

 ;;8133

 ;;21,"0YW943Z ")

 ;;8134

 ;;21,"0YW947Z ")

 ;;8135

 ;;21,"0YW94JZ ")

 ;;8136

 ;;21,"0YW94KZ ")

 ;;8137

 ;;21,"0YW94YZ ")

 ;;8138

 ;;21,"0YW9X0Z ")

 ;;8139

 ;;21,"0YW9X3Z ")

 ;;8140

 ;;21,"0YW9X7Z ")

 ;;8141

 ;;21,"0YW9XJZ ")

 ;;8142

 ;;21,"0YW9XKZ ")

 ;;8143

 ;;21,"0YW9XYZ ")

 ;;8144

 ;;21,"0YWB00Z ")

 ;;8145

 ;;21,"0YWB03Z ")

 ;;8146

 ;;21,"0YWB07Z ")

 ;;8147

 ;;21,"0YWB0JZ ")

 ;;8148

 ;;21,"0YWB0KZ ")

 ;;8149

 ;;21,"0YWB0YZ ")

 ;;8150

 ;;21,"0YWB30Z ")

 ;;8151

 ;;21,"0YWB33Z ")

 ;;8152

 ;;21,"0YWB37Z ")

 ;;8153

 ;;21,"0YWB3JZ ")

 ;;8154

 ;;21,"0YWB3KZ ")

 ;;8155

 ;;21,"0YWB3YZ ")

 ;;8156

 ;;21,"0YWB40Z ")

 ;;8157

 ;;21,"0YWB43Z ")

 ;;8158

 ;;21,"0YWB47Z ")

 ;;8159

 ;;21,"0YWB4JZ ")

 ;;8160

 ;;21,"0YWB4KZ ")

 ;;8161

 ;;21,"0YWB4YZ ")

 ;;8162

 ;;21,"0YWBX0Z ")

 ;;8163

 ;;21,"0YWBX3Z ")

 ;;8164

 ;;21,"0YWBX7Z ")

 ;;8165

 ;;21,"0YWBXJZ ")

 ;;8166

 ;;21,"0YWBXKZ ")

 ;;8167

 ;;21,"0YWBXYZ ")

 ;;8168

 ;;21,"102073Z ")

 ;;8169

 ;;21,"10207YZ ")

 ;;8170

 ;;21,"10907ZC ")

 ;;8171

 ;;21,"10908ZC ")

 ;;8172

 ;;21,"10A07ZX ")

 ;;8173

 ;;21,"23.01 ")

 ;;8174

 ;;21,"24.0 ")

 ;;8175

 ;;21,"2W00X0Z ")

 ;;8176

 ;;21,"2W00X1Z ")

 ;;8177

 ;;21,"2W00X2Z ")

 ;;8178

 ;;21,"2W00X3Z ")

 ;;8179

 ;;21,"2W00X4Z ")

 ;;8180

 ;;21,"2W00X5Z ")

 ;;8181

 ;;21,"2W00X6Z ")

 ;;8182

 ;;21,"2W00X7Z ")

 ;;8183

 ;;21,"2W00XYZ ")

 ;;8184

 ;;21,"2W01X0Z ")

 ;;8185

 ;;21,"2W01X1Z ")

 ;;8186

 ;;21,"2W01X2Z ")

 ;;8187

 ;;21,"2W01X3Z ")

 ;;8188

 ;;21,"2W01X4Z ")

 ;;8189

 ;;21,"2W01X5Z ")

 ;;8190

 ;;21,"2W01X6Z ")

 ;;8191

 ;;21,"2W01X7Z ")

 ;;8192

 ;;21,"2W01X9Z ")

 ;;8193

 ;;21,"2W01XYZ ")

 ;;8194

 ;;21,"2W02X0Z ")

 ;;8195

 ;;21,"2W02X1Z ")

 ;;8196

 ;;21,"2W02X2Z ")

 ;;8197

 ;;21,"2W02X3Z ")

 ;;8198

 ;;21,"2W02X4Z ")

 ;;8199

 ;;21,"2W02X5Z ")

 ;;8200

 ;;21,"2W02X6Z ")

 ;;8201

 ;;21,"2W02X7Z ")

 ;;8202

 ;;21,"2W02XYZ ")

 ;;8203

 ;;21,"2W03X0Z ")

 ;;8204

 ;;21,"2W03X1Z ")

 ;;8205

 ;;21,"2W03X2Z ")

 ;;8206

 ;;21,"2W03X3Z ")

 ;;8207

 ;;21,"2W03X4Z ")

 ;;8208

 ;;21,"2W03X5Z ")

 ;;8209

 ;;21,"2W03X6Z ")

 ;;8210

 ;;21,"2W03X7Z ")

 ;;8211

 ;;21,"2W03XYZ ")

 ;;8212

 ;;21,"2W04X0Z ")

 ;;8213

 ;;21,"2W04X1Z ")

 ;;8214

 ;;21,"2W04X2Z ")

 ;;8215

 ;;21,"2W04X3Z ")

 ;;8216

 ;;21,"2W04X4Z ")

 ;;8217

 ;;21,"2W04X5Z ")

 ;;8218

 ;;21,"2W04X6Z ")

 ;;8219

 ;;21,"2W04X7Z ")

 ;;8220

 ;;21,"2W04XYZ ")

 ;;8221

 ;;21,"2W05X0Z ")

 ;;8222

 ;;21,"2W05X1Z ")

 ;;8223

 ;;21,"2W05X2Z ")

 ;;8224

 ;;21,"2W05X3Z ")

 ;;8225

 ;;21,"2W05X4Z ")

 ;;8226

 ;;21,"2W05X5Z ")

 ;;8227

 ;;21,"2W05X6Z ")

 ;;8228

 ;;21,"2W05X7Z ")

 ;;8229

 ;;21,"2W05XYZ ")

 ;;8230

 ;;21,"2W06X0Z ")

 ;;8231

 ;;21,"2W06X1Z ")

 ;;8232

 ;;21,"2W06X2Z ")

 ;;8233

 ;;21,"2W06X3Z ")

 ;;8234

 ;;21,"2W06X4Z ")

 ;;8235

 ;;21,"2W06X5Z ")

 ;;8236

 ;;21,"2W06X6Z ")

 ;;8237

 ;;21,"2W06X7Z ")

 ;;8238

 ;;21,"2W06XYZ ")

 ;;8239

 ;;21,"2W07X0Z ")

 ;;8240

 ;;21,"2W07X1Z ")

 ;;8241

 ;;21,"2W07X2Z ")

 ;;8242

 ;;21,"2W07X3Z ")

 ;;8243

 ;;21,"2W07X4Z ")

 ;;8244

 ;;21,"2W07X5Z ")

 ;;8245

 ;;21,"2W07X6Z ")

 ;;8246

 ;;21,"2W07X7Z ")

 ;;8247

 ;;21,"2W07XYZ ")

 ;;8248

 ;;21,"2W08X0Z ")

 ;;8249

 ;;21,"2W08X1Z ")

 ;;8250

 ;;21,"2W08X2Z ")

 ;;8251

 ;;21,"2W08X3Z ")

 ;;8252

 ;;21,"2W08X4Z ")

 ;;8253

 ;;21,"2W08X5Z ")

 ;;8254

 ;;21,"2W08X6Z ")

 ;;8255

 ;;21,"2W08X7Z ")

 ;;8256

 ;;21,"2W08XYZ ")

 ;;8257

 ;;21,"2W09X0Z ")

 ;;8258

 ;;21,"2W09X1Z ")

 ;;8259

 ;;21,"2W09X2Z ")

 ;;8260

 ;;21,"2W09X3Z ")

 ;;8261

 ;;21,"2W09X4Z ")

 ;;8262

 ;;21,"2W09X5Z ")

 ;;8263

 ;;21,"2W09X6Z ")

 ;;8264

 ;;21,"2W09X7Z ")

 ;;8265

 ;;21,"2W09XYZ ")

 ;;8266

 ;;21,"2W0AX0Z ")

 ;;8267

 ;;21,"2W0AX1Z ")

 ;;8268

 ;;21,"2W0AX2Z ")

 ;;8269

 ;;21,"2W0AX3Z ")

 ;;8270

 ;;21,"2W0AX4Z ")

 ;;8271

 ;;21,"2W0AX5Z ")

 ;;8272

 ;;21,"2W0AX6Z ")

 ;;8273

 ;;21,"2W0AX7Z ")

 ;;8274

 ;;21,"2W0AXYZ ")

 ;;8275

 ;;21,"2W0BX0Z ")

 ;;8276

 ;;21,"2W0BX1Z ")

 ;;8277

 ;;21,"2W0BX2Z ")

 ;;8278

 ;;21,"2W0BX3Z ")

 ;;8279

 ;;21,"2W0BX4Z ")

 ;;8280

 ;;21,"2W0BX5Z ")

 ;;8281

 ;;21,"2W0BX6Z ")

 ;;8282

 ;;21,"2W0BX7Z ")

 ;;8283

 ;;21,"2W0BXYZ ")

 ;;8284

 ;;21,"2W0CX0Z ")

 ;;8285

 ;;21,"2W0CX1Z ")

 ;;8286

 ;;21,"2W0CX2Z ")

 ;;8287

 ;;21,"2W0CX3Z ")

 ;;8288

 ;;21,"2W0CX4Z ")

 ;;8289

 ;;21,"2W0CX5Z ")

 ;;8290

 ;;21,"2W0CX6Z ")

 ;;8291

 ;;21,"2W0CX7Z ")

 ;;8292

 ;;21,"2W0CXYZ ")

 ;;8293

 ;;21,"2W0DX0Z ")

 ;;8294

 ;;21,"2W0DX1Z ")

 ;;8295

 ;;21,"2W0DX2Z ")

 ;;8296

 ;;21,"2W0DX3Z ")

 ;;8297

 ;;21,"2W0DX4Z ")

 ;;8298

 ;;21,"2W0DX5Z ")

 ;;8299

 ;;21,"2W0DX6Z ")

 ;;8300

 ;;21,"2W0DX7Z ")

 ;;8301

 ;;21,"2W0DXYZ ")

 ;;8302

 ;;21,"2W0EX0Z ")

 ;;8303

 ;;21,"2W0EX1Z ")

 ;;8304

 ;;21,"2W0EX2Z ")

 ;;8305

 ;;21,"2W0EX3Z ")

 ;;8306

 ;;21,"2W0EX4Z ")

 ;;8307

 ;;21,"2W0EX5Z ")

 ;;8308

 ;;21,"2W0EX6Z ")

 ;;8309

 ;;21,"2W0EX7Z ")

 ;;8310

 ;;21,"2W0EXYZ ")

 ;;8311

 ;;21,"2W0FX0Z ")

 ;;8312

 ;;21,"2W0FX1Z ")

 ;;8313

 ;;21,"2W0FX2Z ")

 ;;8314

 ;;21,"2W0FX3Z ")

 ;;8315

 ;;21,"2W0FX4Z ")

 ;;8316

 ;;21,"2W0FX5Z ")

 ;;8317

 ;;21,"2W0FX6Z ")

 ;;8318

 ;;21,"2W0FX7Z ")

 ;;8319

 ;;21,"2W0FXYZ ")

 ;;8320

 ;;21,"2W0GX0Z ")

 ;;8321

 ;;21,"2W0GX1Z ")

 ;;8322

 ;;21,"2W0GX2Z ")

 ;;8323

 ;;21,"2W0GX3Z ")

 ;;8324

 ;;21,"2W0GX4Z ")

 ;;8325

 ;;21,"2W0GX5Z ")

 ;;8326

 ;;21,"2W0GX6Z ")

 ;;8327

 ;;21,"2W0GX7Z ")

 ;;8328

 ;;21,"2W0GXYZ ")

 ;;8329

 ;;21,"2W0HX0Z ")

 ;;8330

 ;;21,"2W0HX1Z ")

 ;;8331

 ;;21,"2W0HX2Z ")

 ;;8332

 ;;21,"2W0HX3Z ")

 ;;8333

 ;;21,"2W0HX4Z ")

 ;;8334

 ;;21,"2W0HX5Z ")

 ;;8335

 ;;21,"2W0HX6Z ")

 ;;8336

 ;;21,"2W0HX7Z ")

 ;;8337

 ;;21,"2W0HXYZ ")

 ;;8338

 ;;21,"2W0JX0Z ")

 ;;8339

 ;;21,"2W0JX1Z ")

 ;;8340

 ;;21,"2W0JX2Z ")

 ;;8341

 ;;21,"2W0JX3Z ")

 ;;8342

 ;;21,"2W0JX4Z ")

 ;;8343

 ;;21,"2W0JX5Z ")

 ;;8344

ATXXB21   ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;

 +1       ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48

 +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,"0YPB0YZ ")

 +2       ;;7949

 +3       ;;21,"0YPB30Z ")

 +4       ;;7950

 +5       ;;21,"0YPB31Z ")

 +6       ;;7951

 +7       ;;21,"0YPB33Z ")

 +8       ;;7952

 +9       ;;21,"0YPB37Z ")

 +10      ;;7953

 +11      ;;21,"0YPB3JZ ")

 +12      ;;7954

 +13      ;;21,"0YPB3KZ ")

 +14      ;;7955

 +15      ;;21,"0YPB3YZ ")

 +16      ;;7956

 +17      ;;21,"0YPB40Z ")

 +18      ;;7957

 +19      ;;21,"0YPB41Z ")

 +20      ;;7958

 +21      ;;21,"0YPB43Z ")

 +22      ;;7959

 +23      ;;21,"0YPB47Z ")

 +24      ;;7960

 +25      ;;21,"0YPB4JZ ")

 +26      ;;7961

 +27      ;;21,"0YPB4KZ ")

 +28      ;;7962

 +29      ;;21,"0YPB4YZ ")

 +30      ;;7963

 +31      ;;21,"0YPBX0Z ")

 +32      ;;7964

 +33      ;;21,"0YPBX1Z ")

 +34      ;;7965

 +35      ;;21,"0YPBX3Z ")

 +36      ;;7966

 +37      ;;21,"0YPBX7Z ")

 +38      ;;7967

 +39      ;;21,"0YPBXJZ ")

 +40      ;;7968

 +41      ;;21,"0YPBXKZ ")

 +42      ;;7969

 +43      ;;21,"0YPBXYZ ")

 +44      ;;7970

 +45      ;;21,"0YQ5XZZ ")

 +46      ;;7971

 +47      ;;21,"0YQ6XZZ ")

 +48      ;;7972

 +49      ;;21,"0YQ7XZZ ")

 +50      ;;7973

 +51      ;;21,"0YQ8XZZ ")

 +52      ;;7974

 +53      ;;21,"0YQAXZZ ")

 +54      ;;7975

 +55      ;;21,"0YQEXZZ ")

 +56      ;;7976

 +57      ;;21,"0YU007Z ")

 +58      ;;7977

 +59      ;;21,"0YU00JZ ")

 +60      ;;7978

 +61      ;;21,"0YU00KZ ")

 +62      ;;7979

 +63      ;;21,"0YU047Z ")

 +64      ;;7980

 +65      ;;21,"0YU04JZ ")

 +66      ;;7981

 +67      ;;21,"0YU04KZ ")

 +68      ;;7982

 +69      ;;21,"0YU107Z ")

 +70      ;;7983

 +71      ;;21,"0YU10JZ ")

 +72      ;;7984

 +73      ;;21,"0YU10KZ ")

 +74      ;;7985

 +75      ;;21,"0YU147Z ")

 +76      ;;7986

 +77      ;;21,"0YU14JZ ")

 +78      ;;7987

 +79      ;;21,"0YU14KZ ")

 +80      ;;7988

 +81      ;;21,"0YU907Z ")

 +82      ;;7989

 +83      ;;21,"0YU90JZ ")

 +84      ;;7990

 +85      ;;21,"0YU90KZ ")

 +86      ;;7991

 +87      ;;21,"0YU947Z ")

 +88      ;;7992

 +89      ;;21,"0YU94JZ ")

 +90      ;;7993

 +91      ;;21,"0YU94KZ ")

 +92      ;;7994

 +93      ;;21,"0YUB07Z ")

 +94      ;;7995

 +95      ;;21,"0YUB0JZ ")

 +96      ;;7996

 +97      ;;21,"0YUB0KZ ")

 +98      ;;7997

 +99      ;;21,"0YUB47Z ")

 +100     ;;7998

 +101     ;;21,"0YUB4JZ ")

 +102     ;;7999

 +103     ;;21,"0YUB4KZ ")

 +104     ;;8000

 +105     ;;21,"0YUC07Z ")

 +106     ;;8001

 +107     ;;21,"0YUC0JZ ")

 +108     ;;8002

 +109     ;;21,"0YUC0KZ ")

 +110     ;;8003

 +111     ;;21,"0YUC47Z ")

 +112     ;;8004

 +113     ;;21,"0YUC4JZ ")

 +114     ;;8005

 +115     ;;21,"0YUC4KZ ")

 +116     ;;8006

 +117     ;;21,"0YUD07Z ")

 +118     ;;8007

 +119     ;;21,"0YUD0JZ ")

 +120     ;;8008

 +121     ;;21,"0YUD0KZ ")

 +122     ;;8009

 +123     ;;21,"0YUD47Z ")

 +124     ;;8010

 +125     ;;21,"0YUD4JZ ")

 +126     ;;8011

 +127     ;;21,"0YUD4KZ ")

 +128     ;;8012

 +129     ;;21,"0YUF07Z ")

 +130     ;;8013

 +131     ;;21,"0YUF0JZ ")

 +132     ;;8014

 +133     ;;21,"0YUF0KZ ")

 +134     ;;8015

 +135     ;;21,"0YUF47Z ")

 +136     ;;8016

 +137     ;;21,"0YUF4JZ ")

 +138     ;;8017

 +139     ;;21,"0YUF4KZ ")

 +140     ;;8018

 +141     ;;21,"0YUG07Z ")

 +142     ;;8019

 +143     ;;21,"0YUG0JZ ")

 +144     ;;8020

 +145     ;;21,"0YUG0KZ ")

 +146     ;;8021

 +147     ;;21,"0YUG47Z ")

 +148     ;;8022

 +149     ;;21,"0YUG4JZ ")

 +150     ;;8023

 +151     ;;21,"0YUG4KZ ")

 +152     ;;8024

 +153     ;;21,"0YUH07Z ")

 +154     ;;8025

 +155     ;;21,"0YUH0JZ ")

 +156     ;;8026

 +157     ;;21,"0YUH0KZ ")

 +158     ;;8027

 +159     ;;21,"0YUH47Z ")

 +160     ;;8028

 +161     ;;21,"0YUH4JZ ")

 +162     ;;8029

 +163     ;;21,"0YUH4KZ ")

 +164     ;;8030

 +165     ;;21,"0YUJ07Z ")

 +166     ;;8031

 +167     ;;21,"0YUJ0JZ ")

 +168     ;;8032

 +169     ;;21,"0YUJ0KZ ")

 +170     ;;8033

 +171     ;;21,"0YUJ47Z ")

 +172     ;;8034

 +173     ;;21,"0YUJ4JZ ")

 +174     ;;8035

 +175     ;;21,"0YUJ4KZ ")

 +176     ;;8036

 +177     ;;21,"0YUK07Z ")

 +178     ;;8037

 +179     ;;21,"0YUK0JZ ")

 +180     ;;8038

 +181     ;;21,"0YUK0KZ ")

 +182     ;;8039

 +183     ;;21,"0YUK47Z ")

 +184     ;;8040

 +185     ;;21,"0YUK4JZ ")

 +186     ;;8041

 +187     ;;21,"0YUK4KZ ")

 +188     ;;8042

 +189     ;;21,"0YUL07Z ")

 +190     ;;8043

 +191     ;;21,"0YUL0JZ ")

 +192     ;;8044

 +193     ;;21,"0YUL0KZ ")

 +194     ;;8045

 +195     ;;21,"0YUL47Z ")

 +196     ;;8046

 +197     ;;21,"0YUL4JZ ")

 +198     ;;8047

 +199     ;;21,"0YUL4KZ ")

 +200     ;;8048

 +201     ;;21,"0YUM07Z ")

 +202     ;;8049

 +203     ;;21,"0YUM0JZ ")

 +204     ;;8050

 +205     ;;21,"0YUM0KZ ")

 +206     ;;8051

 +207     ;;21,"0YUM47Z ")

 +208     ;;8052

 +209     ;;21,"0YUM4JZ ")

 +210     ;;8053

 +211     ;;21,"0YUM4KZ ")

 +212     ;;8054

 +213     ;;21,"0YUN07Z ")

 +214     ;;8055

 +215     ;;21,"0YUN0JZ ")

 +216     ;;8056

 +217     ;;21,"0YUN0KZ ")

 +218     ;;8057

 +219     ;;21,"0YUN47Z ")

 +220     ;;8058

 +221     ;;21,"0YUN4JZ ")

 +222     ;;8059

 +223     ;;21,"0YUN4KZ ")

 +224     ;;8060

 +225     ;;21,"0YUP07Z ")

 +226     ;;8061

 +227     ;;21,"0YUP0JZ ")

 +228     ;;8062

 +229     ;;21,"0YUP0KZ ")

 +230     ;;8063

 +231     ;;21,"0YUP47Z ")

 +232     ;;8064

 +233     ;;21,"0YUP4JZ ")

 +234     ;;8065

 +235     ;;21,"0YUP4KZ ")

 +236     ;;8066

 +237     ;;21,"0YUQ07Z ")

 +238     ;;8067

 +239     ;;21,"0YUQ0JZ ")

 +240     ;;8068

 +241     ;;21,"0YUQ0KZ ")

 +242     ;;8069

 +243     ;;21,"0YUQ47Z ")

 +244     ;;8070

 +245     ;;21,"0YUQ4JZ ")

 +246     ;;8071

 +247     ;;21,"0YUQ4KZ ")

 +248     ;;8072

 +249     ;;21,"0YUR07Z ")

 +250     ;;8073

 +251     ;;21,"0YUR0JZ ")

 +252     ;;8074

 +253     ;;21,"0YUR0KZ ")

 +254     ;;8075

 +255     ;;21,"0YUR47Z ")

 +256     ;;8076

 +257     ;;21,"0YUR4JZ ")

 +258     ;;8077

 +259     ;;21,"0YUR4KZ ")

 +260     ;;8078

 +261     ;;21,"0YUS07Z ")

 +262     ;;8079

 +263     ;;21,"0YUS0JZ ")

 +264     ;;8080

 +265     ;;21,"0YUS0KZ ")

 +266     ;;8081

 +267     ;;21,"0YUS47Z ")

 +268     ;;8082

 +269     ;;21,"0YUS4JZ ")

 +270     ;;8083

 +271     ;;21,"0YUS4KZ ")

 +272     ;;8084

 +273     ;;21,"0YUT07Z ")

 +274     ;;8085

 +275     ;;21,"0YUT0JZ ")

 +276     ;;8086

 +277     ;;21,"0YUT0KZ ")

 +278     ;;8087

 +279     ;;21,"0YUT47Z ")

 +280     ;;8088

 +281     ;;21,"0YUT4JZ ")

 +282     ;;8089

 +283     ;;21,"0YUT4KZ ")

 +284     ;;8090

 +285     ;;21,"0YUU07Z ")

 +286     ;;8091

 +287     ;;21,"0YUU0JZ ")

 +288     ;;8092

 +289     ;;21,"0YUU0KZ ")

 +290     ;;8093

 +291     ;;21,"0YUU47Z ")

 +292     ;;8094

 +293     ;;21,"0YUU4JZ ")

 +294     ;;8095

 +295     ;;21,"0YUU4KZ ")

 +296     ;;8096

 +297     ;;21,"0YUV07Z ")

 +298     ;;8097

 +299     ;;21,"0YUV0JZ ")

 +300     ;;8098

 +301     ;;21,"0YUV0KZ ")

 +302     ;;8099

 +303     ;;21,"0YUV47Z ")

 +304     ;;8100

 +305     ;;21,"0YUV4JZ ")

 +306     ;;8101

 +307     ;;21,"0YUV4KZ ")

 +308     ;;8102

 +309     ;;21,"0YUW07Z ")

 +310     ;;8103

 +311     ;;21,"0YUW0JZ ")

 +312     ;;8104

 +313     ;;21,"0YUW0KZ ")

 +314     ;;8105

 +315     ;;21,"0YUW47Z ")

 +316     ;;8106

 +317     ;;21,"0YUW4JZ ")

 +318     ;;8107

 +319     ;;21,"0YUW4KZ ")

 +320     ;;8108

 +321     ;;21,"0YUX07Z ")

 +322     ;;8109

 +323     ;;21,"0YUX0JZ ")

 +324     ;;8110

 +325     ;;21,"0YUX0KZ ")

 +326     ;;8111

 +327     ;;21,"0YUX47Z ")

 +328     ;;8112

 +329     ;;21,"0YUX4JZ ")

 +330     ;;8113

 +331     ;;21,"0YUX4KZ ")

 +332     ;;8114

 +333     ;;21,"0YUY07Z ")

 +334     ;;8115

 +335     ;;21,"0YUY0JZ ")

 +336     ;;8116

 +337     ;;21,"0YUY0KZ ")

 +338     ;;8117

 +339     ;;21,"0YUY47Z ")

 +340     ;;8118

 +341     ;;21,"0YUY4JZ ")

 +342     ;;8119

 +343     ;;21,"0YUY4KZ ")

 +344     ;;8120

 +345     ;;21,"0YW900Z ")

 +346     ;;8121

 +347     ;;21,"0YW903Z ")

 +348     ;;8122

 +349     ;;21,"0YW907Z ")

 +350     ;;8123

 +351     ;;21,"0YW90JZ ")

 +352     ;;8124

 +353     ;;21,"0YW90KZ ")

 +354     ;;8125

 +355     ;;21,"0YW90YZ ")

 +356     ;;8126

 +357     ;;21,"0YW930Z ")

 +358     ;;8127

 +359     ;;21,"0YW933Z ")

 +360     ;;8128

 +361     ;;21,"0YW937Z ")

 +362     ;;8129

 +363     ;;21,"0YW93JZ ")

 +364     ;;8130

 +365     ;;21,"0YW93KZ ")

 +366     ;;8131

 +367     ;;21,"0YW93YZ ")

 +368     ;;8132

 +369     ;;21,"0YW940Z ")

 +370     ;;8133

 +371     ;;21,"0YW943Z ")

 +372     ;;8134

 +373     ;;21,"0YW947Z ")

 +374     ;;8135

 +375     ;;21,"0YW94JZ ")

 +376     ;;8136

 +377     ;;21,"0YW94KZ ")

 +378     ;;8137

 +379     ;;21,"0YW94YZ ")

 +380     ;;8138

 +381     ;;21,"0YW9X0Z ")

 +382     ;;8139

 +383     ;;21,"0YW9X3Z ")

 +384     ;;8140

 +385     ;;21,"0YW9X7Z ")

 +386     ;;8141

 +387     ;;21,"0YW9XJZ ")

 +388     ;;8142

 +389     ;;21,"0YW9XKZ ")

 +390     ;;8143

 +391     ;;21,"0YW9XYZ ")

 +392     ;;8144

 +393     ;;21,"0YWB00Z ")

 +394     ;;8145

 +395     ;;21,"0YWB03Z ")

 +396     ;;8146

 +397     ;;21,"0YWB07Z ")

 +398     ;;8147

 +399     ;;21,"0YWB0JZ ")

 +400     ;;8148

 +401     ;;21,"0YWB0KZ ")

 +402     ;;8149

 +403     ;;21,"0YWB0YZ ")

 +404     ;;8150

 +405     ;;21,"0YWB30Z ")

 +406     ;;8151

 +407     ;;21,"0YWB33Z ")

 +408     ;;8152

 +409     ;;21,"0YWB37Z ")

 +410     ;;8153

 +411     ;;21,"0YWB3JZ ")

 +412     ;;8154

 +413     ;;21,"0YWB3KZ ")

 +414     ;;8155

 +415     ;;21,"0YWB3YZ ")

 +416     ;;8156

 +417     ;;21,"0YWB40Z ")

 +418     ;;8157

 +419     ;;21,"0YWB43Z ")

 +420     ;;8158

 +421     ;;21,"0YWB47Z ")

 +422     ;;8159

 +423     ;;21,"0YWB4JZ ")

 +424     ;;8160

 +425     ;;21,"0YWB4KZ ")

 +426     ;;8161

 +427     ;;21,"0YWB4YZ ")

 +428     ;;8162

 +429     ;;21,"0YWBX0Z ")

 +430     ;;8163

 +431     ;;21,"0YWBX3Z ")

 +432     ;;8164

 +433     ;;21,"0YWBX7Z ")

 +434     ;;8165

 +435     ;;21,"0YWBXJZ ")

 +436     ;;8166

 +437     ;;21,"0YWBXKZ ")

 +438     ;;8167

 +439     ;;21,"0YWBXYZ ")

 +440     ;;8168

 +441     ;;21,"102073Z ")

 +442     ;;8169

 +443     ;;21,"10207YZ ")

 +444     ;;8170

 +445     ;;21,"10907ZC ")

 +446     ;;8171

 +447     ;;21,"10908ZC ")

 +448     ;;8172

 +449     ;;21,"10A07ZX ")

 +450     ;;8173

 +451     ;;21,"23.01 ")

 +452     ;;8174

 +453     ;;21,"24.0 ")

 +454     ;;8175

 +455     ;;21,"2W00X0Z ")

 +456     ;;8176

 +457     ;;21,"2W00X1Z ")

 +458     ;;8177

 +459     ;;21,"2W00X2Z ")

 +460     ;;8178

 +461     ;;21,"2W00X3Z ")

 +462     ;;8179

 +463     ;;21,"2W00X4Z ")

 +464     ;;8180

 +465     ;;21,"2W00X5Z ")

 +466     ;;8181

 +467     ;;21,"2W00X6Z ")

 +468     ;;8182

 +469     ;;21,"2W00X7Z ")

 +470     ;;8183

 +471     ;;21,"2W00XYZ ")

 +472     ;;8184

 +473     ;;21,"2W01X0Z ")

 +474     ;;8185

 +475     ;;21,"2W01X1Z ")

 +476     ;;8186

 +477     ;;21,"2W01X2Z ")

 +478     ;;8187

 +479     ;;21,"2W01X3Z ")

 +480     ;;8188

 +481     ;;21,"2W01X4Z ")

 +482     ;;8189

 +483     ;;21,"2W01X5Z ")

 +484     ;;8190

 +485     ;;21,"2W01X6Z ")

 +486     ;;8191

 +487     ;;21,"2W01X7Z ")

 +488     ;;8192

 +489     ;;21,"2W01X9Z ")

 +490     ;;8193

 +491     ;;21,"2W01XYZ ")

 +492     ;;8194

 +493     ;;21,"2W02X0Z ")

 +494     ;;8195

 +495     ;;21,"2W02X1Z ")

 +496     ;;8196

 +497     ;;21,"2W02X2Z ")

 +498     ;;8197

 +499     ;;21,"2W02X3Z ")

 +500     ;;8198

 +501     ;;21,"2W02X4Z ")

 +502     ;;8199

 +503     ;;21,"2W02X5Z ")

 +504     ;;8200

 +505     ;;21,"2W02X6Z ")

 +506     ;;8201

 +507     ;;21,"2W02X7Z ")

 +508     ;;8202

 +509     ;;21,"2W02XYZ ")

 +510     ;;8203

 +511     ;;21,"2W03X0Z ")

 +512     ;;8204

 +513     ;;21,"2W03X1Z ")

 +514     ;;8205

 +515     ;;21,"2W03X2Z ")

 +516     ;;8206

 +517     ;;21,"2W03X3Z ")

 +518     ;;8207

 +519     ;;21,"2W03X4Z ")

 +520     ;;8208

 +521     ;;21,"2W03X5Z ")

 +522     ;;8209

 +523     ;;21,"2W03X6Z ")

 +524     ;;8210

 +525     ;;21,"2W03X7Z ")

 +526     ;;8211

 +527     ;;21,"2W03XYZ ")

 +528     ;;8212

 +529     ;;21,"2W04X0Z ")

 +530     ;;8213