BGP2TE6.m

BGP2TE6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 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,"62584-0367-33 ")

 ;;1364

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

 ;;901

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

 ;;902

 ;;21,"62584-0974-30 ")

 ;;903

 ;;21,"62584-0974-80 ")

 ;;904

 ;;21,"62584-0974-85 ")

 ;;905

 ;;21,"62584-0974-90 ")

 ;;906

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

 ;;952

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

 ;;953

 ;;21,"62584-0975-30 ")

 ;;954

 ;;21,"62584-0975-80 ")

 ;;955

 ;;21,"62584-0975-85 ")

 ;;956

 ;;21,"62584-0975-90 ")

 ;;957

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

 ;;1005

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

 ;;1006

 ;;21,"62584-0976-30 ")

 ;;1007

 ;;21,"62584-0976-80 ")

 ;;1008

 ;;21,"62584-0976-85 ")

 ;;1009

 ;;21,"62584-0976-90 ")

 ;;1010

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

 ;;1056

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

 ;;1057

 ;;21,"62584-0977-30 ")

 ;;1058

 ;;21,"62584-0977-90 ")

 ;;1059

 ;;21,"62682-6034-06 ")

 ;;798

 ;;21,"62682-6035-06 ")

 ;;807

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

 ;;1486

 ;;21,"63304-0436-01 ")

 ;;1516

 ;;21,"63304-0437-01 ")

 ;;1444

 ;;21,"63304-0488-01 ")

 ;;2191

 ;;21,"63304-0489-01 ")

 ;;2257

 ;;21,"63304-0490-01 ")

 ;;2348

 ;;21,"63304-0490-05 ")

 ;;2349

 ;;21,"63304-0499-30 ")

 ;;319

 ;;21,"63304-0500-30 ")

 ;;277

 ;;21,"63304-0501-30 ")

 ;;288

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

 ;;291

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

 ;;295

 ;;21,"63304-0587-30 ")

 ;;300

 ;;21,"63304-0588-30 ")

 ;;309

 ;;21,"63304-0589-30 ")

 ;;315

 ;;21,"63304-0590-30 ")

 ;;262

 ;;21,"63304-0591-30 ")

 ;;269

 ;;21,"63304-0603-30 ")

 ;;283

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

 ;;132

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

 ;;1781

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

 ;;1782

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

 ;;1837

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

 ;;1892

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

 ;;1893

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

 ;;1894

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

 ;;1895

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

 ;;453

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

 ;;454

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

 ;;455

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

 ;;732

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

 ;;733

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

 ;;734

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

 ;;735

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

 ;;736

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

 ;;1526

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

 ;;2316

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

 ;;2317

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

 ;;1038

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

 ;;1356

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

 ;;555

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

 ;;1698

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

 ;;2214

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

 ;;1640

 ;;21,"63672-0044-03 ")

 ;;554

 ;;21,"63672-0045-03 ")

 ;;731

 ;;21,"63672-0046-03 ")

 ;;452

 ;;21,"63739-0079-01 ")

 ;;1290

 ;;21,"63739-0079-02 ")

 ;;1291

 ;;21,"63739-0079-03 ")

 ;;1292

 ;;21,"63739-0079-10 ")

 ;;1293

 ;;21,"63739-0079-15 ")

 ;;1294

 ;;21,"63739-0080-01 ")

 ;;1351

 ;;21,"63739-0080-02 ")

 ;;1352

 ;;21,"63739-0080-03 ")

 ;;1353

 ;;21,"63739-0080-10 ")

 ;;1354

 ;;21,"63739-0080-15 ")

 ;;1355

 ;;21,"63739-0283-10 ")

 ;;914

 ;;21,"63739-0283-15 ")

 ;;915

 ;;21,"63739-0283-31 ")

 ;;912

 ;;21,"63739-0284-10 ")

 ;;980

 ;;21,"63739-0284-15 ")

 ;;981

 ;;21,"63739-0284-31 ")

 ;;961

 ;;21,"63739-0285-10 ")

 ;;1036

 ;;21,"63739-0285-15 ")

 ;;1037

 ;;21,"63739-0285-31 ")

 ;;1015

 ;;21,"63739-0286-10 ")

 ;;1073

 ;;21,"63739-0286-15 ")

 ;;1074

 ;;21,"63739-0451-10 ")

 ;;1651

 ;;21,"63739-0452-10 ")

 ;;1713

 ;;21,"64455-0100-10 ")

 ;;1082

 ;;21,"64455-0100-30 ")

 ;;1083

 ;;21,"64455-0100-90 ")

 ;;1084

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

 ;;1091

 ;;21,"64455-0101-30 ")

 ;;1092

 ;;21,"64455-0101-90 ")

 ;;1093

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

 ;;1105

 ;;21,"64455-0102-30 ")

 ;;1106

 ;;21,"64455-0102-90 ")

 ;;1107

 ;;21,"64455-0103-30 ")

 ;;1116

 ;;21,"64455-0103-90 ")

 ;;1117

 ;;21,"64455-0104-10 ")

 ;;1128

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

 ;;1129

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

 ;;1130

 ;;21,"64455-0105-10 ")

 ;;1139

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

 ;;1140

 ;;21,"64455-0105-90 ")

 ;;1141

 ;;21,"64455-0771-47 ")

 ;;1288

 ;;21,"64455-0771-55 ")

 ;;1289

 ;;21,"64455-0772-47 ")

 ;;1349

 ;;21,"64455-0772-55 ")

 ;;1350

 ;;21,"64455-0791-47 ")

 ;;1405

 ;;21,"64455-0792-47 ")

 ;;1276

 ;;21,"64455-0795-30 ")

 ;;886

 ;;21,"64455-0795-42 ")

 ;;887

 ;;21,"64455-0795-49 ")

 ;;888

 ;;21,"64455-0796-30 ")

 ;;934

 ;;21,"64455-0796-42 ")

 ;;935

 ;;21,"64455-0796-49 ")

 ;;936

 ;;21,"64455-0796-50 ")

 ;;937

 ;;21,"64455-0797-30 ")

 ;;991

 ;;21,"64455-0797-42 ")

 ;;992

 ;;21,"64455-0797-49 ")

 ;;993

 ;;21,"64455-0798-30 ")

 ;;1049

 ;;21,"64455-0798-42 ")

 ;;1050

 ;;21,"64455-0798-49 ")

 ;;1051

 ;;21,"64455-0799-42 ")

 ;;1075

 ;;21,"64679-0421-01 ")

 ;;558

 ;;21,"64679-0422-01 ")

 ;;727

 ;;21,"64679-0422-02 ")

 ;;728

 ;;21,"64679-0423-01 ")

 ;;458

 ;;21,"64679-0423-02 ")

 ;;459

 ;;21,"65162-0006-09 ")

 ;;556

 ;;21,"65162-0006-50 ")

 ;;557

 ;;21,"65162-0007-09 ")

 ;;729

 ;;21,"65162-0007-50 ")

 ;;730

 ;;21,"65162-0008-09 ")

 ;;456

 ;;21,"65162-0008-50 ")

 ;;457

 ;;21,"65162-0588-10 ")

 ;;1589

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

 ;;1604

 ;;21,"65243-0028-09 ")

 ;;1527

 ;;21,"65243-0054-09 ")

 ;;1697

 ;;21,"65243-0111-09 ")

 ;;1455

 ;;21,"65243-0260-09 ")

 ;;2312

 ;;21,"65243-0311-09 ")

 ;;1528

 ;;21,"65243-0312-09 ")

 ;;1456

 ;;21,"65243-0312-18 ")

 ;;1457

 ;;21,"65243-0317-09 ")

 ;;1652

 ;;21,"65243-0318-09 ")

 ;;1710

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

 ;;219

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

 ;;220

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

 ;;221

 ;;21,"65597-0111-10 ")

 ;;211

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

 ;;212

 ;;21,"65597-0111-90 ")

 ;;213

 ;;21,"65597-0112-10 ")

 ;;222

 ;;21,"65597-0112-30 ")

 ;;223

 ;;21,"65597-0112-90 ")

 ;;224

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

 ;;214

 ;;21,"65597-0113-30 ")

 ;;215

 ;;21,"65597-0113-90 ")

 ;;216

 ;;21,"65597-0114-30 ")

 ;;250

 ;;21,"65597-0114-90 ")

 ;;251

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

 ;;256

 ;;21,"65597-0115-90 ")

 ;;257

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

 ;;258

 ;;21,"65597-0116-90 ")

 ;;259

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

 ;;252

 ;;21,"65597-0117-90 ")

 ;;253

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

 ;;254

 ;;21,"65597-0118-90 ")

 ;;255

 ;;21,"65726-0226-15 ")

 ;;1553

 ;;21,"65726-0226-25 ")

 ;;1554

 ;;21,"65726-0227-15 ")

 ;;1558

 ;;21,"65726-0227-25 ")

 ;;1559

 ;;21,"65726-0235-10 ")

 ;;1571

 ;;21,"65726-0235-25 ")

 ;;1572

 ;;21,"65726-0236-10 ")

 ;;1567

 ;;21,"65726-0236-25 ")

 ;;1568

 ;;21,"65862-0101-05 ")

 ;;559

 ;;21,"65862-0101-90 ")

 ;;560

 ;;21,"65862-0101-99 ")

 ;;561

 ;;21,"65862-0102-05 ")

 ;;724

 ;;21,"65862-0102-90 ")

 ;;725

 ;;21,"65862-0102-99 ")

 ;;726

 ;;21,"65862-0103-05 ")

 ;;460

 ;;21,"65862-0103-90 ")

 ;;461

 ;;21,"65862-0103-99 ")

 ;;462

 ;;21,"66105-0528-01 ")

 ;;737

 ;;21,"66105-0528-03 ")

 ;;738

 ;;21,"66105-0528-06 ")

 ;;739

 ;;21,"66105-0528-09 ")

 ;;740

 ;;21,"66105-0528-10 ")

 ;;741

 ;;21,"66105-0529-01 ")

 ;;464

 ;;21,"66105-0529-03 ")

 ;;465

 ;;21,"66105-0529-06 ")

 ;;466

 ;;21,"66105-0529-09 ")

 ;;467

 ;;21,"66105-0529-10 ")

 ;;468

 ;;21,"66116-0278-30 ")

 ;;1962

 ;;21,"66116-0432-30 ")

 ;;847

 ;;21,"66116-0433-30 ")

 ;;870

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

 ;;2259

 ;;21,"66116-0492-30 ")

 ;;2354

 ;;21,"66336-0127-30 ")

 ;;1891

 ;;21,"66336-0255-30 ")

 ;;463

 ;;21,"66336-0296-30 ")

 ;;2074

 ;;21,"66336-0296-90 ")

 ;;2075

 ;;21,"66336-0300-30 ")

 ;;2189

 ;;21,"66336-0424-30 ")

 ;;1839

 ;;21,"66336-0669-14 ")

 ;;1016

 ;;21,"66336-0669-30 ")

 ;;1017

 ;;21,"66336-0683-30 ")

 ;;1783

 ;;21,"66336-0781-30 ")

 ;;2211

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

 ;;722

 ;;21,"66336-0809-90 ")

 ;;723

 ;;21,"66336-0894-30 ")

 ;;450

 ;;21,"66336-0894-90 ")

 ;;451

 ;;21,"66336-0959-30 ")

 ;;2283

 ;;21,"66336-0959-90 ")

 ;;2284

 ;;21,"67286-0813-02 ")

 ;;1605

 ;;21,"67286-0813-03 ")

 ;;1614

 ;;21,"67286-0813-04 ")

 ;;1615

 ;;21,"67286-0814-03 ")

 ;;1606

 ;;21,"67286-0814-04 ")

 ;;1607

 ;;21,"67286-0815-04 ")

 ;;1616

 ;;21,"67544-0071-30 ")

 ;;742

 ;;21,"67544-0086-30 ")

 ;;469

 ;;21,"67544-0093-30 ")

 ;;1530

 ;;21,"67544-0093-53 ")

 ;;1531

 ;;21,"67544-0093-60 ")

 ;;1532

 ;;21,"67544-0093-80 ")

 ;;1533

 ;;21,"67544-0094-30 ")

 ;;1459

 ;;21,"67544-0094-53 ")

 ;;1460

 ;;21,"67544-0094-60 ")

 ;;1461

 ;;21,"67544-0094-70 ")

 ;;1462

 ;;21,"67544-0094-80 ")

 ;;1463

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

 ;;1630

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

 ;;1631

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

 ;;1695

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

 ;;1696

 ;;21,"67544-0185-60 ")

 ;;1749

 ;;21,"67544-0185-81 ")

 ;;1750

 ;;21,"67544-0185-82 ")

 ;;1751

 ;;21,"67544-0262-30 ")

 ;;1163

 ;;21,"67544-0262-60 ")

 ;;1164

 ;;21,"67544-0263-30 ")

 ;;1188

 ;;21,"67544-0263-60 ")

 ;;1189

 ;;21,"67544-0264-30 ")

 ;;1212

 ;;21,"67544-0264-60 ")

 ;;1213

 ;;21,"67544-0265-30 ")

 ;;1234

 ;;21,"67544-0265-60 ")

 ;;1235

 ;;21,"67544-0266-30 ")

 ;;1260

 ;;21,"67544-0266-60 ")

 ;;1261

 ;;21,"67544-0297-60 ")

 ;;2313

 ;;21,"67544-0344-30 ")

 ;;1492

 ;;21,"67544-0344-60 ")

 ;;1493

 ;;21,"67544-0388-30 ")

 ;;1488

 ;;21,"67544-0388-60 ")

 ;;1489

 ;;21,"67544-0389-30 ")

 ;;1522

 ;;21,"67544-0389-53 ")

 ;;1523

 ;;21,"67544-0389-60 ")

 ;;1524

 ;;21,"67544-0389-80 ")

 ;;1525

 ;;21,"67544-0390-30 ")

 ;;1450

 ;;21,"67544-0390-53 ")

 ;;1451

 ;;21,"67544-0390-60 ")

 ;;1452

 ;;21,"67544-0390-70 ")

 ;;1453

 ;;21,"67544-0390-80 ")

 ;;1454

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

 ;;1638

 ;;21,"67544-0809-60 ")

 ;;1639

 ;;21,"67544-0979-30 ")

 ;;717

 ;;21,"67544-0979-45 ")

 ;;718

 ;;21,"67544-0979-60 ")

 ;;719

 ;;21,"67544-0993-30 ")

 ;;443

 ;;21,"67544-1095-30 ")

 ;;444

 ;;21,"67544-1136-60 ")

 ;;1653

 ;;21,"67544-1156-60 ")

 ;;1718

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

 ;;445

 ;;21,"67544-1287-30 ")

 ;;720

 ;;21,"67544-1287-60 ")

 ;;721

 ;;21,"67544-1330-30 ")

 ;;441

 ;;21,"67544-1330-45 ")

 ;;442

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

 ;;1555

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

 ;;1564

 ;;21,"67767-0151-01 ")

 ;;1719

 ;;21,"67767-0151-05 ")

 ;;1720

 ;;21,"67767-0153-01 ")

 ;;1658

 ;;21,"67767-0153-05 ")

 ;;1659

 ;;21,"67877-0197-05 ")

 ;;562

 ;;21,"67877-0197-10 ")

 ;;563

 ;;21,"67877-0197-90 ")

 ;;564

 ;;21,"67877-0198-05 ")

 ;;712

 ;;21,"67877-0198-10 ")

 ;;713

 ;;21,"67877-0198-90 ")

 ;;714

 ;;21,"67877-0199-05 ")

 ;;447

 ;;21,"67877-0199-10 ")

 ;;448

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

 ;;449

 ;;21,"68030-6625-01 ")

 ;;743

 ;;21,"68030-6626-01 ")

 ;;470

 ;;21,"68071-0707-30 ")

 ;;427

 ;;21,"68071-0728-30 ")

 ;;715

 ;;21,"68071-1348-00 ")

 ;;716

 ;;21,"68071-1349-00 ")

 ;;446

 ;;21,"68084-0142-01 ")

 ;;1654

 ;;21,"68084-0142-11 ")

 ;;1655

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

 ;;1656

 ;;21,"68084-0142-90 ")

 ;;1657

 ;;21,"68084-0143-01 ")

 ;;1714

 ;;21,"68084-0143-11 ")

 ;;1715

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

 ;;1716

 ;;21,"68084-0143-90 ")

 ;;1717

 ;;21,"68084-0237-01 ")

 ;;565

 ;;21,"68084-0237-11 ")

 ;;566

 ;;21,"68084-0238-01 ")

 ;;710

 ;;21,"68084-0238-11 ")

 ;;711

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

 ;;437

 ;;21,"68084-0239-11 ")

 ;;438

 ;;21,"68084-0349-11 ")

 ;;87

 ;;21,"68084-0349-21 ")

 ;;88

 ;;21,"68084-0350-01 ")

 ;;130

 ;;21,"68084-0350-11 ")

 ;;131

 ;;21,"68084-0351-11 ")

 ;;12

 ;;21,"68084-0351-21 ")

 ;;13

 ;;21,"68084-0498-01 ")

 ;;567

 ;;21,"68084-0498-11 ")

 ;;568

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

 ;;708

 ;;21,"68084-0505-11 ")

 ;;709

 ;;21,"68084-0506-01 ")

 ;;439

 ;;21,"68084-0506-11 ")

 ;;440

 ;;21,"68115-0114-60 ")

 ;;1357

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

 ;;822

 ;;21,"68115-0256-30 ")

 ;;1784

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

 ;;1838

 ;;21,"68115-0263-15 ")

 ;;471

 ;;21,"68115-0263-28 ")

 ;;472

 ;;21,"68115-0263-30 ")

 ;;473

 ;;21,"68115-0263-60 ")

 ;;474

 ;;21,"68115-0263-90 ")

 ;;475

 ;;21,"68115-0283-30 ")

 ;;1464

 ;;21,"68115-0284-30 ")

 ;;1534

 ;;21,"68115-0284-60 ")

 ;;1535

 ;;21,"68115-0347-30 ")

 ;;2076

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

 ;;2077

 ;;21,"68115-0348-00 ")

 ;;2212

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

 ;;2213

 ;;21,"68115-0349-30 ")

 ;;2314

 ;;21,"68115-0349-60 ")

 ;;2315

 ;;21,"68115-0350-90 ")

 ;;2136

 ;;21,"68115-0368-00 ")

 ;;2260

 ;;21,"68115-0368-30 ")

 ;;2261

 ;;21,"68115-0441-30 ")

 ;;2073

 ;;21,"68115-0606-00 ")

 ;;1295

 ;;21,"68115-0606-15 ")

 ;;1296

 ;;21,"68115-0606-30 ")

 ;;1297

 ;;21,"68115-0612-90 ")

 ;;871

 ;;21,"68115-0636-00 ")

 ;;2086

 ;;21,"68115-0650-00 ")

 ;;37

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

 ;;157

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

 ;;158

 ;;21,"68115-0778-00 ")

 ;;114

 ;;21,"68115-0790-00 ")

 ;;1491

 ;;21,"68115-0890-15 ")

 ;;744

 ;;21,"68115-0890-30 ")

 ;;745

 ;;21,"68115-0890-60 ")

 ;;746

 ;;21,"68115-0890-90 ")

 ;;747

 ;;21,"68180-0750-09 ")

 ;;569

 ;;21,"68180-0751-03 ")

 ;;706

 ;;21,"68180-0751-09 ")

 ;;707

 ;;21,"68180-0752-03 ")

 ;;428

 ;;21,"68180-0752-09 ")

 ;;429

 ;;21,"68180-0755-01 ")

 ;;70

 ;;21,"68180-0756-01 ")

 ;;85

 ;;21,"68180-0756-02 ")

 ;;86

 ;;21,"68180-0757-01 ")

 ;;128

 ;;21,"68180-0757-02 ")

 ;;129

 ;;21,"68180-0758-01 ")

 ;;10

 ;;21,"68180-0758-02 ")

 ;;11

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

 ;;166

 ;;21,"68180-0760-01 ")

 ;;44

 ;;21,"68258-1019-01 ")

 ;;1785

 ;;21,"68258-1020-01 ")

 ;;1840

 ;;21,"68258-1021-01 ")

 ;;1890

 ;;21,"68258-6014-03 ")

 ;;1358

 ;;21,"68258-6024-03 ")

 ;;913

 ;;21,"68258-6025-03 ")

 ;;8

 ;;21,"68258-6025-09 ")

 ;;9

 ;;21,"68258-6046-03 ")

 ;;962

 ;;21,"68258-9113-01 ")

 ;;577

