32: --
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_PL_DPNT_CVG_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;
113: program_application_id,
114: program_id,
115: program_update_date,
116: object_version_number
117: from ben_pl_dpnt_cvg_ctfn_f
118: where pl_dpnt_cvg_ctfn_id = p_pl_dpnt_cvg_ctfn_id
119: and p_effective_date
120: between effective_start_date and effective_end_date;
121: --
186: l_parent_key_value1 number;
187: --
188: Cursor C_Sel1 Is
189: select t.pl_id
190: from ben_pl_dpnt_cvg_ctfn_f t
191: where t.pl_dpnt_cvg_ctfn_id = p_base_key_value
192: and p_effective_date
193: between t.effective_start_date and t.effective_end_date;
194: --
208: -- Call the corresponding datetrack api
209: --
210: dt_api.find_dt_del_modes
211: (p_effective_date => p_effective_date,
212: p_base_table_name => 'ben_pl_dpnt_cvg_ctfn_f',
213: p_base_key_column => 'pl_dpnt_cvg_ctfn_id',
214: p_base_key_value => p_base_key_value,
215: p_parent_table_name1 => 'ben_pl_f',
216: p_parent_key_column1 => 'pl_id',
242: -- Call the corresponding datetrack api
243: --
244: dt_api.find_dt_upd_modes
245: (p_effective_date => p_effective_date,
246: p_base_table_name => 'ben_pl_dpnt_cvg_ctfn_f',
247: p_base_key_column => 'pl_dpnt_cvg_ctfn_id',
248: p_base_key_value => p_base_key_value,
249: p_correction => p_correction,
250: p_update => p_update,
275: -- version number.
276: --
277: l_object_version_number :=
278: dt_api.get_object_version_number
279: (p_base_table_name => 'ben_pl_dpnt_cvg_ctfn_f',
280: p_base_key_column => 'pl_dpnt_cvg_ctfn_id',
281: p_base_key_value => p_base_key_value);
282: --
283: hr_utility.set_location(l_proc, 10);
285: --
286: -- Update the specified datetrack row setting the effective
287: -- end date to the specified new effective end date.
288: --
289: update ben_pl_dpnt_cvg_ctfn_f t
290: set t.effective_end_date = p_new_effective_end_date,
291: t.object_version_number = l_object_version_number
292: where t.pl_dpnt_cvg_ctfn_id = p_base_key_value
293: and p_effective_date
371: program_application_id,
372: program_id,
373: program_update_date,
374: object_version_number
375: from ben_pl_dpnt_cvg_ctfn_f
376: where pl_dpnt_cvg_ctfn_id = p_pl_dpnt_cvg_ctfn_id
377: and p_effective_date
378: between effective_start_date and effective_end_date
379: for update nowait;
430: --
431: dt_api.validate_dt_mode
432: (p_effective_date => p_effective_date,
433: p_datetrack_mode => p_datetrack_mode,
434: p_base_table_name => 'ben_pl_dpnt_cvg_ctfn_f',
435: p_base_key_column => 'pl_dpnt_cvg_ctfn_id',
436: p_base_key_value => p_pl_dpnt_cvg_ctfn_id,
437: p_parent_table_name1 => 'ben_pl_f',
438: p_parent_key_column1 => 'pl_id',
467: -- The object is locked therefore we need to supply a meaningful
468: -- error message.
469: --
470: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
471: hr_utility.set_message_token('TABLE_NAME', 'ben_pl_dpnt_cvg_ctfn_f');
472: hr_utility.raise_error;
473: When l_object_invalid then
474: --
475: -- The object doesn't exist or is invalid
474: --
475: -- The object doesn't exist or is invalid
476: --
477: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
478: hr_utility.set_message_token('TABLE_NAME', 'ben_pl_dpnt_cvg_ctfn_f');
479: hr_utility.raise_error;
480: End lck;
481: --
482: -- ----------------------------------------------------------------------------