76: --
77: hr_utility.set_location('Leaving :'||l_proc, 100);
78: --
79: Exception
80: When hr_api.check_integrity_violated Then
81: -- A check constraint has been violated
82: ssp_ern_shd.g_api_dml := false; -- Unset the api dml status
83: ssp_ern_shd.constraint_error
84: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
80: When hr_api.check_integrity_violated Then
81: -- A check constraint has been violated
82: ssp_ern_shd.g_api_dml := false; -- Unset the api dml status
83: ssp_ern_shd.constraint_error
84: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
85: When hr_api.parent_integrity_violated Then
86: -- Parent integrity has been violated
87: ssp_ern_shd.g_api_dml := false; -- Unset the api dml status
88: ssp_ern_shd.constraint_error
81: -- A check constraint has been violated
82: ssp_ern_shd.g_api_dml := false; -- Unset the api dml status
83: ssp_ern_shd.constraint_error
84: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
85: When hr_api.parent_integrity_violated Then
86: -- Parent integrity has been violated
87: ssp_ern_shd.g_api_dml := false; -- Unset the api dml status
88: ssp_ern_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
85: When hr_api.parent_integrity_violated Then
86: -- Parent integrity has been violated
87: ssp_ern_shd.g_api_dml := false; -- Unset the api dml status
88: ssp_ern_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When hr_api.unique_integrity_violated Then
91: -- Unique integrity has been violated
92: ssp_ern_shd.g_api_dml := false; -- Unset the api dml status
93: ssp_ern_shd.constraint_error
86: -- Parent integrity has been violated
87: ssp_ern_shd.g_api_dml := false; -- Unset the api dml status
88: ssp_ern_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When hr_api.unique_integrity_violated Then
91: -- Unique integrity has been violated
92: ssp_ern_shd.g_api_dml := false; -- Unset the api dml status
93: ssp_ern_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When hr_api.unique_integrity_violated Then
91: -- Unique integrity has been violated
92: ssp_ern_shd.g_api_dml := false; -- Unset the api dml status
93: ssp_ern_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When Others Then
96: ssp_ern_shd.g_api_dml := false; -- Unset the api dml status
97: Raise;
98: End update_dml;
229: -- We must now examine each argument value in the p_rec plsql record structure
230: -- to see if a system default is being used. If a system default is being used
231: -- then we must set to the 'current' argument value.
232: --
233: If (p_rec.person_id = hr_api.g_number) then
234: p_rec.person_id := ssp_ern_shd.g_old_rec.person_id;
235: End If;
236: If (p_rec.effective_date = hr_api.g_date) then
237: p_rec.effective_date := ssp_ern_shd.g_old_rec.effective_date;
232: --
233: If (p_rec.person_id = hr_api.g_number) then
234: p_rec.person_id := ssp_ern_shd.g_old_rec.person_id;
235: End If;
236: If (p_rec.effective_date = hr_api.g_date) then
237: p_rec.effective_date := ssp_ern_shd.g_old_rec.effective_date;
238: End If;
239: If (p_rec.average_earnings_amount = hr_api.g_number) then
240: p_rec.average_earnings_amount :=
235: End If;
236: If (p_rec.effective_date = hr_api.g_date) then
237: p_rec.effective_date := ssp_ern_shd.g_old_rec.effective_date;
238: End If;
239: If (p_rec.average_earnings_amount = hr_api.g_number) then
240: p_rec.average_earnings_amount :=
241: ssp_ern_shd.g_old_rec.average_earnings_amount;
242: End If;
243: If (p_rec.user_entered = hr_api.g_varchar2) then
239: If (p_rec.average_earnings_amount = hr_api.g_number) then
240: p_rec.average_earnings_amount :=
241: ssp_ern_shd.g_old_rec.average_earnings_amount;
242: End If;
243: If (p_rec.user_entered = hr_api.g_varchar2) then
244: p_rec.user_entered := ssp_ern_shd.g_old_rec.user_entered;
245: End If;
246: --
247: hr_utility.set_location('Leaving :'||l_proc, 100);
306: --
307: -- If we are validating then raise the Validate_Enabled exception
308: --
309: If p_validate then
310: Raise HR_Api.Validate_Enabled;
311: End If;
312: --
313: hr_utility.set_location('Leaving :'||l_proc, 100);
314: Exception
311: End If;
312: --
313: hr_utility.set_location('Leaving :'||l_proc, 100);
314: Exception
315: When HR_Api.Validate_Enabled Then
316: --
317: -- As the Validate_Enabled exception has been raised
318: -- we must rollback to the savepoint
319: --
344: -- Call conversion function to turn arguments into the l_rec structure.
345: --
346: l_rec := ssp_ern_shd.convert_args (p_earnings_calculations_id,
347: p_object_version_number,
348: hr_api.g_number,
349: hr_api.g_date,
350: p_average_earnings_amount,
351: hr_api.g_varchar2,
352: 'S', -- DFoster 1304683 Default to sickness
345: --
346: l_rec := ssp_ern_shd.convert_args (p_earnings_calculations_id,
347: p_object_version_number,
348: hr_api.g_number,
349: hr_api.g_date,
350: p_average_earnings_amount,
351: hr_api.g_varchar2,
352: 'S', -- DFoster 1304683 Default to sickness
353: NULL);
347: p_object_version_number,
348: hr_api.g_number,
349: hr_api.g_date,
350: p_average_earnings_amount,
351: hr_api.g_varchar2,
352: 'S', -- DFoster 1304683 Default to sickness
353: NULL);
354: --
355: -- Having converted the arguments into the plsql record structure we call
390: -- Call conversion function to turn arguments into the l_rec structure.
391: --
392: l_rec := ssp_ern_shd.convert_args (p_earnings_calculations_id,
393: p_object_version_number,
394: hr_api.g_number,
395: hr_api.g_date,
396: p_average_earnings_amount,
397: p_user_entered,
398: p_absence_category, --DFoster 1304683
391: --
392: l_rec := ssp_ern_shd.convert_args (p_earnings_calculations_id,
393: p_object_version_number,
394: hr_api.g_number,
395: hr_api.g_date,
396: p_average_earnings_amount,
397: p_user_entered,
398: p_absence_category, --DFoster 1304683
399: p_payment_periods);