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