[Home] [Help]
PACKAGE BODY: APPS.CS_CREATE_AUDIT_REC_PKG
Source
1 PACKAGE BODY CS_CREATE_AUDIT_REC_PKG AS
2 /* $Header: csxsraucb.pls 120.1 2005/07/19 01:38:57 appldev noship $ */
3
4 PROCEDURE Create_Initial_Audit_Manager
5 (x_errbuf OUT NOCOPY VARCHAR2,
6 x_retcode OUT NOCOPY VARCHAR2
7 ) IS
8 BEGIN
9 -- Parent Processing
10 AD_CONC_UTILS_PKG.submit_subrequests
11 (x_errbuf => x_errbuf,
12 x_retcode => x_retcode,
13 x_workerconc_app_shortname => 'CS', --l_product,
14 x_workerconc_progname => 'CSSRAUDCWKR',
15 x_batch_size => 1000,
16 x_num_workers => 3
17 );
18 END;
19
20 PROCEDURE Create_Initial_Audit_Worker
21 (x_errbuf OUT NOCOPY VARCHAR2,
22 x_retcode OUT NOCOPY VARCHAR2,
23 x_batch_size IN NUMBER,
24 x_worker_id IN NUMBER,
25 x_num_workers IN NUMBER
26 ) IS
27
28 l_loop_counter NUMBER;
29
30 CURSOR c_sr_current(c_start_rowid rowid,c_end_rowid rowid) IS
31 SELECT
32 INCIDENT_ID ,
33 LAST_UPDATE_DATE ,
34 LAST_UPDATED_BY ,
35 CREATION_DATE ,
36 CREATED_BY ,
37 CREATION_TIME ,
38 LAST_UPDATE_LOGIN ,
39 INCIDENT_STATUS_ID ,
40 NULL OLD_INCIDENT_STATUS_ID ,
41 'N' CHANGE_INCIDENT_STATUS_FLAG ,
42 INCIDENT_TYPE_ID ,
43 NULL OLD_INCIDENT_TYPE_ID ,
44 'N' CHANGE_INCIDENT_TYPE_FLAG ,
45 INCIDENT_URGENCY_ID ,
46 NULL OLD_INCIDENT_URGENCY_ID ,
47 'N' CHANGE_INCIDENT_URGENCY_FLAG ,
48 INCIDENT_SEVERITY_ID ,
49 NULL OLD_INCIDENT_SEVERITY_ID ,
50 'N' CHANGE_INCIDENT_SEVERITY_FLAG,
51 RESPONSIBLE_GROUP_ID ,
52 NULL OLD_RESPONSIBLE_GROUP_ID ,
53 'N' CHANGE_RESPONSIBLE_GROUP_FLAG ,
54 INCIDENT_OWNER_ID ,
55 NULL OLD_INCIDENT_OWNER_ID ,
56 'N' CHANGE_INCIDENT_OWNER_FLAG ,
57 EXPECTED_RESOLUTION_DATE,
58 NULL OLD_EXPECTED_RESOLUTION_DATE ,
59 'N' CHANGE_RESOLUTION_FLAG ,
60 OWNER_GROUP_ID GROUP_ID ,
61 NULL OLD_GROUP_ID ,
62 'N' CHANGE_GROUP_FLAG ,
63 OBLIGATION_DATE ,
64 NULL OLD_OBLIGATION_DATE ,
65 'N' CHANGE_OBLIGATION_FLAG ,
66 SITE_ID ,
67 NULL OLD_SITE_ID ,
68 'N' CHANGE_SITE_FLAG ,
69 BILL_TO_CONTACT_ID ,
70 NULL OLD_BILL_TO_CONTACT_ID ,
71 'N' CHANGE_BILL_TO_FLAG ,
72 SHIP_TO_CONTACT_ID ,
73 NULL OLD_SHIP_TO_CONTACT_ID ,
74 'N' CHANGE_SHIP_TO_FLAG ,
75 INCIDENT_DATE ,
76 NULL OLD_INCIDENT_DATE ,
77 'N' CHANGE_INCIDENT_DATE_FLAG ,
78 CLOSE_DATE ,
79 NULL OLD_CLOSE_DATE ,
80 'N' CHANGE_CLOSE_DATE_FLAG ,
81 CUSTOMER_PRODUCT_ID ,
82 NULL OLD_CUSTOMER_PRODUCT_ID ,
83 'N' CHANGE_CUSTOMER_PRODUCT_FLAG ,
84 PLATFORM_ID ,
85 NULL OLD_PLATFORM_ID ,
86 'N' CHANGE_PLATFORM_ID_FLAG ,
87 PLATFORM_VERSION_ID ,
88 NULL OLD_PLATFORM_VERSION_ID ,
89 'N' CHANGE_PLAT_VER_ID_FLAG ,
90 CP_COMPONENT_ID ,
91 NULL OLD_CP_COMPONENT_ID ,
92 'N' CHANGE_CP_COMPONENT_ID_FLAG ,
93 CP_COMPONENT_VERSION_ID ,
94 NULL OLD_CP_COMPONENT_VERSION_ID,
95 'N' CHANGE_CP_COMP_VER_ID_FLAG ,
96 CP_SUBCOMPONENT_ID ,
97 NULL OLD_CP_SUBCOMPONENT_ID ,
98 'N' CHANGE_CP_SUBCOMPONENT_ID_FLAG ,
99 CP_SUBCOMPONENT_VERSION_ID ,
100 NULL OLD_CP_SUBCOMPONENT_VERSION_ID ,
101 'N' CHANGE_CP_SUBCOMP_VER_ID_FLAG ,
102 LANGUAGE_ID ,
103 NULL OLD_LANGUAGE_ID ,
104 'N' CHANGE_LANGUAGE_ID_FLAG ,
105 TERRITORY_ID ,
106 NULL OLD_TERRITORY_ID ,
107 'N' CHANGE_TERRITORY_ID_FLAG ,
108 CP_REVISION_ID ,
109 NULL OLD_CP_REVISION_ID ,
110 'N' CHANGE_CP_REVISION_ID_FLAG ,
111 INV_ITEM_REVISION ,
112 NULL OLD_INV_ITEM_REVISION ,
113 'N' CHANGE_INV_ITEM_REVISION,
114 INV_COMPONENT_ID ,
115 NULL OLD_INV_COMPONENT_ID ,
116 'N' CHANGE_INV_COMPONENT_ID ,
117 INV_COMPONENT_VERSION ,
118 NULL OLD_INV_COMPONENT_VERSION ,
119 'N' CHANGE_INV_COMPONENT_VERSION ,
120 INV_SUBCOMPONENT_ID ,
121 NULL OLD_INV_SUBCOMPONENT_ID ,
122 'N' CHANGE_INV_SUBCOMPONENT_ID ,
123 INV_SUBCOMPONENT_VERSION ,
124 NULL OLD_INV_SUBCOMPONENT_VERSION ,
125 'N' CHANGE_INV_SUBCOMP_VERSION ,
126 RESOURCE_TYPE ,
127 NULL OLD_RESOURCE_TYPE ,
128 'N' CHANGE_RESOURCE_TYPE_FLAG ,
129 NULL OLD_GROUP_TYPE ,
130 GROUP_TYPE ,
131 'N' CHANGE_GROUP_TYPE_FLAG ,
132 NULL OLD_OWNER_ASSIGNED_TIME ,
133 OWNER_ASSIGNED_TIME ,
134 'N' CHANGE_ASSIGNED_TIME_FLAG ,
135 INV_PLATFORM_ORG_ID ,
136 NULL OLD_INV_PLATFORM_ORG_ID ,
137 'N' CHANGE_PLATFORM_ORG_ID_FLAG ,
138 COMPONENT_VERSION ,
139 NULL OLD_COMPONENT_VERSION ,
140 'N' CHANGE_COMP_VER_FLAG ,
141 SUBCOMPONENT_VERSION ,
142 NULL OLD_SUBCOMPONENT_VERSION ,
143 'N' CHANGE_SUBCOMP_VER_FLAG ,
144 PRODUCT_REVISION ,
145 NULL OLD_PRODUCT_REVISION ,
146 'N' CHANGE_PRODUCT_REVISION_FLAG ,
147 INVENTORY_ITEM_ID ,
148 NULL OLD_INVENTORY_ITEM_ID ,
149 'N' CHANGE_INVENTORY_ITEM_FLAG ,
150 INV_ORGANIZATION_ID ,
151 NULL OLD_INV_ORGANIZATION_ID ,
152 'N' CHANGE_INV_ORGANIZATION_FLAG ,
153 STATUS_FLAG ,
154 NULL OLD_STATUS_FLAG ,
155 'N' CHANGE_STATUS_FLAG ,
156 PRIMARY_CONTACT_ID ,
157 'N' CHANGE_PRIMARY_CONTACT_FLAG ,
158 NULL OLD_PRIMARY_CONTACT_ID ,
159 SECURITY_GROUP_ID
160 FROM CS_INCIDENTS_ALL_B a
161 WHERE ROWID BETWEEN c_start_rowid AND c_end_rowid
162 AND NOT EXISTS (SELECT b.incident_id
163 FROM cs_incidents_audit_b b
164 WHERE a.incident_id = b.incident_id
165 AND (b.upgrade_flag_for_create = 'Y'
166 OR (b.OLD_INCIDENT_STATUS_ID IS NULL
167 AND b.INCIDENT_STATUS_ID IS NOT NULL
168 AND b.CHANGE_INCIDENT_STATUS_FLAG = 'Y') ) );
169
170 CURSOR c_sr_audit(c_incident_id number) IS
171 SELECT
172 INCIDENT_ID ,
173 INCIDENT_AUDIT_ID ,
174 LAST_UPDATE_DATE ,
175 LAST_UPDATED_BY ,
176 CREATION_DATE ,
177 CREATED_BY ,
178 LAST_UPDATE_LOGIN ,
179 CREATION_TIME ,
180 INCIDENT_STATUS_ID ,
181 OLD_INCIDENT_STATUS_ID ,
182 CHANGE_INCIDENT_STATUS_FLAG ,
183 INCIDENT_TYPE_ID ,
184 OLD_INCIDENT_TYPE_ID ,
185 CHANGE_INCIDENT_TYPE_FLAG ,
186 INCIDENT_URGENCY_ID ,
187 OLD_INCIDENT_URGENCY_ID ,
188 CHANGE_INCIDENT_URGENCY_FLAG ,
189 INCIDENT_SEVERITY_ID ,
190 OLD_INCIDENT_SEVERITY_ID ,
191 CHANGE_INCIDENT_SEVERITY_FLAG,
192 RESPONSIBLE_GROUP_ID ,
193 OLD_RESPONSIBLE_GROUP_ID ,
194 CHANGE_RESPONSIBLE_GROUP_FLAG ,
195 INCIDENT_OWNER_ID ,
196 OLD_INCIDENT_OWNER_ID ,
197 CHANGE_INCIDENT_OWNER_FLAG ,
198 CREATE_MANUAL_ACTION ,
199 ACTION_ID ,
200 EXPECTED_RESOLUTION_DATE,
201 OLD_EXPECTED_RESOLUTION_DATE ,
202 CHANGE_RESOLUTION_FLAG ,
203 GROUP_ID ,
204 OLD_GROUP_ID ,
205 CHANGE_GROUP_FLAG ,
206 OBLIGATION_DATE ,
207 OLD_OBLIGATION_DATE ,
208 CHANGE_OBLIGATION_FLAG ,
209 SITE_ID ,
210 OLD_SITE_ID ,
211 CHANGE_SITE_FLAG ,
212 BILL_TO_CONTACT_ID ,
213 OLD_BILL_TO_CONTACT_ID ,
214 CHANGE_BILL_TO_FLAG ,
215 SHIP_TO_CONTACT_ID ,
216 OLD_SHIP_TO_CONTACT_ID ,
217 CHANGE_SHIP_TO_FLAG ,
218 INCIDENT_DATE ,
219 OLD_INCIDENT_DATE ,
220 CHANGE_INCIDENT_DATE_FLAG ,
221 CLOSE_DATE ,
222 OLD_CLOSE_DATE ,
223 CHANGE_CLOSE_DATE_FLAG ,
224 CUSTOMER_PRODUCT_ID ,
225 OLD_CUSTOMER_PRODUCT_ID ,
226 CHANGE_CUSTOMER_PRODUCT_FLAG ,
227 AUDIT_FIELD ,
228 OBJECT_VERSION_NUMBER ,
229 PLATFORM_ID ,
230 OLD_PLATFORM_ID ,
231 CHANGE_PLATFORM_ID_FLAG ,
232 PLATFORM_VERSION_ID ,
233 OLD_PLATFORM_VERSION_ID ,
234 CHANGE_PLAT_VER_ID_FLAG ,
235 CP_COMPONENT_ID ,
236 OLD_CP_COMPONENT_ID ,
237 CHANGE_CP_COMPONENT_ID_FLAG ,
238 CP_COMPONENT_VERSION_ID ,
239 OLD_CP_COMPONENT_VERSION_ID,
240 CHANGE_CP_COMP_VER_ID_FLAG ,
241 CP_SUBCOMPONENT_ID ,
242 OLD_CP_SUBCOMPONENT_ID ,
243 CHANGE_CP_SUBCOMPONENT_ID_FLAG ,
244 CP_SUBCOMPONENT_VERSION_ID ,
245 OLD_CP_SUBCOMPONENT_VERSION_ID ,
246 CHANGE_CP_SUBCOMP_VER_ID_FLAG ,
247 LANGUAGE_ID ,
248 OLD_LANGUAGE_ID ,
249 CHANGE_LANGUAGE_ID_FLAG ,
250 TERRITORY_ID ,
251 OLD_TERRITORY_ID ,
252 CHANGE_TERRITORY_ID_FLAG ,
253 CP_REVISION_ID ,
254 OLD_CP_REVISION_ID ,
255 CHANGE_CP_REVISION_ID_FLAG ,
256 INV_ITEM_REVISION ,
257 OLD_INV_ITEM_REVISION ,
258 CHANGE_INV_ITEM_REVISION,
259 INV_COMPONENT_ID ,
260 OLD_INV_COMPONENT_ID ,
261 CHANGE_INV_COMPONENT_ID ,
262 INV_COMPONENT_VERSION ,
263 OLD_INV_COMPONENT_VERSION ,
264 CHANGE_INV_COMPONENT_VERSION ,
265 INV_SUBCOMPONENT_ID ,
266 OLD_INV_SUBCOMPONENT_ID ,
267 CHANGE_INV_SUBCOMPONENT_ID ,
268 INV_SUBCOMPONENT_VERSION ,
269 OLD_INV_SUBCOMPONENT_VERSION ,
270 CHANGE_INV_SUBCOMP_VERSION ,
271 RESOURCE_TYPE ,
272 OLD_RESOURCE_TYPE ,
273 CHANGE_RESOURCE_TYPE_FLAG ,
274 OLD_GROUP_TYPE ,
275 GROUP_TYPE ,
276 CHANGE_GROUP_TYPE_FLAG ,
277 OLD_OWNER_ASSIGNED_TIME ,
278 OWNER_ASSIGNED_TIME ,
279 CHANGE_ASSIGNED_TIME_FLAG ,
280 INV_PLATFORM_ORG_ID ,
281 OLD_INV_PLATFORM_ORG_ID ,
282 CHANGE_PLATFORM_ORG_ID_FLAG ,
283 COMPONENT_VERSION ,
284 OLD_COMPONENT_VERSION ,
285 CHANGE_COMP_VER_FLAG ,
286 SUBCOMPONENT_VERSION ,
287 OLD_SUBCOMPONENT_VERSION ,
288 CHANGE_SUBCOMP_VER_FLAG ,
289 PRODUCT_REVISION ,
290 OLD_PRODUCT_REVISION ,
291 CHANGE_PRODUCT_REVISION_FLAG ,
292 INVENTORY_ITEM_ID ,
293 OLD_INVENTORY_ITEM_ID ,
294 CHANGE_INVENTORY_ITEM_FLAG ,
295 INV_ORGANIZATION_ID ,
296 OLD_INV_ORGANIZATION_ID ,
297 CHANGE_INV_ORGANIZATION_FLAG ,
298 STATUS_FLAG ,
299 OLD_STATUS_FLAG ,
300 CHANGE_STATUS_FLAG ,
301 PRIMARY_CONTACT_ID ,
302 CHANGE_PRIMARY_CONTACT_FLAG ,
303 OLD_PRIMARY_CONTACT_ID ,
304 SECURITY_GROUP_ID
305 FROM CS_INCIDENTS_AUDIT_B
306 WHERE INCIDENT_ID = c_incident_id
307 ORDER BY creation_date desc, incident_audit_id DESC;
308
309 l_request_id NUMBER;
310 l_incident_audit_id NUMBER;
311 l_audit_count NUMBER;
312 l_audit_rec c_sr_audit%ROWTYPE;
313 l_create_audit_rec c_sr_current%ROWTYPE;
314
315 l_worker_id NUMBER;
316 l_product VARCHAR2(30) := 'CS';
317 l_table_name VARCHAR2(30) := 'CS_INCIDENTS_ALL_B';
318 l_table_owner VARCHAR2(30);
319 l_update_name VARCHAR2(30) := 'csxsraucb.pls.115.0';
320 l_start_rowid ROWID;
321 l_end_rowid ROWID;
322 l_rows_processed NUMBER;
323 l_status VARCHAR2(30);
324 l_industry VARCHAR2(30);
325 l_retstatus BOOLEAN;
326 l_any_rows_to_process BOOLEAN;
327
328 BEGIN
329 --
330 -- get schema name of the table for ROWID range processing
331 --
332 l_retstatus := fnd_installation.get_app_info(
333 l_product, l_status, l_industry, l_table_owner);
334
335 IF ((l_retstatus = FALSE) OR (l_table_owner IS NULL)) THEN
336 RAISE_APPLICATION_ERROR(-20001,
337 'Cannot get schema name for product : '||l_product);
338 END IF;
339
340 FND_FILE.PUT_LINE(FND_FILE.LOG, ' X_Worker_Id : '||x_worker_id);
341 FND_FILE.PUT_LINE(FND_FILE.LOG, 'X_Num_Workers : '||x_num_workers);
342
343 --
344 -- Worker processing
345 --
346 -- The following could be coded to use EXECUTE IMMEDIATE inorder to remove
347 -- build time dependencies as the processing could potentially reference
348 -- some tables that could be obsoleted in the current release
349 BEGIN -- AB1
350
351 ad_parallel_updates_pkg.initialize_rowid_range(
352 ad_parallel_updates_pkg.ROWID_RANGE,
353 l_table_owner,
354 l_table_name,
355 l_update_name,
356 x_worker_id,
357 x_num_workers,
358 x_batch_size, 0);
359
360 ad_parallel_updates_pkg.get_rowid_range(
361 l_start_rowid,
362 l_end_rowid,
363 l_any_rows_to_process,
364 x_batch_size,
365 TRUE);
366
367 WHILE (l_any_rows_to_process) LOOP --{Loop1
368 FND_FILE.PUT_LINE(FND_FILE.LOG, 'Processing: l_start_row_id='||l_start_rowid
369 || '; l_end_rowid=' || l_end_rowid);
370 OPEN c_sr_current(l_start_rowid, l_end_rowid);
371 l_loop_counter := 0;
372 LOOP --{Loop2
373 FETCH c_sr_current INTO l_create_audit_rec;
374 EXIT WHEN c_sr_current%NOTFOUND;
375
376 l_request_id := l_create_audit_rec.incident_id;
377 FND_FILE.PUT_LINE(FND_FILE.LOG, ' Service Request Id : '||l_request_id);
378 SELECT COUNT(incident_audit_id) INTO l_audit_count
379 FROM cs_incidents_audit_b
380 WHERE incident_id= l_request_id;
381
382 IF l_audit_count >0 THEN
383 OPEN c_sr_audit(l_request_id);
384 LOOP --{Loop3
385 FETCH c_sr_audit INTO l_audit_rec;
386 EXIT WHEN c_sr_audit%NOTFOUND;
387
388 if l_audit_rec.CHANGE_INCIDENT_STATUS_FLAG = 'Y' then
389 l_create_audit_rec.INCIDENT_STATUS_ID := l_audit_rec.OLD_INCIDENT_STATUS_ID ;
390 end if;
391 if l_audit_rec.CHANGE_INCIDENT_TYPE_FLAG = 'Y' then
392 l_create_audit_rec.INCIDENT_TYPE_ID := l_audit_rec.OLD_INCIDENT_TYPE_ID ;
393 end if;
394 if l_audit_rec.CHANGE_INCIDENT_URGENCY_FLAG = 'Y' then
395 l_create_audit_rec.INCIDENT_URGENCY_ID := l_audit_rec.OLD_INCIDENT_URGENCY_ID ;
396 end if;
397 if l_audit_rec.CHANGE_INCIDENT_SEVERITY_FLAG = 'Y' then
398 l_create_audit_rec.INCIDENT_SEVERITY_ID := l_audit_rec.OLD_INCIDENT_SEVERITY_ID ;
399 end if;
400 if l_audit_rec.CHANGE_RESPONSIBLE_GROUP_FLAG = 'Y' then
401 l_create_audit_rec.RESPONSIBLE_GROUP_ID := l_audit_rec.OLD_RESPONSIBLE_GROUP_ID ;
402 end if;
403 if l_audit_rec.CHANGE_INCIDENT_OWNER_FLAG = 'Y' then
404 l_create_audit_rec.INCIDENT_OWNER_ID := l_audit_rec.OLD_INCIDENT_OWNER_ID ;
405 end if;
406 if l_audit_rec.CHANGE_RESOLUTION_FLAG = 'Y' then
407 l_create_audit_rec.EXPECTED_RESOLUTION_DATE := l_audit_rec.OLD_EXPECTED_RESOLUTION_DATE ;
408 end if;
409 if l_audit_rec.CHANGE_GROUP_FLAG = 'Y' then
410 l_create_audit_rec.GROUP_ID := l_audit_rec.OLD_GROUP_ID ;
411 end if;
412 if l_audit_rec.CHANGE_OBLIGATION_FLAG = 'Y' then
413 l_create_audit_rec.OBLIGATION_DATE := l_audit_rec.OLD_OBLIGATION_DATE ;
414 end if;
415 if l_audit_rec.CHANGE_SITE_FLAG = 'Y' then
416 l_create_audit_rec.SITE_ID := l_audit_rec.OLD_SITE_ID ;
417 end if;
418 if l_audit_rec.CHANGE_BILL_TO_FLAG = 'Y' then
419 l_create_audit_rec.BILL_TO_CONTACT_ID := l_audit_rec.OLD_BILL_TO_CONTACT_ID ;
420 end if;
421 if l_audit_rec.CHANGE_SHIP_TO_FLAG = 'Y' then
422 l_create_audit_rec.SHIP_TO_CONTACT_ID := l_audit_rec.OLD_SHIP_TO_CONTACT_ID ;
423 end if;
424 if l_audit_rec.CHANGE_INCIDENT_DATE_FLAG = 'Y' then
425 l_create_audit_rec.INCIDENT_DATE := l_audit_rec.OLD_INCIDENT_DATE ;
426 end if;
427 if l_audit_rec.CHANGE_CLOSE_DATE_FLAG = 'Y' then
428 l_create_audit_rec.CLOSE_DATE := l_audit_rec.OLD_CLOSE_DATE ;
429 end if;
430 if l_audit_rec.CHANGE_CUSTOMER_PRODUCT_FLAG = 'Y' then
434 l_create_audit_rec.PLATFORM_ID := l_audit_rec.OLD_PLATFORM_ID ;
431 l_create_audit_rec.CUSTOMER_PRODUCT_ID := l_audit_rec.OLD_CUSTOMER_PRODUCT_ID ;
432 end if;
433 if l_audit_rec.CHANGE_PLATFORM_ID_FLAG = 'Y' then
435 end if;
436 if l_audit_rec.CHANGE_PLAT_VER_ID_FLAG = 'Y' then
437 l_create_audit_rec.PLATFORM_VERSION_ID := l_audit_rec.OLD_PLATFORM_VERSION_ID ;
438 end if;
439 if l_audit_rec.CHANGE_CP_COMPONENT_ID_FLAG = 'Y' then
440 l_create_audit_rec.CP_COMPONENT_ID := l_audit_rec.OLD_CP_COMPONENT_ID ;
441 end if;
442 if l_audit_rec.CHANGE_CP_COMP_VER_ID_FLAG = 'Y' then
443 l_create_audit_rec.CP_COMPONENT_VERSION_ID := l_audit_rec.OLD_CP_COMPONENT_VERSION_ID;
444 end if;
445 if l_audit_rec.CHANGE_CP_SUBCOMPONENT_ID_FLAG = 'Y' then
446 l_create_audit_rec.CP_SUBCOMPONENT_ID := l_audit_rec.OLD_CP_SUBCOMPONENT_ID ;
447 end if;
448 if l_audit_rec.CHANGE_CP_SUBCOMP_VER_ID_FLAG = 'Y' then
449 l_create_audit_rec.CP_SUBCOMPONENT_VERSION_ID := l_audit_rec.OLD_CP_SUBCOMPONENT_VERSION_ID ;
450 end if;
451 if l_audit_rec.CHANGE_LANGUAGE_ID_FLAG = 'Y' then
452 l_create_audit_rec.LANGUAGE_ID := l_audit_rec.OLD_LANGUAGE_ID ;
453 end if;
454 if l_audit_rec.CHANGE_TERRITORY_ID_FLAG = 'Y' then
455 l_create_audit_rec.TERRITORY_ID := l_audit_rec.OLD_TERRITORY_ID ;
456 end if;
457 if l_audit_rec.CHANGE_CP_REVISION_ID_FLAG = 'Y' then
458 l_create_audit_rec.CP_REVISION_ID := l_audit_rec.OLD_CP_REVISION_ID ;
459 end if;
460 if l_audit_rec.CHANGE_INV_ITEM_REVISION = 'Y' then
461 l_create_audit_rec.INV_ITEM_REVISION := l_audit_rec.OLD_INV_ITEM_REVISION ;
462 end if;
463 if l_audit_rec.CHANGE_INV_COMPONENT_ID = 'Y' then
464 l_create_audit_rec.INV_COMPONENT_ID := l_audit_rec.OLD_INV_COMPONENT_ID ;
465 end if;
466 if l_audit_rec.CHANGE_INV_COMPONENT_VERSION = 'Y' then
467 l_create_audit_rec.INV_COMPONENT_VERSION := l_audit_rec.OLD_INV_COMPONENT_VERSION ;
468 end if;
469 if l_audit_rec.CHANGE_INV_SUBCOMPONENT_ID = 'Y' then
470 l_create_audit_rec.INV_SUBCOMPONENT_ID := l_audit_rec.OLD_INV_SUBCOMPONENT_ID ;
471 end if;
472 if l_audit_rec.CHANGE_INV_SUBCOMP_VERSION = 'Y' then
473 l_create_audit_rec.INV_SUBCOMPONENT_VERSION := l_audit_rec.OLD_INV_SUBCOMPONENT_VERSION ;
474 end if;
475 if l_audit_rec.CHANGE_RESOURCE_TYPE_FLAG = 'Y' then
476 l_create_audit_rec.RESOURCE_TYPE := l_audit_rec.OLD_RESOURCE_TYPE ;
477 end if;
478 if l_audit_rec.CHANGE_GROUP_TYPE_FLAG = 'Y' then
479 l_create_audit_rec.GROUP_TYPE := l_audit_rec.OLD_GROUP_TYPE ;
480 end if;
481 if l_audit_rec.CHANGE_ASSIGNED_TIME_FLAG = 'Y' then
482 l_create_audit_rec.OWNER_ASSIGNED_TIME := l_audit_rec.OLD_OWNER_ASSIGNED_TIME ;
483 end if;
484 if l_audit_rec.CHANGE_PLATFORM_ORG_ID_FLAG = 'Y' then
485 l_create_audit_rec.INV_PLATFORM_ORG_ID := l_audit_rec.OLD_INV_PLATFORM_ORG_ID ;
486 end if;
487 if l_audit_rec.CHANGE_COMP_VER_FLAG = 'Y' then
488 l_create_audit_rec.COMPONENT_VERSION := l_audit_rec.OLD_COMPONENT_VERSION ;
489 end if;
490 if l_audit_rec.CHANGE_SUBCOMP_VER_FLAG = 'Y' then
491 l_create_audit_rec.SUBCOMPONENT_VERSION := l_audit_rec.OLD_SUBCOMPONENT_VERSION ;
492 end if;
493 if l_audit_rec.CHANGE_PRODUCT_REVISION_FLAG = 'Y' then
494 l_create_audit_rec.PRODUCT_REVISION := l_audit_rec.OLD_PRODUCT_REVISION ;
495 end if;
496 if l_audit_rec.CHANGE_INVENTORY_ITEM_FLAG = 'Y' then
497 l_create_audit_rec.INVENTORY_ITEM_ID := l_audit_rec.OLD_INVENTORY_ITEM_ID ;
498 end if;
499 if l_audit_rec.CHANGE_INV_ORGANIZATION_FLAG = 'Y' then
500 l_create_audit_rec.INV_ORGANIZATION_ID := l_audit_rec.OLD_INV_ORGANIZATION_ID ;
501 end if;
502 if l_audit_rec.CHANGE_STATUS_FLAG = 'Y' then
503 l_create_audit_rec.STATUS_FLAG := l_audit_rec.OLD_STATUS_FLAG;
504 end if;
505 if l_audit_rec.CHANGE_PRIMARY_CONTACT_FLAG = 'Y' then
506 l_create_audit_rec.PRIMARY_CONTACT_ID := l_audit_rec.OLD_PRIMARY_CONTACT_ID ;
507 end if;
508
509 end loop; --{Loop3
510 close c_sr_audit;
511 end if;
512
513 if l_create_audit_rec.INCIDENT_STATUS_ID is not null then
514 l_create_audit_rec.CHANGE_INCIDENT_STATUS_FLAG := 'Y';
515 end if;
516 if l_create_audit_rec.INCIDENT_TYPE_ID is not null then
517 l_create_audit_rec.CHANGE_INCIDENT_TYPE_FLAG := 'Y';
518 end if;
519 if l_create_audit_rec.INCIDENT_URGENCY_ID is not null then
520 l_create_audit_rec.CHANGE_INCIDENT_URGENCY_FLAG := 'Y';
521 end if;
522 if l_create_audit_rec.INCIDENT_SEVERITY_ID is not null then
523 l_create_audit_rec.CHANGE_INCIDENT_SEVERITY_FLAG := 'Y';
524 end if;
525 if l_create_audit_rec.RESPONSIBLE_GROUP_ID is not null then
526 l_create_audit_rec.CHANGE_RESPONSIBLE_GROUP_FLAG := 'Y';
527 end if;
528 if l_create_audit_rec.INCIDENT_OWNER_ID is not null then
529 l_create_audit_rec.CHANGE_INCIDENT_OWNER_FLAG := 'Y';
530 end if;
531 if l_create_audit_rec.EXPECTED_RESOLUTION_DATE is not null then
532 l_create_audit_rec.CHANGE_RESOLUTION_FLAG := 'Y';
533 end if;
534 if l_create_audit_rec.GROUP_ID is not null then
535 l_create_audit_rec.CHANGE_GROUP_FLAG := 'Y';
536 end if;
537 if l_create_audit_rec.OBLIGATION_DATE is not null then
538 l_create_audit_rec.CHANGE_OBLIGATION_FLAG := 'Y';
539 end if;
540 if l_create_audit_rec.SITE_ID is not null then
541 l_create_audit_rec.CHANGE_SITE_FLAG := 'Y';
542 end if;
543 if l_create_audit_rec.BILL_TO_CONTACT_ID is not null then
544 l_create_audit_rec.CHANGE_BILL_TO_FLAG := 'Y';
548 end if;
545 end if;
546 if l_create_audit_rec.SHIP_TO_CONTACT_ID is not null then
547 l_create_audit_rec.CHANGE_SHIP_TO_FLAG := 'Y';
549 if l_create_audit_rec.INCIDENT_DATE is not null then
550 l_create_audit_rec.CHANGE_INCIDENT_DATE_FLAG := 'Y';
551 end if;
552 if l_create_audit_rec.CLOSE_DATE is not null then
553 l_create_audit_rec.CHANGE_CLOSE_DATE_FLAG := 'Y';
554 end if;
555 if l_create_audit_rec.CUSTOMER_PRODUCT_ID is not null then
556 l_create_audit_rec.CHANGE_CUSTOMER_PRODUCT_FLAG := 'Y';
557 end if;
558 if l_create_audit_rec.PLATFORM_ID is not null then
559 l_create_audit_rec.CHANGE_PLATFORM_ID_FLAG := 'Y';
560 end if;
561 if l_create_audit_rec.PLATFORM_VERSION_ID is not null then
562 l_create_audit_rec.CHANGE_PLAT_VER_ID_FLAG := 'Y';
563 end if;
564 if l_create_audit_rec.CP_COMPONENT_ID is not null then
565 l_create_audit_rec.CHANGE_CP_COMPONENT_ID_FLAG := 'Y';
566 end if;
567 if l_create_audit_rec.CP_COMPONENT_VERSION_ID is not null then
568 l_create_audit_rec.CHANGE_CP_COMP_VER_ID_FLAG := 'Y';
569 end if;
570 if l_create_audit_rec.CP_SUBCOMPONENT_ID is not null then
571 l_create_audit_rec.CHANGE_CP_SUBCOMPONENT_ID_FLAG := 'Y';
572 end if;
573 if l_create_audit_rec.CP_SUBCOMPONENT_VERSION_ID is not null then
574 l_create_audit_rec.CHANGE_CP_SUBCOMP_VER_ID_FLAG := 'Y';
575 end if;
576 if l_create_audit_rec.LANGUAGE_ID is not null then
577 l_create_audit_rec.CHANGE_LANGUAGE_ID_FLAG := 'Y';
578 end if;
579 if l_create_audit_rec.TERRITORY_ID is not null then
580 l_create_audit_rec.CHANGE_TERRITORY_ID_FLAG := 'Y';
581 end if;
582 if l_create_audit_rec.CP_REVISION_ID is not null then
583 l_create_audit_rec.CHANGE_CP_REVISION_ID_FLAG := 'Y';
584 end if;
585 if l_create_audit_rec.INV_ITEM_REVISION is not null then
586 l_create_audit_rec.CHANGE_INV_ITEM_REVISION := 'Y';
587 end if;
588 if l_create_audit_rec.INV_COMPONENT_ID is not null then
589 l_create_audit_rec.CHANGE_INV_COMPONENT_ID := 'Y';
590 end if;
591 if l_create_audit_rec.INV_COMPONENT_VERSION is not null then
592 l_create_audit_rec.CHANGE_INV_COMPONENT_VERSION := 'Y';
593 end if;
594 if l_create_audit_rec.INV_SUBCOMPONENT_ID is not null then
595 l_create_audit_rec.CHANGE_INV_SUBCOMPONENT_ID := 'Y';
596 end if;
597 if l_create_audit_rec.INV_SUBCOMPONENT_VERSION is not null then
598 l_create_audit_rec.CHANGE_INV_SUBCOMP_VERSION := 'Y';
599 end if;
600 if l_create_audit_rec.RESOURCE_TYPE is not null then
601 l_create_audit_rec.CHANGE_RESOURCE_TYPE_FLAG := 'Y';
602 end if;
603 if l_create_audit_rec.GROUP_TYPE is not null then
604 l_create_audit_rec.CHANGE_GROUP_TYPE_FLAG := 'Y';
605 end if;
606 if l_create_audit_rec.OWNER_ASSIGNED_TIME is not null then
607 l_create_audit_rec.CHANGE_ASSIGNED_TIME_FLAG := 'Y';
608 end if;
609 if l_create_audit_rec.INV_PLATFORM_ORG_ID is not null then
610 l_create_audit_rec.CHANGE_PLATFORM_ORG_ID_FLAG := 'Y';
611 end if;
612 if l_create_audit_rec.COMPONENT_VERSION is not null then
613 l_create_audit_rec.CHANGE_COMP_VER_FLAG := 'Y';
614 end if;
615 if l_create_audit_rec.SUBCOMPONENT_VERSION is not null then
616 l_create_audit_rec.CHANGE_SUBCOMP_VER_FLAG := 'Y';
617 end if;
618 if l_create_audit_rec.PRODUCT_REVISION is not null then
619 l_create_audit_rec.CHANGE_PRODUCT_REVISION_FLAG := 'Y';
620 end if;
621 if l_create_audit_rec.INVENTORY_ITEM_ID is not null then
622 l_create_audit_rec.CHANGE_INVENTORY_ITEM_FLAG := 'Y';
623 end if;
624 if l_create_audit_rec.INV_ORGANIZATION_ID is not null then
625 l_create_audit_rec.CHANGE_INV_ORGANIZATION_FLAG := 'Y';
626 end if;
627 if l_create_audit_rec.STATUS_FLAG is not null then
628 l_create_audit_rec.CHANGE_STATUS_FLAG := 'Y';
629 end if;
630 if l_create_audit_rec.PRIMARY_CONTACT_ID is not null then
631 l_create_audit_rec.CHANGE_PRIMARY_CONTACT_FLAG := 'Y';
632 end if;
633
634 SELECT cs_incidents_audit_s1.NEXTVAL INTO l_incident_audit_id FROM DUAL;
635
636 INSERT INTO cs_incidents_audit_b (
637 INCIDENT_ID ,
638 INCIDENT_AUDIT_ID ,
639 LAST_UPDATE_DATE ,
640 LAST_UPDATED_BY ,
641 CREATION_DATE ,
642 CREATED_BY ,
643 LAST_UPDATE_LOGIN ,
644 CREATION_TIME ,
645 INCIDENT_STATUS_ID ,
646 OLD_INCIDENT_STATUS_ID ,
647 CHANGE_INCIDENT_STATUS_FLAG ,
648 INCIDENT_TYPE_ID ,
649 OLD_INCIDENT_TYPE_ID ,
650 CHANGE_INCIDENT_TYPE_FLAG ,
651 INCIDENT_URGENCY_ID ,
652 OLD_INCIDENT_URGENCY_ID ,
653 CHANGE_INCIDENT_URGENCY_FLAG ,
654 INCIDENT_SEVERITY_ID ,
655 OLD_INCIDENT_SEVERITY_ID ,
656 CHANGE_INCIDENT_SEVERITY_FLAG,
657 RESPONSIBLE_GROUP_ID ,
658 OLD_RESPONSIBLE_GROUP_ID ,
659 CHANGE_RESPONSIBLE_GROUP_FLAG ,
660 INCIDENT_OWNER_ID ,
661 OLD_INCIDENT_OWNER_ID ,
662 CHANGE_INCIDENT_OWNER_FLAG ,
663 EXPECTED_RESOLUTION_DATE,
664 OLD_EXPECTED_RESOLUTION_DATE ,
665 CHANGE_RESOLUTION_FLAG ,
666 GROUP_ID ,
667 OLD_GROUP_ID ,
668 CHANGE_GROUP_FLAG ,
669 OBLIGATION_DATE ,
670 OLD_OBLIGATION_DATE ,
671 CHANGE_OBLIGATION_FLAG ,
672 SITE_ID ,
673 OLD_SITE_ID ,
674 CHANGE_SITE_FLAG ,
675 BILL_TO_CONTACT_ID ,
676 OLD_BILL_TO_CONTACT_ID ,
677 CHANGE_BILL_TO_FLAG ,
678 SHIP_TO_CONTACT_ID ,
682 OLD_INCIDENT_DATE ,
679 OLD_SHIP_TO_CONTACT_ID ,
680 CHANGE_SHIP_TO_FLAG ,
681 INCIDENT_DATE ,
683 CHANGE_INCIDENT_DATE_FLAG ,
684 CLOSE_DATE ,
685 OLD_CLOSE_DATE ,
686 CHANGE_CLOSE_DATE_FLAG ,
687 CUSTOMER_PRODUCT_ID ,
688 OLD_CUSTOMER_PRODUCT_ID ,
689 CHANGE_CUSTOMER_PRODUCT_FLAG ,
690 PLATFORM_ID ,
691 OLD_PLATFORM_ID ,
692 CHANGE_PLATFORM_ID_FLAG ,
693 PLATFORM_VERSION_ID ,
694 OLD_PLATFORM_VERSION_ID ,
695 CHANGE_PLAT_VER_ID_FLAG ,
696 CP_COMPONENT_ID ,
697 OLD_CP_COMPONENT_ID ,
698 CHANGE_CP_COMPONENT_ID_FLAG ,
699 CP_COMPONENT_VERSION_ID ,
700 OLD_CP_COMPONENT_VERSION_ID,
701 CHANGE_CP_COMP_VER_ID_FLAG ,
702 CP_SUBCOMPONENT_ID ,
703 OLD_CP_SUBCOMPONENT_ID ,
704 CHANGE_CP_SUBCOMPONENT_ID_FLAG ,
705 CP_SUBCOMPONENT_VERSION_ID ,
706 OLD_CP_SUBCOMPONENT_VERSION_ID ,
707 CHANGE_CP_SUBCOMP_VER_ID_FLAG ,
708 LANGUAGE_ID ,
709 OLD_LANGUAGE_ID ,
710 CHANGE_LANGUAGE_ID_FLAG ,
711 TERRITORY_ID ,
712 OLD_TERRITORY_ID ,
713 CHANGE_TERRITORY_ID_FLAG ,
714 CP_REVISION_ID ,
715 OLD_CP_REVISION_ID ,
716 CHANGE_CP_REVISION_ID_FLAG ,
717 INV_ITEM_REVISION ,
718 OLD_INV_ITEM_REVISION ,
719 CHANGE_INV_ITEM_REVISION,
720 INV_COMPONENT_ID ,
721 OLD_INV_COMPONENT_ID ,
722 CHANGE_INV_COMPONENT_ID ,
723 INV_COMPONENT_VERSION ,
724 OLD_INV_COMPONENT_VERSION ,
725 CHANGE_INV_COMPONENT_VERSION ,
726 INV_SUBCOMPONENT_ID ,
727 OLD_INV_SUBCOMPONENT_ID ,
728 CHANGE_INV_SUBCOMPONENT_ID ,
729 INV_SUBCOMPONENT_VERSION ,
730 OLD_INV_SUBCOMPONENT_VERSION ,
731 CHANGE_INV_SUBCOMP_VERSION ,
732 RESOURCE_TYPE ,
733 OLD_RESOURCE_TYPE ,
734 CHANGE_RESOURCE_TYPE_FLAG ,
735 OLD_GROUP_TYPE ,
736 GROUP_TYPE ,
737 CHANGE_GROUP_TYPE_FLAG ,
738 OLD_OWNER_ASSIGNED_TIME ,
739 OWNER_ASSIGNED_TIME ,
740 CHANGE_ASSIGNED_TIME_FLAG ,
741 INV_PLATFORM_ORG_ID ,
742 OLD_INV_PLATFORM_ORG_ID ,
743 CHANGE_PLATFORM_ORG_ID_FLAG ,
744 COMPONENT_VERSION ,
745 OLD_COMPONENT_VERSION ,
746 CHANGE_COMP_VER_FLAG ,
747 SUBCOMPONENT_VERSION ,
748 OLD_SUBCOMPONENT_VERSION ,
749 CHANGE_SUBCOMP_VER_FLAG ,
750 PRODUCT_REVISION ,
751 OLD_PRODUCT_REVISION ,
752 CHANGE_PRODUCT_REVISION_FLAG ,
753 INVENTORY_ITEM_ID ,
754 OLD_INVENTORY_ITEM_ID ,
755 CHANGE_INVENTORY_ITEM_FLAG ,
756 INV_ORGANIZATION_ID ,
757 OLD_INV_ORGANIZATION_ID ,
758 CHANGE_INV_ORGANIZATION_FLAG ,
759 STATUS_FLAG ,
760 OLD_STATUS_FLAG ,
761 CHANGE_STATUS_FLAG ,
762 PRIMARY_CONTACT_ID ,
763 CHANGE_PRIMARY_CONTACT_FLAG ,
764 OLD_PRIMARY_CONTACT_ID,
765 OBJECT_VERSION_NUMBER ,
766 UPGRADE_FLAG_FOR_CREATE ,
767 SECURITY_GROUP_ID ) VALUES (
768 l_create_audit_rec.INCIDENT_ID ,
769 l_incident_audit_id ,
770 l_create_audit_rec.CREATION_DATE , -- last_update_date should be same as creation_date
771 l_create_audit_rec.CREATED_BY, -- last_updated_by should be same as created_by
772 l_create_audit_rec.CREATION_DATE ,
773 l_create_audit_rec.CREATED_BY ,
774 l_create_audit_rec.LAST_UPDATE_LOGIN ,
775 l_create_audit_rec.CREATION_TIME ,
776 l_create_audit_rec.INCIDENT_STATUS_ID ,
777 l_create_audit_rec.OLD_INCIDENT_STATUS_ID ,
778 l_create_audit_rec.CHANGE_INCIDENT_STATUS_FLAG ,
779 l_create_audit_rec.INCIDENT_TYPE_ID ,
780 l_create_audit_rec.OLD_INCIDENT_TYPE_ID ,
781 l_create_audit_rec.CHANGE_INCIDENT_TYPE_FLAG ,
782 l_create_audit_rec.INCIDENT_URGENCY_ID ,
783 l_create_audit_rec.OLD_INCIDENT_URGENCY_ID ,
784 l_create_audit_rec.CHANGE_INCIDENT_URGENCY_FLAG ,
785 l_create_audit_rec.INCIDENT_SEVERITY_ID ,
786 l_create_audit_rec.OLD_INCIDENT_SEVERITY_ID ,
787 l_create_audit_rec.CHANGE_INCIDENT_SEVERITY_FLAG,
788 l_create_audit_rec.RESPONSIBLE_GROUP_ID ,
789 l_create_audit_rec.OLD_RESPONSIBLE_GROUP_ID ,
790 l_create_audit_rec.CHANGE_RESPONSIBLE_GROUP_FLAG ,
791 l_create_audit_rec.INCIDENT_OWNER_ID ,
792 l_create_audit_rec.OLD_INCIDENT_OWNER_ID ,
793 l_create_audit_rec.CHANGE_INCIDENT_OWNER_FLAG ,
794 l_create_audit_rec.EXPECTED_RESOLUTION_DATE,
795 l_create_audit_rec.OLD_EXPECTED_RESOLUTION_DATE ,
796 l_create_audit_rec.CHANGE_RESOLUTION_FLAG ,
797 l_create_audit_rec.GROUP_ID ,
798 l_create_audit_rec.OLD_GROUP_ID ,
799 l_create_audit_rec.CHANGE_GROUP_FLAG ,
800 l_create_audit_rec.OBLIGATION_DATE ,
801 l_create_audit_rec.OLD_OBLIGATION_DATE ,
802 l_create_audit_rec.CHANGE_OBLIGATION_FLAG ,
803 l_create_audit_rec.SITE_ID ,
804 l_create_audit_rec.OLD_SITE_ID ,
805 l_create_audit_rec.CHANGE_SITE_FLAG ,
806 l_create_audit_rec.BILL_TO_CONTACT_ID ,
807 l_create_audit_rec.OLD_BILL_TO_CONTACT_ID ,
808 l_create_audit_rec.CHANGE_BILL_TO_FLAG ,
812 l_create_audit_rec.INCIDENT_DATE ,
809 l_create_audit_rec.SHIP_TO_CONTACT_ID ,
810 l_create_audit_rec.OLD_SHIP_TO_CONTACT_ID ,
811 l_create_audit_rec.CHANGE_SHIP_TO_FLAG ,
813 l_create_audit_rec.OLD_INCIDENT_DATE ,
814 l_create_audit_rec.CHANGE_INCIDENT_DATE_FLAG ,
815 l_create_audit_rec.CLOSE_DATE ,
816 l_create_audit_rec.OLD_CLOSE_DATE ,
817 l_create_audit_rec.CHANGE_CLOSE_DATE_FLAG ,
818 l_create_audit_rec.CUSTOMER_PRODUCT_ID ,
819 l_create_audit_rec.OLD_CUSTOMER_PRODUCT_ID ,
820 l_create_audit_rec.CHANGE_CUSTOMER_PRODUCT_FLAG ,
821 l_create_audit_rec.PLATFORM_ID ,
822 l_create_audit_rec.OLD_PLATFORM_ID ,
823 l_create_audit_rec.CHANGE_PLATFORM_ID_FLAG ,
824 l_create_audit_rec.PLATFORM_VERSION_ID ,
825 l_create_audit_rec.OLD_PLATFORM_VERSION_ID ,
826 l_create_audit_rec.CHANGE_PLAT_VER_ID_FLAG ,
827 l_create_audit_rec.CP_COMPONENT_ID ,
828 l_create_audit_rec.OLD_CP_COMPONENT_ID ,
829 l_create_audit_rec.CHANGE_CP_COMPONENT_ID_FLAG ,
830 l_create_audit_rec.CP_COMPONENT_VERSION_ID ,
831 l_create_audit_rec.OLD_CP_COMPONENT_VERSION_ID,
832 l_create_audit_rec.CHANGE_CP_COMP_VER_ID_FLAG ,
833 l_create_audit_rec.CP_SUBCOMPONENT_ID ,
834 l_create_audit_rec.OLD_CP_SUBCOMPONENT_ID ,
835 l_create_audit_rec.CHANGE_CP_SUBCOMPONENT_ID_FLAG ,
836 l_create_audit_rec.CP_SUBCOMPONENT_VERSION_ID ,
837 l_create_audit_rec.OLD_CP_SUBCOMPONENT_VERSION_ID ,
838 l_create_audit_rec.CHANGE_CP_SUBCOMP_VER_ID_FLAG ,
839 l_create_audit_rec.LANGUAGE_ID ,
840 l_create_audit_rec.OLD_LANGUAGE_ID ,
841 l_create_audit_rec.CHANGE_LANGUAGE_ID_FLAG ,
842 l_create_audit_rec.TERRITORY_ID ,
843 l_create_audit_rec.OLD_TERRITORY_ID ,
844 l_create_audit_rec.CHANGE_TERRITORY_ID_FLAG ,
845 l_create_audit_rec.CP_REVISION_ID ,
846 l_create_audit_rec.OLD_CP_REVISION_ID ,
847 l_create_audit_rec.CHANGE_CP_REVISION_ID_FLAG ,
848 l_create_audit_rec.INV_ITEM_REVISION ,
849 l_create_audit_rec.OLD_INV_ITEM_REVISION ,
850 l_create_audit_rec.CHANGE_INV_ITEM_REVISION,
851 l_create_audit_rec.INV_COMPONENT_ID ,
852 l_create_audit_rec.OLD_INV_COMPONENT_ID ,
853 l_create_audit_rec.CHANGE_INV_COMPONENT_ID ,
854 l_create_audit_rec.INV_COMPONENT_VERSION ,
855 l_create_audit_rec.OLD_INV_COMPONENT_VERSION ,
856 l_create_audit_rec.CHANGE_INV_COMPONENT_VERSION ,
857 l_create_audit_rec.INV_SUBCOMPONENT_ID ,
858 l_create_audit_rec.OLD_INV_SUBCOMPONENT_ID ,
859 l_create_audit_rec.CHANGE_INV_SUBCOMPONENT_ID ,
860 l_create_audit_rec.INV_SUBCOMPONENT_VERSION ,
861 l_create_audit_rec.OLD_INV_SUBCOMPONENT_VERSION ,
862 l_create_audit_rec.CHANGE_INV_SUBCOMP_VERSION ,
863 l_create_audit_rec.RESOURCE_TYPE ,
864 l_create_audit_rec.OLD_RESOURCE_TYPE ,
865 l_create_audit_rec.CHANGE_RESOURCE_TYPE_FLAG ,
866 l_create_audit_rec.OLD_GROUP_TYPE ,
867 l_create_audit_rec.GROUP_TYPE ,
868 l_create_audit_rec.CHANGE_GROUP_TYPE_FLAG ,
869 l_create_audit_rec.OLD_OWNER_ASSIGNED_TIME ,
870 l_create_audit_rec.OWNER_ASSIGNED_TIME ,
871 l_create_audit_rec.CHANGE_ASSIGNED_TIME_FLAG ,
872 l_create_audit_rec.INV_PLATFORM_ORG_ID ,
873 l_create_audit_rec.OLD_INV_PLATFORM_ORG_ID ,
874 l_create_audit_rec.CHANGE_PLATFORM_ORG_ID_FLAG ,
875 l_create_audit_rec.COMPONENT_VERSION ,
876 l_create_audit_rec.OLD_COMPONENT_VERSION ,
877 l_create_audit_rec.CHANGE_COMP_VER_FLAG ,
878 l_create_audit_rec.SUBCOMPONENT_VERSION ,
879 l_create_audit_rec.OLD_SUBCOMPONENT_VERSION ,
880 l_create_audit_rec.CHANGE_SUBCOMP_VER_FLAG ,
881 l_create_audit_rec.PRODUCT_REVISION ,
882 l_create_audit_rec.OLD_PRODUCT_REVISION ,
883 l_create_audit_rec.CHANGE_PRODUCT_REVISION_FLAG ,
884 l_create_audit_rec.INVENTORY_ITEM_ID ,
885 l_create_audit_rec.OLD_INVENTORY_ITEM_ID ,
886 l_create_audit_rec.CHANGE_INVENTORY_ITEM_FLAG ,
887 l_create_audit_rec.INV_ORGANIZATION_ID ,
888 l_create_audit_rec.OLD_INV_ORGANIZATION_ID ,
889 l_create_audit_rec.CHANGE_INV_ORGANIZATION_FLAG ,
890 l_create_audit_rec.STATUS_FLAG ,
891 l_create_audit_rec.OLD_STATUS_FLAG ,
892 l_create_audit_rec.CHANGE_STATUS_FLAG ,
893 l_create_audit_rec.PRIMARY_CONTACT_ID ,
894 l_create_audit_rec.CHANGE_PRIMARY_CONTACT_FLAG ,
895 l_create_audit_rec.OLD_PRIMARY_CONTACT_ID ,
896 1,
897 'Y',
898 l_create_audit_rec.SECURITY_GROUP_ID) ;
899
900 l_loop_counter := l_loop_counter+1;
901
902 END LOOP; --{Loop2
903
904 CLOSE c_sr_current;
905
906 l_rows_processed := l_loop_counter;
907
908 ad_parallel_updates_pkg.processed_rowid_range(
909 l_rows_processed,
910 l_end_rowid);
911 COMMIT;
912
913 --
914 -- get new range of rowids
915 --
916 ad_parallel_updates_pkg.get_rowid_range(
917 l_start_rowid,
918 l_end_rowid,
919 l_any_rows_to_process,
920 x_batch_size,
921 FALSE);
922
923 END LOOP; --{Loop1
924
925 x_retcode := AD_CONC_UTILS_PKG.CONC_SUCCESS;
926
927 EXCEPTION
928 WHEN OTHERS THEN
929 x_retcode := AD_CONC_UTILS_PKG.CONC_FAIL;
930 RAISE;
934 WHEN OTHERS THEN
931 END; --AB1
932
933 EXCEPTION
935 x_retcode := AD_CONC_UTILS_PKG.CONC_FAIL;
936 RAISE;
937 END Create_Initial_Audit_Worker;
938
939 END CS_CREATE_AUDIT_REC_PKG;