ATXXA22.m

ATXXA22 ;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,"S97.00XA ")

 ;;8092

 ;;21,"S97.01XA ")

 ;;8093

 ;;21,"S97.02XA ")

 ;;8094

 ;;21,"S97.101A ")

 ;;8095

 ;;21,"S97.102A ")

 ;;8096

 ;;21,"S97.109A ")

 ;;8097

 ;;21,"S97.111A ")

 ;;8098

 ;;21,"S97.112A ")

 ;;8099

 ;;21,"S97.119A ")

 ;;8100

 ;;21,"S97.121A ")

 ;;8101

 ;;21,"S97.122A ")

 ;;8102

 ;;21,"S97.129A ")

 ;;8103

 ;;21,"S97.80XA ")

 ;;8104

 ;;21,"S97.81XA ")

 ;;8105

 ;;21,"S97.82XA ")

 ;;8106

 ;;21,"S98.011A ")

 ;;8107

 ;;21,"S98.012A ")

 ;;8108

 ;;21,"S98.019A ")

 ;;8109

 ;;21,"S98.021A ")

 ;;8110

 ;;21,"S98.022A ")

 ;;8111

 ;;21,"S98.029A ")

 ;;8112

 ;;21,"S98.111A ")

 ;;8113

 ;;21,"S98.112A ")

 ;;8114

 ;;21,"S98.119A ")

 ;;8115

 ;;21,"S98.121A ")

 ;;8116

 ;;21,"S98.122A ")

 ;;8117

 ;;21,"S98.129A ")

 ;;8118

 ;;21,"S98.131A ")

 ;;8119

 ;;21,"S98.132A ")

 ;;8120

 ;;21,"S98.139A ")

 ;;8121

 ;;21,"S98.141A ")

 ;;8122

 ;;21,"S98.142A ")

 ;;8123

 ;;21,"S98.149A ")

 ;;8124

 ;;21,"S98.211A ")

 ;;8125

 ;;21,"S98.212A ")

 ;;8126

 ;;21,"S98.219A ")

 ;;8127

 ;;21,"S98.221A ")

 ;;8128

 ;;21,"S98.222A ")

 ;;8129

 ;;21,"S98.229A ")

 ;;8130

 ;;21,"S98.311A ")

 ;;8131

 ;;21,"S98.312A ")

 ;;8132

 ;;21,"S98.319A ")

 ;;8133

 ;;21,"S98.321A ")

 ;;8134

 ;;21,"S98.322A ")

 ;;8135

 ;;21,"S98.329A ")

 ;;8136

 ;;21,"S98.911A ")

 ;;8137

 ;;21,"S98.912A ")

 ;;8138

 ;;21,"S98.919A ")

 ;;8139

 ;;21,"S98.921A ")

 ;;8140

 ;;21,"S98.922A ")

 ;;8141

 ;;21,"S98.929A ")

 ;;8142

 ;;21,"S99.811A ")

 ;;8143

 ;;21,"S99.812A ")

 ;;8144

 ;;21,"S99.819A ")

 ;;8145

 ;;21,"S99.821A ")

 ;;8146

 ;;21,"S99.822A ")

 ;;8147

 ;;21,"S99.829A ")

 ;;8148

 ;;21,"S99.911A ")

 ;;8149

 ;;21,"S99.912A ")

 ;;8150

 ;;21,"S99.919A ")

 ;;8151

 ;;21,"S99.921A ")

 ;;8152

 ;;21,"S99.922A ")

 ;;8153

 ;;21,"S99.929A ")

 ;;8154

 ;;21,"T07. ")

 ;;8155

 ;;21,"T14.8 ")

 ;;8156

 ;;21,"T14.90 ")

 ;;8157

 ;;21,"T14.91 ")

 ;;8158

 ;;21,"T15.00XA ")

 ;;8159

 ;;21,"T15.01XA ")

 ;;8160

 ;;21,"T15.02XA ")

 ;;8161

 ;;21,"T15.10XA ")

 ;;8162

 ;;21,"T15.11XA ")

 ;;8163

 ;;21,"T15.12XA ")

 ;;8164

 ;;21,"T15.80XA ")

 ;;8165

 ;;21,"T15.81XA ")

 ;;8166

 ;;21,"T15.82XA ")

 ;;8167

 ;;21,"T15.90XA ")

 ;;8168

 ;;21,"T15.91XA ")

 ;;8169

 ;;21,"T15.92XA ")

 ;;8170

 ;;21,"T16.1XXA ")

 ;;8171

 ;;21,"T16.2XXA ")

 ;;8172

 ;;21,"T16.9XXA ")

 ;;8173

 ;;21,"T17.0XXA ")

 ;;8174

 ;;21,"T17.1XXA ")

 ;;8175

 ;;21,"T17.200A ")

 ;;8176

 ;;21,"T17.208A ")

 ;;8177

 ;;21,"T17.210A ")

 ;;8178

 ;;21,"T17.218A ")

 ;;8179

 ;;21,"T17.220A ")

 ;;8180

 ;;21,"T17.228A ")

 ;;8181

 ;;21,"T17.290A ")

 ;;8182

 ;;21,"T17.298A ")

 ;;8183

 ;;21,"T17.300A ")

 ;;8184

 ;;21,"T17.308A ")

 ;;8185

 ;;21,"T17.310A ")

 ;;8186

 ;;21,"T17.318A ")

 ;;8187

 ;;21,"T17.320A ")

 ;;8188

 ;;21,"T17.328A ")

 ;;8189

 ;;21,"T17.390A ")

 ;;8190

 ;;21,"T17.398A ")

 ;;8191

 ;;21,"T17.400A ")

 ;;8192

 ;;21,"T17.408A ")

 ;;8193

 ;;21,"T17.410A ")

 ;;8194

 ;;21,"T17.418A ")

 ;;8195

 ;;21,"T17.420A ")

 ;;8196

 ;;21,"T17.428A ")

 ;;8197

 ;;21,"T17.490A ")

 ;;8198

 ;;21,"T17.498A ")

 ;;8199

 ;;21,"T17.500A ")

 ;;8200

 ;;21,"T17.508A ")

 ;;8201

 ;;21,"T17.510A ")

 ;;8202

 ;;21,"T17.518A ")

 ;;8203

 ;;21,"T17.520A ")

 ;;8204

 ;;21,"T17.528A ")

 ;;8205

 ;;21,"T17.590A ")

 ;;8206

 ;;21,"T17.598A ")

 ;;8207

 ;;21,"T17.800A ")

 ;;8208

 ;;21,"T17.808A ")

 ;;8209

 ;;21,"T17.810A ")

 ;;8210

 ;;21,"T17.818A ")

 ;;8211

 ;;21,"T17.820A ")

 ;;8212

 ;;21,"T17.828A ")

 ;;8213

 ;;21,"T17.890A ")

 ;;8214

 ;;21,"T17.898A ")

 ;;8215

 ;;21,"T17.900A ")

 ;;8216

 ;;21,"T17.908A ")

 ;;8217

 ;;21,"T17.910A ")

 ;;8218

 ;;21,"T17.918A ")

 ;;8219

 ;;21,"T17.920A ")

 ;;8220

 ;;21,"T17.928A ")

 ;;8221

 ;;21,"T17.990A ")

 ;;8222

 ;;21,"T17.998A ")

 ;;8223

 ;;21,"T18.0XXA ")

 ;;8224

 ;;21,"T18.100A ")

 ;;8225

 ;;21,"T18.108A ")

 ;;8226

 ;;21,"T18.110A ")

 ;;8227

 ;;21,"T18.118A ")

 ;;8228

 ;;21,"T18.120A ")

 ;;8229

 ;;21,"T18.128A ")

 ;;8230

 ;;21,"T18.190A ")

 ;;8231

 ;;21,"T18.198A ")

 ;;8232

 ;;21,"T18.2XXA ")

 ;;8233

 ;;21,"T18.3XXA ")

 ;;8234

 ;;21,"T18.4XXA ")

 ;;8235

 ;;21,"T18.5XXA ")

 ;;8236

 ;;21,"T18.8XXA ")

 ;;8237

 ;;21,"T18.9XXA ")

 ;;8238

 ;;21,"T19.0XXA ")

 ;;8239

 ;;21,"T19.1XXA ")

 ;;8240

 ;;21,"T19.2XXA ")

 ;;8241

 ;;21,"T19.3XXA ")

 ;;8242

 ;;21,"T19.4XXA ")

 ;;8243

 ;;21,"T19.8XXA ")

 ;;8244

 ;;21,"T19.9XXA ")

 ;;8245

 ;;21,"T20.00XA ")

 ;;8246

 ;;21,"T20.011A ")

 ;;8247

 ;;21,"T20.012A ")

 ;;8248

 ;;21,"T20.019A ")

 ;;8249

 ;;21,"T20.02XA ")

 ;;8250

 ;;21,"T20.03XA ")

 ;;8251

 ;;21,"T20.04XA ")

 ;;8252

 ;;21,"T20.05XA ")

 ;;8253

 ;;21,"T20.06XA ")

 ;;8254

 ;;21,"T20.07XA ")

 ;;8255

 ;;21,"T20.09XA ")

 ;;8256

 ;;21,"T20.10XA ")

 ;;8257

 ;;21,"T20.111A ")

 ;;8258

 ;;21,"T20.112A ")

 ;;8259

 ;;21,"T20.119A ")

 ;;8260

 ;;21,"T20.12XA ")

 ;;8261

 ;;21,"T20.13XA ")

 ;;8262

 ;;21,"T20.14XA ")

 ;;8263

 ;;21,"T20.15XA ")

 ;;8264

 ;;21,"T20.16XA ")

 ;;8265

 ;;21,"T20.17XA ")

 ;;8266

 ;;21,"T20.19XA ")

 ;;8267

 ;;21,"T20.20XA ")

 ;;8268

 ;;21,"T20.211A ")

 ;;8269

 ;;21,"T20.212A ")

 ;;8270

 ;;21,"T20.219A ")

 ;;8271

 ;;21,"T20.22XA ")

 ;;8272

 ;;21,"T20.23XA ")

 ;;8273

 ;;21,"T20.24XA ")

 ;;8274

 ;;21,"T20.25XA ")

 ;;8275

 ;;21,"T20.26XA ")

 ;;8276

 ;;21,"T20.27XA ")

 ;;8277

 ;;21,"T20.29XA ")

 ;;8278

 ;;21,"T20.30XA ")

 ;;8279

 ;;21,"T20.311A ")

 ;;8280

 ;;21,"T20.312A ")

 ;;8281

 ;;21,"T20.319A ")

 ;;8282

 ;;21,"T20.32XA ")

 ;;8283

 ;;21,"T20.33XA ")

 ;;8284

 ;;21,"T20.34XA ")

 ;;8285

 ;;21,"T20.35XA ")

 ;;8286

 ;;21,"T20.36XA ")

 ;;8287

 ;;21,"T20.37XA ")

 ;;8288

 ;;21,"T20.39XA ")

 ;;8289

 ;;21,"T20.40XA ")

 ;;8290

 ;;21,"T20.411A ")

 ;;8291

 ;;21,"T20.412A ")

 ;;8292

 ;;21,"T20.419A ")

 ;;8293

 ;;21,"T20.42XA ")

 ;;8294

 ;;21,"T20.43XA ")

 ;;8295

 ;;21,"T20.44XA ")

 ;;8296

 ;;21,"T20.45XA ")

 ;;8297

 ;;21,"T20.46XA ")

 ;;8298

 ;;21,"T20.47XA ")

 ;;8299

 ;;21,"T20.49XA ")

 ;;8300

 ;;21,"T20.50XA ")

 ;;8301

 ;;21,"T20.511A ")

 ;;8302

 ;;21,"T20.512A ")

 ;;8303

 ;;21,"T20.519A ")

 ;;8304

 ;;21,"T20.52XA ")

 ;;8305

 ;;21,"T20.53XA ")

 ;;8306

 ;;21,"T20.54XA ")

 ;;8307

 ;;21,"T20.55XA ")

 ;;8308

 ;;21,"T20.56XA ")

 ;;8309

 ;;21,"T20.57XA ")

 ;;8310

 ;;21,"T20.59XA ")

 ;;8311

 ;;21,"T20.60XA ")

 ;;8312

 ;;21,"T20.611A ")

 ;;8313

 ;;21,"T20.612A ")

 ;;8314

 ;;21,"T20.619A ")

 ;;8315

 ;;21,"T20.62XA ")

 ;;8316

 ;;21,"T20.63XA ")

 ;;8317

 ;;21,"T20.64XA ")

 ;;8318

 ;;21,"T20.65XA ")

 ;;8319

 ;;21,"T20.66XA ")

 ;;8320

 ;;21,"T20.67XA ")

 ;;8321

 ;;21,"T20.69XA ")

 ;;8322

 ;;21,"T20.70XA ")

 ;;8323

 ;;21,"T20.711A ")

 ;;8324

 ;;21,"T20.712A ")

 ;;8325

 ;;21,"T20.719A ")

 ;;8326

 ;;21,"T20.72XA ")

 ;;8327

 ;;21,"T20.73XA ")

 ;;8328

 ;;21,"T20.74XA ")

 ;;8329

 ;;21,"T20.75XA ")

 ;;8330

 ;;21,"T20.76XA ")

 ;;8331

 ;;21,"T20.77XA ")

 ;;8332

 ;;21,"T20.79XA ")

 ;;8333

 ;;21,"T21.00XA ")

 ;;8334

 ;;21,"T21.01XA ")

 ;;8335

 ;;21,"T21.02XA ")

 ;;8336

 ;;21,"T21.03XA ")

 ;;8337

 ;;21,"T21.04XA ")

 ;;8338

 ;;21,"T21.05XA ")

 ;;8339

 ;;21,"T21.06XA ")

 ;;8340

 ;;21,"T21.07XA ")

 ;;8341

 ;;21,"T21.09XA ")

 ;;8342

 ;;21,"T21.10XA ")

 ;;8343

 ;;21,"T21.11XA ")

 ;;8344

 ;;21,"T21.12XA ")

 ;;8345

 ;;21,"T21.13XA ")

 ;;8346

 ;;21,"T21.14XA ")

 ;;8347

 ;;21,"T21.15XA ")

 ;;8348

 ;;21,"T21.16XA ")

 ;;8349

 ;;21,"T21.17XA ")

 ;;8350

 ;;21,"T21.19XA ")

 ;;8351

 ;;21,"T21.20XA ")

 ;;8352

 ;;21,"T21.21XA ")

 ;;8353

 ;;21,"T21.22XA ")

 ;;8354

 ;;21,"T21.23XA ")

 ;;8355

 ;;21,"T21.24XA ")

 ;;8356

 ;;21,"T21.25XA ")

 ;;8357

 ;;21,"T21.26XA ")

 ;;8358

 ;;21,"T21.27XA ")

 ;;8359

 ;;21,"T21.29XA ")

 ;;8360

 ;;21,"T21.30XA ")

 ;;8361

 ;;21,"T21.31XA ")

 ;;8362

 ;;21,"T21.32XA ")

 ;;8363

 ;;21,"T21.33XA ")

 ;;8364

 ;;21,"T21.34XA ")

 ;;8365

 ;;21,"T21.35XA ")

 ;;8366

 ;;21,"T21.36XA ")

 ;;8367

 ;;21,"T21.37XA ")

 ;;8368

 ;;21,"T21.39XA ")

 ;;8369

 ;;21,"T21.40XA ")

 ;;8370

 ;;21,"T21.41XA ")

 ;;8371

 ;;21,"T21.42XA ")

 ;;8372

 ;;21,"T21.43XA ")

 ;;8373

 ;;21,"T21.44XA ")

 ;;8374

 ;;21,"T21.45XA ")

 ;;8375

 ;;21,"T21.46XA ")

 ;;8376

 ;;21,"T21.47XA ")

 ;;8377

 ;;21,"T21.49XA ")

 ;;8378

 ;;21,"T21.50XA ")

 ;;8379

 ;;21,"T21.51XA ")

 ;;8380

 ;;21,"T21.52XA ")

 ;;8381

 ;;21,"T21.53XA ")

 ;;8382

 ;;21,"T21.54XA ")

 ;;8383

 ;;21,"T21.55XA ")

 ;;8384

 ;;21,"T21.56XA ")

 ;;8385

 ;;21,"T21.57XA ")

 ;;8386

 ;;21,"T21.59XA ")

 ;;8387

 ;;21,"T21.60XA ")

 ;;8388

 ;;21,"T21.61XA ")

 ;;8389

 ;;21,"T21.62XA ")

 ;;8390

 ;;21,"T21.63XA ")

 ;;8391

 ;;21,"T21.64XA ")

 ;;8392

 ;;21,"T21.65XA ")

 ;;8393

 ;;21,"T21.66XA ")

 ;;8394

 ;;21,"T21.67XA ")

 ;;8395

 ;;21,"T21.69XA ")

 ;;8396

 ;;21,"T21.70XA ")

 ;;8397

 ;;21,"T21.71XA ")

 ;;8398

 ;;21,"T21.72XA ")

 ;;8399

 ;;21,"T21.73XA ")

 ;;8400

 ;;21,"T21.74XA ")

 ;;8401

 ;;21,"T21.75XA ")

 ;;8402

 ;;21,"T21.76XA ")

 ;;8403

 ;;21,"T21.77XA ")

 ;;8404

 ;;21,"T21.79XA ")

 ;;8405

 ;;21,"T22.00XA ")

 ;;8406

 ;;21,"T22.011A ")

 ;;8407

 ;;21,"T22.012A ")

 ;;8408

 ;;21,"T22.019A ")

 ;;8409

 ;;21,"T22.021A ")

 ;;8410

 ;;21,"T22.022A ")

 ;;8411

 ;;21,"T22.029A ")

 ;;8412

 ;;21,"T22.031A ")

 ;;8413

 ;;21,"T22.032A ")

 ;;8414

 ;;21,"T22.039A ")

 ;;8415

 ;;21,"T22.041A ")

 ;;8416

 ;;21,"T22.042A ")

 ;;8417

 ;;21,"T22.049A ")

 ;;8418

 ;;21,"T22.051A ")

 ;;8419

 ;;21,"T22.052A ")

 ;;8420

 ;;21,"T22.059A ")

 ;;8421

 ;;21,"T22.061A ")

 ;;8422

 ;;21,"T22.062A ")

 ;;8423

 ;;21,"T22.069A ")

 ;;8424

 ;;21,"T22.091A ")

 ;;8425

 ;;21,"T22.092A ")

 ;;8426

 ;;21,"T22.099A ")

 ;;8427

 ;;21,"T22.10XA ")

 ;;8428

 ;;21,"T22.111A ")

 ;;8429

 ;;21,"T22.112A ")

 ;;8430

 ;;21,"T22.119A ")

 ;;8431

 ;;21,"T22.121A ")

 ;;8432

 ;;21,"T22.122A ")

 ;;8433

 ;;21,"T22.129A ")

 ;;8434

 ;;21,"T22.131A ")

 ;;8435

 ;;21,"T22.132A ")

 ;;8436

 ;;21,"T22.139A ")

 ;;8437

 ;;21,"T22.141A ")

 ;;8438

 ;;21,"T22.142A ")

 ;;8439

 ;;21,"T22.149A ")

 ;;8440

 ;;21,"T22.151A ")

 ;;8441

 ;;21,"T22.152A ")

 ;;8442

 ;;21,"T22.159A ")

 ;;8443

 ;;21,"T22.161A ")

 ;;8444

 ;;21,"T22.162A ")

 ;;8445

 ;;21,"T22.169A ")

 ;;8446

 ;;21,"T22.191A ")

 ;;8447

 ;;21,"T22.192A ")

 ;;8448

 ;;21,"T22.199A ")

 ;;8449

 ;;21,"T22.20XA ")

 ;;8450

 ;;21,"T22.211A ")

 ;;8451

 ;;21,"T22.212A ")

 ;;8452

 ;;21,"T22.219A ")

 ;;8453

 ;;21,"T22.221A ")

 ;;8454

 ;;21,"T22.222A ")

 ;;8455

 ;;21,"T22.229A ")

 ;;8456

 ;;21,"T22.231A ")

 ;;8457

 ;;21,"T22.232A ")

 ;;8458

 ;;21,"T22.239A ")

 ;;8459

 ;;21,"T22.241A ")

 ;;8460

 ;;21,"T22.242A ")

 ;;8461

 ;;21,"T22.249A ")

 ;;8462

 ;;21,"T22.251A ")

 ;;8463

 ;;21,"T22.252A ")

 ;;8464

 ;;21,"T22.259A ")

 ;;8465

 ;;21,"T22.261A ")

 ;;8466

 ;;21,"T22.262A ")

 ;;8467

 ;;21,"T22.269A ")

 ;;8468

 ;;21,"T22.291A ")

 ;;8469

 ;;21,"T22.292A ")

 ;;8470

 ;;21,"T22.299A ")

 ;;8471

 ;;21,"T22.30XA ")

 ;;8472

 ;;21,"T22.311A ")

 ;;8473

 ;;21,"T22.312A ")

 ;;8474

 ;;21,"T22.319A ")

 ;;8475

