85: --
86: hr_utility.set_location(' Leaving:'||l_proc, 10);
87: --
88: Exception
89: When hr_api.check_integrity_violated Then
90: -- A check constraint has been violated
91: per_pse_shd.g_api_dml := false; -- Unset the api dml status
92: per_pse_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
89: When hr_api.check_integrity_violated Then
90: -- A check constraint has been violated
91: per_pse_shd.g_api_dml := false; -- Unset the api dml status
92: per_pse_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: per_pse_shd.g_api_dml := false; -- Unset the api dml status
97: per_pse_shd.constraint_error
90: -- A check constraint has been violated
91: per_pse_shd.g_api_dml := false; -- Unset the api dml status
92: per_pse_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: per_pse_shd.g_api_dml := false; -- Unset the api dml status
97: per_pse_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.parent_integrity_violated Then
95: -- Parent integrity has been violated
96: per_pse_shd.g_api_dml := false; -- Unset the api dml status
97: per_pse_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: per_pse_shd.g_api_dml := false; -- Unset the api dml status
102: per_pse_shd.constraint_error
95: -- Parent integrity has been violated
96: per_pse_shd.g_api_dml := false; -- Unset the api dml status
97: per_pse_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: per_pse_shd.g_api_dml := false; -- Unset the api dml status
102: per_pse_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.unique_integrity_violated Then
100: -- Unique integrity has been violated
101: per_pse_shd.g_api_dml := false; -- Unset the api dml status
102: per_pse_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When Others Then
105: per_pse_shd.g_api_dml := false; -- Unset the api dml status
106: Raise;
107: End update_dml;
234: );
235: --
236: exception
237: --
238: when hr_api.cannot_find_prog_unit then
239: --
240: hr_api.cannot_find_prog_unit_error
241: (p_module_name => 'PER_POS_STRUCTURE_ELEMENTS'
242: ,p_hook_type => 'AU');
236: exception
237: --
238: when hr_api.cannot_find_prog_unit then
239: --
240: hr_api.cannot_find_prog_unit_error
241: (p_module_name => 'PER_POS_STRUCTURE_ELEMENTS'
242: ,p_hook_type => 'AU');
243: --
244: end;
299: -- p_rec plsql record structure
300: -- to see if a system default is being used. If a system default
301: -- is being used then we must set to the 'current' argument value.
302: --
303: If (p_rec.business_group_id = hr_api.g_number) then
304: p_rec.business_group_id :=
305: per_pse_shd.g_old_rec.business_group_id;
306: End If;
307: If (p_rec.pos_structure_version_id = hr_api.g_number) then
303: If (p_rec.business_group_id = hr_api.g_number) then
304: p_rec.business_group_id :=
305: per_pse_shd.g_old_rec.business_group_id;
306: End If;
307: If (p_rec.pos_structure_version_id = hr_api.g_number) then
308: p_rec.pos_structure_version_id :=
309: per_pse_shd.g_old_rec.pos_structure_version_id;
310: End If;
311: If (p_rec.subordinate_position_id = hr_api.g_number) then
307: If (p_rec.pos_structure_version_id = hr_api.g_number) then
308: p_rec.pos_structure_version_id :=
309: per_pse_shd.g_old_rec.pos_structure_version_id;
310: End If;
311: If (p_rec.subordinate_position_id = hr_api.g_number) then
312: p_rec.subordinate_position_id :=
313: per_pse_shd.g_old_rec.subordinate_position_id;
314: End If;
315: If (p_rec.parent_position_id = hr_api.g_number) then
311: If (p_rec.subordinate_position_id = hr_api.g_number) then
312: p_rec.subordinate_position_id :=
313: per_pse_shd.g_old_rec.subordinate_position_id;
314: End If;
315: If (p_rec.parent_position_id = hr_api.g_number) then
316: p_rec.parent_position_id :=
317: per_pse_shd.g_old_rec.parent_position_id;
318: End If;
319: If (p_rec.request_id = hr_api.g_number) then
315: If (p_rec.parent_position_id = hr_api.g_number) then
316: p_rec.parent_position_id :=
317: per_pse_shd.g_old_rec.parent_position_id;
318: End If;
319: If (p_rec.request_id = hr_api.g_number) then
320: p_rec.request_id :=
321: per_pse_shd.g_old_rec.request_id;
322: End If;
323: If (p_rec.program_application_id = hr_api.g_number) then
319: If (p_rec.request_id = hr_api.g_number) then
320: p_rec.request_id :=
321: per_pse_shd.g_old_rec.request_id;
322: End If;
323: If (p_rec.program_application_id = hr_api.g_number) then
324: p_rec.program_application_id :=
325: per_pse_shd.g_old_rec.program_application_id;
326: End If;
327: If (p_rec.program_id = hr_api.g_number) then
323: If (p_rec.program_application_id = hr_api.g_number) then
324: p_rec.program_application_id :=
325: per_pse_shd.g_old_rec.program_application_id;
326: End If;
327: If (p_rec.program_id = hr_api.g_number) then
328: p_rec.program_id :=
329: per_pse_shd.g_old_rec.program_id;
330: End If;
331: If (p_rec.program_update_date = hr_api.g_date) then
327: If (p_rec.program_id = hr_api.g_number) then
328: p_rec.program_id :=
329: per_pse_shd.g_old_rec.program_id;
330: End If;
331: If (p_rec.program_update_date = hr_api.g_date) then
332: p_rec.program_update_date :=
333: per_pse_shd.g_old_rec.program_update_date;
334: End If;
335: --
422: Procedure upd
423: (p_effective_date in date
424: ,p_pos_structure_element_id in number
425: ,p_object_version_number in out nocopy number
426: ,p_business_group_id in number default hr_api.g_number
427: ,p_pos_structure_version_id in number default hr_api.g_number
428: ,p_subordinate_position_id in number default hr_api.g_number
429: ,p_parent_position_id in number default hr_api.g_number
430: ,p_request_id in number default hr_api.g_number
423: (p_effective_date in date
424: ,p_pos_structure_element_id in number
425: ,p_object_version_number in out nocopy number
426: ,p_business_group_id in number default hr_api.g_number
427: ,p_pos_structure_version_id in number default hr_api.g_number
428: ,p_subordinate_position_id in number default hr_api.g_number
429: ,p_parent_position_id in number default hr_api.g_number
430: ,p_request_id in number default hr_api.g_number
431: ,p_program_application_id in number default hr_api.g_number
424: ,p_pos_structure_element_id in number
425: ,p_object_version_number in out nocopy number
426: ,p_business_group_id in number default hr_api.g_number
427: ,p_pos_structure_version_id in number default hr_api.g_number
428: ,p_subordinate_position_id in number default hr_api.g_number
429: ,p_parent_position_id in number default hr_api.g_number
430: ,p_request_id in number default hr_api.g_number
431: ,p_program_application_id in number default hr_api.g_number
432: ,p_program_id in number default hr_api.g_number
425: ,p_object_version_number in out nocopy number
426: ,p_business_group_id in number default hr_api.g_number
427: ,p_pos_structure_version_id in number default hr_api.g_number
428: ,p_subordinate_position_id in number default hr_api.g_number
429: ,p_parent_position_id in number default hr_api.g_number
430: ,p_request_id in number default hr_api.g_number
431: ,p_program_application_id in number default hr_api.g_number
432: ,p_program_id in number default hr_api.g_number
433: ,p_program_update_date in date default hr_api.g_date
426: ,p_business_group_id in number default hr_api.g_number
427: ,p_pos_structure_version_id in number default hr_api.g_number
428: ,p_subordinate_position_id in number default hr_api.g_number
429: ,p_parent_position_id in number default hr_api.g_number
430: ,p_request_id in number default hr_api.g_number
431: ,p_program_application_id in number default hr_api.g_number
432: ,p_program_id in number default hr_api.g_number
433: ,p_program_update_date in date default hr_api.g_date
434: ) is
427: ,p_pos_structure_version_id in number default hr_api.g_number
428: ,p_subordinate_position_id in number default hr_api.g_number
429: ,p_parent_position_id in number default hr_api.g_number
430: ,p_request_id in number default hr_api.g_number
431: ,p_program_application_id in number default hr_api.g_number
432: ,p_program_id in number default hr_api.g_number
433: ,p_program_update_date in date default hr_api.g_date
434: ) is
435: --
428: ,p_subordinate_position_id in number default hr_api.g_number
429: ,p_parent_position_id in number default hr_api.g_number
430: ,p_request_id in number default hr_api.g_number
431: ,p_program_application_id in number default hr_api.g_number
432: ,p_program_id in number default hr_api.g_number
433: ,p_program_update_date in date default hr_api.g_date
434: ) is
435: --
436: l_rec per_pse_shd.g_rec_type;
429: ,p_parent_position_id in number default hr_api.g_number
430: ,p_request_id in number default hr_api.g_number
431: ,p_program_application_id in number default hr_api.g_number
432: ,p_program_id in number default hr_api.g_number
433: ,p_program_update_date in date default hr_api.g_date
434: ) is
435: --
436: l_rec per_pse_shd.g_rec_type;
437: l_proc varchar2(72) := g_package||'upd';