54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_insert_dml
58: (p_rec in out nocopy ben_pgm_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_pgm_f t
70: where t.pgm_id = p_rec.pgm_id
71: and t.effective_start_date =
72: ben_pgm_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_pgm_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_pgm_shd.g_api_dml := true; -- Set the api dml status
130: --
131: -- Insert the row into: ben_pgm_f
132: --
133: insert into ben_pgm_f
364: l_last_updated_by,
365: l_last_update_login
366: );
367: --
368: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
369: hr_utility.set_location(' Leaving:'||l_proc, 15);
370: --
371: Exception
372: When hr_api.check_integrity_violated Then
370: --
371: Exception
372: When hr_api.check_integrity_violated Then
373: -- A check constraint has been violated
374: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
375: ben_pgm_shd.constraint_error
376: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
377: When hr_api.unique_integrity_violated Then
378: -- Unique integrity has been violated
371: Exception
372: When hr_api.check_integrity_violated Then
373: -- A check constraint has been violated
374: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
375: ben_pgm_shd.constraint_error
376: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
377: When hr_api.unique_integrity_violated Then
378: -- Unique integrity has been violated
379: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
375: ben_pgm_shd.constraint_error
376: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
377: When hr_api.unique_integrity_violated Then
378: -- Unique integrity has been violated
379: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
380: ben_pgm_shd.constraint_error
381: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
382: When Others Then
383: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
376: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
377: When hr_api.unique_integrity_violated Then
378: -- Unique integrity has been violated
379: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
380: ben_pgm_shd.constraint_error
381: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
382: When Others Then
383: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
384: Raise;
379: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
380: ben_pgm_shd.constraint_error
381: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
382: When Others Then
383: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
384: Raise;
385: End dt_insert_dml;
386: --
387: -- ----------------------------------------------------------------------------
387: -- ----------------------------------------------------------------------------
388: -- |------------------------------< insert_dml >------------------------------|
389: -- ----------------------------------------------------------------------------
390: Procedure insert_dml
391: (p_rec in out nocopy ben_pgm_shd.g_rec_type,
392: p_effective_date in date,
393: p_datetrack_mode in varchar2,
394: p_validation_start_date in date,
395: p_validation_end_date in date) is
447: --
448: -- {End Of Comments}
449: -- ----------------------------------------------------------------------------
450: Procedure pre_insert
451: (p_rec in out nocopy ben_pgm_shd.g_rec_type,
452: p_effective_date in date,
453: p_datetrack_mode in varchar2,
454: p_validation_start_date in date,
455: p_validation_end_date in date) is
504: --
505: -- {End Of Comments}
506: -- ----------------------------------------------------------------------------
507: Procedure post_insert
508: (p_rec in ben_pgm_shd.g_rec_type,
509: p_effective_date in date,
510: p_datetrack_mode in varchar2,
511: p_validation_start_date in date,
512: p_validation_end_date in date) is
576: -- ----------------------------------------------------------------------------
577: Procedure ins_lck
578: (p_effective_date in date,
579: p_datetrack_mode in varchar2,
580: p_rec in ben_pgm_shd.g_rec_type,
581: p_validation_start_date out nocopy date,
582: p_validation_end_date out nocopy date) is
583: --
584: l_proc varchar2(72) := g_package||'ins_lck';
632: -- |---------------------------------< ins >----------------------------------|
633: -- ----------------------------------------------------------------------------
634: Procedure ins
635: (
636: p_rec in out nocopy ben_pgm_shd.g_rec_type,
637: p_effective_date in date
638: ) is
639: --
640: l_proc varchar2(72) := g_package||'ins';
808: p_object_version_number out nocopy number,
809: p_effective_date in date
810: ) is
811: --
812: l_rec ben_pgm_shd.g_rec_type;
813: l_proc varchar2(72) := g_package||'ins';
814: --
815: Begin
816: hr_utility.set_location('Entering:'||l_proc, 5);
818: -- Call conversion function to turn arguments into the
819: -- p_rec structure.
820: --
821: l_rec :=
822: ben_pgm_shd.convert_args
823: (
824: null
825: ,null
826: ,null