BGP51P5.m

BGP51P5 ;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,"55048-0520-30 ")

 ;;1175

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

 ;;980

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

 ;;1574

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

 ;;1307

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

 ;;1355

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

 ;;1356

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

 ;;1357

 ;;21,"55111-0252-01 ")

 ;;1775

 ;;21,"55111-0252-05 ")

 ;;1776

 ;;21,"55111-0253-01 ")

 ;;1896

 ;;21,"55111-0253-05 ")

 ;;1897

 ;;21,"55111-0254-01 ")

 ;;2010

 ;;21,"55111-0254-05 ")

 ;;2011

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

 ;;2135

 ;;21,"55111-0255-05 ")

 ;;2136

 ;;21,"55111-0466-01 ")

 ;;975

 ;;21,"55111-0466-05 ")

 ;;976

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

 ;;1074

 ;;21,"55111-0467-05 ")

 ;;1075

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

 ;;1167

 ;;21,"55111-0468-05 ")

 ;;1168

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

 ;;1216

 ;;21,"55111-0469-05 ")

 ;;1217

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

 ;;1548

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

 ;;1549

 ;;21,"55289-0093-90 ")

 ;;1550

 ;;21,"55289-0093-93 ")

 ;;1551

 ;;21,"55289-0227-01 ")

 ;;463

 ;;21,"55289-0227-30 ")

 ;;464

 ;;21,"55289-0227-90 ")

 ;;465

 ;;21,"55289-0228-01 ")

 ;;577

 ;;21,"55289-0228-03 ")

 ;;578

 ;;21,"55289-0228-06 ")

 ;;579

 ;;21,"55289-0228-14 ")

 ;;580

 ;;21,"55289-0228-30 ")

 ;;581

 ;;21,"55289-0228-60 ")

 ;;582

 ;;21,"55289-0228-90 ")

 ;;583

 ;;21,"55289-0233-01 ")

 ;;176

 ;;21,"55289-0233-12 ")

 ;;177

 ;;21,"55289-0233-60 ")

 ;;178

 ;;21,"55289-0233-90 ")

 ;;179

 ;;21,"55289-0234-01 ")

 ;;180

 ;;21,"55289-0234-30 ")

 ;;181

 ;;21,"55289-0234-90 ")

 ;;182

 ;;21,"55289-0254-30 ")

 ;;747

 ;;21,"55289-0382-30 ")

 ;;1277

 ;;21,"55289-0382-93 ")

 ;;1278

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

 ;;1321

 ;;21,"55289-0413-60 ")

 ;;1322

 ;;21,"55289-0413-90 ")

 ;;1323

 ;;21,"55289-0413-93 ")

 ;;1324

 ;;21,"55289-0413-94 ")

 ;;1325

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

 ;;864

 ;;21,"55289-0627-30 ")

 ;;1317

 ;;21,"55289-0630-30 ")

 ;;2373

 ;;21,"55289-0630-90 ")

 ;;2374

 ;;21,"55289-0653-30 ")

 ;;824

 ;;21,"55289-0653-90 ")

 ;;825

 ;;21,"55289-0855-30 ")

 ;;1081

 ;;21,"55289-0902-30 ")

 ;;984

 ;;21,"55289-0986-30 ")

 ;;1909

 ;;21,"55289-0988-30 ")

 ;;2327

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

 ;;2304

 ;;21,"55289-0993-60 ")

 ;;2305

 ;;21,"55289-0993-90 ")

 ;;2306

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

 ;;185

 ;;21,"55700-0121-30 ")

 ;;392

 ;;21,"55700-0136-30 ")

 ;;339

 ;;21,"57664-0166-08 ")

 ;;1326

 ;;21,"57664-0166-18 ")

 ;;1327

 ;;21,"57664-0166-52 ")

 ;;1328

 ;;21,"57664-0166-58 ")

 ;;1329

 ;;21,"57664-0167-08 ")

 ;;1575

 ;;21,"57664-0167-18 ")

 ;;1576

 ;;21,"57664-0167-52 ")

 ;;1577

 ;;21,"57664-0167-58 ")

 ;;1578

 ;;21,"57664-0242-13 ")

 ;;1782

 ;;21,"57664-0242-18 ")

 ;;1783

 ;;21,"57664-0242-88 ")

 ;;1784

 ;;21,"57664-0244-13 ")

 ;;1901

 ;;21,"57664-0244-18 ")

 ;;1902

 ;;21,"57664-0244-88 ")

 ;;1903

 ;;21,"57664-0245-13 ")

 ;;2018

 ;;21,"57664-0245-18 ")

 ;;2019

 ;;21,"57664-0245-88 ")

 ;;2020

 ;;21,"57664-0247-13 ")

 ;;2148

 ;;21,"57664-0247-18 ")

 ;;2149

 ;;21,"57664-0247-88 ")

 ;;2150

 ;;21,"57664-0264-18 ")

 ;;471

 ;;21,"57664-0264-88 ")

 ;;472

 ;;21,"57664-0265-18 ")

 ;;568

 ;;21,"57664-0265-88 ")

 ;;569

 ;;21,"57664-0266-18 ")

 ;;822

 ;;21,"57664-0266-88 ")

 ;;823

 ;;21,"57664-0477-08 ")

 ;;1330

 ;;21,"57664-0477-18 ")

 ;;1331

 ;;21,"57664-0477-52 ")

 ;;1332

 ;;21,"57664-0477-58 ")

 ;;1333

 ;;21,"57664-0506-08 ")

 ;;1279

 ;;21,"57664-0506-18 ")

 ;;1280

 ;;21,"57664-0506-52 ")

 ;;1281

 ;;21,"57664-0506-58 ")

 ;;1282

 ;;21,"57664-0655-88 ")

 ;;59

 ;;21,"57664-0656-88 ")

 ;;62

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

 ;;246

 ;;21,"58016-0001-30 ")

 ;;247

 ;;21,"58016-0001-60 ")

 ;;248

 ;;21,"58016-0001-90 ")

 ;;249

 ;;21,"58016-0045-00 ")

 ;;1224

 ;;21,"58016-0045-30 ")

 ;;1225

 ;;21,"58016-0045-60 ")

 ;;1226

 ;;21,"58016-0045-90 ")

 ;;1227

 ;;21,"58016-0286-00 ")

 ;;2368

 ;;21,"58016-0286-02 ")

 ;;2369

 ;;21,"58016-0286-30 ")

 ;;2370

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

 ;;2371

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

 ;;2372

 ;;21,"58016-0300-00 ")

 ;;419

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

 ;;420

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

 ;;421

 ;;21,"58016-0300-90 ")

 ;;422

 ;;21,"58016-0331-00 ")

 ;;2328

 ;;21,"58016-0331-30 ")

 ;;2329

 ;;21,"58016-0331-60 ")

 ;;2330

 ;;21,"58016-0331-90 ")

 ;;2331

 ;;21,"58016-0333-00 ")

 ;;564

 ;;21,"58016-0333-15 ")

 ;;565

 ;;21,"58016-0333-30 ")

 ;;566

 ;;21,"58016-0333-60 ")

 ;;567

 ;;21,"58016-0373-00 ")

 ;;1082

 ;;21,"58016-0373-02 ")

 ;;1083

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

 ;;1084

 ;;21,"58016-0373-60 ")

 ;;1085

 ;;21,"58016-0373-90 ")

 ;;1086

 ;;21,"58016-0442-00 ")

 ;;1338

 ;;21,"58016-0442-02 ")

 ;;1339

 ;;21,"58016-0442-30 ")

 ;;1340

 ;;21,"58016-0442-60 ")

 ;;1341

 ;;21,"58016-0442-90 ")

 ;;1342

 ;;21,"58016-0442-99 ")

 ;;1343

 ;;21,"58016-0526-00 ")

 ;;2307

 ;;21,"58016-0526-02 ")

 ;;2308

 ;;21,"58016-0526-30 ")

 ;;2309

 ;;21,"58016-0526-60 ")

 ;;2310

 ;;21,"58016-0526-90 ")

 ;;2311

 ;;21,"58016-0528-00 ")

 ;;63

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

 ;;64

 ;;21,"58016-0528-60 ")

 ;;65

 ;;21,"58016-0529-00 ")

 ;;172

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

 ;;173

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

 ;;174

 ;;21,"58016-0529-50 ")

 ;;175

 ;;21,"58016-0531-00 ")

 ;;183

 ;;21,"58016-0531-30 ")

 ;;184

 ;;21,"58016-0532-00 ")

 ;;250

 ;;21,"58016-0532-02 ")

 ;;251

 ;;21,"58016-0532-60 ")

 ;;252

 ;;21,"58016-0582-00 ")

 ;;473

 ;;21,"58016-0582-15 ")

 ;;474

 ;;21,"58016-0582-20 ")

 ;;475

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

 ;;476

 ;;21,"58016-0582-60 ")

 ;;477

 ;;21,"58016-0604-00 ")

 ;;311

 ;;21,"58016-0640-00 ")

 ;;1334

 ;;21,"58016-0640-15 ")

 ;;1335

 ;;21,"58016-0640-20 ")

 ;;1336

 ;;21,"58016-0640-30 ")

 ;;1337

 ;;21,"58016-0771-00 ")

 ;;826

 ;;21,"58016-0771-12 ")

 ;;827

 ;;21,"58016-0771-15 ")

 ;;828

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

 ;;829

 ;;21,"58016-0771-30 ")

 ;;830

 ;;21,"58016-0771-60 ")

 ;;831

 ;;21,"58016-0859-00 ")

 ;;312

 ;;21,"58016-0859-30 ")

 ;;313

 ;;21,"58016-0859-60 ")

 ;;314

 ;;21,"58016-0859-90 ")

 ;;315

 ;;21,"58016-0974-00 ")

 ;;985

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

 ;;986

 ;;21,"58016-0974-60 ")

 ;;987

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

 ;;988

 ;;21,"58118-0110-03 ")

 ;;66

 ;;21,"58118-0110-09 ")

 ;;67

 ;;21,"58118-0163-03 ")

 ;;1904

 ;;21,"58118-0163-09 ")

 ;;1905

 ;;21,"58118-0164-03 ")

 ;;2021

 ;;21,"58118-0164-09 ")

 ;;2022

 ;;21,"58118-0165-03 ")

 ;;2146

 ;;21,"58118-0165-09 ")

 ;;2147

 ;;21,"58118-0167-06 ")

 ;;1572

 ;;21,"58118-0167-08 ")

 ;;1573

 ;;21,"58118-0405-03 ")

 ;;1080

 ;;21,"58118-0477-06 ")

 ;;1344

 ;;21,"58118-0477-08 ")

 ;;1345

 ;;21,"58118-0477-09 ")

 ;;1346

 ;;21,"58118-0506-03 ")

 ;;1283

 ;;21,"58118-0506-09 ")

 ;;1284

 ;;21,"58118-0621-03 ")

 ;;478

 ;;21,"58118-0621-09 ")

 ;;479

 ;;21,"58118-0622-03 ")

 ;;563

 ;;21,"58118-0622-09 ")

 ;;742

 ;;21,"58118-0623-09 ")

 ;;749

 ;;21,"58118-0734-03 ")

 ;;919

 ;;21,"58118-0736-03 ")

 ;;1110

 ;;21,"58177-0293-04 ")

 ;;916

 ;;21,"58177-0293-09 ")

 ;;917

 ;;21,"58177-0293-11 ")

 ;;918

 ;;21,"58177-0358-04 ")

 ;;1188

 ;;21,"58177-0358-09 ")

 ;;1189

 ;;21,"58177-0368-04 ")

 ;;1107

 ;;21,"58177-0368-09 ")

 ;;1108

 ;;21,"58177-0368-11 ")

 ;;1109

 ;;21,"58177-0369-04 ")

 ;;996

 ;;21,"58177-0369-09 ")

 ;;997

 ;;21,"58177-0369-11 ")

 ;;998

 ;;21,"58517-0320-30 ")

 ;;1252

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

 ;;1382

 ;;21,"58864-0016-28 ")

 ;;1383

 ;;21,"58864-0016-30 ")

 ;;1384

 ;;21,"58864-0016-60 ")

 ;;1385

 ;;21,"58864-0065-01 ")

 ;;740

 ;;21,"58864-0065-30 ")

 ;;741

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

 ;;124

 ;;21,"58864-0645-56 ")

 ;;103

 ;;21,"58864-0680-30 ")

 ;;233

 ;;21,"58864-0695-30 ")

 ;;1581

 ;;21,"58864-0717-30 ")

 ;;750

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

 ;;2159

 ;;21,"58864-0737-30 ")

 ;;1915

 ;;21,"58864-0749-30 ")

 ;;480

 ;;21,"58864-0749-90 ")

 ;;481

 ;;21,"58864-0759-30 ")

 ;;1187

 ;;21,"58864-0765-30 ")

 ;;1106

 ;;21,"58864-0784-30 ")

 ;;2380

 ;;21,"59762-0810-01 ")

 ;;2

 ;;21,"59762-0811-01 ")

 ;;20

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

 ;;44

 ;;21,"59762-1258-01 ")

 ;;890

 ;;21,"59762-1258-02 ")

 ;;891

 ;;21,"59762-1261-01 ")

 ;;907

 ;;21,"59762-1261-02 ")

 ;;908

 ;;21,"59762-1300-01 ")

 ;;1253

 ;;21,"59762-1300-03 ")

 ;;1254

 ;;21,"59762-1301-01 ")

 ;;1380

 ;;21,"59762-1301-03 ")

 ;;1381

 ;;21,"59762-1302-01 ")

 ;;1579

 ;;21,"59762-1302-03 ")

 ;;1580

 ;;21,"60429-0025-30 ")

 ;;736

 ;;21,"60429-0025-90 ")

 ;;737

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

 ;;748

 ;;21,"60429-0126-30 ")

 ;;1314

 ;;21,"60429-0126-60 ")

 ;;1315

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

 ;;1535

 ;;21,"60429-0139-01 ")

 ;;921

 ;;21,"60429-0139-10 ")

 ;;922

 ;;21,"60429-0140-01 ")

 ;;999

 ;;21,"60429-0140-10 ")

 ;;1000

 ;;21,"60429-0141-01 ")

 ;;1111

 ;;21,"60429-0141-10 ")

 ;;1112

 ;;21,"60429-0141-45 ")

 ;;1113

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

 ;;1190

 ;;21,"60429-0142-05 ")

 ;;1191

 ;;21,"60429-0142-10 ")

 ;;1192

 ;;21,"60429-0142-45 ")

 ;;1193

 ;;21,"60429-0211-90 ")

 ;;429

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

 ;;2219

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

 ;;2220

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

 ;;2242

 ;;21,"60429-0278-05 ")

 ;;2243

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

 ;;2271

 ;;21,"60429-0753-01 ")

 ;;868

 ;;21,"60429-0754-01 ")

 ;;872

 ;;21,"60429-0830-10 ")

 ;;920

 ;;21,"60429-0831-10 ")

 ;;1001

 ;;21,"60505-2606-01 ")

 ;;1764

 ;;21,"60505-2606-08 ")

 ;;1765

 ;;21,"60505-2607-01 ")

 ;;1817

 ;;21,"60505-2607-08 ")

 ;;1818

 ;;21,"60505-2608-01 ")

 ;;1939

 ;;21,"60505-2608-08 ")

 ;;1940

 ;;21,"60505-2609-01 ")

 ;;2062

 ;;21,"60505-2609-08 ")

 ;;2063

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

 ;;738

 ;;21,"60760-0059-90 ")

 ;;739

 ;;21,"60760-0060-30 ")

 ;;487

 ;;21,"60760-0060-90 ")

 ;;488

 ;;21,"60760-0061-90 ")

 ;;759

 ;;21,"60760-0142-60 ")

 ;;1762

 ;;21,"60760-0142-98 ")

 ;;1763

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

 ;;1819

 ;;21,"60760-0143-98 ")

 ;;1820

 ;;21,"60760-0144-60 ")

 ;;1941

 ;;21,"60760-0144-98 ")

 ;;1942

 ;;21,"60760-0145-60 ")

 ;;2060

 ;;21,"60760-0145-98 ")

 ;;2061

 ;;21,"60760-0251-60 ")

 ;;1396

 ;;21,"60760-0251-98 ")

 ;;1397

 ;;21,"60760-0252-60 ")

 ;;1582

 ;;21,"60760-0292-60 ")

 ;;2244

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

 ;;1114

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

 ;;1115

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

 ;;1004

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

 ;;1005

 ;;21,"60760-0978-30 ")

 ;;923

 ;;21,"60760-0978-90 ")

 ;;924

 ;;21,"60793-0283-01 ")

 ;;2439

 ;;21,"60793-0284-01 ")

 ;;2445

 ;;21,"60793-0800-01 ")

 ;;1

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

 ;;19

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

 ;;43

 ;;21,"61919-0317-30 ")

 ;;1395

 ;;21,"62037-0830-01 ")

 ;;925

 ;;21,"62037-0830-10 ")

 ;;926

 ;;21,"62037-0831-01 ")

 ;;1002

 ;;21,"62037-0831-10 ")

 ;;1003

 ;;21,"62037-0832-01 ")

 ;;1116

 ;;21,"62037-0832-10 ")

 ;;1117

 ;;21,"62037-0833-01 ")

 ;;1194

 ;;21,"62037-0833-10 ")

 ;;1195

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

 ;;1248

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

 ;;1249

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

 ;;1393

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

 ;;1394

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

 ;;1583

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

 ;;1584

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

 ;;731

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

 ;;732

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

 ;;755

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

 ;;756

 ;;21,"62756-0368-88 ")

 ;;2431

 ;;21,"62756-0369-88 ")

 ;;2435

 ;;21,"62756-0370-88 ")

 ;;2425

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

 ;;1250

 ;;21,"63304-0579-10 ")

 ;;1251

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

 ;;1386

 ;;21,"63304-0580-10 ")

 ;;1387

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

 ;;1585

 ;;21,"63304-0581-10 ")

 ;;1586

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

 ;;485

 ;;21,"63304-0621-10 ")

 ;;486

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

 ;;729

 ;;21,"63304-0622-10 ")

 ;;730

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

 ;;757

 ;;21,"63304-0623-10 ")

 ;;758

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

 ;;104

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

 ;;105

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

 ;;1587

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

 ;;1588

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

 ;;1589

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

 ;;1388

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

 ;;1389

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

 ;;1390

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

 ;;1391

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

 ;;1392

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

 ;;2344

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

 ;;733

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

 ;;734

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

 ;;735

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

 ;;482

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

 ;;483

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

 ;;484

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

 ;;294

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

 ;;120

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

 ;;121

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

 ;;122

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

 ;;123

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

 ;;751

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

 ;;752

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

 ;;753

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

 ;;754

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

 ;;2282

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

 ;;2283

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

 ;;2284

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

 ;;2285

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

 ;;274

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

 ;;275

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

 ;;1104

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

 ;;1105

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

 ;;1823

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

 ;;1824

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

 ;;1825

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

 ;;1943

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

 ;;1944

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

 ;;1945

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

 ;;2322

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

 ;;415

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

 ;;1760

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

 ;;1761

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

 ;;2058

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

 ;;2059

