1: Package Body per_rol_upd as
2: /* $Header: perolrhi.pkb 120.0 2005/05/31 18:34:51 appldev noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_rol_upd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------------< update_dml >------------------------------|
12: -- ----------------------------------------------------------------------------
768: );
769: --
770: -- Call the supporting pre-update operation
771: --
772: per_rol_upd.pre_update(p_rec);
773: --
774: -- Update the row.
775: --
776: per_rol_upd.update_dml(p_rec);
772: per_rol_upd.pre_update(p_rec);
773: --
774: -- Update the row.
775: --
776: per_rol_upd.update_dml(p_rec);
777: --
778: -- Call the supporting post-update operation
779: --
780: per_rol_upd.post_update
776: per_rol_upd.update_dml(p_rec);
777: --
778: -- Call the supporting post-update operation
779: --
780: per_rol_upd.post_update
781: (p_effective_date
782: ,p_rec
783: );
784: End upd;
912: -- Having converted the arguments into the
913: -- plsql record structure we call the corresponding record
914: -- business process.
915: --
916: per_rol_upd.upd
917: (p_effective_date
918: ,l_rec
919: );
920: p_object_version_number := l_rec.object_version_number;
921: --
922: hr_utility.set_location(' Leaving:'||l_proc, 10);
923: End upd;
924: --
925: end per_rol_upd;