49: -- Internal Row Handler Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out nocopy ben_enp_shd.g_rec_type) is
54: --
55: l_proc varchar2(72) := g_package||'insert_dml';
56: --
57: Begin
57: Begin
58: hr_utility.set_location('Entering:'||l_proc, 5);
59: p_rec.object_version_number := 1; -- Initialise the object version
60: --
61: ben_enp_shd.g_api_dml := true; -- Set the api dml status
62: --
63: -- Insert the row into: ben_enrt_perd
64: --
65: insert into ben_enrt_perd
218: p_rec.reinstate_ovrdn_cd,
219: p_rec.defer_deenrol_flag
220: );
221: --
222: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
223: --
224: hr_utility.set_location(' Leaving:'||l_proc, 10);
225: Exception
226: When hr_api.check_integrity_violated Then
224: hr_utility.set_location(' Leaving:'||l_proc, 10);
225: Exception
226: When hr_api.check_integrity_violated Then
227: -- A check constraint has been violated
228: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
229: ben_enp_shd.constraint_error
230: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
231: When hr_api.parent_integrity_violated Then
232: -- Parent integrity has been violated
225: Exception
226: When hr_api.check_integrity_violated Then
227: -- A check constraint has been violated
228: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
229: ben_enp_shd.constraint_error
230: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
231: When hr_api.parent_integrity_violated Then
232: -- Parent integrity has been violated
233: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
229: ben_enp_shd.constraint_error
230: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
231: When hr_api.parent_integrity_violated Then
232: -- Parent integrity has been violated
233: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
234: ben_enp_shd.constraint_error
235: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
236: When hr_api.unique_integrity_violated Then
237: -- Unique integrity has been violated
230: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
231: When hr_api.parent_integrity_violated Then
232: -- Parent integrity has been violated
233: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
234: ben_enp_shd.constraint_error
235: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
236: When hr_api.unique_integrity_violated Then
237: -- Unique integrity has been violated
238: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
234: ben_enp_shd.constraint_error
235: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
236: When hr_api.unique_integrity_violated Then
237: -- Unique integrity has been violated
238: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
239: ben_enp_shd.constraint_error
240: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
241: When Others Then
242: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
235: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
236: When hr_api.unique_integrity_violated Then
237: -- Unique integrity has been violated
238: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
239: ben_enp_shd.constraint_error
240: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
241: When Others Then
242: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
243: Raise;
238: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
239: ben_enp_shd.constraint_error
240: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
241: When Others Then
242: ben_enp_shd.g_api_dml := false; -- Unset the api dml status
243: Raise;
244: End insert_dml;
245: --
246: -- ----------------------------------------------------------------------------
279: -- Internal Row Handler Use Only.
280: --
281: -- {End Of Comments}
282: -- ----------------------------------------------------------------------------
283: Procedure pre_insert(p_rec in out nocopy ben_enp_shd.g_rec_type) is
284: --
285: l_proc varchar2(72) := g_package||'pre_insert';
286: --
287: Cursor C_Sel1 is select ben_enrt_perd_s.nextval from sys.dual;
331: --
332: -- {End Of Comments}
333: -- ----------------------------------------------------------------------------
334: Procedure post_insert(
335: p_effective_date in date,p_rec in ben_enp_shd.g_rec_type) is
336: --
337: l_proc varchar2(72) := g_package||'post_insert';
338: --
339: Begin
448: -- ----------------------------------------------------------------------------
449: Procedure ins
450: (
451: p_effective_date in date,
452: p_rec in out nocopy ben_enp_shd.g_rec_type
453: ) is
454: --
455: l_proc varchar2(72) := g_package||'ins';
456: --
560: ,p_reinstate_ovrdn_cd in varchar2
561: ,p_defer_deenrol_flag in varchar2
562: ) is
563: --
564: l_rec ben_enp_shd.g_rec_type;
565: l_proc varchar2(72) := g_package||'ins';
566: --
567: Begin
568: hr_utility.set_location('Entering:'||l_proc, 5);
570: -- Call conversion function to turn arguments into the
571: -- p_rec structure.
572: --
573: l_rec :=
574: ben_enp_shd.convert_args
575: (
576: null,
577: p_business_group_id,
578: p_yr_perd_id,