1: Package Body ben_cpg_del as
2: /* $Header: becpgrhi.pkb 120.0 2005/05/28 01:13 appldev noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ben_cpg_del.'; -- Global package name
9: g_debug boolean := hr_utility.debug_enabled;
10: --
11: -- ----------------------------------------------------------------------------
12: -- |------------------------------< delete_dml >------------------------------|
295: hr_multi_message.end_validation_set;
296: --
297: -- Call the supporting pre-delete operation
298: --
299: ben_cpg_del.pre_delete(p_rec);
300: --
301: -- Delete the row.
302: --
303: ben_cpg_del.delete_dml(p_rec);
299: ben_cpg_del.pre_delete(p_rec);
300: --
301: -- Delete the row.
302: --
303: ben_cpg_del.delete_dml(p_rec);
304: --
305: -- Call the supporting post-delete operation
306: --
307: ben_cpg_del.post_delete(p_rec);
303: ben_cpg_del.delete_dml(p_rec);
304: --
305: -- Call the supporting post-delete operation
306: --
307: ben_cpg_del.post_delete(p_rec);
308: --
309: -- Call to raise any errors on multi-message list
310: hr_multi_message.end_validation_set;
311: --
342: -- Having converted the arguments into the ben_cpg_rec
343: -- plsql record structure we must call the corresponding entity
344: -- business process
345: --
346: ben_cpg_del.del(l_rec);
347: --
348: if g_debug then
349: hr_utility.set_location(' Leaving:'||l_proc, 10);
350: end if;
349: hr_utility.set_location(' Leaving:'||l_proc, 10);
350: end if;
351: End del;
352: --
353: end ben_cpg_del;