75: --
76: hr_utility.set_location(' Leaving:'||l_proc, 10);
77: --
78: Exception
79: When hr_api.check_integrity_violated Then
80: -- A check constraint has been violated
81: hr_qsn_shd.constraint_error
82: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.parent_integrity_violated Then
78: Exception
79: When hr_api.check_integrity_violated Then
80: -- A check constraint has been violated
81: hr_qsn_shd.constraint_error
82: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.parent_integrity_violated Then
84: -- Parent integrity has been violated
85: hr_qsn_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
79: When hr_api.check_integrity_violated Then
80: -- A check constraint has been violated
81: hr_qsn_shd.constraint_error
82: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.parent_integrity_violated Then
84: -- Parent integrity has been violated
85: hr_qsn_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.unique_integrity_violated Then
82: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.parent_integrity_violated Then
84: -- Parent integrity has been violated
85: hr_qsn_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.unique_integrity_violated Then
88: -- Unique integrity has been violated
89: hr_qsn_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
83: When hr_api.parent_integrity_violated Then
84: -- Parent integrity has been violated
85: hr_qsn_shd.constraint_error
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.unique_integrity_violated Then
88: -- Unique integrity has been violated
89: hr_qsn_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When Others Then
86: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
87: When hr_api.unique_integrity_violated Then
88: -- Unique integrity has been violated
89: hr_qsn_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When Others Then
92: Raise;
93: End update_dml;
94: --
190: => hr_qsn_shd.g_old_rec.object_version_number
191: ,p_effective_date => p_effective_date
192: );
193: exception
194: when hr_api.cannot_find_prog_unit then
195: hr_api.cannot_find_prog_unit_error
196: (p_module_name => 'HR_QUESTIONNAIRES'
197: ,p_hook_type => 'AU'
198: );
191: ,p_effective_date => p_effective_date
192: );
193: exception
194: when hr_api.cannot_find_prog_unit then
195: hr_api.cannot_find_prog_unit_error
196: (p_module_name => 'HR_QUESTIONNAIRES'
197: ,p_hook_type => 'AU'
198: );
199: end;
256: -- p_rec plsql record structure
257: -- to see if a system default is being used. If a system default
258: -- is being used then we must set to the 'current' argument value.
259: --
260: If (p_rec.name = hr_api.g_varchar2) then
261: p_rec.name :=
262: hr_qsn_shd.g_old_rec.name;
263: End If;
264: If (p_rec.text = hr_api.g_varchar2) then
260: If (p_rec.name = hr_api.g_varchar2) then
261: p_rec.name :=
262: hr_qsn_shd.g_old_rec.name;
263: End If;
264: If (p_rec.text = hr_api.g_varchar2) then
265: p_rec.text :=
266: hr_qsn_shd.g_old_rec.text;
267: End If;
268: If (p_rec.available_flag = hr_api.g_varchar2) then
264: If (p_rec.text = hr_api.g_varchar2) then
265: p_rec.text :=
266: hr_qsn_shd.g_old_rec.text;
267: End If;
268: If (p_rec.available_flag = hr_api.g_varchar2) then
269: p_rec.available_flag :=
270: hr_qsn_shd.g_old_rec.available_flag;
271: End If;
272: If (p_rec.business_group_id = hr_api.g_number) then
268: If (p_rec.available_flag = hr_api.g_varchar2) then
269: p_rec.available_flag :=
270: hr_qsn_shd.g_old_rec.available_flag;
271: End If;
272: If (p_rec.business_group_id = hr_api.g_number) then
273: p_rec.business_group_id :=
274: hr_qsn_shd.g_old_rec.business_group_id;
275: End If;
276:
336: Procedure upd
337: (
338: p_questionnaire_template_id in number,
339: p_text in CLOB,
340: p_available_flag in varchar2 default hr_api.g_varchar2,
341: p_business_group_id in number default hr_api.g_number,
342: p_object_version_number in out nocopy number,
343: p_effective_date in date
344: ) is
337: (
338: p_questionnaire_template_id in number,
339: p_text in CLOB,
340: p_available_flag in varchar2 default hr_api.g_varchar2,
341: p_business_group_id in number default hr_api.g_number,
342: p_object_version_number in out nocopy number,
343: p_effective_date in date
344: ) is
345: --
355: l_rec :=
356: hr_qsn_shd.convert_args
357: (
358: p_questionnaire_template_id,
359: hr_api.g_varchar2,
360: p_text,
361: p_available_flag,
362: p_business_group_id,
363: p_object_version_number