APPS.GHR_CAD_UPD dependencies on HR_API

Line 90: When hr_api.check_integrity_violated Then

86: --
87: hr_utility.set_location(' Leaving:'||l_proc, 10);
88: --
89: Exception
90: When hr_api.check_integrity_violated Then
91: -- A check constraint has been violated
92: --
93: ghr_cad_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));

Line 94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));

90: When hr_api.check_integrity_violated Then
91: -- A check constraint has been violated
92: --
93: ghr_cad_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.parent_integrity_violated Then
96: -- Parent integrity has been violated
97: --
98: ghr_cad_shd.constraint_error

Line 95: When hr_api.parent_integrity_violated Then

91: -- A check constraint has been violated
92: --
93: ghr_cad_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.parent_integrity_violated Then
96: -- Parent integrity has been violated
97: --
98: ghr_cad_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));

Line 99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));

95: When hr_api.parent_integrity_violated Then
96: -- Parent integrity has been violated
97: --
98: ghr_cad_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.unique_integrity_violated Then
101: -- Unique integrity has been violated
102: --
103: ghr_cad_shd.constraint_error

Line 100: When hr_api.unique_integrity_violated Then

96: -- Parent integrity has been violated
97: --
98: ghr_cad_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.unique_integrity_violated Then
101: -- Unique integrity has been violated
102: --
103: ghr_cad_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));

Line 104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));

100: When hr_api.unique_integrity_violated Then
101: -- Unique integrity has been violated
102: --
103: ghr_cad_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When Others Then
106: --
107: Raise;
108: End update_dml;

Line 225: when hr_api.cannot_find_prog_unit then

221: );
222: --
223: exception
224: --
225: when hr_api.cannot_find_prog_unit then
226: --
227: hr_api.cannot_find_prog_unit_error
228: (p_module_name => 'GHR_COMPL_ADRS'
229: ,p_hook_type => 'AU');

Line 227: hr_api.cannot_find_prog_unit_error

223: exception
224: --
225: when hr_api.cannot_find_prog_unit then
226: --
227: hr_api.cannot_find_prog_unit_error
228: (p_module_name => 'GHR_COMPL_ADRS'
229: ,p_hook_type => 'AU');
230: --
231: end;

Line 291: If (p_rec.complaint_id = hr_api.g_number) then

287: -- p_rec plsql record structure
288: -- to see if a system default is being used. If a system default
289: -- is being used then we must set to the 'current' argument value.
290: --
291: If (p_rec.complaint_id = hr_api.g_number) then
292: p_rec.complaint_id :=
293: ghr_cad_shd.g_old_rec.complaint_id;
294: End If;
295: If (p_rec.stage = hr_api.g_varchar2) then

Line 295: If (p_rec.stage = hr_api.g_varchar2) then

291: If (p_rec.complaint_id = hr_api.g_number) then
292: p_rec.complaint_id :=
293: ghr_cad_shd.g_old_rec.complaint_id;
294: End If;
295: If (p_rec.stage = hr_api.g_varchar2) then
296: p_rec.stage :=
297: ghr_cad_shd.g_old_rec.stage;
298: End If;
299: If (p_rec.start_date = hr_api.g_date) then

Line 299: If (p_rec.start_date = hr_api.g_date) then

295: If (p_rec.stage = hr_api.g_varchar2) then
296: p_rec.stage :=
297: ghr_cad_shd.g_old_rec.stage;
298: End If;
299: If (p_rec.start_date = hr_api.g_date) then
300: p_rec.start_date :=
301: ghr_cad_shd.g_old_rec.start_date;
302: End If;
303: If (p_rec.end_date = hr_api.g_date) then

Line 303: If (p_rec.end_date = hr_api.g_date) then

299: If (p_rec.start_date = hr_api.g_date) then
300: p_rec.start_date :=
301: ghr_cad_shd.g_old_rec.start_date;
302: End If;
303: If (p_rec.end_date = hr_api.g_date) then
304: p_rec.end_date :=
305: ghr_cad_shd.g_old_rec.end_date;
306: End If;
307: If (p_rec.adr_resource = hr_api.g_varchar2) then

Line 307: If (p_rec.adr_resource = hr_api.g_varchar2) then

303: If (p_rec.end_date = hr_api.g_date) then
304: p_rec.end_date :=
305: ghr_cad_shd.g_old_rec.end_date;
306: End If;
307: If (p_rec.adr_resource = hr_api.g_varchar2) then
308: p_rec.adr_resource :=
309: ghr_cad_shd.g_old_rec.adr_resource;
310: End If;
311: If (p_rec.technique = hr_api.g_varchar2) then

Line 311: If (p_rec.technique = hr_api.g_varchar2) then

307: If (p_rec.adr_resource = hr_api.g_varchar2) then
308: p_rec.adr_resource :=
309: ghr_cad_shd.g_old_rec.adr_resource;
310: End If;
311: If (p_rec.technique = hr_api.g_varchar2) then
312: p_rec.technique :=
313: ghr_cad_shd.g_old_rec.technique;
314: End If;
315: If (p_rec.outcome = hr_api.g_varchar2) then

Line 315: If (p_rec.outcome = hr_api.g_varchar2) then

311: If (p_rec.technique = hr_api.g_varchar2) then
312: p_rec.technique :=
313: ghr_cad_shd.g_old_rec.technique;
314: End If;
315: If (p_rec.outcome = hr_api.g_varchar2) then
316: p_rec.outcome :=
317: ghr_cad_shd.g_old_rec.outcome;
318: End If;
319: If (p_rec.adr_offered = hr_api.g_varchar2) then

Line 319: If (p_rec.adr_offered = hr_api.g_varchar2) then

315: If (p_rec.outcome = hr_api.g_varchar2) then
316: p_rec.outcome :=
317: ghr_cad_shd.g_old_rec.outcome;
318: End If;
319: If (p_rec.adr_offered = hr_api.g_varchar2) then
320: p_rec.adr_offered :=
321: ghr_cad_shd.g_old_rec.adr_offered;
322: End If;
323: If (p_rec.date_accepted = hr_api.g_date) then

Line 323: If (p_rec.date_accepted = hr_api.g_date) then

319: If (p_rec.adr_offered = hr_api.g_varchar2) then
320: p_rec.adr_offered :=
321: ghr_cad_shd.g_old_rec.adr_offered;
322: End If;
323: If (p_rec.date_accepted = hr_api.g_date) then
324: p_rec.date_accepted :=
325: ghr_cad_shd.g_old_rec.date_accepted;
326: End If;
327: --