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