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
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
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
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
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
86: end;
87: --
88: END eng_predel_validation;
89: --
90: END eng_person;