1: PACKAGE BODY cac_task_purge_pub AS
2: /* $Header: cactkprb.pls 120.17 2006/02/03 03:47:40 sbarat noship $ */
3: /*=======================================================================+
4: | Copyright (c) 2002 Oracle Corporation Redwood Shores, California, USA|
5: | All rights reserved. |
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
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 (
167: END IF;
168: --Logging input parameters
169:
170: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
171: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.purge_tasks', ' p_object_type= '||p_object_type);
172: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.purge_tasks', ' p_processing_set_id= '||p_processing_set_id);
173: end if;
174:
175:
168: --Logging input parameters
169:
170: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
171: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.purge_tasks', ' p_object_type= '||p_object_type);
172: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.purge_tasks', ' p_processing_set_id= '||p_processing_set_id);
173: end if;
174:
175:
176: Open get_tasks_ids(p_processing_set_id ,p_object_type );
187:
188:
189:
190: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
191: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Inserting task data into global tem table');
192: end if;
193:
194: FORALL i in l_tab_tasks_id.first..l_tab_tasks_id.last
195:
203: --Calling the purge APIs for notes , UWQ, Mobile Field Service, Attachments
204: -- and interaction center to purge any references
205:
206: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
207: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling CSM_TASK_PURGE_PKG.DELETE_MFS_TASKS');
208: end if;
209:
210: CSM_TASK_PURGE_PKG.DELETE_MFS_TASKS(
211: P_API_VERSION => 1.0,
221: THEN
222: x_return_status := fnd_api.g_ret_sts_unexp_error;
223:
224: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
225: 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');
226: end if;
227: RAISE fnd_api.g_exc_unexpected_error;
228: end if;
229:
232: -- Calling UWQ's purge API
233:
234: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
235: THEN
236: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling IEU_WR_PUB.PURGE_WR_ITEM');
237: END IF;
238:
239: IEU_WR_PUB.Purge_Wr_Item(
240: p_api_version_number => 1.0,
251: x_return_status := fnd_api.g_ret_sts_unexp_error;
252:
253: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
254: THEN
255: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling IEU_WR_PUB.PURGE_WR_ITEM');
256: END IF;
257:
258: RAISE fnd_api.g_exc_unexpected_error;
259:
263: -- Calling Interaction History's purge API
264:
265: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
266: THEN
267: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling JTF_IH_PURGE.P_DELETE_INTERACTIONS');
268: END IF;
269:
270: JTF_IH_PURGE.P_Delete_Interactions(
271: p_api_version => 1.0,
282: x_return_status := fnd_api.g_ret_sts_unexp_error;
283:
284: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
285: THEN
286: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling JTF_IH_PURGE.P_DELETE_INTERACTIONS');
287: END IF;
288:
289: RAISE fnd_api.g_exc_unexpected_error;
290:
293: /************* End of addition by SBARAT on 03/02/2006 for bug# 4997851 *************/
294:
295: --calling attachment deletion wrapper api.
296: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
297: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling cac_task_purge_pub.delete_atth_to_tasks');
298: end if;
299:
300:
301: delete_atth_to_tasks(
313:
314:
315: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
316:
317: 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');
318: end if;
319: RAISE fnd_api.g_exc_unexpected_error;
320: end if;
321:
321:
322:
323: --Calling notes api
324: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
325: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling cac_note_purge_pub.purge_notes');
326: end if;
327:
328:
329:
339: THEN
340: x_return_status := fnd_api.g_ret_sts_unexp_error;
341:
342: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
343: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_task_purge_pub.purge_tasks', 'return status error after calling cac_note_purge_pub.purge_notes');
344: end if;
345: RAISE fnd_api.g_exc_unexpected_error;
346: end if;
347:
348:
349: --calling the cac_task_purge_pvt.purge_task_entities API
350:
351: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
352: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'Before calling cac_task_purge_pvt.purge_task_entities');
353: end if;
354:
355: cac_task_purge_pvt.purge_task_entities(
356: p_api_version => 1.0,
369: THEN
370: x_return_status := fnd_api.g_ret_sts_unexp_error;
371:
372: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
373: 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');
374: end if;
375:
376: RAISE fnd_api.g_exc_unexpected_error;
377: END IF;
382:
383: -- dbms_output.put_line(' point 5');
384:
385: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
386: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.purge_tasks', 'no task data exists for the given processing set id ');
387: end if;
388:
389: end if;-- for If ( l_tab_tasks_id.COUNT > 0)
390:
520: END IF;
521: --Logging input parameters
522:
523: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
524: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_object_type= '||p_object_type);
525: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_processing_set_id= '||p_processing_set_id);
526: 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);
527: end if;
528:
521: --Logging input parameters
522:
523: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
524: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_object_type= '||p_object_type);
525: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_processing_set_id= '||p_processing_set_id);
526: 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);
527: end if;
528:
529:
522:
523: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
524: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_object_type= '||p_object_type);
525: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'cac_task_purge_pub.validate_tasks', ' p_processing_set_id= '||p_processing_set_id);
526: 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);
527: end if;
528:
529:
530: --calling validations for tasks
565:
566: --call MFS validation API
567:
568: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
569: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.validate_tasks', 'Before calling CSM_TASK_PURGE_PKG.VALIDATE_MFS_TASKS');
570: end if;
571:
572: CSM_TASK_PURGE_PKG.VALIDATE_MFS_TASKS(
573: P_API_VERSION => 1.0,
583: THEN
584: x_return_status := fnd_api.g_ret_sts_unexp_error;
585:
586: if( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
587: 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');
588: end if;
589: RAISE fnd_api.g_exc_unexpected_error;
590: end if;
591:
592:
593: --bulk update the rows with error status E for which tasks validations have failed.
594:
595: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
596: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cac_task_purge_pub.validate_tasks', ' before updating jtf_object_purge_param_tmp');
597: end if;
598:
599: Update jtf_object_purge_param_tmp temp
600: Set temp.purge_status='E',
704: END IF;
705:
706: END validate_tasks;
707:
708: END CAC_TASK_PURGE_PUB;