[Home] [Help]
1: Package Body per_pgn_upd 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_upd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------------< update_dml >------------------------------|
12: -- ----------------------------------------------------------------------------
940: );
941: --
942: -- Call the supporting pre-update operation
943: --
944: per_pgn_upd.pre_update(p_rec);
945: --
946: -- Update the row.
947: --
948: per_pgn_upd.update_dml(p_rec);
944: per_pgn_upd.pre_update(p_rec);
945: --
946: -- Update the row.
947: --
948: per_pgn_upd.update_dml(p_rec);
949: --
950: -- Call the supporting post-update operation
951: --
952: per_pgn_upd.post_update
948: per_pgn_upd.update_dml(p_rec);
949: --
950: -- Call the supporting post-update operation
951: --
952: per_pgn_upd.post_update
953: (p_effective_date
954: ,p_rec
955: );
956: End upd;
1124: -- Having converted the arguments into the
1125: -- plsql record structure we call the corresponding record
1126: -- business process.
1127: --
1128: per_pgn_upd.upd
1129: (p_effective_date
1130: ,l_rec
1131: );
1132: p_object_version_number := l_rec.object_version_number;
1133: --
1134: hr_utility.set_location(' Leaving:'||l_proc, 10);
1135: End upd;
1136: --
1137: end per_pgn_upd;