APPS.PA_FP_CALC_UTILS dependencies on PA_DEBUG

Line 6: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');

2: --$Header: PAFPCL1B.pls 120.20.12010000.11 2009/01/28 07:39:38 amehrotr ship $
3:
4: g_module_name VARCHAR2(100) := 'pa.plsql.PA_FP_CALC_UTILS';
5: g_stage Varchar2(1000);
6: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
7: g_LAST_UPDATE_DATE Date := SYSDATE;
8: g_LAST_UPDATED_BY Number:= fnd_global.user_id;
9: g_CREATION_DATE Date := SYSDATE;
10: g_CREATED_BY Number:= fnd_global.user_id;

Line 112: --IF P_PA_DEBUG_MODE = 'Y' Then

108:
109: pragma autonomous_transaction ;
110: BEGIN
111: --dbms_output.put_line(p_msg);
112: --IF P_PA_DEBUG_MODE = 'Y' Then
113: NULL;
114: INSERT INTO PA_FP_CALCULATE_LOG
115: (SESSIONID
116: ,SEQ_NUMBER

Line 133: IF P_PA_DEBUG_MODE = 'Y' Then

129:
130: BEGIN
131: --calc_log(P_MSG);
132: --dbms_output.put_line(P_MSG);
133: IF P_PA_DEBUG_MODE = 'Y' Then
134: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
135: PA_DEBUG.write
136: (x_Module => g_module_name
137: ,x_Msg => pa_debug.g_err_stage

Line 134: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);

130: BEGIN
131: --calc_log(P_MSG);
132: --dbms_output.put_line(P_MSG);
133: IF P_PA_DEBUG_MODE = 'Y' Then
134: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
135: PA_DEBUG.write
136: (x_Module => g_module_name
137: ,x_Msg => pa_debug.g_err_stage
138: ,x_Log_Level => 3);

Line 135: PA_DEBUG.write

131: --calc_log(P_MSG);
132: --dbms_output.put_line(P_MSG);
133: IF P_PA_DEBUG_MODE = 'Y' Then
134: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
135: PA_DEBUG.write
136: (x_Module => g_module_name
137: ,x_Msg => pa_debug.g_err_stage
138: ,x_Log_Level => 3);
139: END IF;

Line 137: ,x_Msg => pa_debug.g_err_stage

133: IF P_PA_DEBUG_MODE = 'Y' Then
134: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
135: PA_DEBUG.write
136: (x_Module => g_module_name
137: ,x_Msg => pa_debug.g_err_stage
138: ,x_Log_Level => 3);
139: END IF;
140: Return;
141: END PRINT_MSG;

Line 318: If P_PA_DEBUG_MODE = 'Y' Then

314: );
315: BEGIN
316:
317: x_return_status := 'S';
318: If P_PA_DEBUG_MODE = 'Y' Then
319: print_msg('Entered Check_ZeroQty_Bls API');
320: End If;
321: /* cache the period details info */
322: perdRec := NULL;

Line 349: IF P_PA_DEBUG_MODE = 'Y' Then

345: );
346: END LOOP;
347: * End of bug fix: 4296019 **/
348:
349: IF P_PA_DEBUG_MODE = 'Y' Then
350: print_msg('Check for Dates corruption');
351: End If;
352: FOR i IN cur_blDatesCheck LOOP
353: x_return_status := 'E';

Line 468: If p_pa_debug_mode = 'Y' Then

464: END IF;
465: END IF;
466:
467: /* Start of Bug fix:5726773: printing all input parameters */
468: If p_pa_debug_mode = 'Y' Then
469:
470: print_msg('p_resource_assignment => '||p_resource_assignment );
471: print_msg('p_txn_currency_code => '||p_txn_currency_code );
472: print_msg('p_txn_currency_override => '||p_txn_currency_override );

Line 956: If p_pa_debug_mode = 'Y' Then

952: End If;
953: If x_Rv_miss_num_flag_tab.count = 0 Then
954: x_Rv_miss_num_flag_tab.extend(l_numRows);
955: End If;
956: If p_pa_debug_mode = 'Y' Then
957: print_msg(' Inserting records into spread calc tmp table');
958: End If;
959: FORALL i IN x_resource_assignment_tab.FIRST .. x_resource_assignment_tab.LAST
960: INSERT INTO pa_fp_spread_calc_tmp

Line 1087: If p_pa_debug_mode = 'Y' Then

1083: ,decode(x_total_raw_cost_tab(i),l_miss_num,'Y','N') --x_Rw_miss_num_flag_tab(i)
1084: ,decode(x_total_burdened_cost_tab(i),l_miss_num,'Y','N') --x_Br_miss_num_flag_tab(i)
1085: ,decode(x_total_revenue_tab(i),l_miss_num,'Y','N') --x_Rv_miss_num_flag_tab(i)
1086: );
1087: If p_pa_debug_mode = 'Y' Then
1088: print_msg('Number of records inserted into calctemp:['||sql%rowcount||']');
1089: End If;
1090: IF g_source_context = 'BUDGET_LINE' THEN
1091: FOR i IN cur_validate LOOP

Line 1295: IF P_PA_DEBUG_MODE = 'Y' Then

1291: BEGIN
1292: x_return_status := 'S';
1293: l_return_status := 'S';
1294: x_msg_data := NULL;
1295: IF P_PA_DEBUG_MODE = 'Y' Then
1296: print_msg('Entered Compare_bdgtLine_Values API');
1297: End If;
1298: DELETE FROM pa_fp_spread_calc_tmp2
1299: WHERE budget_version_id = p_budget_version_id;

Line 1325: IF P_PA_DEBUG_MODE = 'Y' Then

1321: FROM pa_fp_spread_calc_tmp tmp
1322: WHERE tmp.budget_version_id = p_budget_version_id;
1323:
1324: IF l_res_Asgn_Id_Tab.COUNT > 0 Then --{
1325: IF P_PA_DEBUG_MODE = 'Y' Then
1326: print_msg('NumOf Lines inserted['||l_res_Asgn_Id_Tab.count||']');
1327: End If;
1328: FORALL i IN l_res_Asgn_Id_Tab.FIRST .. l_res_Asgn_Id_Tab.LAST
1329: INSERT INTO pa_fp_spread_calc_tmp2

Line 1345: IF P_PA_DEBUG_MODE = 'Y' Then

1341: ,l_start_date_tab(i)
1342: ,l_end_date_tab(i)
1343: );
1344: IF p_source_context = 'RESOURCE_ASSIGNMENT' Then --{
1345: IF P_PA_DEBUG_MODE = 'Y' Then
1346: print_msg('Inserting records into sprdcalctmp2 for resource assignment context');
1347: End If;
1348: FORALL i IN l_res_Asgn_Id_Tab.FIRST .. l_res_Asgn_Id_Tab.LAST
1349: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP2_N1) */ pa_fp_spread_calc_tmp2 tmp

Line 1415: IF P_PA_DEBUG_MODE = 'Y' Then

1411: and bl1.txn_currency_code = tmp.txn_currency_code
1412: );
1413:
1414: ELSE
1415: IF P_PA_DEBUG_MODE = 'Y' Then
1416: print_msg('Updating calcTmp2 with budgetLine values');
1417: End If;
1418: FORALL i IN l_res_Asgn_Id_Tab.FIRST .. l_res_Asgn_Id_Tab.LAST
1419: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP2_N1) */ pa_fp_spread_calc_tmp2 tmp

Line 2042: IF P_PA_DEBUG_MODE = 'Y' Then

