70: -- Internal Development Use Only.
71: --
72: -- {End Of Comments}
73: -- ----------------------------------------------------------------------------
74: Procedure insert_dml(p_rec in out nocopy ota_tdb_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: ota_tdb_shd.g_api_dml := true; -- Set the api dml status
83: --
84: -- Insert the row into: ota_delegate_bookings
85: --
86: insert into ota_delegate_bookings
241: p_rec.is_mandatory_enrollment,
242: p_rec.sign_eval_status
243: );
244: --
245: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
246: --
247: hr_utility.set_location(' Leaving:'||l_proc, 10);
248: Exception
249: When hr_api.check_integrity_violated Then
247: hr_utility.set_location(' Leaving:'||l_proc, 10);
248: Exception
249: When hr_api.check_integrity_violated Then
250: -- A check constraint has been violated
251: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
252: ota_tdb_shd.constraint_error
253: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
254: When hr_api.parent_integrity_violated Then
255: -- Parent integrity has been violated
248: Exception
249: When hr_api.check_integrity_violated Then
250: -- A check constraint has been violated
251: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
252: ota_tdb_shd.constraint_error
253: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
254: When hr_api.parent_integrity_violated Then
255: -- Parent integrity has been violated
256: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
252: ota_tdb_shd.constraint_error
253: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
254: When hr_api.parent_integrity_violated Then
255: -- Parent integrity has been violated
256: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
257: ota_tdb_shd.constraint_error
258: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
259: When hr_api.unique_integrity_violated Then
260: -- Unique integrity has been violated
253: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
254: When hr_api.parent_integrity_violated Then
255: -- Parent integrity has been violated
256: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
257: ota_tdb_shd.constraint_error
258: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
259: When hr_api.unique_integrity_violated Then
260: -- Unique integrity has been violated
261: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
257: ota_tdb_shd.constraint_error
258: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
259: When hr_api.unique_integrity_violated Then
260: -- Unique integrity has been violated
261: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
262: ota_tdb_shd.constraint_error
263: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
264: When Others Then
265: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
258: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
259: When hr_api.unique_integrity_violated Then
260: -- Unique integrity has been violated
261: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
262: ota_tdb_shd.constraint_error
263: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
264: When Others Then
265: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
266: Raise;
261: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
262: ota_tdb_shd.constraint_error
263: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
264: When Others Then
265: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
266: Raise;
267: End insert_dml;
268: --
269: -- ----------------------------------------------------------------------------
302: -- Internal Development Use Only.
303: --
304: -- {End Of Comments}
305: -- ----------------------------------------------------------------------------
306: Procedure pre_insert(p_rec in out nocopy ota_tdb_shd.g_rec_type) is
307: --
308: l_proc varchar2(72) := g_package||'pre_insert';
309: --
310: Cursor C_Sel1 is select ota_delegate_bookings_s.nextval from sys.dual;
389: -- Internal Development Use Only.
390: --
391: -- {End Of Comments}
392: -- ----------------------------------------------------------------------------
393: Procedure post_insert(p_rec in ota_tdb_shd.g_rec_type) is
394: --
395: l_proc varchar2(72) := g_package||'post_insert';
396: l_dummy number;
397: l_return boolean;
438: -- |---------------------------------< ins >----------------------------------|
439: -- ----------------------------------------------------------------------------
440: Procedure ins
441: (
442: p_rec in out nocopy ota_tdb_shd.g_rec_type,
443: p_create_finance_line in varchar2,
444: p_finance_header_id in number,
445: p_currency_code in varchar2,
446: p_standard_amount in number,
594: p_sign_eval_status in varchar2,
595: p_is_mandatory_enrollment in varchar2
596: ) is
597: --
598: l_rec ota_tdb_shd.g_rec_type;
599: l_proc varchar2(72) := g_package||'ins';
600: --
601: Begin
602: hr_utility.set_location('Entering:'||l_proc, 5);
604: -- Call conversion function to turn arguments into the
605: -- p_rec structure.
606: --
607: l_rec :=
608: ota_tdb_shd.convert_args
609: (
610: null,
611: p_booking_status_type_id,
612: p_delegate_person_id,