1 PACKAGE body per_pl_location AS
2 /* $Header: pepllhla.pkb 120.2 2006/09/18 04:58:35 mseshadr noship $ */
3 g_package VARCHAR2(33) := 'per_pl_location.';
4 --
5 PROCEDURE check_pl_location (
6 p_address_line_1 IN VARCHAR2
7 ,p_address_line_2 IN VARCHAR2
8 ) IS
9 --
10 l_return Varchar2(30);
11 --
12 BEGIN
13
14
15 --
16 -- Check that Street Name is entered when street type is entered
17 --
18 IF ( p_address_line_1 IS NOT NULL ) THEN
19 IF ( p_address_line_2 IS NULL ) THEN
20 hr_utility.set_message(800,'HR_PL_ST_NAME_NOT_SPEC');
21 hr_utility.raise_error;
22 END IF;
23 END IF;
24
25 --
26 END check_pl_location;
27 --
28 --
29 --
30 PROCEDURE create_pl_location (p_style IN VARCHAR2
31 ,p_address_line_1 IN VARCHAR2
32 ,p_address_line_2 IN VARCHAR2)
33 IS
34 BEGIN
35 --
36 /* Added for GSI Bug 5472781 */
37 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'PL') THEN
38 hr_utility.trace('PL not installed.Leaving create_pl_location');
39 return;
40 END IF;
41 IF p_style = 'PL' THEN
42 per_pl_location.check_pl_location( p_address_line_1 => p_address_line_1
43 ,p_address_line_2 => p_address_line_2);
44 END IF;
45 --
46 END create_pl_location;
47 --
48 --
49 PROCEDURE update_pl_location (p_style IN VARCHAR2
50 ,p_address_line_1 IN VARCHAR2
51 ,p_address_line_2 IN VARCHAR2)
52 IS
53 --
54 --
55 BEGIN
56 --
57 /* Added for GSI Bug 5472781 */
58 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'PL') THEN
59 hr_utility.trace('PL not installed.Leaving update_pl_location');
60 return;
61 END IF;
62 IF p_style='PL' THEN
63 per_pl_location.check_pl_location( p_address_line_1 => p_address_line_1
64 ,p_address_line_2 => p_address_line_2);
65 END IF;
66
67 --
68 END update_pl_location;
69 --
70 END per_pl_location;