[Home] [Help]
1: PACKAGE BODY Pa_Fp_Control_Items_Utils AS
2: /* $Header: PAFPCIUB.pls 120.6.12010000.2 2008/11/28 12:55:05 vgovvala ship $ */
3: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_CONTROL_ITEM_UTILS';
5:
39: x_msg_count := 0;
40: x_no_of_ci_plan_versions := 0;
41: x_margin_derived_from_code := 'B';
42: IF P_PA_DEBUG_MODE = 'Y' THEN
43: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
44: END IF;
45: FND_MSG_PUB.initialize;
46:
47: x_ci_est_qty := pa_fin_plan_utils.Get_Approved_Budget_Ver_Qty(
281: Pa_Debug.Reset_Err_Stack;
282: EXCEPTION
283: WHEN OTHERS THEN
284: FND_MSG_PUB.Add_Exc_Msg(
285: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls'
286: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
287: IF P_PA_DEBUG_MODE = 'Y' THEN
288: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
289: END IF;
332:
333: BEGIN
334:
335: IF P_PA_DEBUG_MODE = 'Y' THEN
336: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name');
337: END IF;
338:
339: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
340: l_debug_mode := NVL(l_debug_mode, 'Y');
360: WHEN NO_DATA_FOUND THEN
361: null;
362: WHEN OTHERS THEN
363: FND_MSG_PUB.add_exc_msg(
364: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name'
365: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
366: IF P_PA_DEBUG_MODE = 'Y' THEN
367: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || SQLERRM);
368: END IF;
384: l_debug_mode varchar2(30) := 'Y';
385:
386: BEGIN
387: IF P_PA_DEBUG_MODE = 'Y' THEN
388: pa_debug.init_err_stack('get_fp_ci_agreement_dtls: ' || 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls');
389: END IF;
390:
391: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
392: l_debug_mode := NVL(l_debug_mode, 'Y');
427: WHEN NO_DATA_FOUND THEN
428: null;
429: WHEN OTHERS THEN
430: FND_MSG_PUB.add_exc_msg(
431: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls'
432: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
433: IF P_PA_DEBUG_MODE = 'Y' THEN
434: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || SQLERRM);
435: END IF;
555:
556: EXCEPTION
557: WHEN OTHERS THEN
558: FND_MSG_PUB.add_exc_msg
559: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
560: 'FP_CI_GET_VERSION_DETAILS'
561: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
562: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 3');
563: IF P_PA_DEBUG_MODE = 'Y' THEN
1486:
1487: EXCEPTION
1488: WHEN OTHERS THEN
1489: FND_MSG_PUB.add_exc_msg
1490: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
1491: 'FP_CI_CHECK_MERGE_POSSIBLE'
1492: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1493: IF P_PA_DEBUG_MODE = 'Y' THEN
1494: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1617: x_msg_count := 1;
1618: x_msg_data := SQLERRM;
1619: FND_MSG_PUB.add_exc_msg
1620: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1621: ,p_procedure_name => 'isFundingLevelChangeAllowed' );
1622:
1623:
1624: END isFundingLevelChangeAllowed;
1688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1689: x_msg_count := 1;
1690: x_msg_data := SQLERRM;
1691: FND_MSG_PUB.add_exc_msg
1692: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1693: ,p_procedure_name => 'isAgreementDeletionAllowed' );
1694:
1695:
1696: END isAgreementDeletionAllowed;
1760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1761: x_msg_count := 1;
1762: x_msg_data := SQLERRM;
1763: FND_MSG_PUB.add_exc_msg
1764: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1765: ,p_procedure_name => 'isAgrCurrencyChangeAllowed' );
1766:
1767: END isAgrCurrencyChangeAllowed;
1768:
1792: l_error_msg_code VARCHAR2(30);
1793: l_msg_index_out NUMBER;
1794: l_return_status VARCHAR2(2000);
1795: l_debug_mode VARCHAR2(30);
1796: l_module_name VARCHAR2(100) := 'pa.plsql.Pa_Fp_Control_Items_Utils';
1797:
1798: l_uncategorized_flag pa_resource_lists.uncategorized_flag%TYPE;
1799: l_group_resource_type_id pa_resource_lists.group_resource_type_id%TYPE;
1800: l_resource_list_id pa_resource_lists.resource_list_id%TYPE;
1885: BEGIN
1886:
1887: x_msg_count := 0;
1888: x_return_status := FND_API.G_RET_STS_SUCCESS;
1889: pa_debug.set_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Is_Create_CI_Version_Allowed');
1890: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1891: l_debug_mode := NVL(l_debug_mode, 'Y');
1892: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1893:
1935: -- 01-JUL-2003 Default ci from current working version
1936:
1937:
1938: -- Fetch current working approved budget version id
1939: Pa_Fp_Control_Items_Utils.CHK_APRV_CUR_WORKING_BV_EXISTS(
1940: p_project_id => p_project_id,
1941: p_fin_plan_type_id => p_fin_plan_type_id,
1942: p_version_type => p_version_type,
1943: x_cur_work_bv_id => l_ci_apprv_cw_bv_id,
2196:
2197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2198: x_msg_count := 1;
2199: x_msg_data := SQLERRM;
2200: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2201: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2202: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2203: IF P_PA_DEBUG_MODE = 'Y' THEN
2204: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2220: BEGIN
2221: x_return_status := FND_API.G_RET_STS_SUCCESS;
2222:
2223: IF P_PA_DEBUG_MODE = 'Y' THEN
2224: pa_debug.init_err_stack('IsValidAgreement: ' || 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
2225: END IF;
2226:
2227: IF p_agreement_number IS NULL THEN
2228: x_return_status := FND_API.G_RET_STS_ERROR;
2254: RETURN;
2255:
2256: WHEN OTHERS THEN
2257: FND_MSG_PUB.Add_Exc_Msg(
2258: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.IsValidAgreement'
2259: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2260: IF P_PA_DEBUG_MODE = 'Y' THEN
2261: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2262: END IF;
2406:
2407: EXCEPTION
2408: WHEN OTHERS THEN
2409: FND_MSG_PUB.add_exc_msg
2410: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2411: 'GET_BUDGET_VERSION_INFO'
2412: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2413: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 3');
2414: IF P_PA_DEBUG_MODE = 'Y' THEN
2564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2565: x_msg_count := 1;
2566: x_msg_data := to_char(l_stage)||'-'||SQLERRM;
2567: FND_MSG_PUB.add_exc_msg
2568: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2569: ,p_procedure_name => 'Chk_Aprv_Cur_Working_BV_Exists' );
2570:
2571: END CHK_APRV_CUR_WORKING_BV_EXISTS;
2572:
2631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2632: x_msg_count := 1;
2633: x_msg_data := to_char(l_stage)||'-'||SQLERRM;
2634: FND_MSG_PUB.add_exc_msg
2635: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2636: ,p_procedure_name => 'Compare_Source_Target_Ver_Attr' );
2637:
2638: END COMPARE_SOURCE_TARGET_VER_ATTR;
2639:
2701: END IF;
2702: EXCEPTION
2703: WHEN OTHERS THEN
2704: FND_MSG_PUB.add_exc_msg
2705: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2706: 'CHECK_PLAN_VERSION_NAME_OR_ID'
2707: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2708: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 3');
2709: IF P_PA_DEBUG_MODE = 'Y' THEN
2839: 'REVENUE',po.approved_rev_plan_type_flag
2840: ) = 'Y';
2841:
2842: -- Fetch current working approved budget version id
2843: Pa_Fp_Control_Items_Utils.CHK_APRV_CUR_WORKING_BV_EXISTS(
2844: p_project_id => p_project_id,
2845: p_fin_plan_type_id => l_ci_aprv_plan_type_id,
2846: p_version_type => p_source_version_type,
2847: x_cur_work_bv_id => l_ci_aprv_cw_bv_id,
2907: Cost or Revenue approved budget plan type. The Where clasue in
2908: the p_multiple_plan_types_flag='Y' will not work for this case. */
2909:
2910: -- Fetch current working approved budget version id
2911: Pa_Fp_Control_Items_Utils.CHK_APRV_CUR_WORKING_BV_EXISTS(
2912: p_project_id => p_project_id,
2913: p_fin_plan_type_id => l_ci_aprv_plan_type_id,
2914: p_version_type => p_source_version_type,
2915: x_cur_work_bv_id => l_ci_aprv_cw_bv_id,
3076: pa_debug.reset_err_stack;
3077: RAISE;
3078: WHEN OTHERS THEN
3079: FND_MSG_PUB.add_exc_msg
3080: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3081: 'FP_CI_CHECK_COPY_POSSIBLE'
3082: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3083: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 3');
3084: IF P_PA_DEBUG_MODE = 'Y' THEN
3143: END IF;
3144: EXCEPTION
3145: WHEN OTHERS THEN
3146: FND_MSG_PUB.add_exc_msg
3147: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3148: 'CHECK_FP_PLAN_VERSION_EXISTS'
3149: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3150: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 3');
3151: IF P_PA_DEBUG_MODE = 'Y' THEN
3199: l_msg_data VARCHAR2(2000);
3200: l_msg_index_out NUMBER;
3201: l_return_status VARCHAR2(2000);
3202: l_no_of_ci_plan_versions NUMBER;
3203: l_module_name VARCHAR2(100) := 'pa.plsql.Pa_Fp_Control_Items_Utils';
3204: l_merge_possible_code_tbl SYSTEM.pa_varchar2_1_tbl_type:=SYSTEM.pa_varchar2_1_tbl_type();
3205:
3206: BEGIN
3207: x_msg_count := 0;
3206: BEGIN
3207: x_msg_count := 0;
3208: x_return_status := FND_API.G_RET_STS_SUCCESS;
3209: IF p_pa_debug_mode = 'Y' THEN
3210: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.Fp_Ci_Impact_Submit_Chk');
3211: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
3212: END IF;
3213:
3214: /* Get the details of the CI Budget Versions. */
3291: l_source_id_tbl.extend(1);
3292: l_source_id_tbl(1) := l_source_version_id;
3293: l_target_version_id := l_curr_work_version_id;
3294:
3295: Pa_Fp_Control_Items_Utils.FP_CI_CHECK_MERGE_POSSIBLE(
3296: p_project_id => p_project_id,
3297: p_source_fp_version_id_tbl => l_source_id_tbl,
3298: p_target_fp_version_id => l_target_version_id,
3299: p_calling_mode => 'SUBMIT',
3346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3347: x_msg_count := 1;
3348: x_msg_data := SQLERRM;
3349: FND_MSG_PUB.add_exc_msg
3350: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
3351: ,p_procedure_name => 'Fp_Ci_Impact_Submit_Chk'
3352: ,p_error_text => x_msg_data);
3353:
3354: IF p_pa_debug_mode = 'Y' THEN
3391: l_second_bv_id pa_budget_versions.budget_version_id%TYPE;
3392:
3393: l_count NUMBER := 0;
3394: l_merged_count NUMBER := 0;
3395: l_module_name VARCHAR2(100) := 'pa.plsql.Pa_Fp_Control_Items_Utils';
3396:
3397: CURSOR c_upd_impact_val_csr
3398: (c_ci_id pa_control_items.ci_id%TYPE,
3399: c_version_type pa_fp_merged_ctrl_items.version_type%TYPE)
3411: x_msg_count := 0;
3412: x_return_status := FND_API.G_RET_STS_SUCCESS;
3413: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3414: IF l_debug_mode = 'Y' THEN
3415: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT');
3416: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3417: END IF;
3418:
3419: -- Check for business rules violations
3542: x_msg_count := 1;
3543: x_msg_data := SQLERRM;
3544:
3545: FND_MSG_PUB.add_exc_msg
3546: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
3547: ,p_procedure_name => 'FP_CI_VALIDATE_UPDATE_IMPACT'
3548: ,p_error_text => x_msg_data);
3549:
3550: IF l_debug_mode = 'Y' THEN
3942: EXCEPTION
3943: WHEN OTHERS THEN
3944:
3945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3946: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
3947: p_procedure_name => 'chk_res_resgrp_mismatch',
3948: p_error_text => SUBSTRB(SQLERRM,1,240));
3949: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3950: p_data => x_msg_data);
4021: END IF;
4022:
4023: IF p_pa_debug_mode = 'Y' THEN
4024: PA_DEBUG.write_log (x_module =>
4025: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4026: ,x_msg => 'selecting source version fp option details'
4027: ,x_log_level => 5);
4028: END IF;
4029:
4040: o.fin_plan_version_id = bv.budget_version_id;
4041:
4042: IF p_pa_debug_mode = 'Y' THEN
4043: PA_DEBUG.write_log (x_module =>
4044: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4045: ,x_msg => 'selecting target version fp option details'
4046: ,x_log_level => 5);
4047: END IF;
4048:
4067:
4068: begin
4069: IF p_pa_debug_mode = 'Y' THEN
4070: PA_DEBUG.write_log (x_module =>
4071: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4072: ,x_msg => 'checking for the same task is planned in the target'
4073: ,x_log_level => 5);
4074: END IF;
4075: select nvl(fpe.top_task_planning_level,'LOWEST')
4089: target */
4090: begin
4091: IF p_pa_debug_mode = 'Y' THEN
4092: PA_DEBUG.write_log (x_module =>
4093: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4094: ,x_msg => 'checking for whether the top task is planned in the target'
4095: ,x_log_level => 5);
4096: END IF;
4097: select nvl(fpe.top_task_planning_level,'LOWEST')
4112: is planned at the lowest task level in target version */
4113: begin
4114: IF p_pa_debug_mode = 'Y' THEN
4115: PA_DEBUG.write_log (x_module =>
4116: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4117: ,x_msg => 'checking for source - top task and target - lowest task'
4118: ,x_log_level => 5);
4119: END IF;
4120: select nvl(fpe.top_task_planning_level,'LOWEST')
4145: if l_source_plan_level = 'TOP' and
4146: l_target_plan_level = 'LOWEST' then
4147: IF p_pa_debug_mode = 'Y' THEN
4148: PA_DEBUG.write_log (x_module =>
4149: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4150: ,x_msg => 'getting the task info from pa_tasks table'
4151: ,x_log_level => 5);
4152: END IF;
4153: begin
4195: Lowest Top
4196: */
4197: IF p_pa_debug_mode = 'Y' THEN
4198: PA_DEBUG.write_log (x_module =>
4199: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4200: ,x_msg => 'populating the pl sql table for source and target task'
4201: ,x_log_level => 5);
4202: END IF;
4203: l_task_exists_Flag := 'N';
4225: IF p_pa_debug_mode = 'Y' THEN
4226: PA_DEBUG.Reset_Err_Stack;
4227: END IF;
4228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4229: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
4230: p_procedure_name => 'chk_tsk_plan_level_mismatch',
4231: p_error_text => SUBSTRB(SQLERRM,1,240));
4232: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4233: p_data => x_msg_data);
4783: and pbv1.approved_cost_plan_type_flag = 'Y')) cost_query,
4784: -- Modified revenue Query 3902490 to add calls to get_labor_qty_partial and get_equip_qty_partial
4785: -- for deriving quantity when rev_partially_impl_flag is passed as Y.
4786: (SELECT nvl(sum(nvl(decode(c_report_version_type,'REVENUE',
4787: decode(pfca.REV_PARTIALLY_IMPL_FLAG,'Y',PA_FP_CONTROL_ITEMS_UTILS.get_labor_qty_partial
4788: (pfca.CI_VERSION_TYPE
4789: ,c_appr_rev_cw_version_id
4790: ,pfca.CI_VERSION_ID
4791: ,pfca.people_effort
4794: 0),
4795: 0)
4796: ),0) as people_effort,
4797: nvl(sum(nvl(decode(c_report_version_type,'REVENUE',
4798: decode(pfca.REV_PARTIALLY_IMPL_FLAG,'Y',PA_FP_CONTROL_ITEMS_UTILS.get_equip_qty_partial
4799: (pfca.CI_VERSION_TYPE
4800: ,c_appr_rev_cw_version_id
4801: ,pfca.CI_VERSION_ID
4802: ,pfca.equipment_effort
4805: 0),
4806: 0)
4807: ),0) as equipment_effort,
4808: 0 as cost,
4809: nvl(sum(nvl(decode(pfca.REV_PARTIALLY_IMPL_FLAG,'Y',PA_FP_CONTROL_ITEMS_UTILS.get_pc_revenue_partial
4810: (pfca.CI_VERSION_TYPE
4811: ,c_appr_rev_cw_version_id
4812: ,pfca.CI_VERSION_ID
4813: ,pfca.revenue
5963: WHEN OTHERS THEN
5964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5965: x_msg_count := 1;
5966: x_msg_data := SQLERRM;
5967: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
5968: ,p_procedure_name => 'get_summary_data');
5969:
5970: IF l_debug_mode = 'Y' THEN
5971: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6014: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6015: BEGIN
6016: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6017: IF l_debug_mode = 'Y' THEN
6018: pa_debug.g_err_stage:='In get_labor_qty_partial - pa_fp_control_items_utils ';
6019: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6020: END IF;
6021:
6022: -------------------------------
6324: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6325: BEGIN
6326: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6327: IF l_debug_mode = 'Y' THEN
6328: pa_debug.g_err_stage:='In get_equip_qty_partial - pa_fp_control_items_utils ';
6329: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6330: END IF;
6331:
6332: -------------------------------
6633:
6634: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6635:
6636: IF l_debug_mode = 'Y' THEN
6637: pa_debug.g_err_stage:='In get_pc_revenue_partial - pa_fp_control_items_utils ';
6638: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6639: END IF;
6640:
6641: ----------------------------------------------------------------
6831:
6832: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6833:
6834: IF l_debug_mode = 'Y' THEN
6835: pa_debug.g_err_stage:='In get_pc_cost - pa_fp_control_items_utils ';
6836: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6837: END IF;
6838:
6839: ----------------------------------------------------------------
7024: c_budget_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE,
7025: c_project_id PA_PROJECTS_ALL.PROJECT_ID%TYPE,
7026: c_fin_plan_type_id PA_BUDGET_VERSIONS.FIN_PLAN_TYPE_ID%TYPE,
7027: c_version_type PA_BUDGET_VERSIONS.VERSION_TYPE%TYPE) IS
7028: select nvl(sum(nvl(PA_FP_CONTROL_ITEMS_UTILS.get_labor_qty_partial(
7029: pfca.CI_VERSION_TYPE,
7030: c_budget_version_id,
7031: pfca.CI_VERSION_ID,
7032: pfca.people_effort,
7030: c_budget_version_id,
7031: pfca.CI_VERSION_ID,
7032: pfca.people_effort,
7033: pfca.PT_CT_VERSION_TYPE),0)),0) as people_effort
7034: ,nvl(sum(nvl(PA_FP_CONTROL_ITEMS_UTILS.get_equip_qty_partial(
7035: pfca.CI_VERSION_TYPE,
7036: c_budget_version_id,
7037: pfca.CI_VERSION_ID,
7038: pfca.equipment_effort,
7036: c_budget_version_id,
7037: pfca.CI_VERSION_ID,
7038: pfca.equipment_effort,
7039: pfca.PT_CT_VERSION_TYPE),0)),0) as equipment_effort
7040: ,nvl(sum(nvl(PA_FP_CONTROL_ITEMS_UTILS.get_pc_cost(
7041: pfca.CI_VERSION_TYPE,
7042: c_budget_version_id,
7043: pfca.CI_VERSION_ID,
7044: pfca.RAW_COST,
7043: pfca.CI_VERSION_ID,
7044: pfca.RAW_COST,
7045: pfca.BURDENED_COST,
7046: pfca.PT_CT_VERSION_TYPE),0)),0) as cost
7047: ,nvl(sum(nvl(PA_FP_CONTROL_ITEMS_UTILS.get_pc_revenue_partial(
7048: pfca.CI_VERSION_TYPE,
7049: c_budget_version_id,
7050: pfca.CI_VERSION_ID,
7051: pfca.REVENUE,
7448: WHEN OTHERS THEN
7449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7450: x_msg_count := 1;
7451: x_msg_data := SQLERRM;
7452: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
7453: ,p_procedure_name => 'get_not_included');
7454:
7455: IF l_debug_mode = 'Y' THEN
7456: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7494: BEGIN
7495: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7496:
7497: IF l_debug_mode = 'Y' THEN
7498: pa_debug.g_err_stage:='In is_impact_exists - pa_fp_control_items_utils ';
7499: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7500: END IF;
7501: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7502: p_debug_mode => l_debug_mode );
7599: BEGIN
7600: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7601:
7602: IF l_debug_mode = 'Y' THEN
7603: pa_debug.g_err_stage:='is_fin_impact_enabled - pa_fp_control_items_utils ';
7604: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7605: END IF;
7606: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7607: p_debug_mode => l_debug_mode );
7778: IF c_vers_for_ci%ISOPEN THEN
7779: CLOSE c_vers_for_ci;
7780: END IF;
7781:
7782: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
7783: ,p_procedure_name => 'GET_CI_VERSIONS');
7784: IF P_PA_DEBUG_MODE = 'Y' THEN
7785: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7786: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8123:
8124: X_partially_impl_flag := 'N';
8125: i := 1;
8126:
8127: Pa_Fp_Control_Items_Utils.get_ci_versions(
8128: P_ci_id => p_ci_id,
8129: X_cost_budget_version_id => x_cost_ci_version_id,
8130: X_rev_budget_version_id => x_rev_ci_version_id,
8131: X_all_budget_version_id => x_all_ci_version_id,
8159: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8160: END IF;
8161: */
8162:
8163: x_autobaseline_project := Pa_Fp_Control_Items_Utils.IsFpAutoBaselineEnabled(p_project_id => p_project_id);
8164:
8165: -- Loop for each plan type attached to the project(excluding work plan and org forecast plan types)
8166: FOR c_plan_type_rec IN c_plan_types_attached LOOP
8167: l_rev_impl_flag:=null;
8164:
8165: -- Loop for each plan type attached to the project(excluding work plan and org forecast plan types)
8166: FOR c_plan_type_rec IN c_plan_types_attached LOOP
8167: l_rev_impl_flag:=null;
8168: Pa_Fp_Control_Items_Utils.get_impl_details(
8169: P_fin_plan_type_id => c_plan_type_rec.fin_plan_type_id,
8170: P_project_id => p_project_id,
8171: P_app_rev_plan_type_flag => c_plan_type_rec.approved_rev_plan_type_flag,
8172: P_ci_id => p_ci_id,
8296: l_ci_version_type := 'ALL';
8297: END IF;
8298:
8299: x_rem_proj_revenue :=
8300: Pa_Fp_Control_Items_Utils.get_pc_revenue_partial(
8301: p_version_type => l_ci_version_type,
8302: p_budget_version_id => l_budget_version_id,
8303: p_ci_version_id => nvl(x_rev_ci_version_id,x_all_ci_version_id));
8304:
8302: p_budget_version_id => l_budget_version_id,
8303: p_ci_version_id => nvl(x_rev_ci_version_id,x_all_ci_version_id));
8304:
8305: x_rem_labor_qty :=
8306: Pa_Fp_Control_Items_Utils.get_labor_qty_partial(
8307: p_version_type => l_ci_version_type,
8308: p_budget_version_id => l_budget_version_id,
8309: p_ci_version_id => nvl(x_rev_ci_version_id,x_all_ci_version_id));
8310:
8308: p_budget_version_id => l_budget_version_id,
8309: p_ci_version_id => nvl(x_rev_ci_version_id,x_all_ci_version_id));
8310:
8311: x_rem_equip_qty :=
8312: Pa_Fp_Control_Items_Utils.get_equip_qty_partial(
8313: p_version_type => l_ci_version_type,
8314: p_budget_version_id => l_budget_version_id,
8315: p_ci_version_id => nvl(x_rev_ci_version_id,x_all_ci_version_id));
8316:
8461: IF c_plan_types_attached%ISOPEN THEN
8462: CLOSE c_plan_types_attached;
8463: END IF;
8464:
8465: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
8466: ,p_procedure_name => 'GET_PLAN_TYPES_FOR_IMPL');
8467: IF l_DEBUG_MODE = 'Y' THEN
8468: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
8469: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8672: x_cost_impact_impl_flag :='Y';
8673: x_rev_impact_impl_flag := 'Y';
8674:
8675: IF p_ci_cost_version_id IS NULL AND p_ci_rev_version_id IS NULL AND p_ci_all_version_id IS NULL THEN
8676: Pa_Fp_Control_Items_Utils.GET_CI_VERSIONS(P_ci_id => p_ci_id,
8677: X_cost_budget_version_id => l_ci_cost_version_id,
8678: X_rev_budget_version_id => l_ci_rev_version_id,
8679: X_all_budget_version_id => l_ci_all_version_id,
8680: x_return_status => l_return_status,
8895: END IF;
8896:
8897:
8898: IF l_app_rev_plan_type_flag = 'Y' THEN
8899: Pa_Fp_Control_Items_Utils.get_fp_ci_agreement_dtls(p_project_id => p_project_id,
8900: p_ci_id => p_ci_id,
8901: x_agreement_num => x_agreement_num,
8902: x_agreement_amount => l_agreement_amount,
8903: x_agreement_currency_code => l_agreement_currency_code,
9082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9083: x_msg_count := 1;
9084: x_msg_data := SQLERRM;
9085:
9086: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9087: ,p_procedure_name => 'GET_IMPL_DETAILS');
9088: IF P_PA_DEBUG_MODE = 'Y' THEN
9089: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9090: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9212: IF p_ci_cost_version_id IS NULL AND
9213: p_ci_rev_version_id IS NULL AND
9214: p_ci_all_version_id IS NULL THEN
9215:
9216: Pa_Fp_Control_Items_Utils.get_ci_versions
9217: (p_ci_id => p_ci_id,
9218: x_cost_budget_version_id => l_cost_ci_version_id,
9219: x_rev_budget_version_id => l_rev_ci_version_id,
9220: x_all_budget_version_id => l_all_ci_version_id,
9224:
9225: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9226:
9227: IF l_debug_mode = 'Y' THEN
9228: pa_debug.g_err_stage:='Called API Pa_Fp_Control_Items_Utils.get_ci_versions returned error';
9229: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9230: END IF;
9231:
9232: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9322: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9323: END IF;
9324:
9325:
9326: pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj
9327: (p_project_id => p_project_id,
9328: x_app_cost_cw_ver_id => x_app_cost_cw_ver_id,
9329: x_app_rev_cw_ver_id => x_app_rev_cw_ver_id,
9330: x_msg_data => x_msg_data,
9333:
9334: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9335:
9336: IF l_debug_mode = 'Y' THEN
9337: pa_debug.g_err_stage:='Called API pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj returned error';
9338: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9339: END IF;
9340:
9341: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9707: BEGIN
9708: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9709:
9710: IF l_debug_mode = 'Y' THEN
9711: pa_debug.g_err_stage:='get_impl_agr_revenue - pa_fp_control_items_utils ';
9712: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9713: END IF;
9714: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9715: p_debug_mode => l_debug_mode );
9957: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9958: x_msg_count := 1;
9959: x_msg_data := SQLERRM;
9960:
9961: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9962: ,p_procedure_name => 'get_txn_curr_code_of_ci_ver');
9963:
9964: IF P_PA_DEBUG_MODE = 'Y' THEN
9965: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
9993: BEGIN
9994: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9995:
9996: IF l_debug_mode = 'Y' THEN
9997: pa_debug.g_err_stage:='validate_fp_ci_type_delete - pa_fp_control_items_utils ';
9998: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9999: END IF;
10000: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
10001: p_debug_mode => l_debug_mode );
10072: pa_debug.reset_curr_function;
10073: RAISE;
10074: END validate_fp_ci_type_delete;
10075:
10076: END Pa_Fp_Control_Items_Utils;