[Home] [Help]
PACKAGE BODY: APPS.ENG_PERSON
Source
1 PACKAGE BODY eng_person AS
2 /* $Header: ENGEMPDB.pls 120.0.12000000.2 2007/02/22 09:56:29 prgopala noship $ */
3 --
4 /*
5 NAME
6 eng_predel_validation
7 DESCRIPTION
8 Foreign key reference check.
9 */
10 --
11 PROCEDURE eng_predel_validation (p_person_id number)
12 IS
13 --
14 v_delete_permitted varchar2(1);
15 --
16 BEGIN
17 --
18 hr_utility.set_location('ENG_PERSON.ENG_PREDEL_VALIDATION', 1);
19 --
20 begin
21 select 'Y'
22 into v_delete_permitted
23 from sys.dual
24 where not exists (
25 select null
26 from eng_engineering_changes eng
27 where eng.requestor_id in (select party_id
28 from hz_parties
29 where person_identifier = to_char(p_person_id)));
30 exception
31 when NO_DATA_FOUND then
32 hr_utility.set_message (801, 'HR_6249_ALL_ENG_PER_NO_DEL');
33 hr_utility.raise_error;
34 end;
35 --
36 hr_utility.set_location('ENG_PERSON.ENG_PREDEL_VALIDATION', 2);
37 --
38 begin
39 select 'Y'
40 into v_delete_permitted
41 from sys.dual
42 where not exists (
43 select null
44 from eng_current_scheduled_dates eng
45 where eng.employee_id in (select party_id
46 from hz_parties
47 where person_identifier = to_char(p_person_id)));
48 exception
49 when NO_DATA_FOUND then
50 hr_utility.set_message (801, 'HR_6271_ALL_ENG2_PER_NO_DEL');
51 hr_utility.raise_error;
52 end;
53 --
54 hr_utility.set_location('ENG_PERSON.ENG_PREDEL_VALIDATION', 3);
55 --
56 begin
57 select 'Y'
58 into v_delete_permitted
59 from sys.dual
60 where not exists (
61 select null
62 from eng_ecn_approvers eng
63 where eng.employee_id = P_PERSON_ID);
64 exception
65 when NO_DATA_FOUND then
66 hr_utility.set_message (801, 'HR_6272_ALL_ENG3_PER_NO_DEL');
67 hr_utility.raise_error;
68 end;
69 --
70 hr_utility.set_location('ENG_PERSON.ENG_PREDEL_VALIDATION', 4);
71 --
72 begin
73 select 'Y'
74 into v_delete_permitted
75 from sys.dual
76 where not exists (
77 select null
78 from eng_eng_changes_interface eng
79 where eng.requestor_id in (select party_id
80 from hz_parties
81 where person_identifier = to_char(p_person_id)));
82 exception
83 when NO_DATA_FOUND then
84 hr_utility.set_message (801, 'HR_6273_ALL_ENG4_PER_NO_DEL');
85 hr_utility.raise_error;
86 end;
87 --
88 END eng_predel_validation;
89 --
90 END eng_person;