89: THEN
90: ROLLBACK TO purge_task_attach;
91: x_return_status := fnd_api.g_ret_sts_unexp_error;
92: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
93: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
94: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_return_status= '||x_return_status);
95: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_data= '||x_msg_data);
96: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_count= '||x_msg_count);
97: end if;
90: ROLLBACK TO purge_task_attach;
91: x_return_status := fnd_api.g_ret_sts_unexp_error;
92: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
93: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
94: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_return_status= '||x_return_status);
95: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_data= '||x_msg_data);
96: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_count= '||x_msg_count);
97: end if;
98:
91: x_return_status := fnd_api.g_ret_sts_unexp_error;
92: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
93: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
94: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_return_status= '||x_return_status);
95: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_data= '||x_msg_data);
96: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_count= '||x_msg_count);
97: end if;
98:
99: WHEN OTHERS
92: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
93: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
94: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_return_status= '||x_return_status);
95: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_data= '||x_msg_data);
96: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_count= '||x_msg_count);
97: end if;
98:
99: WHEN OTHERS
100: THEN
101: ROLLBACK TO purge_task_attach;
102: fnd_message.set_name ('JTF', 'JTF_ATTACHMENT_PURGE_EXCEP');
103: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
104: fnd_msg_pub.add;
105: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
106: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_return_status= '||x_return_status);
107: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_data= '||x_msg_data);
108: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_count= '||x_msg_count);
109: end if;
102: fnd_message.set_name ('JTF', 'JTF_ATTACHMENT_PURGE_EXCEP');
103: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
104: fnd_msg_pub.add;
105: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
106: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_return_status= '||x_return_status);
107: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_data= '||x_msg_data);
108: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_count= '||x_msg_count);
109: end if;
110:
103: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
104: fnd_msg_pub.add;
105: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
106: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_return_status= '||x_return_status);
107: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_data= '||x_msg_data);
108: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_count= '||x_msg_count);
109: end if;
110:
111: x_return_status := fnd_api.g_ret_sts_unexp_error;
104: fnd_msg_pub.add;
105: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
106: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_return_status= '||x_return_status);
107: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_data= '||x_msg_data);
108: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.delete_atth_to_tasks', ' x_msg_count= '||x_msg_count);
109: end if;
110:
111: x_return_status := fnd_api.g_ret_sts_unexp_error;
112: fnd_msg_pub.count_and_get (
180: fnd_msg_pub.initialize;
181: END IF;
182: --Logging input parameters
183:
184: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
185: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.purge_tasks', ' p_object_type= '||p_object_type);
186: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.purge_tasks', ' p_processing_set_id= '||p_processing_set_id);
187: end if;
188:
181: END IF;
182: --Logging input parameters
183:
184: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
185: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.purge_tasks', ' p_object_type= '||p_object_type);
186: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.purge_tasks', ' p_processing_set_id= '||p_processing_set_id);
187: end if;
188:
189:
182: --Logging input parameters
183:
184: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
185: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.purge_tasks', ' p_object_type= '||p_object_type);
186: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.purge_tasks', ' p_processing_set_id= '||p_processing_set_id);
187: end if;
188:
189:
190: Open get_tasks_ids(p_processing_set_id ,p_object_type );
200: select jtf_object_purge_proc_set_s.nextval into proc_seq_num from dual;
201:
202:
203:
204: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
205: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Inserting task data into global tem table');
206: end if;
207:
208: FORALL i in l_tab_tasks_id.first..l_tab_tasks_id.last
201:
202:
203:
204: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
205: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Inserting task data into global tem table');
206: end if;
207:
208: FORALL i in l_tab_tasks_id.first..l_tab_tasks_id.last
209:
227:
228: --Calling the purge APIs for notes , UWQ, Mobile Field Service, Attachments
229: -- and interaction center to purge any references
230:
231: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
232: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling CSM_TASK_PURGE_PKG.DELETE_MFS_TASKS');
233: end if;
234:
235: CSM_TASK_PURGE_PKG.DELETE_MFS_TASKS(
228: --Calling the purge APIs for notes , UWQ, Mobile Field Service, Attachments
229: -- and interaction center to purge any references
230:
231: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
232: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling CSM_TASK_PURGE_PKG.DELETE_MFS_TASKS');
233: end if;
234:
235: CSM_TASK_PURGE_PKG.DELETE_MFS_TASKS(
236: P_API_VERSION => 1.0,
245: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
246: THEN
247: x_return_status := fnd_api.g_ret_sts_unexp_error;
248:
249: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
250: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling CSM_TASK_PURGE_PKG.DELETE_MFS_TASKS');
251: end if;
252: RAISE fnd_api.g_exc_unexpected_error;
253: end if;
246: THEN
247: x_return_status := fnd_api.g_ret_sts_unexp_error;
248:
249: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
250: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling CSM_TASK_PURGE_PKG.DELETE_MFS_TASKS');
251: end if;
252: RAISE fnd_api.g_exc_unexpected_error;
253: end if;
254:
255: /************* Start of addition by SBARAT on 03/02/2006 for bug# 4997851 *************/
256:
257: -- Calling UWQ's purge API
258:
259: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
260: THEN
261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling IEU_WR_PUB.PURGE_WR_ITEM');
262: END IF;
263:
257: -- Calling UWQ's purge API
258:
259: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
260: THEN
261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling IEU_WR_PUB.PURGE_WR_ITEM');
262: END IF;
263:
264: IEU_WR_PUB.Purge_Wr_Item(
265: p_api_version_number => 1.0,
274: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
275: THEN
276: x_return_status := fnd_api.g_ret_sts_unexp_error;
277:
278: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
279: THEN
280: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling IEU_WR_PUB.PURGE_WR_ITEM');
281: END IF;
282:
276: x_return_status := fnd_api.g_ret_sts_unexp_error;
277:
278: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
279: THEN
280: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling IEU_WR_PUB.PURGE_WR_ITEM');
281: END IF;
282:
283: RAISE fnd_api.g_exc_unexpected_error;
284:
286:
287:
288: -- Calling Interaction History's purge API
289:
290: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
291: THEN
292: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling JTF_IH_PURGE.P_DELETE_INTERACTIONS');
293: END IF;
294:
288: -- Calling Interaction History's purge API
289:
290: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
291: THEN
292: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling JTF_IH_PURGE.P_DELETE_INTERACTIONS');
293: END IF;
294:
295: JTF_IH_PURGE.P_Delete_Interactions(
296: p_api_version => 1.0,
305: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
306: THEN
307: x_return_status := fnd_api.g_ret_sts_unexp_error;
308:
309: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
310: THEN
311: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling JTF_IH_PURGE.P_DELETE_INTERACTIONS');
312: END IF;
313:
307: x_return_status := fnd_api.g_ret_sts_unexp_error;
308:
309: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
310: THEN
311: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling JTF_IH_PURGE.P_DELETE_INTERACTIONS');
312: END IF;
313:
314: RAISE fnd_api.g_exc_unexpected_error;
315:
317:
318: /************* End of addition by SBARAT on 03/02/2006 for bug# 4997851 *************/
319:
320: --calling attachment deletion wrapper api.
321: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
322: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling cac_task_purge_pub.delete_atth_to_tasks');
323: end if;
324:
325:
318: /************* End of addition by SBARAT on 03/02/2006 for bug# 4997851 *************/
319:
320: --calling attachment deletion wrapper api.
321: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
322: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling cac_task_purge_pub.delete_atth_to_tasks');
323: end if;
324:
325:
326: delete_atth_to_tasks(
336:
337: x_return_status := fnd_api.g_ret_sts_unexp_error;
338:
339:
340: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
341:
342: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling cac_task_purge_pub.delete_atth_to_tasks');
343: end if;
344: RAISE fnd_api.g_exc_unexpected_error;
338:
339:
340: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
341:
342: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling cac_task_purge_pub.delete_atth_to_tasks');
343: end if;
344: RAISE fnd_api.g_exc_unexpected_error;
345: end if;
346:
345: end if;
346:
347:
348: --Calling notes api
349: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
350: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling cac_note_purge_pub.purge_notes');
351: end if;
352:
353:
346:
347:
348: --Calling notes api
349: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
350: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling cac_note_purge_pub.purge_notes');
351: end if;
352:
353:
354:
363: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
364: THEN
365: x_return_status := fnd_api.g_ret_sts_unexp_error;
366:
367: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
368: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling cac_note_purge_pub.purge_notes');
369: end if;
370: RAISE fnd_api.g_exc_unexpected_error;
371: end if;
364: THEN
365: x_return_status := fnd_api.g_ret_sts_unexp_error;
366:
367: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
368: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling cac_note_purge_pub.purge_notes');
369: end if;
370: RAISE fnd_api.g_exc_unexpected_error;
371: end if;
372:
372:
373:
374: --calling the cac_task_purge_pvt.purge_task_entities API
375:
376: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling cac_task_purge_pvt.purge_task_entities');
378: end if;
379:
380: cac_task_purge_pvt.purge_task_entities(
373:
374: --calling the cac_task_purge_pvt.purge_task_entities API
375:
376: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
377: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling cac_task_purge_pvt.purge_task_entities');
378: end if;
379:
380: cac_task_purge_pvt.purge_task_entities(
381: p_api_version => 1.0,
393: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
394: THEN
395: x_return_status := fnd_api.g_ret_sts_unexp_error;
396:
397: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
398: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', ' return status error after calling cac_task_purge_pvt.purge_task_entities');
399: end if;
400:
401: RAISE fnd_api.g_exc_unexpected_error;
394: THEN
395: x_return_status := fnd_api.g_ret_sts_unexp_error;
396:
397: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
398: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', ' return status error after calling cac_task_purge_pvt.purge_task_entities');
399: end if;
400:
401: RAISE fnd_api.g_exc_unexpected_error;
402: END IF;
406: --else for If ( get_task_processing_set_id.COUNT > 0) then
407:
408: -- dbms_output.put_line(' point 5');
409:
410: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
411: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'no task data exists for the given processing set id ');
412: end if;
413:
414: end if;-- for If ( l_tab_tasks_id.COUNT > 0)
407:
408: -- dbms_output.put_line(' point 5');
409:
410: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
411: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'no task data exists for the given processing set id ');
412: end if;
413:
414: end if;-- for If ( l_tab_tasks_id.COUNT > 0)
415:
430: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
431: if (get_tasks_ids%ISOPEN) then
432: Close get_tasks_ids;
433: END IF;
434: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
435: IF
436: FND_MSG_PUB.Count_Msg > 0
437: THEN
438: FOR
444: , p_encoded => 'F'
445: , p_data => x_msg_data
446: , p_msg_index_out => l_msg_index_out
447: );
448: fnd_log.string
449: (
450: fnd_log.level_exception
451: , 'Purge Test'
452: , 'Error is ' || x_msg_data || ' [Index:' || l_msg_index_out || ']'
446: , p_msg_index_out => l_msg_index_out
447: );
448: fnd_log.string
449: (
450: fnd_log.level_exception
451: , 'Purge Test'
452: , 'Error is ' || x_msg_data || ' [Index:' || l_msg_index_out || ']'
453: );
454: END LOOP;
465: if (get_tasks_ids%ISOPEN) then
466: Close get_tasks_ids;
467: END IF;
468: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
469: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
470: IF
471: FND_MSG_PUB.Count_Msg > 0
472: THEN
473: FOR
479: , p_encoded => 'F'
480: , p_data => x_msg_data
481: , p_msg_index_out => l_msg_index_out
482: );
483: fnd_log.string
484: (
485: fnd_log.level_exception
486: , 'Purge Test'
487: , 'Error is ' || x_msg_data || ' [Index:' || l_msg_index_out || ']'
481: , p_msg_index_out => l_msg_index_out
482: );
483: fnd_log.string
484: (
485: fnd_log.level_exception
486: , 'Purge Test'
487: , 'Error is ' || x_msg_data || ' [Index:' || l_msg_index_out || ']'
488: );
489: END LOOP;
544: fnd_msg_pub.initialize;
545: END IF;
546: --Logging input parameters
547:
548: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
549: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_object_type= '||p_object_type);
550: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_processing_set_id= '||p_processing_set_id);
551: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_purge_source_with_open_task= '||p_purge_source_with_open_task);
552: end if;
545: END IF;
546: --Logging input parameters
547:
548: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
549: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_object_type= '||p_object_type);
550: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_processing_set_id= '||p_processing_set_id);
551: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_purge_source_with_open_task= '||p_purge_source_with_open_task);
552: end if;
553:
546: --Logging input parameters
547:
548: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
549: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_object_type= '||p_object_type);
550: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_processing_set_id= '||p_processing_set_id);
551: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_purge_source_with_open_task= '||p_purge_source_with_open_task);
552: end if;
553:
554:
547:
548: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
549: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_object_type= '||p_object_type);
550: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_processing_set_id= '||p_processing_set_id);
551: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_purge_source_with_open_task= '||p_purge_source_with_open_task);
552: end if;
553:
554:
555: --calling validations for tasks
589: (proc_seq_num, l_tab_tasks_id(i),'TASK', null,null);
590:
591: --call MFS validation API
592:
593: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
594: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.validate_tasks', 'Before calling CSM_TASK_PURGE_PKG.VALIDATE_MFS_TASKS');
595: end if;
596:
597: CSM_TASK_PURGE_PKG.VALIDATE_MFS_TASKS(
590:
591: --call MFS validation API
592:
593: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
594: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.validate_tasks', 'Before calling CSM_TASK_PURGE_PKG.VALIDATE_MFS_TASKS');
595: end if;
596:
597: CSM_TASK_PURGE_PKG.VALIDATE_MFS_TASKS(
598: P_API_VERSION => 1.0,
607: IF NOT (x_return_status = fnd_api.g_ret_sts_success)
608: THEN
609: x_return_status := fnd_api.g_ret_sts_unexp_error;
610:
611: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
612: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling CSM_TASK_PURGE_PKG.VALIDATE_MFS_TASKS');
613: end if;
614: RAISE fnd_api.g_exc_unexpected_error;
615: end if;
608: THEN
609: x_return_status := fnd_api.g_ret_sts_unexp_error;
610:
611: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
612: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling CSM_TASK_PURGE_PKG.VALIDATE_MFS_TASKS');
613: end if;
614: RAISE fnd_api.g_exc_unexpected_error;
615: end if;
616:
616:
617:
618: --bulk update the rows with error status E for which tasks validations have failed.
619:
620: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
621: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.validate_tasks', ' before updating jtf_object_purge_param_tmp');
622: end if;
623:
624: Update jtf_object_purge_param_tmp temp
617:
618: --bulk update the rows with error status E for which tasks validations have failed.
619:
620: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
621: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.validate_tasks', ' before updating jtf_object_purge_param_tmp');
622: end if;
623:
624: Update jtf_object_purge_param_tmp temp
625: Set temp.purge_status='E',
666: x_return_status := fnd_api.g_ret_sts_unexp_error;
667: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
668:
669:
670: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
671: IF
672: FND_MSG_PUB.Count_Msg > 0
673: THEN
674: FOR
680: , p_encoded => 'F'
681: , p_data => x_msg_data
682: , p_msg_index_out => l_msg_index_out
683: );
684: fnd_log.string
685: (
686: fnd_log.level_exception
687: , 'Purge Test'
688: , 'Error is ' || x_msg_data || ' [Index:' || l_msg_index_out || ']'
682: , p_msg_index_out => l_msg_index_out
683: );
684: fnd_log.string
685: (
686: fnd_log.level_exception
687: , 'Purge Test'
688: , 'Error is ' || x_msg_data || ' [Index:' || l_msg_index_out || ']'
689: );
690: END LOOP;
701: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
702: fnd_msg_pub.add;
703: x_return_status := fnd_api.g_ret_sts_unexp_error;
704:
705: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
706: IF FND_MSG_PUB.Count_Msg > 0
707: THEN
708: FOR
709: i IN 1..FND_MSG_PUB.Count_Msg
716: , p_msg_index_out => l_msg_index_out
717: );
718:
719:
720: fnd_log.string
721: (
722: fnd_log.level_exception
723: , 'Purge Test'
724: , 'Error is ' || x_msg_data || ' [Index:' || l_msg_index_out || ']'
718:
719:
720: fnd_log.string
721: (
722: fnd_log.level_exception
723: , 'Purge Test'
724: , 'Error is ' || x_msg_data || ' [Index:' || l_msg_index_out || ']'
725: );
726: END LOOP;