[Home] [Help]
8037: -- 28-NOV-1996 L. de Werker Add parameter p_period_name and functionality to get
8038: -- start_date from p_period_name
8039: -- 07-DEC-1996 L. de Werker Added locking mechanism
8040: -- 16-MAY-2005 Ritesh Shukla Modified this procedure for FP.M
8041: -- 16-Apr-2007 rthumma Bug# 5998035 : Added call to PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API
8042: -- for deleting the data from pa_resource_assignments
8043: -- 29-Feb-2008 paljain Bug# 6854131 : Removed second call to close cursor l_budget_line_rowid_csr
8044: --
8045: PROCEDURE delete_budget_line
8923:
8924: --Call PA_FP_CALC_PLAN_PKG.calculate api to delete the budget line(s)
8925: /* Added the following code for Bug# 5998035 */
8926: IF (l_call_del_planning_trans = 'Y') THEN
8927: -- Call PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions if period_name and start_date are NULL
8928: PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions
8929: (p_context => l_plan_class_code
8930: ,p_task_or_res => 'ASSIGNMENT'
8931: ,p_resource_assignment_tbl => l_resource_assignment_tab
8924: --Call PA_FP_CALC_PLAN_PKG.calculate api to delete the budget line(s)
8925: /* Added the following code for Bug# 5998035 */
8926: IF (l_call_del_planning_trans = 'Y') THEN
8927: -- Call PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions if period_name and start_date are NULL
8928: PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions
8929: (p_context => l_plan_class_code
8930: ,p_task_or_res => 'ASSIGNMENT'
8931: ,p_resource_assignment_tbl => l_resource_assignment_tab
8932: ,p_currency_code_tbl => l_currency_code_tbl
8935: ,x_msg_data => p_msg_data
8936: );
8937: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8938: IF(l_debug_mode='Y') THEN
8939: pa_debug.g_err_stage := 'PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API has thrown error';
8940: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8941: END IF;
8942: RAISE FND_API.G_EXC_ERROR;
8943: END IF;
18685:
18686: /* Calling Add Planning Transaction API */
18687:
18688:
18689: --dbms_output.put_line('calling pa_fp_planning_transaction_pub.add_planning_transactions bvid [' || to_char(l_created_version_id) || ']');
18690: /*
18691: | Bug 3709462. Passed p_one_to_one_mapping_flag ('Y') to avoid creation of
18692: | Resource Assignments for combinations of Task and Resource.
18693: */
18690: /*
18691: | Bug 3709462. Passed p_one_to_one_mapping_flag ('Y') to avoid creation of
18692: | Resource Assignments for combinations of Task and Resource.
18693: */
18694: pa_fp_planning_transaction_pub.add_planning_transactions
18695: ( p_context => l_plan_tran_context
18696: , p_one_to_one_mapping_flag => 'Y'
18697: , p_calling_module => 'CREATE_DRAFT_FINPLAN'
18698: , p_project_id => l_project_id
18959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18960: x_msg_count := 1;
18961: x_msg_data := SQLERRM;
18962:
18963: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
18964: ,p_procedure_name => 'Update_Planning_Transactions');
18965:
18966: IF l_debug_mode = 'Y' THEN
18967: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
19357: -- Planning Elements
19358: --
19359: --
19360: --Called subprograms: pa_budget_pvt.validate_header_info,pa_budget_pvt.validate_budget_lines
19361: -- pa_fp_planning_transaction_pub.update_planning_transactions
19362: --
19363: --
19364: --
19365:
19922: l_attribute30_tbl(i) := p_planning_element_rec_tbl(i).attribute30;
19923:
19924: end loop;
19925:
19926: pa_fp_planning_transaction_pub.update_planning_transactions(
19927: p_context => l_fin_plan_class_code
19928: ,p_budget_version_id => l_budget_version_id
19929: ,p_resource_assignment_id_tbl => l_resource_assignment_id_tbl
19930: ,p_planning_start_date_tbl => l_planning_start_date_tbl