67: -- Internal Development Use Only.
68: --
69: -- {End Of Comments}
70: -- ----------------------------------------------------------------------------
71: Procedure insert_dml(p_rec in out nocopy ota_evt_shd.g_rec_type) is
72: --
73: l_proc varchar2(72) := g_package||'insert_dml';
74: --
75: Begin
75: Begin
76: hr_utility.set_location('Entering:'||l_proc, 5);
77: p_rec.object_version_number := 1; -- Initialise the object version
78: --
79: ota_evt_shd.g_api_dml := true; -- Set the api dml status
80: --
81: -- Insert the row into: ota_events
82: --
83: insert into ota_events
218: p_rec.parent_offering_id,
219: p_rec.data_source
220: );
221: --
222: ota_evt_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: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
229: ota_evt_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: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
229: ota_evt_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: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
229: ota_evt_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: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
234: ota_evt_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: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
234: ota_evt_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: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
234: ota_evt_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: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
239: ota_evt_shd.constraint_error
240: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
241: When Others Then
242: ota_evt_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: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
239: ota_evt_shd.constraint_error
240: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
241: When Others Then
242: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
243: Raise;
238: ota_evt_shd.g_api_dml := false; -- Unset the api dml status
239: ota_evt_shd.constraint_error
240: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
241: When Others Then
242: ota_evt_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 ota_evt_shd.g_rec_type
285: ) is
286: --
287: l_proc varchar2(72) := g_package||'pre_insert';
288: --
367: -- Internal Development Use Only.
368: --
369: -- {End Of Comments}
370: -- ----------------------------------------------------------------------------
371: Procedure post_insert(p_rec in ota_evt_shd.g_rec_type) is
372: --
373: l_proc varchar2(72) := g_package||'post_insert';
374: l_return boolean;
375: --
394: -- |---------------------------------< ins >----------------------------------|
395: -- ----------------------------------------------------------------------------
396: Procedure ins
397: (
398: p_rec in out nocopy ota_evt_shd.g_rec_type,
399: p_validate in boolean default false
400: ) is
401: --
402: l_proc varchar2(72) := g_package||'ins';
525: p_data_source in varchar2 default null,
526: p_validate in boolean default false
527: ) is
528: --
529: l_rec ota_evt_shd.g_rec_type;
530: l_proc varchar2(72) := g_package||'ins';
531: --
532: Begin
533: hr_utility.set_location('Entering:'||l_proc, 5);
535: -- Call conversion function to turn arguments into the
536: -- p_rec structure.
537: --
538: l_rec :=
539: ota_evt_shd.convert_args
540: (
541: null,
542: p_vendor_id,
543: p_activity_version_id,