[Home] [Help]
1: PACKAGE BODY PA_FP_CALC_PLAN_PKG AS
2: --$Header: PAFPCALB.pls 120.25.12010000.6 2008/12/05 10:10:01 rthumma ship $
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_FP_CALC_PLAN_PKG';
5: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
6:
7: skip_record EXCEPTION;
8: g_stage Varchar2(1000);
9: g_rowcount NUMBER;
489: ,p_dbug_flag VARCHAR2 default 'N') is
490:
491: BEGIN
492: --calc_log(P_MSG);
493: IF (P_PA_DEBUG_MODE = 'Y' ) Then
494: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
495: PA_DEBUG.write
496: (x_Module => g_module_name
497: ,x_Msg => pa_debug.g_err_stage
490:
491: BEGIN
492: --calc_log(P_MSG);
493: IF (P_PA_DEBUG_MODE = 'Y' ) Then
494: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
495: PA_DEBUG.write
496: (x_Module => g_module_name
497: ,x_Msg => pa_debug.g_err_stage
498: ,x_Log_Level => 3);
491: BEGIN
492: --calc_log(P_MSG);
493: IF (P_PA_DEBUG_MODE = 'Y' ) Then
494: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
495: PA_DEBUG.write
496: (x_Module => g_module_name
497: ,x_Msg => pa_debug.g_err_stage
498: ,x_Log_Level => 3);
499: --pa_debug.write_file('LOG: '||pa_debug.g_err_stage);
493: IF (P_PA_DEBUG_MODE = 'Y' ) Then
494: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
495: PA_DEBUG.write
496: (x_Module => g_module_name
497: ,x_Msg => pa_debug.g_err_stage
498: ,x_Log_Level => 3);
499: --pa_debug.write_file('LOG: '||pa_debug.g_err_stage);
500: END IF;
501: /* Incase of performance issue without enabling the debugs get the timings for each API */
495: PA_DEBUG.write
496: (x_Module => g_module_name
497: ,x_Msg => pa_debug.g_err_stage
498: ,x_Log_Level => 3);
499: --pa_debug.write_file('LOG: '||pa_debug.g_err_stage);
500: END IF;
501: /* Incase of performance issue without enabling the debugs get the timings for each API */
502: /**
503: IF (P_PA_DEBUG_MODE = 'N' AND nvl(p_dbug_flag,'N') = 'Y' ) THEN
499: --pa_debug.write_file('LOG: '||pa_debug.g_err_stage);
500: END IF;
501: /* Incase of performance issue without enabling the debugs get the timings for each API */
502: /**
503: IF (P_PA_DEBUG_MODE = 'N' AND nvl(p_dbug_flag,'N') = 'Y' ) THEN
504: FND_LOG_REPOSITORY.STR_UNCHKED_INT_WITH_CONTEXT
505: (LOG_LEVEL => 3
506: ,MODULE => g_module_name
507: ,MESSAGE_TEXT => 'LOG:'||p_msg
558: BEGIN
559: x_return_status := 'S';
560: x_msg_count := 0;
561: x_msg_data := NULL;
562: If P_PA_DEBUG_MODE = 'Y' Then
563: print_msg('Inside clear_etc_rev_other_rejectns API');
564: End If;
565:
566: IF p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')
581: ,g_etcrevrej_start_date_tab
582: ,g_etcrevrej_end_date_tab;
583: CLOSE cur_get_rejLines;
584:
585: If P_PA_DEBUG_MODE = 'Y' Then
586: print_msg('Number of etc revenue rejected lines cached =['||g_etcrevrej_raId_tab.count||']');
587: End If;
588: ElsIf p_mode = 'CLEAR_REJECTIONS' Then
589: If g_etcrevrej_raId_tab.COUNT > 0 Then --{
617: )
618: RETURN bl.budget_line_id
619: BULK COLLECT INTO l_budget_line_id_tab;
620:
621: If P_PA_DEBUG_MODE = 'Y' Then
622: print_msg('Number of etc revenue rejected lines cleared =['||l_budget_line_id_tab.count||']');
623: End If;
624: END IF; --}
625:
686:
687: l_msg Varchar2(2000);
688: BEGIN
689: /**
690: IF P_PA_DEBUG_MODE = 'Y' Then
691: FOR i IN cur_rltmp LOOP
692: l_msg := 'RollupTmp:blId['||i.budget_line_id||']RaId['||i.resource_assignment_id||']TxnCur['||i.txn_currency_code||']';
693: l_msg := l_msg||'SD['||i.start_date||']ED['||i.end_date||']Qty['||i.quantity||']CstRtOvr['||i.rw_cost_rate_override||']';
694: l_msg := l_msg||'BurdRtOvr['||i.burden_cost_rate_override||']BillRtOvr['||i.bill_rate_override||']';
1070: l_rowCount1 := sql%Rowcount;
1071: --print_msg('Number of records inserted ['||l_rowCount1||']');
1072:
1073: If l_rowCount1 > 0 Then
1074: If P_PA_DEBUG_MODE = 'Y' Then
1075: print_msg('Calling pa_res_asg_currency_pub.maintain_data for deleting records');
1076: End If;
1077: pa_res_asg_currency_pub.MAINTAIN_DATA
1078: (P_FP_COLS_REC => G_FP_COLS_REC
1083: ,X_RETURN_STATUS => x_return_status
1084: ,X_MSG_COUNT => x_msg_count
1085: ,X_MSG_DATA => x_msg_data
1086: );
1087: If P_PA_DEBUG_MODE = 'Y' Then
1088: print_msg('Return Status of the api ['||x_return_status||']');
1089: End If;
1090: End If;
1091:
1092: End If;
1093:
1094: IF p_call_raTxn_rollup_flag = 'Y' AND l_rowCount > 0 Then
1095: -- Call new entity rollup api
1096: If P_PA_DEBUG_MODE = 'Y' Then
1097: print_msg('Calling pa_res_asg_currency_pub.maintain_data');
1098: End If;
1099: pa_res_asg_currency_pub.MAINTAIN_DATA
1100: (P_FP_COLS_REC => G_FP_COLS_REC
1105: ,X_RETURN_STATUS => x_return_status
1106: ,X_MSG_COUNT => x_msg_count
1107: ,X_MSG_DATA => x_msg_data
1108: );
1109: If P_PA_DEBUG_MODE = 'Y' Then
1110: print_msg('Return Status of the api ['||x_return_status||']');
1111: End If;
1112: IF nvl(X_RETURN_STATUS,'S') <> 'S' Then
1113: X_RETURN_STATUS := 'E';
1132: ,x_return_status OUT NOCOPY VARCHAR2
1133: ) IS
1134: BEGIN
1135: x_return_status := 'S';
1136: IF p_pa_debug_mode = 'Y' Then
1137: print_rlTmp_Values;
1138: End If;
1139: UPDATE pa_fp_rollup_tmp tmp
1140: SET (tmp.rw_cost_rate_override
1195: and tmp.start_date between tmp2.start_date and tmp2.end_date)
1196: )
1197: );
1198:
1199: IF p_pa_debug_mode = 'Y' Then
1200: print_msg('Number of rows updated in the rollup tmp with raTxnOvr ['||sql%rowCount||']');
1201: --print_rlTmp_Values;
1202: NULL;
1203: End If;
1398: WHERE project_id = p_project_id;
1399: BEGIN
1400: x_return_status := 'S';
1401: g_stage := 'Initialize_fp_cur_details:100';
1402: If P_PA_DEBUG_MODE = 'Y' Then
1403: print_msg(' ENTERED Initialize_fp_cur_details calling get_fp_options_data');
1404: End If;
1405: -- initialize --
1406: pa_fp_multi_currency_pkg.g_project_id := NULL;
1529: ELSE
1530: /* Bug fix:4272944: The following new api call is added to insert zero qty budget lines for Funding baseline */
1531: IF (NVL(G_baseline_funding_flag,'N') = 'Y'
1532: AND NVL(g_bv_approved_rev_flag,'N') = 'Y') THEN
1533: If P_PA_DEBUG_MODE = 'Y' Then
1534: print_msg('Calling PA_FP_CALC_UTILS.InsertFunding_ReqdLines API');
1535: End If;
1536: PA_FP_CALC_UTILS.InsertFunding_ReqdLines
1537: ( p_budget_verson_id => g_budget_version_id
2032: AND EXISTS (select null
2033: FROM pa_fp_spread_calc_tmp otmp
2034: WHERE otmp.resource_assignment_id = tmp1.resource_assignment_id
2035: );
2036: If P_PA_DEBUG_MODE = 'Y' Then
2037: print_msg('Number of rows updated for ratebasedFlag for Pjirollup['||sql%rowcount||']');
2038: End If;
2039:
2040: SELECT
2305: x_msg_data := NULL;
2306: l_return_status := 'S';
2307: l_msg_count := 0;
2308: l_msg_data := NULL;
2309: IF p_pa_debug_mode = 'Y' Then
2310: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_PCPFCrounding_diff');
2311: End If;
2312:
2313: g_stage := 'Update_PCPFC_rounding_diff:100';
2306: l_return_status := 'S';
2307: l_msg_count := 0;
2308: l_msg_data := NULL;
2309: IF p_pa_debug_mode = 'Y' Then
2310: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_PCPFCrounding_diff');
2311: End If;
2312:
2313: g_stage := 'Update_PCPFC_rounding_diff:100';
2314: pa_debug.g_err_stage := 'Entered Update_PCPFCrounding_diff API';
2310: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_PCPFCrounding_diff');
2311: End If;
2312:
2313: g_stage := 'Update_PCPFC_rounding_diff:100';
2314: pa_debug.g_err_stage := 'Entered Update_PCPFCrounding_diff API';
2315: --print_msg(pa_debug.g_err_stage);
2316:
2317: IF p_wp_cost_enabled_flag = 'Y' Then
2318: /* initialize the plsql tabs */
2311: End If;
2312:
2313: g_stage := 'Update_PCPFC_rounding_diff:100';
2314: pa_debug.g_err_stage := 'Entered Update_PCPFCrounding_diff API';
2315: --print_msg(pa_debug.g_err_stage);
2316:
2317: IF p_wp_cost_enabled_flag = 'Y' Then
2318: /* initialize the plsql tabs */
2319: l_resource_assignment_tab.delete;
2499: x_msg_count := l_msg_count;
2500: x_msg_data := l_msg_data;
2501: g_stage := 'Update_PCPFC_rounding_diff:103';
2502: -- reset error stack
2503: IF p_pa_debug_mode = 'Y' Then
2504: print_msg('End of Update_PCPFCrounding_diff API return Sts['||x_return_status||']');
2505: pa_debug.reset_err_stack;
2506: End If;
2507:
2501: g_stage := 'Update_PCPFC_rounding_diff:103';
2502: -- reset error stack
2503: IF p_pa_debug_mode = 'Y' Then
2504: print_msg('End of Update_PCPFCrounding_diff API return Sts['||x_return_status||']');
2505: pa_debug.reset_err_stack;
2506: End If;
2507:
2508: EXCEPTION
2509: WHEN OTHERS THEN
2513: fnd_msg_pub.add_exc_msg
2514: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
2515: ,p_procedure_name => 'Update_PCPFC_rounding_diff' );
2516: print_msg('Failed in Update_PCPFC_rounding_diff substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
2517: IF p_pa_debug_mode = 'Y' Then
2518: pa_debug.reset_err_stack;
2519: End If;
2520: RAISE;
2521: END Update_PCPFC_rounding_diff;
2514: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
2515: ,p_procedure_name => 'Update_PCPFC_rounding_diff' );
2516: print_msg('Failed in Update_PCPFC_rounding_diff substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
2517: IF p_pa_debug_mode = 'Y' Then
2518: pa_debug.reset_err_stack;
2519: End If;
2520: RAISE;
2521: END Update_PCPFC_rounding_diff;
2522:
2607: x_msg_data := NULL;
2608: l_return_status := 'S';
2609: l_msg_count := 0;
2610: l_msg_data := NULL;
2611: IF p_pa_debug_mode = 'Y' Then
2612: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_rounding_diff');
2613: End If;
2614:
2615: g_stage := 'Update_rounding_diff:100';
2608: l_return_status := 'S';
2609: l_msg_count := 0;
2610: l_msg_data := NULL;
2611: IF p_pa_debug_mode = 'Y' Then
2612: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_rounding_diff');
2613: End If;
2614:
2615: g_stage := 'Update_rounding_diff:100';
2616: pa_debug.g_err_stage := 'Entered Update_rounding_diff API';
2612: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_rounding_diff');
2613: End If;
2614:
2615: g_stage := 'Update_rounding_diff:100';
2616: pa_debug.g_err_stage := 'Entered Update_rounding_diff API';
2617: --print_msg(pa_debug.g_err_stage);
2618:
2619: IF p_wp_cost_enabled_flag = 'Y' Then
2620: /* initialize the plsql tabs */
2613: End If;
2614:
2615: g_stage := 'Update_rounding_diff:100';
2616: pa_debug.g_err_stage := 'Entered Update_rounding_diff API';
2617: --print_msg(pa_debug.g_err_stage);
2618:
2619: IF p_wp_cost_enabled_flag = 'Y' Then
2620: /* initialize the plsql tabs */
2621: l_resource_assignment_tab.delete;
2729: x_msg_count := l_msg_count;
2730: x_msg_data := l_msg_data;
2731: g_stage := 'Update_rounding_diff:104';
2732: -- reset error stack
2733: IF p_pa_debug_mode = 'Y' Then
2734: print_msg('End of Update_rounding_diff API return Sts['||x_return_status||']');
2735: pa_debug.reset_err_stack;
2736: End If;
2737:
2731: g_stage := 'Update_rounding_diff:104';
2732: -- reset error stack
2733: IF p_pa_debug_mode = 'Y' Then
2734: print_msg('End of Update_rounding_diff API return Sts['||x_return_status||']');
2735: pa_debug.reset_err_stack;
2736: End If;
2737:
2738: EXCEPTION
2739: WHEN OTHERS THEN
2743: fnd_msg_pub.add_exc_msg
2744: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
2745: ,p_procedure_name => 'Update_rounding_diff' );
2746: print_msg('Failed in Update_rounding_diff substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
2747: IF p_pa_debug_mode = 'Y' Then
2748: pa_debug.reset_err_stack;
2749: End If;
2750: RAISE;
2751: END Update_rounding_diff;
2744: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
2745: ,p_procedure_name => 'Update_rounding_diff' );
2746: print_msg('Failed in Update_rounding_diff substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
2747: IF p_pa_debug_mode = 'Y' Then
2748: pa_debug.reset_err_stack;
2749: End If;
2750: RAISE;
2751: END Update_rounding_diff;
2752:
2849: x_return_status := FND_API.G_RET_STS_SUCCESS;
2850: x_msg_count := NULL;
2851: x_msg_data := NULL;
2852: l_return_status := 'S';
2853: IF p_pa_debug_mode = 'Y' Then
2854: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.validate_inputs');
2855: pa_debug.g_err_stage := 'Entered PA_FP_CALC_PLAN_PKG.validate_inputs';
2856: End If;
2857: g_stage := 'validate_inputs:100';
2850: x_msg_count := NULL;
2851: x_msg_data := NULL;
2852: l_return_status := 'S';
2853: IF p_pa_debug_mode = 'Y' Then
2854: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.validate_inputs');
2855: pa_debug.g_err_stage := 'Entered PA_FP_CALC_PLAN_PKG.validate_inputs';
2856: End If;
2857: g_stage := 'validate_inputs:100';
2858: /*
2851: x_msg_data := NULL;
2852: l_return_status := 'S';
2853: IF p_pa_debug_mode = 'Y' Then
2854: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.validate_inputs');
2855: pa_debug.g_err_stage := 'Entered PA_FP_CALC_PLAN_PKG.validate_inputs';
2856: End If;
2857: g_stage := 'validate_inputs:100';
2858: /*
2859: -- Check to see if Budget_version_id, project_id, or source_context
2904: End If;
2905:
2906:
2907: IF l_return_status = 'S' AND p_source_context IS NULL THEN
2908: pa_debug.g_err_stage := to_char(l_stage)||': Planning Transaction Calculate'
2909: ||' requires Source Context.'
2910: ||' Valid Values: RESOURCE_ASSIGNMENT or BUDGET_LINE'
2911: ||' -- Returning';
2912: --print_msg('validate_inputs: ' || g_module_name||pa_debug.g_err_stage);
2908: pa_debug.g_err_stage := to_char(l_stage)||': Planning Transaction Calculate'
2909: ||' requires Source Context.'
2910: ||' Valid Values: RESOURCE_ASSIGNMENT or BUDGET_LINE'
2911: ||' -- Returning';
2912: --print_msg('validate_inputs: ' || g_module_name||pa_debug.g_err_stage);
2913: l_error_msg_code := 'PA_FP_CALC_SRC_CONTEXT_REQ';
2914: l_return_status := 'E';
2915: End IF ;
2916:
3258: ,p_value2 => p_project_id
3259: );
3260: END IF;
3261: x_return_status := l_return_status;
3262: IF p_pa_debug_mode = 'Y' Then
3263: print_msg('Leaving validate_inputs x_return_status : '||x_return_status);
3264: pa_debug.reset_err_stack;
3265: End If;
3266:
3260: END IF;
3261: x_return_status := l_return_status;
3262: IF p_pa_debug_mode = 'Y' Then
3263: print_msg('Leaving validate_inputs x_return_status : '||x_return_status);
3264: pa_debug.reset_err_stack;
3265: End If;
3266:
3267: EXCEPTION
3268: WHEN OTHERS THEN
3272: fnd_msg_pub.add_exc_msg
3273: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
3274: ,p_procedure_name => 'validate_inputs' );
3275: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
3276: IF p_pa_debug_mode = 'Y' Then
3277: pa_debug.reset_err_stack;
3278: End If;
3279: RAISE;
3280:
3273: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
3274: ,p_procedure_name => 'validate_inputs' );
3275: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
3276: IF p_pa_debug_mode = 'Y' Then
3277: pa_debug.reset_err_stack;
3278: End If;
3279: RAISE;
3280:
3281: END validate_inputs;
3471:
3472: BEGIN
3473: l_return_status := 'S';
3474: x_return_status := 'S';
3475: If P_PA_DEBUG_MODE = 'Y' Then
3476: print_msg('Entered PreProcess_BlkProgress_lines api ()');
3477: End If;
3478: IF p_etc_start_date is NOT NULL Then
3479: g_stage :='PreProcess_BlkProgress_lines:100';
3529: End If;
3530: End If;
3531: g_stage := 'PreProcess_BlkProgress_lines:101';
3532: x_return_status := l_return_status;
3533: If P_PA_DEBUG_MODE = 'Y' Then
3534: print_msg('Leaving PreProcess_BlkProgress_lines api() retSts['||x_return_status||']');
3535: End If;
3536: EXCEPTION
3537: WHEN OTHERS THEN
3594: l_return_status := 'S';
3595: x_return_status := 'S';
3596: l_spread_amounts_flag := x_spread_amount_flag;
3597: l_app_prg_flag := x_apply_progress_flag;
3598: If P_PA_DEBUG_MODE = 'Y' Then
3599: print_msg('Entered Pre_process_progress_lines api ()');
3600: End If;
3601:
3602: IF p_etc_start_date is NOT NULL Then
3664: g_stage := 'Pre_process_progress_lines:101';
3665: x_return_status := l_return_status;
3666: x_spread_amount_flag := l_spread_amounts_flag;
3667: x_apply_progress_flag := l_app_prg_flag;
3668: If P_PA_DEBUG_MODE = 'Y' Then
3669: print_msg('Leaving Pre_process_progress_lines api() retSts['||x_return_status||']SpreadFlag['||x_spread_amount_flag||']x_apply_progress_flag['||x_apply_progress_flag||']');
3670: End If;
3671: EXCEPTION
3672: WHEN INVALID_EXCPETION THEN
3699: l_version_type pa_budget_versions.version_type%type;
3700: l_error_msg_code Varchar2(100);
3701: INVALID_EXCEPTION EXCEPTION;
3702: BEGIN
3703: IF p_pa_debug_mode = 'Y' Then
3704: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Get_Agreement_Details');
3705: print_msg('Entered Get_Agreement_Details Api');
3706: End If;
3707: x_return_status := 'S';
3700: l_error_msg_code Varchar2(100);
3701: INVALID_EXCEPTION EXCEPTION;
3702: BEGIN
3703: IF p_pa_debug_mode = 'Y' Then
3704: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Get_Agreement_Details');
3705: print_msg('Entered Get_Agreement_Details Api');
3706: End If;
3707: x_return_status := 'S';
3708:
3723: G_AGR_CONV_REQD_FLAG := NVL(l_agr_con_reqd_flag,'N');
3724: G_AGR_CURRENCY_CODE := x_agr_curr_code;
3725: --print_msg('Leaving Get_Agreement_Details G_AGR_CONV_REQD_FLAG['||G_AGR_CONV_REQD_FLAG||']G_AGR_CURRENCY_CODE['||G_AGR_CURRENCY_CODE||']');
3726: -- reset error stack
3727: IF p_pa_debug_mode = 'Y' Then
3728: pa_debug.reset_err_stack;
3729: End If;
3730:
3731: EXCEPTION
3724: G_AGR_CURRENCY_CODE := x_agr_curr_code;
3725: --print_msg('Leaving Get_Agreement_Details G_AGR_CONV_REQD_FLAG['||G_AGR_CONV_REQD_FLAG||']G_AGR_CURRENCY_CODE['||G_AGR_CURRENCY_CODE||']');
3726: -- reset error stack
3727: IF p_pa_debug_mode = 'Y' Then
3728: pa_debug.reset_err_stack;
3729: End If;
3730:
3731: EXCEPTION
3732:
3735: fnd_msg_pub.add_exc_msg
3736: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
3737: ,p_procedure_name => 'Get_Agreement_Details' );
3738: print_msg('Failed in Get_Agreement_Details substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
3739: IF p_pa_debug_mode = 'Y' Then
3740: pa_debug.reset_err_stack;
3741: End If;
3742: RAISE;
3743: END Get_Agreement_Details;
3736: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
3737: ,p_procedure_name => 'Get_Agreement_Details' );
3738: print_msg('Failed in Get_Agreement_Details substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
3739: IF p_pa_debug_mode = 'Y' Then
3740: pa_debug.reset_err_stack;
3741: End If;
3742: RAISE;
3743: END Get_Agreement_Details;
3744:
4024:
4025: END initUpdPlsqlTabs;
4026:
4027: BEGIN
4028: IF p_pa_debug_mode = 'Y' Then
4029: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.clear_closed_period_etcs');
4030: End If;
4031: x_return_status := 'S';
4032: l_stage := 'Entered clear_closed_period_etcs api ETC Date['||p_etc_start_date||']';
4025: END initUpdPlsqlTabs;
4026:
4027: BEGIN
4028: IF p_pa_debug_mode = 'Y' Then
4029: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.clear_closed_period_etcs');
4030: End If;
4031: x_return_status := 'S';
4032: l_stage := 'Entered clear_closed_period_etcs api ETC Date['||p_etc_start_date||']';
4033: g_stage := 'clear_closed_period_etcs:100';
4060: CLOSE cur_bl_closed_period;
4061:
4062: IF l_budget_Line_id_tab.COUNT > 0 Then
4063: g_stage := 'clear_closed_period_etcs:101';
4064: If P_PA_DEBUG_MODE = 'Y' Then
4065: print_msg('There exists a budgetLine prior to ETC startdate with unbalanced amt NumOfLines['||l_budget_Line_id_tab.COUNT||']');
4066: End if;
4067: FOR i IN l_budget_Line_id_tab.FIRST .. l_budget_Line_id_tab.LAST LOOP
4068: -- call reporting api to update these amounts
4526: initPlsqlTabs;
4527: initUpdPlsqlTabs;
4528: g_stage := 'clear_closed_period_etcs:107';
4529: --reset error stack
4530: IF p_pa_debug_mode = 'Y' Then
4531: print_msg('Leaving clear_closed_period_etcs API with retSts['||x_return_status||']');
4532: pa_debug.reset_err_stack;
4533: End If;
4534:
4528: g_stage := 'clear_closed_period_etcs:107';
4529: --reset error stack
4530: IF p_pa_debug_mode = 'Y' Then
4531: print_msg('Leaving clear_closed_period_etcs API with retSts['||x_return_status||']');
4532: pa_debug.reset_err_stack;
4533: End If;
4534:
4535: EXCEPTION
4536: WHEN OTHERS THEN
4537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4538: fnd_msg_pub.add_exc_msg
4539: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
4540: ,p_procedure_name => 'clear_closed_period_etcs' );
4541: IF p_pa_debug_mode = 'Y' Then
4542: pa_debug.reset_err_stack;
4543: end if;
4544: RAISE;
4545:
4538: fnd_msg_pub.add_exc_msg
4539: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
4540: ,p_procedure_name => 'clear_closed_period_etcs' );
4541: IF p_pa_debug_mode = 'Y' Then
4542: pa_debug.reset_err_stack;
4543: end if;
4544: RAISE;
4545:
4546: END clear_closed_period_etcs;
4553: ) IS
4554: BEGIN
4555: x_return_status := 'S';
4556: g_stage := 'Upd_spread_calc_tmp:100';
4557: If P_PA_DEBUG_MODE = 'Y' Then
4558: print_msg('Entered Upd_spread_calc_tmp API');
4559: End If;
4560: IF g_plan_raId_tab.COUNT > 0 THEN
4561: If P_PA_DEBUG_MODE = 'Y' Then
4557: If P_PA_DEBUG_MODE = 'Y' Then
4558: print_msg('Entered Upd_spread_calc_tmp API');
4559: End If;
4560: IF g_plan_raId_tab.COUNT > 0 THEN
4561: If P_PA_DEBUG_MODE = 'Y' Then
4562: print_msg('Number Of rowsUpdated['||g_plan_raId_tab.COUNT||']');
4563: End If;
4564: FORALL i IN g_plan_raId_tab.FIRST .. g_plan_raId_tab.LAST
4565: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP_N1) */ PA_FP_SPREAD_CALC_TMP tmp -- bug 4873834
4623: );
4624: End If;
4625:
4626: If g_rtChanged_RaId_tab.COUNT > 0 Then
4627: If P_PA_DEBUG_MODE = 'Y' Then
4628: print_msg('Updating spread calc tmp with rate overrides');
4629: End If;
4630: FORALL i IN g_rtChanged_RaId_tab.FIRST .. g_rtChanged_RaId_tab.LAST
4631: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP_N1) */ pa_fp_spread_calc_tmp tmp
4641: OR
4642: ((g_source_context = 'BUDGET_LINE')
4643: and tmp.start_date BETWEEN g_rtChanged_sDate_tab(i) AND g_rtChanged_eDate_tab(i)
4644: ));
4645: If P_PA_DEBUG_MODE = 'Y' Then
4646: print_msg('Number of rows updated for RateChanges['||sql%rowcount||']');
4647: End If;
4648: End If;
4649:
4927: ,l_markup_calculation_flag_tab;
4928: CLOSE fptmpDetails;
4929: IF l_rowid_tab.COUNT > 0 THEN
4930: /*
4931: If NVL(p_pa_debug_mode,'N') = 'Y' Then
4932: for i in cur_dbgGenRtOvr loop
4933: print_msg('Generation context['||p_generation_context||']');
4934: print_msg('GenRtRaid['||i.raid||']cur['||i.curcode||']perNa['||i.period_name||']CstRtOv['||i.cost_rate_override||']');
4935: print_msg('bdRtOvr['||i.burden_rate_override||']billRtOvr['||i.bill_rate_override||']markup_calculation_flag[||i.markup_calculation_flag||']');
5140: x_return_status := FND_API.G_RET_STS_SUCCESS;
5141: l_return_status := 'S';
5142: x_msg_data := NULL;
5143: g_stage := 'delete_budget_lines:100';
5144: IF p_pa_debug_mode = 'Y' Then
5145: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.delete_budget_lines');
5146: print_msg('Entered PA_FP_CALC_PLAN_PKG.delete_budget_lines ResAssId['||p_resource_assignment_id||']spreadDate['||g_spread_from_date||']');
5147: End If;
5148: l_stage := 7800;
5141: l_return_status := 'S';
5142: x_msg_data := NULL;
5143: g_stage := 'delete_budget_lines:100';
5144: IF p_pa_debug_mode = 'Y' Then
5145: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.delete_budget_lines');
5146: print_msg('Entered PA_FP_CALC_PLAN_PKG.delete_budget_lines ResAssId['||p_resource_assignment_id||']spreadDate['||g_spread_from_date||']');
5147: End If;
5148: l_stage := 7800;
5149: OPEN get_delete_bl_id ;
5548: End IF;
5549:
5550: END IF;
5551: x_return_status := l_return_status ;
5552: IF p_pa_debug_mode = 'Y' Then
5553: print_msg('x_return_status : '||x_return_status);
5554: print_msg('Leaving delete_budget_lines');
5555: pa_debug.reset_err_stack;
5556: End If;
5551: x_return_status := l_return_status ;
5552: IF p_pa_debug_mode = 'Y' Then
5553: print_msg('x_return_status : '||x_return_status);
5554: print_msg('Leaving delete_budget_lines');
5555: pa_debug.reset_err_stack;
5556: End If;
5557:
5558: EXCEPTION
5559: WHEN PJI_EXCEPTION THEN
5570: ,p_value3 => g_resource_name
5571: ,p_token4 => 'START_DATE'
5572: ,p_value4 => p_line_start_date);
5573: End IF;
5574: IF p_pa_debug_mode = 'Y' Then
5575: pa_debug.reset_err_stack;
5576: End If;
5577: RAISE;
5578:
5571: ,p_token4 => 'START_DATE'
5572: ,p_value4 => p_line_start_date);
5573: End IF;
5574: IF p_pa_debug_mode = 'Y' Then
5575: pa_debug.reset_err_stack;
5576: End If;
5577: RAISE;
5578:
5579: WHEN OTHERS THEN
5582: x_msg_data := 'Stage['||l_stage||SQLCODE||SQLERRM;
5583: fnd_msg_pub.add_exc_msg
5584: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
5585: ,p_procedure_name => 'delete_budget_lines' );
5586: IF p_pa_debug_mode = 'Y' Then
5587: pa_debug.reset_err_stack;
5588: End If;
5589: RAISE;
5590: END delete_budget_lines;
5583: fnd_msg_pub.add_exc_msg
5584: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
5585: ,p_procedure_name => 'delete_budget_lines' );
5586: IF p_pa_debug_mode = 'Y' Then
5587: pa_debug.reset_err_stack;
5588: End If;
5589: RAISE;
5590: END delete_budget_lines;
5591:
5633: BEGIN
5634:
5635: x_return_status := FND_API.G_RET_STS_SUCCESS;
5636: l_return_status := 'S';
5637: IF p_pa_debug_mode = 'Y' Then
5638: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.chk_req_rate_api_inputs');
5639: End If;
5640:
5641: g_stage := 'chk_req_rate_api_inputs:100';
5634:
5635: x_return_status := FND_API.G_RET_STS_SUCCESS;
5636: l_return_status := 'S';
5637: IF p_pa_debug_mode = 'Y' Then
5638: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.chk_req_rate_api_inputs');
5639: End If;
5640:
5641: g_stage := 'chk_req_rate_api_inputs:100';
5642: l_stage := 8010;
5692: End If;
5693: END IF;
5694: g_stage := 'chk_req_rate_api_inputs:101';
5695: x_return_status := l_return_status;
5696: IF p_pa_debug_mode = 'Y' Then
5697: pa_debug.reset_err_stack;
5698: End If;
5699:
5700: EXCEPTION
5693: END IF;
5694: g_stage := 'chk_req_rate_api_inputs:101';
5695: x_return_status := l_return_status;
5696: IF p_pa_debug_mode = 'Y' Then
5697: pa_debug.reset_err_stack;
5698: End If;
5699:
5700: EXCEPTION
5701: WHEN OTHERS THEN
5703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5704: fnd_msg_pub.add_exc_msg
5705: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
5706: ,p_procedure_name => 'chk_req_rate_api_inputs' );
5707: IF p_pa_debug_mode = 'Y' Then
5708: pa_debug.reset_err_stack;
5709: End If;
5710: RAISE;
5711:
5704: fnd_msg_pub.add_exc_msg
5705: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
5706: ,p_procedure_name => 'chk_req_rate_api_inputs' );
5707: IF p_pa_debug_mode = 'Y' Then
5708: pa_debug.reset_err_stack;
5709: End If;
5710: RAISE;
5711:
5712: END chk_req_rate_api_inputs;
5729:
5730: x_return_status := 'S';
5731: l_stage := 2000;
5732: g_stage := 'populate_rollup_tmp:100';
5733: IF p_pa_debug_mode = 'Y' Then
5734: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5735: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5736: End If;
5737: /*
5730: x_return_status := 'S';
5731: l_stage := 2000;
5732: g_stage := 'populate_rollup_tmp:100';
5733: IF p_pa_debug_mode = 'Y' Then
5734: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5735: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5736: End If;
5737: /*
5738: If P_PA_DEBUG_MODE = 'Y' Then
5734: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5735: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5736: End If;
5737: /*
5738: If P_PA_DEBUG_MODE = 'Y' Then
5739: for i in (select * from pa_fp_spread_calc_tmp ) LOOP
5740: print_msg('IN params ResId['||i.resource_assignment_id||']TxnCur['||i.txn_currency_code||']RefrFlag['||i.refresh_rates_flag||']');
5741: print_msg('RefrConvFlag['||i.refresh_conv_rates_flag||']gSprdFromDt['||g_spread_from_date||']gLnSD['||i.start_date||']');
5742: print_msg('gLineEnDate['||i.end_date||']massAdflag['||i.mass_adjust_flag||']mfcCstFlag['||i.mfc_cost_refresh_flag||']skipFlag['||i.skip_record_flag||']');
6155: AND NVL(caltmp.refresh_conv_rates_flag,'N') = 'N'
6156: AND NVL(caltmp.mass_adjust_flag,'N') = 'N'
6157: AND NVL(caltmp.mfc_cost_refresh_flag,'N') = 'Y'
6158: ));
6159: If p_pa_debug_mode = 'Y' Then
6160: print_msg('Updating rollup tmp with rate overrides for mfc cost refresh['||sql%rowcount||']');
6161: End If;
6162:
6163: END IF;
6166: * and call rate api
6167: */
6168: IF g_rtChanged_RaId_tab.COUNT > 0 Then
6169: g_stage := 'populate_rollup_tmp:103';
6170: If P_PA_DEBUG_MODE = 'Y' Then
6171: print_msg('Updating rollup with rate overrides ');
6172: End If;
6173: FORALL i IN g_rtChanged_RaId_tab.FIRST .. g_rtChanged_RaId_tab.LAST
6174: UPDATE /*+ INDEX(TMP PA_FP_ROLLUP_TMP_N1) */ pa_fp_rollup_tmp tmp
6206: and tmp.start_date IS NOT NULL
6207: and tmp.start_date BETWEEN g_rtChanged_sDate_tab(i) AND g_rtChanged_eDate_tab(i)
6208: )
6209: );
6210: If P_PA_DEBUG_MODE = 'Y' Then
6211: print_msg('Number of rows updated for RateChanges['||sql%rowcount||']');
6212: End If;
6213: END IF;
6214:
6212: End If;
6213: END IF;
6214:
6215: /**
6216: If P_PA_DEBUG_MODE = 'Y' Then
6217: l_stage := 2019;
6218: SELECT count(*)
6219: INTO l_count
6220: FROM pa_fp_rollup_tmp ;
6223: print_rlTmp_Values;
6224: End If;
6225: **/
6226: x_return_status := 'S';
6227: IF p_pa_debug_mode = 'Y' Then
6228: print_msg('x_return_status : '||x_return_status);
6229: print_msg('Leaving populate_rollup_tmp');
6230: pa_debug.reset_err_stack;
6231: End If;
6226: x_return_status := 'S';
6227: IF p_pa_debug_mode = 'Y' Then
6228: print_msg('x_return_status : '||x_return_status);
6229: print_msg('Leaving populate_rollup_tmp');
6230: pa_debug.reset_err_stack;
6231: End If;
6232: EXCEPTION
6233: WHEN OTHERS THEN
6234: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6237: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
6238: ,p_procedure_name => 'populate_rollup_tmp' );
6239: l_stage := 2120;
6240: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
6241: IF p_pa_debug_mode = 'Y' Then
6242: pa_debug.reset_err_stack;
6243: End If;
6244: RAISE;
6245:
6238: ,p_procedure_name => 'populate_rollup_tmp' );
6239: l_stage := 2120;
6240: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
6241: IF p_pa_debug_mode = 'Y' Then
6242: pa_debug.reset_err_stack;
6243: End If;
6244: RAISE;
6245:
6246: END populate_rollup_tmp;
6330:
6331: BEGIN
6332:
6333: x_return_status := FND_API.G_RET_STS_SUCCESS;
6334: IF p_pa_debug_mode = 'Y' Then
6335: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.mass_adjust');
6336: End If;
6337: g_stage := 'mass_adjust:100';
6338: If P_PA_DEBUG_MODE = 'Y' Then
6331: BEGIN
6332:
6333: x_return_status := FND_API.G_RET_STS_SUCCESS;
6334: IF p_pa_debug_mode = 'Y' Then
6335: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.mass_adjust');
6336: End If;
6337: g_stage := 'mass_adjust:100';
6338: If P_PA_DEBUG_MODE = 'Y' Then
6339: print_msg('QtyAdjPct['||l_quantity_adj_pct||']RateAdjPct['||l_cost_rate_adj_pct||']RwCostPct['||l_raw_cost_adj_pct||']');
6334: IF p_pa_debug_mode = 'Y' Then
6335: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.mass_adjust');
6336: End If;
6337: g_stage := 'mass_adjust:100';
6338: If P_PA_DEBUG_MODE = 'Y' Then
6339: print_msg('QtyAdjPct['||l_quantity_adj_pct||']RateAdjPct['||l_cost_rate_adj_pct||']RwCostPct['||l_raw_cost_adj_pct||']');
6340: print_msg('BdRateAdPct['||l_burdened_rate_adj_pct||']BurdPct['||l_burden_cost_adj_pct||']');
6341: print_msg('BillRtAdjPct['||l_bill_rate_adj_pct||']RevPct['||l_revenue_adj_pct||']');
6342: End If;
6575: CLOSE cur_rndQty;
6576: IF l_blId_tab.COUNT > 0 Then
6577: If l_quantity_adj_pct is NOT NULL Then --{
6578: g_stage := 'MassAdjust:Quantity_Rounding adjust:105';
6579: If P_PA_DEBUG_MODE = 'Y' Then
6580: print_msg(g_stage);
6581: End if;
6582: FOR i IN l_blId_tab.FIRST .. l_blId_tab.LAST LOOP
6583: If l_ratebase_tab(i) = 'Y' Then
6598: AND NVL(l_quantity_diff_tab(i),0) <> 0;
6599:
6600: Elsif l_raw_cost_adj_pct is NOT NULL and g_fp_budget_version_type in ('COST','ALL') Then
6601: g_stage := 'MassAdjust:RawCost_Rounding adjust:105';
6602: If P_PA_DEBUG_MODE = 'Y' Then
6603: print_msg(g_stage);
6604: End If;
6605: FOR i IN l_blId_tab.FIRST .. l_blId_tab.LAST LOOP
6606: If l_ratebase_tab(i) = 'N' Then
6627: AND l_ratebase_tab(i) = 'N' ;
6628:
6629: Elsif l_revenue_adj_pct is NOT NULL and g_fp_budget_version_type in ('REVENUE','ALL') Then
6630: g_stage := 'MassAdjust:Revenue_Rounding adjust:105';
6631: If P_PA_DEBUG_MODE = 'Y' Then
6632: print_msg(g_stage);
6633: End If;
6634: FOR i IN l_blId_tab.FIRST .. l_blId_tab.LAST LOOP
6635: If l_ratebase_tab(i) = 'N' Then
6657: END If; --}
6658: END IF;
6659:
6660: End If; --}
6661: IF p_pa_debug_mode = 'Y' Then
6662: print_msg('x_return_status : '||x_return_status);
6663: print_msg('Leaving mass_adjust');
6664: pa_debug.reset_err_stack;
6665: End If;
6660: End If; --}
6661: IF p_pa_debug_mode = 'Y' Then
6662: print_msg('x_return_status : '||x_return_status);
6663: print_msg('Leaving mass_adjust');
6664: pa_debug.reset_err_stack;
6665: End If;
6666: EXCEPTION
6667: WHEN OTHERS THEN
6668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6670: fnd_msg_pub.add_exc_msg
6671: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
6672: ,p_procedure_name => 'mass_adjust' );
6673: print_msg(g_stage||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
6674: IF p_pa_debug_mode = 'Y' Then
6675: pa_debug.reset_err_stack;
6676: End If;
6677: RAISE;
6678:
6671: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
6672: ,p_procedure_name => 'mass_adjust' );
6673: print_msg(g_stage||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
6674: IF p_pa_debug_mode = 'Y' Then
6675: pa_debug.reset_err_stack;
6676: End If;
6677: RAISE;
6678:
6679: END mass_adjust_new;
6830: ,ra.last_update_date = sysdate
6831: ,ra.last_update_login = l_login_id
6832: WHERE ra.resource_assignment_id = l_resource_assignment_id_tab(i);
6833: END IF;
6834: If P_PA_DEBUG_MODE = 'Y' Then
6835: print_msg('Leaving rollup_pf_pfc_to_ra x_return_status : '||x_return_status);
6836: End If;
6837:
6838: EXCEPTION
6943: WHERE budget_version_id = p_budget_version_id;
6944: EXCEPTION
6945: WHEN OTHERS THEN
6946: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
6947: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
6948: IF P_PA_DEBUG_MODE = 'Y' THEN
6949: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
6950: END IF;
6951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6944: EXCEPTION
6945: WHEN OTHERS THEN
6946: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
6947: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
6948: IF P_PA_DEBUG_MODE = 'Y' THEN
6949: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
6950: END IF;
6951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6952: SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH:MI:SS') INTO g_session_time
6945: WHEN OTHERS THEN
6946: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
6947: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
6948: IF P_PA_DEBUG_MODE = 'Y' THEN
6949: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
6950: END IF;
6951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6952: SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH:MI:SS') INTO g_session_time
6953: FROM DUAL;
6987: WHERE budget_version_id = p_budget_version_id;
6988: EXCEPTION
6989: WHEN OTHERS THEN
6990: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
6991: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
6992: IF P_PA_DEBUG_MODE = 'Y' THEN
6993: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
6994: END IF;
6995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6988: EXCEPTION
6989: WHEN OTHERS THEN
6990: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
6991: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
6992: IF P_PA_DEBUG_MODE = 'Y' THEN
6993: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
6994: END IF;
6995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6996: SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH:MI:SS') INTO g_session_time
6989: WHEN OTHERS THEN
6990: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
6991: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
6992: IF P_PA_DEBUG_MODE = 'Y' THEN
6993: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
6994: END IF;
6995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6996: SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH:MI:SS') INTO g_session_time
6997: FROM DUAL;
7011: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7012: fnd_msg_pub.add_exc_msg
7013: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
7014: ,p_procedure_name => 'rollup_pf_pfc_to_bv' );
7015: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7016: l_stage := 6140;
7017: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
7018: IF P_PA_DEBUG_MODE = 'Y' THEN
7019: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7014: ,p_procedure_name => 'rollup_pf_pfc_to_bv' );
7015: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7016: l_stage := 6140;
7017: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
7018: IF P_PA_DEBUG_MODE = 'Y' THEN
7019: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7020: END IF;
7021: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7022:
7015: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7016: l_stage := 6140;
7017: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
7018: IF P_PA_DEBUG_MODE = 'Y' THEN
7019: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7020: END IF;
7021: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7022:
7023: END rollup_pf_pfc_to_bv;
7030:
7031: BEGIN
7032: x_return_status := 'S';
7033: IF g_sprd_raId_tab.COUNT > 0 THEN
7034: If P_PA_DEBUG_MODE = 'Y' Then
7035: print_msg('Inserting records into fp_res_assignment_tmp table count['||g_sprd_raId_tab.COUNT||']fst['||g_sprd_raId_tab.first||']Lst['||g_sprd_raId_tab.last||']');
7036: End If;
7037:
7038: FORALL i IN g_sprd_raId_tab.FIRST .. g_sprd_raId_tab.LAST
7120: ,g_sprd_neg_Raw_Changflag_tab(i)
7121: ,g_sprd_neg_Burd_Changflag_tab(i)
7122: ,g_sprd_neg_rev_Changflag_tab(i)
7123: );
7124: If P_PA_DEBUG_MODE = 'Y' Then
7125: print_msg('Number of SpreadRecords Inserted['||sql%rowcount||']');
7126: End If;
7127: END IF; --}
7128:
7307: r.start_date,
7308: r.txn_currency_code;
7309:
7310: BEGIN
7311: IF p_pa_debug_mode = 'Y' Then
7312: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.convert_ra_txn_currency');
7313: End If;
7314: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
7315: l_return_status := 'S';
7308: r.txn_currency_code;
7309:
7310: BEGIN
7311: IF p_pa_debug_mode = 'Y' Then
7312: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.convert_ra_txn_currency');
7313: End If;
7314: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
7315: l_return_status := 'S';
7316: l_msg_count := 0;
7489: x_return_status := l_entire_return_status;
7490: x_msg_count := l_msg_count;
7491: x_msg_data := l_msg_data;
7492: --print_msg('End of convert_ra_txn_currency retSts['||x_return_status||']');
7493: IF p_pa_debug_mode = 'Y' Then
7494: pa_debug.reset_err_stack;
7495: End If;
7496:
7497:
7490: x_msg_count := l_msg_count;
7491: x_msg_data := l_msg_data;
7492: --print_msg('End of convert_ra_txn_currency retSts['||x_return_status||']');
7493: IF p_pa_debug_mode = 'Y' Then
7494: pa_debug.reset_err_stack;
7495: End If;
7496:
7497:
7498: EXCEPTION
7502: x_msg_data := sqlcode||sqlerrm;
7503: fnd_msg_pub.add_exc_msg
7504: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
7505: ,p_procedure_name => 'convert_ra_txn_currency' );
7506: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7507: print_msg('PA_FP_CALC_PLAN_PKG.convert_ra_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
7508: IF p_pa_debug_mode = 'Y' Then
7509: pa_debug.reset_err_stack;
7510: End If;
7504: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
7505: ,p_procedure_name => 'convert_ra_txn_currency' );
7506: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7507: print_msg('PA_FP_CALC_PLAN_PKG.convert_ra_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
7508: IF p_pa_debug_mode = 'Y' Then
7509: pa_debug.reset_err_stack;
7510: End If;
7511: RAISE;
7512: END convert_ra_txn_currency;
7505: ,p_procedure_name => 'convert_ra_txn_currency' );
7506: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7507: print_msg('PA_FP_CALC_PLAN_PKG.convert_ra_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
7508: IF p_pa_debug_mode = 'Y' Then
7509: pa_debug.reset_err_stack;
7510: End If;
7511: RAISE;
7512: END convert_ra_txn_currency;
7513:
7591: print_msg('Bug fix:4272944: DONOT DELETE AUTOBASELINE zero qty budget lines');
7592: null;
7593: /* Bug fix:4272944 Ends */
7594: ELSIF p_resource_assignment_tab.COUNT > 0 THEN
7595: If P_PA_DEBUG_MODE = 'Y' Then
7596: print_msg('Delete all the budget lines where Qty and Amounts are not exists');
7597: End If;
7598: l_budget_line_id_tab.delete;
7599: l_raid_tab.delete;
7633: ,l_period_name_tab
7634: ,l_proj_cur_code_tab
7635: ,l_projfunc_cur_code_tab;
7636:
7637: If P_PA_DEBUG_MODE = 'Y' Then
7638: print_msg('Number of rows deleted ['||l_budget_line_id_tab.count||']');
7639: End If;
7640: IF l_budget_line_id_tab.COUNT > 0 THEN --{
7641: FOR i IN l_budget_line_id_tab.FIRST .. l_budget_line_id_tab.LAST LOOP
8179: g_ipm_burden_rate_ovr_tab.delete;
8180: -- For Bug# 6781055
8181: gl_cl_roll_up_tmp_rowid_tab.delete;
8182:
8183: IF p_pa_debug_mode = 'Y' Then
8184: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.calculate');
8185: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8186: End If;
8187: l_return_status := FND_API.G_RET_STS_SUCCESS;
8180: -- For Bug# 6781055
8181: gl_cl_roll_up_tmp_rowid_tab.delete;
8182:
8183: IF p_pa_debug_mode = 'Y' Then
8184: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.calculate');
8185: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8186: End If;
8187: l_return_status := FND_API.G_RET_STS_SUCCESS;
8188: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
8181: gl_cl_roll_up_tmp_rowid_tab.delete;
8182:
8183: IF p_pa_debug_mode = 'Y' Then
8184: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.calculate');
8185: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8186: End If;
8187: l_return_status := FND_API.G_RET_STS_SUCCESS;
8188: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
8189: x_return_status := FND_API.G_RET_STS_SUCCESS;
8194: SAVEPOINT start_of_calculate_api;
8195:
8196: /* Bug fix: 4078623 Set curr and init err stack both are calling but reset curr function is not done.
8197: * This api call is not required as it does the same as init_err_stack
8198: --pa_debug.set_curr_function( p_function => 'PA_FP_CALC_PLAN_PKG.calculate'
8199: --,p_debug_mode => p_pa_debug_mode);
8200: */
8201: l_calc_start_time := dbms_utility.get_time;
8202: print_plsql_time('Calculate API start Time:['||l_calc_start_time||']','Y');
8195:
8196: /* Bug fix: 4078623 Set curr and init err stack both are calling but reset curr function is not done.
8197: * This api call is not required as it does the same as init_err_stack
8198: --pa_debug.set_curr_function( p_function => 'PA_FP_CALC_PLAN_PKG.calculate'
8199: --,p_debug_mode => p_pa_debug_mode);
8200: */
8201: l_calc_start_time := dbms_utility.get_time;
8202: print_plsql_time('Calculate API start Time:['||l_calc_start_time||']','Y');
8203: If P_PA_DEBUG_MODE = 'Y' Then
8199: --,p_debug_mode => p_pa_debug_mode);
8200: */
8201: l_calc_start_time := dbms_utility.get_time;
8202: print_plsql_time('Calculate API start Time:['||l_calc_start_time||']','Y');
8203: If P_PA_DEBUG_MODE = 'Y' Then
8204: l_stage := 10;
8205: print_msg(to_char(l_stage)||' Entered PA_FP_CALC_PLAN_PKG.calculate');
8206: print_msg('Calculate API start Time:['||l_calc_start_time||']','Y');
8207: l_stage := 20;
8334: G_proj_rev_exchange_rate := NULL;
8335: G_call_raTxn_rollup_flag := NVL(p_raTxn_rollup_api_call_flag,'Y');
8336:
8337: IF p_budget_version_id IS NOT NULL Then
8338: If P_PA_DEBUG_MODE = 'Y' Then
8339: print_msg('Calling Init_Globals API: p_del_spread_calc_tmp1_flg['||p_del_spread_calc_tmp1_flg||']');
8340: End If;
8341: Init_Globals(
8342: p_budget_version_id => p_budget_version_id
8342: p_budget_version_id => p_budget_version_id
8343: ,p_source_context => p_source_context
8344: ,x_return_status => l_return_status
8345: );
8346: If P_PA_DEBUG_MODE = 'Y' Then
8347: print_msg('ReturnStatus of Init_Globals ['||l_return_status||']');
8348: End If;
8349: IF l_return_status <> 'S' Then
8350: x_return_status := l_return_status;
8384:
8385: l_stage := 25;
8386: l_pls_start_time := dbms_utility.get_time;
8387: --print_plsql_time('Start of Validate Inputs:['||l_pls_start_time||']','Y');
8388: If P_PA_DEBUG_MODE = 'Y' Then
8389: print_msg(to_char(l_stage)||' Calling Validate Inputs');
8390: print_msg('Start of Validate Inputs:['||l_pls_start_time||']','Y');
8391: End If;
8392: pa_fp_calc_plan_pkg.validate_inputs
8449: ,x_return_status => l_return_status
8450: ,x_msg_count => x_msg_count
8451: ,x_msg_data => x_msg_data);
8452: l_pls_end_time := dbms_utility.get_time;
8453: If P_PA_DEBUG_MODE = 'Y' Then
8454: print_msg('End of Validate Inputs:['||l_pls_end_time||']','Y');
8455: End If;
8456: print_plsql_time('End of Validate Inputs: Total time :['||(l_pls_end_time-l_pls_start_time)||']');
8457:
8512: for the rest of the procedure
8513: */
8514: l_tab_count := l_resource_assignment_tab.COUNT;
8515: l_stage := 100;
8516: If P_PA_DEBUG_MODE = 'Y' Then
8517: print_msg(to_char(l_stage)||' Check if p_resource_assignment_tab has values['||l_tab_count||']');
8518: End If;
8519:
8520: IF l_tab_count = 0 THEN
8530: l_resource_assignment_tab
8531: ,l_txn_currency_code_tab;
8532: CLOSE get_p_res_asn_curr_code;
8533: l_tab_count := l_resource_assignment_tab.COUNT;
8534: If P_PA_DEBUG_MODE = 'Y' Then
8535: print_msg(to_char(l_stage)||' l_resource_assignment_tab.COUNT ='||to_char(l_tab_count));
8536: End If;
8537: End If;
8538:
8605: l_pls_start_time := dbms_utility.get_time;
8606: --print_plsql_time('Start of populate_spreadCalc_tmp:['||l_pls_start_time);
8607:
8608: IF l_resource_assignment_tab.COUNT > 0 THEN --{
8609: If P_PA_DEBUG_MODE = 'Y' Then
8610: print_msg('Calling PA_FP_CALC_UTILS.populate_spreadCalc_Tmp API');
8611: End If;
8612: PA_FP_CALC_UTILS.populate_spreadCalc_Tmp (
8613: p_budget_version_id => p_budget_version_id
8691: ,x_msg_data => x_msg_data
8692: );
8693: l_pls_end_time := dbms_utility.get_time;
8694: print_plsql_time('End of populate_spreadCalc_tmp:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
8695: If P_PA_DEBUG_MODE = 'Y' Then
8696: print_msg('End of calling PA_FP_CALC_UTILS.populate_spreadCalc_Tmp retSts['||l_return_status||']');
8697: End If;
8698: If l_return_status <> 'S' Then
8699: l_entire_return_status := l_return_status;
8755: /* added this check to make sure that before summing the budget Line amounts
8756: * the closed period amounts should be null
8757: */
8758: IF NVL(l_return_status,'S') = 'S' Then
8759: If P_PA_DEBUG_MODE = 'Y' Then
8760: print_msg('Calling clear_closed_period_etcs API since ETC start date is populated');
8761: End If;
8762: clear_closed_period_etcs
8763: (p_budget_version_id => g_budget_version_id
8762: clear_closed_period_etcs
8763: (p_budget_version_id => g_budget_version_id
8764: ,p_etc_start_date => g_spread_from_date
8765: ,x_return_status => l_return_status );
8766: If P_PA_DEBUG_MODE = 'Y' Then
8767: print_msg('End of clear_closed_period_etcs retSts['||l_return_status||']');
8768: End If;
8769: IF l_return_status <> 'S' Then
8770: l_entire_return_status := l_return_status;
8777: * otherwise this causes data corruption of amounts and quantity get doubled during apply progress
8778: */
8779: IF p_source_context = 'RESOURCE_ASSIGNMENT' AND
8780: NVL(p_raTxn_rollup_api_call_flag,'Y') = 'Y' AND nvl(l_entire_return_status,'S') = 'S' Then
8781: If P_PA_DEBUG_MODE = 'Y' Then
8782: print_msg('Calling populate_raTxn_Recs API for rollup of budgetlines during apply progress');
8783: End if;
8784: delete_raTxn_Tmp;
8785: populate_raTxn_Recs (
8794: ,x_return_status => l_return_status
8795: ,x_msg_count => x_msg_count
8796: ,x_msg_data => x_msg_data
8797: );
8798: If P_PA_DEBUG_MODE = 'Y' Then
8799: print_msg('AFter calling populate_raTxn_Recs retSTst['||l_return_status||']MsgData['||x_msg_data||']');
8800: End if;
8801: IF l_return_status <> 'S' Then
8802: x_return_status := l_return_status;
8814: AND p_source_context = 'RESOURCE_ASSIGNMENT'
8815: AND g_refresh_rates_flag = 'N'
8816: AND g_refresh_conv_rates_flag = 'N'
8817: AND g_mass_adjust_flag = 'N') THEN --{
8818: If P_PA_DEBUG_MODE = 'Y' Then
8819: print_msg('Check zero Quantity budget Lines where actuals Exists');
8820: End if;
8821: PA_FP_CALC_UTILS.Check_ZeroQty_Bls
8822: (p_budget_version_id => p_budget_version_id
8821: PA_FP_CALC_UTILS.Check_ZeroQty_Bls
8822: (p_budget_version_id => p_budget_version_id
8823: ,x_return_status => l_return_status
8824: );
8825: If P_PA_DEBUG_MODE = 'Y' Then
8826: print_msg('ReturnStatus of Check_ZeroQty_ActualBls API['||l_return_status||']');
8827: End if;
8828: If l_return_status <> 'S' Then
8829: x_return_status := 'E';
8854: l_pls_end_time := dbms_utility.get_time;
8855: print_plsql_time('End of clear_etc_rev_other_rejectns Total time :['||(l_pls_end_time-l_pls_start_time)||']');
8856:
8857: l_stage := 210;
8858: If P_PA_DEBUG_MODE = 'Y' Then
8859: print_msg(to_char(l_stage)||' Entering loop using the l_resource_assignment_tab.resource_assignment_id');
8860: print_msg('l_resource_assignment_tab.first['||l_resource_assignment_tab.first||']Last['||l_resource_assignment_tab.last);
8861: print_msg(l_stage||':Count of Errors:MsgCtinErrStack['||fnd_msg_pub.count_msg||']');
8862: End If;
8888: budget lines are all null.
8889: */
8890: BEGIN
8891: l_stage := 220;
8892: If P_PA_DEBUG_MODE = 'Y' Then
8893: print_msg('************'||l_stage||'Inside MAIN resource assignment loop***********');
8894: print_msg('PRINT IN PARAMETERS for this Resource Assignment ID');
8895: print_msg('l_resource_assignment_tab(i) => '|| to_char(l_resource_assignment_tab(i)));
8896: End if;
9072: l_neg_Burd_Changflag_tab(i) := 'N';
9073: l_neg_rev_Changflag_tab(i) := 'N';
9074: End If;
9075:
9076: If P_PA_DEBUG_MODE = 'Y' Then
9077: print_msg('Flag Values:l_re_spread_amts_flag['||l_re_spread_amts_flag||']l_sp_curve_change_flag['||l_sp_curve_change_flag||']');
9078: print_msg('l_rlm_id_change_flag['||l_rlm_id_change_flag||']l_delete_budget_lines['||l_delete_budget_lines||']');
9079: print_msg('l_resAttribChangeFlag['||l_resAttribChangeFlag||']l_ra_in_multi_cur_flag['||l_ra_in_multi_cur_flag||']');
9080: print_msg('l_plan_dates_change_flag['||l_plan_dates_change_flag||']l_mfc_cost_change_flag['||l_mfc_cost_change_flag||']');
9343:
9344: l_stage := 276;
9345: --print_msg(to_char(l_stage)||'CHK if l_delete_budget_lines ['||l_delete_budget_lines||']');
9346: IF l_delete_budget_lines = 'Y' THEN
9347: If P_PA_DEBUG_MODE = 'Y' Then
9348: print_msg(to_char(l_stage)||' Delete from pa_budget_lines, rollup pfc numbers, and skip record');
9349: End if;
9350: pa_fp_calc_plan_pkg.delete_budget_lines
9351: (p_budget_version_id => p_budget_version_id
9358: ,x_msg_count => x_msg_count
9359: ,x_msg_data => x_msg_data
9360: ,x_num_rowsdeleted => l_num_rowsdeleted
9361: );
9362: If P_PA_DEBUG_MODE = 'Y' Then
9363: print_msg('Number of budgetLines deleted['||l_num_rowsdeleted||']retSts['||l_return_status||']');
9364: End if;
9365: IF l_return_status <> 'S' Then
9366: x_return_status := l_return_status;
9451: * and populate the changed flags. Based on these flag apply the
9452: * precedence and set the addl variables to pass it to spread api
9453: */
9454: l_stage := 280;
9455: If P_PA_DEBUG_MODE = 'Y' Then
9456: print_msg(l_stage||'Before calling Compare_With_BdgtLine_Values');
9457: print_msg('l_apply_progress_flag['||l_apply_progress_flag||']l_txn_plan_quantity['||l_txn_plan_quantity||']');
9458: print_msg('l_txn_raw_cost['||l_txn_raw_cost||']l_raw_cost_rate['||l_raw_cost_rate||']rwcostrateoverride['||l_rw_cost_rate_override);
9459: print_msg('l_txn_burdened_cost['||l_txn_burdened_cost||']l_burden_cost_rate['||l_burden_cost_rate||']');
9517: ,x_bl_quantity => l_bl_quantity
9518: );
9519:
9520: l_stage := 281;
9521: If P_PA_DEBUG_MODE = 'Y' Then
9522: print_msg(l_stage||'After calling Compare_With_BdgtLine_Values');
9523: print_msg('l_txn_plan_quantity['||l_txn_plan_quantity||']');
9524: print_msg('l_txn_raw_cost['||l_txn_raw_cost||']l_raw_cost_rate['||l_raw_cost_rate||']rwcostrateoverride['||l_rw_cost_rate_override);
9525: print_msg('l_txn_burdened_cost['||l_txn_burdened_cost||']l_burden_cost_rate['||l_burden_cost_rate||']');
9642:
9643: IF NVL(l_apply_progress_flag,'N') <> 'Y' THEN
9644: IF l_rate_based_flag = 'N' THEN --{
9645: l_stage := 282;
9646: If P_PA_DEBUG_MODE = 'Y' Then
9647: print_msg(l_stage||'Calling Apply_NON_RATE_BASE_precedence api');
9648: End If;
9649: Apply_NON_RATE_BASE_precedence(
9650: p_txn_currency_code => l_txn_currency_code
9684: ,x_txn_raw_cost_addl => l_txn_raw_cost_addl
9685: ,x_txn_plan_quantity_addl => l_txn_plan_quantity_addl
9686: ,x_txn_burdened_cost_addl => l_txn_burdened_cost_addl
9687: );
9688: If P_PA_DEBUG_MODE = 'Y' Then
9689: print_msg(l_stage||'End of Apply_NON_RATE_BASE_precedence api');
9690: End if;
9691: ELse -- rate base flag = 'Y'
9692:
9691: ELse -- rate base flag = 'Y'
9692:
9693:
9694: l_stage := 283;
9695: If P_PA_DEBUG_MODE = 'Y' Then
9696: print_msg(l_stage||'Calling Apply_RATE_BASE_precedence api');
9697: End If;
9698: Apply_RATE_BASE_precedence(
9699: p_txn_currency_code => l_txn_currency_code
9732: ,x_txn_raw_cost_addl => l_txn_raw_cost_addl
9733: ,x_txn_plan_quantity_addl => l_txn_plan_quantity_addl
9734: ,x_txn_burdened_cost_addl => l_txn_burdened_cost_addl
9735: );
9736: If P_PA_DEBUG_MODE = 'Y' Then
9737: print_msg(l_stage||'End of Apply_RATE_BASE_precedence api');
9738: End If;
9739: End If; --} // end of precedence rules
9740: /* Bug fix:5726773 */
9885: End If;
9886: END IF;
9887:
9888: l_stage := 300;
9889: If P_PA_DEBUG_MODE = 'Y' Then
9890: print_msg(to_char(l_stage)||' Local Variables populated from TAB IN parameters');
9891: print_msg(' l_delete_budget_lines['||l_delete_budget_lines||']l_spread_amounts_flag['||l_spread_amounts_flag||']');
9892: print_msg('l_txn_currency_code['||l_txn_currency_code||']l_txn_currency_code_override['||l_txn_currency_code_override||']');
9893: print_msg('l_txn_plan_quantity['||to_char(l_txn_plan_quantity)||']l_txn_plan_quantity_addl['||to_char(l_txn_plan_quantity_addl)||']');
9915: RAISE skip_record;
9916: END IF;
9917:
9918: l_stage := 520;
9919: If P_PA_DEBUG_MODE = 'Y' Then
9920: print_msg(to_char(l_stage)||' Populate global temporary tables :refresh_conv_rates_flag ['||g_refresh_conv_rates_flag||']');
9921: print_msg(']refresh_rates_flag['||g_refresh_rates_flag||']');
9922: End If;
9923:
9958: End If;
9959:
9960: ELSIF ( NVL(l_txn_plan_quantity_addl,0) <> 0 ) THEN
9961: l_stage := 400;
9962: If P_PA_DEBUG_MODE = 'Y' Then
9963: print_msg(to_char(l_stage)||' Spread Required populte the resAss tmp');
9964: End If;
9965: /*
9966: -- Populate global temporary table pa_fp_res_assignments_tmp with values assigned to
9980: l_txn_currency_code := l_txn_currency_code_override;
9981: End If;
9982: **/
9983: l_stage := 501;
9984: If P_PA_DEBUG_MODE = 'Y' Then
9985: print_msg(l_stage||'g_sprd_raId_tab.Last['||g_sprd_raId_tab.Last||']');
9986: print_msg('MulticurPlanSD['||l_multicur_plan_start_date||']MutiCurPlanEd['||l_multicur_plan_end_date||']');
9987: End If;
9988: g_sprd_raId_tab(NVL(g_sprd_raId_tab.last,0)+1) := l_resource_assignment_id;
10032: g_sprd_neg_rev_Changflag_tab(NVL(g_sprd_neg_rev_Changflag_tab.last,0)+1) := l_neg_rev_Changflag_tab(i);
10033: EXCEPTION
10034: WHEN OTHERS THEN
10035: print_msg(to_char(l_stage)||' ***ERROR*** Inserting into pa_fp_res_assignments_tmp');
10036: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Inserting into pa_fp_res_assignments_tmp';
10037: RAISE;
10038: END;
10039: /* Bug fix:4295967 */
10040: ELSIF (NVL(p_apply_progress_flag,'N') = 'Y'
10053:
10054: END LOOP; --end loop from FOR i in l_resource_assignment_tab.first..l_resource_assignment_tab.last
10055: l_pls_end_time := dbms_utility.get_time;
10056: print_plsql_time('End of MainLoop2:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10057: If P_PA_DEBUG_MODE = 'Y' Then
10058: print_msg(to_char(l_stage)||'END RESOURCE_ASSIGNMENTS LOOP ');
10059: End If;
10060: IF NVL(l_entire_return_status,'S') = 'S' Then
10061: /* Now update the spread_calc tmp table with the required flags to process in bulk */
10058: print_msg(to_char(l_stage)||'END RESOURCE_ASSIGNMENTS LOOP ');
10059: End If;
10060: IF NVL(l_entire_return_status,'S') = 'S' Then
10061: /* Now update the spread_calc tmp table with the required flags to process in bulk */
10062: If P_PA_DEBUG_MODE = 'Y' Then
10063: print_msg('Calling Upd_spread_calc_tmp API');
10064: End If;
10065: Upd_spread_calc_tmp(
10066: p_budget_version_id => g_budget_version_id
10066: p_budget_version_id => g_budget_version_id
10067: ,p_source_context => g_source_context
10068: ,x_return_status => l_return_status
10069: );
10070: If P_PA_DEBUG_MODE = 'Y' Then
10071: print_msg('After calling Upd_spread_calc_tmp api retSts['||l_return_status||']');
10072: End If;
10073: IF l_return_status <> 'S' Then
10074: x_return_status := l_return_status;
10076: print_msg(to_char(l_stage)||'x_msg_data => '|| x_msg_data);
10077: GOTO END_OF_PROCESS;
10078: End If;
10079: End If;
10080: If P_PA_DEBUG_MODE = 'Y' Then
10081: print_msg('SpreadProcessRecs['||g_sprd_raId_tab.COUNT||']MfcCostProcessRec['||g_mfc_cost_refrsh_Raid_tab.COUNT||']');
10082: print_msg('RatesOnlyProcRec['||g_rtChanged_RaId_tab.COUNT||']ApplyProgRefreshRecs['||g_applyProg_RaId_tab.COUNT||']');
10083: End If;
10084:
10084:
10085: /* Process spread records,Call spread package only once in bulk mode */
10086: IF g_sprd_raId_tab.COUNT > 0 THEN --{
10087: l_stage := 543;
10088: If P_PA_DEBUG_MODE = 'Y' Then
10089: print_msg('Populate spread records in tmp table');
10090: End If;
10091: populate_spreadRecs
10092: (p_budget_version_id => g_budget_version_id
10092: (p_budget_version_id => g_budget_version_id
10093: ,p_source_context => g_source_context
10094: ,x_return_status => l_return_status
10095: );
10096: If P_PA_DEBUG_MODE = 'Y' Then
10097: print_msg(to_char(l_stage)||' Spread is required call spread_amounts');
10098: End If;
10099: l_pls_start_time := dbms_utility.get_time;
10100: --print_plsql_time('Start of spread amounts:['||l_pls_start_time);
10105: ,x_msg_data => x_msg_data
10106: );
10107: l_pls_end_time := dbms_utility.get_time;
10108: print_plsql_time('End of spread amounts:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10109: If P_PA_DEBUG_MODE = 'Y' Then
10110: print_msg('After calling spread_amounts api retSts['||l_return_status||']msgdata['||x_msg_data||']');
10111: End If;
10112: IF l_return_status <> 'S' Then
10113: x_return_status := l_return_status;
10123: OR g_refresh_conv_rates_flag ='Y'
10124: OR g_refresh_rates_flag in ('Y','R','C')
10125: OR g_mass_adjust_flag = 'Y' ) THEN --{
10126: l_stage := 530;
10127: If P_PA_DEBUG_MODE = 'Y' Then
10128: print_msg(to_char(l_stage)||' Spread is not required call populate_rollup_tmp');
10129: print_msg(to_char(l_stage)||' Populate global temporary tables :refresh_conv_rates_flag ['||g_refresh_conv_rates_flag||']');
10130: print_msg(']refresh_rates_flag['||g_refresh_rates_flag||']');
10131: End if;
10138: ,x_msg_data => x_msg_data
10139: );
10140: l_pls_end_time := dbms_utility.get_time;
10141: print_plsql_time('End of populate rollupTmp:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10142: If P_PA_DEBUG_MODE = 'Y' Then
10143: print_msg('After Calling populate_rollup_tmp retSts['||l_return_status||']');
10144: End If;
10145: IF l_return_status <> 'S' Then
10146: x_return_status := l_return_status;
10151: END IF;
10152:
10153: IF g_mass_adjust_flag = 'Y' THEN
10154: l_stage := 537;
10155: If P_PA_DEBUG_MODE = 'Y' Then
10156: print_msg(l_stage||'Calling pa_fp_calc_plan_pkg.mass_adjust API');
10157: End If;
10158: /*bug fix:4657962 */
10159: l_pls_start_time := dbms_utility.get_time;
10172: ,x_msg_data => x_msg_data
10173: );
10174: l_pls_end_time := dbms_utility.get_time;
10175: print_plsql_time('End of MassAdjust:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10176: If P_PA_DEBUG_MODE = 'Y' Then
10177: print_msg('End of pa_fp_calc_plan_pkg.mass_adjust API retSts['||l_return_status||']');
10178: End If;
10179: IF l_return_status <> 'S' Then
10180: x_return_status := l_return_status;
10189:
10190: /* Bug fix:4295967 */
10191: IF ( NVL(p_apply_progress_flag,'N') = 'Y'
10192: AND g_applyProg_RaId_tab.COUNT > 0 ) Then
10193: If P_PA_DEBUG_MODE = 'Y' Then
10194: print_msg('Calling populate rollup tmp in apply progress mode to rederive the etc costs');
10195: End If;
10196: l_pls_start_time := dbms_utility.get_time;
10197: --print_plsql_time('Start of populaterollupTmp inApplyProgMode:['||l_pls_start_time);
10202: ,x_msg_data => x_msg_data
10203: );
10204: l_pls_end_time := dbms_utility.get_time;
10205: print_plsql_time('End of populaterollupTmp inApplyProgMode:time :['||(l_pls_end_time-l_pls_start_time)||']');
10206: If P_PA_DEBUG_MODE = 'Y' Then
10207: print_msg('After Calling populate_rollup_tmp retSts['||l_return_status||']');
10208: End If;
10209: IF l_return_status <> 'S' Then
10210: x_return_status := l_return_status;
10218: /* IPM Changes */
10219: /*****
10220: IF l_entire_return_status = 'S' Then
10221: IF g_fp_budget_version_type = 'ALL' and g_process_skip_CstRevrec_tab.COUNT > 0 Then
10222: If P_PA_DEBUG_MODE = 'Y' Then
10223: print_msg('Calling Process_skipped_records');
10224: End if;
10225: Process_skipped_records(p_budget_version_id => g_budget_version_id
10226: ,p_calling_mode => 'PROCESS_CST_REV_MIX'
10293: AND g_fp_budget_version_type = 'ALL')
10294: ) Then
10295:
10296: l_stage := 543;
10297: If P_PA_DEBUG_MODE = 'Y' Then
10298: print_msg(l_stage||'Calling Update_rollupTmp_OvrRates API with genrationContext['||l_generation_context||']');
10299: End if;
10300: l_pls_start_time := dbms_utility.get_time;
10301: --print_plsql_time('Start of Update_rollupTmp_OvrRates:['||l_pls_start_time);
10308: ,x_msg_data => x_msg_data
10309: );
10310: l_pls_end_time := dbms_utility.get_time;
10311: print_plsql_time('End of Update_rollupTmp_OvrRates:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10312: If P_PA_DEBUG_MODE = 'Y' Then
10313: print_msg('After calling Update_rollupTmp_OvrRates api retSts['||l_return_status||']msgdata['||x_msg_data||']');
10314: End If;
10315: IF l_return_status <> 'S' Then
10316: x_return_status := l_return_status;
10321: End If;
10322:
10323: IF (l_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')
10324: AND CheckCacheRecExists(p_budget_version_id => g_budget_version_id) = 'Y') Then
10325: If P_PA_DEBUG_MODE = 'Y' Then
10326: print_msg('Calling PA_FP_CALC_UTILS.copy_BlAttributes api');
10327: End if;
10328: l_pls_start_time := dbms_utility.get_time;
10329: --print_plsql_time('Start of CopyBlAttributes:['||l_pls_start_time);
10336: ,x_msg_data => x_msg_data
10337: );
10338: l_pls_end_time := dbms_utility.get_time;
10339: print_plsql_time('End of CopyBlAttributes:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10340: If P_PA_DEBUG_MODE = 'Y' Then
10341: print_msg('returnSts of PA_FP_CALC_UTILS.copy_BlAttributes['||l_return_status||']');
10342: End If;
10343: IF l_return_status <> 'S' Then
10344: x_return_status := l_return_status;
10352: IF NVL(l_entire_return_status,'S') = 'S' Then --{
10353: If NVL(g_refresh_rates_flag,'N') = 'N' and g_source_context = 'RESOURCE_ASSIGNMENT' Then
10354: /* Bug fix:4900436 */
10355: delete_raTxn_Tmp;
10356: If p_pa_debug_mode = 'Y' Then
10357: print_msg('Calling populate_raTxn_Recs API');
10358: End If;
10359: populate_raTxn_Recs (
10360: p_budget_version_id => g_budget_version_id
10367: ,x_return_status => l_return_status
10368: ,x_msg_count => x_msg_count
10369: ,x_msg_data => x_msg_data
10370: );
10371: If p_pa_debug_mode = 'Y' Then
10372: print_msg('retSts of populate_raTxn_Recs ['||l_return_status||']');
10373: End If;
10374: IF l_return_status <> 'S' Then
10375: x_return_status := l_return_status;
10377: GOTO END_OF_PROCESS;
10378: End If;
10379: End If;
10380: IF NVL(l_return_status,'S') = 'S' AND NVL(g_refresh_rates_flag,'N') = 'N' Then
10381: If P_PA_DEBUG_MODE = 'Y' Then
10382: print_msg('Calling Retain_RaTxn_OverrideRates');
10383: End if;
10384: RETAIN_RA_TXN_OVR_RATES
10385: (p_budget_version_id => g_budget_version_id
10384: RETAIN_RA_TXN_OVR_RATES
10385: (p_budget_version_id => g_budget_version_id
10386: ,x_return_status => l_return_status
10387: );
10388: If P_PA_DEBUG_MODE = 'Y' Then
10389: print_msg('returnSts of RETAIN_RA_TXN_OVR_RATES api['||l_return_status||']');
10390: End if;
10391: IF l_return_status <> 'S' Then
10392: x_return_status := l_return_status;
10395: End If;
10396: End If;
10397: End If; --}
10398:
10399: If P_PA_DEBUG_MODE = 'Y' Then
10400: print_msg('Calling Rate API');
10401: End if;
10402: l_pls_start_time := dbms_utility.get_time;
10403: --print_plsql_time('Start of Get_Res_RATEs:['||l_pls_start_time);
10413: ,x_msg_count => x_msg_count
10414: ) ;
10415: l_pls_end_time := dbms_utility.get_time;
10416: print_plsql_time('End of Get_Res_RATEs:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10417: If P_PA_DEBUG_MODE = 'Y' Then
10418: print_msg('After Calling Rate API retSTS['||l_return_status||']');
10419: End if;
10420: /* bug fix: 4078623 Whenever there is a unexpected error from RATE api just abort the process for the first line itself */
10421: IF l_return_status = 'U' Then
10449: ,x_msg_data => x_msg_data
10450: );
10451: l_pls_end_time := dbms_utility.get_time;
10452: print_plsql_time('End of update_diffcols:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10453: If P_PA_DEBUG_MODE = 'Y' Then
10454: print_msg('returnSts of PA_FP_CALC_UTILS.update_dff['||l_return_status||']');
10455: End if;
10456: IF l_return_status <> 'S' Then
10457: x_return_status := l_return_status;
10467: get_RollupTmp_Status(
10468: x_return_status => l_return_status);
10469: print_msg('After Calling retSts['||l_return_status||']l_entire_return_status['||l_entire_return_status||']');
10470: IF ( nvl(l_return_status,'S') <> 'S' OR NVL(l_entire_return_status,'S') <> 'S' ) Then
10471: If P_PA_DEBUG_MODE = 'Y' Then
10472: print_msg('Errors found in RollupTmp Aborting the process');
10473: End if;
10474: SELECT decode(nvl(l_return_status,'S'),'E','E'
10475: ,'U','U'
10480: INTO l_return_status
10481: FROM dual;
10482: x_return_status := l_return_status;
10483: l_entire_return_status := l_return_status;
10484: If P_PA_DEBUG_MODE = 'Y' Then
10485: print_msg('Final Return Status['||x_return_status||']MsgCtinErrStack['||fnd_msg_pub.count_msg||']');
10486: End If;
10487: End IF;
10488:
10490: IF nvl(p_calling_module,'BUDGET_GENERATION') = 'BUDGET_GENERATION'
10491: AND p_source_context = 'RESOURCE_ASSIGNMENT'
10492: AND NVL(G_clientExtn_api_call_flag,'Y') = 'Y'
10493: AND NVL(l_entire_return_status,'S') = 'S' Then
10494: If P_PA_DEBUG_MODE = 'Y' Then
10495: print_msg('Calling Process_skipped_records');
10496: End If;
10497: Process_skipped_records(p_budget_version_id => g_budget_version_id
10498: ,p_calling_mode => 'PROCESS_SKIPP_RECS'
10500: ,x_return_status => l_return_status
10501: ,x_msg_count => x_msg_count
10502: ,x_msg_data => x_msg_data
10503: );
10504: If P_PA_DEBUG_MODE = 'Y' Then
10505: print_msg('After Process_skipped_records l_return_status = ' || l_return_status);
10506: End if;
10507: IF l_return_status <> 'S' THEN
10508: l_entire_return_status := l_return_status;
10516: IF (not (p_calling_module is not null and p_calling_module = 'AMG_API') )
10517: THEN
10518: IF NVL(G_clientExtn_api_call_flag,'Y') = 'Y' AND NVL(l_entire_return_status,'S') = 'S' Then
10519: l_stage := 900;
10520: If P_PA_DEBUG_MODE = 'Y' Then
10521: print_msg(to_char(l_stage)||'Call to pa_client_extn_budget');
10522: End if;
10523: l_cl_txn_plan_quantity_tab.delete;
10524: l_cl_txn_raw_cost_tab.delete;
10808: END IF;
10809: End If;
10810:
10811: l_stage := 1000;
10812: If P_PA_DEBUG_MODE = 'Y' Then
10813: print_msg(to_char(l_stage)||'CHK g_conv_rates_required_flag = Y');
10814: print_msg('p_conv_rates_required_flag => '||g_conv_rates_required_flag||']g_track_wp_costs_flag['||g_track_wp_costs_flag||']');
10815: End if;
10816: /* Refreshing the rates will also refresh the conversion rates */
10816: /* Refreshing the rates will also refresh the conversion rates */
10817: IF NVL(l_entire_return_status,'S') = 'S' AND NVL(g_track_wp_costs_flag,'Y') = 'Y' THEN
10818: IF (g_conv_rates_required_flag = 'Y' OR g_refresh_rates_flag in ('Y','R','C')) THEN
10819: l_stage := 1010;
10820: If P_PA_DEBUG_MODE = 'Y' Then
10821: print_msg(to_char(l_stage)||'Calling convert_txn_currency with the following parameters:');
10822: End if;
10823: l_pls_start_time := dbms_utility.get_time;
10824: --print_plsql_time('Start of Currency Conversion['||l_pls_start_time);
10831: ,x_msg_data => l_msg_data --5028631
10832: );
10833: l_pls_end_time := dbms_utility.get_time;
10834: print_plsql_time('End of Currency ConversionTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
10835: If P_PA_DEBUG_MODE = 'Y' Then
10836: print_msg('AFter calling convert_txn_currency API returnSTS['||l_return_status||']');
10837: End if;
10838: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10839: x_return_status := l_return_status;
10882: ,x_msg_data => l_msg_data --5028631
10883: );
10884: l_pls_end_time := dbms_utility.get_time;
10885: print_plsql_time('End of BLK UpdateBudget Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10886: If P_PA_DEBUG_MODE = 'Y' Then
10887: print_msg('AFter calling update_budget_lines retSTst['||l_return_status||']MsgData['||l_msg_data||']');
10888: End if;
10889: IF l_return_status <> 'S' Then
10890: x_return_status := l_return_status;
10893: GOTO END_OF_PROCESS;
10894: END IF;
10895:
10896: IF NVL(p_raTxn_rollup_api_call_flag,'Y') = 'Y' AND nvl(l_entire_return_status,'S') = 'S' Then
10897: If P_PA_DEBUG_MODE = 'Y' Then
10898: print_msg('Calling populate_raTxn_Recs API');
10899: End if;
10900: l_pls_start_time := dbms_utility.get_time;
10901: --print_plsql_time('Start of populate_raTxn_Recs :['||l_pls_start_time);
10914: ,x_msg_data => l_msg_data --5028631
10915: );
10916: l_pls_end_time := dbms_utility.get_time;
10917: print_plsql_time('End of populate_raTxn_RecsTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
10918: If P_PA_DEBUG_MODE = 'Y' Then
10919: print_msg('AFter calling populate_raTxn_Recs retSTst['||l_return_status||']MsgData['||l_msg_data||']');
10920: End if;
10921: IF l_return_status <> 'S' Then
10922: x_return_status := l_return_status;
10940: l_entire_return_status := l_return_status;
10941: x_msg_data := l_msg_data; --5028631
10942: GOTO END_OF_PROCESS;
10943: END IF;
10944: If p_pa_debug_mode = 'Y' Then
10945: DbugPjiVals;
10946: End If;
10947: l_pls_start_time := dbms_utility.get_time;
10948: --print_plsql_time('Start of PJI reporting:['||l_pls_start_time);
10975: ,x_return_status => l_return_status
10976: );
10977: l_pls_end_time := dbms_utility.get_time;
10978: print_plsql_time('End of PJI reporting:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10979: If P_PA_DEBUG_MODE = 'Y' Then
10980: print_msg('AFter calling PA_FP_PJI_INTG_PKG retSTst['||l_return_status||']MsgData['||l_msg_data||']');
10981: End if;
10982: IF l_return_status <> 'S' Then
10983: x_return_status := l_return_status;
10995: -- numbers must be rolled up. Therefore a loop is required.
10996: */
10997: IF NVL(l_entire_return_status,'S') = 'S' Then
10998: l_stage := 1210;
10999: If P_PA_DEBUG_MODE = 'Y' Then
11000: print_msg('Rollup PC and PFC to RA ');
11001: End if;
11002: l_pls_start_time := dbms_utility.get_time;
11003: --print_plsql_time('Start of rollup_pf_pfc_to_ra :['||l_pls_start_time);
11008: ,x_msg_data => l_msg_data --5028631
11009: );
11010: l_pls_end_time := dbms_utility.get_time;
11011: print_plsql_time('End of rollup_pf_pfc_to_raTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
11012: If P_PA_DEBUG_MODE = 'Y' Then
11013: print_msg('After calling pa_fp_calc_plan_pkg.rollup_pf_pfc_to_ra retSts['||l_return_status||']msgData['||l_msg_data||']');
11014: End if;
11015: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11016: x_return_status := l_return_status;
11028: /* Delete all the budget Lines where quantity and amounts are not exists but only the rate
11029: * retaining these budget lines will cause issues in reating the currency for workplan version
11030: * ideally budget lines with null amounts and null quantity with rate make no sense
11031: */
11032: If P_PA_DEBUG_MODE = 'Y' Then
11033: print_msg(l_stage||'Calling Delete_BL_Where_Nulls API');
11034: End if;
11035: l_pls_start_time := dbms_utility.get_time;
11036: --print_plsql_time('Start of Delete_BL_Where_Nulls :['||l_pls_start_time);
11041: ,x_msg_data => l_msg_data --5028631
11042: );
11043: l_pls_end_time := dbms_utility.get_time;
11044: print_plsql_time('End of Delete_BL_Where_NullsTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
11045: If P_PA_DEBUG_MODE = 'Y' Then
11046: print_msg('AFter calling Delete_BL_Where_Nulls retSTst['||l_return_status||']MsgData['||l_msg_data||']');
11047: End if;
11048: IF l_return_status <> 'S' Then
11049: x_return_status := l_return_status;
11067: --print_plsql_time('Start of MRC:['||l_pls_start_time);
11068:
11069: l_stage := 1280;
11070: IF (NVL(G_populate_mrc_tab_flag,'N') = 'Y' AND g_mrc_budget_line_id_tab.COUNT > 0 ) Then
11071: If P_PA_DEBUG_MODE = 'Y' Then
11072: print_msg(to_char(l_stage)||' Calling pa_mrc_finplan.maintain_all_mc_budget_lines:');
11073: End if;
11074: Populate_rollup_WithMrcRecs
11075: (p_budget_version_id => g_budget_version_id
11075: (p_budget_version_id => g_budget_version_id
11076: ,x_msg_data => l_msg_data --5028631
11077: ,x_return_status => l_return_status
11078: );
11079: If P_PA_DEBUG_MODE = 'Y' Then
11080: print_msg('After calling Populate_rollup_WithMrcRecs retSts['||l_return_status||']msgData['||l_msg_data||']');
11081: End if;
11082: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11083: x_return_status := l_return_status;
11088: END IF;
11089: END If;
11090:
11091: l_stage := 1280.1;
11092: If P_PA_DEBUG_MODE = 'Y' Then
11093: print_msg(to_char(l_stage)||' Calling pa_mrc_finplan.maintain_all_mc_budget_lines:');
11094: End if;
11095: pa_mrc_finplan.maintain_all_mc_budget_lines
11096: ( p_fin_plan_version_id => g_budget_version_id
11098: ,x_return_status => l_return_status
11099: ,x_msg_count => x_msg_count
11100: ,x_msg_data => l_msg_data --5028631
11101: );
11102: If P_PA_DEBUG_MODE = 'Y' Then
11103: print_msg('After calling pa_mrc_finplan.maintain_all_mc_budget_lines retSts['||l_return_status||']msgData['||l_msg_data||']');
11104: end if;
11105: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11106: x_return_status := l_return_status;
11118: -- ROLLUP PC and PFC numbers to pa_budget_versions
11119: */
11120: IF NVL(l_entire_return_status,'S') = 'S' Then
11121: l_stage := 1300;
11122: If P_PA_DEBUG_MODE = 'Y' Then
11123: print_msg(to_char(l_stage)||' Calling rollup_pf_pfc_to_bv with following parameters:');
11124: End if;
11125: l_pls_start_time := dbms_utility.get_time;
11126: --print_plsql_time('Start of rollup_pf_pfc_to_bv:['||l_pls_start_time);
11131: ,x_msg_data => l_msg_data --5028631
11132: );
11133: l_pls_end_time := dbms_utility.get_time;
11134: print_plsql_time('End of rollup_pf_pfc_to_bvTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
11135: If P_PA_DEBUG_MODE = 'Y' Then
11136: print_msg('After calling pa_fp_calc_plan_pkg.rollup_pf_pfc_to_bv retSts['||l_return_status||']msgData['||l_msg_data||']');
11137: End if;
11138: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11139: x_return_status := l_return_status;
11144: END IF;
11145:
11146: IF NVL(l_entire_return_status,'S') = 'S' AND g_fp_multi_curr_enabled = 'Y' THEN
11147: l_stage := 1322;
11148: If P_PA_DEBUG_MODE = 'Y' Then
11149: print_msg(to_char(l_stage)||'Call pa_fp_gen_amount_utils only if g_fp_multi_curr_enabled ['||g_fp_multi_curr_enabled||']');
11150: End if;
11151: pa_fp_gen_amount_utils.get_plan_version_dtls
11152: (p_project_id => g_project_id,
11155: x_return_status => l_return_status
11156: ,x_msg_count => x_msg_count
11157: ,x_msg_data => l_msg_data --5028631
11158: );
11159: If P_PA_DEBUG_MODE = 'Y' Then
11160: print_msg('After calling pa_fp_gen_amount_utils.get_plan_version_dtls retSts['||l_return_status||']msgData['||l_msg_data||']');
11161: End if;
11162: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11163: x_return_status := l_return_status;
11166: GOTO END_OF_PROCESS;
11167: END IF;
11168:
11169: l_stage := 1327;
11170: If P_PA_DEBUG_MODE = 'Y' Then
11171: print_msg(to_char(l_stage)||' Calling insert_txn_currency api');
11172: End if;
11173: pa_fp_gen_budget_amt_pub.insert_txn_currency
11174: (p_project_id => g_project_id,
11177: x_return_status => l_return_status
11178: ,x_msg_count => x_msg_count
11179: ,x_msg_data => l_msg_data --5028631
11180: );
11181: If P_PA_DEBUG_MODE = 'Y' Then
11182: print_msg('AFter calling pa_fp_gen_budget_amt_pub.insert_txn_currency API retSts['||l_return_status||']x_msg_date['||l_msg_data||']');
11183: End if;
11184: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11185: x_return_status := l_return_status;
11213: End If;
11214: END IF;
11215:
11216: <
11217: If P_PA_DEBUG_MODE = 'Y' Then
11218: print_msg('Set x_return_status := l_entire_return_status => '||l_entire_return_status);
11219: End if;
11220: x_return_status := NVL(l_entire_return_status,'S');
11221: IF x_return_status = 'U' Then
11240: END IF;
11241: ROLLBACK TO start_of_calculate_api;
11242: IF NVL(x_msg_count,0) = 0 Then
11243: x_msg_data := NVL(l_msg_data,x_msg_data); --5028631
11244: If P_PA_DEBUG_MODE = 'Y' Then
11245: print_msg('msg count is zero: x_return_status : '||x_return_status||']x_msg_count['||x_msg_count||']x_msg_data['||x_msg_data||']');
11246: End if;
11247: End If;
11248: End If;
11246: End if;
11247: End If;
11248: End If;
11249: /* Reset the error stack */
11250: IF p_pa_debug_mode = 'Y' Then
11251: pa_debug.reset_err_stack;
11252: End If;
11253: /* Bug fix: 4225263. When CST_getItemCost raises no data found, the bill rate rate api adds this msg to stack
11254: * though the calculate api is passing return sts as sucess(S), and msgct =0 and msgdata = null, the page
11247: End If;
11248: End If;
11249: /* Reset the error stack */
11250: IF p_pa_debug_mode = 'Y' Then
11251: pa_debug.reset_err_stack;
11252: End If;
11253: /* Bug fix: 4225263. When CST_getItemCost raises no data found, the bill rate rate api adds this msg to stack
11254: * though the calculate api is passing return sts as sucess(S), and msgct =0 and msgdata = null, the page
11255: * is getting the count from error stack and raising the unexpected error
11272: close cur_ra_txn_rates;
11273: end if;
11274: l_pls_end_time := dbms_utility.get_time;
11275: /* End of bug fix:4343985 */
11276: If P_PA_DEBUG_MODE = 'Y' Then
11277: print_msg('LEAVING calculate bvid => '||g_budget_version_id||' ,pid => '||g_project_id||' ,sesstime => '||g_session_time);
11278: print_msg('x_return_status : '||x_return_status||']x_msg_count['||x_msg_count||']x_msg_data['||x_msg_data||']');
11279: End if;
11280: print_plsql_time('End of CalculateAPI:['||l_pls_end_time||']');
11282:
11283: EXCEPTION
11284: WHEN OTHERS THEN
11285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11286: IF p_pa_debug_mode = 'Y' Then
11287: pa_debug.write_file('LOG: '||pa_debug.g_err_stage);
11288: pa_debug.reset_err_stack;
11289: End If;
11290: If x_msg_data is NULL Then
11283: EXCEPTION
11284: WHEN OTHERS THEN
11285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11286: IF p_pa_debug_mode = 'Y' Then
11287: pa_debug.write_file('LOG: '||pa_debug.g_err_stage);
11288: pa_debug.reset_err_stack;
11289: End If;
11290: If x_msg_data is NULL Then
11291: x_msg_data := sqlcode||sqlerrm;
11284: WHEN OTHERS THEN
11285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11286: IF p_pa_debug_mode = 'Y' Then
11287: pa_debug.write_file('LOG: '||pa_debug.g_err_stage);
11288: pa_debug.reset_err_stack;
11289: End If;
11290: If x_msg_data is NULL Then
11291: x_msg_data := sqlcode||sqlerrm;
11292: End If;
11292: End If;
11293: fnd_msg_pub.add_exc_msg
11294: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
11295: ,p_procedure_name => 'calculate:'||substr(l_stage,1,240) );
11296: pa_debug.write_file('LOG: '||substr(l_stage||':'||sqlcode||sqlerrm,1,240));
11297:
11298: /* Bug fix: 4343985 */
11299: IF cur_avgBlrts%ISOPEN then
11300: CLOSE cur_avgBlrts;
11378: /* end OF BUG fix: 4275007 */
11379:
11380: BEGIN
11381: -- INitialize the err stack;
11382: IF p_pa_debug_mode = 'Y' Then
11383: PA_DEBUG.INIT_ERR_STACK('PA_FP_CALC_PLAN_PKG.Convert_Final_Txn_Cur_Amts');
11384: End If;
11385: l_return_status := 'S';
11386: x_return_status := 'S';
11379:
11380: BEGIN
11381: -- INitialize the err stack;
11382: IF p_pa_debug_mode = 'Y' Then
11383: PA_DEBUG.INIT_ERR_STACK('PA_FP_CALC_PLAN_PKG.Convert_Final_Txn_Cur_Amts');
11384: End If;
11385: l_return_status := 'S';
11386: x_return_status := 'S';
11387:
11430: ,p_token1 => 'Error_Message'
11431: ,p_value1 => x_msg_data
11432: );
11433: x_msg_data := 'PA_FP_PROJ_NO_TXNCONVRATE';
11434: IF p_pa_debug_mode = 'Y' Then
11435: pa_debug.reset_err_stack;
11436: End If;
11437: RETURN;
11438: End If;
11431: ,p_value1 => x_msg_data
11432: );
11433: x_msg_data := 'PA_FP_PROJ_NO_TXNCONVRATE';
11434: IF p_pa_debug_mode = 'Y' Then
11435: pa_debug.reset_err_stack;
11436: End If;
11437: RETURN;
11438: End If;
11439: End If;
11519: END IF;
11520: END IF;
11521:
11522: x_return_status := NVL(l_return_status,'S');
11523: IF p_pa_debug_mode = 'Y' Then
11524: pa_debug.reset_err_stack;
11525: End If;
11526: --print_msg('LEAVING Convert_Final_Txn_Cur_Amts x_return_status : '||x_return_status||']x_msg_data['||x_msg_data||']');
11527:
11520: END IF;
11521:
11522: x_return_status := NVL(l_return_status,'S');
11523: IF p_pa_debug_mode = 'Y' Then
11524: pa_debug.reset_err_stack;
11525: End If;
11526: --print_msg('LEAVING Convert_Final_Txn_Cur_Amts x_return_status : '||x_return_status||']x_msg_data['||x_msg_data||']');
11527:
11528: EXCEPTION
11531: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11532: If x_msg_data is NULL Then
11533: x_msg_data := sqlcode||sqlerrm;
11534: End If;
11535: IF p_pa_debug_mode = 'Y' Then
11536: pa_debug.reset_err_stack;
11537: End If;
11538: fnd_msg_pub.add_exc_msg
11539: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
11532: If x_msg_data is NULL Then
11533: x_msg_data := sqlcode||sqlerrm;
11534: End If;
11535: IF p_pa_debug_mode = 'Y' Then
11536: pa_debug.reset_err_stack;
11537: End If;
11538: fnd_msg_pub.add_exc_msg
11539: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
11540: ,p_procedure_name => 'Convert_Final_Txn_Cur_Amts' );
11894: l_time_end number ;
11895: BEGIN
11896:
11897: -- INitialize the err stack;
11898: IF p_pa_debug_mode = 'Y' Then
11899: PA_DEBUG.INIT_ERR_STACK('PA_FP_CALC_PLAN_PKG.Get_Res_Rates');
11900: print_msg('Entered Get_Res_Rates API');
11901: End If;
11902: l_return_status := 'S';
11895: BEGIN
11896:
11897: -- INitialize the err stack;
11898: IF p_pa_debug_mode = 'Y' Then
11899: PA_DEBUG.INIT_ERR_STACK('PA_FP_CALC_PLAN_PKG.Get_Res_Rates');
11900: print_msg('Entered Get_Res_Rates API');
11901: End If;
11902: l_return_status := 'S';
11903: x_return_status := 'S';
11952: g_resource_name := caltmp.resource_name;
11953: l_billable_flag := NVL(caltmp.billable_flag,'N');
11954: l_rateApi_billable_flag := l_billable_flag;
11955:
11956: If P_PA_DEBUG_MODE = 'Y' Then
11957: print_msg('LOOOOOP:ResId['||p_resource_assignment_id||']TxnCur['||p_txn_currency_code||']CurOvr['||p_txn_currency_code_ovr||']');
11958: print_msg('glinesd['||g_line_start_date||']iglineEd['||g_line_end_date||']l_billable_flag['||l_billable_flag||']');
11959: End if;
11960:
12044:
12045: l_return_status := 'S';
12046: x_msg_data := NULL;
12047:
12048: If P_PA_DEBUG_MODE = 'Y' Then
12049: print_msg(to_char(l_stage)||' Rate API req parameters from pa_fp_rollup_tmp');
12050: print_msg(' l_txn_currency_code := '||l_txn_currency_code);
12051: print_msg(' l_Final_txn_currency_code := '||l_Final_txn_currency_code);
12052: print_msg(' l_txn_plan_quantity := '||l_txn_plan_quantity);
12472: End If;
12473: End If;
12474:
12475: l_stage := 700;
12476: If P_PA_DEBUG_MODE = 'Y' Then
12477: print_msg(to_char(l_stage)||' All Rate API required parameters');
12478: print_msg(' ---------LEGEND----------------------------- ');
12479: print_msg(' **REQUIRED** = MUST BE PASSED TO RATE API');
12480: print_msg(' p_project_id => '||p_project_id);
12664: ,x_return_status => l_return_status
12665: ,x_msg_data => x_msg_data
12666: ,x_msg_count => x_msg_count
12667: );
12668: If P_PA_DEBUG_MODE = 'Y' Then
12669: print_msg('Return status of the RATE API['||l_return_status||']msgData['||x_msg_data||']');
12670: print_msg('get_plannig_rateAPIMsgCtinErrStack['||fnd_msg_pub.count_msg||']');
12671: End if;
12672: If l_return_status = 'U' Then
12719: RAISE RATEAPI_UNEXPECTED_ERRORS;
12720: END;
12721:
12722: l_stage := 746;
12723: If P_PA_DEBUG_MODE = 'Y' Then
12724: print_msg(l_stage||'****AFTER Calling get_planning_rates**** Raw Values returned by Rate API: ');
12725: print_msg('x_cost_txn_curr_code['||x_cost_txn_curr_code||']x_raw_cost['||x_raw_cost||']x_cost_rate['||x_cost_rate||']');
12726: print_msg('x_burden_cost['||x_burden_cost||']x_burden_cost_rate['||x_burden_cost_rate||']x_burden_multiplier['||x_burden_multiplier||']');
12727: print_msg('x_cost_ind_compiled_set_id['||x_cost_ind_compiled_set_id||']');
14017: End If;
14018: End If; --}
14019:
14020: l_stage := 838;
14021: If P_PA_DEBUG_MODE = 'Y' Then
14022: print_msg(to_char(l_stage)||'Calling update_rollup_tmp with the following parameters:');
14023: print_msg(' p_budget_line_id => '||to_char(l_budget_line_id));
14024: print_msg('Qtuantity =>'||l_txn_plan_quantity||']');
14025: print_msg(' p_bill_rate => '||to_char(x_bill_rate));
14105: ,RL.SYSTEM_REFERENCE5 = 'Y'
14106: WHERE RL.BUDGET_LINE_ID = l_rlt_budget_line_id_tab(i);
14107: END IF;
14108: x_return_status := NVL(l_return_status,'S');
14109: IF p_pa_debug_mode = 'Y' Then
14110: print_msg('Leaving Get_Res_Rates API sts['||x_return_status||']');
14111: pa_debug.reset_err_stack;
14112: End If;
14113: EXCEPTION
14107: END IF;
14108: x_return_status := NVL(l_return_status,'S');
14109: IF p_pa_debug_mode = 'Y' Then
14110: print_msg('Leaving Get_Res_Rates API sts['||x_return_status||']');
14111: pa_debug.reset_err_stack;
14112: End If;
14113: EXCEPTION
14114: WHEN RATEAPI_UNEXPECTED_ERRORS THEN
14115: fnd_msg_pub.add_exc_msg
14115: fnd_msg_pub.add_exc_msg
14116: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14117: ,p_procedure_name => 'Get_Res_Rates.pa_plan_revenue.Get_planning_Rates');
14118: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14119: IF p_pa_debug_mode = 'Y' Then
14120: pa_debug.reset_err_stack;
14121: End If;
14122: x_return_status := 'U';
14123: RAISE;
14116: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14117: ,p_procedure_name => 'Get_Res_Rates.pa_plan_revenue.Get_planning_Rates');
14118: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14119: IF p_pa_debug_mode = 'Y' Then
14120: pa_debug.reset_err_stack;
14121: End If;
14122: x_return_status := 'U';
14123: RAISE;
14124:
14126: fnd_msg_pub.add_exc_msg
14127: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14128: ,p_procedure_name => 'Get_Res_Rates:Update_rollupTmp_OvrRates');
14129: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14130: IF p_pa_debug_mode = 'Y' Then
14131: pa_debug.reset_err_stack;
14132: End If;
14133: x_return_status := 'U';
14134: RAISE;
14127: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14128: ,p_procedure_name => 'Get_Res_Rates:Update_rollupTmp_OvrRates');
14129: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14130: IF p_pa_debug_mode = 'Y' Then
14131: pa_debug.reset_err_stack;
14132: End If;
14133: x_return_status := 'U';
14134: RAISE;
14135: WHEN OTHERS THEN
14136: fnd_msg_pub.add_exc_msg
14137: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14138: ,p_procedure_name => 'Get_Res_Rates');
14139: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14140: IF p_pa_debug_mode = 'Y' Then
14141: pa_debug.reset_err_stack;
14142: End If;
14143: x_return_status := 'U';
14144: RAISE;
14137: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14138: ,p_procedure_name => 'Get_Res_Rates');
14139: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14140: IF p_pa_debug_mode = 'Y' Then
14141: pa_debug.reset_err_stack;
14142: End If;
14143: x_return_status := 'U';
14144: RAISE;
14145:
14229: l_txn_b_cost_rate := p_txn_b_cost_rate;
14230: l_txn_b_cost_rate_override := p_txn_b_cost_rate_override;
14231: l_txn_bill_rate := p_txn_bill_rate;
14232: l_txn_bill_rate_override := p_txn_bill_rate_override;
14233: If P_PA_DEBUG_MODE = 'Y' Then
14234: print_msg('Entered Compare_With_BdgtLine_Values API');
14235: End if;
14236: i := NULL;
14237: AvgBlRec := NULL;
14297: x_bl_raw_cost := i.txn_raw_cost;
14298: x_bl_burdened_cost := i.txn_burdened_cost;
14299: x_bl_revenue := i.txn_revenue;
14300: x_bl_quantity := i.quantity;
14301: If P_PA_DEBUG_MODE = 'Y' Then
14302: print_msg('bletcCstRtOvr['||i.etc_cost_rate_override||']EtcRt['||i.etc_cost_rate||']EtcBurdRtOvr['||i.etc_burden_rate_override||']EtcBdRt['||i.etc_burden_rate||']');
14303: End if;
14304:
14305: If (x_init_raw_cost is NULL
14495: x_bill_rate_changed_flag := 'N';
14496: p_txn_bill_rate_override := 1;
14497: End If;
14498: End If;
14499: If P_PA_DEBUG_MODE = 'Y' Then
14500: print_msg('Leaving Compare_With_BdgtLine_Values API');
14501: End if;
14502: EXCEPTION
14503: WHEN OTHERS THEN
14882: End If;
14883: If x_txn_revenue_addl = 0 Then
14884: x_txn_revenue_addl := NULL;
14885: End If;
14886: If P_PA_DEBUG_MODE = 'Y' Then
14887: print_msg('Leaving pply_NON_RATE_BASE_precedence API with status [S]');
14888: End if;
14889: EXCEPTION
14890: WHEN OTHERS THEN
15163: * ((new raw cost - actual raw cost) *
15164: * ((old burden cost - actual burden cost) /
15165: * (old raw cost - actual raw cost))) /
15166: * (quantity - actual quantity) */
15167: If p_pa_debug_mode = 'Y' Then
15168: print_msg('PRC:9.1:p_curr_burden_rate['||p_curr_burden_rate||']');
15169: End If;
15170: IF p_curr_burden_rate IS NOT NULL AND (p_raw_cost_changed_flag = 'Y' OR p_rw_cost_rate_changed_flag = 'Y') THEN
15171: IF ((nvl(p_bl_raw_cost,0) - nvl(p_init_raw_cost,0)) <> 0) AND
15432: End If;
15433: If x_txn_revenue_addl = 0 Then
15434: x_txn_revenue_addl := NULL;
15435: End If;
15436: If P_PA_DEBUG_MODE = 'Y' Then
15437: print_msg('Leaving Apply_RATE_BASE_precedence API with status [S]');
15438: End if;
15439: EXCEPTION
15440: WHEN OTHERS THEN
15453: l_msg_count Number;
15454: l_msg_data Varchar2(100);
15455: BEGIN
15456: x_return_status := 'S';
15457: If P_PA_DEBUG_MODE = 'Y' Then
15458: print_msg('Entered Init_Globals API');
15459: End if;
15460: IF p_budget_version_id IS NOT NULL Then
15461: /*
15465: ProjFpOptRec := NULL;
15466: OPEN get_proj_fp_options_csr(p_budget_version_id);
15467: FETCH get_proj_fp_options_csr INTO ProjFpOptRec;
15468: CLOSE get_proj_fp_options_csr;
15469: If P_PA_DEBUG_MODE = 'Y' Then
15470: print_msg('Assigning project options cursorval to globla variables');
15471: End if;
15472: g_fp_budget_version_type := ProjFpOptRec.version_type;
15473: g_bv_resource_list_id := ProjFpOptRec.resource_list_id;
15516: G_populate_mrc_tab_flag := 'N';
15517: End If;
15518: **/
15519: G_populate_mrc_tab_flag := 'N';
15520: If P_PA_DEBUG_MODE = 'Y' Then
15521: print_msg('Calling pa_fp_gen_amount_utils.get_plan_version_dtls ');
15522: End If;
15523: pa_fp_gen_amount_utils.get_plan_version_dtls
15524: (p_project_id => g_project_id,
15527: x_return_status => l_return_status,
15528: x_msg_count => l_msg_count,
15529: x_msg_data => l_msg_data
15530: );
15531: If P_PA_DEBUG_MODE = 'Y' Then
15532: print_msg('Printing all global variables: g_bv_resource_list_id['||g_bv_resource_list_id||']g_bv_approved_rev_flag['||g_bv_approved_rev_flag||']');
15533: print_msg('TimePhas['||g_time_phased_code||']g_fp_multi_curr_enabled['||g_fp_multi_curr_enabled||']g_spread_from_date['||g_spread_from_date||']');
15534: print_msg('g_wp_version_flag['||g_wp_version_flag||']g_fp_budget_version_typei['||g_fp_budget_version_type||']');
15535: print_msg('g_track_wp_costs_flag['||g_track_wp_costs_flag||']G_AGR_CONV_REQD_FLAG['||G_AGR_CONV_REQD_FLAG||']');
15569: l_msg_index_out NUMBER;
15570: BEGIN
15571:
15572: x_return_status := 'S';
15573: IF p_pa_debug_mode = 'Y' Then
15574: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15575: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15576: End If;
15577: /***
15571:
15572: x_return_status := 'S';
15573: IF p_pa_debug_mode = 'Y' Then
15574: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15575: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15576: End If;
15577: /***
15578: If P_PA_DEBUG_MODE = 'Y' Then
15579: for i in (select * from pa_fp_spread_calc_tmp ) LOOP
15574: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15575: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15576: End If;
15577: /***
15578: If P_PA_DEBUG_MODE = 'Y' Then
15579: for i in (select * from pa_fp_spread_calc_tmp ) LOOP
15580: print_msg('IN params ResId['||i.resource_assignment_id||']TxnCur['||i.txn_currency_code||']RefrFlag['||i.refresh_rates_flag||']');
15581: print_msg('RefrConvFlag['||i.refresh_conv_rates_flag||']gSprdFromDt['||g_spread_from_date||']gLnSD['||i.start_date||']');
15582: print_msg('gLineEnDate['||i.end_date||']massAdflag['||i.mass_adjust_flag||']mfcCstFlag['||i.mfc_cost_refresh_flag||']skipFlag['||i.skip_record_flag||']');
15737: */
15738: );
15739:
15740: x_return_status := 'S';
15741: IF p_pa_debug_mode = 'Y' Then
15742: print_msg('Process_skipped_records :Number of records inserted['||sql%rowcount||']');
15743: print_msg('Process_skipped_records: x_return_status : '||x_return_status);
15744: print_msg('Process_skipped_records: Leaving Process_skipped_records');
15745: pa_debug.reset_err_stack;
15741: IF p_pa_debug_mode = 'Y' Then
15742: print_msg('Process_skipped_records :Number of records inserted['||sql%rowcount||']');
15743: print_msg('Process_skipped_records: x_return_status : '||x_return_status);
15744: print_msg('Process_skipped_records: Leaving Process_skipped_records');
15745: pa_debug.reset_err_stack;
15746: End If;
15747: EXCEPTION
15748: WHEN OTHERS THEN
15749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15752: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
15753: ,p_procedure_name => 'Process_skipped_records' );
15754: l_stage := 2120;
15755: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
15756: IF p_pa_debug_mode = 'Y' Then
15757: pa_debug.reset_err_stack;
15758: End If;
15759: RAISE;
15760:
15753: ,p_procedure_name => 'Process_skipped_records' );
15754: l_stage := 2120;
15755: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
15756: IF p_pa_debug_mode = 'Y' Then
15757: pa_debug.reset_err_stack;
15758: End If;
15759: RAISE;
15760:
15761: END Process_skipped_records;