1 PACKAGE BODY PQH_DE_CONT_EMPLOYMENT_PKG as
2 /* $Header: pqhdespd.pkb 120.0.12000000.2 2007/02/27 13:34:32 spendhar noship $ */
3
4
5 PROCEDURE Check_Contact_Employment(P_INFORMATION_TYPE IN VARCHAR2,
6 P_PEI_INFORMATION1 IN VARCHAR2,
7 P_PEI_INFORMATION2 IN VARCHAR2,
8 P_PEI_INFORMATION3 IN VARCHAR2,
9 P_PEI_INFORMATION4 IN VARCHAR2 ) is
10
11 Begin
12 -- Check if DE is installed
13 IF hr_utility.chk_product_install('Oracle Human Resources', 'DE') THEN
14
15 --
16 savepoint Check_Contact_Employment;
17 --
18
19 if P_INFORMATION_TYPE = 'DE_PQH_SPOUSE_DETAILS' then
20 if ( P_PEI_INFORMATION1 = 'Y' --Spouse Employed in Public Sector
21 AND (P_PEI_INFORMATION2 is null --Employment Type is not specified
22 or P_PEI_INFORMATION3 is null --Employment Region is not specified
23 or P_PEI_INFORMATION4 is null --Number of Working Hours not specified
24 )
25 )
26 then
27 hr_utility.set_message(800,'DE_PQH_SPOUSE_DETAILS');
28 hr_utility.raise_error;
29
30 end if;
31 end if;
32 --
33 END IF;
34
35 End Check_Contact_Employment;
36
37 PROCEDURE Update_Contact_Employment(P_PEI_INFORMATION_CATEGORY IN VARCHAR2,
38 P_PEI_INFORMATION1 IN VARCHAR2,
39 P_PEI_INFORMATION2 IN VARCHAR2,
40 P_PEI_INFORMATION3 IN VARCHAR2,
41 P_PEI_INFORMATION4 IN VARCHAR2) is
42
43 Begin
44 -- Check if DE is installed
45 IF hr_utility.chk_product_install('Oracle Human Resources', 'DE') THEN
46
47 --
48 savepoint Update_Contact_Employment;
49 --
50
51 if P_PEI_INFORMATION_CATEGORY = 'DE_PQH_SPOUSE_DETAILS' then
52 if (P_PEI_INFORMATION1 = 'Y' --Spouse Employed in Public Sector
53 AND (P_PEI_INFORMATION2 is null --Employment Type is not specified
54 or P_PEI_INFORMATION3 is null --Employment Region is not specified
55 or P_PEI_INFORMATION4 is null --Number of Working Hours not specified
56 )
57 )
58 then
59 hr_utility.set_message(800,'DE_PQH_SPOUSE_DETAILS');
60 hr_utility.raise_error;
61
62 end if;
63 end if;
64 --
65 END IF;
66
67 End Update_Contact_Employment;
68
69 END PQH_DE_CONT_EMPLOYMENT_PKG;