49: -- Internal Row Handler Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out nocopy ben_enb_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_enb_shd.g_api_dml := true; -- Set the api dml status
62: --
63: -- Insert the row into: ben_enrt_bnft
64: --
65: insert into ben_enrt_bnft
184: p_rec.program_update_date ,
185: p_rec.object_version_number
186: );
187: --
188: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
189: --
190: hr_utility.set_location(' Leaving:'||l_proc, 10);
191: Exception
192: When hr_api.check_integrity_violated Then
190: hr_utility.set_location(' Leaving:'||l_proc, 10);
191: Exception
192: When hr_api.check_integrity_violated Then
193: -- A check constraint has been violated
194: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
195: ben_enb_shd.constraint_error
196: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
197: When hr_api.parent_integrity_violated Then
198: -- Parent integrity has been violated
191: Exception
192: When hr_api.check_integrity_violated Then
193: -- A check constraint has been violated
194: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
195: ben_enb_shd.constraint_error
196: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
197: When hr_api.parent_integrity_violated Then
198: -- Parent integrity has been violated
199: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
195: ben_enb_shd.constraint_error
196: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
197: When hr_api.parent_integrity_violated Then
198: -- Parent integrity has been violated
199: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
200: ben_enb_shd.constraint_error
201: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
202: When hr_api.unique_integrity_violated Then
203: -- Unique integrity has been violated
196: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
197: When hr_api.parent_integrity_violated Then
198: -- Parent integrity has been violated
199: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
200: ben_enb_shd.constraint_error
201: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
202: When hr_api.unique_integrity_violated Then
203: -- Unique integrity has been violated
204: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
200: ben_enb_shd.constraint_error
201: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
202: When hr_api.unique_integrity_violated Then
203: -- Unique integrity has been violated
204: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
205: ben_enb_shd.constraint_error
206: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
207: When Others Then
208: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
201: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
202: When hr_api.unique_integrity_violated Then
203: -- Unique integrity has been violated
204: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
205: ben_enb_shd.constraint_error
206: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
207: When Others Then
208: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
209: Raise;
204: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
205: ben_enb_shd.constraint_error
206: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
207: When Others Then
208: ben_enb_shd.g_api_dml := false; -- Unset the api dml status
209: Raise;
210: End insert_dml;
211: --
212: -- ----------------------------------------------------------------------------
245: -- Internal Row Handler Use Only.
246: --
247: -- {End Of Comments}
248: -- ----------------------------------------------------------------------------
249: Procedure pre_insert(p_rec in out nocopy ben_enb_shd.g_rec_type) is
250: --
251: l_proc varchar2(72) := g_package||'pre_insert';
252: --
253: Cursor C_Sel1 is select ben_enrt_bnft_s.nextval from sys.dual;
297: --
298: -- {End Of Comments}
299: -- ----------------------------------------------------------------------------
300: Procedure post_insert(
301: p_effective_date in date,p_rec in ben_enb_shd.g_rec_type) is
302: --
303: l_proc varchar2(72) := g_package||'post_insert';
304: --
305: Begin
395: -- ----------------------------------------------------------------------------
396: Procedure ins
397: (
398: p_effective_date in date,
399: p_rec in out nocopy ben_enb_shd.g_rec_type
400: ) is
401: --
402: l_proc varchar2(72) := g_package||'ins';
403: --
489: ,p_program_update_date in date default null
490: ,p_object_version_number out nocopy number
491: ) is
492: --
493: l_rec ben_enb_shd.g_rec_type;
494: l_proc varchar2(72) := g_package||'ins';
495: --
496: Begin
497: hr_utility.set_location('Entering:'||l_proc, 5);
499: -- Call conversion function to turn arguments into the
500: -- p_rec structure.
501: --
502: l_rec :=
503: ben_enb_shd.convert_args
504: (
505: null
506: ,p_dflt_flag
507: ,p_val_has_bn_prortd_flag