74: --
75: hr_utility.set_location(' Leaving:'||l_proc, 10);
76: --
77: Exception
78: When hr_api.check_integrity_violated Then
79: -- A check constraint has been violated
80: hr_qsa_shd.constraint_error
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.parent_integrity_violated Then
77: Exception
78: When hr_api.check_integrity_violated Then
79: -- A check constraint has been violated
80: hr_qsa_shd.constraint_error
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.parent_integrity_violated Then
83: -- Parent integrity has been violated
84: hr_qsa_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
78: When hr_api.check_integrity_violated Then
79: -- A check constraint has been violated
80: hr_qsa_shd.constraint_error
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.parent_integrity_violated Then
83: -- Parent integrity has been violated
84: hr_qsa_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When hr_api.unique_integrity_violated Then
81: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.parent_integrity_violated Then
83: -- Parent integrity has been violated
84: hr_qsa_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When hr_api.unique_integrity_violated Then
87: -- Unique integrity has been violated
88: hr_qsa_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
82: When hr_api.parent_integrity_violated Then
83: -- Parent integrity has been violated
84: hr_qsa_shd.constraint_error
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When hr_api.unique_integrity_violated Then
87: -- Unique integrity has been violated
88: hr_qsa_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When Others Then
85: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When hr_api.unique_integrity_violated Then
87: -- Unique integrity has been violated
88: hr_qsa_shd.constraint_error
89: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When Others Then
91: Raise;
92: End update_dml;
93: --
231: -- p_rec plsql record structure
232: -- to see if a system default is being used. If a system default
233: -- is being used then we must set to the 'current' argument value.
234: --
235: If (p_rec.questionnaire_template_id = hr_api.g_number) then
236: p_rec.questionnaire_template_id :=
237: hr_qsa_shd.g_old_rec.questionnaire_template_id;
238: End If;
239: If (p_rec.type = hr_api.g_varchar2) then
235: If (p_rec.questionnaire_template_id = hr_api.g_number) then
236: p_rec.questionnaire_template_id :=
237: hr_qsa_shd.g_old_rec.questionnaire_template_id;
238: End If;
239: If (p_rec.type = hr_api.g_varchar2) then
240: p_rec.type :=
241: hr_qsa_shd.g_old_rec.type;
242: End If;
243: If (p_rec.type_object_id = hr_api.g_number) then
239: If (p_rec.type = hr_api.g_varchar2) then
240: p_rec.type :=
241: hr_qsa_shd.g_old_rec.type;
242: End If;
243: If (p_rec.type_object_id = hr_api.g_number) then
244: p_rec.type_object_id :=
245: hr_qsa_shd.g_old_rec.type_object_id;
246: End If;
247: If (p_rec.business_group_id = hr_api.g_number) then
243: If (p_rec.type_object_id = hr_api.g_number) then
244: p_rec.type_object_id :=
245: hr_qsa_shd.g_old_rec.type_object_id;
246: End If;
247: If (p_rec.business_group_id = hr_api.g_number) then
248: p_rec.business_group_id :=
249: hr_qsa_shd.g_old_rec.business_group_id;
250: End If;
251: --
301: -- ----------------------------------------------------------------------------
302: Procedure upd
303: (
304: p_questionnaire_answer_id in number,
305: p_questionnaire_template_id in number default hr_api.g_number,
306: p_type in varchar2 default hr_api.g_varchar2,
307: p_type_object_id in number default hr_api.g_number,
308: p_business_group_id in number default hr_api.g_number,
309: p_effective_date in date
302: Procedure upd
303: (
304: p_questionnaire_answer_id in number,
305: p_questionnaire_template_id in number default hr_api.g_number,
306: p_type in varchar2 default hr_api.g_varchar2,
307: p_type_object_id in number default hr_api.g_number,
308: p_business_group_id in number default hr_api.g_number,
309: p_effective_date in date
310: ) is
303: (
304: p_questionnaire_answer_id in number,
305: p_questionnaire_template_id in number default hr_api.g_number,
306: p_type in varchar2 default hr_api.g_varchar2,
307: p_type_object_id in number default hr_api.g_number,
308: p_business_group_id in number default hr_api.g_number,
309: p_effective_date in date
310: ) is
311: --
304: p_questionnaire_answer_id in number,
305: p_questionnaire_template_id in number default hr_api.g_number,
306: p_type in varchar2 default hr_api.g_varchar2,
307: p_type_object_id in number default hr_api.g_number,
308: p_business_group_id in number default hr_api.g_number,
309: p_effective_date in date
310: ) is
311: --
312: l_rec hr_qsa_shd.g_rec_type;