13: v_delete_permitted varchar2(1);
14:
15: BEGIN
16:
17: hr_utility.set_location('AP_PERSON.AP_PREDEL_VALIDATION', 1);
18:
19: begin
20: select 'Y'
21: into v_delete_permitted
25: from ap_expense_report_headers_all erh
26: where erh.employee_id = P_PERSON_ID);
27: exception
28: when NO_DATA_FOUND then
29: hr_utility.set_message (801, 'HR_6244_ALL_AP_PER_NO_DEL');
30: hr_utility.raise_error;
31: end;
32:
33: END ap_predel_validation;
26: where erh.employee_id = P_PERSON_ID);
27: exception
28: when NO_DATA_FOUND then
29: hr_utility.set_message (801, 'HR_6244_ALL_AP_PER_NO_DEL');
30: hr_utility.raise_error;
31: end;
32:
33: END ap_predel_validation;
34: