49: -- Internal Row Handler Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out nocopy ben_crp_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_crp_shd.g_api_dml := true; -- Set the api dml status
62: --
63: -- Insert the row into: ben_cbr_per_in_ler
64: --
65: insert into ben_cbr_per_in_ler
144: p_rec.crp_attribute30,
145: p_rec.object_version_number
146: );
147: --
148: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
149: --
150: hr_utility.set_location(' Leaving:'||l_proc, 10);
151: Exception
152: When hr_api.check_integrity_violated Then
150: hr_utility.set_location(' Leaving:'||l_proc, 10);
151: Exception
152: When hr_api.check_integrity_violated Then
153: -- A check constraint has been violated
154: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
155: ben_crp_shd.constraint_error
156: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
157: When hr_api.parent_integrity_violated Then
158: -- Parent integrity has been violated
151: Exception
152: When hr_api.check_integrity_violated Then
153: -- A check constraint has been violated
154: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
155: ben_crp_shd.constraint_error
156: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
157: When hr_api.parent_integrity_violated Then
158: -- Parent integrity has been violated
159: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
155: ben_crp_shd.constraint_error
156: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
157: When hr_api.parent_integrity_violated Then
158: -- Parent integrity has been violated
159: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
160: ben_crp_shd.constraint_error
161: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
162: When hr_api.unique_integrity_violated Then
163: -- Unique integrity has been violated
156: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
157: When hr_api.parent_integrity_violated Then
158: -- Parent integrity has been violated
159: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
160: ben_crp_shd.constraint_error
161: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
162: When hr_api.unique_integrity_violated Then
163: -- Unique integrity has been violated
164: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
160: ben_crp_shd.constraint_error
161: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
162: When hr_api.unique_integrity_violated Then
163: -- Unique integrity has been violated
164: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
165: ben_crp_shd.constraint_error
166: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
167: When Others Then
168: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
161: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
162: When hr_api.unique_integrity_violated Then
163: -- Unique integrity has been violated
164: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
165: ben_crp_shd.constraint_error
166: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
167: When Others Then
168: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
169: Raise;
164: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
165: ben_crp_shd.constraint_error
166: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
167: When Others Then
168: ben_crp_shd.g_api_dml := false; -- Unset the api dml status
169: Raise;
170: End insert_dml;
171: --
172: -- ----------------------------------------------------------------------------
205: -- Internal Row Handler Use Only.
206: --
207: -- {End Of Comments}
208: -- ----------------------------------------------------------------------------
209: Procedure pre_insert(p_rec in out nocopy ben_crp_shd.g_rec_type) is
210: --
211: l_proc varchar2(72) := g_package||'pre_insert';
212: --
213: Cursor C_Sel1 is select ben_cbr_per_in_ler_s.nextval from sys.dual;
257: --
258: -- {End Of Comments}
259: -- ----------------------------------------------------------------------------
260: Procedure post_insert(
261: p_effective_date in date,p_rec in ben_crp_shd.g_rec_type) is
262: --
263: l_proc varchar2(72) := g_package||'post_insert';
264: --
265: Begin
335: -- ----------------------------------------------------------------------------
336: Procedure ins
337: (
338: p_effective_date in date,
339: p_rec in out nocopy ben_crp_shd.g_rec_type
340: ) is
341: --
342: l_proc varchar2(72) := g_package||'ins';
343: --
409: p_crp_attribute30 in varchar2 default null,
410: p_object_version_number out nocopy number
411: ) is
412: --
413: l_rec ben_crp_shd.g_rec_type;
414: l_proc varchar2(72) := g_package||'ins';
415: --
416: Begin
417: hr_utility.set_location('Entering:'||l_proc, 5);
419: -- Call conversion function to turn arguments into the
420: -- p_rec structure.
421: --
422: l_rec :=
423: ben_crp_shd.convert_args
424: (
425: null,
426: p_init_evt_flag,
427: p_cnt_num,