221: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
222: --
223: hr_utility.set_location(' Leaving:'||l_proc, 10);
224: Exception
225: When hr_api.check_integrity_violated Then
226: -- A check constraint has been violated
227: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
228: per_ctr_shd.constraint_error
229: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
225: When hr_api.check_integrity_violated Then
226: -- A check constraint has been violated
227: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
228: per_ctr_shd.constraint_error
229: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
230: When hr_api.parent_integrity_violated Then
231: -- Parent integrity has been violated
232: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
233: per_ctr_shd.constraint_error
226: -- A check constraint has been violated
227: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
228: per_ctr_shd.constraint_error
229: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
230: When hr_api.parent_integrity_violated Then
231: -- Parent integrity has been violated
232: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
233: per_ctr_shd.constraint_error
234: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
230: When hr_api.parent_integrity_violated Then
231: -- Parent integrity has been violated
232: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
233: per_ctr_shd.constraint_error
234: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
235: When hr_api.unique_integrity_violated Then
236: -- Unique integrity has been violated
237: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
238: per_ctr_shd.constraint_error
231: -- Parent integrity has been violated
232: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
233: per_ctr_shd.constraint_error
234: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
235: When hr_api.unique_integrity_violated Then
236: -- Unique integrity has been violated
237: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
238: per_ctr_shd.constraint_error
239: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
235: When hr_api.unique_integrity_violated Then
236: -- Unique integrity has been violated
237: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
238: per_ctr_shd.constraint_error
239: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
240: When Others Then
241: per_ctr_shd.g_api_dml := false; -- Unset the api dml status
242: Raise;
243: End insert_dml;
448: ,p_object_version_number => p_rec.object_version_number
449: ,p_effective_date => p_effective_date
450: );
451: exception
452: when hr_api.cannot_find_prog_unit then
453: hr_api.cannot_find_prog_unit_error
454: (p_module_name => 'PER_CONTACT_RELATIONSHIPS'
455: ,p_hook_type => 'AI'
456: );
449: ,p_effective_date => p_effective_date
450: );
451: exception
452: when hr_api.cannot_find_prog_unit then
453: hr_api.cannot_find_prog_unit_error
454: (p_module_name => 'PER_CONTACT_RELATIONSHIPS'
455: ,p_hook_type => 'AI'
456: );
457: end;
549: --
550: -- If we are validating then raise the Validate_Enabled exception
551: --
552: If p_validate then
553: Raise HR_Api.Validate_Enabled;
554: End If;
555: --
556: hr_utility.set_location(' Leaving:'||l_proc, 10);
557: Exception
554: End If;
555: --
556: hr_utility.set_location(' Leaving:'||l_proc, 10);
557: Exception
558: When HR_Api.Validate_Enabled Then
559: --
560: -- As the Validate_Enabled exception has been raised
561: -- we must rollback to the savepoint
562: --