The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
X_ROWID OUT NOCOPY VARCHAR2,
P_OBJECT_ID IN NUMBER,
P_PERMISSIONS_LOOKUP_TYPE IN VARCHAR2,
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
CURSOR C IS SELECT ROWID FROM IBC_OBJECT_PERMISSIONS
WHERE OBJECT_ID = P_OBJECT_ID;
INSERT INTO IBC_OBJECT_PERMISSIONS (
OBJECT_ID,
PERMISSIONS_LOOKUP_TYPE,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
P_OBJECT_ID,
P_PERMISSIONS_LOOKUP_TYPE,
P_OBJECT_VERSION_NUMBER,
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
PERMISSIONS_LOOKUP_TYPE,
OBJECT_VERSION_NUMBER
FROM IBC_OBJECT_PERMISSIONS
WHERE OBJECT_ID = P_OBJECT_ID
FOR UPDATE OF OBJECT_ID NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW (
P_OBJECT_ID IN NUMBER,
P_PERMISSIONS_LOOKUP_TYPE IN VARCHAR2,
p_LAST_UPDATED_BY IN NUMBER,
p_LAST_UPDATE_DATE IN DATE,
p_LAST_UPDATE_LOGIN IN NUMBER,
p_OBJECT_VERSION_NUMBER IN NUMBER
) IS
BEGIN
UPDATE IBC_OBJECT_PERMISSIONS SET
PERMISSIONS_LOOKUP_TYPE = P_PERMISSIONS_LOOKUP_TYPE,
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
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 OBJECT_ID = P_OBJECT_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_OBJECT_ID IN NUMBER
) IS
BEGIN
DELETE FROM IBC_OBJECT_PERMISSIONS
WHERE OBJECT_ID = P_OBJECT_ID;
END DELETE_ROW;
UPDATE_ROW (
p_object_id => p_object_id,
p_PERMISSIONS_LOOKUP_TYPE => p_PERMISSIONS_LOOKUP_TYPE,
p_LAST_UPDATED_BY =>l_user_id,
p_LAST_UPDATE_DATE =>SYSDATE,
p_LAST_UPDATE_LOGIN =>0,
p_OBJECT_VERSION_NUMBER =>NULL);
INSERT_ROW (
X_ROWID => lx_row_id,
p_object_id => p_object_id,
p_PERMISSIONS_LOOKUP_TYPE => p_PERMISSIONS_LOOKUP_TYPE,
p_OBJECT_VERSION_NUMBER => 1,
p_CREATION_DATE => SYSDATE,
p_CREATED_BY => l_user_id,
p_LAST_UPDATE_DATE => SYSDATE,
p_LAST_UPDATED_BY => l_user_id,
p_LAST_UPDATE_LOGIN => 0);