51: -- Internal Development Use Only.
52: --
53: -- {End Of Comments}
54: -- ----------------------------------------------------------------------------
55: Procedure delete_dml(p_rec in ota_tdb_shd.g_rec_type) is
56: --
57: l_proc varchar2(72) := g_package||'delete_dml';
58: --
59: Begin
58: --
59: Begin
60: hr_utility.set_location('Entering:'||l_proc, 5);
61: --
62: ota_tdb_shd.g_api_dml := true; -- Set the api dml status
63: --
64: -- Delete the ota_delegate_bookings row.
65: --
66: delete from ota_delegate_bookings
65: --
66: delete from ota_delegate_bookings
67: where booking_id = p_rec.booking_id;
68: --
69: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
70: --
71: hr_utility.set_location(' Leaving:'||l_proc, 10);
72: --
73: Exception
72: --
73: Exception
74: When hr_api.child_integrity_violated then
75: -- Child integrity has been violated
76: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
77: ota_tdb_shd.constraint_error
78: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
79: When Others Then
80: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
73: Exception
74: When hr_api.child_integrity_violated then
75: -- Child integrity has been violated
76: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
77: ota_tdb_shd.constraint_error
78: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
79: When Others Then
80: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
81: Raise;
76: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
77: ota_tdb_shd.constraint_error
78: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
79: When Others Then
80: ota_tdb_shd.g_api_dml := false; -- Unset the api dml status
81: Raise;
82: End delete_dml;
83: --
84: -- ----------------------------------------------------------------------------
112: -- Internal Development Use Only.
113: --
114: -- {End Of Comments}
115: -- ----------------------------------------------------------------------------
116: Procedure pre_delete(p_rec in ota_tdb_shd.g_rec_type) is
117: --
118: cursor c_get_event_id is
119: select event_id, delegate_person_id, delegate_contact_id
120: from ota_delegate_bookings
177: -- Internal Development Use Only.
178: --
179: -- {End Of Comments}
180: -- ----------------------------------------------------------------------------
181: Procedure post_delete(p_rec in ota_tdb_shd.g_rec_type) is
182: --
183: cursor c_get_forum_id is
184: select fns.forum_id,fns.object_version_number
185: from ota_frm_obj_inclusions foi,ota_frm_notif_subscribers fns
270: -- |---------------------------------< del >----------------------------------|
271: -- ----------------------------------------------------------------------------
272: Procedure del
273: (
274: p_rec in ota_tdb_shd.g_rec_type,
275: p_validate in boolean
276: ) is
277: --
278: l_proc varchar2(72) := g_package||'del';
290: End If;
291: --
292: -- We must lock the row which we need to delete.
293: --
294: ota_tdb_shd.lck
295: (
296: p_rec.booking_id,
297: p_rec.object_version_number
298: );
338: p_object_version_number in number,
339: p_validate in boolean
340: ) is
341: --
342: l_rec ota_tdb_shd.g_rec_type;
343: l_proc varchar2(72) := g_package||'del';
344: --
345: Begin
346: hr_utility.set_location('Entering:'||l_proc, 5);