[Home] [Help]
PACKAGE BODY: APPS.PQH_SITUATIONS_API
Source
1 Package Body pqh_situations_api as
2 /* $Header: pqlosapi.pkb 115.1 2002/12/03 00:08:02 rpasapul noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' PQH_SITUATIONS_API.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |--------------------------< create_situation >--------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_situation
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_situation in varchar2
16 ,p_effective_start_date in date
17 ,p_business_group_id in number
18 ,p_situation_type in varchar2
19 ,p_length_of_service in varchar2
20 ,p_effective_end_date in date default null
21 ,p_employee_type in varchar2 default null
22 ,p_entitlement_flag in varchar2 default null
23 ,p_worktime_proportional in varchar2 default null
24 ,p_entitlement_value in number default null
25 ,p_information_category in varchar2 default null
26 ,p_information1 in varchar2 default null
27 ,p_information2 in varchar2 default null
28 ,p_information3 in varchar2 default null
29 ,p_information4 in varchar2 default null
30 ,p_information5 in varchar2 default null
31 ,p_information6 in varchar2 default null
32 ,p_information7 in varchar2 default null
33 ,p_information8 in varchar2 default null
34 ,p_information9 in varchar2 default null
35 ,p_information10 in varchar2 default null
36 ,p_information11 in varchar2 default null
37 ,p_information12 in varchar2 default null
38 ,p_information13 in varchar2 default null
39 ,p_information14 in varchar2 default null
40 ,p_information15 in varchar2 default null
41 ,p_information16 in varchar2 default null
42 ,p_information17 in varchar2 default null
43 ,p_information18 in varchar2 default null
44 ,p_information19 in varchar2 default null
45 ,p_information20 in varchar2 default null
46 ,p_information21 in varchar2 default null
47 ,p_information22 in varchar2 default null
48 ,p_information23 in varchar2 default null
49 ,p_information24 in varchar2 default null
50 ,p_information25 in varchar2 default null
51 ,p_information26 in varchar2 default null
52 ,p_information27 in varchar2 default null
53 ,p_information28 in varchar2 default null
54 ,p_information29 in varchar2 default null
55 ,p_information30 in varchar2 default null
56 ,p_attribute_category in varchar2 default null
57 ,p_attribute1 in varchar2 default null
58 ,p_attribute2 in varchar2 default null
59 ,p_attribute3 in varchar2 default null
60 ,p_attribute4 in varchar2 default null
61 ,p_attribute5 in varchar2 default null
62 ,p_attribute6 in varchar2 default null
63 ,p_attribute7 in varchar2 default null
64 ,p_attribute8 in varchar2 default null
65 ,p_attribute9 in varchar2 default null
66 ,p_attribute10 in varchar2 default null
67 ,p_attribute11 in varchar2 default null
68 ,p_attribute12 in varchar2 default null
69 ,p_attribute13 in varchar2 default null
70 ,p_attribute14 in varchar2 default null
71 ,p_attribute15 in varchar2 default null
72 ,p_attribute16 in varchar2 default null
73 ,p_attribute17 in varchar2 default null
74 ,p_attribute18 in varchar2 default null
75 ,p_attribute19 in varchar2 default null
76 ,p_attribute20 in varchar2 default null
77 ,p_attribute21 in varchar2 default null
78 ,p_attribute22 in varchar2 default null
79 ,p_attribute23 in varchar2 default null
80 ,p_attribute24 in varchar2 default null
81 ,p_attribute25 in varchar2 default null
82 ,p_attribute26 in varchar2 default null
83 ,p_attribute27 in varchar2 default null
84 ,p_attribute28 in varchar2 default null
85 ,p_attribute29 in varchar2 default null
86 ,p_attribute30 in varchar2 default null
87 ,p_situation_id out nocopy number
88 ,p_object_version_number out nocopy number
89 ) is
90 --
91 -- Declare cursors and local variables
92 --
93
94 l_proc varchar2(72) := g_package||'CREATE_SITUATION';
95 l_situation_id pqh_situations.situation_id%TYPE;
96 l_object_version_number pqh_situations.object_version_number%TYPE;
97 --
98 begin
99 hr_utility.set_location('Entering:'|| l_proc, 10);
100 --
101 -- Issue a savepoint
102 --
103 savepoint CREATE_SITUATION;
104 --
105 -- Truncate the time portion from all IN date parameters
106 --
107
108 --
109 -- Call Before Process User Hook
110 --
111 begin
112 PQH_SITUATIONS_BK1.create_situation_b
113 (p_effective_date => p_effective_date
114 ,p_situation => p_situation
115 ,p_effective_start_date => p_effective_start_date
116 ,p_business_group_id => p_business_group_id
117 ,p_situation_type => p_situation_type
118 ,p_length_of_service => p_length_of_service
119 ,p_effective_end_date => p_effective_end_date
120 ,p_employee_type => p_employee_type
121 ,p_entitlement_flag => p_entitlement_flag
122 ,p_worktime_proportional => p_worktime_proportional
123 ,p_entitlement_value => p_entitlement_value
124 ,p_information_category => p_information_category
125 ,p_information1 => p_information1
126 ,p_information2 => p_information2
127 ,p_information3 => p_information3
128 ,p_information4 => p_information4
129 ,p_information5 => p_information5
130 ,p_information6 => p_information6
131 ,p_information7 => p_information7
132 ,p_information8 => p_information8
133 ,p_information9 => p_information9
134 ,p_information10 => p_information10
135 ,p_information11 => p_information11
136 ,p_information12 => p_information12
137 ,p_information13 => p_information13
138 ,p_information14 => p_information14
139 ,p_information15 => p_information15
140 ,p_information16 => p_information16
141 ,p_information17 => p_information17
142 ,p_information18 => p_information18
143 ,p_information19 => p_information19
144 ,p_information20 => p_information20
145 ,p_information21 => p_information21
146 ,p_information22 => p_information22
147 ,p_information23 => p_information23
148 ,p_information24 => p_information24
149 ,p_information25 => p_information25
150 ,p_information26 => p_information26
151 ,p_information27 => p_information27
152 ,p_information28 => p_information28
153 ,p_information29 => p_information29
154 ,p_information30 => p_information30
155 ,p_attribute_category => p_attribute_category
156 ,p_attribute1 => p_attribute1
157 ,p_attribute2 => p_attribute2
158 ,p_attribute3 => p_attribute3
159 ,p_attribute4 => p_attribute4
160 ,p_attribute5 => p_attribute5
161 ,p_attribute6 => p_attribute6
162 ,p_attribute7 => p_attribute7
163 ,p_attribute8 => p_attribute8
164 ,p_attribute9 => p_attribute9
165 ,p_attribute10 => p_attribute10
166 ,p_attribute11 => p_attribute11
167 ,p_attribute12 => p_attribute12
168 ,p_attribute13 => p_attribute13
169 ,p_attribute14 => p_attribute14
170 ,p_attribute15 => p_attribute15
171 ,p_attribute16 => p_attribute16
172 ,p_attribute17 => p_attribute17
173 ,p_attribute18 => p_attribute18
174 ,p_attribute19 => p_attribute19
175 ,p_attribute20 => p_attribute20
176 ,p_attribute21 => p_attribute21
177 ,p_attribute22 => p_attribute22
178 ,p_attribute23 => p_attribute23
179 ,p_attribute24 => p_attribute24
180 ,p_attribute25 => p_attribute25
181 ,p_attribute26 => p_attribute26
182 ,p_attribute27 => p_attribute27
183 ,p_attribute28 => p_attribute28
184 ,p_attribute29 => p_attribute29
185 ,p_attribute30 => p_attribute30
186 );
187 exception
188 when hr_api.cannot_find_prog_unit then
189 hr_api.cannot_find_prog_unit_error
190 (p_module_name => 'CREATE_SITUATION'
191 ,p_hook_type => 'BP'
192 );
193 end;
194 --
195 -- Validation in addition to Row Handlers
196 --
197
198
199
200 --
201 -- Process Logic
202 --
203 pqh_los_ins.ins
204 (p_effective_date => p_effective_date
205 ,p_situation => p_situation
206 ,p_effective_start_date => p_effective_start_date
207 ,p_business_group_id => p_business_group_id
208 ,p_situation_type => p_situation_type
209 ,p_length_of_service => p_length_of_service
210 ,p_effective_end_date => p_effective_end_date
211 ,p_employee_type => p_employee_type
212 ,p_entitlement_flag => p_entitlement_flag
213 ,p_worktime_proportional => p_worktime_proportional
214 ,p_entitlement_value => p_entitlement_value
215 ,p_information_category => p_information_category
216 ,p_information1 => p_information1
217 ,p_information2 => p_information2
218 ,p_information3 => p_information3
219 ,p_information4 => p_information4
220 ,p_information5 => p_information5
221 ,p_information6 => p_information6
222 ,p_information7 => p_information7
223 ,p_information8 => p_information8
224 ,p_information9 => p_information9
225 ,p_information10 => p_information10
226 ,p_information11 => p_information11
227 ,p_information12 => p_information12
228 ,p_information13 => p_information13
229 ,p_information14 => p_information14
230 ,p_information15 => p_information15
231 ,p_information16 => p_information16
232 ,p_information17 => p_information17
233 ,p_information18 => p_information18
234 ,p_information19 => p_information19
235 ,p_information20 => p_information20
236 ,p_information21 => p_information21
237 ,p_information22 => p_information22
238 ,p_information23 => p_information23
239 ,p_information24 => p_information24
240 ,p_information25 => p_information25
241 ,p_information26 => p_information26
242 ,p_information27 => p_information27
243 ,p_information28 => p_information28
244 ,p_information29 => p_information29
245 ,p_information30 => p_information30
246 ,p_attribute_category => p_attribute_category
247 ,p_attribute1 => p_attribute1
248 ,p_attribute2 => p_attribute2
249 ,p_attribute3 => p_attribute3
250 ,p_attribute4 => p_attribute4
251 ,p_attribute5 => p_attribute5
252 ,p_attribute6 => p_attribute6
253 ,p_attribute7 => p_attribute7
254 ,p_attribute8 => p_attribute8
255 ,p_attribute9 => p_attribute9
256 ,p_attribute10 => p_attribute10
257 ,p_attribute11 => p_attribute11
258 ,p_attribute12 => p_attribute12
259 ,p_attribute13 => p_attribute13
260 ,p_attribute14 => p_attribute14
261 ,p_attribute15 => p_attribute15
262 ,p_attribute16 => p_attribute16
263 ,p_attribute17 => p_attribute17
264 ,p_attribute18 => p_attribute18
265 ,p_attribute19 => p_attribute19
266 ,p_attribute20 => p_attribute20
267 ,p_attribute21 => p_attribute21
268 ,p_attribute22 => p_attribute22
269 ,p_attribute23 => p_attribute23
270 ,p_attribute24 => p_attribute24
271 ,p_attribute25 => p_attribute25
272 ,p_attribute26 => p_attribute26
273 ,p_attribute27 => p_attribute27
274 ,p_attribute28 => p_attribute28
275 ,p_attribute29 => p_attribute29
276 ,p_attribute30 => p_attribute30
277 ,p_situation_id => l_situation_id
278 ,p_object_version_number => l_object_version_number
279 );
280
281
282 --
283 -- Call After Process User Hook
284 --
285 begin
286 PQH_SITUATIONS_BK1.create_situation_a
287 (p_effective_date => p_effective_date
288 ,p_situation => p_situation
289 ,p_effective_start_date => p_effective_start_date
290 ,p_business_group_id => p_business_group_id
291 ,p_situation_type => p_situation_type
292 ,p_length_of_service => p_length_of_service
293 ,p_effective_end_date => p_effective_end_date
294 ,p_employee_type => p_employee_type
295 ,p_entitlement_flag => p_entitlement_flag
296 ,p_worktime_proportional => p_worktime_proportional
297 ,p_entitlement_value => p_entitlement_value
298 ,p_information_category => p_information_category
299 ,p_information1 => p_information1
300 ,p_information2 => p_information2
301 ,p_information3 => p_information3
302 ,p_information4 => p_information4
303 ,p_information5 => p_information5
304 ,p_information6 => p_information6
305 ,p_information7 => p_information7
306 ,p_information8 => p_information8
307 ,p_information9 => p_information9
308 ,p_information10 => p_information10
309 ,p_information11 => p_information11
310 ,p_information12 => p_information12
311 ,p_information13 => p_information13
312 ,p_information14 => p_information14
313 ,p_information15 => p_information15
314 ,p_information16 => p_information16
315 ,p_information17 => p_information17
316 ,p_information18 => p_information18
317 ,p_information19 => p_information19
318 ,p_information20 => p_information20
319 ,p_information21 => p_information21
320 ,p_information22 => p_information22
321 ,p_information23 => p_information23
322 ,p_information24 => p_information24
323 ,p_information25 => p_information25
324 ,p_information26 => p_information26
325 ,p_information27 => p_information27
326 ,p_information28 => p_information28
327 ,p_information29 => p_information29
328 ,p_information30 => p_information30
329 ,p_attribute_category => p_attribute_category
330 ,p_attribute1 => p_attribute1
331 ,p_attribute2 => p_attribute2
332 ,p_attribute3 => p_attribute3
333 ,p_attribute4 => p_attribute4
334 ,p_attribute5 => p_attribute5
335 ,p_attribute6 => p_attribute6
336 ,p_attribute7 => p_attribute7
337 ,p_attribute8 => p_attribute8
338 ,p_attribute9 => p_attribute9
339 ,p_attribute10 => p_attribute10
340 ,p_attribute11 => p_attribute11
341 ,p_attribute12 => p_attribute12
342 ,p_attribute13 => p_attribute13
343 ,p_attribute14 => p_attribute14
344 ,p_attribute15 => p_attribute15
345 ,p_attribute16 => p_attribute16
346 ,p_attribute17 => p_attribute17
347 ,p_attribute18 => p_attribute18
348 ,p_attribute19 => p_attribute19
349 ,p_attribute20 => p_attribute20
350 ,p_attribute21 => p_attribute21
351 ,p_attribute22 => p_attribute22
352 ,p_attribute23 => p_attribute23
353 ,p_attribute24 => p_attribute24
354 ,p_attribute25 => p_attribute25
355 ,p_attribute26 => p_attribute26
356 ,p_attribute27 => p_attribute27
357 ,p_attribute28 => p_attribute28
358 ,p_attribute29 => p_attribute29
359 ,p_attribute30 => p_attribute30
360 ,p_situation_id => l_situation_id
361 ,p_object_version_number => l_object_version_number
362 );
363 exception
364 when hr_api.cannot_find_prog_unit then
365 hr_api.cannot_find_prog_unit_error
366 (p_module_name => 'CREATE_SITUATION'
367 ,p_hook_type => 'AP'
368 );
369 end;
370 --
371 -- When in validation only mode raise the Validate_Enabled exception
372 --
373 if p_validate then
374 raise hr_api.validate_enabled;
375 end if;
376 --
377 -- Set all output arguments
378 --
379 p_situation_id := l_situation_id;
380 p_object_version_number := l_object_version_number;
381 --
382 hr_utility.set_location(' Leaving:'||l_proc, 70);
383 exception
384 when hr_api.validate_enabled then
385 --
386 -- As the Validate_Enabled exception has been raised
387 -- we must rollback to the savepoint
388 --
389 rollback to CREATE_SITUATION;
390 --
391 -- Only set output warning arguments
392 -- (Any key or derived arguments must be set to null
393 -- when validation only mode is being used.)
394 --
395 p_situation_id := null;
396 p_object_version_number := null;
397 hr_utility.set_location(' Leaving:'||l_proc, 80);
398 when others then
399 p_situation_id := null;
400 p_object_version_number := null;
401 --
402 -- A validation or unexpected error has occured
403 --
404 rollback to CREATE_SITUATION;
405 hr_utility.set_location(' Leaving:'||l_proc, 90);
406 raise;
407 end create_situation;
408 --
409 --
410 -- ----------------------------------------------------------------------------
411 -- |--------------------------< update_situation >--------------------------|
412 -- ----------------------------------------------------------------------------
413 --
414 procedure update_situation
415 (p_validate in boolean default false
416 ,p_effective_date in date
417 ,p_situation_id in number
418 ,p_object_version_number in out nocopy number
419 ,p_situation in varchar2 default hr_api.g_varchar2
420 ,p_effective_start_date in date default hr_api.g_date
421 ,p_business_group_id in number default hr_api.g_number
422 ,p_situation_type in varchar2 default hr_api.g_varchar2
423 ,p_length_of_service in varchar2 default hr_api.g_varchar2
424 ,p_effective_end_date in date default hr_api.g_date
425 ,p_employee_type in varchar2 default hr_api.g_varchar2
426 ,p_entitlement_flag in varchar2 default hr_api.g_varchar2
427 ,p_worktime_proportional in varchar2 default hr_api.g_varchar2
428 ,p_entitlement_value in number default hr_api.g_number
429 ,p_information_category in varchar2 default hr_api.g_varchar2
430 ,p_information1 in varchar2 default hr_api.g_varchar2
431 ,p_information2 in varchar2 default hr_api.g_varchar2
432 ,p_information3 in varchar2 default hr_api.g_varchar2
433 ,p_information4 in varchar2 default hr_api.g_varchar2
434 ,p_information5 in varchar2 default hr_api.g_varchar2
435 ,p_information6 in varchar2 default hr_api.g_varchar2
436 ,p_information7 in varchar2 default hr_api.g_varchar2
437 ,p_information8 in varchar2 default hr_api.g_varchar2
438 ,p_information9 in varchar2 default hr_api.g_varchar2
439 ,p_information10 in varchar2 default hr_api.g_varchar2
440 ,p_information11 in varchar2 default hr_api.g_varchar2
441 ,p_information12 in varchar2 default hr_api.g_varchar2
442 ,p_information13 in varchar2 default hr_api.g_varchar2
443 ,p_information14 in varchar2 default hr_api.g_varchar2
444 ,p_information15 in varchar2 default hr_api.g_varchar2
445 ,p_information16 in varchar2 default hr_api.g_varchar2
446 ,p_information17 in varchar2 default hr_api.g_varchar2
447 ,p_information18 in varchar2 default hr_api.g_varchar2
448 ,p_information19 in varchar2 default hr_api.g_varchar2
449 ,p_information20 in varchar2 default hr_api.g_varchar2
450 ,p_information21 in varchar2 default hr_api.g_varchar2
451 ,p_information22 in varchar2 default hr_api.g_varchar2
452 ,p_information23 in varchar2 default hr_api.g_varchar2
453 ,p_information24 in varchar2 default hr_api.g_varchar2
454 ,p_information25 in varchar2 default hr_api.g_varchar2
455 ,p_information26 in varchar2 default hr_api.g_varchar2
456 ,p_information27 in varchar2 default hr_api.g_varchar2
457 ,p_information28 in varchar2 default hr_api.g_varchar2
458 ,p_information29 in varchar2 default hr_api.g_varchar2
459 ,p_information30 in varchar2 default hr_api.g_varchar2
460 ,p_attribute_category in varchar2 default hr_api.g_varchar2
461 ,p_attribute1 in varchar2 default hr_api.g_varchar2
462 ,p_attribute2 in varchar2 default hr_api.g_varchar2
463 ,p_attribute3 in varchar2 default hr_api.g_varchar2
464 ,p_attribute4 in varchar2 default hr_api.g_varchar2
465 ,p_attribute5 in varchar2 default hr_api.g_varchar2
466 ,p_attribute6 in varchar2 default hr_api.g_varchar2
467 ,p_attribute7 in varchar2 default hr_api.g_varchar2
468 ,p_attribute8 in varchar2 default hr_api.g_varchar2
469 ,p_attribute9 in varchar2 default hr_api.g_varchar2
470 ,p_attribute10 in varchar2 default hr_api.g_varchar2
471 ,p_attribute11 in varchar2 default hr_api.g_varchar2
472 ,p_attribute12 in varchar2 default hr_api.g_varchar2
473 ,p_attribute13 in varchar2 default hr_api.g_varchar2
474 ,p_attribute14 in varchar2 default hr_api.g_varchar2
475 ,p_attribute15 in varchar2 default hr_api.g_varchar2
476 ,p_attribute16 in varchar2 default hr_api.g_varchar2
477 ,p_attribute17 in varchar2 default hr_api.g_varchar2
478 ,p_attribute18 in varchar2 default hr_api.g_varchar2
479 ,p_attribute19 in varchar2 default hr_api.g_varchar2
480 ,p_attribute20 in varchar2 default hr_api.g_varchar2
481 ,p_attribute21 in varchar2 default hr_api.g_varchar2
482 ,p_attribute22 in varchar2 default hr_api.g_varchar2
483 ,p_attribute23 in varchar2 default hr_api.g_varchar2
484 ,p_attribute24 in varchar2 default hr_api.g_varchar2
485 ,p_attribute25 in varchar2 default hr_api.g_varchar2
486 ,p_attribute26 in varchar2 default hr_api.g_varchar2
487 ,p_attribute27 in varchar2 default hr_api.g_varchar2
488 ,p_attribute28 in varchar2 default hr_api.g_varchar2
489 ,p_attribute29 in varchar2 default hr_api.g_varchar2
490 ,p_attribute30 in varchar2 default hr_api.g_varchar2
491 ) is
492 --
493 -- Declare cursors and local variables
494 --
495
496 l_proc varchar2(72) := g_package||'UPDATE_SITUATION';
497 l_object_version_number number := p_object_version_number;
498 --
499 begin
500 hr_utility.set_location('Entering:'|| l_proc, 10);
501 --
502 -- Issue a savepoint
503 --
504 savepoint UPDATE_SITUATION;
505 --
506 -- Truncate the time portion from all IN date parameters
507 --
508
509 --
510 -- Call Before Process User Hook
511 --
512 begin
513 PQH_SITUATIONS_BK2.update_situation_b
514 (p_effective_date => p_effective_date
515 ,p_situation => p_situation
516 ,p_effective_start_date => p_effective_start_date
517 ,p_business_group_id => p_business_group_id
518 ,p_situation_type => p_situation_type
519 ,p_length_of_service => p_length_of_service
520 ,p_effective_end_date => p_effective_end_date
521 ,p_employee_type => p_employee_type
522 ,p_entitlement_flag => p_entitlement_flag
523 ,p_worktime_proportional => p_worktime_proportional
524 ,p_entitlement_value => p_entitlement_value
525 ,p_information_category => p_information_category
526 ,p_information1 => p_information1
527 ,p_information2 => p_information2
528 ,p_information3 => p_information3
529 ,p_information4 => p_information4
530 ,p_information5 => p_information5
531 ,p_information6 => p_information6
532 ,p_information7 => p_information7
533 ,p_information8 => p_information8
534 ,p_information9 => p_information9
535 ,p_information10 => p_information10
536 ,p_information11 => p_information11
537 ,p_information12 => p_information12
538 ,p_information13 => p_information13
539 ,p_information14 => p_information14
540 ,p_information15 => p_information15
541 ,p_information16 => p_information16
542 ,p_information17 => p_information17
543 ,p_information18 => p_information18
544 ,p_information19 => p_information19
545 ,p_information20 => p_information20
546 ,p_information21 => p_information21
547 ,p_information22 => p_information22
548 ,p_information23 => p_information23
549 ,p_information24 => p_information24
550 ,p_information25 => p_information25
551 ,p_information26 => p_information26
552 ,p_information27 => p_information27
553 ,p_information28 => p_information28
554 ,p_information29 => p_information29
555 ,p_information30 => p_information30
556 ,p_attribute_category => p_attribute_category
557 ,p_attribute1 => p_attribute1
558 ,p_attribute2 => p_attribute2
559 ,p_attribute3 => p_attribute3
560 ,p_attribute4 => p_attribute4
561 ,p_attribute5 => p_attribute5
562 ,p_attribute6 => p_attribute6
563 ,p_attribute7 => p_attribute7
564 ,p_attribute8 => p_attribute8
565 ,p_attribute9 => p_attribute9
566 ,p_attribute10 => p_attribute10
567 ,p_attribute11 => p_attribute11
568 ,p_attribute12 => p_attribute12
569 ,p_attribute13 => p_attribute13
570 ,p_attribute14 => p_attribute14
571 ,p_attribute15 => p_attribute15
572 ,p_attribute16 => p_attribute16
573 ,p_attribute17 => p_attribute17
574 ,p_attribute18 => p_attribute18
575 ,p_attribute19 => p_attribute19
576 ,p_attribute20 => p_attribute20
577 ,p_attribute21 => p_attribute21
578 ,p_attribute22 => p_attribute22
579 ,p_attribute23 => p_attribute23
580 ,p_attribute24 => p_attribute24
581 ,p_attribute25 => p_attribute25
582 ,p_attribute26 => p_attribute26
583 ,p_attribute27 => p_attribute27
584 ,p_attribute28 => p_attribute28
585 ,p_attribute29 => p_attribute29
586 ,p_attribute30 => p_attribute30
587 ,p_situation_id => p_situation_id
588 ,p_object_version_number => p_object_version_number
589 );
590 exception
591 when hr_api.cannot_find_prog_unit then
592 hr_api.cannot_find_prog_unit_error
593 (p_module_name => 'UPDATE_SITUATION'
594 ,p_hook_type => 'BP'
595 );
596 end;
597 --
598 -- Validation in addition to Row Handlers
599 --
600
601
602
603 --
604 -- Process Logic
605 --
606 pqh_los_upd.upd
607 (p_effective_date => p_effective_date
608 ,p_situation => p_situation
609 ,p_effective_start_date => p_effective_start_date
610 ,p_business_group_id => p_business_group_id
611 ,p_situation_type => p_situation_type
612 ,p_length_of_service => p_length_of_service
613 ,p_effective_end_date => p_effective_end_date
614 ,p_employee_type => p_employee_type
615 ,p_entitlement_flag => p_entitlement_flag
616 ,p_worktime_proportional => p_worktime_proportional
617 ,p_entitlement_value => p_entitlement_value
618 ,p_information_category => p_information_category
619 ,p_information1 => p_information1
620 ,p_information2 => p_information2
621 ,p_information3 => p_information3
622 ,p_information4 => p_information4
623 ,p_information5 => p_information5
624 ,p_information6 => p_information6
625 ,p_information7 => p_information7
626 ,p_information8 => p_information8
627 ,p_information9 => p_information9
628 ,p_information10 => p_information10
629 ,p_information11 => p_information11
630 ,p_information12 => p_information12
631 ,p_information13 => p_information13
632 ,p_information14 => p_information14
633 ,p_information15 => p_information15
634 ,p_information16 => p_information16
635 ,p_information17 => p_information17
636 ,p_information18 => p_information18
637 ,p_information19 => p_information19
638 ,p_information20 => p_information20
639 ,p_information21 => p_information21
640 ,p_information22 => p_information22
641 ,p_information23 => p_information23
642 ,p_information24 => p_information24
643 ,p_information25 => p_information25
644 ,p_information26 => p_information26
645 ,p_information27 => p_information27
646 ,p_information28 => p_information28
647 ,p_information29 => p_information29
648 ,p_information30 => p_information30
649 ,p_attribute_category => p_attribute_category
650 ,p_attribute1 => p_attribute1
651 ,p_attribute2 => p_attribute2
652 ,p_attribute3 => p_attribute3
653 ,p_attribute4 => p_attribute4
654 ,p_attribute5 => p_attribute5
655 ,p_attribute6 => p_attribute6
656 ,p_attribute7 => p_attribute7
657 ,p_attribute8 => p_attribute8
658 ,p_attribute9 => p_attribute9
659 ,p_attribute10 => p_attribute10
660 ,p_attribute11 => p_attribute11
661 ,p_attribute12 => p_attribute12
662 ,p_attribute13 => p_attribute13
663 ,p_attribute14 => p_attribute14
664 ,p_attribute15 => p_attribute15
665 ,p_attribute16 => p_attribute16
666 ,p_attribute17 => p_attribute17
667 ,p_attribute18 => p_attribute18
668 ,p_attribute19 => p_attribute19
669 ,p_attribute20 => p_attribute20
670 ,p_attribute21 => p_attribute21
671 ,p_attribute22 => p_attribute22
672 ,p_attribute23 => p_attribute23
673 ,p_attribute24 => p_attribute24
674 ,p_attribute25 => p_attribute25
675 ,p_attribute26 => p_attribute26
676 ,p_attribute27 => p_attribute27
677 ,p_attribute28 => p_attribute28
678 ,p_attribute29 => p_attribute29
679 ,p_attribute30 => p_attribute30
680 ,p_situation_id => p_situation_id
681 ,p_object_version_number => p_object_version_number
682 );
683
684
685 --
686 -- Call After Process User Hook
687 --
688 begin
689 PQH_SITUATIONS_BK2.update_situation_a
690 (p_effective_date => p_effective_date
691 ,p_situation => p_situation
692 ,p_effective_start_date => p_effective_start_date
693 ,p_business_group_id => p_business_group_id
694 ,p_situation_type => p_situation_type
695 ,p_length_of_service => p_length_of_service
696 ,p_effective_end_date => p_effective_end_date
697 ,p_employee_type => p_employee_type
698 ,p_entitlement_flag => p_entitlement_flag
699 ,p_worktime_proportional => p_worktime_proportional
700 ,p_entitlement_value => p_entitlement_value
701 ,p_information_category => p_information_category
702 ,p_information1 => p_information1
703 ,p_information2 => p_information2
704 ,p_information3 => p_information3
705 ,p_information4 => p_information4
706 ,p_information5 => p_information5
707 ,p_information6 => p_information6
708 ,p_information7 => p_information7
709 ,p_information8 => p_information8
710 ,p_information9 => p_information9
711 ,p_information10 => p_information10
712 ,p_information11 => p_information11
713 ,p_information12 => p_information12
714 ,p_information13 => p_information13
715 ,p_information14 => p_information14
716 ,p_information15 => p_information15
717 ,p_information16 => p_information16
718 ,p_information17 => p_information17
719 ,p_information18 => p_information18
720 ,p_information19 => p_information19
721 ,p_information20 => p_information20
722 ,p_information21 => p_information21
723 ,p_information22 => p_information22
724 ,p_information23 => p_information23
725 ,p_information24 => p_information24
726 ,p_information25 => p_information25
727 ,p_information26 => p_information26
728 ,p_information27 => p_information27
729 ,p_information28 => p_information28
730 ,p_information29 => p_information29
731 ,p_information30 => p_information30
732 ,p_attribute_category => p_attribute_category
733 ,p_attribute1 => p_attribute1
734 ,p_attribute2 => p_attribute2
735 ,p_attribute3 => p_attribute3
736 ,p_attribute4 => p_attribute4
737 ,p_attribute5 => p_attribute5
738 ,p_attribute6 => p_attribute6
739 ,p_attribute7 => p_attribute7
740 ,p_attribute8 => p_attribute8
741 ,p_attribute9 => p_attribute9
742 ,p_attribute10 => p_attribute10
743 ,p_attribute11 => p_attribute11
744 ,p_attribute12 => p_attribute12
745 ,p_attribute13 => p_attribute13
746 ,p_attribute14 => p_attribute14
747 ,p_attribute15 => p_attribute15
748 ,p_attribute16 => p_attribute16
749 ,p_attribute17 => p_attribute17
750 ,p_attribute18 => p_attribute18
751 ,p_attribute19 => p_attribute19
752 ,p_attribute20 => p_attribute20
753 ,p_attribute21 => p_attribute21
754 ,p_attribute22 => p_attribute22
755 ,p_attribute23 => p_attribute23
756 ,p_attribute24 => p_attribute24
757 ,p_attribute25 => p_attribute25
758 ,p_attribute26 => p_attribute26
759 ,p_attribute27 => p_attribute27
760 ,p_attribute28 => p_attribute28
761 ,p_attribute29 => p_attribute29
762 ,p_attribute30 => p_attribute30
763 ,p_situation_id => p_situation_id
764 ,p_object_version_number => p_object_version_number
765 );
766 exception
767 when hr_api.cannot_find_prog_unit then
768 hr_api.cannot_find_prog_unit_error
769 (p_module_name => 'UPDATE_SITUATION'
770 ,p_hook_type => 'AP'
771 );
772 end;
773 --
774 -- When in validation only mode raise the Validate_Enabled exception
775 --
776 if p_validate then
777 raise hr_api.validate_enabled;
778 end if;
779 --
780 -- Set all output arguments
781 --
782 p_object_version_number := p_object_version_number;
783 --
784 hr_utility.set_location(' Leaving:'||l_proc, 70);
785 exception
786 when hr_api.validate_enabled then
787 --
788 -- As the Validate_Enabled exception has been raised
789 -- we must rollback to the savepoint
790 --
791 rollback to UPDATE_SITUATION;
792 --
793 -- Only set output warning arguments
794 -- (Any key or derived arguments must be set to null
795 -- when validation only mode is being used.)
796 --
797 p_object_version_number := p_object_version_number;
798 hr_utility.set_location(' Leaving:'||l_proc, 80);
799 when others then
800 p_object_version_number := l_object_version_number;
801 --
802 -- A validation or unexpected error has occured
803 --
804 rollback to UPDATE_SITUATION;
805 hr_utility.set_location(' Leaving:'||l_proc, 90);
806 raise;
807 end update_situation;
808 --
809 --
810 -- ----------------------------------------------------------------------------
811 -- |--------------------------< delete_situation >--------------------------|
812 -- ----------------------------------------------------------------------------
813 --
814 procedure delete_situation
815 (p_validate in boolean default false
816 ,p_situation_id in number
817 ,p_object_version_number in number
818 ) is
819 --
820 -- Declare cursors and local variables
821 --
822
823 l_proc varchar2(72) := g_package||'DELETE_SITUATION';
824 --
825 begin
826 hr_utility.set_location('Entering:'|| l_proc, 10);
827 --
828 -- Issue a savepoint
829 --
830 savepoint DELETE_SITUATION;
831 --
832 -- Truncate the time portion from all IN date parameters
833 --
834
835 --
836 -- Call Before Process User Hook
837 --
838 begin
839 PQH_SITUATIONS_BK3.delete_situation_b
840 (p_situation_id => p_situation_id
841 ,p_object_version_number => p_object_version_number
842 );
843 exception
844 when hr_api.cannot_find_prog_unit then
845 hr_api.cannot_find_prog_unit_error
846 (p_module_name => 'DELETE_SITUATION'
847 ,p_hook_type => 'BP'
848 );
849 end;
850 --
851 -- Validation in addition to Row Handlers
852 --
853
854
855
856 --
857 -- Process Logic
858 --
859 pqh_los_del.del
860 (p_situation_id => p_situation_id
861 ,p_object_version_number => p_object_version_number
862 );
863
864
865 --
866 -- Call After Process User Hook
867 --
868 begin
869 PQH_SITUATIONS_BK3.delete_situation_a
870 (p_situation_id => p_situation_id
871 ,p_object_version_number => p_object_version_number
872 );
873 exception
874 when hr_api.cannot_find_prog_unit then
875 hr_api.cannot_find_prog_unit_error
876 (p_module_name => 'DELETE_SITUATION'
877 ,p_hook_type => 'AP'
878 );
879 end;
880 --
881 -- When in validation only mode raise the Validate_Enabled exception
882 --
883 if p_validate then
884 raise hr_api.validate_enabled;
885 end if;
886 --
887 -- Set all output arguments
888 --
889 --
890 hr_utility.set_location(' Leaving:'||l_proc, 70);
891 exception
892 when hr_api.validate_enabled then
893 --
894 -- As the Validate_Enabled exception has been raised
895 -- we must rollback to the savepoint
896 --
897 rollback to DELETE_SITUATION;
898 --
899 -- Only set output warning arguments
900 -- (Any key or derived arguments must be set to null
901 -- when validation only mode is being used.)
902 --
903 hr_utility.set_location(' Leaving:'||l_proc, 80);
904 when others then
905 --
906 -- A validation or unexpected error has occured
907 --
908 rollback to DELETE_SITUATION;
909 hr_utility.set_location(' Leaving:'||l_proc, 90);
910 raise;
911 end delete_situation;
912 --
913 end pqh_situations_api;