258: into v_delete_permitted
259: from sys.dual
260: where not exists (
261: select null 262: from pa_agreements pa 263: where pa.owned_by_person_id = P_PERSON_ID);
264: exception
265: when NO_DATA_FOUND then
266: hr_utility.set_message (801, 'HR_6290_ALL_PA6_PER_NO_DEL');