The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT NULL
FROM per_people_f ppf, per_person_type_usages_f ptu, per_person_types ppt
WHERE ppf.person_id = p_person_id
AND TRUNC (SYSDATE) BETWEEN ppf.effective_start_date AND ppf.effective_end_date
AND ppf.person_id = ptu.person_id
AND TRUNC (SYSDATE) BETWEEN ptu.effective_start_date AND ptu.effective_end_date
AND ptu.person_type_id = ppt.person_type_id
AND ( ppt.system_person_type = 'EMP'
OR ppt.system_person_type = 'APL'
OR ppt.system_person_type = 'CWK'
);
hr_utility.set_message(801,'HR_52785_SUC_CHK_PERSON_UPDATE');
SELECT NULL
FROM hr_positions_f per
WHERE per.position_id = NVL (p_position_id, -1)
AND p_effective_date BETWEEN per.effective_start_date AND per.effective_end_date
AND p_effective_date BETWEEN per.date_effective
AND NVL (hr_general.get_position_date_end (per.position_id),
hr_api.g_eot
);
hr_utility.set_message (801, 'HR_51999_SUC_CHK_POS_UPDATE');
SELECT NULL
FROM per_jobs_vl per
WHERE per.job_id = NVL (p_job_id, -1)
AND p_effective_date BETWEEN per.date_from AND NVL (date_to, TRUNC (SYSDATE));
hr_utility.set_message (801, 'HR_50493_SUC_CHK_JOB_UPDATE');
hr_utility.set_message (801, 'HR_50494_SUC_CHK_SUCC_UPDATE');
SELECT NULL
FROM per_succession_planning per
WHERE per.succession_plan_id <> NVL (p_succession_plan_id, -1)
AND ( (p_position_id IS NOT NULL AND per.position_id = p_position_id)
OR (p_job_id IS NOT NULL AND per.job_id = p_job_id)
OR ( p_successee_person_id IS NOT NULL
AND per.successee_person_id = p_successee_person_id
)
)
AND per.person_rank = p_person_rank
AND p_start_date BETWEEN NVL (per.start_date, hr_api.g_eot)
AND NVL (per.end_date, hr_api.g_eot);
SELECT NULL
FROM per_succession_planning per
WHERE per.succession_plan_id <> NVL (p_succession_plan_id, -1)
AND ( (p_position_id IS NOT NULL AND per.position_id = p_position_id)
OR (p_job_id IS NOT NULL AND per.job_id = p_job_id)
OR ( p_successee_person_id IS NOT NULL
AND per.successee_person_id = p_successee_person_id
)
)
AND per.person_id = p_person_id
AND p_start_date BETWEEN NVL (per.start_date, hr_api.g_eot)
AND NVL (per.end_date, hr_api.g_eot);
hr_utility.set_message (801, 'HR_50497_SUC_CHK_SUC_UPDATE');
SELECT paf.position_id
FROM per_assignments_f paf
WHERE paf.person_id = p_person_id
AND (SYSDATE BETWEEN paf.effective_start_date AND NVL (paf.effective_end_date, SYSDATE)
)
AND paf.effective_start_date <= p_start_date;
SELECT NULL
FROM per_succession_planning per
WHERE per.person_id = p_person_id
AND per.succession_plan_id <> NVL (p_succession_plan_id, -1)
AND ( (p_position_id IS NOT NULL AND per.position_id = p_position_id)
OR (p_job_id IS NOT NULL AND per.job_id = p_job_id)
OR ( p_successee_person_id IS NOT NULL
AND per.successee_person_id = p_successee_person_id
)
)
AND ( per.start_date BETWEEN p_start_date AND NVL (p_end_date, hr_api.g_eot)
OR NVL (per.end_date, hr_api.g_eot) BETWEEN p_start_date
AND NVL (p_end_date, hr_api.g_eot)
);
PROCEDURE insert_validate (p_rec IN per_suc_shd.g_rec_type, p_effective_date IN DATE)
IS
--
l_proc VARCHAR2 (72) := g_package || 'insert_validate';
END insert_validate;
PROCEDURE update_validate (p_rec IN per_suc_shd.g_rec_type, p_effective_date IN DATE)
IS
--
l_proc VARCHAR2 (72) := g_package || 'update_validate';
END update_validate;
PROCEDURE delete_validate (p_rec IN per_suc_shd.g_rec_type)
IS
--
l_proc VARCHAR2 (72) := g_package || 'delete_validate';
END delete_validate;