BGP7GXMB.m

BGP7GXMB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 25, 2006 ;

 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 ;

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,"00369-0850-01 ")

 ;;129

 ;;21,"00369-0875-01 ")

 ;;130

 ;;21,"00378-0255-01 ")

 ;;1314

 ;;21,"00378-0255-05 ")

 ;;1315

 ;;21,"00378-0572-01 ")

 ;;1316

 ;;21,"00378-0572-05 ")

 ;;1317

 ;;21,"00378-3401-72 ")

 ;;1318

 ;;21,"00392-0522-68 ")

 ;;524

 ;;21,"00392-0522-78 ")

 ;;235

 ;;21,"00403-1773-84 ")

 ;;1319

 ;;21,"00403-1775-30 ")

 ;;1320

 ;;21,"00403-1776-01 ")

 ;;1321

 ;;21,"00403-1776-30 ")

 ;;1322

 ;;21,"00403-1778-20 ")

 ;;1323

 ;;21,"00403-2253-84 ")

 ;;1324

 ;;21,"00403-2253-88 ")

 ;;1325

 ;;21,"00403-2254-84 ")

 ;;1326

 ;;21,"00403-2555-18 ")

 ;;1327

 ;;21,"00403-2751-01 ")

 ;;525

 ;;21,"00403-2751-40 ")

 ;;526

 ;;21,"00403-2801-20 ")

 ;;1328

 ;;21,"00405-2135-16 ")

 ;;1329

 ;;21,"00405-3255-16 ")

 ;;1330

 ;;21,"00405-3825-16 ")

 ;;932

 ;;21,"00405-4030-01 ")

 ;;1331

 ;;21,"00405-4030-02 ")

 ;;1332

 ;;21,"00405-4031-01 ")

 ;;1333

 ;;21,"00405-4031-02 ")

 ;;1334

 ;;21,"00405-4060-01 ")

 ;;988

 ;;21,"00405-4060-03 ")

 ;;989

 ;;21,"00405-4061-01 ")

 ;;933

 ;;21,"00405-4061-03 ")

 ;;934

 ;;21,"00405-4629-01 ")

 ;;1335

 ;;21,"00405-4630-01 ")

 ;;1336

 ;;21,"00405-4983-01 ")

 ;;981

 ;;21,"00405-4984-01 ")

 ;;968

 ;;21,"00405-4985-01 ")

 ;;982

 ;;21,"00405-4986-01 ")

 ;;983

 ;;21,"00405-4987-01 ")

 ;;975

 ;;21,"00405-4987-02 ")

 ;;976

 ;;21,"00405-4988-01 ")

 ;;977

 ;;21,"00405-4988-02 ")

 ;;978

 ;;21,"00426-8650-16 ")

 ;;1337

 ;;21,"00430-0214-24 ")

 ;;881

 ;;21,"00430-0221-24 ")

 ;;882

 ;;21,"00440-7045-30 ")

 ;;1338

 ;;21,"00440-7046-30 ")

 ;;1339

 ;;21,"00440-8530-30 ")

 ;;314

 ;;21,"00440-8531-30 ")

 ;;641

 ;;21,"00440-8531-90 ")

 ;;642

 ;;21,"00440-8531-94 ")

 ;;643

 ;;21,"00440-8532-30 ")

 ;;471

 ;;21,"00451-0398-00 ")

 ;;1340

 ;;21,"00451-0398-50 ")

 ;;1341

 ;;21,"00451-0398-60 ")

 ;;1342

 ;;21,"00451-0399-00 ")

 ;;1343

 ;;21,"00451-0399-50 ")

 ;;1344

 ;;21,"00451-0399-60 ")

 ;;1345

 ;;21,"00456-0644-16 ")

 ;;905

 ;;21,"00456-0645-08 ")

 ;;883

 ;;21,"00456-0646-00 ")

 ;;613

 ;;21,"00456-0646-01 ")

 ;;334

 ;;21,"00456-0646-63 ")

 ;;614

 ;;21,"00456-0647-00 ")

 ;;41

 ;;21,"00456-0647-01 ")

 ;;455

 ;;21,"00456-0647-63 ")

 ;;456

 ;;21,"00456-0648-08 ")

 ;;885

 ;;21,"00456-0648-16 ")

 ;;886

 ;;21,"00456-3581-01 ")

 ;;906

 ;;21,"00456-3581-05 ")

 ;;907

 ;;21,"00456-3581-10 ")

 ;;908

 ;;21,"00456-4301-01 ")

 ;;922

 ;;21,"00456-4310-01 ")

 ;;930

 ;;21,"00456-4310-02 ")

 ;;931

 ;;21,"00456-4320-00 ")

 ;;909

 ;;21,"00456-4320-01 ")

 ;;910

 ;;21,"00456-4320-02 ")

 ;;911

 ;;21,"00456-4330-00 ")

 ;;912

 ;;21,"00456-4330-01 ")

 ;;913

 ;;21,"00456-4330-02 ")

 ;;914

 ;;21,"00456-4345-01 ")

 ;;916

 ;;21,"00463-9031-16 ")

 ;;872

 ;;21,"00467-0005-25 ")

 ;;446

 ;;21,"00467-0051-25 ")

 ;;209

 ;;21,"00471-0054-28 ")

 ;;245

 ;;21,"00471-0075-16 ")

 ;;248

 ;;21,"00471-0108-04 ")

 ;;563

 ;;21,"00471-0108-16 ")

 ;;564

 ;;21,"00472-0709-16 ")

 ;;868

 ;;21,"00472-0709-28 ")

 ;;537

 ;;21,"00472-0825-04 ")

 ;;1346

 ;;21,"00472-0825-08 ")

 ;;1347

 ;;21,"00472-0825-16 ")

 ;;1348

 ;;21,"00472-0873-08 ")

 ;;917

 ;;21,"00472-1238-16 ")

 ;;918

 ;;21,"00472-1444-16 ")

 ;;869

 ;;21,"00472-1444-28 ")

 ;;870

 ;;21,"00472-1445-16 ")

 ;;359

 ;;21,"00472-1445-28 ")

 ;;360

 ;;21,"00472-1540-16 ")

 ;;873

 ;;21,"00472-1552-16 ")

 ;;1349

 ;;21,"00472-1552-28 ")

 ;;1350

 ;;21,"00485-0059-16 ")

 ;;875

 ;;21,"00491-0122-01 ")

 ;;565

 ;;21,"00493-5002-01 ")

 ;;541

 ;;21,"00493-5002-10 ")

 ;;542

 ;;21,"00496-0609-01 ")

 ;;174

 ;;21,"00525-0302-01 ")

 ;;518

 ;;21,"00525-0305-01 ")

 ;;871

 ;;21,"00525-0376-16 ")

 ;;919

 ;;21,"00527-0599-01 ")

 ;;527

 ;;21,"00527-0599-05 ")

 ;;236

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

 ;;447

 ;;21,"00527-1004-10 ")

 ;;448

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

 ;;220

 ;;21,"00527-1006-10 ")

 ;;221

 ;;21,"00536-0415-85 ")

 ;;1351

 ;;21,"00536-0490-85 ")

 ;;1352

 ;;21,"00536-0760-90 ")

 ;;261

 ;;21,"00536-1462-85 ")

 ;;1353

 ;;21,"00536-2120-85 ")

 ;;551

 ;;21,"00536-2120-90 ")

 ;;552

 ;;21,"00536-3008-01 ")

 ;;1354

 ;;21,"00536-3008-05 ")

 ;;1355

 ;;21,"00536-3009-01 ")

 ;;1356

 ;;21,"00536-3009-05 ")

 ;;1357

 ;;21,"00536-3868-10 ")

 ;;282

 ;;21,"00536-3906-01 ")

 ;;1358

 ;;21,"00536-3906-05 ")

 ;;1359

 ;;21,"00536-3906-10 ")

 ;;1360

 ;;21,"00536-4437-01 ")

 ;;1361

 ;;21,"00536-4438-01 ")

 ;;1362

 ;;21,"00536-4652-01 ")

 ;;876

 ;;21,"00536-4652-05 ")

 ;;877

 ;;21,"00536-4652-10 ")

 ;;878

 ;;21,"00536-4996-01 ")

 ;;315

 ;;21,"00536-4997-01 ")

 ;;644

 ;;21,"00536-4997-05 ")

 ;;376

 ;;21,"00536-4997-10 ")

 ;;645

 ;;21,"00536-4998-01 ")

 ;;472

 ;;21,"00536-4998-05 ")

 ;;69

 ;;21,"00536-4998-10 ")

 ;;70

 ;;21,"00536-5538-01 ")

 ;;1363

 ;;21,"00536-5538-05 ")

 ;;1364

 ;;21,"00537-2003-01 ")

 ;;449

 ;;21,"00537-2003-10 ")

 ;;210

 ;;21,"00537-2004-10 ")

 ;;211

 ;;21,"00537-2005-01 ")

 ;;222

 ;;21,"00537-2005-10 ")

 ;;476

 ;;21,"00537-2546-16 ")

 ;;148

 ;;21,"00537-2546-28 ")

 ;;149

 ;;21,"00537-2550-16 ")

 ;;262

 ;;21,"00537-2550-28 ")

 ;;263

 ;;21,"00537-5006-10 ")

 ;;477

 ;;21,"00537-6062-01 ")

 ;;283

 ;;21,"00537-6062-10 ")

 ;;284

 ;;21,"00537-6365-16 ")

 ;;553

 ;;21,"00537-6365-28 ")

 ;;554

 ;;21,"00538-3378-01 ")

 ;;237

 ;;21,"00538-3379-16 ")

 ;;264

 ;;21,"00551-0123-01 ")

 ;;923

 ;;21,"00551-0123-02 ")

 ;;924

 ;;21,"00551-0124-01 ")

 ;;925

 ;;21,"00551-0124-02 ")

 ;;926

 ;;21,"00551-0205-01 ")

 ;;921

 ;;21,"00556-0048-01 ")

 ;;212

 ;;21,"00556-0048-10 ")

 ;;450

 ;;21,"00556-0149-16 ")

 ;;928

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

 ;;929

 ;;21,"00556-0240-01 ")

 ;;223

 ;;21,"00556-0240-10 ")

 ;;478

 ;;21,"00573-2942-10 ")

 ;;1365

 ;;21,"00573-2942-20 ")

 ;;1366

 ;;21,"00580-0008-01 ")

 ;;213

 ;;21,"00580-0008-10 ")

 ;;451

 ;;21,"00580-0010-01 ")

 ;;479

 ;;21,"00580-0010-10 ")

 ;;480

 ;;21,"00580-0343-16 ")

 ;;285

 ;;21,"00580-0346-16 ")

 ;;150

 ;;21,"00580-0346-99 ")

 ;;151

 ;;21,"00580-0472-16 ")

 ;;1367

 ;;21,"00580-0704-01 ")

 ;;498

 ;;21,"00580-0704-05 ")

 ;;499

 ;;21,"00580-0816-16 ")

 ;;1368

 ;;21,"00580-0875-01 ")

 ;;646

 ;;21,"00580-0875-05 ")

 ;;647

 ;;21,"00580-1584-34 ")

 ;;437

 ;;21,"00580-1608-16 ")

 ;;1369

 ;;21,"00580-1619-01 ")

 ;;1370

 ;;21,"00580-1620-01 ")

 ;;1371

 ;;21,"00585-0218-84 ")

 ;;201

 ;;21,"00585-1218-20 ")

 ;;1372

 ;;21,"00585-1218-25 ")

 ;;1373

 ;;21,"00585-2218-80 ")

 ;;438

 ;;21,"00585-2218-82 ")

 ;;202

 ;;21,"00585-3318-40 ")

 ;;500

 ;;21,"00585-4318-50 ")

 ;;71

 ;;21,"00585-5318-60 ")

 ;;501

 ;;21,"00585-6218-70 ")

 ;;42

 ;;21,"00585-6219-01 ")

 ;;616

 ;;21,"00585-7218-75 ")

 ;;617

 ;;21,"00585-7219-10 ")

 ;;48

 ;;21,"00591-5710-01 ")

 ;;1374

 ;;21,"00591-5711-01 ")

 ;;1375

 ;;21,"00591-5724-01 ")

 ;;1376

 ;;21,"00591-5725-01 ")

 ;;1377

 ;;21,"00597-0049-01 ")

 ;;1378

 ;;21,"00597-0072-01 ")

 ;;1379

 ;;21,"00597-0073-16 ")

 ;;1380

 ;;21,"00597-0074-01 ")

 ;;1381

 ;;21,"00603-1007-58 ")

 ;;1382

 ;;21,"00603-1190-58 ")

 ;;971

 ;;21,"00603-1422-58 ")

 ;;1383

 ;;21,"00603-1715-58 ")

 ;;256

 ;;21,"00603-1729-58 ")

 ;;887

 ;;21,"00603-1742-58 ")

 ;;176

 ;;21,"00603-2093-21 ")

 ;;1384

 ;;21,"00603-2093-28 ")

 ;;1385

 ;;21,"00603-2094-21 ")

 ;;1386

 ;;21,"00603-2094-28 ")

 ;;1387

 ;;21,"00603-3948-21 ")

 ;;1388

 ;;21,"00603-4464-21 ")

 ;;1389

 ;;21,"00603-4465-21 ")

 ;;1390

 ;;21,"00603-5747-21 ")

 ;;915

 ;;21,"00603-5944-21 ")

 ;;943

 ;;21,"00603-5944-28 ")

 ;;944

 ;;21,"00603-5945-21 ")

 ;;893

 ;;21,"00603-5945-28 ")

 ;;894

 ;;21,"00603-5945-32 ")

 ;;895

 ;;21,"00603-5946-21 ")

 ;;896

 ;;21,"00603-5946-28 ")

 ;;897

 ;;21,"00603-5946-29 ")

 ;;898

 ;;21,"00603-5946-32 ")

 ;;899

 ;;21,"00603-5947-21 ")

 ;;141

 ;;21,"00603-5950-21 ")

 ;;945

 ;;21,"00603-5951-21 ")

 ;;892

 ;;21,"00603-5952-21 ")

 ;;946

 ;;21,"00615-0314-01 ")

 ;;555

 ;;21,"00615-0727-16 ")

 ;;265

 ;;21,"00615-0729-16 ")

 ;;152

 ;;21,"00615-0729-60 ")

 ;;153

 ;;21,"00615-0799-16 ")

 ;;1391

 ;;21,"00615-1505-01 ")

 ;;1392

 ;;21,"00615-1505-10 ")

 ;;1393

 ;;21,"00615-1706-16 ")

 ;;266

 ;;21,"00615-3517-13 ")

 ;;1394

 ;;21,"00615-3517-29 ")

 ;;1395

 ;;21,"00615-3517-43 ")

 ;;1396

 ;;21,"00615-3517-53 ")

 ;;1397

 ;;21,"00615-3517-63 ")

 ;;1398

 ;;21,"00615-3518-13 ")

 ;;1399

 ;;21,"00615-3518-29 ")

 ;;1400

 ;;21,"00615-3518-43 ")

 ;;1401

 ;;21,"00615-3518-53 ")

 ;;1402

 ;;21,"00615-3518-63 ")

 ;;1403

 ;;21,"00659-1305-30 ")

 ;;502

 ;;21,"00659-2801-54 ")

 ;;1404

 ;;21,"00659-2805-25 ")

 ;;955

 ;;21,"00659-2809-30 ")

 ;;72

 ;;21,"00659-2810-30 ")

 ;;648

 ;;21,"00675-2250-07 ")

 ;;452

 ;;21,"00675-2250-12 ")

 ;;453

 ;;21,"00675-2258-07 ")

 ;;481

 ;;21,"00675-2258-12 ")

 ;;224

 ;;21,"00675-2262-07 ")

 ;;225

 ;;21,"00675-2262-12 ")

 ;;226

 ;;21,"00675-2847-16 ")

 ;;544

 ;;21,"00675-2850-16 ")

 ;;706

 ;;21,"00675-2850-28 ")

 ;;707

 ;;21,"00675-2853-16 ")

 ;;177

 ;;21,"00675-2853-28 ")

 ;;178

 ;;21,"00675-4024-07 ")

 ;;131

 ;;21,"00675-4024-10 ")

 ;;132

 ;;21,"00677-0003-01 ")

 ;;987

 ;;21,"00677-0007-01 ")

 ;;953

 ;;21,"00677-0007-10 ")

 ;;954

 ;;21,"00677-0817-01 ")

 ;;900

 ;;21,"00677-0817-05 ")

 ;;901

 ;;21,"00677-0846-01 ")

 ;;902

 ;;21,"00677-0846-05 ")

 ;;903

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

 ;;904

 ;;21,"00677-1253-01 ")

 ;;1405

 ;;21,"00677-1254-01 ")

 ;;1406

 ;;21,"00677-1359-01 ")

 ;;1407

 ;;21,"00677-1359-05 ")

 ;;1408

 ;;21,"00677-1360-01 ")

 ;;1409

 ;;21,"00677-1360-05 ")

 ;;1410

 ;;21,"00677-1445-33 ")

 ;;1411

 ;;21,"00677-1505-33 ")

 ;;1412

 ;;21,"00677-1780-01 ")

 ;;891

 ;;21,"00686-0656-20 ")

 ;;1413

 ;;21,"00686-0657-20 ")

 ;;1414

 ;;21,"00686-0658-20 ")

 ;;1415

 ;;21,"00686-0873-08 ")

 ;;439

 ;;21,"00686-1020-25 ")

 ;;454

 ;;21,"00686-1025-25 ")

 ;;227

 ;;21,"00686-2230-09 ")

 ;;1416

 ;;21,"00686-2232-09 ")

 ;;1417

 ;;21,"00686-6117-38 ")

 ;;1418

 ;;21,"00719-1004-10 ")

 ;;1419

 ;;21,"00719-1005-10 ")

 ;;1420

 ;;21,"00719-1030-13 ")

 ;;214

 ;;21,"00719-1031-13 ")

 ;;228

 ;;21,"00719-1584-10 ")

 ;;1421

 ;;21,"00719-1585-10 ")

 ;;1422

 ;;21,"00719-1939-10 ")

 ;;316

 ;;21,"00719-1942-10 ")

 ;;377

 ;;21,"00719-1942-13 ")

 ;;378

 ;;21,"00719-1943-10 ")

 ;;503

 ;;21,"00719-1943-12 ")

 ;;504

 ;;21,"00719-1943-13 ")

 ;;73

 ;;21,"00719-4070-80 ")

 ;;203

 ;;21,"00719-4172-83 ")

 ;;286

 ;;21,"00719-4195-83 ")

 ;;1423

 ;;21,"00719-4343-83 ")

 ;;531

 ;;21,"00719-4553-83 ")

 ;;1424

 ;;21,"00719-4820-83 ")

 ;;287

 ;;21,"00719-4820-85 ")

 ;;566

 ;;21,"00719-4825-83 ")

 ;;708

 ;;21,"00719-4825-85 ")

 ;;709

 ;;21,"00779-1085-25 ")

 ;;567

 ;;21,"00779-1085-30 ")

 ;;568

 ;;21,"00781-1004-13 ")

 ;;379

 ;;21,"00781-1005-13 ")

 ;;74

 ;;21,"00781-1214-10 ")

 ;;473

 ;;21,"00781-1671-01 ")

 ;;1425

 ;;21,"00781-1672-01 ")

 ;;1426

 ;;21,"00781-1702-01 ")

 ;;1427

 ;;21,"00781-1703-01 ")

 ;;1428

 ;;21,"00781-2890-01 ")

 ;;569

 ;;21,"00781-2890-05 ")

 ;;288

 ;;21,"00781-6067-16 ")

 ;;1429

 ;;21,"00781-6404-16 ")

 ;;1430

 ;;21,"00781-6600-16 ")

 ;;935

 ;;21,"00781-6600-28 ")

 ;;936

 ;;21,"00781-6602-16 ")

 ;;556

 ;;21,"00783-0152-09 ")

 ;;215

 ;;21,"00783-0170-09 ")

 ;;409

 ;;21,"00783-0209-09 ")

 ;;229

 ;;21,"00783-0665-09 ")

 ;;230

 ;;21,"00785-4345-01 ")

 ;;947

 ;;21,"00814-4500-14 ")

 ;;1431

 ;;21,"00814-4500-30 ")

 ;;1432

 ;;21,"00814-4742-82 ")

 ;;1433

 ;;21,"00814-7785-86 ")

 ;;154

 ;;21,"00814-7790-82 ")

 ;;557

 ;;21,"00832-1073-00 ")

 ;;1434

 ;;21,"00832-1074-00 ")

 ;;1435

 ;;21,"00832-8019-16 ")

 ;;155

 ;;21,"00832-8019-28 ")

 ;;710

 ;;21,"00832-8069-16 ")

 ;;249

 ;;21,"00832-8069-28 ")

 ;;75

 ;;21,"00832-8078-16 ")

 ;;361

 ;;21,"00832-8078-28 ")

 ;;267

 ;;21,"00832-8525-08 ")

 ;;440

 ;;21,"00832-8650-16 ")

 ;;1436

 ;;21,"00834-4019-91 ")

 ;;519

 ;;21,"00834-4019-99 ")

 ;;520

 ;;21,"00839-1011-06 ")

 ;;949

 ;;21,"00839-1011-16 ")

 ;;950

 ;;21,"00839-5029-69 ")

 ;;951

 ;;21,"00839-5029-70 ")

 ;;952

 ;;21,"00839-5053-16 ")

 ;;972

 ;;21,"00839-5441-69 ")

 ;;558

 ;;21,"00839-6216-06 ")

 ;;1437

 ;;21,"00839-6216-16 ")

 ;;1438

 ;;21,"00839-6311-69 ")

 ;;250

 ;;21,"00839-6348-69 ")

 ;;927

 ;;21,"00839-6693-06 ")

 ;;958

 ;;21,"00839-6693-12 ")

 ;;505

 ;;21,"00839-6693-16 ")

 ;;959

 ;;21,"00839-6697-06 ")

 ;;966

 ;;21,"00839-6729-06 ")

 ;;960

 ;;21,"00839-6729-12 ")

 ;;961

 ;;21,"00839-6729-16 ")

 ;;962

 ;;21,"00839-6730-06 ")

 ;;990

 ;;21,"00839-6730-12 ")

 ;;991

 ;;21,"00839-7442-69 ")

 ;;1439

 ;;21,"00839-7485-06 ")

 ;;1440

 ;;21,"00839-7486-06 ")

 ;;1441

 ;;21,"00839-7611-06 ")

 ;;1442

 ;;21,"00839-7611-12 ")

 ;;1443

 ;;21,"00839-7612-06 ")

 ;;1444

 ;;21,"00839-7612-12 ")

 ;;1445

 ;;21,"00839-7651-06 ")

 ;;948

 ;;21,"00839-7705-06 ")

 ;;992

 ;;21,"00839-7706-06 ")

 ;;963

 ;;21,"00839-7706-12 ")

 ;;964

 ;;21,"00839-7707-16 ")

 ;;965

 ;;21,"00839-7746-69 ")

 ;;1446

 ;;21,"00839-7859-69 ")

 ;;1447

 ;;21,"00839-7867-06 ")

 ;;1448

 ;;21,"00839-7868-06 ")

 ;;1449

