[Home] [Help]
32: --
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_PL_GD_R_SVC_CTFN_FK1') Then
37: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
38: hr_utility.set_message_token('PROCEDURE', l_proc);
39: hr_utility.set_message_token('STEP','5');
40: hr_utility.raise_error;
109: pct_attribute30,
110: object_version_number ,
111: ctfn_rqd_when_rl ,
112: rqd_flag
113: from ben_pl_gd_r_svc_ctfn_f
114: where pl_gd_r_svc_ctfn_id = p_pl_gd_r_svc_ctfn_id
115: and p_effective_date
116: between effective_start_date and effective_end_date;
117: --
186: Cursor C_Sel1 Is
187: select t.lack_ctfn_deny_rmbmt_rl,
188: t.pl_gd_or_svc_id
189: --t.pl_id
190: from ben_pl_gd_r_svc_ctfn_f t
191: where t.pl_gd_r_svc_ctfn_id = p_base_key_value
192: and p_effective_date
193: between t.effective_start_date and t.effective_end_date;
194: --
210: -- Call the corresponding datetrack api
211: --
212: dt_api.find_dt_del_modes
213: (p_effective_date => p_effective_date,
214: p_base_table_name => 'ben_pl_gd_r_svc_ctfn_f',
215: p_base_key_column => 'pl_gd_r_svc_ctfn_id',
216: p_base_key_value => p_base_key_value,
217: p_parent_table_name1 => 'ff_formulas_f',
218: p_parent_key_column1 => 'formula_id',
250: -- Call the corresponding datetrack api
251: --
252: dt_api.find_dt_upd_modes
253: (p_effective_date => p_effective_date,
254: p_base_table_name => 'ben_pl_gd_r_svc_ctfn_f',
255: p_base_key_column => 'pl_gd_r_svc_ctfn_id',
256: p_base_key_value => p_base_key_value,
257: p_correction => p_correction,
258: p_update => p_update,
283: -- version number.
284: --
285: l_object_version_number :=
286: dt_api.get_object_version_number
287: (p_base_table_name => 'ben_pl_gd_r_svc_ctfn_f',
288: p_base_key_column => 'pl_gd_r_svc_ctfn_id',
289: p_base_key_value => p_base_key_value);
290: --
291: hr_utility.set_location(l_proc, 10);
293: --
294: -- Update the specified datetrack row setting the effective
295: -- end date to the specified new effective end date.
296: --
297: update ben_pl_gd_r_svc_ctfn_f t
298: set t.effective_end_date = p_new_effective_end_date,
299: t.object_version_number = l_object_version_number
300: where t.pl_gd_r_svc_ctfn_id = p_base_key_value
301: and p_effective_date
375: pct_attribute30,
376: object_version_number ,
377: ctfn_rqd_when_rl ,
378: rqd_flag
379: from ben_pl_gd_r_svc_ctfn_f
380: where pl_gd_r_svc_ctfn_id = p_pl_gd_r_svc_ctfn_id
381: and p_effective_date
382: between effective_start_date and effective_end_date
383: for update nowait;
434: --
435: dt_api.validate_dt_mode
436: (p_effective_date => p_effective_date,
437: p_datetrack_mode => p_datetrack_mode,
438: p_base_table_name => 'ben_pl_gd_r_svc_ctfn_f',
439: p_base_key_column => 'pl_gd_r_svc_ctfn_id',
440: p_base_key_value => p_pl_gd_r_svc_ctfn_id,
441: p_parent_table_name1 => 'ff_formulas_f',
442: p_parent_key_column1 => 'formula_id',
477: -- The object is locked therefore we need to supply a meaningful
478: -- error message.
479: --
480: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
481: hr_utility.set_message_token('TABLE_NAME', 'ben_pl_gd_r_svc_ctfn_f');
482: hr_utility.raise_error;
483: When l_object_invalid then
484: --
485: -- The object doesn't exist or is invalid
484: --
485: -- The object doesn't exist or is invalid
486: --
487: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
488: hr_utility.set_message_token('TABLE_NAME', 'ben_pl_gd_r_svc_ctfn_f');
489: hr_utility.raise_error;
490: End lck;
491: --
492: -- ----------------------------------------------------------------------------