2038: END; --}
2039: END LOOP;
2040:
2041: IF NVL(x_return_status,'S') = 'S' AND l_rowid_tab.COUNT > 0 Then
2042: IF P_PA_DEBUG_MODE = 'Y' Then
2043: print_msg('setting the Changed Flags NumofRowsUpd['||l_rowid_tab.COUNT||']');
2044: End If;
2045: --/** added this for debug testing
2046: for i IN l_rowid_tab.FIRST .. l_rowid_tab.LAST loop

Line 2130: IF P_PA_DEBUG_MODE = 'Y' Then

2126:
2127: End IF;
2128:
2129: END IF; --}
2130: IF P_PA_DEBUG_MODE = 'Y' Then
2131: print_msg('End of Compare_bdgtLine_Values api ReturnStatus['||x_return_status||']');
2132: End If;
2133:
2134: EXCEPTION

Line 2234: IF P_PA_DEBUG_MODE = 'Y' Then

2230: l_burden_rate_override_tab.delete;
2231: l_bill_rate_override_tab.delete;
2232: l_Cntr := 0;
2233: IF g_wp_version_flag = 'N' Then
2234: IF P_PA_DEBUG_MODE = 'Y' Then
2235: print_msg('Entered process_NonRtBsRec_forSprd API');
2236: End If;
2237: FOR i IN cur_NonRtBsRecs LOOP
2238: l_Cntr := l_Cntr +1 ;

Line 2396: IF P_PA_DEBUG_MODE = 'Y' Then

2392: l_bill_rate_override_tab pa_plsql_datatypes.NumTabTyp;
2393:
2394: BEGIN
2395: x_return_status := 'S';
2396: IF P_PA_DEBUG_MODE = 'Y' Then
2397: print_msg('1: Inside pre_process_Revenue_Only_Recs api');
2398: End If;
2399: l_resource_assignment_tab.delete;
2400: l_txn_currency_code_tab.delete;

Line 2457: IF P_PA_DEBUG_MODE = 'Y' Then

2453: /* rederive the budget rate overrides on the budget lines to retain the amounts
2454: * in case of re spread, planning dates change etc
2455: */
2456: If p_source_context = 'RESOURCE_ASSIGNMENT' and l_resetAmts_Tab.COUNT > 0 Then --{
2457: IF P_PA_DEBUG_MODE = 'Y' Then
2458: print_msg('1.3: Upd Resource asgn cur with rate overrides ');
2459: End If;
2460: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
2461: UPDATE pa_resource_asgn_curr rtx

Line 2485: IF P_PA_DEBUG_MODE = 'Y' Then

2481: and bl1.txn_currency_code = rtx.txn_currency_code
2482: );
2483:
2484: /* Now spread the raw cost: so copy raw cost to quantity param */
2485: IF P_PA_DEBUG_MODE = 'Y' Then
2486: print_msg('1.4: Update spread calc tmp with quantity = raw cost');
2487: End If;
2488: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
2489: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP_N1) */ pa_fp_spread_calc_tmp tmp

Line 3323: IF P_PA_DEBUG_MODE = 'Y' Then

3319: WHERE tmp2.budget_version_id = p_budget_version_id ) LOOP --{
3320:
3321: g_stage := 'PA_FP_RATE_BASE_QTY_REQD:RaId['||i.resource_assignment_id||']';
3322: g_stage := 'Currency['||i.txn_currency_code||']SDate['||i.start_date||']';
3323: IF P_PA_DEBUG_MODE = 'Y' Then
3324: print_msg(g_stage);
3325: End If;
3326:
3327: PA_UTILS.ADD_MESSAGE

Line 3349: IF P_PA_DEBUG_MODE = 'Y' Then

3345:
3346: If l_NonRrtRec_Exists_Flg = 'Y' THEN
3347: x_return_status := 'E';
3348: g_stage := 'Found Errors during reset Rate base flag validation: Raising Error';
3349: IF P_PA_DEBUG_MODE = 'Y' Then
3350: print_msg(g_stage);
3351: End If;
3352: RAISE l_NonRrtRec_Exists_Exception;
3353: End If;

Line 3356: IF P_PA_DEBUG_MODE = 'Y' Then

3352: RAISE l_NonRrtRec_Exists_Exception;
3353: End If;
3354:
3355: g_stage := 'reset_ratebased_pltrxns:104';
3356: IF P_PA_DEBUG_MODE = 'Y' Then
3357: print_msg(g_stage);
3358: End If;
3359: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
3360: UPDATE PA_RESOURCE_ASSIGNMENTS ra

Line 3365: IF P_PA_DEBUG_MODE = 'Y' Then

3361: SET ra.rate_based_flag = 'Y'
3362: ,ra.unit_of_measure = l_uom_tab(i)
3363: WHERE ra.resource_assignment_id = l_resource_assignment_tab(i)
3364: AND l_reset_rate_based_flag_tab(i) = 'Y';
3365: IF P_PA_DEBUG_MODE = 'Y' Then
3366: print_msg('reset the override rates in new entity');
3367: End If;
3368: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
3369: UPDATE PA_RESOURCE_ASGN_CURR rtx

Line 3381: IF P_PA_DEBUG_MODE = 'Y' Then

3377: OR
3378: (p_source_context = 'BUDGET_LINE'
3379: and l_reset_rate_based_flag_tab(i) = 'Y')
3380: );
3381: IF P_PA_DEBUG_MODE = 'Y' Then
3382: print_msg('reset the override rates in budgetLines');
3383: End If;
3384: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
3385: UPDATE PA_BUDGET_LINES bl

Line 3397: IF P_PA_DEBUG_MODE = 'Y' Then

3393: OR
3394: p_source_context <> 'BUDGET_LINE'
3395: )
3396: AND (l_rwRtSetFlag_Tab(i) = 'Y' OR l_bilRtSetFlag_Tab(i) = 'Y' OR l_bdRtSetFlag_Tab(i) = 'Y');
3397: IF P_PA_DEBUG_MODE = 'Y' Then
3398: g_stage := 'reset_ratebased_pltrxns:105';
3399: End If;
3400: /* Now update the rollup tmp with the new qty and raw cost */
3401: print_msg('Updating tmp table with qty = rawcost or burden cost');

Line 3451: IF P_PA_DEBUG_MODE = 'Y' Then

3447:
3448:
3449: End If; --}
3450: g_stage := 'reset_ratebased_pltrxns:107';
3451: IF P_PA_DEBUG_MODE = 'Y' Then
3452: print_msg('Leaving reset_ratebased_pltrxns with retSts['||x_return_status||']');
3453: End If;
3454: EXCEPTION
3455: WHEN l_NonRrtRec_Exists_Exception THEN

Line 3630: IF P_PA_DEBUG_MODE = 'Y' Then

3626: l_lkp_code VARCHAR2(30);
3627:
3628: BEGIN
3629: x_return_status := 'S';
3630: IF P_PA_DEBUG_MODE = 'Y' Then
3631: print_msg('start of Check_ratebased_pltrxns API');
3632: End If;
3633: g_stage := 'Check_ratebased_pltrxns:100';
3634: l_webAdi_context := PA_FP_WEBADI_PKG.G_FP_WA_CALC_CALLING_CONTEXT;

Line 3752: IF P_PA_DEBUG_MODE = 'Y' Then

3748: ));
3749: End If;
3750: END IF;
3751: /* end of bug fix: 4156225 */
3752: IF P_PA_DEBUG_MODE = 'Y' Then
3753: print_msg('Check for Rateresource with qty and raw cost are not passed');
3754: End If;
3755: /* process rate based resources */
3756: l_tbl_counter := 0;

Line 3808: IF P_PA_DEBUG_MODE = 'Y' Then

3804: -- amounts are not changed so skip this record
3805: NULL;
3806: ELSE
3807: -- amounts only changed for a rate based resource
3808: IF P_PA_DEBUG_MODE = 'Y' Then
3809: print_msg('amounts only changed for rate based planning resource:'||i.resource_assignment_id);
3810: End If;
3811: If p_source_context = 'RESOURCE_ASSIGNMENT' then
3812: l_start_date := NULL;

Line 4131: IF P_PA_DEBUG_MODE = 'Y' Then

4127: and ra.resource_assignment_id = rtx.resource_assignment_id
4128: );
4129:
4130: /* update the resource assignments mark it as Non-Rate based */
4131: IF P_PA_DEBUG_MODE = 'Y' Then
4132: print_msg('Updating RA with Non-Rate base flag');
4133: End If;
4134: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
4135: UPDATE PA_RESOURCE_ASSIGNMENTS ra

Line 4142: IF P_PA_DEBUG_MODE = 'Y' Then

