79: --
80: hr_utility.set_location(' Leaving:'||l_proc, 10);
81: --
82: Exception
83: When hr_api.check_integrity_violated Then
84: -- A check constraint has been violated
85: --
86: per_env_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.check_integrity_violated Then
84: -- A check constraint has been violated
85: --
86: per_env_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When hr_api.parent_integrity_violated Then
89: -- Parent integrity has been violated
90: --
91: per_env_shd.constraint_error
84: -- A check constraint has been violated
85: --
86: per_env_shd.constraint_error
87: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When hr_api.parent_integrity_violated Then
89: -- Parent integrity has been violated
90: --
91: per_env_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
88: When hr_api.parent_integrity_violated Then
89: -- Parent integrity has been violated
90: --
91: per_env_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.unique_integrity_violated Then
94: -- Unique integrity has been violated
95: --
96: per_env_shd.constraint_error
89: -- Parent integrity has been violated
90: --
91: per_env_shd.constraint_error
92: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.unique_integrity_violated Then
94: -- Unique integrity has been violated
95: --
96: per_env_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
93: When hr_api.unique_integrity_violated Then
94: -- Unique integrity has been violated
95: --
96: per_env_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When Others Then
99: --
100: Raise;
101: 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 => 'PER_CAL_ENTRY_VALUES'
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 => 'PER_CAL_ENTRY_VALUES'
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.calendar_entry_id = hr_api.g_number) then
278: p_rec.calendar_entry_id :=
279: per_env_shd.g_old_rec.calendar_entry_id;
280: End If;
281: If (p_rec.hierarchy_node_id = hr_api.g_number) then
277: If (p_rec.calendar_entry_id = hr_api.g_number) then
278: p_rec.calendar_entry_id :=
279: per_env_shd.g_old_rec.calendar_entry_id;
280: End If;
281: If (p_rec.hierarchy_node_id = hr_api.g_number) then
282: p_rec.hierarchy_node_id :=
283: per_env_shd.g_old_rec.hierarchy_node_id;
284: End If;
285: If (p_rec.value = hr_api.g_varchar2) then
281: If (p_rec.hierarchy_node_id = hr_api.g_number) then
282: p_rec.hierarchy_node_id :=
283: per_env_shd.g_old_rec.hierarchy_node_id;
284: End If;
285: If (p_rec.value = hr_api.g_varchar2) then
286: p_rec.value :=
287: per_env_shd.g_old_rec.value;
288: End If;
289: If (p_rec.org_structure_element_id = hr_api.g_number) then
285: If (p_rec.value = hr_api.g_varchar2) then
286: p_rec.value :=
287: per_env_shd.g_old_rec.value;
288: End If;
289: If (p_rec.org_structure_element_id = hr_api.g_number) then
290: p_rec.org_structure_element_id :=
291: per_env_shd.g_old_rec.org_structure_element_id;
292: End If;
293: If (p_rec.organization_id = hr_api.g_number) then
289: If (p_rec.org_structure_element_id = hr_api.g_number) then
290: p_rec.org_structure_element_id :=
291: per_env_shd.g_old_rec.org_structure_element_id;
292: End If;
293: If (p_rec.organization_id = hr_api.g_number) then
294: p_rec.organization_id :=
295: per_env_shd.g_old_rec.organization_id;
296: End If;
297: If (p_rec.override_name = hr_api.g_varchar2) then
293: If (p_rec.organization_id = hr_api.g_number) then
294: p_rec.organization_id :=
295: per_env_shd.g_old_rec.organization_id;
296: End If;
297: If (p_rec.override_name = hr_api.g_varchar2) then
298: p_rec.override_name :=
299: per_env_shd.g_old_rec.override_name;
300: End If;
301: If (p_rec.override_type = hr_api.g_varchar2) then
297: If (p_rec.override_name = hr_api.g_varchar2) then
298: p_rec.override_name :=
299: per_env_shd.g_old_rec.override_name;
300: End If;
301: If (p_rec.override_type = hr_api.g_varchar2) then
302: p_rec.override_type :=
303: per_env_shd.g_old_rec.override_type;
304: End If;
305: If (p_rec.parent_entry_value_id = hr_api.g_number) then
301: If (p_rec.override_type = hr_api.g_varchar2) then
302: p_rec.override_type :=
303: per_env_shd.g_old_rec.override_type;
304: End If;
305: If (p_rec.parent_entry_value_id = hr_api.g_number) then
306: p_rec.parent_entry_value_id :=
307: per_env_shd.g_old_rec.parent_entry_value_id;
308: End If;
309: If (p_rec.usage_flag = hr_api.g_varchar2) then
305: If (p_rec.parent_entry_value_id = hr_api.g_number) then
306: p_rec.parent_entry_value_id :=
307: per_env_shd.g_old_rec.parent_entry_value_id;
308: End If;
309: If (p_rec.usage_flag = hr_api.g_varchar2) then
310: p_rec.usage_flag :=
311: per_env_shd.g_old_rec.usage_flag;
312: End If;
313: --
373: Procedure upd
374: (p_effective_date in date
375: ,p_cal_entry_value_id in number
376: ,p_object_version_number in out nocopy number
377: ,p_override_name in varchar2 default hr_api.g_varchar2
378: ,p_override_type in varchar2 default hr_api.g_varchar2
379: ,p_parent_entry_value_id in number default hr_api.g_number
380: ,p_usage_flag in varchar2 default hr_api.g_varchar2
381: ) is
374: (p_effective_date in date
375: ,p_cal_entry_value_id in number
376: ,p_object_version_number in out nocopy number
377: ,p_override_name in varchar2 default hr_api.g_varchar2
378: ,p_override_type in varchar2 default hr_api.g_varchar2
379: ,p_parent_entry_value_id in number default hr_api.g_number
380: ,p_usage_flag in varchar2 default hr_api.g_varchar2
381: ) is
382: --
375: ,p_cal_entry_value_id in number
376: ,p_object_version_number in out nocopy number
377: ,p_override_name in varchar2 default hr_api.g_varchar2
378: ,p_override_type in varchar2 default hr_api.g_varchar2
379: ,p_parent_entry_value_id in number default hr_api.g_number
380: ,p_usage_flag in varchar2 default hr_api.g_varchar2
381: ) is
382: --
383: l_rec per_env_shd.g_rec_type;
376: ,p_object_version_number in out nocopy number
377: ,p_override_name in varchar2 default hr_api.g_varchar2
378: ,p_override_type in varchar2 default hr_api.g_varchar2
379: ,p_parent_entry_value_id in number default hr_api.g_number
380: ,p_usage_flag in varchar2 default hr_api.g_varchar2
381: ) is
382: --
383: l_rec per_env_shd.g_rec_type;
384: l_proc varchar2(72) := g_package||'upd';
391: --
392: l_rec :=
393: per_env_shd.convert_args
394: (p_cal_entry_value_id
395: ,hr_api.g_number
396: ,hr_api.g_number
397: ,hr_api.g_varchar2
398: ,hr_api.g_number
399: ,hr_api.g_number
392: l_rec :=
393: per_env_shd.convert_args
394: (p_cal_entry_value_id
395: ,hr_api.g_number
396: ,hr_api.g_number
397: ,hr_api.g_varchar2
398: ,hr_api.g_number
399: ,hr_api.g_number
400: ,p_override_name
393: per_env_shd.convert_args
394: (p_cal_entry_value_id
395: ,hr_api.g_number
396: ,hr_api.g_number
397: ,hr_api.g_varchar2
398: ,hr_api.g_number
399: ,hr_api.g_number
400: ,p_override_name
401: ,p_override_type
394: (p_cal_entry_value_id
395: ,hr_api.g_number
396: ,hr_api.g_number
397: ,hr_api.g_varchar2
398: ,hr_api.g_number
399: ,hr_api.g_number
400: ,p_override_name
401: ,p_override_type
402: ,p_parent_entry_value_id
395: ,hr_api.g_number
396: ,hr_api.g_number
397: ,hr_api.g_varchar2
398: ,hr_api.g_number
399: ,hr_api.g_number
400: ,p_override_name
401: ,p_override_type
402: ,p_parent_entry_value_id
403: ,hr_api.g_varchar2
399: ,hr_api.g_number
400: ,p_override_name
401: ,p_override_type
402: ,p_parent_entry_value_id
403: ,hr_api.g_varchar2
404: ,p_object_version_number
405: ,p_usage_flag
406: );
407: --