ATXXA22   ;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,"S97.00XA ")

 +2       ;;8092

 +3       ;;21,"S97.01XA ")

 +4       ;;8093

 +5       ;;21,"S97.02XA ")

 +6       ;;8094

 +7       ;;21,"S97.101A ")

 +8       ;;8095

 +9       ;;21,"S97.102A ")

 +10      ;;8096

 +11      ;;21,"S97.109A ")

 +12      ;;8097

 +13      ;;21,"S97.111A ")

 +14      ;;8098

 +15      ;;21,"S97.112A ")

 +16      ;;8099

 +17      ;;21,"S97.119A ")

 +18      ;;8100

 +19      ;;21,"S97.121A ")

 +20      ;;8101

 +21      ;;21,"S97.122A ")

 +22      ;;8102

 +23      ;;21,"S97.129A ")

 +24      ;;8103

 +25      ;;21,"S97.80XA ")

 +26      ;;8104

 +27      ;;21,"S97.81XA ")

 +28      ;;8105

 +29      ;;21,"S97.82XA ")

 +30      ;;8106

 +31      ;;21,"S98.011A ")

 +32      ;;8107

 +33      ;;21,"S98.012A ")

 +34      ;;8108

 +35      ;;21,"S98.019A ")

 +36      ;;8109

 +37      ;;21,"S98.021A ")

 +38      ;;8110

 +39      ;;21,"S98.022A ")

 +40      ;;8111

 +41      ;;21,"S98.029A ")

 +42      ;;8112

 +43      ;;21,"S98.111A ")

 +44      ;;8113

 +45      ;;21,"S98.112A ")

 +46      ;;8114

 +47      ;;21,"S98.119A ")

 +48      ;;8115

 +49      ;;21,"S98.121A ")

 +50      ;;8116

 +51      ;;21,"S98.122A ")

 +52      ;;8117

 +53      ;;21,"S98.129A ")

 +54      ;;8118

 +55      ;;21,"S98.131A ")

 +56      ;;8119

 +57      ;;21,"S98.132A ")

 +58      ;;8120

 +59      ;;21,"S98.139A ")

 +60      ;;8121

 +61      ;;21,"S98.141A ")

 +62      ;;8122

 +63      ;;21,"S98.142A ")

 +64      ;;8123

 +65      ;;21,"S98.149A ")

 +66      ;;8124

 +67      ;;21,"S98.211A ")

 +68      ;;8125

 +69      ;;21,"S98.212A ")

 +70      ;;8126

 +71      ;;21,"S98.219A ")

 +72      ;;8127

 +73      ;;21,"S98.221A ")

 +74      ;;8128

 +75      ;;21,"S98.222A ")

 +76      ;;8129

 +77      ;;21,"S98.229A ")

 +78      ;;8130

 +79      ;;21,"S98.311A ")

 +80      ;;8131

 +81      ;;21,"S98.312A ")

 +82      ;;8132

 +83      ;;21,"S98.319A ")

 +84      ;;8133

 +85      ;;21,"S98.321A ")

 +86      ;;8134

 +87      ;;21,"S98.322A ")

 +88      ;;8135

 +89      ;;21,"S98.329A ")

 +90      ;;8136

 +91      ;;21,"S98.911A ")

 +92      ;;8137

 +93      ;;21,"S98.912A ")

 +94      ;;8138

 +95      ;;21,"S98.919A ")

 +96      ;;8139

 +97      ;;21,"S98.921A ")

 +98      ;;8140

 +99      ;;21,"S98.922A ")

 +100     ;;8141

 +101     ;;21,"S98.929A ")

 +102     ;;8142

 +103     ;;21,"S99.811A ")

 +104     ;;8143

 +105     ;;21,"S99.812A ")

 +106     ;;8144

 +107     ;;21,"S99.819A ")

 +108     ;;8145

 +109     ;;21,"S99.821A ")

 +110     ;;8146

 +111     ;;21,"S99.822A ")

 +112     ;;8147

 +113     ;;21,"S99.829A ")

 +114     ;;8148

 +115     ;;21,"S99.911A ")

 +116     ;;8149

 +117     ;;21,"S99.912A ")

 +118     ;;8150

 +119     ;;21,"S99.919A ")

 +120     ;;8151

 +121     ;;21,"S99.921A ")

 +122     ;;8152

 +123     ;;21,"S99.922A ")

 +124     ;;8153

 +125     ;;21,"S99.929A ")

 +126     ;;8154

 +127     ;;21,"T07. ")

 +128     ;;8155

 +129     ;;21,"T14.8 ")

 +130     ;;8156

 +131     ;;21,"T14.90 ")

 +132     ;;8157

 +133     ;;21,"T14.91 ")

 +134     ;;8158

 +135     ;;21,"T15.00XA ")

 +136     ;;8159

 +137     ;;21,"T15.01XA ")

 +138     ;;8160

 +139     ;;21,"T15.02XA ")

 +140     ;;8161

 +141     ;;21,"T15.10XA ")

 +142     ;;8162

 +143     ;;21,"T15.11XA ")

 +144     ;;8163

 +145     ;;21,"T15.12XA ")

 +146     ;;8164

 +147     ;;21,"T15.80XA ")

 +148     ;;8165

 +149     ;;21,"T15.81XA ")

 +150     ;;8166

 +151     ;;21,"T15.82XA ")

 +152     ;;8167

 +153     ;;21,"T15.90XA ")

 +154     ;;8168

 +155     ;;21,"T15.91XA ")

 +156     ;;8169

 +157     ;;21,"T15.92XA ")

 +158     ;;8170

 +159     ;;21,"T16.1XXA ")

 +160     ;;8171

 +161     ;;21,"T16.2XXA ")

 +162     ;;8172

 +163     ;;21,"T16.9XXA ")

 +164     ;;8173

 +165     ;;21,"T17.0XXA ")

 +166     ;;8174

 +167     ;;21,"T17.1XXA ")

 +168     ;;8175

 +169     ;;21,"T17.200A ")

 +170     ;;8176

 +171     ;;21,"T17.208A ")

 +172     ;;8177

 +173     ;;21,"T17.210A ")

 +174     ;;8178

 +175     ;;21,"T17.218A ")

 +176     ;;8179

 +177     ;;21,"T17.220A ")

 +178     ;;8180

 +179     ;;21,"T17.228A ")

 +180     ;;8181

 +181     ;;21,"T17.290A ")

 +182     ;;8182

 +183     ;;21,"T17.298A ")

 +184     ;;8183

 +185     ;;21,"T17.300A ")

 +186     ;;8184

 +187     ;;21,"T17.308A ")

 +188     ;;8185

 +189     ;;21,"T17.310A ")

 +190     ;;8186

 +191     ;;21,"T17.318A ")

 +192     ;;8187

 +193     ;;21,"T17.320A ")

 +194     ;;8188

 +195     ;;21,"T17.328A ")

 +196     ;;8189

 +197     ;;21,"T17.390A ")

 +198     ;;8190

 +199     ;;21,"T17.398A ")

 +200     ;;8191

 +201     ;;21,"T17.400A ")

 +202     ;;8192

 +203     ;;21,"T17.408A ")

 +204     ;;8193

 +205     ;;21,"T17.410A ")

 +206     ;;8194

 +207     ;;21,"T17.418A ")

 +208     ;;8195

 +209     ;;21,"T17.420A ")

 +210     ;;8196

 +211     ;;21,"T17.428A ")

 +212     ;;8197

 +213     ;;21,"T17.490A ")

 +214     ;;8198

 +215     ;;21,"T17.498A ")

 +216     ;;8199

 +217     ;;21,"T17.500A ")

 +218     ;;8200

 +219     ;;21,"T17.508A ")

 +220     ;;8201

 +221     ;;21,"T17.510A ")

 +222     ;;8202

 +223     ;;21,"T17.518A ")

 +224     ;;8203

 +225     ;;21,"T17.520A ")

 +226     ;;8204

 +227     ;;21,"T17.528A ")

 +228     ;;8205

 +229     ;;21,"T17.590A ")

 +230     ;;8206

 +231     ;;21,"T17.598A ")

 +232     ;;8207

 +233     ;;21,"T17.800A ")

 +234     ;;8208

 +235     ;;21,"T17.808A ")

 +236     ;;8209

 +237     ;;21,"T17.810A ")

 +238     ;;8210

 +239     ;;21,"T17.818A ")

 +240     ;;8211

 +241     ;;21,"T17.820A ")

 +242     ;;8212

 +243     ;;21,"T17.828A ")

 +244     ;;8213

 +245     ;;21,"T17.890A ")

 +246     ;;8214

 +247     ;;21,"T17.898A ")

 +248     ;;8215

 +249     ;;21,"T17.900A ")

 +250     ;;8216

 +251     ;;21,"T17.908A ")

 +252     ;;8217

 +253     ;;21,"T17.910A ")

 +254     ;;8218

 +255     ;;21,"T17.918A ")

 +256     ;;8219

 +257     ;;21,"T17.920A ")

 +258     ;;8220

 +259     ;;21,"T17.928A ")

 +260     ;;8221

 +261     ;;21,"T17.990A ")

 +262     ;;8222

 +263     ;;21,"T17.998A ")

 +264     ;;8223

 +265     ;;21,"T18.0XXA ")

 +266     ;;8224

 +267     ;;21,"T18.100A ")

 +268     ;;8225

 +269     ;;21,"T18.108A ")

 +270     ;;8226

 +271     ;;21,"T18.110A ")

 +272     ;;8227

 +273     ;;21,"T18.118A ")

 +274     ;;8228

 +275     ;;21,"T18.120A ")

 +276     ;;8229

 +277     ;;21,"T18.128A ")

 +278     ;;8230

 +279     ;;21,"T18.190A ")

 +280     ;;8231

 +281     ;;21,"T18.198A ")

 +282     ;;8232

 +283     ;;21,"T18.2XXA ")

 +284     ;;8233

 +285     ;;21,"T18.3XXA ")

 +286     ;;8234

 +287     ;;21,"T18.4XXA ")

 +288     ;;8235

 +289     ;;21,"T18.5XXA ")

 +290     ;;8236

 +291     ;;21,"T18.8XXA ")

 +292     ;;8237

 +293     ;;21,"T18.9XXA ")

 +294     ;;8238

 +295     ;;21,"T19.0XXA ")

 +296     ;;8239

 +297     ;;21,"T19.1XXA ")

 +298     ;;8240

 +299     ;;21,"T19.2XXA ")

 +300     ;;8241

 +301     ;;21,"T19.3XXA ")

 +302     ;;8242

 +303     ;;21,"T19.4XXA ")

 +304     ;;8243

 +305     ;;21,"T19.8XXA ")

 +306     ;;8244

 +307     ;;21,"T19.9XXA ")

 +308     ;;8245

 +309     ;;21,"T20.00XA ")

 +310     ;;8246

 +311     ;;21,"T20.011A ")

 +312     ;;8247

 +313     ;;21,"T20.012A ")

 +314     ;;8248

 +315     ;;21,"T20.019A ")

 +316     ;;8249

 +317     ;;21,"T20.02XA ")

 +318     ;;8250

 +319     ;;21,"T20.03XA ")

 +320     ;;8251

 +321     ;;21,"T20.04XA ")

 +322     ;;8252

 +323     ;;21,"T20.05XA ")

 +324     ;;8253

 +325     ;;21,"T20.06XA ")

 +326     ;;8254

 +327     ;;21,"T20.07XA ")

 +328     ;;8255

 +329     ;;21,"T20.09XA ")

 +330     ;;8256

 +331     ;;21,"T20.10XA ")

 +332     ;;8257

 +333     ;;21,"T20.111A ")

 +334     ;;8258

 +335     ;;21,"T20.112A ")

 +336     ;;8259

 +337     ;;21,"T20.119A ")

 +338     ;;8260

 +339     ;;21,"T20.12XA ")

 +340     ;;8261

 +341     ;;21,"T20.13XA ")

 +342     ;;8262

 +343     ;;21,"T20.14XA ")

 +344     ;;8263

 +345     ;;21,"T20.15XA ")

 +346     ;;8264

 +347     ;;21,"T20.16XA ")

 +348     ;;8265

 +349     ;;21,"T20.17XA ")

 +350     ;;8266

 +351     ;;21,"T20.19XA ")

 +352     ;;8267

 +353     ;;21,"T20.20XA ")

 +354     ;;8268

 +355     ;;21,"T20.211A ")

 +356     ;;8269

 +357     ;;21,"T20.212A ")

 +358     ;;8270

 +359     ;;21,"T20.219A ")

 +360     ;;8271

 +361     ;;21,"T20.22XA ")

 +362     ;;8272

 +363     ;;21,"T20.23XA ")

 +364     ;;8273

 +365     ;;21,"T20.24XA ")

 +366     ;;8274

 +367     ;;21,"T20.25XA ")

 +368     ;;8275

 +369     ;;21,"T20.26XA ")

 +370     ;;8276

 +371     ;;21,"T20.27XA ")

 +372     ;;8277

 +373     ;;21,"T20.29XA ")

 +374     ;;8278

 +375     ;;21,"T20.30XA ")

 +376     ;;8279

 +377     ;;21,"T20.311A ")

 +378     ;;8280

 +379     ;;21,"T20.312A ")

 +380     ;;8281

 +381     ;;21,"T20.319A ")

 +382     ;;8282

 +383     ;;21,"T20.32XA ")

 +384     ;;8283

 +385     ;;21,"T20.33XA ")

 +386     ;;8284

 +387     ;;21,"T20.34XA ")

 +388     ;;8285

 +389     ;;21,"T20.35XA ")

 +390     ;;8286

 +391     ;;21,"T20.36XA ")

 +392     ;;8287

 +393     ;;21,"T20.37XA ")

 +394     ;;8288

 +395     ;;21,"T20.39XA ")

 +396     ;;8289

 +397     ;;21,"T20.40XA ")

 +398     ;;8290

 +399     ;;21,"T20.411A ")

 +400     ;;8291

 +401     ;;21,"T20.412A ")

 +402     ;;8292

 +403     ;;21,"T20.419A ")

 +404     ;;8293

 +405     ;;21,"T20.42XA ")

 +406     ;;8294

 +407     ;;21,"T20.43XA ")

 +408     ;;8295

 +409     ;;21,"T20.44XA ")

 +410     ;;8296

 +411     ;;21,"T20.45XA ")

 +412     ;;8297

 +413     ;;21,"T20.46XA ")

 +414     ;;8298

 +415     ;;21,"T20.47XA ")

 +416     ;;8299

 +417     ;;21,"T20.49XA ")

 +418     ;;8300

 +419     ;;21,"T20.50XA ")

 +420     ;;8301

 +421     ;;21,"T20.511A ")

 +422     ;;8302

 +423     ;;21,"T20.512A ")

 +424     ;;8303

 +425     ;;21,"T20.519A ")

 +426     ;;8304

 +427     ;;21,"T20.52XA ")

 +428     ;;8305

 +429     ;;21,"T20.53XA ")

 +430     ;;8306

 +431     ;;21,"T20.54XA ")

 +432     ;;8307

 +433     ;;21,"T20.55XA ")

 +434     ;;8308

 +435     ;;21,"T20.56XA ")

 +436     ;;8309

 +437     ;;21,"T20.57XA ")

 +438     ;;8310

 +439     ;;21,"T20.59XA ")

 +440     ;;8311

 +441     ;;21,"T20.60XA ")

 +442     ;;8312

 +443     ;;21,"T20.611A ")

 +444     ;;8313

 +445     ;;21,"T20.612A ")

 +446     ;;8314

 +447     ;;21,"T20.619A ")

 +448     ;;8315

 +449     ;;21,"T20.62XA ")

 +450     ;;8316

 +451     ;;21,"T20.63XA ")

 +452     ;;8317

 +453     ;;21,"T20.64XA ")

 +454     ;;8318

 +455     ;;21,"T20.65XA ")

 +456     ;;8319

 +457     ;;21,"T20.66XA ")

 +458     ;;8320

 +459     ;;21,"T20.67XA ")

 +460     ;;8321

 +461     ;;21,"T20.69XA ")

 +462     ;;8322

 +463     ;;21,"T20.70XA ")

 +464     ;;8323

 +465     ;;21,"T20.711A ")

 +466     ;;8324

 +467     ;;21,"T20.712A ")

 +468     ;;8325

 +469     ;;21,"T20.719A ")

 +470     ;;8326

 +471     ;;21,"T20.72XA ")

 +472     ;;8327

 +473     ;;21,"T20.73XA ")

 +474     ;;8328

 +475     ;;21,"T20.74XA ")

 +476     ;;8329

 +477     ;;21,"T20.75XA ")

 +478     ;;8330

 +479     ;;21,"T20.76XA ")

 +480     ;;8331

 +481     ;;21,"T20.77XA ")

 +482     ;;8332

 +483     ;;21,"T20.79XA ")

 +484     ;;8333

 +485     ;;21,"T21.00XA ")

 +486     ;;8334

 +487     ;;21,"T21.01XA ")

 +488     ;;8335

 +489     ;;21,"T21.02XA ")

 +490     ;;8336

 +491     ;;21,"T21.03XA ")

 +492     ;;8337

 +493     ;;21,"T21.04XA ")

 +494     ;;8338

 +495     ;;21,"T21.05XA ")

 +496     ;;8339

 +497     ;;21,"T21.06XA ")

 +498     ;;8340

 +499     ;;21,"T21.07XA ")

 +500     ;;8341

 +501     ;;21,"T21.09XA ")

 +502     ;;8342

 +503     ;;21,"T21.10XA ")

 +504     ;;8343

 +505     ;;21,"T21.11XA ")

 +506     ;;8344

 +507     ;;21,"T21.12XA ")

 +508     ;;8345

 +509     ;;21,"T21.13XA ")

 +510     ;;8346

 +511     ;;21,"T21.14XA ")

 +512     ;;8347

 +513     ;;21,"T21.15XA ")

 +514     ;;8348

 +515     ;;21,"T21.16XA ")

 +516     ;;8349

 +517     ;;21,"T21.17XA ")

 +518     ;;8350

 +519     ;;21,"T21.19XA ")

 +520     ;;8351

 +521     ;;21,"T21.20XA ")

 +522     ;;8352

 +523     ;;21,"T21.21XA ")

 +524     ;;8353

 +525     ;;21,"T21.22XA ")

 +526     ;;8354

 +527     ;;21,"T21.23XA ")

 +528     ;;8355

 +529     ;;21,"T21.24XA ")

 +530     ;;8356

 +531     ;;21,"T21.25XA ")

 +532     ;;8357

 +533     ;;21,"T21.26XA ")

 +534     ;;8358

 +535     ;;21,"T21.27XA ")

 +536     ;;8359

 +537     ;;21,"T21.29XA ")

 +538     ;;8360

 +539     ;;21,"T21.30XA ")

 +540     ;;8361

 +541     ;;21,"T21.31XA ")

 +542     ;;8362

 +543     ;;21,"T21.32XA ")

 +544     ;;8363

 +545     ;;21,"T21.33XA ")

 +546     ;;8364

 +547     ;;21,"T21.34XA ")