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: pqh_bpl_shd.g_api_dml := false; -- Unset the api dml status
92: pqh_bpl_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: pqh_bpl_shd.g_api_dml := false; -- Unset the api dml status
92: pqh_bpl_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: pqh_bpl_shd.g_api_dml := false; -- Unset the api dml status
97: pqh_bpl_shd.constraint_error
90: -- A check constraint has been violated
91: pqh_bpl_shd.g_api_dml := false; -- Unset the api dml status
92: pqh_bpl_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: pqh_bpl_shd.g_api_dml := false; -- Unset the api dml status
97: pqh_bpl_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: pqh_bpl_shd.g_api_dml := false; -- Unset the api dml status
97: pqh_bpl_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: pqh_bpl_shd.g_api_dml := false; -- Unset the api dml status
102: pqh_bpl_shd.constraint_error
95: -- Parent integrity has been violated
96: pqh_bpl_shd.g_api_dml := false; -- Unset the api dml status
97: pqh_bpl_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: pqh_bpl_shd.g_api_dml := false; -- Unset the api dml status
102: pqh_bpl_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: pqh_bpl_shd.g_api_dml := false; -- Unset the api dml status
102: pqh_bpl_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When Others Then
105: pqh_bpl_shd.g_api_dml := false; -- Unset the api dml status
106: Raise;
107: End update_dml;
236: );
237: --
238: exception
239: --
240: when hr_api.cannot_find_prog_unit then
241: --
242: hr_api.cannot_find_prog_unit_error
243: (p_module_name => 'PQH_BUDGET_POOLS'
244: ,p_hook_type => 'AU');
238: exception
239: --
240: when hr_api.cannot_find_prog_unit then
241: --
242: hr_api.cannot_find_prog_unit_error
243: (p_module_name => 'PQH_BUDGET_POOLS'
244: ,p_hook_type => 'AU');
245: --
246: end;
301: -- p_rec plsql record structure
302: -- to see if a system default is being used. If a system default
303: -- is being used then we must set to the 'current' argument value.
304: --
305: If (p_rec.name = hr_api.g_varchar2) then
306: p_rec.name :=
307: pqh_bpl_shd.g_old_rec.name;
308: End If;
309: If (p_rec.budget_version_id = hr_api.g_number) then
305: If (p_rec.name = hr_api.g_varchar2) then
306: p_rec.name :=
307: pqh_bpl_shd.g_old_rec.name;
308: End If;
309: If (p_rec.budget_version_id = hr_api.g_number) then
310: p_rec.budget_version_id :=
311: pqh_bpl_shd.g_old_rec.budget_version_id;
312: End If;
313: If (p_rec.budget_unit_id = hr_api.g_number) then
309: If (p_rec.budget_version_id = hr_api.g_number) then
310: p_rec.budget_version_id :=
311: pqh_bpl_shd.g_old_rec.budget_version_id;
312: End If;
313: If (p_rec.budget_unit_id = hr_api.g_number) then
314: p_rec.budget_unit_id :=
315: pqh_bpl_shd.g_old_rec.budget_unit_id;
316: End If;
317: If (p_rec.entity_type = hr_api.g_varchar2) then
313: If (p_rec.budget_unit_id = hr_api.g_number) then
314: p_rec.budget_unit_id :=
315: pqh_bpl_shd.g_old_rec.budget_unit_id;
316: End If;
317: If (p_rec.entity_type = hr_api.g_varchar2) then
318: p_rec.entity_type :=
319: pqh_bpl_shd.g_old_rec.entity_type;
320: End If;
321: If (p_rec.parent_pool_id = hr_api.g_number) then
317: If (p_rec.entity_type = hr_api.g_varchar2) then
318: p_rec.entity_type :=
319: pqh_bpl_shd.g_old_rec.entity_type;
320: End If;
321: If (p_rec.parent_pool_id = hr_api.g_number) then
322: p_rec.parent_pool_id :=
323: pqh_bpl_shd.g_old_rec.parent_pool_id;
324: End If;
325: If (p_rec.business_group_id = hr_api.g_number) then
321: If (p_rec.parent_pool_id = hr_api.g_number) then
322: p_rec.parent_pool_id :=
323: pqh_bpl_shd.g_old_rec.parent_pool_id;
324: End If;
325: If (p_rec.business_group_id = hr_api.g_number) then
326: p_rec.business_group_id :=
327: pqh_bpl_shd.g_old_rec.business_group_id;
328: End If;
329: If (p_rec.approval_status = hr_api.g_varchar2) then
325: If (p_rec.business_group_id = hr_api.g_number) then
326: p_rec.business_group_id :=
327: pqh_bpl_shd.g_old_rec.business_group_id;
328: End If;
329: If (p_rec.approval_status = hr_api.g_varchar2) then
330: p_rec.approval_status :=
331: pqh_bpl_shd.g_old_rec.approval_status;
332: End If;
333: If (p_rec.wf_transaction_category_id= hr_api.g_number) then
329: If (p_rec.approval_status = hr_api.g_varchar2) then
330: p_rec.approval_status :=
331: pqh_bpl_shd.g_old_rec.approval_status;
332: End If;
333: If (p_rec.wf_transaction_category_id= hr_api.g_number) then
334: p_rec.wf_transaction_category_id:=
335: pqh_bpl_shd.g_old_rec.wf_transaction_category_id;
336: End If;
337:
398: Procedure upd
399: (p_effective_date in date
400: ,p_pool_id in number
401: ,p_object_version_number in out nocopy number
402: ,p_name in varchar2 default hr_api.g_varchar2
403: ,p_budget_version_id in number default hr_api.g_number
404: ,p_budget_unit_id in number default hr_api.g_number
405: ,p_entity_type in varchar2 default hr_api.g_varchar2
406: ,p_parent_pool_id in number default hr_api.g_number
399: (p_effective_date in date
400: ,p_pool_id in number
401: ,p_object_version_number in out nocopy number
402: ,p_name in varchar2 default hr_api.g_varchar2
403: ,p_budget_version_id in number default hr_api.g_number
404: ,p_budget_unit_id in number default hr_api.g_number
405: ,p_entity_type in varchar2 default hr_api.g_varchar2
406: ,p_parent_pool_id in number default hr_api.g_number
407: ,p_business_group_id in number default hr_api.g_number
400: ,p_pool_id in number
401: ,p_object_version_number in out nocopy number
402: ,p_name in varchar2 default hr_api.g_varchar2
403: ,p_budget_version_id in number default hr_api.g_number
404: ,p_budget_unit_id in number default hr_api.g_number
405: ,p_entity_type in varchar2 default hr_api.g_varchar2
406: ,p_parent_pool_id in number default hr_api.g_number
407: ,p_business_group_id in number default hr_api.g_number
408: ,p_approval_status in varchar2 default hr_api.g_varchar2
401: ,p_object_version_number in out nocopy number
402: ,p_name in varchar2 default hr_api.g_varchar2
403: ,p_budget_version_id in number default hr_api.g_number
404: ,p_budget_unit_id in number default hr_api.g_number
405: ,p_entity_type in varchar2 default hr_api.g_varchar2
406: ,p_parent_pool_id in number default hr_api.g_number
407: ,p_business_group_id in number default hr_api.g_number
408: ,p_approval_status in varchar2 default hr_api.g_varchar2
409: ,p_wf_transaction_category_id in number default hr_api.g_number
402: ,p_name in varchar2 default hr_api.g_varchar2
403: ,p_budget_version_id in number default hr_api.g_number
404: ,p_budget_unit_id in number default hr_api.g_number
405: ,p_entity_type in varchar2 default hr_api.g_varchar2
406: ,p_parent_pool_id in number default hr_api.g_number
407: ,p_business_group_id in number default hr_api.g_number
408: ,p_approval_status in varchar2 default hr_api.g_varchar2
409: ,p_wf_transaction_category_id in number default hr_api.g_number
410: ) is
403: ,p_budget_version_id in number default hr_api.g_number
404: ,p_budget_unit_id in number default hr_api.g_number
405: ,p_entity_type in varchar2 default hr_api.g_varchar2
406: ,p_parent_pool_id in number default hr_api.g_number
407: ,p_business_group_id in number default hr_api.g_number
408: ,p_approval_status in varchar2 default hr_api.g_varchar2
409: ,p_wf_transaction_category_id in number default hr_api.g_number
410: ) is
411: --
404: ,p_budget_unit_id in number default hr_api.g_number
405: ,p_entity_type in varchar2 default hr_api.g_varchar2
406: ,p_parent_pool_id in number default hr_api.g_number
407: ,p_business_group_id in number default hr_api.g_number
408: ,p_approval_status in varchar2 default hr_api.g_varchar2
409: ,p_wf_transaction_category_id in number default hr_api.g_number
410: ) is
411: --
412: l_rec pqh_bpl_shd.g_rec_type;
405: ,p_entity_type in varchar2 default hr_api.g_varchar2
406: ,p_parent_pool_id in number default hr_api.g_number
407: ,p_business_group_id in number default hr_api.g_number
408: ,p_approval_status in varchar2 default hr_api.g_varchar2
409: ,p_wf_transaction_category_id in number default hr_api.g_number
410: ) is
411: --
412: l_rec pqh_bpl_shd.g_rec_type;
413: l_proc varchar2(72) := g_package||'upd';