The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
P_ROLE_JOB_BG_ID OUT NOCOPY NUMBER,
P_PROJECT_ROLE_ID IN NUMBER,
P_BUSINESS_GROUP_ID IN NUMBER,
P_JOB_ID IN NUMBER,
P_MIN_JOB_LEVEL IN NUMBER,
P_MAX_JOB_LEVEL IN NUMBER,
P_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER,
P_LAST_UPDATE_DATE IN DATE,
P_LAST_UPDATED_BY IN NUMBER,
P_CREATION_DATE IN DATE,
P_CREATED_BY IN NUMBER,
P_LAST_UPDATE_LOGIN IN NUMBER
) IS
BEGIN
-- Initialize object version number.
p_object_version_number := 1;
select PA_ROLE_JOB_BGS_S.nextval
into P_ROLE_JOB_BG_ID
from sys.dual;
insert into PA_ROLE_JOB_BGS (
ROLE_JOB_BG_ID,
PROJECT_ROLE_ID,
BUSINESS_GROUP_ID,
JOB_ID,
MIN_JOB_LEVEL,
MAX_JOB_LEVEL,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
P_ROLE_JOB_BG_ID,
P_PROJECT_ROLE_ID,
P_BUSINESS_GROUP_ID,
P_JOB_ID,
P_MIN_JOB_LEVEL,
P_MAX_JOB_LEVEL,
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;
SELECT *
FROM PA_ROLE_JOB_BGS
WHERE ROLE_JOB_BG_ID = P_ROLE_JOB_BG_ID
FOR UPDATE NOWAIT;
FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW (
P_ROLE_JOB_BG_ID IN NUMBER,
P_PROJECT_ROLE_ID IN NUMBER,
P_BUSINESS_GROUP_ID IN NUMBER,
P_JOB_ID IN NUMBER,
P_MIN_JOB_LEVEL IN NUMBER,
P_MAX_JOB_LEVEL IN NUMBER,
P_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER,
P_LAST_UPDATE_DATE IN DATE,
P_LAST_UPDATED_BY IN NUMBER,
P_CREATION_DATE IN DATE,
P_CREATED_BY IN NUMBER,
P_LAST_UPDATE_LOGIN IN NUMBER
) IS
BEGIN
-- Lock the row for update.
LOCK_ROW (
P_ROLE_JOB_BG_ID,
P_OBJECT_VERSION_NUMBER
);
update PA_ROLE_JOB_BGS
set
BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID,
JOB_ID = P_JOB_ID,
MIN_JOB_LEVEL = P_MIN_JOB_LEVEL,
MAX_JOB_LEVEL = P_MAX_JOB_LEVEL,
OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER,
LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
LAST_UPDATED_BY = P_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
WHERE role_job_bg_id = p_role_job_bg_id;
END UPDATE_ROW;
PROCEDURE DELETE_ROW (
P_ROLE_JOB_BG_ID IN NUMBER,
P_OBJECT_VERSION_NUMBER IN NUMBER) IS
BEGIN
LOCK_ROW (
P_ROLE_JOB_BG_ID,
P_OBJECT_VERSION_NUMBER
);
delete from PA_ROLE_JOB_BGS
where ROLE_JOB_BG_ID = P_ROLE_JOB_BG_ID;
END Delete_Row;