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;