72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy per_psp_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_psp_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: per_spinal_points
88: --
89: insert into per_spinal_points
172: ,p_rec.information29
173: ,p_rec.information30
174: );
175: --
176: per_psp_shd.g_api_dml := false; -- Unset the api dml status
177: --
178: hr_utility.set_location(' Leaving:'||l_proc, 10);
179: Exception
180: When hr_api.check_integrity_violated Then
178: hr_utility.set_location(' Leaving:'||l_proc, 10);
179: Exception
180: When hr_api.check_integrity_violated Then
181: -- A check constraint has been violated
182: per_psp_shd.g_api_dml := false; -- Unset the api dml status
183: per_psp_shd.constraint_error
184: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
185: When hr_api.parent_integrity_violated Then
186: -- Parent integrity has been violated
179: Exception
180: When hr_api.check_integrity_violated Then
181: -- A check constraint has been violated
182: per_psp_shd.g_api_dml := false; -- Unset the api dml status
183: per_psp_shd.constraint_error
184: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
185: When hr_api.parent_integrity_violated Then
186: -- Parent integrity has been violated
187: per_psp_shd.g_api_dml := false; -- Unset the api dml status
183: per_psp_shd.constraint_error
184: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
185: When hr_api.parent_integrity_violated Then
186: -- Parent integrity has been violated
187: per_psp_shd.g_api_dml := false; -- Unset the api dml status
188: per_psp_shd.constraint_error
189: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
190: When hr_api.unique_integrity_violated Then
191: -- Unique integrity has been violated
184: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
185: When hr_api.parent_integrity_violated Then
186: -- Parent integrity has been violated
187: per_psp_shd.g_api_dml := false; -- Unset the api dml status
188: per_psp_shd.constraint_error
189: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
190: When hr_api.unique_integrity_violated Then
191: -- Unique integrity has been violated
192: per_psp_shd.g_api_dml := false; -- Unset the api dml status
188: per_psp_shd.constraint_error
189: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
190: When hr_api.unique_integrity_violated Then
191: -- Unique integrity has been violated
192: per_psp_shd.g_api_dml := false; -- Unset the api dml status
193: per_psp_shd.constraint_error
194: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
195: When Others Then
196: per_psp_shd.g_api_dml := false; -- Unset the api dml status
189: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
190: When hr_api.unique_integrity_violated Then
191: -- Unique integrity has been violated
192: per_psp_shd.g_api_dml := false; -- Unset the api dml status
193: per_psp_shd.constraint_error
194: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
195: When Others Then
196: per_psp_shd.g_api_dml := false; -- Unset the api dml status
197: Raise;
192: per_psp_shd.g_api_dml := false; -- Unset the api dml status
193: per_psp_shd.constraint_error
194: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
195: When Others Then
196: per_psp_shd.g_api_dml := false; -- Unset the api dml status
197: Raise;
198: End insert_dml;
199: --
200: -- ----------------------------------------------------------------------------
234: --
235: -- {End Of Comments}
236: -- ----------------------------------------------------------------------------
237: Procedure pre_insert
238: (p_rec in out nocopy per_psp_shd.g_rec_type
239: ) is
240: --
241: Cursor C_Sel1 is select per_spinal_points_s.nextval from sys.dual;
242: --
322: -- {End Of Comments}
323: -- ----------------------------------------------------------------------------
324: Procedure post_insert
325: (p_effective_date in date
326: ,p_rec in per_psp_shd.g_rec_type
327: ) is
328: --
329: l_proc varchar2(72) := g_package||'post_insert';
330: --
435: -- |---------------------------------< ins >----------------------------------|
436: -- ----------------------------------------------------------------------------
437: Procedure ins
438: (p_effective_date in date
439: ,p_rec in out nocopy per_psp_shd.g_rec_type
440: ) is
441: --
442: l_proc varchar2(72) := g_package||'ins';
443: --
522: ,p_spinal_point_id out nocopy number
523: ,p_object_version_number out nocopy number
524: ) is
525: --
526: l_rec per_psp_shd.g_rec_type;
527: l_proc varchar2(72) := g_package||'ins';
528: --
529: Begin
530: hr_utility.set_location('Entering:'||l_proc, 5);
532: -- Call conversion function to turn arguments into the
533: -- p_rec structure.
534: --
535: l_rec :=
536: per_psp_shd.convert_args
537: (null
538: ,p_business_group_id
539: ,p_parent_spine_id
540: ,p_sequence