The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
PX_ROWID IN OUT NOCOPY VARCHAR2,
P_GRANT_ID IN NUMBER,
P_PERMISSION_CODE IN VARCHAR2,
P_GRANTEE_RESOURCE_ID IN NUMBER,
P_GRANTEE_USER_ID IN NUMBER,
P_GRANTEE_RESOURCE_TYPE IN VARCHAR2,
P_GRANT_GROUP_ID IN NUMBER,
P_ACTION IN VARCHAR2,
P_GRANT_LEVEL IN NUMBER,
P_CASCADE_FLAG IN VARCHAR2,
P_OBJECT_VERSION_NUMBER IN NUMBER,
P_OBJECT_ID 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
CURSOR C IS SELECT ROWID FROM IBC_GRANTS
WHERE GRANT_ID = P_GRANT_ID
;
INSERT INTO IBC_GRANTS (
PERMISSION_CODE,
GRANTEE_RESOURCE_ID,
GRANTEE_USER_ID,
GRANTEE_RESOURCE_TYPE,
GRANT_GROUP_ID,
ACTION,
GRANT_LEVEL,
CASCADE_FLAG,
OBJECT_VERSION_NUMBER,
GRANT_ID,
OBJECT_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
P_PERMISSION_CODE,
P_GRANTEE_RESOURCE_ID,
P_GRANTEE_USER_ID,
P_GRANTEE_RESOURCE_TYPE,
P_GRANT_GROUP_ID,
P_ACTION,
P_GRANT_LEVEL,
P_CASCADE_FLAG,
P_OBJECT_VERSION_NUMBER,
P_GRANT_ID,
P_OBJECT_ID,
DECODE(p_creation_date, FND_API.G_MISS_DATE, SYSDATE, NULL, SYSDATE,p_creation_date),
DECODE(p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.user_id,NULL, FND_GLOBAL.user_id, p_created_by),
DECODE(p_last_update_date, FND_API.G_MISS_DATE, SYSDATE, NULL, SYSDATE,p_last_update_date),
DECODE(p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.user_id,NULL, FND_GLOBAL.user_id, p_last_updated_by),
DECODE(p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.login_id,NULL, FND_GLOBAL.login_id, p_last_update_login)
);
END INSERT_ROW;
CURSOR c IS SELECT
PERMISSION_CODE,
GRANTEE_RESOURCE_ID,
GRANTEE_USER_ID,
GRANTEE_RESOURCE_TYPE,
GRANT_GROUP_ID,
ACTION,
GRANT_LEVEL,
CASCADE_FLAG,
OBJECT_VERSION_NUMBER,
OBJECT_ID
FROM IBC_GRANTS
WHERE GRANT_ID = P_GRANT_ID
FOR UPDATE OF GRANT_ID NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW (
P_GRANT_ID IN NUMBER,
P_PERMISSION_CODE IN VARCHAR2,
P_GRANTEE_RESOURCE_ID IN NUMBER,
P_GRANTEE_USER_ID IN NUMBER,
P_GRANTEE_RESOURCE_TYPE IN VARCHAR2,
P_GRANT_GROUP_ID IN NUMBER,
P_ACTION IN VARCHAR2,
P_GRANT_LEVEL IN NUMBER,
P_CASCADE_FLAG IN VARCHAR2,
p_OBJECT_VERSION_NUMBER IN NUMBER,
P_OBJECT_ID IN NUMBER,
p_LAST_UPDATED_BY IN NUMBER,
p_LAST_UPDATE_DATE IN DATE,
p_LAST_UPDATE_LOGIN IN NUMBER
) IS
BEGIN
UPDATE IBC_GRANTS SET
PERMISSION_CODE = P_PERMISSION_CODE,
GRANTEE_RESOURCE_ID = P_GRANTEE_RESOURCE_ID,
GRANTEE_USER_ID = P_GRANTEE_USER_ID,
GRANTEE_RESOURCE_TYPE = P_GRANTEE_RESOURCE_TYPE,
GRANT_GROUP_ID = P_GRANT_GROUP_ID,
ACTION = P_ACTION,
GRANT_LEVEL = P_GRANT_LEVEL,
CASCADE_FLAG = P_CASCADE_FLAG,
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
OBJECT_ID = P_OBJECT_ID,
last_update_date = DECODE(p_last_update_date, FND_API.G_MISS_DATE, SYSDATE,
NULL, SYSDATE, p_last_update_date),
last_updated_by = DECODE(p_last_updated_by, FND_API.G_MISS_NUM,
FND_GLOBAL.user_id, NULL, FND_GLOBAL.user_id,
p_last_updated_by),
last_update_login = DECODE(p_last_update_login, FND_API.G_MISS_NUM,
FND_GLOBAL.login_id, NULL, FND_GLOBAL.login_id,
p_last_update_login)
WHERE GRANT_ID = P_GRANT_ID
AND object_version_number = DECODE(p_object_version_number,
FND_API.G_MISS_NUM,object_version_number,
NULL,object_version_number,
p_object_version_number);
END UPDATE_ROW;
PROCEDURE DELETE_ROW (
P_GRANT_ID IN NUMBER
) IS
BEGIN
DELETE FROM IBC_GRANTS
WHERE GRANT_ID = P_GRANT_ID;
END DELETE_ROW;