BGP2VF2.m

BGP2VF2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;

 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 ;

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,"00185-0410-05 ")

 ;;660

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

 ;;661

 ;;21,"00185-0415-01 ")

 ;;711

 ;;21,"00185-0415-05 ")

 ;;712

 ;;21,"00185-0415-52 ")

 ;;713

 ;;21,"00185-0415-60 ")

 ;;714

 ;;21,"00185-1111-60 ")

 ;;855

 ;;21,"00187-3805-10 ")

 ;;504

 ;;21,"00187-3806-10 ")

 ;;513

 ;;21,"00228-2439-10 ")

 ;;4564

 ;;21,"00228-2439-50 ")

 ;;4565

 ;;21,"00228-2441-10 ")

 ;;4335

 ;;21,"00228-2721-03 ")

 ;;4085

 ;;21,"00228-2721-09 ")

 ;;4086

 ;;21,"00228-2721-50 ")

 ;;4087

 ;;21,"00228-2722-03 ")

 ;;4179

 ;;21,"00228-2722-09 ")

 ;;4180

 ;;21,"00228-2722-90 ")

 ;;4181

 ;;21,"00228-2723-03 ")

 ;;3905

 ;;21,"00228-2723-09 ")

 ;;3906

 ;;21,"00228-2723-96 ")

 ;;3907

 ;;21,"00228-2755-11 ")

 ;;988

 ;;21,"00228-2756-11 ")

 ;;1091

 ;;21,"00228-2756-50 ")

 ;;1092

 ;;21,"00228-2757-11 ")

 ;;1252

 ;;21,"00228-2757-50 ")

 ;;1253

 ;;21,"00247-0038-07 ")

 ;;1447

 ;;21,"00247-0038-14 ")

 ;;1448

 ;;21,"00247-0038-15 ")

 ;;1449

 ;;21,"00247-0038-20 ")

 ;;1450

 ;;21,"00247-0038-25 ")

 ;;1451

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

 ;;1452

 ;;21,"00247-0038-40 ")

 ;;1453

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

 ;;1454

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

 ;;1455

 ;;21,"00247-0370-30 ")

 ;;3343

 ;;21,"00247-0371-03 ")

 ;;3908

 ;;21,"00247-0371-06 ")

 ;;3909

 ;;21,"00247-0371-07 ")

 ;;3910

 ;;21,"00247-0371-10 ")

 ;;3911

 ;;21,"00247-0371-14 ")

 ;;3912

 ;;21,"00247-0371-28 ")

 ;;3913

 ;;21,"00247-0371-30 ")

 ;;3914

 ;;21,"00247-0371-45 ")

 ;;3915

 ;;21,"00247-0371-50 ")

 ;;3916

 ;;21,"00247-0371-60 ")

 ;;3917

 ;;21,"00247-0372-00 ")

 ;;2194

 ;;21,"00247-0372-03 ")

 ;;2195

 ;;21,"00247-0372-04 ")

 ;;2196

 ;;21,"00247-0372-07 ")

 ;;2197

 ;;21,"00247-0372-10 ")

 ;;2198

 ;;21,"00247-0372-14 ")

 ;;2199

 ;;21,"00247-0372-15 ")

 ;;2200

 ;;21,"00247-0372-28 ")

 ;;2201

 ;;21,"00247-0372-30 ")

 ;;2202

 ;;21,"00247-0372-52 ")

 ;;2203

 ;;21,"00247-0372-60 ")

 ;;2204

 ;;21,"00247-0614-20 ")

 ;;1

 ;;21,"00247-0614-30 ")

 ;;2

 ;;21,"00247-0614-50 ")

 ;;3

 ;;21,"00247-0614-60 ")

 ;;4

 ;;21,"00247-0614-90 ")

 ;;5

 ;;21,"00247-0615-00 ")

 ;;198

 ;;21,"00247-0615-04 ")

 ;;199

 ;;21,"00247-0615-07 ")

 ;;200

 ;;21,"00247-0615-10 ")

 ;;201

 ;;21,"00247-0615-12 ")

 ;;202

 ;;21,"00247-0615-15 ")

 ;;203

 ;;21,"00247-0615-30 ")

 ;;204

 ;;21,"00247-0615-50 ")

 ;;205

 ;;21,"00247-0615-52 ")

 ;;206

 ;;21,"00247-0615-60 ")

 ;;207

 ;;21,"00247-0615-90 ")

 ;;208

 ;;21,"00247-0616-10 ")

 ;;3098

 ;;21,"00247-0616-15 ")

 ;;3099

 ;;21,"00247-0616-30 ")

 ;;3100

 ;;21,"00247-0644-00 ")

 ;;2022

 ;;21,"00247-0644-03 ")

 ;;2023

 ;;21,"00247-0644-07 ")

 ;;2024

 ;;21,"00247-0644-10 ")

 ;;2025

 ;;21,"00247-0644-14 ")

 ;;2026

 ;;21,"00247-0644-28 ")

 ;;2027

 ;;21,"00247-0644-30 ")

 ;;2028

 ;;21,"00247-0644-60 ")

 ;;2029

 ;;21,"00247-0673-00 ")

 ;;4566

 ;;21,"00247-0673-07 ")

 ;;4567

 ;;21,"00247-0673-10 ")

 ;;4568

 ;;21,"00247-0673-14 ")

 ;;4569

 ;;21,"00247-0673-30 ")

 ;;4570

 ;;21,"00247-0673-60 ")

 ;;4571

 ;;21,"00247-0673-90 ")

 ;;4572

 ;;21,"00247-0675-03 ")

 ;;4182

 ;;21,"00247-0675-07 ")

 ;;4183

 ;;21,"00247-0675-08 ")

 ;;4184

 ;;21,"00247-0675-14 ")

 ;;4185

 ;;21,"00247-0675-30 ")

 ;;4186

 ;;21,"00247-0675-33 ")

 ;;4187

 ;;21,"00247-0675-90 ")

 ;;4188

 ;;21,"00247-0677-07 ")

 ;;563

 ;;21,"00247-0773-00 ")

 ;;1614

 ;;21,"00247-0773-30 ")

 ;;1615

 ;;21,"00247-0773-90 ")

 ;;1616

 ;;21,"00247-0787-07 ")

 ;;3494

 ;;21,"00247-0787-10 ")

 ;;3495

 ;;21,"00247-0787-14 ")

 ;;3496

 ;;21,"00247-0787-15 ")

 ;;3497

 ;;21,"00247-0787-28 ")

 ;;3498

 ;;21,"00247-0787-30 ")

 ;;3499

 ;;21,"00247-0787-50 ")

 ;;3500

 ;;21,"00247-0787-60 ")

 ;;3501

 ;;21,"00247-0789-07 ")

 ;;2662

 ;;21,"00247-0789-14 ")

 ;;2663

 ;;21,"00247-0789-30 ")

 ;;2664

 ;;21,"00247-0808-07 ")

 ;;2729

 ;;21,"00247-0808-14 ")

 ;;2730

 ;;21,"00247-0808-30 ")

 ;;2731

 ;;21,"00247-0809-07 ")

 ;;2733

 ;;21,"00247-0809-14 ")

 ;;2734

 ;;21,"00247-0809-30 ")

 ;;2735

 ;;21,"00247-0810-07 ")

 ;;2737

 ;;21,"00247-0810-14 ")

 ;;2738

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

 ;;2739

 ;;21,"00247-0815-00 ")

 ;;1513

 ;;21,"00247-0815-30 ")

 ;;1514

 ;;21,"00247-0853-04 ")

 ;;4911

 ;;21,"00247-0853-06 ")

 ;;4912

 ;;21,"00247-0853-08 ")

 ;;4913

 ;;21,"00247-0853-30 ")

 ;;4914

 ;;21,"00247-0853-60 ")

 ;;4915

 ;;21,"00247-0853-90 ")

 ;;4916

 ;;21,"00247-1035-30 ")

 ;;5093

 ;;21,"00247-1035-60 ")

 ;;5094

 ;;21,"00247-1035-90 ")

 ;;5095

 ;;21,"00247-1041-03 ")

 ;;4466

 ;;21,"00247-1041-07 ")

 ;;4467

 ;;21,"00247-1041-30 ")

 ;;4468

 ;;21,"00247-1042-30 ")

 ;;4548

 ;;21,"00247-1056-60 ")

 ;;3101

 ;;21,"00247-1057-15 ")

 ;;3190

 ;;21,"00247-1057-60 ")

 ;;3191

 ;;21,"00247-1058-60 ")

 ;;3344

 ;;21,"00247-1075-10 ")

 ;;3192

 ;;21,"00247-1075-30 ")

 ;;3193

 ;;21,"00247-1075-60 ")

 ;;3194

 ;;21,"00247-1177-07 ")

 ;;1730

 ;;21,"00247-1177-30 ")

 ;;1731

 ;;21,"00247-1201-00 ")

 ;;362

 ;;21,"00247-1201-30 ")

 ;;363

 ;;21,"00247-1214-03 ")

 ;;3689

 ;;21,"00247-1214-07 ")

 ;;3690

 ;;21,"00247-1214-30 ")

 ;;3691

 ;;21,"00247-1232-30 ")

 ;;1651

 ;;21,"00247-1233-30 ")

 ;;1802

 ;;21,"00247-1242-30 ")

 ;;461

 ;;21,"00247-1243-30 ")

 ;;126

 ;;21,"00247-1521-30 ")

 ;;4980

 ;;21,"00247-1521-60 ")

 ;;4981

 ;;21,"00247-1522-30 ")

 ;;4824

 ;;21,"00247-1522-60 ")

 ;;4825

 ;;21,"00247-1523-30 ")

 ;;4726

 ;;21,"00247-1523-60 ")

 ;;4727

 ;;21,"00247-1677-10 ")

 ;;715

 ;;21,"00247-1677-60 ")

 ;;716

 ;;21,"00247-1679-10 ")

 ;;3300

 ;;21,"00247-1679-60 ")

 ;;3301

 ;;21,"00247-1680-10 ")

 ;;2617

 ;;21,"00247-1731-30 ")

 ;;1561

 ;;21,"00247-1731-60 ")

 ;;1562

 ;;21,"00247-1731-90 ")

 ;;1563

 ;;21,"00247-1813-04 ")

 ;;4336

 ;;21,"00247-1813-08 ")

 ;;4337

 ;;21,"00247-1813-30 ")

 ;;4338

 ;;21,"00247-1814-08 ")

 ;;3375

 ;;21,"00247-1814-14 ")

 ;;3376

 ;;21,"00247-1814-30 ")

 ;;3377

 ;;21,"00247-1843-03 ")

 ;;2753

 ;;21,"00247-1843-07 ")

 ;;2754

 ;;21,"00247-1843-08 ")

 ;;2755

 ;;21,"00247-1843-14 ")

 ;;2756

 ;;21,"00247-1845-07 ")

 ;;4469

 ;;21,"00247-1850-04 ")

 ;;4856

 ;;21,"00247-1850-08 ")

 ;;4857

 ;;21,"00247-1850-30 ")

 ;;4858

 ;;21,"00247-1893-00 ")

 ;;1093

 ;;21,"00247-1893-07 ")

 ;;1094

 ;;21,"00247-1893-30 ")

 ;;1095

 ;;21,"00247-1893-60 ")

 ;;1096

 ;;21,"00247-1893-77 ")

 ;;1097

 ;;21,"00247-1893-90 ")

 ;;1098

 ;;21,"00247-1894-07 ")

 ;;1254

 ;;21,"00247-1894-30 ")

 ;;1255

 ;;21,"00247-1894-60 ")

 ;;1256

 ;;21,"00247-1894-77 ")

 ;;1257

 ;;21,"00247-1894-90 ")

 ;;1258

 ;;21,"00247-1915-03 ")

 ;;2205

 ;;21,"00247-1915-07 ")

 ;;2206

 ;;21,"00247-1915-30 ")

 ;;2207

 ;;21,"00247-1915-90 ")

 ;;2208

 ;;21,"00247-1918-15 ")

 ;;2860

 ;;21,"00247-1918-30 ")

 ;;2861

 ;;21,"00247-1961-00 ")

 ;;564

 ;;21,"00247-1961-14 ")

 ;;565

 ;;21,"00247-1961-30 ")

 ;;566

 ;;21,"00247-1961-60 ")

 ;;567

 ;;21,"00247-1964-30 ")

 ;;2458

 ;;21,"00247-1964-90 ")

 ;;2459

 ;;21,"00247-1965-00 ")

 ;;2030

 ;;21,"00247-1965-03 ")

 ;;2031

 ;;21,"00247-1965-14 ")

 ;;2032

 ;;21,"00247-1965-30 ")

 ;;2033

 ;;21,"00247-1965-60 ")

 ;;2034

 ;;21,"00247-1965-90 ")

 ;;2035

 ;;21,"00247-1965-99 ")

 ;;2036

 ;;21,"00247-2052-00 ")

 ;;3502

 ;;21,"00247-2052-07 ")

 ;;3503

 ;;21,"00247-2052-30 ")

 ;;3504

 ;;21,"00247-2052-90 ")

 ;;3505

 ;;21,"00247-2077-30 ")

 ;;717

 ;;21,"00247-2077-60 ")

 ;;718

 ;;21,"00247-2083-30 ")

 ;;2757

 ;;21,"00247-2083-60 ")

 ;;2758

 ;;21,"00247-2083-90 ")

 ;;2759

 ;;21,"00247-2084-30 ")

 ;;2862

 ;;21,"00247-2084-60 ")

 ;;2863

 ;;21,"00247-2085-30 ")

 ;;3378

 ;;21,"00247-2094-30 ")

 ;;3692

 ;;21,"00247-2094-90 ")

 ;;3693

 ;;21,"00247-2117-30 ")

 ;;1924

 ;;21,"00247-2132-00 ")

 ;;989

 ;;21,"00247-2132-07 ")

 ;;990

 ;;21,"00247-2132-30 ")

 ;;991

 ;;21,"00247-2132-60 ")

 ;;992

 ;;21,"00247-2132-90 ")

 ;;993

 ;;21,"00247-2133-00 ")

 ;;1099

 ;;21,"00247-2133-07 ")

 ;;1100

 ;;21,"00247-2133-30 ")

 ;;1101

 ;;21,"00247-2133-60 ")

 ;;1102

 ;;21,"00247-2133-90 ")

 ;;1103

 ;;21,"00247-2134-00 ")

 ;;1259

 ;;21,"00247-2134-07 ")

 ;;1260

 ;;21,"00247-2134-30 ")

 ;;1261

 ;;21,"00247-2134-60 ")

 ;;1262

 ;;21,"00247-2134-90 ")

 ;;1263

 ;;21,"00247-2262-30 ")

 ;;1968

 ;;21,"00247-2265-30 ")

 ;;3773

 ;;21,"00247-2265-60 ")

 ;;3774

 ;;21,"00247-2265-90 ")

 ;;3775

 ;;21,"00247-2271-30 ")

 ;;4189

 ;;21,"00247-2272-00 ")

 ;;3918

 ;;21,"00247-2272-30 ")

 ;;3919

 ;;21,"00247-2272-60 ")

 ;;3920

 ;;21,"00247-2272-90 ")

 ;;3921

 ;;21,"00247-2299-00 ")

 ;;5096

 ;;21,"00247-2299-90 ")

 ;;5097

 ;;21,"00247-2314-00 ")

 ;;1411

 ;;21,"00247-2314-30 ")

 ;;1412

 ;;21,"00247-2314-60 ")

 ;;1413

 ;;21,"00247-2314-77 ")

 ;;1414

 ;;21,"00247-2314-90 ")

 ;;1415

 ;;21,"00247-2337-30 ")

 ;;5015

 ;;21,"00247-2337-60 ")

 ;;5016

 ;;21,"00247-2337-90 ")

 ;;5017

 ;;21,"00247-2356-00 ")

 ;;866

 ;;21,"00247-2356-30 ")

 ;;867

 ;;21,"00258-3695-01 ")

 ;;994

 ;;21,"00258-3695-05 ")

 ;;995

 ;;21,"00258-3696-01 ")

 ;;1104

 ;;21,"00258-3696-10 ")

 ;;1105

 ;;21,"00258-3697-01 ")

 ;;1264

 ;;21,"00258-3697-10 ")

 ;;1265

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

 ;;532

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

 ;;2732

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

 ;;552

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

 ;;2736

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

 ;;2740

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

 ;;505

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

 ;;506

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

 ;;514

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

 ;;515

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

 ;;520

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

 ;;521

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

 ;;2561

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

 ;;2573

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

 ;;2543

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

 ;;926

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

 ;;568

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

 ;;533

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

 ;;534

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

 ;;550

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

 ;;551

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

 ;;1564

 ;;21,"00378-1049-10 ")

 ;;1565

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

 ;;3102

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

 ;;996

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

 ;;1106

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

 ;;1107

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

 ;;1266

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

 ;;1267

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

 ;;3465

 ;;21,"00378-2003-93 ")

 ;;3466

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

 ;;3665

 ;;21,"00378-2004-93 ")

 ;;3666

 ;;21,"00378-2005-93 ")

 ;;3760

 ;;21,"00378-2006-93 ")

 ;;3761

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

 ;;3195

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

 ;;6

 ;;21,"00378-2610-10 ")

 ;;7

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

 ;;209

 ;;21,"00378-2625-10 ")

 ;;210

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

 ;;364

 ;;21,"00378-2650-10 ")

 ;;365

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

 ;;462

 ;;21,"00378-2675-93 ")

 ;;463

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

 ;;127

 ;;21,"00378-2685-93 ")

 ;;128

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

 ;;181

 ;;21,"00378-2695-93 ")

 ;;182

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

 ;;1379

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

 ;;1390

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

 ;;1401

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

 ;;1652

 ;;21,"00378-3125-10 ")

 ;;1653

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

 ;;3302

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

 ;;662

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

 ;;719

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

 ;;720

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

 ;;4573

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

 ;;4339

 ;;21,"00378-3472-10 ")

 ;;4340

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

 ;;4470

 ;;21,"00378-3473-10 ")

 ;;4471

 ;;21,"00378-3515-10 ")

 ;;2760

 ;;21,"00378-3515-93 ")

 ;;2761

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

 ;;2864

 ;;21,"00378-3530-93 ")

 ;;2865

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

 ;;2966

 ;;21,"00378-3545-93 ")

 ;;2967

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

 ;;3345

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

 ;;4088

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

 ;;4089

 ;;21,"00378-4186-93 ")

 ;;4090

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

 ;;4190

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

 ;;4191

 ;;21,"00378-4187-93 ")

 ;;4192

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

 ;;3922

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

 ;;3923

 ;;21,"00378-4188-93 ")

 ;;3924

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

 ;;2037

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

 ;;2209

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

 ;;1732

 ;;21,"00378-4250-10 ")

 ;;1733

 ;;21,"00378-4350-93 ")

 ;;2460

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

 ;;4826

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

 ;;4917

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

 ;;4982

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

 ;;5098

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

 ;;4728

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

 ;;1803

 ;;21,"00378-5375-10 ")

 ;;1804

 ;;21,"00378-5410-28 ")

 ;;2038

 ;;21,"00378-5420-28 ")

 ;;2210

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

 ;;721

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

 ;;997

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

 ;;998

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

 ;;1108

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

 ;;1109

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

 ;;1268

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

 ;;1269

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

 ;;1617

 ;;21,"00378-6410-10 ")

 ;;1618

 ;;21,"00378-7001-10 ")

 ;;3379

 ;;21,"00378-7001-93 ")

 ;;3380

 ;;21,"00378-7002-10 ")

 ;;3506

 ;;21,"00378-7002-93 ")

 ;;3507

 ;;21,"00378-7003-10 ")

 ;;3694

 ;;21,"00378-7003-93 ")

 ;;3695

 ;;21,"00378-7004-10 ")

 ;;3776

 ;;21,"00378-7004-93 ")

 ;;3777

 ;;21,"00406-0661-01 ")

 ;;2039

 ;;21,"00406-0661-05 ")

 ;;2040

 ;;21,"00406-0661-91 ")

 ;;2041

 ;;21,"00406-0663-01 ")

 ;;2211

 ;;21,"00406-0663-03 ")

 ;;2212

 ;;21,"00406-0663-05 ")

 ;;2213

 ;;21,"00406-0663-62 ")

 ;;2214

 ;;21,"00406-0663-91 ")

 ;;2215

 ;;21,"00406-0667-01 ")

 ;;2442

 ;;21,"00406-2001-03 ")

 ;;3778

