[Home] [Help]
1: Package Body per_pgn_del as
2: /* $Header: pepgnrhi.pkb 120.0 2005/05/31 14:09:44 appldev noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_pgn_del.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------------< delete_dml >------------------------------|
12: -- ----------------------------------------------------------------------------
349: per_pgn_bus.delete_validate(p_rec);
350: --
351: -- Call the supporting pre-delete operation
352: --
353: per_pgn_del.pre_delete(p_rec);
354: --
355: -- Delete the row.
356: --
357: per_pgn_del.delete_dml(p_rec);
353: per_pgn_del.pre_delete(p_rec);
354: --
355: -- Delete the row.
356: --
357: per_pgn_del.delete_dml(p_rec);
358: --
359: -- Call the supporting post-delete operation
360: --
361: per_pgn_del.post_delete(p_rec);
357: per_pgn_del.delete_dml(p_rec);
358: --
359: -- Call the supporting post-delete operation
360: --
361: per_pgn_del.post_delete(p_rec);
362: --
363: End del;
364: --
365: -- ----------------------------------------------------------------------------
387: -- Having converted the arguments into the per_pgn_rec
388: -- plsql record structure we must call the corresponding entity
389: -- business process
390: --
391: per_pgn_del.del(l_rec);
392: --
393: hr_utility.set_location(' Leaving:'||l_proc, 10);
394: End del;
395: --
392: --
393: hr_utility.set_location(' Leaving:'||l_proc, 10);
394: End del;
395: --
396: end per_pgn_del;