4138: WHERE ra.resource_assignment_id = l_resource_assignment_tab(i);
4139:
4140: g_stage := 'Check_ratebased_pltrxns:105';
4141: /* Now update the rollup tmp with the new qty and raw cost */
4142: IF P_PA_DEBUG_MODE = 'Y' Then
4143: print_msg('Updating rollup tmp with qty = rawcost or burden cost');
4144: End If;
4145: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
4146: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP_N1) */ pa_fp_spread_calc_tmp tmp

Line 4181: IF P_PA_DEBUG_MODE = 'Y' Then

4177: ));
4178: End If;
4179: END If;
4180: g_stage := 'Check_ratebased_pltrxns:107';
4181: IF P_PA_DEBUG_MODE = 'Y' Then
4182: print_msg('Leaving Check_ratebased_pltrxns with retSts['||x_return_status||']');
4183: End if;
4184: RETURN;
4185: EXCEPTION

Line 4289: IF P_PA_DEBUG_MODE = 'Y' Then

4285: END LOOP;
4286: Else
4287: NULL;
4288: END If;
4289: IF P_PA_DEBUG_MODE = 'Y' Then
4290: print_msg('End of Check_GLPA_periods_exists api ReturnStatus['||x_return_status||']');
4291: End If;
4292:
4293: EXCEPTION

Line 4631: IF P_PA_DEBUG_MODE = 'Y' Then

4627: END If; --}
4628: END IF; --}
4629: END IF; --}
4630: END IF; --}
4631: IF P_PA_DEBUG_MODE = 'Y' Then
4632: print_msg('End of process_NonTimePhase_Lines api ReturnStatus['||x_return_status||']');
4633: End If;
4634:
4635: EXCEPTION

Line 4723: If p_pa_debug_mode = 'Y' Then

4719: l_populate_mrc_tab_flag Varchar2(10) := 'N'; --MRC Elimination Changes:NVL(PA_FP_CALC_PLAN_PKG.G_populate_mrc_tab_flag,'N');
4720: BEGIN
4721: x_return_status := 'S';
4722: /* Initialize the error stack */
4723: If p_pa_debug_mode = 'Y' Then
4724: pa_debug.init_err_stack('PA_FP_CALC_UTILS.delete_budget_lines');
4725: End If;
4726:
4727: --print_msg('Entered delete_budget_lines api');

Line 4724: pa_debug.init_err_stack('PA_FP_CALC_UTILS.delete_budget_lines');

4720: BEGIN
4721: x_return_status := 'S';
4722: /* Initialize the error stack */
4723: If p_pa_debug_mode = 'Y' Then
4724: pa_debug.init_err_stack('PA_FP_CALC_UTILS.delete_budget_lines');
4725: End If;
4726:
4727: --print_msg('Entered delete_budget_lines api');
4728: /* Initialize the plsql tabs */

Line 4824: If p_pa_debug_mode = 'Y' Then

4820: END IF;
4821:
4822: --print_msg('ReturnStatus['||x_return_status||']');
4823: /* reset the error stack */
4824: If p_pa_debug_mode = 'Y' Then
4825: pa_debug.reset_err_stack;
4826: End If;
4827:
4828: EXCEPTION

Line 4825: pa_debug.reset_err_stack;

4821:
4822: --print_msg('ReturnStatus['||x_return_status||']');
4823: /* reset the error stack */
4824: If p_pa_debug_mode = 'Y' Then
4825: pa_debug.reset_err_stack;
4826: End If;
4827:
4828: EXCEPTION
4829: WHEN OTHERS THEN

Line 4833: If p_pa_debug_mode = 'Y' Then

4829: WHEN OTHERS THEN
4830: x_return_status := 'U';
4831: x_msg_data := sqlcode||sqlerrm;
4832: print_msg('Failed in delete_budget_lines API'||x_msg_data);
4833: If p_pa_debug_mode = 'Y' Then
4834: pa_debug.reset_err_stack;
4835: End If;
4836: fnd_msg_pub.add_exc_msg
4837: ( p_pkg_name => 'PA_FP_CALC_UTILS'

Line 4834: pa_debug.reset_err_stack;

4830: x_return_status := 'U';
4831: x_msg_data := sqlcode||sqlerrm;
4832: print_msg('Failed in delete_budget_lines API'||x_msg_data);
4833: If p_pa_debug_mode = 'Y' Then
4834: pa_debug.reset_err_stack;
4835: End If;
4836: fnd_msg_pub.add_exc_msg
4837: ( p_pkg_name => 'PA_FP_CALC_UTILS'
4838: ,p_procedure_name => 'delete_budget_lines');

Line 4940: If p_pa_debug_mode = 'Y' Then

4936: BEGIN
4937:
4938: x_return_status := 'S';
4939: /* Initialize the error stack */
4940: If p_pa_debug_mode = 'Y' Then
4941: pa_debug.init_err_stack('PA_FP_CALC_UTILS.insert_budget_lines');
4942: End If;
4943: --print_msg('Entered insert_budget_lines api');
4944: /* Initialize the plsql tabs */

Line 4941: pa_debug.init_err_stack('PA_FP_CALC_UTILS.insert_budget_lines');

4937:
4938: x_return_status := 'S';
4939: /* Initialize the error stack */
4940: If p_pa_debug_mode = 'Y' Then
4941: pa_debug.init_err_stack('PA_FP_CALC_UTILS.insert_budget_lines');
4942: End If;
4943: --print_msg('Entered insert_budget_lines api');
4944: /* Initialize the plsql tabs */
4945: l_budget_line_id_tab.delete;

Line 5246: If p_pa_debug_mode = 'Y' Then

5242: End If; --}
5243: End If; --}
5244:
5245: /* reset the error stack */
5246: If p_pa_debug_mode = 'Y' Then
5247: print_msg('RetSts of Insert_budget_lines api['||x_return_status||']');
5248: pa_debug.reset_err_stack;
5249: End If;
5250:

Line 5248: pa_debug.reset_err_stack;

5244:
5245: /* reset the error stack */
5246: If p_pa_debug_mode = 'Y' Then
5247: print_msg('RetSts of Insert_budget_lines api['||x_return_status||']');
5248: pa_debug.reset_err_stack;
5249: End If;
5250:
5251: EXCEPTION
5252: WHEN OTHERS THEN

Line 5256: If p_pa_debug_mode = 'Y' Then

