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