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