56: into v_delete_permitted
57: from sys.dual
58: where not exists (
59: select null 60: from po_agents po 61: where po.agent_id = P_PERSON_ID);
62: exception
63: when NO_DATA_FOUND then
64: hr_utility.set_message (801, 'HR_6251_ALL_PO3_PER_NO_DEL');