BGP51P5   ;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,"55048-0520-30 ")

 +2       ;;1175

 +3       ;;21,"55048-0521-30 ")

 +4       ;;980

 +5       ;;21,"55048-0522-30 ")

 +6       ;;1574

 +7       ;;21,"55048-0523-30 ")

 +8       ;;1307

 +9       ;;21,"55048-0524-30 ")

 +10      ;;1355

 +11      ;;21,"55048-0524-60 ")

 +12      ;;1356

 +13      ;;21,"55048-0524-74 ")

 +14      ;;1357

 +15      ;;21,"55111-0252-01 ")

 +16      ;;1775

 +17      ;;21,"55111-0252-05 ")

 +18      ;;1776

 +19      ;;21,"55111-0253-01 ")

 +20      ;;1896

 +21      ;;21,"55111-0253-05 ")

 +22      ;;1897

 +23      ;;21,"55111-0254-01 ")

 +24      ;;2010

 +25      ;;21,"55111-0254-05 ")

 +26      ;;2011

 +27      ;;21,"55111-0255-01 ")

 +28      ;;2135

 +29      ;;21,"55111-0255-05 ")

 +30      ;;2136

 +31      ;;21,"55111-0466-01 ")

 +32      ;;975

 +33      ;;21,"55111-0466-05 ")

 +34      ;;976

 +35      ;;21,"55111-0467-01 ")

 +36      ;;1074

 +37      ;;21,"55111-0467-05 ")

 +38      ;;1075

 +39      ;;21,"55111-0468-01 ")

 +40      ;;1167

 +41      ;;21,"55111-0468-05 ")

 +42      ;;1168

 +43      ;;21,"55111-0469-01 ")

 +44      ;;1216

 +45      ;;21,"55111-0469-05 ")

 +46      ;;1217

 +47      ;;21,"55289-0093-30 ")

 +48      ;;1548

 +49      ;;21,"55289-0093-60 ")

 +50      ;;1549

 +51      ;;21,"55289-0093-90 ")

 +52      ;;1550

 +53      ;;21,"55289-0093-93 ")

 +54      ;;1551

 +55      ;;21,"55289-0227-01 ")

 +56      ;;463

 +57      ;;21,"55289-0227-30 ")

 +58      ;;464

 +59      ;;21,"55289-0227-90 ")

 +60      ;;465

 +61      ;;21,"55289-0228-01 ")

 +62      ;;577

 +63      ;;21,"55289-0228-03 ")

 +64      ;;578

 +65      ;;21,"55289-0228-06 ")

 +66      ;;579

 +67      ;;21,"55289-0228-14 ")

 +68      ;;580

 +69      ;;21,"55289-0228-30 ")

 +70      ;;581

 +71      ;;21,"55289-0228-60 ")

 +72      ;;582

 +73      ;;21,"55289-0228-90 ")

 +74      ;;583

 +75      ;;21,"55289-0233-01 ")

 +76      ;;176

 +77      ;;21,"55289-0233-12 ")

 +78      ;;177

 +79      ;;21,"55289-0233-60 ")

 +80      ;;178

 +81      ;;21,"55289-0233-90 ")

 +82      ;;179

 +83      ;;21,"55289-0234-01 ")

 +84      ;;180

 +85      ;;21,"55289-0234-30 ")

 +86      ;;181

 +87      ;;21,"55289-0234-90 ")

 +88      ;;182

 +89      ;;21,"55289-0254-30 ")

 +90      ;;747

 +91      ;;21,"55289-0382-30 ")

 +92      ;;1277

 +93      ;;21,"55289-0382-93 ")

 +94      ;;1278

 +95      ;;21,"55289-0413-30 ")

 +96      ;;1321

 +97      ;;21,"55289-0413-60 ")

 +98      ;;1322

 +99      ;;21,"55289-0413-90 ")

 +100     ;;1323

 +101     ;;21,"55289-0413-93 ")

 +102     ;;1324

 +103     ;;21,"55289-0413-94 ")

 +104     ;;1325

 +105     ;;21,"55289-0587-30 ")

 +106     ;;864

 +107     ;;21,"55289-0627-30 ")

 +108     ;;1317

 +109     ;;21,"55289-0630-30 ")

 +110     ;;2373

 +111     ;;21,"55289-0630-90 ")

 +112     ;;2374

 +113     ;;21,"55289-0653-30 ")

 +114     ;;824

 +115     ;;21,"55289-0653-90 ")

 +116     ;;825

 +117     ;;21,"55289-0855-30 ")

 +118     ;;1081

 +119     ;;21,"55289-0902-30 ")

 +120     ;;984

 +121     ;;21,"55289-0986-30 ")

 +122     ;;1909

 +123     ;;21,"55289-0988-30 ")

 +124     ;;2327

 +125     ;;21,"55289-0993-30 ")

 +126     ;;2304

 +127     ;;21,"55289-0993-60 ")

 +128     ;;2305

 +129     ;;21,"55289-0993-90 ")

 +130     ;;2306

 +131     ;;21,"55700-0103-90 ")

 +132     ;;185

 +133     ;;21,"55700-0121-30 ")

 +134     ;;392

 +135     ;;21,"55700-0136-30 ")

 +136     ;;339

 +137     ;;21,"57664-0166-08 ")

 +138     ;;1326

 +139     ;;21,"57664-0166-18 ")

 +140     ;;1327

 +141     ;;21,"57664-0166-52 ")

 +142     ;;1328

 +143     ;;21,"57664-0166-58 ")

 +144     ;;1329

 +145     ;;21,"57664-0167-08 ")

 +146     ;;1575

 +147     ;;21,"57664-0167-18 ")

 +148     ;;1576

 +149     ;;21,"57664-0167-52 ")

 +150     ;;1577

 +151     ;;21,"57664-0167-58 ")

 +152     ;;1578

 +153     ;;21,"57664-0242-13 ")

 +154     ;;1782

 +155     ;;21,"57664-0242-18 ")

 +156     ;;1783

 +157     ;;21,"57664-0242-88 ")

 +158     ;;1784

 +159     ;;21,"57664-0244-13 ")

 +160     ;;1901

 +161     ;;21,"57664-0244-18 ")

 +162     ;;1902

 +163     ;;21,"57664-0244-88 ")

 +164     ;;1903

 +165     ;;21,"57664-0245-13 ")

 +166     ;;2018

 +167     ;;21,"57664-0245-18 ")

 +168     ;;2019

 +169     ;;21,"57664-0245-88 ")

 +170     ;;2020

 +171     ;;21,"57664-0247-13 ")

 +172     ;;2148

 +173     ;;21,"57664-0247-18 ")

 +174     ;;2149

 +175     ;;21,"57664-0247-88 ")

 +176     ;;2150

 +177     ;;21,"57664-0264-18 ")

 +178     ;;471

 +179     ;;21,"57664-0264-88 ")

 +180     ;;472

 +181     ;;21,"57664-0265-18 ")

 +182     ;;568

 +183     ;;21,"57664-0265-88 ")

 +184     ;;569

 +185     ;;21,"57664-0266-18 ")

 +186     ;;822

 +187     ;;21,"57664-0266-88 ")

 +188     ;;823

 +189     ;;21,"57664-0477-08 ")

 +190     ;;1330

 +191     ;;21,"57664-0477-18 ")

 +192     ;;1331

 +193     ;;21,"57664-0477-52 ")

 +194     ;;1332

 +195     ;;21,"57664-0477-58 ")

 +196     ;;1333

 +197     ;;21,"57664-0506-08 ")

 +198     ;;1279

 +199     ;;21,"57664-0506-18 ")

 +200     ;;1280

 +201     ;;21,"57664-0506-52 ")

 +202     ;;1281

 +203     ;;21,"57664-0506-58 ")

 +204     ;;1282

 +205     ;;21,"57664-0655-88 ")

 +206     ;;59

 +207     ;;21,"57664-0656-88 ")

 +208     ;;62

 +209     ;;21,"58016-0001-00 ")

 +210     ;;246

 +211     ;;21,"58016-0001-30 ")

 +212     ;;247

 +213     ;;21,"58016-0001-60 ")

 +214     ;;248

 +215     ;;21,"58016-0001-90 ")

 +216     ;;249

 +217     ;;21,"58016-0045-00 ")

 +218     ;;1224

 +219     ;;21,"58016-0045-30 ")

 +220     ;;1225

 +221     ;;21,"58016-0045-60 ")

 +222     ;;1226

 +223     ;;21,"58016-0045-90 ")

 +224     ;;1227

 +225     ;;21,"58016-0286-00 ")

 +226     ;;2368

 +227     ;;21,"58016-0286-02 ")

 +228     ;;2369

 +229     ;;21,"58016-0286-30 ")

 +230     ;;2370

 +231     ;;21,"58016-0286-60 ")

 +232     ;;2371

 +233     ;;21,"58016-0286-90 ")

 +234     ;;2372

 +235     ;;21,"58016-0300-00 ")

 +236     ;;419

 +237     ;;21,"58016-0300-30 ")

 +238     ;;420

 +239     ;;21,"58016-0300-60 ")

 +240     ;;421

 +241     ;;21,"58016-0300-90 ")

 +242     ;;422

 +243     ;;21,"58016-0331-00 ")

 +244     ;;2328

 +245     ;;21,"58016-0331-30 ")

 +246     ;;2329

 +247     ;;21,"58016-0331-60 ")

 +248     ;;2330

 +249     ;;21,"58016-0331-90 ")

 +250     ;;2331

 +251     ;;21,"58016-0333-00 ")

 +252     ;;564

 +253     ;;21,"58016-0333-15 ")

 +254     ;;565

 +255     ;;21,"58016-0333-30 ")

 +256     ;;566

 +257     ;;21,"58016-0333-60 ")

 +258     ;;567

 +259     ;;21,"58016-0373-00 ")

 +260     ;;1082

 +261     ;;21,"58016-0373-02 ")

 +262     ;;1083

 +263     ;;21,"58016-0373-30 ")

 +264     ;;1084

 +265     ;;21,"58016-0373-60 ")

 +266     ;;1085

 +267     ;;21,"58016-0373-90 ")

 +268     ;;1086

 +269     ;;21,"58016-0442-00 ")

 +270     ;;1338

 +271     ;;21,"58016-0442-02 ")

 +272     ;;1339

 +273     ;;21,"58016-0442-30 ")

 +274     ;;1340

 +275     ;;21,"58016-0442-60 ")

 +276     ;;1341

 +277     ;;21,"58016-0442-90 ")

 +278     ;;1342

 +279     ;;21,"58016-0442-99 ")

 +280     ;;1343

 +281     ;;21,"58016-0526-00 ")

 +282     ;;2307

 +283     ;;21,"58016-0526-02 ")

 +284     ;;2308

 +285     ;;21,"58016-0526-30 ")

 +286     ;;2309

 +287     ;;21,"58016-0526-60 ")

 +288     ;;2310

 +289     ;;21,"58016-0526-90 ")

 +290     ;;2311

 +291     ;;21,"58016-0528-00 ")

 +292     ;;63

 +293     ;;21,"58016-0528-30 ")

 +294     ;;64

 +295     ;;21,"58016-0528-60 ")

 +296     ;;65

 +297     ;;21,"58016-0529-00 ")

 +298     ;;172

 +299     ;;21,"58016-0529-10 ")

 +300     ;;173

 +301     ;;21,"58016-0529-30 ")

 +302     ;;174

 +303     ;;21,"58016-0529-50 ")

 +304     ;;175

 +305     ;;21,"58016-0531-00 ")

 +306     ;;183

 +307     ;;21,"58016-0531-30 ")

 +308     ;;184

 +309     ;;21,"58016-0532-00 ")

 +310     ;;250

 +311     ;;21,"58016-0532-02 ")

 +312     ;;251

 +313     ;;21,"58016-0532-60 ")

 +314     ;;252

 +315     ;;21,"58016-0582-00 ")

 +316     ;;473

 +317     ;;21,"58016-0582-15 ")

 +318     ;;474

 +319     ;;21,"58016-0582-20 ")

 +320     ;;475

 +321     ;;21,"58016-0582-30 ")

 +322     ;;476

 +323     ;;21,"58016-0582-60 ")

 +324     ;;477

 +325     ;;21,"58016-0604-00 ")

 +326     ;;311

 +327     ;;21,"58016-0640-00 ")

 +328     ;;1334

 +329     ;;21,"58016-0640-15 ")

 +330     ;;1335

 +331     ;;21,"58016-0640-20 ")

 +332     ;;1336

 +333     ;;21,"58016-0640-30 ")

 +334     ;;1337

 +335     ;;21,"58016-0771-00 ")

 +336     ;;826

 +337     ;;21,"58016-0771-12 ")

 +338     ;;827

 +339     ;;21,"58016-0771-15 ")

 +340     ;;828

 +341     ;;21,"58016-0771-20 ")

 +342     ;;829

 +343     ;;21,"58016-0771-30 ")

 +344     ;;830

 +345     ;;21,"58016-0771-60 ")

 +346     ;;831

 +347     ;;21,"58016-0859-00 ")

 +348     ;;312

 +349     ;;21,"58016-0859-30 ")

 +350     ;;313

 +351     ;;21,"58016-0859-60 ")

 +352     ;;314

 +353     ;;21,"58016-0859-90 ")

 +354     ;;315

 +355     ;;21,"58016-0974-00 ")

 +356     ;;985

 +357     ;;21,"58016-0974-30 ")

 +358     ;;986

 +359     ;;21,"58016-0974-60 ")

 +360     ;;987

 +361     ;;21,"58016-0974-90 ")

 +362     ;;988

 +363     ;;21,"58118-0110-03 ")

 +364     ;;66

 +365     ;;21,"58118-0110-09 ")

 +366     ;;67

 +367     ;;21,"58118-0163-03 ")

 +368     ;;1904

 +369     ;;21,"58118-0163-09 ")

 +370     ;;1905

 +371     ;;21,"58118-0164-03 ")

 +372     ;;2021

 +373     ;;21,"58118-0164-09 ")

 +374     ;;2022

 +375     ;;21,"58118-0165-03 ")

 +376     ;;2146

 +377     ;;21,"58118-0165-09 ")

 +378     ;;2147

 +379     ;;21,"58118-0167-06 ")

 +380     ;;1572

 +381     ;;21,"58118-0167-08 ")

 +382     ;;1573

 +383     ;;21,"58118-0405-03 ")

 +384     ;;1080

 +385     ;;21,"58118-0477-06 ")

 +386     ;;1344

 +387     ;;21,"58118-0477-08 ")

 +388     ;;1345

 +389     ;;21,"58118-0477-09 ")

 +390     ;;1346

 +391     ;;21,"58118-0506-03 ")

 +392     ;;1283

 +393     ;;21,"58118-0506-09 ")

 +394     ;;1284

 +395     ;;21,"58118-0621-03 ")

 +396     ;;478

 +397     ;;21,"58118-0621-09 ")

 +398     ;;479

 +399     ;;21,"58118-0622-03 ")

 +400     ;;563

 +401     ;;21,"58118-0622-09 ")

 +402     ;;742

 +403     ;;21,"58118-0623-09 ")

 +404     ;;749

 +405     ;;21,"58118-0734-03 ")

 +406     ;;919

 +407     ;;21,"58118-0736-03 ")

 +408     ;;1110

 +409     ;;21,"58177-0293-04 ")

 +410     ;;916

 +411     ;;21,"58177-0293-09 ")

 +412     ;;917

 +413     ;;21,"58177-0293-11 ")

 +414     ;;918

 +415     ;;21,"58177-0358-04 ")

 +416     ;;1188

 +417     ;;21,"58177-0358-09 ")

 +418     ;;1189

 +419     ;;21,"58177-0368-04 ")

 +420     ;;1107

 +421     ;;21,"58177-0368-09 ")

 +422     ;;1108

 +423     ;;21,"58177-0368-11 ")

 +424     ;;1109

 +425     ;;21,"58177-0369-04 ")

 +426     ;;996

 +427     ;;21,"58177-0369-09 ")

 +428     ;;997

 +429     ;;21,"58177-0369-11 ")

 +430     ;;998

 +431     ;;21,"58517-0320-30 ")

 +432     ;;1252

 +433     ;;21,"58864-0016-01 ")

 +434     ;;1382

 +435     ;;21,"58864-0016-28 ")

 +436     ;;1383

 +437     ;;21,"58864-0016-30 ")

 +438     ;;1384

 +439     ;;21,"58864-0016-60 ")

 +440     ;;1385

 +441     ;;21,"58864-0065-01 ")

 +442     ;;740

 +443     ;;21,"58864-0065-30 ")

 +444     ;;741

 +445     ;;21,"58864-0363-30 ")

 +446     ;;124

 +447     ;;21,"58864-0645-56 ")

 +448     ;;103

 +449     ;;21,"58864-0680-30 ")

 +450     ;;233

 +451     ;;21,"58864-0695-30 ")

 +452     ;;1581

 +453     ;;21,"58864-0717-30 ")

 +454     ;;750

 +455     ;;21,"58864-0727-30 ")

 +456     ;;2159

 +457     ;;21,"58864-0737-30 ")

 +458     ;;1915

 +459     ;;21,"58864-0749-30 ")

 +460     ;;480

 +461     ;;21,"58864-0749-90 ")

 +462     ;;481

 +463     ;;21,"58864-0759-30 ")

 +464     ;;1187

 +465     ;;21,"58864-0765-30 ")

 +466     ;;1106

 +467     ;;21,"58864-0784-30 ")

 +468     ;;2380

 +469     ;;21,"59762-0810-01 ")

 +470     ;;2

 +471     ;;21,"59762-0811-01 ")

 +472     ;;20

 +473     ;;21,"59762-0812-01 ")

 +474     ;;44

 +475     ;;21,"59762-1258-01 ")

 +476     ;;890

 +477     ;;21,"59762-1258-02 ")

 +478     ;;891

 +479     ;;21,"59762-1261-01 ")

 +480     ;;907

 +481     ;;21,"59762-1261-02 ")

 +482     ;;908

 +483     ;;21,"59762-1300-01 ")

 +484     ;;1253

 +485     ;;21,"59762-1300-03 ")

 +486     ;;1254

 +487     ;;21,"59762-1301-01 ")

 +488     ;;1380

 +489     ;;21,"59762-1301-03 ")

 +490     ;;1381

 +491     ;;21,"59762-1302-01 ")

 +492     ;;1579

 +493     ;;21,"59762-1302-03 ")

 +494     ;;1580

 +495     ;;21,"60429-0025-30 ")

 +496     ;;736

 +497     ;;21,"60429-0025-90 ")

 +498     ;;737

 +499     ;;21,"60429-0026-30 ")

 +500     ;;748

 +501     ;;21,"60429-0126-30 ")

 +502     ;;1314

 +503     ;;21,"60429-0126-60 ")

 +504     ;;1315

 +505     ;;21,"60429-0127-30 ")

 +506     ;;1535

 +507     ;;21,"60429-0139-01 ")

 +508     ;;921

 +509     ;;21,"60429-0139-10 ")

 +510     ;;922

 +511     ;;21,"60429-0140-01 ")

 +512     ;;999

 +513     ;;21,"60429-0140-10 ")

 +514     ;;1000

 +515     ;;21,"60429-0141-01 ")

 +516     ;;1111

 +517     ;;21,"60429-0141-10 ")

 +518     ;;1112

 +519     ;;21,"60429-0141-45 ")

 +520     ;;1113

 +521     ;;21,"60429-0142-01 ")

 +522     ;;1190

 +523     ;;21,"60429-0142-05 ")

 +524     ;;1191

 +525     ;;21,"60429-0142-10 ")

 +526     ;;1192

 +527     ;;21,"60429-0142-45 ")

 +528     ;;1193

 +529     ;;21,"60429-0211-90 ")

 +530     ;;429

 +531     ;;21,"60429-0277-01 ")

 +532     ;;2219

 +533     ;;21,"60429-0277-05 ")

 +534     ;;2220

 +535     ;;21,"60429-0278-01 ")

 +536     ;;2242

 +537     ;;21,"60429-0278-05 ")

 +538     ;;2243