BGP2VF2   ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;

 +1       ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66

 +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,"00185-0410-05 ")

 +2       ;;660

 +3       ;;21,"00185-0410-60 ")

 +4       ;;661

 +5       ;;21,"00185-0415-01 ")

 +6       ;;711

 +7       ;;21,"00185-0415-05 ")

 +8       ;;712

 +9       ;;21,"00185-0415-52 ")

 +10      ;;713

 +11      ;;21,"00185-0415-60 ")

 +12      ;;714

 +13      ;;21,"00185-1111-60 ")

 +14      ;;855

 +15      ;;21,"00187-3805-10 ")

 +16      ;;504

 +17      ;;21,"00187-3806-10 ")

 +18      ;;513

 +19      ;;21,"00228-2439-10 ")

 +20      ;;4564

 +21      ;;21,"00228-2439-50 ")

 +22      ;;4565

 +23      ;;21,"00228-2441-10 ")

 +24      ;;4335

 +25      ;;21,"00228-2721-03 ")

 +26      ;;4085

 +27      ;;21,"00228-2721-09 ")

 +28      ;;4086

 +29      ;;21,"00228-2721-50 ")

 +30      ;;4087

 +31      ;;21,"00228-2722-03 ")

 +32      ;;4179

 +33      ;;21,"00228-2722-09 ")

 +34      ;;4180

 +35      ;;21,"00228-2722-90 ")

 +36      ;;4181

 +37      ;;21,"00228-2723-03 ")

 +38      ;;3905

 +39      ;;21,"00228-2723-09 ")

 +40      ;;3906

 +41      ;;21,"00228-2723-96 ")

 +42      ;;3907

 +43      ;;21,"00228-2755-11 ")

 +44      ;;988

 +45      ;;21,"00228-2756-11 ")

 +46      ;;1091

 +47      ;;21,"00228-2756-50 ")

 +48      ;;1092

 +49      ;;21,"00228-2757-11 ")

 +50      ;;1252

 +51      ;;21,"00228-2757-50 ")

 +52      ;;1253

 +53      ;;21,"00247-0038-07 ")

 +54      ;;1447

 +55      ;;21,"00247-0038-14 ")

 +56      ;;1448

 +57      ;;21,"00247-0038-15 ")

 +58      ;;1449

 +59      ;;21,"00247-0038-20 ")

 +60      ;;1450

 +61      ;;21,"00247-0038-25 ")

 +62      ;;1451

 +63      ;;21,"00247-0038-30 ")

 +64      ;;1452

 +65      ;;21,"00247-0038-40 ")

 +66      ;;1453

 +67      ;;21,"00247-0038-60 ")

 +68      ;;1454

 +69      ;;21,"00247-0038-90 ")

 +70      ;;1455

 +71      ;;21,"00247-0370-30 ")

 +72      ;;3343

 +73      ;;21,"00247-0371-03 ")

 +74      ;;3908

 +75      ;;21,"00247-0371-06 ")

 +76      ;;3909

 +77      ;;21,"00247-0371-07 ")

 +78      ;;3910

 +79      ;;21,"00247-0371-10 ")

 +80      ;;3911

 +81      ;;21,"00247-0371-14 ")

 +82      ;;3912

 +83      ;;21,"00247-0371-28 ")

 +84      ;;3913

 +85      ;;21,"00247-0371-30 ")

 +86      ;;3914

 +87      ;;21,"00247-0371-45 ")

 +88      ;;3915

 +89      ;;21,"00247-0371-50 ")

 +90      ;;3916

 +91      ;;21,"00247-0371-60 ")

 +92      ;;3917

 +93      ;;21,"00247-0372-00 ")

 +94      ;;2194

 +95      ;;21,"00247-0372-03 ")

 +96      ;;2195

 +97      ;;21,"00247-0372-04 ")

 +98      ;;2196

 +99      ;;21,"00247-0372-07 ")

 +100     ;;2197

 +101     ;;21,"00247-0372-10 ")

 +102     ;;2198

 +103     ;;21,"00247-0372-14 ")

 +104     ;;2199

 +105     ;;21,"00247-0372-15 ")

 +106     ;;2200

 +107     ;;21,"00247-0372-28 ")

 +108     ;;2201

 +109     ;;21,"00247-0372-30 ")

 +110     ;;2202

 +111     ;;21,"00247-0372-52 ")

 +112     ;;2203

 +113     ;;21,"00247-0372-60 ")

 +114     ;;2204

 +115     ;;21,"00247-0614-20 ")

 +116     ;;1

 +117     ;;21,"00247-0614-30 ")

 +118     ;;2

 +119     ;;21,"00247-0614-50 ")

 +120     ;;3

 +121     ;;21,"00247-0614-60 ")

 +122     ;;4

 +123     ;;21,"00247-0614-90 ")

 +124     ;;5

 +125     ;;21,"00247-0615-00 ")

 +126     ;;198

 +127     ;;21,"00247-0615-04 ")

 +128     ;;199

 +129     ;;21,"00247-0615-07 ")

 +130     ;;200

 +131     ;;21,"00247-0615-10 ")

 +132     ;;201

 +133     ;;21,"00247-0615-12 ")

 +134     ;;202

 +135     ;;21,"00247-0615-15 ")

 +136     ;;203

 +137     ;;21,"00247-0615-30 ")

 +138     ;;204

 +139     ;;21,"00247-0615-50 ")

 +140     ;;205

 +141     ;;21,"00247-0615-52 ")

 +142     ;;206

 +143     ;;21,"00247-0615-60 ")

 +144     ;;207

 +145     ;;21,"00247-0615-90 ")

 +146     ;;208

 +147     ;;21,"00247-0616-10 ")

 +148     ;;3098

 +149     ;;21,"00247-0616-15 ")

 +150     ;;3099

 +151     ;;21,"00247-0616-30 ")

 +152     ;;3100

 +153     ;;21,"00247-0644-00 ")

 +154     ;;2022

 +155     ;;21,"00247-0644-03 ")

 +156     ;;2023

 +157     ;;21,"00247-0644-07 ")

 +158     ;;2024

 +159     ;;21,"00247-0644-10 ")

 +160     ;;2025

 +161     ;;21,"00247-0644-14 ")

 +162     ;;2026

 +163     ;;21,"00247-0644-28 ")

 +164     ;;2027

 +165     ;;21,"00247-0644-30 ")

 +166     ;;2028

 +167     ;;21,"00247-0644-60 ")

 +168     ;;2029

 +169     ;;21,"00247-0673-00 ")

 +170     ;;4566

 +171     ;;21,"00247-0673-07 ")

 +172     ;;4567

 +173     ;;21,"00247-0673-10 ")

 +174     ;;4568

 +175     ;;21,"00247-0673-14 ")

 +176     ;;4569

 +177     ;;21,"00247-0673-30 ")

 +178     ;;4570

 +179     ;;21,"00247-0673-60 ")

 +180     ;;4571

 +181     ;;21,"00247-0673-90 ")

 +182     ;;4572

 +183     ;;21,"00247-0675-03 ")

 +184     ;;4182

 +185     ;;21,"00247-0675-07 ")

 +186     ;;4183

 +187     ;;21,"00247-0675-08 ")

 +188     ;;4184

 +189     ;;21,"00247-0675-14 ")

 +190     ;;4185

 +191     ;;21,"00247-0675-30 ")

 +192     ;;4186

 +193     ;;21,"00247-0675-33 ")

 +194     ;;4187

 +195     ;;21,"00247-0675-90 ")

 +196     ;;4188

 +197     ;;21,"00247-0677-07 ")

 +198     ;;563

 +199     ;;21,"00247-0773-00 ")

 +200     ;;1614

 +201     ;;21,"00247-0773-30 ")

 +202     ;;1615

 +203     ;;21,"00247-0773-90 ")

 +204     ;;1616

 +205     ;;21,"00247-0787-07 ")

 +206     ;;3494

 +207     ;;21,"00247-0787-10 ")

 +208     ;;3495

 +209     ;;21,"00247-0787-14 ")

 +210     ;;3496

 +211     ;;21,"00247-0787-15 ")

 +212     ;;3497

 +213     ;;21,"00247-0787-28 ")

 +214     ;;3498

 +215     ;;21,"00247-0787-30 ")

 +216     ;;3499

 +217     ;;21,"00247-0787-50 ")

 +218     ;;3500

 +219     ;;21,"00247-0787-60 ")

 +220     ;;3501

 +221     ;;21,"00247-0789-07 ")

 +222     ;;2662

 +223     ;;21,"00247-0789-14 ")

 +224     ;;2663

 +225     ;;21,"00247-0789-30 ")

 +226     ;;2664

 +227     ;;21,"00247-0808-07 ")

 +228     ;;2729

 +229     ;;21,"00247-0808-14 ")

 +230     ;;2730

 +231     ;;21,"00247-0808-30 ")

 +232     ;;2731

 +233     ;;21,"00247-0809-07 ")

 +234     ;;2733

 +235     ;;21,"00247-0809-14 ")

 +236     ;;2734

 +237     ;;21,"00247-0809-30 ")

 +238     ;;2735

 +239     ;;21,"00247-0810-07 ")

 +240     ;;2737

 +241     ;;21,"00247-0810-14 ")

 +242     ;;2738

 +243     ;;21,"00247-0810-30 ")

 +244     ;;2739

 +245     ;;21,"00247-0815-00 ")

 +246     ;;1513

 +247     ;;21,"00247-0815-30 ")

 +248     ;;1514

 +249     ;;21,"00247-0853-04 ")

 +250     ;;4911

 +251     ;;21,"00247-0853-06 ")

 +252     ;;4912

 +253     ;;21,"00247-0853-08 ")

 +254     ;;4913

 +255     ;;21,"00247-0853-30 ")

 +256     ;;4914

 +257     ;;21,"00247-0853-60 ")

 +258     ;;4915

 +259     ;;21,"00247-0853-90 ")

 +260     ;;4916

 +261     ;;21,"00247-1035-30 ")

 +262     ;;5093

 +263     ;;21,"00247-1035-60 ")

 +264     ;;5094

 +265     ;;21,"00247-1035-90 ")

 +266     ;;5095

 +267     ;;21,"00247-1041-03 ")

 +268     ;;4466

 +269     ;;21,"00247-1041-07 ")

 +270     ;;4467

 +271     ;;21,"00247-1041-30 ")

 +272     ;;4468

 +273     ;;21,"00247-1042-30 ")

 +274     ;;4548

 +275     ;;21,"00247-1056-60 ")

 +276     ;;3101

 +277     ;;21,"00247-1057-15 ")

 +278     ;;3190

 +279     ;;21,"00247-1057-60 ")

 +280     ;;3191

 +281     ;;21,"00247-1058-60 ")

 +282     ;;3344

 +283     ;;21,"00247-1075-10 ")

 +284     ;;3192

 +285     ;;21,"00247-1075-30 ")

 +286     ;;3193

 +287     ;;21,"00247-1075-60 ")

 +288     ;;3194

 +289     ;;21,"00247-1177-07 ")

 +290     ;;1730

 +291     ;;21,"00247-1177-30 ")

 +292     ;;1731

 +293     ;;21,"00247-1201-00 ")

 +294     ;;362

 +295     ;;21,"00247-1201-30 ")

 +296     ;;363

 +297     ;;21,"00247-1214-03 ")

 +298     ;;3689

 +299     ;;21,"00247-1214-07 ")

 +300     ;;3690

 +301     ;;21,"00247-1214-30 ")

 +302     ;;3691

 +303     ;;21,"00247-1232-30 ")

 +304     ;;1651

 +305     ;;21,"00247-1233-30 ")

 +306     ;;1802

 +307     ;;21,"00247-1242-30 ")

 +308     ;;461

 +309     ;;21,"00247-1243-30 ")

 +310     ;;126

 +311     ;;21,"00247-1521-30 ")

 +312     ;;4980

 +313     ;;21,"00247-1521-60 ")

 +314     ;;4981

 +315     ;;21,"00247-1522-30 ")

 +316     ;;4824

 +317     ;;21,"00247-1522-60 ")

 +318     ;;4825

 +319     ;;21,"00247-1523-30 ")

 +320     ;;4726

 +321     ;;21,"00247-1523-60 ")

 +322     ;;4727

 +323     ;;21,"00247-1677-10 ")

 +324     ;;715

 +325     ;;21,"00247-1677-60 ")

 +326     ;;716

 +327     ;;21,"00247-1679-10 ")

 +328     ;;3300

 +329     ;;21,"00247-1679-60 ")

 +330     ;;3301

 +331     ;;21,"00247-1680-10 ")

 +332     ;;2617

 +333     ;;21,"00247-1731-30 ")

 +334     ;;1561

 +335     ;;21,"00247-1731-60 ")

 +336     ;;1562

 +337     ;;21,"00247-1731-90 ")

 +338     ;;1563

 +339     ;;21,"00247-1813-04 ")

 +340     ;;4336

 +341     ;;21,"00247-1813-08 ")

 +342     ;;4337

 +343     ;;21,"00247-1813-30 ")

 +344     ;;4338

 +345     ;;21,"00247-1814-08 ")

 +346     ;;3375

 +347     ;;21,"00247-1814-14 ")

 +348     ;;3376

 +349     ;;21,"00247-1814-30 ")

 +350     ;;3377

 +351     ;;21,"00247-1843-03 ")

 +352     ;;2753

 +353     ;;21,"00247-1843-07 ")

 +354     ;;2754

 +355     ;;21,"00247-1843-08 ")

 +356     ;;2755

 +357     ;;21,"00247-1843-14 ")

 +358     ;;2756

 +359     ;;21,"00247-1845-07 ")

 +360     ;;4469

 +361     ;;21,"00247-1850-04 ")

 +362     ;;4856

 +363     ;;21,"00247-1850-08 ")

 +364     ;;4857

 +365     ;;21,"00247-1850-30 ")

 +366     ;;4858

 +367     ;;21,"00247-1893-00 ")

 +368     ;;1093

 +369     ;;21,"00247-1893-07 ")

 +370     ;;1094

 +371     ;;21,"00247-1893-30 ")

 +372     ;;1095

 +373     ;;21,"00247-1893-60 ")

 +374     ;;1096

 +375     ;;21,"00247-1893-77 ")

 +376     ;;1097

 +377     ;;21,"00247-1893-90 ")

 +378     ;;1098

 +379     ;;21,"00247-1894-07 ")

 +380     ;;1254

 +381     ;;21,"00247-1894-30 ")

 +382     ;;1255

 +383     ;;21,"00247-1894-60 ")

 +384     ;;1256

 +385     ;;21,"00247-1894-77 ")

 +386     ;;1257

 +387     ;;21,"00247-1894-90 ")

 +388     ;;1258

 +389     ;;21,"00247-1915-03 ")

 +390     ;;2205

 +391     ;;21,"00247-1915-07 ")

 +392     ;;2206

 +393     ;;21,"00247-1915-30 ")

 +394     ;;2207

 +395     ;;21,"00247-1915-90 ")

 +396     ;;2208

 +397     ;;21,"00247-1918-15 ")

 +398     ;;2860

 +399     ;;21,"00247-1918-30 ")

 +400     ;;2861

 +401     ;;21,"00247-1961-00 ")

 +402     ;;564

 +403     ;;21,"00247-1961-14 ")

 +404     ;;565

 +405     ;;21,"00247-1961-30 ")

 +406     ;;566

 +407     ;;21,"00247-1961-60 ")

 +408     ;;567

 +409     ;;21,"00247-1964-30 ")

 +410     ;;2458

 +411     ;;21,"00247-1964-90 ")

 +412     ;;2459

 +413     ;;21,"00247-1965-00 ")

 +414     ;;2030

 +415     ;;21,"00247-1965-03 ")

 +416     ;;2031

 +417     ;;21,"00247-1965-14 ")

 +418     ;;2032

 +419     ;;21,"00247-1965-30 ")

 +420     ;;2033

 +421     ;;21,"00247-1965-60 ")

 +422     ;;2034

 +423     ;;21,"00247-1965-90 ")

 +424     ;;2035

 +425     ;;21,"00247-1965-99 ")

 +426     ;;2036

 +427     ;;21,"00247-2052-00 ")

 +428     ;;3502

 +429     ;;21,"00247-2052-07 ")

 +430     ;;3503

 +431     ;;21,"00247-2052-30 ")

 +432     ;;3504

 +433     ;;21,"00247-2052-90 ")

 +434     ;;3505

 +435     ;;21,"00247-2077-30 ")

 +436     ;;717

 +437     ;;21,"00247-2077-60 ")

 +438     ;;718

 +439     ;;21,"00247-2083-30 ")

 +440     ;;2757

 +441     ;;21,"00247-2083-60 ")

 +442     ;;2758

 +443     ;;21,"00247-2083-90 ")

 +444     ;;2759

 +445     ;;21,"00247-2084-30 ")

 +446     ;;2862

 +447     ;;21,"00247-2084-60 ")

 +448     ;;2863

 +449     ;;21,"00247-2085-30 ")

 +450     ;;3378

 +451     ;;21,"00247-2094-30 ")

 +452     ;;3692

 +453     ;;21,"00247-2094-90 ")

 +454     ;;3693

 +455     ;;21,"00247-2117-30 ")

 +456     ;;1924

 +457     ;;21,"00247-2132-00 ")

 +458     ;;989

 +459     ;;21,"00247-2132-07 ")

 +460     ;;990

 +461     ;;21,"00247-2132-30 ")

 +462     ;;991

 +463     ;;21,"00247-2132-60 ")

 +464     ;;992

 +465     ;;21,"00247-2132-90 ")

 +466     ;;993

 +467     ;;21,"00247-2133-00 ")

 +468     ;;1099

 +469     ;;21,"00247-2133-07 ")

 +470     ;;1100

 +471     ;;21,"00247-2133-30 ")

 +472     ;;1101

 +473     ;;21,"00247-2133-60 ")

 +474     ;;1102

 +475     ;;21,"00247-2133-90 ")

 +476     ;;1103

 +477     ;;21,"00247-2134-00 ")

 +478     ;;1259

 +479     ;;21,"00247-2134-07 ")

 +480     ;;1260

 +481     ;;21,"00247-2134-30 ")

 +482     ;;1261

 +483     ;;21,"00247-2134-60 ")

 +484     ;;1262

 +485     ;;21,"00247-2134-90 ")

 +486     ;;1263

 +487     ;;21,"00247-2262-30 ")

 +488     ;;1968

 +489     ;;21,"00247-2265-30 ")

 +490     ;;3773

 +491     ;;21,"00247-2265-60 ")

 +492     ;;3774

 +493     ;;21,"00247-2265-90 ")

 +494     ;;3775

 +495     ;;21,"00247-2271-30 ")

 +496     ;;4189

 +497     ;;21,"00247-2272-00 ")

 +498     ;;3918

 +499     ;;21,"00247-2272-30 ")

 +500     ;;3919

 +501     ;;21,"00247-2272-60 ")

 +502     ;;3920

 +503     ;;21,"00247-2272-90 ")

 +504     ;;3921

 +505     ;;21,"00247-2299-00 ")

 +506     ;;5096

 +507     ;;21,"00247-2299-90 ")

 +508     ;;5097

 +509     ;;21,"00247-2314-00 ")

 +510     ;;1411

 +511     ;;21,"00247-2314-30 ")

 +512     ;;1412

 +513     ;;21,"00247-2314-60 ")

 +514     ;;1413

 +515     ;;21,"00247-2314-77 ")

 +516     ;;1414

 +517     ;;21,"00247-2314-90 ")

 +518     ;;1415

 +519     ;;21,"00247-2337-30 ")

 +520     ;;5015

 +521     ;;21,"00247-2337-60 ")

 +522     ;;5016

 +523     ;;21,"00247-2337-90 ")

 +524     ;;5017

 +525     ;;21,"00247-2356-00 ")

 +526     ;;866

 +527     ;;21,"00247-2356-30 ")

 +528     ;;867

 +529     ;;21,"00258-3695-01 ")

 +530     ;;994

 +531     ;;21,"00258-3695-05 ")

 +532     ;;995

 +533     ;;21,"00258-3696-01 ")

 +534     ;;1104

 +535     ;;21,"00258-3696-10 ")

 +536     ;;1105

 +537     ;;21,"00258-3697-01 ")

 +538     ;;1264

 +539     ;;21,"00258-3697-10 ")

 +540     ;;1265

 +541     ;;21,"00378-0042-01 ")