80: --
81: hr_utility.set_location(' Leaving:'||l_proc, 10);
82: --
83: Exception
84: When hr_api.check_integrity_violated Then
85: -- A check constraint has been violated
86: --
87: pqp_fxt_shd.constraint_error
88: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
84: When hr_api.check_integrity_violated Then
85: -- A check constraint has been violated
86: --
87: pqp_fxt_shd.constraint_error
88: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
89: When hr_api.parent_integrity_violated Then
90: -- Parent integrity has been violated
91: --
92: pqp_fxt_shd.constraint_error
85: -- A check constraint has been violated
86: --
87: pqp_fxt_shd.constraint_error
88: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
89: When hr_api.parent_integrity_violated Then
90: -- Parent integrity has been violated
91: --
92: pqp_fxt_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
89: When hr_api.parent_integrity_violated Then
90: -- Parent integrity has been violated
91: --
92: pqp_fxt_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.unique_integrity_violated Then
95: -- Unique integrity has been violated
96: --
97: pqp_fxt_shd.constraint_error
90: -- Parent integrity has been violated
91: --
92: pqp_fxt_shd.constraint_error
93: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.unique_integrity_violated Then
95: -- Unique integrity has been violated
96: --
97: pqp_fxt_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
94: When hr_api.unique_integrity_violated Then
95: -- Unique integrity has been violated
96: --
97: pqp_fxt_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When Others Then
100: --
101: Raise;
102: End update_dml;
209: );
210: --
211: exception
212: --
213: when hr_api.cannot_find_prog_unit then
214: --
215: hr_api.cannot_find_prog_unit_error
216: (p_module_name => 'PQP_FLXDU_XML_TAGS'
217: ,p_hook_type => 'AU');
211: exception
212: --
213: when hr_api.cannot_find_prog_unit then
214: --
215: hr_api.cannot_find_prog_unit_error
216: (p_module_name => 'PQP_FLXDU_XML_TAGS'
217: ,p_hook_type => 'AU');
218: --
219: end;
274: -- p_rec plsql record structure
275: -- to see if a system default is being used. If a system default
276: -- is being used then we must set to the 'current' argument value.
277: --
278: If (p_rec.flxdu_column_id = hr_api.g_number) then
279: p_rec.flxdu_column_id :=
280: pqp_fxt_shd.g_old_rec.flxdu_column_id;
281: End If;
282: If (p_rec.flxdu_xml_tag_name = hr_api.g_varchar2) then
278: If (p_rec.flxdu_column_id = hr_api.g_number) then
279: p_rec.flxdu_column_id :=
280: pqp_fxt_shd.g_old_rec.flxdu_column_id;
281: End If;
282: If (p_rec.flxdu_xml_tag_name = hr_api.g_varchar2) then
283: p_rec.flxdu_xml_tag_name :=
284: pqp_fxt_shd.g_old_rec.flxdu_xml_tag_name;
285: End If;
286: If (p_rec.business_group_id = hr_api.g_number) then
282: If (p_rec.flxdu_xml_tag_name = hr_api.g_varchar2) then
283: p_rec.flxdu_xml_tag_name :=
284: pqp_fxt_shd.g_old_rec.flxdu_xml_tag_name;
285: End If;
286: If (p_rec.business_group_id = hr_api.g_number) then
287: p_rec.business_group_id :=
288: pqp_fxt_shd.g_old_rec.business_group_id;
289: End If;
290: --
346: -- ----------------------------------------------------------------------------
347: Procedure upd
348: (p_flxdu_xml_tag_id in number
349: ,p_object_version_number in out nocopy number
350: ,p_flxdu_column_id in number default hr_api.g_number
351: ,p_flxdu_xml_tag_name in varchar2 default hr_api.g_varchar2
352: ,p_business_group_id in number default hr_api.g_number
353: ) is
354: --
347: Procedure upd
348: (p_flxdu_xml_tag_id in number
349: ,p_object_version_number in out nocopy number
350: ,p_flxdu_column_id in number default hr_api.g_number
351: ,p_flxdu_xml_tag_name in varchar2 default hr_api.g_varchar2
352: ,p_business_group_id in number default hr_api.g_number
353: ) is
354: --
355: l_rec pqp_fxt_shd.g_rec_type;
348: (p_flxdu_xml_tag_id in number
349: ,p_object_version_number in out nocopy number
350: ,p_flxdu_column_id in number default hr_api.g_number
351: ,p_flxdu_xml_tag_name in varchar2 default hr_api.g_varchar2
352: ,p_business_group_id in number default hr_api.g_number
353: ) is
354: --
355: l_rec pqp_fxt_shd.g_rec_type;
356: l_proc varchar2(72) := g_package||'upd';