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