73: --
74: -- {End Of Comments}
75: -- ----------------------------------------------------------------------------
76: Procedure insert_dml
77: (p_rec in out nocopy per_evt_shd.g_rec_type
78: ) is
79: --
80: l_proc varchar2(72) := g_package||'insert_dml';
81: --
82: Begin
83: hr_utility.set_location('Entering:'||l_proc, 10);
84: p_rec.object_version_number := 1; -- Initialise the object version
85: --
86: per_evt_shd.g_api_dml := true; -- Set the api dml status
87: --
88: -- Insert the row into: per_events
89: --
90: insert into per_events
177: ,p_rec.party_id
178: ,p_rec.object_version_number
179: );
180: --
181: per_evt_shd.g_api_dml := false; -- Unset the api dml status
182: --
183: hr_utility.set_location(' Leaving:'||l_proc, 20);
184: Exception
185: When hr_api.check_integrity_violated Then
183: hr_utility.set_location(' Leaving:'||l_proc, 20);
184: Exception
185: When hr_api.check_integrity_violated Then
186: -- A check constraint has been violated
187: per_evt_shd.g_api_dml := false; -- Unset the api dml status
188: per_evt_shd.constraint_error
189: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
190: When hr_api.parent_integrity_violated Then
191: -- Parent integrity has been violated
184: Exception
185: When hr_api.check_integrity_violated Then
186: -- A check constraint has been violated
187: per_evt_shd.g_api_dml := false; -- Unset the api dml status
188: per_evt_shd.constraint_error
189: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
190: When hr_api.parent_integrity_violated Then
191: -- Parent integrity has been violated
192: per_evt_shd.g_api_dml := false; -- Unset the api dml status
188: per_evt_shd.constraint_error
189: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
190: When hr_api.parent_integrity_violated Then
191: -- Parent integrity has been violated
192: per_evt_shd.g_api_dml := false; -- Unset the api dml status
193: per_evt_shd.constraint_error
194: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
195: When hr_api.unique_integrity_violated Then
196: -- Unique integrity has been violated
189: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
190: When hr_api.parent_integrity_violated Then
191: -- Parent integrity has been violated
192: per_evt_shd.g_api_dml := false; -- Unset the api dml status
193: per_evt_shd.constraint_error
194: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
195: When hr_api.unique_integrity_violated Then
196: -- Unique integrity has been violated
197: per_evt_shd.g_api_dml := false; -- Unset the api dml status
193: per_evt_shd.constraint_error
194: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
195: When hr_api.unique_integrity_violated Then
196: -- Unique integrity has been violated
197: per_evt_shd.g_api_dml := false; -- Unset the api dml status
198: per_evt_shd.constraint_error
199: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
200: When Others Then
201: per_evt_shd.g_api_dml := false; -- Unset the api dml status
194: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
195: When hr_api.unique_integrity_violated Then
196: -- Unique integrity has been violated
197: per_evt_shd.g_api_dml := false; -- Unset the api dml status
198: per_evt_shd.constraint_error
199: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
200: When Others Then
201: per_evt_shd.g_api_dml := false; -- Unset the api dml status
202: Raise;
197: per_evt_shd.g_api_dml := false; -- Unset the api dml status
198: per_evt_shd.constraint_error
199: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
200: When Others Then
201: per_evt_shd.g_api_dml := false; -- Unset the api dml status
202: Raise;
203: End insert_dml;
204: --
205: -- ----------------------------------------------------------------------------
239: --
240: -- {End Of Comments}
241: -- ----------------------------------------------------------------------------
242: Procedure pre_insert
243: (p_rec in out nocopy per_evt_shd.g_rec_type
244: ) is
245: --
246: Cursor C_Sel1 is select per_events_s.nextval from sys.dual;
247: --
327: --
328: -- {End Of Comments}
329: -- ----------------------------------------------------------------------------
330: Procedure post_insert
331: (p_rec in per_evt_shd.g_rec_type
332: ) is
333: --
334: l_proc varchar2(72) := g_package||'post_insert';
335: --
442: -- ----------------------------------------------------------------------------
443: -- |---------------------------------< ins >----------------------------------|
444: -- ----------------------------------------------------------------------------
445: Procedure ins
446: (p_rec in out nocopy per_evt_shd.g_rec_type
447: ) is
448: --
449: l_proc varchar2(72) := g_package||'ins';
450: --
522: ,p_event_id out nocopy number
523: ,p_object_version_number out nocopy number
524: ) is
525: --
526: l_rec per_evt_shd.g_rec_type;
527: l_proc varchar2(72) := g_package||'ins';
528: --
529: Begin
530: hr_utility.set_location('Entering:'||l_proc, 10);
532: -- Call conversion function to turn arguments into the
533: -- p_recstructure.
534: --
535: l_rec :=
536: per_evt_shd.convert_args
537: (null
538: ,p_business_group_id
539: ,p_location_id
540: ,p_internal_contact_person_id