72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy per_pps_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_pps_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: per_parent_spines
88: --
89: insert into per_parent_spines
218: ,p_rec.information30
219: ,p_rec.object_version_number
220: );
221: --
222: per_pps_shd.g_api_dml := false; -- Unset the api dml status
223: --
224: hr_utility.set_location(' Leaving:'||l_proc, 10);
225: Exception
226: When hr_api.check_integrity_violated Then
224: hr_utility.set_location(' Leaving:'||l_proc, 10);
225: Exception
226: When hr_api.check_integrity_violated Then
227: -- A check constraint has been violated
228: per_pps_shd.g_api_dml := false; -- Unset the api dml status
229: per_pps_shd.constraint_error
230: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
231: When hr_api.parent_integrity_violated Then
232: -- Parent integrity has been violated
225: Exception
226: When hr_api.check_integrity_violated Then
227: -- A check constraint has been violated
228: per_pps_shd.g_api_dml := false; -- Unset the api dml status
229: per_pps_shd.constraint_error
230: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
231: When hr_api.parent_integrity_violated Then
232: -- Parent integrity has been violated
233: per_pps_shd.g_api_dml := false; -- Unset the api dml status
229: per_pps_shd.constraint_error
230: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
231: When hr_api.parent_integrity_violated Then
232: -- Parent integrity has been violated
233: per_pps_shd.g_api_dml := false; -- Unset the api dml status
234: per_pps_shd.constraint_error
235: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
236: When hr_api.unique_integrity_violated Then
237: -- Unique integrity has been violated
230: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
231: When hr_api.parent_integrity_violated Then
232: -- Parent integrity has been violated
233: per_pps_shd.g_api_dml := false; -- Unset the api dml status
234: per_pps_shd.constraint_error
235: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
236: When hr_api.unique_integrity_violated Then
237: -- Unique integrity has been violated
238: per_pps_shd.g_api_dml := false; -- Unset the api dml status
234: per_pps_shd.constraint_error
235: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
236: When hr_api.unique_integrity_violated Then
237: -- Unique integrity has been violated
238: per_pps_shd.g_api_dml := false; -- Unset the api dml status
239: per_pps_shd.constraint_error
240: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
241: When Others Then
242: per_pps_shd.g_api_dml := false; -- Unset the api dml status
235: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
236: When hr_api.unique_integrity_violated Then
237: -- Unique integrity has been violated
238: per_pps_shd.g_api_dml := false; -- Unset the api dml status
239: per_pps_shd.constraint_error
240: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
241: When Others Then
242: per_pps_shd.g_api_dml := false; -- Unset the api dml status
243: Raise;
238: per_pps_shd.g_api_dml := false; -- Unset the api dml status
239: per_pps_shd.constraint_error
240: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
241: When Others Then
242: per_pps_shd.g_api_dml := false; -- Unset the api dml status
243: Raise;
244: End insert_dml;
245: --
246: -- ----------------------------------------------------------------------------
280: --
281: -- {End Of Comments}
282: -- ----------------------------------------------------------------------------
283: Procedure pre_insert
284: (p_rec in out nocopy per_pps_shd.g_rec_type
285: ) is
286: --
287: Cursor C_Sel1 is select per_parent_spines_s.nextval from sys.dual;
288: --
368: -- {End Of Comments}
369: -- ----------------------------------------------------------------------------
370: Procedure post_insert
371: (p_effective_date in date
372: ,p_rec in per_pps_shd.g_rec_type
373: ) is
374: --
375: l_proc varchar2(72) := g_package||'post_insert';
376: --
527: -- |---------------------------------< ins >----------------------------------|
528: -- ----------------------------------------------------------------------------
529: Procedure ins
530: (p_effective_date in date
531: ,p_rec in out nocopy per_pps_shd.g_rec_type
532: ) is
533: --
534: l_proc varchar2(72) := g_package||'ins';
535: --
637: ,p_parent_spine_id out nocopy number
638: ,p_object_version_number out nocopy number
639: ) is
640: --
641: l_rec per_pps_shd.g_rec_type;
642: l_proc varchar2(72) := g_package||'ins';
643: --
644: Begin
645: hr_utility.set_location('Entering:'||l_proc, 5);
647: -- Call conversion function to turn arguments into the
648: -- p_rec structure.
649: --
650: l_rec :=
651: per_pps_shd.convert_args
652: (null
653: ,p_business_group_id
654: ,p_name
655: ,p_comments