[Home] [Help]
1: Package Body pqh_cpd_del as
2: /* $Header: pqcpdrhi.pkb 120.0 2005/05/29 01:44:39 appldev noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pqh_cpd_del.'; -- Global package name
9: g_debug boolean := hr_utility.debug_enabled;
10: --
11: -- ----------------------------------------------------------------------------
12: -- |------------------------------< delete_dml >------------------------------|
333: hr_multi_message.end_validation_set;
334: --
335: -- Call the supporting pre-delete operation
336: --
337: pqh_cpd_del.pre_delete(p_rec);
338: --
339: -- Delete the row.
340: --
341: pqh_cpd_del.delete_dml(p_rec);
337: pqh_cpd_del.pre_delete(p_rec);
338: --
339: -- Delete the row.
340: --
341: pqh_cpd_del.delete_dml(p_rec);
342: --
343: -- Call the supporting post-delete operation
344: --
345: pqh_cpd_del.post_delete(p_rec);
341: pqh_cpd_del.delete_dml(p_rec);
342: --
343: -- Call the supporting post-delete operation
344: --
345: pqh_cpd_del.post_delete(p_rec);
346: --
347: -- Call to raise any errors on multi-message list
348: hr_multi_message.end_validation_set;
349: --
378: -- Having converted the arguments into the pqh_cpd_rec
379: -- plsql record structure we must call the corresponding entity
380: -- business process
381: --
382: pqh_cpd_del.del(l_rec);
383: --
384: if g_debug then
385: hr_utility.set_location(' Leaving:'||l_proc, 10);
386: end if;
385: hr_utility.set_location(' Leaving:'||l_proc, 10);
386: end if;
387: End del;
388: --
389: end pqh_cpd_del;