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_SUBJECT_TYPE_CODE IN VARCHAR2,
X_SUBJECT_RACE_CODE IN VARCHAR2,
X_SUBJECT_ETHNICITY_CODE IN VARCHAR2,
X_NO_OF_SUBJECTS IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2
) is
cursor C is select ROWID from IGW_SUBJECT_INFORMATION
where STUDY_TITLE_ID = X_STUDY_TITLE_ID and SUBJECT_TYPE_CODE = X_SUBJECT_TYPE_CODE;
insert into IGW_SUBJECT_INFORMATION (
STUDY_TITLE_ID,
SUBJECT_TYPE_CODE,
SUBJECT_RACE_CODE,
SUBJECT_ETHNICITY_CODE,
NO_OF_SUBJECTS,
RECORD_VERSION_NUMBER)
values (
X_STUDY_TITLE_ID,
X_SUBJECT_TYPE_CODE,
X_SUBJECT_RACE_CODE,
X_SUBJECT_ETHNICITY_CODE,
X_NO_OF_SUBJECTS,
1);
,p_procedure_name => 'INSERT_ROW' );
end INSERT_ROW;
procedure UPDATE_ROW (
X_ROWID IN ROWID,
X_STUDY_TITLE_ID IN NUMBER,
X_SUBJECT_TYPE_CODE IN VARCHAR2,
X_SUBJECT_RACE_CODE IN VARCHAR2,
X_SUBJECT_ETHNICITY_CODE IN VARCHAR2,
X_NO_OF_SUBJECTS IN NUMBER,
X_RECORD_VERSION_NUMBER IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2
) is
begin
x_return_status := FND_API.G_RET_STS_SUCCESS;
update igw_subject_information set
study_title_id = x_study_title_id,
subject_type_code = x_subject_type_code,
subject_race_code = x_subject_race_code,
subject_ethnicity_code = x_subject_ethnicity_code,
no_of_subjects = x_no_of_subjects,
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_record_version_number in number
,X_RETURN_STATUS OUT NOCOPY VARCHAR2
) is
l_record_version_number NUMBER;
delete from igw_subject_information
where rowid = x_rowid
and record_version_number = x_record_version_number;
,p_procedure_name => 'DELETE_ROW' );
end DELETE_ROW;