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