68: --
69: hr_utility.set_location(' Leaving:'||l_proc, 10);
70: --
71: Exception
72: When hr_api.child_integrity_violated then
73: -- Child integrity has been violated
74: --
75: per_ctk_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
72: When hr_api.child_integrity_violated then
73: -- Child integrity has been violated
74: --
75: per_ctk_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When Others Then
78: --
79: Raise;
80: End delete_dml;
143: l_effective_date date;
144: Begin
145: hr_utility.set_location('Entering:'||l_proc, 10);
146: --
147: if ( nvl(per_ctk_shd.g_old_rec.eligibility_profile_id, hr_api.g_number) <> hr_api.g_number AND
148: nvl(per_ctk_shd.g_old_rec.eligibility_profile_id, hr_api.g_number) <> nvl(p_rec.eligibility_profile_id, hr_api.g_number)) then
149:
150: -- delete old eligy profile eligy object (child)
151: open c_elig_prfl_elig_obj(per_ctk_shd.g_old_rec.eligibility_profile_id, per_ctk_shd.g_old_rec.eligibility_object_id);
144: Begin
145: hr_utility.set_location('Entering:'||l_proc, 10);
146: --
147: if ( nvl(per_ctk_shd.g_old_rec.eligibility_profile_id, hr_api.g_number) <> hr_api.g_number AND
148: nvl(per_ctk_shd.g_old_rec.eligibility_profile_id, hr_api.g_number) <> nvl(p_rec.eligibility_profile_id, hr_api.g_number)) then
149:
150: -- delete old eligy profile eligy object (child)
151: open c_elig_prfl_elig_obj(per_ctk_shd.g_old_rec.eligibility_profile_id, per_ctk_shd.g_old_rec.eligibility_object_id);
152: fetch c_elig_prfl_elig_obj into l_elig_obj_elig_prfl_id,l_prf_obj_ovn,l_effective_date;
351: );
352: --
353: exception
354: --
355: when hr_api.cannot_find_prog_unit then
356: --
357: hr_api.cannot_find_prog_unit_error
358: (p_module_name => 'PER_TASKS_IN_CHECKLIST'
359: ,p_hook_type => 'AD');
353: exception
354: --
355: when hr_api.cannot_find_prog_unit then
356: --
357: hr_api.cannot_find_prog_unit_error
358: (p_module_name => 'PER_TASKS_IN_CHECKLIST'
359: ,p_hook_type => 'AD');
360: --
361: end;