5252: WHEN OTHERS THEN
5253: x_return_status := 'U';
5254: x_msg_data := sqlcode||sqlerrm;
5255: print_msg('Failed in insert_budget_lines API'||x_msg_data);
5256: If p_pa_debug_mode = 'Y' Then
5257: pa_debug.reset_err_stack;
5258: End If;
5259: fnd_msg_pub.add_exc_msg
5260: ( p_pkg_name => 'PA_FP_CALC_UTILS'

Line 5257: pa_debug.reset_err_stack;

5253: x_return_status := 'U';
5254: x_msg_data := sqlcode||sqlerrm;
5255: print_msg('Failed in insert_budget_lines API'||x_msg_data);
5256: If p_pa_debug_mode = 'Y' Then
5257: pa_debug.reset_err_stack;
5258: End If;
5259: fnd_msg_pub.add_exc_msg
5260: ( p_pkg_name => 'PA_FP_CALC_UTILS'
5261: ,p_procedure_name => 'insert_budget_lines');

Line 5334: If p_pa_debug_mode = 'Y' Then

5330: WHEN OTHERS THEN
5331: x_return_status := 'U';
5332: x_msg_data := sqlcode||sqlerrm;
5333: print_msg('Failed in insert_budget_lines API'||x_msg_data);
5334: If p_pa_debug_mode = 'Y' Then
5335: pa_debug.reset_err_stack;
5336: End If;
5337: fnd_msg_pub.add_exc_msg
5338: ( p_pkg_name => 'PA_FP_CALC_UTILS'

Line 5335: pa_debug.reset_err_stack;

5331: x_return_status := 'U';
5332: x_msg_data := sqlcode||sqlerrm;
5333: print_msg('Failed in insert_budget_lines API'||x_msg_data);
5334: If p_pa_debug_mode = 'Y' Then
5335: pa_debug.reset_err_stack;
5336: End If;
5337: fnd_msg_pub.add_exc_msg
5338: ( p_pkg_name => 'PA_FP_CALC_UTILS'
5339: ,p_procedure_name => 'process_ResAttribs');

Line 5389: If p_pa_debug_mode = 'Y' Then

5385: l_period_type Varchar2(100);
5386:
5387: BEGIN
5388: x_return_status := 'S';
5389: If p_pa_debug_mode = 'Y' Then
5390: pa_debug.init_err_stack('PA_FP_CALC_UTILS.process_planDates_change');
5391: --print_msg('Entered process_planDates_change api NumLinetoProcess['||g_Rspd_RaId_tab.COUNT||']');
5392: End If;
5393: IF perdRec.time_phased_code = 'P' Then

Line 5390: pa_debug.init_err_stack('PA_FP_CALC_UTILS.process_planDates_change');

5386:
5387: BEGIN
5388: x_return_status := 'S';
5389: If p_pa_debug_mode = 'Y' Then
5390: pa_debug.init_err_stack('PA_FP_CALC_UTILS.process_planDates_change');
5391: --print_msg('Entered process_planDates_change api NumLinetoProcess['||g_Rspd_RaId_tab.COUNT||']');
5392: End If;
5393: IF perdRec.time_phased_code = 'P' Then
5394: l_period_type := perdRec.pa_period_type;

Line 5523: If p_pa_debug_mode = 'Y' Then

5519: END IF;
5520:
5521: --print_msg('ReturnStatus of process_planDates_change ['||x_return_status||']');
5522: /* reset the error stack */
5523: If p_pa_debug_mode = 'Y' Then
5524: pa_debug.reset_err_stack;
5525: End If;
5526:
5527: EXCEPTION

Line 5524: pa_debug.reset_err_stack;

5520:
5521: --print_msg('ReturnStatus of process_planDates_change ['||x_return_status||']');
5522: /* reset the error stack */
5523: If p_pa_debug_mode = 'Y' Then
5524: pa_debug.reset_err_stack;
5525: End If;
5526:
5527: EXCEPTION
5528: WHEN OTHERS THEN

Line 5532: If p_pa_debug_mode = 'Y' Then

5528: WHEN OTHERS THEN
5529: x_return_status := 'U';
5530: x_msg_data := sqlcode||sqlerrm;
5531: print_msg('Failed in process_planDates_change API'||x_msg_data);
5532: If p_pa_debug_mode = 'Y' Then
5533: pa_debug.reset_err_stack;
5534: End If;
5535: fnd_msg_pub.add_exc_msg
5536: ( p_pkg_name => 'PA_FP_CALC_UTILS'

Line 5533: pa_debug.reset_err_stack;

5529: x_return_status := 'U';
5530: x_msg_data := sqlcode||sqlerrm;
5531: print_msg('Failed in process_planDates_change API'||x_msg_data);
5532: If p_pa_debug_mode = 'Y' Then
5533: pa_debug.reset_err_stack;
5534: End If;
5535: fnd_msg_pub.add_exc_msg
5536: ( p_pkg_name => 'PA_FP_CALC_UTILS'
5537: ,p_procedure_name => 'process_planDates_change');

Line 5556: If p_pa_debug_mode = 'Y' Then

5552: x_return_status := 'S';
5553: /* bulk select all the RA+Txn currency combo from budget lines and later insert these records into tmp table
5554: * for processing
5555: */
5556: If p_pa_debug_mode = 'Y' Then
5557: pa_debug.init_err_stack('PA_FP_CALC_UTILS.populate_blTxnCurCombo');
5558: print_msg('Entered populate_blTxnCurCombo api');
5559: End If;
5560: SELECT /*+ INDEX(BL PA_BUDGET_LINES_U1) */

Line 5557: pa_debug.init_err_stack('PA_FP_CALC_UTILS.populate_blTxnCurCombo');

5553: /* bulk select all the RA+Txn currency combo from budget lines and later insert these records into tmp table
5554: * for processing
5555: */
5556: If p_pa_debug_mode = 'Y' Then
5557: pa_debug.init_err_stack('PA_FP_CALC_UTILS.populate_blTxnCurCombo');
5558: print_msg('Entered populate_blTxnCurCombo api');
5559: End If;
5560: SELECT /*+ INDEX(BL PA_BUDGET_LINES_U1) */
5561: bl.resource_assignment_id

Line 5604: IF P_PA_DEBUG_MODE = 'Y' Then

5600: ,l_raId_Tab(i)
5601: ,l_TxnCur_Tab(i)
5602: ,'Y'
5603: );
5604: IF P_PA_DEBUG_MODE = 'Y' Then
5605: print_msg('Number of rows inserted ra+txncur into tmp['||sql%rowcount||']');
5606: End If;
5607:
5608: /* Now updates the other attributes for the newly inserted rows */

Line 5685: If p_pa_debug_mode = 'Y' Then

5681: ,tmp.PLAN_DATES_CHANGE_FLAG = decode(nvl(tmp.rlm_id_change_flag,'N'),'Y','N',tmp.PLAN_DATES_CHANGE_FLAG)
5682: ,tmp.SP_FIX_DATE_CHANGE_FLAG = decode(nvl(tmp.rlm_id_change_flag,'N'),'Y','N',tmp.SP_FIX_DATE_CHANGE_FLAG)
5683: ,tmp.MFC_COST_CHANGE_FLAG = decode(nvl(tmp.rlm_id_change_flag,'N'),'Y','N',tmp.MFC_COST_CHANGE_FLAG)
5684: WHERE tmp.budget_version_id = p_budget_version_id;
5685: If p_pa_debug_mode = 'Y' Then
5686: pa_debug.reset_err_stack;
5687: End If;
5688: EXCEPTION
5689: WHEN OTHERS THEN

Line 5686: pa_debug.reset_err_stack;

5682: ,tmp.SP_FIX_DATE_CHANGE_FLAG = decode(nvl(tmp.rlm_id_change_flag,'N'),'Y','N',tmp.SP_FIX_DATE_CHANGE_FLAG)
5683: ,tmp.MFC_COST_CHANGE_FLAG = decode(nvl(tmp.rlm_id_change_flag,'N'),'Y','N',tmp.MFC_COST_CHANGE_FLAG)
5684: WHERE tmp.budget_version_id = p_budget_version_id;
5685: If p_pa_debug_mode = 'Y' Then
5686: pa_debug.reset_err_stack;
5687: End If;
5688: EXCEPTION
5689: WHEN OTHERS THEN
5690: x_return_status := 'U';

Line 5693: If p_pa_debug_mode = 'Y' Then

5689: WHEN OTHERS THEN
5690: x_return_status := 'U';
5691: l_msg_data := sqlcode||sqlerrm;
5692: print_msg('Failed in populate_blTxnCurCombo API'||l_msg_data);
5693: If p_pa_debug_mode = 'Y' Then
5694: pa_debug.reset_err_stack;
5695: End if;
5696: fnd_msg_pub.add_exc_msg
5697: ( p_pkg_name => 'PA_FP_CALC_UTILS'

Line 5694: pa_debug.reset_err_stack;

5690: x_return_status := 'U';
5691: l_msg_data := sqlcode||sqlerrm;
5692: print_msg('Failed in populate_blTxnCurCombo API'||l_msg_data);
5693: If p_pa_debug_mode = 'Y' Then
5694: pa_debug.reset_err_stack;
5695: End if;
5696: fnd_msg_pub.add_exc_msg
5697: ( p_pkg_name => 'PA_FP_CALC_UTILS'
5698: ,p_procedure_name => 'populate_blTxnCurCombo');

Line 5709: IF P_PA_DEBUG_MODE = 'Y' Then

5705:
5706: l_return_status Varchar2(1);
5707: l_msg_data Varchar2(1000);
5708: BEGIN
5709: IF P_PA_DEBUG_MODE = 'Y' Then
5710: print_msg('Enetered synch_resAttribs api');
5711: End If;
5712: IF (p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')
5713: and NVL(g_apply_progress_flag,'N') <> 'Y'

Line 5834: IF P_PA_DEBUG_MODE = 'Y' Then

5830: ,decode(sign(trunc(tmp.new_plan_end_date) - trunc(tmp.old_plan_end_date)),-1 ,'Y','N'))))
5831: WHERE tmp.budget_version_id = p_budget_version_id;
5832: END IF; --}
5833:
5834: IF P_PA_DEBUG_MODE = 'Y' Then
5835: print_msg('Out of synch_resAttribs api');
5836: End If;
5837:
5838: EXCEPTION

