[Home] [Help]
PACKAGE BODY: APPS.BEN_ENRT_PREM_API
Source
1 Package Body ben_enrt_prem_api as
2 /* $Header: beeprapi.pkb 115.2 2002/12/11 11:16:06 lakrish ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' ben_enrt_prem_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_enrt_prem >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_enrt_prem
13 (p_validate in boolean default false
14 ,p_enrt_prem_id out nocopy number
15 ,p_val in number default null
16 ,p_uom in varchar2 default null
17 ,p_elig_per_elctbl_chc_id in number default null
18 ,p_enrt_bnft_id in number default null
19 ,p_actl_prem_id in number
20 ,p_business_group_id in number
21 ,p_epr_attribute_category in varchar2 default null
22 ,p_epr_attribute1 in varchar2 default null
23 ,p_epr_attribute2 in varchar2 default null
24 ,p_epr_attribute3 in varchar2 default null
25 ,p_epr_attribute4 in varchar2 default null
26 ,p_epr_attribute5 in varchar2 default null
27 ,p_epr_attribute6 in varchar2 default null
28 ,p_epr_attribute7 in varchar2 default null
29 ,p_epr_attribute8 in varchar2 default null
30 ,p_epr_attribute9 in varchar2 default null
31 ,p_epr_attribute10 in varchar2 default null
32 ,p_epr_attribute11 in varchar2 default null
33 ,p_epr_attribute12 in varchar2 default null
34 ,p_epr_attribute13 in varchar2 default null
35 ,p_epr_attribute14 in varchar2 default null
36 ,p_epr_attribute15 in varchar2 default null
37 ,p_epr_attribute16 in varchar2 default null
38 ,p_epr_attribute17 in varchar2 default null
39 ,p_epr_attribute18 in varchar2 default null
40 ,p_epr_attribute19 in varchar2 default null
41 ,p_epr_attribute20 in varchar2 default null
42 ,p_epr_attribute21 in varchar2 default null
43 ,p_epr_attribute22 in varchar2 default null
44 ,p_epr_attribute23 in varchar2 default null
45 ,p_epr_attribute24 in varchar2 default null
46 ,p_epr_attribute25 in varchar2 default null
47 ,p_epr_attribute26 in varchar2 default null
48 ,p_epr_attribute27 in varchar2 default null
49 ,p_epr_attribute28 in varchar2 default null
50 ,p_epr_attribute29 in varchar2 default null
51 ,p_epr_attribute30 in varchar2 default null
52 ,p_object_version_number out nocopy number
53 ,p_request_id in number default null
54 ,p_program_application_id in number default null
55 ,p_program_id in number default null
56 ,p_program_update_date in date default null
57 ) is
58 --
59 -- Declare cursors and local variables
60 --
61 l_enrt_prem_id ben_enrt_prem.enrt_prem_id%TYPE;
62 l_proc varchar2(72) := g_package||'create_enrt_prem';
63 l_object_version_number ben_enrt_prem.object_version_number%TYPE;
64 --
65 begin
66 --
67 hr_utility.set_location('Entering:'|| l_proc, 10);
68 --
69 -- Issue a savepoint if operating in validation only mode
70 --
71 savepoint create_enrt_prem;
72 --
73 hr_utility.set_location(l_proc, 20);
74 --
75 -- Process Logic
76 --
77 begin
78 --
79 -- Start of API User Hook for the before hook of create_enrt_prem
80 --
81 ben_enrt_prem_bk1.create_enrt_prem_b
82 (
83 p_val => p_val
84 ,p_uom => p_uom
85 ,p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id
86 ,p_enrt_bnft_id => p_enrt_bnft_id
87 ,p_actl_prem_id => p_actl_prem_id
88 ,p_business_group_id => p_business_group_id
89 ,p_epr_attribute_category => p_epr_attribute_category
90 ,p_epr_attribute1 => p_epr_attribute1
91 ,p_epr_attribute2 => p_epr_attribute2
92 ,p_epr_attribute3 => p_epr_attribute3
93 ,p_epr_attribute4 => p_epr_attribute4
94 ,p_epr_attribute5 => p_epr_attribute5
95 ,p_epr_attribute6 => p_epr_attribute6
96 ,p_epr_attribute7 => p_epr_attribute7
97 ,p_epr_attribute8 => p_epr_attribute8
98 ,p_epr_attribute9 => p_epr_attribute9
99 ,p_epr_attribute10 => p_epr_attribute10
100 ,p_epr_attribute11 => p_epr_attribute11
101 ,p_epr_attribute12 => p_epr_attribute12
102 ,p_epr_attribute13 => p_epr_attribute13
103 ,p_epr_attribute14 => p_epr_attribute14
104 ,p_epr_attribute15 => p_epr_attribute15
105 ,p_epr_attribute16 => p_epr_attribute16
106 ,p_epr_attribute17 => p_epr_attribute17
107 ,p_epr_attribute18 => p_epr_attribute18
108 ,p_epr_attribute19 => p_epr_attribute19
109 ,p_epr_attribute20 => p_epr_attribute20
110 ,p_epr_attribute21 => p_epr_attribute21
111 ,p_epr_attribute22 => p_epr_attribute22
112 ,p_epr_attribute23 => p_epr_attribute23
113 ,p_epr_attribute24 => p_epr_attribute24
114 ,p_epr_attribute25 => p_epr_attribute25
115 ,p_epr_attribute26 => p_epr_attribute26
116 ,p_epr_attribute27 => p_epr_attribute27
117 ,p_epr_attribute28 => p_epr_attribute28
118 ,p_epr_attribute29 => p_epr_attribute29
119 ,p_epr_attribute30 => p_epr_attribute30
120 ,p_request_id => p_request_id
121 ,p_program_application_id => p_program_application_id
122 ,p_program_id => p_program_id
123 ,p_program_update_date => p_program_update_date
124 );
125 exception
126 when hr_api.cannot_find_prog_unit then
127 hr_api.cannot_find_prog_unit_error
128 (
129 p_module_name => 'CREATE_enrt_prem'
130 ,p_hook_type => 'BP'
131 );
132 --
133 -- End of API User Hook for the before hook of create_enrt_prem
134 --
135 end;
136 --
137 ben_epr_ins.ins
138 (
139 p_enrt_prem_id => l_enrt_prem_id
140 ,p_val => p_val
141 ,p_uom => p_uom
142 ,p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id
143 ,p_enrt_bnft_id => p_enrt_bnft_id
144 ,p_actl_prem_id => p_actl_prem_id
145 ,p_business_group_id => p_business_group_id
146 ,p_epr_attribute_category => p_epr_attribute_category
147 ,p_epr_attribute1 => p_epr_attribute1
148 ,p_epr_attribute2 => p_epr_attribute2
149 ,p_epr_attribute3 => p_epr_attribute3
150 ,p_epr_attribute4 => p_epr_attribute4
151 ,p_epr_attribute5 => p_epr_attribute5
152 ,p_epr_attribute6 => p_epr_attribute6
153 ,p_epr_attribute7 => p_epr_attribute7
154 ,p_epr_attribute8 => p_epr_attribute8
155 ,p_epr_attribute9 => p_epr_attribute9
156 ,p_epr_attribute10 => p_epr_attribute10
157 ,p_epr_attribute11 => p_epr_attribute11
158 ,p_epr_attribute12 => p_epr_attribute12
159 ,p_epr_attribute13 => p_epr_attribute13
160 ,p_epr_attribute14 => p_epr_attribute14
161 ,p_epr_attribute15 => p_epr_attribute15
162 ,p_epr_attribute16 => p_epr_attribute16
163 ,p_epr_attribute17 => p_epr_attribute17
164 ,p_epr_attribute18 => p_epr_attribute18
165 ,p_epr_attribute19 => p_epr_attribute19
166 ,p_epr_attribute20 => p_epr_attribute20
167 ,p_epr_attribute21 => p_epr_attribute21
168 ,p_epr_attribute22 => p_epr_attribute22
169 ,p_epr_attribute23 => p_epr_attribute23
170 ,p_epr_attribute24 => p_epr_attribute24
171 ,p_epr_attribute25 => p_epr_attribute25
172 ,p_epr_attribute26 => p_epr_attribute26
173 ,p_epr_attribute27 => p_epr_attribute27
174 ,p_epr_attribute28 => p_epr_attribute28
175 ,p_epr_attribute29 => p_epr_attribute29
176 ,p_epr_attribute30 => p_epr_attribute30
177 ,p_object_version_number => l_object_version_number
178 ,p_request_id => p_request_id
179 ,p_program_application_id => p_program_application_id
180 ,p_program_id => p_program_id
181 ,p_program_update_date => p_program_update_date
182 );
183 --
184 begin
185 --
186 -- Start of API User Hook for the after hook of create_enrt_prem
187 --
188 ben_enrt_prem_bk1.create_enrt_prem_a
189 (
190 p_enrt_prem_id => l_enrt_prem_id
191 ,p_val => p_val
192 ,p_uom => p_uom
193 ,p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id
194 ,p_enrt_bnft_id => p_enrt_bnft_id
195 ,p_actl_prem_id => p_actl_prem_id
196 ,p_business_group_id => p_business_group_id
197 ,p_epr_attribute_category => p_epr_attribute_category
198 ,p_epr_attribute1 => p_epr_attribute1
199 ,p_epr_attribute2 => p_epr_attribute2
200 ,p_epr_attribute3 => p_epr_attribute3
201 ,p_epr_attribute4 => p_epr_attribute4
202 ,p_epr_attribute5 => p_epr_attribute5
203 ,p_epr_attribute6 => p_epr_attribute6
204 ,p_epr_attribute7 => p_epr_attribute7
205 ,p_epr_attribute8 => p_epr_attribute8
206 ,p_epr_attribute9 => p_epr_attribute9
207 ,p_epr_attribute10 => p_epr_attribute10
208 ,p_epr_attribute11 => p_epr_attribute11
209 ,p_epr_attribute12 => p_epr_attribute12
210 ,p_epr_attribute13 => p_epr_attribute13
211 ,p_epr_attribute14 => p_epr_attribute14
212 ,p_epr_attribute15 => p_epr_attribute15
213 ,p_epr_attribute16 => p_epr_attribute16
214 ,p_epr_attribute17 => p_epr_attribute17
215 ,p_epr_attribute18 => p_epr_attribute18
216 ,p_epr_attribute19 => p_epr_attribute19
217 ,p_epr_attribute20 => p_epr_attribute20
218 ,p_epr_attribute21 => p_epr_attribute21
219 ,p_epr_attribute22 => p_epr_attribute22
220 ,p_epr_attribute23 => p_epr_attribute23
221 ,p_epr_attribute24 => p_epr_attribute24
222 ,p_epr_attribute25 => p_epr_attribute25
223 ,p_epr_attribute26 => p_epr_attribute26
224 ,p_epr_attribute27 => p_epr_attribute27
225 ,p_epr_attribute28 => p_epr_attribute28
226 ,p_epr_attribute29 => p_epr_attribute29
227 ,p_epr_attribute30 => p_epr_attribute30
228 ,p_object_version_number => l_object_version_number
229 ,p_request_id => p_request_id
230 ,p_program_application_id => p_program_application_id
231 ,p_program_id => p_program_id
232 ,p_program_update_date => p_program_update_date
233 );
234 exception
235 when hr_api.cannot_find_prog_unit then
236 hr_api.cannot_find_prog_unit_error
237 (p_module_name => 'CREATE_enrt_prem'
238 ,p_hook_type => 'AP'
239 );
240 --
241 -- End of API User Hook for the after hook of create_enrt_prem
242 --
243 end;
244 --
245 hr_utility.set_location(l_proc, 60);
246 --
247 -- When in validation only mode raise the Validate_Enabled exception
248 --
249 if p_validate then
250 raise hr_api.validate_enabled;
251 end if;
252 --
253 -- Set all output arguments
254 --
255 p_enrt_prem_id := l_enrt_prem_id;
256 p_object_version_number := l_object_version_number;
257 --
258 hr_utility.set_location(' Leaving:'||l_proc, 70);
259 --
260 exception
261 --
262 when hr_api.validate_enabled then
263 --
264 -- As the Validate_Enabled exception has been raised
265 -- we must rollback to the savepoint
266 --
267 ROLLBACK TO create_enrt_prem;
268 --
269 -- Only set output warning arguments
270 -- (Any key or derived arguments must be set to null
271 -- when validation only mode is being used.)
272 --
273 p_enrt_prem_id := null;
274 p_object_version_number := null;
275 hr_utility.set_location(' Leaving:'||l_proc, 80);
276 --
277 when others then
278 --
279 -- A validation or unexpected error has occured
280 --
281 ROLLBACK TO create_enrt_prem;
282
283 -- NOCOPY, Reset out parameters
284 p_enrt_prem_id := null;
285 p_object_version_number := null;
286
287 raise;
288 --
289 end create_enrt_prem;
290 -- ----------------------------------------------------------------------------
291 -- |------------------------< update_enrt_prem >--- ------------------|
292 -- ----------------------------------------------------------------------------
293 --
294 procedure update_enrt_prem
295 (p_validate in boolean default false
296 ,p_enrt_prem_id in number
297 ,p_val in number default hr_api.g_number
298 ,p_uom in varchar2 default hr_api.g_varchar2
299 ,p_elig_per_elctbl_chc_id in number default hr_api.g_number
300 ,p_enrt_bnft_id in number default hr_api.g_number
301 ,p_actl_prem_id in number default hr_api.g_number
302 ,p_business_group_id in number default hr_api.g_number
303 ,p_epr_attribute_category in varchar2 default hr_api.g_varchar2
304 ,p_epr_attribute1 in varchar2 default hr_api.g_varchar2
305 ,p_epr_attribute2 in varchar2 default hr_api.g_varchar2
306 ,p_epr_attribute3 in varchar2 default hr_api.g_varchar2
307 ,p_epr_attribute4 in varchar2 default hr_api.g_varchar2
308 ,p_epr_attribute5 in varchar2 default hr_api.g_varchar2
309 ,p_epr_attribute6 in varchar2 default hr_api.g_varchar2
310 ,p_epr_attribute7 in varchar2 default hr_api.g_varchar2
311 ,p_epr_attribute8 in varchar2 default hr_api.g_varchar2
312 ,p_epr_attribute9 in varchar2 default hr_api.g_varchar2
313 ,p_epr_attribute10 in varchar2 default hr_api.g_varchar2
314 ,p_epr_attribute11 in varchar2 default hr_api.g_varchar2
315 ,p_epr_attribute12 in varchar2 default hr_api.g_varchar2
316 ,p_epr_attribute13 in varchar2 default hr_api.g_varchar2
317 ,p_epr_attribute14 in varchar2 default hr_api.g_varchar2
318 ,p_epr_attribute15 in varchar2 default hr_api.g_varchar2
319 ,p_epr_attribute16 in varchar2 default hr_api.g_varchar2
320 ,p_epr_attribute17 in varchar2 default hr_api.g_varchar2
321 ,p_epr_attribute18 in varchar2 default hr_api.g_varchar2
325 ,p_epr_attribute22 in varchar2 default hr_api.g_varchar2
322 ,p_epr_attribute19 in varchar2 default hr_api.g_varchar2
323 ,p_epr_attribute20 in varchar2 default hr_api.g_varchar2
324 ,p_epr_attribute21 in varchar2 default hr_api.g_varchar2
326 ,p_epr_attribute23 in varchar2 default hr_api.g_varchar2
327 ,p_epr_attribute24 in varchar2 default hr_api.g_varchar2
328 ,p_epr_attribute25 in varchar2 default hr_api.g_varchar2
329 ,p_epr_attribute26 in varchar2 default hr_api.g_varchar2
330 ,p_epr_attribute27 in varchar2 default hr_api.g_varchar2
331 ,p_epr_attribute28 in varchar2 default hr_api.g_varchar2
332 ,p_epr_attribute29 in varchar2 default hr_api.g_varchar2
333 ,p_epr_attribute30 in varchar2 default hr_api.g_varchar2
334 ,p_object_version_number in out nocopy number
335 ,p_request_id in number default hr_api.g_number
336 ,p_program_application_id in number default hr_api.g_number
337 ,p_program_id in number default hr_api.g_number
338 ,p_program_update_date in date default hr_api.g_date
339 ) is
340 --
341 -- Declare cursors and local variables
342 --
343 l_proc varchar2(72) := g_package||'update_enrt_prem';
344 l_object_version_number ben_enrt_prem.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_enrt_prem;
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_enrt_prem
363 --
364 ben_enrt_prem_bk2.update_enrt_prem_b
365 (
366 p_enrt_prem_id => p_enrt_prem_id
367 ,p_val => p_val
368 ,p_uom => p_uom
369 ,p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id
370 ,p_enrt_bnft_id => p_enrt_bnft_id
371 ,p_actl_prem_id => p_actl_prem_id
372 ,p_business_group_id => p_business_group_id
373 ,p_epr_attribute_category => p_epr_attribute_category
374 ,p_epr_attribute1 => p_epr_attribute1
375 ,p_epr_attribute2 => p_epr_attribute2
376 ,p_epr_attribute3 => p_epr_attribute3
377 ,p_epr_attribute4 => p_epr_attribute4
378 ,p_epr_attribute5 => p_epr_attribute5
379 ,p_epr_attribute6 => p_epr_attribute6
380 ,p_epr_attribute7 => p_epr_attribute7
381 ,p_epr_attribute8 => p_epr_attribute8
382 ,p_epr_attribute9 => p_epr_attribute9
383 ,p_epr_attribute10 => p_epr_attribute10
384 ,p_epr_attribute11 => p_epr_attribute11
385 ,p_epr_attribute12 => p_epr_attribute12
386 ,p_epr_attribute13 => p_epr_attribute13
387 ,p_epr_attribute14 => p_epr_attribute14
388 ,p_epr_attribute15 => p_epr_attribute15
389 ,p_epr_attribute16 => p_epr_attribute16
390 ,p_epr_attribute17 => p_epr_attribute17
391 ,p_epr_attribute18 => p_epr_attribute18
392 ,p_epr_attribute19 => p_epr_attribute19
393 ,p_epr_attribute20 => p_epr_attribute20
394 ,p_epr_attribute21 => p_epr_attribute21
395 ,p_epr_attribute22 => p_epr_attribute22
396 ,p_epr_attribute23 => p_epr_attribute23
397 ,p_epr_attribute24 => p_epr_attribute24
398 ,p_epr_attribute25 => p_epr_attribute25
399 ,p_epr_attribute26 => p_epr_attribute26
400 ,p_epr_attribute27 => p_epr_attribute27
401 ,p_epr_attribute28 => p_epr_attribute28
402 ,p_epr_attribute29 => p_epr_attribute29
403 ,p_epr_attribute30 => p_epr_attribute30
404 ,p_object_version_number => p_object_version_number
405 ,p_request_id => p_request_id
406 ,p_program_application_id => p_program_application_id
407 ,p_program_id => p_program_id
408 ,p_program_update_date => p_program_update_date
409 );
410 exception
411 when hr_api.cannot_find_prog_unit then
412 hr_api.cannot_find_prog_unit_error
413 (p_module_name => 'UPDATE_enrt_prem'
414 ,p_hook_type => 'BP'
415 );
416 --
417 -- End of API User Hook for the before hook of update_enrt_prem
418 --
419 end;
420 --
421 ben_epr_upd.upd
422 (
423 p_enrt_prem_id => p_enrt_prem_id
424 ,p_val => p_val
425 ,p_uom => p_uom
426 ,p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id
427 ,p_enrt_bnft_id => p_enrt_bnft_id
428 ,p_actl_prem_id => p_actl_prem_id
429 ,p_business_group_id => p_business_group_id
433 ,p_epr_attribute3 => p_epr_attribute3
430 ,p_epr_attribute_category => p_epr_attribute_category
431 ,p_epr_attribute1 => p_epr_attribute1
432 ,p_epr_attribute2 => p_epr_attribute2
434 ,p_epr_attribute4 => p_epr_attribute4
435 ,p_epr_attribute5 => p_epr_attribute5
436 ,p_epr_attribute6 => p_epr_attribute6
437 ,p_epr_attribute7 => p_epr_attribute7
438 ,p_epr_attribute8 => p_epr_attribute8
439 ,p_epr_attribute9 => p_epr_attribute9
440 ,p_epr_attribute10 => p_epr_attribute10
441 ,p_epr_attribute11 => p_epr_attribute11
442 ,p_epr_attribute12 => p_epr_attribute12
443 ,p_epr_attribute13 => p_epr_attribute13
444 ,p_epr_attribute14 => p_epr_attribute14
445 ,p_epr_attribute15 => p_epr_attribute15
446 ,p_epr_attribute16 => p_epr_attribute16
447 ,p_epr_attribute17 => p_epr_attribute17
448 ,p_epr_attribute18 => p_epr_attribute18
449 ,p_epr_attribute19 => p_epr_attribute19
450 ,p_epr_attribute20 => p_epr_attribute20
451 ,p_epr_attribute21 => p_epr_attribute21
452 ,p_epr_attribute22 => p_epr_attribute22
453 ,p_epr_attribute23 => p_epr_attribute23
454 ,p_epr_attribute24 => p_epr_attribute24
455 ,p_epr_attribute25 => p_epr_attribute25
456 ,p_epr_attribute26 => p_epr_attribute26
457 ,p_epr_attribute27 => p_epr_attribute27
458 ,p_epr_attribute28 => p_epr_attribute28
459 ,p_epr_attribute29 => p_epr_attribute29
460 ,p_epr_attribute30 => p_epr_attribute30
461 ,p_object_version_number => l_object_version_number
462 ,p_request_id => p_request_id
463 ,p_program_application_id => p_program_application_id
464 ,p_program_id => p_program_id
465 ,p_program_update_date => p_program_update_date
466 );
467 --
468 begin
469 --
470 -- Start of API User Hook for the after hook of update_enrt_prem
471 --
472 ben_enrt_prem_bk2.update_enrt_prem_a
473 (
474 p_enrt_prem_id => p_enrt_prem_id
475 ,p_val => p_val
476 ,p_uom => p_uom
477 ,p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id
478 ,p_enrt_bnft_id => p_enrt_bnft_id
479 ,p_actl_prem_id => p_actl_prem_id
480 ,p_business_group_id => p_business_group_id
481 ,p_epr_attribute_category => p_epr_attribute_category
482 ,p_epr_attribute1 => p_epr_attribute1
483 ,p_epr_attribute2 => p_epr_attribute2
484 ,p_epr_attribute3 => p_epr_attribute3
485 ,p_epr_attribute4 => p_epr_attribute4
486 ,p_epr_attribute5 => p_epr_attribute5
487 ,p_epr_attribute6 => p_epr_attribute6
488 ,p_epr_attribute7 => p_epr_attribute7
489 ,p_epr_attribute8 => p_epr_attribute8
490 ,p_epr_attribute9 => p_epr_attribute9
491 ,p_epr_attribute10 => p_epr_attribute10
492 ,p_epr_attribute11 => p_epr_attribute11
493 ,p_epr_attribute12 => p_epr_attribute12
494 ,p_epr_attribute13 => p_epr_attribute13
495 ,p_epr_attribute14 => p_epr_attribute14
496 ,p_epr_attribute15 => p_epr_attribute15
497 ,p_epr_attribute16 => p_epr_attribute16
498 ,p_epr_attribute17 => p_epr_attribute17
499 ,p_epr_attribute18 => p_epr_attribute18
500 ,p_epr_attribute19 => p_epr_attribute19
501 ,p_epr_attribute20 => p_epr_attribute20
502 ,p_epr_attribute21 => p_epr_attribute21
503 ,p_epr_attribute22 => p_epr_attribute22
504 ,p_epr_attribute23 => p_epr_attribute23
505 ,p_epr_attribute24 => p_epr_attribute24
506 ,p_epr_attribute25 => p_epr_attribute25
507 ,p_epr_attribute26 => p_epr_attribute26
508 ,p_epr_attribute27 => p_epr_attribute27
509 ,p_epr_attribute28 => p_epr_attribute28
510 ,p_epr_attribute29 => p_epr_attribute29
511 ,p_epr_attribute30 => p_epr_attribute30
512 ,p_object_version_number => l_object_version_number
513 ,p_request_id => p_request_id
514 ,p_program_application_id => p_program_application_id
515 ,p_program_id => p_program_id
516 ,p_program_update_date => p_program_update_date
517 );
518 exception
519 when hr_api.cannot_find_prog_unit then
520 hr_api.cannot_find_prog_unit_error
521 (p_module_name => 'UPDATE_enrt_prem'
522 ,p_hook_type => 'AP'
523 );
524 --
525 -- End of API User Hook for the after hook of update_enrt_prem
526 --
527 end;
528 --
529 hr_utility.set_location(l_proc, 60);
530 --
531 -- When in validation only mode raise the Validate_Enabled exception
535 end if;
532 --
533 if p_validate then
534 raise hr_api.validate_enabled;
536 --
537 -- Set all output arguments
538 --
539 p_object_version_number := l_object_version_number;
540 --
541 hr_utility.set_location(' Leaving:'||l_proc, 70);
542 --
543 exception
544 --
545 when hr_api.validate_enabled then
546 --
547 -- As the Validate_Enabled exception has been raised
548 -- we must rollback to the savepoint
549 --
550 ROLLBACK TO update_enrt_prem;
551 --
552 -- Only set output warning arguments
553 -- (Any key or derived arguments must be set to null
554 -- when validation only mode is being used.)
555 --
556 hr_utility.set_location(' Leaving:'||l_proc, 80);
557 --
558 when others then
559 --
560 -- A validation or unexpected error has occured
561 --
562 ROLLBACK TO update_enrt_prem;
563 raise;
564 --
565 end update_enrt_prem;
566 -- ----------------------------------------------------------------------------
567 -- |------------------------< delete_enrt_prem >----------------------|
568 -- ----------------------------------------------------------------------------
569 --
570 procedure delete_enrt_prem
571 (p_validate in boolean default false
572 ,p_enrt_prem_id in number
573 ,p_object_version_number in out nocopy number
574 ) is
575 --
576 -- Declare cursors and local variables
577 --
578 l_proc varchar2(72) := g_package||'update_enrt_prem';
579 l_object_version_number ben_enrt_prem.object_version_number%TYPE;
580 --
581 begin
582 --
583 hr_utility.set_location('Entering:'|| l_proc, 10);
584 --
585 -- Issue a savepoint if operating in validation only mode
586 --
587 savepoint delete_enrt_prem;
588 --
589 hr_utility.set_location(l_proc, 20);
590 --
591 -- Process Logic
592 --
593 l_object_version_number := p_object_version_number;
594 --
595 --
596 begin
597 --
598 -- Start of API User Hook for the before hook of delete_enrt_prem
599 --
600 ben_enrt_prem_bk3.delete_enrt_prem_b
601 (
602 p_enrt_prem_id => p_enrt_prem_id
603 ,p_object_version_number => p_object_version_number
604 );
605 exception
606 when hr_api.cannot_find_prog_unit then
607 hr_api.cannot_find_prog_unit_error
608 (p_module_name => 'DELETE_enrt_prem'
609 ,p_hook_type => 'BP'
610 );
611 --
612 -- End of API User Hook for the before hook of delete_enrt_prem
613 --
614 end;
615 --
616 ben_epr_del.del
617 (
618 p_enrt_prem_id => p_enrt_prem_id
619 ,p_object_version_number => l_object_version_number
620 );
621 --
622 begin
623 --
624 -- Start of API User Hook for the after hook of delete_enrt_prem
625 --
626 ben_enrt_prem_bk3.delete_enrt_prem_a
627 (
628 p_enrt_prem_id => p_enrt_prem_id
629 ,p_object_version_number => l_object_version_number
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_enrt_prem'
635 ,p_hook_type => 'AP'
636 );
637 --
638 -- End of API User Hook for the after hook of delete_enrt_prem
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_enrt_prem;
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 --
666 when others then
667 --
668 -- A validation or unexpected error has occured
669 --
670 ROLLBACK TO delete_enrt_prem;
671 raise;
672 --
673 end delete_enrt_prem;
674 --
675 -- ----------------------------------------------------------------------------
676 -- |-------------------------------< lck >------------------------------------|
677 -- ----------------------------------------------------------------------------
678 --
679 procedure lck
680 (
681 p_enrt_prem_id in number
682 ,p_object_version_number in number
683 ) is
684 --
685 --
686 -- Declare cursors and local variables
687 --
688 l_proc varchar2(72) := g_package||'lck';
689 --
690 begin
691 --
692 hr_utility.set_location('Entering:'|| l_proc, 10);
693 --
694 ben_epr_shd.lck
695 (
696 p_enrt_prem_id => p_enrt_prem_id
697 ,p_object_version_number => p_object_version_number
698 );
699 --
700 hr_utility.set_location(' Leaving:'||l_proc, 70);
701 --
702 end lck;
703 --
704 end ben_enrt_prem_api;