72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy per_ssd_shd.g_rec_type
77: ) is
78: --
79: l_proc varchar2(72) := g_package||'insert_dml';
80: --
81: Begin
82: hr_utility.set_location('Entering:'||l_proc, 5);
83: p_rec.object_version_number := 1; -- Initialise the object version
84: --
85: per_ssd_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: per_sp_successee_details
88: --
89: insert into per_sp_successee_details
120: ,p_rec.max_successors
121: ,p_rec.object_version_number
122: );
123: --
124: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
125: --
126: hr_utility.set_location(' Leaving:'||l_proc, 10);
127: Exception
128: When hr_api.check_integrity_violated Then
126: hr_utility.set_location(' Leaving:'||l_proc, 10);
127: Exception
128: When hr_api.check_integrity_violated Then
129: -- A check constraint has been violated
130: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
131: per_ssd_shd.constraint_error
132: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
133: When hr_api.parent_integrity_violated Then
134: -- Parent integrity has been violated
127: Exception
128: When hr_api.check_integrity_violated Then
129: -- A check constraint has been violated
130: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
131: per_ssd_shd.constraint_error
132: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
133: When hr_api.parent_integrity_violated Then
134: -- Parent integrity has been violated
135: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
131: per_ssd_shd.constraint_error
132: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
133: When hr_api.parent_integrity_violated Then
134: -- Parent integrity has been violated
135: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
136: per_ssd_shd.constraint_error
137: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
138: When hr_api.unique_integrity_violated Then
139: -- Unique integrity has been violated
132: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
133: When hr_api.parent_integrity_violated Then
134: -- Parent integrity has been violated
135: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
136: per_ssd_shd.constraint_error
137: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
138: When hr_api.unique_integrity_violated Then
139: -- Unique integrity has been violated
140: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
136: per_ssd_shd.constraint_error
137: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
138: When hr_api.unique_integrity_violated Then
139: -- Unique integrity has been violated
140: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
141: per_ssd_shd.constraint_error
142: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
143: When Others Then
144: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
137: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
138: When hr_api.unique_integrity_violated Then
139: -- Unique integrity has been violated
140: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
141: per_ssd_shd.constraint_error
142: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
143: When Others Then
144: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
145: Raise;
140: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
141: per_ssd_shd.constraint_error
142: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
143: When Others Then
144: per_ssd_shd.g_api_dml := false; -- Unset the api dml status
145: Raise;
146: End insert_dml;
147: --
148: -- ----------------------------------------------------------------------------
182: --
183: -- {End Of Comments}
184: -- ----------------------------------------------------------------------------
185: Procedure pre_insert
186: (p_rec in out nocopy per_ssd_shd.g_rec_type
187: ) is
188: --
189: Cursor C_Sel1 is select per_sp_successee_details_s.nextval from sys.dual;
190: --
270: -- {End Of Comments}
271: -- ----------------------------------------------------------------------------
272: Procedure post_insert
273: (p_effective_date in date
274: ,p_rec in per_ssd_shd.g_rec_type
275: ) is
276: --
277: l_proc varchar2(72) := g_package||'post_insert';
278: --
331: -- |---------------------------------< ins >----------------------------------|
332: -- ----------------------------------------------------------------------------
333: Procedure ins
334: (p_effective_date in date
335: ,p_rec in out nocopy per_ssd_shd.g_rec_type
336: ) is
337: --
338: l_proc varchar2(72) := g_package||'ins';
339: --
392: ,p_successee_detail_id out nocopy number
393: ,p_object_version_number out nocopy number
394: ) is
395: --
396: l_rec per_ssd_shd.g_rec_type;
397: l_proc varchar2(72) := g_package||'ins';
398: --
399: Begin
400: hr_utility.set_location('Entering:'||l_proc, 5);
402: -- Call conversion function to turn arguments into the
403: -- p_rec structure.
404: --
405: l_rec :=
406: per_ssd_shd.convert_args
407: (null
408: ,p_business_group_id
409: ,p_successee_type
410: ,p_successee_id