The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID out NOCOPY rowid,
X_STUDY_TITLE_ID in NUMBER,
X_STUDY_TITLE in VARCHAR2,
X_ENROLLMENT_STATUS in VARCHAR2,
X_PROTOCOL_NUMBER in VARCHAR2,
X_PROPOSAL_ID in NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2
) is
cursor C is select ROWID from IGW_STUDY_TITLES
where STUDY_TITLE_ID = X_STUDY_TITLE_ID;
insert into IGW_STUDY_TITLES (
STUDY_TITLE_ID,
STUDY_TITLE,
ENROLLMENT_STATUS,
PROTOCOL_NUMBER,
PROPOSAL_ID,
RECORD_VERSION_NUMBER)
values (
X_STUDY_TITLE_ID,
X_STUDY_TITLE,
X_ENROLLMENT_STATUS,
X_PROTOCOL_NUMBER,
X_PROPOSAL_ID,
1
);
,p_procedure_name => 'INSERT_ROW' );
end INSERT_ROW;
procedure UPDATE_ROW (
X_ROWID IN ROWID,
X_STUDY_TITLE_ID in NUMBER,
X_STUDY_TITLE in VARCHAR2,
X_ENROLLMENT_STATUS in VARCHAR2,
X_PROTOCOL_NUMBER in VARCHAR2,
X_PROPOSAL_ID in NUMBER,
X_RECORD_VERSION_NUMBER IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2
) is
l_row_id ROWID := x_rowid;
SELECT rowid
FROM igw_study_titles
WHERE study_title_id = x_study_title_id;
update igw_study_titles set
study_title_id = x_study_title_id,
study_title = x_study_title,
enrollment_status = x_enrollment_status,
protocol_number = x_protocol_number,
proposal_id = x_proposal_id,
record_version_number = x_record_version_number +1
where rowid = x_rowid
and record_version_number = x_record_version_number;
,p_procedure_name => 'UPDATE_ROW' );
end UPDATE_ROW;
procedure DELETE_ROW (
x_rowid in rowid
,x_study_title_id in number
,x_record_version_number in number
,X_RETURN_STATUS OUT NOCOPY VARCHAR2
) is
l_row_id ROWID := x_rowid;
SELECT rowid
FROM igw_study_titles
WHERE study_title_id = x_study_title_id;
delete from igw_study_titles
where rowid = l_row_id
and record_version_number = x_record_version_number;
,p_procedure_name => 'DELETE_ROW' );
end DELETE_ROW;