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