BGP7LXLB.m

BGP7LXLB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 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,"00615-3520-63 ")

 ;;50

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

 ;;1540

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

 ;;1541

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

 ;;1349

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

 ;;1350

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

 ;;660

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

 ;;802

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

 ;;803

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

 ;;267

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

 ;;268

 ;;21,"00677-0589-06 ")

 ;;269

 ;;21,"00677-0589-07 ")

 ;;270

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

 ;;271

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

 ;;1175

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

 ;;51

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

 ;;501

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

 ;;661

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

 ;;804

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

 ;;502

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

 ;;52

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

 ;;272

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

 ;;273

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

 ;;274

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

 ;;503

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

 ;;53

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

 ;;54

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

 ;;55

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

 ;;956

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

 ;;957

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

 ;;805

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

 ;;806

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

 ;;807

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

 ;;662

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

 ;;663

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

 ;;664

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

 ;;275

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

 ;;276

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

 ;;277

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

 ;;1671

 ;;21,"00814-7070-28 ")

 ;;1672

 ;;21,"00832-0000-10 ")

 ;;1737

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

 ;;1351

 ;;21,"00832-0001-10 ")

 ;;1352

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

 ;;1542

 ;;21,"00832-0006-10 ")

 ;;1543

 ;;21,"00832-0013-10 ")

 ;;1776

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

 ;;808

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

 ;;809

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

 ;;665

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

 ;;666

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

 ;;278

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

 ;;279

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

 ;;1176

 ;;21,"00839-6359-30 ")

 ;;614

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

 ;;1177

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

 ;;1178

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

 ;;504

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

 ;;505

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

 ;;56

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

 ;;57

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

 ;;58

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

 ;;506

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

 ;;507

 ;;21,"00853-1225-70 ")

 ;;1353

 ;;21,"00904-0227-40 ")

 ;;1179

 ;;21,"00904-0227-60 ")

 ;;1180

 ;;21,"00904-0294-60 ")

 ;;601

 ;;21,"00904-0300-40 ")

 ;;508

 ;;21,"00904-0300-60 ")

 ;;509

 ;;21,"00904-0302-40 ")

 ;;510

 ;;21,"00904-0302-60 ")

 ;;511

 ;;21,"00904-0355-40 ")

 ;;280

 ;;21,"00904-0355-60 ")

 ;;281

 ;;21,"00904-0355-61 ")

 ;;282

 ;;21,"00904-0355-70 ")

 ;;283

 ;;21,"00904-0355-80 ")

 ;;284

 ;;21,"00904-0356-40 ")

 ;;1181

 ;;21,"00904-0356-60 ")

 ;;1182

 ;;21,"00904-0858-10 ")

 ;;925

 ;;21,"00904-2221-40 ")

 ;;59

 ;;21,"00904-2221-60 ")

 ;;60

 ;;21,"00904-2221-61 ")

 ;;61

 ;;21,"00904-2221-80 ")

 ;;62

 ;;21,"00904-2364-40 ")

 ;;667

 ;;21,"00904-2364-60 ")

 ;;668

 ;;21,"00904-2364-61 ")

 ;;669

 ;;21,"00904-2365-40 ")

 ;;810

 ;;21,"00904-2365-60 ")

 ;;811

 ;;21,"00904-5238-60 ")

 ;;1183

 ;;21,"00904-5239-60 ")

 ;;1184

 ;;21,"00904-7586-40 ")

 ;;63

 ;;21,"00904-7586-60 ")

 ;;64

 ;;21,"00904-7586-61 ")

 ;;65

 ;;21,"00904-7586-80 ")

 ;;66

 ;;21,"00904-7809-40 ")

 ;;67

 ;;21,"00904-7809-60 ")

 ;;68

 ;;21,"00904-7809-61 ")

 ;;69

 ;;21,"00904-7809-80 ")

 ;;70

 ;;21,"00917-0339-10 ")

 ;;1738

 ;;21,"10023-0190-10 ")

 ;;1354

 ;;21,"10023-0220-90 ")

 ;;1317

 ;;21,"11584-0411-01 ")

 ;;512

 ;;21,"11584-0411-05 ")

 ;;513

 ;;21,"11584-1016-02 ")

 ;;926

 ;;21,"11584-1016-05 ")

 ;;927

 ;;21,"11584-1033-01 ")

 ;;602

 ;;21,"11845-0352-01 ")

 ;;1673

 ;;21,"11845-0352-03 ")

 ;;1674

 ;;21,"11845-0353-01 ")

 ;;1437

 ;;21,"11845-0353-03 ")

 ;;1438

 ;;21,"11845-0380-03 ")

 ;;1439

 ;;21,"12280-0044-00 ")

 ;;285

 ;;21,"12280-0142-00 ")

 ;;1798

 ;;21,"12908-0111-01 ")

 ;;1355

 ;;21,"12908-0111-02 ")

 ;;1356

 ;;21,"12908-0112-01 ")

 ;;1544

 ;;21,"12908-0112-02 ")

 ;;1545

 ;;21,"12908-0113-01 ")

 ;;1777

 ;;21,"12908-0113-02 ")

 ;;1778

 ;;21,"12908-0201-01 ")

 ;;1546

 ;;21,"12908-0202-01 ")

 ;;1547

 ;;21,"12908-0204-01 ")

 ;;1548

 ;;21,"12908-0301-01 ")

 ;;1779

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

 ;;1780

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

 ;;1781

 ;;21,"12908-0306-01 ")

 ;;1782

 ;;21,"12908-0404-01 ")

 ;;1334

 ;;21,"12908-0407-01 ")

 ;;1335

 ;;21,"12908-0501-01 ")

 ;;1770

 ;;21,"12908-0501-02 ")

 ;;1771

 ;;21,"12908-0502-01 ")

 ;;1772

 ;;21,"12908-0505-01 ")

 ;;1773

 ;;21,"12908-7001-01 ")

 ;;1739

 ;;21,"17022-2006-02 ")

 ;;1675

 ;;21,"17022-2006-04 ")

 ;;1676

 ;;21,"17022-8685-06 ")

 ;;1357

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

 ;;1740

 ;;21,"17224-0110-10 ")

 ;;1358

 ;;21,"17224-0113-10 ")

 ;;1359

 ;;21,"17224-0120-10 ")

 ;;1549

 ;;21,"17224-0121-10 ")

 ;;1550

 ;;21,"17224-0123-10 ")

 ;;1551

 ;;21,"17224-0124-10 ")

 ;;1783

 ;;21,"17236-0145-01 ")

 ;;1677

 ;;21,"17236-0145-05 ")

 ;;1678

 ;;21,"17236-0147-01 ")

 ;;1440

 ;;21,"17236-0239-01 ")

 ;;1679

 ;;21,"17236-0292-01 ")

 ;;1360

 ;;21,"17236-0292-10 ")

 ;;1361

 ;;21,"17236-0294-01 ")

 ;;1552

 ;;21,"17236-0294-10 ")

 ;;1553

 ;;21,"17236-0533-01 ")

 ;;1441

 ;;21,"17236-0533-05 ")

 ;;1442

 ;;21,"17236-0940-01 ")

 ;;1565

 ;;21,"17236-0940-10 ")

 ;;1566

 ;;21,"17314-8700-01 ")

 ;;71

 ;;21,"46703-0061-05 ")

 ;;1680

 ;;21,"49727-0445-02 ")

 ;;1681

 ;;21,"49727-0445-04 ")

 ;;1682

 ;;21,"49727-0448-02 ")

 ;;1443

 ;;21,"49727-0448-04 ")

 ;;1444

 ;;21,"49884-0016-01 ")

 ;;603

 ;;21,"49884-0016-10 ")

 ;;604

 ;;21,"49884-0246-01 ")

 ;;1185

 ;;21,"49884-0246-05 ")

 ;;1186

 ;;21,"49884-0472-01 ")

 ;;1187

 ;;21,"49884-0472-05 ")

 ;;1188

 ;;21,"49884-0473-01 ")

 ;;1189

 ;;21,"49884-0473-05 ")

 ;;1190

 ;;21,"49999-0034-60 ")

 ;;1219

 ;;21,"49999-0034-90 ")

 ;;1220

 ;;21,"49999-0044-10 ")

 ;;1445

 ;;21,"49999-0044-14 ")

 ;;1446

 ;;21,"49999-0044-15 ")

 ;;1447

 ;;21,"49999-0044-18 ")

 ;;1448

 ;;21,"49999-0044-20 ")

 ;;1449

 ;;21,"49999-0044-30 ")

 ;;1450

 ;;21,"49999-0044-60 ")

 ;;1451

 ;;21,"49999-0046-14 ")

 ;;1226

 ;;21,"49999-0046-20 ")

 ;;1227

 ;;21,"49999-0064-00 ")

 ;;1683

 ;;21,"49999-0064-01 ")

 ;;1684

 ;;21,"49999-0064-07 ")

 ;;1685

 ;;21,"49999-0064-10 ")

 ;;1799

 ;;21,"49999-0064-14 ")

 ;;1686

 ;;21,"49999-0064-15 ")

 ;;1687

 ;;21,"49999-0064-20 ")

 ;;1688

 ;;21,"49999-0064-30 ")

 ;;1689

 ;;21,"49999-0064-40 ")

 ;;1690

 ;;21,"49999-0064-50 ")

 ;;1691

 ;;21,"49999-0064-60 ")

 ;;1692

 ;;21,"49999-0064-90 ")

 ;;1693

 ;;21,"49999-0070-20 ")

 ;;1228

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

 ;;1229

 ;;21,"49999-0070-40 ")

 ;;1230

 ;;21,"49999-0070-42 ")

 ;;1231

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

 ;;1232

 ;;21,"49999-0084-60 ")

 ;;1362

 ;;21,"49999-0088-60 ")

 ;;1554

 ;;21,"49999-0274-21 ")

 ;;1363

 ;;21,"49999-0281-00 ")

 ;;1741

 ;;21,"49999-0282-00 ")

 ;;1762

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

 ;;1763

 ;;21,"49999-0288-00 ")

 ;;1742

 ;;21,"49999-0288-30 ")

 ;;1743

 ;;21,"49999-0288-60 ")

 ;;1744

 ;;21,"49999-0289-60 ")

 ;;1745

 ;;21,"49999-0363-01 ")

 ;;1364

 ;;21,"49999-0363-15 ")

 ;;1365

 ;;21,"49999-0363-18 ")

 ;;1366

 ;;21,"49999-0363-30 ")

 ;;1367

 ;;21,"49999-0363-60 ")

 ;;1368

 ;;21,"49999-0363-90 ")

 ;;1369

 ;;21,"50111-0563-01 ")

 ;;72

 ;;21,"50111-0563-02 ")

 ;;73

 ;;21,"50111-0563-03 ")

 ;;74

 ;;21,"50580-0280-10 ")

 ;;1116

 ;;21,"50580-0874-11 ")

 ;;75

 ;;21,"50752-0285-05 ")

 ;;76

 ;;21,"50752-0285-08 ")

 ;;77

 ;;21,"50752-0285-09 ")

 ;;78

 ;;21,"51079-0055-20 ")

 ;;286

 ;;21,"51079-0476-20 ")

 ;;514

 ;;21,"51079-0644-17 ")

 ;;1221

 ;;21,"51079-0644-19 ")

 ;;79

 ;;21,"51079-0644-20 ")

 ;;80

 ;;21,"51079-0644-93 ")

 ;;1800

 ;;21,"51079-0644-97 ")

 ;;81

 ;;21,"51234-0514-02 ")

 ;;1318

 ;;21,"51285-0852-04 ")

 ;;1585

 ;;21,"51285-0873-02 ")

 ;;82

 ;;21,"51285-0873-04 ")

 ;;83

 ;;21,"51285-0873-05 ")

 ;;84

 ;;21,"51285-0874-02 ")

 ;;287

 ;;21,"51285-0874-04 ")

 ;;288

 ;;21,"51285-0874-05 ")

 ;;289

 ;;21,"51432-0058-03 ")

 ;;1694

 ;;21,"51432-0060-03 ")

 ;;1452

 ;;21,"51432-0249-03 ")

 ;;1695

 ;;21,"51432-0297-03 ")

 ;;1567

 ;;21,"51432-0367-03 ")

 ;;1586

 ;;21,"51432-0458-03 ")

 ;;1370

 ;;21,"51432-0458-06 ")

 ;;1371

 ;;21,"51432-0460-03 ")

 ;;1555

 ;;21,"51432-0460-06 ")

 ;;1556

 ;;21,"51432-0824-03 ")

 ;;1453

 ;;21,"51432-0882-03 ")

 ;;1319

 ;;21,"51655-0141-50 ")

 ;;812

 ;;21,"51655-0170-24 ")

 ;;1801

 ;;21,"51655-0283-29 ")

 ;;1320

 ;;21,"51655-0376-52 ")

 ;;290

 ;;21,"51655-0440-24 ")

 ;;85

 ;;21,"51655-0440-25 ")

 ;;86

 ;;21,"51655-0440-54 ")

 ;;87

 ;;21,"51655-0440-85 ")

 ;;88

 ;;21,"51655-0576-25 ")

 ;;670

 ;;21,"51655-0576-51 ")

 ;;671

 ;;21,"52152-0025-02 ")

 ;;515

 ;;21,"52152-0025-04 ")

 ;;516

 ;;21,"52152-0053-02 ")

 ;;605

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

 ;;606

 ;;21,"52152-0136-02 ")

 ;;291

 ;;21,"52152-0136-04 ")

 ;;292

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

 ;;293

 ;;21,"52152-0137-02 ")

 ;;1191

 ;;21,"52152-0137-04 ")

 ;;1192

 ;;21,"52152-0138-02 ")

 ;;1193

 ;;21,"52152-0340-02 ")

 ;;1802

 ;;21,"52406-0129-10 ")

 ;;1372

 ;;21,"52406-0131-10 ")

 ;;1696

 ;;21,"52406-0354-82 ")

 ;;1321

 ;;21,"52544-0418-01 ")

 ;;89

 ;;21,"52544-0418-05 ")

 ;;90

 ;;21,"52544-0418-10 ")

 ;;91

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

 ;;294

 ;;21,"52544-0692-10 ")

 ;;295

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

 ;;517

 ;;21,"52544-0693-05 ")

 ;;518

 ;;21,"52544-0784-01 ")

 ;;296

 ;;21,"52544-0784-05 ")

 ;;297

 ;;21,"52544-0784-10 ")

 ;;298

 ;;21,"52544-0806-01 ")

 ;;672

 ;;21,"52544-0806-05 ")

 ;;673

 ;;21,"52544-0807-01 ")

 ;;813

 ;;21,"52544-0807-05 ")

 ;;814

 ;;21,"52555-0441-10 ")

 ;;1587

 ;;21,"52604-3204-01 ")

 ;;1746

 ;;21,"52604-3300-08 ")

 ;;1373

 ;;21,"52604-3304-01 ")

 ;;1747

 ;;21,"52604-3308-08 ")

 ;;1557

 ;;21,"52604-3312-01 ")

 ;;1764

 ;;21,"52604-7004-02 ")

 ;;1748

 ;;21,"52959-0006-10 ")

 ;;1117

 ;;21,"52959-0006-20 ")

 ;;1118

 ;;21,"52959-0026-00 ")

 ;;299

 ;;21,"52959-0026-03 ")

 ;;300

 ;;21,"52959-0026-10 ")

 ;;301

 ;;21,"52959-0026-12 ")

 ;;1697

 ;;21,"52959-0026-14 ")

 ;;302

 ;;21,"52959-0026-15 ")

 ;;303

 ;;21,"52959-0026-20 ")

 ;;304

 ;;21,"52959-0026-21 ")

 ;;305

 ;;21,"52959-0026-25 ")

 ;;306

 ;;21,"52959-0026-28 ")

 ;;307

 ;;21,"52959-0026-30 ")

 ;;308

 ;;21,"52959-0026-32 ")

 ;;309

 ;;21,"52959-0026-40 ")

 ;;310

 ;;21,"52959-0026-50 ")

 ;;311

 ;;21,"52959-0026-52 ")

 ;;312

 ;;21,"52959-0026-56 ")

 ;;313

 ;;21,"52959-0026-60 ")

 ;;314

 ;;21,"52959-0026-90 ")

 ;;315

 ;;21,"52959-0035-10 ")

 ;;519

 ;;21,"52959-0035-20 ")

 ;;520

 ;;21,"52959-0035-21 ")

 ;;521

 ;;21,"52959-0035-28 ")

 ;;522

 ;;21,"52959-0035-30 ")

 ;;523

 ;;21,"52959-0035-40 ")

 ;;524

 ;;21,"52959-0035-56 ")

 ;;525

 ;;21,"52959-0035-60 ")

 ;;526

 ;;21,"52959-0035-70 ")

 ;;527

 ;;21,"52959-0042-00 ")

 ;;92

 ;;21,"52959-0042-02 ")

 ;;1588

 ;;21,"52959-0042-04 ")

 ;;93

 ;;21,"52959-0042-07 ")

 ;;94

 ;;21,"52959-0042-10 ")

 ;;95

 ;;21,"52959-0042-12 ")

 ;;96

 ;;21,"52959-0042-14 ")

 ;;97

 ;;21,"52959-0042-15 ")

 ;;98

 ;;21,"52959-0042-20 ")

 ;;99

 ;;21,"52959-0042-21 ")

 ;;100

 ;;21,"52959-0042-25 ")

 ;;101

 ;;21,"52959-0042-28 ")

 ;;102

 ;;21,"52959-0042-30 ")

 ;;103

 ;;21,"52959-0042-35 ")

 ;;1589

 ;;21,"52959-0042-40 ")

 ;;104

 ;;21,"52959-0042-45 ")

 ;;105

 ;;21,"52959-0042-60 ")

 ;;106

 ;;21,"52959-0042-90 ")

 ;;107

 ;;21,"52959-0069-10 ")

 ;;108

 ;;21,"52959-0069-15 ")

 ;;109

 ;;21,"52959-0069-20 ")

 ;;110

 ;;21,"52959-0069-21 ")

 ;;111

 ;;21,"52959-0069-30 ")

 ;;112

 ;;21,"52959-0069-40 ")

 ;;113

 ;;21,"52959-0099-00 ")

 ;;815

 ;;21,"52959-0099-03 ")

 ;;816

 ;;21,"52959-0099-10 ")

 ;;817

 ;;21,"52959-0099-15 ")

 ;;818

 ;;21,"52959-0099-20 ")

 ;;819

 ;;21,"52959-0099-21 ")

 ;;820

 ;;21,"52959-0099-28 ")

 ;;821

 ;;21,"52959-0099-30 ")

 ;;822

 ;;21,"52959-0099-40 ")

 ;;823

 ;;21,"52959-0099-45 ")

 ;;824

 ;;21,"52959-0099-50 ")

 ;;825

 ;;21,"52959-0099-60 ")

 ;;826

 ;;21,"52959-0115-20 ")

 ;;1194

 ;;21,"52959-0149-00 ")

 ;;1374

 ;;21,"52959-0167-00 ")

 ;;674

 ;;21,"52959-0167-03 ")

 ;;675

 ;;21,"52959-0167-12 ")

 ;;676

 ;;21,"52959-0167-15 ")

 ;;677

 ;;21,"52959-0167-20 ")

 ;;678

 ;;21,"52959-0167-21 ")

 ;;679

 ;;21,"52959-0167-24 ")

 ;;680

 ;;21,"52959-0167-30 ")

 ;;681

 ;;21,"52959-0167-40 ")

 ;;682

 ;;21,"52959-0167-60 ")

 ;;683

 ;;21,"52959-0167-90 ")

 ;;1803

 ;;21,"52959-0178-10 ")

 ;;958

 ;;21,"52959-0178-14 ")

 ;;959

 ;;21,"52959-0178-15 ")

 ;;960

 ;;21,"52959-0178-20 ")

 ;;961

 ;;21,"52959-0178-30 ")

 ;;962

 ;;21,"52959-0179-06 ")

 ;;1322

 ;;21,"52959-0210-30 ")

 ;;1195

 ;;21,"52959-0410-03 ")

 ;;1013

 ;;21,"52959-0410-08 ")

 ;;1014

 ;;21,"52959-0410-09 ")

 ;;1015

 ;;21,"52959-0410-10 ")

 ;;1016

 ;;21,"52959-0410-11 ")

 ;;1017

 ;;21,"52959-0410-14 ")

 ;;1018

 ;;21,"52959-0410-15 ")

 ;;1019

 ;;21,"52959-0410-18 ")

 ;;1020

 ;;21,"52959-0410-20 ")

 ;;1021

 ;;21,"52959-0410-28 ")

 ;;1022

 ;;21,"52959-0410-30 ")

 ;;1023

 ;;21,"52959-0410-40 ")

 ;;1024

 ;;21,"52959-0410-42 ")

 ;;1025

 ;;21,"52959-0410-45 ")

 ;;1026

 ;;21,"52959-0410-50 ")

 ;;1027

 ;;21,"52959-0410-60 ")

 ;;1028

