104: -- Internal Row Handler Use Only.
105: --
106: -- {End Of Comments}
107: -- ----------------------------------------------------------------------------
108: Procedure insert_dml(p_rec in out nocopy ben_xcc_shd.g_rec_type) is
109: --
110: l_proc varchar2(72) := g_package||'insert_dml';
111: --
112: Begin
112: Begin
113: hr_utility.set_location('Entering:'||l_proc, 5);
114: p_rec.object_version_number := 1; -- Initialise the object version
115: --
116: ben_xcc_shd.g_api_dml := true; -- Set the api dml status
117: --
118: -- Insert the row into: ben_ext_crit_cmbn
119: --
120: insert into ben_ext_crit_cmbn
149: p_rec.created_by,
150: p_rec.object_version_number
151: );
152: --
153: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
154: --
155: hr_utility.set_location(' Leaving:'||l_proc, 10);
156: Exception
157: When hr_api.check_integrity_violated Then
155: hr_utility.set_location(' Leaving:'||l_proc, 10);
156: Exception
157: When hr_api.check_integrity_violated Then
158: -- A check constraint has been violated
159: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
160: ben_xcc_shd.constraint_error
161: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
162: When hr_api.parent_integrity_violated Then
163: -- Parent integrity has been violated
156: Exception
157: When hr_api.check_integrity_violated Then
158: -- A check constraint has been violated
159: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
160: ben_xcc_shd.constraint_error
161: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
162: When hr_api.parent_integrity_violated Then
163: -- Parent integrity has been violated
164: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
160: ben_xcc_shd.constraint_error
161: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
162: When hr_api.parent_integrity_violated Then
163: -- Parent integrity has been violated
164: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
165: ben_xcc_shd.constraint_error
166: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
167: When hr_api.unique_integrity_violated Then
168: -- Unique integrity has been violated
161: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
162: When hr_api.parent_integrity_violated Then
163: -- Parent integrity has been violated
164: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
165: ben_xcc_shd.constraint_error
166: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
167: When hr_api.unique_integrity_violated Then
168: -- Unique integrity has been violated
169: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
165: ben_xcc_shd.constraint_error
166: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
167: When hr_api.unique_integrity_violated Then
168: -- Unique integrity has been violated
169: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
170: ben_xcc_shd.constraint_error
171: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
172: When Others Then
173: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
166: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
167: When hr_api.unique_integrity_violated Then
168: -- Unique integrity has been violated
169: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
170: ben_xcc_shd.constraint_error
171: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
172: When Others Then
173: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
174: Raise;
169: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
170: ben_xcc_shd.constraint_error
171: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
172: When Others Then
173: ben_xcc_shd.g_api_dml := false; -- Unset the api dml status
174: Raise;
175: End insert_dml;
176: --
177: -- ----------------------------------------------------------------------------
210: -- Internal Row Handler Use Only.
211: --
212: -- {End Of Comments}
213: -- ----------------------------------------------------------------------------
214: Procedure pre_insert(p_rec in out nocopy ben_xcc_shd.g_rec_type) is
215: --
216: l_proc varchar2(72) := g_package||'pre_insert';
217: --
218: Cursor C_Sel1 is select ben_ext_crit_cmbn_s.nextval from sys.dual;
262: --
263: -- {End Of Comments}
264: -- ----------------------------------------------------------------------------
265: Procedure post_insert(
266: p_effective_date in date,p_rec in ben_xcc_shd.g_rec_type) is
267: --
268: l_proc varchar2(72) := g_package||'post_insert';
269: --
270: Begin
314: -- ----------------------------------------------------------------------------
315: Procedure ins
316: (
317: p_effective_date in date,
318: p_rec in out nocopy ben_xcc_shd.g_rec_type
319: ) is
320: --
321: l_proc varchar2(72) := g_package||'ins';
322: --
364:
365: p_object_version_number out nocopy number
366: ) is
367: --
368: l_rec ben_xcc_shd.g_rec_type;
369: l_proc varchar2(72) := g_package||'ins';
370: --
371: Begin
372: hr_utility.set_location('Entering:'||l_proc, 5);
374: -- Call conversion function to turn arguments into the
375: -- p_rec structure.
376: --
377: l_rec :=
378: ben_xcc_shd.convert_args
379: (
380: null,
381: p_crit_typ_cd,
382: p_oper_cd,