The following lines contain the word 'select', 'insert', 'update' or 'delete':
IS SELECT notes_detail
FROM ap_notes
WHERE note_id = p_note_id
FOR UPDATE;
p_last_update_date IN DATE := sysdate ,
p_last_updated_by IN NUMBER := fnd_global.user_id ,
p_last_update_login IN NUMBER := fnd_global.login_id
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Create_Note';
select ap_notes_s.nextval into l_note_id from dual;
fnd_log.string(fnd_log.level_statement,G_MODULE_PREFIX||l_api_name,'Calling insert into AP_NOTES');
insert into AP_NOTES (
NOTE_ID,
SOURCE_OBJECT_CODE,
SOURCE_OBJECT_ID,
ENTERED_BY,
ENTERED_DATE,
NOTE_TYPE,
NOTES_DETAIL,
SOURCE_LANG,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
l_note_id,
p_source_object_code,
p_source_object_id,
p_entered_by,
p_entered_date,
p_note_type,
EMPTY_CLOB(), --p_notes_detail
p_source_lang,
p_creation_date,
nvl(p_entered_by,-1),--Bug#6768560
p_last_update_date,
nvl(p_entered_by,-1),--Bug#6768560
nvl(p_last_update_login,-1)
);
procedure Delete_Notes (
p_api_version IN NUMBER ,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
p_commit IN VARCHAR2 := FND_API.G_FALSE ,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2 ,
p_source_object_code IN VARCHAR2 ,
p_source_object_id IN NUMBER ,
p_note_type IN VARCHAR2 := G_ALL_NOTE_TYPES
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Notes';
SAVEPOINT Delete_Notes;
delete from AP_NOTES
where SOURCE_OBJECT_CODE = p_source_object_code
and SOURCE_OBJECT_ID = p_source_object_id
and NOTE_TYPE is null;
delete from AP_NOTES
where SOURCE_OBJECT_CODE = p_source_object_code
and SOURCE_OBJECT_ID = p_source_object_id;
delete from AP_NOTES
where SOURCE_OBJECT_CODE = p_source_object_code
and SOURCE_OBJECT_ID = p_source_object_id
and NOTE_TYPE = p_note_type;
ROLLBACK TO Delete_Notes;
ROLLBACK TO Delete_Notes;
ROLLBACK TO Delete_Notes;
END Delete_Notes;
fnd_log.string(fnd_log.level_statement,G_MODULE_PREFIX||l_api_name,'Calling insert into AP_NOTES');
insert into AP_NOTES (
NOTE_ID,
SOURCE_OBJECT_CODE,
SOURCE_OBJECT_ID,
ENTERED_BY,
ENTERED_DATE,
NOTE_TYPE,
NOTES_DETAIL,
SOURCE_LANG,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
)
select
AP_NOTES_S.nextval,
p_new_source_object_code,
p_new_source_object_id,
ENTERED_BY,
ENTERED_DATE,
NOTE_TYPE,
NOTES_DETAIL,
SOURCE_LANG,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
from AP_NOTES
where source_object_code = p_old_source_object_code
and source_object_id = p_old_source_object_id;