82: --
83: hr_utility.set_location(' Leaving:'||l_proc, 10);
84: --
85: Exception
86: When hr_api.check_integrity_violated Then
87: -- A check constraint has been violated
88: --
89: pqh_ops_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
86: When hr_api.check_integrity_violated Then
87: -- A check constraint has been violated
88: --
89: pqh_ops_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: --
94: pqh_ops_shd.constraint_error
87: -- A check constraint has been violated
88: --
89: pqh_ops_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: --
94: pqh_ops_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: --
94: pqh_ops_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: --
99: pqh_ops_shd.constraint_error
92: -- Parent integrity has been violated
93: --
94: pqh_ops_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: --
99: pqh_ops_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.unique_integrity_violated Then
97: -- Unique integrity has been violated
98: --
99: pqh_ops_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When Others Then
102: --
103: Raise;
104: End update_dml;
221: );
222: --
223: exception
224: --
225: when hr_api.cannot_find_prog_unit then
226: --
227: hr_api.cannot_find_prog_unit_error
228: (p_module_name => 'PQH_DE_WRKPLC_VLDTN_OPS'
229: ,p_hook_type => 'AU');
223: exception
224: --
225: when hr_api.cannot_find_prog_unit then
226: --
227: hr_api.cannot_find_prog_unit_error
228: (p_module_name => 'PQH_DE_WRKPLC_VLDTN_OPS'
229: ,p_hook_type => 'AU');
230: --
231: end;
286: -- p_rec plsql record structure
287: -- to see if a system default is being used. If a system default
288: -- is being used then we must set to the 'current' argument value.
289: --
290: If (p_rec.wrkplc_vldtn_ver_id = hr_api.g_number) then
291: p_rec.wrkplc_vldtn_ver_id :=
292: pqh_ops_shd.g_old_rec.wrkplc_vldtn_ver_id;
293: End If;
294: If (p_rec.wrkplc_operation_id = hr_api.g_number) then
290: If (p_rec.wrkplc_vldtn_ver_id = hr_api.g_number) then
291: p_rec.wrkplc_vldtn_ver_id :=
292: pqh_ops_shd.g_old_rec.wrkplc_vldtn_ver_id;
293: End If;
294: If (p_rec.wrkplc_operation_id = hr_api.g_number) then
295: p_rec.wrkplc_operation_id :=
296: pqh_ops_shd.g_old_rec.wrkplc_operation_id;
297: End If;
298: If (p_rec.business_group_id = hr_api.g_number) then
294: If (p_rec.wrkplc_operation_id = hr_api.g_number) then
295: p_rec.wrkplc_operation_id :=
296: pqh_ops_shd.g_old_rec.wrkplc_operation_id;
297: End If;
298: If (p_rec.business_group_id = hr_api.g_number) then
299: p_rec.business_group_id :=
300: pqh_ops_shd.g_old_rec.business_group_id;
301: End If;
302: If (p_rec.description = hr_api.g_varchar2) then
298: If (p_rec.business_group_id = hr_api.g_number) then
299: p_rec.business_group_id :=
300: pqh_ops_shd.g_old_rec.business_group_id;
301: End If;
302: If (p_rec.description = hr_api.g_varchar2) then
303: p_rec.description :=
304: pqh_ops_shd.g_old_rec.description;
305: End If;
306: If (p_rec.unit_percentage = hr_api.g_number) then
302: If (p_rec.description = hr_api.g_varchar2) then
303: p_rec.description :=
304: pqh_ops_shd.g_old_rec.description;
305: End If;
306: If (p_rec.unit_percentage = hr_api.g_number) then
307: p_rec.unit_percentage :=
308: pqh_ops_shd.g_old_rec.unit_percentage;
309: End If;
310: --
370: Procedure upd
371: (p_effective_date in date
372: ,p_wrkplc_vldtn_op_id in number
373: ,p_object_version_number in out nocopy number
374: ,p_wrkplc_vldtn_ver_id in number default hr_api.g_number
375: ,p_wrkplc_operation_id in number default hr_api.g_number
376: ,p_business_group_id in number default hr_api.g_number
377: ,p_description in varchar2 default hr_api.g_varchar2
378: ,p_unit_percentage in number default hr_api.g_number
371: (p_effective_date in date
372: ,p_wrkplc_vldtn_op_id in number
373: ,p_object_version_number in out nocopy number
374: ,p_wrkplc_vldtn_ver_id in number default hr_api.g_number
375: ,p_wrkplc_operation_id in number default hr_api.g_number
376: ,p_business_group_id in number default hr_api.g_number
377: ,p_description in varchar2 default hr_api.g_varchar2
378: ,p_unit_percentage in number default hr_api.g_number
379: ) is
372: ,p_wrkplc_vldtn_op_id in number
373: ,p_object_version_number in out nocopy number
374: ,p_wrkplc_vldtn_ver_id in number default hr_api.g_number
375: ,p_wrkplc_operation_id in number default hr_api.g_number
376: ,p_business_group_id in number default hr_api.g_number
377: ,p_description in varchar2 default hr_api.g_varchar2
378: ,p_unit_percentage in number default hr_api.g_number
379: ) is
380: --
373: ,p_object_version_number in out nocopy number
374: ,p_wrkplc_vldtn_ver_id in number default hr_api.g_number
375: ,p_wrkplc_operation_id in number default hr_api.g_number
376: ,p_business_group_id in number default hr_api.g_number
377: ,p_description in varchar2 default hr_api.g_varchar2
378: ,p_unit_percentage in number default hr_api.g_number
379: ) is
380: --
381: l_rec pqh_ops_shd.g_rec_type;
374: ,p_wrkplc_vldtn_ver_id in number default hr_api.g_number
375: ,p_wrkplc_operation_id in number default hr_api.g_number
376: ,p_business_group_id in number default hr_api.g_number
377: ,p_description in varchar2 default hr_api.g_varchar2
378: ,p_unit_percentage in number default hr_api.g_number
379: ) is
380: --
381: l_rec pqh_ops_shd.g_rec_type;
382: l_proc varchar2(72) := g_package||'upd';