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