[Home] [Help]
PACKAGE BODY: APPS.HR_RU_ADDRESS_HOOK
Source
1 PACKAGE BODY hr_ru_address_hook AS
2 /* $Header: peruaddp.pkb 120.1 2006/09/20 14:19:56 mgettins noship $ */
3
4 g_package CONSTANT VARCHAR2 (30) := 'HR_RU_ADDRESS_HOOK .';
5
6 PROCEDURE create_ru_address (
7 p_style IN VARCHAR2,
8 p_add_information13 IN VARCHAR2,
9 p_postal_code IN VARCHAR2
10 )
11 AS
12 l_proc CONSTANT VARCHAR2 (72) := g_package || 'CREATE_RU_ADDRESS';
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_add_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_address;
32
33 PROCEDURE update_ru_address (
34 p_address_id IN NUMBER,
35 p_add_information13 IN VARCHAR2,
36 p_postal_code IN VARCHAR2
37 )
38 AS
39 l_proc CONSTANT VARCHAR2 (72) := g_package || 'UPDATE_RU_ADDRESS';
40 l_add_information13 per_addresses.add_information13%TYPE;
41 l_postal_code per_addresses.postal_code%TYPE;
42
43 CURSOR csr_get_address_details (p_id NUMBER)
44 IS
45 SELECT style, add_information13, postal_code
46 FROM per_addresses
47 WHERE address_id = p_id;
48
49 l_address_record csr_get_address_details%ROWTYPE;
50 BEGIN
51 --
52 -- Added for GSI Bug 5472781
53 --
54 IF hr_utility.chk_product_install('Oracle Human Resources', 'RU') THEN
55 --
56 OPEN csr_get_address_details (p_address_id);
57
58 FETCH csr_get_address_details
59 INTO l_address_record;
60
61 CLOSE csr_get_address_details;
62
63 IF (l_address_record.style = 'RU')
64 THEN
65 IF (p_add_information13 <> hr_api.g_varchar2)
66 OR (p_add_information13 IS NULL)
67 THEN
68 l_add_information13 := p_add_information13;
69 ELSE
70 l_add_information13 := l_address_record.add_information13;
71 END IF;
72
73 IF (p_postal_code <> hr_api.g_varchar2) OR (p_postal_code IS NULL)
74 THEN
75 l_postal_code := p_postal_code;
76 ELSE
77 l_postal_code := l_address_record.postal_code;
78 END IF;
79
80 IF (l_add_information13 = 'RES')
81 THEN
82 IF (l_postal_code IS NULL)
83 THEN
84 hr_utility.set_message (800, 'HR_RU_ZIPCODE_REQUIRED');
85 hr_utility.raise_error;
86 END IF;
87 END IF;
88 END IF;
89 END IF;
90 END update_ru_address;
91
92 PROCEDURE update_ru_address_with_style (
93 p_style IN VARCHAR2,
94 p_address_id IN NUMBER,
95 p_add_information13 IN VARCHAR2,
96 p_postal_code IN VARCHAR2
97 )
98 AS
99 l_proc CONSTANT VARCHAR2 (72) := g_package || 'UPDATE_RU_ADDRESS_WITH_STYLE';
100 l_add_information13 per_addresses.add_information13%TYPE;
101 l_postal_code per_addresses.postal_code%TYPE;
102
103 CURSOR csr_get_address_details (p_id NUMBER)
104 IS
105 SELECT add_information13, postal_code
106 FROM per_addresses
107 WHERE address_id = p_id;
108
109 l_address_record csr_get_address_details%ROWTYPE;
110 BEGIN
111 --
112 -- Added for GSI Bug 5472781
113 --
114 IF hr_utility.chk_product_install('Oracle Human Resources', 'RU') THEN
115 --
116 OPEN csr_get_address_details (p_address_id);
117
118 FETCH csr_get_address_details
119 INTO l_address_record;
120
121 CLOSE csr_get_address_details;
122
123 IF (p_style = 'RU')
124 THEN
125 IF (p_add_information13 <> hr_api.g_varchar2)
126 OR (p_add_information13 IS NULL)
127 THEN
128 l_add_information13 := p_add_information13;
129 ELSE
130 l_add_information13 := l_address_record.add_information13;
131 END IF;
132
133 IF (p_postal_code <> hr_api.g_varchar2) OR (p_postal_code IS NULL)
134 THEN
135 l_postal_code := p_postal_code;
136 ELSE
137 l_postal_code := l_address_record.postal_code;
138 END IF;
139
140 IF (l_add_information13 = 'RES')
141 THEN
142 IF (l_postal_code IS NULL)
143 THEN
144 hr_utility.set_message (800, 'HR_RU_ZIPCODE_REQUIRED');
145 hr_utility.raise_error;
146 END IF;
147 END IF;
148 END IF;
149 END IF;
150 END update_ru_address_with_style ;
151 END hr_ru_address_hook;