BGP2TC7.m

BGP2TC7 ;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,"66336-0126-60 ")

 ;;351

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

 ;;1640

 ;;21,"66336-0514-60 ")

 ;;1641

 ;;21,"66336-0514-62 ")

 ;;1612

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

 ;;1639

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

 ;;1946

 ;;21,"66336-0523-60 ")

 ;;1947

 ;;21,"66336-0523-62 ")

 ;;1822

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

 ;;1945

 ;;21,"66336-0587-00 ")

 ;;974

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

 ;;975

 ;;21,"66336-0587-60 ")

 ;;976

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

 ;;977

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

 ;;595

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

 ;;1210

 ;;21,"66336-0719-60 ")

 ;;1211

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

 ;;1212

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

 ;;86

 ;;21,"66336-0772-60 ")

 ;;87

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

 ;;88

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

 ;;336

 ;;21,"66336-0808-60 ")

 ;;337

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

 ;;526

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

 ;;174

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

 ;;175

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

 ;;176

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

 ;;845

 ;;21,"66336-0914-60 ")

 ;;846

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

 ;;847

 ;;21,"67253-0420-09 ")

 ;;978

 ;;21,"67253-0420-10 ")

 ;;979

 ;;21,"67253-0420-11 ")

 ;;980

 ;;21,"67253-0421-09 ")

 ;;1207

 ;;21,"67253-0421-10 ")

 ;;1208

 ;;21,"67253-0421-11 ")

 ;;1209

 ;;21,"67253-0422-09 ")

 ;;856

 ;;21,"67253-0422-10 ")

 ;;857

 ;;21,"67253-0422-11 ")

 ;;858

 ;;21,"67286-4177-01 ")

 ;;752

 ;;21,"67286-4179-01 ")

 ;;761

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

 ;;264

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

 ;;265

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

 ;;266

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

 ;;267

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

 ;;1948

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

 ;;1949

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

 ;;1950

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

 ;;1951

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

 ;;1952

 ;;21,"67544-0076-73 ")

 ;;1953

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

 ;;1954

 ;;21,"67544-0076-86 ")

 ;;1955

 ;;21,"67544-0076-92 ")

 ;;1956

 ;;21,"67544-0076-94 ")

 ;;1957

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

 ;;1645

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

 ;;1646

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

 ;;1647

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

 ;;1648

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

 ;;1224

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

 ;;1225

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

 ;;1226

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

 ;;1227

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

 ;;1228

 ;;21,"67544-0087-73 ")

 ;;1229

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

 ;;1230

 ;;21,"67544-0087-92 ")

 ;;1231

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

 ;;1975

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

 ;;1976

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

 ;;1977

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

 ;;1978

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

 ;;1979

 ;;21,"67544-0122-73 ")

 ;;1980

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

 ;;1981

 ;;21,"67544-0122-86 ")

 ;;1982

 ;;21,"67544-0122-92 ")

 ;;1983

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

 ;;1660

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

 ;;1661

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

 ;;1662

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

 ;;1663

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

 ;;1664

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

 ;;1665

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

 ;;352

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

 ;;353

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

 ;;354

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

 ;;355

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

 ;;356

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

 ;;961

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

 ;;962

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

 ;;963

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

 ;;964

 ;;21,"67544-0161-92 ")

 ;;965

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

 ;;192

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

 ;;193

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

 ;;194

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

 ;;195

 ;;21,"67544-0208-87 ")

 ;;196

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

 ;;966

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

 ;;967

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

 ;;968

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

 ;;969

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

 ;;1984

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

 ;;1985

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

 ;;1986

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

 ;;1987

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

 ;;1988

 ;;21,"67544-0272-73 ")

 ;;1989

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

 ;;1990

 ;;21,"67544-0272-86 ")

 ;;1991

 ;;21,"67544-0272-92 ")

 ;;1992

 ;;21,"67544-0272-94 ")

 ;;1993

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

 ;;1554

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

 ;;1555

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

 ;;1556

 ;;21,"67544-0282-99 ")

 ;;1557

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

 ;;100

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

 ;;101

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

 ;;102

 ;;21,"67544-0326-15 ")

 ;;1232

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

 ;;1233

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

 ;;1234

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

 ;;1235

 ;;21,"67544-0326-73 ")

 ;;1236

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

 ;;1237

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

 ;;844

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

 ;;1238

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

 ;;1239

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

 ;;1240

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

 ;;1241

 ;;21,"67544-0376-73 ")

 ;;1242

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

 ;;1243

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

 ;;1773

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

 ;;1774

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

 ;;1775

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

 ;;1346

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

 ;;1371

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

 ;;1372

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

 ;;1373

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

 ;;1374

 ;;21,"67544-0491-99 ")

 ;;1375

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

 ;;960

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

 ;;1745

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

 ;;1772

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

 ;;1746

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

 ;;1771

 ;;21,"67544-0567-92 ")

 ;;1747

 ;;21,"67544-0567-98 ")

 ;;1748

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

 ;;1420

 ;;21,"67544-0573-99 ")

 ;;1421

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

 ;;1608

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

 ;;1609

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

 ;;1610

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

 ;;1810

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

 ;;1811

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

 ;;1812

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

 ;;1813

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

 ;;1814

 ;;21,"67544-0911-73 ")

 ;;1815

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

 ;;1816

 ;;21,"67544-0911-92 ")

 ;;1817

 ;;21,"67544-0911-94 ")

 ;;1818

 ;;21,"67544-0911-98 ")

 ;;1819

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

 ;;2550

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

 ;;682

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

 ;;170

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

 ;;171

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

 ;;172

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

 ;;173

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

 ;;331

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

 ;;332

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

 ;;333

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

 ;;246

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

 ;;247

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

 ;;80

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

 ;;81

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

 ;;166

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

 ;;167

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

 ;;168

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

 ;;169

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

 ;;1349

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

 ;;329

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

 ;;330

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

 ;;77

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

 ;;78

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

 ;;79

 ;;21,"67544-1199-99 ")

 ;;1405

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

 ;;1524

 ;;21,"67544-1200-42 ")

 ;;1525

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

 ;;1526

 ;;21,"67857-0700-01 ")

 ;;754

 ;;21,"67857-0701-01 ")

 ;;763

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

 ;;2236

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

 ;;2237

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

 ;;2272

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

 ;;2273

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

 ;;2199

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

 ;;2200

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

 ;;2223

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

 ;;2224

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

 ;;248

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

 ;;249

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

 ;;327

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

 ;;328

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

 ;;82

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

 ;;83

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

 ;;164

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

 ;;165

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

 ;;1347

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

 ;;1348

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

 ;;1403

 ;;21,"68084-0302-21 ")

 ;;1404

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

 ;;1451

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

 ;;1452

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

 ;;1522

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

 ;;1523

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

 ;;434

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

 ;;435

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

 ;;485

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

 ;;486

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

 ;;1320

 ;;21,"68084-0487-21 ")

 ;;1321

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

 ;;2256

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

 ;;2257

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

 ;;2292

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

 ;;2293

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

 ;;888

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

 ;;895

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

 ;;896

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

 ;;897

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

 ;;1247

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

 ;;1248

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

 ;;1249

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

 ;;1250

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

 ;;1725

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

 ;;1726

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

 ;;1727

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

 ;;1728

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

 ;;2037

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

 ;;2038

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

 ;;2039

 ;;21,"68115-0239-97 ")

 ;;2040

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

 ;;2393

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

 ;;2394

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

 ;;2494

 ;;21,"68115-0308-99 ")

 ;;2495

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

 ;;2568

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

 ;;2569

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

 ;;2570

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

 ;;2640

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

 ;;2641

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

 ;;1467

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

 ;;557

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

 ;;348

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

 ;;2599

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

 ;;2600

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

 ;;1426

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

 ;;188

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

 ;;189

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

 ;;1466

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

 ;;1246

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

 ;;889

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

 ;;898

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

 ;;2041

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

 ;;1724

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

 ;;2496

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

 ;;2497

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

 ;;2498

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

 ;;2567

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

 ;;258

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

 ;;1465

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

 ;;1540

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

 ;;1363

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

 ;;1364

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

 ;;405

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

 ;;406

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

 ;;1730

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

 ;;2133

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

 ;;2225

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

 ;;460

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

 ;;99

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

 ;;190

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

 ;;262

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

 ;;349

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

 ;;1273

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

 ;;1266

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

 ;;1788

 ;;21,"68382-0022-01 ")

 ;;899

 ;;21,"68382-0022-10 ")

 ;;900

 ;;21,"68382-0023-01 ")

 ;;1244

 ;;21,"68382-0023-10 ")

 ;;1245

 ;;21,"68382-0024-01 ")

 ;;890

 ;;21,"68382-0024-10 ")

 ;;891

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

 ;;259

 ;;21,"68382-0092-05 ")

 ;;260

 ;;21,"68382-0092-17 ")

 ;;261

 ;;21,"68382-0093-01 ")

 ;;345

 ;;21,"68382-0093-05 ")

 ;;346

 ;;21,"68382-0093-17 ")

 ;;347

 ;;21,"68382-0094-01 ")

 ;;96

 ;;21,"68382-0094-05 ")

 ;;97

 ;;21,"68382-0094-17 ")

 ;;98

 ;;21,"68382-0095-01 ")

 ;;185

 ;;21,"68382-0095-05 ")

 ;;186

 ;;21,"68382-0095-17 ")

 ;;187

 ;;21,"68387-0537-30 ")

 ;;1251

 ;;21,"68387-0538-30 ")

 ;;1252

 ;;21,"68387-0539-30 ")

 ;;887

 ;;21,"68462-0162-01 ")

 ;;256

 ;;21,"68462-0162-05 ")

 ;;257

 ;;21,"68462-0163-01 ")

 ;;343

 ;;21,"68462-0163-05 ")

 ;;344

 ;;21,"68462-0164-01 ")

 ;;94

 ;;21,"68462-0164-05 ")

 ;;95

 ;;21,"68462-0165-01 ")

 ;;183

 ;;21,"68462-0165-05 ")

 ;;184

 ;;21,"68645-0190-59 ")

 ;;2036

 ;;21,"68645-0191-59 ")

 ;;1729

 ;;9002226,1195,.01)

 ;;BGP PQA BETA BLOCKER NDC

 ;;9002226,1195,.02)

 ;;@

 ;;9002226,1195,.04)

 ;;n

 ;;9002226,1195,.06)

 ;;@

 ;;9002226,1195,.08)

 ;;@

 ;;9002226,1195,.09)

 ;;3120312

 ;;9002226,1195,.11)

 ;;@

 ;;9002226,1195,.12)

 ;;@

 ;;9002226,1195,.13)

 ;;1

 ;;9002226,1195,.14)

 ;;@

 ;;9002226,1195,.15)

 ;;@

 ;;9002226,1195,.16)

 ;;@

 ;;9002226,1195,.17)

 ;;@

 ;;9002226,1195,3101)

 ;;@

 ;;9002226.02101,"1195,00003-0207-50 ",.01)

 ;;00003-0207-50

 ;;9002226.02101,"1195,00003-0207-50 ",.02)

 ;;00003-0207-50

 ;;9002226.02101,"1195,00003-0207-76 ",.01)

 ;;00003-0207-76

 ;;9002226.02101,"1195,00003-0207-76 ",.02)

 ;;00003-0207-76

 ;;9002226.02101,"1195,00003-0208-50 ",.01)

 ;;00003-0208-50

 ;;9002226.02101,"1195,00003-0208-50 ",.02)

 ;;00003-0208-50

 ;;9002226.02101,"1195,00003-0232-50 ",.01)

 ;;00003-0232-50

 ;;9002226.02101,"1195,00003-0232-50 ",.02)

 ;;00003-0232-50

 ;;9002226.02101,"1195,00003-0241-50 ",.01)

 ;;00003-0241-50

 ;;9002226.02101,"1195,00003-0241-50 ",.02)

 ;;00003-0241-50

 ;;9002226.02101,"1195,00003-0241-76 ",.01)

 ;;00003-0241-76

 ;;9002226.02101,"1195,00003-0241-76 ",.02)

 ;;00003-0241-76

 ;;9002226.02101,"1195,00003-0246-49 ",.01)

 ;;00003-0246-49

 ;;9002226.02101,"1195,00003-0246-49 ",.02)

 ;;00003-0246-49

 ;;9002226.02101,"1195,00003-0283-50 ",.01)

 ;;00003-0283-50

 ;;9002226.02101,"1195,00003-0283-50 ",.02)

 ;;00003-0283-50

 ;;9002226.02101,"1195,00005-3219-43 ",.01)

 ;;00005-3219-43

 ;;9002226.02101,"1195,00005-3219-43 ",.02)

 ;;00005-3219-43

 ;;9002226.02101,"1195,00005-3220-34 ",.01)

 ;;00005-3220-34

 ;;9002226.02101,"1195,00005-3220-34 ",.02)

 ;;00005-3220-34

 ;;9002226.02101,"1195,00005-3234-23 ",.01)

 ;;00005-3234-23

 ;;9002226.02101,"1195,00005-3234-23 ",.02)

 ;;00005-3234-23

 ;;9002226.02101,"1195,00005-3235-38 ",.01)

 ;;00005-3235-38

 ;;9002226.02101,"1195,00005-3235-38 ",.02)

 ;;00005-3235-38

 ;;9002226.02101,"1195,00005-3238-23 ",.01)

 ;;00005-3238-23

 ;;9002226.02101,"1195,00005-3238-23 ",.02)

 ;;00005-3238-23

 ;;9002226.02101,"1195,00005-3816-38 ",.01)

 ;;00005-3816-38

 ;;9002226.02101,"1195,00005-3816-38 ",.02)

 ;;00005-3816-38

 ;;9002226.02101,"1195,00005-3817-38 ",.01)

 ;;00005-3817-38

 ;;9002226.02101,"1195,00005-3817-38 ",.02)

 ;;00005-3817-38

 ;;9002226.02101,"1195,00006-0059-68 ",.01)

 ;;00006-0059-68

 ;;9002226.02101,"1195,00006-0059-68 ",.02)

 ;;00006-0059-68

 ;;9002226.02101,"1195,00006-0067-68 ",.01)

 ;;00006-0067-68

 ;;9002226.02101,"1195,00006-0067-68 ",.02)

 ;;00006-0067-68

 ;;9002226.02101,"1195,00006-0136-68 ",.01)

 ;;00006-0136-68

