[Home] [Help]
52: --
53: -- {End Of Comments}
54: -- ----------------------------------------------------------------------------
55: Procedure update_dml
56: (p_rec in out nocopy ben_cpg_shd.g_rec_type
57: ) is
58: --
59: l_proc varchar2(72) := g_package||'update_dml';
60: --
65: --
66: -- Increment the object version
67: p_rec.object_version_number := p_rec.object_version_number + 1;
68: --
69: ben_cpg_shd.g_api_dml := true; -- Set the api dml status
70: --
71: -- Update the ben_cwb_person_groups Row
72: --
73: update ben_cwb_person_groups
108: where group_per_in_ler_id = p_rec.group_per_in_ler_id
109: and group_pl_id = p_rec.group_pl_id
110: and group_oipl_id = p_rec.group_oipl_id;
111: --
112: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
113: --
114: if g_debug then
115: hr_utility.set_location(' Leaving:'||l_proc, 10);
116: end if;
117: --
118: Exception
119: When hr_api.check_integrity_violated Then
120: -- A check constraint has been violated
121: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
122: ben_cpg_shd.constraint_error
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When hr_api.parent_integrity_violated Then
125: -- Parent integrity has been violated
118: Exception
119: When hr_api.check_integrity_violated Then
120: -- A check constraint has been violated
121: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
122: ben_cpg_shd.constraint_error
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When hr_api.parent_integrity_violated Then
125: -- Parent integrity has been violated
126: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
122: ben_cpg_shd.constraint_error
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When hr_api.parent_integrity_violated Then
125: -- Parent integrity has been violated
126: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
127: ben_cpg_shd.constraint_error
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.unique_integrity_violated Then
130: -- Unique integrity has been violated
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When hr_api.parent_integrity_violated Then
125: -- Parent integrity has been violated
126: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
127: ben_cpg_shd.constraint_error
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.unique_integrity_violated Then
130: -- Unique integrity has been violated
131: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
127: ben_cpg_shd.constraint_error
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.unique_integrity_violated Then
130: -- Unique integrity has been violated
131: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
132: ben_cpg_shd.constraint_error
133: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134: When Others Then
135: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.unique_integrity_violated Then
130: -- Unique integrity has been violated
131: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
132: ben_cpg_shd.constraint_error
133: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134: When Others Then
135: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
136: Raise;
131: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
132: ben_cpg_shd.constraint_error
133: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134: When Others Then
135: ben_cpg_shd.g_api_dml := false; -- Unset the api dml status
136: Raise;
137: End update_dml;
138: --
139: -- ----------------------------------------------------------------------------
168: --
169: -- {End Of Comments}
170: -- ----------------------------------------------------------------------------
171: Procedure pre_update
172: (p_rec in ben_cpg_shd.g_rec_type
173: ) is
174: --
175: l_proc varchar2(72) := g_package||'pre_update';
176: --
216: --
217: -- {End Of Comments}
218: -- ----------------------------------------------------------------------------
219: Procedure post_update
220: (p_rec in ben_cpg_shd.g_rec_type
221: ) is
222: --
223: l_proc varchar2(72) := g_package||'post_update';
224: --
301: => p_rec.rsrv_val_last_upd_by
302: ,p_object_version_number
303: => p_rec.object_version_number
304: ,p_lf_evt_ocrd_dt_o
305: => ben_cpg_shd.g_old_rec.lf_evt_ocrd_dt
306: ,p_bdgt_pop_cd_o
307: => ben_cpg_shd.g_old_rec.bdgt_pop_cd
308: ,p_due_dt_o
309: => ben_cpg_shd.g_old_rec.due_dt
303: => p_rec.object_version_number
304: ,p_lf_evt_ocrd_dt_o
305: => ben_cpg_shd.g_old_rec.lf_evt_ocrd_dt
306: ,p_bdgt_pop_cd_o
307: => ben_cpg_shd.g_old_rec.bdgt_pop_cd
308: ,p_due_dt_o
309: => ben_cpg_shd.g_old_rec.due_dt
310: ,p_access_cd_o
311: => ben_cpg_shd.g_old_rec.access_cd
305: => ben_cpg_shd.g_old_rec.lf_evt_ocrd_dt
306: ,p_bdgt_pop_cd_o
307: => ben_cpg_shd.g_old_rec.bdgt_pop_cd
308: ,p_due_dt_o
309: => ben_cpg_shd.g_old_rec.due_dt
310: ,p_access_cd_o
311: => ben_cpg_shd.g_old_rec.access_cd
312: ,p_approval_cd_o
313: => ben_cpg_shd.g_old_rec.approval_cd
307: => ben_cpg_shd.g_old_rec.bdgt_pop_cd
308: ,p_due_dt_o
309: => ben_cpg_shd.g_old_rec.due_dt
310: ,p_access_cd_o
311: => ben_cpg_shd.g_old_rec.access_cd
312: ,p_approval_cd_o
313: => ben_cpg_shd.g_old_rec.approval_cd
314: ,p_approval_date_o
315: => ben_cpg_shd.g_old_rec.approval_date
309: => ben_cpg_shd.g_old_rec.due_dt
310: ,p_access_cd_o
311: => ben_cpg_shd.g_old_rec.access_cd
312: ,p_approval_cd_o
313: => ben_cpg_shd.g_old_rec.approval_cd
314: ,p_approval_date_o
315: => ben_cpg_shd.g_old_rec.approval_date
316: ,p_approval_comments_o
317: => ben_cpg_shd.g_old_rec.approval_comments
311: => ben_cpg_shd.g_old_rec.access_cd
312: ,p_approval_cd_o
313: => ben_cpg_shd.g_old_rec.approval_cd
314: ,p_approval_date_o
315: => ben_cpg_shd.g_old_rec.approval_date
316: ,p_approval_comments_o
317: => ben_cpg_shd.g_old_rec.approval_comments
318: ,p_submit_cd_o
319: => ben_cpg_shd.g_old_rec.submit_cd
313: => ben_cpg_shd.g_old_rec.approval_cd
314: ,p_approval_date_o
315: => ben_cpg_shd.g_old_rec.approval_date
316: ,p_approval_comments_o
317: => ben_cpg_shd.g_old_rec.approval_comments
318: ,p_submit_cd_o
319: => ben_cpg_shd.g_old_rec.submit_cd
320: ,p_submit_date_o
321: => ben_cpg_shd.g_old_rec.submit_date
315: => ben_cpg_shd.g_old_rec.approval_date
316: ,p_approval_comments_o
317: => ben_cpg_shd.g_old_rec.approval_comments
318: ,p_submit_cd_o
319: => ben_cpg_shd.g_old_rec.submit_cd
320: ,p_submit_date_o
321: => ben_cpg_shd.g_old_rec.submit_date
322: ,p_submit_comments_o
323: => ben_cpg_shd.g_old_rec.submit_comments
317: => ben_cpg_shd.g_old_rec.approval_comments
318: ,p_submit_cd_o
319: => ben_cpg_shd.g_old_rec.submit_cd
320: ,p_submit_date_o
321: => ben_cpg_shd.g_old_rec.submit_date
322: ,p_submit_comments_o
323: => ben_cpg_shd.g_old_rec.submit_comments
324: ,p_dist_bdgt_val_o
325: => ben_cpg_shd.g_old_rec.dist_bdgt_val
319: => ben_cpg_shd.g_old_rec.submit_cd
320: ,p_submit_date_o
321: => ben_cpg_shd.g_old_rec.submit_date
322: ,p_submit_comments_o
323: => ben_cpg_shd.g_old_rec.submit_comments
324: ,p_dist_bdgt_val_o
325: => ben_cpg_shd.g_old_rec.dist_bdgt_val
326: ,p_ws_bdgt_val_o
327: => ben_cpg_shd.g_old_rec.ws_bdgt_val
321: => ben_cpg_shd.g_old_rec.submit_date
322: ,p_submit_comments_o
323: => ben_cpg_shd.g_old_rec.submit_comments
324: ,p_dist_bdgt_val_o
325: => ben_cpg_shd.g_old_rec.dist_bdgt_val
326: ,p_ws_bdgt_val_o
327: => ben_cpg_shd.g_old_rec.ws_bdgt_val
328: ,p_rsrv_val_o
329: => ben_cpg_shd.g_old_rec.rsrv_val
323: => ben_cpg_shd.g_old_rec.submit_comments
324: ,p_dist_bdgt_val_o
325: => ben_cpg_shd.g_old_rec.dist_bdgt_val
326: ,p_ws_bdgt_val_o
327: => ben_cpg_shd.g_old_rec.ws_bdgt_val
328: ,p_rsrv_val_o
329: => ben_cpg_shd.g_old_rec.rsrv_val
330: ,p_dist_bdgt_mn_val_o
331: => ben_cpg_shd.g_old_rec.dist_bdgt_mn_val
325: => ben_cpg_shd.g_old_rec.dist_bdgt_val
326: ,p_ws_bdgt_val_o
327: => ben_cpg_shd.g_old_rec.ws_bdgt_val
328: ,p_rsrv_val_o
329: => ben_cpg_shd.g_old_rec.rsrv_val
330: ,p_dist_bdgt_mn_val_o
331: => ben_cpg_shd.g_old_rec.dist_bdgt_mn_val
332: ,p_dist_bdgt_mx_val_o
333: => ben_cpg_shd.g_old_rec.dist_bdgt_mx_val
327: => ben_cpg_shd.g_old_rec.ws_bdgt_val
328: ,p_rsrv_val_o
329: => ben_cpg_shd.g_old_rec.rsrv_val
330: ,p_dist_bdgt_mn_val_o
331: => ben_cpg_shd.g_old_rec.dist_bdgt_mn_val
332: ,p_dist_bdgt_mx_val_o
333: => ben_cpg_shd.g_old_rec.dist_bdgt_mx_val
334: ,p_dist_bdgt_incr_val_o
335: => ben_cpg_shd.g_old_rec.dist_bdgt_incr_val
329: => ben_cpg_shd.g_old_rec.rsrv_val
330: ,p_dist_bdgt_mn_val_o
331: => ben_cpg_shd.g_old_rec.dist_bdgt_mn_val
332: ,p_dist_bdgt_mx_val_o
333: => ben_cpg_shd.g_old_rec.dist_bdgt_mx_val
334: ,p_dist_bdgt_incr_val_o
335: => ben_cpg_shd.g_old_rec.dist_bdgt_incr_val
336: ,p_ws_bdgt_mn_val_o
337: => ben_cpg_shd.g_old_rec.ws_bdgt_mn_val
331: => ben_cpg_shd.g_old_rec.dist_bdgt_mn_val
332: ,p_dist_bdgt_mx_val_o
333: => ben_cpg_shd.g_old_rec.dist_bdgt_mx_val
334: ,p_dist_bdgt_incr_val_o
335: => ben_cpg_shd.g_old_rec.dist_bdgt_incr_val
336: ,p_ws_bdgt_mn_val_o
337: => ben_cpg_shd.g_old_rec.ws_bdgt_mn_val
338: ,p_ws_bdgt_mx_val_o
339: => ben_cpg_shd.g_old_rec.ws_bdgt_mx_val
333: => ben_cpg_shd.g_old_rec.dist_bdgt_mx_val
334: ,p_dist_bdgt_incr_val_o
335: => ben_cpg_shd.g_old_rec.dist_bdgt_incr_val
336: ,p_ws_bdgt_mn_val_o
337: => ben_cpg_shd.g_old_rec.ws_bdgt_mn_val
338: ,p_ws_bdgt_mx_val_o
339: => ben_cpg_shd.g_old_rec.ws_bdgt_mx_val
340: ,p_ws_bdgt_incr_val_o
341: => ben_cpg_shd.g_old_rec.ws_bdgt_incr_val
335: => ben_cpg_shd.g_old_rec.dist_bdgt_incr_val
336: ,p_ws_bdgt_mn_val_o
337: => ben_cpg_shd.g_old_rec.ws_bdgt_mn_val
338: ,p_ws_bdgt_mx_val_o
339: => ben_cpg_shd.g_old_rec.ws_bdgt_mx_val
340: ,p_ws_bdgt_incr_val_o
341: => ben_cpg_shd.g_old_rec.ws_bdgt_incr_val
342: ,p_rsrv_mn_val_o
343: => ben_cpg_shd.g_old_rec.rsrv_mn_val
337: => ben_cpg_shd.g_old_rec.ws_bdgt_mn_val
338: ,p_ws_bdgt_mx_val_o
339: => ben_cpg_shd.g_old_rec.ws_bdgt_mx_val
340: ,p_ws_bdgt_incr_val_o
341: => ben_cpg_shd.g_old_rec.ws_bdgt_incr_val
342: ,p_rsrv_mn_val_o
343: => ben_cpg_shd.g_old_rec.rsrv_mn_val
344: ,p_rsrv_mx_val_o
345: => ben_cpg_shd.g_old_rec.rsrv_mx_val
339: => ben_cpg_shd.g_old_rec.ws_bdgt_mx_val
340: ,p_ws_bdgt_incr_val_o
341: => ben_cpg_shd.g_old_rec.ws_bdgt_incr_val
342: ,p_rsrv_mn_val_o
343: => ben_cpg_shd.g_old_rec.rsrv_mn_val
344: ,p_rsrv_mx_val_o
345: => ben_cpg_shd.g_old_rec.rsrv_mx_val
346: ,p_rsrv_incr_val_o
347: => ben_cpg_shd.g_old_rec.rsrv_incr_val
341: => ben_cpg_shd.g_old_rec.ws_bdgt_incr_val
342: ,p_rsrv_mn_val_o
343: => ben_cpg_shd.g_old_rec.rsrv_mn_val
344: ,p_rsrv_mx_val_o
345: => ben_cpg_shd.g_old_rec.rsrv_mx_val
346: ,p_rsrv_incr_val_o
347: => ben_cpg_shd.g_old_rec.rsrv_incr_val
348: ,p_dist_bdgt_iss_val_o
349: => ben_cpg_shd.g_old_rec.dist_bdgt_iss_val
343: => ben_cpg_shd.g_old_rec.rsrv_mn_val
344: ,p_rsrv_mx_val_o
345: => ben_cpg_shd.g_old_rec.rsrv_mx_val
346: ,p_rsrv_incr_val_o
347: => ben_cpg_shd.g_old_rec.rsrv_incr_val
348: ,p_dist_bdgt_iss_val_o
349: => ben_cpg_shd.g_old_rec.dist_bdgt_iss_val
350: ,p_ws_bdgt_iss_val_o
351: => ben_cpg_shd.g_old_rec.ws_bdgt_iss_val
345: => ben_cpg_shd.g_old_rec.rsrv_mx_val
346: ,p_rsrv_incr_val_o
347: => ben_cpg_shd.g_old_rec.rsrv_incr_val
348: ,p_dist_bdgt_iss_val_o
349: => ben_cpg_shd.g_old_rec.dist_bdgt_iss_val
350: ,p_ws_bdgt_iss_val_o
351: => ben_cpg_shd.g_old_rec.ws_bdgt_iss_val
352: ,p_dist_bdgt_iss_date_o
353: => ben_cpg_shd.g_old_rec.dist_bdgt_iss_date
347: => ben_cpg_shd.g_old_rec.rsrv_incr_val
348: ,p_dist_bdgt_iss_val_o
349: => ben_cpg_shd.g_old_rec.dist_bdgt_iss_val
350: ,p_ws_bdgt_iss_val_o
351: => ben_cpg_shd.g_old_rec.ws_bdgt_iss_val
352: ,p_dist_bdgt_iss_date_o
353: => ben_cpg_shd.g_old_rec.dist_bdgt_iss_date
354: ,p_ws_bdgt_iss_date_o
355: => ben_cpg_shd.g_old_rec.ws_bdgt_iss_date
349: => ben_cpg_shd.g_old_rec.dist_bdgt_iss_val
350: ,p_ws_bdgt_iss_val_o
351: => ben_cpg_shd.g_old_rec.ws_bdgt_iss_val
352: ,p_dist_bdgt_iss_date_o
353: => ben_cpg_shd.g_old_rec.dist_bdgt_iss_date
354: ,p_ws_bdgt_iss_date_o
355: => ben_cpg_shd.g_old_rec.ws_bdgt_iss_date
356: ,p_ws_bdgt_val_last_upd_date_o
357: => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_date
351: => ben_cpg_shd.g_old_rec.ws_bdgt_iss_val
352: ,p_dist_bdgt_iss_date_o
353: => ben_cpg_shd.g_old_rec.dist_bdgt_iss_date
354: ,p_ws_bdgt_iss_date_o
355: => ben_cpg_shd.g_old_rec.ws_bdgt_iss_date
356: ,p_ws_bdgt_val_last_upd_date_o
357: => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_date
358: ,p_dist_bdgt_val_last_upd_dat_o
359: => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_date
353: => ben_cpg_shd.g_old_rec.dist_bdgt_iss_date
354: ,p_ws_bdgt_iss_date_o
355: => ben_cpg_shd.g_old_rec.ws_bdgt_iss_date
356: ,p_ws_bdgt_val_last_upd_date_o
357: => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_date
358: ,p_dist_bdgt_val_last_upd_dat_o
359: => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_date
360: ,p_rsrv_val_last_upd_date_o
361: => ben_cpg_shd.g_old_rec.rsrv_val_last_upd_date
355: => ben_cpg_shd.g_old_rec.ws_bdgt_iss_date
356: ,p_ws_bdgt_val_last_upd_date_o
357: => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_date
358: ,p_dist_bdgt_val_last_upd_dat_o
359: => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_date
360: ,p_rsrv_val_last_upd_date_o
361: => ben_cpg_shd.g_old_rec.rsrv_val_last_upd_date
362: ,p_ws_bdgt_val_last_upd_by_o
363: => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_by
357: => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_date
358: ,p_dist_bdgt_val_last_upd_dat_o
359: => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_date
360: ,p_rsrv_val_last_upd_date_o
361: => ben_cpg_shd.g_old_rec.rsrv_val_last_upd_date
362: ,p_ws_bdgt_val_last_upd_by_o
363: => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_by
364: ,p_dist_bdgt_val_last_upd_by_o
365: => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_by
359: => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_date
360: ,p_rsrv_val_last_upd_date_o
361: => ben_cpg_shd.g_old_rec.rsrv_val_last_upd_date
362: ,p_ws_bdgt_val_last_upd_by_o
363: => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_by
364: ,p_dist_bdgt_val_last_upd_by_o
365: => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_by
366: ,p_rsrv_val_last_upd_by_o
367: => ben_cpg_shd.g_old_rec.rsrv_val_last_upd_by
361: => ben_cpg_shd.g_old_rec.rsrv_val_last_upd_date
362: ,p_ws_bdgt_val_last_upd_by_o
363: => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_by
364: ,p_dist_bdgt_val_last_upd_by_o
365: => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_by
366: ,p_rsrv_val_last_upd_by_o
367: => ben_cpg_shd.g_old_rec.rsrv_val_last_upd_by
368: ,p_object_version_number_o
369: => ben_cpg_shd.g_old_rec.object_version_number
363: => ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_by
364: ,p_dist_bdgt_val_last_upd_by_o
365: => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_by
366: ,p_rsrv_val_last_upd_by_o
367: => ben_cpg_shd.g_old_rec.rsrv_val_last_upd_by
368: ,p_object_version_number_o
369: => ben_cpg_shd.g_old_rec.object_version_number
370: );
371: --
365: => ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_by
366: ,p_rsrv_val_last_upd_by_o
367: => ben_cpg_shd.g_old_rec.rsrv_val_last_upd_by
368: ,p_object_version_number_o
369: => ben_cpg_shd.g_old_rec.object_version_number
370: );
371: --
372: exception
373: --
427: --
428: -- {End Of Comments}
429: -- ----------------------------------------------------------------------------
430: Procedure convert_defs
431: (p_rec in out nocopy ben_cpg_shd.g_rec_type
432: ) is
433: --
434: Begin
435: --
439: -- is being used then we must set to the 'current' argument value.
440: --
441: If (p_rec.lf_evt_ocrd_dt = hr_api.g_date) then
442: p_rec.lf_evt_ocrd_dt :=
443: ben_cpg_shd.g_old_rec.lf_evt_ocrd_dt;
444: End If;
445: If (p_rec.bdgt_pop_cd = hr_api.g_varchar2) then
446: p_rec.bdgt_pop_cd :=
447: ben_cpg_shd.g_old_rec.bdgt_pop_cd;
443: ben_cpg_shd.g_old_rec.lf_evt_ocrd_dt;
444: End If;
445: If (p_rec.bdgt_pop_cd = hr_api.g_varchar2) then
446: p_rec.bdgt_pop_cd :=
447: ben_cpg_shd.g_old_rec.bdgt_pop_cd;
448: End If;
449: If (p_rec.due_dt = hr_api.g_date) then
450: p_rec.due_dt :=
451: ben_cpg_shd.g_old_rec.due_dt;
447: ben_cpg_shd.g_old_rec.bdgt_pop_cd;
448: End If;
449: If (p_rec.due_dt = hr_api.g_date) then
450: p_rec.due_dt :=
451: ben_cpg_shd.g_old_rec.due_dt;
452: End If;
453: If (p_rec.access_cd = hr_api.g_varchar2) then
454: p_rec.access_cd :=
455: ben_cpg_shd.g_old_rec.access_cd;
451: ben_cpg_shd.g_old_rec.due_dt;
452: End If;
453: If (p_rec.access_cd = hr_api.g_varchar2) then
454: p_rec.access_cd :=
455: ben_cpg_shd.g_old_rec.access_cd;
456: End If;
457: If (p_rec.approval_cd = hr_api.g_varchar2) then
458: p_rec.approval_cd :=
459: ben_cpg_shd.g_old_rec.approval_cd;
455: ben_cpg_shd.g_old_rec.access_cd;
456: End If;
457: If (p_rec.approval_cd = hr_api.g_varchar2) then
458: p_rec.approval_cd :=
459: ben_cpg_shd.g_old_rec.approval_cd;
460: End If;
461: If (p_rec.approval_date = hr_api.g_date) then
462: p_rec.approval_date :=
463: ben_cpg_shd.g_old_rec.approval_date;
459: ben_cpg_shd.g_old_rec.approval_cd;
460: End If;
461: If (p_rec.approval_date = hr_api.g_date) then
462: p_rec.approval_date :=
463: ben_cpg_shd.g_old_rec.approval_date;
464: End If;
465: If (p_rec.approval_comments = hr_api.g_varchar2) then
466: p_rec.approval_comments :=
467: ben_cpg_shd.g_old_rec.approval_comments;
463: ben_cpg_shd.g_old_rec.approval_date;
464: End If;
465: If (p_rec.approval_comments = hr_api.g_varchar2) then
466: p_rec.approval_comments :=
467: ben_cpg_shd.g_old_rec.approval_comments;
468: End If;
469: If (p_rec.submit_cd = hr_api.g_varchar2) then
470: p_rec.submit_cd :=
471: ben_cpg_shd.g_old_rec.submit_cd;
467: ben_cpg_shd.g_old_rec.approval_comments;
468: End If;
469: If (p_rec.submit_cd = hr_api.g_varchar2) then
470: p_rec.submit_cd :=
471: ben_cpg_shd.g_old_rec.submit_cd;
472: End If;
473: If (p_rec.submit_date = hr_api.g_date) then
474: p_rec.submit_date :=
475: ben_cpg_shd.g_old_rec.submit_date;
471: ben_cpg_shd.g_old_rec.submit_cd;
472: End If;
473: If (p_rec.submit_date = hr_api.g_date) then
474: p_rec.submit_date :=
475: ben_cpg_shd.g_old_rec.submit_date;
476: End If;
477: If (p_rec.submit_comments = hr_api.g_varchar2) then
478: p_rec.submit_comments :=
479: ben_cpg_shd.g_old_rec.submit_comments;
475: ben_cpg_shd.g_old_rec.submit_date;
476: End If;
477: If (p_rec.submit_comments = hr_api.g_varchar2) then
478: p_rec.submit_comments :=
479: ben_cpg_shd.g_old_rec.submit_comments;
480: End If;
481: If (p_rec.dist_bdgt_val = hr_api.g_number) then
482: p_rec.dist_bdgt_val :=
483: ben_cpg_shd.g_old_rec.dist_bdgt_val;
479: ben_cpg_shd.g_old_rec.submit_comments;
480: End If;
481: If (p_rec.dist_bdgt_val = hr_api.g_number) then
482: p_rec.dist_bdgt_val :=
483: ben_cpg_shd.g_old_rec.dist_bdgt_val;
484: End If;
485: If (p_rec.ws_bdgt_val = hr_api.g_number) then
486: p_rec.ws_bdgt_val :=
487: ben_cpg_shd.g_old_rec.ws_bdgt_val;
483: ben_cpg_shd.g_old_rec.dist_bdgt_val;
484: End If;
485: If (p_rec.ws_bdgt_val = hr_api.g_number) then
486: p_rec.ws_bdgt_val :=
487: ben_cpg_shd.g_old_rec.ws_bdgt_val;
488: End If;
489: If (p_rec.rsrv_val = hr_api.g_number) then
490: p_rec.rsrv_val :=
491: ben_cpg_shd.g_old_rec.rsrv_val;
487: ben_cpg_shd.g_old_rec.ws_bdgt_val;
488: End If;
489: If (p_rec.rsrv_val = hr_api.g_number) then
490: p_rec.rsrv_val :=
491: ben_cpg_shd.g_old_rec.rsrv_val;
492: End If;
493: If (p_rec.dist_bdgt_mn_val = hr_api.g_number) then
494: p_rec.dist_bdgt_mn_val :=
495: ben_cpg_shd.g_old_rec.dist_bdgt_mn_val;
491: ben_cpg_shd.g_old_rec.rsrv_val;
492: End If;
493: If (p_rec.dist_bdgt_mn_val = hr_api.g_number) then
494: p_rec.dist_bdgt_mn_val :=
495: ben_cpg_shd.g_old_rec.dist_bdgt_mn_val;
496: End If;
497: If (p_rec.dist_bdgt_mx_val = hr_api.g_number) then
498: p_rec.dist_bdgt_mx_val :=
499: ben_cpg_shd.g_old_rec.dist_bdgt_mx_val;
495: ben_cpg_shd.g_old_rec.dist_bdgt_mn_val;
496: End If;
497: If (p_rec.dist_bdgt_mx_val = hr_api.g_number) then
498: p_rec.dist_bdgt_mx_val :=
499: ben_cpg_shd.g_old_rec.dist_bdgt_mx_val;
500: End If;
501: If (p_rec.dist_bdgt_incr_val = hr_api.g_number) then
502: p_rec.dist_bdgt_incr_val :=
503: ben_cpg_shd.g_old_rec.dist_bdgt_incr_val;
499: ben_cpg_shd.g_old_rec.dist_bdgt_mx_val;
500: End If;
501: If (p_rec.dist_bdgt_incr_val = hr_api.g_number) then
502: p_rec.dist_bdgt_incr_val :=
503: ben_cpg_shd.g_old_rec.dist_bdgt_incr_val;
504: End If;
505: If (p_rec.ws_bdgt_mn_val = hr_api.g_number) then
506: p_rec.ws_bdgt_mn_val :=
507: ben_cpg_shd.g_old_rec.ws_bdgt_mn_val;
503: ben_cpg_shd.g_old_rec.dist_bdgt_incr_val;
504: End If;
505: If (p_rec.ws_bdgt_mn_val = hr_api.g_number) then
506: p_rec.ws_bdgt_mn_val :=
507: ben_cpg_shd.g_old_rec.ws_bdgt_mn_val;
508: End If;
509: If (p_rec.ws_bdgt_mx_val = hr_api.g_number) then
510: p_rec.ws_bdgt_mx_val :=
511: ben_cpg_shd.g_old_rec.ws_bdgt_mx_val;
507: ben_cpg_shd.g_old_rec.ws_bdgt_mn_val;
508: End If;
509: If (p_rec.ws_bdgt_mx_val = hr_api.g_number) then
510: p_rec.ws_bdgt_mx_val :=
511: ben_cpg_shd.g_old_rec.ws_bdgt_mx_val;
512: End If;
513: If (p_rec.ws_bdgt_incr_val = hr_api.g_number) then
514: p_rec.ws_bdgt_incr_val :=
515: ben_cpg_shd.g_old_rec.ws_bdgt_incr_val;
511: ben_cpg_shd.g_old_rec.ws_bdgt_mx_val;
512: End If;
513: If (p_rec.ws_bdgt_incr_val = hr_api.g_number) then
514: p_rec.ws_bdgt_incr_val :=
515: ben_cpg_shd.g_old_rec.ws_bdgt_incr_val;
516: End If;
517: If (p_rec.rsrv_mn_val = hr_api.g_number) then
518: p_rec.rsrv_mn_val :=
519: ben_cpg_shd.g_old_rec.rsrv_mn_val;
515: ben_cpg_shd.g_old_rec.ws_bdgt_incr_val;
516: End If;
517: If (p_rec.rsrv_mn_val = hr_api.g_number) then
518: p_rec.rsrv_mn_val :=
519: ben_cpg_shd.g_old_rec.rsrv_mn_val;
520: End If;
521: If (p_rec.rsrv_mx_val = hr_api.g_number) then
522: p_rec.rsrv_mx_val :=
523: ben_cpg_shd.g_old_rec.rsrv_mx_val;
519: ben_cpg_shd.g_old_rec.rsrv_mn_val;
520: End If;
521: If (p_rec.rsrv_mx_val = hr_api.g_number) then
522: p_rec.rsrv_mx_val :=
523: ben_cpg_shd.g_old_rec.rsrv_mx_val;
524: End If;
525: If (p_rec.rsrv_incr_val = hr_api.g_number) then
526: p_rec.rsrv_incr_val :=
527: ben_cpg_shd.g_old_rec.rsrv_incr_val;
523: ben_cpg_shd.g_old_rec.rsrv_mx_val;
524: End If;
525: If (p_rec.rsrv_incr_val = hr_api.g_number) then
526: p_rec.rsrv_incr_val :=
527: ben_cpg_shd.g_old_rec.rsrv_incr_val;
528: End If;
529: If (p_rec.dist_bdgt_iss_val = hr_api.g_number) then
530: p_rec.dist_bdgt_iss_val :=
531: ben_cpg_shd.g_old_rec.dist_bdgt_iss_val;
527: ben_cpg_shd.g_old_rec.rsrv_incr_val;
528: End If;
529: If (p_rec.dist_bdgt_iss_val = hr_api.g_number) then
530: p_rec.dist_bdgt_iss_val :=
531: ben_cpg_shd.g_old_rec.dist_bdgt_iss_val;
532: End If;
533: If (p_rec.ws_bdgt_iss_val = hr_api.g_number) then
534: p_rec.ws_bdgt_iss_val :=
535: ben_cpg_shd.g_old_rec.ws_bdgt_iss_val;
531: ben_cpg_shd.g_old_rec.dist_bdgt_iss_val;
532: End If;
533: If (p_rec.ws_bdgt_iss_val = hr_api.g_number) then
534: p_rec.ws_bdgt_iss_val :=
535: ben_cpg_shd.g_old_rec.ws_bdgt_iss_val;
536: End If;
537: If (p_rec.dist_bdgt_iss_date = hr_api.g_date) then
538: p_rec.dist_bdgt_iss_date :=
539: ben_cpg_shd.g_old_rec.dist_bdgt_iss_date;
535: ben_cpg_shd.g_old_rec.ws_bdgt_iss_val;
536: End If;
537: If (p_rec.dist_bdgt_iss_date = hr_api.g_date) then
538: p_rec.dist_bdgt_iss_date :=
539: ben_cpg_shd.g_old_rec.dist_bdgt_iss_date;
540: End If;
541: If (p_rec.ws_bdgt_iss_date = hr_api.g_date) then
542: p_rec.ws_bdgt_iss_date :=
543: ben_cpg_shd.g_old_rec.ws_bdgt_iss_date;
539: ben_cpg_shd.g_old_rec.dist_bdgt_iss_date;
540: End If;
541: If (p_rec.ws_bdgt_iss_date = hr_api.g_date) then
542: p_rec.ws_bdgt_iss_date :=
543: ben_cpg_shd.g_old_rec.ws_bdgt_iss_date;
544: End If;
545: If (p_rec.ws_bdgt_val_last_upd_date = hr_api.g_date) then
546: p_rec.ws_bdgt_val_last_upd_date :=
547: ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_date;
543: ben_cpg_shd.g_old_rec.ws_bdgt_iss_date;
544: End If;
545: If (p_rec.ws_bdgt_val_last_upd_date = hr_api.g_date) then
546: p_rec.ws_bdgt_val_last_upd_date :=
547: ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_date;
548: End If;
549: If (p_rec.dist_bdgt_val_last_upd_date = hr_api.g_date) then
550: p_rec.dist_bdgt_val_last_upd_date :=
551: ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_date;
547: ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_date;
548: End If;
549: If (p_rec.dist_bdgt_val_last_upd_date = hr_api.g_date) then
550: p_rec.dist_bdgt_val_last_upd_date :=
551: ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_date;
552: End If;
553: If (p_rec.rsrv_val_last_upd_date = hr_api.g_date) then
554: p_rec.rsrv_val_last_upd_date :=
555: ben_cpg_shd.g_old_rec.rsrv_val_last_upd_date;
551: ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_date;
552: End If;
553: If (p_rec.rsrv_val_last_upd_date = hr_api.g_date) then
554: p_rec.rsrv_val_last_upd_date :=
555: ben_cpg_shd.g_old_rec.rsrv_val_last_upd_date;
556: End If;
557: If (p_rec.ws_bdgt_val_last_upd_by = hr_api.g_number) then
558: p_rec.ws_bdgt_val_last_upd_by :=
559: ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_by;
555: ben_cpg_shd.g_old_rec.rsrv_val_last_upd_date;
556: End If;
557: If (p_rec.ws_bdgt_val_last_upd_by = hr_api.g_number) then
558: p_rec.ws_bdgt_val_last_upd_by :=
559: ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_by;
560: End If;
561: If (p_rec.dist_bdgt_val_last_upd_by = hr_api.g_number) then
562: p_rec.dist_bdgt_val_last_upd_by :=
563: ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_by;
559: ben_cpg_shd.g_old_rec.ws_bdgt_val_last_upd_by;
560: End If;
561: If (p_rec.dist_bdgt_val_last_upd_by = hr_api.g_number) then
562: p_rec.dist_bdgt_val_last_upd_by :=
563: ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_by;
564: End If;
565: If (p_rec.rsrv_val_last_upd_by = hr_api.g_number) then
566: p_rec.rsrv_val_last_upd_by :=
567: ben_cpg_shd.g_old_rec.rsrv_val_last_upd_by;
563: ben_cpg_shd.g_old_rec.dist_bdgt_val_last_upd_by;
564: End If;
565: If (p_rec.rsrv_val_last_upd_by = hr_api.g_number) then
566: p_rec.rsrv_val_last_upd_by :=
567: ben_cpg_shd.g_old_rec.rsrv_val_last_upd_by;
568: End If;
569: --
570: End convert_defs;
571: --
572: -- ----------------------------------------------------------------------------
573: -- |---------------------------------< upd >----------------------------------|
574: -- ----------------------------------------------------------------------------
575: Procedure upd
576: (p_rec in out nocopy ben_cpg_shd.g_rec_type
577: ) is
578: --
579: l_proc varchar2(72) := g_package||'upd';
580: --
584: end if;
585: --
586: -- We must lock the row which we need to update.
587: --
588: ben_cpg_shd.lck
589: (p_rec.group_per_in_ler_id
590: ,p_rec.group_pl_id
591: ,p_rec.group_oipl_id
592: ,p_rec.object_version_number
665: ,p_dist_bdgt_val_last_upd_by in number default hr_api.g_number
666: ,p_rsrv_val_last_upd_by in number default hr_api.g_number
667: ) is
668: --
669: l_rec ben_cpg_shd.g_rec_type;
670: l_proc varchar2(72) := g_package||'upd';
671: --
672: Begin
673: if g_debug then
677: -- Call conversion function to turn arguments into the
678: -- l_rec structure.
679: --
680: l_rec :=
681: ben_cpg_shd.convert_args
682: (p_group_per_in_ler_id
683: ,p_group_pl_id
684: ,p_group_oipl_id
685: ,p_lf_evt_ocrd_dt