72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy irc_inp_shd.g_rec_type
77: ) is
78: --
79: l_proc varchar2(72) := g_package||'insert_dml';
80: --
81: Begin
82: hr_utility.set_location('Entering:'||l_proc, 5);
83: p_rec.object_version_number := 1; -- Initialise the object version
84: --
85: irc_inp_shd.g_api_dml := true; -- Set the api dml status
86: --
87: -- Insert the row into: irc_notification_preferences
88: --
89: insert into irc_notification_preferences
174: ,p_rec.agency_id
175: ,p_rec.attempt_id
176: );
177: --
178: irc_inp_shd.g_api_dml := false; -- Unset the api dml status
179: --
180: hr_utility.set_location(' Leaving:'||l_proc, 10);
181: Exception
182: When hr_api.check_integrity_violated Then
180: hr_utility.set_location(' Leaving:'||l_proc, 10);
181: Exception
182: When hr_api.check_integrity_violated Then
183: -- A check constraint has been violated
184: irc_inp_shd.g_api_dml := false; -- Unset the api dml status
185: --
186: irc_inp_shd.constraint_error
187: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
188: When hr_api.parent_integrity_violated Then
182: When hr_api.check_integrity_violated Then
183: -- A check constraint has been violated
184: irc_inp_shd.g_api_dml := false; -- Unset the api dml status
185: --
186: irc_inp_shd.constraint_error
187: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
188: When hr_api.parent_integrity_violated Then
189: -- Parent integrity has been violated
190: irc_inp_shd.g_api_dml := false; -- Unset the api dml status
186: irc_inp_shd.constraint_error
187: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
188: When hr_api.parent_integrity_violated Then
189: -- Parent integrity has been violated
190: irc_inp_shd.g_api_dml := false; -- Unset the api dml status
191: --
192: irc_inp_shd.constraint_error
193: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
194: When hr_api.unique_integrity_violated Then
188: When hr_api.parent_integrity_violated Then
189: -- Parent integrity has been violated
190: irc_inp_shd.g_api_dml := false; -- Unset the api dml status
191: --
192: irc_inp_shd.constraint_error
193: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
194: When hr_api.unique_integrity_violated Then
195: -- Unique integrity has been violated
196: irc_inp_shd.g_api_dml := false; -- Unset the api dml status
192: irc_inp_shd.constraint_error
193: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
194: When hr_api.unique_integrity_violated Then
195: -- Unique integrity has been violated
196: irc_inp_shd.g_api_dml := false; -- Unset the api dml status
197: --
198: irc_inp_shd.constraint_error
199: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
200: When Others Then
194: When hr_api.unique_integrity_violated Then
195: -- Unique integrity has been violated
196: irc_inp_shd.g_api_dml := false; -- Unset the api dml status
197: --
198: irc_inp_shd.constraint_error
199: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
200: When Others Then
201: irc_inp_shd.g_api_dml := false; -- Unset the api dml status
202: --
197: --
198: irc_inp_shd.constraint_error
199: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
200: When Others Then
201: irc_inp_shd.g_api_dml := false; -- Unset the api dml status
202: --
203: Raise;
204: End insert_dml;
205: --
240: --
241: -- {End Of Comments}
242: -- ----------------------------------------------------------------------------
243: Procedure pre_insert
244: (p_rec in out nocopy irc_inp_shd.g_rec_type
245: ) is
246: --
247: cursor c1 is select irc_notification_prefs_s.nextval from sys.dual;
248: --
316: -- {End Of Comments}
317: -- ----------------------------------------------------------------------------
318: Procedure post_insert
319: (p_effective_date in date
320: ,p_rec in irc_inp_shd.g_rec_type
321: ) is
322: --
323: l_proc varchar2(72) := g_package||'post_insert';
324: --
429: -- |---------------------------------< ins >----------------------------------|
430: -- ----------------------------------------------------------------------------
431: Procedure ins
432: (p_effective_date in date
433: ,p_rec in out nocopy irc_inp_shd.g_rec_type
434: ) is
435: --
436: l_proc varchar2(72) := g_package||'ins';
437: --
520: ,p_notification_preference_id out nocopy number
521: ,p_object_version_number out nocopy number
522: ) is
523: --
524: l_rec irc_inp_shd.g_rec_type;
525: l_proc varchar2(72) := g_package||'ins';
526: --
527: Begin
528: hr_utility.set_location('Entering:'||l_proc, 5);
530: -- Call conversion function to turn arguments into the
531: -- p_rec structure.
532: --
533: l_rec :=
534: irc_inp_shd.convert_args
535: (null
536: ,p_person_id
537: ,null
538: ,p_matching_jobs