81:
82:
83: END IF;--for IF l_tab_task_ids.COUNT > 0
84:
85: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
86:
87: EXCEPTION
88: WHEN fnd_api.g_exc_unexpected_error
89: THEN
88: WHEN fnd_api.g_exc_unexpected_error
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);
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);
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 (
113: p_count => x_msg_count,
114: p_data => x_msg_data
115: );
116:
176: END IF;
177:
178: IF fnd_api.to_boolean (p_init_msg_list)
179: THEN
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
418: THEN
419: COMMIT WORK;
420: END IF;
421:
422: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
423:
424:
425: EXCEPTION
426: WHEN fnd_api.g_exc_unexpected_error
426: WHEN fnd_api.g_exc_unexpected_error
427: THEN
428: ROLLBACK TO purge_tasks;
429: x_return_status := fnd_api.g_ret_sts_unexp_error;
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
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
439: i IN 1..FND_MSG_PUB.Count_Msg
440: LOOP
435: IF
436: FND_MSG_PUB.Count_Msg > 0
437: THEN
438: FOR
439: i IN 1..FND_MSG_PUB.Count_Msg
440: LOOP
441: FND_MSG_PUB.Get
442: (
443: p_msg_index => i
437: THEN
438: FOR
439: i IN 1..FND_MSG_PUB.Count_Msg
440: LOOP
441: FND_MSG_PUB.Get
442: (
443: p_msg_index => i
444: , p_encoded => 'F'
445: , p_data => x_msg_data
459: THEN
460: ROLLBACK TO purge_tasks;
461: fnd_message.set_name ('JTF', 'CAC_TASK_UNKNOWN_ERROR');
462: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
463: fnd_msg_pub.add;
464: x_return_status := fnd_api.g_ret_sts_unexp_error;
465: if (get_tasks_ids%ISOPEN) then
466: Close get_tasks_ids;
467: END IF;
464: x_return_status := fnd_api.g_ret_sts_unexp_error;
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
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
474: i IN 1..FND_MSG_PUB.Count_Msg
475: LOOP
470: IF
471: FND_MSG_PUB.Count_Msg > 0
472: THEN
473: FOR
474: i IN 1..FND_MSG_PUB.Count_Msg
475: LOOP
476: FND_MSG_PUB.Get
477: (
478: p_msg_index => i
472: THEN
473: FOR
474: i IN 1..FND_MSG_PUB.Count_Msg
475: LOOP
476: FND_MSG_PUB.Get
477: (
478: p_msg_index => i
479: , p_encoded => 'F'
480: , p_data => x_msg_data
540: END IF;
541:
542: IF fnd_api.to_boolean (p_init_msg_list)
543: THEN
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
653: THEN
654: COMMIT WORK;
655: END IF;
656:
657: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
658:
659: EXCEPTION
660: WHEN fnd_api.g_exc_unexpected_error
661: THEN
663: if (tasks_ids%ISOPEN) then
664: CLOSE tasks_ids;
665: end if;
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
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
675: i IN 1..FND_MSG_PUB.Count_Msg
676: LOOP
671: IF
672: FND_MSG_PUB.Count_Msg > 0
673: THEN
674: FOR
675: i IN 1..FND_MSG_PUB.Count_Msg
676: LOOP
677: FND_MSG_PUB.Get
678: (
679: p_msg_index => i
673: THEN
674: FOR
675: i IN 1..FND_MSG_PUB.Count_Msg
676: LOOP
677: FND_MSG_PUB.Get
678: (
679: p_msg_index => i
680: , p_encoded => 'F'
681: , p_data => x_msg_data
698: CLOSE tasks_ids;
699: end if;
700: fnd_message.set_name ('JTF', 'JTF_TASK_VALID_UNKNOWN_ERR');
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
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
710: LOOP
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
710: LOOP
711: FND_MSG_PUB.Get
712: (
713: p_msg_index => i
707: THEN
708: FOR
709: i IN 1..FND_MSG_PUB.Count_Msg
710: LOOP
711: FND_MSG_PUB.Get
712: (
713: p_msg_index => i
714: , p_encoded => 'F'
715: , p_data => x_msg_data