70: -- Internal Table Handler Use Only.
71: --
72: -- {End Of Comments}
73: -- ----------------------------------------------------------------------------
74: Procedure insert_dml(p_rec in out nocopy per_ctr_shd.g_rec_type) is
75: --
76: l_proc varchar2(72) := g_package||'insert_dml';
77: --
78: Begin
78: Begin
79: hr_utility.set_location('Entering:'||l_proc, 5);
80: p_rec.object_version_number := 1; -- Initialise the object version
81: --
82: per_ctr_shd.g_api_dml := true; -- Set the api dml status
83: --
84: -- Insert the row into: per_contact_relationships
85: --
86: insert into per_contact_relationships
217: p_rec.beneficiary_flag,
218: p_rec.object_version_number
219: );
220: --
221: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
222: --
223: hr_utility.set_location(' Leaving:'||l_proc, 10);
224: Exception
225: When hr_api.check_integrity_violated Then
223: hr_utility.set_location(' Leaving:'||l_proc, 10);
224: Exception
225: When hr_api.check_integrity_violated Then
226: -- A check constraint has been violated
227: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
228: per_ctr_shd.constraint_error
229: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
230: When hr_api.parent_integrity_violated Then
231: -- Parent integrity has been violated
224: Exception
225: When hr_api.check_integrity_violated Then
226: -- A check constraint has been violated
227: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
228: per_ctr_shd.constraint_error
229: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
230: When hr_api.parent_integrity_violated Then
231: -- Parent integrity has been violated
232: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
228: per_ctr_shd.constraint_error
229: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
230: When hr_api.parent_integrity_violated Then
231: -- Parent integrity has been violated
232: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
233: per_ctr_shd.constraint_error
234: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
235: When hr_api.unique_integrity_violated Then
236: -- Unique integrity has been violated
229: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
230: When hr_api.parent_integrity_violated Then
231: -- Parent integrity has been violated
232: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
233: per_ctr_shd.constraint_error
234: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
235: When hr_api.unique_integrity_violated Then
236: -- Unique integrity has been violated
237: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
233: per_ctr_shd.constraint_error
234: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
235: When hr_api.unique_integrity_violated Then
236: -- Unique integrity has been violated
237: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
238: per_ctr_shd.constraint_error
239: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
240: When Others Then
241: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
234: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
235: When hr_api.unique_integrity_violated Then
236: -- Unique integrity has been violated
237: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
238: per_ctr_shd.constraint_error
239: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
240: When Others Then
241: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
242: Raise;
237: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
238: per_ctr_shd.constraint_error
239: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
240: When Others Then
241: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
242: Raise;
243: End insert_dml;
244: --
245: -- ----------------------------------------------------------------------------
278: -- Internal Table Handler Use Only.
279: --
280: -- {End Of Comments}
281: -- ----------------------------------------------------------------------------
282: Procedure pre_insert(p_rec in out nocopy per_ctr_shd.g_rec_type) is
283: --
284: l_proc varchar2(72) := g_package||'pre_insert';
285: --
286: Cursor C_Sel1 is select per_contact_relationships_s.nextval from sys.dual;
361: -- Internal Table Handler Use Only.
362: --
363: -- {End Of Comments}
364: -- ----------------------------------------------------------------------------
365: Procedure post_insert(p_rec in per_ctr_shd.g_rec_type,
366: p_effective_date in date) is
367: --
368: l_proc varchar2(72) := g_package||'post_insert';
369: --
509: -- |---------------------------------< ins >----------------------------------|
510: -- ----------------------------------------------------------------------------
511: Procedure ins
512: (
513: p_rec in out nocopy per_ctr_shd.g_rec_type,
514: p_effective_date in date,
515: p_validate in boolean default false
516: ) is
517: --
635: p_effective_date in date default null,
636: p_validate in boolean default false
637: ) is
638: --
639: l_rec per_ctr_shd.g_rec_type;
640: l_proc varchar2(72) := g_package||'ins';
641: --
642: Begin
643: hr_utility.set_location('Entering:'||l_proc, 5);
645: -- Call conversion function to turn arguments into the
646: -- p_rec structure.
647: --
648: l_rec :=
649: per_ctr_shd.convert_args
650: (
651: null,
652: p_business_group_id,
653: p_person_id,