66: --
67: hr_utility.set_location(' Leaving:'||l_proc, 10);
68: --
69: Exception
70: When hr_api.child_integrity_violated then
71: -- Child integrity has been violated
72: per_add_shd.g_api_dml := false; -- Unset the api dml status
73: per_add_shd.constraint_error
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
70: When hr_api.child_integrity_violated then
71: -- Child integrity has been violated
72: per_add_shd.g_api_dml := false; -- Unset the api dml status
73: per_add_shd.constraint_error
74: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
75: When Others Then
76: per_add_shd.g_api_dml := false; -- Unset the api dml status
77: Raise;
78: End delete_dml;
265: ,p_object_version_number_o
266: => per_add_shd.g_old_rec.object_version_number
267: );
268: exception
269: when hr_api.cannot_find_prog_unit then
270: hr_api.cannot_find_prog_unit_error
271: (p_module_name => 'PER_ADDRESSES'
272: ,p_hook_type => 'AD'
273: );
266: => per_add_shd.g_old_rec.object_version_number
267: );
268: exception
269: when hr_api.cannot_find_prog_unit then
270: hr_api.cannot_find_prog_unit_error
271: (p_module_name => 'PER_ADDRESSES'
272: ,p_hook_type => 'AD'
273: );
274: end;
331: --
332: -- If we are validating then raise the Validate_Enabled exception
333: --
334: If p_validate then
335: Raise HR_Api.Validate_Enabled;
336: End If;
337: --
338: hr_utility.set_location(' Leaving:'||l_proc, 10);
339: Exception
336: End If;
337: --
338: hr_utility.set_location(' Leaving:'||l_proc, 10);
339: Exception
340: When HR_Api.Validate_Enabled Then
341: --
342: -- As the Validate_Enabled exception has been raised
343: -- we must rollback to the savepoint
344: --