72: --
73: -- {End Of Comments}
74: -- ----------------------------------------------------------------------------
75: Procedure insert_dml
76: (p_rec in out nocopy irc_cmt_shd.g_rec_type
77: ) is
78: --
79: l_proc varchar2(72) := g_package||'insert_dml';
80: --
107: Exception
108: When hr_api.check_integrity_violated Then
109: -- A check constraint has been violated
110: --
111: irc_cmt_shd.constraint_error
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.parent_integrity_violated Then
114: -- Parent integrity has been violated
115: --
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.parent_integrity_violated Then
114: -- Parent integrity has been violated
115: --
116: irc_cmt_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.unique_integrity_violated Then
119: -- Unique integrity has been violated
120: --
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When hr_api.unique_integrity_violated Then
119: -- Unique integrity has been violated
120: --
121: irc_cmt_shd.constraint_error
122: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
123: When Others Then
124: --
125: Raise;
162: --
163: -- {End Of Comments}
164: -- ----------------------------------------------------------------------------
165: Procedure pre_insert
166: (p_rec in out nocopy irc_cmt_shd.g_rec_type
167: ) is
168: --
169: Cursor C_Sel1 is select irc_comm_topics_s.nextval from sys.dual;
170: --
250: -- {End Of Comments}
251: -- ----------------------------------------------------------------------------
252: Procedure post_insert
253: (p_effective_date in date
254: ,p_rec in irc_cmt_shd.g_rec_type
255: ) is
256: --
257: l_proc varchar2(72) := g_package||'post_insert';
258: --
291: -- |---------------------------------< ins >----------------------------------|
292: -- ----------------------------------------------------------------------------
293: Procedure ins
294: (p_effective_date in date
295: ,p_rec in out nocopy irc_cmt_shd.g_rec_type
296: ) is
297: --
298: l_proc varchar2(72) := g_package||'ins';
299: --
342: ,p_communication_topic_id out nocopy number
343: ,p_object_version_number out nocopy number
344: ) is
345: --
346: l_rec irc_cmt_shd.g_rec_type;
347: l_proc varchar2(72) := g_package||'ins';
348: --
349: Begin
350: hr_utility.set_location('Entering:'||l_proc, 5);
352: -- Call conversion function to turn arguments into the
353: -- p_rec structure.
354: --
355: l_rec :=
356: irc_cmt_shd.convert_args
357: (null
358: ,p_communication_id
359: ,p_subject
360: ,p_status