[Home] [Help]
PACKAGE BODY: APPS.BEN_LER_CHG_PTIP_ENRT_API
Source
1 Package Body ben_ler_chg_ptip_enrt_api as
2 /* $Header: belctapi.pkb 115.2 2002/12/31 23:59:27 mmudigon ship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' ben_ler_chg_ptip_enrt_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_ler_chg_ptip_enrt >----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_ler_chg_ptip_enrt
13 (p_validate in boolean default false
14 ,p_ler_chg_ptip_enrt_id out nocopy number
15 ,p_effective_start_date out nocopy date
16 ,p_effective_end_date out nocopy date
17 ,p_crnt_enrt_prclds_chg_flag in varchar2 default null
18 ,p_stl_elig_cant_chg_flag in varchar2 default null
19 ,p_dflt_flag in varchar2 default null
20 ,p_dflt_enrt_cd in varchar2 default null
21 ,p_dflt_enrt_rl in varchar2 default null
22 ,p_enrt_cd in varchar2 default null
23 ,p_enrt_mthd_cd in varchar2 default null
24 ,p_enrt_rl in varchar2 default null
25 ,p_tco_chg_enrt_cd in varchar2 default null
26 ,p_ptip_id in number default null
27 ,p_ler_id in number default null
28 ,p_business_group_id in number default null
29 ,p_lct_attribute_category in varchar2 default null
30 ,p_lct_attribute1 in varchar2 default null
31 ,p_lct_attribute2 in varchar2 default null
32 ,p_lct_attribute3 in varchar2 default null
33 ,p_lct_attribute4 in varchar2 default null
34 ,p_lct_attribute5 in varchar2 default null
35 ,p_lct_attribute6 in varchar2 default null
36 ,p_lct_attribute7 in varchar2 default null
37 ,p_lct_attribute8 in varchar2 default null
38 ,p_lct_attribute9 in varchar2 default null
39 ,p_lct_attribute10 in varchar2 default null
40 ,p_lct_attribute11 in varchar2 default null
41 ,p_lct_attribute12 in varchar2 default null
42 ,p_lct_attribute13 in varchar2 default null
43 ,p_lct_attribute14 in varchar2 default null
44 ,p_lct_attribute15 in varchar2 default null
45 ,p_lct_attribute16 in varchar2 default null
46 ,p_lct_attribute17 in varchar2 default null
47 ,p_lct_attribute18 in varchar2 default null
48 ,p_lct_attribute19 in varchar2 default null
49 ,p_lct_attribute20 in varchar2 default null
50 ,p_lct_attribute21 in varchar2 default null
51 ,p_lct_attribute22 in varchar2 default null
52 ,p_lct_attribute23 in varchar2 default null
53 ,p_lct_attribute24 in varchar2 default null
54 ,p_lct_attribute25 in varchar2 default null
55 ,p_lct_attribute26 in varchar2 default null
56 ,p_lct_attribute27 in varchar2 default null
57 ,p_lct_attribute28 in varchar2 default null
58 ,p_lct_attribute29 in varchar2 default null
59 ,p_lct_attribute30 in varchar2 default null
60 ,p_object_version_number out nocopy number
61 ,p_effective_date in date
62 ) is
63 --
64 -- Declare cursors and local variables
65 --
66 l_ler_chg_ptip_enrt_id ben_ler_chg_ptip_enrt_f.ler_chg_ptip_enrt_id%TYPE;
67 l_effective_start_date ben_ler_chg_ptip_enrt_f.effective_start_date%TYPE;
68 l_effective_end_date ben_ler_chg_ptip_enrt_f.effective_end_date%TYPE;
69 l_proc varchar2(72) := g_package||'create_ler_chg_ptip_enrt';
70 l_object_version_number ben_ler_chg_ptip_enrt_f.object_version_number%TYPE;
71 --
72 begin
73 --
74 hr_utility.set_location('Entering:'|| l_proc, 10);
75 --
76 -- Issue a savepoint if operating in validation only mode
77 --
78 savepoint create_ler_chg_ptip_enrt;
79 --
80 hr_utility.set_location(l_proc, 20);
81 --
82 -- Process Logic
83 --
84 begin
85 --
86 -- Start of API User Hook for the before hook of create_ler_chg_ptip_enrt
87 --
88 ben_ler_chg_ptip_enrt_bk1.create_ler_chg_ptip_enrt_b
89 (
90 p_crnt_enrt_prclds_chg_flag => p_crnt_enrt_prclds_chg_flag
91 ,p_stl_elig_cant_chg_flag => p_stl_elig_cant_chg_flag
92 ,p_dflt_flag => p_dflt_flag
93 ,p_dflt_enrt_cd => p_dflt_enrt_cd
94 ,p_dflt_enrt_rl => p_dflt_enrt_rl
95 ,p_enrt_cd => p_enrt_cd
96 ,p_enrt_mthd_cd => p_enrt_mthd_cd
97 ,p_enrt_rl => p_enrt_rl
98 ,p_tco_chg_enrt_cd => p_tco_chg_enrt_cd
99 ,p_ptip_id => p_ptip_id
100 ,p_ler_id => p_ler_id
101 ,p_business_group_id => p_business_group_id
102 ,p_lct_attribute_category => p_lct_attribute_category
103 ,p_lct_attribute1 => p_lct_attribute1
104 ,p_lct_attribute2 => p_lct_attribute2
105 ,p_lct_attribute3 => p_lct_attribute3
106 ,p_lct_attribute4 => p_lct_attribute4
107 ,p_lct_attribute5 => p_lct_attribute5
108 ,p_lct_attribute6 => p_lct_attribute6
109 ,p_lct_attribute7 => p_lct_attribute7
110 ,p_lct_attribute8 => p_lct_attribute8
111 ,p_lct_attribute9 => p_lct_attribute9
112 ,p_lct_attribute10 => p_lct_attribute10
113 ,p_lct_attribute11 => p_lct_attribute11
114 ,p_lct_attribute12 => p_lct_attribute12
115 ,p_lct_attribute13 => p_lct_attribute13
116 ,p_lct_attribute14 => p_lct_attribute14
117 ,p_lct_attribute15 => p_lct_attribute15
118 ,p_lct_attribute16 => p_lct_attribute16
119 ,p_lct_attribute17 => p_lct_attribute17
120 ,p_lct_attribute18 => p_lct_attribute18
121 ,p_lct_attribute19 => p_lct_attribute19
122 ,p_lct_attribute20 => p_lct_attribute20
123 ,p_lct_attribute21 => p_lct_attribute21
124 ,p_lct_attribute22 => p_lct_attribute22
125 ,p_lct_attribute23 => p_lct_attribute23
126 ,p_lct_attribute24 => p_lct_attribute24
127 ,p_lct_attribute25 => p_lct_attribute25
128 ,p_lct_attribute26 => p_lct_attribute26
129 ,p_lct_attribute27 => p_lct_attribute27
130 ,p_lct_attribute28 => p_lct_attribute28
131 ,p_lct_attribute29 => p_lct_attribute29
132 ,p_lct_attribute30 => p_lct_attribute30
133 ,p_effective_date => trunc(p_effective_date)
134 );
135 exception
136 when hr_api.cannot_find_prog_unit then
137 hr_api.cannot_find_prog_unit_error
138 (
139 p_module_name => 'CREATE_ler_chg_ptip_enrt'
140 ,p_hook_type => 'BP'
141 );
142 --
143 -- End of API User Hook for the before hook of create_ler_chg_ptip_enrt
144 --
145 end;
146 --
147 ben_lct_ins.ins
148 (
149 p_ler_chg_ptip_enrt_id => l_ler_chg_ptip_enrt_id
150 ,p_effective_start_date => l_effective_start_date
151 ,p_effective_end_date => l_effective_end_date
152 ,p_crnt_enrt_prclds_chg_flag => p_crnt_enrt_prclds_chg_flag
153 ,p_stl_elig_cant_chg_flag => p_stl_elig_cant_chg_flag
154 ,p_dflt_flag => p_dflt_flag
155 ,p_dflt_enrt_cd => p_dflt_enrt_cd
156 ,p_dflt_enrt_rl => p_dflt_enrt_rl
157 ,p_enrt_cd => p_enrt_cd
158 ,p_enrt_mthd_cd => p_enrt_mthd_cd
159 ,p_enrt_rl => p_enrt_rl
160 ,p_tco_chg_enrt_cd => p_tco_chg_enrt_cd
161 ,p_ptip_id => p_ptip_id
162 ,p_ler_id => p_ler_id
163 ,p_business_group_id => p_business_group_id
164 ,p_lct_attribute_category => p_lct_attribute_category
165 ,p_lct_attribute1 => p_lct_attribute1
166 ,p_lct_attribute2 => p_lct_attribute2
167 ,p_lct_attribute3 => p_lct_attribute3
168 ,p_lct_attribute4 => p_lct_attribute4
169 ,p_lct_attribute5 => p_lct_attribute5
170 ,p_lct_attribute6 => p_lct_attribute6
171 ,p_lct_attribute7 => p_lct_attribute7
172 ,p_lct_attribute8 => p_lct_attribute8
173 ,p_lct_attribute9 => p_lct_attribute9
174 ,p_lct_attribute10 => p_lct_attribute10
175 ,p_lct_attribute11 => p_lct_attribute11
176 ,p_lct_attribute12 => p_lct_attribute12
177 ,p_lct_attribute13 => p_lct_attribute13
178 ,p_lct_attribute14 => p_lct_attribute14
179 ,p_lct_attribute15 => p_lct_attribute15
180 ,p_lct_attribute16 => p_lct_attribute16
181 ,p_lct_attribute17 => p_lct_attribute17
182 ,p_lct_attribute18 => p_lct_attribute18
183 ,p_lct_attribute19 => p_lct_attribute19
184 ,p_lct_attribute20 => p_lct_attribute20
185 ,p_lct_attribute21 => p_lct_attribute21
186 ,p_lct_attribute22 => p_lct_attribute22
187 ,p_lct_attribute23 => p_lct_attribute23
188 ,p_lct_attribute24 => p_lct_attribute24
189 ,p_lct_attribute25 => p_lct_attribute25
190 ,p_lct_attribute26 => p_lct_attribute26
191 ,p_lct_attribute27 => p_lct_attribute27
192 ,p_lct_attribute28 => p_lct_attribute28
193 ,p_lct_attribute29 => p_lct_attribute29
194 ,p_lct_attribute30 => p_lct_attribute30
195 ,p_object_version_number => l_object_version_number
196 ,p_effective_date => trunc(p_effective_date)
197 );
198 --
199 begin
200 --
201 -- Start of API User Hook for the after hook of create_ler_chg_ptip_enrt
202 --
203 ben_ler_chg_ptip_enrt_bk1.create_ler_chg_ptip_enrt_a
204 (
205 p_ler_chg_ptip_enrt_id => l_ler_chg_ptip_enrt_id
206 ,p_effective_start_date => l_effective_start_date
207 ,p_effective_end_date => l_effective_end_date
208 ,p_crnt_enrt_prclds_chg_flag => p_crnt_enrt_prclds_chg_flag
209 ,p_stl_elig_cant_chg_flag => p_stl_elig_cant_chg_flag
210 ,p_dflt_flag => p_dflt_flag
211 ,p_dflt_enrt_cd => p_dflt_enrt_cd
212 ,p_dflt_enrt_rl => p_dflt_enrt_rl
213 ,p_enrt_cd => p_enrt_cd
214 ,p_enrt_mthd_cd => p_enrt_mthd_cd
215 ,p_enrt_rl => p_enrt_rl
216 ,p_tco_chg_enrt_cd => p_tco_chg_enrt_cd
217 ,p_ptip_id => p_ptip_id
218 ,p_ler_id => p_ler_id
219 ,p_business_group_id => p_business_group_id
220 ,p_lct_attribute_category => p_lct_attribute_category
221 ,p_lct_attribute1 => p_lct_attribute1
222 ,p_lct_attribute2 => p_lct_attribute2
223 ,p_lct_attribute3 => p_lct_attribute3
224 ,p_lct_attribute4 => p_lct_attribute4
225 ,p_lct_attribute5 => p_lct_attribute5
226 ,p_lct_attribute6 => p_lct_attribute6
227 ,p_lct_attribute7 => p_lct_attribute7
228 ,p_lct_attribute8 => p_lct_attribute8
229 ,p_lct_attribute9 => p_lct_attribute9
230 ,p_lct_attribute10 => p_lct_attribute10
231 ,p_lct_attribute11 => p_lct_attribute11
232 ,p_lct_attribute12 => p_lct_attribute12
233 ,p_lct_attribute13 => p_lct_attribute13
234 ,p_lct_attribute14 => p_lct_attribute14
235 ,p_lct_attribute15 => p_lct_attribute15
236 ,p_lct_attribute16 => p_lct_attribute16
237 ,p_lct_attribute17 => p_lct_attribute17
238 ,p_lct_attribute18 => p_lct_attribute18
239 ,p_lct_attribute19 => p_lct_attribute19
240 ,p_lct_attribute20 => p_lct_attribute20
241 ,p_lct_attribute21 => p_lct_attribute21
242 ,p_lct_attribute22 => p_lct_attribute22
243 ,p_lct_attribute23 => p_lct_attribute23
244 ,p_lct_attribute24 => p_lct_attribute24
245 ,p_lct_attribute25 => p_lct_attribute25
246 ,p_lct_attribute26 => p_lct_attribute26
247 ,p_lct_attribute27 => p_lct_attribute27
248 ,p_lct_attribute28 => p_lct_attribute28
249 ,p_lct_attribute29 => p_lct_attribute29
250 ,p_lct_attribute30 => p_lct_attribute30
251 ,p_object_version_number => l_object_version_number
252 ,p_effective_date => trunc(p_effective_date)
253 );
254 exception
255 when hr_api.cannot_find_prog_unit then
256 hr_api.cannot_find_prog_unit_error
257 (p_module_name => 'CREATE_ler_chg_ptip_enrt'
258 ,p_hook_type => 'AP'
259 );
260 --
261 -- End of API User Hook for the after hook of create_ler_chg_ptip_enrt
262 --
263 end;
264 --
265 hr_utility.set_location(l_proc, 60);
266 --
267 -- When in validation only mode raise the Validate_Enabled exception
268 --
269 if p_validate then
270 raise hr_api.validate_enabled;
271 end if;
272 --
273 -- Set all output arguments
274 --
275 p_ler_chg_ptip_enrt_id := l_ler_chg_ptip_enrt_id;
276 p_effective_start_date := l_effective_start_date;
277 p_effective_end_date := l_effective_end_date;
278 p_object_version_number := l_object_version_number;
279 --
280 hr_utility.set_location(' Leaving:'||l_proc, 70);
281 --
282 exception
283 --
284 when hr_api.validate_enabled then
285 --
286 -- As the Validate_Enabled exception has been raised
287 -- we must rollback to the savepoint
288 --
289 ROLLBACK TO create_ler_chg_ptip_enrt;
290 --
291 -- Only set output warning arguments
292 -- (Any key or derived arguments must be set to null
293 -- when validation only mode is being used.)
294 --
295 p_ler_chg_ptip_enrt_id := null;
296 p_effective_start_date := null;
297 p_effective_end_date := null;
298 p_object_version_number := null;
299 hr_utility.set_location(' Leaving:'||l_proc, 80);
300 --
301 when others then
302 --
303 -- A validation or unexpected error has occured
304 --
305 ROLLBACK TO create_ler_chg_ptip_enrt;
306 raise;
307 --
308 end create_ler_chg_ptip_enrt;
309 -- ----------------------------------------------------------------------------
310 -- |------------------------< update_ler_chg_ptip_enrt >--- ------------------|
311 -- ----------------------------------------------------------------------------
312 --
313 procedure update_ler_chg_ptip_enrt
314 (p_validate in boolean default false
315 ,p_ler_chg_ptip_enrt_id in number
316 ,p_effective_start_date out nocopy date
317 ,p_effective_end_date out nocopy date
318 ,p_crnt_enrt_prclds_chg_flag in varchar2 default hr_api.g_varchar2
319 ,p_stl_elig_cant_chg_flag in varchar2 default hr_api.g_varchar2
320 ,p_dflt_flag in varchar2 default hr_api.g_varchar2
321 ,p_dflt_enrt_cd in varchar2 default hr_api.g_varchar2
322 ,p_dflt_enrt_rl in varchar2 default hr_api.g_varchar2
323 ,p_enrt_cd in varchar2 default hr_api.g_varchar2
324 ,p_enrt_mthd_cd in varchar2 default hr_api.g_varchar2
325 ,p_enrt_rl in varchar2 default hr_api.g_varchar2
326 ,p_tco_chg_enrt_cd in varchar2 default hr_api.g_varchar2
327 ,p_ptip_id in number default hr_api.g_number
328 ,p_ler_id in number default hr_api.g_number
329 ,p_business_group_id in number default hr_api.g_number
330 ,p_lct_attribute_category in varchar2 default hr_api.g_varchar2
331 ,p_lct_attribute1 in varchar2 default hr_api.g_varchar2
332 ,p_lct_attribute2 in varchar2 default hr_api.g_varchar2
333 ,p_lct_attribute3 in varchar2 default hr_api.g_varchar2
334 ,p_lct_attribute4 in varchar2 default hr_api.g_varchar2
335 ,p_lct_attribute5 in varchar2 default hr_api.g_varchar2
336 ,p_lct_attribute6 in varchar2 default hr_api.g_varchar2
337 ,p_lct_attribute7 in varchar2 default hr_api.g_varchar2
338 ,p_lct_attribute8 in varchar2 default hr_api.g_varchar2
339 ,p_lct_attribute9 in varchar2 default hr_api.g_varchar2
340 ,p_lct_attribute10 in varchar2 default hr_api.g_varchar2
341 ,p_lct_attribute11 in varchar2 default hr_api.g_varchar2
342 ,p_lct_attribute12 in varchar2 default hr_api.g_varchar2
343 ,p_lct_attribute13 in varchar2 default hr_api.g_varchar2
344 ,p_lct_attribute14 in varchar2 default hr_api.g_varchar2
345 ,p_lct_attribute15 in varchar2 default hr_api.g_varchar2
346 ,p_lct_attribute16 in varchar2 default hr_api.g_varchar2
347 ,p_lct_attribute17 in varchar2 default hr_api.g_varchar2
348 ,p_lct_attribute18 in varchar2 default hr_api.g_varchar2
349 ,p_lct_attribute19 in varchar2 default hr_api.g_varchar2
350 ,p_lct_attribute20 in varchar2 default hr_api.g_varchar2
351 ,p_lct_attribute21 in varchar2 default hr_api.g_varchar2
352 ,p_lct_attribute22 in varchar2 default hr_api.g_varchar2
353 ,p_lct_attribute23 in varchar2 default hr_api.g_varchar2
354 ,p_lct_attribute24 in varchar2 default hr_api.g_varchar2
355 ,p_lct_attribute25 in varchar2 default hr_api.g_varchar2
356 ,p_lct_attribute26 in varchar2 default hr_api.g_varchar2
357 ,p_lct_attribute27 in varchar2 default hr_api.g_varchar2
358 ,p_lct_attribute28 in varchar2 default hr_api.g_varchar2
359 ,p_lct_attribute29 in varchar2 default hr_api.g_varchar2
360 ,p_lct_attribute30 in varchar2 default hr_api.g_varchar2
361 ,p_object_version_number in out nocopy number
362 ,p_effective_date in date
363 ,p_datetrack_mode in varchar2
364 ) is
365 --
366 -- Declare cursors and local variables
367 --
368 l_proc varchar2(72) := g_package||'update_ler_chg_ptip_enrt';
369 l_object_version_number ben_ler_chg_ptip_enrt_f.object_version_number%TYPE;
370 l_effective_start_date ben_ler_chg_ptip_enrt_f.effective_start_date%TYPE;
371 l_effective_end_date ben_ler_chg_ptip_enrt_f.effective_end_date%TYPE;
372 --
373 begin
374 --
375 hr_utility.set_location('Entering:'|| l_proc, 10);
376 --
377 -- Issue a savepoint if operating in validation only mode
378 --
379 savepoint update_ler_chg_ptip_enrt;
380 --
381 hr_utility.set_location(l_proc, 20);
382 --
383 -- Process Logic
384 --
385 l_object_version_number := p_object_version_number;
386 --
387 begin
388 --
389 -- Start of API User Hook for the before hook of update_ler_chg_ptip_enrt
390 --
391 ben_ler_chg_ptip_enrt_bk2.update_ler_chg_ptip_enrt_b
392 (
393 p_ler_chg_ptip_enrt_id => p_ler_chg_ptip_enrt_id
394 ,p_crnt_enrt_prclds_chg_flag => p_crnt_enrt_prclds_chg_flag
395 ,p_stl_elig_cant_chg_flag => p_stl_elig_cant_chg_flag
396 ,p_dflt_flag => p_dflt_flag
397 ,p_dflt_enrt_cd => p_dflt_enrt_cd
398 ,p_dflt_enrt_rl => p_dflt_enrt_rl
399 ,p_enrt_cd => p_enrt_cd
400 ,p_enrt_mthd_cd => p_enrt_mthd_cd
401 ,p_enrt_rl => p_enrt_rl
402 ,p_tco_chg_enrt_cd => p_tco_chg_enrt_cd
403 ,p_ptip_id => p_ptip_id
404 ,p_ler_id => p_ler_id
405 ,p_business_group_id => p_business_group_id
406 ,p_lct_attribute_category => p_lct_attribute_category
407 ,p_lct_attribute1 => p_lct_attribute1
408 ,p_lct_attribute2 => p_lct_attribute2
409 ,p_lct_attribute3 => p_lct_attribute3
410 ,p_lct_attribute4 => p_lct_attribute4
411 ,p_lct_attribute5 => p_lct_attribute5
412 ,p_lct_attribute6 => p_lct_attribute6
413 ,p_lct_attribute7 => p_lct_attribute7
414 ,p_lct_attribute8 => p_lct_attribute8
415 ,p_lct_attribute9 => p_lct_attribute9
416 ,p_lct_attribute10 => p_lct_attribute10
417 ,p_lct_attribute11 => p_lct_attribute11
418 ,p_lct_attribute12 => p_lct_attribute12
419 ,p_lct_attribute13 => p_lct_attribute13
420 ,p_lct_attribute14 => p_lct_attribute14
421 ,p_lct_attribute15 => p_lct_attribute15
422 ,p_lct_attribute16 => p_lct_attribute16
423 ,p_lct_attribute17 => p_lct_attribute17
424 ,p_lct_attribute18 => p_lct_attribute18
425 ,p_lct_attribute19 => p_lct_attribute19
426 ,p_lct_attribute20 => p_lct_attribute20
427 ,p_lct_attribute21 => p_lct_attribute21
428 ,p_lct_attribute22 => p_lct_attribute22
429 ,p_lct_attribute23 => p_lct_attribute23
430 ,p_lct_attribute24 => p_lct_attribute24
431 ,p_lct_attribute25 => p_lct_attribute25
432 ,p_lct_attribute26 => p_lct_attribute26
433 ,p_lct_attribute27 => p_lct_attribute27
434 ,p_lct_attribute28 => p_lct_attribute28
435 ,p_lct_attribute29 => p_lct_attribute29
436 ,p_lct_attribute30 => p_lct_attribute30
437 ,p_object_version_number => p_object_version_number
438 ,p_effective_date => trunc(p_effective_date)
439 ,p_datetrack_mode => p_datetrack_mode
440 );
441 exception
442 when hr_api.cannot_find_prog_unit then
443 hr_api.cannot_find_prog_unit_error
444 (p_module_name => 'UPDATE_ler_chg_ptip_enrt'
445 ,p_hook_type => 'BP'
446 );
447 --
448 -- End of API User Hook for the before hook of update_ler_chg_ptip_enrt
449 --
450 end;
451 --
452 ben_lct_upd.upd
453 (
454 p_ler_chg_ptip_enrt_id => p_ler_chg_ptip_enrt_id
455 ,p_effective_start_date => l_effective_start_date
456 ,p_effective_end_date => l_effective_end_date
457 ,p_crnt_enrt_prclds_chg_flag => p_crnt_enrt_prclds_chg_flag
458 ,p_stl_elig_cant_chg_flag => p_stl_elig_cant_chg_flag
459 ,p_dflt_flag => p_dflt_flag
460 ,p_dflt_enrt_cd => p_dflt_enrt_cd
461 ,p_dflt_enrt_rl => p_dflt_enrt_rl
462 ,p_enrt_cd => p_enrt_cd
463 ,p_enrt_mthd_cd => p_enrt_mthd_cd
464 ,p_enrt_rl => p_enrt_rl
465 ,p_tco_chg_enrt_cd => p_tco_chg_enrt_cd
466 ,p_ptip_id => p_ptip_id
467 ,p_ler_id => p_ler_id
468 ,p_business_group_id => p_business_group_id
469 ,p_lct_attribute_category => p_lct_attribute_category
470 ,p_lct_attribute1 => p_lct_attribute1
471 ,p_lct_attribute2 => p_lct_attribute2
472 ,p_lct_attribute3 => p_lct_attribute3
473 ,p_lct_attribute4 => p_lct_attribute4
474 ,p_lct_attribute5 => p_lct_attribute5
475 ,p_lct_attribute6 => p_lct_attribute6
476 ,p_lct_attribute7 => p_lct_attribute7
477 ,p_lct_attribute8 => p_lct_attribute8
478 ,p_lct_attribute9 => p_lct_attribute9
479 ,p_lct_attribute10 => p_lct_attribute10
480 ,p_lct_attribute11 => p_lct_attribute11
481 ,p_lct_attribute12 => p_lct_attribute12
482 ,p_lct_attribute13 => p_lct_attribute13
483 ,p_lct_attribute14 => p_lct_attribute14
484 ,p_lct_attribute15 => p_lct_attribute15
485 ,p_lct_attribute16 => p_lct_attribute16
486 ,p_lct_attribute17 => p_lct_attribute17
487 ,p_lct_attribute18 => p_lct_attribute18
488 ,p_lct_attribute19 => p_lct_attribute19
489 ,p_lct_attribute20 => p_lct_attribute20
490 ,p_lct_attribute21 => p_lct_attribute21
491 ,p_lct_attribute22 => p_lct_attribute22
492 ,p_lct_attribute23 => p_lct_attribute23
493 ,p_lct_attribute24 => p_lct_attribute24
494 ,p_lct_attribute25 => p_lct_attribute25
495 ,p_lct_attribute26 => p_lct_attribute26
496 ,p_lct_attribute27 => p_lct_attribute27
497 ,p_lct_attribute28 => p_lct_attribute28
498 ,p_lct_attribute29 => p_lct_attribute29
499 ,p_lct_attribute30 => p_lct_attribute30
500 ,p_object_version_number => l_object_version_number
501 ,p_effective_date => trunc(p_effective_date)
502 ,p_datetrack_mode => p_datetrack_mode
503 );
504 --
505 begin
506 --
507 -- Start of API User Hook for the after hook of update_ler_chg_ptip_enrt
508 --
509 ben_ler_chg_ptip_enrt_bk2.update_ler_chg_ptip_enrt_a
510 (
511 p_ler_chg_ptip_enrt_id => p_ler_chg_ptip_enrt_id
512 ,p_effective_start_date => l_effective_start_date
513 ,p_effective_end_date => l_effective_end_date
514 ,p_crnt_enrt_prclds_chg_flag => p_crnt_enrt_prclds_chg_flag
515 ,p_stl_elig_cant_chg_flag => p_stl_elig_cant_chg_flag
516 ,p_dflt_flag => p_dflt_flag
517 ,p_dflt_enrt_cd => p_dflt_enrt_cd
518 ,p_dflt_enrt_rl => p_dflt_enrt_rl
519 ,p_enrt_cd => p_enrt_cd
520 ,p_enrt_mthd_cd => p_enrt_mthd_cd
521 ,p_enrt_rl => p_enrt_rl
522 ,p_tco_chg_enrt_cd => p_tco_chg_enrt_cd
523 ,p_ptip_id => p_ptip_id
524 ,p_ler_id => p_ler_id
525 ,p_business_group_id => p_business_group_id
526 ,p_lct_attribute_category => p_lct_attribute_category
527 ,p_lct_attribute1 => p_lct_attribute1
528 ,p_lct_attribute2 => p_lct_attribute2
529 ,p_lct_attribute3 => p_lct_attribute3
530 ,p_lct_attribute4 => p_lct_attribute4
531 ,p_lct_attribute5 => p_lct_attribute5
532 ,p_lct_attribute6 => p_lct_attribute6
533 ,p_lct_attribute7 => p_lct_attribute7
534 ,p_lct_attribute8 => p_lct_attribute8
535 ,p_lct_attribute9 => p_lct_attribute9
536 ,p_lct_attribute10 => p_lct_attribute10
537 ,p_lct_attribute11 => p_lct_attribute11
538 ,p_lct_attribute12 => p_lct_attribute12
539 ,p_lct_attribute13 => p_lct_attribute13
540 ,p_lct_attribute14 => p_lct_attribute14
541 ,p_lct_attribute15 => p_lct_attribute15
542 ,p_lct_attribute16 => p_lct_attribute16
543 ,p_lct_attribute17 => p_lct_attribute17
544 ,p_lct_attribute18 => p_lct_attribute18
545 ,p_lct_attribute19 => p_lct_attribute19
546 ,p_lct_attribute20 => p_lct_attribute20
547 ,p_lct_attribute21 => p_lct_attribute21
548 ,p_lct_attribute22 => p_lct_attribute22
549 ,p_lct_attribute23 => p_lct_attribute23
550 ,p_lct_attribute24 => p_lct_attribute24
551 ,p_lct_attribute25 => p_lct_attribute25
552 ,p_lct_attribute26 => p_lct_attribute26
553 ,p_lct_attribute27 => p_lct_attribute27
554 ,p_lct_attribute28 => p_lct_attribute28
555 ,p_lct_attribute29 => p_lct_attribute29
556 ,p_lct_attribute30 => p_lct_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_ler_chg_ptip_enrt'
565 ,p_hook_type => 'AP'
566 );
567 --
568 -- End of API User Hook for the after hook of update_ler_chg_ptip_enrt
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_ler_chg_ptip_enrt;
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_ler_chg_ptip_enrt;
608 /* Inserted for nocopy changes */
609 p_object_version_number := l_object_version_number;
610 p_effective_start_date := null;
611 p_effective_end_date := null;
612 raise;
613 --
614 end update_ler_chg_ptip_enrt;
615 -- ----------------------------------------------------------------------------
616 -- |------------------------< delete_ler_chg_ptip_enrt >----------------------|
617 -- ----------------------------------------------------------------------------
618 --
619 procedure delete_ler_chg_ptip_enrt
620 (p_validate in boolean default false
621 ,p_ler_chg_ptip_enrt_id in number
622 ,p_effective_start_date out nocopy date
623 ,p_effective_end_date out nocopy date
624 ,p_object_version_number in out nocopy number
625 ,p_effective_date in date
626 ,p_datetrack_mode in varchar2
627 ) is
628 --
629 -- Declare cursors and local variables
630 --
631 l_proc varchar2(72) := g_package||'update_ler_chg_ptip_enrt';
632 l_object_version_number ben_ler_chg_ptip_enrt_f.object_version_number%TYPE;
633 l_effective_start_date ben_ler_chg_ptip_enrt_f.effective_start_date%TYPE;
634 l_effective_end_date ben_ler_chg_ptip_enrt_f.effective_end_date%TYPE;
635 --
636 begin
637 --
638 hr_utility.set_location('Entering:'|| l_proc, 10);
639 --
640 -- Issue a savepoint if operating in validation only mode
641 --
642 savepoint delete_ler_chg_ptip_enrt;
643 --
644 hr_utility.set_location(l_proc, 20);
645 --
646 -- Process Logic
647 --
648 l_object_version_number := p_object_version_number;
649 --
650 --
651 begin
652 --
653 -- Start of API User Hook for the before hook of delete_ler_chg_ptip_enrt
654 --
655 ben_ler_chg_ptip_enrt_bk3.delete_ler_chg_ptip_enrt_b
656 (
657 p_ler_chg_ptip_enrt_id => p_ler_chg_ptip_enrt_id
658 ,p_object_version_number => p_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_ler_chg_ptip_enrt'
666 ,p_hook_type => 'BP'
667 );
668 --
669 -- End of API User Hook for the before hook of delete_ler_chg_ptip_enrt
670 --
671 end;
672 --
673 ben_lct_del.del
674 (
675 p_ler_chg_ptip_enrt_id => p_ler_chg_ptip_enrt_id
676 ,p_effective_start_date => l_effective_start_date
677 ,p_effective_end_date => l_effective_end_date
678 ,p_object_version_number => l_object_version_number
679 ,p_effective_date => p_effective_date
680 ,p_datetrack_mode => p_datetrack_mode
681 );
682 --
683 begin
684 --
685 -- Start of API User Hook for the after hook of delete_ler_chg_ptip_enrt
686 --
687 ben_ler_chg_ptip_enrt_bk3.delete_ler_chg_ptip_enrt_a
688 (
689 p_ler_chg_ptip_enrt_id => p_ler_chg_ptip_enrt_id
690 ,p_effective_start_date => l_effective_start_date
691 ,p_effective_end_date => l_effective_end_date
692 ,p_object_version_number => l_object_version_number
693 ,p_effective_date => trunc(p_effective_date)
694 ,p_datetrack_mode => p_datetrack_mode
695 );
696 exception
697 when hr_api.cannot_find_prog_unit then
698 hr_api.cannot_find_prog_unit_error
699 (p_module_name => 'DELETE_ler_chg_ptip_enrt'
700 ,p_hook_type => 'AP'
701 );
702 --
703 -- End of API User Hook for the after hook of delete_ler_chg_ptip_enrt
704 --
705 end;
706 --
707 hr_utility.set_location(l_proc, 60);
708 --
709 -- When in validation only mode raise the Validate_Enabled exception
710 --
711 if p_validate then
712 raise hr_api.validate_enabled;
713 end if;
714 --
715 hr_utility.set_location(' Leaving:'||l_proc, 70);
716 --
717 exception
718 --
719 when hr_api.validate_enabled then
720 --
721 -- As the Validate_Enabled exception has been raised
722 -- we must rollback to the savepoint
723 --
724 ROLLBACK TO delete_ler_chg_ptip_enrt;
725 --
726 -- Only set output warning arguments
727 -- (Any key or derived arguments must be set to null
728 -- when validation only mode is being used.)
729 --
730 p_effective_start_date := null;
731 p_effective_end_date := null;
732 --
733 when others then
734 --
735 -- A validation or unexpected error has occured
736 --
737 ROLLBACK TO delete_ler_chg_ptip_enrt;
738 /* Inserted for nocopy changes */
739 p_object_version_number := l_object_version_number;
740 p_effective_start_date := null;
741 p_effective_end_date := null;
742 raise;
743 --
744 end delete_ler_chg_ptip_enrt;
745 --
746 -- ----------------------------------------------------------------------------
747 -- |-------------------------------< lck >------------------------------------|
748 -- ----------------------------------------------------------------------------
749 --
750 procedure lck
751 (
752 p_ler_chg_ptip_enrt_id in number
753 ,p_object_version_number in number
754 ,p_effective_date in date
755 ,p_datetrack_mode in varchar2
756 ,p_validation_start_date out nocopy date
757 ,p_validation_end_date out nocopy date
758 ) is
759 --
760 --
761 -- Declare cursors and local variables
762 --
763 l_proc varchar2(72) := g_package||'lck';
764 l_validation_start_date date;
765 l_validation_end_date date;
766 --
767 begin
768 --
769 hr_utility.set_location('Entering:'|| l_proc, 10);
770 --
771 ben_lct_shd.lck
772 (
773 p_ler_chg_ptip_enrt_id => p_ler_chg_ptip_enrt_id
774 ,p_validation_start_date => l_validation_start_date
775 ,p_validation_end_date => l_validation_end_date
776 ,p_object_version_number => p_object_version_number
777 ,p_effective_date => p_effective_date
778 ,p_datetrack_mode => p_datetrack_mode
779 );
780 --
781 hr_utility.set_location(' Leaving:'||l_proc, 70);
782 --
783 end lck;
784 --
785 end ben_ler_chg_ptip_enrt_api;