[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;
176: pgm_attribute28,
177: pgm_attribute29,
178: pgm_attribute30,
179: object_version_number
180: from ben_pgm_f
181: where pgm_id = p_pgm_id
182: and p_effective_date
183: between effective_start_date and effective_end_date;
184: --
259: t.enrt_cvg_end_dt_rl,
260: t.enrt_cvg_strt_dt_rl,
261: t.rt_end_dt_rl,
262: t.rt_strt_dt_rl
263: from ben_pgm_f t
264: where t.pgm_id = p_base_key_value
265: and p_effective_date
266: between t.effective_start_date and t.effective_end_date;
267: --
286: -- Call the corresponding datetrack api
287: --
288: dt_api.find_dt_del_modes
289: (p_effective_date => p_effective_date,
290: p_base_table_name => 'ben_pgm_f',
291: p_base_key_column => 'pgm_id',
292: p_base_key_value => p_base_key_value,
293: p_parent_table_name1 => 'ff_formulas_f',
294: p_parent_key_column1 => 'formula_id',
335: -- Call the corresponding datetrack api
336: --
337: dt_api.find_dt_upd_modes
338: (p_effective_date => p_effective_date,
339: p_base_table_name => 'ben_pgm_f',
340: p_base_key_column => 'pgm_id',
341: p_base_key_value => p_base_key_value,
342: p_correction => p_correction,
343: p_update => p_update,
368: -- version number.
369: --
370: l_object_version_number :=
371: dt_api.get_object_version_number
372: (p_base_table_name => 'ben_pgm_f',
373: p_base_key_column => 'pgm_id',
374: p_base_key_value => p_base_key_value);
375: --
376: hr_utility.set_location(l_proc, 10);
378: --
379: -- Update the specified datetrack row setting the effective
380: -- end date to the specified new effective end date.
381: --
382: update ben_pgm_f t
383: set t.effective_end_date = p_new_effective_end_date,
384: t.object_version_number = l_object_version_number
385: where t.pgm_id = p_base_key_value
386: and p_effective_date
527: pgm_attribute28,
528: pgm_attribute29,
529: pgm_attribute30,
530: object_version_number
531: from ben_pgm_f
532: where pgm_id = p_pgm_id
533: and p_effective_date
534: between effective_start_date and effective_end_date
535: for update nowait;
586: --
587: dt_api.validate_dt_mode
588: (p_effective_date => p_effective_date,
589: p_datetrack_mode => p_datetrack_mode,
590: p_base_table_name => 'ben_pgm_f',
591: p_base_key_column => 'pgm_id',
592: p_base_key_value => p_pgm_id,
593: p_parent_table_name1 => 'ff_formulas_f',
594: p_parent_key_column1 => 'formula_id',
639: -- accept a max of 10 parent or child tables
640: dt_api.validate_dt_mode
641: (p_effective_date => p_effective_date,
642: p_datetrack_mode => p_datetrack_mode,
643: p_base_table_name => 'ben_pgm_f',
644: p_base_key_column => 'pgm_id',
645: p_base_key_value => p_pgm_id,
646: p_child_table_name1 => 'ben_apld_dpnt_cvg_elig_prfl_f',
647: p_child_key_column1 => 'apld_dpnt_cvg_elig_prfl_id',
691: -- The object is locked therefore we need to supply a meaningful
692: -- error message.
693: --
694: fnd_message.set_name('PAY', 'HR_7165_OBJECT_LOCKED');
695: fnd_message.set_token('TABLE_NAME', 'ben_pgm_f');
696: fnd_message.raise_error;
697: When l_object_invalid then
698: --
699: -- The object doesn't exist or is invalid
698: --
699: -- The object doesn't exist or is invalid
700: --
701: fnd_message.set_name('PAY', 'HR_7155_OBJECT_INVALID');
702: fnd_message.set_token('TABLE_NAME', 'ben_pgm_f');
703: fnd_message.raise_error;
704: End lck;
705: --
706: -- ----------------------------------------------------------------------------