[Home] [Help]
PACKAGE BODY: APPS.BEN_ELIG_TTL_CVG_VOL_PRTE_API
Source
1 Package Body ben_elig_ttl_cvg_vol_prte_api as
2 /* $Header: beetcapi.pkb 115.1 2002/12/24 08:07:44 pabodla noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' ben_elig_ttl_cvg_vol_prte_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_elig_ttl_cvg_vol_prte >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_elig_ttl_cvg_vol_prte
13 (p_validate in boolean default false
14 ,p_elig_ttl_cvg_vol_prte_id out nocopy number
15 ,p_effective_start_date out nocopy date
16 ,p_effective_end_date out nocopy date
17 ,p_business_group_id in number default null
18 ,p_excld_flag in varchar2 default 'N'
19 ,p_no_mn_cvg_vol_amt_apls_flag in varchar2 default 'N'
20 ,p_no_mx_cvg_vol_amt_apls_flag in varchar2 default 'N'
21 ,p_ordr_num in number default null
22 ,p_mn_cvg_vol_amt in number default null
23 ,p_mx_cvg_vol_amt in number default null
24 ,p_cvg_vol_det_cd in varchar2 default null
25 ,p_cvg_vol_det_rl in number default null
26 ,p_eligy_prfl_id in number default null
27 ,p_etc_attribute_category in varchar2 default null
28 ,p_etc_attribute1 in varchar2 default null
29 ,p_etc_attribute2 in varchar2 default null
30 ,p_etc_attribute3 in varchar2 default null
31 ,p_etc_attribute4 in varchar2 default null
32 ,p_etc_attribute5 in varchar2 default null
33 ,p_etc_attribute6 in varchar2 default null
34 ,p_etc_attribute7 in varchar2 default null
35 ,p_etc_attribute8 in varchar2 default null
36 ,p_etc_attribute9 in varchar2 default null
37 ,p_etc_attribute10 in varchar2 default null
38 ,p_etc_attribute11 in varchar2 default null
39 ,p_etc_attribute12 in varchar2 default null
40 ,p_etc_attribute13 in varchar2 default null
41 ,p_etc_attribute14 in varchar2 default null
42 ,p_etc_attribute15 in varchar2 default null
43 ,p_etc_attribute16 in varchar2 default null
44 ,p_etc_attribute17 in varchar2 default null
45 ,p_etc_attribute18 in varchar2 default null
46 ,p_etc_attribute19 in varchar2 default null
47 ,p_etc_attribute20 in varchar2 default null
48 ,p_etc_attribute21 in varchar2 default null
49 ,p_etc_attribute22 in varchar2 default null
50 ,p_etc_attribute23 in varchar2 default null
51 ,p_etc_attribute24 in varchar2 default null
52 ,p_etc_attribute25 in varchar2 default null
53 ,p_etc_attribute26 in varchar2 default null
54 ,p_etc_attribute27 in varchar2 default null
55 ,p_etc_attribute28 in varchar2 default null
56 ,p_etc_attribute29 in varchar2 default null
57 ,p_etc_attribute30 in varchar2 default null
58 ,p_object_version_number out nocopy number
59 ,p_effective_date in date
60 ) is
61 --
62 -- Declare cursors and local variables
63 --
64 l_elig_ttl_cvg_vol_prte_id ben_elig_ttl_cvg_vol_prte_f.elig_ttl_cvg_vol_prte_id%TYPE;
65 l_effective_start_date ben_elig_ttl_cvg_vol_prte_f.effective_start_date%TYPE;
66 l_effective_end_date ben_elig_ttl_cvg_vol_prte_f.effective_end_date%TYPE;
67 l_proc varchar2(72) := g_package||'create_elig_ttl_cvg_vol_prte';
68 l_object_version_number ben_elig_ttl_cvg_vol_prte_f.object_version_number%TYPE;
69 --
70 begin
71 --
72 hr_utility.set_location('Entering:'|| l_proc, 10);
73 --
74 -- Issue a savepoint if operating in validation only mode
75 --
76 savepoint create_elig_ttl_cvg_vol_prte;
77 --
78 hr_utility.set_location(l_proc, 20);
79 --
80 -- Process Logic
81 --
82 begin
83 --
84 -- Start of API User Hook for the before hook of create_elig_ttl_cvg_vol_prte
85 --
86 ben_elig_ttl_cvg_vol_prte_bk1.create_elig_ttl_cvg_vol_prte_b
87 (
88 p_business_group_id => p_business_group_id
89 ,p_excld_flag => p_excld_flag
90 ,p_no_mn_cvg_vol_amt_apls_flag => p_no_mn_cvg_vol_amt_apls_flag
91 ,p_no_mx_cvg_vol_amt_apls_flag => p_no_mx_cvg_vol_amt_apls_flag
92 ,p_ordr_num => p_ordr_num
93 ,p_mn_cvg_vol_amt => p_mn_cvg_vol_amt
94 ,p_mx_cvg_vol_amt => p_mx_cvg_vol_amt
95 ,p_cvg_vol_det_cd => p_cvg_vol_det_cd
96 ,p_cvg_vol_det_rl => p_cvg_vol_det_rl
97 ,p_eligy_prfl_id => p_eligy_prfl_id
98 ,p_etc_attribute_category => p_etc_attribute_category
99 ,p_etc_attribute1 => p_etc_attribute1
100 ,p_etc_attribute2 => p_etc_attribute2
101 ,p_etc_attribute3 => p_etc_attribute3
102 ,p_etc_attribute4 => p_etc_attribute4
103 ,p_etc_attribute5 => p_etc_attribute5
104 ,p_etc_attribute6 => p_etc_attribute6
105 ,p_etc_attribute7 => p_etc_attribute7
106 ,p_etc_attribute8 => p_etc_attribute8
107 ,p_etc_attribute9 => p_etc_attribute9
108 ,p_etc_attribute10 => p_etc_attribute10
109 ,p_etc_attribute11 => p_etc_attribute11
110 ,p_etc_attribute12 => p_etc_attribute12
111 ,p_etc_attribute13 => p_etc_attribute13
112 ,p_etc_attribute14 => p_etc_attribute14
113 ,p_etc_attribute15 => p_etc_attribute15
114 ,p_etc_attribute16 => p_etc_attribute16
115 ,p_etc_attribute17 => p_etc_attribute17
116 ,p_etc_attribute18 => p_etc_attribute18
117 ,p_etc_attribute19 => p_etc_attribute19
118 ,p_etc_attribute20 => p_etc_attribute20
119 ,p_etc_attribute21 => p_etc_attribute21
120 ,p_etc_attribute22 => p_etc_attribute22
121 ,p_etc_attribute23 => p_etc_attribute23
122 ,p_etc_attribute24 => p_etc_attribute24
123 ,p_etc_attribute25 => p_etc_attribute25
124 ,p_etc_attribute26 => p_etc_attribute26
125 ,p_etc_attribute27 => p_etc_attribute27
126 ,p_etc_attribute28 => p_etc_attribute28
127 ,p_etc_attribute29 => p_etc_attribute29
128 ,p_etc_attribute30 => p_etc_attribute30
129 ,p_effective_date => trunc(p_effective_date)
130 );
131 exception
132 when hr_api.cannot_find_prog_unit then
133 hr_api.cannot_find_prog_unit_error
134 (
135 p_module_name => 'CREATE_ELIG_TTL_CVG_VOL_PRTE'
136 ,p_hook_type => 'BP'
137 );
138 --
139 -- End of API User Hook for the before hook of create_elig_ttl_cvg_vol_prte
140 --
141 end;
142 --
143 ben_etc_ins.ins
144 (
145 p_elig_ttl_cvg_vol_prte_id => l_elig_ttl_cvg_vol_prte_id
146 ,p_effective_start_date => l_effective_start_date
147 ,p_effective_end_date => l_effective_end_date
148 ,p_business_group_id => p_business_group_id
149 ,p_excld_flag => p_excld_flag
150 ,p_no_mn_cvg_vol_amt_apls_flag => p_no_mn_cvg_vol_amt_apls_flag
151 ,p_no_mx_cvg_vol_amt_apls_flag => p_no_mx_cvg_vol_amt_apls_flag
152 ,p_ordr_num => p_ordr_num
153 ,p_mn_cvg_vol_amt => p_mn_cvg_vol_amt
154 ,p_mx_cvg_vol_amt => p_mx_cvg_vol_amt
155 ,p_cvg_vol_det_cd => p_cvg_vol_det_cd
156 ,p_cvg_vol_det_rl => p_cvg_vol_det_rl
157 ,p_eligy_prfl_id => p_eligy_prfl_id
158 ,p_etc_attribute_category => p_etc_attribute_category
159 ,p_etc_attribute1 => p_etc_attribute1
160 ,p_etc_attribute2 => p_etc_attribute2
161 ,p_etc_attribute3 => p_etc_attribute3
162 ,p_etc_attribute4 => p_etc_attribute4
163 ,p_etc_attribute5 => p_etc_attribute5
164 ,p_etc_attribute6 => p_etc_attribute6
165 ,p_etc_attribute7 => p_etc_attribute7
166 ,p_etc_attribute8 => p_etc_attribute8
167 ,p_etc_attribute9 => p_etc_attribute9
168 ,p_etc_attribute10 => p_etc_attribute10
169 ,p_etc_attribute11 => p_etc_attribute11
170 ,p_etc_attribute12 => p_etc_attribute12
171 ,p_etc_attribute13 => p_etc_attribute13
172 ,p_etc_attribute14 => p_etc_attribute14
173 ,p_etc_attribute15 => p_etc_attribute15
174 ,p_etc_attribute16 => p_etc_attribute16
175 ,p_etc_attribute17 => p_etc_attribute17
176 ,p_etc_attribute18 => p_etc_attribute18
177 ,p_etc_attribute19 => p_etc_attribute19
178 ,p_etc_attribute20 => p_etc_attribute20
179 ,p_etc_attribute21 => p_etc_attribute21
180 ,p_etc_attribute22 => p_etc_attribute22
181 ,p_etc_attribute23 => p_etc_attribute23
182 ,p_etc_attribute24 => p_etc_attribute24
183 ,p_etc_attribute25 => p_etc_attribute25
184 ,p_etc_attribute26 => p_etc_attribute26
185 ,p_etc_attribute27 => p_etc_attribute27
186 ,p_etc_attribute28 => p_etc_attribute28
187 ,p_etc_attribute29 => p_etc_attribute29
188 ,p_etc_attribute30 => p_etc_attribute30
189 ,p_object_version_number => l_object_version_number
190 ,p_effective_date => trunc(p_effective_date)
191 );
192 --
193 begin
194 --
195 -- Start of API User Hook for the after hook of create_elig_ttl_cvg_vol_prte
196 --
197 ben_elig_ttl_cvg_vol_prte_bk1.create_elig_ttl_cvg_vol_prte_a
198 (
199 p_elig_ttl_cvg_vol_prte_id => l_elig_ttl_cvg_vol_prte_id
200 ,p_effective_start_date => l_effective_start_date
201 ,p_effective_end_date => l_effective_end_date
202 ,p_business_group_id => p_business_group_id
203 ,p_excld_flag => p_excld_flag
204 ,p_no_mn_cvg_vol_amt_apls_flag => p_no_mn_cvg_vol_amt_apls_flag
205 ,p_no_mx_cvg_vol_amt_apls_flag => p_no_mx_cvg_vol_amt_apls_flag
206 ,p_ordr_num => p_ordr_num
207 ,p_mn_cvg_vol_amt => p_mn_cvg_vol_amt
208 ,p_mx_cvg_vol_amt => p_mx_cvg_vol_amt
209 ,p_cvg_vol_det_cd => p_cvg_vol_det_cd
210 ,p_cvg_vol_det_rl => p_cvg_vol_det_rl
211 ,p_eligy_prfl_id => p_eligy_prfl_id
212 ,p_etc_attribute_category => p_etc_attribute_category
213 ,p_etc_attribute1 => p_etc_attribute1
214 ,p_etc_attribute2 => p_etc_attribute2
215 ,p_etc_attribute3 => p_etc_attribute3
216 ,p_etc_attribute4 => p_etc_attribute4
217 ,p_etc_attribute5 => p_etc_attribute5
218 ,p_etc_attribute6 => p_etc_attribute6
219 ,p_etc_attribute7 => p_etc_attribute7
220 ,p_etc_attribute8 => p_etc_attribute8
221 ,p_etc_attribute9 => p_etc_attribute9
222 ,p_etc_attribute10 => p_etc_attribute10
223 ,p_etc_attribute11 => p_etc_attribute11
224 ,p_etc_attribute12 => p_etc_attribute12
225 ,p_etc_attribute13 => p_etc_attribute13
226 ,p_etc_attribute14 => p_etc_attribute14
227 ,p_etc_attribute15 => p_etc_attribute15
228 ,p_etc_attribute16 => p_etc_attribute16
229 ,p_etc_attribute17 => p_etc_attribute17
230 ,p_etc_attribute18 => p_etc_attribute18
231 ,p_etc_attribute19 => p_etc_attribute19
232 ,p_etc_attribute20 => p_etc_attribute20
233 ,p_etc_attribute21 => p_etc_attribute21
234 ,p_etc_attribute22 => p_etc_attribute22
235 ,p_etc_attribute23 => p_etc_attribute23
236 ,p_etc_attribute24 => p_etc_attribute24
237 ,p_etc_attribute25 => p_etc_attribute25
238 ,p_etc_attribute26 => p_etc_attribute26
239 ,p_etc_attribute27 => p_etc_attribute27
240 ,p_etc_attribute28 => p_etc_attribute28
241 ,p_etc_attribute29 => p_etc_attribute29
242 ,p_etc_attribute30 => p_etc_attribute30
243 ,p_object_version_number => l_object_version_number
244 ,p_effective_date => trunc(p_effective_date)
245 );
246 exception
247 when hr_api.cannot_find_prog_unit then
248 hr_api.cannot_find_prog_unit_error
249 (p_module_name => 'CREATE_ELIG_TTL_CVG_VOL_PRTE'
250 ,p_hook_type => 'AP'
251 );
252 --
253 -- End of API User Hook for the after hook of create_elig_ttl_cvg_vol_prte
254 --
255 end;
256 --
257 ben_profile_handler.event_handler
258 (p_event => 'CREATE',
259 p_base_table => 'BEN_ELIGY_PRFL_F',
260 p_base_table_column => 'ELIGY_PRFL_ID',
261 p_base_table_column_value => p_eligy_prfl_id,
262 p_base_table_reference_column => 'ELIG_TTL_CVG_VOL_FLAG',
263 p_reference_table => 'BEN_ELIG_TTL_CVG_VOL_PRTE_F',
264 p_reference_table_column => 'ELIGY_PRFL_ID');
265 --
266 hr_utility.set_location(l_proc, 60);
267 --
268 -- When in validation only mode raise the Validate_Enabled exception
269 --
270 if p_validate then
271 raise hr_api.validate_enabled;
272 end if;
273 --
274 -- Set all output arguments
275 --
276 p_elig_ttl_cvg_vol_prte_id := l_elig_ttl_cvg_vol_prte_id;
277 p_effective_start_date := l_effective_start_date;
278 p_effective_end_date := l_effective_end_date;
279 p_object_version_number := l_object_version_number;
280 --
281 hr_utility.set_location(' Leaving:'||l_proc, 70);
282 --
283 exception
284 --
285 when hr_api.validate_enabled then
286 --
287 -- As the Validate_Enabled exception has been raised
288 -- we must rollback to the savepoint
289 --
290 ROLLBACK TO create_elig_ttl_cvg_vol_prte;
291 --
292 -- Only set output warning arguments
293 -- (Any key or derived arguments must be set to null
294 -- when validation only mode is being used.)
295 --
296 p_elig_ttl_cvg_vol_prte_id := null;
297 p_effective_start_date := null;
298 p_effective_end_date := null;
299 p_object_version_number := null;
300 hr_utility.set_location(' Leaving:'||l_proc, 80);
301 --
302 when others then
303 --
304 -- A validation or unexpected error has occured
305 --
306 ROLLBACK TO create_elig_ttl_cvg_vol_prte;
307 --
308 p_elig_ttl_cvg_vol_prte_id := null;
309 p_effective_start_date := null;
310 p_effective_end_date := null;
311 p_object_version_number := null;
312 hr_utility.set_location(' Leaving:'||l_proc, 80);
313 --
314 raise;
315 --
316 end create_elig_ttl_cvg_vol_prte;
317 -- ----------------------------------------------------------------------------
318 -- |------------------------< update_elig_ttl_cvg_vol_prte >--- ------------------|
319 -- ----------------------------------------------------------------------------
320 --
321 procedure update_elig_ttl_cvg_vol_prte
322 (p_validate in boolean default false
326 ,p_business_group_id in number default hr_api.g_number
323 ,p_elig_ttl_cvg_vol_prte_id in number
324 ,p_effective_start_date out nocopy date
325 ,p_effective_end_date out nocopy date
327 ,p_excld_flag in varchar2 default hr_api.g_varchar2
328 ,p_no_mn_cvg_vol_amt_apls_flag in varchar2 default hr_api.g_varchar2
329 ,p_no_mx_cvg_vol_amt_apls_flag in varchar2 default hr_api.g_varchar2
330 ,p_ordr_num in number default hr_api.g_number
331 ,p_mn_cvg_vol_amt in number default hr_api.g_number
332 ,p_mx_cvg_vol_amt in number default hr_api.g_number
333 ,p_cvg_vol_det_cd in varchar2 default hr_api.g_varchar2
334 ,p_cvg_vol_det_rl in number default hr_api.g_number
335 ,p_eligy_prfl_id in number default hr_api.g_number
336 ,p_etc_attribute_category in varchar2 default hr_api.g_varchar2
337 ,p_etc_attribute1 in varchar2 default hr_api.g_varchar2
338 ,p_etc_attribute2 in varchar2 default hr_api.g_varchar2
339 ,p_etc_attribute3 in varchar2 default hr_api.g_varchar2
340 ,p_etc_attribute4 in varchar2 default hr_api.g_varchar2
341 ,p_etc_attribute5 in varchar2 default hr_api.g_varchar2
342 ,p_etc_attribute6 in varchar2 default hr_api.g_varchar2
343 ,p_etc_attribute7 in varchar2 default hr_api.g_varchar2
344 ,p_etc_attribute8 in varchar2 default hr_api.g_varchar2
345 ,p_etc_attribute9 in varchar2 default hr_api.g_varchar2
346 ,p_etc_attribute10 in varchar2 default hr_api.g_varchar2
347 ,p_etc_attribute11 in varchar2 default hr_api.g_varchar2
348 ,p_etc_attribute12 in varchar2 default hr_api.g_varchar2
349 ,p_etc_attribute13 in varchar2 default hr_api.g_varchar2
350 ,p_etc_attribute14 in varchar2 default hr_api.g_varchar2
351 ,p_etc_attribute15 in varchar2 default hr_api.g_varchar2
352 ,p_etc_attribute16 in varchar2 default hr_api.g_varchar2
353 ,p_etc_attribute17 in varchar2 default hr_api.g_varchar2
354 ,p_etc_attribute18 in varchar2 default hr_api.g_varchar2
355 ,p_etc_attribute19 in varchar2 default hr_api.g_varchar2
356 ,p_etc_attribute20 in varchar2 default hr_api.g_varchar2
357 ,p_etc_attribute21 in varchar2 default hr_api.g_varchar2
358 ,p_etc_attribute22 in varchar2 default hr_api.g_varchar2
359 ,p_etc_attribute23 in varchar2 default hr_api.g_varchar2
360 ,p_etc_attribute24 in varchar2 default hr_api.g_varchar2
361 ,p_etc_attribute25 in varchar2 default hr_api.g_varchar2
362 ,p_etc_attribute26 in varchar2 default hr_api.g_varchar2
363 ,p_etc_attribute27 in varchar2 default hr_api.g_varchar2
364 ,p_etc_attribute28 in varchar2 default hr_api.g_varchar2
365 ,p_etc_attribute29 in varchar2 default hr_api.g_varchar2
366 ,p_etc_attribute30 in varchar2 default hr_api.g_varchar2
367 ,p_object_version_number in out nocopy number
368 ,p_effective_date in date
369 ,p_datetrack_mode in varchar2
370 ) is
371 --
372 -- Declare cursors and local variables
373 --
374 l_proc varchar2(72) := g_package||'update_elig_ttl_cvg_vol_prte';
375 l_object_version_number ben_elig_ttl_cvg_vol_prte_f.object_version_number%TYPE;
376 l_effective_start_date ben_elig_ttl_cvg_vol_prte_f.effective_start_date%TYPE;
377 l_effective_end_date ben_elig_ttl_cvg_vol_prte_f.effective_end_date%TYPE;
378 --
379 begin
380 --
381 hr_utility.set_location('Entering:'|| l_proc, 10);
382 --
383 -- Issue a savepoint if operating in validation only mode
384 --
385 savepoint update_elig_ttl_cvg_vol_prte;
386 --
387 hr_utility.set_location(l_proc, 20);
388 --
389 -- Process Logic
390 --
391 l_object_version_number := p_object_version_number;
392 --
393 begin
394 --
395 -- Start of API User Hook for the before hook of update_elig_ttl_cvg_vol_prte
396 --
397 ben_elig_ttl_cvg_vol_prte_bk2.update_elig_ttl_cvg_vol_prte_b
398 (
399 p_elig_ttl_cvg_vol_prte_id => p_elig_ttl_cvg_vol_prte_id
400 ,p_business_group_id => p_business_group_id
401 ,p_excld_flag => p_excld_flag
402 ,p_no_mn_cvg_vol_amt_apls_flag => p_no_mn_cvg_vol_amt_apls_flag
403 ,p_no_mx_cvg_vol_amt_apls_flag => p_no_mx_cvg_vol_amt_apls_flag
404 ,p_ordr_num => p_ordr_num
405 ,p_mn_cvg_vol_amt => p_mn_cvg_vol_amt
406 ,p_mx_cvg_vol_amt => p_mx_cvg_vol_amt
407 ,p_cvg_vol_det_cd => p_cvg_vol_det_cd
408 ,p_cvg_vol_det_rl => p_cvg_vol_det_rl
409 ,p_eligy_prfl_id => p_eligy_prfl_id
410 ,p_etc_attribute_category => p_etc_attribute_category
411 ,p_etc_attribute1 => p_etc_attribute1
412 ,p_etc_attribute2 => p_etc_attribute2
413 ,p_etc_attribute3 => p_etc_attribute3
414 ,p_etc_attribute4 => p_etc_attribute4
415 ,p_etc_attribute5 => p_etc_attribute5
416 ,p_etc_attribute6 => p_etc_attribute6
420 ,p_etc_attribute10 => p_etc_attribute10
417 ,p_etc_attribute7 => p_etc_attribute7
418 ,p_etc_attribute8 => p_etc_attribute8
419 ,p_etc_attribute9 => p_etc_attribute9
421 ,p_etc_attribute11 => p_etc_attribute11
422 ,p_etc_attribute12 => p_etc_attribute12
423 ,p_etc_attribute13 => p_etc_attribute13
424 ,p_etc_attribute14 => p_etc_attribute14
425 ,p_etc_attribute15 => p_etc_attribute15
426 ,p_etc_attribute16 => p_etc_attribute16
427 ,p_etc_attribute17 => p_etc_attribute17
428 ,p_etc_attribute18 => p_etc_attribute18
429 ,p_etc_attribute19 => p_etc_attribute19
430 ,p_etc_attribute20 => p_etc_attribute20
431 ,p_etc_attribute21 => p_etc_attribute21
432 ,p_etc_attribute22 => p_etc_attribute22
433 ,p_etc_attribute23 => p_etc_attribute23
434 ,p_etc_attribute24 => p_etc_attribute24
435 ,p_etc_attribute25 => p_etc_attribute25
436 ,p_etc_attribute26 => p_etc_attribute26
437 ,p_etc_attribute27 => p_etc_attribute27
438 ,p_etc_attribute28 => p_etc_attribute28
439 ,p_etc_attribute29 => p_etc_attribute29
440 ,p_etc_attribute30 => p_etc_attribute30
441 ,p_object_version_number => p_object_version_number
442 ,p_effective_date => trunc(p_effective_date)
443 ,p_datetrack_mode => p_datetrack_mode
444 );
445 exception
446 when hr_api.cannot_find_prog_unit then
447 hr_api.cannot_find_prog_unit_error
448 (p_module_name => 'UPDATE_ELIG_TTL_CVG_VOL_PRTE'
449 ,p_hook_type => 'BP'
450 );
451 --
452 -- End of API User Hook for the before hook of update_elig_ttl_cvg_vol_prte
453 --
454 end;
455 --
456 ben_etc_upd.upd
457 (
458 p_elig_ttl_cvg_vol_prte_id => p_elig_ttl_cvg_vol_prte_id
459 ,p_effective_start_date => l_effective_start_date
460 ,p_effective_end_date => l_effective_end_date
461 ,p_business_group_id => p_business_group_id
462 ,p_excld_flag => p_excld_flag
463 ,p_no_mn_cvg_vol_amt_apls_flag => p_no_mn_cvg_vol_amt_apls_flag
464 ,p_no_mx_cvg_vol_amt_apls_flag => p_no_mx_cvg_vol_amt_apls_flag
465 ,p_ordr_num => p_ordr_num
466 ,p_mn_cvg_vol_amt => p_mn_cvg_vol_amt
467 ,p_mx_cvg_vol_amt => p_mx_cvg_vol_amt
468 ,p_cvg_vol_det_cd => p_cvg_vol_det_cd
469 ,p_cvg_vol_det_rl => p_cvg_vol_det_rl
470 ,p_eligy_prfl_id => p_eligy_prfl_id
471 ,p_etc_attribute_category => p_etc_attribute_category
472 ,p_etc_attribute1 => p_etc_attribute1
473 ,p_etc_attribute2 => p_etc_attribute2
474 ,p_etc_attribute3 => p_etc_attribute3
475 ,p_etc_attribute4 => p_etc_attribute4
476 ,p_etc_attribute5 => p_etc_attribute5
477 ,p_etc_attribute6 => p_etc_attribute6
478 ,p_etc_attribute7 => p_etc_attribute7
479 ,p_etc_attribute8 => p_etc_attribute8
480 ,p_etc_attribute9 => p_etc_attribute9
481 ,p_etc_attribute10 => p_etc_attribute10
482 ,p_etc_attribute11 => p_etc_attribute11
483 ,p_etc_attribute12 => p_etc_attribute12
484 ,p_etc_attribute13 => p_etc_attribute13
485 ,p_etc_attribute14 => p_etc_attribute14
486 ,p_etc_attribute15 => p_etc_attribute15
487 ,p_etc_attribute16 => p_etc_attribute16
488 ,p_etc_attribute17 => p_etc_attribute17
489 ,p_etc_attribute18 => p_etc_attribute18
490 ,p_etc_attribute19 => p_etc_attribute19
491 ,p_etc_attribute20 => p_etc_attribute20
492 ,p_etc_attribute21 => p_etc_attribute21
493 ,p_etc_attribute22 => p_etc_attribute22
494 ,p_etc_attribute23 => p_etc_attribute23
495 ,p_etc_attribute24 => p_etc_attribute24
496 ,p_etc_attribute25 => p_etc_attribute25
497 ,p_etc_attribute26 => p_etc_attribute26
498 ,p_etc_attribute27 => p_etc_attribute27
499 ,p_etc_attribute28 => p_etc_attribute28
500 ,p_etc_attribute29 => p_etc_attribute29
501 ,p_etc_attribute30 => p_etc_attribute30
502 ,p_object_version_number => l_object_version_number
503 ,p_effective_date => trunc(p_effective_date)
504 ,p_datetrack_mode => p_datetrack_mode
505 );
506 --
507 begin
508 --
509 -- Start of API User Hook for the after hook of update_elig_ttl_cvg_vol_prte
510 --
511 ben_elig_ttl_cvg_vol_prte_bk2.update_elig_ttl_cvg_vol_prte_a
512 (
513 p_elig_ttl_cvg_vol_prte_id => p_elig_ttl_cvg_vol_prte_id
514 ,p_effective_start_date => l_effective_start_date
515 ,p_effective_end_date => l_effective_end_date
516 ,p_business_group_id => p_business_group_id
517 ,p_excld_flag => p_excld_flag
521 ,p_mn_cvg_vol_amt => p_mn_cvg_vol_amt
518 ,p_no_mn_cvg_vol_amt_apls_flag => p_no_mn_cvg_vol_amt_apls_flag
519 ,p_no_mx_cvg_vol_amt_apls_flag => p_no_mx_cvg_vol_amt_apls_flag
520 ,p_ordr_num => p_ordr_num
522 ,p_mx_cvg_vol_amt => p_mx_cvg_vol_amt
523 ,p_cvg_vol_det_cd => p_cvg_vol_det_cd
524 ,p_cvg_vol_det_rl => p_cvg_vol_det_rl
525 ,p_eligy_prfl_id => p_eligy_prfl_id
526 ,p_etc_attribute_category => p_etc_attribute_category
527 ,p_etc_attribute1 => p_etc_attribute1
528 ,p_etc_attribute2 => p_etc_attribute2
529 ,p_etc_attribute3 => p_etc_attribute3
530 ,p_etc_attribute4 => p_etc_attribute4
531 ,p_etc_attribute5 => p_etc_attribute5
532 ,p_etc_attribute6 => p_etc_attribute6
533 ,p_etc_attribute7 => p_etc_attribute7
534 ,p_etc_attribute8 => p_etc_attribute8
535 ,p_etc_attribute9 => p_etc_attribute9
536 ,p_etc_attribute10 => p_etc_attribute10
537 ,p_etc_attribute11 => p_etc_attribute11
538 ,p_etc_attribute12 => p_etc_attribute12
539 ,p_etc_attribute13 => p_etc_attribute13
540 ,p_etc_attribute14 => p_etc_attribute14
541 ,p_etc_attribute15 => p_etc_attribute15
542 ,p_etc_attribute16 => p_etc_attribute16
543 ,p_etc_attribute17 => p_etc_attribute17
544 ,p_etc_attribute18 => p_etc_attribute18
545 ,p_etc_attribute19 => p_etc_attribute19
546 ,p_etc_attribute20 => p_etc_attribute20
547 ,p_etc_attribute21 => p_etc_attribute21
548 ,p_etc_attribute22 => p_etc_attribute22
549 ,p_etc_attribute23 => p_etc_attribute23
550 ,p_etc_attribute24 => p_etc_attribute24
551 ,p_etc_attribute25 => p_etc_attribute25
552 ,p_etc_attribute26 => p_etc_attribute26
553 ,p_etc_attribute27 => p_etc_attribute27
554 ,p_etc_attribute28 => p_etc_attribute28
555 ,p_etc_attribute29 => p_etc_attribute29
556 ,p_etc_attribute30 => p_etc_attribute30
557 ,p_object_version_number => l_object_version_number
558 ,p_effective_date => trunc(p_effective_date)
559 ,p_datetrack_mode => p_datetrack_mode
560 );
561 exception
562 when hr_api.cannot_find_prog_unit then
563 hr_api.cannot_find_prog_unit_error
564 (p_module_name => 'UPDATE_ELIG_TTL_CVG_VOL_PRTE'
565 ,p_hook_type => 'AP'
566 );
567 --
568 -- End of API User Hook for the after hook of update_elig_ttl_cvg_vol_prte
569 --
570 end;
571 --
572 hr_utility.set_location(l_proc, 60);
573 --
574 -- When in validation only mode raise the Validate_Enabled exception
575 --
576 if p_validate then
577 raise hr_api.validate_enabled;
578 end if;
579 --
580 -- Set all output arguments
581 --
582 p_object_version_number := l_object_version_number;
583 p_effective_start_date := l_effective_start_date;
584 p_effective_end_date := l_effective_end_date;
585 --
586 hr_utility.set_location(' Leaving:'||l_proc, 70);
587 --
588 exception
589 --
590 when hr_api.validate_enabled then
591 --
592 -- As the Validate_Enabled exception has been raised
593 -- we must rollback to the savepoint
594 --
595 ROLLBACK TO update_elig_ttl_cvg_vol_prte;
596 --
597 -- Only set output warning arguments
598 -- (Any key or derived arguments must be set to null
599 -- when validation only mode is being used.)
600 --
601 hr_utility.set_location(' Leaving:'||l_proc, 80);
602 --
603 when others then
604 --
605 -- A validation or unexpected error has occured
606 --
607 ROLLBACK TO update_elig_ttl_cvg_vol_prte;
608 --
609 p_effective_start_date := null;
610 p_effective_end_date := null;
611 p_object_version_number := l_object_version_number;
612 hr_utility.set_location(' Leaving:'||l_proc, 80);
613 --
614 raise;
615 --
616 end update_elig_ttl_cvg_vol_prte;
617 -- ----------------------------------------------------------------------------
618 -- |------------------------< delete_elig_ttl_cvg_vol_prte >----------------------|
619 -- ----------------------------------------------------------------------------
620 --
621 procedure delete_elig_ttl_cvg_vol_prte
622 (p_validate in boolean default false
623 ,p_elig_ttl_cvg_vol_prte_id in number
624 ,p_effective_start_date out nocopy date
625 ,p_effective_end_date out nocopy date
626 ,p_object_version_number in out nocopy number
627 ,p_effective_date in date
628 ,p_datetrack_mode in varchar2
629 ) is
630 --
631 -- Declare cursors and local variables
632 --
633 l_proc varchar2(72) := g_package||'update_elig_ttl_cvg_vol_prte';
634 l_object_version_number ben_elig_ttl_cvg_vol_prte_f.object_version_number%TYPE;
638 begin
635 l_effective_start_date ben_elig_ttl_cvg_vol_prte_f.effective_start_date%TYPE;
636 l_effective_end_date ben_elig_ttl_cvg_vol_prte_f.effective_end_date%TYPE;
637 --
639 --
640 hr_utility.set_location('Entering:'|| l_proc, 10);
641 --
642 -- Issue a savepoint if operating in validation only mode
643 --
644 savepoint delete_elig_ttl_cvg_vol_prte;
645 --
646 hr_utility.set_location(l_proc, 20);
647 --
648 -- Process Logic
649 --
650 l_object_version_number := p_object_version_number;
651 --
652 --
653 begin
654 --
655 -- Start of API User Hook for the before hook of delete_elig_ttl_cvg_vol_prte
656 --
657 ben_elig_ttl_cvg_vol_prte_bk3.delete_elig_ttl_cvg_vol_prte_b
658 (
659 p_elig_ttl_cvg_vol_prte_id => p_elig_ttl_cvg_vol_prte_id
660 ,p_object_version_number => p_object_version_number
661 ,p_effective_date => trunc(p_effective_date)
662 ,p_datetrack_mode => p_datetrack_mode
663 );
664 exception
665 when hr_api.cannot_find_prog_unit then
666 hr_api.cannot_find_prog_unit_error
667 (p_module_name => 'DELETE_ELIG_TTL_CVG_VOL_PRTE'
668 ,p_hook_type => 'BP'
669 );
670 --
671 -- End of API User Hook for the before hook of delete_elig_ttl_cvg_vol_prte
672 --
673 end;
674 --
675 ben_etc_del.del
676 (
677 p_elig_ttl_cvg_vol_prte_id => p_elig_ttl_cvg_vol_prte_id
678 ,p_effective_start_date => l_effective_start_date
679 ,p_effective_end_date => l_effective_end_date
680 ,p_object_version_number => l_object_version_number
681 ,p_effective_date => p_effective_date
682 ,p_datetrack_mode => p_datetrack_mode
683 );
684 --
685 begin
686 --
687 -- Start of API User Hook for the after hook of delete_elig_ttl_cvg_vol_prte
688 --
689 ben_elig_ttl_cvg_vol_prte_bk3.delete_elig_ttl_cvg_vol_prte_a
690 (
691 p_elig_ttl_cvg_vol_prte_id => p_elig_ttl_cvg_vol_prte_id
692 ,p_effective_start_date => l_effective_start_date
693 ,p_effective_end_date => l_effective_end_date
694 ,p_object_version_number => l_object_version_number
695 ,p_effective_date => trunc(p_effective_date)
696 ,p_datetrack_mode => p_datetrack_mode
697 );
698 exception
699 when hr_api.cannot_find_prog_unit then
700 hr_api.cannot_find_prog_unit_error
701 (p_module_name => 'DELETE_ELIG_TTL_CVG_VOL_PRTE'
702 ,p_hook_type => 'AP'
703 );
704 --
705 -- End of API User Hook for the after hook of delete_elig_ttl_cvg_vol_prte
706 --
707 end;
708 --
709 ben_profile_handler.event_handler
710 (p_event => 'DELETE',
711 p_base_table => 'BEN_ELIGY_PRFL_F',
712 p_base_table_column => 'ELIGY_PRFL_ID',
713 p_base_table_column_value => ben_etc_shd.g_old_rec.eligy_prfl_id,
714 p_base_table_reference_column => 'ELIG_TTL_CVG_VOL_FLAG',
715 p_reference_table => 'BEN_ELIG_TTL_CVG_VOL_PRTE_F',
716 p_reference_table_column => 'ELIGY_PRFL_ID');
717 --
718 hr_utility.set_location(l_proc, 60);
719 --
720 -- When in validation only mode raise the Validate_Enabled exception
721 --
722 if p_validate then
723 raise hr_api.validate_enabled;
724 end if;
725 --
726 hr_utility.set_location(' Leaving:'||l_proc, 70);
727 --
728 exception
729 --
730 when hr_api.validate_enabled then
731 --
732 -- As the Validate_Enabled exception has been raised
733 -- we must rollback to the savepoint
734 --
735 ROLLBACK TO delete_elig_ttl_cvg_vol_prte;
736 --
737 -- Only set output warning arguments
738 -- (Any key or derived arguments must be set to null
739 -- when validation only mode is being used.)
740 --
741 p_effective_start_date := null;
742 p_effective_end_date := null;
743 --
744 when others then
745 --
746 -- A validation or unexpected error has occured
747 --
748 ROLLBACK TO delete_elig_ttl_cvg_vol_prte;
749 --
750 p_effective_start_date := null;
751 p_effective_end_date := null;
752 p_object_version_number := l_object_version_number;
753 hr_utility.set_location(' Leaving:'||l_proc, 80);
754 --
755 raise;
756 --
757 end delete_elig_ttl_cvg_vol_prte;
758 --
759 -- ----------------------------------------------------------------------------
760 -- |-------------------------------< lck >------------------------------------|
761 -- ----------------------------------------------------------------------------
762 --
763 procedure lck
764 (
765 p_elig_ttl_cvg_vol_prte_id in number
766 ,p_object_version_number in number
767 ,p_effective_date in date
768 ,p_datetrack_mode in varchar2
769 ,p_validation_start_date out nocopy date
770 ,p_validation_end_date out nocopy date
771 ) is
772 --
773 --
774 -- Declare cursors and local variables
775 --
776 l_proc varchar2(72) := g_package||'lck';
777 l_validation_start_date date;
778 l_validation_end_date date;
779 --
780 begin
781 --
782 hr_utility.set_location('Entering:'|| l_proc, 10);
783 --
784 ben_etc_shd.lck
785 (
786 p_elig_ttl_cvg_vol_prte_id => p_elig_ttl_cvg_vol_prte_id
787 ,p_validation_start_date => l_validation_start_date
788 ,p_validation_end_date => l_validation_end_date
789 ,p_object_version_number => p_object_version_number
790 ,p_effective_date => p_effective_date
791 ,p_datetrack_mode => p_datetrack_mode
792 );
793 --
794 hr_utility.set_location(' Leaving:'||l_proc, 70);
795 --
796 end lck;
797 --
798 end ben_elig_ttl_cvg_vol_prte_api;