Line 5857: IF P_PA_DEBUG_MODE = 'Y' Then

5853: l_msg_data Varchar2(1000);
5854: l_return_status Varchar2(1);
5855:
5856: BEGIN
5857: IF P_PA_DEBUG_MODE = 'Y' Then
5858: print_msg('Enetered synch_ChangedFlags API');
5859: End If;
5860: IF (p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')
5861: and NVL(g_apply_progress_flag,'N') <> 'Y'

Line 6219: If p_pa_debug_mode = 'Y' Then

6215: l_return_status := 'S';
6216: x_msg_data := NULL;
6217:
6218: /* Initialize the error stack */
6219: If p_pa_debug_mode = 'Y' Then
6220: pa_debug.init_err_stack('PA_FP_CALC_UTILS.populate_spreadCalc_Tmp');
6221: print_msg(' Entered populate_spreadCalc_Tmp API');
6222: End If;
6223: /* populate tmp table with the data */

Line 6220: pa_debug.init_err_stack('PA_FP_CALC_UTILS.populate_spreadCalc_Tmp');

6216: x_msg_data := NULL;
6217:
6218: /* Initialize the error stack */
6219: If p_pa_debug_mode = 'Y' Then
6220: pa_debug.init_err_stack('PA_FP_CALC_UTILS.populate_spreadCalc_Tmp');
6221: print_msg(' Entered populate_spreadCalc_Tmp API');
6222: End If;
6223: /* populate tmp table with the data */
6224: Init_plsqlTabs;

Line 6262: IF P_PA_DEBUG_MODE = 'Y' Then

6258: g_plan_class_type := bvDetailsRec.plan_class_type;
6259: g_time_phase_changed_flag := NVL(p_time_phase_changed_flag,'N'); /* Bug fix:4613444 */
6260: g_wp_cost_changed_flag := NVL(p_wp_cost_changed_flag,'N');
6261:
6262: IF P_PA_DEBUG_MODE = 'Y' Then
6263: print_msg('populating spread_calc_tmp table from in params');
6264: End If;
6265:
6266: /*Start of Perf Impr:5309529: Added this new api as part of perf enhancement */

Line 6444: IF P_PA_DEBUG_MODE = 'Y' Then

6440: ,x_Br_miss_num_flag_tab(i)
6441: ,x_Rv_miss_num_flag_tab(i)
6442: );
6443: ************/
6444: IF P_PA_DEBUG_MODE = 'Y' Then
6445: print_msg('Number of rows populated['||sql%rowcount||']');
6446: End If;
6447:
6448: /* Bug fix: 3841644 Added the following check to validate the duplicate records sent by calling API */

Line 6482: IF P_PA_DEBUG_MODE = 'Y' Then

6478: print_msg('Check MultipleLinesAdjustmentFlag['||l_MultipleAdjustments_flag||']');
6479: IF NVL(l_MultipleAdjustments_flag,'N') = 'Y' THEN
6480: l_return_status := 'E';
6481: x_return_status := 'E';
6482: IF P_PA_DEBUG_MODE = 'Y' Then
6483: print_msg('Multiple adjustments found for the single resource');
6484: End If;
6485: FOR i IN cur_msgStackDetails LOOP
6486: l_stage := 'RaId['||i.resource_assignment_id||']TxnCur['||i.txn_currency_code||']oldSD[';

Line 6527: IF P_PA_DEBUG_MODE = 'Y' Then

6523: --print_msg('Bug fix:4272944: DONOT DELETE AUTOBASELINE zero qty budget lines');
6524: null;
6525: /* Bug fix:4272944 Ends */
6526: ELSIF x_resource_assignment_tab.COUNT > 0 THEN
6527: IF P_PA_DEBUG_MODE = 'Y' Then
6528: print_msg('Delete zero Quantity budget lines where actuals donot exists');
6529: End If;
6530: FORALL i IN x_resource_assignment_tab.FIRST .. x_resource_assignment_tab.LAST
6531: DELETE FROM pa_budget_lines bl

Line 6543: IF P_PA_DEBUG_MODE = 'Y' Then

6539: and NVL(bl.txn_init_raw_cost,0) = 0
6540: and NVL(bl.txn_init_burdened_cost,0) = 0
6541: and NVL(bl.txn_init_revenue,0) = 0
6542: );
6543: IF P_PA_DEBUG_MODE = 'Y' Then
6544: print_msg('Number of lines deleted['||sql%rowcount||']');
6545: End If;
6546: END IF;
6547:

Line 6550: IF P_PA_DEBUG_MODE = 'Y' Then

6546: END IF;
6547:
6548: IF NVL(l_return_status,'S') = 'S' Then
6549: /* Now update the Rate/Amount/Qty changed flags on the Tmp table */
6550: IF P_PA_DEBUG_MODE = 'Y' Then
6551: print_msg('Calling Compare_bdgtLine_Values Api');
6552: End If;
6553: Compare_bdgtLine_Values
6554: (p_budget_version_id => p_budget_version_id

Line 6568: IF P_PA_DEBUG_MODE = 'Y' Then

6564: End If;
6565: END IF; --}
6566:
6567: /* If multiple RA + Txn cur combo is passed, then updates the res attributes whereever it is null */
6568: IF P_PA_DEBUG_MODE = 'Y' Then
6569: print_msg('Calling synchronize resource attributes api');
6570: End If;
6571: synch_resAttribs(p_budget_version_id => p_budget_version_id
6572: ,p_calling_module => p_calling_module );

Line 6575: IF P_PA_DEBUG_MODE = 'Y' Then

6571: synch_resAttribs(p_budget_version_id => p_budget_version_id
6572: ,p_calling_module => p_calling_module );
6573:
6574: /* now synchronize all the flags */
6575: IF P_PA_DEBUG_MODE = 'Y' Then
6576: print_msg('calling synchronize changed flag api');
6577: End If;
6578: synch_ChangedFlags(p_budget_version_id => p_budget_version_id
6579: ,p_calling_module => p_calling_module );

Line 6592: IF P_PA_DEBUG_MODE = 'Y' Then

