1 Package Body ben_len_upd as
2 /* $Header: belenrhi.pkb 120.2.12020000.2 2012/07/03 12:12:43 amnaraya ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_len_upd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |----------------------------< dt_update_dml >-----------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 -- This procedure controls the execution of dml from the datetrack mode
17 -- of CORRECTION only. It is important to note that the object version
18 -- number is only increment by 1 because the datetrack correction is
19 -- soley for one datetracked row.
20 -- This procedure controls the actual dml update logic. The functions of this
21 -- procedure are as follows:
22 -- 1) Get the next object_version_number.
23 -- 2) To set and unset the g_api_dml status as required (as we are about to
24 -- perform dml).
25 -- 3) To update the specified row in the schema using the primary key in
26 -- the predicates.
27 -- 4) To trap any constraint violations that may have occurred.
28 -- 5) To raise any other errors.
29 --
30 -- Prerequisites:
31 -- This is an internal private procedure which must be called from the
32 -- update_dml procedure.
33 --
34 -- In Parameters:
35 -- A Pl/Sql record structre.
36 --
37 -- Post Success:
38 -- The specified row will be updated in the schema.
39 --
40 -- Post Failure:
41 -- On the update dml failure it is important to note that we always reset the
42 -- g_api_dml status to false.
43 -- If a check or unique integrity constraint violation is raised the
44 -- constraint_error procedure will be called.
45 -- If any other error is reported, the error will be raised after the
46 -- g_api_dml status is reset.
47 --
48 -- Developer Implementation Notes:
49 -- The update 'set' arguments list should be modified if any of your
50 -- attributes are not updateable.
51 --
52 -- Access Status:
53 -- Internal Row Handler Use Only.
54 --
55 -- {End Of Comments}
56 -- ----------------------------------------------------------------------------
57 Procedure dt_update_dml
58 (p_rec in out nocopy ben_len_shd.g_rec_type,
59 p_effective_date in date,
60 p_datetrack_mode in varchar2,
61 p_validation_start_date in date,
62 p_validation_end_date in date) is
63 --
64 l_proc varchar2(72) := g_package||'dt_update_dml';
65 --
66 Begin
67 hr_utility.set_location('Entering:'||l_proc, 5);
68 --
69 If (p_datetrack_mode = 'CORRECTION') then
70 hr_utility.set_location(l_proc, 10);
71 --
72 -- Because we are updating a row we must get the next object
73 -- version number.
74 --
75 p_rec.object_version_number :=
76 dt_api.get_object_version_number
77 (p_base_table_name => 'ben_lee_rsn_f',
78 p_base_key_column => 'lee_rsn_id',
79 p_base_key_value => p_rec.lee_rsn_id);
80 --
81 ben_len_shd.g_api_dml := true; -- Set the api dml status
82 --
83 -- Update the ben_lee_rsn_f Row
84 --
85 update ben_lee_rsn_f
86 set
87 lee_rsn_id = p_rec.lee_rsn_id,
88 business_group_id = p_rec.business_group_id,
89 popl_enrt_typ_cycl_id = p_rec.popl_enrt_typ_cycl_id,
90 ler_id = p_rec.ler_id,
91 cls_enrt_dt_to_use_cd = p_rec.cls_enrt_dt_to_use_cd,
92 dys_aftr_end_to_dflt_num = p_rec.dys_aftr_end_to_dflt_num,
93 enrt_cvg_end_dt_cd = p_rec.enrt_cvg_end_dt_cd,
94 enrt_cvg_strt_dt_cd = p_rec.enrt_cvg_strt_dt_cd,
95 enrt_perd_strt_dt_cd = p_rec.enrt_perd_strt_dt_cd,
96 enrt_perd_strt_dt_rl = p_rec.enrt_perd_strt_dt_rl,
97 enrt_perd_end_dt_cd = p_rec.enrt_perd_end_dt_cd,
98 enrt_perd_end_dt_rl = p_rec.enrt_perd_end_dt_rl,
99 addl_procg_dys_num = p_rec.addl_procg_dys_num,
100 dys_no_enrl_not_elig_num = p_rec.dys_no_enrl_not_elig_num,
101 dys_no_enrl_cant_enrl_num = p_rec.dys_no_enrl_cant_enrl_num,
102 rt_end_dt_cd = p_rec.rt_end_dt_cd,
103 rt_end_dt_rl = p_rec.rt_end_dt_rl,
104 rt_strt_dt_cd = p_rec.rt_strt_dt_cd,
105 rt_strt_dt_rl = p_rec.rt_strt_dt_rl,
106 enrt_cvg_end_dt_rl = p_rec.enrt_cvg_end_dt_rl,
107 enrt_cvg_strt_dt_rl = p_rec.enrt_cvg_strt_dt_rl,
108 len_attribute_category = p_rec.len_attribute_category,
109 len_attribute1 = p_rec.len_attribute1,
110 len_attribute2 = p_rec.len_attribute2,
111 len_attribute3 = p_rec.len_attribute3,
112 len_attribute4 = p_rec.len_attribute4,
113 len_attribute5 = p_rec.len_attribute5,
114 len_attribute6 = p_rec.len_attribute6,
115 len_attribute7 = p_rec.len_attribute7,
116 len_attribute8 = p_rec.len_attribute8,
117 len_attribute9 = p_rec.len_attribute9,
118 len_attribute10 = p_rec.len_attribute10,
119 len_attribute11 = p_rec.len_attribute11,
120 len_attribute12 = p_rec.len_attribute12,
121 len_attribute13 = p_rec.len_attribute13,
122 len_attribute14 = p_rec.len_attribute14,
123 len_attribute15 = p_rec.len_attribute15,
124 len_attribute16 = p_rec.len_attribute16,
125 len_attribute17 = p_rec.len_attribute17,
126 len_attribute18 = p_rec.len_attribute18,
127 len_attribute19 = p_rec.len_attribute19,
128 len_attribute20 = p_rec.len_attribute20,
129 len_attribute21 = p_rec.len_attribute21,
130 len_attribute22 = p_rec.len_attribute22,
131 len_attribute23 = p_rec.len_attribute23,
132 len_attribute24 = p_rec.len_attribute24,
133 len_attribute25 = p_rec.len_attribute25,
134 len_attribute26 = p_rec.len_attribute26,
135 len_attribute27 = p_rec.len_attribute27,
136 len_attribute28 = p_rec.len_attribute28,
137 len_attribute29 = p_rec.len_attribute29,
138 len_attribute30 = p_rec.len_attribute30,
139 object_version_number = p_rec.object_version_number ,
140 enrt_perd_det_ovrlp_bckdt_cd = p_rec.enrt_perd_det_ovrlp_bckdt_cd,
141 reinstate_cd = p_rec.reinstate_cd,
142 reinstate_ovrdn_cd = p_rec.reinstate_ovrdn_cd ,
143 reopen_le_on_reprocess = p_rec.reopen_le_on_reprocess ,
144 ENRT_PERD_STRT_DAYS = p_rec.ENRT_PERD_STRT_DAYS,
145 ENRT_PERD_END_DAYS = p_rec.ENRT_PERD_END_DAYS,
146 defer_deenrol_flag = p_rec.defer_deenrol_flag
147 where lee_rsn_id = p_rec.lee_rsn_id
148 and effective_start_date = p_validation_start_date
149 and effective_end_date = p_validation_end_date;
150 --
151 ben_len_shd.g_api_dml := false; -- Unset the api dml status
152 --
153 -- Set the effective start and end dates
154 --
155 p_rec.effective_start_date := p_validation_start_date;
156 p_rec.effective_end_date := p_validation_end_date;
157 End If;
158 --
159 hr_utility.set_location(' Leaving:'||l_proc, 15);
160 Exception
161 When hr_api.check_integrity_violated Then
162 -- A check constraint has been violated
163 ben_len_shd.g_api_dml := false; -- Unset the api dml status
164 ben_len_shd.constraint_error
165 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
166 When hr_api.unique_integrity_violated Then
167 -- Unique integrity has been violated
168 ben_len_shd.g_api_dml := false; -- Unset the api dml status
169 ben_len_shd.constraint_error
170 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
171 When Others Then
172 ben_len_shd.g_api_dml := false; -- Unset the api dml status
173 Raise;
174 End dt_update_dml;
175 --
176 -- ----------------------------------------------------------------------------
177 -- |------------------------------< update_dml >------------------------------|
178 -- ----------------------------------------------------------------------------
179 -- {Start Of Comments}
180 --
181 -- Description:
182 -- This procedure calls the dt_update_dml control logic which handles
183 -- the actual datetrack dml.
184 --
185 -- Prerequisites:
186 -- This is an internal private procedure which must be called from the upd
187 -- procedure.
188 --
189 -- In Parameters:
190 -- A Pl/Sql record structre.
191 --
192 -- Post Success:
193 -- Processing contines.
194 --
195 -- Post Failure:
196 -- No specific error handling is required within this procedure.
197 --
198 -- Developer Implementation Notes:
199 -- The update 'set' arguments list should be modified if any of your
200 -- attributes are not updateable.
201 --
202 -- Access Status:
203 -- Internal Row Handler Use Only.
204 --
205 -- {End Of Comments}
206 -- ----------------------------------------------------------------------------
207 Procedure update_dml
208 (p_rec in out nocopy ben_len_shd.g_rec_type,
209 p_effective_date in date,
210 p_datetrack_mode in varchar2,
211 p_validation_start_date in date,
212 p_validation_end_date in date) is
213 --
214 l_proc varchar2(72) := g_package||'update_dml';
215 --
216 Begin
217 hr_utility.set_location('Entering:'||l_proc, 5);
218 --
219 dt_update_dml(p_rec => p_rec,
220 p_effective_date => p_effective_date,
221 p_datetrack_mode => p_datetrack_mode,
222 p_validation_start_date => p_validation_start_date,
223 p_validation_end_date => p_validation_end_date);
224 --
225 hr_utility.set_location(' Leaving:'||l_proc, 10);
226 End update_dml;
227 --
228 -- ----------------------------------------------------------------------------
229 -- |----------------------------< dt_pre_update >-----------------------------|
230 -- ----------------------------------------------------------------------------
231 -- {Start Of Comments}
232 --
233 -- Description:
234 -- The dt_pre_update procedure controls the execution
235 -- of dml for the datetrack modes of: UPDATE, UPDATE_OVERRIDE
236 -- and UPDATE_CHANGE_INSERT only. The execution required is as
237 -- follows:
238 --
239 -- 1) Providing the datetrack update mode is not 'CORRECTION'
240 -- then set the effective end date of the current row (this
241 -- will be the validation_start_date - 1).
242 -- 2) If the datetrack mode is 'UPDATE_OVERRIDE' then call the
243 -- corresponding delete_dml process to delete any future rows
244 -- where the effective_start_date is greater than or equal to
245 -- the validation_start_date.
246 -- 3) Call the insert_dml process to insert the new updated row
247 -- details..
248 --
249 -- Prerequisites:
250 -- This is an internal procedure which is called from the
251 -- pre_update procedure.
252 --
253 -- In Parameters:
254 --
255 -- Post Success:
256 -- Processing continues.
257 --
258 -- Post Failure:
259 -- If an error has occurred, an error message and exception will be raised
260 -- but not handled.
261 --
262 -- Developer Implementation Notes:
263 -- This is an internal procedure which is required by Datetrack. Don't
264 -- remove or modify.
265 --
266 -- Access Status:
267 -- Internal Row Handler Use Only.
268 --
269 -- {End Of Comments}
270 -- ----------------------------------------------------------------------------
271 Procedure dt_pre_update
272 (p_rec in out nocopy ben_len_shd.g_rec_type,
273 p_effective_date in date,
274 p_datetrack_mode in varchar2,
275 p_validation_start_date in date,
276 p_validation_end_date in date) is
277 --
278 l_proc varchar2(72) := g_package||'dt_pre_update';
279 l_dummy_version_number number;
280 --
281 Begin
282 hr_utility.set_location('Entering:'||l_proc, 5);
283 If (p_datetrack_mode <> 'CORRECTION') then
284 hr_utility.set_location(l_proc, 10);
285 --
286 -- Update the current effective end date
287 --
288 ben_len_shd.upd_effective_end_date
289 (p_effective_date => p_effective_date,
290 p_base_key_value => p_rec.lee_rsn_id,
291 p_new_effective_end_date => (p_validation_start_date - 1),
292 p_validation_start_date => p_validation_start_date,
293 p_validation_end_date => p_validation_end_date,
294 p_object_version_number => l_dummy_version_number);
295 --
296 If (p_datetrack_mode = 'UPDATE_OVERRIDE') then
297 hr_utility.set_location(l_proc, 15);
298 --
299 -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
300 -- delete any future rows
301 --
302 ben_len_del.delete_dml
303 (p_rec => p_rec,
304 p_effective_date => p_effective_date,
305 p_datetrack_mode => p_datetrack_mode,
306 p_validation_start_date => p_validation_start_date,
307 p_validation_end_date => p_validation_end_date);
308 End If;
309 hr_utility.set_location(l_proc, 20);
310 --
311 -- We must now insert the updated row
312 --
313 ben_len_ins.insert_dml
314 (p_rec => p_rec,
315 p_effective_date => p_effective_date,
316 p_datetrack_mode => p_datetrack_mode,
317 p_validation_start_date => p_validation_start_date,
318 p_validation_end_date => p_validation_end_date);
319 End If;
320 hr_utility.set_location(' Leaving:'||l_proc, 20);
321 End dt_pre_update;
322 --
323 -- ----------------------------------------------------------------------------
324 -- |------------------------------< pre_update >------------------------------|
325 -- ----------------------------------------------------------------------------
326 -- {Start Of Comments}
327 --
328 -- Description:
329 -- This private procedure contains any processing which is required before
330 -- the update dml.
331 --
332 -- Prerequisites:
333 -- This is an internal procedure which is called from the upd procedure.
334 --
335 -- In Parameters:
336 -- A Pl/Sql record structre.
337 --
338 -- Post Success:
339 -- Processing continues.
340 --
341 -- Post Failure:
342 -- If an error has occurred, an error message and exception will be raised
343 -- but not handled.
344 --
345 -- Developer Implementation Notes:
346 -- Any pre-processing required before the update dml is issued should be
347 -- coded within this procedure. It is important to note that any 3rd party
348 -- maintenance should be reviewed before placing in this procedure. The call
349 -- to the dt_update_dml procedure should NOT be removed.
350 --
351 -- Access Status:
352 -- Internal Row Handler Use Only.
353 --
354 -- {End Of Comments}
355 -- ----------------------------------------------------------------------------
356 Procedure pre_update
357 (p_rec in out nocopy ben_len_shd.g_rec_type,
358 p_effective_date in date,
359 p_datetrack_mode in varchar2,
360 p_validation_start_date in date,
361 p_validation_end_date in date) is
362 --
363 l_proc varchar2(72) := g_package||'pre_update';
364 --
365 Begin
366 hr_utility.set_location('Entering:'||l_proc, 5);
367 --
368 --
369 --
370 dt_pre_update
371 (p_rec => p_rec,
372 p_effective_date => p_effective_date,
373 p_datetrack_mode => p_datetrack_mode,
374 p_validation_start_date => p_validation_start_date,
375 p_validation_end_date => p_validation_end_date);
376 --
377 hr_utility.set_location(' Leaving:'||l_proc, 10);
378 End pre_update;
379 --
380 -- ----------------------------------------------------------------------------
381 -- |-----------------------------< post_update >------------------------------|
382 -- ----------------------------------------------------------------------------
383 -- {Start Of Comments}
384 --
385 -- Description:
386 -- This private procedure contains any processing which is required after the
387 -- update dml.
388 --
389 -- Prerequisites:
390 -- This is an internal procedure which is called from the upd procedure.
391 --
392 -- In Parameters:
393 -- A Pl/Sql record structre.
394 --
395 -- Post Success:
396 -- Processing continues.
397 --
398 -- Post Failure:
399 -- If an error has occurred, an error message and exception will be raised
400 -- but not handled.
401 --
402 -- Developer Implementation Notes:
403 -- Any post-processing required after the update dml is issued should be
404 -- coded within this procedure. It is important to note that any 3rd party
405 -- maintenance should be reviewed before placing in this procedure.
406 --
407 -- Access Status:
408 -- Internal Row Handler Use Only.
409 --
410 -- {End Of Comments}
411 -- ----------------------------------------------------------------------------
412 Procedure post_update
413 (p_rec in ben_len_shd.g_rec_type,
414 p_effective_date in date,
415 p_datetrack_mode in varchar2,
416 p_validation_start_date in date,
417 p_validation_end_date in date) is
418 --
419 l_proc varchar2(72) := g_package||'post_update';
420 --
421 Begin
422 hr_utility.set_location('Entering:'||l_proc, 5);
423 --
424 --
425 -- Start of API User Hook for post_update.
426 --
427 begin
428 --
429 ben_len_rku.after_update
430 (
431 p_lee_rsn_id =>p_rec.lee_rsn_id
432 ,p_effective_start_date =>p_rec.effective_start_date
433 ,p_effective_end_date =>p_rec.effective_end_date
434 ,p_business_group_id =>p_rec.business_group_id
435 ,p_popl_enrt_typ_cycl_id =>p_rec.popl_enrt_typ_cycl_id
436 ,p_ler_id =>p_rec.ler_id
437 ,p_cls_enrt_dt_to_use_cd =>p_rec.cls_enrt_dt_to_use_cd
438 ,p_dys_aftr_end_to_dflt_num =>p_rec.dys_aftr_end_to_dflt_num
439 ,p_enrt_cvg_end_dt_cd =>p_rec.enrt_cvg_end_dt_cd
440 ,p_enrt_cvg_strt_dt_cd =>p_rec.enrt_cvg_strt_dt_cd
441 ,p_enrt_perd_strt_dt_cd =>p_rec.enrt_perd_strt_dt_cd
442 ,p_enrt_perd_strt_dt_rl =>p_rec.enrt_perd_strt_dt_rl
443 ,p_enrt_perd_end_dt_cd =>p_rec.enrt_perd_end_dt_cd
444 ,p_enrt_perd_end_dt_rl =>p_rec.enrt_perd_end_dt_rl
445 ,p_addl_procg_dys_num =>p_rec.addl_procg_dys_num
446 ,p_dys_no_enrl_not_elig_num =>p_rec.dys_no_enrl_not_elig_num
447 ,p_dys_no_enrl_cant_enrl_num =>p_rec.dys_no_enrl_cant_enrl_num
448 ,p_rt_end_dt_cd =>p_rec.rt_end_dt_cd
449 ,p_rt_end_dt_rl =>p_rec.rt_end_dt_rl
450 ,p_rt_strt_dt_cd =>p_rec.rt_strt_dt_cd
451 ,p_rt_strt_dt_rl =>p_rec.rt_strt_dt_rl
452 ,p_enrt_cvg_end_dt_rl =>p_rec.enrt_cvg_end_dt_rl
453 ,p_enrt_cvg_strt_dt_rl =>p_rec.enrt_cvg_strt_dt_rl
454 ,p_len_attribute_category =>p_rec.len_attribute_category
455 ,p_len_attribute1 =>p_rec.len_attribute1
456 ,p_len_attribute2 =>p_rec.len_attribute2
457 ,p_len_attribute3 =>p_rec.len_attribute3
458 ,p_len_attribute4 =>p_rec.len_attribute4
459 ,p_len_attribute5 =>p_rec.len_attribute5
460 ,p_len_attribute6 =>p_rec.len_attribute6
461 ,p_len_attribute7 =>p_rec.len_attribute7
462 ,p_len_attribute8 =>p_rec.len_attribute8
463 ,p_len_attribute9 =>p_rec.len_attribute9
464 ,p_len_attribute10 =>p_rec.len_attribute10
465 ,p_len_attribute11 =>p_rec.len_attribute11
466 ,p_len_attribute12 =>p_rec.len_attribute12
467 ,p_len_attribute13 =>p_rec.len_attribute13
468 ,p_len_attribute14 =>p_rec.len_attribute14
469 ,p_len_attribute15 =>p_rec.len_attribute15
470 ,p_len_attribute16 =>p_rec.len_attribute16
471 ,p_len_attribute17 =>p_rec.len_attribute17
472 ,p_len_attribute18 =>p_rec.len_attribute18
473 ,p_len_attribute19 =>p_rec.len_attribute19
474 ,p_len_attribute20 =>p_rec.len_attribute20
475 ,p_len_attribute21 =>p_rec.len_attribute21
476 ,p_len_attribute22 =>p_rec.len_attribute22
477 ,p_len_attribute23 =>p_rec.len_attribute23
478 ,p_len_attribute24 =>p_rec.len_attribute24
479 ,p_len_attribute25 =>p_rec.len_attribute25
480 ,p_len_attribute26 =>p_rec.len_attribute26
481 ,p_len_attribute27 =>p_rec.len_attribute27
482 ,p_len_attribute28 =>p_rec.len_attribute28
483 ,p_len_attribute29 =>p_rec.len_attribute29
484 ,p_len_attribute30 =>p_rec.len_attribute30
485 ,p_object_version_number =>p_rec.object_version_number
486 ,p_enrt_perd_det_ovrlp_bckdt_cd =>p_rec.enrt_perd_det_ovrlp_bckdt_cd
487 ,p_effective_date =>p_effective_date
488 ,p_datetrack_mode =>p_datetrack_mode
489 ,p_validation_start_date =>p_validation_start_date
490 ,p_validation_end_date =>p_validation_end_date
491 ,p_reinstate_cd =>p_rec.reinstate_cd
492 ,p_reinstate_ovrdn_cd =>p_rec.reinstate_ovrdn_cd
493 ,p_reopen_le_on_reprocess => p_rec.reopen_le_on_reprocess
494 ,p_ENRT_PERD_STRT_DAYS =>p_rec.ENRT_PERD_STRT_DAYS
495 ,p_ENRT_PERD_END_DAYS =>p_rec.ENRT_PERD_END_DAYS
496 ,p_defer_deenrol_flag =>p_rec.defer_deenrol_flag
497 ,p_effective_start_date_o =>ben_len_shd.g_old_rec.effective_start_date
498 ,p_effective_end_date_o =>ben_len_shd.g_old_rec.effective_end_date
499 ,p_business_group_id_o =>ben_len_shd.g_old_rec.business_group_id
500 ,p_popl_enrt_typ_cycl_id_o =>ben_len_shd.g_old_rec.popl_enrt_typ_cycl_id
501 ,p_ler_id_o =>ben_len_shd.g_old_rec.ler_id
502 ,p_cls_enrt_dt_to_use_cd_o =>ben_len_shd.g_old_rec.cls_enrt_dt_to_use_cd
503 ,p_dys_aftr_end_to_dflt_num_o =>ben_len_shd.g_old_rec.dys_aftr_end_to_dflt_num
504 ,p_enrt_cvg_end_dt_cd_o =>ben_len_shd.g_old_rec.enrt_cvg_end_dt_cd
505 ,p_enrt_cvg_strt_dt_cd_o =>ben_len_shd.g_old_rec.enrt_cvg_strt_dt_cd
506 ,p_enrt_perd_strt_dt_cd_o =>ben_len_shd.g_old_rec.enrt_perd_strt_dt_cd
507 ,p_enrt_perd_strt_dt_rl_o =>ben_len_shd.g_old_rec.enrt_perd_strt_dt_rl
508 ,p_enrt_perd_end_dt_cd_o =>ben_len_shd.g_old_rec.enrt_perd_end_dt_cd
509 ,p_enrt_perd_end_dt_rl_o =>ben_len_shd.g_old_rec.enrt_perd_end_dt_rl
510 ,p_addl_procg_dys_num_o =>ben_len_shd.g_old_rec.addl_procg_dys_num
511 ,p_dys_no_enrl_not_elig_num_o =>ben_len_shd.g_old_rec.dys_no_enrl_not_elig_num
512 ,p_dys_no_enrl_cant_enrl_num_o =>ben_len_shd.g_old_rec.dys_no_enrl_cant_enrl_num
513 ,p_rt_end_dt_cd_o =>ben_len_shd.g_old_rec.rt_end_dt_cd
514 ,p_rt_end_dt_rl_o =>ben_len_shd.g_old_rec.rt_end_dt_rl
515 ,p_rt_strt_dt_cd_o =>ben_len_shd.g_old_rec.rt_strt_dt_cd
516 ,p_rt_strt_dt_rl_o =>ben_len_shd.g_old_rec.rt_strt_dt_rl
517 ,p_enrt_cvg_end_dt_rl_o =>ben_len_shd.g_old_rec.enrt_cvg_end_dt_rl
518 ,p_enrt_cvg_strt_dt_rl_o =>ben_len_shd.g_old_rec.enrt_cvg_strt_dt_rl
519 ,p_len_attribute_category_o =>ben_len_shd.g_old_rec.len_attribute_category
520 ,p_len_attribute1_o =>ben_len_shd.g_old_rec.len_attribute1
521 ,p_len_attribute2_o =>ben_len_shd.g_old_rec.len_attribute2
522 ,p_len_attribute3_o =>ben_len_shd.g_old_rec.len_attribute3
523 ,p_len_attribute4_o =>ben_len_shd.g_old_rec.len_attribute4
524 ,p_len_attribute5_o =>ben_len_shd.g_old_rec.len_attribute5
525 ,p_len_attribute6_o =>ben_len_shd.g_old_rec.len_attribute6
526 ,p_len_attribute7_o =>ben_len_shd.g_old_rec.len_attribute7
527 ,p_len_attribute8_o =>ben_len_shd.g_old_rec.len_attribute8
528 ,p_len_attribute9_o =>ben_len_shd.g_old_rec.len_attribute9
529 ,p_len_attribute10_o =>ben_len_shd.g_old_rec.len_attribute10
530 ,p_len_attribute11_o =>ben_len_shd.g_old_rec.len_attribute11
531 ,p_len_attribute12_o =>ben_len_shd.g_old_rec.len_attribute12
532 ,p_len_attribute13_o =>ben_len_shd.g_old_rec.len_attribute13
533 ,p_len_attribute14_o =>ben_len_shd.g_old_rec.len_attribute14
534 ,p_len_attribute15_o =>ben_len_shd.g_old_rec.len_attribute15
535 ,p_len_attribute16_o =>ben_len_shd.g_old_rec.len_attribute16
536 ,p_len_attribute17_o =>ben_len_shd.g_old_rec.len_attribute17
537 ,p_len_attribute18_o =>ben_len_shd.g_old_rec.len_attribute18
538 ,p_len_attribute19_o =>ben_len_shd.g_old_rec.len_attribute19
539 ,p_len_attribute20_o =>ben_len_shd.g_old_rec.len_attribute20
540 ,p_len_attribute21_o =>ben_len_shd.g_old_rec.len_attribute21
541 ,p_len_attribute22_o =>ben_len_shd.g_old_rec.len_attribute22
542 ,p_len_attribute23_o =>ben_len_shd.g_old_rec.len_attribute23
543 ,p_len_attribute24_o =>ben_len_shd.g_old_rec.len_attribute24
544 ,p_len_attribute25_o =>ben_len_shd.g_old_rec.len_attribute25
545 ,p_len_attribute26_o =>ben_len_shd.g_old_rec.len_attribute26
546 ,p_len_attribute27_o =>ben_len_shd.g_old_rec.len_attribute27
547 ,p_len_attribute28_o =>ben_len_shd.g_old_rec.len_attribute28
548 ,p_len_attribute29_o =>ben_len_shd.g_old_rec.len_attribute29
549 ,p_len_attribute30_o =>ben_len_shd.g_old_rec.len_attribute30
550 ,p_object_version_number_o =>ben_len_shd.g_old_rec.object_version_number
551 --,p_enrt_perd_det_ovrlp_bckdt_cd_o =>ben_len_shd.g_old_rec.enrt_perd_det_ovrlp_bckdt_cd
552 ,p_enrt_perd_det_ovrlp_cd_o =>ben_len_shd.g_old_rec.enrt_perd_det_ovrlp_bckdt_cd
553 ,p_reinstate_cd_o =>ben_len_shd.g_old_rec.reinstate_cd
554 ,p_reinstate_ovrdn_cd_o =>ben_len_shd.g_old_rec.reinstate_ovrdn_cd
555 ,p_reopen_le_on_reprocess_o =>ben_len_shd.g_old_rec.reopen_le_on_reprocess
556 ,p_ENRT_PERD_STRT_DAYS_o =>ben_len_shd.g_old_rec.ENRT_PERD_STRT_DAYS
557 ,p_ENRT_PERD_END_DAYS_o =>ben_len_shd.g_old_rec.ENRT_PERD_END_DAYS
558 ,p_defer_deenrol_flag_o =>ben_len_shd.g_old_rec.defer_deenrol_flag
559 );
560 --
561 exception
562 --
563 when hr_api.cannot_find_prog_unit then
564 --
565 hr_api.cannot_find_prog_unit_error
566 (p_module_name => 'ben_lee_rsn_f'
567 ,p_hook_type => 'AU');
568 --
569 end;
570 --
571 -- End of API User Hook for post_update.
572 --
573 --
574 hr_utility.set_location(' Leaving:'||l_proc, 10);
575 End post_update;
576 --
577 -- ----------------------------------------------------------------------------
578 -- |-----------------------------< convert_defs >-----------------------------|
579 -- ----------------------------------------------------------------------------
580 -- {Start Of Comments}
581 --
582 -- Description:
583 -- The Convert_Defs procedure has one very important function:
584 -- It must return the record structure for the row with all system defaulted
585 -- values converted into its corresponding parameter value for update. When
586 -- we attempt to update a row through the Upd process , certain
587 -- parameters can be defaulted which enables flexibility in the calling of
588 -- the upd process (e.g. only attributes which need to be updated need to be
589 -- specified). For the upd process to determine which attributes
590 -- have NOT been specified we need to check if the parameter has a reserved
591 -- system default value. Therefore, for all parameters which have a
592 -- corresponding reserved system default mechanism specified we need to
593 -- check if a system default is being used. If a system default is being
594 -- used then we convert the defaulted value into its corresponding attribute
595 -- value held in the g_old_rec data structure.
596 --
597 -- Prerequisites:
598 -- This private function can only be called from the upd process.
599 --
600 -- In Parameters:
601 -- A Pl/Sql record structre.
602 --
603 -- Post Success:
604 -- The record structure will be returned with all system defaulted parameter
605 -- values converted into its current row attribute value.
606 --
607 -- Post Failure:
608 -- No direct error handling is required within this function. Any possible
609 -- errors within this procedure will be a PL/SQL value error due to conversion
610 -- of datatypes or data lengths.
611 --
612 -- Developer Implementation Notes:
613 -- None.
614 --
615 -- Access Status:
616 -- Internal Row Handler Use Only.
617 --
618 -- {End Of Comments}
619 -- ----------------------------------------------------------------------------
620 Procedure convert_defs(p_rec in out nocopy ben_len_shd.g_rec_type) is
621 --
622 l_proc varchar2(72) := g_package||'convert_defs';
623 --
624 Begin
625 --
626 hr_utility.set_location('Entering:'||l_proc, 5);
627 --
628 -- We must now examine each argument value in the
629 -- p_rec plsql record structure
630 -- to see if a system default is being used. If a system default
631 -- is being used then we must set to the 'current' argument value.
632 --
633 If (p_rec.business_group_id = hr_api.g_number) then
634 p_rec.business_group_id :=
635 ben_len_shd.g_old_rec.business_group_id;
636 End If;
637 If (p_rec.popl_enrt_typ_cycl_id = hr_api.g_number) then
638 p_rec.popl_enrt_typ_cycl_id :=
639 ben_len_shd.g_old_rec.popl_enrt_typ_cycl_id;
640 End If;
641 If (p_rec.ler_id = hr_api.g_number) then
642 p_rec.ler_id :=
643 ben_len_shd.g_old_rec.ler_id;
644 End If;
645 If (p_rec.cls_enrt_dt_to_use_cd = hr_api.g_varchar2) then
646 p_rec.cls_enrt_dt_to_use_cd :=
647 ben_len_shd.g_old_rec.cls_enrt_dt_to_use_cd;
648 End If;
649 If (p_rec.dys_aftr_end_to_dflt_num = hr_api.g_number) then
650 p_rec.dys_aftr_end_to_dflt_num :=
651 ben_len_shd.g_old_rec.dys_aftr_end_to_dflt_num;
652 End If;
653 If (p_rec.enrt_cvg_end_dt_cd = hr_api.g_varchar2) then
654 p_rec.enrt_cvg_end_dt_cd :=
655 ben_len_shd.g_old_rec.enrt_cvg_end_dt_cd;
656 End If;
657 If (p_rec.enrt_cvg_strt_dt_cd = hr_api.g_varchar2) then
658 p_rec.enrt_cvg_strt_dt_cd :=
659 ben_len_shd.g_old_rec.enrt_cvg_strt_dt_cd;
660 End If;
661 If (p_rec.enrt_perd_strt_dt_cd = hr_api.g_varchar2) then
662 p_rec.enrt_perd_strt_dt_cd :=
663 ben_len_shd.g_old_rec.enrt_perd_strt_dt_cd;
664 End If;
665 If (p_rec.enrt_perd_strt_dt_rl = hr_api.g_number) then
666 p_rec.enrt_perd_strt_dt_rl :=
667 ben_len_shd.g_old_rec.enrt_perd_strt_dt_rl;
668 End If;
669 If (p_rec.enrt_perd_end_dt_cd = hr_api.g_varchar2) then
670 p_rec.enrt_perd_end_dt_cd :=
671 ben_len_shd.g_old_rec.enrt_perd_end_dt_cd;
672 End If;
673 If (p_rec.enrt_perd_end_dt_rl = hr_api.g_number) then
674 p_rec.enrt_perd_end_dt_rl :=
675 ben_len_shd.g_old_rec.enrt_perd_end_dt_rl;
676 End If;
677 If (p_rec.addl_procg_dys_num = hr_api.g_number) then
678 p_rec.addl_procg_dys_num :=
679 ben_len_shd.g_old_rec.addl_procg_dys_num;
680 End If;
681 If (p_rec.dys_no_enrl_not_elig_num = hr_api.g_number) then
682 p_rec.dys_no_enrl_not_elig_num :=
683 ben_len_shd.g_old_rec.dys_no_enrl_not_elig_num;
684 End If;
685 If (p_rec.dys_no_enrl_cant_enrl_num = hr_api.g_number) then
686 p_rec.dys_no_enrl_cant_enrl_num :=
687 ben_len_shd.g_old_rec.dys_no_enrl_cant_enrl_num;
688 End If;
689 If (p_rec.rt_end_dt_cd = hr_api.g_varchar2) then
690 p_rec.rt_end_dt_cd :=
691 ben_len_shd.g_old_rec.rt_end_dt_cd;
692 End If;
693 If (p_rec.rt_end_dt_rl = hr_api.g_number) then
694 p_rec.rt_end_dt_rl :=
695 ben_len_shd.g_old_rec.rt_end_dt_rl;
696 End If;
697 If (p_rec.rt_strt_dt_cd = hr_api.g_varchar2) then
698 p_rec.rt_strt_dt_cd :=
699 ben_len_shd.g_old_rec.rt_strt_dt_cd;
700 End If;
701 If (p_rec.rt_strt_dt_rl = hr_api.g_number) then
702 p_rec.rt_strt_dt_rl :=
703 ben_len_shd.g_old_rec.rt_strt_dt_rl;
704 End If;
705 If (p_rec.enrt_cvg_end_dt_rl = hr_api.g_number) then
706 p_rec.enrt_cvg_end_dt_rl :=
707 ben_len_shd.g_old_rec.enrt_cvg_end_dt_rl;
708 End If;
709 If (p_rec.enrt_cvg_strt_dt_rl = hr_api.g_number) then
710 p_rec.enrt_cvg_strt_dt_rl :=
711 ben_len_shd.g_old_rec.enrt_cvg_strt_dt_rl;
712 End If;
713 If (p_rec.len_attribute_category = hr_api.g_varchar2) then
714 p_rec.len_attribute_category :=
715 ben_len_shd.g_old_rec.len_attribute_category;
716 End If;
717 If (p_rec.len_attribute1 = hr_api.g_varchar2) then
718 p_rec.len_attribute1 :=
719 ben_len_shd.g_old_rec.len_attribute1;
720 End If;
721 If (p_rec.len_attribute2 = hr_api.g_varchar2) then
722 p_rec.len_attribute2 :=
723 ben_len_shd.g_old_rec.len_attribute2;
724 End If;
725 If (p_rec.len_attribute3 = hr_api.g_varchar2) then
726 p_rec.len_attribute3 :=
727 ben_len_shd.g_old_rec.len_attribute3;
728 End If;
729 If (p_rec.len_attribute4 = hr_api.g_varchar2) then
730 p_rec.len_attribute4 :=
731 ben_len_shd.g_old_rec.len_attribute4;
732 End If;
733 If (p_rec.len_attribute5 = hr_api.g_varchar2) then
734 p_rec.len_attribute5 :=
735 ben_len_shd.g_old_rec.len_attribute5;
736 End If;
737 If (p_rec.len_attribute6 = hr_api.g_varchar2) then
738 p_rec.len_attribute6 :=
739 ben_len_shd.g_old_rec.len_attribute6;
740 End If;
741 If (p_rec.len_attribute7 = hr_api.g_varchar2) then
742 p_rec.len_attribute7 :=
743 ben_len_shd.g_old_rec.len_attribute7;
744 End If;
745 If (p_rec.len_attribute8 = hr_api.g_varchar2) then
746 p_rec.len_attribute8 :=
747 ben_len_shd.g_old_rec.len_attribute8;
748 End If;
749 If (p_rec.len_attribute9 = hr_api.g_varchar2) then
750 p_rec.len_attribute9 :=
751 ben_len_shd.g_old_rec.len_attribute9;
752 End If;
753 If (p_rec.len_attribute10 = hr_api.g_varchar2) then
754 p_rec.len_attribute10 :=
755 ben_len_shd.g_old_rec.len_attribute10;
756 End If;
757 If (p_rec.len_attribute11 = hr_api.g_varchar2) then
758 p_rec.len_attribute11 :=
759 ben_len_shd.g_old_rec.len_attribute11;
760 End If;
761 If (p_rec.len_attribute12 = hr_api.g_varchar2) then
762 p_rec.len_attribute12 :=
763 ben_len_shd.g_old_rec.len_attribute12;
764 End If;
765 If (p_rec.len_attribute13 = hr_api.g_varchar2) then
766 p_rec.len_attribute13 :=
767 ben_len_shd.g_old_rec.len_attribute13;
768 End If;
769 If (p_rec.len_attribute14 = hr_api.g_varchar2) then
770 p_rec.len_attribute14 :=
771 ben_len_shd.g_old_rec.len_attribute14;
772 End If;
773 If (p_rec.len_attribute15 = hr_api.g_varchar2) then
774 p_rec.len_attribute15 :=
775 ben_len_shd.g_old_rec.len_attribute15;
776 End If;
777 If (p_rec.len_attribute16 = hr_api.g_varchar2) then
778 p_rec.len_attribute16 :=
779 ben_len_shd.g_old_rec.len_attribute16;
780 End If;
781 If (p_rec.len_attribute17 = hr_api.g_varchar2) then
782 p_rec.len_attribute17 :=
783 ben_len_shd.g_old_rec.len_attribute17;
784 End If;
785 If (p_rec.len_attribute18 = hr_api.g_varchar2) then
786 p_rec.len_attribute18 :=
787 ben_len_shd.g_old_rec.len_attribute18;
788 End If;
789 If (p_rec.len_attribute19 = hr_api.g_varchar2) then
790 p_rec.len_attribute19 :=
791 ben_len_shd.g_old_rec.len_attribute19;
792 End If;
793 If (p_rec.len_attribute20 = hr_api.g_varchar2) then
794 p_rec.len_attribute20 :=
795 ben_len_shd.g_old_rec.len_attribute20;
796 End If;
797 If (p_rec.len_attribute21 = hr_api.g_varchar2) then
798 p_rec.len_attribute21 :=
799 ben_len_shd.g_old_rec.len_attribute21;
800 End If;
801 If (p_rec.len_attribute22 = hr_api.g_varchar2) then
802 p_rec.len_attribute22 :=
803 ben_len_shd.g_old_rec.len_attribute22;
804 End If;
805 If (p_rec.len_attribute23 = hr_api.g_varchar2) then
806 p_rec.len_attribute23 :=
807 ben_len_shd.g_old_rec.len_attribute23;
808 End If;
809 If (p_rec.len_attribute24 = hr_api.g_varchar2) then
810 p_rec.len_attribute24 :=
811 ben_len_shd.g_old_rec.len_attribute24;
812 End If;
813 If (p_rec.len_attribute25 = hr_api.g_varchar2) then
814 p_rec.len_attribute25 :=
815 ben_len_shd.g_old_rec.len_attribute25;
816 End If;
817 If (p_rec.len_attribute26 = hr_api.g_varchar2) then
818 p_rec.len_attribute26 :=
819 ben_len_shd.g_old_rec.len_attribute26;
820 End If;
821 If (p_rec.len_attribute27 = hr_api.g_varchar2) then
822 p_rec.len_attribute27 :=
823 ben_len_shd.g_old_rec.len_attribute27;
824 End If;
825 If (p_rec.len_attribute28 = hr_api.g_varchar2) then
826 p_rec.len_attribute28 :=
827 ben_len_shd.g_old_rec.len_attribute28;
828 End If;
829 If (p_rec.len_attribute29 = hr_api.g_varchar2) then
830 p_rec.len_attribute29 :=
831 ben_len_shd.g_old_rec.len_attribute29;
832 End If;
833 If (p_rec.len_attribute30 = hr_api.g_varchar2) then
834 p_rec.len_attribute30 :=
835 ben_len_shd.g_old_rec.len_attribute30;
836 End If;
837 If (p_rec.reinstate_cd = hr_api.g_varchar2) then
838 p_rec.reinstate_cd := ben_len_shd.g_old_rec.reinstate_cd;
839 End If;
840
841 If (p_rec.reinstate_ovrdn_cd = hr_api.g_varchar2) then
842 p_rec.reinstate_ovrdn_cd := ben_len_shd.g_old_rec.reinstate_ovrdn_cd;
843 End If;
844
845 If (p_rec.ENRT_PERD_STRT_DAYS = hr_api.g_number) then
846 p_rec.ENRT_PERD_STRT_DAYS := ben_len_shd.g_old_rec.ENRT_PERD_STRT_DAYS;
847 End If;
848 If (p_rec.ENRT_PERD_END_DAYS = hr_api.g_number) then
849 p_rec.ENRT_PERD_END_DAYS := ben_len_shd.g_old_rec.ENRT_PERD_END_DAYS;
850 End If;
851 If (p_rec.defer_deenrol_flag = hr_api.g_varchar2) then
852 p_rec.defer_deenrol_flag := ben_len_shd.g_old_rec.defer_deenrol_flag;
853 End If;
854 If (p_rec.reopen_le_on_reprocess = hr_api.g_varchar2) then
855 p_rec.reopen_le_on_reprocess := ben_len_shd.g_old_rec.reopen_le_on_reprocess;
856 End If;
857
858 --
859 hr_utility.set_location(' Leaving:'||l_proc, 10);
860 --
861 End convert_defs;
862 --
863 -- ----------------------------------------------------------------------------
864 -- |---------------------------------< upd >----------------------------------|
865 -- ----------------------------------------------------------------------------
866 Procedure upd
867 (
868 p_rec in out nocopy ben_len_shd.g_rec_type,
869 p_effective_date in date,
870 p_datetrack_mode in varchar2
871 ) is
872 --
873 l_proc varchar2(72) := g_package||'upd';
874 l_validation_start_date date;
875 l_validation_end_date date;
876 --
877 Begin
878 hr_utility.set_location('Entering:'||l_proc, 5);
879 --
880 -- Ensure that the DateTrack update mode is valid
881 --
882 dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
883 --
884 -- We must lock the row which we need to update.
885 --
886 ben_len_shd.lck
887 (p_effective_date => p_effective_date,
888 p_datetrack_mode => p_datetrack_mode,
889 p_lee_rsn_id => p_rec.lee_rsn_id,
890 p_object_version_number => p_rec.object_version_number,
891 p_validation_start_date => l_validation_start_date,
892 p_validation_end_date => l_validation_end_date);
893 --
894 -- 1. During an update system defaults are used to determine if
895 -- arguments have been defaulted or not. We must therefore
896 -- derive the full record structure values to be updated.
897 --
898 -- 2. Call the supporting update validate operations.
899 --
900 convert_defs(p_rec);
901 ben_len_bus.update_validate
902 (p_rec => p_rec,
903 p_effective_date => p_effective_date,
904 p_datetrack_mode => p_datetrack_mode,
905 p_validation_start_date => l_validation_start_date,
906 p_validation_end_date => l_validation_end_date);
907 --
908 -- Call the supporting pre-update operation
909 --
910 pre_update
911 (p_rec => p_rec,
912 p_effective_date => p_effective_date,
913 p_datetrack_mode => p_datetrack_mode,
914 p_validation_start_date => l_validation_start_date,
915 p_validation_end_date => l_validation_end_date);
916 --
917 -- Update the row.
918 --
919 update_dml
920 (p_rec => p_rec,
921 p_effective_date => p_effective_date,
922 p_datetrack_mode => p_datetrack_mode,
923 p_validation_start_date => l_validation_start_date,
924 p_validation_end_date => l_validation_end_date);
925 --
926 -- Call the supporting post-update operation
927 --
928 post_update
929 (p_rec => p_rec,
930 p_effective_date => p_effective_date,
931 p_datetrack_mode => p_datetrack_mode,
932 p_validation_start_date => l_validation_start_date,
933 p_validation_end_date => l_validation_end_date);
934 End upd;
935 --
936 -- ----------------------------------------------------------------------------
937 -- |---------------------------------< upd >----------------------------------|
938 -- ----------------------------------------------------------------------------
939 Procedure upd
940 (
941 p_lee_rsn_id in number,
942 p_effective_start_date out nocopy date,
943 p_effective_end_date out nocopy date,
944 p_business_group_id in number default hr_api.g_number,
945 p_popl_enrt_typ_cycl_id in number default hr_api.g_number,
946 p_ler_id in number default hr_api.g_number,
947 p_cls_enrt_dt_to_use_cd in varchar2 default hr_api.g_varchar2,
948 p_dys_aftr_end_to_dflt_num in number default hr_api.g_number,
949 p_enrt_cvg_end_dt_cd in varchar2 default hr_api.g_varchar2,
950 p_enrt_cvg_strt_dt_cd in varchar2 default hr_api.g_varchar2,
951 p_enrt_perd_strt_dt_cd in varchar2 default hr_api.g_varchar2,
952 p_enrt_perd_strt_dt_rl in number default hr_api.g_number,
953 p_enrt_perd_end_dt_cd in varchar2 default hr_api.g_varchar2,
954 p_enrt_perd_end_dt_rl in number default hr_api.g_number,
955 p_addl_procg_dys_num in number default hr_api.g_number,
956 p_dys_no_enrl_not_elig_num in number default hr_api.g_number,
957 p_dys_no_enrl_cant_enrl_num in number default hr_api.g_number,
958 p_rt_end_dt_cd in varchar2 default hr_api.g_varchar2,
959 p_rt_end_dt_rl in number default hr_api.g_number,
960 p_rt_strt_dt_cd in varchar2 default hr_api.g_varchar2,
961 p_rt_strt_dt_rl in number default hr_api.g_number,
962 p_enrt_cvg_end_dt_rl in number default hr_api.g_number,
963 p_enrt_cvg_strt_dt_rl in number default hr_api.g_number,
964 p_len_attribute_category in varchar2 default hr_api.g_varchar2,
965 p_len_attribute1 in varchar2 default hr_api.g_varchar2,
966 p_len_attribute2 in varchar2 default hr_api.g_varchar2,
967 p_len_attribute3 in varchar2 default hr_api.g_varchar2,
968 p_len_attribute4 in varchar2 default hr_api.g_varchar2,
969 p_len_attribute5 in varchar2 default hr_api.g_varchar2,
970 p_len_attribute6 in varchar2 default hr_api.g_varchar2,
971 p_len_attribute7 in varchar2 default hr_api.g_varchar2,
972 p_len_attribute8 in varchar2 default hr_api.g_varchar2,
973 p_len_attribute9 in varchar2 default hr_api.g_varchar2,
974 p_len_attribute10 in varchar2 default hr_api.g_varchar2,
975 p_len_attribute11 in varchar2 default hr_api.g_varchar2,
976 p_len_attribute12 in varchar2 default hr_api.g_varchar2,
977 p_len_attribute13 in varchar2 default hr_api.g_varchar2,
978 p_len_attribute14 in varchar2 default hr_api.g_varchar2,
979 p_len_attribute15 in varchar2 default hr_api.g_varchar2,
980 p_len_attribute16 in varchar2 default hr_api.g_varchar2,
981 p_len_attribute17 in varchar2 default hr_api.g_varchar2,
982 p_len_attribute18 in varchar2 default hr_api.g_varchar2,
983 p_len_attribute19 in varchar2 default hr_api.g_varchar2,
984 p_len_attribute20 in varchar2 default hr_api.g_varchar2,
985 p_len_attribute21 in varchar2 default hr_api.g_varchar2,
986 p_len_attribute22 in varchar2 default hr_api.g_varchar2,
987 p_len_attribute23 in varchar2 default hr_api.g_varchar2,
988 p_len_attribute24 in varchar2 default hr_api.g_varchar2,
989 p_len_attribute25 in varchar2 default hr_api.g_varchar2,
990 p_len_attribute26 in varchar2 default hr_api.g_varchar2,
991 p_len_attribute27 in varchar2 default hr_api.g_varchar2,
992 p_len_attribute28 in varchar2 default hr_api.g_varchar2,
993 p_len_attribute29 in varchar2 default hr_api.g_varchar2,
994 p_len_attribute30 in varchar2 default hr_api.g_varchar2,
995 p_object_version_number in out nocopy number,
996 p_enrt_perd_det_ovrlp_bckdt_cd in varchar2 default hr_api.g_varchar2,
997 p_effective_date in date,
998 p_datetrack_mode in varchar2,
999 p_reinstate_cd in varchar2 default hr_api.g_varchar2,
1000 p_reinstate_ovrdn_cd in varchar2 default hr_api.g_varchar2 ,
1001 p_reopen_le_on_reprocess in varchar2 default hr_api.g_varchar2 ,
1002 p_ENRT_PERD_STRT_DAYS in number default hr_api.g_number ,
1003 p_ENRT_PERD_END_DAYS in number default hr_api.g_number ,
1004 p_defer_deenrol_flag in varchar2 default hr_api.g_varchar2
1005 ) is
1006 --
1007 l_rec ben_len_shd.g_rec_type;
1008 l_proc varchar2(72) := g_package||'upd';
1009 --
1010 Begin
1011 hr_utility.set_location('Entering:'||l_proc, 5);
1012 --
1013 -- Call conversion function to turn arguments into the
1014 -- l_rec structure.
1015 --
1016 l_rec :=
1017 ben_len_shd.convert_args
1018 (
1019 p_lee_rsn_id,
1020 null,
1021 null,
1022 p_business_group_id,
1023 p_popl_enrt_typ_cycl_id,
1024 p_ler_id,
1025 p_cls_enrt_dt_to_use_cd,
1026 p_dys_aftr_end_to_dflt_num,
1027 p_enrt_cvg_end_dt_cd,
1028 p_enrt_cvg_strt_dt_cd,
1029 p_enrt_perd_strt_dt_cd,
1030 p_enrt_perd_strt_dt_rl,
1031 p_enrt_perd_end_dt_cd,
1032 p_enrt_perd_end_dt_rl,
1033 p_addl_procg_dys_num,
1034 p_dys_no_enrl_not_elig_num,
1035 p_dys_no_enrl_cant_enrl_num,
1036 p_rt_end_dt_cd,
1037 p_rt_end_dt_rl,
1038 p_rt_strt_dt_cd,
1039 p_rt_strt_dt_rl,
1040 p_enrt_cvg_end_dt_rl,
1041 p_enrt_cvg_strt_dt_rl,
1042 p_len_attribute_category,
1043 p_len_attribute1,
1044 p_len_attribute2,
1045 p_len_attribute3,
1046 p_len_attribute4,
1047 p_len_attribute5,
1048 p_len_attribute6,
1049 p_len_attribute7,
1050 p_len_attribute8,
1051 p_len_attribute9,
1052 p_len_attribute10,
1053 p_len_attribute11,
1054 p_len_attribute12,
1055 p_len_attribute13,
1056 p_len_attribute14,
1057 p_len_attribute15,
1058 p_len_attribute16,
1059 p_len_attribute17,
1060 p_len_attribute18,
1061 p_len_attribute19,
1062 p_len_attribute20,
1063 p_len_attribute21,
1064 p_len_attribute22,
1065 p_len_attribute23,
1066 p_len_attribute24,
1067 p_len_attribute25,
1068 p_len_attribute26,
1069 p_len_attribute27,
1070 p_len_attribute28,
1071 p_len_attribute29,
1072 p_len_attribute30,
1073 p_object_version_number ,
1074 p_enrt_perd_det_ovrlp_bckdt_cd,
1075 p_reinstate_cd,
1076 p_reinstate_ovrdn_cd ,
1077 p_reopen_le_on_reprocess ,
1078 p_ENRT_PERD_STRT_DAYS ,
1079 p_ENRT_PERD_END_DAYS ,
1080 p_defer_deenrol_flag
1081 );
1082 --
1083 -- Having converted the arguments into the
1084 -- plsql record structure we call the corresponding record
1085 -- business process.
1086 --
1087 upd(l_rec, p_effective_date, p_datetrack_mode);
1088 p_object_version_number := l_rec.object_version_number;
1089 p_effective_start_date := l_rec.effective_start_date;
1090 p_effective_end_date := l_rec.effective_end_date;
1091 --
1092 --
1093 hr_utility.set_location(' Leaving:'||l_proc, 10);
1094 End upd;
1095 --
1096 end ben_len_upd;
[Home] [Help]