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