6588: AND bvDetailsRec.Wp_Version_Flag <> 'Y'
6589: AND IsCacheReqd(p_calling_context => 'RATXNCOMBO') = 'Y'
6590: AND p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')) Then
6591: /* Now populate the tmp table with other RA +Txn currnecy combo for resource planned in multi currency */
6592: IF P_PA_DEBUG_MODE = 'Y' Then
6593: print_msg('Calling populate_blTxnCurCombo api');
6594: End If;
6595: populate_blTxnCurCombo
6596: (p_budget_version_id => p_budget_version_id

Line 6599: IF P_PA_DEBUG_MODE = 'Y' Then

6595: populate_blTxnCurCombo
6596: (p_budget_version_id => p_budget_version_id
6597: ,x_return_status => l_return_status
6598: );
6599: IF P_PA_DEBUG_MODE = 'Y' Then
6600: print_msg('RetSts after populate_blTxnCurCombo ['||l_return_status||']');
6601: End If;
6602: If l_return_status <> 'S' Then
6603: x_return_status := l_return_status;

Line 6611: IF P_PA_DEBUG_MODE = 'Y' Then

6607:
6608: /* Ipm changes */
6609: If l_return_status = 'S' AND NVL(g_apply_progress_flag,'N') <> 'Y' Then --{
6610: If p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then
6611: IF P_PA_DEBUG_MODE = 'Y' Then
6612: print_msg('Calling Reset_ratebased_pltrxns API');
6613: End If;
6614: Reset_ratebased_pltrxns(
6615: p_budget_version_id => p_budget_version_id

Line 6619: IF P_PA_DEBUG_MODE = 'Y' Then

6615: p_budget_version_id => p_budget_version_id
6616: ,p_source_context => p_source_context
6617: ,x_return_status => l_return_status
6618: );
6619: IF P_PA_DEBUG_MODE = 'Y' Then
6620: print_msg('RetSts of Reset_ratebased_pltrxns API ['||l_return_status||']');
6621: End If;
6622: If l_return_status <> 'S' Then
6623: x_return_status := 'E';

Line 6628: IF P_PA_DEBUG_MODE = 'Y' Then

6624: End If;
6625: End If;
6626:
6627: If l_return_status = 'S' and p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then
6628: IF P_PA_DEBUG_MODE = 'Y' Then
6629: print_msg('Calling process_NonRtBsRec_forSprd API');
6630: End If;
6631: process_NonRtBsRec_forSprd
6632: (p_budget_version_id => p_budget_version_id

Line 6636: IF P_PA_DEBUG_MODE = 'Y' Then

6632: (p_budget_version_id => p_budget_version_id
6633: ,p_source_context => p_source_context
6634: ,x_return_status => l_return_status
6635: );
6636: IF P_PA_DEBUG_MODE = 'Y' Then
6637: print_msg('RetSts of process_NonRtBsRec_forSprd API ['||l_return_status||']');
6638: End If;
6639: If l_return_status <> 'S' Then
6640: x_return_status := 'E';

Line 6647: IF P_PA_DEBUG_MODE = 'Y' Then

6643:
6644:
6645: If p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') and
6646: g_budget_version_type = 'ALL' and l_return_status = 'S' Then
6647: IF P_PA_DEBUG_MODE = 'Y' Then
6648: print_msg('Calling pre_process_Revenue_Only_Recs API');
6649: End If;
6650: pre_process_Revenue_Only_Recs
6651: (p_budget_version_id => p_budget_version_id

Line 6655: IF P_PA_DEBUG_MODE = 'Y' Then

6651: (p_budget_version_id => p_budget_version_id
6652: ,p_source_context => p_source_context
6653: ,x_return_status => l_return_status
6654: );
6655: IF P_PA_DEBUG_MODE = 'Y' Then
6656: print_msg('RetSts of pre_process_Revenue_Only_Recs API ['||l_return_status||']');
6657: End If;
6658: If l_return_status <> 'S' Then
6659: x_return_status := 'E';

Line 6664: IF P_PA_DEBUG_MODE = 'Y' Then

6660: End If;
6661: End If;
6662:
6663: If l_return_status = 'S' AND NVL(g_apply_progress_flag,'N') <> 'Y' Then
6664: IF P_PA_DEBUG_MODE = 'Y' Then
6665: print_msg('Calling Check_ratebased_pltrxns API');
6666: End If;
6667: Check_ratebased_pltrxns(
6668: p_budget_version_id => p_budget_version_id

Line 6672: IF P_PA_DEBUG_MODE = 'Y' Then

6668: p_budget_version_id => p_budget_version_id
6669: ,p_source_context => p_source_context
6670: ,x_return_status => l_return_status
6671: );
6672: IF P_PA_DEBUG_MODE = 'Y' Then
6673: print_msg('RetSts of Check_ratebased_pltrxns API ['||l_return_status||']');
6674: End If;
6675: If l_return_status <> 'S' Then
6676: x_return_status := 'E';

Line 6753: IF P_PA_DEBUG_MODE = 'Y' Then

6749: END IF; -- end of MultiCurrLineFlag
6750: END LOOP; --}
6751: /* process tmp table for planning dates change*/
6752: IF g_Rspd_RaId_Tab.COUNT > 0 Then
6753: IF P_PA_DEBUG_MODE = 'Y' Then
6754: print_msg('Calling process_planDates_change api');
6755: End If;
6756: process_planDates_change(
6757: p_budget_version_id => p_budget_version_id

Line 6761: IF P_PA_DEBUG_MODE = 'Y' Then

6757: p_budget_version_id => p_budget_version_id
6758: ,x_return_status => l_return_status
6759: ,x_msg_data => x_msg_data
6760: );
6761: IF P_PA_DEBUG_MODE = 'Y' Then
6762: print_msg('returnStatus of process_planDates_change api['||l_return_status||']');
6763: End If;
6764: If l_return_status <> 'S' Then
6765: x_return_status := l_return_status;

Line 6770: IF P_PA_DEBUG_MODE = 'Y' Then

6766: End If;
6767: END IF;
6768: /* process tmp table for other res attribute changes flag */
6769: IF g_RsAtrb_RaId_tab.COUNT > 0 THEN
6770: IF P_PA_DEBUG_MODE = 'Y' Then
6771: print_msg('Calling process_ResAttribs api');
6772: End if;
6773: process_ResAttribs(
6774: p_budget_version_id => p_budget_version_id

Line 6780: IF P_PA_DEBUG_MODE = 'Y' Then

6776: ,p_txn_currency_code_tab => g_RsAtrb_Txncur_Tab
6777: ,x_return_status => l_return_status
6778: ,x_msg_data => x_msg_data
6779: );
6780: IF P_PA_DEBUG_MODE = 'Y' Then
6781: print_msg('returnStatus of process_ResAttribs api['||l_return_status||']');
6782: End If;
6783: If l_return_status <> 'S' Then
6784: x_return_status := l_return_status;

Line 6797: IF P_PA_DEBUG_MODE = 'Y' Then

6793: AND g_apply_progress_flag = 'N'
6794: AND NVL(g_time_phase_changed_flag,'N') = 'N'
6795: AND perdRec.time_phased_code NOT IN ('G','P')
6796: AND p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') ) Then --{
6797: IF P_PA_DEBUG_MODE = 'Y' Then
6798: print_msg('Calling process_NonTimePhase_Lines API ');
6799: End If;
6800: process_NonTimePhase_Lines
6801: (p_budget_version_id => p_budget_version_id

Line 6808: IF P_PA_DEBUG_MODE = 'Y' Then

6804: ,p_source_context => p_source_context
6805: ,x_return_status => l_return_status
6806: ,x_msg_data => x_msg_data
6807: );
6808: IF P_PA_DEBUG_MODE = 'Y' Then
6809: print_msg('returnStatus of process_NonTimePhase_Lines api['||l_return_status||']');
6810: End If;
6811: If l_return_status <> 'S' Then
6812: x_return_status := l_return_status;

Line 6825: IF P_PA_DEBUG_MODE = 'Y' Then

6821: AND NVL(g_time_phase_changed_flag,'N') = 'N'
6822: AND p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')) Then --{
6823: IF IsCacheReqd(p_calling_context => 'RATES') = 'Y' Then
6824: /* cache all the override rates and currency conversion attributes */
6825: IF P_PA_DEBUG_MODE = 'Y' Then
6826: print_msg('Calling cache_rates API');
6827: End If;
6828: cache_rates(
6829: p_budget_verson_id => p_budget_version_id

Line 6835: IF P_PA_DEBUG_MODE = 'Y' Then

6831: ,p_source_context => p_source_context
6832: ,x_return_status => l_return_status
6833: ,x_msg_data => x_msg_data
6834: );
6835: IF P_PA_DEBUG_MODE = 'Y' Then
6836: print_msg('returnSts of cache_rates api['||l_return_status||']');
6837: End If;
6838: IF l_return_status <> 'S' Then
6839: x_return_status := l_return_status;

Line 6854: IF P_PA_DEBUG_MODE = 'Y' Then

6850: AND NVL(g_time_phase_changed_flag,'N') = 'N'
6851: AND perdRec.time_phased_code IN ('G','P')
6852: AND g_source_context = 'RESOURCE_ASSIGNMENT'
6853: AND p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')) Then --{
6854: IF P_PA_DEBUG_MODE = 'Y' Then
6855: print_msg('Calling Check_GLPA_periods_exists ');
6856: End If;
6857: Check_GLPA_periods_exists(
6858: p_budget_verson_id => p_budget_version_id

Line 6863: IF P_PA_DEBUG_MODE = 'Y' Then

6859: ,p_time_phase_code => perdRec.time_phased_code
6860: ,x_return_status => l_return_status
6861: ,x_msg_data => x_msg_data
6862: );
6863: IF P_PA_DEBUG_MODE = 'Y' Then
6864: print_msg('returnSts of Check_GLPA_periods_exists ['||l_return_status||']');
6865: End If;
6866: END If;
6867: /* end of bug:5483430 */

Line 7007: If p_pa_debug_mode = 'Y' Then

7003:
7004: x_return_status := l_return_status;
7005:
7006: /* reset the error stack */
7007: If p_pa_debug_mode = 'Y' Then
7008: print_msg('RetSts of the populate_spreadTmp_OvrRates ['||x_return_status||']');
7009: pa_debug.reset_err_stack;
7010: End If;
7011:

Line 7009: pa_debug.reset_err_stack;

7005:
7006: /* reset the error stack */
7007: If p_pa_debug_mode = 'Y' Then
7008: print_msg('RetSts of the populate_spreadTmp_OvrRates ['||x_return_status||']');
7009: pa_debug.reset_err_stack;
7010: End If;
7011:
7012: EXCEPTION
7013: WHEN OTHERS THEN

Line 7020: If p_pa_debug_mode = 'Y' Then

7016: print_msg('Failed in populate_spreadTmp_OvrRates API'||x_msg_data);
7017: fnd_msg_pub.add_exc_msg
7018: ( p_pkg_name => 'PA_FP_CALC_UTILS'
7019: ,p_procedure_name => 'populate_spreadCalc_Tmp ');
7020: If p_pa_debug_mode = 'Y' Then
7021: pa_debug.reset_err_stack;
7022: End If;
7023: RAISE;
7024:

Line 7021: pa_debug.reset_err_stack;

7017: fnd_msg_pub.add_exc_msg
7018: ( p_pkg_name => 'PA_FP_CALC_UTILS'
7019: ,p_procedure_name => 'populate_spreadCalc_Tmp ');
7020: If p_pa_debug_mode = 'Y' Then
7021: pa_debug.reset_err_stack;
7022: End If;
7023: RAISE;
7024:
7025: END populate_spreadCalc_Tmp ;

Line 7062: If p_pa_debug_mode = 'Y' Then

7058: OR tmp.bill_rate_override is NOT NULL
7059: OR tmp.mfc_cost_change_flag = 'Y' );
7060: BEGIN
7061: /* Initialize the error stack */
7062: If p_pa_debug_mode = 'Y' Then
7063: pa_debug.init_err_stack('PA_FP_CALC_UTILS.cache_rates');
7064: End If;
7065: x_return_status := 'S';
7066: x_msg_data := NULL;

Line 7063: pa_debug.init_err_stack('PA_FP_CALC_UTILS.cache_rates');

7059: OR tmp.mfc_cost_change_flag = 'Y' );
7060: BEGIN
7061: /* Initialize the error stack */
7062: If p_pa_debug_mode = 'Y' Then
7063: pa_debug.init_err_stack('PA_FP_CALC_UTILS.cache_rates');
7064: End If;
7065: x_return_status := 'S';
7066: x_msg_data := NULL;
7067:

Line 7260: IF P_PA_DEBUG_MODE = 'Y' Then

7256: OR NVL(tmp.MFC_COST_CHANGE_FLAG,'N') = 'Y'
7257: OR NVL(tmp.RE_SPREAD_AMTS_FLAG,'N') = 'Y'
7258: );
7259: l_rowcount := sql%rowcount;
7260: IF P_PA_DEBUG_MODE = 'Y' Then
7261: print_msg('Number of rows cached['||l_rowcount||']');
7262: End If;
7263:
7264: /* Now update the override rates If any passed from the Page */

