[Home] [Help]
1: Package Body per_ctk_upd as
2: /* $Header: pectkrhi.pkb 120.7 2006/09/11 20:45:03 sturlapa noship $ */
3: g_debug boolean := hr_utility.debug_enabled;
4: --
5: -- ----------------------------------------------------------------------------
5: -- ----------------------------------------------------------------------------
6: -- | Private Global Definitions |
7: -- ----------------------------------------------------------------------------
8: --
9: g_package varchar2(33) := ' per_ctk_upd.'; -- Global package name
10: --
11: -- ----------------------------------------------------------------------------
12: -- |------------------------------< update_dml >------------------------------|
13: -- ----------------------------------------------------------------------------
945: hr_multi_message.end_validation_set;
946: --
947: -- Call the supporting pre-update operation
948: --
949: per_ctk_upd.pre_update(p_rec);
950: --
951: -- Update the row.
952: --
953: per_ctk_upd.update_dml(p_rec);
949: per_ctk_upd.pre_update(p_rec);
950: --
951: -- Update the row.
952: --
953: per_ctk_upd.update_dml(p_rec);
954: --
955: -- Call the supporting post-update operation
956: --
957: per_ctk_upd.post_update
953: per_ctk_upd.update_dml(p_rec);
954: --
955: -- Call the supporting post-update operation
956: --
957: per_ctk_upd.post_update
958: (p_effective_date
959: ,p_rec
960: );
961: --
1096: -- Having converted the arguments into the
1097: -- plsql record structure we call the corresponding record
1098: -- business process.
1099: --
1100: per_ctk_upd.upd
1101: (p_effective_date
1102: ,l_rec
1103: );
1104: p_object_version_number := l_rec.object_version_number;
1105: --
1106: hr_utility.set_location(' Leaving:'||l_proc, 10);
1107: End upd;
1108: --
1109: end per_ctk_upd;