40: into v_delete_permitted
41: from sys.dual
42: where not exists (
43: select null 44: from hr_locations hr 45: where hr.designated_receiver_id = P_PERSON_ID);
46: exception
47: when NO_DATA_FOUND then
48: hr_utility.set_message (801, 'HR_6250_ALL_PO2_PER_NO_DEL');