72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy irc_cmc_shd.g_rec_type
77: ) is
78: --
79: l_proc varchar2(72) := g_package||'insert_dml';
80: --
113: Exception
114: When hr_api.check_integrity_violated Then
115: -- A check constraint has been violated
116: --
117: irc_cmc_shd.constraint_error
118: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
119: When hr_api.parent_integrity_violated Then
120: -- Parent integrity has been violated
121: --
118: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
119: When hr_api.parent_integrity_violated Then
120: -- Parent integrity has been violated
121: --
122: irc_cmc_shd.constraint_error
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When hr_api.unique_integrity_violated Then
125: -- Unique integrity has been violated
126: --
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When hr_api.unique_integrity_violated Then
125: -- Unique integrity has been violated
126: --
127: irc_cmc_shd.constraint_error
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When Others Then
130: --
131: Raise;
168: --
169: -- {End Of Comments}
170: -- ----------------------------------------------------------------------------
171: Procedure pre_insert
172: (p_rec in out nocopy irc_cmc_shd.g_rec_type
173: ) is
174: --
175: Cursor C_Sel1 is select irc_communications_s.nextval from sys.dual;
176: --
256: -- {End Of Comments}
257: -- ----------------------------------------------------------------------------
258: Procedure post_insert
259: (p_effective_date in date
260: ,p_rec in irc_cmc_shd.g_rec_type
261: ) is
262: --
263: l_proc varchar2(72) := g_package||'post_insert';
264: --
303: -- |---------------------------------< ins >----------------------------------|
304: -- ----------------------------------------------------------------------------
305: Procedure ins
306: (p_effective_date in date
307: ,p_rec in out nocopy irc_cmc_shd.g_rec_type
308: ) is
309: --
310: l_proc varchar2(72) := g_package||'ins';
311: --
357: ,p_communication_id out nocopy number
358: ,p_object_version_number out nocopy number
359: ) is
360: --
361: l_rec irc_cmc_shd.g_rec_type;
362: l_proc varchar2(72) := g_package||'ins';
363: --
364: Begin
365: hr_utility.set_location('Entering:'||l_proc, 5);
367: -- Call conversion function to turn arguments into the
368: -- p_rec structure.
369: --
370: l_rec :=
371: irc_cmc_shd.convert_args
372: (null
373: ,p_communication_property_id
374: ,p_object_type
375: ,p_object_id