Line 7295: IF P_PA_DEBUG_MODE = 'Y' Then

7291: AND tmp1.resource_assignment_id = i.resource_assignment_id
7292: AND tmp1.txn_currency_code = i.txn_currency_code ;
7293:
7294: l_rowcount := sql%rowcount;
7295: IF P_PA_DEBUG_MODE = 'Y' Then
7296: print_msg('Number of cached rows updated['||l_rowcount||']');
7297: End If;
7298:
7299: END LOOP;

Line 7302: If p_pa_debug_mode = 'Y' Then

7298:
7299: END LOOP;
7300:
7301: /* reset the error stack */
7302: If p_pa_debug_mode = 'Y' Then
7303: pa_debug.reset_err_stack;
7304: End If;
7305:
7306: EXCEPTION

Line 7303: pa_debug.reset_err_stack;

7299: END LOOP;
7300:
7301: /* reset the error stack */
7302: If p_pa_debug_mode = 'Y' Then
7303: pa_debug.reset_err_stack;
7304: End If;
7305:
7306: EXCEPTION
7307: WHEN OTHERS THEN

Line 7314: If p_pa_debug_mode = 'Y' Then

7310: print_msg('Failed in cache_rates API'||x_msg_data);
7311: fnd_msg_pub.add_exc_msg
7312: ( p_pkg_name => 'PA_FP_CALC_UTILS'
7313: ,p_procedure_name => 'cache_rates');
7314: If p_pa_debug_mode = 'Y' Then
7315: pa_debug.reset_err_stack;
7316: End If;
7317: RAISE;
7318:

Line 7315: pa_debug.reset_err_stack;

7311: fnd_msg_pub.add_exc_msg
7312: ( p_pkg_name => 'PA_FP_CALC_UTILS'
7313: ,p_procedure_name => 'cache_rates');
7314: If p_pa_debug_mode = 'Y' Then
7315: pa_debug.reset_err_stack;
7316: End If;
7317: RAISE;
7318:
7319: END cache_rates;

Line 7809: If p_pa_debug_mode = 'Y' Then

