The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT jtf_dsp_obj_lgl_ctnt_s1.NEXTVAL
FROM DUAL;
PROCEDURE delete_logical_content(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.g_false,
p_commit IN VARCHAR2 := FND_API.g_false,
x_return_status OUT VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2,
p_object_type IN VARCHAR2,
p_lgl_ctnt_rec IN OBJ_LGL_CTNT_REC_TYPE
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_logical_content';
SAVEPOINT delete_logical_content;
delete from jtf_dsp_obj_lgl_ctnt where
obj_lgl_ctnt_id = p_lgl_ctnt_rec.obj_lgl_ctnt_id and
object_version_number = p_lgl_ctnt_rec.object_version_number;
ROLLBACK TO delete_logical_content;
ROLLBACK TO delete_logical_content;
ROLLBACK TO delete_logical_content;
ROLLBACK TO delete_logical_content;
END delete_logical_content;
delete from JTF_DSP_OBJ_LGL_CTNT where
obj_lgl_ctnt_id = p_lgl_ctnt_rec.obj_lgl_ctnt_id and
object_version_number = p_lgl_ctnt_rec.object_version_number and
object_type = l_object_type;
INSERT INTO JTF_DSP_OBJ_LGL_CTNT (
OBJ_LGL_CTNT_ID,
OBJECT_VERSION_NUMBER,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
OBJECT_ID,
OBJECT_TYPE,
CONTEXT_ID,
ITEM_ID
)
VALUES (
l_obj_lgl_ctnt_id,
1,
SYSDATE,
FND_GLOBAL.user_id,
SYSDATE,
FND_GLOBAL.user_id,
FND_GLOBAL.user_id,
p_lgl_ctnt_rec.object_id,
l_object_type,
p_lgl_ctnt_rec.context_id,
p_lgl_ctnt_rec.deliverable_id);
UPDATE JTF_DSP_OBJ_LGL_CTNT SET
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.user_id,
LAST_UPDATE_LOGIN= FND_GLOBAL.user_id,
OBJECT_ID = p_lgl_ctnt_rec.object_id,
OBJECT_TYPE = l_object_type,
CONTEXT_ID = p_lgl_ctnt_rec.context_id,
ITEM_ID = p_lgl_ctnt_rec.deliverable_id ,
OBJECT_VERSION_NUMBER = p_lgl_ctnt_rec.object_version_number + 1
WHERE
OBJ_LGL_CTNT_ID = p_lgl_ctnt_rec.obj_lgl_ctnt_id and
OBJECT_VERSION_NUMBER = p_lgl_ctnt_rec.object_version_number;
PROCEDURE save_delete_lgl_ctnt(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.g_false,
p_commit IN VARCHAR2 := FND_API.g_false,
x_return_status OUT VARCHAR2,
x_msg_count OUT NUMBER,
x_msg_data OUT VARCHAR2,
p_object_type_code IN VARCHAR2,
p_lgl_ctnt_tbl IN OBJ_LGL_CTNT_TBL_TYPE
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'save_delete_itm_lgl_ctnt';
SAVEPOINT save_delete_itm_lgl_ctnt;
IF p_lgl_ctnt_tbl(l_index).obj_lgl_ctnt_delete = FND_API.g_true
then
--dbms_output.put_line('CALLING DELETE_LOGICAL_CONTENT');
delete_logical_content(
p_api_version,
FND_API.g_false,
FND_API.g_false,
l_return_status,
l_msg_count,
l_msg_data,
p_object_type_code,
p_lgl_ctnt_tbl(l_index));
ELSIF p_lgl_ctnt_tbl(l_index).obj_lgl_ctnt_delete = FND_API.g_false
then
--dbms_output.put_line('CALLING SAVE_LOGICAL_CONTENT');
ROLLBACK TO save_delete_itm_lgl_ctnt;
ROLLBACK TO save_delete_itm_lgl_ctnt;
ROLLBACK TO save_delete_itm_lgl_ctnt;
END save_delete_lgl_ctnt;
PROCEDURE delete_section(
p_section_id IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_section';
SAVEPOINT delete_section;
DELETE FROM JTF_DSP_OBJ_LGL_CTNT where
OBJECT_TYPE = 'S' and
OBJECT_ID = p_section_id;
ROLLBACK TO delete_section;
END delete_section;
PROCEDURE delete_deliverable(
p_deliverable_id IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_deliverable';
SAVEPOINT delete_deliverable;
UPDATE JTF_DSP_OBJ_LGL_CTNT SET
ITEM_ID = null where
ITEM_ID = p_deliverable_id ;
ROLLBACK TO delete_deliverable;
END delete_deliverable;
PROCEDURE delete_category(
p_category_id IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_category';
DELETE FROM JTF_DSP_OBJ_LGL_CTNT where
OBJECT_TYPE = 'C' and
OBJECT_ID = p_category_id;
END delete_category;
PROCEDURE delete_item(
p_item_id IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_item';
DELETE FROM JTF_DSP_OBJ_LGL_CTNT where
OBJECT_TYPE = 'I' and
OBJECT_ID = p_item_id;
END delete_item;
PROCEDURE delete_context(
p_context_id IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_context';
SAVEPOINT delete_context;
delete JTF_DSP_OBJ_LGL_CTNT
where context_id = p_context_id;
ROLLBACK TO delete_context;
END delete_context;
PROCEDURE delete_category_dlv(
p_category_id IN NUMBER,
p_deliverable_id IN NUMBER
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_category_dlv';
SAVEPOINT delete_category_dlv;
UPDATE JTF_DSP_OBJ_LGL_CTNT
set item_id = null
where object_type = 'C' and
object_id = p_category_id and
ITEM_ID = p_deliverable_id;
ROLLBACK TO delete_category_dlv;
END delete_category_dlv;