The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
-- P_ROWID in out nocopy VARCHAR2,
PX_FLWSTS_TRAN_RESP_ID in out nocopy NUMBER,
P_FLWSTS_TRAN_ID in NUMBER,
P_RESPONSIBILITY_ID in NUMBER,
P_OBJECT_VERSION_NUMBER in NUMBER,
P_CREATION_DATE in DATE,
P_CREATED_BY in NUMBER,
P_LAST_UPDATE_DATE in DATE,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER
) is
P_ROWID ROWID;
cursor C is select ROWID from CSD_FLWSTS_TRAN_RESPS
where FLWSTS_TRAN_RESP_ID = PX_FLWSTS_TRAN_RESP_ID
;
select CSD_FLWSTS_TRAN_RESPS_S1.nextval
into PX_FLWSTS_TRAN_RESP_ID
from dual;
insert into CSD_FLWSTS_TRAN_RESPS (
FLWSTS_TRAN_RESP_ID,
FLWSTS_TRAN_ID,
RESPONSIBILITY_ID,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
PX_FLWSTS_TRAN_RESP_ID,
P_FLWSTS_TRAN_ID,
P_RESPONSIBILITY_ID,
P_OBJECT_VERSION_NUMBER,
P_CREATION_DATE,
P_CREATED_BY,
P_LAST_UPDATE_DATE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_LOGIN
);
end INSERT_ROW;
cursor c is select
OBJECT_VERSION_NUMBER
from CSD_FLWSTS_TRAN_RESPS
where FLWSTS_TRAN_RESP_ID = P_FLWSTS_TRAN_RESP_ID
for update of FLWSTS_TRAN_RESP_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
P_FLWSTS_TRAN_RESP_ID in NUMBER,
P_FLWSTS_TRAN_ID in NUMBER,
P_RESPONSIBILITY_ID in NUMBER,
P_OBJECT_VERSION_NUMBER in NUMBER,
P_LAST_UPDATE_DATE in DATE,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER
) is
begin
update CSD_FLWSTS_TRAN_RESPS set
FLWSTS_TRAN_ID = P_FLWSTS_TRAN_ID,
RESPONSIBILITY_ID = P_RESPONSIBILITY_ID,
OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER + 1,
LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
LAST_UPDATED_BY = P_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
where FLWSTS_TRAN_RESP_ID = P_FLWSTS_TRAN_RESP_ID AND
OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER;
end UPDATE_ROW;
procedure DELETE_ROW (
P_FLWSTS_TRAN_RESP_ID in NUMBER
) is
begin
delete from CSD_FLWSTS_TRAN_RESPS
where FLWSTS_TRAN_RESP_ID = P_FLWSTS_TRAN_RESP_ID;
end DELETE_ROW;