7805: BEGIN
7806: /* Initialize the out variables */
7807: x_return_status := 'S';
7808: x_msg_data := NULL;
7809: If p_pa_debug_mode = 'Y' Then
7810: pa_debug.init_err_stack('PA_FP_CALC_UTILS.copy_BlAttributes');
7811: End If;
7812: IF p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then --{
7813: IF P_PA_DEBUG_MODE = 'Y' Then

Line 7810: pa_debug.init_err_stack('PA_FP_CALC_UTILS.copy_BlAttributes');

7806: /* Initialize the out variables */
7807: x_return_status := 'S';
7808: x_msg_data := NULL;
7809: If p_pa_debug_mode = 'Y' Then
7810: pa_debug.init_err_stack('PA_FP_CALC_UTILS.copy_BlAttributes');
7811: End If;
7812: IF p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then --{
7813: IF P_PA_DEBUG_MODE = 'Y' Then
7814: print_msg('Entered copy_BlAttributes API');

Line 7813: IF P_PA_DEBUG_MODE = 'Y' Then

7809: If p_pa_debug_mode = 'Y' Then
7810: pa_debug.init_err_stack('PA_FP_CALC_UTILS.copy_BlAttributes');
7811: End If;
7812: IF p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then --{
7813: IF P_PA_DEBUG_MODE = 'Y' Then
7814: print_msg('Entered copy_BlAttributes API');
7815: End If;
7816: INIT_PLSQL_TABS;
7817: OPEN fptmpDetails;

Line 7984: If p_pa_debug_mode = 'Y' Then

7980: /* release the buffer */
7981: INIT_PLSQL_TABS;
7982: END IF; --}
7983: --print_msg('End of copy_BlAttributes retSts['||x_return_status||']');
7984: If p_pa_debug_mode = 'Y' Then
7985: pa_debug.reset_err_stack;
7986: End If;
7987: EXCEPTION
7988: WHEN OTHERS THEN

Line 7985: pa_debug.reset_err_stack;

7981: INIT_PLSQL_TABS;
7982: END IF; --}
7983: --print_msg('End of copy_BlAttributes retSts['||x_return_status||']');
7984: If p_pa_debug_mode = 'Y' Then
7985: pa_debug.reset_err_stack;
7986: End If;
7987: EXCEPTION
7988: WHEN OTHERS THEN
7989: x_return_status := 'U';

Line 7994: If p_pa_debug_mode = 'Y' Then

7990: x_msg_data := SQLCODE||SQLERRM;
7991: fnd_msg_pub.add_exc_msg
7992: ( p_pkg_name => 'PA_FP_CALC_UTILS'
7993: ,p_procedure_name => 'copy_BlAttributes');
7994: If p_pa_debug_mode = 'Y' Then
7995: pa_debug.reset_err_stack;
7996: End If;
7997: RAISE;
7998:

Line 7995: pa_debug.reset_err_stack;

7991: fnd_msg_pub.add_exc_msg
7992: ( p_pkg_name => 'PA_FP_CALC_UTILS'
7993: ,p_procedure_name => 'copy_BlAttributes');
7994: If p_pa_debug_mode = 'Y' Then
7995: pa_debug.reset_err_stack;
7996: End If;
7997: RAISE;
7998:
7999: END copy_BlAttributes;

Line 8943: If p_pa_debug_mode = 'Y' Then

8939: BEGIN
8940:
8941: x_return_status := FND_API.G_RET_STS_SUCCESS;
8942: l_return_status := 'S';
8943: If p_pa_debug_mode = 'Y' Then
8944: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');
8945: End If;
8946: IF P_PA_DEBUG_MODE = 'Y' Then
8947: print_msg('Entered PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');

Line 8944: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');

8940:
8941: x_return_status := FND_API.G_RET_STS_SUCCESS;
8942: l_return_status := 'S';
8943: If p_pa_debug_mode = 'Y' Then
8944: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');
8945: End If;
8946: IF P_PA_DEBUG_MODE = 'Y' Then
8947: print_msg('Entered PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');
8948: End If;

Line 8946: IF P_PA_DEBUG_MODE = 'Y' Then

8942: l_return_status := 'S';
8943: If p_pa_debug_mode = 'Y' Then
8944: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');
8945: End If;
8946: IF P_PA_DEBUG_MODE = 'Y' Then
8947: print_msg('Entered PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');
8948: End If;
8949: l_stage := 4000;
8950: InitPlsqlTabs;

Line 9064: IF P_PA_DEBUG_MODE = 'Y' Then

9060: CLOSE Cur_RollupLines;
9061:
9062: IF l_bl_budget_line_id_tab.COUNT > 0 THEN --{
9063: <>
9064: IF P_PA_DEBUG_MODE = 'Y' Then
9065: print_msg('Entered NEW_BUDGET_LINE block');
9066: End If;
9067: BEGIN
9068: /* Call the update reporting line by passing -ve amounts of the existsing budgetline

Line 9375: IF P_PA_DEBUG_MODE = 'Y' Then

9371:
9372: /* Now process the exception records in bulk */
9373: <>
9374: IF l_exception_return_status = 'S' AND l_err_error_code_tab.COUNT > 0 THEN --{
9375: IF P_PA_DEBUG_MODE = 'Y' Then
9376: print_msg('Entered EXISTING_BUDGET_LINES block:NUM ROWS UPTD['||l_rep_budget_line_id_tab.COUNT||']REJECTED['||l_err_budget_line_id_tab.COUNT||']');
9377: End If;
9378:
9379: /*We should pass the +ve values for the updated rows. having returning clause in the bulk update returns the

Line 9870: If p_pa_debug_mode = 'Y' Then

9866: InitPlsqlTabs;
9867: END IF; --} -- end of New budget Line
9868: x_return_status := l_return_status;
9869: print_msg('Leaving BLK_update_budget_lines:x_return_status : '||x_return_status);
9870: If p_pa_debug_mode = 'Y' Then
9871: pa_debug.reset_err_stack;
9872: End If;
9873:
9874: EXCEPTION

Line 9871: pa_debug.reset_err_stack;

9867: END IF; --} -- end of New budget Line
9868: x_return_status := l_return_status;
9869: print_msg('Leaving BLK_update_budget_lines:x_return_status : '||x_return_status);
9870: If p_pa_debug_mode = 'Y' Then
9871: pa_debug.reset_err_stack;
9872: End If;
9873:
9874: EXCEPTION
9875: WHEN OTHERS THEN

Line 9881: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);

9877: x_msg_data := SQLCODE||SQLERRM;
9878: fnd_msg_pub.add_exc_msg
9879: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
9880: ,p_procedure_name => 'BLK_update_budget_lines' );
9881: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
9882: l_stage := 4120;
9883: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
9884: If p_pa_debug_mode = 'Y' Then
9885: pa_debug.reset_err_stack;

Line 9884: If p_pa_debug_mode = 'Y' Then

9880: ,p_procedure_name => 'BLK_update_budget_lines' );
9881: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
9882: l_stage := 4120;
9883: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
9884: If p_pa_debug_mode = 'Y' Then
9885: pa_debug.reset_err_stack;
9886: End If;
9887: RAISE;
9888:

Line 9885: pa_debug.reset_err_stack;

9881: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
9882: l_stage := 4120;
9883: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
9884: If p_pa_debug_mode = 'Y' Then
9885: pa_debug.reset_err_stack;
9886: End If;
9887: RAISE;
9888:
9889: END BLK_update_budget_lines;

Line 10246: If p_pa_debug_mode = 'Y' Then

10242: /* Initialize the out variables */
10243: x_return_status := 'S';
10244: x_msg_data := NULL;
10245: x_msg_count := fnd_msg_pub.count_msg;
10246: If p_pa_debug_mode = 'Y' Then
10247: pa_debug.init_err_stack('PA_FP_CALC_UTILS.update_dffcols');
10248: End If;
10249: IF p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then --{
10250: INIT_PLSQL_TABS;

Line 10247: pa_debug.init_err_stack('PA_FP_CALC_UTILS.update_dffcols');

10243: x_return_status := 'S';
10244: x_msg_data := NULL;
10245: x_msg_count := fnd_msg_pub.count_msg;
10246: If p_pa_debug_mode = 'Y' Then
10247: pa_debug.init_err_stack('PA_FP_CALC_UTILS.update_dffcols');
10248: End If;
10249: IF p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then --{
10250: INIT_PLSQL_TABS;
10251: --print_msg('Fetching budget Line Attributes such as DFFs details from cache ');

Line 10583: If p_pa_debug_mode = 'Y' Then

10579: END IF; --}
10580:
10581: x_msg_count := fnd_msg_pub.count_msg;
10582: --print_msg('End of update_dffcols retSts['||x_return_status||']');
10583: If p_pa_debug_mode = 'Y' Then
10584: pa_debug.reset_err_stack;
10585: End If;
10586:
10587: EXCEPTION

Line 10584: pa_debug.reset_err_stack;

10580:
10581: x_msg_count := fnd_msg_pub.count_msg;
10582: --print_msg('End of update_dffcols retSts['||x_return_status||']');
10583: If p_pa_debug_mode = 'Y' Then
10584: pa_debug.reset_err_stack;
10585: End If;
10586:
10587: EXCEPTION
10588: WHEN OTHERS THEN

Line 10594: If p_pa_debug_mode = 'Y' Then

10590: x_msg_data := SQLCODE||SQLERRM;
10591: fnd_msg_pub.add_exc_msg
10592: ( p_pkg_name => 'PA_FP_CALC_UTILS'
10593: ,p_procedure_name => 'update_dffcols');
10594: If p_pa_debug_mode = 'Y' Then
10595: pa_debug.reset_err_stack;
10596: End If;
10597: RAISE;
10598:

Line 10595: pa_debug.reset_err_stack;

10591: fnd_msg_pub.add_exc_msg
10592: ( p_pkg_name => 'PA_FP_CALC_UTILS'
10593: ,p_procedure_name => 'update_dffcols');
10594: If p_pa_debug_mode = 'Y' Then
10595: pa_debug.reset_err_stack;
10596: End If;
10597: RAISE;
10598:
10599: END update_dffcols;

Line 10901: IF P_PA_DEBUG_MODE = 'Y' Then

10897: END; --}
10898: END IF; --} end of l_budget_line_id_tab.COUNT > 0
10899: END IF;
10900: Init_plsql_tabs;
10901: IF P_PA_DEBUG_MODE = 'Y' Then
10902: print_msg('Return Status of InsertFunding_ReqdLines api ['||x_return_status||']');
10903: End If;
10904: EXCEPTION
10905: