[Home] [Help]
PACKAGE BODY: APPS.HR_RU_LOCATION_HOOK
Source
1 PACKAGE BODY hr_ru_location_hook AS
2 /* $Header: perulocp.pkb 120.1 2006/09/20 14:09:34 mgettins noship $ */
3
4 g_package CONSTANT VARCHAR2 (30) := 'HR_RU_LOCATION_HOOK .';
5
6 PROCEDURE create_ru_location (
7 p_style IN VARCHAR2,
8 p_loc_information13 IN VARCHAR2,
9 p_postal_code IN VARCHAR2
10 )
11 AS
12 l_proc CONSTANT VARCHAR2 (72) := g_package || 'CREATE_RU_LOCATION';
13 BEGIN
14 --
15 -- Added for GSI Bug 5472781
16 --
17 IF hr_utility.chk_product_install('Oracle Human Resources', 'RU') THEN
18 --
19 IF p_style = 'RU'
20 THEN
21 IF (p_loc_information13 = 'RES')
22 THEN
23 IF (p_postal_code IS NULL)
24 THEN
25 hr_utility.set_message (800, 'HR_RU_ZIPCODE_REQUIRED');
26 hr_utility.raise_error;
27 END IF;
28 END IF;
29 END IF;
30 END IF;
31 END create_ru_location;
32
33 PROCEDURE update_ru_location (
34 p_location_id IN NUMBER,
35 p_style IN VARCHAR2,
36 p_loc_information13 IN VARCHAR2,
37 p_postal_code IN VARCHAR2
38 )
39 AS
40 l_proc CONSTANT VARCHAR2 (72)
41 := g_package || 'UPDATE_RU_LOCATION';
42 l_loc_information13 hr_locations_all.loc_information13%TYPE;
43 l_postal_code hr_locations_all.postal_code%TYPE;
44 l_style hr_locations_all.style%TYPE;
45
46 CURSOR csr_get_location_details (p_id NUMBER)
47 IS
48 SELECT style, loc_information13, postal_code
49 FROM hr_locations_all
50 WHERE location_id = p_id;
51
52 l_location_record csr_get_location_details%ROWTYPE;
53 BEGIN
54 --
55 -- Added for GSI Bug 5472781
56 --
57 IF hr_utility.chk_product_install('Oracle Human Resources', 'RU') THEN
58 --
59 OPEN csr_get_location_details (p_location_id);
60
61 FETCH csr_get_location_details
62 INTO l_location_record;
63
64 CLOSE csr_get_location_details;
65
66 IF (p_style <> hr_api.g_varchar2) OR (p_style IS NULL)
67 THEN
68 l_style := p_style;
69 ELSE
70 l_style := l_location_record.style;
71 END IF;
72
73 IF (l_style = 'RU')
74 THEN
75 IF (p_loc_information13 <> hr_api.g_varchar2)
76 OR (p_loc_information13 IS NULL)
77 THEN
78 l_loc_information13 := p_loc_information13;
79 ELSE
80 l_loc_information13 := l_location_record.loc_information13;
81 END IF;
82
83 IF (p_postal_code <> hr_api.g_varchar2) OR (p_postal_code IS NULL)
84 THEN
85 l_postal_code := p_postal_code;
86 ELSE
87 l_postal_code := l_location_record.postal_code;
88 END IF;
89
90 IF (l_loc_information13 = 'RES')
91 THEN
92 IF (l_postal_code IS NULL)
93 THEN
94 hr_utility.set_message (800, 'HR_RU_ZIPCODE_REQUIRED');
95 hr_utility.raise_error;
96 END IF;
97 END IF;
98 END IF;
99 END IF;
100 END update_ru_location;
101 END hr_ru_location_hook;