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