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: ghr_cpl_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: ghr_cpl_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: ghr_cpl_shd.constraint_error
87: -- A check constraint has been violated
88: --
89: ghr_cpl_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: ghr_cpl_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: ghr_cpl_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: ghr_cpl_shd.constraint_error
92: -- Parent integrity has been violated
93: --
94: ghr_cpl_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: ghr_cpl_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: ghr_cpl_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: --
103: Raise;
104: End update_dml;
208: );
209: --
210: exception
211: --
212: when hr_api.cannot_find_prog_unit then
213: --
214: hr_api.cannot_find_prog_unit_error
215: (p_module_name => 'GHR_COMPL_PEOPLE'
216: ,p_hook_type => 'AU');
210: exception
211: --
212: when hr_api.cannot_find_prog_unit then
213: --
214: hr_api.cannot_find_prog_unit_error
215: (p_module_name => 'GHR_COMPL_PEOPLE'
216: ,p_hook_type => 'AU');
217: --
218: end;
273: -- p_rec plsql record structure
274: -- to see if a system default is being used. If a system default
275: -- is being used then we must set to the 'current' argument value.
276: --
277: If (p_rec.person_id = hr_api.g_number) then
278: p_rec.person_id :=
279: ghr_cpl_shd.g_old_rec.person_id;
280: End If;
281: If (p_rec.complaint_id = hr_api.g_number) then
277: If (p_rec.person_id = hr_api.g_number) then
278: p_rec.person_id :=
279: ghr_cpl_shd.g_old_rec.person_id;
280: End If;
281: If (p_rec.complaint_id = hr_api.g_number) then
282: p_rec.complaint_id :=
283: ghr_cpl_shd.g_old_rec.complaint_id;
284: End If;
285: If (p_rec.role_code = hr_api.g_varchar2) then
281: If (p_rec.complaint_id = hr_api.g_number) then
282: p_rec.complaint_id :=
283: ghr_cpl_shd.g_old_rec.complaint_id;
284: End If;
285: If (p_rec.role_code = hr_api.g_varchar2) then
286: p_rec.role_code :=
287: ghr_cpl_shd.g_old_rec.role_code;
288: End If;
289: If (p_rec.start_date = hr_api.g_date) then
285: If (p_rec.role_code = hr_api.g_varchar2) then
286: p_rec.role_code :=
287: ghr_cpl_shd.g_old_rec.role_code;
288: End If;
289: If (p_rec.start_date = hr_api.g_date) then
290: p_rec.start_date :=
291: ghr_cpl_shd.g_old_rec.start_date;
292: End If;
293: If (p_rec.end_date = hr_api.g_date) then
289: If (p_rec.start_date = hr_api.g_date) then
290: p_rec.start_date :=
291: ghr_cpl_shd.g_old_rec.start_date;
292: End If;
293: If (p_rec.end_date = hr_api.g_date) then
294: p_rec.end_date :=
295: ghr_cpl_shd.g_old_rec.end_date;
296: End If;
297: --
351: Procedure upd
352: (p_effective_date in date
353: ,p_compl_person_id in number
354: ,p_object_version_number in out nocopy number
355: ,p_person_id in number default hr_api.g_number
356: ,p_complaint_id in number default hr_api.g_number
357: ,p_role_code in varchar2 default hr_api.g_varchar2
358: ,p_start_date in date default hr_api.g_date
359: ,p_end_date in date default hr_api.g_date
352: (p_effective_date in date
353: ,p_compl_person_id in number
354: ,p_object_version_number in out nocopy number
355: ,p_person_id in number default hr_api.g_number
356: ,p_complaint_id in number default hr_api.g_number
357: ,p_role_code in varchar2 default hr_api.g_varchar2
358: ,p_start_date in date default hr_api.g_date
359: ,p_end_date in date default hr_api.g_date
360: ) is
353: ,p_compl_person_id in number
354: ,p_object_version_number in out nocopy number
355: ,p_person_id in number default hr_api.g_number
356: ,p_complaint_id in number default hr_api.g_number
357: ,p_role_code in varchar2 default hr_api.g_varchar2
358: ,p_start_date in date default hr_api.g_date
359: ,p_end_date in date default hr_api.g_date
360: ) is
361: --
354: ,p_object_version_number in out nocopy number
355: ,p_person_id in number default hr_api.g_number
356: ,p_complaint_id in number default hr_api.g_number
357: ,p_role_code in varchar2 default hr_api.g_varchar2
358: ,p_start_date in date default hr_api.g_date
359: ,p_end_date in date default hr_api.g_date
360: ) is
361: --
362: l_rec ghr_cpl_shd.g_rec_type;
355: ,p_person_id in number default hr_api.g_number
356: ,p_complaint_id in number default hr_api.g_number
357: ,p_role_code in varchar2 default hr_api.g_varchar2
358: ,p_start_date in date default hr_api.g_date
359: ,p_end_date in date default hr_api.g_date
360: ) is
361: --
362: l_rec ghr_cpl_shd.g_rec_type;
363: l_proc varchar2(72) := g_package||'upd';