BGP7GXMB  ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 25, 2006 ;

 +1       ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 +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,"00369-0850-01 ")

 +2       ;;129

 +3       ;;21,"00369-0875-01 ")

 +4       ;;130

 +5       ;;21,"00378-0255-01 ")

 +6       ;;1314

 +7       ;;21,"00378-0255-05 ")

 +8       ;;1315

 +9       ;;21,"00378-0572-01 ")

 +10      ;;1316

 +11      ;;21,"00378-0572-05 ")

 +12      ;;1317

 +13      ;;21,"00378-3401-72 ")

 +14      ;;1318

 +15      ;;21,"00392-0522-68 ")

 +16      ;;524

 +17      ;;21,"00392-0522-78 ")

 +18      ;;235

 +19      ;;21,"00403-1773-84 ")

 +20      ;;1319

 +21      ;;21,"00403-1775-30 ")

 +22      ;;1320

 +23      ;;21,"00403-1776-01 ")

 +24      ;;1321

 +25      ;;21,"00403-1776-30 ")

 +26      ;;1322

 +27      ;;21,"00403-1778-20 ")

 +28      ;;1323

 +29      ;;21,"00403-2253-84 ")

 +30      ;;1324

 +31      ;;21,"00403-2253-88 ")

 +32      ;;1325

 +33      ;;21,"00403-2254-84 ")

 +34      ;;1326

 +35      ;;21,"00403-2555-18 ")

 +36      ;;1327

 +37      ;;21,"00403-2751-01 ")

 +38      ;;525

 +39      ;;21,"00403-2751-40 ")

 +40      ;;526

 +41      ;;21,"00403-2801-20 ")

 +42      ;;1328

 +43      ;;21,"00405-2135-16 ")

 +44      ;;1329

 +45      ;;21,"00405-3255-16 ")

 +46      ;;1330

 +47      ;;21,"00405-3825-16 ")

 +48      ;;932

 +49      ;;21,"00405-4030-01 ")

 +50      ;;1331

 +51      ;;21,"00405-4030-02 ")

 +52      ;;1332

 +53      ;;21,"00405-4031-01 ")

 +54      ;;1333

 +55      ;;21,"00405-4031-02 ")

 +56      ;;1334

 +57      ;;21,"00405-4060-01 ")

 +58      ;;988

 +59      ;;21,"00405-4060-03 ")

 +60      ;;989

 +61      ;;21,"00405-4061-01 ")

 +62      ;;933

 +63      ;;21,"00405-4061-03 ")

 +64      ;;934

 +65      ;;21,"00405-4629-01 ")

 +66      ;;1335

 +67      ;;21,"00405-4630-01 ")

 +68      ;;1336

 +69      ;;21,"00405-4983-01 ")

 +70      ;;981

 +71      ;;21,"00405-4984-01 ")

 +72      ;;968

 +73      ;;21,"00405-4985-01 ")

 +74      ;;982

 +75      ;;21,"00405-4986-01 ")

 +76      ;;983

 +77      ;;21,"00405-4987-01 ")

 +78      ;;975

 +79      ;;21,"00405-4987-02 ")

 +80      ;;976

 +81      ;;21,"00405-4988-01 ")

 +82      ;;977

 +83      ;;21,"00405-4988-02 ")

 +84      ;;978

 +85      ;;21,"00426-8650-16 ")

 +86      ;;1337

 +87      ;;21,"00430-0214-24 ")

 +88      ;;881

 +89      ;;21,"00430-0221-24 ")

 +90      ;;882

 +91      ;;21,"00440-7045-30 ")

 +92      ;;1338

 +93      ;;21,"00440-7046-30 ")

 +94      ;;1339

 +95      ;;21,"00440-8530-30 ")

 +96      ;;314

 +97      ;;21,"00440-8531-30 ")

 +98      ;;641

 +99      ;;21,"00440-8531-90 ")

 +100     ;;642

 +101     ;;21,"00440-8531-94 ")

 +102     ;;643

 +103     ;;21,"00440-8532-30 ")

 +104     ;;471

 +105     ;;21,"00451-0398-00 ")

 +106     ;;1340

 +107     ;;21,"00451-0398-50 ")

 +108     ;;1341

 +109     ;;21,"00451-0398-60 ")

 +110     ;;1342

 +111     ;;21,"00451-0399-00 ")

 +112     ;;1343

 +113     ;;21,"00451-0399-50 ")

 +114     ;;1344

 +115     ;;21,"00451-0399-60 ")

 +116     ;;1345

 +117     ;;21,"00456-0644-16 ")

 +118     ;;905

 +119     ;;21,"00456-0645-08 ")

 +120     ;;883

 +121     ;;21,"00456-0646-00 ")

 +122     ;;613

 +123     ;;21,"00456-0646-01 ")

 +124     ;;334

 +125     ;;21,"00456-0646-63 ")

 +126     ;;614

 +127     ;;21,"00456-0647-00 ")

 +128     ;;41

 +129     ;;21,"00456-0647-01 ")

 +130     ;;455

 +131     ;;21,"00456-0647-63 ")

 +132     ;;456

 +133     ;;21,"00456-0648-08 ")

 +134     ;;885

 +135     ;;21,"00456-0648-16 ")

 +136     ;;886

 +137     ;;21,"00456-3581-01 ")

 +138     ;;906

 +139     ;;21,"00456-3581-05 ")

 +140     ;;907

 +141     ;;21,"00456-3581-10 ")

 +142     ;;908

 +143     ;;21,"00456-4301-01 ")

 +144     ;;922

 +145     ;;21,"00456-4310-01 ")

 +146     ;;930

 +147     ;;21,"00456-4310-02 ")

 +148     ;;931

 +149     ;;21,"00456-4320-00 ")

 +150     ;;909

 +151     ;;21,"00456-4320-01 ")

 +152     ;;910

 +153     ;;21,"00456-4320-02 ")

 +154     ;;911

 +155     ;;21,"00456-4330-00 ")

 +156     ;;912

 +157     ;;21,"00456-4330-01 ")

 +158     ;;913

 +159     ;;21,"00456-4330-02 ")

 +160     ;;914

 +161     ;;21,"00456-4345-01 ")

 +162     ;;916

 +163     ;;21,"00463-9031-16 ")

 +164     ;;872

 +165     ;;21,"00467-0005-25 ")

 +166     ;;446

 +167     ;;21,"00467-0051-25 ")

 +168     ;;209

 +169     ;;21,"00471-0054-28 ")

 +170     ;;245

 +171     ;;21,"00471-0075-16 ")

 +172     ;;248

 +173     ;;21,"00471-0108-04 ")

 +174     ;;563

 +175     ;;21,"00471-0108-16 ")

 +176     ;;564

 +177     ;;21,"00472-0709-16 ")

 +178     ;;868

 +179     ;;21,"00472-0709-28 ")

 +180     ;;537

 +181     ;;21,"00472-0825-04 ")

 +182     ;;1346

 +183     ;;21,"00472-0825-08 ")

 +184     ;;1347

 +185     ;;21,"00472-0825-16 ")

 +186     ;;1348

 +187     ;;21,"00472-0873-08 ")

 +188     ;;917

 +189     ;;21,"00472-1238-16 ")

 +190     ;;918

 +191     ;;21,"00472-1444-16 ")

 +192     ;;869

 +193     ;;21,"00472-1444-28 ")

 +194     ;;870

 +195     ;;21,"00472-1445-16 ")

 +196     ;;359

 +197     ;;21,"00472-1445-28 ")

 +198     ;;360

 +199     ;;21,"00472-1540-16 ")

 +200     ;;873

 +201     ;;21,"00472-1552-16 ")

 +202     ;;1349

 +203     ;;21,"00472-1552-28 ")

 +204     ;;1350

 +205     ;;21,"00485-0059-16 ")

 +206     ;;875

 +207     ;;21,"00491-0122-01 ")

 +208     ;;565

 +209     ;;21,"00493-5002-01 ")

 +210     ;;541

 +211     ;;21,"00493-5002-10 ")

 +212     ;;542

 +213     ;;21,"00496-0609-01 ")

 +214     ;;174

 +215     ;;21,"00525-0302-01 ")

 +216     ;;518

 +217     ;;21,"00525-0305-01 ")

 +218     ;;871

 +219     ;;21,"00525-0376-16 ")

 +220     ;;919

 +221     ;;21,"00527-0599-01 ")

 +222     ;;527

 +223     ;;21,"00527-0599-05 ")

 +224     ;;236

 +225     ;;21,"00527-1004-01 ")

 +226     ;;447

 +227     ;;21,"00527-1004-10 ")

 +228     ;;448

 +229     ;;21,"00527-1006-01 ")

 +230     ;;220

 +231     ;;21,"00527-1006-10 ")

 +232     ;;221

 +233     ;;21,"00536-0415-85 ")

 +234     ;;1351

 +235     ;;21,"00536-0490-85 ")

 +236     ;;1352

 +237     ;;21,"00536-0760-90 ")

 +238     ;;261

 +239     ;;21,"00536-1462-85 ")

 +240     ;;1353

 +241     ;;21,"00536-2120-85 ")

 +242     ;;551

 +243     ;;21,"00536-2120-90 ")

 +244     ;;552

 +245     ;;21,"00536-3008-01 ")

 +246     ;;1354

 +247     ;;21,"00536-3008-05 ")

 +248     ;;1355

 +249     ;;21,"00536-3009-01 ")

 +250     ;;1356

 +251     ;;21,"00536-3009-05 ")

 +252     ;;1357

 +253     ;;21,"00536-3868-10 ")

 +254     ;;282

 +255     ;;21,"00536-3906-01 ")

 +256     ;;1358

 +257     ;;21,"00536-3906-05 ")

 +258     ;;1359

 +259     ;;21,"00536-3906-10 ")

 +260     ;;1360

 +261     ;;21,"00536-4437-01 ")

 +262     ;;1361

 +263     ;;21,"00536-4438-01 ")

 +264     ;;1362

 +265     ;;21,"00536-4652-01 ")

 +266     ;;876

 +267     ;;21,"00536-4652-05 ")

 +268     ;;877

 +269     ;;21,"00536-4652-10 ")

 +270     ;;878

 +271     ;;21,"00536-4996-01 ")

 +272     ;;315

 +273     ;;21,"00536-4997-01 ")

 +274     ;;644

 +275     ;;21,"00536-4997-05 ")

 +276     ;;376

 +277     ;;21,"00536-4997-10 ")

 +278     ;;645

 +279     ;;21,"00536-4998-01 ")

 +280     ;;472

 +281     ;;21,"00536-4998-05 ")

 +282     ;;69

 +283     ;;21,"00536-4998-10 ")

 +284     ;;70

 +285     ;;21,"00536-5538-01 ")

 +286     ;;1363

 +287     ;;21,"00536-5538-05 ")

 +288     ;;1364

 +289     ;;21,"00537-2003-01 ")

 +290     ;;449

 +291     ;;21,"00537-2003-10 ")

 +292     ;;210

 +293     ;;21,"00537-2004-10 ")

 +294     ;;211

 +295     ;;21,"00537-2005-01 ")

 +296     ;;222

 +297     ;;21,"00537-2005-10 ")

 +298     ;;476

 +299     ;;21,"00537-2546-16 ")

 +300     ;;148

 +301     ;;21,"00537-2546-28 ")

 +302     ;;149

 +303     ;;21,"00537-2550-16 ")

 +304     ;;262

 +305     ;;21,"00537-2550-28 ")

 +306     ;;263

 +307     ;;21,"00537-5006-10 ")

 +308     ;;477

 +309     ;;21,"00537-6062-01 ")

 +310     ;;283

 +311     ;;21,"00537-6062-10 ")

 +312     ;;284

 +313     ;;21,"00537-6365-16 ")

 +314     ;;553

 +315     ;;21,"00537-6365-28 ")

 +316     ;;554

 +317     ;;21,"00538-3378-01 ")

 +318     ;;237

 +319     ;;21,"00538-3379-16 ")

 +320     ;;264

 +321     ;;21,"00551-0123-01 ")

 +322     ;;923

 +323     ;;21,"00551-0123-02 ")

 +324     ;;924

 +325     ;;21,"00551-0124-01 ")

 +326     ;;925

 +327     ;;21,"00551-0124-02 ")

 +328     ;;926

 +329     ;;21,"00551-0205-01 ")

 +330     ;;921

 +331     ;;21,"00556-0048-01 ")

 +332     ;;212

 +333     ;;21,"00556-0048-10 ")

 +334     ;;450

 +335     ;;21,"00556-0149-16 ")

 +336     ;;928

 +337     ;;21,"00556-0149-28 ")

 +338     ;;929

 +339     ;;21,"00556-0240-01 ")

 +340     ;;223

 +341     ;;21,"00556-0240-10 ")

 +342     ;;478

 +343     ;;21,"00573-2942-10 ")

 +344     ;;1365

 +345     ;;21,"00573-2942-20 ")

 +346     ;;1366

 +347     ;;21,"00580-0008-01 ")

 +348     ;;213

 +349     ;;21,"00580-0008-10 ")

 +350     ;;451

 +351     ;;21,"00580-0010-01 ")

 +352     ;;479

 +353     ;;21,"00580-0010-10 ")

 +354     ;;480

 +355     ;;21,"00580-0343-16 ")

 +356     ;;285

 +357     ;;21,"00580-0346-16 ")

 +358     ;;150

 +359     ;;21,"00580-0346-99 ")

 +360     ;;151

 +361     ;;21,"00580-0472-16 ")

 +362     ;;1367

 +363     ;;21,"00580-0704-01 ")

 +364     ;;498

 +365     ;;21,"00580-0704-05 ")

 +366     ;;499

 +367     ;;21,"00580-0816-16 ")

 +368     ;;1368

 +369     ;;21,"00580-0875-01 ")

 +370     ;;646

 +371     ;;21,"00580-0875-05 ")

 +372     ;;647

 +373     ;;21,"00580-1584-34 ")

 +374     ;;437

 +375     ;;21,"00580-1608-16 ")

 +376     ;;1369

 +377     ;;21,"00580-1619-01 ")

 +378     ;;1370

 +379     ;;21,"00580-1620-01 ")

 +380     ;;1371

 +381     ;;21,"00585-0218-84 ")

 +382     ;;201

 +383     ;;21,"00585-1218-20 ")

 +384     ;;1372

 +385     ;;21,"00585-1218-25 ")

 +386     ;;1373

 +387     ;;21,"00585-2218-80 ")

 +388     ;;438

 +389     ;;21,"00585-2218-82 ")

 +390     ;;202

 +391     ;;21,"00585-3318-40 ")

 +392     ;;500

 +393     ;;21,"00585-4318-50 ")

 +394     ;;71

 +395     ;;21,"00585-5318-60 ")

 +396     ;;501

 +397     ;;21,"00585-6218-70 ")

 +398     ;;42

 +399     ;;21,"00585-6219-01 ")

 +400     ;;616

 +401     ;;21,"00585-7218-75 ")

 +402     ;;617

 +403     ;;21,"00585-7219-10 ")

 +404     ;;48

 +405     ;;21,"00591-5710-01 ")

 +406     ;;1374

 +407     ;;21,"00591-5711-01 ")

 +408     ;;1375

 +409     ;;21,"00591-5724-01 ")

 +410     ;;1376

 +411     ;;21,"00591-5725-01 ")

 +412     ;;1377

 +413     ;;21,"00597-0049-01 ")

 +414     ;;1378

 +415     ;;21,"00597-0072-01 ")

 +416     ;;1379

 +417     ;;21,"00597-0073-16 ")

 +418     ;;1380

 +419     ;;21,"00597-0074-01 ")

 +420     ;;1381

 +421     ;;21,"00603-1007-58 ")

 +422     ;;1382

 +423     ;;21,"00603-1190-58 ")

 +424     ;;971

 +425     ;;21,"00603-1422-58 ")

 +426     ;;1383

 +427     ;;21,"00603-1715-58 ")

 +428     ;;256

 +429     ;;21,"00603-1729-58 ")

 +430     ;;887

 +431     ;;21,"00603-1742-58 ")

 +432     ;;176

 +433     ;;21,"00603-2093-21 ")

 +434     ;;1384

 +435     ;;21,"00603-2093-28 ")

 +436     ;;1385

 +437     ;;21,"00603-2094-21 ")

 +438     ;;1386

 +439     ;;21,"00603-2094-28 ")

 +440     ;;1387

 +441     ;;21,"00603-3948-21 ")

 +442     ;;1388

 +443     ;;21,"00603-4464-21 ")

 +444     ;;1389

 +445     ;;21,"00603-4465-21 ")

 +446     ;;1390

 +447     ;;21,"00603-5747-21 ")

 +448     ;;915

 +449     ;;21,"00603-5944-21 ")

 +450     ;;943

 +451     ;;21,"00603-5944-28 ")

 +452     ;;944

 +453     ;;21,"00603-5945-21 ")

 +454     ;;893

 +455     ;;21,"00603-5945-28 ")

 +456     ;;894

 +457     ;;21,"00603-5945-32 ")

 +458     ;;895

 +459     ;;21,"00603-5946-21 ")

 +460     ;;896

 +461     ;;21,"00603-5946-28 ")

 +462     ;;897

 +463     ;;21,"00603-5946-29 ")

 +464     ;;898

 +465     ;;21,"00603-5946-32 ")

 +466     ;;899

 +467     ;;21,"00603-5947-21 ")

 +468     ;;141

 +469     ;;21,"00603-5950-21 ")

 +470     ;;945

 +471     ;;21,"00603-5951-21 ")

 +472     ;;892

 +473     ;;21,"00603-5952-21 ")

 +474     ;;946

 +475     ;;21,"00615-0314-01 ")

 +476     ;;555

 +477     ;;21,"00615-0727-16 ")

 +478     ;;265

 +479     ;;21,"00615-0729-16 ")

 +480     ;;152

 +481     ;;21,"00615-0729-60 ")

 +482     ;;153

 +483     ;;21,"00615-0799-16 ")

 +484     ;;1391

 +485     ;;21,"00615-1505-01 ")

 +486     ;;1392

 +487     ;;21,"00615-1505-10 ")

 +488     ;;1393

 +489     ;;21,"00615-1706-16 ")

 +490     ;;266

 +491     ;;21,"00615-3517-13 ")

 +492     ;;1394

 +493     ;;21,"00615-3517-29 ")

 +494     ;;1395

 +495     ;;21,"00615-3517-43 ")

 +496     ;;1396

 +497     ;;21,"00615-3517-53 ")

 +498     ;;1397

 +499     ;;21,"00615-3517-63 ")

 +500     ;;1398

 +501     ;;21,"00615-3518-13 ")

 +502     ;;1399

 +503     ;;21,"00615-3518-29 ")

 +504     ;;1400

 +505     ;;21,"00615-3518-43 ")

 +506     ;;1401

 +507     ;;21,"00615-3518-53 ")

 +508     ;;1402

 +509     ;;21,"00615-3518-63 ")

 +510     ;;1403

 +511     ;;21,"00659-1305-30 ")

 +512     ;;502

 +513     ;;21,"00659-2801-54 ")

 +514     ;;1404

 +515     ;;21,"00659-2805-25 ")

 +516     ;;955

 +517     ;;21,"00659-2809-30 ")

 +518     ;;72

 +519     ;;21,"00659-2810-30 ")

 +520     ;;648

 +521     ;;21,"00675-2250-07 ")

 +522     ;;452

 +523     ;;21,"00675-2250-12 ")

 +524     ;;453

 +525     ;;21,"00675-2258-07 ")

 +526     ;;481

 +527     ;;21,"00675-2258-12 ")

 +528     ;;224

 +529     ;;21,"00675-2262-07 ")

 +530     ;;225

 +531     ;;21,"00675-2262-12 ")

 +532     ;;226

 +533     ;;21,"00675-2847-16 ")

 +534     ;;544

 +535     ;;21,"00675-2850-16 ")

 +536     ;;706

 +537     ;;21,"00675-2850-28 ")

 +538     ;;707

 +539     ;;21,"00675-2853-16 ")

 +540     ;;177

 +541     ;;21,"00675-2853-28 ")

 +542     ;;178

 +543     ;;21,"00675-4024-07 ")

 +544     ;;131

 +545     ;;21,"00675-4024-10 ")

 +546     ;;132

 +547     ;;21,"00677-0003-01 ")

 +548     ;;987

 +549     ;;21,"00677-0007-01 ")

 +550     ;;953

 +551     ;;21,"00677-0007-10 ")

 +552     ;;954

 +553     ;;21,"00677-0817-01 ")

 +554     ;;900

 +555     ;;21,"00677-0817-05 ")

 +556     ;;901

 +557     ;;21,"00677-0846-01 ")

 +558     ;;902

 +559     ;;21,"00677-0846-05 ")

 +560     ;;903

 +561     ;;21,"00677-1037-01 ")

 +562     ;;904

 +563     ;;21,"00677-1253-01 ")

 +564     ;;1405

 +565     ;;21,"00677-1254-01 ")

 +566     ;;1406

 +567     ;;21,"00677-1359-01 ")

 +568     ;;1407

 +569     ;;21,"00677-1359-05 ")

 +570     ;;1408

 +571     ;;21,"00677-1360-01 ")

 +572     ;;1409

 +573     ;;21,"00677-1360-05 ")

 +574     ;;1410

 +575     ;;21,"00677-1445-33 ")

 +576     ;;1411

 +577     ;;21,"00677-1505-33 ")

 +578     ;;1412

 +579     ;;21,"00677-1780-01 ")

 +580     ;;891

 +581     ;;21,"00686-0656-20 ")

 +582     ;;1413

 +583     ;;21,"00686-0657-20 ")

 +584     ;;1414

 +585     ;;21,"00686-0658-20 ")

 +586     ;;1415

 +587     ;;21,"00686-0873-08 ")

 +588     ;;439

 +589     ;;21,"00686-1020-25 ")

 +590     ;;454

 +591     ;;21,"00686-1025-25 ")

 +592     ;;227

 +593     ;;21,"00686-2230-09 ")

 +594     ;;1416

 +595     ;;21,"00686-2232-09 ")

 +596     ;;1417

 +597     ;;21,"00686-6117-38 ")

 +598     ;;1418

 +599     ;;21,"00719-1004-10 ")

 +600     ;;1419

 +601     ;;21,"00719-1005-10 ")

 +602     ;;1420

 +603     ;;21,"00719-1030-13 ")

 +604     ;;214

 +605     ;;21,"00719-1031-13 ")

 +606     ;;228

 +607     ;;21,"00719-1584-10 ")

 +608     ;;1421

 +609     ;;21,"00719-1585-10 ")

 +610     ;;1422

 +611     ;;21,"00719-1939-10 ")

 +612     ;;316

 +613     ;;21,"00719-1942-10 ")

 +614     ;;377

 +615     ;;21,"00719-1942-13 ")

 +616     ;;378

 +617     ;;21,"00719-1943-10 ")

 +618     ;;503

 +619     ;;21,"00719-1943-12 ")

 +620     ;;504