[Home] [Help]
7883: -- 28-NOV-1996 L. de Werker Add parameter p_period_name and functionality to get
7884: -- start_date from p_period_name
7885: -- 07-DEC-1996 L. de Werker Added locking mechanism
7886: -- 16-MAY-2005 Ritesh Shukla Modified this procedure for FP.M
7887: -- 16-Apr-2007 rthumma Bug# 5998035 : Added call to PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API
7888: -- for deleting the data from pa_resource_assignments
7889: -- 29-Feb-2008 paljain Bug# 6854131 : Removed second call to close cursor l_budget_line_rowid_csr
7890: --
7891: PROCEDURE delete_budget_line
8744:
8745: --Call PA_FP_CALC_PLAN_PKG.calculate api to delete the budget line(s)
8746: /* Added the following code for Bug# 5998035 */
8747: IF (l_call_del_planning_trans = 'Y') THEN
8748: -- Call PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions if period_name and start_date are NULL
8749: PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions
8750: (p_context => l_plan_class_code
8751: ,p_task_or_res => 'ASSIGNMENT'
8752: ,p_resource_assignment_tbl => l_resource_assignment_tab
8745: --Call PA_FP_CALC_PLAN_PKG.calculate api to delete the budget line(s)
8746: /* Added the following code for Bug# 5998035 */
8747: IF (l_call_del_planning_trans = 'Y') THEN
8748: -- Call PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions if period_name and start_date are NULL
8749: PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions
8750: (p_context => l_plan_class_code
8751: ,p_task_or_res => 'ASSIGNMENT'
8752: ,p_resource_assignment_tbl => l_resource_assignment_tab
8753: ,p_currency_code_tbl => l_currency_code_tbl
8756: ,x_msg_data => p_msg_data
8757: );
8758: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8759: IF(l_debug_mode='Y') THEN
8760: pa_debug.g_err_stage := 'PA_FP_PLANNING_TRANSACTION_PUB.delete_planning_transactions API has thrown error';
8761: pa_debug.write( l_module_name,pa_debug.g_err_stage,l_debug_level5);
8762: END IF;
8763: RAISE FND_API.G_EXC_ERROR;
8764: END IF;
18414:
18415: /* Calling Add Planning Transaction API */
18416:
18417:
18418: --dbms_output.put_line('calling pa_fp_planning_transaction_pub.add_planning_transactions bvid [' || to_char(l_created_version_id) || ']');
18419: /*
18420: | Bug 3709462. Passed p_one_to_one_mapping_flag ('Y') to avoid creation of
18421: | Resource Assignments for combinations of Task and Resource.
18422: */
18419: /*
18420: | Bug 3709462. Passed p_one_to_one_mapping_flag ('Y') to avoid creation of
18421: | Resource Assignments for combinations of Task and Resource.
18422: */
18423: pa_fp_planning_transaction_pub.add_planning_transactions
18424: ( p_context => l_plan_tran_context
18425: , p_one_to_one_mapping_flag => 'Y'
18426: , p_calling_module => 'CREATE_DRAFT_FINPLAN'
18427: , p_project_id => l_project_id
18687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18688: x_msg_count := 1;
18689: x_msg_data := SQLERRM;
18690:
18691: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_PLANNING_TRANSACTION_PUB'
18692: ,p_procedure_name => 'Update_Planning_Transactions');
18693:
18694: IF l_debug_mode = 'Y' THEN
18695: pa_debug.g_err_stage:='Unexpected Error' || SQLERRM;
19064: -- Planning Elements
19065: --
19066: --
19067: --Called subprograms: pa_budget_pvt.validate_header_info,pa_budget_pvt.validate_budget_lines
19068: -- pa_fp_planning_transaction_pub.update_planning_transactions
19069: --
19070: --
19071: --
19072:
19568: l_attribute30_tbl(i) := p_planning_element_rec_tbl(i).attribute30;
19569:
19570: end loop;
19571:
19572: pa_fp_planning_transaction_pub.update_planning_transactions(
19573: p_context => l_fin_plan_class_code
19574: ,p_budget_version_id => l_budget_version_id
19575: ,p_resource_assignment_id_tbl => l_resource_assignment_id_tbl
19576: ,p_planning_start_date_tbl => l_planning_start_date_tbl