[Home] [Help]
32: --
33: Begin
34: hr_utility.set_location('Entering:'||l_proc, 5);
35: --
36: If (p_constraint_name = 'BEN_PGM_FK1') Then
37: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38: fnd_message.set_token('PROCEDURE', l_proc);
39: fnd_message.set_token('STEP','5');
40: fnd_message.raise_error;
37: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
38: fnd_message.set_token('PROCEDURE', l_proc);
39: fnd_message.set_token('STEP','5');
40: fnd_message.raise_error;
41: ElsIf (p_constraint_name = 'BEN_PGM_F_PK') Then
42: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
43: fnd_message.set_token('PROCEDURE', l_proc);
44: fnd_message.set_token('STEP','10');
45: fnd_message.raise_error;
177: pgm_attribute29,
178: pgm_attribute30,
179: all_inelig,
180: object_version_number
181: from ben_pgm_f
182: where pgm_id = p_pgm_id
183: and p_effective_date
184: between effective_start_date and effective_end_date;
185: --
260: t.enrt_cvg_end_dt_rl,
261: t.enrt_cvg_strt_dt_rl,
262: t.rt_end_dt_rl,
263: t.rt_strt_dt_rl
264: from ben_pgm_f t
265: where t.pgm_id = p_base_key_value
266: and p_effective_date
267: between t.effective_start_date and t.effective_end_date;
268: --
287: -- Call the corresponding datetrack api
288: --
289: dt_api.find_dt_del_modes
290: (p_effective_date => p_effective_date,
291: p_base_table_name => 'ben_pgm_f',
292: p_base_key_column => 'pgm_id',
293: p_base_key_value => p_base_key_value,
294: p_parent_table_name1 => 'ff_formulas_f',
295: p_parent_key_column1 => 'formula_id',
336: -- Call the corresponding datetrack api
337: --
338: dt_api.find_dt_upd_modes
339: (p_effective_date => p_effective_date,
340: p_base_table_name => 'ben_pgm_f',
341: p_base_key_column => 'pgm_id',
342: p_base_key_value => p_base_key_value,
343: p_correction => p_correction,
344: p_update => p_update,
369: -- version number.
370: --
371: l_object_version_number :=
372: dt_api.get_object_version_number
373: (p_base_table_name => 'ben_pgm_f',
374: p_base_key_column => 'pgm_id',
375: p_base_key_value => p_base_key_value);
376: --
377: hr_utility.set_location(l_proc, 10);
379: --
380: -- Update the specified datetrack row setting the effective
381: -- end date to the specified new effective end date.
382: --
383: update ben_pgm_f t
384: set t.effective_end_date = p_new_effective_end_date,
385: t.object_version_number = l_object_version_number
386: where t.pgm_id = p_base_key_value
387: and p_effective_date
529: pgm_attribute29,
530: pgm_attribute30,
531: all_inelig,
532: object_version_number
533: from ben_pgm_f
534: where pgm_id = p_pgm_id
535: and p_effective_date
536: between effective_start_date and effective_end_date
537: for update nowait;
588: --
589: dt_api.validate_dt_mode
590: (p_effective_date => p_effective_date,
591: p_datetrack_mode => p_datetrack_mode,
592: p_base_table_name => 'ben_pgm_f',
593: p_base_key_column => 'pgm_id',
594: p_base_key_value => p_pgm_id,
595: p_parent_table_name1 => 'ff_formulas_f',
596: p_parent_key_column1 => 'formula_id',
641: -- accept a max of 10 parent or child tables
642: dt_api.validate_dt_mode
643: (p_effective_date => p_effective_date,
644: p_datetrack_mode => p_datetrack_mode,
645: p_base_table_name => 'ben_pgm_f',
646: p_base_key_column => 'pgm_id',
647: p_base_key_value => p_pgm_id,
648: p_child_table_name1 => 'ben_apld_dpnt_cvg_elig_prfl_f',
649: p_child_key_column1 => 'apld_dpnt_cvg_elig_prfl_id',
693: -- The object is locked therefore we need to supply a meaningful
694: -- error message.
695: --
696: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
697: fnd_message.set_token('TABLE_NAME', 'ben_pgm_f');
698: fnd_message.raise_error;
699: When l_object_invalid then
700: --
701: -- The object doesn't exist or is invalid
700: --
701: -- The object doesn't exist or is invalid
702: --
703: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
704: fnd_message.set_token('TABLE_NAME', 'ben_pgm_f');
705: fnd_message.raise_error;
706: End lck;
707: --
708: -- ----------------------------------------------------------------------------