The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
x_ROWID OUT NOCOPY VARCHAR2,
px_Directory_Node_Rel_ID IN OUT NOCOPY NUMBER,
p_CHILD_DIR_NODE_ID IN NUMBER,
p_PARENT_DIR_NODE_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_DIRECTORY_NODE_RELS
WHERE Directory_Node_Rel_ID = px_Directory_Node_Rel_ID;
CURSOR c2 IS SELECT ibc_Directory_Node_Rels_s1.NEXTVAL FROM dual;
SELECT directory_node_code
FROM ibc_directory_nodes_b
WHERE directory_node_id = p_dir_node_id;
INSERT INTO IBC_DIRECTORY_NODE_RELS (
Directory_Node_Rel_ID,
CHILD_DIR_NODE_ID,
PARENT_DIR_NODE_ID,
OBJECT_VERSION_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
px_Directory_Node_Rel_ID ,
p_CHILD_DIR_NODE_ID,
p_PARENT_DIR_NODE_ID,
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
OBJECT_VERSION_NUMBER
FROM IBC_DIRECTORY_NODE_RELS
WHERE Directory_Node_Rel_ID = p_Directory_Node_Rel_ID
FOR UPDATE OF CHILD_DIR_NODE_ID NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_ROW (
p_Directory_Node_Rel_ID IN NUMBER,
p_CHILD_DIR_NODE_ID IN NUMBER,
p_LAST_UPDATED_BY IN NUMBER,
p_LAST_UPDATE_DATE IN DATE,
p_LAST_UPDATE_LOGIN IN NUMBER,
p_OBJECT_VERSION_NUMBER IN NUMBER,
p_PARENT_DIR_NODE_ID IN NUMBER
) IS
CURSOR c_dirnode(p_dir_node_id NUMBER) IS
SELECT directory_node_code
FROM ibc_directory_nodes_b
WHERE directory_node_id = p_dir_node_id;
UPDATE IBC_DIRECTORY_NODE_RELS SET
CHILD_DIR_NODE_ID = DECODE(p_CHILD_DIR_NODE_ID,FND_API.G_MISS_NUM,NULL,NULL,CHILD_DIR_NODE_ID,p_CHILD_DIR_NODE_ID),
PARENT_DIR_NODE_ID = DECODE(p_PARENT_DIR_NODE_ID,FND_API.G_MISS_NUM,NULL,NULL,PARENT_DIR_NODE_ID,p_PARENT_DIR_NODE_ID),
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 Directory_Node_Rel_ID = p_Directory_Node_Rel_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_Directory_Node_Rel_ID IN NUMBER
) IS
BEGIN
DELETE FROM IBC_DIRECTORY_NODE_RELS
WHERE Directory_Node_Rel_ID = p_Directory_Node_Rel_ID;
END DELETE_ROW;
p_LAST_UPDATE_DATE IN VARCHAR2) IS
CURSOR c_dirnode(p_dir_node_id NUMBER) IS
SELECT directory_node_code
FROM ibc_directory_nodes_b
WHERE directory_node_id = p_dir_node_id;
l_last_update_date DATE;
db_last_update_date DATE;
--get last updated by user id
l_user_id := FND_LOAD_UTIL.OWNER_ID(p_OWNER);
--translate data type VARCHAR2 to DATE for last_update_date
l_last_update_date := nvl(TO_DATE(p_last_update_date, 'YYYY/MM/DD'),SYSDATE);
-- get updatedby and update_date values if existing in db
SELECT LAST_UPDATED_BY, LAST_UPDATE_DATE INTO db_user_id, db_last_update_date
FROM IBC_DIRECTORY_NODE_RELS
WHERE Directory_Node_Rel_ID = p_Directory_Node_Rel_ID
AND object_version_number = DECODE(object_version_number,
FND_API.G_MISS_NUM,object_version_number,
NULL,object_version_number,
object_version_number);
IF (FND_LOAD_UTIL.UPLOAD_TEST(l_user_id, l_last_update_date,
db_user_id, db_last_update_date, p_upload_mode )) THEN
Ibc_Directory_Node_Rels_Pkg.UPDATE_ROW (
p_DIRECTORY_NODE_REL_ID => p_DIRECTORY_NODE_REL_ID ,
p_CHILD_DIR_NODE_ID => nvl(p_child_dir_NODE_ID,FND_API.G_MISS_NUM),
p_PARENT_DIR_NODE_ID => nvl(p_pARENT_dir_NODE_ID,FND_API.G_MISS_NUM),
p_LAST_UPDATED_BY => l_user_id,
p_LAST_UPDATE_DATE => sysdate,
p_LAST_UPDATE_LOGIN => 0,
p_OBJECT_VERSION_NUMBER => NULL);
Ibc_Directory_Node_Rels_Pkg.INSERT_ROW (
x_ROWID => l_row_id,
px_DIRECTORY_NODE_REL_ID => lx_DIRECTORY_NODE_REL_ID ,
p_CHILD_DIR_NODE_ID => p_child_dir_node_id,
p_PARENT_DIR_NODE_ID => p_PARENT_DIR_NODE_ID ,
p_CREATED_BY => l_user_id ,
p_CREATION_DATE => SYSDATE,
p_LAST_UPDATED_BY => l_user_id ,
p_LAST_UPDATE_DATE => sysdate ,
p_LAST_UPDATE_LOGIN => 0,
p_OBJECT_VERSION_NUMBER => 1);
p_LAST_UPDATE_DATE IN VARCHAR2) IS
BEGIN
IF (p_UPLOAD_MODE = 'NLS') THEN
NULL;
p_last_update_date => p_LAST_UPDATE_DATE);