[Home] [Help]
PACKAGE BODY: APPS.PAY_CONTRIBUTION_HISTORY_API
Source
1 Package Body pay_Contribution_History_api as
2 /* $Header: pyconapi.pkb 115.1 99/09/30 13:47:35 porting ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' pay_Contribution_History_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_Contribution_History >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_Contribution_History
13 (p_validate in boolean default false
14 ,p_contr_history_id out number
15 ,p_person_id in number default null
16 ,p_date_from in date default null
17 ,p_date_to in date default null
18 ,p_contr_type in varchar2 default null
19 ,p_business_group_id in number default null
20 ,p_legislation_code in varchar2 default null
21 ,p_amt_contr in number default null
22 ,p_max_contr_allowed in number default null
23 ,p_includable_comp in number default null
24 ,p_tax_unit_id in number default null
25 ,p_source_system in varchar2 default null
26 ,p_contr_information_category in varchar2 default null
27 ,p_contr_information1 in varchar2 default null
28 ,p_contr_information2 in varchar2 default null
29 ,p_contr_information3 in varchar2 default null
30 ,p_contr_information4 in varchar2 default null
31 ,p_contr_information5 in varchar2 default null
32 ,p_contr_information6 in varchar2 default null
33 ,p_contr_information7 in varchar2 default null
34 ,p_contr_information8 in varchar2 default null
35 ,p_contr_information9 in varchar2 default null
36 ,p_contr_information10 in varchar2 default null
37 ,p_contr_information11 in varchar2 default null
38 ,p_contr_information12 in varchar2 default null
39 ,p_contr_information13 in varchar2 default null
40 ,p_contr_information14 in varchar2 default null
41 ,p_contr_information15 in varchar2 default null
42 ,p_contr_information16 in varchar2 default null
43 ,p_contr_information17 in varchar2 default null
44 ,p_contr_information18 in varchar2 default null
45 ,p_contr_information19 in varchar2 default null
46 ,p_contr_information20 in varchar2 default null
47 ,p_contr_information21 in varchar2 default null
48 ,p_contr_information22 in varchar2 default null
49 ,p_contr_information23 in varchar2 default null
50 ,p_contr_information24 in varchar2 default null
51 ,p_contr_information25 in varchar2 default null
52 ,p_contr_information26 in varchar2 default null
53 ,p_contr_information27 in varchar2 default null
54 ,p_contr_information28 in varchar2 default null
55 ,p_contr_information29 in varchar2 default null
56 ,p_contr_information30 in varchar2 default null
57 ,p_object_version_number out number
58 ) is
59 --
60 -- Declare cursors and local variables
61 --
62 l_contr_history_id pay_us_contribution_history.contr_history_id%TYPE;
63 l_proc varchar2(72) := g_package||'create_Contribution_History';
64 l_object_version_number pay_us_contribution_history.object_version_number%TYPE;
65 --
66 begin
67 --
68 hr_utility.set_location('Entering:'|| l_proc, 10);
69 --
70 -- Issue a savepoint if operating in validation only mode
71 --
72 savepoint create_Contribution_History;
73 --
74 hr_utility.set_location(l_proc, 20);
75 --
76 -- Process Logic
77 --
78 begin
79 --
80 -- Start of API User Hook for the before hook of create_Contribution_History
81 --
82 pay_Contribution_History_bk1.create_Contribution_History_b
83 (
84 p_person_id => p_person_id
85 ,p_date_from => p_date_from
86 ,p_date_to => p_date_to
87 ,p_contr_type => p_contr_type
88 ,p_business_group_id => p_business_group_id
89 ,p_legislation_code => p_legislation_code
90 ,p_amt_contr => p_amt_contr
91 ,p_max_contr_allowed => p_max_contr_allowed
92 ,p_includable_comp => p_includable_comp
93 ,p_tax_unit_id => p_tax_unit_id
94 ,p_source_system => p_source_system
95 ,p_contr_information_category => p_contr_information_category
96 ,p_contr_information1 => p_contr_information1
97 ,p_contr_information2 => p_contr_information2
98 ,p_contr_information3 => p_contr_information3
99 ,p_contr_information4 => p_contr_information4
100 ,p_contr_information5 => p_contr_information5
101 ,p_contr_information6 => p_contr_information6
102 ,p_contr_information7 => p_contr_information7
103 ,p_contr_information8 => p_contr_information8
104 ,p_contr_information9 => p_contr_information9
105 ,p_contr_information10 => p_contr_information10
106 ,p_contr_information11 => p_contr_information11
107 ,p_contr_information12 => p_contr_information12
108 ,p_contr_information13 => p_contr_information13
109 ,p_contr_information14 => p_contr_information14
110 ,p_contr_information15 => p_contr_information15
111 ,p_contr_information16 => p_contr_information16
112 ,p_contr_information17 => p_contr_information17
113 ,p_contr_information18 => p_contr_information18
114 ,p_contr_information19 => p_contr_information19
115 ,p_contr_information20 => p_contr_information20
116 ,p_contr_information21 => p_contr_information21
117 ,p_contr_information22 => p_contr_information22
118 ,p_contr_information23 => p_contr_information23
119 ,p_contr_information24 => p_contr_information24
120 ,p_contr_information25 => p_contr_information25
121 ,p_contr_information26 => p_contr_information26
122 ,p_contr_information27 => p_contr_information27
123 ,p_contr_information28 => p_contr_information28
124 ,p_contr_information29 => p_contr_information29
125 ,p_contr_information30 => p_contr_information30
126 );
127 exception
128 when hr_api.cannot_find_prog_unit then
129 hr_api.cannot_find_prog_unit_error
130 (
131 p_module_name => 'CREATE_Contribution_History'
132 ,p_hook_type => 'BP'
133 );
134 --
135 -- End of API User Hook for the before hook of create_Contribution_History
136 --
137 end;
138 --
139 pay_con_ins.ins
140 (
141 p_contr_history_id => l_contr_history_id
142 ,p_person_id => p_person_id
143 ,p_date_from => p_date_from
144 ,p_date_to => p_date_to
145 ,p_contr_type => p_contr_type
146 ,p_business_group_id => p_business_group_id
147 ,p_legislation_code => p_legislation_code
148 ,p_amt_contr => p_amt_contr
149 ,p_max_contr_allowed => p_max_contr_allowed
150 ,p_includable_comp => p_includable_comp
151 ,p_tax_unit_id => p_tax_unit_id
152 ,p_source_system => p_source_system
153 ,p_contr_information_category => p_contr_information_category
154 ,p_contr_information1 => p_contr_information1
155 ,p_contr_information2 => p_contr_information2
156 ,p_contr_information3 => p_contr_information3
157 ,p_contr_information4 => p_contr_information4
158 ,p_contr_information5 => p_contr_information5
159 ,p_contr_information6 => p_contr_information6
160 ,p_contr_information7 => p_contr_information7
161 ,p_contr_information8 => p_contr_information8
162 ,p_contr_information9 => p_contr_information9
163 ,p_contr_information10 => p_contr_information10
164 ,p_contr_information11 => p_contr_information11
165 ,p_contr_information12 => p_contr_information12
166 ,p_contr_information13 => p_contr_information13
167 ,p_contr_information14 => p_contr_information14
168 ,p_contr_information15 => p_contr_information15
169 ,p_contr_information16 => p_contr_information16
170 ,p_contr_information17 => p_contr_information17
171 ,p_contr_information18 => p_contr_information18
172 ,p_contr_information19 => p_contr_information19
173 ,p_contr_information20 => p_contr_information20
174 ,p_contr_information21 => p_contr_information21
175 ,p_contr_information22 => p_contr_information22
176 ,p_contr_information23 => p_contr_information23
177 ,p_contr_information24 => p_contr_information24
178 ,p_contr_information25 => p_contr_information25
179 ,p_contr_information26 => p_contr_information26
180 ,p_contr_information27 => p_contr_information27
181 ,p_contr_information28 => p_contr_information28
182 ,p_contr_information29 => p_contr_information29
183 ,p_contr_information30 => p_contr_information30
184 ,p_object_version_number => l_object_version_number
185 );
186 --
187 begin
188 --
189 -- Start of API User Hook for the after hook of create_Contribution_History
190 --
191 pay_Contribution_History_bk1.create_Contribution_History_a
192 (
193 p_contr_history_id => l_contr_history_id
194 ,p_person_id => p_person_id
195 ,p_date_from => p_date_from
196 ,p_date_to => p_date_to
197 ,p_contr_type => p_contr_type
198 ,p_business_group_id => p_business_group_id
199 ,p_legislation_code => p_legislation_code
200 ,p_amt_contr => p_amt_contr
201 ,p_max_contr_allowed => p_max_contr_allowed
202 ,p_includable_comp => p_includable_comp
203 ,p_tax_unit_id => p_tax_unit_id
204 ,p_source_system => p_source_system
205 ,p_contr_information_category => p_contr_information_category
206 ,p_contr_information1 => p_contr_information1
207 ,p_contr_information2 => p_contr_information2
208 ,p_contr_information3 => p_contr_information3
209 ,p_contr_information4 => p_contr_information4
210 ,p_contr_information5 => p_contr_information5
211 ,p_contr_information6 => p_contr_information6
212 ,p_contr_information7 => p_contr_information7
213 ,p_contr_information8 => p_contr_information8
214 ,p_contr_information9 => p_contr_information9
215 ,p_contr_information10 => p_contr_information10
216 ,p_contr_information11 => p_contr_information11
217 ,p_contr_information12 => p_contr_information12
218 ,p_contr_information13 => p_contr_information13
219 ,p_contr_information14 => p_contr_information14
220 ,p_contr_information15 => p_contr_information15
221 ,p_contr_information16 => p_contr_information16
222 ,p_contr_information17 => p_contr_information17
223 ,p_contr_information18 => p_contr_information18
224 ,p_contr_information19 => p_contr_information19
225 ,p_contr_information20 => p_contr_information20
226 ,p_contr_information21 => p_contr_information21
227 ,p_contr_information22 => p_contr_information22
228 ,p_contr_information23 => p_contr_information23
229 ,p_contr_information24 => p_contr_information24
230 ,p_contr_information25 => p_contr_information25
231 ,p_contr_information26 => p_contr_information26
232 ,p_contr_information27 => p_contr_information27
233 ,p_contr_information28 => p_contr_information28
234 ,p_contr_information29 => p_contr_information29
235 ,p_contr_information30 => p_contr_information30
236 ,p_object_version_number => l_object_version_number
237 );
238 exception
239 when hr_api.cannot_find_prog_unit then
240 hr_api.cannot_find_prog_unit_error
241 (p_module_name => 'CREATE_Contribution_History'
242 ,p_hook_type => 'AP'
243 );
244 --
245 -- End of API User Hook for the after hook of create_Contribution_History
246 --
247 end;
248 --
249 hr_utility.set_location(l_proc, 60);
250 --
251 -- When in validation only mode raise the Validate_Enabled exception
252 --
253 if p_validate then
254 raise hr_api.validate_enabled;
255 end if;
256 --
257 -- Set all output arguments
258 --
259 p_contr_history_id := l_contr_history_id;
260 p_object_version_number := l_object_version_number;
261 --
262 hr_utility.set_location(' Leaving:'||l_proc, 70);
263 --
264 exception
265 --
266 when hr_api.validate_enabled then
267 --
268 -- As the Validate_Enabled exception has been raised
269 -- we must rollback to the savepoint
270 --
271 ROLLBACK TO create_Contribution_History;
272 --
273 -- Only set output warning arguments
274 -- (Any key or derived arguments must be set to null
275 -- when validation only mode is being used.)
276 --
277 p_contr_history_id := null;
278 p_object_version_number := null;
279 hr_utility.set_location(' Leaving:'||l_proc, 80);
280 --
281 when others then
282 --
283 -- A validation or unexpected error has occured
284 --
285 ROLLBACK TO create_Contribution_History;
286 raise;
287 --
288 end create_Contribution_History;
289 -- ----------------------------------------------------------------------------
290 -- |------------------------< update_Contribution_History >--- ------------------|
291 -- ----------------------------------------------------------------------------
292 --
293 procedure update_Contribution_History
294 (p_validate in boolean default false
295 ,p_contr_history_id in number
296 ,p_person_id in number default hr_api.g_number
297 ,p_date_from in date default hr_api.g_date
298 ,p_date_to in date default hr_api.g_date
299 ,p_contr_type in varchar2 default hr_api.g_varchar2
300 ,p_business_group_id in number default hr_api.g_number
301 ,p_legislation_code in varchar2 default hr_api.g_varchar2
302 ,p_amt_contr in number default hr_api.g_number
303 ,p_max_contr_allowed in number default hr_api.g_number
304 ,p_includable_comp in number default hr_api.g_number
305 ,p_tax_unit_id in number default hr_api.g_number
306 ,p_source_system in varchar2 default hr_api.g_varchar2
307 ,p_contr_information_category in varchar2 default hr_api.g_varchar2
308 ,p_contr_information1 in varchar2 default hr_api.g_varchar2
309 ,p_contr_information2 in varchar2 default hr_api.g_varchar2
310 ,p_contr_information3 in varchar2 default hr_api.g_varchar2
311 ,p_contr_information4 in varchar2 default hr_api.g_varchar2
312 ,p_contr_information5 in varchar2 default hr_api.g_varchar2
313 ,p_contr_information6 in varchar2 default hr_api.g_varchar2
314 ,p_contr_information7 in varchar2 default hr_api.g_varchar2
315 ,p_contr_information8 in varchar2 default hr_api.g_varchar2
316 ,p_contr_information9 in varchar2 default hr_api.g_varchar2
317 ,p_contr_information10 in varchar2 default hr_api.g_varchar2
318 ,p_contr_information11 in varchar2 default hr_api.g_varchar2
319 ,p_contr_information12 in varchar2 default hr_api.g_varchar2
320 ,p_contr_information13 in varchar2 default hr_api.g_varchar2
321 ,p_contr_information14 in varchar2 default hr_api.g_varchar2
322 ,p_contr_information15 in varchar2 default hr_api.g_varchar2
323 ,p_contr_information16 in varchar2 default hr_api.g_varchar2
324 ,p_contr_information17 in varchar2 default hr_api.g_varchar2
325 ,p_contr_information18 in varchar2 default hr_api.g_varchar2
326 ,p_contr_information19 in varchar2 default hr_api.g_varchar2
330 ,p_contr_information23 in varchar2 default hr_api.g_varchar2
327 ,p_contr_information20 in varchar2 default hr_api.g_varchar2
328 ,p_contr_information21 in varchar2 default hr_api.g_varchar2
329 ,p_contr_information22 in varchar2 default hr_api.g_varchar2
331 ,p_contr_information24 in varchar2 default hr_api.g_varchar2
332 ,p_contr_information25 in varchar2 default hr_api.g_varchar2
333 ,p_contr_information26 in varchar2 default hr_api.g_varchar2
334 ,p_contr_information27 in varchar2 default hr_api.g_varchar2
335 ,p_contr_information28 in varchar2 default hr_api.g_varchar2
336 ,p_contr_information29 in varchar2 default hr_api.g_varchar2
337 ,p_contr_information30 in varchar2 default hr_api.g_varchar2
338 ,p_object_version_number in out number
339 ) is
340 --
341 -- Declare cursors and local variables
342 --
343 l_proc varchar2(72) := g_package||'update_Contribution_History';
344 l_object_version_number pay_us_contribution_history.object_version_number%TYPE;
345 --
346 begin
347 --
348 hr_utility.set_location('Entering:'|| l_proc, 10);
349 --
350 -- Issue a savepoint if operating in validation only mode
351 --
352 savepoint update_Contribution_History;
353 --
354 hr_utility.set_location(l_proc, 20);
355 --
356 -- Process Logic
357 --
358 l_object_version_number := p_object_version_number;
359 --
360 begin
361 --
362 -- Start of API User Hook for the before hook of update_Contribution_History
363 --
364 pay_Contribution_History_bk2.update_Contribution_History_b
365 (
366 p_contr_history_id => p_contr_history_id
367 ,p_person_id => p_person_id
368 ,p_date_from => p_date_from
369 ,p_date_to => p_date_to
370 ,p_contr_type => p_contr_type
371 ,p_business_group_id => p_business_group_id
372 ,p_legislation_code => p_legislation_code
373 ,p_amt_contr => p_amt_contr
374 ,p_max_contr_allowed => p_max_contr_allowed
375 ,p_includable_comp => p_includable_comp
376 ,p_tax_unit_id => p_tax_unit_id
377 ,p_source_system => p_source_system
378 ,p_contr_information_category => p_contr_information_category
379 ,p_contr_information1 => p_contr_information1
380 ,p_contr_information2 => p_contr_information2
381 ,p_contr_information3 => p_contr_information3
382 ,p_contr_information4 => p_contr_information4
383 ,p_contr_information5 => p_contr_information5
384 ,p_contr_information6 => p_contr_information6
385 ,p_contr_information7 => p_contr_information7
386 ,p_contr_information8 => p_contr_information8
387 ,p_contr_information9 => p_contr_information9
388 ,p_contr_information10 => p_contr_information10
389 ,p_contr_information11 => p_contr_information11
390 ,p_contr_information12 => p_contr_information12
391 ,p_contr_information13 => p_contr_information13
392 ,p_contr_information14 => p_contr_information14
393 ,p_contr_information15 => p_contr_information15
394 ,p_contr_information16 => p_contr_information16
395 ,p_contr_information17 => p_contr_information17
396 ,p_contr_information18 => p_contr_information18
397 ,p_contr_information19 => p_contr_information19
398 ,p_contr_information20 => p_contr_information20
399 ,p_contr_information21 => p_contr_information21
400 ,p_contr_information22 => p_contr_information22
401 ,p_contr_information23 => p_contr_information23
402 ,p_contr_information24 => p_contr_information24
403 ,p_contr_information25 => p_contr_information25
404 ,p_contr_information26 => p_contr_information26
405 ,p_contr_information27 => p_contr_information27
406 ,p_contr_information28 => p_contr_information28
407 ,p_contr_information29 => p_contr_information29
408 ,p_contr_information30 => p_contr_information30
409 ,p_object_version_number => p_object_version_number
410 );
411 exception
412 when hr_api.cannot_find_prog_unit then
413 hr_api.cannot_find_prog_unit_error
414 (p_module_name => 'UPDATE_Contribution_History'
415 ,p_hook_type => 'BP'
416 );
417 --
418 -- End of API User Hook for the before hook of update_Contribution_History
419 --
420 end;
421 --
422 pay_con_upd.upd
423 (
424 p_contr_history_id => p_contr_history_id
425 ,p_person_id => p_person_id
426 ,p_date_from => p_date_from
427 ,p_date_to => p_date_to
428 ,p_contr_type => p_contr_type
429 ,p_business_group_id => p_business_group_id
430 ,p_legislation_code => p_legislation_code
431 ,p_amt_contr => p_amt_contr
432 ,p_max_contr_allowed => p_max_contr_allowed
433 ,p_includable_comp => p_includable_comp
434 ,p_tax_unit_id => p_tax_unit_id
435 ,p_source_system => p_source_system
436 ,p_contr_information_category => p_contr_information_category
437 ,p_contr_information1 => p_contr_information1
438 ,p_contr_information2 => p_contr_information2
442 ,p_contr_information6 => p_contr_information6
439 ,p_contr_information3 => p_contr_information3
440 ,p_contr_information4 => p_contr_information4
441 ,p_contr_information5 => p_contr_information5
443 ,p_contr_information7 => p_contr_information7
444 ,p_contr_information8 => p_contr_information8
445 ,p_contr_information9 => p_contr_information9
446 ,p_contr_information10 => p_contr_information10
447 ,p_contr_information11 => p_contr_information11
448 ,p_contr_information12 => p_contr_information12
449 ,p_contr_information13 => p_contr_information13
450 ,p_contr_information14 => p_contr_information14
451 ,p_contr_information15 => p_contr_information15
452 ,p_contr_information16 => p_contr_information16
453 ,p_contr_information17 => p_contr_information17
454 ,p_contr_information18 => p_contr_information18
455 ,p_contr_information19 => p_contr_information19
456 ,p_contr_information20 => p_contr_information20
457 ,p_contr_information21 => p_contr_information21
458 ,p_contr_information22 => p_contr_information22
459 ,p_contr_information23 => p_contr_information23
460 ,p_contr_information24 => p_contr_information24
461 ,p_contr_information25 => p_contr_information25
462 ,p_contr_information26 => p_contr_information26
463 ,p_contr_information27 => p_contr_information27
464 ,p_contr_information28 => p_contr_information28
465 ,p_contr_information29 => p_contr_information29
466 ,p_contr_information30 => p_contr_information30
467 ,p_object_version_number => l_object_version_number
468 );
469 --
470 begin
471 --
472 -- Start of API User Hook for the after hook of update_Contribution_History
473 --
474 pay_Contribution_History_bk2.update_Contribution_History_a
475 (
476 p_contr_history_id => p_contr_history_id
477 ,p_person_id => p_person_id
478 ,p_date_from => p_date_from
479 ,p_date_to => p_date_to
480 ,p_contr_type => p_contr_type
481 ,p_business_group_id => p_business_group_id
482 ,p_legislation_code => p_legislation_code
483 ,p_amt_contr => p_amt_contr
484 ,p_max_contr_allowed => p_max_contr_allowed
485 ,p_includable_comp => p_includable_comp
486 ,p_tax_unit_id => p_tax_unit_id
487 ,p_source_system => p_source_system
488 ,p_contr_information_category => p_contr_information_category
489 ,p_contr_information1 => p_contr_information1
490 ,p_contr_information2 => p_contr_information2
491 ,p_contr_information3 => p_contr_information3
492 ,p_contr_information4 => p_contr_information4
493 ,p_contr_information5 => p_contr_information5
494 ,p_contr_information6 => p_contr_information6
495 ,p_contr_information7 => p_contr_information7
496 ,p_contr_information8 => p_contr_information8
497 ,p_contr_information9 => p_contr_information9
498 ,p_contr_information10 => p_contr_information10
499 ,p_contr_information11 => p_contr_information11
500 ,p_contr_information12 => p_contr_information12
501 ,p_contr_information13 => p_contr_information13
502 ,p_contr_information14 => p_contr_information14
503 ,p_contr_information15 => p_contr_information15
504 ,p_contr_information16 => p_contr_information16
505 ,p_contr_information17 => p_contr_information17
506 ,p_contr_information18 => p_contr_information18
507 ,p_contr_information19 => p_contr_information19
508 ,p_contr_information20 => p_contr_information20
509 ,p_contr_information21 => p_contr_information21
510 ,p_contr_information22 => p_contr_information22
511 ,p_contr_information23 => p_contr_information23
512 ,p_contr_information24 => p_contr_information24
513 ,p_contr_information25 => p_contr_information25
514 ,p_contr_information26 => p_contr_information26
515 ,p_contr_information27 => p_contr_information27
516 ,p_contr_information28 => p_contr_information28
517 ,p_contr_information29 => p_contr_information29
518 ,p_contr_information30 => p_contr_information30
519 ,p_object_version_number => l_object_version_number
520 );
521 exception
522 when hr_api.cannot_find_prog_unit then
523 hr_api.cannot_find_prog_unit_error
524 (p_module_name => 'UPDATE_Contribution_History'
525 ,p_hook_type => 'AP'
526 );
527 --
528 -- End of API User Hook for the after hook of update_Contribution_History
529 --
530 end;
531 --
532 hr_utility.set_location(l_proc, 60);
533 --
534 -- When in validation only mode raise the Validate_Enabled exception
535 --
536 if p_validate then
537 raise hr_api.validate_enabled;
538 end if;
539 --
540 -- Set all output arguments
541 --
542 p_object_version_number := l_object_version_number;
543 --
544 hr_utility.set_location(' Leaving:'||l_proc, 70);
545 --
546 exception
547 --
548 when hr_api.validate_enabled then
549 --
550 -- As the Validate_Enabled exception has been raised
554 --
551 -- we must rollback to the savepoint
552 --
553 ROLLBACK TO update_Contribution_History;
555 -- Only set output warning arguments
556 -- (Any key or derived arguments must be set to null
557 -- when validation only mode is being used.)
558 --
559 hr_utility.set_location(' Leaving:'||l_proc, 80);
560 --
561 when others then
562 --
563 -- A validation or unexpected error has occured
564 --
565 ROLLBACK TO update_Contribution_History;
566 raise;
567 --
568 end update_Contribution_History;
569 -- ----------------------------------------------------------------------------
570 -- |------------------------< delete_Contribution_History >----------------------|
571 -- ----------------------------------------------------------------------------
572 --
573 procedure delete_Contribution_History
574 (p_validate in boolean default false
575 ,p_contr_history_id in number
576 ,p_object_version_number in out number
577 ) is
578 --
579 -- Declare cursors and local variables
580 --
581 l_proc varchar2(72) := g_package||'update_Contribution_History';
582 l_object_version_number pay_us_contribution_history.object_version_number%TYPE;
583 --
584 begin
585 --
586 hr_utility.set_location('Entering:'|| l_proc, 10);
587 --
588 -- Issue a savepoint if operating in validation only mode
589 --
590 savepoint delete_Contribution_History;
591 --
592 hr_utility.set_location(l_proc, 20);
593 --
594 -- Process Logic
595 --
596 l_object_version_number := p_object_version_number;
597 --
598 --
599 begin
600 --
601 -- Start of API User Hook for the before hook of delete_Contribution_History
602 --
603 pay_Contribution_History_bk3.delete_Contribution_History_b
604 (
605 p_contr_history_id => p_contr_history_id
606 ,p_object_version_number => p_object_version_number
607 );
608 exception
609 when hr_api.cannot_find_prog_unit then
610 hr_api.cannot_find_prog_unit_error
611 (p_module_name => 'DELETE_Contribution_History'
612 ,p_hook_type => 'BP'
613 );
614 --
615 -- End of API User Hook for the before hook of delete_Contribution_History
616 --
617 end;
618 --
619 pay_con_del.del
620 (
621 p_contr_history_id => p_contr_history_id
622 ,p_object_version_number => l_object_version_number
623 );
624 --
625 begin
626 --
627 -- Start of API User Hook for the after hook of delete_Contribution_History
628 --
629 pay_Contribution_History_bk3.delete_Contribution_History_a
630 (
631 p_contr_history_id => p_contr_history_id
632 ,p_object_version_number => l_object_version_number
633 );
634 exception
635 when hr_api.cannot_find_prog_unit then
636 hr_api.cannot_find_prog_unit_error
637 (p_module_name => 'DELETE_Contribution_History'
638 ,p_hook_type => 'AP'
639 );
640 --
641 -- End of API User Hook for the after hook of delete_Contribution_History
642 --
643 end;
644 --
645 hr_utility.set_location(l_proc, 60);
646 --
647 -- When in validation only mode raise the Validate_Enabled exception
648 --
649 if p_validate then
650 raise hr_api.validate_enabled;
651 end if;
652 --
653 hr_utility.set_location(' Leaving:'||l_proc, 70);
654 --
655 exception
656 --
657 when hr_api.validate_enabled then
658 --
659 -- As the Validate_Enabled exception has been raised
660 -- we must rollback to the savepoint
661 --
662 ROLLBACK TO delete_Contribution_History;
663 --
664 -- Only set output warning arguments
665 -- (Any key or derived arguments must be set to null
666 -- when validation only mode is being used.)
667 --
668 --
669 when others then
670 --
671 -- A validation or unexpected error has occured
672 --
673 ROLLBACK TO delete_Contribution_History;
674 raise;
675 --
676 end delete_Contribution_History;
677 --
678 -- ----------------------------------------------------------------------------
679 -- |-------------------------------< lck >------------------------------------|
680 -- ----------------------------------------------------------------------------
681 --
682 procedure lck
683 (
684 p_contr_history_id in number
685 ,p_object_version_number in number
686 ) is
687 --
688 --
689 -- Declare cursors and local variables
690 --
691 l_proc varchar2(72) := g_package||'lck';
692 --
693 begin
694 --
695 hr_utility.set_location('Entering:'|| l_proc, 10);
696 --
697 pay_con_shd.lck
698 (
699 p_contr_history_id => p_contr_history_id
700 ,p_object_version_number => p_object_version_number
701 );
702 --
703 hr_utility.set_location(' Leaving:'||l_proc, 70);
704 --
705 end lck;
706 --
707 end pay_Contribution_History_api;