[Home] [Help]
PACKAGE BODY: APPS.PAY_ELEMENT_EIT_SWI
Source
1 Package Body pay_element_eit_swi As
2 /* $Header: pyeeimwi.pkb 120.0 2005/12/16 15:01 ndorai noship $ */
3 --
4 -- Package variables
5 --
6 g_package varchar2(33) := 'pay_element_extra_info_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-----------------------< create_element_extra_info >----------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE create_element_extra_info
12 (p_validate in number default hr_api.g_false_num
13 ,p_element_type_id in number
14 ,p_information_type in varchar2
15 ,p_eei_attribute_category in varchar2 default null
16 ,p_eei_attribute1 in varchar2 default null
17 ,p_eei_attribute2 in varchar2 default null
18 ,p_eei_attribute3 in varchar2 default null
19 ,p_eei_attribute4 in varchar2 default null
20 ,p_eei_attribute5 in varchar2 default null
21 ,p_eei_attribute6 in varchar2 default null
22 ,p_eei_attribute7 in varchar2 default null
23 ,p_eei_attribute8 in varchar2 default null
24 ,p_eei_attribute9 in varchar2 default null
25 ,p_eei_attribute10 in varchar2 default null
26 ,p_eei_attribute11 in varchar2 default null
27 ,p_eei_attribute12 in varchar2 default null
28 ,p_eei_attribute13 in varchar2 default null
29 ,p_eei_attribute14 in varchar2 default null
30 ,p_eei_attribute15 in varchar2 default null
31 ,p_eei_attribute16 in varchar2 default null
32 ,p_eei_attribute17 in varchar2 default null
33 ,p_eei_attribute18 in varchar2 default null
34 ,p_eei_attribute19 in varchar2 default null
35 ,p_eei_attribute20 in varchar2 default null
36 ,p_eei_information_category in varchar2 default null
37 ,p_eei_information1 in varchar2 default null
38 ,p_eei_information2 in varchar2 default null
39 ,p_eei_information3 in varchar2 default null
40 ,p_eei_information4 in varchar2 default null
41 ,p_eei_information5 in varchar2 default null
42 ,p_eei_information6 in varchar2 default null
43 ,p_eei_information7 in varchar2 default null
44 ,p_eei_information8 in varchar2 default null
45 ,p_eei_information9 in varchar2 default null
46 ,p_eei_information10 in varchar2 default null
47 ,p_eei_information11 in varchar2 default null
48 ,p_eei_information12 in varchar2 default null
49 ,p_eei_information13 in varchar2 default null
50 ,p_eei_information14 in varchar2 default null
51 ,p_eei_information15 in varchar2 default null
52 ,p_eei_information16 in varchar2 default null
53 ,p_eei_information17 in varchar2 default null
54 ,p_eei_information18 in varchar2 default null
55 ,p_eei_information19 in varchar2 default null
56 ,p_eei_information20 in varchar2 default null
57 ,p_eei_information21 in varchar2 default null
58 ,p_eei_information22 in varchar2 default null
59 ,p_eei_information23 in varchar2 default null
60 ,p_eei_information24 in varchar2 default null
61 ,p_eei_information25 in varchar2 default null
62 ,p_eei_information26 in varchar2 default null
63 ,p_eei_information27 in varchar2 default null
64 ,p_eei_information28 in varchar2 default null
65 ,p_eei_information29 in varchar2 default null
66 ,p_eei_information30 in varchar2 default null
67 ,p_element_type_extra_info_id out nocopy number
68 ,p_object_version_number out nocopy number
69 ,p_return_status out nocopy varchar2
70 ) is
71 --
72 -- Variables for API Boolean parameters
73 l_validate boolean;
74 --
75 -- Variables for IN/OUT parameters
76 --
77 -- Other variables
78 l_proc varchar2(72) := g_package ||'create_element_extra_info';
79 Begin
80 hr_utility.set_location(' Entering:' || l_proc,10);
81 --
82 -- Issue a savepoint
83 --
84 savepoint create_element_extra_info_swi;
85 --
86 -- Initialise Multiple Message Detection
87 --
88 hr_multi_message.enable_message_list;
89 --
90 -- Remember IN OUT parameter IN values
91 --
92 --
93 -- Convert constant values to their corresponding boolean value
94 --
95 l_validate :=
96 hr_api.constant_to_boolean
97 (p_constant_value => p_validate);
98 --
99 -- Register Surrogate ID or user key values
100 --
101 --
102 -- Call API
103 --
104 pay_element_eit_mig.create_element_extra_info
105 (p_validate => l_validate
106 ,p_element_type_id => p_element_type_id
107 ,p_information_type => p_information_type
108 ,p_eei_attribute_category => p_eei_attribute_category
109 ,p_eei_attribute1 => p_eei_attribute1
110 ,p_eei_attribute2 => p_eei_attribute2
111 ,p_eei_attribute3 => p_eei_attribute3
112 ,p_eei_attribute4 => p_eei_attribute4
113 ,p_eei_attribute5 => p_eei_attribute5
114 ,p_eei_attribute6 => p_eei_attribute6
115 ,p_eei_attribute7 => p_eei_attribute7
116 ,p_eei_attribute8 => p_eei_attribute8
117 ,p_eei_attribute9 => p_eei_attribute9
118 ,p_eei_attribute10 => p_eei_attribute10
119 ,p_eei_attribute11 => p_eei_attribute11
120 ,p_eei_attribute12 => p_eei_attribute12
121 ,p_eei_attribute13 => p_eei_attribute13
122 ,p_eei_attribute14 => p_eei_attribute14
123 ,p_eei_attribute15 => p_eei_attribute15
124 ,p_eei_attribute16 => p_eei_attribute16
125 ,p_eei_attribute17 => p_eei_attribute17
126 ,p_eei_attribute18 => p_eei_attribute18
127 ,p_eei_attribute19 => p_eei_attribute19
128 ,p_eei_attribute20 => p_eei_attribute20
129 ,p_eei_information_category => p_eei_information_category
130 ,p_eei_information1 => p_eei_information1
131 ,p_eei_information2 => p_eei_information2
132 ,p_eei_information3 => p_eei_information3
133 ,p_eei_information4 => p_eei_information4
134 ,p_eei_information5 => p_eei_information5
135 ,p_eei_information6 => p_eei_information6
136 ,p_eei_information7 => p_eei_information7
137 ,p_eei_information8 => p_eei_information8
138 ,p_eei_information9 => p_eei_information9
139 ,p_eei_information10 => p_eei_information10
140 ,p_eei_information11 => p_eei_information11
141 ,p_eei_information12 => p_eei_information12
142 ,p_eei_information13 => p_eei_information13
143 ,p_eei_information14 => p_eei_information14
144 ,p_eei_information15 => p_eei_information15
145 ,p_eei_information16 => p_eei_information16
146 ,p_eei_information17 => p_eei_information17
147 ,p_eei_information18 => p_eei_information18
148 ,p_eei_information19 => p_eei_information19
149 ,p_eei_information20 => p_eei_information20
150 ,p_eei_information21 => p_eei_information21
151 ,p_eei_information22 => p_eei_information22
152 ,p_eei_information23 => p_eei_information23
153 ,p_eei_information24 => p_eei_information24
154 ,p_eei_information25 => p_eei_information25
155 ,p_eei_information26 => p_eei_information26
156 ,p_eei_information27 => p_eei_information27
157 ,p_eei_information28 => p_eei_information28
158 ,p_eei_information29 => p_eei_information29
159 ,p_eei_information30 => p_eei_information30
160 ,p_element_type_extra_info_id => p_element_type_extra_info_id
161 ,p_object_version_number => p_object_version_number
162 );
163 --
164 -- Convert API warning boolean parameter values to specific
165 -- messages and add them to Multiple Message List
166 --
167 --
168 -- Convert API non-warning boolean parameter values
169 --
170 --
171 -- Derive the API return status value based on whether
172 -- messages of any type exist in the Multiple Message List.
173 -- Also disable Multiple Message Detection.
174 --
175 p_return_status := hr_multi_message.get_return_status_disable;
176 hr_utility.set_location(' Leaving:' || l_proc,20);
177 --
178 exception
179 when hr_multi_message.error_message_exist then
180 --
181 -- Catch the Multiple Message List exception which
182 -- indicates API processing has been aborted because
183 -- at least one message exists in the list.
184 --
185 rollback to create_element_extra_info_swi;
186 --
187 -- Reset IN OUT parameters and set OUT parameters
188 --
189 p_element_type_extra_info_id := null;
190 p_object_version_number := null;
191 p_return_status := hr_multi_message.get_return_status_disable;
192 hr_utility.set_location(' Leaving:' || l_proc, 30);
193 when others then
194 --
195 -- When Multiple Message Detection is enabled catch
196 -- any Application specific or other unexpected
197 -- exceptions. Adding appropriate details to the
198 -- Multiple Message List. Otherwise re-raise the
199 -- error.
200 --
201 rollback to create_element_extra_info_swi;
202 if hr_multi_message.unexpected_error_add(l_proc) then
203 hr_utility.set_location(' Leaving:' || l_proc,40);
204 raise;
205 end if;
206 --
207 -- Reset IN OUT and set OUT parameters
208 --
209 p_element_type_extra_info_id := null;
210 p_object_version_number := null;
211 p_return_status := hr_multi_message.get_return_status_disable;
212 hr_utility.set_location(' Leaving:' || l_proc,50);
213 end create_element_extra_info;
214 -- ----------------------------------------------------------------------------
215 -- |-----------------------< delete_element_extra_info >----------------------|
216 -- ----------------------------------------------------------------------------
217 PROCEDURE delete_element_extra_info
218 (p_validate in number default hr_api.g_false_num
219 ,p_element_type_extra_info_id in number
220 ,p_object_version_number in number
221 ,p_return_status out nocopy varchar2
222 ) is
223 --
224 -- Variables for API Boolean parameters
225 l_validate boolean;
226 --
227 -- Variables for IN/OUT parameters
228 --
229 -- Other variables
230 l_proc varchar2(72) := g_package ||'delete_element_extra_info';
231 Begin
232 hr_utility.set_location(' Entering:' || l_proc,10);
233 --
234 -- Issue a savepoint
235 --
236 savepoint delete_element_extra_info_swi;
237 --
238 -- Initialise Multiple Message Detection
239 --
240 hr_multi_message.enable_message_list;
241 --
242 -- Remember IN OUT parameter IN values
243 --
244 --
245 -- Convert constant values to their corresponding boolean value
246 --
247 l_validate :=
248 hr_api.constant_to_boolean
249 (p_constant_value => p_validate);
250 --
251 -- Register Surrogate ID or user key values
252 --
253 --
254 -- Call API
255 --
256 pay_element_eit_mig.delete_element_extra_info
257 (p_validate => l_validate
258 ,p_element_type_extra_info_id => p_element_type_extra_info_id
259 ,p_object_version_number => p_object_version_number
260 );
261 --
262 -- Convert API warning boolean parameter values to specific
263 -- messages and add them to Multiple Message List
264 --
265 --
266 -- Convert API non-warning boolean parameter values
267 --
268 --
269 -- Derive the API return status value based on whether
270 -- messages of any type exist in the Multiple Message List.
271 -- Also disable Multiple Message Detection.
272 --
273 p_return_status := hr_multi_message.get_return_status_disable;
274 hr_utility.set_location(' Leaving:' || l_proc,20);
275 --
276 exception
277 when hr_multi_message.error_message_exist then
278 --
279 -- Catch the Multiple Message List exception which
280 -- indicates API processing has been aborted because
281 -- at least one message exists in the list.
282 --
283 rollback to delete_element_extra_info_swi;
284 --
285 -- Reset IN OUT parameters and set OUT parameters
286 --
287 p_return_status := hr_multi_message.get_return_status_disable;
288 hr_utility.set_location(' Leaving:' || l_proc, 30);
289 when others then
290 --
291 -- When Multiple Message Detection is enabled catch
292 -- any Application specific or other unexpected
293 -- exceptions. Adding appropriate details to the
294 -- Multiple Message List. Otherwise re-raise the
295 -- error.
296 --
297 rollback to delete_element_extra_info_swi;
298 if hr_multi_message.unexpected_error_add(l_proc) then
299 hr_utility.set_location(' Leaving:' || l_proc,40);
300 raise;
301 end if;
302 --
303 -- Reset IN OUT and set OUT parameters
304 --
305 p_return_status := hr_multi_message.get_return_status_disable;
306 hr_utility.set_location(' Leaving:' || l_proc,50);
307 end delete_element_extra_info;
308 -- ----------------------------------------------------------------------------
309 -- |-----------------------< update_element_extra_info >----------------------|
310 -- ----------------------------------------------------------------------------
311 PROCEDURE update_element_extra_info
312 (p_validate in number default hr_api.g_false_num
313 ,p_element_type_extra_info_id in number
314 ,p_object_version_number in out nocopy number
315 ,p_eei_attribute_category in varchar2 default hr_api.g_varchar2
316 ,p_eei_attribute1 in varchar2 default hr_api.g_varchar2
317 ,p_eei_attribute2 in varchar2 default hr_api.g_varchar2
318 ,p_eei_attribute3 in varchar2 default hr_api.g_varchar2
319 ,p_eei_attribute4 in varchar2 default hr_api.g_varchar2
320 ,p_eei_attribute5 in varchar2 default hr_api.g_varchar2
321 ,p_eei_attribute6 in varchar2 default hr_api.g_varchar2
322 ,p_eei_attribute7 in varchar2 default hr_api.g_varchar2
323 ,p_eei_attribute8 in varchar2 default hr_api.g_varchar2
324 ,p_eei_attribute9 in varchar2 default hr_api.g_varchar2
325 ,p_eei_attribute10 in varchar2 default hr_api.g_varchar2
326 ,p_eei_attribute11 in varchar2 default hr_api.g_varchar2
327 ,p_eei_attribute12 in varchar2 default hr_api.g_varchar2
328 ,p_eei_attribute13 in varchar2 default hr_api.g_varchar2
329 ,p_eei_attribute14 in varchar2 default hr_api.g_varchar2
330 ,p_eei_attribute15 in varchar2 default hr_api.g_varchar2
331 ,p_eei_attribute16 in varchar2 default hr_api.g_varchar2
332 ,p_eei_attribute17 in varchar2 default hr_api.g_varchar2
333 ,p_eei_attribute18 in varchar2 default hr_api.g_varchar2
334 ,p_eei_attribute19 in varchar2 default hr_api.g_varchar2
335 ,p_eei_attribute20 in varchar2 default hr_api.g_varchar2
336 ,p_eei_information_category in varchar2 default hr_api.g_varchar2
337 ,p_eei_information1 in varchar2 default hr_api.g_varchar2
338 ,p_eei_information2 in varchar2 default hr_api.g_varchar2
339 ,p_eei_information3 in varchar2 default hr_api.g_varchar2
340 ,p_eei_information4 in varchar2 default hr_api.g_varchar2
341 ,p_eei_information5 in varchar2 default hr_api.g_varchar2
342 ,p_eei_information6 in varchar2 default hr_api.g_varchar2
343 ,p_eei_information7 in varchar2 default hr_api.g_varchar2
344 ,p_eei_information8 in varchar2 default hr_api.g_varchar2
345 ,p_eei_information9 in varchar2 default hr_api.g_varchar2
346 ,p_eei_information10 in varchar2 default hr_api.g_varchar2
347 ,p_eei_information11 in varchar2 default hr_api.g_varchar2
348 ,p_eei_information12 in varchar2 default hr_api.g_varchar2
349 ,p_eei_information13 in varchar2 default hr_api.g_varchar2
350 ,p_eei_information14 in varchar2 default hr_api.g_varchar2
351 ,p_eei_information15 in varchar2 default hr_api.g_varchar2
352 ,p_eei_information16 in varchar2 default hr_api.g_varchar2
353 ,p_eei_information17 in varchar2 default hr_api.g_varchar2
354 ,p_eei_information18 in varchar2 default hr_api.g_varchar2
355 ,p_eei_information19 in varchar2 default hr_api.g_varchar2
356 ,p_eei_information20 in varchar2 default hr_api.g_varchar2
357 ,p_eei_information21 in varchar2 default hr_api.g_varchar2
358 ,p_eei_information22 in varchar2 default hr_api.g_varchar2
359 ,p_eei_information23 in varchar2 default hr_api.g_varchar2
360 ,p_eei_information24 in varchar2 default hr_api.g_varchar2
361 ,p_eei_information25 in varchar2 default hr_api.g_varchar2
362 ,p_eei_information26 in varchar2 default hr_api.g_varchar2
363 ,p_eei_information27 in varchar2 default hr_api.g_varchar2
364 ,p_eei_information28 in varchar2 default hr_api.g_varchar2
365 ,p_eei_information29 in varchar2 default hr_api.g_varchar2
366 ,p_eei_information30 in varchar2 default hr_api.g_varchar2
367 ,p_return_status out nocopy varchar2
368 ) is
369 --
370 -- Variables for API Boolean parameters
371 l_validate boolean;
372 --
373 -- Variables for IN/OUT parameters
374 l_object_version_number number;
375 --
376 -- Other variables
377 l_proc varchar2(72) := g_package ||'update_element_extra_info';
378 Begin
379 hr_utility.set_location(' Entering:' || l_proc,10);
380 --
381 -- Issue a savepoint
382 --
383 savepoint update_element_extra_info_swi;
384 --
385 -- Initialise Multiple Message Detection
386 --
387 hr_multi_message.enable_message_list;
388 --
389 -- Remember IN OUT parameter IN values
390 --
391 l_object_version_number := p_object_version_number;
392 --
393 -- Convert constant values to their corresponding boolean value
394 --
395 l_validate :=
396 hr_api.constant_to_boolean
397 (p_constant_value => p_validate);
398 --
399 -- Register Surrogate ID or user key values
400 --
401 --
402 -- Call API
403 --
404 pay_element_eit_mig.update_element_extra_info
405 (p_validate => l_validate
406 ,p_element_type_extra_info_id => p_element_type_extra_info_id
407 ,p_object_version_number => p_object_version_number
408 ,p_eei_attribute_category => p_eei_attribute_category
409 ,p_eei_attribute1 => p_eei_attribute1
410 ,p_eei_attribute2 => p_eei_attribute2
411 ,p_eei_attribute3 => p_eei_attribute3
412 ,p_eei_attribute4 => p_eei_attribute4
413 ,p_eei_attribute5 => p_eei_attribute5
414 ,p_eei_attribute6 => p_eei_attribute6
415 ,p_eei_attribute7 => p_eei_attribute7
416 ,p_eei_attribute8 => p_eei_attribute8
417 ,p_eei_attribute9 => p_eei_attribute9
418 ,p_eei_attribute10 => p_eei_attribute10
419 ,p_eei_attribute11 => p_eei_attribute11
420 ,p_eei_attribute12 => p_eei_attribute12
421 ,p_eei_attribute13 => p_eei_attribute13
422 ,p_eei_attribute14 => p_eei_attribute14
423 ,p_eei_attribute15 => p_eei_attribute15
424 ,p_eei_attribute16 => p_eei_attribute16
425 ,p_eei_attribute17 => p_eei_attribute17
426 ,p_eei_attribute18 => p_eei_attribute18
427 ,p_eei_attribute19 => p_eei_attribute19
428 ,p_eei_attribute20 => p_eei_attribute20
429 ,p_eei_information_category => p_eei_information_category
430 ,p_eei_information1 => p_eei_information1
431 ,p_eei_information2 => p_eei_information2
432 ,p_eei_information3 => p_eei_information3
433 ,p_eei_information4 => p_eei_information4
434 ,p_eei_information5 => p_eei_information5
435 ,p_eei_information6 => p_eei_information6
436 ,p_eei_information7 => p_eei_information7
437 ,p_eei_information8 => p_eei_information8
438 ,p_eei_information9 => p_eei_information9
439 ,p_eei_information10 => p_eei_information10
440 ,p_eei_information11 => p_eei_information11
441 ,p_eei_information12 => p_eei_information12
442 ,p_eei_information13 => p_eei_information13
443 ,p_eei_information14 => p_eei_information14
444 ,p_eei_information15 => p_eei_information15
445 ,p_eei_information16 => p_eei_information16
446 ,p_eei_information17 => p_eei_information17
447 ,p_eei_information18 => p_eei_information18
448 ,p_eei_information19 => p_eei_information19
449 ,p_eei_information20 => p_eei_information20
450 ,p_eei_information21 => p_eei_information21
451 ,p_eei_information22 => p_eei_information22
452 ,p_eei_information23 => p_eei_information23
453 ,p_eei_information24 => p_eei_information24
454 ,p_eei_information25 => p_eei_information25
455 ,p_eei_information26 => p_eei_information26
456 ,p_eei_information27 => p_eei_information27
457 ,p_eei_information28 => p_eei_information28
458 ,p_eei_information29 => p_eei_information29
459 ,p_eei_information30 => p_eei_information30
460 );
461 --
462 -- Convert API warning boolean parameter values to specific
463 -- messages and add them to Multiple Message List
464 --
465 --
466 -- Convert API non-warning boolean parameter values
467 --
468 --
469 -- Derive the API return status value based on whether
470 -- messages of any type exist in the Multiple Message List.
471 -- Also disable Multiple Message Detection.
472 --
473 p_return_status := hr_multi_message.get_return_status_disable;
474 hr_utility.set_location(' Leaving:' || l_proc,20);
475 --
476 exception
477 when hr_multi_message.error_message_exist then
478 --
479 -- Catch the Multiple Message List exception which
480 -- indicates API processing has been aborted because
481 -- at least one message exists in the list.
482 --
483 rollback to update_element_extra_info_swi;
484 --
485 -- Reset IN OUT parameters and set OUT parameters
486 --
487 p_object_version_number := l_object_version_number;
488 p_return_status := hr_multi_message.get_return_status_disable;
489 hr_utility.set_location(' Leaving:' || l_proc, 30);
490 when others then
491 --
492 -- When Multiple Message Detection is enabled catch
493 -- any Application specific or other unexpected
494 -- exceptions. Adding appropriate details to the
495 -- Multiple Message List. Otherwise re-raise the
496 -- error.
497 --
498 rollback to update_element_extra_info_swi;
499 if hr_multi_message.unexpected_error_add(l_proc) then
500 hr_utility.set_location(' Leaving:' || l_proc,40);
501 raise;
502 end if;
503 --
504 -- Reset IN OUT and set OUT parameters
505 --
506 p_object_version_number := l_object_version_number;
507 p_return_status := hr_multi_message.get_return_status_disable;
508 hr_utility.set_location(' Leaving:' || l_proc,50);
509 end update_element_extra_info;
510 end pay_element_eit_swi;