BGP7LXLB  ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 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,"00615-3520-63 ")

 +2       ;;50

 +3       ;;21,"00675-2238-07 ")

 +4       ;;1540

 +5       ;;21,"00675-2238-12 ")

 +6       ;;1541

 +7       ;;21,"00675-2242-07 ")

 +8       ;;1349

 +9       ;;21,"00675-2242-12 ")

 +10      ;;1350

 +11      ;;21,"00677-0430-01 ")

 +12      ;;660

 +13      ;;21,"00677-0431-01 ")

 +14      ;;802

 +15      ;;21,"00677-0431-05 ")

 +16      ;;803

 +17      ;;21,"00677-0589-01 ")

 +18      ;;267

 +19      ;;21,"00677-0589-05 ")

 +20      ;;268

 +21      ;;21,"00677-0589-06 ")

 +22      ;;269

 +23      ;;21,"00677-0589-07 ")

 +24      ;;270

 +25      ;;21,"00677-0589-10 ")

 +26      ;;271

 +27      ;;21,"00677-1068-01 ")

 +28      ;;1175

 +29      ;;21,"00677-1429-01 ")

 +30      ;;51

 +31      ;;21,"00677-1670-01 ")

 +32      ;;501

 +33      ;;21,"00686-0091-20 ")

 +34      ;;661

 +35      ;;21,"00686-0092-20 ")

 +36      ;;804

 +37      ;;21,"00686-0476-20 ")

 +38      ;;502

 +39      ;;21,"00686-0644-20 ")

 +40      ;;52

 +41      ;;21,"00781-1050-01 ")

 +42      ;;272

 +43      ;;21,"00781-1050-05 ")

 +44      ;;273

 +45      ;;21,"00781-1050-10 ")

 +46      ;;274

 +47      ;;21,"00781-1304-13 ")

 +48      ;;503

 +49      ;;21,"00781-1324-01 ")

 +50      ;;53

 +51      ;;21,"00781-1324-05 ")

 +52      ;;54

 +53      ;;21,"00781-1324-10 ")

 +54      ;;55

 +55      ;;21,"00781-1649-01 ")

 +56      ;;956

 +57      ;;21,"00781-1649-05 ")

 +58      ;;957

 +59      ;;21,"00781-1750-01 ")

 +60      ;;805

 +61      ;;21,"00781-1750-05 ")

 +62      ;;806

 +63      ;;21,"00781-1750-13 ")

 +64      ;;807

 +65      ;;21,"00781-1760-01 ")

 +66      ;;662

 +67      ;;21,"00781-1760-05 ")

 +68      ;;663

 +69      ;;21,"00781-1760-13 ")

 +70      ;;664

 +71      ;;21,"00781-5005-01 ")

 +72      ;;275

 +73      ;;21,"00781-5005-05 ")

 +74      ;;276

 +75      ;;21,"00781-5005-10 ")

 +76      ;;277

 +77      ;;21,"00814-7070-14 ")

 +78      ;;1671

 +79      ;;21,"00814-7070-28 ")

 +80      ;;1672

 +81      ;;21,"00832-0000-10 ")

 +82      ;;1737

 +83      ;;21,"00832-0001-00 ")

 +84      ;;1351

 +85      ;;21,"00832-0001-10 ")

 +86      ;;1352

 +87      ;;21,"00832-0006-00 ")

 +88      ;;1542

 +89      ;;21,"00832-0006-10 ")

 +90      ;;1543

 +91      ;;21,"00832-0013-10 ")

 +92      ;;1776

 +93      ;;21,"00839-5101-06 ")

 +94      ;;808

 +95      ;;21,"00839-5101-12 ")

 +96      ;;809

 +97      ;;21,"00839-5132-06 ")

 +98      ;;665

 +99      ;;21,"00839-5132-12 ")

 +100     ;;666

 +101     ;;21,"00839-6246-06 ")

 +102     ;;278

 +103     ;;21,"00839-6246-16 ")

 +104     ;;279

 +105     ;;21,"00839-6284-06 ")

 +106     ;;1176

 +107     ;;21,"00839-6359-30 ")

 +108     ;;614

 +109     ;;21,"00839-7162-06 ")

 +110     ;;1177

 +111     ;;21,"00839-7162-12 ")

 +112     ;;1178

 +113     ;;21,"00839-7445-06 ")

 +114     ;;504

 +115     ;;21,"00839-7445-12 ")

 +116     ;;505

 +117     ;;21,"00839-7566-16 ")

 +118     ;;56

 +119     ;;21,"00839-7711-06 ")

 +120     ;;57

 +121     ;;21,"00839-7711-16 ")

 +122     ;;58

 +123     ;;21,"00839-7725-06 ")

 +124     ;;506

 +125     ;;21,"00839-7725-12 ")

 +126     ;;507

 +127     ;;21,"00853-1225-70 ")

 +128     ;;1353

 +129     ;;21,"00904-0227-40 ")

 +130     ;;1179

 +131     ;;21,"00904-0227-60 ")

 +132     ;;1180

 +133     ;;21,"00904-0294-60 ")

 +134     ;;601

 +135     ;;21,"00904-0300-40 ")

 +136     ;;508

 +137     ;;21,"00904-0300-60 ")

 +138     ;;509

 +139     ;;21,"00904-0302-40 ")

 +140     ;;510

 +141     ;;21,"00904-0302-60 ")

 +142     ;;511

 +143     ;;21,"00904-0355-40 ")

 +144     ;;280

 +145     ;;21,"00904-0355-60 ")

 +146     ;;281

 +147     ;;21,"00904-0355-61 ")

 +148     ;;282

 +149     ;;21,"00904-0355-70 ")

 +150     ;;283

 +151     ;;21,"00904-0355-80 ")

 +152     ;;284

 +153     ;;21,"00904-0356-40 ")

 +154     ;;1181

 +155     ;;21,"00904-0356-60 ")

 +156     ;;1182

 +157     ;;21,"00904-0858-10 ")

 +158     ;;925

 +159     ;;21,"00904-2221-40 ")

 +160     ;;59

 +161     ;;21,"00904-2221-60 ")

 +162     ;;60

 +163     ;;21,"00904-2221-61 ")

 +164     ;;61

 +165     ;;21,"00904-2221-80 ")

 +166     ;;62

 +167     ;;21,"00904-2364-40 ")

 +168     ;;667

 +169     ;;21,"00904-2364-60 ")

 +170     ;;668

 +171     ;;21,"00904-2364-61 ")

 +172     ;;669

 +173     ;;21,"00904-2365-40 ")

 +174     ;;810

 +175     ;;21,"00904-2365-60 ")

 +176     ;;811

 +177     ;;21,"00904-5238-60 ")

 +178     ;;1183

 +179     ;;21,"00904-5239-60 ")

 +180     ;;1184

 +181     ;;21,"00904-7586-40 ")

 +182     ;;63

 +183     ;;21,"00904-7586-60 ")

 +184     ;;64

 +185     ;;21,"00904-7586-61 ")

 +186     ;;65

 +187     ;;21,"00904-7586-80 ")

 +188     ;;66

 +189     ;;21,"00904-7809-40 ")

 +190     ;;67

 +191     ;;21,"00904-7809-60 ")

 +192     ;;68

 +193     ;;21,"00904-7809-61 ")

 +194     ;;69

 +195     ;;21,"00904-7809-80 ")

 +196     ;;70

 +197     ;;21,"00917-0339-10 ")

 +198     ;;1738

 +199     ;;21,"10023-0190-10 ")

 +200     ;;1354

 +201     ;;21,"10023-0220-90 ")

 +202     ;;1317

 +203     ;;21,"11584-0411-01 ")

 +204     ;;512

 +205     ;;21,"11584-0411-05 ")

 +206     ;;513

 +207     ;;21,"11584-1016-02 ")

 +208     ;;926

 +209     ;;21,"11584-1016-05 ")

 +210     ;;927

 +211     ;;21,"11584-1033-01 ")

 +212     ;;602

 +213     ;;21,"11845-0352-01 ")

 +214     ;;1673

 +215     ;;21,"11845-0352-03 ")

 +216     ;;1674

 +217     ;;21,"11845-0353-01 ")

 +218     ;;1437

 +219     ;;21,"11845-0353-03 ")

 +220     ;;1438

 +221     ;;21,"11845-0380-03 ")

 +222     ;;1439

 +223     ;;21,"12280-0044-00 ")

 +224     ;;285

 +225     ;;21,"12280-0142-00 ")

 +226     ;;1798

 +227     ;;21,"12908-0111-01 ")

 +228     ;;1355

 +229     ;;21,"12908-0111-02 ")

 +230     ;;1356

 +231     ;;21,"12908-0112-01 ")

 +232     ;;1544

 +233     ;;21,"12908-0112-02 ")

 +234     ;;1545

 +235     ;;21,"12908-0113-01 ")

 +236     ;;1777

 +237     ;;21,"12908-0113-02 ")

 +238     ;;1778

 +239     ;;21,"12908-0201-01 ")

 +240     ;;1546

 +241     ;;21,"12908-0202-01 ")

 +242     ;;1547

 +243     ;;21,"12908-0204-01 ")

 +244     ;;1548

 +245     ;;21,"12908-0301-01 ")

 +246     ;;1779

 +247     ;;21,"12908-0302-01 ")

 +248     ;;1780

 +249     ;;21,"12908-0305-01 ")

 +250     ;;1781

 +251     ;;21,"12908-0306-01 ")

 +252     ;;1782

 +253     ;;21,"12908-0404-01 ")

 +254     ;;1334

 +255     ;;21,"12908-0407-01 ")

 +256     ;;1335

 +257     ;;21,"12908-0501-01 ")

 +258     ;;1770

 +259     ;;21,"12908-0501-02 ")

 +260     ;;1771

 +261     ;;21,"12908-0502-01 ")

 +262     ;;1772

 +263     ;;21,"12908-0505-01 ")

 +264     ;;1773

 +265     ;;21,"12908-7001-01 ")

 +266     ;;1739

 +267     ;;21,"17022-2006-02 ")

 +268     ;;1675

 +269     ;;21,"17022-2006-04 ")

 +270     ;;1676

 +271     ;;21,"17022-8685-06 ")

 +272     ;;1357

 +273     ;;21,"17224-0109-10 ")

 +274     ;;1740

 +275     ;;21,"17224-0110-10 ")

 +276     ;;1358

 +277     ;;21,"17224-0113-10 ")

 +278     ;;1359

 +279     ;;21,"17224-0120-10 ")

 +280     ;;1549

 +281     ;;21,"17224-0121-10 ")

 +282     ;;1550

 +283     ;;21,"17224-0123-10 ")

 +284     ;;1551

 +285     ;;21,"17224-0124-10 ")

 +286     ;;1783

 +287     ;;21,"17236-0145-01 ")

 +288     ;;1677

 +289     ;;21,"17236-0145-05 ")

 +290     ;;1678

 +291     ;;21,"17236-0147-01 ")

 +292     ;;1440

 +293     ;;21,"17236-0239-01 ")

 +294     ;;1679

 +295     ;;21,"17236-0292-01 ")

 +296     ;;1360

 +297     ;;21,"17236-0292-10 ")

 +298     ;;1361

 +299     ;;21,"17236-0294-01 ")

 +300     ;;1552

 +301     ;;21,"17236-0294-10 ")

 +302     ;;1553

 +303     ;;21,"17236-0533-01 ")

 +304     ;;1441

 +305     ;;21,"17236-0533-05 ")

 +306     ;;1442

 +307     ;;21,"17236-0940-01 ")

 +308     ;;1565

 +309     ;;21,"17236-0940-10 ")

 +310     ;;1566

 +311     ;;21,"17314-8700-01 ")

 +312     ;;71

 +313     ;;21,"46703-0061-05 ")

 +314     ;;1680

 +315     ;;21,"49727-0445-02 ")

 +316     ;;1681

 +317     ;;21,"49727-0445-04 ")

 +318     ;;1682

 +319     ;;21,"49727-0448-02 ")

 +320     ;;1443

 +321     ;;21,"49727-0448-04 ")

 +322     ;;1444

 +323     ;;21,"49884-0016-01 ")

 +324     ;;603

 +325     ;;21,"49884-0016-10 ")

 +326     ;;604

 +327     ;;21,"49884-0246-01 ")

 +328     ;;1185

 +329     ;;21,"49884-0246-05 ")

 +330     ;;1186

 +331     ;;21,"49884-0472-01 ")

 +332     ;;1187

 +333     ;;21,"49884-0472-05 ")

 +334     ;;1188

 +335     ;;21,"49884-0473-01 ")

 +336     ;;1189

 +337     ;;21,"49884-0473-05 ")

 +338     ;;1190

 +339     ;;21,"49999-0034-60 ")

 +340     ;;1219

 +341     ;;21,"49999-0034-90 ")

 +342     ;;1220

 +343     ;;21,"49999-0044-10 ")

 +344     ;;1445

 +345     ;;21,"49999-0044-14 ")

 +346     ;;1446

 +347     ;;21,"49999-0044-15 ")

 +348     ;;1447

 +349     ;;21,"49999-0044-18 ")

 +350     ;;1448

 +351     ;;21,"49999-0044-20 ")

 +352     ;;1449

 +353     ;;21,"49999-0044-30 ")

 +354     ;;1450

 +355     ;;21,"49999-0044-60 ")

 +356     ;;1451

 +357     ;;21,"49999-0046-14 ")

 +358     ;;1226

 +359     ;;21,"49999-0046-20 ")

 +360     ;;1227

 +361     ;;21,"49999-0064-00 ")

 +362     ;;1683

 +363     ;;21,"49999-0064-01 ")

 +364     ;;1684

 +365     ;;21,"49999-0064-07 ")

 +366     ;;1685

 +367     ;;21,"49999-0064-10 ")

 +368     ;;1799

 +369     ;;21,"49999-0064-14 ")

 +370     ;;1686

 +371     ;;21,"49999-0064-15 ")

 +372     ;;1687

 +373     ;;21,"49999-0064-20 ")

 +374     ;;1688

 +375     ;;21,"49999-0064-30 ")

 +376     ;;1689

 +377     ;;21,"49999-0064-40 ")

 +378     ;;1690

 +379     ;;21,"49999-0064-50 ")

 +380     ;;1691

 +381     ;;21,"49999-0064-60 ")

 +382     ;;1692

 +383     ;;21,"49999-0064-90 ")

 +384     ;;1693

 +385     ;;21,"49999-0070-20 ")

 +386     ;;1228

 +387     ;;21,"49999-0070-30 ")

 +388     ;;1229

 +389     ;;21,"49999-0070-40 ")

 +390     ;;1230

 +391     ;;21,"49999-0070-42 ")

 +392     ;;1231

 +393     ;;21,"49999-0070-60 ")

 +394     ;;1232

 +395     ;;21,"49999-0084-60 ")

 +396     ;;1362

 +397     ;;21,"49999-0088-60 ")

 +398     ;;1554

 +399     ;;21,"49999-0274-21 ")

 +400     ;;1363

 +401     ;;21,"49999-0281-00 ")

 +402     ;;1741

 +403     ;;21,"49999-0282-00 ")

 +404     ;;1762

 +405     ;;21,"49999-0282-60 ")

 +406     ;;1763

 +407     ;;21,"49999-0288-00 ")

 +408     ;;1742

 +409     ;;21,"49999-0288-30 ")

 +410     ;;1743

 +411     ;;21,"49999-0288-60 ")

 +412     ;;1744

 +413     ;;21,"49999-0289-60 ")

 +414     ;;1745

 +415     ;;21,"49999-0363-01 ")

 +416     ;;1364

 +417     ;;21,"49999-0363-15 ")

 +418     ;;1365

 +419     ;;21,"49999-0363-18 ")

 +420     ;;1366

 +421     ;;21,"49999-0363-30 ")

 +422     ;;1367

 +423     ;;21,"49999-0363-60 ")

 +424     ;;1368

 +425     ;;21,"49999-0363-90 ")

 +426     ;;1369

 +427     ;;21,"50111-0563-01 ")

 +428     ;;72

 +429     ;;21,"50111-0563-02 ")

 +430     ;;73

 +431     ;;21,"50111-0563-03 ")

 +432     ;;74

 +433     ;;21,"50580-0280-10 ")

 +434     ;;1116

 +435     ;;21,"50580-0874-11 ")

 +436     ;;75

 +437     ;;21,"50752-0285-05 ")

 +438     ;;76

 +439     ;;21,"50752-0285-08 ")

 +440     ;;77

 +441     ;;21,"50752-0285-09 ")

 +442     ;;78

 +443     ;;21,"51079-0055-20 ")

 +444     ;;286

 +445     ;;21,"51079-0476-20 ")

 +446     ;;514

 +447     ;;21,"51079-0644-17 ")

 +448     ;;1221

 +449     ;;21,"51079-0644-19 ")

 +450     ;;79

 +451     ;;21,"51079-0644-20 ")

 +452     ;;80

 +453     ;;21,"51079-0644-93 ")

 +454     ;;1800

 +455     ;;21,"51079-0644-97 ")

 +456     ;;81

 +457     ;;21,"51234-0514-02 ")

 +458     ;;1318

 +459     ;;21,"51285-0852-04 ")

 +460     ;;1585

 +461     ;;21,"51285-0873-02 ")

 +462     ;;82

 +463     ;;21,"51285-0873-04 ")

 +464     ;;83

 +465     ;;21,"51285-0873-05 ")

 +466     ;;84

 +467     ;;21,"51285-0874-02 ")

 +468     ;;287

 +469     ;;21,"51285-0874-04 ")

 +470     ;;288

 +471     ;;21,"51285-0874-05 ")

 +472     ;;289

 +473     ;;21,"51432-0058-03 ")

 +474     ;;1694

 +475     ;;21,"51432-0060-03 ")

 +476     ;;1452

 +477     ;;21,"51432-0249-03 ")

 +478     ;;1695

 +479     ;;21,"51432-0297-03 ")

 +480     ;;1567

 +481     ;;21,"51432-0367-03 ")

 +482     ;;1586

 +483     ;;21,"51432-0458-03 ")

 +484     ;;1370

 +485     ;;21,"51432-0458-06 ")

 +486     ;;1371

 +487     ;;21,"51432-0460-03 ")

 +488     ;;1555

 +489     ;;21,"51432-0460-06 ")

 +490     ;;1556

 +491     ;;21,"51432-0824-03 ")

 +492     ;;1453

 +493     ;;21,"51432-0882-03 ")

 +494     ;;1319

 +495     ;;21,"51655-0141-50 ")

 +496     ;;812

 +497     ;;21,"51655-0170-24 ")

 +498     ;;1801

 +499     ;;21,"51655-0283-29 ")

 +500     ;;1320

 +501     ;;21,"51655-0376-52 ")

 +502     ;;290

 +503     ;;21,"51655-0440-24 ")

 +504     ;;85

 +505     ;;21,"51655-0440-25 ")

 +506     ;;86

 +507     ;;21,"51655-0440-54 ")

 +508     ;;87

 +509     ;;21,"51655-0440-85 ")

 +510     ;;88

 +511     ;;21,"51655-0576-25 ")

 +512     ;;670

 +513     ;;21,"51655-0576-51 ")

 +514     ;;671

 +515     ;;21,"52152-0025-02 ")

 +516     ;;515

 +517     ;;21,"52152-0025-04 ")

 +518     ;;516

 +519     ;;21,"52152-0053-02 ")

 +520     ;;605

 +521     ;;21,"52152-0053-05 ")

 +522     ;;606

 +523     ;;21,"52152-0136-02 ")

 +524     ;;291

 +525     ;;21,"52152-0136-04 ")

 +526     ;;292

 +527     ;;21,"52152-0136-05 ")

 +528     ;;293

 +529     ;;21,"52152-0137-02 ")

 +530     ;;1191

 +531     ;;21,"52152-0137-04 ")

 +532     ;;1192

 +533     ;;21,"52152-0138-02 ")

 +534     ;;1193