The following lines contain the word 'select', 'insert', 'update' or 'delete':
select IGW_STUDY_TITLES_S.NEXTVAL
into l_study_title_id
from dual;
IGW_STUDY_TITLES_TBH.INSERT_ROW (
X_ROWID => x_rowid,
X_STUDY_TITLE_ID => l_study_title_id,
X_STUDY_TITLE => p_study_title,
X_ENROLLMENT_STATUS => p_enrollment_status,
X_PROTOCOL_NUMBER => p_protocol_number,
X_PROPOSAL_ID => p_proposal_id,
X_RETURN_STATUS => l_return_status);
PROCEDURE UPDATE_STUDY_TITLE
(p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
, p_commit IN VARCHAR2 := FND_API.G_FALSE
, p_validate_only IN VARCHAR2 := FND_API.G_TRUE
, p_proposal_id IN NUMBER
, p_proposal_number IN VARCHAR2
, p_study_title_id IN NUMBER
, p_study_title IN VARCHAR2
, p_enrollment_status IN VARCHAR2
, p_protocol_number IN VARCHAR2
, p_rowid IN ROWID
, p_record_version_number IN NUMBER
, x_return_status OUT NOCOPY VARCHAR2
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2) IS
l_msg_data VARCHAR2(250);
SAVEPOINT update_study_title;
IGW_STUDY_TITLES_TBH.UPDATE_ROW (
X_ROWID => p_rowid,
X_STUDY_TITLE_ID => p_study_title_id,
X_STUDY_TITLE => p_study_title,
X_ENROLLMENT_STATUS => p_enrollment_status,
X_PROTOCOL_NUMBER => p_protocol_number,
X_PROPOSAL_ID => l_proposal_id,
X_RECORD_VERSION_NUMBER => p_record_version_number,
X_RETURN_STATUS => l_return_status);
ROLLBACK TO update_study_title;
ROLLBACK TO update_study_title;
ROLLBACK TO update_study_title;
p_procedure_name => 'UPDATE_STUDY_TITLE');
END UPDATE_STUDY_TITLE;
PROCEDURE DELETE_STUDY_TITLE (
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
,p_study_title_id IN NUMBER
,p_record_version_number IN NUMBER
,x_rowid IN VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2) is
l_msg_count NUMBER;
SAVEPOINT delete_study_title;
IGW_STUDY_TITLES_TBH.DELETE_ROW(
x_rowid => x_rowid,
x_study_title_id => p_study_title_id,
x_record_version_number => p_record_version_number,
x_return_status => x_return_status);
ROLLBACK TO delete_study_title;
ROLLBACK TO update_study_title;
ROLLBACK TO update_study_title;
p_procedure_name => 'DELETE_STUDY_TITLE');
select 1
into l_dummy
from igw_study_titles
where rowid = x_rowid
and record_version_number = p_record_version_number;