82: --
83: hr_utility.set_location(' Leaving:'||l_proc, 10);
84: --
85: Exception
86: When hr_api.check_integrity_violated Then
87: -- A check constraint has been violated
88: --
89: pay_gbe_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When hr_api.check_integrity_violated Then
87: -- A check constraint has been violated
88: --
89: pay_gbe_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: --
94: pay_gbe_shd.constraint_error
87: -- A check constraint has been violated
88: --
89: pay_gbe_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: --
94: pay_gbe_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: --
94: pay_gbe_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: --
99: pay_gbe_shd.constraint_error
92: -- Parent integrity has been violated
93: --
94: pay_gbe_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: --
99: pay_gbe_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: --
99: pay_gbe_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: --
103: Raise;
104: End update_dml;
219: );
220: --
221: exception
222: --
223: when hr_api.cannot_find_prog_unit then
224: --
225: hr_api.cannot_find_prog_unit_error
226: (p_module_name => 'PAY_GROSSUP_BAL_EXCLUSIONS'
227: ,p_hook_type => 'AU');
221: exception
222: --
223: when hr_api.cannot_find_prog_unit then
224: --
225: hr_api.cannot_find_prog_unit_error
226: (p_module_name => 'PAY_GROSSUP_BAL_EXCLUSIONS'
227: ,p_hook_type => 'AU');
228: --
229: end;
284: -- p_rec plsql record structure
285: -- to see if a system default is being used. If a system default
286: -- is being used then we must set to the 'current' argument value.
287: --
288: If (p_rec.start_date = hr_api.g_date) then
289: p_rec.start_date :=
290: pay_gbe_shd.g_old_rec.start_date;
291: End If;
292: If (p_rec.end_date = hr_api.g_date) then
288: If (p_rec.start_date = hr_api.g_date) then
289: p_rec.start_date :=
290: pay_gbe_shd.g_old_rec.start_date;
291: End If;
292: If (p_rec.end_date = hr_api.g_date) then
293: p_rec.end_date :=
294: pay_gbe_shd.g_old_rec.end_date;
295: End If;
296: If (p_rec.source_id = hr_api.g_number) then
292: If (p_rec.end_date = hr_api.g_date) then
293: p_rec.end_date :=
294: pay_gbe_shd.g_old_rec.end_date;
295: End If;
296: If (p_rec.source_id = hr_api.g_number) then
297: p_rec.source_id :=
298: pay_gbe_shd.g_old_rec.source_id;
299: End If;
300: If (p_rec.source_type = hr_api.g_varchar2) then
296: If (p_rec.source_id = hr_api.g_number) then
297: p_rec.source_id :=
298: pay_gbe_shd.g_old_rec.source_id;
299: End If;
300: If (p_rec.source_type = hr_api.g_varchar2) then
301: p_rec.source_type :=
302: pay_gbe_shd.g_old_rec.source_type;
303: End If;
304: If (p_rec.balance_type_id = hr_api.g_number) then
300: If (p_rec.source_type = hr_api.g_varchar2) then
301: p_rec.source_type :=
302: pay_gbe_shd.g_old_rec.source_type;
303: End If;
304: If (p_rec.balance_type_id = hr_api.g_number) then
305: p_rec.balance_type_id :=
306: pay_gbe_shd.g_old_rec.balance_type_id;
307: End If;
308: --
358: -- ----------------------------------------------------------------------------
359: Procedure upd
360: (p_grossup_balances_id in number
361: ,p_object_version_number in out nocopy number
362: ,p_start_date in date default hr_api.g_date
363: ,p_end_date in date default hr_api.g_date
364: ,p_source_id in number default hr_api.g_number
365: ,p_source_type in varchar2 default hr_api.g_varchar2
366: ,p_balance_type_id in number default hr_api.g_number
359: Procedure upd
360: (p_grossup_balances_id in number
361: ,p_object_version_number in out nocopy number
362: ,p_start_date in date default hr_api.g_date
363: ,p_end_date in date default hr_api.g_date
364: ,p_source_id in number default hr_api.g_number
365: ,p_source_type in varchar2 default hr_api.g_varchar2
366: ,p_balance_type_id in number default hr_api.g_number
367: ) is
360: (p_grossup_balances_id in number
361: ,p_object_version_number in out nocopy number
362: ,p_start_date in date default hr_api.g_date
363: ,p_end_date in date default hr_api.g_date
364: ,p_source_id in number default hr_api.g_number
365: ,p_source_type in varchar2 default hr_api.g_varchar2
366: ,p_balance_type_id in number default hr_api.g_number
367: ) is
368: --
361: ,p_object_version_number in out nocopy number
362: ,p_start_date in date default hr_api.g_date
363: ,p_end_date in date default hr_api.g_date
364: ,p_source_id in number default hr_api.g_number
365: ,p_source_type in varchar2 default hr_api.g_varchar2
366: ,p_balance_type_id in number default hr_api.g_number
367: ) is
368: --
369: l_rec pay_gbe_shd.g_rec_type;
362: ,p_start_date in date default hr_api.g_date
363: ,p_end_date in date default hr_api.g_date
364: ,p_source_id in number default hr_api.g_number
365: ,p_source_type in varchar2 default hr_api.g_varchar2
366: ,p_balance_type_id in number default hr_api.g_number
367: ) is
368: --
369: l_rec pay_gbe_shd.g_rec_type;
370: l_proc varchar2(72) := g_package||'upd';