The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
-- P_ROWID in out nocopy VARCHAR2,
PX_RT_TRAN_RESP_ID in out nocopy NUMBER,
P_RT_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_RT_TRAN_RESPS
where RT_TRAN_RESP_ID = PX_RT_TRAN_RESP_ID
;
select CSD_RT_TRAN_RESPS_S1.nextval
into PX_RT_TRAN_RESP_ID
from dual;
insert into CSD_RT_TRAN_RESPS (
RT_TRAN_RESP_ID,
RT_TRAN_ID,
RESPONSIBILITY_ID,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
PX_RT_TRAN_RESP_ID,
P_RT_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_RT_TRAN_RESPS
where RT_TRAN_RESP_ID = P_RT_TRAN_RESP_ID
for update of RT_TRAN_RESP_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
P_RT_TRAN_RESP_ID in NUMBER,
P_RT_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_RT_TRAN_RESPS set
RT_TRAN_ID = P_RT_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 RT_TRAN_RESP_ID = P_RT_TRAN_RESP_ID AND
OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER;
end UPDATE_ROW;
procedure DELETE_ROW (
P_RT_TRAN_RESP_ID in NUMBER
) is
begin
delete from CSD_RT_TRAN_RESPS
where RT_TRAN_RESP_ID = P_RT_TRAN_RESP_ID;
end DELETE_ROW;