92: --
93: hr_utility.set_location(' Leaving:'||l_proc, 10);
94: --
95: Exception
96: When hr_api.check_integrity_violated Then
97: -- A check constraint has been violated
98: pay_amp_shd.g_api_dml := false; -- Unset the api dml status
99: pay_amp_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.check_integrity_violated Then
97: -- A check constraint has been violated
98: pay_amp_shd.g_api_dml := false; -- Unset the api dml status
99: pay_amp_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When hr_api.parent_integrity_violated Then
102: -- Parent integrity has been violated
103: pay_amp_shd.g_api_dml := false; -- Unset the api dml status
104: pay_amp_shd.constraint_error
97: -- A check constraint has been violated
98: pay_amp_shd.g_api_dml := false; -- Unset the api dml status
99: pay_amp_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When hr_api.parent_integrity_violated Then
102: -- Parent integrity has been violated
103: pay_amp_shd.g_api_dml := false; -- Unset the api dml status
104: pay_amp_shd.constraint_error
105: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When hr_api.parent_integrity_violated Then
102: -- Parent integrity has been violated
103: pay_amp_shd.g_api_dml := false; -- Unset the api dml status
104: pay_amp_shd.constraint_error
105: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
106: When hr_api.unique_integrity_violated Then
107: -- Unique integrity has been violated
108: pay_amp_shd.g_api_dml := false; -- Unset the api dml status
109: pay_amp_shd.constraint_error
102: -- Parent integrity has been violated
103: pay_amp_shd.g_api_dml := false; -- Unset the api dml status
104: pay_amp_shd.constraint_error
105: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
106: When hr_api.unique_integrity_violated Then
107: -- Unique integrity has been violated
108: pay_amp_shd.g_api_dml := false; -- Unset the api dml status
109: pay_amp_shd.constraint_error
110: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
106: When hr_api.unique_integrity_violated Then
107: -- Unique integrity has been violated
108: pay_amp_shd.g_api_dml := false; -- Unset the api dml status
109: pay_amp_shd.constraint_error
110: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
111: When Others Then
112: pay_amp_shd.g_api_dml := false; -- Unset the api dml status
113: Raise;
114: End update_dml;
258: -- p_rec plsql record structure
259: -- to see if a system default is being used. If a system default
260: -- is being used then we must set to the 'current' argument value.
261: --
262: If (p_rec.module_id = hr_api.g_number) then
263: p_rec.module_id :=
264: pay_amp_shd.g_old_rec.module_id;
265: End If;
266: If (p_rec.internal_name = hr_api.g_varchar2) then
262: If (p_rec.module_id = hr_api.g_number) then
263: p_rec.module_id :=
264: pay_amp_shd.g_old_rec.module_id;
265: End If;
266: If (p_rec.internal_name = hr_api.g_varchar2) then
267: p_rec.internal_name :=
268: pay_amp_shd.g_old_rec.internal_name;
269: End If;
270: If (p_rec.data_type = hr_api.g_varchar2) then
266: If (p_rec.internal_name = hr_api.g_varchar2) then
267: p_rec.internal_name :=
268: pay_amp_shd.g_old_rec.internal_name;
269: End If;
270: If (p_rec.data_type = hr_api.g_varchar2) then
271: p_rec.data_type :=
272: pay_amp_shd.g_old_rec.data_type;
273: End If;
274: If (p_rec.input_flag = hr_api.g_varchar2) then
270: If (p_rec.data_type = hr_api.g_varchar2) then
271: p_rec.data_type :=
272: pay_amp_shd.g_old_rec.data_type;
273: End If;
274: If (p_rec.input_flag = hr_api.g_varchar2) then
275: p_rec.input_flag :=
276: pay_amp_shd.g_old_rec.input_flag;
277: End If;
278: If (p_rec.context_flag = hr_api.g_varchar2) then
274: If (p_rec.input_flag = hr_api.g_varchar2) then
275: p_rec.input_flag :=
276: pay_amp_shd.g_old_rec.input_flag;
277: End If;
278: If (p_rec.context_flag = hr_api.g_varchar2) then
279: p_rec.context_flag :=
280: pay_amp_shd.g_old_rec.context_flag;
281: End If;
282: If (p_rec.output_flag = hr_api.g_varchar2) then
278: If (p_rec.context_flag = hr_api.g_varchar2) then
279: p_rec.context_flag :=
280: pay_amp_shd.g_old_rec.context_flag;
281: End If;
282: If (p_rec.output_flag = hr_api.g_varchar2) then
283: p_rec.output_flag :=
284: pay_amp_shd.g_old_rec.output_flag;
285: End If;
286: If (p_rec.result_flag = hr_api.g_varchar2) then
282: If (p_rec.output_flag = hr_api.g_varchar2) then
283: p_rec.output_flag :=
284: pay_amp_shd.g_old_rec.output_flag;
285: End If;
286: If (p_rec.result_flag = hr_api.g_varchar2) then
287: p_rec.result_flag :=
288: pay_amp_shd.g_old_rec.result_flag;
289: End If;
290: If (p_rec.error_message_flag = hr_api.g_varchar2) then
286: If (p_rec.result_flag = hr_api.g_varchar2) then
287: p_rec.result_flag :=
288: pay_amp_shd.g_old_rec.result_flag;
289: End If;
290: If (p_rec.error_message_flag = hr_api.g_varchar2) then
291: p_rec.error_message_flag :=
292: pay_amp_shd.g_old_rec.error_message_flag;
293: End If;
294: If (p_rec.function_return_flag = hr_api.g_varchar2) then
290: If (p_rec.error_message_flag = hr_api.g_varchar2) then
291: p_rec.error_message_flag :=
292: pay_amp_shd.g_old_rec.error_message_flag;
293: End If;
294: If (p_rec.function_return_flag = hr_api.g_varchar2) then
295: p_rec.function_return_flag :=
296: pay_amp_shd.g_old_rec.function_return_flag;
297: End If;
298: If (p_rec.enabled_flag = hr_api.g_varchar2) then
294: If (p_rec.function_return_flag = hr_api.g_varchar2) then
295: p_rec.function_return_flag :=
296: pay_amp_shd.g_old_rec.function_return_flag;
297: End If;
298: If (p_rec.enabled_flag = hr_api.g_varchar2) then
299: p_rec.enabled_flag :=
300: pay_amp_shd.g_old_rec.enabled_flag;
301: End If;
302: If (p_rec.external_name = hr_api.g_varchar2) then
298: If (p_rec.enabled_flag = hr_api.g_varchar2) then
299: p_rec.enabled_flag :=
300: pay_amp_shd.g_old_rec.enabled_flag;
301: End If;
302: If (p_rec.external_name = hr_api.g_varchar2) then
303: p_rec.external_name :=
304: pay_amp_shd.g_old_rec.external_name;
305: End If;
306: If (p_rec.database_item_name = hr_api.g_varchar2) then
302: If (p_rec.external_name = hr_api.g_varchar2) then
303: p_rec.external_name :=
304: pay_amp_shd.g_old_rec.external_name;
305: End If;
306: If (p_rec.database_item_name = hr_api.g_varchar2) then
307: p_rec.database_item_name :=
308: pay_amp_shd.g_old_rec.database_item_name;
309: End If;
310: If (p_rec.constant_value = hr_api.g_varchar2) then
306: If (p_rec.database_item_name = hr_api.g_varchar2) then
307: p_rec.database_item_name :=
308: pay_amp_shd.g_old_rec.database_item_name;
309: End If;
310: If (p_rec.constant_value = hr_api.g_varchar2) then
311: p_rec.constant_value :=
312: pay_amp_shd.g_old_rec.constant_value;
313: End If;
314: --