The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
PX_ROWID IN OUT NOCOPY VARCHAR2,
P_GRANT_GROUP_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
CURSOR C IS SELECT ROWID FROM IBC_GRANT_GROUPS
WHERE GRANT_GROUP_ID = P_GRANT_GROUP_ID
;
INSERT INTO IBC_GRANT_GROUPS (
OBJECT_VERSION_NUMBER,
GRANT_GROUP_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
P_OBJECT_VERSION_NUMBER,
P_GRANT_GROUP_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
OBJECT_VERSION_NUMBER
FROM IBC_GRANT_GROUPS
WHERE GRANT_GROUP_ID = P_GRANT_GROUP_ID
FOR UPDATE OF GRANT_GROUP_ID NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW (
P_GRANT_GROUP_ID IN NUMBER,
p_OBJECT_VERSION_NUMBER IN NUMBER,
p_LAST_UPDATED_BY IN NUMBER,
p_LAST_UPDATE_DATE IN DATE,
p_LAST_UPDATE_LOGIN IN NUMBER
) IS
BEGIN
UPDATE IBC_GRANT_GROUPS SET
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 GRANT_GROUP_ID = P_GRANT_GROUP_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_GROUP_ID IN NUMBER
) IS
BEGIN
DELETE FROM IBC_GRANT_GROUPS
WHERE GRANT_GROUP_ID = P_GRANT_GROUP_ID;
END DELETE_ROW;