50: --
51: -- {End Of Comments}
52: -- ----------------------------------------------------------------------------
53: Procedure delete_dml
54: (p_rec in hxc_rtc_shd.g_rec_type
55: ) is
56: --
57: l_proc varchar2(72);
58: --
63: l_proc := g_package||'delete_dml';
64: hr_utility.set_location('Entering:'||l_proc, 5);
65: end if;
66: --
67: hxc_rtc_shd.g_api_dml := true; -- Set the api dml status
68: --
69: -- Delete the hxc_retrieval_rule_comps row.
70: --
71: delete from hxc_retrieval_rule_comps
70: --
71: delete from hxc_retrieval_rule_comps
72: where retrieval_rule_comp_id = p_rec.retrieval_rule_comp_id;
73: --
74: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
75: --
76: if g_debug then
77: hr_utility.set_location(' Leaving:'||l_proc, 10);
78: end if;
79: --
80: Exception
81: When hr_api.child_integrity_violated then
82: -- Child integrity has been violated
83: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
84: hxc_rtc_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When Others Then
87: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
80: Exception
81: When hr_api.child_integrity_violated then
82: -- Child integrity has been violated
83: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
84: hxc_rtc_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When Others Then
87: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
88: Raise;
83: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
84: hxc_rtc_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When Others Then
87: hxc_rtc_shd.g_api_dml := false; -- Unset the api dml status
88: Raise;
89: End delete_dml;
90: --
91: -- ----------------------------------------------------------------------------
119: -- Internal Row Handler Use Only.
120: --
121: -- {End Of Comments}
122: -- ----------------------------------------------------------------------------
123: Procedure pre_delete(p_rec in hxc_rtc_shd.g_rec_type) is
124: --
125: l_proc varchar2(72);
126: --
127: Begin
166: -- Internal Row Handler Use Only.
167: --
168: -- {End Of Comments}
169: -- -----------------------------------------------------------------------------
170: Procedure post_delete(p_rec in hxc_rtc_shd.g_rec_type) is
171: --
172: l_proc varchar2(72);
173: --
174: Begin
183: hxc_rtc_rkd.after_delete
184: (p_retrieval_rule_comp_id
185: => p_rec.retrieval_rule_comp_id
186: ,p_retrieval_rule_id_o
187: => hxc_rtc_shd.g_old_rec.retrieval_rule_id
188: ,p_status_o
189: => hxc_rtc_shd.g_old_rec.status
190: ,p_object_version_number_o
191: => hxc_rtc_shd.g_old_rec.object_version_number
185: => p_rec.retrieval_rule_comp_id
186: ,p_retrieval_rule_id_o
187: => hxc_rtc_shd.g_old_rec.retrieval_rule_id
188: ,p_status_o
189: => hxc_rtc_shd.g_old_rec.status
190: ,p_object_version_number_o
191: => hxc_rtc_shd.g_old_rec.object_version_number
192: ,p_time_recipient_id_o
193: => hxc_rtc_shd.g_old_rec.time_recipient_id
187: => hxc_rtc_shd.g_old_rec.retrieval_rule_id
188: ,p_status_o
189: => hxc_rtc_shd.g_old_rec.status
190: ,p_object_version_number_o
191: => hxc_rtc_shd.g_old_rec.object_version_number
192: ,p_time_recipient_id_o
193: => hxc_rtc_shd.g_old_rec.time_recipient_id
194: );
195: --
189: => hxc_rtc_shd.g_old_rec.status
190: ,p_object_version_number_o
191: => hxc_rtc_shd.g_old_rec.object_version_number
192: ,p_time_recipient_id_o
193: => hxc_rtc_shd.g_old_rec.time_recipient_id
194: );
195: --
196: exception
197: --
211: -- ----------------------------------------------------------------------------
212: -- |---------------------------------< del >----------------------------------|
213: -- ----------------------------------------------------------------------------
214: Procedure del
215: (p_rec in hxc_rtc_shd.g_rec_type
216: ) is
217: --
218: l_proc varchar2(72);
219: --
226: end if;
227: --
228: -- We must lock the row which we need to delete.
229: --
230: hxc_rtc_shd.lck
231: (p_rec.retrieval_rule_comp_id
232: ,p_rec.object_version_number
233: );
234: --
257: (p_retrieval_rule_comp_id in number
258: ,p_object_version_number in number
259: ) is
260: --
261: l_rec hxc_rtc_shd.g_rec_type;
262: l_proc varchar2(72);
263: --
264: Begin
265: g_debug := hr_utility.debug_enabled;