[Home] [Help]
1: Package Body pqh_cgn_upd as
2: /* $Header: pqcgnrhi.pkb 115.7 2002/11/27 04:43:27 rpasapul noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pqh_cgn_upd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------------< update_dml >------------------------------|
12: -- ----------------------------------------------------------------------------
430: hr_multi_message.end_validation_set;
431: --
432: -- Call the supporting pre-update operation
433: --
434: pqh_cgn_upd.pre_update(p_rec);
435: --
436: -- Update the row.
437: --
438: pqh_cgn_upd.update_dml(p_rec);
434: pqh_cgn_upd.pre_update(p_rec);
435: --
436: -- Update the row.
437: --
438: pqh_cgn_upd.update_dml(p_rec);
439: --
440: -- Call the supporting post-update operation
441: --
442: pqh_cgn_upd.post_update
438: pqh_cgn_upd.update_dml(p_rec);
439: --
440: -- Call the supporting post-update operation
441: --
442: pqh_cgn_upd.post_update
443: (p_effective_date
444: ,p_rec
445: );
446: --
503: -- Having converted the arguments into the
504: -- plsql record structure we call the corresponding record
505: -- business process.
506: --
507: pqh_cgn_upd.upd
508: (p_effective_date
509: ,l_rec
510: );
511: p_object_version_number := l_rec.object_version_number;
512: --
513: hr_utility.set_location(' Leaving:'||l_proc, 10);
514: End upd;
515: --
516: end pqh_cgn_upd;