72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy irc_isc_shd.g_rec_type
77: ) is
78: --
79: l_proc varchar2(72) := g_package||'insert_dml';
80: l_description clob;
83: Begin
84: hr_utility.set_location('Entering:'||l_proc, 5);
85: p_rec.object_version_number := 1; -- Initialise the object version
86: --
87: irc_isc_shd.g_api_dml := true; -- Set the api dml status
88: --
89: -- Insert the row into: irc_search_criteria
90: --
91: if p_rec.longitude is not null and p_rec.latitude is not null then
296: ,1
297: ,p_rec.description);
298: end if;
299:
300: irc_isc_shd.g_api_dml := false; -- Unset the api dml status
301: --
302: hr_utility.set_location(' Leaving:'||l_proc, 20);
303: Exception
304: When hr_api.check_integrity_violated Then
302: hr_utility.set_location(' Leaving:'||l_proc, 20);
303: Exception
304: When hr_api.check_integrity_violated Then
305: -- A check constraint has been violated
306: irc_isc_shd.g_api_dml := false; -- Unset the api dml status
307: --
308: irc_isc_shd.constraint_error
309: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
310: When hr_api.parent_integrity_violated Then
304: When hr_api.check_integrity_violated Then
305: -- A check constraint has been violated
306: irc_isc_shd.g_api_dml := false; -- Unset the api dml status
307: --
308: irc_isc_shd.constraint_error
309: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
310: When hr_api.parent_integrity_violated Then
311: -- Parent integrity has been violated
312: irc_isc_shd.g_api_dml := false; -- Unset the api dml status
308: irc_isc_shd.constraint_error
309: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
310: When hr_api.parent_integrity_violated Then
311: -- Parent integrity has been violated
312: irc_isc_shd.g_api_dml := false; -- Unset the api dml status
313: --
314: irc_isc_shd.constraint_error
315: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
316: When hr_api.unique_integrity_violated Then
310: When hr_api.parent_integrity_violated Then
311: -- Parent integrity has been violated
312: irc_isc_shd.g_api_dml := false; -- Unset the api dml status
313: --
314: irc_isc_shd.constraint_error
315: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
316: When hr_api.unique_integrity_violated Then
317: -- Unique integrity has been violated
318: irc_isc_shd.g_api_dml := false; -- Unset the api dml status
314: irc_isc_shd.constraint_error
315: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
316: When hr_api.unique_integrity_violated Then
317: -- Unique integrity has been violated
318: irc_isc_shd.g_api_dml := false; -- Unset the api dml status
319: --
320: irc_isc_shd.constraint_error
321: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
322: When Others Then
316: When hr_api.unique_integrity_violated Then
317: -- Unique integrity has been violated
318: irc_isc_shd.g_api_dml := false; -- Unset the api dml status
319: --
320: irc_isc_shd.constraint_error
321: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
322: When Others Then
323: irc_isc_shd.g_api_dml := false; -- Unset the api dml status
324: --
319: --
320: irc_isc_shd.constraint_error
321: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
322: When Others Then
323: irc_isc_shd.g_api_dml := false; -- Unset the api dml status
324: --
325: Raise;
326: End insert_dml;
327: --
362: --
363: -- {End Of Comments}
364: -- ----------------------------------------------------------------------------
365: Procedure pre_insert
366: (p_rec in out nocopy irc_isc_shd.g_rec_type
367: ) is
368: --
369: Cursor C_Sel1 is select irc_search_criteria_s.nextval from sys.dual;
370: --
450: -- {End Of Comments}
451: -- ----------------------------------------------------------------------------
452: Procedure post_insert
453: (p_effective_date in date
454: ,p_rec in irc_isc_shd.g_rec_type
455: ) is
456: --
457: l_proc varchar2(72) := g_package||'post_insert';
458: --
673: -- |---------------------------------< ins >----------------------------------|
674: -- ----------------------------------------------------------------------------
675: Procedure ins
676: (p_effective_date in date
677: ,p_rec in out nocopy irc_isc_shd.g_rec_type
678: ) is
679: --
680: l_proc varchar2(72) := g_package||'ins';
681: --
815: ,p_search_criteria_id out nocopy number
816: ,p_object_version_number out nocopy number
817: ) is
818: --
819: l_rec irc_isc_shd.g_rec_type;
820: l_proc varchar2(72) := g_package||'ins';
821: --
822: Begin
823: hr_utility.set_location('Entering:'||l_proc, 5);
825: -- Call conversion function to turn arguments into the
826: -- p_rec structure.
827: --
828: l_rec :=
829: irc_isc_shd.convert_args
830: (null
831: ,p_object_id
832: ,p_object_type
833: ,p_search_name