BGP51O5.m

BGP51O5 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;

 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143

 ;

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,"55700-0004-60 ")

 ;;768

 ;;21,"55700-0004-90 ")

 ;;769

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

 ;;485

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

 ;;486

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

 ;;487

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

 ;;488

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

 ;;1375

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

 ;;1376

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

 ;;1377

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

 ;;1378

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

 ;;758

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

 ;;759

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

 ;;760

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

 ;;761

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

 ;;762

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

 ;;763

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

 ;;511

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

 ;;512

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

 ;;513

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

 ;;514

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

 ;;515

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

 ;;516

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

 ;;517

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

 ;;518

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

 ;;519

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

 ;;520

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

 ;;1056

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

 ;;1057

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

 ;;1058

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

 ;;1059

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

 ;;1060

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

 ;;1061

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

 ;;1062

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

 ;;1063

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

 ;;1064

 ;;21,"58016-0234-21 ")

 ;;1065

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

 ;;1066

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

 ;;1067

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

 ;;1068

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

 ;;1069

 ;;21,"58016-0234-45 ")

 ;;1070

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

 ;;1071

 ;;21,"58016-0234-56 ")

 ;;1072

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

 ;;1073

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

 ;;1074

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

 ;;1075

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

 ;;2308

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

 ;;2309

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

 ;;2310

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

 ;;2311

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

 ;;2312

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

 ;;2313

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

 ;;2314

 ;;21,"58016-0248-21 ")

 ;;2315

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

 ;;2316

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

 ;;2317

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

 ;;2318

 ;;21,"58016-0248-42 ")

 ;;2319

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

 ;;2320

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

 ;;2321

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

 ;;2322

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

 ;;1660

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

 ;;1661

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

 ;;1662

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

 ;;1663

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

 ;;1664

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

 ;;1665

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

 ;;1666

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

 ;;1667

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

 ;;1668

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

 ;;1669

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

 ;;1670

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

 ;;1671

 ;;21,"58016-0257-84 ")

 ;;1672

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

 ;;1673

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

 ;;1674

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

 ;;2140

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

 ;;2141

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

 ;;2142

 ;;21,"58016-0258-08 ")

 ;;2143

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

 ;;2144

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

 ;;2145

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

 ;;2146

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

 ;;2147

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

 ;;2148

 ;;21,"58016-0258-21 ")

 ;;2149

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

 ;;2150

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

 ;;2151

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

 ;;2152

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

 ;;2153

 ;;21,"58016-0258-42 ")

 ;;2154

 ;;21,"58016-0258-46 ")

 ;;2155

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

 ;;2156

 ;;21,"58016-0258-56 ")

 ;;2157

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

 ;;2158

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

 ;;2159

 ;;21,"58016-0258-80 ")

 ;;2160

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

 ;;2161

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

 ;;2162

 ;;21,"58016-0258-92 ")

 ;;2163

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

 ;;2164

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

 ;;22

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

 ;;23

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

 ;;24

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

 ;;25

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

 ;;26

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

 ;;27

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

 ;;28

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

 ;;29

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

 ;;30

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

 ;;31

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

 ;;32

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

 ;;33

 ;;21,"58016-0261-21 ")

 ;;34

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

 ;;35

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

 ;;36

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

 ;;37

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

 ;;38

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

 ;;39

 ;;21,"58016-0261-42 ")

 ;;40

 ;;21,"58016-0261-45 ")

 ;;41

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

 ;;42

 ;;21,"58016-0261-56 ")

 ;;43

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

 ;;44

 ;;21,"58016-0261-62 ")

 ;;45

 ;;21,"58016-0261-71 ")

 ;;46

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

 ;;47

 ;;21,"58016-0261-80 ")

 ;;48

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

 ;;49

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

 ;;50

 ;;21,"58016-0261-92 ")

 ;;51

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

 ;;52

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

 ;;581

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

 ;;582

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

 ;;583

 ;;21,"58016-0291-08 ")

 ;;584

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

 ;;585

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

 ;;586

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

 ;;587

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

 ;;588

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

 ;;589

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

 ;;590

 ;;21,"58016-0291-21 ")

 ;;591

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

 ;;592

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

 ;;593

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

 ;;594

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

 ;;595

 ;;21,"58016-0291-42 ")

 ;;596

 ;;21,"58016-0291-56 ")

 ;;597

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

 ;;598

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

 ;;599

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

 ;;600

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

 ;;601

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

 ;;69

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

 ;;70

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

 ;;71

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

 ;;72

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

 ;;73

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

 ;;74

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

 ;;75

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

 ;;76

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

 ;;77

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

 ;;78

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

 ;;79

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

 ;;80

 ;;21,"58016-0488-21 ")

 ;;81

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

 ;;82

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

 ;;83

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

 ;;84

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

 ;;85

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

 ;;86

 ;;21,"58016-0488-42 ")

 ;;87

 ;;21,"58016-0488-45 ")

 ;;88

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

 ;;89

 ;;21,"58016-0488-56 ")

 ;;90

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

 ;;91

 ;;21,"58016-0488-62 ")

 ;;92

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

 ;;93

 ;;21,"58016-0488-80 ")

 ;;94

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

 ;;95

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

 ;;96

 ;;21,"58016-0488-92 ")

 ;;97

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

 ;;98

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

 ;;1622

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

 ;;1623

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

 ;;1624

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

 ;;1625

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

 ;;1626

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

 ;;1627

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

 ;;1628

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

 ;;1629

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

 ;;867

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

 ;;868

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

 ;;869

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

 ;;870

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

 ;;871

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

 ;;872

 ;;21,"58118-0174-03 ")

 ;;65

 ;;21,"58118-0174-06 ")

 ;;66

 ;;21,"58118-0174-07 ")

 ;;67

 ;;21,"58118-0174-09 ")

 ;;68

 ;;21,"58118-0480-02 ")

 ;;2303

 ;;21,"58118-0541-01 ")

 ;;1327

 ;;21,"58118-0541-02 ")

 ;;1328

 ;;21,"58118-0541-03 ")

 ;;1329

 ;;21,"58118-0541-04 ")

 ;;1330

 ;;21,"58118-0541-05 ")

 ;;1331

 ;;21,"58118-0541-06 ")

 ;;1332

 ;;21,"58118-0541-07 ")

 ;;1333

 ;;21,"58118-0541-09 ")

 ;;1334

 ;;21,"58118-0553-03 ")

 ;;1453

 ;;21,"58118-1290-03 ")

 ;;1656

 ;;21,"58118-1290-04 ")

 ;;1657

 ;;21,"58118-1290-06 ")

 ;;1658

 ;;21,"58118-1290-09 ")

 ;;1659

 ;;21,"58118-2520-03 ")

 ;;602

 ;;21,"58118-2520-09 ")

 ;;603

 ;;21,"58118-3078-03 ")

 ;;865

 ;;21,"58118-3078-09 ")

 ;;866

 ;;21,"58118-4486-03 ")

 ;;2165

 ;;21,"58118-4486-04 ")

 ;;2166

 ;;21,"58118-4486-06 ")

 ;;2167

 ;;21,"58118-4486-07 ")

 ;;2168

 ;;21,"58118-4486-09 ")

 ;;2169

 ;;21,"58517-0080-30 ")

 ;;1326

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

 ;;1652

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

 ;;1309

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

 ;;1310

 ;;21,"58864-0128-45 ")

 ;;1311

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

 ;;2177

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

 ;;2178

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

 ;;64

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

 ;;1620

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

 ;;1621

 ;;21,"59630-0950-10 ")

 ;;925

 ;;21,"59746-0177-06 ")

 ;;1312

 ;;21,"59746-0177-10 ")

 ;;1313

 ;;21,"59746-0211-06 ")

 ;;863

 ;;21,"59746-0211-10 ")

 ;;864

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

 ;;1314

 ;;21,"60429-0052-10 ")

 ;;1315

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

 ;;1316

 ;;21,"60429-0118-05 ")

 ;;1651

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

 ;;1650

 ;;21,"60429-0119-05 ")

 ;;2179

 ;;21,"60429-0508-01 ")

 ;;62

 ;;21,"60429-0508-10 ")

 ;;63

 ;;21,"60760-0054-06 ")

 ;;1454

 ;;21,"60760-0054-20 ")

 ;;1455

 ;;21,"60760-0054-30 ")

 ;;1456

 ;;21,"60760-0054-60 ")

 ;;1457

 ;;21,"60760-0110-20 ")

 ;;56

 ;;21,"60760-0110-30 ")

 ;;57

 ;;21,"60760-0110-40 ")

 ;;58

 ;;21,"60760-0110-60 ")

 ;;59

 ;;21,"60760-0110-90 ")

 ;;60

 ;;21,"60760-0110-92 ")

 ;;61

 ;;21,"60760-0136-06 ")

 ;;1613

 ;;21,"60760-0136-20 ")

 ;;1614

 ;;21,"60760-0136-30 ")

 ;;1615

 ;;21,"60760-0136-60 ")

 ;;1616

 ;;21,"60760-0136-90 ")

 ;;1617

 ;;21,"60760-0290-30 ")

 ;;1655

 ;;21,"60760-0347-40 ")

 ;;2170

 ;;21,"60760-0347-60 ")

 ;;2171

 ;;21,"60760-0347-90 ")

 ;;2172

 ;;21,"60760-0347-92 ")

 ;;2173

 ;;21,"60760-0418-09 ")

 ;;1320

 ;;21,"60760-0418-15 ")

 ;;1321

 ;;21,"60760-0418-20 ")

 ;;1322

 ;;21,"60760-0418-30 ")

 ;;1323

 ;;21,"60760-0418-60 ")

 ;;1324

 ;;21,"60760-0418-90 ")

 ;;1325

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

 ;;2218

 ;;21,"60793-0136-01 ")

 ;;1618

 ;;21,"60793-0136-05 ")

 ;;1619

 ;;21,"60977-0150-01 ")

 ;;2199

 ;;21,"60977-0150-71 ")

 ;;2200

 ;;21,"61919-0039-30 ")

 ;;53

 ;;21,"61919-0039-60 ")

 ;;54

 ;;21,"61919-0039-90 ")

 ;;55

 ;;21,"61919-0065-30 ")

 ;;1317

 ;;21,"61919-0065-60 ")

 ;;1318

 ;;21,"61919-0065-90 ")

 ;;1319

 ;;21,"61919-0147-60 ")

 ;;1653

 ;;21,"61919-0147-90 ")

 ;;1654

 ;;21,"61919-0148-30 ")

 ;;2174

 ;;21,"61919-0148-60 ")

 ;;2175

 ;;21,"61919-0148-90 ")

 ;;2176

 ;;21,"61919-0177-30 ")

 ;;2300

 ;;21,"61919-0177-60 ")

 ;;2301

 ;;21,"61919-0177-90 ")

 ;;2302

 ;;21,"61919-0478-30 ")

 ;;604

 ;;21,"61919-0478-40 ")

 ;;605

 ;;21,"61919-0544-30 ")

 ;;861

 ;;21,"61919-0544-90 ")

 ;;862

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

 ;;1823

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

 ;;1824

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

 ;;1899

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

 ;;1900

 ;;21,"62756-0446-02 ")

 ;;255

 ;;21,"62756-0446-04 ")

 ;;256

 ;;21,"62756-0446-05 ")

 ;;257

 ;;21,"63459-0700-60 ")

 ;;1405

 ;;21,"63459-0701-60 ")

 ;;1415

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

 ;;258

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

 ;;259

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

 ;;260

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

 ;;261

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

 ;;262

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

 ;;263

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

 ;;264

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

 ;;265

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

 ;;266

 ;;21,"63629-1308-09 ")

 ;;267

 ;;21,"63629-1308-10 ")

 ;;268

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

 ;;979

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

 ;;980

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

 ;;981

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

 ;;982

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

 ;;983

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

 ;;984

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

 ;;985

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

 ;;986

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

 ;;987

 ;;21,"63629-1339-09 ")

 ;;988

 ;;21,"63629-1339-10 ")

 ;;989

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

 ;;2271

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

 ;;2272

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

 ;;2273

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

 ;;2274

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

 ;;2275

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

 ;;2276

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

 ;;2277

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

 ;;2278

 ;;21,"63629-1564-09 ")

 ;;2279

 ;;21,"63629-1564-10 ")

 ;;2280

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

 ;;624

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

 ;;625

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

 ;;626

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

 ;;627

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

 ;;628

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

 ;;629

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

 ;;630

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

 ;;631

 ;;21,"63629-1586-09 ")

 ;;632

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

 ;;1815

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

 ;;1816

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

 ;;1817

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

 ;;1818

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

 ;;1819

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

 ;;1820

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

 ;;1821

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

 ;;1822

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

 ;;1901

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

 ;;1902

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

 ;;1903

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

 ;;1904

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

 ;;1905

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

 ;;1906

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

 ;;1907

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

 ;;1908

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

 ;;1564

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

 ;;1565

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

 ;;1566

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

 ;;1567

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

 ;;1568

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

 ;;1569

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

 ;;1570

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

 ;;1571

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

 ;;1572

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

 ;;736

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

 ;;737

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

 ;;738

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

 ;;739

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

 ;;740

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

 ;;741

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

 ;;742

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

 ;;743

 ;;21,"63629-3640-09 ")

 ;;744

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

 ;;1491

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

 ;;1492

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

 ;;1493

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

 ;;1494

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

 ;;1495

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

 ;;1496

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

 ;;1497

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

 ;;1498

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

 ;;882

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

 ;;883

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

 ;;884

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

 ;;885

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

 ;;270

