77: END IF;
78:
79: IF fnd_api.to_boolean (p_init_msg_list)
80: THEN
81: fnd_msg_pub.initialize;
82: END IF;
83:
84: Open c_fetch_note_ids;
85: Fetch c_fetch_note_ids Bulk Collect Into l_tab_note_id;
145: WHEN fnd_api.g_exc_unexpected_error
146: THEN
147: ROLLBACK TO purge_notes;
148: x_return_status := fnd_api.g_ret_sts_unexp_error;
149: fnd_msg_pub.count_and_get (
150: p_count => x_msg_count,
151: p_data => x_msg_data
152: );
153:
155: THEN
156: ROLLBACK TO purge_notes;
157: fnd_message.set_name ('JTF', 'CAC_NOTE_UNKNOWN_ERROR');
158: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
159: fnd_msg_pub.add;
160:
161: x_return_status := fnd_api.g_ret_sts_unexp_error;
162: fnd_msg_pub.count_and_get (
163: p_count => x_msg_count,
158: fnd_message.set_token ('P_TEXT', SQLCODE || SQLERRM);
159: fnd_msg_pub.add;
160:
161: x_return_status := fnd_api.g_ret_sts_unexp_error;
162: fnd_msg_pub.count_and_get (
163: p_count => x_msg_count,
164: p_data => x_msg_data
165: );
166: END purge_notes ;