48: --
49: -- {End Of Comments}
50: -- ----------------------------------------------------------------------------
51: Procedure delete_dml
52: (p_rec in irc_cmc_shd.g_rec_type
53: ) is
54: --
55: l_proc varchar2(72) := g_package||'delete_dml';
56: --
71: Exception
72: When hr_api.child_integrity_violated then
73: -- Child integrity has been violated
74: --
75: irc_cmc_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When Others Then
78: --
79: Raise;
110: -- Internal Row Handler Use Only.
111: --
112: -- {End Of Comments}
113: -- ----------------------------------------------------------------------------
114: Procedure pre_delete(p_rec in irc_cmc_shd.g_rec_type) is
115: --
116: l_proc varchar2(72) := g_package||'pre_delete';
117: --
118: Begin
152: -- Internal Row Handler Use Only.
153: --
154: -- {End Of Comments}
155: -- -----------------------------------------------------------------------------
156: Procedure post_delete(p_rec in irc_cmc_shd.g_rec_type) is
157: --
158: l_proc varchar2(72) := g_package||'post_delete';
159: --
160: Begin
164: irc_cmc_rkd.after_delete
165: (p_communication_id
166: => p_rec.communication_id
167: ,p_communication_property_id_o
168: => irc_cmc_shd.g_old_rec.communication_property_id
169: ,p_object_type_o
170: => irc_cmc_shd.g_old_rec.object_type
171: ,p_object_id_o
172: => irc_cmc_shd.g_old_rec.object_id
166: => p_rec.communication_id
167: ,p_communication_property_id_o
168: => irc_cmc_shd.g_old_rec.communication_property_id
169: ,p_object_type_o
170: => irc_cmc_shd.g_old_rec.object_type
171: ,p_object_id_o
172: => irc_cmc_shd.g_old_rec.object_id
173: ,p_status_o
174: => irc_cmc_shd.g_old_rec.status
168: => irc_cmc_shd.g_old_rec.communication_property_id
169: ,p_object_type_o
170: => irc_cmc_shd.g_old_rec.object_type
171: ,p_object_id_o
172: => irc_cmc_shd.g_old_rec.object_id
173: ,p_status_o
174: => irc_cmc_shd.g_old_rec.status
175: ,p_start_date_o
176: => irc_cmc_shd.g_old_rec.start_date
170: => irc_cmc_shd.g_old_rec.object_type
171: ,p_object_id_o
172: => irc_cmc_shd.g_old_rec.object_id
173: ,p_status_o
174: => irc_cmc_shd.g_old_rec.status
175: ,p_start_date_o
176: => irc_cmc_shd.g_old_rec.start_date
177: ,p_end_date_o
178: => irc_cmc_shd.g_old_rec.end_date
172: => irc_cmc_shd.g_old_rec.object_id
173: ,p_status_o
174: => irc_cmc_shd.g_old_rec.status
175: ,p_start_date_o
176: => irc_cmc_shd.g_old_rec.start_date
177: ,p_end_date_o
178: => irc_cmc_shd.g_old_rec.end_date
179: ,p_object_version_number_o
180: => irc_cmc_shd.g_old_rec.object_version_number
174: => irc_cmc_shd.g_old_rec.status
175: ,p_start_date_o
176: => irc_cmc_shd.g_old_rec.start_date
177: ,p_end_date_o
178: => irc_cmc_shd.g_old_rec.end_date
179: ,p_object_version_number_o
180: => irc_cmc_shd.g_old_rec.object_version_number
181: );
182: --
176: => irc_cmc_shd.g_old_rec.start_date
177: ,p_end_date_o
178: => irc_cmc_shd.g_old_rec.end_date
179: ,p_object_version_number_o
180: => irc_cmc_shd.g_old_rec.object_version_number
181: );
182: --
183: exception
184: --
196: -- ----------------------------------------------------------------------------
197: -- |---------------------------------< del >----------------------------------|
198: -- ----------------------------------------------------------------------------
199: Procedure del
200: (p_rec in irc_cmc_shd.g_rec_type
201: ) is
202: --
203: l_proc varchar2(72) := g_package||'del';
204: --
206: hr_utility.set_location('Entering:'||l_proc, 5);
207: --
208: -- We must lock the row which we need to delete.
209: --
210: irc_cmc_shd.lck
211: (p_rec.communication_id
212: ,p_rec.object_version_number
213: );
214: --
243: (p_communication_id in number
244: ,p_object_version_number in number
245: ) is
246: --
247: l_rec irc_cmc_shd.g_rec_type;
248: l_proc varchar2(72) := g_package||'del';
249: --
250: Begin
251: hr_utility.set_location('Entering:'||l_proc, 5);