The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE ACC_INSERT (p_user_id in fnd_user.user_id%TYPE,
p_task_id jtf_tasks_b.task_id%TYPE)
IS
l_sqlerrno VARCHAR2(20);
CSM_UTIL_PKG.LOG('Entering ACC_INSERT for task_id: ' || p_task_id,
'CSM_TASK_EVENT_PKG.ACC_INSERT',FND_LOG.LEVEL_PROCEDURE);
CSM_ACC_PKG.Insert_Acc
( P_PUBLICATION_ITEM_NAMES => g_tasks_pubi_name
,P_ACC_TABLE_NAME => g_tasks_acc_table_name
,P_SEQ_NAME => g_tasks_seq_name
,P_PK1_NAME => g_tasks_pk1_name
,P_PK1_NUM_VALUE => p_task_id
,P_USER_ID => p_user_id
);
CSM_UTIL_PKG.LOG('Leaving ACC_INSERT for task_id: ' || p_task_id,
'CSM_TASK_EVENT_PKG.ACC_INSERT',FND_LOG.LEVEL_PROCEDURE);
l_error_msg := ' Exception in ACC_INSERT for task_id:'
|| to_char(p_task_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_TASK_EVENT_PKG.ACC_INSERT',FND_LOG.LEVEL_EXCEPTION);
END ACC_INSERT;
PROCEDURE ACC_DELETE (p_user_id in fnd_user.user_id%TYPE,
p_task_id jtf_tasks_b.task_id%TYPE)
IS
l_sqlerrno VARCHAR2(20);
CSM_UTIL_PKG.LOG('Entering ACC_DELETE for task_id: ' || p_task_id,
'CSM_TASK_EVENT_PKG.ACC_DELETE',FND_LOG.LEVEL_PROCEDURE);
CSM_ACC_PKG.Delete_Acc
( P_PUBLICATION_ITEM_NAMES => g_tasks_pubi_name
,P_ACC_TABLE_NAME => g_tasks_acc_table_name
,P_PK1_NAME => g_tasks_pk1_name
,P_PK1_NUM_VALUE => p_task_id
,P_USER_ID => p_user_id
);
CSM_UTIL_PKG.LOG('Leaving ACC_DELETE for task_id: ' || p_task_id,
'CSM_TASK_EVENT_PKG.ACC_DELETE',FND_LOG.LEVEL_PROCEDURE);
l_error_msg := ' Exception in ACC_DELETE for task_id:'
|| to_char(p_task_id) || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_TASK_EVENT_PKG.ACC_DELETE',FND_LOG.LEVEL_EXCEPTION);
END ACC_DELETE;
SELECT acc.task_id,
acc.USER_ID,
acc.COUNTER,
jt.source_object_type_code
FROM csm_tasks_acc acc,
jtf_tasks_b jt
WHERE jt.task_id = acc.task_id
AND jt.created_by = acc.user_id -- task is created by the user
AND jt.creation_date
< (SYSDATE - csm_profile_pkg.get_task_history_days(acc.user_id))
;
SELECT acc.counter
FROM CSM_TASK_ASSIGNMENTS_ACC acc,
JTF_TASK_ASSIGNMENTS jta
WHERE acc.TASK_ASSIGNMENT_ID = jta.TASK_ASSIGNMENT_ID
AND jta.TASK_ID = b_task_id
AND acc.USER_ID = b_user_id;
SELECT 1
FROM jtm_con_request_data
WHERE product_code = 'CSM'
AND package_name = 'CSM_TASK_EVENT_PKG'
AND procedure_name = 'PURGE_TASKS_CONC'
FOR UPDATE OF last_run_date NOWAIT
;
l_task_tbl.DELETE;
l_userid_tbl.DELETE;
l_counter_tbl.DELETE;
--Delete the taskonly if the SR is closed
csm_task_event_pkg.task_del_init(p_task_id=>l_task_id);
--Delete simply,as there are no SR attached for a personal task
csm_task_event_pkg.task_del_init(p_task_id=>l_task_id);
UPDATE jtm_con_request_data
SET last_run_date = l_last_run_date
WHERE product_code = 'CSM'
AND package_name = 'CSM_TASK_EVENT_PKG'
AND procedure_name = 'PURGE_TASKS_CONC';
SELECT acc.TASK_ID
FROM jtf_task_references_b ref, CSM_TASKS_ACC acc, JTF_TASKS_B esc
WHERE ref.OBJECT_ID = acc.TASK_ID
AND ref.object_type_code = 'TASK'
AND ref.reference_code = 'ESC'
AND ref.task_id = esc.task_id
AND esc.source_object_type_code = 'ESC'
AND ref.LAST_UPDATE_DATE >= b_last_run_date;
SELECT last_run_date
FROM jtm_con_request_data
WHERE product_code = 'CSM'
AND package_name = 'CSM_TASK_EVENT_PKG'
AND procedure_name = 'CHECK_ESCALATION_TASKS_CONC'
FOR UPDATE OF last_run_date NOWAIT;
UPDATE jtm_con_request_data
SET last_run_date = l_last_run_date
WHERE CURRENT OF l_upd_last_run_date_csr;
SELECT acc.user_id, acc.access_id
FROM csm_tasks_acc acc
WHERE acc.task_id = p_task_id;
SELECT acc.user_id, jta.task_assignment_id
FROM jtf_tasks_b jt,
csm_tasks_acc acc,
jtf_task_statuses_b jts,
jtf_task_assignments jta
WHERE acc.task_id = p_task_id
AND jt.task_id = acc.task_id
AND jta.task_id = acc.task_id
AND jts.task_status_id = jt.task_status_id
AND ((CSM_UTIL_PKG.GetLocalTime(jt.scheduled_start_date, acc.user_id) <
(SYSDATE - NVL(csm_profile_pkg.get_task_history_days(asg_base.get_user_id),100))
)
AND
(jts.cancelled_flag = 'Y' OR jts.closed_flag = 'Y' OR jts.completed_flag = 'Y' OR jts.rejected_flag = 'Y')
);
SELECT CSM_ACTIVITY_SEQ.nextval FROM dual;
l_accesslist.DELETE;
l_resourcelist.DELETE;
l_dmllist.DELETE;
SELECT jt.CREATED_BY, jtt.private_flag, jt.source_object_type_code, jt.ADDRESS_ID -- 22 means Escalation task
FROM JTF_TASKS_B jt,
jtf_task_types_b jtt
WHERE jt.TASK_ID = b_task_id
AND jtt.task_type_id = jt.task_type_id;
csm_task_event_pkg.acc_insert(p_task_id=>p_task_id,
p_user_id=>l_task_rec.CREATED_BY);
SELECT jt.CREATED_BY, jt.ADDRESS_ID, jt.SOURCE_OBJECT_TYPE_CODE
FROM JTF_TASKS_B jt
WHERE jt.TASK_ID = b_task_id
AND EXISTS
(SELECT 1
FROM csm_tasks_acc acc
WHERE acc.user_id = jt.created_by
AND acc.task_id = jt.task_id);
csm_task_event_pkg.acc_delete(p_task_id=>p_task_id,
p_user_id=>l_task_rec.CREATED_BY);