BGP51P3.m

BGP51P3 ;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,"43353-0104-53 ")

 ;;1980

 ;;21,"43353-0104-60 ")

 ;;1981

 ;;21,"43353-0111-30 ")

 ;;2074

 ;;21,"43353-0111-53 ")

 ;;2075

 ;;21,"43353-0111-60 ")

 ;;2076

 ;;21,"43353-0111-80 ")

 ;;2077

 ;;21,"43353-0119-30 ")

 ;;1842

 ;;21,"43353-0119-53 ")

 ;;1843

 ;;21,"43353-0119-60 ")

 ;;1844

 ;;21,"43353-0119-80 ")

 ;;1845

 ;;21,"43353-0122-30 ")

 ;;1976

 ;;21,"43353-0122-53 ")

 ;;1977

 ;;21,"43353-0122-60 ")

 ;;1978

 ;;21,"43353-0132-53 ")

 ;;1735

 ;;21,"43353-0133-30 ")

 ;;2078

 ;;21,"43353-0133-53 ")

 ;;2079

 ;;21,"43353-0133-60 ")

 ;;2080

 ;;21,"43353-0133-80 ")

 ;;2081

 ;;21,"43353-0134-45 ")

 ;;1150

 ;;21,"43353-0134-60 ")

 ;;1151

 ;;21,"43353-0156-53 ")

 ;;1839

 ;;21,"43353-0156-60 ")

 ;;1840

 ;;21,"43353-0156-80 ")

 ;;1841

 ;;21,"43353-0160-30 ")

 ;;1982

 ;;21,"43353-0160-53 ")

 ;;1983

 ;;21,"43353-0160-60 ")

 ;;1984

 ;;21,"43353-0160-70 ")

 ;;1985

 ;;21,"43353-0160-80 ")

 ;;1986

 ;;21,"43353-0173-30 ")

 ;;1031

 ;;21,"43353-0173-42 ")

 ;;1032

 ;;21,"43353-0173-45 ")

 ;;1033

 ;;21,"43353-0173-60 ")

 ;;1034

 ;;21,"43353-0173-80 ")

 ;;1035

 ;;21,"43353-0348-30 ")

 ;;1036

 ;;21,"43353-0348-45 ")

 ;;1037

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

 ;;676

 ;;21,"43353-0440-30 ")

 ;;2070

 ;;21,"43353-0440-53 ")

 ;;2071

 ;;21,"43353-0440-60 ")

 ;;2072

 ;;21,"43353-0440-80 ")

 ;;2073

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

 ;;1987

 ;;21,"43353-0478-53 ")

 ;;1988

 ;;21,"43353-0478-60 ")

 ;;1989

 ;;21,"43353-0485-53 ")

 ;;1736

 ;;21,"43353-0485-60 ")

 ;;1737

 ;;21,"43353-0486-30 ")

 ;;1835

 ;;21,"43353-0486-53 ")

 ;;1836

 ;;21,"43353-0486-60 ")

 ;;1837

 ;;21,"43353-0486-80 ")

 ;;1838

 ;;21,"43353-0508-60 ")

 ;;148

 ;;21,"43353-0576-45 ")

 ;;1474

 ;;21,"43353-0576-53 ")

 ;;1475

 ;;21,"43353-0576-60 ")

 ;;1476

 ;;21,"43353-0576-70 ")

 ;;1477

 ;;21,"43353-0576-80 ")

 ;;1478

 ;;21,"43353-0576-92 ")

 ;;1479

 ;;21,"43353-0583-30 ")

 ;;1038

 ;;21,"43353-0583-45 ")

 ;;1039

 ;;21,"43353-0583-60 ")

 ;;1040

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

 ;;149

 ;;21,"43353-0706-60 ")

 ;;200

 ;;21,"43353-0795-16 ")

 ;;1148

 ;;21,"43353-0795-60 ")

 ;;1149

 ;;21,"43353-0830-60 ")

 ;;674

 ;;21,"43353-0830-73 ")

 ;;675

 ;;21,"43353-0832-60 ")

 ;;2066

 ;;21,"43353-0832-80 ")

 ;;2067

 ;;21,"43353-0833-30 ")

 ;;553

 ;;21,"43353-0833-45 ")

 ;;554

 ;;21,"43353-0833-60 ")

 ;;555

 ;;21,"43353-0833-80 ")

 ;;556

 ;;21,"43353-0834-30 ")

 ;;668

 ;;21,"43353-0834-45 ")

 ;;669

 ;;21,"43353-0834-60 ")

 ;;670

 ;;21,"43353-0834-80 ")

 ;;671

 ;;21,"43353-0837-53 ")

 ;;1740

 ;;21,"43353-0837-60 ")

 ;;1741

 ;;21,"43353-0837-80 ")

 ;;1742

 ;;21,"43353-0838-30 ")

 ;;1829

 ;;21,"43353-0838-53 ")

 ;;1830

 ;;21,"43353-0838-60 ")

 ;;1831

 ;;21,"43353-0838-80 ")

 ;;1832

 ;;21,"43353-0874-80 ")

 ;;1994

 ;;21,"43478-0900-88 ")

 ;;291

 ;;21,"43478-0901-88 ")

 ;;325

 ;;21,"43478-0902-88 ")

 ;;352

 ;;21,"43478-0903-88 ")

 ;;382

 ;;21,"43547-0254-10 ")

 ;;1738

 ;;21,"43547-0254-50 ")

 ;;1739

 ;;21,"43547-0255-10 ")

 ;;1833

 ;;21,"43547-0255-50 ")

 ;;1834

 ;;21,"43547-0256-10 ")

 ;;1990

 ;;21,"43547-0256-50 ")

 ;;1991

 ;;21,"43547-0257-10 ")

 ;;2068

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

 ;;2069

 ;;21,"43683-0142-30 ")

 ;;2287

 ;;21,"43683-0143-30 ")

 ;;2321

 ;;21,"43683-0144-30 ")

 ;;677

 ;;21,"43683-0146-30 ")

 ;;1483

 ;;21,"47463-0028-30 ")

 ;;552

 ;;21,"47463-0029-30 ")

 ;;672

 ;;21,"47463-0029-90 ")

 ;;673

 ;;21,"47463-0030-30 ")

 ;;817

 ;;21,"47463-0056-30 ")

 ;;1992

 ;;21,"47463-0056-60 ")

 ;;1993

 ;;21,"47463-0057-30 ")

 ;;1827

 ;;21,"47463-0057-60 ")

 ;;1828

 ;;21,"47463-0058-30 ")

 ;;2090

 ;;21,"47463-0058-60 ")

 ;;2091

 ;;21,"47463-0059-30 ")

 ;;1743

 ;;21,"47463-0059-60 ")

 ;;1744

 ;;21,"47463-0519-30 ")

 ;;1027

 ;;21,"47463-0519-60 ")

 ;;1028

 ;;21,"47463-0520-30 ")

 ;;1152

 ;;21,"47463-0521-30 ")

 ;;955

 ;;21,"47463-0522-30 ")

 ;;1674

 ;;21,"47463-0523-30 ")

 ;;1276

 ;;21,"47463-0524-30 ")

 ;;1480

 ;;21,"47463-0524-60 ")

 ;;1481

 ;;21,"47463-0524-74 ")

 ;;1482

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

 ;;2213

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

 ;;2214

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

 ;;2251

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

 ;;2252

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

 ;;2279

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

 ;;2280

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

 ;;292

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

 ;;293

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

 ;;323

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

 ;;324

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

 ;;353

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

 ;;354

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

 ;;380

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

 ;;381

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

 ;;956

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

 ;;957

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

 ;;1025

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

 ;;1026

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

 ;;1153

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

 ;;1154

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

 ;;1204

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

 ;;1205

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

 ;;1484

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

 ;;1485

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

 ;;1486

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

 ;;1487

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

 ;;678

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

 ;;679

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

 ;;680

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

 ;;613

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

 ;;852

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

 ;;853

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

 ;;854

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

 ;;855

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

 ;;41

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

 ;;53

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

 ;;1569

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

 ;;1570

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

 ;;1571

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

 ;;195

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

 ;;196

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

 ;;433

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

 ;;434

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

 ;;435

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

 ;;436

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

 ;;437

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

 ;;992

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

 ;;1092

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

 ;;1093

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

 ;;1180

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

 ;;1181

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

 ;;2301

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

 ;;2302

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

 ;;2303

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

 ;;155

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

 ;;156

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

 ;;157

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

 ;;1291

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

 ;;1292

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

 ;;1293

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

 ;;1294

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

 ;;1295

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

 ;;1793

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

 ;;883

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

 ;;2158

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

 ;;2030

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

 ;;1914

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

 ;;1223

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

 ;;75

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

 ;;76

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

 ;;153

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

 ;;154

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

 ;;193

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

 ;;194

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

 ;;241

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

 ;;257

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

 ;;258

 ;;21,"50268-0050-15 ")

 ;;418

 ;;21,"50268-0051-15 ")

 ;;427

 ;;21,"50436-4313-02 ")

 ;;152

 ;;21,"50436-4314-02 ")

 ;;197

 ;;21,"50436-4315-01 ")

 ;;303

 ;;21,"50742-0101-01 ")

 ;;438

 ;;21,"50742-0101-10 ")

 ;;439

 ;;21,"50742-0102-01 ")

 ;;611

 ;;21,"50742-0102-10 ")

 ;;612

 ;;21,"50742-0103-01 ")

 ;;856

 ;;21,"50742-0103-10 ")

 ;;857

 ;;21,"50742-0107-01 ")

 ;;1300

 ;;21,"50742-0107-05 ")

 ;;1301

 ;;21,"50742-0108-01 ")

 ;;1361

 ;;21,"50742-0108-10 ")

 ;;1362

 ;;21,"50742-0109-01 ")

 ;;1567

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

 ;;1568

 ;;21,"51079-0169-01 ")

 ;;965

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

 ;;966

 ;;21,"51079-0170-01 ")

 ;;1064

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

 ;;1065

 ;;21,"51079-0171-01 ")

 ;;1160

 ;;21,"51079-0171-03 ")

 ;;1161

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

 ;;1296

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

 ;;1297

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

 ;;1298

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

 ;;1299

 ;;21,"51079-0277-01 ")

 ;;77

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

 ;;78

 ;;21,"51079-0278-01 ")

 ;;150

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

 ;;151

 ;;21,"51079-0279-01 ")

 ;;198

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

 ;;199

 ;;21,"51079-0684-01 ")

 ;;606

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

 ;;607

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

 ;;608

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

 ;;609

 ;;21,"51079-0684-63 ")

 ;;610

 ;;21,"51079-0685-01 ")

 ;;858

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

 ;;859

 ;;21,"51079-0759-01 ")

 ;;440

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

 ;;441

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

 ;;442

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

 ;;443

 ;;21,"51079-0759-63 ")

 ;;444

 ;;21,"51079-0771-01 ")

 ;;1770

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

 ;;1771

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

 ;;1772

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

 ;;1773

 ;;21,"51079-0801-01 ")

 ;;1365

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

 ;;1366

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

 ;;1367

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

 ;;1368

 ;;21,"51079-0801-30 ")

 ;;1369

 ;;21,"51079-0801-56 ")

 ;;1370

 ;;21,"51079-0802-01 ")

 ;;1561

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

 ;;1562

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

 ;;1563

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

 ;;1564

 ;;21,"51079-0812-01 ")

 ;;12

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

 ;;13

 ;;21,"51079-0813-01 ")

 ;;39

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

 ;;40

 ;;21,"51079-0928-01 ")

 ;;2187

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

 ;;2188

 ;;21,"51079-0929-01 ")

 ;;2228

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

 ;;2229

 ;;21,"51079-0930-01 ")

 ;;1879

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

 ;;1880

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

 ;;1881

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

 ;;1882

 ;;21,"51079-0931-01 ")

 ;;1995

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

 ;;1996

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

 ;;1997

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

 ;;1998

 ;;21,"51079-0932-01 ")

 ;;2125

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

 ;;2126

 ;;21,"51138-0009-30 ")

 ;;2351

 ;;21,"51138-0010-30 ")

 ;;2363

 ;;21,"51138-0011-30 ")

 ;;2395

 ;;21,"51138-0096-30 ")

 ;;446

 ;;21,"51138-0097-30 ")

 ;;604

 ;;21,"51138-0098-30 ")

 ;;861

 ;;21,"51138-0105-30 ")

 ;;1290

 ;;21,"51138-0106-30 ")

 ;;1363

 ;;21,"51138-0107-30 ")

 ;;1364

 ;;21,"51138-0108-30 ")

 ;;1565

 ;;21,"51138-0109-30 ")

 ;;1566

 ;;21,"51138-0115-30 ")

 ;;1288

 ;;21,"51138-0116-30 ")

 ;;1372

 ;;21,"51138-0117-30 ")

 ;;1559

 ;;21,"51138-0118-30 ")

 ;;1289

 ;;21,"51138-0119-30 ")

 ;;1371

 ;;21,"51138-0120-30 ")

 ;;1560

 ;;21,"51138-0131-30 ")

 ;;445

 ;;21,"51138-0132-30 ")

 ;;605

 ;;21,"51138-0133-30 ")

 ;;860

 ;;21,"51138-0157-30 ")

 ;;1287

 ;;21,"51138-0158-30 ")

 ;;1373

 ;;21,"51138-0159-30 ")

 ;;1558

 ;;21,"51138-0172-30 ")

 ;;963

 ;;21,"51138-0173-30 ")

 ;;1067

 ;;21,"51138-0174-30 ")

 ;;1162

 ;;21,"51138-0175-30 ")

 ;;1212

 ;;21,"51138-0204-30 ")

 ;;964

 ;;21,"51138-0205-30 ")

 ;;1066

 ;;21,"51138-0206-30 ")

 ;;1163

 ;;21,"51138-0207-30 ")

 ;;1211

 ;;21,"51138-0373-10 ")

 ;;304

 ;;21,"51138-0373-30 ")

 ;;305

 ;;21,"51138-0374-10 ")

 ;;337

 ;;21,"51138-0374-30 ")

 ;;338

 ;;21,"51138-0375-10 ")

 ;;363

 ;;21,"51138-0375-30 ")

 ;;364

 ;;21,"51138-0376-10 ")

 ;;391

 ;;21,"51138-0376-30 ")

 ;;370

 ;;21,"51138-0383-30 ")

 ;;1767

 ;;21,"51138-0384-30 ")

 ;;1885

 ;;21,"51138-0385-30 ")

 ;;2000

 ;;21,"51138-0386-30 ")

 ;;2129

 ;;21,"51138-0409-10 ")

 ;;306

 ;;21,"51138-0409-30 ")

 ;;307

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

 ;;335

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

 ;;336

 ;;21,"51138-0411-10 ")

 ;;365

 ;;21,"51138-0411-30 ")

 ;;366

 ;;21,"51138-0412-10 ")

 ;;389

 ;;21,"51138-0412-30 ")

 ;;390

 ;;21,"51138-0413-30 ")

 ;;73

 ;;21,"51138-0414-30 ")

 ;;166

 ;;21,"51138-0415-30 ")

 ;;189

 ;;21,"51138-0416-20 ")

 ;;242

 ;;21,"51138-0416-30 ")

 ;;243

 ;;21,"51138-0417-30 ")

 ;;256

 ;;21,"51138-0452-30 ")

 ;;1683

 ;;21,"51138-0453-30 ")

 ;;1689

 ;;21,"51138-0454-30 ")

 ;;1702

 ;;21,"51138-0455-30 ")

 ;;1703

 ;;21,"51138-0459-30 ")

 ;;2185

 ;;21,"51138-0459-60 ")

 ;;2186

 ;;21,"51138-0460-30 ")

 ;;2226

 ;;21,"51138-0460-60 ")

 ;;2227

 ;;21,"51138-0461-30 ")

 ;;2262

 ;;21,"51138-0461-60 ")

 ;;2263

 ;;21,"51138-0462-10 ")

 ;;960

 ;;21,"51138-0462-15 ")

 ;;961

 ;;21,"51138-0462-30 ")

 ;;962

 ;;21,"51138-0463-10 ")

 ;;1059

 ;;21,"51138-0463-30 ")

 ;;1060

 ;;21,"51138-0463-50 ")

 ;;1061

 ;;21,"51138-0464-10 ")

 ;;1156

 ;;21,"51138-0464-30 ")

 ;;1157

 ;;21,"51138-0465-10 ")

 ;;1209

 ;;21,"51138-0465-30 ")

 ;;1210

 ;;21,"51138-0466-30 ")

 ;;1766

 ;;21,"51138-0467-30 ")

 ;;1886

 ;;21,"51138-0468-30 ")

 ;;1999

 ;;21,"51138-0469-30 ")

 ;;2130

 ;;21,"51138-0502-30 ")

 ;;2352

 ;;21,"51138-0503-30 ")

 ;;2357

 ;;21,"51138-0504-30 ")

 ;;2393

 ;;21,"51138-0511-30 ")

 ;;2165

 ;;21,"51138-0512-30 ")

 ;;2172

 ;;21,"51138-0513-30 ")

 ;;2174

 ;;21,"51138-0514-30 ")

 ;;2181

 ;;21,"51138-0528-30 ")

 ;;2184

 ;;21,"51138-0529-30 ")

 ;;2225

 ;;21,"51138-0530-30 ")

 ;;2261

 ;;21,"51138-0541-30 ")

 ;;2183

 ;;21,"51138-0542-30 ")

 ;;2224

 ;;21,"51138-0543-30 ")

 ;;2260

 ;;21,"51138-0565-10 ")

 ;;993

 ;;21,"51138-0565-15 ")

 ;;994

 ;;21,"51138-0565-30 ")

 ;;995

 ;;21,"51138-0566-10 ")

 ;;1095

 ;;21,"51138-0566-30 ")

 ;;1096

 ;;21,"51138-0566-50 ")

 ;;1097

 ;;21,"51138-0567-10 ")

 ;;1183

 ;;21,"51138-0567-30 ")

 ;;1184

 ;;21,"51138-0568-10 ")

 ;;1221

 ;;21,"51138-0568-30 ")

 ;;1222

 ;;21,"51138-0581-30 ")

 ;;279

 ;;21,"51138-0582-30 ")

 ;;310

 ;;21,"51138-0583-30 ")

 ;;342

 ;;21,"51138-0584-30 ")

 ;;369

 ;;21,"51285-0040-01 ")

 ;;2418

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

 ;;2356

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

 ;;2392

 ;;21,"51285-0060-01 ")

 ;;897

 ;;21,"51285-0061-01 ")

 ;;915

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

 ;;302

 ;;21,"51991-0818-01 ")

 ;;333

 ;;21,"51991-0819-01 ")

 ;;361

