The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
-- P_ROWID IN OUT VARCHAR2,
P_ROLE_STATUS_MENU_ID OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
P_ROLE_ID IN NUMBER,
P_STATUS_TYPE IN VARCHAR2,
P_STATUS_CODE IN VARCHAR2,
P_MENU_ID IN NUMBER,
P_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
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_STATUS_MENU_MAP_S.nextval
into P_ROLE_STATUS_MENU_ID
from sys.dual;
insert into pa_role_status_menu_map (
ROLE_STATUS_MENU_ID,
ROLE_ID,
STATUS_TYPE,
STATUS_CODE,
MENU_ID,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
P_ROLE_STATUS_MENU_ID,
P_ROLE_ID,
P_STATUS_TYPE,
P_STATUS_CODE,
P_MENU_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;
SELECT *
FROM pa_role_status_menu_map
WHERE ROLE_STATUS_MENU_ID = P_ROLE_STATUS_MENU_ID
FOR UPDATE NOWAIT;
FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW (
-- P_ROWID IN OUT VARCHAR2,
P_ROLE_STATUS_MENU_ID IN NUMBER,
P_ROLE_ID IN NUMBER,
P_STATUS_TYPE IN VARCHAR2,
P_STATUS_CODE IN VARCHAR2,
P_MENU_ID IN NUMBER,
P_OBJECT_VERSION_NUMBER IN OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
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_STATUS_MENU_ID,
P_OBJECT_VERSION_NUMBER
);
update pa_role_status_menu_map
set
STATUS_CODE = P_STATUS_CODE,
MENU_ID = P_MENU_ID,
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_status_menu_id = p_role_status_menu_id;
END UPDATE_ROW;
PROCEDURE DELETE_ROW (
P_ROLE_STATUS_MENU_ID IN NUMBER,
P_OBJECT_VERSION_NUMBER IN NUMBER) IS
BEGIN
LOCK_ROW (
P_ROLE_STATUS_MENU_ID,
P_OBJECT_VERSION_NUMBER
);
delete from pa_role_status_menu_map
where role_status_menu_id = p_role_status_menu_id;
END Delete_Row;