PACKAGE BODY: APPS.AP_PERSON

Source

1 PACKAGE BODY AP_PERSON AS
2 /* $Header: appersnb.pls 115.0 99/07/17 07:32:24 porting ship $ */
3 
4   /*
5     NAME
6       ap_predel_validation
7     DESCRIPTION
8       Foreign key reference check.
9   */
10 
11     PROCEDURE ap_predel_validation (p_person_id   number) IS
12 
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
22             from    sys.dual
23             where   not exists (
24                     select  null
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;
34 
35 END AP_PERSON;