BGP51P3   ;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,"43353-0104-53 ")

 +2       ;;1980

 +3       ;;21,"43353-0104-60 ")

 +4       ;;1981

 +5       ;;21,"43353-0111-30 ")

 +6       ;;2074

 +7       ;;21,"43353-0111-53 ")

 +8       ;;2075

 +9       ;;21,"43353-0111-60 ")

 +10      ;;2076

 +11      ;;21,"43353-0111-80 ")

 +12      ;;2077

 +13      ;;21,"43353-0119-30 ")

 +14      ;;1842

 +15      ;;21,"43353-0119-53 ")

 +16      ;;1843

 +17      ;;21,"43353-0119-60 ")

 +18      ;;1844

 +19      ;;21,"43353-0119-80 ")

 +20      ;;1845

 +21      ;;21,"43353-0122-30 ")

 +22      ;;1976

 +23      ;;21,"43353-0122-53 ")

 +24      ;;1977

 +25      ;;21,"43353-0122-60 ")

 +26      ;;1978

 +27      ;;21,"43353-0132-53 ")

 +28      ;;1735

 +29      ;;21,"43353-0133-30 ")

 +30      ;;2078

 +31      ;;21,"43353-0133-53 ")

 +32      ;;2079

 +33      ;;21,"43353-0133-60 ")

 +34      ;;2080

 +35      ;;21,"43353-0133-80 ")

 +36      ;;2081

 +37      ;;21,"43353-0134-45 ")

 +38      ;;1150

 +39      ;;21,"43353-0134-60 ")

 +40      ;;1151

 +41      ;;21,"43353-0156-53 ")

 +42      ;;1839

 +43      ;;21,"43353-0156-60 ")

 +44      ;;1840

 +45      ;;21,"43353-0156-80 ")

 +46      ;;1841

 +47      ;;21,"43353-0160-30 ")

 +48      ;;1982

 +49      ;;21,"43353-0160-53 ")

 +50      ;;1983

 +51      ;;21,"43353-0160-60 ")

 +52      ;;1984

 +53      ;;21,"43353-0160-70 ")

 +54      ;;1985

 +55      ;;21,"43353-0160-80 ")

 +56      ;;1986

 +57      ;;21,"43353-0173-30 ")

 +58      ;;1031

 +59      ;;21,"43353-0173-42 ")

 +60      ;;1032

 +61      ;;21,"43353-0173-45 ")

 +62      ;;1033

 +63      ;;21,"43353-0173-60 ")

 +64      ;;1034

 +65      ;;21,"43353-0173-80 ")

 +66      ;;1035

 +67      ;;21,"43353-0348-30 ")

 +68      ;;1036

 +69      ;;21,"43353-0348-45 ")

 +70      ;;1037

 +71      ;;21,"43353-0399-60 ")

 +72      ;;676

 +73      ;;21,"43353-0440-30 ")

 +74      ;;2070

 +75      ;;21,"43353-0440-53 ")

 +76      ;;2071

 +77      ;;21,"43353-0440-60 ")

 +78      ;;2072

 +79      ;;21,"43353-0440-80 ")

 +80      ;;2073

 +81      ;;21,"43353-0478-30 ")

 +82      ;;1987

 +83      ;;21,"43353-0478-53 ")

 +84      ;;1988

 +85      ;;21,"43353-0478-60 ")

 +86      ;;1989

 +87      ;;21,"43353-0485-53 ")

 +88      ;;1736

 +89      ;;21,"43353-0485-60 ")

 +90      ;;1737

 +91      ;;21,"43353-0486-30 ")

 +92      ;;1835

 +93      ;;21,"43353-0486-53 ")

 +94      ;;1836

 +95      ;;21,"43353-0486-60 ")

 +96      ;;1837

 +97      ;;21,"43353-0486-80 ")

 +98      ;;1838

 +99      ;;21,"43353-0508-60 ")

 +100     ;;148

 +101     ;;21,"43353-0576-45 ")

 +102     ;;1474

 +103     ;;21,"43353-0576-53 ")

 +104     ;;1475

 +105     ;;21,"43353-0576-60 ")

 +106     ;;1476

 +107     ;;21,"43353-0576-70 ")

 +108     ;;1477

 +109     ;;21,"43353-0576-80 ")

 +110     ;;1478

 +111     ;;21,"43353-0576-92 ")

 +112     ;;1479

 +113     ;;21,"43353-0583-30 ")

 +114     ;;1038

 +115     ;;21,"43353-0583-45 ")

 +116     ;;1039

 +117     ;;21,"43353-0583-60 ")

 +118     ;;1040

 +119     ;;21,"43353-0701-60 ")

 +120     ;;149

 +121     ;;21,"43353-0706-60 ")

 +122     ;;200

 +123     ;;21,"43353-0795-16 ")

 +124     ;;1148

 +125     ;;21,"43353-0795-60 ")

 +126     ;;1149

 +127     ;;21,"43353-0830-60 ")

 +128     ;;674

 +129     ;;21,"43353-0830-73 ")

 +130     ;;675

 +131     ;;21,"43353-0832-60 ")

 +132     ;;2066

 +133     ;;21,"43353-0832-80 ")

 +134     ;;2067

 +135     ;;21,"43353-0833-30 ")

 +136     ;;553

 +137     ;;21,"43353-0833-45 ")

 +138     ;;554

 +139     ;;21,"43353-0833-60 ")

 +140     ;;555

 +141     ;;21,"43353-0833-80 ")

 +142     ;;556

 +143     ;;21,"43353-0834-30 ")

 +144     ;;668

 +145     ;;21,"43353-0834-45 ")

 +146     ;;669

 +147     ;;21,"43353-0834-60 ")

 +148     ;;670

 +149     ;;21,"43353-0834-80 ")

 +150     ;;671

 +151     ;;21,"43353-0837-53 ")

 +152     ;;1740

 +153     ;;21,"43353-0837-60 ")

 +154     ;;1741

 +155     ;;21,"43353-0837-80 ")

 +156     ;;1742

 +157     ;;21,"43353-0838-30 ")

 +158     ;;1829

 +159     ;;21,"43353-0838-53 ")

 +160     ;;1830

 +161     ;;21,"43353-0838-60 ")

 +162     ;;1831

 +163     ;;21,"43353-0838-80 ")

 +164     ;;1832

 +165     ;;21,"43353-0874-80 ")

 +166     ;;1994

 +167     ;;21,"43478-0900-88 ")

 +168     ;;291

 +169     ;;21,"43478-0901-88 ")

 +170     ;;325

 +171     ;;21,"43478-0902-88 ")

 +172     ;;352

 +173     ;;21,"43478-0903-88 ")

 +174     ;;382

 +175     ;;21,"43547-0254-10 ")

 +176     ;;1738

 +177     ;;21,"43547-0254-50 ")

 +178     ;;1739

 +179     ;;21,"43547-0255-10 ")

 +180     ;;1833

 +181     ;;21,"43547-0255-50 ")

 +182     ;;1834

 +183     ;;21,"43547-0256-10 ")

 +184     ;;1990

 +185     ;;21,"43547-0256-50 ")

 +186     ;;1991

 +187     ;;21,"43547-0257-10 ")

 +188     ;;2068

 +189     ;;21,"43547-0257-50 ")

 +190     ;;2069

 +191     ;;21,"43683-0142-30 ")

 +192     ;;2287

 +193     ;;21,"43683-0143-30 ")

 +194     ;;2321

 +195     ;;21,"43683-0144-30 ")

 +196     ;;677

 +197     ;;21,"43683-0146-30 ")

 +198     ;;1483

 +199     ;;21,"47463-0028-30 ")

 +200     ;;552

 +201     ;;21,"47463-0029-30 ")

 +202     ;;672

 +203     ;;21,"47463-0029-90 ")

 +204     ;;673

 +205     ;;21,"47463-0030-30 ")

 +206     ;;817

 +207     ;;21,"47463-0056-30 ")

 +208     ;;1992

 +209     ;;21,"47463-0056-60 ")

 +210     ;;1993

 +211     ;;21,"47463-0057-30 ")

 +212     ;;1827

 +213     ;;21,"47463-0057-60 ")

 +214     ;;1828

 +215     ;;21,"47463-0058-30 ")

 +216     ;;2090

 +217     ;;21,"47463-0058-60 ")

 +218     ;;2091

 +219     ;;21,"47463-0059-30 ")

 +220     ;;1743

 +221     ;;21,"47463-0059-60 ")

 +222     ;;1744

 +223     ;;21,"47463-0519-30 ")

 +224     ;;1027

 +225     ;;21,"47463-0519-60 ")

 +226     ;;1028

 +227     ;;21,"47463-0520-30 ")

 +228     ;;1152

 +229     ;;21,"47463-0521-30 ")

 +230     ;;955

 +231     ;;21,"47463-0522-30 ")

 +232     ;;1674

 +233     ;;21,"47463-0523-30 ")

 +234     ;;1276

 +235     ;;21,"47463-0524-30 ")

 +236     ;;1480

 +237     ;;21,"47463-0524-60 ")

 +238     ;;1481

 +239     ;;21,"47463-0524-74 ")

 +240     ;;1482

 +241     ;;21,"49884-0122-01 ")

 +242     ;;2213

 +243     ;;21,"49884-0122-05 ")

 +244     ;;2214

 +245     ;;21,"49884-0123-01 ")

 +246     ;;2251

 +247     ;;21,"49884-0123-05 ")

 +248     ;;2252

 +249     ;;21,"49884-0124-01 ")

 +250     ;;2279

 +251     ;;21,"49884-0124-05 ")

 +252     ;;2280

 +253     ;;21,"49884-0282-01 ")

 +254     ;;292

 +255     ;;21,"49884-0282-10 ")

 +256     ;;293

 +257     ;;21,"49884-0328-01 ")

 +258     ;;323

 +259     ;;21,"49884-0328-10 ")

 +260     ;;324

 +261     ;;21,"49884-0329-01 ")

 +262     ;;353

 +263     ;;21,"49884-0329-10 ")

 +264     ;;354

 +265     ;;21,"49884-0330-01 ")

 +266     ;;380

 +267     ;;21,"49884-0330-10 ")

 +268     ;;381

 +269     ;;21,"49884-0404-01 ")

 +270     ;;956

 +271     ;;21,"49884-0404-10 ")

 +272     ;;957

 +273     ;;21,"49884-0405-01 ")

 +274     ;;1025

 +275     ;;21,"49884-0405-10 ")

 +276     ;;1026

 +277     ;;21,"49884-0406-01 ")

 +278     ;;1153

 +279     ;;21,"49884-0406-10 ")

 +280     ;;1154

 +281     ;;21,"49884-0407-01 ")

 +282     ;;1204

 +283     ;;21,"49884-0407-10 ")

 +284     ;;1205

 +285     ;;21,"49999-0010-00 ")

 +286     ;;1484

 +287     ;;21,"49999-0010-30 ")

 +288     ;;1485

 +289     ;;21,"49999-0010-40 ")

 +290     ;;1486

 +291     ;;21,"49999-0010-60 ")

 +292     ;;1487

 +293     ;;21,"49999-0104-00 ")

 +294     ;;678

 +295     ;;21,"49999-0104-30 ")

 +296     ;;679

 +297     ;;21,"49999-0104-60 ")

 +298     ;;680

 +299     ;;21,"49999-0104-90 ")

 +300     ;;613

 +301     ;;21,"49999-0178-00 ")

 +302     ;;852

 +303     ;;21,"49999-0178-30 ")

 +304     ;;853

 +305     ;;21,"49999-0178-60 ")

 +306     ;;854

 +307     ;;21,"49999-0178-90 ")

 +308     ;;855

 +309     ;;21,"49999-0201-30 ")

 +310     ;;41

 +311     ;;21,"49999-0202-30 ")

 +312     ;;53

 +313     ;;21,"49999-0226-00 ")

 +314     ;;1569

 +315     ;;21,"49999-0226-30 ")

 +316     ;;1570

 +317     ;;21,"49999-0226-60 ")

 +318     ;;1571

 +319     ;;21,"49999-0286-60 ")

 +320     ;;195

 +321     ;;21,"49999-0286-90 ")

 +322     ;;196

 +323     ;;21,"49999-0454-00 ")

 +324     ;;433

 +325     ;;21,"49999-0454-10 ")

 +326     ;;434

 +327     ;;21,"49999-0454-30 ")

 +328     ;;435

 +329     ;;21,"49999-0454-60 ")

 +330     ;;436

 +331     ;;21,"49999-0454-90 ")

 +332     ;;437

 +333     ;;21,"49999-0482-30 ")

 +334     ;;992

 +335     ;;21,"49999-0483-00 ")

 +336     ;;1092

 +337     ;;21,"49999-0483-30 ")

 +338     ;;1093

 +339     ;;21,"49999-0484-00 ")

 +340     ;;1180

 +341     ;;21,"49999-0484-30 ")

 +342     ;;1181

 +343     ;;21,"49999-0512-30 ")

 +344     ;;2301

 +345     ;;21,"49999-0512-60 ")

 +346     ;;2302

 +347     ;;21,"49999-0512-90 ")

 +348     ;;2303

 +349     ;;21,"49999-0555-14 ")

 +350     ;;155

 +351     ;;21,"49999-0555-60 ")

 +352     ;;156

 +353     ;;21,"49999-0555-90 ")

 +354     ;;157

 +355     ;;21,"49999-0575-10 ")

 +356     ;;1291

 +357     ;;21,"49999-0575-20 ")

 +358     ;;1292

 +359     ;;21,"49999-0575-30 ")

 +360     ;;1293

 +361     ;;21,"49999-0575-60 ")

 +362     ;;1294

 +363     ;;21,"49999-0575-90 ")

 +364     ;;1295

 +365     ;;21,"49999-0577-20 ")

 +366     ;;1793

 +367     ;;21,"49999-0866-00 ")

 +368     ;;883

 +369     ;;21,"49999-0872-30 ")

 +370     ;;2158

 +371     ;;21,"49999-0938-30 ")

 +372     ;;2030

 +373     ;;21,"49999-0939-30 ")

 +374     ;;1914

 +375     ;;21,"49999-0996-00 ")

 +376     ;;1223

 +377     ;;21,"50111-0467-01 ")

 +378     ;;75

 +379     ;;21,"50111-0467-03 ")

 +380     ;;76

 +381     ;;21,"50111-0468-01 ")

 +382     ;;153

 +383     ;;21,"50111-0468-03 ")

 +384     ;;154

 +385     ;;21,"50111-0469-01 ")

 +386     ;;193

 +387     ;;21,"50111-0469-03 ")

 +388     ;;194

 +389     ;;21,"50111-0470-01 ")

 +390     ;;241

 +391     ;;21,"50111-0471-01 ")

 +392     ;;257

 +393     ;;21,"50111-0471-02 ")

 +394     ;;258

 +395     ;;21,"50268-0050-15 ")

 +396     ;;418

 +397     ;;21,"50268-0051-15 ")

 +398     ;;427

 +399     ;;21,"50436-4313-02 ")

 +400     ;;152

 +401     ;;21,"50436-4314-02 ")

 +402     ;;197

 +403     ;;21,"50436-4315-01 ")

 +404     ;;303

 +405     ;;21,"50742-0101-01 ")

 +406     ;;438

 +407     ;;21,"50742-0101-10 ")

 +408     ;;439

 +409     ;;21,"50742-0102-01 ")

 +410     ;;611

 +411     ;;21,"50742-0102-10 ")

 +412     ;;612

 +413     ;;21,"50742-0103-01 ")

 +414     ;;856

 +415     ;;21,"50742-0103-10 ")

 +416     ;;857

 +417     ;;21,"50742-0107-01 ")

 +418     ;;1300

 +419     ;;21,"50742-0107-05 ")

 +420     ;;1301

 +421     ;;21,"50742-0108-01 ")

 +422     ;;1361

 +423     ;;21,"50742-0108-10 ")

 +424     ;;1362

 +425     ;;21,"50742-0109-01 ")

 +426     ;;1567

 +427     ;;21,"50742-0109-10 ")

 +428     ;;1568

 +429     ;;21,"51079-0169-01 ")

 +430     ;;965

 +431     ;;21,"51079-0169-20 ")

 +432     ;;966

 +433     ;;21,"51079-0170-01 ")

 +434     ;;1064

 +435     ;;21,"51079-0170-20 ")

 +436     ;;1065

 +437     ;;21,"51079-0171-01 ")

 +438     ;;1160

 +439     ;;21,"51079-0171-03 ")

 +440     ;;1161

 +441     ;;21,"51079-0255-01 ")

 +442     ;;1296

 +443     ;;21,"51079-0255-17 ")

 +444     ;;1297

 +445     ;;21,"51079-0255-19 ")

 +446     ;;1298

 +447     ;;21,"51079-0255-20 ")

 +448     ;;1299

 +449     ;;21,"51079-0277-01 ")

 +450     ;;77

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

 +452     ;;78

 +453     ;;21,"51079-0278-01 ")

 +454     ;;150

 +455     ;;21,"51079-0278-20 ")

 +456     ;;151

 +457     ;;21,"51079-0279-01 ")

 +458     ;;198

 +459     ;;21,"51079-0279-20 ")

 +460     ;;199

 +461     ;;21,"51079-0684-01 ")

 +462     ;;606

 +463     ;;21,"51079-0684-17 ")

 +464     ;;607

 +465     ;;21,"51079-0684-19 ")

 +466     ;;608

 +467     ;;21,"51079-0684-20 ")

 +468     ;;609

 +469     ;;21,"51079-0684-63 ")

 +470     ;;610

 +471     ;;21,"51079-0685-01 ")

 +472     ;;858

 +473     ;;21,"51079-0685-20 ")

 +474     ;;859

 +475     ;;21,"51079-0759-01 ")

 +476     ;;440

 +477     ;;21,"51079-0759-17 ")

 +478     ;;441

 +479     ;;21,"51079-0759-19 ")

 +480     ;;442

 +481     ;;21,"51079-0759-20 ")

 +482     ;;443

 +483     ;;21,"51079-0759-63 ")

 +484     ;;444

 +485     ;;21,"51079-0771-01 ")

 +486     ;;1770

 +487     ;;21,"51079-0771-17 ")

 +488     ;;1771

 +489     ;;21,"51079-0771-19 ")

 +490     ;;1772

 +491     ;;21,"51079-0771-20 ")

 +492     ;;1773

 +493     ;;21,"51079-0801-01 ")

 +494     ;;1365

 +495     ;;21,"51079-0801-17 ")

 +496     ;;1366

 +497     ;;21,"51079-0801-19 ")

 +498     ;;1367

 +499     ;;21,"51079-0801-20 ")

 +500     ;;1368

 +501     ;;21,"51079-0801-30 ")

 +502     ;;1369

 +503     ;;21,"51079-0801-56 ")

 +504     ;;1370

 +505     ;;21,"51079-0802-01 ")

 +506     ;;1561

 +507     ;;21,"51079-0802-17 ")

 +508     ;;1562

 +509     ;;21,"51079-0802-19 ")

 +510     ;;1563

 +511     ;;21,"51079-0802-20 ")

 +512     ;;1564

 +513     ;;21,"51079-0812-01 ")

 +514     ;;12

 +515     ;;21,"51079-0812-20 ")

 +516     ;;13

 +517     ;;21,"51079-0813-01 ")

 +518     ;;39

 +519     ;;21,"51079-0813-20 ")

 +520     ;;40

 +521     ;;21,"51079-0928-01 ")

 +522     ;;2187

 +523     ;;21,"51079-0928-20 ")

 +524     ;;2188

 +525     ;;21,"51079-0929-01 ")

 +526     ;;2228

 +527     ;;21,"51079-0929-20 ")

 +528     ;;2229

 +529     ;;21,"51079-0930-01 ")

 +530     ;;1879

 +531     ;;21,"51079-0930-17 ")

 +532     ;;1880

 +533     ;;21,"51079-0930-19 ")

 +534     ;;1881

 +535     ;;21,"51079-0930-20 ")

 +536     ;;1882

 +537     ;;21,"51079-0931-01 ")

 +538     ;;1995