The following lines contain the word 'select', 'insert', 'update' or 'delete':
Purpose : Deletes all Notes for an Expense Report object
*/
-----------------------------------------------------------------------------
procedure DeleteERNotes (
p_src_report_header_id IN NUMBER
)
IS
l_debug_info VARCHAR2(2000);
l_debug_info := 'Delete Notes from ER';
AP_NOTES_PUB.Delete_Notes (
p_api_version => 1.0,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_source_object_code => c_ER_Object_Code,
p_source_object_id => p_src_report_header_id,
p_note_type => AP_NOTES_PUB.G_ALL_NOTE_TYPES
);
Wf_Core.Context('AP_WEB_NOTES_PKG', 'DeleteERNotes',
null, to_char(p_src_report_header_id), null, l_debug_info);
END DeleteERNotes;