[Home] [Help]
54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_insert_dml
58: (p_rec in out nocopy ben_psl_shd.g_rec_type,
59: p_effective_date in date,
60: p_datetrack_mode in varchar2,
61: p_validation_start_date in date,
62: p_validation_end_date in date) is
68: t.creation_date
69: from ben_per_info_chg_cs_ler_f t
70: where t.per_info_chg_cs_ler_id = p_rec.per_info_chg_cs_ler_id
71: and t.effective_start_date =
72: ben_psl_shd.g_old_rec.effective_start_date
73: and t.effective_end_date = (p_validation_start_date - 1);
74: --
75: l_proc varchar2(72) := g_package||'dt_insert_dml';
76: l_created_by ben_per_info_chg_cs_ler_f.created_by%TYPE;
125: l_last_updated_by := fnd_global.user_id;
126: l_last_update_login := fnd_global.login_id;
127: End If;
128: --
129: ben_psl_shd.g_api_dml := true; -- Set the api dml status
130: --
131: -- Insert the row into: ben_per_info_chg_cs_ler_f
132: --
133: insert into ben_per_info_chg_cs_ler_f
232: l_last_updated_by,
233: l_last_update_login
234: );
235: --
236: ben_psl_shd.g_api_dml := false; -- Unset the api dml status
237: hr_utility.set_location(' Leaving:'||l_proc, 15);
238: --
239: Exception
240: When hr_api.check_integrity_violated Then
238: --
239: Exception
240: When hr_api.check_integrity_violated Then
241: -- A check constraint has been violated
242: ben_psl_shd.g_api_dml := false; -- Unset the api dml status
243: ben_psl_shd.constraint_error
244: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
245: When hr_api.unique_integrity_violated Then
246: -- Unique integrity has been violated
239: Exception
240: When hr_api.check_integrity_violated Then
241: -- A check constraint has been violated
242: ben_psl_shd.g_api_dml := false; -- Unset the api dml status
243: ben_psl_shd.constraint_error
244: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
245: When hr_api.unique_integrity_violated Then
246: -- Unique integrity has been violated
247: ben_psl_shd.g_api_dml := false; -- Unset the api dml status
243: ben_psl_shd.constraint_error
244: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
245: When hr_api.unique_integrity_violated Then
246: -- Unique integrity has been violated
247: ben_psl_shd.g_api_dml := false; -- Unset the api dml status
248: ben_psl_shd.constraint_error
249: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
250: When Others Then
251: ben_psl_shd.g_api_dml := false; -- Unset the api dml status
244: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
245: When hr_api.unique_integrity_violated Then
246: -- Unique integrity has been violated
247: ben_psl_shd.g_api_dml := false; -- Unset the api dml status
248: ben_psl_shd.constraint_error
249: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
250: When Others Then
251: ben_psl_shd.g_api_dml := false; -- Unset the api dml status
252: Raise;
247: ben_psl_shd.g_api_dml := false; -- Unset the api dml status
248: ben_psl_shd.constraint_error
249: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
250: When Others Then
251: ben_psl_shd.g_api_dml := false; -- Unset the api dml status
252: Raise;
253: End dt_insert_dml;
254: --
255: -- ----------------------------------------------------------------------------
255: -- ----------------------------------------------------------------------------
256: -- |------------------------------< insert_dml >------------------------------|
257: -- ----------------------------------------------------------------------------
258: Procedure insert_dml
259: (p_rec in out nocopy ben_psl_shd.g_rec_type,
260: p_effective_date in date,
261: p_datetrack_mode in varchar2,
262: p_validation_start_date in date,
263: p_validation_end_date in date) is
315: --
316: -- {End Of Comments}
317: -- ----------------------------------------------------------------------------
318: Procedure pre_insert
319: (p_rec in out nocopy ben_psl_shd.g_rec_type,
320: p_effective_date in date,
321: p_datetrack_mode in varchar2,
322: p_validation_start_date in date,
323: p_validation_end_date in date) is
371: --
372: -- {End Of Comments}
373: -- ----------------------------------------------------------------------------
374: Procedure post_insert
375: (p_rec in ben_psl_shd.g_rec_type,
376: p_effective_date in date,
377: p_datetrack_mode in varchar2,
378: p_validation_start_date in date,
379: p_validation_end_date in date) is
494: -- ----------------------------------------------------------------------------
495: Procedure ins_lck
496: (p_effective_date in date,
497: p_datetrack_mode in varchar2,
498: p_rec in ben_psl_shd.g_rec_type,
499: p_validation_start_date out nocopy date,
500: p_validation_end_date out nocopy date) is
501: --
502: l_proc varchar2(72) := g_package||'ins_lck';
532: -- |---------------------------------< ins >----------------------------------|
533: -- ----------------------------------------------------------------------------
534: Procedure ins
535: (
536: p_rec in out nocopy ben_psl_shd.g_rec_type,
537: p_effective_date in date
538: ) is
539: --
540: l_proc varchar2(72) := g_package||'ins';
642: p_object_version_number out nocopy number,
643: p_effective_date in date
644: ) is
645: --
646: l_rec ben_psl_shd.g_rec_type;
647: l_proc varchar2(72) := g_package||'ins';
648: --
649: Begin
650: hr_utility.set_location('Entering:'||l_proc, 5);
652: -- Call conversion function to turn arguments into the
653: -- p_rec structure.
654: --
655: l_rec :=
656: ben_psl_shd.convert_args
657: (
658: null,
659: p_name,
660: null,