78: --
79: -- {End Of Comments}
80: -- ----------------------------------------------------------------------------
81: Procedure insert_dml
82: (p_rec in out nocopy ben_cpd_shd.g_rec_type
83: ) is
84: --
85: l_proc varchar2(72) := g_package||'insert_dml';
86: --
87: Begin
88: hr_utility.set_location('Entering:'||l_proc, 5);
89: p_rec.object_version_number := 1; -- Initialise the object version
90: --
91: ben_cpd_shd.g_api_dml := true; -- Set the api dml status
92: --
93: -- Insert the row into: ben_cwb_pl_dsgn
94: --
95: insert into ben_cwb_pl_dsgn
282: ,p_rec.grade_range_validation
283: ,p_rec.object_version_number
284: );
285: --
286: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
287: --
288: hr_utility.set_location(' Leaving:'||l_proc, 10);
289: Exception
290: When hr_api.check_integrity_violated Then
288: hr_utility.set_location(' Leaving:'||l_proc, 10);
289: Exception
290: When hr_api.check_integrity_violated Then
291: -- A check constraint has been violated
292: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
293: ben_cpd_shd.constraint_error
294: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
295: When hr_api.parent_integrity_violated Then
296: -- Parent integrity has been violated
289: Exception
290: When hr_api.check_integrity_violated Then
291: -- A check constraint has been violated
292: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
293: ben_cpd_shd.constraint_error
294: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
295: When hr_api.parent_integrity_violated Then
296: -- Parent integrity has been violated
297: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
293: ben_cpd_shd.constraint_error
294: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
295: When hr_api.parent_integrity_violated Then
296: -- Parent integrity has been violated
297: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
298: ben_cpd_shd.constraint_error
299: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
300: When hr_api.unique_integrity_violated Then
301: -- Unique integrity has been violated
294: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
295: When hr_api.parent_integrity_violated Then
296: -- Parent integrity has been violated
297: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
298: ben_cpd_shd.constraint_error
299: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
300: When hr_api.unique_integrity_violated Then
301: -- Unique integrity has been violated
302: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
298: ben_cpd_shd.constraint_error
299: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
300: When hr_api.unique_integrity_violated Then
301: -- Unique integrity has been violated
302: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
303: ben_cpd_shd.constraint_error
304: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
305: When Others Then
306: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
299: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
300: When hr_api.unique_integrity_violated Then
301: -- Unique integrity has been violated
302: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
303: ben_cpd_shd.constraint_error
304: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
305: When Others Then
306: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
307: Raise;
302: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
303: ben_cpd_shd.constraint_error
304: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
305: When Others Then
306: ben_cpd_shd.g_api_dml := false; -- Unset the api dml status
307: Raise;
308: End insert_dml;
309: --
310: -- ----------------------------------------------------------------------------
344: --
345: -- {End Of Comments}
346: -- ----------------------------------------------------------------------------
347: Procedure pre_insert
348: (p_rec in out nocopy ben_cpd_shd.g_rec_type
349: ) is
350: --
351: Cursor C_Sel1 is
352: Select null
443: --
444: -- {End Of Comments}
445: -- ----------------------------------------------------------------------------
446: Procedure post_insert
447: (p_rec in ben_cpd_shd.g_rec_type
448: ) is
449: --
450: l_proc varchar2(72) := g_package||'post_insert';
451: --
658: -- ----------------------------------------------------------------------------
659: -- |---------------------------------< ins >----------------------------------|
660: -- ----------------------------------------------------------------------------
661: Procedure ins
662: (p_rec in out nocopy ben_cpd_shd.g_rec_type
663: ) is
664: --
665: l_proc varchar2(72) := g_package||'ins';
666: --
799: ,p_email_content in clob default empty_clob()
800: ,p_email_sample_address in varchar2 default null
801: ) is
802: --
803: l_rec ben_cpd_shd.g_rec_type;
804: l_proc varchar2(72) := g_package||'ins';
805: --
806: Begin
807: hr_utility.set_location('Entering:'||l_proc, 5);
809: -- Call conversion function to turn arguments into the
810: -- p_rec structure.
811: --
812: l_rec :=
813: ben_cpd_shd.convert_args
814: (p_pl_id
815: ,p_oipl_id
816: ,p_lf_evt_ocrd_dt
817: ,p_effective_date