1: Package body hxc_tkgq_del as
2: /* $Header: hxctkgqrhi.pkb 120.2 2005/09/23 09:33:26 rchennur noship $ */
3: --
4: g_package varchar2(33) := ' hxc_tkgq_del.'; -- Global package name
5: g_debug boolean := hr_utility.debug_enabled;
1: Package body hxc_tkgq_del as
2: /* $Header: hxctkgqrhi.pkb 120.2 2005/09/23 09:33:26 rchennur noship $ */
3: --
4: g_package varchar2(33) := ' hxc_tkgq_del.'; -- Global package name
5: g_debug boolean := hr_utility.debug_enabled;
6: -- ----------------------------------------------------------------------------
7: -- |------------------------------< delete_dml >------------------------------|
8: -- ----------------------------------------------------------------------------
266: hxc_tkgq_bus.delete_validate(p_rec);
267: --
268: -- Call the supporting pre-delete operation
269: --
270: hxc_tkgq_del.pre_delete(p_rec);
271: --
272: -- Delete the row.
273: --
274: hxc_tkgq_del.delete_dml(p_rec);
270: hxc_tkgq_del.pre_delete(p_rec);
271: --
272: -- Delete the row.
273: --
274: hxc_tkgq_del.delete_dml(p_rec);
275: --
276: -- Call the supporting post-delete operation
277: --
278: hxc_tkgq_del.post_delete(p_rec);
274: hxc_tkgq_del.delete_dml(p_rec);
275: --
276: -- Call the supporting post-delete operation
277: --
278: hxc_tkgq_del.post_delete(p_rec);
279: --
280: End del;
281: --
282: -- ----------------------------------------------------------------------------
339: -- Having converted the arguments into the hxc_tkgq_rec
340: -- plsql record structure we must call the corresponding entity
341: -- business process
342: --
343: hxc_tkgq_del.del(l_rec);
344: --
345: if g_debug then
346: hr_utility.set_location(' Leaving:'||l_proc, 10);
347: end if;
346: hr_utility.set_location(' Leaving:'||l_proc, 10);
347: end if;
348: End del;
349: --
350: end hxc_tkgq_del;