[Home] [Help]
1: Package Body pqh_vlp_upd as
2: /* $Header: pqvlprhi.pkb 115.6 2004/03/31 00:31:40 kgowripe noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pqh_vlp_upd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------------< update_dml >------------------------------|
12: -- ----------------------------------------------------------------------------
410: hr_multi_message.end_validation_set;
411: --
412: -- Call the supporting pre-update operation
413: --
414: pqh_vlp_upd.pre_update(p_rec);
415: --
416: -- Update the row.
417: --
418: pqh_vlp_upd.update_dml(p_rec);
414: pqh_vlp_upd.pre_update(p_rec);
415: --
416: -- Update the row.
417: --
418: pqh_vlp_upd.update_dml(p_rec);
419: --
420: -- Call the supporting post-update operation
421: --
422: pqh_vlp_upd.post_update
418: pqh_vlp_upd.update_dml(p_rec);
419: --
420: -- Call the supporting post-update operation
421: --
422: pqh_vlp_upd.post_update
423: (p_effective_date
424: ,p_rec
425: );
426: --
479: -- Having converted the arguments into the
480: -- plsql record structure we call the corresponding record
481: -- business process.
482: --
483: pqh_vlp_upd.upd
484: (p_effective_date
485: ,l_rec
486: );
487: p_object_version_number := l_rec.object_version_number;
488: --
489: hr_utility.set_location(' Leaving:'||l_proc, 10);
490: End upd;
491: --
492: end pqh_vlp_upd;