74: --
75: hr_utility.set_location(' Leaving:'||l_proc, 10);
76: --
77: Exception
78: When hr_api.check_integrity_violated Then
79: -- A check constraint has been violated
80: pay_sdb_shd.constraint_error
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.parent_integrity_violated Then
77: Exception
78: When hr_api.check_integrity_violated Then
79: -- A check constraint has been violated
80: pay_sdb_shd.constraint_error
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.parent_integrity_violated Then
83: -- Parent integrity has been violated
84: pay_sdb_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
78: When hr_api.check_integrity_violated Then
79: -- A check constraint has been violated
80: pay_sdb_shd.constraint_error
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.parent_integrity_violated Then
83: -- Parent integrity has been violated
84: pay_sdb_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When hr_api.unique_integrity_violated Then
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.parent_integrity_violated Then
83: -- Parent integrity has been violated
84: pay_sdb_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When hr_api.unique_integrity_violated Then
87: -- Unique integrity has been violated
88: pay_sdb_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.parent_integrity_violated Then
83: -- Parent integrity has been violated
84: pay_sdb_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When hr_api.unique_integrity_violated Then
87: -- Unique integrity has been violated
88: pay_sdb_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When Others Then
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When hr_api.unique_integrity_violated Then
87: -- Unique integrity has been violated
88: pay_sdb_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When Others Then
91: Raise;
92: End update_dml;
93: --
231: -- p_rec plsql record structure
232: -- to see if a system default is being used. If a system default
233: -- is being used then we must set to the 'current' argument value.
234: --
235: If (p_rec.balance_type_id = hr_api.g_number) then
236: p_rec.balance_type_id :=
237: pay_sdb_shd.g_old_rec.balance_type_id;
238: End If;
239: If (p_rec.dimension_name = hr_api.g_varchar2) then
235: If (p_rec.balance_type_id = hr_api.g_number) then
236: p_rec.balance_type_id :=
237: pay_sdb_shd.g_old_rec.balance_type_id;
238: End If;
239: If (p_rec.dimension_name = hr_api.g_varchar2) then
240: p_rec.dimension_name :=
241: pay_sdb_shd.g_old_rec.dimension_name;
242: End If;
243: If (p_rec.force_latest_balance_flag = hr_api.g_varchar2) then
239: If (p_rec.dimension_name = hr_api.g_varchar2) then
240: p_rec.dimension_name :=
241: pay_sdb_shd.g_old_rec.dimension_name;
242: End If;
243: If (p_rec.force_latest_balance_flag = hr_api.g_varchar2) then
244: p_rec.force_latest_balance_flag :=
245: pay_sdb_shd.g_old_rec.force_latest_balance_flag;
246: End If;
247: If (p_rec.grossup_allowed_flag = hr_api.g_varchar2) then
243: If (p_rec.force_latest_balance_flag = hr_api.g_varchar2) then
244: p_rec.force_latest_balance_flag :=
245: pay_sdb_shd.g_old_rec.force_latest_balance_flag;
246: End If;
247: If (p_rec.grossup_allowed_flag = hr_api.g_varchar2) then
248: p_rec.grossup_allowed_flag :=
249: pay_sdb_shd.g_old_rec.grossup_allowed_flag;
250: End If;
251: If (p_rec.exclusion_rule_id = hr_api.g_number) then
247: If (p_rec.grossup_allowed_flag = hr_api.g_varchar2) then
248: p_rec.grossup_allowed_flag :=
249: pay_sdb_shd.g_old_rec.grossup_allowed_flag;
250: End If;
251: If (p_rec.exclusion_rule_id = hr_api.g_number) then
252: p_rec.exclusion_rule_id :=
253: pay_sdb_shd.g_old_rec.exclusion_rule_id;
254: End If;
255: --
307: Procedure upd
308: (
309: p_effective_date in date,
310: p_defined_balance_id in number,
311: p_dimension_name in varchar2 default hr_api.g_varchar2,
312: p_force_latest_balance_flag in varchar2 default hr_api.g_varchar2,
313: p_grossup_allowed_flag in varchar2 default hr_api.g_varchar2,
314: p_object_version_number in out nocopy number
315: ,p_exclusion_rule_id in number default hr_api.g_number
308: (
309: p_effective_date in date,
310: p_defined_balance_id in number,
311: p_dimension_name in varchar2 default hr_api.g_varchar2,
312: p_force_latest_balance_flag in varchar2 default hr_api.g_varchar2,
313: p_grossup_allowed_flag in varchar2 default hr_api.g_varchar2,
314: p_object_version_number in out nocopy number
315: ,p_exclusion_rule_id in number default hr_api.g_number
316: ) is
309: p_effective_date in date,
310: p_defined_balance_id in number,
311: p_dimension_name in varchar2 default hr_api.g_varchar2,
312: p_force_latest_balance_flag in varchar2 default hr_api.g_varchar2,
313: p_grossup_allowed_flag in varchar2 default hr_api.g_varchar2,
314: p_object_version_number in out nocopy number
315: ,p_exclusion_rule_id in number default hr_api.g_number
316: ) is
317: --
311: p_dimension_name in varchar2 default hr_api.g_varchar2,
312: p_force_latest_balance_flag in varchar2 default hr_api.g_varchar2,
313: p_grossup_allowed_flag in varchar2 default hr_api.g_varchar2,
314: p_object_version_number in out nocopy number
315: ,p_exclusion_rule_id in number default hr_api.g_number
316: ) is
317: --
318: l_rec pay_sdb_shd.g_rec_type;
319: l_proc varchar2(72) := g_package||'upd';
327: l_rec :=
328: pay_sdb_shd.convert_args
329: (
330: p_defined_balance_id,
331: hr_api.g_number,
332: p_dimension_name,
333: p_force_latest_balance_flag,
334: p_grossup_allowed_flag,
335: p_object_version_number