49: -- Internal Row Handler Use Only.
50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure insert_dml(p_rec in out nocopy ben_bdi_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_bdi_shd.g_api_dml := true; -- Set the api dml status
62: --
63: -- Insert the row into: ben_batch_dpnt_info
64: --
65: insert into ben_batch_dpnt_info
92: p_rec.enrt_cvg_thru_dt,
93: p_rec.actn_cd
94: );
95: --
96: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
97: --
98: hr_utility.set_location(' Leaving:'||l_proc, 10);
99: Exception
100: When hr_api.check_integrity_violated Then
98: hr_utility.set_location(' Leaving:'||l_proc, 10);
99: Exception
100: When hr_api.check_integrity_violated Then
101: -- A check constraint has been violated
102: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
103: ben_bdi_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.parent_integrity_violated Then
106: -- Parent integrity has been violated
99: Exception
100: When hr_api.check_integrity_violated Then
101: -- A check constraint has been violated
102: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
103: ben_bdi_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.parent_integrity_violated Then
106: -- Parent integrity has been violated
107: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
103: ben_bdi_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.parent_integrity_violated Then
106: -- Parent integrity has been violated
107: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
108: ben_bdi_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When hr_api.unique_integrity_violated Then
111: -- Unique integrity has been violated
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When hr_api.parent_integrity_violated Then
106: -- Parent integrity has been violated
107: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
108: ben_bdi_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When hr_api.unique_integrity_violated Then
111: -- Unique integrity has been violated
112: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
108: ben_bdi_shd.constraint_error
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When hr_api.unique_integrity_violated Then
111: -- Unique integrity has been violated
112: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
113: ben_bdi_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When Others Then
116: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
109: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When hr_api.unique_integrity_violated Then
111: -- Unique integrity has been violated
112: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
113: ben_bdi_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When Others Then
116: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
117: Raise;
112: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
113: ben_bdi_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When Others Then
116: ben_bdi_shd.g_api_dml := false; -- Unset the api dml status
117: Raise;
118: End insert_dml;
119: --
120: -- ----------------------------------------------------------------------------
153: -- Internal Row Handler Use Only.
154: --
155: -- {End Of Comments}
156: -- ----------------------------------------------------------------------------
157: Procedure pre_insert(p_rec in out nocopy ben_bdi_shd.g_rec_type) is
158: --
159: l_proc varchar2(72) := g_package||'pre_insert';
160: --
161: Cursor C_Sel1 is select ben_batch_dpnt_info_s.nextval from sys.dual;
205: --
206: -- {End Of Comments}
207: -- ----------------------------------------------------------------------------
208: Procedure post_insert(p_effective_date in date,
209: p_rec in ben_bdi_shd.g_rec_type) is
210: --
211: l_proc varchar2(72) := g_package||'post_insert';
212: --
213: Begin
255: -- ----------------------------------------------------------------------------
256: Procedure ins
257: (
258: p_effective_date in date,
259: p_rec in out nocopy ben_bdi_shd.g_rec_type
260: ) is
261: --
262: l_proc varchar2(72) := g_package||'ins';
263: --
301: p_enrt_cvg_thru_dt in date default null,
302: p_actn_cd in varchar2 default null
303: ) is
304: --
305: l_rec ben_bdi_shd.g_rec_type;
306: l_proc varchar2(72) := g_package||'ins';
307: --
308: Begin
309: hr_utility.set_location('Entering:'||l_proc, 5);
311: -- Call conversion function to turn arguments into the
312: -- p_rec structure.
313: --
314: l_rec :=
315: ben_bdi_shd.convert_args
316: (
317: null,
318: p_benefit_action_id,
319: p_person_id,