[Home] [Help]
PACKAGE BODY: APPS.PQH_CORPS_EXTRA_INFO_SWI
Source
1 Package Body pqh_corps_extra_info_swi As
2 /* $Header: pqceiswi.pkb 115.0 2003/12/15 05:47 kgowripe noship $ */
3 --
4 -- Package variables
5 --
6 g_package varchar2(33) := 'pqh_corps_extra_info_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_corps_extra_info >-----------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE create_corps_extra_info
12 (p_validate in number default hr_api.g_false_num
13 ,p_effective_date in date
14 ,p_corps_extra_info_id out nocopy number
15 ,p_corps_definition_id in number
16 ,p_information_type in varchar2
17 ,p_information1 in varchar2 default null
18 ,p_information2 in varchar2 default null
19 ,p_information3 in varchar2 default null
20 ,p_information4 in varchar2 default null
21 ,p_information5 in varchar2 default null
22 ,p_information6 in varchar2 default null
23 ,p_information7 in varchar2 default null
24 ,p_information8 in varchar2 default null
25 ,p_information9 in varchar2 default null
26 ,p_information10 in varchar2 default null
27 ,p_information11 in varchar2 default null
28 ,p_information12 in varchar2 default null
29 ,p_information13 in varchar2 default null
30 ,p_information14 in varchar2 default null
31 ,p_information15 in varchar2 default null
32 ,p_information16 in varchar2 default null
33 ,p_information17 in varchar2 default null
34 ,p_information18 in varchar2 default null
35 ,p_information19 in varchar2 default null
36 ,p_information20 in varchar2 default null
37 ,p_information21 in varchar2 default null
38 ,p_information22 in varchar2 default null
39 ,p_information23 in varchar2 default null
40 ,p_information24 in varchar2 default null
41 ,p_information25 in varchar2 default null
42 ,p_information26 in varchar2 default null
43 ,p_information27 in varchar2 default null
44 ,p_information28 in varchar2 default null
45 ,p_information29 in varchar2 default null
46 ,p_information30 in varchar2 default null
47 ,p_information_category in varchar2 default null
48 ,p_attribute1 in varchar2 default null
49 ,p_attribute2 in varchar2 default null
50 ,p_attribute3 in varchar2 default null
51 ,p_attribute4 in varchar2 default null
52 ,p_attribute5 in varchar2 default null
53 ,p_attribute6 in varchar2 default null
54 ,p_attribute7 in varchar2 default null
55 ,p_attribute8 in varchar2 default null
56 ,p_attribute9 in varchar2 default null
57 ,p_attribute10 in varchar2 default null
58 ,p_attribute11 in varchar2 default null
59 ,p_attribute12 in varchar2 default null
60 ,p_attribute13 in varchar2 default null
61 ,p_attribute14 in varchar2 default null
62 ,p_attribute15 in varchar2 default null
63 ,p_attribute16 in varchar2 default null
64 ,p_attribute17 in varchar2 default null
65 ,p_attribute18 in varchar2 default null
66 ,p_attribute19 in varchar2 default null
67 ,p_attribute20 in varchar2 default null
68 ,p_attribute21 in varchar2 default null
69 ,p_attribute22 in varchar2 default null
70 ,p_attribute23 in varchar2 default null
71 ,p_attribute24 in varchar2 default null
72 ,p_attribute25 in varchar2 default null
73 ,p_attribute26 in varchar2 default null
74 ,p_attribute27 in varchar2 default null
75 ,p_attribute28 in varchar2 default null
76 ,p_attribute29 in varchar2 default null
77 ,p_attribute30 in varchar2 default null
78 ,p_attribute_category in varchar2 default null
79 ,p_object_version_number out nocopy number
80 ,p_return_status out nocopy varchar2
81 ) is
82 --
83 -- Variables for API Boolean parameters
84 l_validate boolean;
85 --
86 -- Variables for IN/OUT parameters
87 --
88 -- Other variables
89 l_proc varchar2(72) := g_package ||'create_corps_extra_info';
90 Begin
91 hr_utility.set_location(' Entering:' || l_proc,10);
92 --
93 -- Issue a savepoint
94 --
95 savepoint create_corps_extra_info_swi;
96 --
97 -- Initialise Multiple Message Detection
98 --
99 hr_multi_message.enable_message_list;
100 --
101 -- Remember IN OUT parameter IN values
102 --
103 --
104 -- Convert constant values to their corresponding boolean value
105 --
106 l_validate :=
107 hr_api.constant_to_boolean
108 (p_constant_value => p_validate);
109 --
110 -- Register Surrogate ID or user key values
111 --
112 --
113 -- Call API
114 --
115 pqh_corps_extra_info_api.create_corps_extra_info
116 (p_validate => l_validate
117 ,p_effective_date => p_effective_date
118 ,p_corps_extra_info_id => p_corps_extra_info_id
119 ,p_corps_definition_id => p_corps_definition_id
120 ,p_information_type => p_information_type
121 ,p_information1 => p_information1
122 ,p_information2 => p_information2
123 ,p_information3 => p_information3
124 ,p_information4 => p_information4
125 ,p_information5 => p_information5
126 ,p_information6 => p_information6
127 ,p_information7 => p_information7
128 ,p_information8 => p_information8
129 ,p_information9 => p_information9
130 ,p_information10 => p_information10
131 ,p_information11 => p_information11
132 ,p_information12 => p_information12
133 ,p_information13 => p_information13
134 ,p_information14 => p_information14
135 ,p_information15 => p_information15
136 ,p_information16 => p_information16
137 ,p_information17 => p_information17
138 ,p_information18 => p_information18
139 ,p_information19 => p_information19
140 ,p_information20 => p_information20
141 ,p_information21 => p_information21
142 ,p_information22 => p_information22
143 ,p_information23 => p_information23
144 ,p_information24 => p_information24
145 ,p_information25 => p_information25
146 ,p_information26 => p_information26
147 ,p_information27 => p_information27
148 ,p_information28 => p_information28
149 ,p_information29 => p_information29
150 ,p_information30 => p_information30
151 ,p_information_category => p_information_category
152 ,p_attribute1 => p_attribute1
153 ,p_attribute2 => p_attribute2
154 ,p_attribute3 => p_attribute3
155 ,p_attribute4 => p_attribute4
156 ,p_attribute5 => p_attribute5
157 ,p_attribute6 => p_attribute6
158 ,p_attribute7 => p_attribute7
159 ,p_attribute8 => p_attribute8
160 ,p_attribute9 => p_attribute9
161 ,p_attribute10 => p_attribute10
162 ,p_attribute11 => p_attribute11
163 ,p_attribute12 => p_attribute12
164 ,p_attribute13 => p_attribute13
165 ,p_attribute14 => p_attribute14
166 ,p_attribute15 => p_attribute15
167 ,p_attribute16 => p_attribute16
168 ,p_attribute17 => p_attribute17
169 ,p_attribute18 => p_attribute18
170 ,p_attribute19 => p_attribute19
171 ,p_attribute20 => p_attribute20
172 ,p_attribute21 => p_attribute21
173 ,p_attribute22 => p_attribute22
174 ,p_attribute23 => p_attribute23
175 ,p_attribute24 => p_attribute24
176 ,p_attribute25 => p_attribute25
177 ,p_attribute26 => p_attribute26
178 ,p_attribute27 => p_attribute27
179 ,p_attribute28 => p_attribute28
180 ,p_attribute29 => p_attribute29
181 ,p_attribute30 => p_attribute30
182 ,p_attribute_category => p_attribute_category
183 ,p_object_version_number => p_object_version_number
184 );
185 --
186 -- Convert API warning boolean parameter values to specific
187 -- messages and add them to Multiple Message List
188 --
189 --
190 -- Convert API non-warning boolean parameter values
191 --
192 --
193 -- Derive the API return status value based on whether
194 -- messages of any type exist in the Multiple Message List.
195 -- Also disable Multiple Message Detection.
196 --
197 p_return_status := hr_multi_message.get_return_status_disable;
198 hr_utility.set_location(' Leaving:' || l_proc,20);
199 --
200 exception
201 when hr_multi_message.error_message_exist then
202 --
203 -- Catch the Multiple Message List exception which
204 -- indicates API processing has been aborted because
205 -- at least one message exists in the list.
206 --
207 rollback to create_corps_extra_info_swi;
208 --
209 -- Reset IN OUT parameters and set OUT parameters
210 --
211 p_corps_extra_info_id := null;
212 p_object_version_number := null;
213 p_return_status := hr_multi_message.get_return_status_disable;
214 hr_utility.set_location(' Leaving:' || l_proc, 30);
215 when others then
216 --
217 -- When Multiple Message Detection is enabled catch
218 -- any Application specific or other unexpected
219 -- exceptions. Adding appropriate details to the
220 -- Multiple Message List. Otherwise re-raise the
221 -- error.
222 --
223 rollback to create_corps_extra_info_swi;
224 if hr_multi_message.unexpected_error_add(l_proc) then
225 hr_utility.set_location(' Leaving:' || l_proc,40);
226 raise;
227 end if;
228 --
229 -- Reset IN OUT and set OUT parameters
230 --
231 p_corps_extra_info_id := null;
232 p_object_version_number := null;
233 p_return_status := hr_multi_message.get_return_status_disable;
234 hr_utility.set_location(' Leaving:' || l_proc,50);
235 end create_corps_extra_info;
236 -- ----------------------------------------------------------------------------
237 -- |------------------------< delete_corps_extra_info >-----------------------|
238 -- ----------------------------------------------------------------------------
239 PROCEDURE delete_corps_extra_info
240 (p_validate in number default hr_api.g_false_num
241 ,p_corps_extra_info_id in number
242 ,p_object_version_number in number
243 ,p_return_status out nocopy varchar2
244 ) is
245 --
246 -- Variables for API Boolean parameters
247 l_validate boolean;
248 --
249 -- Variables for IN/OUT parameters
250 --
251 -- Other variables
252 l_proc varchar2(72) := g_package ||'delete_corps_extra_info';
253 Begin
254 hr_utility.set_location(' Entering:' || l_proc,10);
255 --
256 -- Issue a savepoint
257 --
258 savepoint delete_corps_extra_info_swi;
259 --
260 -- Initialise Multiple Message Detection
261 --
262 hr_multi_message.enable_message_list;
263 --
264 -- Remember IN OUT parameter IN values
265 --
266 --
267 -- Convert constant values to their corresponding boolean value
268 --
269 l_validate :=
270 hr_api.constant_to_boolean
271 (p_constant_value => p_validate);
272 --
273 -- Register Surrogate ID or user key values
274 --
275 --
276 -- Call API
277 --
278 pqh_corps_extra_info_api.delete_corps_extra_info
279 (p_validate => l_validate
280 ,p_corps_extra_info_id => p_corps_extra_info_id
281 ,p_object_version_number => p_object_version_number
282 );
283 --
284 -- Convert API warning boolean parameter values to specific
285 -- messages and add them to Multiple Message List
286 --
287 --
288 -- Convert API non-warning boolean parameter values
289 --
290 --
291 -- Derive the API return status value based on whether
292 -- messages of any type exist in the Multiple Message List.
293 -- Also disable Multiple Message Detection.
294 --
295 p_return_status := hr_multi_message.get_return_status_disable;
296 hr_utility.set_location(' Leaving:' || l_proc,20);
297 --
298 exception
299 when hr_multi_message.error_message_exist then
300 --
301 -- Catch the Multiple Message List exception which
302 -- indicates API processing has been aborted because
303 -- at least one message exists in the list.
304 --
305 rollback to delete_corps_extra_info_swi;
306 --
307 -- Reset IN OUT parameters and set OUT parameters
308 --
309 p_return_status := hr_multi_message.get_return_status_disable;
310 hr_utility.set_location(' Leaving:' || l_proc, 30);
311 when others then
312 --
313 -- When Multiple Message Detection is enabled catch
314 -- any Application specific or other unexpected
315 -- exceptions. Adding appropriate details to the
316 -- Multiple Message List. Otherwise re-raise the
317 -- error.
318 --
319 rollback to delete_corps_extra_info_swi;
320 if hr_multi_message.unexpected_error_add(l_proc) then
321 hr_utility.set_location(' Leaving:' || l_proc,40);
322 raise;
323 end if;
324 --
325 -- Reset IN OUT and set OUT parameters
326 --
327 p_return_status := hr_multi_message.get_return_status_disable;
328 hr_utility.set_location(' Leaving:' || l_proc,50);
329 end delete_corps_extra_info;
330 -- ----------------------------------------------------------------------------
331 -- |------------------------< update_corps_extra_info >-----------------------|
332 -- ----------------------------------------------------------------------------
333 PROCEDURE update_corps_extra_info
334 (p_validate in number default hr_api.g_false_num
335 ,p_effective_date in date
336 ,p_corps_extra_info_id in number
337 ,p_corps_definition_id in number default hr_api.g_number
338 ,p_information_type in varchar2 default hr_api.g_varchar2
339 ,p_information1 in varchar2 default hr_api.g_varchar2
340 ,p_information2 in varchar2 default hr_api.g_varchar2
341 ,p_information3 in varchar2 default hr_api.g_varchar2
342 ,p_information4 in varchar2 default hr_api.g_varchar2
343 ,p_information5 in varchar2 default hr_api.g_varchar2
344 ,p_information6 in varchar2 default hr_api.g_varchar2
345 ,p_information7 in varchar2 default hr_api.g_varchar2
346 ,p_information8 in varchar2 default hr_api.g_varchar2
347 ,p_information9 in varchar2 default hr_api.g_varchar2
348 ,p_information10 in varchar2 default hr_api.g_varchar2
349 ,p_information11 in varchar2 default hr_api.g_varchar2
350 ,p_information12 in varchar2 default hr_api.g_varchar2
351 ,p_information13 in varchar2 default hr_api.g_varchar2
352 ,p_information14 in varchar2 default hr_api.g_varchar2
353 ,p_information15 in varchar2 default hr_api.g_varchar2
354 ,p_information16 in varchar2 default hr_api.g_varchar2
355 ,p_information17 in varchar2 default hr_api.g_varchar2
356 ,p_information18 in varchar2 default hr_api.g_varchar2
357 ,p_information19 in varchar2 default hr_api.g_varchar2
358 ,p_information20 in varchar2 default hr_api.g_varchar2
359 ,p_information21 in varchar2 default hr_api.g_varchar2
360 ,p_information22 in varchar2 default hr_api.g_varchar2
361 ,p_information23 in varchar2 default hr_api.g_varchar2
362 ,p_information24 in varchar2 default hr_api.g_varchar2
363 ,p_information25 in varchar2 default hr_api.g_varchar2
364 ,p_information26 in varchar2 default hr_api.g_varchar2
365 ,p_information27 in varchar2 default hr_api.g_varchar2
366 ,p_information28 in varchar2 default hr_api.g_varchar2
367 ,p_information29 in varchar2 default hr_api.g_varchar2
368 ,p_information30 in varchar2 default hr_api.g_varchar2
369 ,p_information_category in varchar2 default hr_api.g_varchar2
370 ,p_attribute1 in varchar2 default hr_api.g_varchar2
371 ,p_attribute2 in varchar2 default hr_api.g_varchar2
372 ,p_attribute3 in varchar2 default hr_api.g_varchar2
373 ,p_attribute4 in varchar2 default hr_api.g_varchar2
374 ,p_attribute5 in varchar2 default hr_api.g_varchar2
375 ,p_attribute6 in varchar2 default hr_api.g_varchar2
376 ,p_attribute7 in varchar2 default hr_api.g_varchar2
377 ,p_attribute8 in varchar2 default hr_api.g_varchar2
378 ,p_attribute9 in varchar2 default hr_api.g_varchar2
379 ,p_attribute10 in varchar2 default hr_api.g_varchar2
380 ,p_attribute11 in varchar2 default hr_api.g_varchar2
381 ,p_attribute12 in varchar2 default hr_api.g_varchar2
382 ,p_attribute13 in varchar2 default hr_api.g_varchar2
383 ,p_attribute14 in varchar2 default hr_api.g_varchar2
384 ,p_attribute15 in varchar2 default hr_api.g_varchar2
385 ,p_attribute16 in varchar2 default hr_api.g_varchar2
386 ,p_attribute17 in varchar2 default hr_api.g_varchar2
387 ,p_attribute18 in varchar2 default hr_api.g_varchar2
388 ,p_attribute19 in varchar2 default hr_api.g_varchar2
389 ,p_attribute20 in varchar2 default hr_api.g_varchar2
390 ,p_attribute21 in varchar2 default hr_api.g_varchar2
391 ,p_attribute22 in varchar2 default hr_api.g_varchar2
392 ,p_attribute23 in varchar2 default hr_api.g_varchar2
393 ,p_attribute24 in varchar2 default hr_api.g_varchar2
394 ,p_attribute25 in varchar2 default hr_api.g_varchar2
395 ,p_attribute26 in varchar2 default hr_api.g_varchar2
396 ,p_attribute27 in varchar2 default hr_api.g_varchar2
397 ,p_attribute28 in varchar2 default hr_api.g_varchar2
398 ,p_attribute29 in varchar2 default hr_api.g_varchar2
399 ,p_attribute30 in varchar2 default hr_api.g_varchar2
400 ,p_attribute_category in varchar2 default hr_api.g_varchar2
401 ,p_object_version_number in out nocopy number
402 ,p_return_status out nocopy varchar2
403 ) is
404 --
405 -- Variables for API Boolean parameters
406 l_validate boolean;
407 --
408 -- Variables for IN/OUT parameters
409 l_object_version_number number;
410 --
411 -- Other variables
412 l_proc varchar2(72) := g_package ||'update_corps_extra_info';
413 Begin
414 hr_utility.set_location(' Entering:' || l_proc,10);
415 --
416 -- Issue a savepoint
417 --
418 savepoint update_corps_extra_info_swi;
419 --
420 -- Initialise Multiple Message Detection
421 --
422 hr_multi_message.enable_message_list;
423 --
424 -- Remember IN OUT parameter IN values
425 --
426 l_object_version_number := p_object_version_number;
427 --
428 -- Convert constant values to their corresponding boolean value
429 --
430 l_validate :=
431 hr_api.constant_to_boolean
432 (p_constant_value => p_validate);
433 --
434 -- Register Surrogate ID or user key values
435 --
436 --
437 -- Call API
438 --
439 pqh_corps_extra_info_api.update_corps_extra_info
440 (p_validate => l_validate
441 ,p_effective_date => p_effective_date
442 ,p_corps_extra_info_id => p_corps_extra_info_id
443 ,p_corps_definition_id => p_corps_definition_id
444 ,p_information_type => p_information_type
445 ,p_information1 => p_information1
446 ,p_information2 => p_information2
447 ,p_information3 => p_information3
448 ,p_information4 => p_information4
449 ,p_information5 => p_information5
450 ,p_information6 => p_information6
451 ,p_information7 => p_information7
452 ,p_information8 => p_information8
453 ,p_information9 => p_information9
454 ,p_information10 => p_information10
455 ,p_information11 => p_information11
456 ,p_information12 => p_information12
457 ,p_information13 => p_information13
458 ,p_information14 => p_information14
459 ,p_information15 => p_information15
460 ,p_information16 => p_information16
461 ,p_information17 => p_information17
462 ,p_information18 => p_information18
463 ,p_information19 => p_information19
464 ,p_information20 => p_information20
465 ,p_information21 => p_information21
466 ,p_information22 => p_information22
467 ,p_information23 => p_information23
468 ,p_information24 => p_information24
469 ,p_information25 => p_information25
470 ,p_information26 => p_information26
471 ,p_information27 => p_information27
472 ,p_information28 => p_information28
473 ,p_information29 => p_information29
474 ,p_information30 => p_information30
475 ,p_information_category => p_information_category
476 ,p_attribute1 => p_attribute1
477 ,p_attribute2 => p_attribute2
478 ,p_attribute3 => p_attribute3
479 ,p_attribute4 => p_attribute4
480 ,p_attribute5 => p_attribute5
481 ,p_attribute6 => p_attribute6
482 ,p_attribute7 => p_attribute7
483 ,p_attribute8 => p_attribute8
484 ,p_attribute9 => p_attribute9
485 ,p_attribute10 => p_attribute10
486 ,p_attribute11 => p_attribute11
487 ,p_attribute12 => p_attribute12
488 ,p_attribute13 => p_attribute13
489 ,p_attribute14 => p_attribute14
490 ,p_attribute15 => p_attribute15
491 ,p_attribute16 => p_attribute16
492 ,p_attribute17 => p_attribute17
493 ,p_attribute18 => p_attribute18
494 ,p_attribute19 => p_attribute19
495 ,p_attribute20 => p_attribute20
496 ,p_attribute21 => p_attribute21
497 ,p_attribute22 => p_attribute22
498 ,p_attribute23 => p_attribute23
499 ,p_attribute24 => p_attribute24
500 ,p_attribute25 => p_attribute25
501 ,p_attribute26 => p_attribute26
502 ,p_attribute27 => p_attribute27
503 ,p_attribute28 => p_attribute28
504 ,p_attribute29 => p_attribute29
505 ,p_attribute30 => p_attribute30
506 ,p_attribute_category => p_attribute_category
507 ,p_object_version_number => p_object_version_number
508 );
509 --
510 -- Convert API warning boolean parameter values to specific
511 -- messages and add them to Multiple Message List
512 --
513 --
514 -- Convert API non-warning boolean parameter values
515 --
516 --
517 -- Derive the API return status value based on whether
518 -- messages of any type exist in the Multiple Message List.
519 -- Also disable Multiple Message Detection.
520 --
521 p_return_status := hr_multi_message.get_return_status_disable;
522 hr_utility.set_location(' Leaving:' || l_proc,20);
523 --
524 exception
525 when hr_multi_message.error_message_exist then
526 --
527 -- Catch the Multiple Message List exception which
528 -- indicates API processing has been aborted because
529 -- at least one message exists in the list.
530 --
531 rollback to update_corps_extra_info_swi;
532 --
533 -- Reset IN OUT parameters and set OUT parameters
534 --
535 p_object_version_number := l_object_version_number;
536 p_return_status := hr_multi_message.get_return_status_disable;
537 hr_utility.set_location(' Leaving:' || l_proc, 30);
538 when others then
539 --
540 -- When Multiple Message Detection is enabled catch
541 -- any Application specific or other unexpected
542 -- exceptions. Adding appropriate details to the
543 -- Multiple Message List. Otherwise re-raise the
544 -- error.
545 --
546 rollback to update_corps_extra_info_swi;
547 if hr_multi_message.unexpected_error_add(l_proc) then
548 hr_utility.set_location(' Leaving:' || l_proc,40);
549 raise;
550 end if;
551 --
552 -- Reset IN OUT and set OUT parameters
553 --
554 p_object_version_number := l_object_version_number;
555 p_return_status := hr_multi_message.get_return_status_disable;
556 hr_utility.set_location(' Leaving:' || l_proc,50);
557 end update_corps_extra_info;
558 end pqh_corps_extra_info_swi;