BGP2TE6   ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 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,"62584-0367-33 ")

 +2       ;;1364

 +3       ;;21,"62584-0974-01 ")

 +4       ;;901

 +5       ;;21,"62584-0974-11 ")

 +6       ;;902

 +7       ;;21,"62584-0974-30 ")

 +8       ;;903

 +9       ;;21,"62584-0974-80 ")

 +10      ;;904

 +11      ;;21,"62584-0974-85 ")

 +12      ;;905

 +13      ;;21,"62584-0974-90 ")

 +14      ;;906

 +15      ;;21,"62584-0975-01 ")

 +16      ;;952

 +17      ;;21,"62584-0975-11 ")

 +18      ;;953

 +19      ;;21,"62584-0975-30 ")

 +20      ;;954

 +21      ;;21,"62584-0975-80 ")

 +22      ;;955

 +23      ;;21,"62584-0975-85 ")

 +24      ;;956

 +25      ;;21,"62584-0975-90 ")

 +26      ;;957

 +27      ;;21,"62584-0976-01 ")

 +28      ;;1005

 +29      ;;21,"62584-0976-11 ")

 +30      ;;1006

 +31      ;;21,"62584-0976-30 ")

 +32      ;;1007

 +33      ;;21,"62584-0976-80 ")

 +34      ;;1008

 +35      ;;21,"62584-0976-85 ")

 +36      ;;1009

 +37      ;;21,"62584-0976-90 ")

 +38      ;;1010

 +39      ;;21,"62584-0977-01 ")

 +40      ;;1056

 +41      ;;21,"62584-0977-11 ")

 +42      ;;1057

 +43      ;;21,"62584-0977-30 ")

 +44      ;;1058

 +45      ;;21,"62584-0977-90 ")

 +46      ;;1059

 +47      ;;21,"62682-6034-06 ")

 +48      ;;798

 +49      ;;21,"62682-6035-06 ")

 +50      ;;807

 +51      ;;21,"63304-0435-01 ")

 +52      ;;1486

 +53      ;;21,"63304-0436-01 ")

 +54      ;;1516

 +55      ;;21,"63304-0437-01 ")

 +56      ;;1444

 +57      ;;21,"63304-0488-01 ")

 +58      ;;2191

 +59      ;;21,"63304-0489-01 ")

 +60      ;;2257

 +61      ;;21,"63304-0490-01 ")

 +62      ;;2348

 +63      ;;21,"63304-0490-05 ")

 +64      ;;2349

 +65      ;;21,"63304-0499-30 ")

 +66      ;;319

 +67      ;;21,"63304-0500-30 ")

 +68      ;;277

 +69      ;;21,"63304-0501-30 ")

 +70      ;;288

 +71      ;;21,"63304-0502-30 ")

 +72      ;;291

 +73      ;;21,"63304-0503-30 ")

 +74      ;;295

 +75      ;;21,"63304-0587-30 ")

 +76      ;;300

 +77      ;;21,"63304-0588-30 ")

 +78      ;;309

 +79      ;;21,"63304-0589-30 ")

 +80      ;;315

 +81      ;;21,"63304-0590-30 ")

 +82      ;;262

 +83      ;;21,"63304-0591-30 ")

 +84      ;;269

 +85      ;;21,"63304-0603-30 ")

 +86      ;;283

 +87      ;;21,"63629-1454-01 ")

 +88      ;;132

 +89      ;;21,"63629-1559-01 ")

 +90      ;;1781

 +91      ;;21,"63629-1559-02 ")

 +92      ;;1782

 +93      ;;21,"63629-1560-01 ")

 +94      ;;1837

 +95      ;;21,"63629-1561-01 ")

 +96      ;;1892

 +97      ;;21,"63629-1561-02 ")

 +98      ;;1893

 +99      ;;21,"63629-1561-03 ")

 +100     ;;1894

 +101     ;;21,"63629-1561-04 ")

 +102     ;;1895

 +103     ;;21,"63629-1565-01 ")

 +104     ;;453

 +105     ;;21,"63629-1565-02 ")

 +106     ;;454

 +107     ;;21,"63629-1565-03 ")

 +108     ;;455

 +109     ;;21,"63629-1566-01 ")

 +110     ;;732

 +111     ;;21,"63629-1566-02 ")

 +112     ;;733

 +113     ;;21,"63629-1566-03 ")

 +114     ;;734

 +115     ;;21,"63629-1566-04 ")

 +116     ;;735

 +117     ;;21,"63629-1566-05 ")

 +118     ;;736

 +119     ;;21,"63629-1597-01 ")

 +120     ;;1526

 +121     ;;21,"63629-3052-01 ")

 +122     ;;2316

 +123     ;;21,"63629-3052-02 ")

 +124     ;;2317

 +125     ;;21,"63629-3564-01 ")

 +126     ;;1038

 +127     ;;21,"63629-3649-01 ")

 +128     ;;1356

 +129     ;;21,"63629-3678-01 ")

 +130     ;;555

 +131     ;;21,"63629-3750-01 ")

 +132     ;;1698

 +133     ;;21,"63629-4073-01 ")

 +134     ;;2214

 +135     ;;21,"63629-4089-01 ")

 +136     ;;1640

 +137     ;;21,"63672-0044-03 ")

 +138     ;;554

 +139     ;;21,"63672-0045-03 ")

 +140     ;;731

 +141     ;;21,"63672-0046-03 ")

 +142     ;;452

 +143     ;;21,"63739-0079-01 ")

 +144     ;;1290

 +145     ;;21,"63739-0079-02 ")

 +146     ;;1291

 +147     ;;21,"63739-0079-03 ")

 +148     ;;1292

 +149     ;;21,"63739-0079-10 ")

 +150     ;;1293

 +151     ;;21,"63739-0079-15 ")

 +152     ;;1294

 +153     ;;21,"63739-0080-01 ")

 +154     ;;1351

 +155     ;;21,"63739-0080-02 ")

 +156     ;;1352

 +157     ;;21,"63739-0080-03 ")

 +158     ;;1353

 +159     ;;21,"63739-0080-10 ")

 +160     ;;1354

 +161     ;;21,"63739-0080-15 ")

 +162     ;;1355

 +163     ;;21,"63739-0283-10 ")

 +164     ;;914

 +165     ;;21,"63739-0283-15 ")

 +166     ;;915

 +167     ;;21,"63739-0283-31 ")

 +168     ;;912

 +169     ;;21,"63739-0284-10 ")

 +170     ;;980

 +171     ;;21,"63739-0284-15 ")

 +172     ;;981

 +173     ;;21,"63739-0284-31 ")

 +174     ;;961

 +175     ;;21,"63739-0285-10 ")

 +176     ;;1036

 +177     ;;21,"63739-0285-15 ")

 +178     ;;1037

 +179     ;;21,"63739-0285-31 ")

 +180     ;;1015

 +181     ;;21,"63739-0286-10 ")

 +182     ;;1073

 +183     ;;21,"63739-0286-15 ")

 +184     ;;1074

 +185     ;;21,"63739-0451-10 ")

 +186     ;;1651

 +187     ;;21,"63739-0452-10 ")

 +188     ;;1713

 +189     ;;21,"64455-0100-10 ")

 +190     ;;1082

 +191     ;;21,"64455-0100-30 ")

 +192     ;;1083

 +193     ;;21,"64455-0100-90 ")

 +194     ;;1084

 +195     ;;21,"64455-0101-10 ")

 +196     ;;1091

 +197     ;;21,"64455-0101-30 ")

 +198     ;;1092

 +199     ;;21,"64455-0101-90 ")

 +200     ;;1093

 +201     ;;21,"64455-0102-10 ")

 +202     ;;1105

 +203     ;;21,"64455-0102-30 ")

 +204     ;;1106

 +205     ;;21,"64455-0102-90 ")

 +206     ;;1107

 +207     ;;21,"64455-0103-30 ")

 +208     ;;1116

 +209     ;;21,"64455-0103-90 ")

 +210     ;;1117

 +211     ;;21,"64455-0104-10 ")

 +212     ;;1128

 +213     ;;21,"64455-0104-30 ")

 +214     ;;1129

 +215     ;;21,"64455-0104-90 ")

 +216     ;;1130

 +217     ;;21,"64455-0105-10 ")

 +218     ;;1139

 +219     ;;21,"64455-0105-30 ")

 +220     ;;1140

 +221     ;;21,"64455-0105-90 ")

 +222     ;;1141

 +223     ;;21,"64455-0771-47 ")

 +224     ;;1288

 +225     ;;21,"64455-0771-55 ")

 +226     ;;1289

 +227     ;;21,"64455-0772-47 ")

 +228     ;;1349

 +229     ;;21,"64455-0772-55 ")

 +230     ;;1350

 +231     ;;21,"64455-0791-47 ")

 +232     ;;1405

 +233     ;;21,"64455-0792-47 ")

 +234     ;;1276

 +235     ;;21,"64455-0795-30 ")

 +236     ;;886

 +237     ;;21,"64455-0795-42 ")

 +238     ;;887

 +239     ;;21,"64455-0795-49 ")

 +240     ;;888

 +241     ;;21,"64455-0796-30 ")

 +242     ;;934

 +243     ;;21,"64455-0796-42 ")

 +244     ;;935

 +245     ;;21,"64455-0796-49 ")

 +246     ;;936

 +247     ;;21,"64455-0796-50 ")

 +248     ;;937

 +249     ;;21,"64455-0797-30 ")

 +250     ;;991

 +251     ;;21,"64455-0797-42 ")

 +252     ;;992

 +253     ;;21,"64455-0797-49 ")

 +254     ;;993

 +255     ;;21,"64455-0798-30 ")

 +256     ;;1049

 +257     ;;21,"64455-0798-42 ")

 +258     ;;1050

 +259     ;;21,"64455-0798-49 ")

 +260     ;;1051

 +261     ;;21,"64455-0799-42 ")

 +262     ;;1075

 +263     ;;21,"64679-0421-01 ")

 +264     ;;558

 +265     ;;21,"64679-0422-01 ")

 +266     ;;727

 +267     ;;21,"64679-0422-02 ")

 +268     ;;728

 +269     ;;21,"64679-0423-01 ")

 +270     ;;458

 +271     ;;21,"64679-0423-02 ")

 +272     ;;459

 +273     ;;21,"65162-0006-09 ")

 +274     ;;556

 +275     ;;21,"65162-0006-50 ")

 +276     ;;557

 +277     ;;21,"65162-0007-09 ")

 +278     ;;729

 +279     ;;21,"65162-0007-50 ")

 +280     ;;730

 +281     ;;21,"65162-0008-09 ")

 +282     ;;456

 +283     ;;21,"65162-0008-50 ")

 +284     ;;457

 +285     ;;21,"65162-0588-10 ")

 +286     ;;1589

 +287     ;;21,"65162-0589-10 ")

 +288     ;;1604

 +289     ;;21,"65243-0028-09 ")

 +290     ;;1527

 +291     ;;21,"65243-0054-09 ")

 +292     ;;1697

 +293     ;;21,"65243-0111-09 ")

 +294     ;;1455

 +295     ;;21,"65243-0260-09 ")

 +296     ;;2312

 +297     ;;21,"65243-0311-09 ")

 +298     ;;1528

 +299     ;;21,"65243-0312-09 ")

 +300     ;;1456

 +301     ;;21,"65243-0312-18 ")

 +302     ;;1457

 +303     ;;21,"65243-0317-09 ")

 +304     ;;1652

 +305     ;;21,"65243-0318-09 ")

 +306     ;;1710

 +307     ;;21,"65597-0110-10 ")

 +308     ;;219

 +309     ;;21,"65597-0110-30 ")

 +310     ;;220

 +311     ;;21,"65597-0110-90 ")

 +312     ;;221

 +313     ;;21,"65597-0111-10 ")

 +314     ;;211

 +315     ;;21,"65597-0111-30 ")

 +316     ;;212

 +317     ;;21,"65597-0111-90 ")

 +318     ;;213

 +319     ;;21,"65597-0112-10 ")

 +320     ;;222

 +321     ;;21,"65597-0112-30 ")

 +322     ;;223

 +323     ;;21,"65597-0112-90 ")

 +324     ;;224

 +325     ;;21,"65597-0113-10 ")

 +326     ;;214

 +327     ;;21,"65597-0113-30 ")

 +328     ;;215

 +329     ;;21,"65597-0113-90 ")

 +330     ;;216

 +331     ;;21,"65597-0114-30 ")

 +332     ;;250

 +333     ;;21,"65597-0114-90 ")

 +334     ;;251

 +335     ;;21,"65597-0115-30 ")

 +336     ;;256

 +337     ;;21,"65597-0115-90 ")

 +338     ;;257

 +339     ;;21,"65597-0116-30 ")

 +340     ;;258

 +341     ;;21,"65597-0116-90 ")

 +342     ;;259

 +343     ;;21,"65597-0117-30 ")

 +344     ;;252

 +345     ;;21,"65597-0117-90 ")

 +346     ;;253

 +347     ;;21,"65597-0118-30 ")

 +348     ;;254

 +349     ;;21,"65597-0118-90 ")

 +350     ;;255

 +351     ;;21,"65726-0226-15 ")

 +352     ;;1553

 +353     ;;21,"65726-0226-25 ")

 +354     ;;1554

 +355     ;;21,"65726-0227-15 ")

 +356     ;;1558

 +357     ;;21,"65726-0227-25 ")

 +358     ;;1559

 +359     ;;21,"65726-0235-10 ")

 +360     ;;1571

 +361     ;;21,"65726-0235-25 ")

 +362     ;;1572

 +363     ;;21,"65726-0236-10 ")

 +364     ;;1567

 +365     ;;21,"65726-0236-25 ")

 +366     ;;1568

 +367     ;;21,"65862-0101-05 ")

 +368     ;;559

 +369     ;;21,"65862-0101-90 ")

 +370     ;;560

 +371     ;;21,"65862-0101-99 ")

 +372     ;;561

 +373     ;;21,"65862-0102-05 ")

 +374     ;;724

 +375     ;;21,"65862-0102-90 ")

 +376     ;;725

 +377     ;;21,"65862-0102-99 ")

 +378     ;;726

 +379     ;;21,"65862-0103-05 ")

 +380     ;;460

 +381     ;;21,"65862-0103-90 ")

 +382     ;;461

 +383     ;;21,"65862-0103-99 ")

 +384     ;;462

 +385     ;;21,"66105-0528-01 ")

 +386     ;;737

 +387     ;;21,"66105-0528-03 ")

 +388     ;;738

 +389     ;;21,"66105-0528-06 ")

 +390     ;;739

 +391     ;;21,"66105-0528-09 ")

 +392     ;;740

 +393     ;;21,"66105-0528-10 ")

 +394     ;;741

 +395     ;;21,"66105-0529-01 ")

 +396     ;;464

 +397     ;;21,"66105-0529-03 ")

 +398     ;;465

 +399     ;;21,"66105-0529-06 ")

 +400     ;;466

 +401     ;;21,"66105-0529-09 ")

 +402     ;;467

 +403     ;;21,"66105-0529-10 ")

 +404     ;;468

 +405     ;;21,"66116-0278-30 ")

 +406     ;;1962

 +407     ;;21,"66116-0432-30 ")

 +408     ;;847

 +409     ;;21,"66116-0433-30 ")

 +410     ;;870

 +411     ;;21,"66116-0468-30 ")

 +412     ;;2259

 +413     ;;21,"66116-0492-30 ")

 +414     ;;2354

 +415     ;;21,"66336-0127-30 ")

 +416     ;;1891

 +417     ;;21,"66336-0255-30 ")

 +418     ;;463

 +419     ;;21,"66336-0296-30 ")

 +420     ;;2074

 +421     ;;21,"66336-0296-90 ")

 +422     ;;2075

 +423     ;;21,"66336-0300-30 ")

 +424     ;;2189

 +425     ;;21,"66336-0424-30 ")

 +426     ;;1839

 +427     ;;21,"66336-0669-14 ")

 +428     ;;1016

 +429     ;;21,"66336-0669-30 ")

 +430     ;;1017

 +431     ;;21,"66336-0683-30 ")

 +432     ;;1783

 +433     ;;21,"66336-0781-30 ")

 +434     ;;2211

 +435     ;;21,"66336-0809-30 ")

 +436     ;;722

 +437     ;;21,"66336-0809-90 ")

 +438     ;;723

 +439     ;;21,"66336-0894-30 ")

 +440     ;;450

 +441     ;;21,"66336-0894-90 ")

 +442     ;;451

 +443     ;;21,"66336-0959-30 ")

 +444     ;;2283

 +445     ;;21,"66336-0959-90 ")

 +446     ;;2284

 +447     ;;21,"67286-0813-02 ")

 +448     ;;1605

 +449     ;;21,"67286-0813-03 ")

 +450     ;;1614

 +451     ;;21,"67286-0813-04 ")

 +452     ;;1615

 +453     ;;21,"67286-0814-03 ")

 +454     ;;1606

 +455     ;;21,"67286-0814-04 ")

 +456     ;;1607

 +457     ;;21,"67286-0815-04 ")

 +458     ;;1616

 +459     ;;21,"67544-0071-30 ")

 +460     ;;742

 +461     ;;21,"67544-0086-30 ")

 +462     ;;469

 +463     ;;21,"67544-0093-30 ")

 +464     ;;1530

 +465     ;;21,"67544-0093-53 ")

 +466     ;;1531

 +467     ;;21,"67544-0093-60 ")

 +468     ;;1532

 +469     ;;21,"67544-0093-80 ")

 +470     ;;1533

 +471     ;;21,"67544-0094-30 ")

 +472     ;;1459

 +473     ;;21,"67544-0094-53 ")

 +474     ;;1460

 +475     ;;21,"67544-0094-60 ")

 +476     ;;1461

 +477     ;;21,"67544-0094-70 ")

 +478     ;;1462

 +479     ;;21,"67544-0094-80 ")

 +480     ;;1463

 +481     ;;21,"67544-0110-30 ")

 +482     ;;1630

 +483     ;;21,"67544-0110-60 ")

 +484     ;;1631

 +485     ;;21,"67544-0111-30 ")

 +486     ;;1695

 +487     ;;21,"67544-0111-60 ")

 +488     ;;1696

 +489     ;;21,"67544-0185-60 ")

 +490     ;;1749

 +491     ;;21,"67544-0185-81 ")

 +492     ;;1750

 +493     ;;21,"67544-0185-82 ")

 +494     ;;1751

 +495     ;;21,"67544-0262-30 ")

 +496     ;;1163

 +497     ;;21,"67544-0262-60 ")

 +498     ;;1164

 +499     ;;21,"67544-0263-30 ")

 +500     ;;1188

 +501     ;;21,"67544-0263-60 ")

 +502     ;;1189

 +503     ;;21,"67544-0264-30 ")

 +504     ;;1212

 +505     ;;21,"67544-0264-60 ")

 +506     ;;1213

 +507     ;;21,"67544-0265-30 ")

 +508     ;;1234

 +509     ;;21,"67544-0265-60 ")

 +510     ;;1235

 +511     ;;21,"67544-0266-30 ")

 +512     ;;1260

 +513     ;;21,"67544-0266-60 ")

 +514     ;;1261

 +515     ;;21,"67544-0297-60 ")

 +516     ;;2313

 +517     ;;21,"67544-0344-30 ")

 +518     ;;1492

 +519     ;;21,"67544-0344-60 ")

 +520     ;;1493

 +521     ;;21,"67544-0388-30 ")

 +522     ;;1488

 +523     ;;21,"67544-0388-60 ")

 +524     ;;1489

 +525     ;;21,"67544-0389-30 ")

 +526     ;;1522

 +527     ;;21,"67544-0389-53 ")

 +528     ;;1523

 +529     ;;21,"67544-0389-60 ")

 +530     ;;1524

 +531     ;;21,"67544-0389-80 ")

 +532     ;;1525

 +533     ;;21,"67544-0390-30 ")

 +534     ;;1450

 +535     ;;21,"67544-0390-53 ")

 +536     ;;1451

 +537     ;;21,"67544-0390-60 ")