[Home] [Help]
PACKAGE BODY: APPS.HR_IN_PERSON_EXTRA_INFO_API
Source
1 Package Body hr_in_person_extra_info_api AS
2 /* $Header: pepeiini.pkb 120.0 2005/05/31 13:20 appldev noship $ */
3 g_package VARCHAR2(33) := 'hr_in_person_extra_info_api.';
4 g_trace BOOLEAN ;
5
6 -- ----------------------------------------------------------------------------
7 -- |-----------------------------< check_person >-------------------------------|
8 -- ----------------------------------------------------------------------------
9 PROCEDURE check_person (p_person_id IN NUMBER
10 ,p_legislation_code IN VARCHAR2
11 )
12 IS
13 l_legislation_code per_business_groups.legislation_code%type;
14 --
15 cursor check_legislation(p_person_id per_people_f.person_id%TYPE) IS
16 select business_group_id
17 from per_people_f
18 where person_id = p_person_id;
19
20 BEGIN
21
22 OPEN check_legislation(p_person_id);
23 FETCH check_legislation into l_legislation_code;
24
25 IF check_legislation%notfound THEN
26 CLOSE check_legislation;
27 hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
28 hr_utility.raise_error;
29 END IF;
30
31 CLOSE check_legislation;
32
33 IF hr_general2.IS_BG(l_legislation_code ,p_legislation_code) = false THEN
34 hr_utility.set_message(800, 'HR_7208_API_BUS_GRP_INVALID');
35 hr_utility.raise_error;
36 END IF;
37
38 END check_person;
39
40 -- ----------------------------------------------------------------------------
41 -- |-----------------------< create_in_person_extra_info >------------------------|
42 -- ----------------------------------------------------------------------------
43
44 procedure create_in_person_extra_info
45 (p_validate IN BOOLEAN default false
46 ,p_person_id IN NUMBER
47 ,p_pei_attribute_category IN VARCHAR2 default null
48 ,p_pei_attribute1 IN VARCHAR2 default null
49 ,p_pei_attribute2 IN VARCHAR2 default null
50 ,p_pei_attribute3 IN VARCHAR2 default null
51 ,p_pei_attribute4 IN VARCHAR2 default null
52 ,p_pei_attribute5 IN VARCHAR2 default null
53 ,p_pei_attribute6 IN VARCHAR2 default null
54 ,p_pei_attribute7 IN VARCHAR2 default null
55 ,p_pei_attribute8 IN VARCHAR2 default null
56 ,p_pei_attribute9 IN VARCHAR2 default null
57 ,p_pei_attribute10 IN VARCHAR2 default null
58 ,p_pei_attribute11 IN VARCHAR2 default null
59 ,p_pei_attribute12 IN VARCHAR2 default null
60 ,p_pei_attribute13 IN VARCHAR2 default null
61 ,p_pei_attribute14 IN VARCHAR2 default null
62 ,p_pei_attribute15 IN VARCHAR2 default null
63 ,p_pei_attribute16 IN VARCHAR2 default null
64 ,p_pei_attribute17 IN VARCHAR2 default null
65 ,p_pei_attribute18 IN VARCHAR2 default null
66 ,p_pei_attribute19 IN VARCHAR2 default null
67 ,p_pei_attribute20 IN VARCHAR2 default null
68 ,p_religion IN VARCHAR2 default null
69 ,p_community IN VARCHAR2 default null
70 ,p_caste_or_tribe IN VARCHAR2 default null
71 ,p_height IN VARCHAR2 default null
72 ,p_weight IN VARCHAR2 default null
73 ,p_person_extra_info_id OUT NOCOPY NUMBER
74 ,p_object_version_number OUT NOCOPY NUMBER
75 ) is
76 --
77 -- Declare cursors and local variables
78 --
79 l_proc VARCHAR2(72);
80 --
81 BEGIN
82
83 l_proc := g_package||'create_in_person_extra_info';
84 g_trace := hr_utility.debug_enabled ;
85 IF g_trace THEN
86 hr_utility.set_location('Entering:'|| l_proc, 10);
87 END IF;
88
89 check_person (p_person_id, 'IN');
90
91 IF g_trace THEN
92 hr_utility.set_location('Entering:'|| l_proc, 20);
93 END IF;
94
95 hr_person_extra_info_api.create_person_extra_info
96 (p_person_id => p_person_id,
97 p_information_type => 'IN_MISCELLANEOUS', --Bugfix 3762728
98 p_pei_attribute_category => p_pei_attribute_category,
99 p_pei_attribute1 => p_pei_attribute1,
100 p_pei_attribute2 => p_pei_attribute2,
101 p_pei_attribute3 => p_pei_attribute3,
102 p_pei_attribute4 => p_pei_attribute4,
103 p_pei_attribute5 => p_pei_attribute5,
104 p_pei_attribute6 => p_pei_attribute6,
105 p_pei_attribute7 => p_pei_attribute7,
106 p_pei_attribute8 => p_pei_attribute8,
107 p_pei_attribute9 => p_pei_attribute9,
108 p_pei_attribute10 => p_pei_attribute10,
109 p_pei_attribute11 => p_pei_attribute11,
110 p_pei_attribute12 => p_pei_attribute12,
111 p_pei_attribute13 => p_pei_attribute13,
112 p_pei_attribute14 => p_pei_attribute14,
113 p_pei_attribute15 => p_pei_attribute15,
114 p_pei_attribute16 => p_pei_attribute16,
115 p_pei_attribute17 => p_pei_attribute17,
116 p_pei_attribute18 => p_pei_attribute18,
117 p_pei_attribute19 => p_pei_attribute19,
118 p_pei_attribute20 => p_pei_attribute20,
119 p_pei_information_category => 'IN_MISCELLANEOUS',
120 p_pei_information1 => p_religion,
121 p_pei_information2 => p_community,
122 p_pei_information3 => p_caste_or_tribe,
123 p_pei_information4 => p_height,
124 p_pei_information5 => p_weight,
125 p_object_version_number => p_object_version_number,
126 p_validate => p_validate,
127 p_person_extra_info_id => p_person_extra_info_id);
128
129 IF g_trace THEN
130 hr_utility.set_location('Leaving:'|| l_proc, 30);
131 END IF;
132
133 END create_in_person_extra_info;
134
135 -- ----------------------------------------------------------------------------
136 -- |-----------------------< update_in_person_extra_info >------------------------|
137 -- ----------------------------------------------------------------------------
138
139 procedure update_in_person_extra_info
140 (p_validate IN BOOLEAN default false
141 ,p_person_extra_info_id IN NUMBER
142 ,p_object_version_number IN OUT NOCOPY NUMBER
143 ,p_pei_attribute_category IN VARCHAR2 default hr_api.g_varchar2
144 ,p_pei_attribute1 IN VARCHAR2 default hr_api.g_varchar2
145 ,p_pei_attribute2 IN VARCHAR2 default hr_api.g_varchar2
146 ,p_pei_attribute3 IN VARCHAR2 default hr_api.g_varchar2
147 ,p_pei_attribute4 IN VARCHAR2 default hr_api.g_varchar2
148 ,p_pei_attribute5 IN VARCHAR2 default hr_api.g_varchar2
149 ,p_pei_attribute6 IN VARCHAR2 default hr_api.g_varchar2
150 ,p_pei_attribute7 IN VARCHAR2 default hr_api.g_varchar2
151 ,p_pei_attribute8 IN VARCHAR2 default hr_api.g_varchar2
152 ,p_pei_attribute9 IN VARCHAR2 default hr_api.g_varchar2
153 ,p_pei_attribute10 IN VARCHAR2 default hr_api.g_varchar2
154 ,p_pei_attribute11 IN VARCHAR2 default hr_api.g_varchar2
155 ,p_pei_attribute12 IN VARCHAR2 default hr_api.g_varchar2
156 ,p_pei_attribute13 IN VARCHAR2 default hr_api.g_varchar2
157 ,p_pei_attribute14 IN VARCHAR2 default hr_api.g_varchar2
158 ,p_pei_attribute15 IN VARCHAR2 default hr_api.g_varchar2
159 ,p_pei_attribute16 IN VARCHAR2 default hr_api.g_varchar2
160 ,p_pei_attribute17 IN VARCHAR2 default hr_api.g_varchar2
161 ,p_pei_attribute18 IN VARCHAR2 default hr_api.g_varchar2
162 ,p_pei_attribute19 IN VARCHAR2 default hr_api.g_varchar2
163 ,p_pei_attribute20 IN VARCHAR2 default hr_api.g_varchar2
164 ,p_religion IN VARCHAR2 default hr_api.g_varchar2
165 ,p_community IN VARCHAR2 default hr_api.g_varchar2
166 ,p_caste_or_tribe IN VARCHAR2 default hr_api.g_varchar2
167 ,p_height IN VARCHAR2 default hr_api.g_varchar2
168 ,p_weight IN VARCHAR2 default hr_api.g_varchar2
169 ) is
170 --
171 -- Declare cursors and local variables
172 --
173 l_proc varchar2(72);
174
175 begin
176
177 l_proc := g_package||'update_person_extra_info';
178 g_trace := hr_utility.debug_enabled ;
179
180 IF g_trace THEN
181 hr_utility.set_location('Entering:'|| l_proc, 10);
182 END IF;
183
184 hr_person_extra_info_api.update_person_extra_info
185 (p_validate => p_validate,
186 p_person_extra_info_id => p_person_extra_info_id,
187 p_pei_attribute_category => p_pei_attribute_category,
188 p_pei_attribute1 => p_pei_attribute1,
189 p_pei_attribute2 => p_pei_attribute2,
190 p_pei_attribute3 => p_pei_attribute3,
191 p_pei_attribute4 => p_pei_attribute4,
192 p_pei_attribute5 => p_pei_attribute5,
193 p_pei_attribute6 => p_pei_attribute6,
194 p_pei_attribute7 => p_pei_attribute7,
195 p_pei_attribute8 => p_pei_attribute8,
196 p_pei_attribute9 => p_pei_attribute9,
197 p_pei_attribute10 => p_pei_attribute10,
198 p_pei_attribute11 => p_pei_attribute11,
199 p_pei_attribute12 => p_pei_attribute12,
200 p_pei_attribute13 => p_pei_attribute13,
201 p_pei_attribute14 => p_pei_attribute14,
202 p_pei_attribute15 => p_pei_attribute15,
203 p_pei_attribute16 => p_pei_attribute16,
204 p_pei_attribute17 => p_pei_attribute17,
205 p_pei_attribute18 => p_pei_attribute18,
206 p_pei_attribute19 => p_pei_attribute19,
207 p_pei_attribute20 => p_pei_attribute20,
208 p_pei_information_category => 'IN_MISCELLANEOUS',
209 p_pei_information1 => p_religion,
210 p_pei_information2 => p_community,
211 p_pei_information3 => p_caste_or_tribe,
212 p_pei_information4 => p_height,
213 p_pei_information5 => p_weight,
214 p_object_version_number => p_object_version_number
215 );
216
217 IF g_trace THEN
218 hr_utility.set_location('Leaving:'|| l_proc, 20);
219 END IF;
220
221 END update_in_person_extra_info;
222
223 -- ----------------------------------------------------------------------------
224 -- |-----------------------< create_in_passport_details >-----------------|
225 -- ----------------------------------------------------------------------------
226 PROCEDURE create_in_passport_details
227 (p_validate IN BOOLEAN default false
228 ,p_person_id IN NUMBER
229 ,p_pei_attribute_category IN VARCHAR2 default null
230 ,p_pei_attribute1 IN VARCHAR2 default null
231 ,p_pei_attribute2 IN VARCHAR2 default null
232 ,p_pei_attribute3 IN VARCHAR2 default null
233 ,p_pei_attribute4 IN VARCHAR2 default null
234 ,p_pei_attribute5 IN VARCHAR2 default null
235 ,p_pei_attribute6 IN VARCHAR2 default null
236 ,p_pei_attribute7 IN VARCHAR2 default null
237 ,p_pei_attribute8 IN VARCHAR2 default null
238 ,p_pei_attribute9 IN VARCHAR2 default null
239 ,p_pei_attribute10 IN VARCHAR2 default null
240 ,p_pei_attribute11 IN VARCHAR2 default null
241 ,p_pei_attribute12 IN VARCHAR2 default null
242 ,p_pei_attribute13 IN VARCHAR2 default null
243 ,p_pei_attribute14 IN VARCHAR2 default null
244 ,p_pei_attribute15 IN VARCHAR2 default null
245 ,p_pei_attribute16 IN VARCHAR2 default null
246 ,p_pei_attribute17 IN VARCHAR2 default null
247 ,p_pei_attribute18 IN VARCHAR2 default null
248 ,p_pei_attribute19 IN VARCHAR2 default null
249 ,p_pei_attribute20 IN VARCHAR2 default null
250 ,p_passport_name IN VARCHAR2
251 ,p_passport_number IN VARCHAR2
252 ,p_place_of_issue IN VARCHAR2
253 ,p_issue_date IN VARCHAR2
254 ,p_expiry_date IN VARCHAR2
255 ,p_ecnr_required IN VARCHAR2
256 ,p_issuing_country IN VARCHAR2
257 ,p_person_extra_info_id OUT NOCOPY NUMBER
258 ,p_object_version_number OUT NOCOPY NUMBER
259 ) is
260 --
261 -- Declare cursors and local variables
262 --
263 l_proc VARCHAR2(72);
264 --
265 BEGIN
266
267 l_proc := g_package||'create_in_passport_details';
268 g_trace := hr_utility.debug_enabled ;
269 IF g_trace THEN
270 hr_utility.set_location('Entering:'|| l_proc, 10);
271 END IF;
272
273 check_person (p_person_id, 'IN');
274
275 IF g_trace THEN
276 hr_utility.set_location('Entering:'|| l_proc, 20);
277 END IF;
278
279 hr_person_extra_info_api.create_person_extra_info
280 (p_person_id => p_person_id,
281 p_information_type => 'IN_PASSPORT_DETAILS', --Bugfix 3762728
282 p_pei_attribute_category => p_pei_attribute_category,
283 p_pei_attribute1 => p_pei_attribute1,
284 p_pei_attribute2 => p_pei_attribute2,
285 p_pei_attribute3 => p_pei_attribute3,
286 p_pei_attribute4 => p_pei_attribute4,
287 p_pei_attribute5 => p_pei_attribute5,
288 p_pei_attribute6 => p_pei_attribute6,
289 p_pei_attribute7 => p_pei_attribute7,
290 p_pei_attribute8 => p_pei_attribute8,
291 p_pei_attribute9 => p_pei_attribute9,
292 p_pei_attribute10 => p_pei_attribute10,
293 p_pei_attribute11 => p_pei_attribute11,
294 p_pei_attribute12 => p_pei_attribute12,
295 p_pei_attribute13 => p_pei_attribute13,
296 p_pei_attribute14 => p_pei_attribute14,
297 p_pei_attribute15 => p_pei_attribute15,
298 p_pei_attribute16 => p_pei_attribute16,
299 p_pei_attribute17 => p_pei_attribute17,
300 p_pei_attribute18 => p_pei_attribute18,
301 p_pei_attribute19 => p_pei_attribute19,
302 p_pei_attribute20 => p_pei_attribute20,
303 p_pei_information_category => 'IN_PASSPORT_DETAILS',
304 p_pei_information1 => p_passport_name,
305 p_pei_information2 => p_passport_number,
306 p_pei_information3 => p_place_of_issue,
307 p_pei_information4 => p_issue_date,
308 p_pei_information5 => p_expiry_date,
309 p_pei_information6 => p_ecnr_required,
310 p_pei_information7 => p_issuing_country,
311 p_object_version_number => p_object_version_number,
312 p_validate => p_validate,
313 p_person_extra_info_id => p_person_extra_info_id);
314
315 IF g_trace THEN
316 hr_utility.set_location('Leaving:'|| l_proc, 30);
317 END IF;
318 END create_in_passport_details;
319
320 -- ----------------------------------------------------------------------------
321 -- |-----------------------< update_in_passport_details >------------------------|
322 -- ----------------------------------------------------------------------------
323
324 PROCEDURE update_in_passport_details
325 (p_validate IN BOOLEAN default false
326 ,p_person_extra_info_id IN NUMBER
327 ,p_object_version_number IN OUT NOCOPY NUMBER
328 ,p_pei_attribute_category IN VARCHAR2 default hr_api.g_varchar2
329 ,p_pei_attribute1 IN VARCHAR2 default hr_api.g_varchar2
330 ,p_pei_attribute2 IN VARCHAR2 default hr_api.g_varchar2
331 ,p_pei_attribute3 IN VARCHAR2 default hr_api.g_varchar2
332 ,p_pei_attribute4 IN VARCHAR2 default hr_api.g_varchar2
333 ,p_pei_attribute5 IN VARCHAR2 default hr_api.g_varchar2
334 ,p_pei_attribute6 IN VARCHAR2 default hr_api.g_varchar2
335 ,p_pei_attribute7 IN VARCHAR2 default hr_api.g_varchar2
336 ,p_pei_attribute8 IN VARCHAR2 default hr_api.g_varchar2
337 ,p_pei_attribute9 IN VARCHAR2 default hr_api.g_varchar2
338 ,p_pei_attribute10 IN VARCHAR2 default hr_api.g_varchar2
339 ,p_pei_attribute11 IN VARCHAR2 default hr_api.g_varchar2
340 ,p_pei_attribute12 IN VARCHAR2 default hr_api.g_varchar2
341 ,p_pei_attribute13 IN VARCHAR2 default hr_api.g_varchar2
342 ,p_pei_attribute14 IN VARCHAR2 default hr_api.g_varchar2
343 ,p_pei_attribute15 IN VARCHAR2 default hr_api.g_varchar2
344 ,p_pei_attribute16 IN VARCHAR2 default hr_api.g_varchar2
345 ,p_pei_attribute17 IN VARCHAR2 default hr_api.g_varchar2
346 ,p_pei_attribute18 IN VARCHAR2 default hr_api.g_varchar2
347 ,p_pei_attribute19 IN VARCHAR2 default hr_api.g_varchar2
348 ,p_pei_attribute20 IN VARCHAR2 default hr_api.g_varchar2
349 ,p_passport_name IN VARCHAR2 default hr_api.g_varchar2
350 ,p_passport_number IN VARCHAR2 default hr_api.g_varchar2
351 ,p_place_of_issue IN VARCHAR2 default hr_api.g_varchar2
352 ,p_issue_date IN VARCHAR2 default hr_api.g_varchar2
353 ,p_expiry_date IN VARCHAR2 default hr_api.g_varchar2
354 ,p_ecnr_required IN VARCHAR2 default hr_api.g_varchar2
355 ,p_issuing_country IN VARCHAR2 default hr_api.g_varchar2
356 ) is
357 --
358 -- Declare cursors and local variables
359 --
360 l_proc varchar2(72);
361
362 begin
363
364 l_proc := g_package||'update_passport_details';
365 g_trace := hr_utility.debug_enabled ;
366
367 IF g_trace THEN
368 hr_utility.set_location('Entering:'|| l_proc, 10);
369 END IF;
370
371 hr_person_extra_info_api.update_person_extra_info
372 (p_validate => p_validate,
373 p_person_extra_info_id => p_person_extra_info_id,
374 p_pei_attribute_category => p_pei_attribute_category,
375 p_pei_attribute1 => p_pei_attribute1,
376 p_pei_attribute2 => p_pei_attribute2,
377 p_pei_attribute3 => p_pei_attribute3,
378 p_pei_attribute4 => p_pei_attribute4,
379 p_pei_attribute5 => p_pei_attribute5,
380 p_pei_attribute6 => p_pei_attribute6,
381 p_pei_attribute7 => p_pei_attribute7,
382 p_pei_attribute8 => p_pei_attribute8,
383 p_pei_attribute9 => p_pei_attribute9,
384 p_pei_attribute10 => p_pei_attribute10,
385 p_pei_attribute11 => p_pei_attribute11,
386 p_pei_attribute12 => p_pei_attribute12,
387 p_pei_attribute13 => p_pei_attribute13,
388 p_pei_attribute14 => p_pei_attribute14,
389 p_pei_attribute15 => p_pei_attribute15,
390 p_pei_attribute16 => p_pei_attribute16,
391 p_pei_attribute17 => p_pei_attribute17,
392 p_pei_attribute18 => p_pei_attribute18,
393 p_pei_attribute19 => p_pei_attribute19,
394 p_pei_attribute20 => p_pei_attribute20,
395 p_pei_information_category => 'IN_PASSPORT_DETAILS',
396 p_pei_information1 => p_passport_name,
397 p_pei_information2 => p_passport_number,
398 p_pei_information3 => p_place_of_issue,
399 p_pei_information4 => p_issue_date,
400 p_pei_information5 => p_expiry_date,
401 p_pei_information6 => p_ecnr_required,
402 p_pei_information7 => p_issuing_country,
403 p_object_version_number => p_object_version_number
404 );
405
406 IF g_trace THEN
407 hr_utility.set_location('Leaving:'|| l_proc, 20);
408 END IF;
409 END update_in_passport_details;
410 END hr_in_person_extra_info_api;