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