BGP2TC7   ;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,"66336-0126-60 ")

 +2       ;;351

 +3       ;;21,"66336-0514-30 ")

 +4       ;;1640

 +5       ;;21,"66336-0514-60 ")

 +6       ;;1641

 +7       ;;21,"66336-0514-62 ")

 +8       ;;1612

 +9       ;;21,"66336-0514-90 ")

 +10      ;;1639

 +11      ;;21,"66336-0523-30 ")

 +12      ;;1946

 +13      ;;21,"66336-0523-60 ")

 +14      ;;1947

 +15      ;;21,"66336-0523-62 ")

 +16      ;;1822

 +17      ;;21,"66336-0523-90 ")

 +18      ;;1945

 +19      ;;21,"66336-0587-00 ")

 +20      ;;974

 +21      ;;21,"66336-0587-30 ")

 +22      ;;975

 +23      ;;21,"66336-0587-60 ")

 +24      ;;976

 +25      ;;21,"66336-0587-90 ")

 +26      ;;977

 +27      ;;21,"66336-0612-90 ")

 +28      ;;595

 +29      ;;21,"66336-0719-30 ")

 +30      ;;1210

 +31      ;;21,"66336-0719-60 ")

 +32      ;;1211

 +33      ;;21,"66336-0719-90 ")

 +34      ;;1212

 +35      ;;21,"66336-0772-30 ")

 +36      ;;86

 +37      ;;21,"66336-0772-60 ")

 +38      ;;87

 +39      ;;21,"66336-0772-90 ")

 +40      ;;88

 +41      ;;21,"66336-0808-30 ")

 +42      ;;336

 +43      ;;21,"66336-0808-60 ")

 +44      ;;337

 +45      ;;21,"66336-0811-90 ")

 +46      ;;526

 +47      ;;21,"66336-0837-30 ")

 +48      ;;174

 +49      ;;21,"66336-0837-60 ")

 +50      ;;175

 +51      ;;21,"66336-0837-90 ")

 +52      ;;176

 +53      ;;21,"66336-0914-30 ")

 +54      ;;845

 +55      ;;21,"66336-0914-60 ")

 +56      ;;846

 +57      ;;21,"66336-0914-90 ")

 +58      ;;847

 +59      ;;21,"67253-0420-09 ")

 +60      ;;978

 +61      ;;21,"67253-0420-10 ")

 +62      ;;979

 +63      ;;21,"67253-0420-11 ")

 +64      ;;980

 +65      ;;21,"67253-0421-09 ")

 +66      ;;1207

 +67      ;;21,"67253-0421-10 ")

 +68      ;;1208

 +69      ;;21,"67253-0421-11 ")

 +70      ;;1209

 +71      ;;21,"67253-0422-09 ")

 +72      ;;856

 +73      ;;21,"67253-0422-10 ")

 +74      ;;857

 +75      ;;21,"67253-0422-11 ")

 +76      ;;858

 +77      ;;21,"67286-4177-01 ")

 +78      ;;752

 +79      ;;21,"67286-4179-01 ")

 +80      ;;761

 +81      ;;21,"67544-0043-30 ")

 +82      ;;264

 +83      ;;21,"67544-0043-53 ")

 +84      ;;265

 +85      ;;21,"67544-0043-60 ")

 +86      ;;266

 +87      ;;21,"67544-0043-80 ")

 +88      ;;267

 +89      ;;21,"67544-0076-30 ")

 +90      ;;1948

 +91      ;;21,"67544-0076-45 ")

 +92      ;;1949

 +93      ;;21,"67544-0076-53 ")

 +94      ;;1950

 +95      ;;21,"67544-0076-60 ")

 +96      ;;1951

 +97      ;;21,"67544-0076-70 ")

 +98      ;;1952

 +99      ;;21,"67544-0076-73 ")

 +100     ;;1953

 +101     ;;21,"67544-0076-80 ")

 +102     ;;1954

 +103     ;;21,"67544-0076-86 ")

 +104     ;;1955

 +105     ;;21,"67544-0076-92 ")

 +106     ;;1956

 +107     ;;21,"67544-0076-94 ")

 +108     ;;1957

 +109     ;;21,"67544-0077-53 ")

 +110     ;;1645

 +111     ;;21,"67544-0077-60 ")

 +112     ;;1646

 +113     ;;21,"67544-0077-70 ")

 +114     ;;1647

 +115     ;;21,"67544-0077-80 ")

 +116     ;;1648

 +117     ;;21,"67544-0087-30 ")

 +118     ;;1224

 +119     ;;21,"67544-0087-45 ")

 +120     ;;1225

 +121     ;;21,"67544-0087-53 ")

 +122     ;;1226

 +123     ;;21,"67544-0087-60 ")

 +124     ;;1227

 +125     ;;21,"67544-0087-70 ")

 +126     ;;1228

 +127     ;;21,"67544-0087-73 ")

 +128     ;;1229

 +129     ;;21,"67544-0087-80 ")

 +130     ;;1230

 +131     ;;21,"67544-0087-92 ")

 +132     ;;1231

 +133     ;;21,"67544-0122-30 ")

 +134     ;;1975

 +135     ;;21,"67544-0122-45 ")

 +136     ;;1976

 +137     ;;21,"67544-0122-53 ")

 +138     ;;1977

 +139     ;;21,"67544-0122-60 ")

 +140     ;;1978

 +141     ;;21,"67544-0122-70 ")

 +142     ;;1979

 +143     ;;21,"67544-0122-73 ")

 +144     ;;1980

 +145     ;;21,"67544-0122-80 ")

 +146     ;;1981

 +147     ;;21,"67544-0122-86 ")

 +148     ;;1982

 +149     ;;21,"67544-0122-92 ")

 +150     ;;1983

 +151     ;;21,"67544-0130-30 ")

 +152     ;;1660

 +153     ;;21,"67544-0130-45 ")

 +154     ;;1661

 +155     ;;21,"67544-0130-53 ")

 +156     ;;1662

 +157     ;;21,"67544-0130-60 ")

 +158     ;;1663

 +159     ;;21,"67544-0130-70 ")

 +160     ;;1664

 +161     ;;21,"67544-0130-80 ")

 +162     ;;1665

 +163     ;;21,"67544-0143-30 ")

 +164     ;;352

 +165     ;;21,"67544-0143-53 ")

 +166     ;;353

 +167     ;;21,"67544-0143-60 ")

 +168     ;;354

 +169     ;;21,"67544-0143-70 ")

 +170     ;;355

 +171     ;;21,"67544-0143-80 ")

 +172     ;;356

 +173     ;;21,"67544-0161-30 ")

 +174     ;;961

 +175     ;;21,"67544-0161-45 ")

 +176     ;;962

 +177     ;;21,"67544-0161-60 ")

 +178     ;;963

 +179     ;;21,"67544-0161-80 ")

 +180     ;;964

 +181     ;;21,"67544-0161-92 ")

 +182     ;;965

 +183     ;;21,"67544-0208-30 ")

 +184     ;;192

 +185     ;;21,"67544-0208-53 ")

 +186     ;;193

 +187     ;;21,"67544-0208-60 ")

 +188     ;;194

 +189     ;;21,"67544-0208-80 ")

 +190     ;;195

 +191     ;;21,"67544-0208-87 ")

 +192     ;;196

 +193     ;;21,"67544-0240-30 ")

 +194     ;;966

 +195     ;;21,"67544-0240-45 ")

 +196     ;;967

 +197     ;;21,"67544-0240-60 ")

 +198     ;;968

 +199     ;;21,"67544-0240-80 ")

 +200     ;;969

 +201     ;;21,"67544-0272-30 ")

 +202     ;;1984

 +203     ;;21,"67544-0272-45 ")

 +204     ;;1985

 +205     ;;21,"67544-0272-53 ")

 +206     ;;1986

 +207     ;;21,"67544-0272-60 ")

 +208     ;;1987

 +209     ;;21,"67544-0272-70 ")

 +210     ;;1988

 +211     ;;21,"67544-0272-73 ")

 +212     ;;1989

 +213     ;;21,"67544-0272-80 ")

 +214     ;;1990

 +215     ;;21,"67544-0272-86 ")

 +216     ;;1991

 +217     ;;21,"67544-0272-92 ")

 +218     ;;1992

 +219     ;;21,"67544-0272-94 ")

 +220     ;;1993

 +221     ;;21,"67544-0282-30 ")

 +222     ;;1554

 +223     ;;21,"67544-0282-45 ")

 +224     ;;1555

 +225     ;;21,"67544-0282-82 ")

 +226     ;;1556

 +227     ;;21,"67544-0282-99 ")

 +228     ;;1557

 +229     ;;21,"67544-0305-30 ")

 +230     ;;100

 +231     ;;21,"67544-0305-53 ")

 +232     ;;101

 +233     ;;21,"67544-0305-60 ")

 +234     ;;102

 +235     ;;21,"67544-0326-15 ")

 +236     ;;1232

 +237     ;;21,"67544-0326-30 ")

 +238     ;;1233

 +239     ;;21,"67544-0326-45 ")

 +240     ;;1234

 +241     ;;21,"67544-0326-60 ")

 +242     ;;1235

 +243     ;;21,"67544-0326-73 ")

 +244     ;;1236

 +245     ;;21,"67544-0326-80 ")

 +246     ;;1237

 +247     ;;21,"67544-0332-60 ")

 +248     ;;844

 +249     ;;21,"67544-0376-30 ")

 +250     ;;1238

 +251     ;;21,"67544-0376-45 ")

 +252     ;;1239

 +253     ;;21,"67544-0376-60 ")

 +254     ;;1240

 +255     ;;21,"67544-0376-70 ")

 +256     ;;1241

 +257     ;;21,"67544-0376-73 ")

 +258     ;;1242

 +259     ;;21,"67544-0376-80 ")

 +260     ;;1243

 +261     ;;21,"67544-0387-30 ")

 +262     ;;1773

 +263     ;;21,"67544-0387-60 ")

 +264     ;;1774

 +265     ;;21,"67544-0387-80 ")

 +266     ;;1775

 +267     ;;21,"67544-0491-45 ")

 +268     ;;1346

 +269     ;;21,"67544-0491-53 ")

 +270     ;;1371

 +271     ;;21,"67544-0491-60 ")

 +272     ;;1372

 +273     ;;21,"67544-0491-80 ")

 +274     ;;1373

 +275     ;;21,"67544-0491-82 ")

 +276     ;;1374

 +277     ;;21,"67544-0491-99 ")

 +278     ;;1375

 +279     ;;21,"67544-0565-60 ")

 +280     ;;960

 +281     ;;21,"67544-0567-30 ")

 +282     ;;1745

 +283     ;;21,"67544-0567-60 ")

 +284     ;;1772

 +285     ;;21,"67544-0567-70 ")

 +286     ;;1746

 +287     ;;21,"67544-0567-80 ")

 +288     ;;1771

 +289     ;;21,"67544-0567-92 ")

 +290     ;;1747

 +291     ;;21,"67544-0567-98 ")

 +292     ;;1748

 +293     ;;21,"67544-0573-82 ")

 +294     ;;1420

 +295     ;;21,"67544-0573-99 ")

 +296     ;;1421

 +297     ;;21,"67544-0627-53 ")

 +298     ;;1608

 +299     ;;21,"67544-0627-60 ")

 +300     ;;1609

 +301     ;;21,"67544-0627-80 ")

 +302     ;;1610

 +303     ;;21,"67544-0911-30 ")

 +304     ;;1810

 +305     ;;21,"67544-0911-45 ")

 +306     ;;1811

 +307     ;;21,"67544-0911-53 ")

 +308     ;;1812

 +309     ;;21,"67544-0911-60 ")

 +310     ;;1813

 +311     ;;21,"67544-0911-70 ")

 +312     ;;1814

 +313     ;;21,"67544-0911-73 ")

 +314     ;;1815

 +315     ;;21,"67544-0911-80 ")

 +316     ;;1816

 +317     ;;21,"67544-0911-92 ")

 +318     ;;1817

 +319     ;;21,"67544-0911-94 ")

 +320     ;;1818

 +321     ;;21,"67544-0911-98 ")

 +322     ;;1819

 +323     ;;21,"67544-0929-60 ")

 +324     ;;2550

 +325     ;;21,"67544-1055-30 ")

 +326     ;;682

 +327     ;;21,"67544-1123-53 ")

 +328     ;;170

 +329     ;;21,"67544-1135-30 ")

 +330     ;;171

 +331     ;;21,"67544-1135-53 ")

 +332     ;;172

 +333     ;;21,"67544-1135-60 ")

 +334     ;;173

 +335     ;;21,"67544-1143-53 ")

 +336     ;;331

 +337     ;;21,"67544-1143-60 ")

 +338     ;;332

 +339     ;;21,"67544-1143-80 ")

 +340     ;;333

 +341     ;;21,"67544-1145-53 ")

 +342     ;;246

 +343     ;;21,"67544-1145-60 ")

 +344     ;;247

 +345     ;;21,"67544-1146-30 ")

 +346     ;;80

 +347     ;;21,"67544-1146-60 ")

 +348     ;;81

 +349     ;;21,"67544-1159-30 ")

 +350     ;;166

 +351     ;;21,"67544-1159-53 ")

 +352     ;;167

 +353     ;;21,"67544-1159-60 ")

 +354     ;;168

 +355     ;;21,"67544-1159-80 ")

 +356     ;;169

 +357     ;;21,"67544-1160-82 ")

 +358     ;;1349

 +359     ;;21,"67544-1182-53 ")

 +360     ;;329

 +361     ;;21,"67544-1182-80 ")

 +362     ;;330

 +363     ;;21,"67544-1187-30 ")

 +364     ;;77

 +365     ;;21,"67544-1187-53 ")

 +366     ;;78

 +367     ;;21,"67544-1187-60 ")

 +368     ;;79

 +369     ;;21,"67544-1199-99 ")

 +370     ;;1405

 +371     ;;21,"67544-1200-30 ")

 +372     ;;1524

 +373     ;;21,"67544-1200-42 ")

 +374     ;;1525

 +375     ;;21,"67544-1200-45 ")

 +376     ;;1526

 +377     ;;21,"67857-0700-01 ")

 +378     ;;754

 +379     ;;21,"67857-0701-01 ")

 +380     ;;763

 +381     ;;21,"68084-0209-01 ")

 +382     ;;2236

 +383     ;;21,"68084-0209-11 ")

 +384     ;;2237

 +385     ;;21,"68084-0210-01 ")

 +386     ;;2272

 +387     ;;21,"68084-0210-11 ")

 +388     ;;2273

 +389     ;;21,"68084-0211-01 ")

 +390     ;;2199

 +391     ;;21,"68084-0211-11 ")

 +392     ;;2200

 +393     ;;21,"68084-0212-01 ")

 +394     ;;2223

 +395     ;;21,"68084-0212-11 ")

 +396     ;;2224

 +397     ;;21,"68084-0261-01 ")

 +398     ;;248

 +399     ;;21,"68084-0261-11 ")

 +400     ;;249

 +401     ;;21,"68084-0262-01 ")

 +402     ;;327

 +403     ;;21,"68084-0262-11 ")

 +404     ;;328

 +405     ;;21,"68084-0263-01 ")

 +406     ;;82

 +407     ;;21,"68084-0263-11 ")

 +408     ;;83

 +409     ;;21,"68084-0264-01 ")

 +410     ;;164

 +411     ;;21,"68084-0264-11 ")

 +412     ;;165

 +413     ;;21,"68084-0301-01 ")

 +414     ;;1347

 +415     ;;21,"68084-0301-11 ")

 +416     ;;1348

 +417     ;;21,"68084-0302-11 ")

 +418     ;;1403

 +419     ;;21,"68084-0302-21 ")

 +420     ;;1404

 +421     ;;21,"68084-0303-01 ")

 +422     ;;1451

 +423     ;;21,"68084-0303-11 ")

 +424     ;;1452

 +425     ;;21,"68084-0304-01 ")

 +426     ;;1522

 +427     ;;21,"68084-0304-11 ")

 +428     ;;1523

 +429     ;;21,"68084-0456-01 ")

 +430     ;;434

 +431     ;;21,"68084-0456-11 ")

 +432     ;;435

 +433     ;;21,"68084-0457-01 ")

 +434     ;;485

 +435     ;;21,"68084-0457-11 ")

 +436     ;;486

 +437     ;;21,"68084-0487-11 ")

 +438     ;;1320

 +439     ;;21,"68084-0487-21 ")

 +440     ;;1321

 +441     ;;21,"68084-0503-01 ")

 +442     ;;2256

 +443     ;;21,"68084-0503-11 ")

 +444     ;;2257

 +445     ;;21,"68084-0504-01 ")

 +446     ;;2292

 +447     ;;21,"68084-0504-11 ")

 +448     ;;2293

 +449     ;;21,"68115-0038-30 ")

 +450     ;;888

 +451     ;;21,"68115-0039-30 ")

 +452     ;;895

 +453     ;;21,"68115-0039-60 ")

 +454     ;;896

 +455     ;;21,"68115-0039-90 ")

 +456     ;;897

 +457     ;;21,"68115-0040-15 ")

 +458     ;;1247

 +459     ;;21,"68115-0040-30 ")

 +460     ;;1248

 +461     ;;21,"68115-0040-60 ")

 +462     ;;1249

 +463     ;;21,"68115-0040-90 ")

 +464     ;;1250

 +465     ;;21,"68115-0238-00 ")

 +466     ;;1725

 +467     ;;21,"68115-0238-30 ")

 +468     ;;1726

 +469     ;;21,"68115-0238-60 ")

 +470     ;;1727

 +471     ;;21,"68115-0238-90 ")

 +472     ;;1728

 +473     ;;21,"68115-0239-30 ")

 +474     ;;2037

 +475     ;;21,"68115-0239-60 ")

 +476     ;;2038

 +477     ;;21,"68115-0239-90 ")

 +478     ;;2039

 +479     ;;21,"68115-0239-97 ")

 +480     ;;2040

 +481     ;;21,"68115-0307-30 ")

 +482     ;;2393

 +483     ;;21,"68115-0307-60 ")

 +484     ;;2394

 +485     ;;21,"68115-0308-60 ")

 +486     ;;2494

 +487     ;;21,"68115-0308-99 ")

 +488     ;;2495

 +489     ;;21,"68115-0309-30 ")

 +490     ;;2568

 +491     ;;21,"68115-0309-60 ")

 +492     ;;2569

 +493     ;;21,"68115-0309-90 ")

 +494     ;;2570

 +495     ;;21,"68115-0310-30 ")

 +496     ;;2640

 +497     ;;21,"68115-0310-60 ")

 +498     ;;2641

 +499     ;;21,"68115-0419-30 ")

 +500     ;;1467

 +501     ;;21,"68115-0458-30 ")

 +502     ;;557

 +503     ;;21,"68115-0551-00 ")

 +504     ;;348

 +505     ;;21,"68115-0629-00 ")

 +506     ;;2599

 +507     ;;21,"68115-0629-30 ")

 +508     ;;2600

 +509     ;;21,"68115-0715-00 ")

 +510     ;;1426

 +511     ;;21,"68115-0727-00 ")

 +512     ;;188

 +513     ;;21,"68115-0727-30 ")

 +514     ;;189

 +515     ;;21,"68115-0741-00 ")

 +516     ;;1466

 +517     ;;21,"68258-1005-01 ")

 +518     ;;1246

 +519     ;;21,"68258-1075-01 ")

 +520     ;;889

 +521     ;;21,"68258-1078-01 ")

 +522     ;;898

 +523     ;;21,"68258-1082-01 ")

 +524     ;;2041

 +525     ;;21,"68258-1083-01 ")

 +526     ;;1724

 +527     ;;21,"68258-6010-01 ")

 +528     ;;2496

 +529     ;;21,"68258-6010-03 ")

 +530     ;;2497

 +531     ;;21,"68258-6010-09 ")

 +532     ;;2498

 +533     ;;21,"68258-6011-09 ")

 +534     ;;2567

 +535     ;;21,"68258-6015-03 ")

 +536     ;;258

 +537     ;;21,"68258-6018-03 ")

 +538     ;;1465

 +539     ;;21,"68258-6019-03 ")

 +540     ;;1540

 +541     ;;21,"68258-6020-03 ")

 +542     ;;1363

 +543     ;;21,"68258-6020-09 ")

 +544     ;;1364

 +545     ;;21,"68258-6026-03 ")

 +546     ;;405

 +547     ;;21,"68258-6026-09 ")

 +548     ;;406

 +549     ;;21,"68258-6033-09 ")

 +550     ;;1730

 +551     ;;21,"68258-6034-03 ")

 +552     ;;2133

 +553     ;;21,"68258-6039-03 ")

 +554     ;;2225

 +555     ;;21,"68258-6047-03 ")

 +556     ;;460

 +557     ;;21,"68258-9004-01 ")

 +558     ;;99

 +559     ;;21,"68258-9005-01 ")

 +560     ;;190

 +561     ;;21,"68258-9006-01 ")

 +562     ;;262

 +563     ;;21,"68258-9007-01 ")

 +564     ;;349

 +565     ;;21,"68258-9023-01 ")

 +566     ;;1273

 +567     ;;21,"68258-9037-01 ")

 +568     ;;1266

 +569     ;;21,"68258-9150-01 ")

 +570     ;;1788

 +571     ;;21,"68382-0022-01 ")

 +572     ;;899

 +573     ;;21,"68382-0022-10 ")

 +574     ;;900