BGP51O5   ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;

 +1       ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143

 +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,"55700-0004-60 ")

 +2       ;;768

 +3       ;;21,"55700-0004-90 ")

 +4       ;;769

 +5       ;;21,"58016-0038-00 ")

 +6       ;;485

 +7       ;;21,"58016-0038-30 ")

 +8       ;;486

 +9       ;;21,"58016-0038-60 ")

 +10      ;;487

 +11      ;;21,"58016-0038-90 ")

 +12      ;;488

 +13      ;;21,"58016-0070-00 ")

 +14      ;;1375

 +15      ;;21,"58016-0070-30 ")

 +16      ;;1376

 +17      ;;21,"58016-0070-60 ")

 +18      ;;1377

 +19      ;;21,"58016-0070-90 ")

 +20      ;;1378

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

 +22      ;;758

 +23      ;;21,"58016-0076-02 ")

 +24      ;;759

 +25      ;;21,"58016-0076-30 ")

 +26      ;;760

 +27      ;;21,"58016-0076-60 ")

 +28      ;;761

 +29      ;;21,"58016-0076-90 ")

 +30      ;;762

 +31      ;;21,"58016-0076-99 ")

 +32      ;;763

 +33      ;;21,"58016-0199-00 ")

 +34      ;;511

 +35      ;;21,"58016-0199-02 ")

 +36      ;;512

 +37      ;;21,"58016-0199-03 ")

 +38      ;;513

 +39      ;;21,"58016-0199-20 ")

 +40      ;;514

 +41      ;;21,"58016-0199-30 ")

 +42      ;;515

 +43      ;;21,"58016-0199-40 ")

 +44      ;;516

 +45      ;;21,"58016-0199-60 ")

 +46      ;;517

 +47      ;;21,"58016-0199-89 ")

 +48      ;;518

 +49      ;;21,"58016-0199-90 ")

 +50      ;;519

 +51      ;;21,"58016-0199-99 ")

 +52      ;;520

 +53      ;;21,"58016-0234-00 ")

 +54      ;;1056

 +55      ;;21,"58016-0234-02 ")

 +56      ;;1057

 +57      ;;21,"58016-0234-07 ")

 +58      ;;1058

 +59      ;;21,"58016-0234-10 ")

 +60      ;;1059

 +61      ;;21,"58016-0234-12 ")

 +62      ;;1060

 +63      ;;21,"58016-0234-14 ")

 +64      ;;1061

 +65      ;;21,"58016-0234-15 ")

 +66      ;;1062

 +67      ;;21,"58016-0234-18 ")

 +68      ;;1063

 +69      ;;21,"58016-0234-20 ")

 +70      ;;1064

 +71      ;;21,"58016-0234-21 ")

 +72      ;;1065

 +73      ;;21,"58016-0234-24 ")

 +74      ;;1066

 +75      ;;21,"58016-0234-28 ")

 +76      ;;1067

 +77      ;;21,"58016-0234-30 ")

 +78      ;;1068

 +79      ;;21,"58016-0234-40 ")

 +80      ;;1069

 +81      ;;21,"58016-0234-45 ")

 +82      ;;1070

 +83      ;;21,"58016-0234-50 ")

 +84      ;;1071

 +85      ;;21,"58016-0234-56 ")

 +86      ;;1072

 +87      ;;21,"58016-0234-60 ")

 +88      ;;1073

 +89      ;;21,"58016-0234-90 ")

 +90      ;;1074

 +91      ;;21,"58016-0234-99 ")

 +92      ;;1075

 +93      ;;21,"58016-0248-00 ")

 +94      ;;2308

 +95      ;;21,"58016-0248-07 ")

 +96      ;;2309

 +97      ;;21,"58016-0248-10 ")

 +98      ;;2310

 +99      ;;21,"58016-0248-12 ")

 +100     ;;2311

 +101     ;;21,"58016-0248-14 ")

 +102     ;;2312

 +103     ;;21,"58016-0248-15 ")

 +104     ;;2313

 +105     ;;21,"58016-0248-20 ")

 +106     ;;2314

 +107     ;;21,"58016-0248-21 ")

 +108     ;;2315

 +109     ;;21,"58016-0248-28 ")

 +110     ;;2316

 +111     ;;21,"58016-0248-30 ")

 +112     ;;2317

 +113     ;;21,"58016-0248-40 ")

 +114     ;;2318

 +115     ;;21,"58016-0248-42 ")

 +116     ;;2319

 +117     ;;21,"58016-0248-50 ")

 +118     ;;2320

 +119     ;;21,"58016-0248-60 ")

 +120     ;;2321

 +121     ;;21,"58016-0248-90 ")

 +122     ;;2322

 +123     ;;21,"58016-0257-00 ")

 +124     ;;1660

 +125     ;;21,"58016-0257-02 ")

 +126     ;;1661

 +127     ;;21,"58016-0257-03 ")

 +128     ;;1662

 +129     ;;21,"58016-0257-12 ")

 +130     ;;1663

 +131     ;;21,"58016-0257-14 ")

 +132     ;;1664

 +133     ;;21,"58016-0257-15 ")

 +134     ;;1665

 +135     ;;21,"58016-0257-20 ")

 +136     ;;1666

 +137     ;;21,"58016-0257-24 ")

 +138     ;;1667

 +139     ;;21,"58016-0257-30 ")

 +140     ;;1668

 +141     ;;21,"58016-0257-40 ")

 +142     ;;1669

 +143     ;;21,"58016-0257-50 ")

 +144     ;;1670

 +145     ;;21,"58016-0257-73 ")

 +146     ;;1671

 +147     ;;21,"58016-0257-84 ")

 +148     ;;1672

 +149     ;;21,"58016-0257-89 ")

 +150     ;;1673

 +151     ;;21,"58016-0257-99 ")

 +152     ;;1674

 +153     ;;21,"58016-0258-00 ")

 +154     ;;2140

 +155     ;;21,"58016-0258-02 ")

 +156     ;;2141

 +157     ;;21,"58016-0258-03 ")

 +158     ;;2142

 +159     ;;21,"58016-0258-08 ")

 +160     ;;2143

 +161     ;;21,"58016-0258-10 ")

 +162     ;;2144

 +163     ;;21,"58016-0258-12 ")

 +164     ;;2145

 +165     ;;21,"58016-0258-14 ")

 +166     ;;2146

 +167     ;;21,"58016-0258-15 ")

 +168     ;;2147

 +169     ;;21,"58016-0258-20 ")

 +170     ;;2148

 +171     ;;21,"58016-0258-21 ")

 +172     ;;2149

 +173     ;;21,"58016-0258-24 ")

 +174     ;;2150

 +175     ;;21,"58016-0258-28 ")

 +176     ;;2151

 +177     ;;21,"58016-0258-30 ")

 +178     ;;2152

 +179     ;;21,"58016-0258-40 ")

 +180     ;;2153

 +181     ;;21,"58016-0258-42 ")

 +182     ;;2154

 +183     ;;21,"58016-0258-46 ")

 +184     ;;2155

 +185     ;;21,"58016-0258-50 ")

 +186     ;;2156

 +187     ;;21,"58016-0258-56 ")

 +188     ;;2157

 +189     ;;21,"58016-0258-60 ")

 +190     ;;2158

 +191     ;;21,"58016-0258-73 ")

 +192     ;;2159

 +193     ;;21,"58016-0258-80 ")

 +194     ;;2160

 +195     ;;21,"58016-0258-89 ")

 +196     ;;2161

 +197     ;;21,"58016-0258-90 ")

 +198     ;;2162

 +199     ;;21,"58016-0258-92 ")

 +200     ;;2163

 +201     ;;21,"58016-0258-99 ")

 +202     ;;2164

 +203     ;;21,"58016-0261-00 ")

 +204     ;;22

 +205     ;;21,"58016-0261-02 ")

 +206     ;;23

 +207     ;;21,"58016-0261-03 ")

 +208     ;;24

 +209     ;;21,"58016-0261-04 ")

 +210     ;;25

 +211     ;;21,"58016-0261-07 ")

 +212     ;;26

 +213     ;;21,"58016-0261-10 ")

 +214     ;;27

 +215     ;;21,"58016-0261-12 ")

 +216     ;;28

 +217     ;;21,"58016-0261-14 ")

 +218     ;;29

 +219     ;;21,"58016-0261-15 ")

 +220     ;;30

 +221     ;;21,"58016-0261-16 ")

 +222     ;;31

 +223     ;;21,"58016-0261-18 ")

 +224     ;;32

 +225     ;;21,"58016-0261-20 ")

 +226     ;;33

 +227     ;;21,"58016-0261-21 ")

 +228     ;;34

 +229     ;;21,"58016-0261-24 ")

 +230     ;;35

 +231     ;;21,"58016-0261-25 ")

 +232     ;;36

 +233     ;;21,"58016-0261-28 ")

 +234     ;;37

 +235     ;;21,"58016-0261-30 ")

 +236     ;;38

 +237     ;;21,"58016-0261-40 ")

 +238     ;;39

 +239     ;;21,"58016-0261-42 ")

 +240     ;;40

 +241     ;;21,"58016-0261-45 ")

 +242     ;;41

 +243     ;;21,"58016-0261-50 ")

 +244     ;;42

 +245     ;;21,"58016-0261-56 ")

 +246     ;;43

 +247     ;;21,"58016-0261-60 ")

 +248     ;;44

 +249     ;;21,"58016-0261-62 ")

 +250     ;;45

 +251     ;;21,"58016-0261-71 ")

 +252     ;;46

 +253     ;;21,"58016-0261-73 ")

 +254     ;;47

 +255     ;;21,"58016-0261-80 ")

 +256     ;;48

 +257     ;;21,"58016-0261-89 ")

 +258     ;;49

 +259     ;;21,"58016-0261-90 ")

 +260     ;;50

 +261     ;;21,"58016-0261-92 ")

 +262     ;;51

 +263     ;;21,"58016-0261-99 ")

 +264     ;;52

 +265     ;;21,"58016-0291-00 ")

 +266     ;;581

 +267     ;;21,"58016-0291-02 ")

 +268     ;;582

 +269     ;;21,"58016-0291-03 ")

 +270     ;;583

 +271     ;;21,"58016-0291-08 ")

 +272     ;;584

 +273     ;;21,"58016-0291-10 ")

 +274     ;;585

 +275     ;;21,"58016-0291-12 ")

 +276     ;;586

 +277     ;;21,"58016-0291-14 ")

 +278     ;;587

 +279     ;;21,"58016-0291-15 ")

 +280     ;;588

 +281     ;;21,"58016-0291-16 ")

 +282     ;;589

 +283     ;;21,"58016-0291-20 ")

 +284     ;;590

 +285     ;;21,"58016-0291-21 ")

 +286     ;;591

 +287     ;;21,"58016-0291-24 ")

 +288     ;;592

 +289     ;;21,"58016-0291-28 ")

 +290     ;;593

 +291     ;;21,"58016-0291-30 ")

 +292     ;;594

 +293     ;;21,"58016-0291-40 ")

 +294     ;;595

 +295     ;;21,"58016-0291-42 ")

 +296     ;;596

 +297     ;;21,"58016-0291-56 ")

 +298     ;;597

 +299     ;;21,"58016-0291-60 ")

 +300     ;;598

 +301     ;;21,"58016-0291-73 ")

 +302     ;;599

 +303     ;;21,"58016-0291-89 ")

 +304     ;;600

 +305     ;;21,"58016-0291-90 ")

 +306     ;;601

 +307     ;;21,"58016-0488-00 ")

 +308     ;;69

 +309     ;;21,"58016-0488-02 ")

 +310     ;;70

 +311     ;;21,"58016-0488-03 ")

 +312     ;;71

 +313     ;;21,"58016-0488-04 ")

 +314     ;;72

 +315     ;;21,"58016-0488-07 ")

 +316     ;;73

 +317     ;;21,"58016-0488-10 ")

 +318     ;;74

 +319     ;;21,"58016-0488-12 ")

 +320     ;;75

 +321     ;;21,"58016-0488-14 ")

 +322     ;;76

 +323     ;;21,"58016-0488-15 ")

 +324     ;;77

 +325     ;;21,"58016-0488-16 ")

 +326     ;;78

 +327     ;;21,"58016-0488-18 ")

 +328     ;;79

 +329     ;;21,"58016-0488-20 ")

 +330     ;;80

 +331     ;;21,"58016-0488-21 ")

 +332     ;;81

 +333     ;;21,"58016-0488-24 ")

 +334     ;;82

 +335     ;;21,"58016-0488-25 ")

 +336     ;;83

 +337     ;;21,"58016-0488-28 ")

 +338     ;;84

 +339     ;;21,"58016-0488-30 ")

 +340     ;;85

 +341     ;;21,"58016-0488-40 ")

 +342     ;;86

 +343     ;;21,"58016-0488-42 ")

 +344     ;;87

 +345     ;;21,"58016-0488-45 ")

 +346     ;;88

 +347     ;;21,"58016-0488-50 ")

 +348     ;;89

 +349     ;;21,"58016-0488-56 ")

 +350     ;;90

 +351     ;;21,"58016-0488-60 ")

 +352     ;;91

 +353     ;;21,"58016-0488-62 ")

 +354     ;;92

 +355     ;;21,"58016-0488-73 ")

 +356     ;;93

 +357     ;;21,"58016-0488-80 ")

 +358     ;;94

 +359     ;;21,"58016-0488-89 ")

 +360     ;;95

 +361     ;;21,"58016-0488-90 ")

 +362     ;;96

 +363     ;;21,"58016-0488-92 ")

 +364     ;;97

 +365     ;;21,"58016-0488-99 ")

 +366     ;;98

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

 +368     ;;1622

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

 +370     ;;1623

 +371     ;;21,"58016-0927-03 ")

 +372     ;;1624

 +373     ;;21,"58016-0927-30 ")

 +374     ;;1625

 +375     ;;21,"58016-0927-60 ")

 +376     ;;1626

 +377     ;;21,"58016-0927-73 ")

 +378     ;;1627

 +379     ;;21,"58016-0927-89 ")

 +380     ;;1628

 +381     ;;21,"58016-0927-90 ")

 +382     ;;1629

 +383     ;;21,"58016-0987-00 ")

 +384     ;;867

 +385     ;;21,"58016-0987-02 ")

 +386     ;;868

 +387     ;;21,"58016-0987-03 ")

 +388     ;;869

 +389     ;;21,"58016-0987-30 ")

 +390     ;;870

 +391     ;;21,"58016-0987-60 ")

 +392     ;;871

 +393     ;;21,"58016-0987-90 ")

 +394     ;;872

 +395     ;;21,"58118-0174-03 ")

 +396     ;;65

 +397     ;;21,"58118-0174-06 ")

 +398     ;;66

 +399     ;;21,"58118-0174-07 ")

 +400     ;;67

 +401     ;;21,"58118-0174-09 ")

 +402     ;;68

 +403     ;;21,"58118-0480-02 ")

 +404     ;;2303

 +405     ;;21,"58118-0541-01 ")

 +406     ;;1327

 +407     ;;21,"58118-0541-02 ")

 +408     ;;1328

 +409     ;;21,"58118-0541-03 ")

 +410     ;;1329

 +411     ;;21,"58118-0541-04 ")

 +412     ;;1330

 +413     ;;21,"58118-0541-05 ")

 +414     ;;1331

 +415     ;;21,"58118-0541-06 ")

 +416     ;;1332

 +417     ;;21,"58118-0541-07 ")

 +418     ;;1333

 +419     ;;21,"58118-0541-09 ")

 +420     ;;1334

 +421     ;;21,"58118-0553-03 ")

 +422     ;;1453

 +423     ;;21,"58118-1290-03 ")

 +424     ;;1656

 +425     ;;21,"58118-1290-04 ")

 +426     ;;1657

 +427     ;;21,"58118-1290-06 ")

 +428     ;;1658

 +429     ;;21,"58118-1290-09 ")

 +430     ;;1659

 +431     ;;21,"58118-2520-03 ")

 +432     ;;602

 +433     ;;21,"58118-2520-09 ")

 +434     ;;603

 +435     ;;21,"58118-3078-03 ")

 +436     ;;865

 +437     ;;21,"58118-3078-09 ")

 +438     ;;866

 +439     ;;21,"58118-4486-03 ")

 +440     ;;2165

 +441     ;;21,"58118-4486-04 ")

 +442     ;;2166

 +443     ;;21,"58118-4486-06 ")

 +444     ;;2167

 +445     ;;21,"58118-4486-07 ")

 +446     ;;2168

 +447     ;;21,"58118-4486-09 ")

 +448     ;;2169

 +449     ;;21,"58517-0080-30 ")

 +450     ;;1326

 +451     ;;21,"58864-0043-56 ")

 +452     ;;1652

 +453     ;;21,"58864-0128-20 ")

 +454     ;;1309

 +455     ;;21,"58864-0128-30 ")

 +456     ;;1310

 +457     ;;21,"58864-0128-45 ")

 +458     ;;1311

 +459     ;;21,"58864-0652-20 ")

 +460     ;;2177

 +461     ;;21,"58864-0652-30 ")

 +462     ;;2178

 +463     ;;21,"58864-0778-30 ")

 +464     ;;64

 +465     ;;21,"58864-0846-20 ")

 +466     ;;1620

 +467     ;;21,"58864-0846-40 ")

 +468     ;;1621

 +469     ;;21,"59630-0950-10 ")

 +470     ;;925

 +471     ;;21,"59746-0177-06 ")

 +472     ;;1312

 +473     ;;21,"59746-0177-10 ")

 +474     ;;1313

 +475     ;;21,"59746-0211-06 ")

 +476     ;;863

 +477     ;;21,"59746-0211-10 ")

 +478     ;;864

 +479     ;;21,"60429-0052-01 ")

 +480     ;;1314

 +481     ;;21,"60429-0052-10 ")

 +482     ;;1315

 +483     ;;21,"60429-0052-30 ")

 +484     ;;1316

 +485     ;;21,"60429-0118-05 ")

 +486     ;;1651

 +487     ;;21,"60429-0118-40 ")

 +488     ;;1650

 +489     ;;21,"60429-0119-05 ")

 +490     ;;2179

 +491     ;;21,"60429-0508-01 ")

 +492     ;;62

 +493     ;;21,"60429-0508-10 ")

 +494     ;;63

 +495     ;;21,"60760-0054-06 ")

 +496     ;;1454

 +497     ;;21,"60760-0054-20 ")

 +498     ;;1455

 +499     ;;21,"60760-0054-30 ")

 +500     ;;1456

 +501     ;;21,"60760-0054-60 ")

 +502     ;;1457

 +503     ;;21,"60760-0110-20 ")

 +504     ;;56

 +505     ;;21,"60760-0110-30 ")

 +506     ;;57

 +507     ;;21,"60760-0110-40 ")

 +508     ;;58

 +509     ;;21,"60760-0110-60 ")

 +510     ;;59

 +511     ;;21,"60760-0110-90 ")

 +512     ;;60

 +513     ;;21,"60760-0110-92 ")

 +514     ;;61

 +515     ;;21,"60760-0136-06 ")

 +516     ;;1613

 +517     ;;21,"60760-0136-20 ")

 +518     ;;1614

 +519     ;;21,"60760-0136-30 ")

 +520     ;;1615

 +521     ;;21,"60760-0136-60 ")

 +522     ;;1616

 +523     ;;21,"60760-0136-90 ")

 +524     ;;1617

 +525     ;;21,"60760-0290-30 ")

 +526     ;;1655

 +527     ;;21,"60760-0347-40 ")

 +528     ;;2170

 +529     ;;21,"60760-0347-60 ")

 +530     ;;2171

 +531     ;;21,"60760-0347-90 ")

 +532     ;;2172

 +533     ;;21,"60760-0347-92 ")

 +534     ;;2173

 +535     ;;21,"60760-0418-09 ")

 +536     ;;1320

 +537     ;;21,"60760-0418-15 ")

 +538     ;;1321

 +539     ;;21,"60760-0418-20 ")

 +540     ;;1322

 +541     ;;21,"60760-0418-30 ")

 +542     ;;1323

 +543     ;;21,"60760-0418-60 ")

 +544     ;;1324

 +545     ;;21,"60760-0418-90 ")

 +546     ;;1325

 +547     ;;21,"60760-0810-30 ")

 +548     ;;2218

 +549     ;;21,"60793-0136-01 ")

 +550     ;;1618

 +551     ;;21,"60793-0136-05 ")

 +552     ;;1619

 +553     ;;21,"60977-0150-01 ")

 +554     ;;2199

 +555     ;;21,"60977-0150-71 ")

 +556     ;;2200

 +557     ;;21,"61919-0039-30 ")

 +558     ;;53

 +559     ;;21,"61919-0039-60 ")

 +560     ;;54

 +561     ;;21,"61919-0039-90 ")

 +562     ;;55

 +563     ;;21,"61919-0065-30 ")

 +564     ;;1317

 +565     ;;21,"61919-0065-60 ")

 +566     ;;1318

 +567     ;;21,"61919-0065-90 ")

 +568     ;;1319

 +569     ;;21,"61919-0147-60 ")

 +570     ;;1653

 +571     ;;21,"61919-0147-90 ")

 +572     ;;1654

 +573     ;;21,"61919-0148-30 ")

 +574     ;;2174

 +575     ;;21,"61919-0148-60 ")

 +576     ;;2175

 +577     ;;21,"61919-0148-90 ")

 +578     ;;2176

 +579     ;;21,"61919-0177-30 ")

 +580     ;;2300

 +581     ;;21,"61919-0177-60 ")

 +582     ;;2301

 +583     ;;21,"61919-0177-90 ")

 +584     ;;2302

 +585     ;;21,"61919-0478-30 ")

 +586     ;;604

 +587     ;;21,"61919-0478-40 ")

 +588     ;;605

 +589     ;;21,"61919-0544-30 ")

 +590     ;;861

 +591     ;;21,"61919-0544-90 ")

 +592     ;;862

 +593     ;;21,"62584-0780-01 ")

 +594     ;;1823

 +595     ;;21,"62584-0780-11 ")

 +596     ;;1824

 +597     ;;21,"62584-0781-01 ")

 +598     ;;1899

 +599     ;;21,"62584-0781-11 ")

 +600     ;;1900

 +601     ;;21,"62756-0446-02 ")

 +602     ;;255

 +603     ;;21,"62756-0446-04 ")

 +604     ;;256

 +605     ;;21,"62756-0446-05 ")

 +606     ;;257

 +607     ;;21,"63459-0700-60 ")

 +608     ;;1405

 +609     ;;21,"63459-0701-60 ")

 +610     ;;1415

 +611     ;;21,"63629-1308-00 ")

 +612     ;;258

 +613     ;;21,"63629-1308-01 ")

 +614     ;;259

 +615     ;;21,"63629-1308-02 ")

 +616     ;;260

 +617     ;;21,"63629-1308-03 ")

 +618     ;;261

 +619     ;;21,"63629-1308-04 ")

 +620     ;;262

 +621     ;;21,"63629-1308-05 ")

 +622     ;;263

 +623     ;;21,"63629-1308-06 ")

 +624     ;;264

 +625     ;;21,"63629-1308-07 ")

 +626     ;;265

 +627     ;;21,"63629-1308-08 ")

 +628     ;;266

 +629     ;;21,"63629-1308-09 ")

 +630     ;;267

 +631     ;;21,"63629-1308-10 ")

 +632     ;;268

 +633     ;;21,"63629-1339-00 ")

 +634     ;;979

 +635     ;;21,"63629-1339-01 ")

 +636     ;;980

 +637     ;;21,"63629-1339-02 ")

 +638     ;;981

 +639     ;;21,"63629-1339-03 ")

 +640     ;;982

 +641     ;;21,"63629-1339-04 ")

 +642     ;;983

 +643     ;;21,"63629-1339-05 ")

 +644     ;;984

 +645     ;;21,"63629-1339-06 ")

 +646     ;;985

 +647     ;;21,"63629-1339-07 ")

 +648     ;;986

 +649     ;;21,"63629-1339-08 ")

 +650     ;;987

 +651     ;;21,"63629-1339-09 ")

 +652     ;;988

 +653     ;;21,"63629-1339-10 ")

 +654     ;;989

 +655     ;;21,"63629-1564-01 ")

 +656     ;;2271

 +657     ;;21,"63629-1564-02 ")

 +658     ;;2272

 +659     ;;21,"63629-1564-03 ")

 +660     ;;2273

 +661     ;;21,"63629-1564-04 ")

 +662     ;;2274

 +663     ;;21,"63629-1564-05 ")

 +664     ;;2275

 +665     ;;21,"63629-1564-06 ")

 +666     ;;2276

 +667     ;;21,"63629-1564-07 ")

 +668     ;;2277

 +669     ;;21,"63629-1564-08 ")

 +670     ;;2278

 +671     ;;21,"63629-1564-09 ")

 +672     ;;2279

 +673     ;;21,"63629-1564-10 ")

 +674     ;;2280

 +675     ;;21,"63629-1586-01 ")

 +676     ;;624

 +677     ;;21,"63629-1586-02 ")

 +678     ;;625

 +679     ;;21,"63629-1586-03 ")

 +680     ;;626

 +681     ;;21,"63629-1586-04 ")

 +682     ;;627

 +683     ;;21,"63629-1586-05 ")

 +684     ;;628

 +685     ;;21,"63629-1586-06 ")

 +686     ;;629

 +687     ;;21,"63629-1586-07 ")

 +688     ;;630

 +689     ;;21,"63629-1586-08 ")

 +690     ;;631

 +691     ;;21,"63629-1586-09 ")

 +692     ;;632

 +693     ;;21,"63629-1622-01 ")

 +694     ;;1815

 +695     ;;21,"63629-1622-02 ")

 +696     ;;1816

 +697     ;;21,"63629-1622-03 ")

 +698     ;;1817

 +699     ;;21,"63629-1622-04 ")

 +700     ;;1818

 +701     ;;21,"63629-1622-05 ")

 +702     ;;1819

 +703     ;;21,"63629-1622-06 ")

 +704     ;;1820

 +705     ;;21,"63629-1622-07 ")

 +706     ;;1821

 +707     ;;21,"63629-1622-08 ")

 +708     ;;1822

 +709     ;;21,"63629-1623-01 ")

 +710     ;;1901

 +711     ;;21,"63629-1623-02 ")

 +712     ;;1902

 +713     ;;21,"63629-1623-03 ")

 +714     ;;1903

 +715     ;;21,"63629-1623-04 ")

 +716     ;;1904

 +717     ;;21,"63629-1623-05 ")

 +718     ;;1905

 +719     ;;21,"63629-1623-06 ")

 +720     ;;1906

 +721     ;;21,"63629-1623-07 ")

 +722     ;;1907

 +723     ;;21,"63629-1623-08 ")

 +724     ;;1908

 +725     ;;21,"63629-1640-01 ")

 +726     ;;1564

 +727     ;;21,"63629-2768-01 ")

 +728     ;;1565

 +729     ;;21,"63629-2768-02 ")

 +730     ;;1566

 +731     ;;21,"63629-2768-03 ")

 +732     ;;1567

 +733     ;;21,"63629-2768-04 ")

 +734     ;;1568

 +735     ;;21,"63629-2768-05 ")

 +736     ;;1569

 +737     ;;21,"63629-2768-06 ")

 +738     ;;1570

 +739     ;;21,"63629-2768-07 ")

 +740     ;;1571

 +741     ;;21,"63629-2768-08 ")

 +742     ;;1572

 +743     ;;21,"63629-3640-01 ")

 +744     ;;736

 +745     ;;21,"63629-3640-02 ")

 +746     ;;737

 +747     ;;21,"63629-3640-03 ")

 +748     ;;738

 +749     ;;21,"63629-3640-04 ")

 +750     ;;739

 +751     ;;21,"63629-3640-05 ")

 +752     ;;740

 +753     ;;21,"63629-3640-06 ")

 +754     ;;741

 +755     ;;21,"63629-3640-07 ")

 +756     ;;742

 +757     ;;21,"63629-3640-08 ")

 +758     ;;743

 +759     ;;21,"63629-3640-09 ")

 +760     ;;744

 +761     ;;21,"63629-4205-01 ")

 +762     ;;1491

 +763     ;;21,"63629-4205-02 ")

 +764     ;;1492

 +765     ;;21,"63629-4205-03 ")

 +766     ;;1493

 +767     ;;21,"63629-4205-04 ")

 +768     ;;1494

 +769     ;;21,"63629-4205-05 ")

 +770     ;;1495

 +771     ;;21,"63629-4205-06 ")

 +772     ;;1496

 +773     ;;21,"63629-4205-07 ")

 +774     ;;1497

 +775     ;;21,"63629-4205-08 ")

 +776     ;;1498

 +777     ;;21,"63629-4664-01 ")

 +778     ;;882

 +779     ;;21,"63629-4664-02 ")

 +780     ;;883

 +781     ;;21,"63629-4664-03 ")

 +782     ;;884

 +783     ;;21,"63629-4664-04 ")

 +784     ;;885

 +785     ;;21,"63629-4707-01 ")

 +786     ;;270