[Home] [Help]
Skip to content
PACKAGE BODY: APPS.BEN_PEL_UPD
Source
1 Package Body ben_pel_upd as
2 /* $Header: bepelrhi.pkb 120.6.12020000.2 2012/07/03 13:08:03 amnaraya ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_pel_upd.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< update_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 -- This procedure controls the actual dml update logic. The processing of
17 -- this procedure is:
18 -- 1) Increment the object_version_number by 1 if the object_version_number
19 -- is defined as an attribute for this entity.
20 -- 2) To set and unset the g_api_dml status as required (as we are about to
21 -- perform dml).
22 -- 3) To update the specified row in the schema using the primary key in
23 -- the predicates.
24 -- 4) To trap any constraint violations that may have occurred.
25 -- 5) To raise any other errors.
26 --
27 -- Prerequisites:
28 -- This is an internal private procedure which must be called from the upd
29 -- procedure.
30 --
31 -- In Parameters:
32 -- A Pl/Sql record structre.
33 --
34 -- Post Success:
35 -- The specified row will be updated in the schema.
36 --
37 -- Post Failure:
38 -- On the update dml failure it is important to note that we always reset the
39 -- g_api_dml status to false.
40 -- If a check, unique or parent integrity constraint violation is raised the
41 -- constraint_error procedure will be called.
42 -- If any other error is reported, the error will be raised after the
43 -- g_api_dml status is reset.
44 --
45 -- Developer Implementation Notes:
46 -- The update 'set' attribute list should be modified if any of your
47 -- attributes are not updateable.
48 --
49 -- Access Status:
50 -- Internal Row Handler Use Only.
51 --
52 -- {End Of Comments}
53 -- ----------------------------------------------------------------------------
54 Procedure update_dml(p_rec in out nocopy ben_pel_shd.g_rec_type) is
55 --
56 l_proc varchar2(72) := g_package||'update_dml';
57 --
58 Begin
59 hr_utility.set_location('Entering:'||l_proc, 5);
60 --
61 -- Increment the object version
62 --
63 p_rec.object_version_number := p_rec.object_version_number + 1;
64 --
65 ben_pel_shd.g_api_dml := true; -- Set the api dml status
66 --
67 -- Update the ben_pil_elctbl_chc_popl Row
68 --
69 update ben_pil_elctbl_chc_popl
70 set
71 pil_elctbl_chc_popl_id = p_rec.pil_elctbl_chc_popl_id,
72 dflt_enrt_dt = p_rec.dflt_enrt_dt,
73 dflt_asnd_dt = p_rec.dflt_asnd_dt,
74 elcns_made_dt = p_rec.elcns_made_dt,
75 cls_enrt_dt_to_use_cd = p_rec.cls_enrt_dt_to_use_cd,
76 enrt_typ_cycl_cd = p_rec.enrt_typ_cycl_cd,
77 enrt_perd_end_dt = p_rec.enrt_perd_end_dt,
78 enrt_perd_strt_dt = p_rec.enrt_perd_strt_dt,
79 procg_end_dt = p_rec.procg_end_dt,
80 pil_elctbl_popl_stat_cd = p_rec.pil_elctbl_popl_stat_cd,
81 acty_ref_perd_cd = p_rec.acty_ref_perd_cd,
82 uom = p_rec.uom,
83 comments = p_rec.comments,
84 mgr_ovrid_dt = p_rec.mgr_ovrid_dt,
85 ws_mgr_id = p_rec.ws_mgr_id,
86 mgr_ovrid_person_id = p_rec.mgr_ovrid_person_id,
87 assignment_id = p_rec.assignment_id,
88 --cwb
89 bdgt_acc_cd = p_rec.bdgt_acc_cd,
90 pop_cd = p_rec.pop_cd,
91 bdgt_due_dt = p_rec.bdgt_due_dt,
92 bdgt_export_flag = p_rec.bdgt_export_flag,
93 bdgt_iss_dt = p_rec.bdgt_iss_dt,
94 bdgt_stat_cd = p_rec.bdgt_stat_cd,
95 ws_acc_cd = p_rec.ws_acc_cd,
96 ws_due_dt = p_rec.ws_due_dt,
97 ws_export_flag = p_rec.ws_export_flag,
98 ws_iss_dt = p_rec.ws_iss_dt,
99 ws_stat_cd = p_rec.ws_stat_cd,
100 --cwb
101 reinstate_cd = p_rec.reinstate_cd,
102 reinstate_ovrdn_cd = p_rec.reinstate_ovrdn_cd,
103 reopen_le_on_reprocess = p_rec.reopen_le_on_reprocess,
104 auto_asnd_dt = p_rec.auto_asnd_dt,
105 cbr_elig_perd_strt_dt = p_rec.cbr_elig_perd_strt_dt,
106 cbr_elig_perd_end_dt = p_rec.cbr_elig_perd_end_dt,
107 lee_rsn_id = p_rec.lee_rsn_id,
108 enrt_perd_id = p_rec.enrt_perd_id,
109 per_in_ler_id = p_rec.per_in_ler_id,
110 pgm_id = p_rec.pgm_id,
111 pl_id = p_rec.pl_id,
112 business_group_id = p_rec.business_group_id,
113 pel_attribute_category = p_rec.pel_attribute_category,
114 pel_attribute1 = p_rec.pel_attribute1,
115 pel_attribute2 = p_rec.pel_attribute2,
116 pel_attribute3 = p_rec.pel_attribute3,
117 pel_attribute4 = p_rec.pel_attribute4,
118 pel_attribute5 = p_rec.pel_attribute5,
119 pel_attribute6 = p_rec.pel_attribute6,
120 pel_attribute7 = p_rec.pel_attribute7,
121 pel_attribute8 = p_rec.pel_attribute8,
122 pel_attribute9 = p_rec.pel_attribute9,
123 pel_attribute10 = p_rec.pel_attribute10,
124 pel_attribute11 = p_rec.pel_attribute11,
125 pel_attribute12 = p_rec.pel_attribute12,
126 pel_attribute13 = p_rec.pel_attribute13,
127 pel_attribute14 = p_rec.pel_attribute14,
128 pel_attribute15 = p_rec.pel_attribute15,
129 pel_attribute16 = p_rec.pel_attribute16,
130 pel_attribute17 = p_rec.pel_attribute17,
131 pel_attribute18 = p_rec.pel_attribute18,
132 pel_attribute19 = p_rec.pel_attribute19,
133 pel_attribute20 = p_rec.pel_attribute20,
134 pel_attribute21 = p_rec.pel_attribute21,
135 pel_attribute22 = p_rec.pel_attribute22,
136 pel_attribute23 = p_rec.pel_attribute23,
137 pel_attribute24 = p_rec.pel_attribute24,
138 pel_attribute25 = p_rec.pel_attribute25,
139 pel_attribute26 = p_rec.pel_attribute26,
140 pel_attribute27 = p_rec.pel_attribute27,
141 pel_attribute28 = p_rec.pel_attribute28,
142 pel_attribute29 = p_rec.pel_attribute29,
143 pel_attribute30 = p_rec.pel_attribute30,
144 request_id = p_rec.request_id,
145 program_application_id = p_rec.program_application_id,
146 program_id = p_rec.program_id,
147 program_update_date = p_rec.program_update_date,
148 object_version_number = p_rec.object_version_number,
149 defer_deenrol_flag = p_rec.defer_deenrol_flag,
150 deenrol_made_dt = p_rec.deenrol_made_dt
151 where pil_elctbl_chc_popl_id = p_rec.pil_elctbl_chc_popl_id;
152 --
153 ben_pel_shd.g_api_dml := false; -- Unset the api dml status
154 --
155 hr_utility.set_location(' Leaving:'||l_proc, 10);
156 --
157 Exception
158 When hr_api.check_integrity_violated Then
159 -- A check constraint has been violated
160 ben_pel_shd.g_api_dml := false; -- Unset the api dml status
161 ben_pel_shd.constraint_error
162 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
163 When hr_api.parent_integrity_violated Then
164 -- Parent integrity has been violated
165 ben_pel_shd.g_api_dml := false; -- Unset the api dml status
166 ben_pel_shd.constraint_error
167 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
168 When hr_api.unique_integrity_violated Then
169 -- Unique integrity has been violated
170 ben_pel_shd.g_api_dml := false; -- Unset the api dml status
171 ben_pel_shd.constraint_error
172 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
173 When Others Then
174 ben_pel_shd.g_api_dml := false; -- Unset the api dml status
175 Raise;
176 End update_dml;
177 --
178 -- ----------------------------------------------------------------------------
179 -- |------------------------------< pre_update >------------------------------|
180 -- ----------------------------------------------------------------------------
181 -- {Start Of Comments}
182 --
183 -- Description:
184 -- This private procedure contains any processing which is required before
185 -- the update dml.
186 --
187 -- Prerequisites:
188 -- This is an internal procedure which is called from the upd procedure.
189 --
190 -- In Parameters:
191 -- A Pl/Sql record structre.
192 --
193 -- Post Success:
194 -- Processing continues.
195 --
196 -- Post Failure:
197 -- If an error has occurred, an error message and exception will be raised
198 -- but not handled.
199 --
200 -- Developer Implementation Notes:
201 -- Any pre-processing required before the update dml is issued should be
202 -- coded within this procedure. It is important to note that any 3rd party
203 -- maintenance should be reviewed before placing in this procedure.
204 --
205 -- Access Status:
206 -- Internal Row Handler Use Only.
207 --
208 -- {End Of Comments}
209 -- ----------------------------------------------------------------------------
210 Procedure pre_update(p_rec in ben_pel_shd.g_rec_type) is
211 --
212 l_proc varchar2(72) := g_package||'pre_update';
213 --
214 Begin
215 hr_utility.set_location('Entering:'||l_proc, 5);
216 --
217 hr_utility.set_location(' Leaving:'||l_proc, 10);
218 End pre_update;
219 --
220 -- ----------------------------------------------------------------------------
221 -- |-----------------------------< post_update >------------------------------|
222 -- ----------------------------------------------------------------------------
223 -- {Start Of Comments}
224 --
225 -- Description:
226 -- This private procedure contains any processing which is required after the
227 -- update dml.
228 --
229 -- Prerequisites:
230 -- This is an internal procedure which is called from the upd procedure.
231 --
232 -- In Parameters:
233 -- A Pl/Sql record structre.
234 --
235 -- Post Success:
236 -- Processing continues.
237 --
238 -- Post Failure:
239 -- If an error has occurred, an error message and exception will be raised
240 -- but not handled.
241 --
242 -- Developer Implementation Notes:
243 -- Any post-processing required after the update dml is issued should be
244 -- coded within this procedure. It is important to note that any 3rd party
245 -- maintenance should be reviewed before placing in this procedure.
246 --
247 -- Access Status:
248 -- Internal Row Handler Use Only.
249 --
250 -- {End Of Comments}
251 -- ----------------------------------------------------------------------------
252 Procedure post_update(
253 p_effective_date in date,p_rec in ben_pel_shd.g_rec_type) is
254 --
255 l_proc varchar2(72) := g_package||'post_update';
256 --
257 Begin
258 hr_utility.set_location('Entering:'||l_proc, 5);
259 --
260 --
261 -- Start of API User Hook for post_update.
262 --
263 begin
264 --
265 ben_pel_rku.after_update
266 (
267 p_pil_elctbl_chc_popl_id =>p_rec.pil_elctbl_chc_popl_id
268 ,p_dflt_enrt_dt =>p_rec.dflt_enrt_dt
269 ,p_dflt_asnd_dt =>p_rec.dflt_asnd_dt
270 ,p_elcns_made_dt =>p_rec.elcns_made_dt
271 ,p_cls_enrt_dt_to_use_cd =>p_rec.cls_enrt_dt_to_use_cd
272 ,p_enrt_typ_cycl_cd =>p_rec.enrt_typ_cycl_cd
273 ,p_enrt_perd_end_dt =>p_rec.enrt_perd_end_dt
274 ,p_enrt_perd_strt_dt =>p_rec.enrt_perd_strt_dt
275 ,p_procg_end_dt =>p_rec.procg_end_dt
276 ,p_pil_elctbl_popl_stat_cd =>p_rec.pil_elctbl_popl_stat_cd
277 ,p_acty_ref_perd_cd =>p_rec.acty_ref_perd_cd
278 ,p_uom =>p_rec.uom
279 ,p_comments =>p_rec.comments
280 ,p_mgr_ovrid_dt =>p_rec.mgr_ovrid_dt
281 ,p_ws_mgr_id =>p_rec.ws_mgr_id
282 ,p_mgr_ovrid_person_id =>p_rec.mgr_ovrid_person_id
283 ,p_assignment_id =>p_rec.assignment_id
284 --cwb
285 ,p_bdgt_acc_cd =>p_rec.bdgt_acc_cd
286 ,p_pop_cd =>p_rec.pop_cd
287 ,p_bdgt_due_dt =>p_rec.bdgt_due_dt
288 ,p_bdgt_export_flag =>p_rec.bdgt_export_flag
289 ,p_bdgt_iss_dt =>p_rec.bdgt_iss_dt
290 ,p_bdgt_stat_cd =>p_rec.bdgt_stat_cd
291 ,p_ws_acc_cd =>p_rec.ws_acc_cd
292 ,p_ws_due_dt =>p_rec.ws_due_dt
293 ,p_ws_export_flag =>p_rec.ws_export_flag
294 ,p_ws_iss_dt =>p_rec.ws_iss_dt
295 ,p_ws_stat_cd =>p_rec.ws_stat_cd
296 --cwb
297 ,p_reinstate_cd => p_rec.reinstate_cd
298 ,p_reinstate_ovrdn_cd => p_rec.reinstate_ovrdn_cd
299 ,p_reopen_le_on_reprocess => p_rec.reopen_le_on_reprocess
300 ,p_auto_asnd_dt =>p_rec.auto_asnd_dt
301 ,p_cbr_elig_perd_strt_dt =>p_rec.cbr_elig_perd_strt_dt
302 ,p_cbr_elig_perd_end_dt =>p_rec.cbr_elig_perd_end_dt
303 ,p_lee_rsn_id =>p_rec.lee_rsn_id
304 ,p_enrt_perd_id =>p_rec.enrt_perd_id
305 ,p_per_in_ler_id =>p_rec.per_in_ler_id
306 ,p_pgm_id =>p_rec.pgm_id
307 ,p_pl_id =>p_rec.pl_id
308 ,p_business_group_id =>p_rec.business_group_id
309 ,p_pel_attribute_category =>p_rec.pel_attribute_category
310 ,p_pel_attribute1 =>p_rec.pel_attribute1
311 ,p_pel_attribute2 =>p_rec.pel_attribute2
312 ,p_pel_attribute3 =>p_rec.pel_attribute3
313 ,p_pel_attribute4 =>p_rec.pel_attribute4
314 ,p_pel_attribute5 =>p_rec.pel_attribute5
315 ,p_pel_attribute6 =>p_rec.pel_attribute6
316 ,p_pel_attribute7 =>p_rec.pel_attribute7
317 ,p_pel_attribute8 =>p_rec.pel_attribute8
318 ,p_pel_attribute9 =>p_rec.pel_attribute9
319 ,p_pel_attribute10 =>p_rec.pel_attribute10
320 ,p_pel_attribute11 =>p_rec.pel_attribute11
321 ,p_pel_attribute12 =>p_rec.pel_attribute12
322 ,p_pel_attribute13 =>p_rec.pel_attribute13
323 ,p_pel_attribute14 =>p_rec.pel_attribute14
324 ,p_pel_attribute15 =>p_rec.pel_attribute15
325 ,p_pel_attribute16 =>p_rec.pel_attribute16
326 ,p_pel_attribute17 =>p_rec.pel_attribute17
327 ,p_pel_attribute18 =>p_rec.pel_attribute18
328 ,p_pel_attribute19 =>p_rec.pel_attribute19
329 ,p_pel_attribute20 =>p_rec.pel_attribute20
330 ,p_pel_attribute21 =>p_rec.pel_attribute21
331 ,p_pel_attribute22 =>p_rec.pel_attribute22
332 ,p_pel_attribute23 =>p_rec.pel_attribute23
333 ,p_pel_attribute24 =>p_rec.pel_attribute24
334 ,p_pel_attribute25 =>p_rec.pel_attribute25
335 ,p_pel_attribute26 =>p_rec.pel_attribute26
336 ,p_pel_attribute27 =>p_rec.pel_attribute27
337 ,p_pel_attribute28 =>p_rec.pel_attribute28
338 ,p_pel_attribute29 =>p_rec.pel_attribute29
339 ,p_pel_attribute30 =>p_rec.pel_attribute30
340 ,p_request_id =>p_rec.request_id
341 ,p_program_application_id =>p_rec.program_application_id
342 ,p_program_id =>p_rec.program_id
343 ,p_program_update_date =>p_rec.program_update_date
344 ,p_object_version_number =>p_rec.object_version_number
345 ,p_effective_date =>p_effective_date
346 ,p_defer_deenrol_flag =>p_rec.defer_deenrol_flag
347 ,p_deenrol_made_dt =>p_rec.deenrol_made_dt
348 ,p_dflt_enrt_dt_o =>ben_pel_shd.g_old_rec.dflt_enrt_dt
349 ,p_dflt_asnd_dt_o =>ben_pel_shd.g_old_rec.dflt_asnd_dt
350 ,p_elcns_made_dt_o =>ben_pel_shd.g_old_rec.elcns_made_dt
351 ,p_cls_enrt_dt_to_use_cd_o =>ben_pel_shd.g_old_rec.cls_enrt_dt_to_use_cd
352 ,p_enrt_typ_cycl_cd_o =>ben_pel_shd.g_old_rec.enrt_typ_cycl_cd
353 ,p_enrt_perd_end_dt_o =>ben_pel_shd.g_old_rec.enrt_perd_end_dt
354 ,p_enrt_perd_strt_dt_o =>ben_pel_shd.g_old_rec.enrt_perd_strt_dt
355 ,p_procg_end_dt_o =>ben_pel_shd.g_old_rec.procg_end_dt
356 ,p_pil_elctbl_popl_stat_cd_o =>ben_pel_shd.g_old_rec.pil_elctbl_popl_stat_cd
357 ,p_acty_ref_perd_cd_o =>ben_pel_shd.g_old_rec.acty_ref_perd_cd
358 ,p_uom_o =>ben_pel_shd.g_old_rec.uom
359 ,p_comments_o =>ben_pel_shd.g_old_rec.comments
360 ,p_mgr_ovrid_dt_o =>ben_pel_shd.g_old_rec.mgr_ovrid_dt
361 ,p_ws_mgr_id_o =>ben_pel_shd.g_old_rec.ws_mgr_id
362 ,p_mgr_ovrid_person_id_o =>ben_pel_shd.g_old_rec.mgr_ovrid_person_id
363 ,p_assignment_id_o =>ben_pel_shd.g_old_rec.assignment_id
364 --cwb
365 ,p_bdgt_acc_cd_o =>ben_pel_shd.g_old_rec.bdgt_acc_cd
366 ,p_pop_cd_o =>ben_pel_shd.g_old_rec.pop_cd
367 ,p_bdgt_due_dt_o =>ben_pel_shd.g_old_rec.bdgt_due_dt
368 ,p_bdgt_export_flag_o =>ben_pel_shd.g_old_rec.bdgt_export_flag
369 ,p_bdgt_iss_dt_o =>ben_pel_shd.g_old_rec.bdgt_iss_dt
370 ,p_bdgt_stat_cd_o =>ben_pel_shd.g_old_rec.bdgt_stat_cd
371 ,p_ws_acc_cd_o =>ben_pel_shd.g_old_rec.ws_acc_cd
372 ,p_ws_due_dt_o =>ben_pel_shd.g_old_rec.ws_due_dt
373 ,p_ws_export_flag_o =>ben_pel_shd.g_old_rec.ws_export_flag
374 ,p_ws_iss_dt_o =>ben_pel_shd.g_old_rec.ws_iss_dt
375 ,p_ws_stat_cd_o =>ben_pel_shd.g_old_rec.ws_stat_cd
376 --cwb
377 ,p_reinstate_cd_o =>ben_pel_shd.g_old_rec.reinstate_cd
378 ,p_reinstate_ovrdn_cd_o =>ben_pel_shd.g_old_rec.reinstate_ovrdn_cd
379 ,p_reopen_le_on_reprocess_o =>ben_pel_shd.g_old_rec.reopen_le_on_reprocess
380 ,p_auto_asnd_dt_o =>ben_pel_shd.g_old_rec.auto_asnd_dt
381 ,p_cbr_elig_perd_strt_dt_o =>ben_pel_shd.g_old_rec.cbr_elig_perd_strt_dt
382 ,p_cbr_elig_perd_end_dt_o =>ben_pel_shd.g_old_rec.cbr_elig_perd_end_dt
383 ,p_lee_rsn_id_o =>ben_pel_shd.g_old_rec.lee_rsn_id
384 ,p_enrt_perd_id_o =>ben_pel_shd.g_old_rec.enrt_perd_id
385 ,p_per_in_ler_id_o =>ben_pel_shd.g_old_rec.per_in_ler_id
386 ,p_pgm_id_o =>ben_pel_shd.g_old_rec.pgm_id
387 ,p_pl_id_o =>ben_pel_shd.g_old_rec.pl_id
388 ,p_business_group_id_o =>ben_pel_shd.g_old_rec.business_group_id
389 ,p_pel_attribute_category_o =>ben_pel_shd.g_old_rec.pel_attribute_category
390 ,p_pel_attribute1_o =>ben_pel_shd.g_old_rec.pel_attribute1
391 ,p_pel_attribute2_o =>ben_pel_shd.g_old_rec.pel_attribute2
392 ,p_pel_attribute3_o =>ben_pel_shd.g_old_rec.pel_attribute3
393 ,p_pel_attribute4_o =>ben_pel_shd.g_old_rec.pel_attribute4
394 ,p_pel_attribute5_o =>ben_pel_shd.g_old_rec.pel_attribute5
395 ,p_pel_attribute6_o =>ben_pel_shd.g_old_rec.pel_attribute6
396 ,p_pel_attribute7_o =>ben_pel_shd.g_old_rec.pel_attribute7
397 ,p_pel_attribute8_o =>ben_pel_shd.g_old_rec.pel_attribute8
398 ,p_pel_attribute9_o =>ben_pel_shd.g_old_rec.pel_attribute9
399 ,p_pel_attribute10_o =>ben_pel_shd.g_old_rec.pel_attribute10
400 ,p_pel_attribute11_o =>ben_pel_shd.g_old_rec.pel_attribute11
401 ,p_pel_attribute12_o =>ben_pel_shd.g_old_rec.pel_attribute12
402 ,p_pel_attribute13_o =>ben_pel_shd.g_old_rec.pel_attribute13
403 ,p_pel_attribute14_o =>ben_pel_shd.g_old_rec.pel_attribute14
404 ,p_pel_attribute15_o =>ben_pel_shd.g_old_rec.pel_attribute15
405 ,p_pel_attribute16_o =>ben_pel_shd.g_old_rec.pel_attribute16
406 ,p_pel_attribute17_o =>ben_pel_shd.g_old_rec.pel_attribute17
407 ,p_pel_attribute18_o =>ben_pel_shd.g_old_rec.pel_attribute18
408 ,p_pel_attribute19_o =>ben_pel_shd.g_old_rec.pel_attribute19
409 ,p_pel_attribute20_o =>ben_pel_shd.g_old_rec.pel_attribute20
410 ,p_pel_attribute21_o =>ben_pel_shd.g_old_rec.pel_attribute21
411 ,p_pel_attribute22_o =>ben_pel_shd.g_old_rec.pel_attribute22
412 ,p_pel_attribute23_o =>ben_pel_shd.g_old_rec.pel_attribute23
413 ,p_pel_attribute24_o =>ben_pel_shd.g_old_rec.pel_attribute24
414 ,p_pel_attribute25_o =>ben_pel_shd.g_old_rec.pel_attribute25
415 ,p_pel_attribute26_o =>ben_pel_shd.g_old_rec.pel_attribute26
416 ,p_pel_attribute27_o =>ben_pel_shd.g_old_rec.pel_attribute27
417 ,p_pel_attribute28_o =>ben_pel_shd.g_old_rec.pel_attribute28
418 ,p_pel_attribute29_o =>ben_pel_shd.g_old_rec.pel_attribute29
419 ,p_pel_attribute30_o =>ben_pel_shd.g_old_rec.pel_attribute30
420 ,p_request_id_o =>ben_pel_shd.g_old_rec.request_id
421 ,p_program_application_id_o =>ben_pel_shd.g_old_rec.program_application_id
422 ,p_program_id_o =>ben_pel_shd.g_old_rec.program_id
423 ,p_program_update_date_o =>ben_pel_shd.g_old_rec.program_update_date
424 ,p_object_version_number_o =>ben_pel_shd.g_old_rec.object_version_number
425 ,p_defer_deenrol_flag_o =>ben_pel_shd.g_old_rec.defer_deenrol_flag
426 ,p_deenrol_made_dt_o =>ben_pel_shd.g_old_rec.deenrol_made_dt
427 );
428 --
429 exception
430 --
431 when hr_api.cannot_find_prog_unit then
432 --
433 hr_api.cannot_find_prog_unit_error
434 (p_module_name => 'ben_pil_elctbl_chc_popl'
435 ,p_hook_type => 'AU');
436 --
437 end;
438 --
439 -- End of API User Hook for post_update.
440 --
441 --
442 hr_utility.set_location(' Leaving:'||l_proc, 10);
443 End post_update;
444 --
445 -- ----------------------------------------------------------------------------
446 -- |-----------------------------< convert_defs >-----------------------------|
447 -- ----------------------------------------------------------------------------
448 -- {Start Of Comments}
449 --
450 -- Description:
451 -- The Convert_Defs procedure has one very important function:
452 -- It must return the record structure for the row with all system defaulted
453 -- values converted into its corresponding parameter value for update. When
454 -- we attempt to update a row through the Upd process , certain
455 -- parameters can be defaulted which enables flexibility in the calling of
456 -- the upd process (e.g. only attributes which need to be updated need to be
457 -- specified). For the upd process to determine which attributes
458 -- have NOT been specified we need to check if the parameter has a reserved
459 -- system default value. Therefore, for all parameters which have a
460 -- corresponding reserved system default mechanism specified we need to
461 -- check if a system default is being used. If a system default is being
462 -- used then we convert the defaulted value into its corresponding attribute
463 -- value held in the g_old_rec data structure.
464 --
465 -- Prerequisites:
466 -- This private function can only be called from the upd process.
467 --
468 -- In Parameters:
469 -- A Pl/Sql record structre.
470 --
471 -- Post Success:
472 -- The record structure will be returned with all system defaulted parameter
473 -- values converted into its current row attribute value.
474 --
475 -- Post Failure:
476 -- No direct error handling is required within this function. Any possible
477 -- errors within this procedure will be a PL/SQL value error due to conversion
478 -- of datatypes or data lengths.
479 --
480 -- Developer Implementation Notes:
481 -- None.
482 --
483 -- Access Status:
484 -- Internal Row Handler Use Only.
485 --
486 -- {End Of Comments}
487 -- ----------------------------------------------------------------------------
488 Procedure convert_defs(p_rec in out nocopy ben_pel_shd.g_rec_type) is
489 --
490 l_proc varchar2(72) := g_package||'convert_defs';
491 --
492 Begin
493 --
494 hr_utility.set_location('Entering:'||l_proc, 5);
495 --
496 -- We must now examine each argument value in the
497 -- p_rec plsql record structure
498 -- to see if a system default is being used. If a system default
499 -- is being used then we must set to the 'current' argument value.
500 --
501 If (p_rec.dflt_enrt_dt = hr_api.g_date) then
502 p_rec.dflt_enrt_dt :=
503 ben_pel_shd.g_old_rec.dflt_enrt_dt;
504 End If;
505 If (p_rec.dflt_asnd_dt = hr_api.g_date) then
506 p_rec.dflt_asnd_dt :=
507 ben_pel_shd.g_old_rec.dflt_asnd_dt;
508 End If;
509 If (p_rec.elcns_made_dt = hr_api.g_date) then
510 p_rec.elcns_made_dt :=
511 ben_pel_shd.g_old_rec.elcns_made_dt;
512 End If;
513 If (p_rec.cls_enrt_dt_to_use_cd = hr_api.g_varchar2) then
514 p_rec.cls_enrt_dt_to_use_cd :=
515 ben_pel_shd.g_old_rec.cls_enrt_dt_to_use_cd;
516 End If;
517 If (p_rec.enrt_typ_cycl_cd = hr_api.g_varchar2) then
518 p_rec.enrt_typ_cycl_cd :=
519 ben_pel_shd.g_old_rec.enrt_typ_cycl_cd;
520 End If;
521 If (p_rec.enrt_perd_end_dt = hr_api.g_date) then
522 p_rec.enrt_perd_end_dt :=
523 ben_pel_shd.g_old_rec.enrt_perd_end_dt;
524 End If;
525 If (p_rec.enrt_perd_strt_dt = hr_api.g_date) then
526 p_rec.enrt_perd_strt_dt :=
527 ben_pel_shd.g_old_rec.enrt_perd_strt_dt;
528 End If;
529 If (p_rec.procg_end_dt = hr_api.g_date) then
530 p_rec.procg_end_dt :=
531 ben_pel_shd.g_old_rec.procg_end_dt;
532 End If;
533 If (p_rec.pil_elctbl_popl_stat_cd = hr_api.g_varchar2) then
534 p_rec.pil_elctbl_popl_stat_cd :=
535 ben_pel_shd.g_old_rec.pil_elctbl_popl_stat_cd;
536 End If;
537 If (p_rec.acty_ref_perd_cd = hr_api.g_varchar2) then
538 p_rec.acty_ref_perd_cd :=
539 ben_pel_shd.g_old_rec.acty_ref_perd_cd;
540 End If;
541
542 If (p_rec.uom = hr_api.g_varchar2) then
543 p_rec.uom :=
544 ben_pel_shd.g_old_rec.uom;
545 End If;
546
547 If (p_rec.comments = hr_api.g_varchar2) then
548 p_rec.comments :=
549 ben_pel_shd.g_old_rec.comments;
550 End If;
551
552 If (p_rec.mgr_ovrid_dt = hr_api.g_date) then
553 p_rec.mgr_ovrid_dt :=
554 ben_pel_shd.g_old_rec.mgr_ovrid_dt;
555 End If;
556
557 If (p_rec.ws_mgr_id = hr_api.g_number) then
558 p_rec.ws_mgr_id :=
559 ben_pel_shd.g_old_rec.ws_mgr_id;
560 End If;
561
562 If (p_rec.mgr_ovrid_person_id = hr_api.g_number) then
563 p_rec.mgr_ovrid_person_id :=
564 ben_pel_shd.g_old_rec.mgr_ovrid_person_id;
565 End If;
566
567 If (p_rec.assignment_id = hr_api.g_number) then
568 p_rec.assignment_id :=
569 ben_pel_shd.g_old_rec.assignment_id;
570 End If;
571
572 If (p_rec.mgr_ovrid_person_id = hr_api.g_number) then
573 p_rec.mgr_ovrid_person_id :=
574 ben_pel_shd.g_old_rec.mgr_ovrid_person_id;
575 End If;
576
577
578 -- cwb
579 If (p_rec.bdgt_acc_cd = hr_api.g_varchar2) then
580 p_rec.bdgt_acc_cd :=
581 ben_pel_shd.g_old_rec.bdgt_acc_cd;
582 End If;
583 If (p_rec.pop_cd = hr_api.g_varchar2) then
584 p_rec.pop_cd :=
585 ben_pel_shd.g_old_rec.pop_cd;
586 End If;
587 If (p_rec.bdgt_due_dt = hr_api.g_date) then
588 p_rec.bdgt_due_dt :=
589 ben_pel_shd.g_old_rec.bdgt_due_dt;
590 End If;
591 If (p_rec.bdgt_export_flag = hr_api.g_varchar2) then
592 p_rec.bdgt_export_flag :=
593 ben_pel_shd.g_old_rec.bdgt_export_flag;
594 End If;
595 If (p_rec.bdgt_iss_dt = hr_api.g_date) then
596 p_rec.bdgt_iss_dt :=
597 ben_pel_shd.g_old_rec.bdgt_iss_dt;
598 End If;
599 If (p_rec.bdgt_stat_cd = hr_api.g_varchar2) then
600 p_rec.bdgt_stat_cd :=
601 ben_pel_shd.g_old_rec.bdgt_stat_cd;
602 End If;
603 If (p_rec.ws_acc_cd = hr_api.g_varchar2) then
604 p_rec.ws_acc_cd :=
605 ben_pel_shd.g_old_rec.ws_acc_cd;
606 End If;
607 If (p_rec.ws_due_dt = hr_api.g_date) then
608 p_rec.ws_due_dt :=
609 ben_pel_shd.g_old_rec.ws_due_dt;
610 End If;
611 If (p_rec.ws_export_flag = hr_api.g_varchar2) then
612 p_rec.ws_export_flag :=
613 ben_pel_shd.g_old_rec.ws_export_flag;
614 End If;
615 If (p_rec.ws_iss_dt = hr_api.g_date) then
616 p_rec.ws_iss_dt :=
617 ben_pel_shd.g_old_rec.ws_iss_dt;
618 End If;
619 If (p_rec.ws_stat_cd = hr_api.g_varchar2) then
620 p_rec.ws_stat_cd :=
621 ben_pel_shd.g_old_rec.ws_stat_cd;
622 End If;
623 -- cwb
624 If (p_rec.reinstate_cd = hr_api.g_varchar2) then
625 p_rec.reinstate_cd :=
626 ben_pel_shd.g_old_rec.reinstate_cd;
627 End If;
628 If (p_rec.reinstate_ovrdn_cd = hr_api.g_varchar2) then
629 p_rec.reinstate_ovrdn_cd :=
630 ben_pel_shd.g_old_rec.reinstate_ovrdn_cd;
631 End If;
632 If (p_rec.auto_asnd_dt = hr_api.g_date) then
633 p_rec.auto_asnd_dt :=
634 ben_pel_shd.g_old_rec.auto_asnd_dt;
635 End If;
636 If (p_rec.cbr_elig_perd_strt_dt = hr_api.g_date) then
637 p_rec.cbr_elig_perd_strt_dt :=
638 ben_pel_shd.g_old_rec.cbr_elig_perd_strt_dt;
639 End If;
640 If (p_rec.cbr_elig_perd_end_dt = hr_api.g_date) then
641 p_rec.cbr_elig_perd_end_dt :=
642 ben_pel_shd.g_old_rec.cbr_elig_perd_end_dt;
643 End If;
644 If (p_rec.lee_rsn_id = hr_api.g_number) then
645 p_rec.lee_rsn_id :=
646 ben_pel_shd.g_old_rec.lee_rsn_id;
647 End If;
648 If (p_rec.enrt_perd_id = hr_api.g_number) then
649 p_rec.enrt_perd_id :=
650 ben_pel_shd.g_old_rec.enrt_perd_id;
651 End If;
652 If (p_rec.per_in_ler_id = hr_api.g_number) then
653 p_rec.per_in_ler_id :=
654 ben_pel_shd.g_old_rec.per_in_ler_id;
655 End If;
656 If (p_rec.pgm_id = hr_api.g_number) then
657 p_rec.pgm_id :=
658 ben_pel_shd.g_old_rec.pgm_id;
659 End If;
660 If (p_rec.pl_id = hr_api.g_number) then
661 p_rec.pl_id :=
662 ben_pel_shd.g_old_rec.pl_id;
663 End If;
664 If (p_rec.business_group_id = hr_api.g_number) then
665 p_rec.business_group_id :=
666 ben_pel_shd.g_old_rec.business_group_id;
667 End If;
668 If (p_rec.pel_attribute_category = hr_api.g_varchar2) then
669 p_rec.pel_attribute_category :=
670 ben_pel_shd.g_old_rec.pel_attribute_category;
671 End If;
672 If (p_rec.pel_attribute1 = hr_api.g_varchar2) then
673 p_rec.pel_attribute1 :=
674 ben_pel_shd.g_old_rec.pel_attribute1;
675 End If;
676 If (p_rec.pel_attribute2 = hr_api.g_varchar2) then
677 p_rec.pel_attribute2 :=
678 ben_pel_shd.g_old_rec.pel_attribute2;
679 End If;
680 If (p_rec.pel_attribute3 = hr_api.g_varchar2) then
681 p_rec.pel_attribute3 :=
682 ben_pel_shd.g_old_rec.pel_attribute3;
683 End If;
684 If (p_rec.pel_attribute4 = hr_api.g_varchar2) then
685 p_rec.pel_attribute4 :=
686 ben_pel_shd.g_old_rec.pel_attribute4;
687 End If;
688 If (p_rec.pel_attribute5 = hr_api.g_varchar2) then
689 p_rec.pel_attribute5 :=
690 ben_pel_shd.g_old_rec.pel_attribute5;
691 End If;
692 If (p_rec.pel_attribute6 = hr_api.g_varchar2) then
693 p_rec.pel_attribute6 :=
694 ben_pel_shd.g_old_rec.pel_attribute6;
695 End If;
696 If (p_rec.pel_attribute7 = hr_api.g_varchar2) then
697 p_rec.pel_attribute7 :=
698 ben_pel_shd.g_old_rec.pel_attribute7;
699 End If;
700 If (p_rec.pel_attribute8 = hr_api.g_varchar2) then
701 p_rec.pel_attribute8 :=
702 ben_pel_shd.g_old_rec.pel_attribute8;
703 End If;
704 If (p_rec.pel_attribute9 = hr_api.g_varchar2) then
705 p_rec.pel_attribute9 :=
706 ben_pel_shd.g_old_rec.pel_attribute9;
707 End If;
708 If (p_rec.pel_attribute10 = hr_api.g_varchar2) then
709 p_rec.pel_attribute10 :=
710 ben_pel_shd.g_old_rec.pel_attribute10;
711 End If;
712 If (p_rec.pel_attribute11 = hr_api.g_varchar2) then
713 p_rec.pel_attribute11 :=
714 ben_pel_shd.g_old_rec.pel_attribute11;
715 End If;
716 If (p_rec.pel_attribute12 = hr_api.g_varchar2) then
717 p_rec.pel_attribute12 :=
718 ben_pel_shd.g_old_rec.pel_attribute12;
719 End If;
720 If (p_rec.pel_attribute13 = hr_api.g_varchar2) then
721 p_rec.pel_attribute13 :=
722 ben_pel_shd.g_old_rec.pel_attribute13;
723 End If;
724 If (p_rec.pel_attribute14 = hr_api.g_varchar2) then
725 p_rec.pel_attribute14 :=
726 ben_pel_shd.g_old_rec.pel_attribute14;
727 End If;
728 If (p_rec.pel_attribute15 = hr_api.g_varchar2) then
729 p_rec.pel_attribute15 :=
730 ben_pel_shd.g_old_rec.pel_attribute15;
731 End If;
732 If (p_rec.pel_attribute16 = hr_api.g_varchar2) then
733 p_rec.pel_attribute16 :=
734 ben_pel_shd.g_old_rec.pel_attribute16;
735 End If;
736 If (p_rec.pel_attribute17 = hr_api.g_varchar2) then
737 p_rec.pel_attribute17 :=
738 ben_pel_shd.g_old_rec.pel_attribute17;
739 End If;
740 If (p_rec.pel_attribute18 = hr_api.g_varchar2) then
741 p_rec.pel_attribute18 :=
742 ben_pel_shd.g_old_rec.pel_attribute18;
743 End If;
744 If (p_rec.pel_attribute19 = hr_api.g_varchar2) then
745 p_rec.pel_attribute19 :=
746 ben_pel_shd.g_old_rec.pel_attribute19;
747 End If;
748 If (p_rec.pel_attribute20 = hr_api.g_varchar2) then
749 p_rec.pel_attribute20 :=
750 ben_pel_shd.g_old_rec.pel_attribute20;
751 End If;
752 If (p_rec.pel_attribute21 = hr_api.g_varchar2) then
753 p_rec.pel_attribute21 :=
754 ben_pel_shd.g_old_rec.pel_attribute21;
755 End If;
756 If (p_rec.pel_attribute22 = hr_api.g_varchar2) then
757 p_rec.pel_attribute22 :=
758 ben_pel_shd.g_old_rec.pel_attribute22;
759 End If;
760 If (p_rec.pel_attribute23 = hr_api.g_varchar2) then
761 p_rec.pel_attribute23 :=
762 ben_pel_shd.g_old_rec.pel_attribute23;
763 End If;
764 If (p_rec.pel_attribute24 = hr_api.g_varchar2) then
765 p_rec.pel_attribute24 :=
766 ben_pel_shd.g_old_rec.pel_attribute24;
767 End If;
768 If (p_rec.pel_attribute25 = hr_api.g_varchar2) then
769 p_rec.pel_attribute25 :=
770 ben_pel_shd.g_old_rec.pel_attribute25;
771 End If;
772 If (p_rec.pel_attribute26 = hr_api.g_varchar2) then
773 p_rec.pel_attribute26 :=
774 ben_pel_shd.g_old_rec.pel_attribute26;
775 End If;
776 If (p_rec.pel_attribute27 = hr_api.g_varchar2) then
777 p_rec.pel_attribute27 :=
778 ben_pel_shd.g_old_rec.pel_attribute27;
779 End If;
780 If (p_rec.pel_attribute28 = hr_api.g_varchar2) then
781 p_rec.pel_attribute28 :=
782 ben_pel_shd.g_old_rec.pel_attribute28;
783 End If;
784 If (p_rec.pel_attribute29 = hr_api.g_varchar2) then
785 p_rec.pel_attribute29 :=
786 ben_pel_shd.g_old_rec.pel_attribute29;
787 End If;
788 If (p_rec.pel_attribute30 = hr_api.g_varchar2) then
789 p_rec.pel_attribute30 :=
790 ben_pel_shd.g_old_rec.pel_attribute30;
791 End If;
792 If (p_rec.request_id = hr_api.g_number) then
793 p_rec.request_id :=
794 ben_pel_shd.g_old_rec.request_id;
795 End If;
796 If (p_rec.program_application_id = hr_api.g_number) then
797 p_rec.program_application_id :=
798 ben_pel_shd.g_old_rec.program_application_id;
799 End If;
800 If (p_rec.program_id = hr_api.g_number) then
801 p_rec.program_id :=
802 ben_pel_shd.g_old_rec.program_id;
803 End If;
804 If (p_rec.program_update_date = hr_api.g_date) then
805 p_rec.program_update_date :=
806 ben_pel_shd.g_old_rec.program_update_date;
807 End If;
808 If (p_rec.defer_deenrol_flag = hr_api.g_varchar2) then
809 p_rec.defer_deenrol_flag :=
810 ben_pel_shd.g_old_rec.defer_deenrol_flag;
811 End If;
812 If (p_rec.deenrol_made_dt = hr_api.g_date) then
813 p_rec.deenrol_made_dt :=
814 ben_pel_shd.g_old_rec.deenrol_made_dt;
815 End If;
816 If (p_rec.reopen_le_on_reprocess = hr_api.g_varchar2) then
817 p_rec.reopen_le_on_reprocess :=
818 ben_pel_shd.g_old_rec.reopen_le_on_reprocess;
819 End If;
820
821 --
822 hr_utility.set_location(' Leaving:'||l_proc, 10);
823 --
824 End convert_defs;
825 --
826 -- ----------------------------------------------------------------------------
827 -- |---------------------------------< upd >----------------------------------|
828 -- ----------------------------------------------------------------------------
829 Procedure upd
830 (
831 p_effective_date in date,
832 p_rec in out nocopy ben_pel_shd.g_rec_type
833 ) is
834 --
835 l_proc varchar2(72) := g_package||'upd';
836 --
837 Begin
838 hr_utility.set_location('Entering:'||l_proc, 5);
839 --
840 -- We must lock the row which we need to update.
841 --
842 ben_pel_shd.lck
843 (
844 p_rec.pil_elctbl_chc_popl_id,
845 p_rec.object_version_number
846 );
847 --
848 -- 1. During an update system defaults are used to determine if
849 -- arguments have been defaulted or not. We must therefore
850 -- derive the full record structure values to be updated.
851 --
852 -- 2. Call the supporting update validate operations.
853 --
854 convert_defs(p_rec);
855 ben_pel_bus.update_validate(p_rec
856 ,p_effective_date);
857 --
858 -- Call the supporting pre-update operation
859 --
860 pre_update(p_rec);
861 --
862 -- Update the row.
863 --
864 update_dml(p_rec);
865 --
866 -- Call the supporting post-update operation
867 --
868 post_update(
869 p_effective_date,p_rec);
870
871 -- DBI - Added DBI Event Logging Hooks
872 /* Commented. Need to uncomment when DBI goes into mainline
873 5554590 : Enabled DBI logging into mainline */
874 -- Bug 12939188
875 /* if HRI_BPL_BEN_UTIL.enable_ben_col_evt_que then
876 HRI_OPL_BEN_ELCTN_EVNTS_EQ.update_event (p_rec => p_rec ,
877 p_pil_rec => null,
878 p_called_from => 'PEL' ,
879 p_effective_date => p_effective_date,
880 p_datetrack_mode => 'UPDATE' );
881 end if;*/
882 End upd;
883 --
884 -- ----------------------------------------------------------------------------
885 -- |---------------------------------< upd >----------------------------------|
886 -- ----------------------------------------------------------------------------
887 Procedure upd
888 (
889 p_effective_date in date,
890 p_pil_elctbl_chc_popl_id in number,
891 p_dflt_enrt_dt in date default hr_api.g_date,
892 p_dflt_asnd_dt in date default hr_api.g_date,
893 p_elcns_made_dt in date default hr_api.g_date,
894 p_cls_enrt_dt_to_use_cd in varchar2 default hr_api.g_varchar2,
895 p_enrt_typ_cycl_cd in varchar2 default hr_api.g_varchar2,
896 p_enrt_perd_end_dt in date default hr_api.g_date,
897 p_enrt_perd_strt_dt in date default hr_api.g_date,
898 p_procg_end_dt in date default hr_api.g_date,
899 p_pil_elctbl_popl_stat_cd in varchar2 default hr_api.g_varchar2,
900 p_acty_ref_perd_cd in varchar2 default hr_api.g_varchar2,
901 p_uom in varchar2 default hr_api.g_varchar2,
902 p_comments in varchar2 default hr_api.g_varchar2,
903 p_mgr_ovrid_dt in date default hr_api.g_date,
904 p_ws_mgr_id in number default hr_api.g_number,
905 p_mgr_ovrid_person_id in number default hr_api.g_number,
906 p_assignment_id in number default hr_api.g_number,
907 --cwb
908 p_bdgt_acc_cd in varchar2 default hr_api.g_varchar2,
909 p_pop_cd in varchar2 default hr_api.g_varchar2,
910 p_bdgt_due_dt in date default hr_api.g_date,
911 p_bdgt_export_flag in varchar2 default hr_api.g_varchar2,
912 p_bdgt_iss_dt in date default hr_api.g_date,
913 p_bdgt_stat_cd in varchar2 default hr_api.g_varchar2,
914 p_ws_acc_cd in varchar2 default hr_api.g_varchar2,
915 p_ws_due_dt in date default hr_api.g_date,
916 p_ws_export_flag in varchar2 default hr_api.g_varchar2,
917 p_ws_iss_dt in date default hr_api.g_date,
918 p_ws_stat_cd in varchar2 default hr_api.g_varchar2,
919 --cwb
920 p_reinstate_cd in varchar2 default hr_api.g_varchar2,
921 p_reinstate_ovrdn_cd in varchar2 default hr_api.g_varchar2,
922 p_reopen_le_on_reprocess in varchar2 default hr_api.g_varchar2,
923 p_auto_asnd_dt in date default hr_api.g_date,
924 p_cbr_elig_perd_strt_dt in date default hr_api.g_date,
925 p_cbr_elig_perd_end_dt in date default hr_api.g_date,
926 p_lee_rsn_id in number default hr_api.g_number,
927 p_enrt_perd_id in number default hr_api.g_number,
928 p_per_in_ler_id in number default hr_api.g_number,
929 p_pgm_id in number default hr_api.g_number,
930 p_pl_id in number default hr_api.g_number,
931 p_business_group_id in number default hr_api.g_number,
932 p_pel_attribute_category in varchar2 default hr_api.g_varchar2,
933 p_pel_attribute1 in varchar2 default hr_api.g_varchar2,
934 p_pel_attribute2 in varchar2 default hr_api.g_varchar2,
935 p_pel_attribute3 in varchar2 default hr_api.g_varchar2,
936 p_pel_attribute4 in varchar2 default hr_api.g_varchar2,
937 p_pel_attribute5 in varchar2 default hr_api.g_varchar2,
938 p_pel_attribute6 in varchar2 default hr_api.g_varchar2,
939 p_pel_attribute7 in varchar2 default hr_api.g_varchar2,
940 p_pel_attribute8 in varchar2 default hr_api.g_varchar2,
941 p_pel_attribute9 in varchar2 default hr_api.g_varchar2,
942 p_pel_attribute10 in varchar2 default hr_api.g_varchar2,
943 p_pel_attribute11 in varchar2 default hr_api.g_varchar2,
944 p_pel_attribute12 in varchar2 default hr_api.g_varchar2,
945 p_pel_attribute13 in varchar2 default hr_api.g_varchar2,
946 p_pel_attribute14 in varchar2 default hr_api.g_varchar2,
947 p_pel_attribute15 in varchar2 default hr_api.g_varchar2,
948 p_pel_attribute16 in varchar2 default hr_api.g_varchar2,
949 p_pel_attribute17 in varchar2 default hr_api.g_varchar2,
950 p_pel_attribute18 in varchar2 default hr_api.g_varchar2,
951 p_pel_attribute19 in varchar2 default hr_api.g_varchar2,
952 p_pel_attribute20 in varchar2 default hr_api.g_varchar2,
953 p_pel_attribute21 in varchar2 default hr_api.g_varchar2,
954 p_pel_attribute22 in varchar2 default hr_api.g_varchar2,
955 p_pel_attribute23 in varchar2 default hr_api.g_varchar2,
956 p_pel_attribute24 in varchar2 default hr_api.g_varchar2,
957 p_pel_attribute25 in varchar2 default hr_api.g_varchar2,
958 p_pel_attribute26 in varchar2 default hr_api.g_varchar2,
959 p_pel_attribute27 in varchar2 default hr_api.g_varchar2,
960 p_pel_attribute28 in varchar2 default hr_api.g_varchar2,
961 p_pel_attribute29 in varchar2 default hr_api.g_varchar2,
962 p_pel_attribute30 in varchar2 default hr_api.g_varchar2,
963 p_request_id in number default hr_api.g_number,
964 p_program_application_id in number default hr_api.g_number,
965 p_program_id in number default hr_api.g_number,
966 p_program_update_date in date default hr_api.g_date,
967 p_object_version_number in out nocopy number,
968 p_defer_deenrol_flag in varchar2 default hr_api.g_varchar2,
969 p_deenrol_made_dt in date default hr_api.g_date
970 ) is
971 --
972 l_rec ben_pel_shd.g_rec_type;
973 l_proc varchar2(72) := g_package||'upd';
974 --
975 Begin
976 hr_utility.set_location('Entering:'||l_proc, 5);
977 --
978 -- Call conversion function to turn arguments into the
979 -- l_rec structure.
980 --
981 l_rec :=
982 ben_pel_shd.convert_args
983 (
984 p_pil_elctbl_chc_popl_id,
985 p_dflt_enrt_dt,
986 p_dflt_asnd_dt,
987 p_elcns_made_dt,
988 p_cls_enrt_dt_to_use_cd,
989 p_enrt_typ_cycl_cd,
990 p_enrt_perd_end_dt,
991 p_enrt_perd_strt_dt,
992 p_procg_end_dt,
993 p_pil_elctbl_popl_stat_cd,
994 p_acty_ref_perd_cd,
995 p_uom,
996 p_comments,
997 p_mgr_ovrid_dt,
998 p_ws_mgr_id,
999 p_mgr_ovrid_person_id,
1000 p_assignment_id,
1001 --cwb
1002 p_bdgt_acc_cd,
1003 p_pop_cd,
1004 p_bdgt_due_dt,
1005 p_bdgt_export_flag,
1006 p_bdgt_iss_dt,
1007 p_bdgt_stat_cd,
1008 p_ws_acc_cd,
1009 p_ws_due_dt,
1010 p_ws_export_flag,
1011 p_ws_iss_dt,
1012 p_ws_stat_cd,
1013 --cwb
1014 p_reinstate_cd,
1015 p_reinstate_ovrdn_cd,
1016 p_reopen_le_on_reprocess,
1017 p_auto_asnd_dt,
1018 p_cbr_elig_perd_strt_dt,
1019 p_cbr_elig_perd_end_dt,
1020 p_lee_rsn_id,
1021 p_enrt_perd_id,
1022 p_per_in_ler_id,
1023 p_pgm_id,
1024 p_pl_id,
1025 p_business_group_id,
1026 p_pel_attribute_category,
1027 p_pel_attribute1,
1028 p_pel_attribute2,
1029 p_pel_attribute3,
1030 p_pel_attribute4,
1031 p_pel_attribute5,
1032 p_pel_attribute6,
1033 p_pel_attribute7,
1034 p_pel_attribute8,
1035 p_pel_attribute9,
1036 p_pel_attribute10,
1037 p_pel_attribute11,
1038 p_pel_attribute12,
1039 p_pel_attribute13,
1040 p_pel_attribute14,
1041 p_pel_attribute15,
1042 p_pel_attribute16,
1043 p_pel_attribute17,
1044 p_pel_attribute18,
1045 p_pel_attribute19,
1046 p_pel_attribute20,
1047 p_pel_attribute21,
1048 p_pel_attribute22,
1049 p_pel_attribute23,
1050 p_pel_attribute24,
1051 p_pel_attribute25,
1052 p_pel_attribute26,
1053 p_pel_attribute27,
1054 p_pel_attribute28,
1055 p_pel_attribute29,
1056 p_pel_attribute30,
1057 p_request_id,
1058 p_program_application_id,
1059 p_program_id,
1060 p_program_update_date,
1061 p_object_version_number,
1062 p_defer_deenrol_flag,
1063 p_deenrol_made_dt
1064 );
1065 --
1066 -- Having converted the arguments into the
1067 -- plsql record structure we call the corresponding record
1068 -- business process.
1069 --
1070 upd(
1071 p_effective_date,l_rec);
1072 p_object_version_number := l_rec.object_version_number;
1073 --
1074 hr_utility.set_location(' Leaving:'||l_proc, 10);
1075 End upd;
1076 --
1077 end ben_pel_upd;