319: hr_utility.set_location('Entering:'|| l_proc, 10);
320: end if;
321: --
322: -- Check that no child records exist for the
323: -- person on per_contracts_f when
324: -- the person is deleted
325: --
326: select null
327: into l_delete_permitted
327: into l_delete_permitted
328: from sys.dual
329: where not exists
330: (select null
331: from per_contracts_f
332: where person_id = p_person_id);
333: --
334: exception
335: when NO_DATA_FOUND then