[Home] [Help]
1: PACKAGE BODY PA_FP_CALC_PLAN_PKG AS
2: --$Header: PAFPCALB.pls 120.37.12020000.6 2013/03/13 23:42:58 srakitin 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||']';
1100: END IF;
1101: -- gboomina added for AAI requirement Bug 8318932 - end
1102:
1103: If l_rowCount1 > 0 Then
1104: If P_PA_DEBUG_MODE = 'Y' Then
1105: print_msg('Calling pa_res_asg_currency_pub.maintain_data for deleting records');
1106: End If;
1107: pa_res_asg_currency_pub.MAINTAIN_DATA
1108: (P_FP_COLS_REC => G_FP_COLS_REC
1113: ,X_RETURN_STATUS => x_return_status
1114: ,X_MSG_COUNT => x_msg_count
1115: ,X_MSG_DATA => x_msg_data
1116: );
1117: If P_PA_DEBUG_MODE = 'Y' Then
1118: print_msg('Return Status of the api ['||x_return_status||']');
1119: End If;
1120: End If;
1121:
1122: End If;
1123:
1124: IF p_call_raTxn_rollup_flag = 'Y' AND l_rowCount > 0 Then
1125: -- Call new entity rollup api
1126: If P_PA_DEBUG_MODE = 'Y' Then
1127: print_msg('Calling pa_res_asg_currency_pub.maintain_data');
1128: End If;
1129: pa_res_asg_currency_pub.MAINTAIN_DATA
1130: (P_FP_COLS_REC => G_FP_COLS_REC
1135: ,X_RETURN_STATUS => x_return_status
1136: ,X_MSG_COUNT => x_msg_count
1137: ,X_MSG_DATA => x_msg_data
1138: );
1139: If P_PA_DEBUG_MODE = 'Y' Then
1140: print_msg('Return Status of the api ['||x_return_status||']');
1141: End If;
1142: IF nvl(X_RETURN_STATUS,'S') <> 'S' Then
1143: X_RETURN_STATUS := 'E';
1162: ,x_return_status OUT NOCOPY VARCHAR2
1163: ) IS
1164: BEGIN
1165: x_return_status := 'S';
1166: IF p_pa_debug_mode = 'Y' Then
1167: print_rlTmp_Values;
1168: End If;
1169: UPDATE pa_fp_rollup_tmp tmp
1170: SET (tmp.rw_cost_rate_override
1225: and tmp.start_date between tmp2.start_date and tmp2.end_date)
1226: )
1227: );
1228:
1229: IF p_pa_debug_mode = 'Y' Then
1230: print_msg('Number of rows updated in the rollup tmp with raTxnOvr ['||sql%rowCount||']');
1231: --print_rlTmp_Values;
1232: NULL;
1233: End If;
1428: WHERE project_id = p_project_id;
1429: BEGIN
1430: x_return_status := 'S';
1431: g_stage := 'Initialize_fp_cur_details:100';
1432: If P_PA_DEBUG_MODE = 'Y' Then
1433: print_msg(' ENTERED Initialize_fp_cur_details calling get_fp_options_data');
1434: End If;
1435: -- initialize --
1436: pa_fp_multi_currency_pkg.g_project_id := NULL;
1559: ELSE
1560: /* Bug fix:4272944: The following new api call is added to insert zero qty budget lines for Funding baseline */
1561: IF (NVL(G_baseline_funding_flag,'N') = 'Y'
1562: AND NVL(g_bv_approved_rev_flag,'N') = 'Y') THEN
1563: If P_PA_DEBUG_MODE = 'Y' Then
1564: print_msg('Calling PA_FP_CALC_UTILS.InsertFunding_ReqdLines API');
1565: End If;
1566: PA_FP_CALC_UTILS.InsertFunding_ReqdLines
1567: ( p_budget_verson_id => g_budget_version_id
2062: AND EXISTS (select null
2063: FROM pa_fp_spread_calc_tmp otmp
2064: WHERE otmp.resource_assignment_id = tmp1.resource_assignment_id
2065: );
2066: If P_PA_DEBUG_MODE = 'Y' Then
2067: print_msg('Number of rows updated for ratebasedFlag for Pjirollup['||sql%rowcount||']');
2068: End If;
2069:
2070: SELECT
2335: x_msg_data := NULL;
2336: l_return_status := 'S';
2337: l_msg_count := 0;
2338: l_msg_data := NULL;
2339: IF p_pa_debug_mode = 'Y' Then
2340: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_PCPFCrounding_diff');
2341: End If;
2342:
2343: g_stage := 'Update_PCPFC_rounding_diff:100';
2336: l_return_status := 'S';
2337: l_msg_count := 0;
2338: l_msg_data := NULL;
2339: IF p_pa_debug_mode = 'Y' Then
2340: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_PCPFCrounding_diff');
2341: End If;
2342:
2343: g_stage := 'Update_PCPFC_rounding_diff:100';
2344: pa_debug.g_err_stage := 'Entered Update_PCPFCrounding_diff API';
2340: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_PCPFCrounding_diff');
2341: End If;
2342:
2343: g_stage := 'Update_PCPFC_rounding_diff:100';
2344: pa_debug.g_err_stage := 'Entered Update_PCPFCrounding_diff API';
2345: --print_msg(pa_debug.g_err_stage);
2346:
2347: IF p_wp_cost_enabled_flag = 'Y' Then
2348: /* initialize the plsql tabs */
2341: End If;
2342:
2343: g_stage := 'Update_PCPFC_rounding_diff:100';
2344: pa_debug.g_err_stage := 'Entered Update_PCPFCrounding_diff API';
2345: --print_msg(pa_debug.g_err_stage);
2346:
2347: IF p_wp_cost_enabled_flag = 'Y' Then
2348: /* initialize the plsql tabs */
2349: l_resource_assignment_tab.delete;
2529: x_msg_count := l_msg_count;
2530: x_msg_data := l_msg_data;
2531: g_stage := 'Update_PCPFC_rounding_diff:103';
2532: -- reset error stack
2533: IF p_pa_debug_mode = 'Y' Then
2534: print_msg('End of Update_PCPFCrounding_diff API return Sts['||x_return_status||']');
2535: pa_debug.reset_err_stack;
2536: End If;
2537:
2531: g_stage := 'Update_PCPFC_rounding_diff:103';
2532: -- reset error stack
2533: IF p_pa_debug_mode = 'Y' Then
2534: print_msg('End of Update_PCPFCrounding_diff API return Sts['||x_return_status||']');
2535: pa_debug.reset_err_stack;
2536: End If;
2537:
2538: EXCEPTION
2539: WHEN OTHERS THEN
2543: fnd_msg_pub.add_exc_msg
2544: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
2545: ,p_procedure_name => 'Update_PCPFC_rounding_diff' );
2546: print_msg('Failed in Update_PCPFC_rounding_diff substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
2547: IF p_pa_debug_mode = 'Y' Then
2548: pa_debug.reset_err_stack;
2549: End If;
2550: RAISE;
2551: END Update_PCPFC_rounding_diff;
2544: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
2545: ,p_procedure_name => 'Update_PCPFC_rounding_diff' );
2546: print_msg('Failed in Update_PCPFC_rounding_diff substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
2547: IF p_pa_debug_mode = 'Y' Then
2548: pa_debug.reset_err_stack;
2549: End If;
2550: RAISE;
2551: END Update_PCPFC_rounding_diff;
2552:
2637: x_msg_data := NULL;
2638: l_return_status := 'S';
2639: l_msg_count := 0;
2640: l_msg_data := NULL;
2641: IF p_pa_debug_mode = 'Y' Then
2642: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_rounding_diff');
2643: End If;
2644:
2645: g_stage := 'Update_rounding_diff:100';
2638: l_return_status := 'S';
2639: l_msg_count := 0;
2640: l_msg_data := NULL;
2641: IF p_pa_debug_mode = 'Y' Then
2642: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_rounding_diff');
2643: End If;
2644:
2645: g_stage := 'Update_rounding_diff:100';
2646: pa_debug.g_err_stage := 'Entered Update_rounding_diff API';
2642: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Update_rounding_diff');
2643: End If;
2644:
2645: g_stage := 'Update_rounding_diff:100';
2646: pa_debug.g_err_stage := 'Entered Update_rounding_diff API';
2647: --print_msg(pa_debug.g_err_stage);
2648:
2649: IF p_wp_cost_enabled_flag = 'Y' Then
2650: /* initialize the plsql tabs */
2643: End If;
2644:
2645: g_stage := 'Update_rounding_diff:100';
2646: pa_debug.g_err_stage := 'Entered Update_rounding_diff API';
2647: --print_msg(pa_debug.g_err_stage);
2648:
2649: IF p_wp_cost_enabled_flag = 'Y' Then
2650: /* initialize the plsql tabs */
2651: l_resource_assignment_tab.delete;
2759: x_msg_count := l_msg_count;
2760: x_msg_data := l_msg_data;
2761: g_stage := 'Update_rounding_diff:104';
2762: -- reset error stack
2763: IF p_pa_debug_mode = 'Y' Then
2764: print_msg('End of Update_rounding_diff API return Sts['||x_return_status||']');
2765: pa_debug.reset_err_stack;
2766: End If;
2767:
2761: g_stage := 'Update_rounding_diff:104';
2762: -- reset error stack
2763: IF p_pa_debug_mode = 'Y' Then
2764: print_msg('End of Update_rounding_diff API return Sts['||x_return_status||']');
2765: pa_debug.reset_err_stack;
2766: End If;
2767:
2768: EXCEPTION
2769: WHEN OTHERS THEN
2773: fnd_msg_pub.add_exc_msg
2774: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
2775: ,p_procedure_name => 'Update_rounding_diff' );
2776: print_msg('Failed in Update_rounding_diff substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
2777: IF p_pa_debug_mode = 'Y' Then
2778: pa_debug.reset_err_stack;
2779: End If;
2780: RAISE;
2781: END Update_rounding_diff;
2774: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
2775: ,p_procedure_name => 'Update_rounding_diff' );
2776: print_msg('Failed in Update_rounding_diff substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
2777: IF p_pa_debug_mode = 'Y' Then
2778: pa_debug.reset_err_stack;
2779: End If;
2780: RAISE;
2781: END Update_rounding_diff;
2782:
2879: x_return_status := FND_API.G_RET_STS_SUCCESS;
2880: x_msg_count := NULL;
2881: x_msg_data := NULL;
2882: l_return_status := 'S';
2883: IF p_pa_debug_mode = 'Y' Then
2884: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.validate_inputs');
2885: pa_debug.g_err_stage := 'Entered PA_FP_CALC_PLAN_PKG.validate_inputs';
2886: End If;
2887: g_stage := 'validate_inputs:100';
2880: x_msg_count := NULL;
2881: x_msg_data := NULL;
2882: l_return_status := 'S';
2883: IF p_pa_debug_mode = 'Y' Then
2884: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.validate_inputs');
2885: pa_debug.g_err_stage := 'Entered PA_FP_CALC_PLAN_PKG.validate_inputs';
2886: End If;
2887: g_stage := 'validate_inputs:100';
2888: /*
2881: x_msg_data := NULL;
2882: l_return_status := 'S';
2883: IF p_pa_debug_mode = 'Y' Then
2884: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.validate_inputs');
2885: pa_debug.g_err_stage := 'Entered PA_FP_CALC_PLAN_PKG.validate_inputs';
2886: End If;
2887: g_stage := 'validate_inputs:100';
2888: /*
2889: -- Check to see if Budget_version_id, project_id, or source_context
2934: End If;
2935:
2936:
2937: IF l_return_status = 'S' AND p_source_context IS NULL THEN
2938: pa_debug.g_err_stage := to_char(l_stage)||': Planning Transaction Calculate'
2939: ||' requires Source Context.'
2940: ||' Valid Values: RESOURCE_ASSIGNMENT or BUDGET_LINE'
2941: ||' -- Returning';
2942: --print_msg('validate_inputs: ' || g_module_name||pa_debug.g_err_stage);
2938: pa_debug.g_err_stage := to_char(l_stage)||': Planning Transaction Calculate'
2939: ||' requires Source Context.'
2940: ||' Valid Values: RESOURCE_ASSIGNMENT or BUDGET_LINE'
2941: ||' -- Returning';
2942: --print_msg('validate_inputs: ' || g_module_name||pa_debug.g_err_stage);
2943: l_error_msg_code := 'PA_FP_CALC_SRC_CONTEXT_REQ';
2944: l_return_status := 'E';
2945: End IF ;
2946:
3288: ,p_value2 => p_project_id
3289: );
3290: END IF;
3291: x_return_status := l_return_status;
3292: IF p_pa_debug_mode = 'Y' Then
3293: print_msg('Leaving validate_inputs x_return_status : '||x_return_status);
3294: pa_debug.reset_err_stack;
3295: End If;
3296:
3290: END IF;
3291: x_return_status := l_return_status;
3292: IF p_pa_debug_mode = 'Y' Then
3293: print_msg('Leaving validate_inputs x_return_status : '||x_return_status);
3294: pa_debug.reset_err_stack;
3295: End If;
3296:
3297: EXCEPTION
3298: WHEN OTHERS THEN
3302: fnd_msg_pub.add_exc_msg
3303: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
3304: ,p_procedure_name => 'validate_inputs' );
3305: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
3306: IF p_pa_debug_mode = 'Y' Then
3307: pa_debug.reset_err_stack;
3308: End If;
3309: RAISE;
3310:
3303: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
3304: ,p_procedure_name => 'validate_inputs' );
3305: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
3306: IF p_pa_debug_mode = 'Y' Then
3307: pa_debug.reset_err_stack;
3308: End If;
3309: RAISE;
3310:
3311: END validate_inputs;
3503:
3504: BEGIN
3505: l_return_status := 'S';
3506: x_return_status := 'S';
3507: If P_PA_DEBUG_MODE = 'Y' Then
3508: print_msg('Entered PreProcess_BlkProgress_lines api ()');
3509: End If;
3510: IF p_etc_start_date is NOT NULL Then
3511: g_stage :='PreProcess_BlkProgress_lines:100';
3561: End If;
3562: End If;
3563: g_stage := 'PreProcess_BlkProgress_lines:101';
3564: x_return_status := l_return_status;
3565: If P_PA_DEBUG_MODE = 'Y' Then
3566: print_msg('Leaving PreProcess_BlkProgress_lines api() retSts['||x_return_status||']');
3567: End If;
3568: EXCEPTION
3569: WHEN OTHERS THEN
3626: l_return_status := 'S';
3627: x_return_status := 'S';
3628: l_spread_amounts_flag := x_spread_amount_flag;
3629: l_app_prg_flag := x_apply_progress_flag;
3630: If P_PA_DEBUG_MODE = 'Y' Then
3631: print_msg('Entered Pre_process_progress_lines api ()');
3632: End If;
3633:
3634: IF p_etc_start_date is NOT NULL Then
3696: g_stage := 'Pre_process_progress_lines:101';
3697: x_return_status := l_return_status;
3698: x_spread_amount_flag := l_spread_amounts_flag;
3699: x_apply_progress_flag := l_app_prg_flag;
3700: If P_PA_DEBUG_MODE = 'Y' Then
3701: 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||']');
3702: End If;
3703: EXCEPTION
3704: WHEN INVALID_EXCPETION THEN
3731: l_version_type pa_budget_versions.version_type%type;
3732: l_error_msg_code Varchar2(100);
3733: INVALID_EXCEPTION EXCEPTION;
3734: BEGIN
3735: IF p_pa_debug_mode = 'Y' Then
3736: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Get_Agreement_Details');
3737: print_msg('Entered Get_Agreement_Details Api');
3738: End If;
3739: x_return_status := 'S';
3732: l_error_msg_code Varchar2(100);
3733: INVALID_EXCEPTION EXCEPTION;
3734: BEGIN
3735: IF p_pa_debug_mode = 'Y' Then
3736: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Get_Agreement_Details');
3737: print_msg('Entered Get_Agreement_Details Api');
3738: End If;
3739: x_return_status := 'S';
3740:
3755: G_AGR_CONV_REQD_FLAG := NVL(l_agr_con_reqd_flag,'N');
3756: G_AGR_CURRENCY_CODE := x_agr_curr_code;
3757: --print_msg('Leaving Get_Agreement_Details G_AGR_CONV_REQD_FLAG['||G_AGR_CONV_REQD_FLAG||']G_AGR_CURRENCY_CODE['||G_AGR_CURRENCY_CODE||']');
3758: -- reset error stack
3759: IF p_pa_debug_mode = 'Y' Then
3760: pa_debug.reset_err_stack;
3761: End If;
3762:
3763: EXCEPTION
3756: G_AGR_CURRENCY_CODE := x_agr_curr_code;
3757: --print_msg('Leaving Get_Agreement_Details G_AGR_CONV_REQD_FLAG['||G_AGR_CONV_REQD_FLAG||']G_AGR_CURRENCY_CODE['||G_AGR_CURRENCY_CODE||']');
3758: -- reset error stack
3759: IF p_pa_debug_mode = 'Y' Then
3760: pa_debug.reset_err_stack;
3761: End If;
3762:
3763: EXCEPTION
3764:
3767: fnd_msg_pub.add_exc_msg
3768: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
3769: ,p_procedure_name => 'Get_Agreement_Details' );
3770: print_msg('Failed in Get_Agreement_Details substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
3771: IF p_pa_debug_mode = 'Y' Then
3772: pa_debug.reset_err_stack;
3773: End If;
3774: RAISE;
3775: END Get_Agreement_Details;
3768: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
3769: ,p_procedure_name => 'Get_Agreement_Details' );
3770: print_msg('Failed in Get_Agreement_Details substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
3771: IF p_pa_debug_mode = 'Y' Then
3772: pa_debug.reset_err_stack;
3773: End If;
3774: RAISE;
3775: END Get_Agreement_Details;
3776:
4056:
4057: END initUpdPlsqlTabs;
4058:
4059: BEGIN
4060: IF p_pa_debug_mode = 'Y' Then
4061: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.clear_closed_period_etcs');
4062: End If;
4063: x_return_status := 'S';
4064: l_stage := 'Entered clear_closed_period_etcs api ETC Date['||p_etc_start_date||']';
4057: END initUpdPlsqlTabs;
4058:
4059: BEGIN
4060: IF p_pa_debug_mode = 'Y' Then
4061: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.clear_closed_period_etcs');
4062: End If;
4063: x_return_status := 'S';
4064: l_stage := 'Entered clear_closed_period_etcs api ETC Date['||p_etc_start_date||']';
4065: g_stage := 'clear_closed_period_etcs:100';
4092: CLOSE cur_bl_closed_period;
4093:
4094: IF l_budget_Line_id_tab.COUNT > 0 Then
4095: g_stage := 'clear_closed_period_etcs:101';
4096: If P_PA_DEBUG_MODE = 'Y' Then
4097: print_msg('There exists a budgetLine prior to ETC startdate with unbalanced amt NumOfLines['||l_budget_Line_id_tab.COUNT||']');
4098: End if;
4099: FOR i IN l_budget_Line_id_tab.FIRST .. l_budget_Line_id_tab.LAST LOOP
4100: -- call reporting api to update these amounts
4561: initPlsqlTabs;
4562: initUpdPlsqlTabs;
4563: g_stage := 'clear_closed_period_etcs:107';
4564: --reset error stack
4565: IF p_pa_debug_mode = 'Y' Then
4566: print_msg('Leaving clear_closed_period_etcs API with retSts['||x_return_status||']');
4567: pa_debug.reset_err_stack;
4568: End If;
4569:
4563: g_stage := 'clear_closed_period_etcs:107';
4564: --reset error stack
4565: IF p_pa_debug_mode = 'Y' Then
4566: print_msg('Leaving clear_closed_period_etcs API with retSts['||x_return_status||']');
4567: pa_debug.reset_err_stack;
4568: End If;
4569:
4570: EXCEPTION
4571: WHEN OTHERS THEN
4572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4573: fnd_msg_pub.add_exc_msg
4574: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
4575: ,p_procedure_name => 'clear_closed_period_etcs' );
4576: IF p_pa_debug_mode = 'Y' Then
4577: pa_debug.reset_err_stack;
4578: end if;
4579: RAISE;
4580:
4573: fnd_msg_pub.add_exc_msg
4574: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
4575: ,p_procedure_name => 'clear_closed_period_etcs' );
4576: IF p_pa_debug_mode = 'Y' Then
4577: pa_debug.reset_err_stack;
4578: end if;
4579: RAISE;
4580:
4581: END clear_closed_period_etcs;
4588: ) IS
4589: BEGIN
4590: x_return_status := 'S';
4591: g_stage := 'Upd_spread_calc_tmp:100';
4592: If P_PA_DEBUG_MODE = 'Y' Then
4593: print_msg('Entered Upd_spread_calc_tmp API');
4594: End If;
4595: IF g_plan_raId_tab.COUNT > 0 THEN
4596: If P_PA_DEBUG_MODE = 'Y' Then
4592: If P_PA_DEBUG_MODE = 'Y' Then
4593: print_msg('Entered Upd_spread_calc_tmp API');
4594: End If;
4595: IF g_plan_raId_tab.COUNT > 0 THEN
4596: If P_PA_DEBUG_MODE = 'Y' Then
4597: print_msg('Number Of rowsUpdated['||g_plan_raId_tab.COUNT||']');
4598: End If;
4599: FORALL i IN g_plan_raId_tab.FIRST .. g_plan_raId_tab.LAST
4600: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP_N1) */ PA_FP_SPREAD_CALC_TMP tmp -- bug 4873834
4658: );
4659: End If;
4660:
4661: If g_rtChanged_RaId_tab.COUNT > 0 Then
4662: If P_PA_DEBUG_MODE = 'Y' Then
4663: print_msg('Updating spread calc tmp with rate overrides');
4664: End If;
4665: FORALL i IN g_rtChanged_RaId_tab.FIRST .. g_rtChanged_RaId_tab.LAST
4666: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP_N1) */ pa_fp_spread_calc_tmp tmp
4676: OR
4677: ((g_source_context = 'BUDGET_LINE')
4678: and tmp.start_date BETWEEN g_rtChanged_sDate_tab(i) AND g_rtChanged_eDate_tab(i)
4679: ));
4680: If P_PA_DEBUG_MODE = 'Y' Then
4681: print_msg('Number of rows updated for RateChanges['||sql%rowcount||']');
4682: End If;
4683: End If;
4684:
4962: ,l_markup_calculation_flag_tab;
4963: CLOSE fptmpDetails;
4964: IF l_rowid_tab.COUNT > 0 THEN
4965: /*
4966: If NVL(p_pa_debug_mode,'N') = 'Y' Then
4967: for i in cur_dbgGenRtOvr loop
4968: print_msg('Generation context['||p_generation_context||']');
4969: print_msg('GenRtRaid['||i.raid||']cur['||i.curcode||']perNa['||i.period_name||']CstRtOv['||i.cost_rate_override||']');
4970: print_msg('bdRtOvr['||i.burden_rate_override||']billRtOvr['||i.bill_rate_override||']markup_calculation_flag[||i.markup_calculation_flag||']');
5175: x_return_status := FND_API.G_RET_STS_SUCCESS;
5176: l_return_status := 'S';
5177: x_msg_data := NULL;
5178: g_stage := 'delete_budget_lines:100';
5179: IF p_pa_debug_mode = 'Y' Then
5180: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.delete_budget_lines');
5181: print_msg('Entered PA_FP_CALC_PLAN_PKG.delete_budget_lines ResAssId['||p_resource_assignment_id||']spreadDate['||g_spread_from_date||']');
5182: End If;
5183: l_stage := 7800;
5176: l_return_status := 'S';
5177: x_msg_data := NULL;
5178: g_stage := 'delete_budget_lines:100';
5179: IF p_pa_debug_mode = 'Y' Then
5180: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.delete_budget_lines');
5181: print_msg('Entered PA_FP_CALC_PLAN_PKG.delete_budget_lines ResAssId['||p_resource_assignment_id||']spreadDate['||g_spread_from_date||']');
5182: End If;
5183: l_stage := 7800;
5184: OPEN get_delete_bl_id ;
5583: End IF;
5584:
5585: END IF;
5586: x_return_status := l_return_status ;
5587: IF p_pa_debug_mode = 'Y' Then
5588: print_msg('x_return_status : '||x_return_status);
5589: print_msg('Leaving delete_budget_lines');
5590: pa_debug.reset_err_stack;
5591: End If;
5586: x_return_status := l_return_status ;
5587: IF p_pa_debug_mode = 'Y' Then
5588: print_msg('x_return_status : '||x_return_status);
5589: print_msg('Leaving delete_budget_lines');
5590: pa_debug.reset_err_stack;
5591: End If;
5592:
5593: EXCEPTION
5594: WHEN PJI_EXCEPTION THEN
5605: ,p_value3 => g_resource_name
5606: ,p_token4 => 'START_DATE'
5607: ,p_value4 => p_line_start_date);
5608: End IF;
5609: IF p_pa_debug_mode = 'Y' Then
5610: pa_debug.reset_err_stack;
5611: End If;
5612: RAISE;
5613:
5606: ,p_token4 => 'START_DATE'
5607: ,p_value4 => p_line_start_date);
5608: End IF;
5609: IF p_pa_debug_mode = 'Y' Then
5610: pa_debug.reset_err_stack;
5611: End If;
5612: RAISE;
5613:
5614: WHEN OTHERS THEN
5617: x_msg_data := 'Stage['||l_stage||SQLCODE||SQLERRM;
5618: fnd_msg_pub.add_exc_msg
5619: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
5620: ,p_procedure_name => 'delete_budget_lines' );
5621: IF p_pa_debug_mode = 'Y' Then
5622: pa_debug.reset_err_stack;
5623: End If;
5624: RAISE;
5625: END delete_budget_lines;
5618: fnd_msg_pub.add_exc_msg
5619: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
5620: ,p_procedure_name => 'delete_budget_lines' );
5621: IF p_pa_debug_mode = 'Y' Then
5622: pa_debug.reset_err_stack;
5623: End If;
5624: RAISE;
5625: END delete_budget_lines;
5626:
5668: BEGIN
5669:
5670: x_return_status := FND_API.G_RET_STS_SUCCESS;
5671: l_return_status := 'S';
5672: IF p_pa_debug_mode = 'Y' Then
5673: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.chk_req_rate_api_inputs');
5674: End If;
5675:
5676: g_stage := 'chk_req_rate_api_inputs:100';
5669:
5670: x_return_status := FND_API.G_RET_STS_SUCCESS;
5671: l_return_status := 'S';
5672: IF p_pa_debug_mode = 'Y' Then
5673: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.chk_req_rate_api_inputs');
5674: End If;
5675:
5676: g_stage := 'chk_req_rate_api_inputs:100';
5677: l_stage := 8010;
5727: End If;
5728: END IF;
5729: g_stage := 'chk_req_rate_api_inputs:101';
5730: x_return_status := l_return_status;
5731: IF p_pa_debug_mode = 'Y' Then
5732: pa_debug.reset_err_stack;
5733: End If;
5734:
5735: EXCEPTION
5728: END IF;
5729: g_stage := 'chk_req_rate_api_inputs:101';
5730: x_return_status := l_return_status;
5731: IF p_pa_debug_mode = 'Y' Then
5732: pa_debug.reset_err_stack;
5733: End If;
5734:
5735: EXCEPTION
5736: WHEN OTHERS THEN
5738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5739: fnd_msg_pub.add_exc_msg
5740: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
5741: ,p_procedure_name => 'chk_req_rate_api_inputs' );
5742: IF p_pa_debug_mode = 'Y' Then
5743: pa_debug.reset_err_stack;
5744: End If;
5745: RAISE;
5746:
5739: fnd_msg_pub.add_exc_msg
5740: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
5741: ,p_procedure_name => 'chk_req_rate_api_inputs' );
5742: IF p_pa_debug_mode = 'Y' Then
5743: pa_debug.reset_err_stack;
5744: End If;
5745: RAISE;
5746:
5747: END chk_req_rate_api_inputs;
5764:
5765: x_return_status := 'S';
5766: l_stage := 2000;
5767: g_stage := 'populate_rollup_tmp:100';
5768: IF p_pa_debug_mode = 'Y' Then
5769: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5770: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5771: End If;
5772: /*
5765: x_return_status := 'S';
5766: l_stage := 2000;
5767: g_stage := 'populate_rollup_tmp:100';
5768: IF p_pa_debug_mode = 'Y' Then
5769: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5770: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5771: End If;
5772: /*
5773: If P_PA_DEBUG_MODE = 'Y' Then
5769: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5770: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.populate_rollup_tmp');
5771: End If;
5772: /*
5773: If P_PA_DEBUG_MODE = 'Y' Then
5774: for i in (select * from pa_fp_spread_calc_tmp ) LOOP
5775: print_msg('IN params ResId['||i.resource_assignment_id||']TxnCur['||i.txn_currency_code||']RefrFlag['||i.refresh_rates_flag||']');
5776: print_msg('RefrConvFlag['||i.refresh_conv_rates_flag||']gSprdFromDt['||g_spread_from_date||']gLnSD['||i.start_date||']');
5777: print_msg('gLineEnDate['||i.end_date||']massAdflag['||i.mass_adjust_flag||']mfcCstFlag['||i.mfc_cost_refresh_flag||']skipFlag['||i.skip_record_flag||']');
6190: AND NVL(caltmp.refresh_conv_rates_flag,'N') = 'N'
6191: AND NVL(caltmp.mass_adjust_flag,'N') = 'N'
6192: AND NVL(caltmp.mfc_cost_refresh_flag,'N') = 'Y'
6193: ));
6194: If p_pa_debug_mode = 'Y' Then
6195: print_msg('Updating rollup tmp with rate overrides for mfc cost refresh['||sql%rowcount||']');
6196: End If;
6197:
6198: END IF;
6201: * and call rate api
6202: */
6203: IF g_rtChanged_RaId_tab.COUNT > 0 Then
6204: g_stage := 'populate_rollup_tmp:103';
6205: If P_PA_DEBUG_MODE = 'Y' Then
6206: print_msg('Updating rollup with rate overrides ');
6207: End If;
6208: FORALL i IN g_rtChanged_RaId_tab.FIRST .. g_rtChanged_RaId_tab.LAST
6209: UPDATE /*+ INDEX(TMP PA_FP_ROLLUP_TMP_N1) */ pa_fp_rollup_tmp tmp
6241: and tmp.start_date IS NOT NULL
6242: and tmp.start_date BETWEEN g_rtChanged_sDate_tab(i) AND g_rtChanged_eDate_tab(i)
6243: )
6244: );
6245: If P_PA_DEBUG_MODE = 'Y' Then
6246: print_msg('Number of rows updated for RateChanges['||sql%rowcount||']');
6247: End If;
6248: END IF;
6249:
6247: End If;
6248: END IF;
6249:
6250: /**
6251: If P_PA_DEBUG_MODE = 'Y' Then
6252: l_stage := 2019;
6253: SELECT count(*)
6254: INTO l_count
6255: FROM pa_fp_rollup_tmp ;
6258: print_rlTmp_Values;
6259: End If;
6260: **/
6261: x_return_status := 'S';
6262: IF p_pa_debug_mode = 'Y' Then
6263: print_msg('x_return_status : '||x_return_status);
6264: print_msg('Leaving populate_rollup_tmp');
6265: pa_debug.reset_err_stack;
6266: End If;
6261: x_return_status := 'S';
6262: IF p_pa_debug_mode = 'Y' Then
6263: print_msg('x_return_status : '||x_return_status);
6264: print_msg('Leaving populate_rollup_tmp');
6265: pa_debug.reset_err_stack;
6266: End If;
6267: EXCEPTION
6268: WHEN OTHERS THEN
6269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6272: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
6273: ,p_procedure_name => 'populate_rollup_tmp' );
6274: l_stage := 2120;
6275: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
6276: IF p_pa_debug_mode = 'Y' Then
6277: pa_debug.reset_err_stack;
6278: End If;
6279: RAISE;
6280:
6273: ,p_procedure_name => 'populate_rollup_tmp' );
6274: l_stage := 2120;
6275: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
6276: IF p_pa_debug_mode = 'Y' Then
6277: pa_debug.reset_err_stack;
6278: End If;
6279: RAISE;
6280:
6281: END populate_rollup_tmp;
6365:
6366: BEGIN
6367:
6368: x_return_status := FND_API.G_RET_STS_SUCCESS;
6369: IF p_pa_debug_mode = 'Y' Then
6370: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.mass_adjust');
6371: End If;
6372: g_stage := 'mass_adjust:100';
6373: If P_PA_DEBUG_MODE = 'Y' Then
6366: BEGIN
6367:
6368: x_return_status := FND_API.G_RET_STS_SUCCESS;
6369: IF p_pa_debug_mode = 'Y' Then
6370: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.mass_adjust');
6371: End If;
6372: g_stage := 'mass_adjust:100';
6373: If P_PA_DEBUG_MODE = 'Y' Then
6374: print_msg('QtyAdjPct['||l_quantity_adj_pct||']RateAdjPct['||l_cost_rate_adj_pct||']RwCostPct['||l_raw_cost_adj_pct||']');
6369: IF p_pa_debug_mode = 'Y' Then
6370: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.mass_adjust');
6371: End If;
6372: g_stage := 'mass_adjust:100';
6373: If P_PA_DEBUG_MODE = 'Y' Then
6374: print_msg('QtyAdjPct['||l_quantity_adj_pct||']RateAdjPct['||l_cost_rate_adj_pct||']RwCostPct['||l_raw_cost_adj_pct||']');
6375: print_msg('BdRateAdPct['||l_burdened_rate_adj_pct||']BurdPct['||l_burden_cost_adj_pct||']');
6376: print_msg('BillRtAdjPct['||l_bill_rate_adj_pct||']RevPct['||l_revenue_adj_pct||']');
6377: End If;
6610: CLOSE cur_rndQty;
6611: IF l_blId_tab.COUNT > 0 Then
6612: If l_quantity_adj_pct is NOT NULL Then --{
6613: g_stage := 'MassAdjust:Quantity_Rounding adjust:105';
6614: If P_PA_DEBUG_MODE = 'Y' Then
6615: print_msg(g_stage);
6616: End if;
6617: FOR i IN l_blId_tab.FIRST .. l_blId_tab.LAST LOOP
6618: If l_ratebase_tab(i) = 'Y' Then
6633: AND NVL(l_quantity_diff_tab(i),0) <> 0;
6634:
6635: Elsif l_raw_cost_adj_pct is NOT NULL and g_fp_budget_version_type in ('COST','ALL') Then
6636: g_stage := 'MassAdjust:RawCost_Rounding adjust:105';
6637: If P_PA_DEBUG_MODE = 'Y' Then
6638: print_msg(g_stage);
6639: End If;
6640: FOR i IN l_blId_tab.FIRST .. l_blId_tab.LAST LOOP
6641: If l_ratebase_tab(i) = 'N' Then
6662: AND l_ratebase_tab(i) = 'N' ;
6663:
6664: Elsif l_revenue_adj_pct is NOT NULL and g_fp_budget_version_type in ('REVENUE','ALL') Then
6665: g_stage := 'MassAdjust:Revenue_Rounding adjust:105';
6666: If P_PA_DEBUG_MODE = 'Y' Then
6667: print_msg(g_stage);
6668: End If;
6669: FOR i IN l_blId_tab.FIRST .. l_blId_tab.LAST LOOP
6670: If l_ratebase_tab(i) = 'N' Then
6692: END If; --}
6693: END IF;
6694:
6695: End If; --}
6696: IF p_pa_debug_mode = 'Y' Then
6697: print_msg('x_return_status : '||x_return_status);
6698: print_msg('Leaving mass_adjust');
6699: pa_debug.reset_err_stack;
6700: End If;
6695: End If; --}
6696: IF p_pa_debug_mode = 'Y' Then
6697: print_msg('x_return_status : '||x_return_status);
6698: print_msg('Leaving mass_adjust');
6699: pa_debug.reset_err_stack;
6700: End If;
6701: EXCEPTION
6702: WHEN OTHERS THEN
6703: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6705: fnd_msg_pub.add_exc_msg
6706: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
6707: ,p_procedure_name => 'mass_adjust' );
6708: print_msg(g_stage||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
6709: IF p_pa_debug_mode = 'Y' Then
6710: pa_debug.reset_err_stack;
6711: End If;
6712: RAISE;
6713:
6706: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
6707: ,p_procedure_name => 'mass_adjust' );
6708: print_msg(g_stage||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
6709: IF p_pa_debug_mode = 'Y' Then
6710: pa_debug.reset_err_stack;
6711: End If;
6712: RAISE;
6713:
6714: END mass_adjust_new;
6920: ,ra.last_update_date = sysdate
6921: ,ra.last_update_login = l_login_id
6922: WHERE ra.resource_assignment_id = l_resource_assignment_id_tab(i);
6923: END IF;
6924: If P_PA_DEBUG_MODE = 'Y' Then
6925: print_msg('Leaving rollup_pf_pfc_to_ra x_return_status : '||x_return_status);
6926: End If;
6927:
6928: EXCEPTION
7033: WHERE budget_version_id = p_budget_version_id;
7034: EXCEPTION
7035: WHEN OTHERS THEN
7036: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
7037: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
7038: IF P_PA_DEBUG_MODE = 'Y' THEN
7039: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7040: END IF;
7041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7034: EXCEPTION
7035: WHEN OTHERS THEN
7036: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
7037: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
7038: IF P_PA_DEBUG_MODE = 'Y' THEN
7039: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7040: END IF;
7041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7042: SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH:MI:SS') INTO g_session_time
7035: WHEN OTHERS THEN
7036: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
7037: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
7038: IF P_PA_DEBUG_MODE = 'Y' THEN
7039: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7040: END IF;
7041: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7042: SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH:MI:SS') INTO g_session_time
7043: FROM DUAL;
7077: WHERE budget_version_id = p_budget_version_id;
7078: EXCEPTION
7079: WHEN OTHERS THEN
7080: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
7081: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
7082: IF P_PA_DEBUG_MODE = 'Y' THEN
7083: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7084: END IF;
7085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7078: EXCEPTION
7079: WHEN OTHERS THEN
7080: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
7081: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
7082: IF P_PA_DEBUG_MODE = 'Y' THEN
7083: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7084: END IF;
7085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7086: SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH:MI:SS') INTO g_session_time
7079: WHEN OTHERS THEN
7080: print_msg(to_char(l_stage)||' ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv');
7081: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Updating pa_budget_versions in rollup_pf_pfc_to_bv';
7082: IF P_PA_DEBUG_MODE = 'Y' THEN
7083: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7084: END IF;
7085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7086: SELECT TO_CHAR(SYSDATE,'DD-MON-YYYY HH:MI:SS') INTO g_session_time
7087: FROM DUAL;
7101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7102: fnd_msg_pub.add_exc_msg
7103: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
7104: ,p_procedure_name => 'rollup_pf_pfc_to_bv' );
7105: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7106: l_stage := 6140;
7107: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
7108: IF P_PA_DEBUG_MODE = 'Y' THEN
7109: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7104: ,p_procedure_name => 'rollup_pf_pfc_to_bv' );
7105: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7106: l_stage := 6140;
7107: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
7108: IF P_PA_DEBUG_MODE = 'Y' THEN
7109: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7110: END IF;
7111: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7112:
7105: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7106: l_stage := 6140;
7107: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
7108: IF P_PA_DEBUG_MODE = 'Y' THEN
7109: pa_debug.write('rollup_pf_pfc_to_bv: ' || g_module_name,pa_debug.g_err_stage,3);
7110: END IF;
7111: raise FND_API.G_EXC_UNEXPECTED_ERROR;
7112:
7113: END rollup_pf_pfc_to_bv;
7120:
7121: BEGIN
7122: x_return_status := 'S';
7123: IF g_sprd_raId_tab.COUNT > 0 THEN
7124: If P_PA_DEBUG_MODE = 'Y' Then
7125: 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||']');
7126: End If;
7127:
7128: FORALL i IN g_sprd_raId_tab.FIRST .. g_sprd_raId_tab.LAST
7210: ,g_sprd_neg_Raw_Changflag_tab(i)
7211: ,g_sprd_neg_Burd_Changflag_tab(i)
7212: ,g_sprd_neg_rev_Changflag_tab(i)
7213: );
7214: If P_PA_DEBUG_MODE = 'Y' Then
7215: print_msg('Number of SpreadRecords Inserted['||sql%rowcount||']');
7216: End If;
7217: END IF; --}
7218:
7397: r.start_date,
7398: r.txn_currency_code;
7399:
7400: BEGIN
7401: IF p_pa_debug_mode = 'Y' Then
7402: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.convert_ra_txn_currency');
7403: End If;
7404: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
7405: l_return_status := 'S';
7398: r.txn_currency_code;
7399:
7400: BEGIN
7401: IF p_pa_debug_mode = 'Y' Then
7402: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.convert_ra_txn_currency');
7403: End If;
7404: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
7405: l_return_status := 'S';
7406: l_msg_count := 0;
7579: x_return_status := l_entire_return_status;
7580: x_msg_count := l_msg_count;
7581: x_msg_data := l_msg_data;
7582: --print_msg('End of convert_ra_txn_currency retSts['||x_return_status||']');
7583: IF p_pa_debug_mode = 'Y' Then
7584: pa_debug.reset_err_stack;
7585: End If;
7586:
7587:
7580: x_msg_count := l_msg_count;
7581: x_msg_data := l_msg_data;
7582: --print_msg('End of convert_ra_txn_currency retSts['||x_return_status||']');
7583: IF p_pa_debug_mode = 'Y' Then
7584: pa_debug.reset_err_stack;
7585: End If;
7586:
7587:
7588: EXCEPTION
7592: x_msg_data := sqlcode||sqlerrm;
7593: fnd_msg_pub.add_exc_msg
7594: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
7595: ,p_procedure_name => 'convert_ra_txn_currency' );
7596: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7597: print_msg('PA_FP_CALC_PLAN_PKG.convert_ra_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
7598: IF p_pa_debug_mode = 'Y' Then
7599: pa_debug.reset_err_stack;
7600: End If;
7594: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
7595: ,p_procedure_name => 'convert_ra_txn_currency' );
7596: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7597: print_msg('PA_FP_CALC_PLAN_PKG.convert_ra_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
7598: IF p_pa_debug_mode = 'Y' Then
7599: pa_debug.reset_err_stack;
7600: End If;
7601: RAISE;
7602: END convert_ra_txn_currency;
7595: ,p_procedure_name => 'convert_ra_txn_currency' );
7596: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
7597: print_msg('PA_FP_CALC_PLAN_PKG.convert_ra_txn_currency -- Stage : ' ||to_char(l_stage)||' '||substr(SQLERRM,1,240));
7598: IF p_pa_debug_mode = 'Y' Then
7599: pa_debug.reset_err_stack;
7600: End If;
7601: RAISE;
7602: END convert_ra_txn_currency;
7603:
7681: print_msg('Bug fix:4272944: DONOT DELETE AUTOBASELINE zero qty budget lines');
7682: null;
7683: /* Bug fix:4272944 Ends */
7684: ELSIF p_resource_assignment_tab.COUNT > 0 THEN
7685: If P_PA_DEBUG_MODE = 'Y' Then
7686: print_msg('Delete all the budget lines where Qty and Amounts are not exists');
7687: End If;
7688: l_budget_line_id_tab.delete;
7689: l_raid_tab.delete;
7723: ,l_period_name_tab
7724: ,l_proj_cur_code_tab
7725: ,l_projfunc_cur_code_tab;
7726:
7727: If P_PA_DEBUG_MODE = 'Y' Then
7728: print_msg('Number of rows deleted ['||l_budget_line_id_tab.count||']');
7729: End If;
7730: IF l_budget_line_id_tab.COUNT > 0 THEN --{
7731: FOR i IN l_budget_line_id_tab.FIRST .. l_budget_line_id_tab.LAST LOOP
8286: g_ipm_burden_rate_ovr_tab.delete;
8287: -- For Bug# 6781055
8288: gl_cl_roll_up_tmp_rowid_tab.delete;
8289:
8290: IF p_pa_debug_mode = 'Y' Then
8291: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.calculate');
8292: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8293: End If;
8294: l_return_status := FND_API.G_RET_STS_SUCCESS;
8287: -- For Bug# 6781055
8288: gl_cl_roll_up_tmp_rowid_tab.delete;
8289:
8290: IF p_pa_debug_mode = 'Y' Then
8291: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.calculate');
8292: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8293: End If;
8294: l_return_status := FND_API.G_RET_STS_SUCCESS;
8295: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
8288: gl_cl_roll_up_tmp_rowid_tab.delete;
8289:
8290: IF p_pa_debug_mode = 'Y' Then
8291: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.calculate');
8292: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
8293: End If;
8294: l_return_status := FND_API.G_RET_STS_SUCCESS;
8295: l_entire_return_status := FND_API.G_RET_STS_SUCCESS;
8296: x_return_status := FND_API.G_RET_STS_SUCCESS;
8301: SAVEPOINT start_of_calculate_api;
8302:
8303: /* Bug fix: 4078623 Set curr and init err stack both are calling but reset curr function is not done.
8304: * This api call is not required as it does the same as init_err_stack
8305: --pa_debug.set_curr_function( p_function => 'PA_FP_CALC_PLAN_PKG.calculate'
8306: --,p_debug_mode => p_pa_debug_mode);
8307: */
8308: l_calc_start_time := dbms_utility.get_time;
8309: print_plsql_time('Calculate API start Time:['||l_calc_start_time||']','Y');
8302:
8303: /* Bug fix: 4078623 Set curr and init err stack both are calling but reset curr function is not done.
8304: * This api call is not required as it does the same as init_err_stack
8305: --pa_debug.set_curr_function( p_function => 'PA_FP_CALC_PLAN_PKG.calculate'
8306: --,p_debug_mode => p_pa_debug_mode);
8307: */
8308: l_calc_start_time := dbms_utility.get_time;
8309: print_plsql_time('Calculate API start Time:['||l_calc_start_time||']','Y');
8310: If P_PA_DEBUG_MODE = 'Y' Then
8306: --,p_debug_mode => p_pa_debug_mode);
8307: */
8308: l_calc_start_time := dbms_utility.get_time;
8309: print_plsql_time('Calculate API start Time:['||l_calc_start_time||']','Y');
8310: If P_PA_DEBUG_MODE = 'Y' Then
8311: l_stage := 10;
8312: print_msg(to_char(l_stage)||' Entered PA_FP_CALC_PLAN_PKG.calculate');
8313: print_msg('Calculate API start Time:['||l_calc_start_time||']','Y');
8314: l_stage := 20;
8441: G_proj_rev_exchange_rate := NULL;
8442: G_call_raTxn_rollup_flag := NVL(p_raTxn_rollup_api_call_flag,'Y');
8443:
8444: IF p_budget_version_id IS NOT NULL Then
8445: If P_PA_DEBUG_MODE = 'Y' Then
8446: print_msg('Calling Init_Globals API: p_del_spread_calc_tmp1_flg['||p_del_spread_calc_tmp1_flg||']');
8447: End If;
8448: Init_Globals(
8449: p_budget_version_id => p_budget_version_id
8449: p_budget_version_id => p_budget_version_id
8450: ,p_source_context => p_source_context
8451: ,x_return_status => l_return_status
8452: );
8453: If P_PA_DEBUG_MODE = 'Y' Then
8454: print_msg('ReturnStatus of Init_Globals ['||l_return_status||']');
8455: End If;
8456: IF l_return_status <> 'S' Then
8457: x_return_status := l_return_status;
8491:
8492: l_stage := 25;
8493: l_pls_start_time := dbms_utility.get_time;
8494: --print_plsql_time('Start of Validate Inputs:['||l_pls_start_time||']','Y');
8495: If P_PA_DEBUG_MODE = 'Y' Then
8496: print_msg(to_char(l_stage)||' Calling Validate Inputs');
8497: print_msg('Start of Validate Inputs:['||l_pls_start_time||']','Y');
8498: End If;
8499: pa_fp_calc_plan_pkg.validate_inputs
8556: ,x_return_status => l_return_status
8557: ,x_msg_count => x_msg_count
8558: ,x_msg_data => x_msg_data);
8559: l_pls_end_time := dbms_utility.get_time;
8560: If P_PA_DEBUG_MODE = 'Y' Then
8561: print_msg('End of Validate Inputs:['||l_pls_end_time||']','Y');
8562: End If;
8563: print_plsql_time('End of Validate Inputs: Total time :['||(l_pls_end_time-l_pls_start_time)||']');
8564:
8619: for the rest of the procedure
8620: */
8621: l_tab_count := l_resource_assignment_tab.COUNT;
8622: l_stage := 100;
8623: If P_PA_DEBUG_MODE = 'Y' Then
8624: print_msg(to_char(l_stage)||' Check if p_resource_assignment_tab has values['||l_tab_count||']');
8625: End If;
8626:
8627: IF l_tab_count = 0 THEN
8637: l_resource_assignment_tab
8638: ,l_txn_currency_code_tab;
8639: CLOSE get_p_res_asn_curr_code;
8640: l_tab_count := l_resource_assignment_tab.COUNT;
8641: If P_PA_DEBUG_MODE = 'Y' Then
8642: print_msg(to_char(l_stage)||' l_resource_assignment_tab.COUNT ='||to_char(l_tab_count));
8643: End If;
8644: End If;
8645:
8712: l_pls_start_time := dbms_utility.get_time;
8713: --print_plsql_time('Start of populate_spreadCalc_tmp:['||l_pls_start_time);
8714:
8715: IF l_resource_assignment_tab.COUNT > 0 THEN --{
8716: If P_PA_DEBUG_MODE = 'Y' Then
8717: print_msg('Calling PA_FP_CALC_UTILS.populate_spreadCalc_Tmp API');
8718: End If;
8719: PA_FP_CALC_UTILS.populate_spreadCalc_Tmp (
8720: p_budget_version_id => p_budget_version_id
8798: ,x_msg_data => x_msg_data
8799: );
8800: l_pls_end_time := dbms_utility.get_time;
8801: print_plsql_time('End of populate_spreadCalc_tmp:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
8802: If P_PA_DEBUG_MODE = 'Y' Then
8803: print_msg('End of calling PA_FP_CALC_UTILS.populate_spreadCalc_Tmp retSts['||l_return_status||']');
8804: End If;
8805: If l_return_status <> 'S' Then
8806: l_entire_return_status := l_return_status;
8862: /* added this check to make sure that before summing the budget Line amounts
8863: * the closed period amounts should be null
8864: */
8865: IF NVL(l_return_status,'S') = 'S' Then
8866: If P_PA_DEBUG_MODE = 'Y' Then
8867: print_msg('Calling clear_closed_period_etcs API since ETC start date is populated');
8868: End If;
8869: clear_closed_period_etcs
8870: (p_budget_version_id => g_budget_version_id
8869: clear_closed_period_etcs
8870: (p_budget_version_id => g_budget_version_id
8871: ,p_etc_start_date => g_spread_from_date
8872: ,x_return_status => l_return_status );
8873: If P_PA_DEBUG_MODE = 'Y' Then
8874: print_msg('End of clear_closed_period_etcs retSts['||l_return_status||']');
8875: End If;
8876: IF l_return_status <> 'S' Then
8877: l_entire_return_status := l_return_status;
8884: * otherwise this causes data corruption of amounts and quantity get doubled during apply progress
8885: */
8886: IF p_source_context = 'RESOURCE_ASSIGNMENT' AND
8887: NVL(p_raTxn_rollup_api_call_flag,'Y') = 'Y' AND nvl(l_entire_return_status,'S') = 'S' Then
8888: If P_PA_DEBUG_MODE = 'Y' Then
8889: print_msg('Calling populate_raTxn_Recs API for rollup of budgetlines during apply progress');
8890: End if;
8891: delete_raTxn_Tmp;
8892: populate_raTxn_Recs (
8901: ,x_return_status => l_return_status
8902: ,x_msg_count => x_msg_count
8903: ,x_msg_data => x_msg_data
8904: );
8905: If P_PA_DEBUG_MODE = 'Y' Then
8906: print_msg('AFter calling populate_raTxn_Recs retSTst['||l_return_status||']MsgData['||x_msg_data||']');
8907: End if;
8908: IF l_return_status <> 'S' Then
8909: x_return_status := l_return_status;
8921: AND p_source_context = 'RESOURCE_ASSIGNMENT'
8922: AND g_refresh_rates_flag = 'N'
8923: AND g_refresh_conv_rates_flag = 'N'
8924: AND g_mass_adjust_flag = 'N') THEN --{
8925: If P_PA_DEBUG_MODE = 'Y' Then
8926: print_msg('Check zero Quantity budget Lines where actuals Exists');
8927: End if;
8928: PA_FP_CALC_UTILS.Check_ZeroQty_Bls
8929: (p_budget_version_id => p_budget_version_id
8928: PA_FP_CALC_UTILS.Check_ZeroQty_Bls
8929: (p_budget_version_id => p_budget_version_id
8930: ,x_return_status => l_return_status
8931: );
8932: If P_PA_DEBUG_MODE = 'Y' Then
8933: print_msg('ReturnStatus of Check_ZeroQty_ActualBls API['||l_return_status||']');
8934: End if;
8935: If l_return_status <> 'S' Then
8936: x_return_status := 'E';
8961: l_pls_end_time := dbms_utility.get_time;
8962: print_plsql_time('End of clear_etc_rev_other_rejectns Total time :['||(l_pls_end_time-l_pls_start_time)||']');
8963:
8964: l_stage := 210;
8965: If P_PA_DEBUG_MODE = 'Y' Then
8966: print_msg(to_char(l_stage)||' Entering loop using the l_resource_assignment_tab.resource_assignment_id');
8967: print_msg('l_resource_assignment_tab.first['||l_resource_assignment_tab.first||']Last['||l_resource_assignment_tab.last);
8968: print_msg(l_stage||':Count of Errors:MsgCtinErrStack['||fnd_msg_pub.count_msg||']');
8969: End If;
8995: budget lines are all null.
8996: */
8997: BEGIN
8998: l_stage := 220;
8999: If P_PA_DEBUG_MODE = 'Y' Then
9000: print_msg('************'||l_stage||'Inside MAIN resource assignment loop***********');
9001: print_msg('PRINT IN PARAMETERS for this Resource Assignment ID');
9002: print_msg('l_resource_assignment_tab(i) => '|| to_char(l_resource_assignment_tab(i)));
9003: End if;
9179: l_neg_Burd_Changflag_tab(i) := 'N';
9180: l_neg_rev_Changflag_tab(i) := 'N';
9181: End If;
9182:
9183: If P_PA_DEBUG_MODE = 'Y' Then
9184: print_msg('Flag Values:l_re_spread_amts_flag['||l_re_spread_amts_flag||']l_sp_curve_change_flag['||l_sp_curve_change_flag||']');
9185: print_msg('l_rlm_id_change_flag['||l_rlm_id_change_flag||']l_delete_budget_lines['||l_delete_budget_lines||']');
9186: print_msg('l_resAttribChangeFlag['||l_resAttribChangeFlag||']l_ra_in_multi_cur_flag['||l_ra_in_multi_cur_flag||']');
9187: print_msg('l_plan_dates_change_flag['||l_plan_dates_change_flag||']l_mfc_cost_change_flag['||l_mfc_cost_change_flag||']');
9450:
9451: l_stage := 276;
9452: --print_msg(to_char(l_stage)||'CHK if l_delete_budget_lines ['||l_delete_budget_lines||']');
9453: IF l_delete_budget_lines = 'Y' THEN
9454: If P_PA_DEBUG_MODE = 'Y' Then
9455: print_msg(to_char(l_stage)||' Delete from pa_budget_lines, rollup pfc numbers, and skip record');
9456: End if;
9457: pa_fp_calc_plan_pkg.delete_budget_lines
9458: (p_budget_version_id => p_budget_version_id
9465: ,x_msg_count => x_msg_count
9466: ,x_msg_data => x_msg_data
9467: ,x_num_rowsdeleted => l_num_rowsdeleted
9468: );
9469: If P_PA_DEBUG_MODE = 'Y' Then
9470: print_msg('Number of budgetLines deleted['||l_num_rowsdeleted||']retSts['||l_return_status||']');
9471: End if;
9472: IF l_return_status <> 'S' Then
9473: x_return_status := l_return_status;
9558: * and populate the changed flags. Based on these flag apply the
9559: * precedence and set the addl variables to pass it to spread api
9560: */
9561: l_stage := 280;
9562: If P_PA_DEBUG_MODE = 'Y' Then
9563: print_msg(l_stage||'Before calling Compare_With_BdgtLine_Values');
9564: print_msg('l_apply_progress_flag['||l_apply_progress_flag||']l_txn_plan_quantity['||l_txn_plan_quantity||']');
9565: print_msg('l_txn_raw_cost['||l_txn_raw_cost||']l_raw_cost_rate['||l_raw_cost_rate||']rwcostrateoverride['||l_rw_cost_rate_override);
9566: print_msg('l_txn_burdened_cost['||l_txn_burdened_cost||']l_burden_cost_rate['||l_burden_cost_rate||']');
9624: ,x_bl_quantity => l_bl_quantity
9625: );
9626:
9627: l_stage := 281;
9628: If P_PA_DEBUG_MODE = 'Y' Then
9629: print_msg(l_stage||'After calling Compare_With_BdgtLine_Values');
9630: print_msg('l_txn_plan_quantity['||l_txn_plan_quantity||']');
9631: print_msg('l_txn_raw_cost['||l_txn_raw_cost||']l_raw_cost_rate['||l_raw_cost_rate||']rwcostrateoverride['||l_rw_cost_rate_override);
9632: print_msg('l_txn_burdened_cost['||l_txn_burdened_cost||']l_burden_cost_rate['||l_burden_cost_rate||']');
9749:
9750: IF NVL(l_apply_progress_flag,'N') <> 'Y' THEN
9751: IF l_rate_based_flag = 'N' THEN --{
9752: l_stage := 282;
9753: If P_PA_DEBUG_MODE = 'Y' Then
9754: print_msg(l_stage||'Calling Apply_NON_RATE_BASE_precedence api');
9755: End If;
9756: Apply_NON_RATE_BASE_precedence(
9757: p_txn_currency_code => l_txn_currency_code
9791: ,x_txn_raw_cost_addl => l_txn_raw_cost_addl
9792: ,x_txn_plan_quantity_addl => l_txn_plan_quantity_addl
9793: ,x_txn_burdened_cost_addl => l_txn_burdened_cost_addl
9794: );
9795: If P_PA_DEBUG_MODE = 'Y' Then
9796: print_msg(l_stage||'End of Apply_NON_RATE_BASE_precedence api');
9797: End if;
9798: ELse -- rate base flag = 'Y'
9799:
9798: ELse -- rate base flag = 'Y'
9799:
9800:
9801: l_stage := 283;
9802: If P_PA_DEBUG_MODE = 'Y' Then
9803: print_msg(l_stage||'Calling Apply_RATE_BASE_precedence api');
9804: End If;
9805: Apply_RATE_BASE_precedence(
9806: p_txn_currency_code => l_txn_currency_code
9839: ,x_txn_raw_cost_addl => l_txn_raw_cost_addl
9840: ,x_txn_plan_quantity_addl => l_txn_plan_quantity_addl
9841: ,x_txn_burdened_cost_addl => l_txn_burdened_cost_addl
9842: );
9843: If P_PA_DEBUG_MODE = 'Y' Then
9844: print_msg(l_stage||'End of Apply_RATE_BASE_precedence api');
9845: End If;
9846: End If; --} // end of precedence rules
9847: /* Bug fix:5726773 */
9992: End If;
9993: END IF;
9994:
9995: l_stage := 300;
9996: If P_PA_DEBUG_MODE = 'Y' Then
9997: print_msg(to_char(l_stage)||' Local Variables populated from TAB IN parameters');
9998: print_msg(' l_delete_budget_lines['||l_delete_budget_lines||']l_spread_amounts_flag['||l_spread_amounts_flag||']');
9999: print_msg('l_txn_currency_code['||l_txn_currency_code||']l_txn_currency_code_override['||l_txn_currency_code_override||']');
10000: print_msg('l_txn_plan_quantity['||to_char(l_txn_plan_quantity)||']l_txn_plan_quantity_addl['||to_char(l_txn_plan_quantity_addl)||']');
10022: RAISE skip_record;
10023: END IF;
10024:
10025: l_stage := 520;
10026: If P_PA_DEBUG_MODE = 'Y' Then
10027: print_msg(to_char(l_stage)||' Populate global temporary tables :refresh_conv_rates_flag ['||g_refresh_conv_rates_flag||']');
10028: print_msg(']refresh_rates_flag['||g_refresh_rates_flag||']');
10029: End If;
10030:
10065: End If;
10066:
10067: ELSIF ( NVL(l_txn_plan_quantity_addl,0) <> 0 ) THEN
10068: l_stage := 400;
10069: If P_PA_DEBUG_MODE = 'Y' Then
10070: print_msg(to_char(l_stage)||' Spread Required populte the resAss tmp');
10071: End If;
10072: /*
10073: -- Populate global temporary table pa_fp_res_assignments_tmp with values assigned to
10087: l_txn_currency_code := l_txn_currency_code_override;
10088: End If;
10089: **/
10090: l_stage := 501;
10091: If P_PA_DEBUG_MODE = 'Y' Then
10092: print_msg(l_stage||'g_sprd_raId_tab.Last['||g_sprd_raId_tab.Last||']');
10093: print_msg('MulticurPlanSD['||l_multicur_plan_start_date||']MutiCurPlanEd['||l_multicur_plan_end_date||']');
10094: End If;
10095: g_sprd_raId_tab(NVL(g_sprd_raId_tab.last,0)+1) := l_resource_assignment_id;
10139: g_sprd_neg_rev_Changflag_tab(NVL(g_sprd_neg_rev_Changflag_tab.last,0)+1) := l_neg_rev_Changflag_tab(i);
10140: EXCEPTION
10141: WHEN OTHERS THEN
10142: print_msg(to_char(l_stage)||' ***ERROR*** Inserting into pa_fp_res_assignments_tmp');
10143: pa_debug.g_err_stage := to_char(l_stage)||': ***ERROR*** Inserting into pa_fp_res_assignments_tmp';
10144: RAISE;
10145: END;
10146: /* Bug fix:4295967 */
10147: ELSIF (NVL(p_apply_progress_flag,'N') = 'Y'
10160:
10161: END LOOP; --end loop from FOR i in l_resource_assignment_tab.first..l_resource_assignment_tab.last
10162: l_pls_end_time := dbms_utility.get_time;
10163: print_plsql_time('End of MainLoop2:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10164: If P_PA_DEBUG_MODE = 'Y' Then
10165: print_msg(to_char(l_stage)||'END RESOURCE_ASSIGNMENTS LOOP ');
10166: End If;
10167: IF NVL(l_entire_return_status,'S') = 'S' Then
10168: /* Now update the spread_calc tmp table with the required flags to process in bulk */
10165: print_msg(to_char(l_stage)||'END RESOURCE_ASSIGNMENTS LOOP ');
10166: End If;
10167: IF NVL(l_entire_return_status,'S') = 'S' Then
10168: /* Now update the spread_calc tmp table with the required flags to process in bulk */
10169: If P_PA_DEBUG_MODE = 'Y' Then
10170: print_msg('Calling Upd_spread_calc_tmp API');
10171: End If;
10172: Upd_spread_calc_tmp(
10173: p_budget_version_id => g_budget_version_id
10173: p_budget_version_id => g_budget_version_id
10174: ,p_source_context => g_source_context
10175: ,x_return_status => l_return_status
10176: );
10177: If P_PA_DEBUG_MODE = 'Y' Then
10178: print_msg('After calling Upd_spread_calc_tmp api retSts['||l_return_status||']');
10179: End If;
10180: IF l_return_status <> 'S' Then
10181: x_return_status := l_return_status;
10183: print_msg(to_char(l_stage)||'x_msg_data => '|| x_msg_data);
10184: GOTO END_OF_PROCESS;
10185: End If;
10186: End If;
10187: If P_PA_DEBUG_MODE = 'Y' Then
10188: print_msg('SpreadProcessRecs['||g_sprd_raId_tab.COUNT||']MfcCostProcessRec['||g_mfc_cost_refrsh_Raid_tab.COUNT||']');
10189: print_msg('RatesOnlyProcRec['||g_rtChanged_RaId_tab.COUNT||']ApplyProgRefreshRecs['||g_applyProg_RaId_tab.COUNT||']');
10190: End If;
10191:
10191:
10192: /* Process spread records,Call spread package only once in bulk mode */
10193: IF g_sprd_raId_tab.COUNT > 0 THEN --{
10194: l_stage := 543;
10195: If P_PA_DEBUG_MODE = 'Y' Then
10196: print_msg('Populate spread records in tmp table');
10197: End If;
10198: populate_spreadRecs
10199: (p_budget_version_id => g_budget_version_id
10199: (p_budget_version_id => g_budget_version_id
10200: ,p_source_context => g_source_context
10201: ,x_return_status => l_return_status
10202: );
10203: If P_PA_DEBUG_MODE = 'Y' Then
10204: print_msg(to_char(l_stage)||' Spread is required call spread_amounts');
10205: End If;
10206: l_pls_start_time := dbms_utility.get_time;
10207: --print_plsql_time('Start of spread amounts:['||l_pls_start_time);
10212: ,x_msg_data => x_msg_data
10213: );
10214: l_pls_end_time := dbms_utility.get_time;
10215: print_plsql_time('End of spread amounts:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10216: If P_PA_DEBUG_MODE = 'Y' Then
10217: print_msg('After calling spread_amounts api retSts['||l_return_status||']msgdata['||x_msg_data||']');
10218: End If;
10219: IF l_return_status <> 'S' Then
10220: x_return_status := l_return_status;
10230: OR g_refresh_conv_rates_flag ='Y'
10231: OR g_refresh_rates_flag in ('Y','R','C')
10232: OR g_mass_adjust_flag = 'Y' ) THEN --{
10233: l_stage := 530;
10234: If P_PA_DEBUG_MODE = 'Y' Then
10235: print_msg(to_char(l_stage)||' Spread is not required call populate_rollup_tmp');
10236: print_msg(to_char(l_stage)||' Populate global temporary tables :refresh_conv_rates_flag ['||g_refresh_conv_rates_flag||']');
10237: print_msg(']refresh_rates_flag['||g_refresh_rates_flag||']');
10238: End if;
10245: ,x_msg_data => x_msg_data
10246: );
10247: l_pls_end_time := dbms_utility.get_time;
10248: print_plsql_time('End of populate rollupTmp:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10249: If P_PA_DEBUG_MODE = 'Y' Then
10250: print_msg('After Calling populate_rollup_tmp retSts['||l_return_status||']');
10251: End If;
10252: IF l_return_status <> 'S' Then
10253: x_return_status := l_return_status;
10258: END IF;
10259:
10260: IF g_mass_adjust_flag = 'Y' THEN
10261: l_stage := 537;
10262: If P_PA_DEBUG_MODE = 'Y' Then
10263: print_msg(l_stage||'Calling pa_fp_calc_plan_pkg.mass_adjust API');
10264: End If;
10265: /*bug fix:4657962 */
10266: l_pls_start_time := dbms_utility.get_time;
10279: ,x_msg_data => x_msg_data
10280: );
10281: l_pls_end_time := dbms_utility.get_time;
10282: print_plsql_time('End of MassAdjust:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10283: If P_PA_DEBUG_MODE = 'Y' Then
10284: print_msg('End of pa_fp_calc_plan_pkg.mass_adjust API retSts['||l_return_status||']');
10285: End If;
10286: IF l_return_status <> 'S' Then
10287: x_return_status := l_return_status;
10296:
10297: /* Bug fix:4295967 */
10298: IF ( NVL(p_apply_progress_flag,'N') = 'Y'
10299: AND g_applyProg_RaId_tab.COUNT > 0 ) Then
10300: If P_PA_DEBUG_MODE = 'Y' Then
10301: print_msg('Calling populate rollup tmp in apply progress mode to rederive the etc costs');
10302: End If;
10303: l_pls_start_time := dbms_utility.get_time;
10304: --print_plsql_time('Start of populaterollupTmp inApplyProgMode:['||l_pls_start_time);
10309: ,x_msg_data => x_msg_data
10310: );
10311: l_pls_end_time := dbms_utility.get_time;
10312: print_plsql_time('End of populaterollupTmp inApplyProgMode:time :['||(l_pls_end_time-l_pls_start_time)||']');
10313: If P_PA_DEBUG_MODE = 'Y' Then
10314: print_msg('After Calling populate_rollup_tmp retSts['||l_return_status||']');
10315: End If;
10316: IF l_return_status <> 'S' Then
10317: x_return_status := l_return_status;
10325: /* IPM Changes */
10326: /*****
10327: IF l_entire_return_status = 'S' Then
10328: IF g_fp_budget_version_type = 'ALL' and g_process_skip_CstRevrec_tab.COUNT > 0 Then
10329: If P_PA_DEBUG_MODE = 'Y' Then
10330: print_msg('Calling Process_skipped_records');
10331: End if;
10332: Process_skipped_records(p_budget_version_id => g_budget_version_id
10333: ,p_calling_mode => 'PROCESS_CST_REV_MIX'
10400: AND g_fp_budget_version_type = 'ALL')
10401: ) Then
10402:
10403: l_stage := 543;
10404: If P_PA_DEBUG_MODE = 'Y' Then
10405: print_msg(l_stage||'Calling Update_rollupTmp_OvrRates API with genrationContext['||l_generation_context||']');
10406: End if;
10407: l_pls_start_time := dbms_utility.get_time;
10408: --print_plsql_time('Start of Update_rollupTmp_OvrRates:['||l_pls_start_time);
10415: ,x_msg_data => x_msg_data
10416: );
10417: l_pls_end_time := dbms_utility.get_time;
10418: print_plsql_time('End of Update_rollupTmp_OvrRates:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10419: If P_PA_DEBUG_MODE = 'Y' Then
10420: print_msg('After calling Update_rollupTmp_OvrRates api retSts['||l_return_status||']msgdata['||x_msg_data||']');
10421: End If;
10422: IF l_return_status <> 'S' Then
10423: x_return_status := l_return_status;
10428: End If;
10429:
10430: IF (l_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')
10431: AND CheckCacheRecExists(p_budget_version_id => g_budget_version_id) = 'Y') Then
10432: If P_PA_DEBUG_MODE = 'Y' Then
10433: print_msg('Calling PA_FP_CALC_UTILS.copy_BlAttributes api');
10434: End if;
10435: l_pls_start_time := dbms_utility.get_time;
10436: --print_plsql_time('Start of CopyBlAttributes:['||l_pls_start_time);
10443: ,x_msg_data => x_msg_data
10444: );
10445: l_pls_end_time := dbms_utility.get_time;
10446: print_plsql_time('End of CopyBlAttributes:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10447: If P_PA_DEBUG_MODE = 'Y' Then
10448: print_msg('returnSts of PA_FP_CALC_UTILS.copy_BlAttributes['||l_return_status||']');
10449: End If;
10450: IF l_return_status <> 'S' Then
10451: x_return_status := l_return_status;
10459: IF NVL(l_entire_return_status,'S') = 'S' Then --{
10460: If NVL(g_refresh_rates_flag,'N') = 'N' and g_source_context = 'RESOURCE_ASSIGNMENT' Then
10461: /* Bug fix:4900436 */
10462: delete_raTxn_Tmp;
10463: If p_pa_debug_mode = 'Y' Then
10464: print_msg('Calling populate_raTxn_Recs API');
10465: End If;
10466: populate_raTxn_Recs (
10467: p_budget_version_id => g_budget_version_id
10474: ,x_return_status => l_return_status
10475: ,x_msg_count => x_msg_count
10476: ,x_msg_data => x_msg_data
10477: );
10478: If p_pa_debug_mode = 'Y' Then
10479: print_msg('retSts of populate_raTxn_Recs ['||l_return_status||']');
10480: End If;
10481: IF l_return_status <> 'S' Then
10482: x_return_status := l_return_status;
10484: GOTO END_OF_PROCESS;
10485: End If;
10486: End If;
10487: IF NVL(l_return_status,'S') = 'S' AND NVL(g_refresh_rates_flag,'N') = 'N' Then
10488: If P_PA_DEBUG_MODE = 'Y' Then
10489: print_msg('Calling Retain_RaTxn_OverrideRates');
10490: End if;
10491: RETAIN_RA_TXN_OVR_RATES
10492: (p_budget_version_id => g_budget_version_id
10491: RETAIN_RA_TXN_OVR_RATES
10492: (p_budget_version_id => g_budget_version_id
10493: ,x_return_status => l_return_status
10494: );
10495: If P_PA_DEBUG_MODE = 'Y' Then
10496: print_msg('returnSts of RETAIN_RA_TXN_OVR_RATES api['||l_return_status||']');
10497: End if;
10498: IF l_return_status <> 'S' Then
10499: x_return_status := l_return_status;
10502: End If;
10503: End If;
10504: End If; --}
10505:
10506: If P_PA_DEBUG_MODE = 'Y' Then
10507: print_msg('Calling Rate API');
10508: End if;
10509: l_pls_start_time := dbms_utility.get_time;
10510: --print_plsql_time('Start of Get_Res_RATEs:['||l_pls_start_time);
10520: ,x_msg_count => x_msg_count
10521: ) ;
10522: l_pls_end_time := dbms_utility.get_time;
10523: print_plsql_time('End of Get_Res_RATEs:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10524: If P_PA_DEBUG_MODE = 'Y' Then
10525: print_msg('After Calling Rate API retSTS['||l_return_status||']');
10526: End if;
10527: /* bug fix: 4078623 Whenever there is a unexpected error from RATE api just abort the process for the first line itself */
10528: IF l_return_status = 'U' Then
10556: ,x_msg_data => x_msg_data
10557: );
10558: l_pls_end_time := dbms_utility.get_time;
10559: print_plsql_time('End of update_diffcols:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
10560: If P_PA_DEBUG_MODE = 'Y' Then
10561: print_msg('returnSts of PA_FP_CALC_UTILS.update_dff['||l_return_status||']');
10562: End if;
10563: IF l_return_status <> 'S' Then
10564: x_return_status := l_return_status;
10574: get_RollupTmp_Status(
10575: x_return_status => l_return_status);
10576: print_msg('After Calling retSts['||l_return_status||']l_entire_return_status['||l_entire_return_status||']');
10577: IF ( nvl(l_return_status,'S') <> 'S' OR NVL(l_entire_return_status,'S') <> 'S' ) Then
10578: If P_PA_DEBUG_MODE = 'Y' Then
10579: print_msg('Errors found in RollupTmp Aborting the process');
10580: End if;
10581: SELECT decode(nvl(l_return_status,'S'),'E','E'
10582: ,'U','U'
10587: INTO l_return_status
10588: FROM dual;
10589: x_return_status := l_return_status;
10590: l_entire_return_status := l_return_status;
10591: If P_PA_DEBUG_MODE = 'Y' Then
10592: print_msg('Final Return Status['||x_return_status||']MsgCtinErrStack['||fnd_msg_pub.count_msg||']');
10593: End If;
10594: End IF;
10595:
10597: IF nvl(p_calling_module,'BUDGET_GENERATION') = 'BUDGET_GENERATION'
10598: AND p_source_context = 'RESOURCE_ASSIGNMENT'
10599: AND NVL(G_clientExtn_api_call_flag,'Y') = 'Y'
10600: AND NVL(l_entire_return_status,'S') = 'S' Then
10601: If P_PA_DEBUG_MODE = 'Y' Then
10602: print_msg('Calling Process_skipped_records');
10603: End If;
10604: Process_skipped_records(p_budget_version_id => g_budget_version_id
10605: ,p_calling_mode => 'PROCESS_SKIPP_RECS'
10607: ,x_return_status => l_return_status
10608: ,x_msg_count => x_msg_count
10609: ,x_msg_data => x_msg_data
10610: );
10611: If P_PA_DEBUG_MODE = 'Y' Then
10612: print_msg('After Process_skipped_records l_return_status = ' || l_return_status);
10613: End if;
10614: IF l_return_status <> 'S' THEN
10615: l_entire_return_status := l_return_status;
10623: IF (not (p_calling_module is not null and p_calling_module = 'AMG_API') )
10624: THEN
10625: IF NVL(G_clientExtn_api_call_flag,'Y') = 'Y' AND NVL(l_entire_return_status,'S') = 'S' Then
10626: l_stage := 900;
10627: If P_PA_DEBUG_MODE = 'Y' Then
10628: print_msg(to_char(l_stage)||'Call to pa_client_extn_budget');
10629: End if;
10630: l_cl_txn_plan_quantity_tab.delete;
10631: l_cl_txn_raw_cost_tab.delete;
10962:
10963: End If;
10964:
10965: l_stage := 1000;
10966: If P_PA_DEBUG_MODE = 'Y' Then
10967: print_msg(to_char(l_stage)||'CHK g_conv_rates_required_flag = Y');
10968: print_msg('p_conv_rates_required_flag => '||g_conv_rates_required_flag||']g_track_wp_costs_flag['||g_track_wp_costs_flag||']');
10969: End if;
10970: /* Refreshing the rates will also refresh the conversion rates */
10970: /* Refreshing the rates will also refresh the conversion rates */
10971: IF NVL(l_entire_return_status,'S') = 'S' AND NVL(g_track_wp_costs_flag,'Y') = 'Y' THEN
10972: IF (g_conv_rates_required_flag = 'Y' OR g_refresh_rates_flag in ('Y','R','C')) THEN
10973: l_stage := 1010;
10974: If P_PA_DEBUG_MODE = 'Y' Then
10975: print_msg(to_char(l_stage)||'Calling convert_txn_currency with the following parameters:');
10976: End if;
10977: l_pls_start_time := dbms_utility.get_time;
10978: --print_plsql_time('Start of Currency Conversion['||l_pls_start_time);
10985: ,x_msg_data => l_msg_data --5028631
10986: );
10987: l_pls_end_time := dbms_utility.get_time;
10988: print_plsql_time('End of Currency ConversionTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
10989: If P_PA_DEBUG_MODE = 'Y' Then
10990: print_msg('AFter calling convert_txn_currency API returnSTS['||l_return_status||']');
10991: End if;
10992: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10993: x_return_status := l_return_status;
11036: ,x_msg_data => l_msg_data --5028631
11037: );
11038: l_pls_end_time := dbms_utility.get_time;
11039: print_plsql_time('End of BLK UpdateBudget Total time :['||(l_pls_end_time-l_pls_start_time)||']');
11040: If P_PA_DEBUG_MODE = 'Y' Then
11041: print_msg('AFter calling update_budget_lines retSTst['||l_return_status||']MsgData['||l_msg_data||']');
11042: End if;
11043: IF l_return_status <> 'S' Then
11044: x_return_status := l_return_status;
11047: GOTO END_OF_PROCESS;
11048: END IF;
11049:
11050: IF NVL(p_raTxn_rollup_api_call_flag,'Y') = 'Y' AND nvl(l_entire_return_status,'S') = 'S' Then
11051: If P_PA_DEBUG_MODE = 'Y' Then
11052: print_msg('Calling populate_raTxn_Recs API');
11053: End if;
11054: l_pls_start_time := dbms_utility.get_time;
11055: --print_plsql_time('Start of populate_raTxn_Recs :['||l_pls_start_time);
11068: ,x_msg_data => l_msg_data --5028631
11069: );
11070: l_pls_end_time := dbms_utility.get_time;
11071: print_plsql_time('End of populate_raTxn_RecsTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
11072: If P_PA_DEBUG_MODE = 'Y' Then
11073: print_msg('AFter calling populate_raTxn_Recs retSTst['||l_return_status||']MsgData['||l_msg_data||']');
11074: End if;
11075: IF l_return_status <> 'S' Then
11076: x_return_status := l_return_status;
11094: l_entire_return_status := l_return_status;
11095: x_msg_data := l_msg_data; --5028631
11096: GOTO END_OF_PROCESS;
11097: END IF;
11098: If p_pa_debug_mode = 'Y' Then
11099: DbugPjiVals;
11100: End If;
11101: l_pls_start_time := dbms_utility.get_time;
11102: --print_plsql_time('Start of PJI reporting:['||l_pls_start_time);
11155: END;
11156:
11157: l_pls_end_time := dbms_utility.get_time;
11158: print_plsql_time('End of PJI reporting:Total time :['||(l_pls_end_time-l_pls_start_time)||']');
11159: If P_PA_DEBUG_MODE = 'Y' Then
11160: print_msg('AFter calling PA_FP_PJI_INTG_PKG retSTst['||l_return_status||']MsgData['||l_msg_data||']');
11161: End if;
11162: IF l_return_status <> 'S' Then
11163: x_return_status := l_return_status;
11175: -- numbers must be rolled up. Therefore a loop is required.
11176: */
11177: IF NVL(l_entire_return_status,'S') = 'S' Then
11178: l_stage := 1210;
11179: If P_PA_DEBUG_MODE = 'Y' Then
11180: print_msg('Rollup PC and PFC to RA ');
11181: End if;
11182: l_pls_start_time := dbms_utility.get_time;
11183: --print_plsql_time('Start of rollup_pf_pfc_to_ra :['||l_pls_start_time);
11188: ,x_msg_data => l_msg_data --5028631
11189: );
11190: l_pls_end_time := dbms_utility.get_time;
11191: print_plsql_time('End of rollup_pf_pfc_to_raTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
11192: If P_PA_DEBUG_MODE = 'Y' Then
11193: print_msg('After calling pa_fp_calc_plan_pkg.rollup_pf_pfc_to_ra retSts['||l_return_status||']msgData['||l_msg_data||']');
11194: End if;
11195: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11196: x_return_status := l_return_status;
11208: /* Delete all the budget Lines where quantity and amounts are not exists but only the rate
11209: * retaining these budget lines will cause issues in reating the currency for workplan version
11210: * ideally budget lines with null amounts and null quantity with rate make no sense
11211: */
11212: If P_PA_DEBUG_MODE = 'Y' Then
11213: print_msg(l_stage||'Calling Delete_BL_Where_Nulls API');
11214: End if;
11215: l_pls_start_time := dbms_utility.get_time;
11216: --print_plsql_time('Start of Delete_BL_Where_Nulls :['||l_pls_start_time);
11221: ,x_msg_data => l_msg_data --5028631
11222: );
11223: l_pls_end_time := dbms_utility.get_time;
11224: print_plsql_time('End of Delete_BL_Where_NullsTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
11225: If P_PA_DEBUG_MODE = 'Y' Then
11226: print_msg('AFter calling Delete_BL_Where_Nulls retSTst['||l_return_status||']MsgData['||l_msg_data||']');
11227: End if;
11228: IF l_return_status <> 'S' Then
11229: x_return_status := l_return_status;
11247: --print_plsql_time('Start of MRC:['||l_pls_start_time);
11248:
11249: l_stage := 1280;
11250: IF (NVL(G_populate_mrc_tab_flag,'N') = 'Y' AND g_mrc_budget_line_id_tab.COUNT > 0 ) Then
11251: If P_PA_DEBUG_MODE = 'Y' Then
11252: print_msg(to_char(l_stage)||' Calling pa_mrc_finplan.maintain_all_mc_budget_lines:');
11253: End if;
11254: Populate_rollup_WithMrcRecs
11255: (p_budget_version_id => g_budget_version_id
11255: (p_budget_version_id => g_budget_version_id
11256: ,x_msg_data => l_msg_data --5028631
11257: ,x_return_status => l_return_status
11258: );
11259: If P_PA_DEBUG_MODE = 'Y' Then
11260: print_msg('After calling Populate_rollup_WithMrcRecs retSts['||l_return_status||']msgData['||l_msg_data||']');
11261: End if;
11262: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11263: x_return_status := l_return_status;
11268: END IF;
11269: END If;
11270:
11271: l_stage := 1280.1;
11272: If P_PA_DEBUG_MODE = 'Y' Then
11273: print_msg(to_char(l_stage)||' Calling pa_mrc_finplan.maintain_all_mc_budget_lines:');
11274: End if;
11275: pa_mrc_finplan.maintain_all_mc_budget_lines
11276: ( p_fin_plan_version_id => g_budget_version_id
11278: ,x_return_status => l_return_status
11279: ,x_msg_count => x_msg_count
11280: ,x_msg_data => l_msg_data --5028631
11281: );
11282: If P_PA_DEBUG_MODE = 'Y' Then
11283: print_msg('After calling pa_mrc_finplan.maintain_all_mc_budget_lines retSts['||l_return_status||']msgData['||l_msg_data||']');
11284: end if;
11285: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11286: x_return_status := l_return_status;
11298: -- ROLLUP PC and PFC numbers to pa_budget_versions
11299: */
11300: IF NVL(l_entire_return_status,'S') = 'S' Then
11301: l_stage := 1300;
11302: If P_PA_DEBUG_MODE = 'Y' Then
11303: print_msg(to_char(l_stage)||' Calling rollup_pf_pfc_to_bv with following parameters:');
11304: End if;
11305: l_pls_start_time := dbms_utility.get_time;
11306: --print_plsql_time('Start of rollup_pf_pfc_to_bv:['||l_pls_start_time);
11311: ,x_msg_data => l_msg_data --5028631
11312: );
11313: l_pls_end_time := dbms_utility.get_time;
11314: print_plsql_time('End of rollup_pf_pfc_to_bvTotal time :['||(l_pls_end_time-l_pls_start_time)||']');
11315: If P_PA_DEBUG_MODE = 'Y' Then
11316: print_msg('After calling pa_fp_calc_plan_pkg.rollup_pf_pfc_to_bv retSts['||l_return_status||']msgData['||l_msg_data||']');
11317: End if;
11318: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11319: x_return_status := l_return_status;
11324: END IF;
11325:
11326: IF NVL(l_entire_return_status,'S') = 'S' AND g_fp_multi_curr_enabled = 'Y' THEN
11327: l_stage := 1322;
11328: If P_PA_DEBUG_MODE = 'Y' Then
11329: print_msg(to_char(l_stage)||'Call pa_fp_gen_amount_utils only if g_fp_multi_curr_enabled ['||g_fp_multi_curr_enabled||']');
11330: End if;
11331: pa_fp_gen_amount_utils.get_plan_version_dtls
11332: (p_project_id => g_project_id,
11335: x_return_status => l_return_status
11336: ,x_msg_count => x_msg_count
11337: ,x_msg_data => l_msg_data --5028631
11338: );
11339: If P_PA_DEBUG_MODE = 'Y' Then
11340: print_msg('After calling pa_fp_gen_amount_utils.get_plan_version_dtls retSts['||l_return_status||']msgData['||l_msg_data||']');
11341: End if;
11342: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11343: x_return_status := l_return_status;
11346: GOTO END_OF_PROCESS;
11347: END IF;
11348:
11349: l_stage := 1327;
11350: If P_PA_DEBUG_MODE = 'Y' Then
11351: print_msg(to_char(l_stage)||' Calling insert_txn_currency api');
11352: End if;
11353: pa_fp_gen_budget_amt_pub.insert_txn_currency
11354: (p_project_id => g_project_id,
11357: x_return_status => l_return_status
11358: ,x_msg_count => x_msg_count
11359: ,x_msg_data => l_msg_data --5028631
11360: );
11361: If P_PA_DEBUG_MODE = 'Y' Then
11362: print_msg('AFter calling pa_fp_gen_budget_amt_pub.insert_txn_currency API retSts['||l_return_status||']x_msg_date['||l_msg_data||']');
11363: End if;
11364: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11365: x_return_status := l_return_status;
11393: End If;
11394: END IF;
11395:
11396: <
11397: If P_PA_DEBUG_MODE = 'Y' Then
11398: print_msg('Set x_return_status := l_entire_return_status => '||l_entire_return_status);
11399: End if;
11400: x_return_status := NVL(l_entire_return_status,'S');
11401: IF x_return_status = 'U' Then
11420: END IF;
11421: ROLLBACK TO start_of_calculate_api;
11422: IF NVL(x_msg_count,0) = 0 Then
11423: x_msg_data := NVL(l_msg_data,x_msg_data); --5028631
11424: If P_PA_DEBUG_MODE = 'Y' Then
11425: print_msg('msg count is zero: x_return_status : '||x_return_status||']x_msg_count['||x_msg_count||']x_msg_data['||x_msg_data||']');
11426: End if;
11427: End If;
11428: End If;
11426: End if;
11427: End If;
11428: End If;
11429: /* Reset the error stack */
11430: IF p_pa_debug_mode = 'Y' Then
11431: pa_debug.reset_err_stack;
11432: End If;
11433: /* Bug fix: 4225263. When CST_getItemCost raises no data found, the bill rate rate api adds this msg to stack
11434: * though the calculate api is passing return sts as sucess(S), and msgct =0 and msgdata = null, the page
11427: End If;
11428: End If;
11429: /* Reset the error stack */
11430: IF p_pa_debug_mode = 'Y' Then
11431: pa_debug.reset_err_stack;
11432: End If;
11433: /* Bug fix: 4225263. When CST_getItemCost raises no data found, the bill rate rate api adds this msg to stack
11434: * though the calculate api is passing return sts as sucess(S), and msgct =0 and msgdata = null, the page
11435: * is getting the count from error stack and raising the unexpected error
11452: close cur_ra_txn_rates;
11453: end if;
11454: l_pls_end_time := dbms_utility.get_time;
11455: /* End of bug fix:4343985 */
11456: If P_PA_DEBUG_MODE = 'Y' Then
11457: print_msg('LEAVING calculate bvid => '||g_budget_version_id||' ,pid => '||g_project_id||' ,sesstime => '||g_session_time);
11458: print_msg('x_return_status : '||x_return_status||']x_msg_count['||x_msg_count||']x_msg_data['||x_msg_data||']');
11459: End if;
11460: print_plsql_time('End of CalculateAPI:['||l_pls_end_time||']');
11462:
11463: EXCEPTION
11464: WHEN OTHERS THEN
11465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11466: IF p_pa_debug_mode = 'Y' Then
11467: pa_debug.write_file('LOG: '||pa_debug.g_err_stage);
11468: pa_debug.reset_err_stack;
11469: End If;
11470: If x_msg_data is NULL Then
11463: EXCEPTION
11464: WHEN OTHERS THEN
11465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11466: IF p_pa_debug_mode = 'Y' Then
11467: pa_debug.write_file('LOG: '||pa_debug.g_err_stage);
11468: pa_debug.reset_err_stack;
11469: End If;
11470: If x_msg_data is NULL Then
11471: x_msg_data := sqlcode||sqlerrm;
11464: WHEN OTHERS THEN
11465: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11466: IF p_pa_debug_mode = 'Y' Then
11467: pa_debug.write_file('LOG: '||pa_debug.g_err_stage);
11468: pa_debug.reset_err_stack;
11469: End If;
11470: If x_msg_data is NULL Then
11471: x_msg_data := sqlcode||sqlerrm;
11472: End If;
11472: End If;
11473: fnd_msg_pub.add_exc_msg
11474: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
11475: ,p_procedure_name => 'calculate:'||substr(l_stage,1,240) );
11476: pa_debug.write_file('LOG: '||substr(l_stage||':'||sqlcode||sqlerrm,1,240));
11477:
11478: /* Bug fix: 4343985 */
11479: IF cur_avgBlrts%ISOPEN then
11480: CLOSE cur_avgBlrts;
11558: /* end OF BUG fix: 4275007 */
11559:
11560: BEGIN
11561: -- INitialize the err stack;
11562: IF p_pa_debug_mode = 'Y' Then
11563: PA_DEBUG.INIT_ERR_STACK('PA_FP_CALC_PLAN_PKG.Convert_Final_Txn_Cur_Amts');
11564: End If;
11565: l_return_status := 'S';
11566: x_return_status := 'S';
11559:
11560: BEGIN
11561: -- INitialize the err stack;
11562: IF p_pa_debug_mode = 'Y' Then
11563: PA_DEBUG.INIT_ERR_STACK('PA_FP_CALC_PLAN_PKG.Convert_Final_Txn_Cur_Amts');
11564: End If;
11565: l_return_status := 'S';
11566: x_return_status := 'S';
11567:
11610: ,p_token1 => 'Error_Message'
11611: ,p_value1 => x_msg_data
11612: );
11613: x_msg_data := 'PA_FP_PROJ_NO_TXNCONVRATE';
11614: IF p_pa_debug_mode = 'Y' Then
11615: pa_debug.reset_err_stack;
11616: End If;
11617: RETURN;
11618: End If;
11611: ,p_value1 => x_msg_data
11612: );
11613: x_msg_data := 'PA_FP_PROJ_NO_TXNCONVRATE';
11614: IF p_pa_debug_mode = 'Y' Then
11615: pa_debug.reset_err_stack;
11616: End If;
11617: RETURN;
11618: End If;
11619: End If;
11699: END IF;
11700: END IF;
11701:
11702: x_return_status := NVL(l_return_status,'S');
11703: IF p_pa_debug_mode = 'Y' Then
11704: pa_debug.reset_err_stack;
11705: End If;
11706: --print_msg('LEAVING Convert_Final_Txn_Cur_Amts x_return_status : '||x_return_status||']x_msg_data['||x_msg_data||']');
11707:
11700: END IF;
11701:
11702: x_return_status := NVL(l_return_status,'S');
11703: IF p_pa_debug_mode = 'Y' Then
11704: pa_debug.reset_err_stack;
11705: End If;
11706: --print_msg('LEAVING Convert_Final_Txn_Cur_Amts x_return_status : '||x_return_status||']x_msg_data['||x_msg_data||']');
11707:
11708: EXCEPTION
11711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11712: If x_msg_data is NULL Then
11713: x_msg_data := sqlcode||sqlerrm;
11714: End If;
11715: IF p_pa_debug_mode = 'Y' Then
11716: pa_debug.reset_err_stack;
11717: End If;
11718: fnd_msg_pub.add_exc_msg
11719: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
11712: If x_msg_data is NULL Then
11713: x_msg_data := sqlcode||sqlerrm;
11714: End If;
11715: IF p_pa_debug_mode = 'Y' Then
11716: pa_debug.reset_err_stack;
11717: End If;
11718: fnd_msg_pub.add_exc_msg
11719: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
11720: ,p_procedure_name => 'Convert_Final_Txn_Cur_Amts' );
12074: l_time_end number ;
12075: BEGIN
12076:
12077: -- INitialize the err stack;
12078: IF p_pa_debug_mode = 'Y' Then
12079: PA_DEBUG.INIT_ERR_STACK('PA_FP_CALC_PLAN_PKG.Get_Res_Rates');
12080: print_msg('Entered Get_Res_Rates API');
12081: End If;
12082: l_return_status := 'S';
12075: BEGIN
12076:
12077: -- INitialize the err stack;
12078: IF p_pa_debug_mode = 'Y' Then
12079: PA_DEBUG.INIT_ERR_STACK('PA_FP_CALC_PLAN_PKG.Get_Res_Rates');
12080: print_msg('Entered Get_Res_Rates API');
12081: End If;
12082: l_return_status := 'S';
12083: x_return_status := 'S';
12132: g_resource_name := caltmp.resource_name;
12133: l_billable_flag := NVL(caltmp.billable_flag,'N');
12134: l_rateApi_billable_flag := l_billable_flag;
12135:
12136: If P_PA_DEBUG_MODE = 'Y' Then
12137: print_msg('LOOOOOP:ResId['||p_resource_assignment_id||']TxnCur['||p_txn_currency_code||']CurOvr['||p_txn_currency_code_ovr||']');
12138: print_msg('glinesd['||g_line_start_date||']iglineEd['||g_line_end_date||']l_billable_flag['||l_billable_flag||']');
12139: End if;
12140:
12224:
12225: l_return_status := 'S';
12226: x_msg_data := NULL;
12227:
12228: If P_PA_DEBUG_MODE = 'Y' Then
12229: print_msg(to_char(l_stage)||' Rate API req parameters from pa_fp_rollup_tmp');
12230: print_msg(' l_txn_currency_code := '||l_txn_currency_code);
12231: print_msg(' l_Final_txn_currency_code := '||l_Final_txn_currency_code);
12232: print_msg(' l_txn_plan_quantity := '||l_txn_plan_quantity);
12661: End If;
12662: End If;
12663:
12664: l_stage := 700;
12665: If P_PA_DEBUG_MODE = 'Y' Then
12666: print_msg(to_char(l_stage)||' All Rate API required parameters');
12667: print_msg(' ---------LEGEND----------------------------- ');
12668: print_msg(' **REQUIRED** = MUST BE PASSED TO RATE API');
12669: print_msg(' p_project_id => '||p_project_id);
12855: ,x_return_status => l_return_status
12856: ,x_msg_data => x_msg_data
12857: ,x_msg_count => x_msg_count
12858: );
12859: If P_PA_DEBUG_MODE = 'Y' Then
12860: print_msg('Return status of the RATE API['||l_return_status||']msgData['||x_msg_data||']');
12861: print_msg('get_plannig_rateAPIMsgCtinErrStack['||fnd_msg_pub.count_msg||']');
12862: End if;
12863: If l_return_status = 'U' Then
12910: RAISE RATEAPI_UNEXPECTED_ERRORS;
12911: END;
12912:
12913: l_stage := 746;
12914: If P_PA_DEBUG_MODE = 'Y' Then
12915: print_msg(l_stage||'****AFTER Calling get_planning_rates**** Raw Values returned by Rate API: ');
12916: print_msg('x_cost_txn_curr_code['||x_cost_txn_curr_code||']x_raw_cost['||x_raw_cost||']x_cost_rate['||x_cost_rate||']');
12917: print_msg('x_burden_cost['||x_burden_cost||']x_burden_cost_rate['||x_burden_cost_rate||']x_burden_multiplier['||x_burden_multiplier||']');
12918: print_msg('x_cost_ind_compiled_set_id['||x_cost_ind_compiled_set_id||']');
14229: End If;
14230: End If; --}
14231:
14232: l_stage := 838;
14233: If P_PA_DEBUG_MODE = 'Y' Then
14234: print_msg(to_char(l_stage)||'Calling update_rollup_tmp with the following parameters:');
14235: print_msg(' p_budget_line_id => '||to_char(l_budget_line_id));
14236: print_msg('Qtuantity =>'||l_txn_plan_quantity||']');
14237: print_msg(' p_bill_rate => '||to_char(x_bill_rate));
14317: ,RL.SYSTEM_REFERENCE5 = 'Y'
14318: WHERE RL.BUDGET_LINE_ID = l_rlt_budget_line_id_tab(i);
14319: END IF;
14320: x_return_status := NVL(l_return_status,'S');
14321: IF p_pa_debug_mode = 'Y' Then
14322: print_msg('Leaving Get_Res_Rates API sts['||x_return_status||']');
14323: pa_debug.reset_err_stack;
14324: End If;
14325: EXCEPTION
14319: END IF;
14320: x_return_status := NVL(l_return_status,'S');
14321: IF p_pa_debug_mode = 'Y' Then
14322: print_msg('Leaving Get_Res_Rates API sts['||x_return_status||']');
14323: pa_debug.reset_err_stack;
14324: End If;
14325: EXCEPTION
14326: WHEN RATEAPI_UNEXPECTED_ERRORS THEN
14327: fnd_msg_pub.add_exc_msg
14327: fnd_msg_pub.add_exc_msg
14328: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14329: ,p_procedure_name => 'Get_Res_Rates.pa_plan_revenue.Get_planning_Rates');
14330: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14331: IF p_pa_debug_mode = 'Y' Then
14332: pa_debug.reset_err_stack;
14333: End If;
14334: x_return_status := 'U';
14335: RAISE;
14328: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14329: ,p_procedure_name => 'Get_Res_Rates.pa_plan_revenue.Get_planning_Rates');
14330: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14331: IF p_pa_debug_mode = 'Y' Then
14332: pa_debug.reset_err_stack;
14333: End If;
14334: x_return_status := 'U';
14335: RAISE;
14336:
14338: fnd_msg_pub.add_exc_msg
14339: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14340: ,p_procedure_name => 'Get_Res_Rates:Update_rollupTmp_OvrRates');
14341: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14342: IF p_pa_debug_mode = 'Y' Then
14343: pa_debug.reset_err_stack;
14344: End If;
14345: x_return_status := 'U';
14346: RAISE;
14339: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14340: ,p_procedure_name => 'Get_Res_Rates:Update_rollupTmp_OvrRates');
14341: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14342: IF p_pa_debug_mode = 'Y' Then
14343: pa_debug.reset_err_stack;
14344: End If;
14345: x_return_status := 'U';
14346: RAISE;
14347: WHEN OTHERS THEN
14348: fnd_msg_pub.add_exc_msg
14349: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14350: ,p_procedure_name => 'Get_Res_Rates');
14351: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14352: IF p_pa_debug_mode = 'Y' Then
14353: pa_debug.reset_err_stack;
14354: End If;
14355: x_return_status := 'U';
14356: RAISE;
14349: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
14350: ,p_procedure_name => 'Get_Res_Rates');
14351: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
14352: IF p_pa_debug_mode = 'Y' Then
14353: pa_debug.reset_err_stack;
14354: End If;
14355: x_return_status := 'U';
14356: RAISE;
14357:
14441: l_txn_b_cost_rate := p_txn_b_cost_rate;
14442: l_txn_b_cost_rate_override := p_txn_b_cost_rate_override;
14443: l_txn_bill_rate := p_txn_bill_rate;
14444: l_txn_bill_rate_override := p_txn_bill_rate_override;
14445: If P_PA_DEBUG_MODE = 'Y' Then
14446: print_msg('Entered Compare_With_BdgtLine_Values API');
14447: End if;
14448: i := NULL;
14449: AvgBlRec := NULL;
14509: x_bl_raw_cost := i.txn_raw_cost;
14510: x_bl_burdened_cost := i.txn_burdened_cost;
14511: x_bl_revenue := i.txn_revenue;
14512: x_bl_quantity := i.quantity;
14513: If P_PA_DEBUG_MODE = 'Y' Then
14514: print_msg('bletcCstRtOvr['||i.etc_cost_rate_override||']EtcRt['||i.etc_cost_rate||']EtcBurdRtOvr['||i.etc_burden_rate_override||']EtcBdRt['||i.etc_burden_rate||']');
14515: End if;
14516:
14517: If (x_init_raw_cost is NULL
14707: x_bill_rate_changed_flag := 'N';
14708: p_txn_bill_rate_override := 1;
14709: End If;
14710: End If;
14711: If P_PA_DEBUG_MODE = 'Y' Then
14712: print_msg('Leaving Compare_With_BdgtLine_Values API');
14713: End if;
14714: EXCEPTION
14715: WHEN OTHERS THEN
15094: End If;
15095: If x_txn_revenue_addl = 0 Then
15096: x_txn_revenue_addl := NULL;
15097: End If;
15098: If P_PA_DEBUG_MODE = 'Y' Then
15099: print_msg('Leaving pply_NON_RATE_BASE_precedence API with status [S]');
15100: End if;
15101: EXCEPTION
15102: WHEN OTHERS THEN
15375: * ((new raw cost - actual raw cost) *
15376: * ((old burden cost - actual burden cost) /
15377: * (old raw cost - actual raw cost))) /
15378: * (quantity - actual quantity) */
15379: If p_pa_debug_mode = 'Y' Then
15380: print_msg('PRC:9.1:p_curr_burden_rate['||p_curr_burden_rate||']');
15381: End If;
15382: IF p_curr_burden_rate IS NOT NULL AND (p_raw_cost_changed_flag = 'Y' OR p_rw_cost_rate_changed_flag = 'Y') THEN
15383: IF ((nvl(p_bl_raw_cost,0) - nvl(p_init_raw_cost,0)) <> 0) AND
15644: End If;
15645: If x_txn_revenue_addl = 0 Then
15646: x_txn_revenue_addl := NULL;
15647: End If;
15648: If P_PA_DEBUG_MODE = 'Y' Then
15649: print_msg('Leaving Apply_RATE_BASE_precedence API with status [S]');
15650: End if;
15651: EXCEPTION
15652: WHEN OTHERS THEN
15665: l_msg_count Number;
15666: l_msg_data Varchar2(100);
15667: BEGIN
15668: x_return_status := 'S';
15669: If P_PA_DEBUG_MODE = 'Y' Then
15670: print_msg('Entered Init_Globals API');
15671: End if;
15672: IF p_budget_version_id IS NOT NULL Then
15673: /*
15677: ProjFpOptRec := NULL;
15678: OPEN get_proj_fp_options_csr(p_budget_version_id);
15679: FETCH get_proj_fp_options_csr INTO ProjFpOptRec;
15680: CLOSE get_proj_fp_options_csr;
15681: If P_PA_DEBUG_MODE = 'Y' Then
15682: print_msg('Assigning project options cursorval to globla variables');
15683: End if;
15684: g_fp_budget_version_type := ProjFpOptRec.version_type;
15685: g_bv_resource_list_id := ProjFpOptRec.resource_list_id;
15728: G_populate_mrc_tab_flag := 'N';
15729: End If;
15730: **/
15731: G_populate_mrc_tab_flag := 'N';
15732: If P_PA_DEBUG_MODE = 'Y' Then
15733: print_msg('Calling pa_fp_gen_amount_utils.get_plan_version_dtls ');
15734: End If;
15735: pa_fp_gen_amount_utils.get_plan_version_dtls
15736: (p_project_id => g_project_id,
15739: x_return_status => l_return_status,
15740: x_msg_count => l_msg_count,
15741: x_msg_data => l_msg_data
15742: );
15743: If P_PA_DEBUG_MODE = 'Y' Then
15744: 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||']');
15745: 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||']');
15746: print_msg('g_wp_version_flag['||g_wp_version_flag||']g_fp_budget_version_typei['||g_fp_budget_version_type||']');
15747: print_msg('g_track_wp_costs_flag['||g_track_wp_costs_flag||']G_AGR_CONV_REQD_FLAG['||G_AGR_CONV_REQD_FLAG||']');
15781: l_msg_index_out NUMBER;
15782: BEGIN
15783:
15784: x_return_status := 'S';
15785: IF p_pa_debug_mode = 'Y' Then
15786: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15787: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15788: End If;
15789: /***
15783:
15784: x_return_status := 'S';
15785: IF p_pa_debug_mode = 'Y' Then
15786: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15787: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15788: End If;
15789: /***
15790: If P_PA_DEBUG_MODE = 'Y' Then
15791: for i in (select * from pa_fp_spread_calc_tmp ) LOOP
15786: print_msg(to_char(l_stage)||'Entered PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15787: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.Process_skipped_records');
15788: End If;
15789: /***
15790: If P_PA_DEBUG_MODE = 'Y' Then
15791: for i in (select * from pa_fp_spread_calc_tmp ) LOOP
15792: print_msg('IN params ResId['||i.resource_assignment_id||']TxnCur['||i.txn_currency_code||']RefrFlag['||i.refresh_rates_flag||']');
15793: print_msg('RefrConvFlag['||i.refresh_conv_rates_flag||']gSprdFromDt['||g_spread_from_date||']gLnSD['||i.start_date||']');
15794: print_msg('gLineEnDate['||i.end_date||']massAdflag['||i.mass_adjust_flag||']mfcCstFlag['||i.mfc_cost_refresh_flag||']skipFlag['||i.skip_record_flag||']');
15949: */
15950: );
15951:
15952: x_return_status := 'S';
15953: IF p_pa_debug_mode = 'Y' Then
15954: print_msg('Process_skipped_records :Number of records inserted['||sql%rowcount||']');
15955: print_msg('Process_skipped_records: x_return_status : '||x_return_status);
15956: print_msg('Process_skipped_records: Leaving Process_skipped_records');
15957: pa_debug.reset_err_stack;
15953: IF p_pa_debug_mode = 'Y' Then
15954: print_msg('Process_skipped_records :Number of records inserted['||sql%rowcount||']');
15955: print_msg('Process_skipped_records: x_return_status : '||x_return_status);
15956: print_msg('Process_skipped_records: Leaving Process_skipped_records');
15957: pa_debug.reset_err_stack;
15958: End If;
15959: EXCEPTION
15960: WHEN OTHERS THEN
15961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15964: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
15965: ,p_procedure_name => 'Process_skipped_records' );
15966: l_stage := 2120;
15967: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
15968: IF p_pa_debug_mode = 'Y' Then
15969: pa_debug.reset_err_stack;
15970: End If;
15971: RAISE;
15972:
15965: ,p_procedure_name => 'Process_skipped_records' );
15966: l_stage := 2120;
15967: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
15968: IF p_pa_debug_mode = 'Y' Then
15969: pa_debug.reset_err_stack;
15970: End If;
15971: RAISE;
15972:
15973: END Process_skipped_records;