The following lines contain the word 'select', 'insert', 'update' or 'delete':
select resource_id /* Bug 2738741 - Changed from null to resource_id */
from PA_RESOURCE_TXN_ATTRIBUTES pa
where pa.person_id = P_PERSON_ID;
SELECT 'x' FROM pa_resource_list_members
WHERE resource_id = p_resource_id;
SELECT 'x' FROM pa_rbs_elements
WHERE person_id = p_person_id;
and raise error if records in the cursor. If not delete records from pa_resources_denorm,
pa_resource_txn_attributes, pa_resources */
Error_Message := 'PA_HR_PER_RES_TXN_ATTR';
/* Bug#2738741 - Delete from resource tables and denorm table as no reference */
/* Bug#2738741 - Added code to check if prm is installed, if so delete from pa_resources_denorm
and called delete API for forecast items */
-- Bug 4092769 - Remove PJR license check.
-- IF (pa_install.is_prm_licensed = 'Y') THEN
PA_FORECASTITEM_PVT.Delete_FI(p_resource_id => r_id,
x_return_status => l_ret_stat,
x_msg_count => msg_cnt,
x_msg_data => msg_data);
DELETE FROM pa_resources_denorm WHERE resource_id = r_id;
DELETE FROM pa_resource_txn_attributes where resource_id = r_id;
DELETE FROM pa_resources WHERE resource_id = r_id;
select null
from PA_RESOURCE_TXN_ATTRIBUTES pa
where pa.job_id = P_JOB_ID;
select null
from PA_RESOURCE_MAPS pa
where pa.job_id = P_JOB_ID;
SELECT 'Y'
FROM dual
WHERE exists (select 'Y' from pa_resource_list_members
where job_id = p_job_id
UNION
select 'Y' from pa_rbs_elements
where job_id = p_job_id);