49: END IF;
50:
51: IF fnd_api.to_boolean (p_init_msg_list)
52: THEN
53: fnd_msg_pub.initialize;
54: END IF;
55:
56: --Logging input parameters
57:
84: THEN
85: COMMIT WORK;
86: END IF;
87:
88: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
89:
90: EXCEPTION
91: WHEN fnd_api.g_exc_unexpected_error
92: THEN
91: WHEN fnd_api.g_exc_unexpected_error
92: THEN
93: ROLLBACK TO purge_notes;
94: x_return_status := fnd_api.g_ret_sts_unexp_error;
95: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
96: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
97: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_note_purge_pub.purge_notes', ' x_return_status= '||x_return_status);
98: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_note_purge_pub.purge_notes', ' x_msg_data= '||x_msg_data);
99: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_note_purge_pub.purge_notes', ' x_msg_count= '||x_msg_count);
103: THEN
104: ROLLBACK TO purge_notes;
105: fnd_message.set_name ('JTF', 'CAC_NOTE_UNKNOWN_ERROR');
106: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
107: fnd_msg_pub.add;
108: x_return_status := fnd_api.g_ret_sts_unexp_error;
109: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
110: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
111: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_note_purge_pub.purge_notes', ' x_return_status= '||x_return_status);
105: fnd_message.set_name ('JTF', 'CAC_NOTE_UNKNOWN_ERROR');
106: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
107: fnd_msg_pub.add;
108: x_return_status := fnd_api.g_ret_sts_unexp_error;
109: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
110: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
111: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_note_purge_pub.purge_notes', ' x_return_status= '||x_return_status);
112: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_note_purge_pub.purge_notes', ' x_msg_data= '||x_msg_data);
113: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'cac_note_purge_pub.purge_notes', ' x_msg_count= '||x_msg_count);