The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID out NOCOPY VARCHAR2,
X_CI_IMPACT_ID out NOCOPY NUMBER,
x_ci_id IN NUMBER,
x_impact_type_code IN varchar2,
x_status_code IN VARCHAR2,
x_description IN VARCHAR2,
x_implementation_date IN DATE,
x_implemented_by IN NUMBER,
x_implementation_comment IN VARCHAR2,
x_impacted_task_id IN number,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
cursor C is select ROWID from PA_CI_IMPACTS
where CI_IMPACT_ID = X_CI_IMPACT_ID
;
SELECT pa_ci_impacts_s.NEXTVAL
INTO X_CI_IMPACT_ID
FROM sys.dual;
insert into PA_CI_IMPACTS (
ci_impact_id ,
CI_ID ,
impact_type_code ,
status_code ,
description ,
implementation_date ,
implemented_by ,
implementation_comment ,
impacted_task_id,
CREATION_DATE ,
CREATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATED_BY ,
last_update_login,
record_version_number ) values (
x_ci_impact_id,
x_ci_id ,
x_impact_type_code ,
x_status_code ,
x_description ,
x_implementation_date ,
x_implemented_by ,
x_implementation_comment ,
x_impacted_task_id,
nvl(X_CREATION_DATE, sysdate) ,
nvl(X_CREATED_BY, fnd_global.user_id) ,
nvl(X_LAST_UPDATE_DATE, sysdate),
nvl(X_LAST_UPDATED_BY, fnd_global.user_id),
nvl(X_LAST_UPDATE_LOGIN, fnd_global.login_id),
1
);
end INSERT_ROW;
cursor c is select
impact_type_code,
ci_id
from PA_CI_IMPACTS
where ci_impact_id
= x_ci_impact_id
AND record_version_number = x_record_version_number
for update of CI_impact_ID nowait;
procedure DELETE_ROW (
X_CI_IMPACT_ID in NUMBER,
X_record_version_number in NUMBER
) is
begin
delete from PA_CI_IMPACTS
where CI_IMPACT_ID = x_ci_impact_id
AND record_version_number =x_record_version_number;
end DELETE_ROW;
procedure UPDATE_ROW (
X_CI_IMPACT_ID NUMBER,
x_ci_id IN NUMBER,
x_impact_type_code IN varchar2,
x_status_code IN VARCHAR2,
x_description IN VARCHAR2,
x_implementation_date IN DATE,
x_implemented_by IN NUMBER,
x_implementation_comment IN VARCHAR2,
x_impacted_task_id IN NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
x_record_version_number IN number
) is
begin
update PA_CI_IMPACTS SET
CI_ID = Nvl(x_ci_id, ci_id),
impact_type_code = Nvl(x_impact_type_code,impact_type_code),
status_code = Nvl(x_status_code,status_code),
description = x_description,
implementation_date = x_implementation_date,
implemented_by = x_implemented_by,
implementation_comment = x_implementation_comment,
impacted_task_id = x_impacted_task_id,
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = fnd_global.user_id,
last_update_login = fnd_global.login_id,
record_version_number = record_version_number +1
WHERE ci_impact_id = x_ci_impact_id
AND record_version_number = Nvl(x_record_version_number, record_version_number);
end UPDATE_ROW;