[Home] [Help]
PACKAGE BODY: APPS.PAY_ACTION_INFORMATION_SWI
Source
4 -- Package variables
1 Package Body pay_action_information_swi As
2 /* $Header: pyaifswi.pkb 120.0.12000000.2 2007/03/30 05:37:31 ttagawa noship $ */
3 --
5 --
6 g_package varchar2(33) := 'pay_action_information_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |-----------------------< create_action_information >----------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE create_action_information
12 (p_validate in number default hr_api.g_false_num
13 ,p_action_context_id in number
14 ,p_action_context_type in varchar2
15 ,p_action_information_category in varchar2
16 ,p_tax_unit_id in number default null
17 ,p_jurisdiction_code in varchar2 default null
18 ,p_source_id in number default null
19 ,p_source_text in varchar2 default null
20 ,p_tax_group in varchar2 default null
21 ,p_effective_date in date default null
22 ,p_assignment_id in number default null
23 ,p_action_information1 in varchar2 default null
24 ,p_action_information2 in varchar2 default null
25 ,p_action_information3 in varchar2 default null
26 ,p_action_information4 in varchar2 default null
27 ,p_action_information5 in varchar2 default null
28 ,p_action_information6 in varchar2 default null
29 ,p_action_information7 in varchar2 default null
30 ,p_action_information8 in varchar2 default null
31 ,p_action_information9 in varchar2 default null
32 ,p_action_information10 in varchar2 default null
33 ,p_action_information11 in varchar2 default null
34 ,p_action_information12 in varchar2 default null
35 ,p_action_information13 in varchar2 default null
36 ,p_action_information14 in varchar2 default null
37 ,p_action_information15 in varchar2 default null
38 ,p_action_information16 in varchar2 default null
39 ,p_action_information17 in varchar2 default null
40 ,p_action_information18 in varchar2 default null
41 ,p_action_information19 in varchar2 default null
42 ,p_action_information20 in varchar2 default null
43 ,p_action_information21 in varchar2 default null
44 ,p_action_information22 in varchar2 default null
45 ,p_action_information23 in varchar2 default null
46 ,p_action_information24 in varchar2 default null
47 ,p_action_information25 in varchar2 default null
48 ,p_action_information26 in varchar2 default null
49 ,p_action_information27 in varchar2 default null
50 ,p_action_information28 in varchar2 default null
51 ,p_action_information29 in varchar2 default null
52 ,p_action_information30 in varchar2 default null
53 ,p_action_information_id in number
54 ,p_object_version_number out nocopy number
55 ,p_return_status out nocopy varchar2
56 ) is
57 --
58 -- Variables for API Boolean parameters
59 l_validate boolean;
60 --
61 -- Variables for IN/OUT parameters
62 --
63 -- Other variables
64 l_action_information_id number;
65 l_proc varchar2(72) := g_package ||'create_action_information';
66 Begin
67 hr_utility.set_location(' Entering:' || l_proc,10);
68 --
69 -- Issue a savepoint
70 --
71 savepoint create_action_information_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
84 (p_constant_value => p_validate);
81 --
82 l_validate :=
83 hr_api.constant_to_boolean
85 --
86 -- Register Surrogate ID or user key values
87 --
88 pay_aif_ins.set_base_key_value
89 (p_action_information_id => p_action_information_id
90 );
91 --
92 -- Call API
93 --
94 pay_action_information_api.create_action_information
95 (p_validate => l_validate
96 ,p_action_context_id => p_action_context_id
97 ,p_action_context_type => p_action_context_type
98 ,p_action_information_category => p_action_information_category
99 ,p_tax_unit_id => p_tax_unit_id
100 ,p_jurisdiction_code => p_jurisdiction_code
101 ,p_source_id => p_source_id
102 ,p_source_text => p_source_text
103 ,p_tax_group => p_tax_group
104 ,p_effective_date => p_effective_date
105 ,p_assignment_id => p_assignment_id
106 ,p_action_information1 => p_action_information1
107 ,p_action_information2 => p_action_information2
108 ,p_action_information3 => p_action_information3
109 ,p_action_information4 => p_action_information4
110 ,p_action_information5 => p_action_information5
111 ,p_action_information6 => p_action_information6
112 ,p_action_information7 => p_action_information7
113 ,p_action_information8 => p_action_information8
114 ,p_action_information9 => p_action_information9
115 ,p_action_information10 => p_action_information10
116 ,p_action_information11 => p_action_information11
117 ,p_action_information12 => p_action_information12
118 ,p_action_information13 => p_action_information13
119 ,p_action_information14 => p_action_information14
120 ,p_action_information15 => p_action_information15
121 ,p_action_information16 => p_action_information16
122 ,p_action_information17 => p_action_information17
123 ,p_action_information18 => p_action_information18
124 ,p_action_information19 => p_action_information19
125 ,p_action_information20 => p_action_information20
126 ,p_action_information21 => p_action_information21
127 ,p_action_information22 => p_action_information22
128 ,p_action_information23 => p_action_information23
129 ,p_action_information24 => p_action_information24
130 ,p_action_information25 => p_action_information25
131 ,p_action_information26 => p_action_information26
135 ,p_action_information30 => p_action_information30
132 ,p_action_information27 => p_action_information27
133 ,p_action_information28 => p_action_information28
134 ,p_action_information29 => p_action_information29
136 ,p_action_information_id => l_action_information_id
137 ,p_object_version_number => p_object_version_number
138 );
139 --
140 -- Convert API warning boolean parameter values to specific
141 -- messages and add them to Multiple Message List
142 --
143 --
144 -- Convert API non-warning boolean parameter values
145 --
146 --
147 -- Derive the API return status value based on whether
148 -- messages of any type exist in the Multiple Message List.
149 -- Also disable Multiple Message Detection.
150 --
151 p_return_status := hr_multi_message.get_return_status_disable;
152 hr_utility.set_location(' Leaving:' || l_proc,20);
153 --
154 exception
155 when hr_multi_message.error_message_exist then
156 --
157 -- Catch the Multiple Message List exception which
158 -- indicates API processing has been aborted because
159 -- at least one message exists in the list.
160 --
161 rollback to create_action_information_swi;
162 --
163 -- Reset IN OUT parameters and set OUT parameters
164 --
165 p_object_version_number := null;
166 p_return_status := hr_multi_message.get_return_status_disable;
167 hr_utility.set_location(' Leaving:' || l_proc, 30);
168 when others then
169 --
170 -- When Multiple Message Detection is enabled catch
171 -- any Application specific or other unexpected
172 -- exceptions. Adding appropriate details to the
173 -- Multiple Message List. Otherwise re-raise the
174 -- error.
175 --
176 rollback to create_action_information_swi;
177 if hr_multi_message.unexpected_error_add(l_proc) then
178 hr_utility.set_location(' Leaving:' || l_proc,40);
179 raise;
180 end if;
184 p_object_version_number := null;
181 --
182 -- Reset IN OUT and set OUT parameters
183 --
185 p_return_status := hr_multi_message.get_return_status_disable;
186 hr_utility.set_location(' Leaving:' || l_proc,50);
187 end create_action_information;
188 -- ----------------------------------------------------------------------------
189 -- |-----------------------< delete_action_information >----------------------|
190 -- ----------------------------------------------------------------------------
191 PROCEDURE delete_action_information
192 (p_validate in number default hr_api.g_false_num
193 ,p_action_information_id in number
194 ,p_object_version_number in out nocopy number
195 ,p_return_status out nocopy varchar2
196 ) is
197 --
198 -- Variables for API Boolean parameters
199 l_validate boolean;
200 --
201 -- Variables for IN/OUT parameters
202 l_object_version_number number;
203 --
204 -- Other variables
205 l_proc varchar2(72) := g_package ||'delete_action_information';
206 Begin
207 hr_utility.set_location(' Entering:' || l_proc,10);
208 --
209 -- Issue a savepoint
210 --
211 savepoint delete_action_information_swi;
212 --
213 -- Initialise Multiple Message Detection
214 --
215 hr_multi_message.enable_message_list;
216 --
217 -- Remember IN OUT parameter IN values
218 --
219 l_object_version_number := p_object_version_number;
220 --
221 -- Convert constant values to their corresponding boolean value
222 --
223 l_validate :=
224 hr_api.constant_to_boolean
225 (p_constant_value => p_validate);
226 --
227 -- Register Surrogate ID or user key values
228 --
229 --
230 -- Call API
231 --
232 pay_action_information_api.delete_action_information
233 (p_validate => l_validate
234 ,p_action_information_id => p_action_information_id
235 ,p_object_version_number => p_object_version_number
236 );
237 --
238 -- Convert API warning boolean parameter values to specific
239 -- messages and add them to Multiple Message List
240 --
241 --
242 -- Convert API non-warning boolean parameter values
243 --
244 --
245 -- Derive the API return status value based on whether
246 -- messages of any type exist in the Multiple Message List.
247 -- Also disable Multiple Message Detection.
248 --
249 p_return_status := hr_multi_message.get_return_status_disable;
250 hr_utility.set_location(' Leaving:' || l_proc,20);
251 --
252 exception
253 when hr_multi_message.error_message_exist then
254 --
255 -- Catch the Multiple Message List exception which
256 -- indicates API processing has been aborted because
257 -- at least one message exists in the list.
258 --
259 rollback to delete_action_information_swi;
260 --
261 -- Reset IN OUT parameters and set OUT parameters
262 --
263 p_object_version_number := l_object_version_number;
264 p_return_status := hr_multi_message.get_return_status_disable;
265 hr_utility.set_location(' Leaving:' || l_proc, 30);
266 when others then
267 --
268 -- When Multiple Message Detection is enabled catch
269 -- any Application specific or other unexpected
270 -- exceptions. Adding appropriate details to the
271 -- Multiple Message List. Otherwise re-raise the
272 -- error.
273 --
274 rollback to delete_action_information_swi;
275 if hr_multi_message.unexpected_error_add(l_proc) then
276 hr_utility.set_location(' Leaving:' || l_proc,40);
277 raise;
278 end if;
279 --
280 -- Reset IN OUT and set OUT parameters
281 --
282 p_object_version_number := l_object_version_number;
283 p_return_status := hr_multi_message.get_return_status_disable;
284 hr_utility.set_location(' Leaving:' || l_proc,50);
285 end delete_action_information;
286 -- ----------------------------------------------------------------------------
287 -- |-----------------------< update_action_information >----------------------|
288 -- ----------------------------------------------------------------------------
289 PROCEDURE update_action_information
290 (p_validate in number default hr_api.g_false_num
291 ,p_action_information_id in number
292 ,p_object_version_number in out nocopy number
293 ,p_action_information1 in varchar2 default hr_api.g_varchar2
294 ,p_action_information2 in varchar2 default hr_api.g_varchar2
295 ,p_action_information3 in varchar2 default hr_api.g_varchar2
296 ,p_action_information4 in varchar2 default hr_api.g_varchar2
297 ,p_action_information5 in varchar2 default hr_api.g_varchar2
298 ,p_action_information6 in varchar2 default hr_api.g_varchar2
299 ,p_action_information7 in varchar2 default hr_api.g_varchar2
300 ,p_action_information8 in varchar2 default hr_api.g_varchar2
304 ,p_action_information12 in varchar2 default hr_api.g_varchar2
301 ,p_action_information9 in varchar2 default hr_api.g_varchar2
302 ,p_action_information10 in varchar2 default hr_api.g_varchar2
303 ,p_action_information11 in varchar2 default hr_api.g_varchar2
305 ,p_action_information13 in varchar2 default hr_api.g_varchar2
306 ,p_action_information14 in varchar2 default hr_api.g_varchar2
307 ,p_action_information15 in varchar2 default hr_api.g_varchar2
308 ,p_action_information16 in varchar2 default hr_api.g_varchar2
309 ,p_action_information17 in varchar2 default hr_api.g_varchar2
310 ,p_action_information18 in varchar2 default hr_api.g_varchar2
311 ,p_action_information19 in varchar2 default hr_api.g_varchar2
312 ,p_action_information20 in varchar2 default hr_api.g_varchar2
313 ,p_action_information21 in varchar2 default hr_api.g_varchar2
314 ,p_action_information22 in varchar2 default hr_api.g_varchar2
315 ,p_action_information23 in varchar2 default hr_api.g_varchar2
316 ,p_action_information24 in varchar2 default hr_api.g_varchar2
317 ,p_action_information25 in varchar2 default hr_api.g_varchar2
318 ,p_action_information26 in varchar2 default hr_api.g_varchar2
319 ,p_action_information27 in varchar2 default hr_api.g_varchar2
320 ,p_action_information28 in varchar2 default hr_api.g_varchar2
321 ,p_action_information29 in varchar2 default hr_api.g_varchar2
322 ,p_action_information30 in varchar2 default hr_api.g_varchar2
323 ,p_return_status out nocopy varchar2
324 ) is
325 --
326 -- Variables for API Boolean parameters
327 l_validate boolean;
328 --
329 -- Variables for IN/OUT parameters
330 l_object_version_number number;
331 --
332 -- Other variables
333 l_proc varchar2(72) := g_package ||'update_action_information';
334 Begin
335 hr_utility.set_location(' Entering:' || l_proc,10);
336 --
337 -- Issue a savepoint
338 --
339 savepoint update_action_information_swi;
340 --
341 -- Initialise Multiple Message Detection
342 --
343 hr_multi_message.enable_message_list;
344 --
345 -- Remember IN OUT parameter IN values
346 --
347 l_object_version_number := p_object_version_number;
348 --
349 -- Convert constant values to their corresponding boolean value
350 --
351 l_validate :=
352 hr_api.constant_to_boolean
353 (p_constant_value => p_validate);
354 --
355 -- Register Surrogate ID or user key values
356 --
357 --
358 -- Call API
359 --
360 pay_action_information_api.update_action_information
361 (p_validate => l_validate
362 ,p_action_information_id => p_action_information_id
363 ,p_object_version_number => p_object_version_number
364 ,p_action_information1 => p_action_information1
365 ,p_action_information2 => p_action_information2
366 ,p_action_information3 => p_action_information3
367 ,p_action_information4 => p_action_information4
368 ,p_action_information5 => p_action_information5
369 ,p_action_information6 => p_action_information6
370 ,p_action_information7 => p_action_information7
371 ,p_action_information8 => p_action_information8
372 ,p_action_information9 => p_action_information9
373 ,p_action_information10 => p_action_information10
374 ,p_action_information11 => p_action_information11
375 ,p_action_information12 => p_action_information12
376 ,p_action_information13 => p_action_information13
377 ,p_action_information14 => p_action_information14
378 ,p_action_information15 => p_action_information15
379 ,p_action_information16 => p_action_information16
380 ,p_action_information17 => p_action_information17
381 ,p_action_information18 => p_action_information18
382 ,p_action_information19 => p_action_information19
383 ,p_action_information20 => p_action_information20
384 ,p_action_information21 => p_action_information21
385 ,p_action_information22 => p_action_information22
386 ,p_action_information23 => p_action_information23
387 ,p_action_information24 => p_action_information24
388 ,p_action_information25 => p_action_information25
389 ,p_action_information26 => p_action_information26
390 ,p_action_information27 => p_action_information27
391 ,p_action_information28 => p_action_information28
392 ,p_action_information29 => p_action_information29
393 ,p_action_information30 => p_action_information30
394 );
395 --
396 -- Convert API warning boolean parameter values to specific
397 -- messages and add them to Multiple Message List
398 --
399 --
400 -- Convert API non-warning boolean parameter values
401 --
402 --
403 -- Derive the API return status value based on whether
404 -- messages of any type exist in the Multiple Message List.
405 -- Also disable Multiple Message Detection.
406 --
407 p_return_status := hr_multi_message.get_return_status_disable;
408 hr_utility.set_location(' Leaving:' || l_proc,20);
409 --
410 exception
411 when hr_multi_message.error_message_exist then
412 --
413 -- Catch the Multiple Message List exception which
414 -- indicates API processing has been aborted because
415 -- at least one message exists in the list.
416 --
420 --
417 rollback to update_action_information_swi;
418 --
419 -- Reset IN OUT parameters and set OUT parameters
421 p_object_version_number := l_object_version_number;
422 p_return_status := hr_multi_message.get_return_status_disable;
423 hr_utility.set_location(' Leaving:' || l_proc, 30);
424 when others then
425 --
426 -- When Multiple Message Detection is enabled catch
427 -- any Application specific or other unexpected
428 -- exceptions. Adding appropriate details to the
429 -- Multiple Message List. Otherwise re-raise the
430 -- error.
431 --
432 rollback to update_action_information_swi;
433 if hr_multi_message.unexpected_error_add(l_proc) then
434 hr_utility.set_location(' Leaving:' || l_proc,40);
435 raise;
436 end if;
437 --
438 -- Reset IN OUT and set OUT parameters
439 --
440 p_object_version_number := l_object_version_number;
441 p_return_status := hr_multi_message.get_return_status_disable;
442 hr_utility.set_location(' Leaving:' || l_proc,50);
443 end update_action_information;
444 end pay_action_information_swi;