[Home] [Help]
PACKAGE BODY: APPS.HR_HK_PERSON_ADDRESS_API
Source
1 PACKAGE BODY hr_hk_person_address_api AS
2 /* $Header: hrhkwrpa.pkb 115.3 2002/12/09 10:04:30 vgsriniv ship $ */
3 --
4 g_package VARCHAR2(33) := 'hr_hk_person_address_api.';
5 --
6 -- ----------------------------------------------------------------------------
7 -- |-----------------------< create_hk_person_address >-----------------------|
8 -- ----------------------------------------------------------------------------
9 --
10 PROCEDURE create_hk_person_address
11 (p_validate IN BOOLEAN DEFAULT FALSE
12 ,p_effective_date IN DATE
13 ,p_pradd_ovlapval_override IN BOOLEAN DEFAULT FALSE
14 ,p_validate_county IN BOOLEAN DEFAULT TRUE
15 ,p_person_id IN NUMBER
16 ,p_primary_flag IN VARCHAR2
17 ,p_date_from IN DATE
18 ,p_date_to IN DATE DEFAULT NULL
19 ,p_address_type IN VARCHAR2 DEFAULT NULL
20 ,p_comments IN LONG DEFAULT NULL
21 ,p_address_line1 IN VARCHAR2
22 ,p_address_line2 IN VARCHAR2 DEFAULT NULL
23 ,p_address_line3 IN VARCHAR2 DEFAULT NULL
24 ,p_district IN VARCHAR2 DEFAULT NULL
25 ,p_area IN VARCHAR2 DEFAULT NULL
26 ,p_country IN VARCHAR2
27 ,p_telephone_number_1 IN VARCHAR2 DEFAULT NULL
28 ,p_telephone_number_2 IN VARCHAR2 DEFAULT NULL
29 ,p_telephone_number_3 IN VARCHAR2 DEFAULT NULL
30 ,p_addr_attribute_category IN VARCHAR2 DEFAULT NULL
31 ,p_addr_attribute1 IN VARCHAR2 DEFAULT NULL
32 ,p_addr_attribute2 IN VARCHAR2 DEFAULT NULL
33 ,p_addr_attribute3 IN VARCHAR2 DEFAULT NULL
34 ,p_addr_attribute4 IN VARCHAR2 DEFAULT NULL
35 ,p_addr_attribute5 IN VARCHAR2 DEFAULT NULL
36 ,p_addr_attribute6 IN VARCHAR2 DEFAULT NULL
37 ,p_addr_attribute7 IN VARCHAR2 DEFAULT NULL
38 ,p_addr_attribute8 IN VARCHAR2 DEFAULT NULL
39 ,p_addr_attribute9 IN VARCHAR2 DEFAULT NULL
40 ,p_addr_attribute10 IN VARCHAR2 DEFAULT NULL
41 ,p_addr_attribute11 IN VARCHAR2 DEFAULT NULL
42 ,p_addr_attribute12 IN VARCHAR2 DEFAULT NULL
43 ,p_addr_attribute13 IN VARCHAR2 DEFAULT NULL
44 ,p_addr_attribute14 IN VARCHAR2 DEFAULT NULL
45 ,p_addr_attribute15 IN VARCHAR2 DEFAULT NULL
46 ,p_addr_attribute16 IN VARCHAR2 DEFAULT NULL
47 ,p_addr_attribute17 IN VARCHAR2 DEFAULT NULL
48 ,p_addr_attribute18 IN VARCHAR2 DEFAULT NULL
49 ,p_addr_attribute19 IN VARCHAR2 DEFAULT NULL
50 ,p_addr_attribute20 IN VARCHAR2 DEFAULT NULL
51 ,p_address_id OUT NOCOPY NUMBER
52 ,p_object_version_number OUT NOCOPY NUMBER
53 ) IS
54 --
55 -- Declare cursors and local variables
56 --
57 l_proc VARCHAR2(72) := g_package||'create_hk_person_address';
58 --
59 BEGIN
60 hr_utility.set_location('Entering:'|| l_proc, 5);
61 --
62 -- Create Person Address details.
63 --
64 hr_person_address_api.create_person_address
65 (p_validate => p_validate
66 ,p_effective_date => p_effective_date
67 ,p_pradd_ovlapval_override => p_pradd_ovlapval_override
68 ,p_validate_county => p_validate_county
69 ,p_person_id => p_person_id
70 ,p_primary_flag => p_primary_flag
71 ,p_style => 'HK'
72 ,p_date_from => p_date_from
73 ,p_date_to => p_date_to
74 ,p_address_type => p_address_type
75 ,p_comments => p_comments
76 ,p_address_line1 => p_address_line1
77 ,p_address_line2 => p_address_line2
78 ,p_address_line3 => p_address_line3
79 ,p_town_or_city => p_district
80 ,p_region_1 => p_area
81 ,p_country => p_country
82 ,p_telephone_number_1 => p_telephone_number_1
83 ,p_telephone_number_2 => p_telephone_number_2
84 ,p_telephone_number_3 => p_telephone_number_3
85 ,p_addr_attribute_category => p_addr_attribute_category
86 ,p_addr_attribute1 => p_addr_attribute1
87 ,p_addr_attribute2 => p_addr_attribute2
88 ,p_addr_attribute3 => p_addr_attribute3
89 ,p_addr_attribute4 => p_addr_attribute4
90 ,p_addr_attribute5 => p_addr_attribute5
91 ,p_addr_attribute6 => p_addr_attribute6
92 ,p_addr_attribute7 => p_addr_attribute7
93 ,p_addr_attribute8 => p_addr_attribute8
94 ,p_addr_attribute9 => p_addr_attribute9
95 ,p_addr_attribute10 => p_addr_attribute10
96 ,p_addr_attribute11 => p_addr_attribute11
97 ,p_addr_attribute12 => p_addr_attribute12
98 ,p_addr_attribute13 => p_addr_attribute13
99 ,p_addr_attribute14 => p_addr_attribute14
100 ,p_addr_attribute15 => p_addr_attribute15
101 ,p_addr_attribute16 => p_addr_attribute16
102 ,p_addr_attribute17 => p_addr_attribute17
103 ,p_addr_attribute18 => p_addr_attribute18
104 ,p_addr_attribute19 => p_addr_attribute19
105 ,p_addr_attribute20 => p_addr_attribute20
106 ,p_address_id => p_address_id
107 ,p_object_version_number => p_object_version_number
108 );
109 --
110 hr_utility.set_location(' Leaving:'||l_proc, 10);
111 END create_hk_person_address;
112 -- ----------------------------------------------------------------------------
113 -- |-----------------------< update_hk_person_address >-----------------------|
114 -- ----------------------------------------------------------------------------
115 --
116 PROCEDURE update_hk_person_address
117 (p_validate IN BOOLEAN DEFAULT FALSE
118 ,p_effective_date IN DATE
119 ,p_validate_county IN BOOLEAN DEFAULT TRUE
120 ,p_address_id IN NUMBER
121 ,p_object_version_number IN OUT NOCOPY NUMBER
122 ,p_date_from IN DATE DEFAULT hr_api.g_date
123 ,p_date_to IN DATE DEFAULT hr_api.g_date
124 ,p_address_type IN VARCHAR2 DEFAULT hr_api.g_varchar2
125 ,p_comments IN LONG DEFAULT hr_api.g_varchar2
126 ,p_address_line1 IN VARCHAR2 DEFAULT hr_api.g_varchar2
127 ,p_address_line2 IN VARCHAR2 DEFAULT hr_api.g_varchar2
128 ,p_address_line3 IN VARCHAR2 DEFAULT hr_api.g_varchar2
129 ,p_district IN VARCHAR2 DEFAULT hr_api.g_varchar2
130 ,p_area IN VARCHAR2 DEFAULT hr_api.g_varchar2
131 ,p_country IN VARCHAR2 DEFAULT hr_api.g_varchar2
132 ,p_telephone_number_1 IN VARCHAR2 DEFAULT hr_api.g_varchar2
133 ,p_telephone_number_2 IN VARCHAR2 DEFAULT hr_api.g_varchar2
134 ,p_telephone_number_3 IN VARCHAR2 DEFAULT hr_api.g_varchar2
135 ,p_addr_attribute_category IN VARCHAR2 DEFAULT hr_api.g_varchar2
136 ,p_addr_attribute1 IN VARCHAR2 DEFAULT hr_api.g_varchar2
137 ,p_addr_attribute2 IN VARCHAR2 DEFAULT hr_api.g_varchar2
138 ,p_addr_attribute3 IN VARCHAR2 DEFAULT hr_api.g_varchar2
139 ,p_addr_attribute4 IN VARCHAR2 DEFAULT hr_api.g_varchar2
140 ,p_addr_attribute5 IN VARCHAR2 DEFAULT hr_api.g_varchar2
141 ,p_addr_attribute6 IN VARCHAR2 DEFAULT hr_api.g_varchar2
142 ,p_addr_attribute7 IN VARCHAR2 DEFAULT hr_api.g_varchar2
143 ,p_addr_attribute8 IN VARCHAR2 DEFAULT hr_api.g_varchar2
144 ,p_addr_attribute9 IN VARCHAR2 DEFAULT hr_api.g_varchar2
145 ,p_addr_attribute10 IN VARCHAR2 DEFAULT hr_api.g_varchar2
146 ,p_addr_attribute11 IN VARCHAR2 DEFAULT hr_api.g_varchar2
147 ,p_addr_attribute12 IN VARCHAR2 DEFAULT hr_api.g_varchar2
148 ,p_addr_attribute13 IN VARCHAR2 DEFAULT hr_api.g_varchar2
149 ,p_addr_attribute14 IN VARCHAR2 DEFAULT hr_api.g_varchar2
150 ,p_addr_attribute15 IN VARCHAR2 DEFAULT hr_api.g_varchar2
151 ,p_addr_attribute16 IN VARCHAR2 DEFAULT hr_api.g_varchar2
152 ,p_addr_attribute17 IN VARCHAR2 DEFAULT hr_api.g_varchar2
153 ,p_addr_attribute18 IN VARCHAR2 DEFAULT hr_api.g_varchar2
154 ,p_addr_attribute19 IN VARCHAR2 DEFAULT hr_api.g_varchar2
155 ,p_addr_attribute20 IN VARCHAR2 DEFAULT hr_api.g_varchar2
156 ) is
157 --
158 -- Declare cursors and local variables
159 --
160 l_proc VARCHAR2(72) := g_package||'update_hk_person_address';
161 l_style per_addresses.style%TYPE;
162 --
163 CURSOR csr_add_style IS
164 SELECT style
165 FROM per_addresses
166 WHERE address_id = p_address_id;
167 --
168 BEGIN
169 hr_utility.set_location('Entering:'|| l_proc, 5);
170 --
171 -- Check that the address is HK style.
172 --
173 OPEN csr_add_style;
174 FETCH csr_add_style
175 INTO l_style;
176 IF csr_add_style%notfound THEN
177 CLOSE csr_add_style;
178 --
179 hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
180 hr_utility.raise_error;
181 ELSE
182 hr_utility.set_location(l_proc, 10);
183 --
184 CLOSE csr_add_style;
185 --
186 IF l_style <> 'HK' THEN
187 hr_utility.set_message(801, 'HR_51283_ADD_MUST_BE_US_STYLE');
188 hr_utility.raise_error;
189 END IF;
190 END IF;
191 --
192 hr_utility.set_location(l_proc, 15);
193 --
194 -- Update Person Address details.
195 --
196 hr_person_address_api.update_person_address
197 (p_validate => p_validate
198 ,p_effective_date => p_effective_date
199 ,p_validate_county => p_validate_county
200 ,p_address_id => p_address_id
201 ,p_object_version_number => p_object_version_number
202 ,p_date_from => p_date_from
203 ,p_date_to => p_date_to
204 ,p_address_type => p_address_type
205 ,p_comments => p_comments
206 ,p_address_line1 => p_address_line1
207 ,p_address_line2 => p_address_line2
208 ,p_address_line3 => p_address_line3
209 ,p_town_or_city => p_district
210 ,p_region_1 => p_area
211 ,p_country => p_country
212 ,p_telephone_number_1 => p_telephone_number_1
213 ,p_telephone_number_2 => p_telephone_number_2
214 ,p_telephone_number_3 => p_telephone_number_3
215 ,p_addr_attribute_category => p_addr_attribute_category
216 ,p_addr_attribute1 => p_addr_attribute1
217 ,p_addr_attribute2 => p_addr_attribute2
218 ,p_addr_attribute3 => p_addr_attribute3
219 ,p_addr_attribute4 => p_addr_attribute4
220 ,p_addr_attribute5 => p_addr_attribute5
221 ,p_addr_attribute6 => p_addr_attribute6
222 ,p_addr_attribute7 => p_addr_attribute7
223 ,p_addr_attribute8 => p_addr_attribute8
224 ,p_addr_attribute9 => p_addr_attribute9
225 ,p_addr_attribute10 => p_addr_attribute10
226 ,p_addr_attribute11 => p_addr_attribute11
227 ,p_addr_attribute12 => p_addr_attribute12
228 ,p_addr_attribute13 => p_addr_attribute13
229 ,p_addr_attribute14 => p_addr_attribute14
230 ,p_addr_attribute15 => p_addr_attribute15
231 ,p_addr_attribute16 => p_addr_attribute16
232 ,p_addr_attribute17 => p_addr_attribute17
233 ,p_addr_attribute18 => p_addr_attribute18
234 ,p_addr_attribute19 => p_addr_attribute19
235 ,p_addr_attribute20 => p_addr_attribute20
236 );
237 --
238 hr_utility.set_location(' Leaving:'||l_proc, 20);
239 END update_hk_person_address;
240
241 END hr_hk_person_address_api;