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