70: -- Internal Table Handler Use Only.
71: --
72: -- {End Of Comments}
73: -- ----------------------------------------------------------------------------
74: Procedure insert_dml(p_rec in out nocopy per_qua_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_qua_shd.g_api_dml := true; -- Set the api dml status
83: --
84: -- Insert the row into: per_qualifications
85: --
86: insert into per_qualifications
233: p_rec.subscription_payment_method,
234: p_rec.party_id
235: );
236: --
237: per_qua_shd.g_api_dml := false; -- Unset the api dml status
238: --
239: hr_utility.set_location(' Leaving:'||l_proc, 10);
240: Exception
241: When hr_api.check_integrity_violated Then
239: hr_utility.set_location(' Leaving:'||l_proc, 10);
240: Exception
241: When hr_api.check_integrity_violated Then
242: -- A check constraint has been violated
243: per_qua_shd.g_api_dml := false; -- Unset the api dml status
244: per_qua_shd.constraint_error
245: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
246: When hr_api.parent_integrity_violated Then
247: -- Parent integrity has been violated
240: Exception
241: When hr_api.check_integrity_violated Then
242: -- A check constraint has been violated
243: per_qua_shd.g_api_dml := false; -- Unset the api dml status
244: per_qua_shd.constraint_error
245: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
246: When hr_api.parent_integrity_violated Then
247: -- Parent integrity has been violated
248: per_qua_shd.g_api_dml := false; -- Unset the api dml status
244: per_qua_shd.constraint_error
245: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
246: When hr_api.parent_integrity_violated Then
247: -- Parent integrity has been violated
248: per_qua_shd.g_api_dml := false; -- Unset the api dml status
249: per_qua_shd.constraint_error
250: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
251: When hr_api.unique_integrity_violated Then
252: -- Unique integrity has been violated
245: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
246: When hr_api.parent_integrity_violated Then
247: -- Parent integrity has been violated
248: per_qua_shd.g_api_dml := false; -- Unset the api dml status
249: per_qua_shd.constraint_error
250: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
251: When hr_api.unique_integrity_violated Then
252: -- Unique integrity has been violated
253: per_qua_shd.g_api_dml := false; -- Unset the api dml status
249: per_qua_shd.constraint_error
250: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
251: When hr_api.unique_integrity_violated Then
252: -- Unique integrity has been violated
253: per_qua_shd.g_api_dml := false; -- Unset the api dml status
254: per_qua_shd.constraint_error
255: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
256: When Others Then
257: per_qua_shd.g_api_dml := false; -- Unset the api dml status
250: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
251: When hr_api.unique_integrity_violated Then
252: -- Unique integrity has been violated
253: per_qua_shd.g_api_dml := false; -- Unset the api dml status
254: per_qua_shd.constraint_error
255: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
256: When Others Then
257: per_qua_shd.g_api_dml := false; -- Unset the api dml status
258: Raise;
253: per_qua_shd.g_api_dml := false; -- Unset the api dml status
254: per_qua_shd.constraint_error
255: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
256: When Others Then
257: per_qua_shd.g_api_dml := false; -- Unset the api dml status
258: Raise;
259: End insert_dml;
260: --
261: -- ----------------------------------------------------------------------------
294: -- Internal Table Handler Use Only.
295: --
296: -- {End Of Comments}
297: -- ----------------------------------------------------------------------------
298: Procedure pre_insert(p_rec in out nocopy per_qua_shd.g_rec_type) is
299: --
300: l_proc varchar2(72) := g_package||'pre_insert';
301: l_exists varchar2(1);
302: --
377: -- Internal Table Handler Use Only.
378: --
379: -- {End Of Comments}
380: -- ----------------------------------------------------------------------------
381: Procedure post_insert(p_rec in per_qua_shd.g_rec_type,
382: p_effective_date in date) is
383: --
384: l_proc varchar2(72) := g_package||'post_insert';
385: --
483: -- |---------------------------------< ins >----------------------------------|
484: -- ----------------------------------------------------------------------------
485: Procedure ins
486: (
487: p_rec in out nocopy per_qua_shd.g_rec_type,
488: p_effective_date in date,
489: p_validate in boolean default false
490: ) is
491: --
624: p_subscription_payment_method in varchar2 default null,
625: p_party_id in number default null
626: ) is
627: --
628: l_rec per_qua_shd.g_rec_type;
629: l_proc varchar2(72) := g_package||'ins';
630: --
631: Begin
632: hr_utility.set_location('Entering:'||l_proc, 5);
634: -- Call conversion function to turn arguments into the
635: -- p_rec structure.
636: --
637: l_rec :=
638: per_qua_shd.convert_args
639: (
640: null,
641: p_business_group_id,
642: null,