[Home] [Help]
1: PACKAGE BODY Pa_Fp_Control_Items_Utils AS
2: /* $Header: PAFPCIUB.pls 120.15.12020000.2 2012/07/19 09:36:22 admarath 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:
46: x_msg_count := 0;
47: x_no_of_ci_plan_versions := 0;
48: x_margin_derived_from_code := 'B';
49: IF P_PA_DEBUG_MODE = 'Y' THEN
50: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
51: END IF;
52: FND_MSG_PUB.initialize;
53:
54: x_ci_est_qty := pa_fin_plan_utils.Get_Approved_Budget_Ver_Qty(
305: Pa_Debug.Reset_Err_Stack;
306: EXCEPTION
307: WHEN OTHERS THEN
308: FND_MSG_PUB.Add_Exc_Msg(
309: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls'
310: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
311: IF P_PA_DEBUG_MODE = 'Y' THEN
312: pa_debug.write_file('Get_Fin_Plan_Dtls: ' || SQLERRM);
313: END IF;
356:
357: BEGIN
358:
359: IF P_PA_DEBUG_MODE = 'Y' THEN
360: pa_debug.init_err_stack('PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name');
361: END IF;
362:
363: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
364: l_debug_mode := NVL(l_debug_mode, 'Y');
384: WHEN NO_DATA_FOUND THEN
385: null;
386: WHEN OTHERS THEN
387: FND_MSG_PUB.add_exc_msg(
388: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_finplan_ci_type_name'
389: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
390: IF P_PA_DEBUG_MODE = 'Y' THEN
391: pa_debug.write_file('GET_FINPLAN_CI_TYPE_NAME: ' || SQLERRM);
392: END IF;
408: l_debug_mode varchar2(30) := 'Y';
409:
410: BEGIN
411: IF P_PA_DEBUG_MODE = 'Y' THEN
412: pa_debug.init_err_stack('get_fp_ci_agreement_dtls: ' || 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls');
413: END IF;
414:
415: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
416: l_debug_mode := NVL(l_debug_mode, 'Y');
451: WHEN NO_DATA_FOUND THEN
452: null;
453: WHEN OTHERS THEN
454: FND_MSG_PUB.add_exc_msg(
455: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.get_fp_ci_agreement_dtls'
456: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
457: IF P_PA_DEBUG_MODE = 'Y' THEN
458: pa_debug.write_file('get_fp_ci_agreement_dtls: ' || SQLERRM);
459: END IF;
579:
580: EXCEPTION
581: WHEN OTHERS THEN
582: FND_MSG_PUB.add_exc_msg
583: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
584: 'FP_CI_GET_VERSION_DETAILS'
585: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
586: ----DBMS_OUTPUT.PUT_LINE('FP_CI_GET_VERSION_DETAILS - 3');
587: IF P_PA_DEBUG_MODE = 'Y' THEN
1520:
1521: EXCEPTION
1522: WHEN OTHERS THEN
1523: FND_MSG_PUB.add_exc_msg
1524: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
1525: 'FP_CI_CHECK_MERGE_POSSIBLE'
1526: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
1527: IF P_PA_DEBUG_MODE = 'Y' THEN
1528: PA_DEBUG.g_err_stage := 'Unexpected error in FP_CI_CHECK_MERGE_POSSIBLE';
1650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1651: x_msg_count := 1;
1652: x_msg_data := SQLERRM;
1653: FND_MSG_PUB.add_exc_msg
1654: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1655: ,p_procedure_name => 'isFundingLevelChangeAllowed' );
1656:
1657:
1658: END isFundingLevelChangeAllowed;
1722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1723: x_msg_count := 1;
1724: x_msg_data := SQLERRM;
1725: FND_MSG_PUB.add_exc_msg
1726: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1727: ,p_procedure_name => 'isAgreementDeletionAllowed' );
1728:
1729:
1730: END isAgreementDeletionAllowed;
1794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1795: x_msg_count := 1;
1796: x_msg_data := SQLERRM;
1797: FND_MSG_PUB.add_exc_msg
1798: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
1799: ,p_procedure_name => 'isAgrCurrencyChangeAllowed' );
1800:
1801: END isAgrCurrencyChangeAllowed;
1802:
1826: l_error_msg_code VARCHAR2(30);
1827: l_msg_index_out NUMBER;
1828: l_return_status VARCHAR2(2000);
1829: l_debug_mode VARCHAR2(30);
1830: l_module_name VARCHAR2(100) := 'pa.plsql.Pa_Fp_Control_Items_Utils';
1831:
1832: l_uncategorized_flag pa_resource_lists.uncategorized_flag%TYPE;
1833: l_group_resource_type_id pa_resource_lists.group_resource_type_id%TYPE;
1834: l_resource_list_id pa_resource_lists.resource_list_id%TYPE;
1919: BEGIN
1920:
1921: x_msg_count := 0;
1922: x_return_status := FND_API.G_RET_STS_SUCCESS;
1923: pa_debug.set_err_stack('PA_FP_CONTROL_ITEMS_UTILS.Is_Create_CI_Version_Allowed');
1924: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1925: l_debug_mode := NVL(l_debug_mode, 'Y');
1926: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
1927:
1969: -- 01-JUL-2003 Default ci from current working version
1970:
1971:
1972: -- Fetch current working approved budget version id
1973: Pa_Fp_Control_Items_Utils.CHK_APRV_CUR_WORKING_BV_EXISTS(
1974: p_project_id => p_project_id,
1975: p_fin_plan_type_id => p_fin_plan_type_id,
1976: p_version_type => p_version_type,
1977: x_cur_work_bv_id => l_ci_apprv_cw_bv_id,
2230:
2231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2232: x_msg_count := 1;
2233: x_msg_data := SQLERRM;
2234: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2235: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2236: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2237: IF P_PA_DEBUG_MODE = 'Y' THEN
2238: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2254: BEGIN
2255: x_return_status := FND_API.G_RET_STS_SUCCESS;
2256:
2257: IF P_PA_DEBUG_MODE = 'Y' THEN
2258: pa_debug.init_err_stack('IsValidAgreement: ' || 'PA_FP_CONTROL_ITEMS_UTILS.Get_Fin_Plan_Dtls');
2259: END IF;
2260:
2261: IF p_agreement_number IS NULL THEN
2262: x_return_status := FND_API.G_RET_STS_ERROR;
2288: RETURN;
2289:
2290: WHEN OTHERS THEN
2291: FND_MSG_PUB.Add_Exc_Msg(
2292: p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS.IsValidAgreement'
2293: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2294: IF P_PA_DEBUG_MODE = 'Y' THEN
2295: pa_debug.write_file('IsValidAgreement: ' || SQLERRM);
2296: END IF;
2440:
2441: EXCEPTION
2442: WHEN OTHERS THEN
2443: FND_MSG_PUB.add_exc_msg
2444: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2445: 'GET_BUDGET_VERSION_INFO'
2446: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2447: ----DBMS_OUTPUT.PUT_LINE('GET_BUDGET_VERSION_INFO - 3');
2448: IF P_PA_DEBUG_MODE = 'Y' THEN
2613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2614: x_msg_count := 1;
2615: x_msg_data := to_char(l_stage)||'-'||SQLERRM;
2616: FND_MSG_PUB.add_exc_msg
2617: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2618: ,p_procedure_name => 'Chk_Aprv_Cur_Working_BV_Exists' );
2619:
2620: END CHK_APRV_CUR_WORKING_BV_EXISTS;
2621:
2680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2681: x_msg_count := 1;
2682: x_msg_data := to_char(l_stage)||'-'||SQLERRM;
2683: FND_MSG_PUB.add_exc_msg
2684: ( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2685: ,p_procedure_name => 'Compare_Source_Target_Ver_Attr' );
2686:
2687: END COMPARE_SOURCE_TARGET_VER_ATTR;
2688:
2750: END IF;
2751: EXCEPTION
2752: WHEN OTHERS THEN
2753: FND_MSG_PUB.add_exc_msg
2754: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
2755: 'CHECK_PLAN_VERSION_NAME_OR_ID'
2756: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
2757: ----DBMS_OUTPUT.PUT_LINE('CHECK_PLAN_VERSION_NAME_OR_ID - 3');
2758: IF P_PA_DEBUG_MODE = 'Y' THEN
2888: 'REVENUE',po.approved_rev_plan_type_flag
2889: ) = 'Y';
2890:
2891: -- Fetch current working approved budget version id
2892: Pa_Fp_Control_Items_Utils.CHK_APRV_CUR_WORKING_BV_EXISTS(
2893: p_project_id => p_project_id,
2894: p_fin_plan_type_id => l_ci_aprv_plan_type_id,
2895: p_version_type => p_source_version_type,
2896: x_cur_work_bv_id => l_ci_aprv_cw_bv_id,
2956: Cost or Revenue approved budget plan type. The Where clasue in
2957: the p_multiple_plan_types_flag='Y' will not work for this case. */
2958:
2959: -- Fetch current working approved budget version id
2960: Pa_Fp_Control_Items_Utils.CHK_APRV_CUR_WORKING_BV_EXISTS(
2961: p_project_id => p_project_id,
2962: p_fin_plan_type_id => l_ci_aprv_plan_type_id,
2963: p_version_type => p_source_version_type,
2964: x_cur_work_bv_id => l_ci_aprv_cw_bv_id,
3125: pa_debug.reset_err_stack;
3126: RAISE;
3127: WHEN OTHERS THEN
3128: FND_MSG_PUB.add_exc_msg
3129: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3130: 'FP_CI_CHECK_COPY_POSSIBLE'
3131: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3132: ----DBMS_OUTPUT.PUT_LINE('FP_CI_CHECK_COPY_POSSIBLE - 3');
3133: IF P_PA_DEBUG_MODE = 'Y' THEN
3192: END IF;
3193: EXCEPTION
3194: WHEN OTHERS THEN
3195: FND_MSG_PUB.add_exc_msg
3196: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils.' ||
3197: 'CHECK_FP_PLAN_VERSION_EXISTS'
3198: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3199: ----DBMS_OUTPUT.PUT_LINE('CHECK_FP_PLAN_VERSION_EXISTS - 3');
3200: IF P_PA_DEBUG_MODE = 'Y' THEN
3248: l_msg_data VARCHAR2(2000);
3249: l_msg_index_out NUMBER;
3250: l_return_status VARCHAR2(2000);
3251: l_no_of_ci_plan_versions NUMBER;
3252: l_module_name VARCHAR2(100) := 'pa.plsql.Pa_Fp_Control_Items_Utils';
3253: l_merge_possible_code_tbl SYSTEM.pa_varchar2_1_tbl_type:=SYSTEM.pa_varchar2_1_tbl_type();
3254:
3255: BEGIN
3256: x_msg_count := 0;
3255: BEGIN
3256: x_msg_count := 0;
3257: x_return_status := FND_API.G_RET_STS_SUCCESS;
3258: IF p_pa_debug_mode = 'Y' THEN
3259: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.Fp_Ci_Impact_Submit_Chk');
3260: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
3261: END IF;
3262:
3263: /* Get the details of the CI Budget Versions. */
3340: l_source_id_tbl.extend(1);
3341: l_source_id_tbl(1) := l_source_version_id;
3342: l_target_version_id := l_curr_work_version_id;
3343:
3344: Pa_Fp_Control_Items_Utils.FP_CI_CHECK_MERGE_POSSIBLE(
3345: p_project_id => p_project_id,
3346: p_source_fp_version_id_tbl => l_source_id_tbl,
3347: p_target_fp_version_id => l_target_version_id,
3348: p_calling_mode => 'SUBMIT',
3395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3396: x_msg_count := 1;
3397: x_msg_data := SQLERRM;
3398: FND_MSG_PUB.add_exc_msg
3399: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
3400: ,p_procedure_name => 'Fp_Ci_Impact_Submit_Chk'
3401: ,p_error_text => x_msg_data);
3402:
3403: IF p_pa_debug_mode = 'Y' THEN
3440: l_second_bv_id pa_budget_versions.budget_version_id%TYPE;
3441:
3442: l_count NUMBER := 0;
3443: l_merged_count NUMBER := 0;
3444: l_module_name VARCHAR2(100) := 'pa.plsql.Pa_Fp_Control_Items_Utils';
3445:
3446: CURSOR c_upd_impact_val_csr
3447: (c_ci_id pa_control_items.ci_id%TYPE,
3448: c_version_type pa_fp_merged_ctrl_items.version_type%TYPE)
3460: x_msg_count := 0;
3461: x_return_status := FND_API.G_RET_STS_SUCCESS;
3462: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3463: IF l_debug_mode = 'Y' THEN
3464: pa_debug.set_err_stack('Pa_Fp_Control_Items_Utils.FP_CI_VALIDATE_UPDATE_IMPACT');
3465: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
3466: END IF;
3467:
3468: -- Check for business rules violations
3591: x_msg_count := 1;
3592: x_msg_data := SQLERRM;
3593:
3594: FND_MSG_PUB.add_exc_msg
3595: ( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
3596: ,p_procedure_name => 'FP_CI_VALIDATE_UPDATE_IMPACT'
3597: ,p_error_text => x_msg_data);
3598:
3599: IF l_debug_mode = 'Y' THEN
3991: EXCEPTION
3992: WHEN OTHERS THEN
3993:
3994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3995: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
3996: p_procedure_name => 'chk_res_resgrp_mismatch',
3997: p_error_text => SUBSTRB(SQLERRM,1,240));
3998: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3999: p_data => x_msg_data);
4070: END IF;
4071:
4072: IF p_pa_debug_mode = 'Y' THEN
4073: PA_DEBUG.write_log (x_module =>
4074: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4075: ,x_msg => 'selecting source version fp option details'
4076: ,x_log_level => 5);
4077: END IF;
4078:
4089: o.fin_plan_version_id = bv.budget_version_id;
4090:
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 => 'selecting target version fp option details'
4095: ,x_log_level => 5);
4096: END IF;
4097:
4116:
4117: begin
4118: IF p_pa_debug_mode = 'Y' THEN
4119: PA_DEBUG.write_log (x_module =>
4120: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4121: ,x_msg => 'checking for the same task is planned in the target'
4122: ,x_log_level => 5);
4123: END IF;
4124: select nvl(fpe.top_task_planning_level,'LOWEST')
4138: target */
4139: begin
4140: IF p_pa_debug_mode = 'Y' THEN
4141: PA_DEBUG.write_log (x_module =>
4142: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4143: ,x_msg => 'checking for whether the top task is planned in the target'
4144: ,x_log_level => 5);
4145: END IF;
4146: select nvl(fpe.top_task_planning_level,'LOWEST')
4161: is planned at the lowest task level in target version */
4162: begin
4163: IF p_pa_debug_mode = 'Y' THEN
4164: PA_DEBUG.write_log (x_module =>
4165: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4166: ,x_msg => 'checking for source - top task and target - lowest task'
4167: ,x_log_level => 5);
4168: END IF;
4169: select nvl(fpe.top_task_planning_level,'LOWEST')
4194: if l_source_plan_level = 'TOP' and
4195: l_target_plan_level = 'LOWEST' then
4196: IF p_pa_debug_mode = 'Y' THEN
4197: PA_DEBUG.write_log (x_module =>
4198: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4199: ,x_msg => 'getting the task info from pa_tasks table'
4200: ,x_log_level => 5);
4201: END IF;
4202: begin
4244: Lowest Top
4245: */
4246: IF p_pa_debug_mode = 'Y' THEN
4247: PA_DEBUG.write_log (x_module =>
4248: 'pa.plsql.Pa_Fp_Control_Items_Utils.chk_tsk_plan_level_mismatch'
4249: ,x_msg => 'populating the pl sql table for source and target task'
4250: ,x_log_level => 5);
4251: END IF;
4252: l_task_exists_Flag := 'N';
4274: IF p_pa_debug_mode = 'Y' THEN
4275: PA_DEBUG.Reset_Err_Stack;
4276: END IF;
4277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4278: fnd_msg_pub.add_exc_msg(p_pkg_name => 'Pa_Fp_Control_Items_Utils',
4279: p_procedure_name => 'chk_tsk_plan_level_mismatch',
4280: p_error_text => SUBSTRB(SQLERRM,1,240));
4281: fnd_msg_pub.count_and_get(p_count => x_msg_count,
4282: p_data => x_msg_data);
4839: and pbv1.approved_cost_plan_type_flag = 'Y')) cost_query,
4840: -- Modified revenue Query 3902490 to add calls to get_labor_qty_partial and get_equip_qty_partial
4841: -- for deriving quantity when rev_partially_impl_flag is passed as Y.
4842: (SELECT nvl(sum(nvl(decode(c_report_version_type,'REVENUE',
4843: decode(pfca.REV_PARTIALLY_IMPL_FLAG,'Y',PA_FP_CONTROL_ITEMS_UTILS.get_labor_qty_partial
4844: (pfca.CI_VERSION_TYPE
4845: ,c_appr_rev_cw_version_id
4846: ,pfca.CI_VERSION_ID
4847: ,pfca.people_effort
4850: 0),
4851: 0)
4852: ),0) as people_effort,
4853: nvl(sum(nvl(decode(c_report_version_type,'REVENUE',
4854: decode(pfca.REV_PARTIALLY_IMPL_FLAG,'Y',PA_FP_CONTROL_ITEMS_UTILS.get_equip_qty_partial
4855: (pfca.CI_VERSION_TYPE
4856: ,c_appr_rev_cw_version_id
4857: ,pfca.CI_VERSION_ID
4858: ,pfca.equipment_effort
4861: 0),
4862: 0)
4863: ),0) as equipment_effort,
4864: 0 as cost,
4865: nvl(sum(nvl(decode(pfca.REV_PARTIALLY_IMPL_FLAG,'Y',PA_FP_CONTROL_ITEMS_UTILS.get_pc_revenue_partial
4866: (pfca.CI_VERSION_TYPE
4867: ,c_appr_rev_cw_version_id
4868: ,pfca.CI_VERSION_ID
4869: ,pfca.revenue
6019: WHEN OTHERS THEN
6020: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6021: x_msg_count := 1;
6022: x_msg_data := SQLERRM;
6023: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
6024: ,p_procedure_name => 'get_summary_data');
6025:
6026: IF l_debug_mode = 'Y' THEN
6027: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
6070: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6071: BEGIN
6072: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6073: IF l_debug_mode = 'Y' THEN
6074: pa_debug.g_err_stage:='In get_labor_qty_partial - pa_fp_control_items_utils ';
6075: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6076: END IF;
6077:
6078: -------------------------------
6380: l_appr_rev_cw_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE;
6381: BEGIN
6382: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6383: IF l_debug_mode = 'Y' THEN
6384: pa_debug.g_err_stage:='In get_equip_qty_partial - pa_fp_control_items_utils ';
6385: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6386: END IF;
6387:
6388: -------------------------------
6691:
6692: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6693:
6694: IF l_debug_mode = 'Y' THEN
6695: pa_debug.g_err_stage:='In get_pc_revenue_partial - pa_fp_control_items_utils ';
6696: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6697: END IF;
6698:
6699: ----------------------------------------------------------------
6900:
6901: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6902:
6903: IF l_debug_mode = 'Y' THEN
6904: pa_debug.g_err_stage:='In get_pc_cost - pa_fp_control_items_utils ';
6905: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
6906: END IF;
6907:
6908: ----------------------------------------------------------------
7096: c_budget_version_id PA_BUDGET_VERSIONS.BUDGET_VERSION_ID%TYPE,
7097: c_project_id PA_PROJECTS_ALL.PROJECT_ID%TYPE,
7098: c_fin_plan_type_id PA_BUDGET_VERSIONS.FIN_PLAN_TYPE_ID%TYPE,
7099: c_version_type PA_BUDGET_VERSIONS.VERSION_TYPE%TYPE) IS
7100: select nvl(sum(nvl(PA_FP_CONTROL_ITEMS_UTILS.get_labor_qty_partial(
7101: pfca.CI_VERSION_TYPE,
7102: c_budget_version_id,
7103: pfca.CI_VERSION_ID,
7104: pfca.people_effort,
7102: c_budget_version_id,
7103: pfca.CI_VERSION_ID,
7104: pfca.people_effort,
7105: pfca.PT_CT_VERSION_TYPE),0)),0) as people_effort
7106: ,nvl(sum(nvl(PA_FP_CONTROL_ITEMS_UTILS.get_equip_qty_partial(
7107: pfca.CI_VERSION_TYPE,
7108: c_budget_version_id,
7109: pfca.CI_VERSION_ID,
7110: pfca.equipment_effort,
7108: c_budget_version_id,
7109: pfca.CI_VERSION_ID,
7110: pfca.equipment_effort,
7111: pfca.PT_CT_VERSION_TYPE),0)),0) as equipment_effort
7112: ,nvl(sum(nvl(PA_FP_CONTROL_ITEMS_UTILS.get_pc_cost(
7113: pfca.CI_VERSION_TYPE,
7114: c_budget_version_id,
7115: pfca.CI_VERSION_ID,
7116: pfca.RAW_COST,
7115: pfca.CI_VERSION_ID,
7116: pfca.RAW_COST,
7117: pfca.BURDENED_COST,
7118: pfca.PT_CT_VERSION_TYPE),0)),0) as cost
7119: ,nvl(sum(nvl(PA_FP_CONTROL_ITEMS_UTILS.get_pc_revenue_partial(
7120: pfca.CI_VERSION_TYPE,
7121: c_budget_version_id,
7122: pfca.CI_VERSION_ID,
7123: pfca.REVENUE,
7520: WHEN OTHERS THEN
7521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7522: x_msg_count := 1;
7523: x_msg_data := SQLERRM;
7524: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
7525: ,p_procedure_name => 'get_not_included');
7526:
7527: IF l_debug_mode = 'Y' THEN
7528: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
7566: BEGIN
7567: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7568:
7569: IF l_debug_mode = 'Y' THEN
7570: pa_debug.g_err_stage:='In is_impact_exists - pa_fp_control_items_utils ';
7571: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7572: END IF;
7573: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7574: p_debug_mode => l_debug_mode );
7671: BEGIN
7672: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
7673:
7674: IF l_debug_mode = 'Y' THEN
7675: pa_debug.g_err_stage:='is_fin_impact_enabled - pa_fp_control_items_utils ';
7676: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
7677: END IF;
7678: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
7679: p_debug_mode => l_debug_mode );
7868: IF c_vers_for_ci%ISOPEN THEN
7869: CLOSE c_vers_for_ci;
7870: END IF;
7871:
7872: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
7873: ,p_procedure_name => 'GET_CI_VERSIONS');
7874: IF P_PA_DEBUG_MODE = 'Y' THEN
7875: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
7876: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8218:
8219: X_partially_impl_flag := 'N';
8220: i := 1;
8221:
8222: Pa_Fp_Control_Items_Utils.get_ci_versions(
8223: P_ci_id => p_ci_id,
8224: X_cost_budget_version_id => x_cost_ci_version_id,
8225: X_rev_budget_version_id => x_rev_ci_version_id,
8226: X_all_budget_version_id => x_all_ci_version_id,
8254: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8255: END IF;
8256: */
8257:
8258: x_autobaseline_project := Pa_Fp_Control_Items_Utils.IsFpAutoBaselineEnabled(p_project_id => p_project_id);
8259:
8260: -- Loop for each plan type attached to the project(excluding work plan and org forecast plan types)
8261: FOR c_plan_type_rec IN c_plan_types_attached LOOP
8262: l_rev_impl_flag:=null;
8259:
8260: -- Loop for each plan type attached to the project(excluding work plan and org forecast plan types)
8261: FOR c_plan_type_rec IN c_plan_types_attached LOOP
8262: l_rev_impl_flag:=null;
8263: Pa_Fp_Control_Items_Utils.get_impl_details(
8264: P_fin_plan_type_id => c_plan_type_rec.fin_plan_type_id,
8265: P_project_id => p_project_id,
8266: P_app_rev_plan_type_flag => c_plan_type_rec.approved_rev_plan_type_flag,
8267: P_ci_id => p_ci_id,
8410: l_ci_version_type := 'ALL';
8411: END IF;
8412:
8413: x_rem_proj_revenue :=
8414: Pa_Fp_Control_Items_Utils.get_pc_revenue_partial(
8415: p_version_type => l_ci_version_type,
8416: p_budget_version_id => l_budget_version_id,
8417: p_ci_version_id => nvl(x_rev_ci_version_id,x_all_ci_version_id));
8418:
8416: p_budget_version_id => l_budget_version_id,
8417: p_ci_version_id => nvl(x_rev_ci_version_id,x_all_ci_version_id));
8418:
8419: x_rem_labor_qty :=
8420: Pa_Fp_Control_Items_Utils.get_labor_qty_partial(
8421: p_version_type => l_ci_version_type,
8422: p_budget_version_id => l_budget_version_id,
8423: p_ci_version_id => nvl(x_rev_ci_version_id,x_all_ci_version_id));
8424:
8422: p_budget_version_id => l_budget_version_id,
8423: p_ci_version_id => nvl(x_rev_ci_version_id,x_all_ci_version_id));
8424:
8425: x_rem_equip_qty :=
8426: Pa_Fp_Control_Items_Utils.get_equip_qty_partial(
8427: p_version_type => l_ci_version_type,
8428: p_budget_version_id => l_budget_version_id,
8429: p_ci_version_id => nvl(x_rev_ci_version_id,x_all_ci_version_id));
8430:
8535: i := i + 1;
8536: END LOOP;
8537:
8538: -- Bug 11708214
8539: Pa_Fp_Control_Items_Utils.get_fp_ci_agreement_dtls(p_project_id => p_project_id,
8540: p_ci_id => p_ci_id,
8541: x_agreement_num => x_agreement_num,
8542: x_agreement_amount => l_agreement_amount,
8543: x_agreement_currency_code => l_agreement_currency_code,
8593: IF c_plan_types_attached%ISOPEN THEN
8594: CLOSE c_plan_types_attached;
8595: END IF;
8596:
8597: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
8598: ,p_procedure_name => 'GET_PLAN_TYPES_FOR_IMPL');
8599: IF l_DEBUG_MODE = 'Y' THEN
8600: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
8601: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8809: x_cost_impact_impl_flag :='Y';
8810: x_rev_impact_impl_flag := 'Y';
8811:
8812: 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
8813: Pa_Fp_Control_Items_Utils.GET_CI_VERSIONS(P_ci_id => p_ci_id,
8814: X_cost_budget_version_id => l_ci_cost_version_id,
8815: X_rev_budget_version_id => l_ci_rev_version_id,
8816: X_all_budget_version_id => l_ci_all_version_id,
8817: x_return_status => l_return_status,
9053: END IF;
9054:
9055:
9056: IF l_app_rev_plan_type_flag = 'Y' THEN
9057: Pa_Fp_Control_Items_Utils.get_fp_ci_agreement_dtls(p_project_id => p_project_id,
9058: p_ci_id => p_ci_id,
9059: x_agreement_num => x_agreement_num,
9060: x_agreement_amount => l_agreement_amount,
9061: x_agreement_currency_code => l_agreement_currency_code,
9240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9241: x_msg_count := 1;
9242: x_msg_data := SQLERRM;
9243:
9244: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
9245: ,p_procedure_name => 'GET_IMPL_DETAILS');
9246: IF P_PA_DEBUG_MODE = 'Y' THEN
9247: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9248: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9370: IF p_ci_cost_version_id IS NULL AND
9371: p_ci_rev_version_id IS NULL AND
9372: p_ci_all_version_id IS NULL THEN
9373:
9374: Pa_Fp_Control_Items_Utils.get_ci_versions
9375: (p_ci_id => p_ci_id,
9376: x_cost_budget_version_id => l_cost_ci_version_id,
9377: x_rev_budget_version_id => l_rev_ci_version_id,
9378: x_all_budget_version_id => l_all_ci_version_id,
9382:
9383: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9384:
9385: IF l_debug_mode = 'Y' THEN
9386: pa_debug.g_err_stage:='Called API Pa_Fp_Control_Items_Utils.get_ci_versions returned error';
9387: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9388: END IF;
9389:
9390: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9480: pa_debug.write( l_module_name,pa_debug.g_err_stage,3);
9481: END IF;
9482:
9483:
9484: pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj
9485: (p_project_id => p_project_id,
9486: x_app_cost_cw_ver_id => x_app_cost_cw_ver_id,
9487: x_app_rev_cw_ver_id => x_app_rev_cw_ver_id,
9488: x_msg_data => x_msg_data,
9491:
9492: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9493:
9494: IF l_debug_mode = 'Y' THEN
9495: pa_debug.g_err_stage:='Called API pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj returned error';
9496: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9497: END IF;
9498:
9499: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9865: BEGIN
9866: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
9867:
9868: IF l_debug_mode = 'Y' THEN
9869: pa_debug.g_err_stage:='get_impl_agr_revenue - pa_fp_control_items_utils ';
9870: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9871: END IF;
9872: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
9873: p_debug_mode => l_debug_mode );
10141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10142: x_msg_count := 1;
10143: x_msg_data := SQLERRM;
10144:
10145: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'Pa_Fp_Control_Items_Utils'
10146: ,p_procedure_name => 'get_txn_curr_code_of_ci_ver');
10147:
10148: IF P_PA_DEBUG_MODE = 'Y' THEN
10149: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10177: BEGIN
10178: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10179:
10180: IF l_debug_mode = 'Y' THEN
10181: pa_debug.g_err_stage:='validate_fp_ci_type_delete - pa_fp_control_items_utils ';
10182: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
10183: END IF;
10184: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
10185: p_debug_mode => l_debug_mode );
10316: RETURN 'Y';
10317:
10318: END check_valid_combo;
10319:
10320: END Pa_Fp_Control_Items_Utils;