eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

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.34.12020000.3 2012/07/30 12:33:54 tvala 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 119: --IF P_PA_DEBUG_MODE = 'Y' Then

115:
116: pragma autonomous_transaction ;
117: BEGIN
118: --dbms_output.put_line(p_msg);
119: --IF P_PA_DEBUG_MODE = 'Y' Then
120: NULL;
121: INSERT INTO PA_FP_CALCULATE_LOG
122: (SESSIONID
123: ,SEQ_NUMBER

Line 140: IF P_PA_DEBUG_MODE = 'Y' Then

136:
137: BEGIN
138: --calc_log(P_MSG);
139: --dbms_output.put_line(P_MSG);
140: IF P_PA_DEBUG_MODE = 'Y' Then
141: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
142: PA_DEBUG.write
143: (x_Module => g_module_name
144: ,x_Msg => pa_debug.g_err_stage

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

137: BEGIN
138: --calc_log(P_MSG);
139: --dbms_output.put_line(P_MSG);
140: IF P_PA_DEBUG_MODE = 'Y' Then
141: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
142: PA_DEBUG.write
143: (x_Module => g_module_name
144: ,x_Msg => pa_debug.g_err_stage
145: ,x_Log_Level => 3);

Line 142: PA_DEBUG.write

138: --calc_log(P_MSG);
139: --dbms_output.put_line(P_MSG);
140: IF P_PA_DEBUG_MODE = 'Y' Then
141: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
142: PA_DEBUG.write
143: (x_Module => g_module_name
144: ,x_Msg => pa_debug.g_err_stage
145: ,x_Log_Level => 3);
146: END IF;

Line 144: ,x_Msg => pa_debug.g_err_stage

140: IF P_PA_DEBUG_MODE = 'Y' Then
141: pa_debug.g_err_stage := substr('LOG:'||p_msg,1,240);
142: PA_DEBUG.write
143: (x_Module => g_module_name
144: ,x_Msg => pa_debug.g_err_stage
145: ,x_Log_Level => 3);
146: END IF;
147: Return;
148: END PRINT_MSG;

Line 325: If P_PA_DEBUG_MODE = 'Y' Then

321: );
322: BEGIN
323:
324: x_return_status := 'S';
325: If P_PA_DEBUG_MODE = 'Y' Then
326: print_msg('Entered Check_ZeroQty_Bls API');
327: End If;
328: /* cache the period details info */
329: perdRec := NULL;

Line 356: IF P_PA_DEBUG_MODE = 'Y' Then

352: );
353: END LOOP;
354: * End of bug fix: 4296019 **/
355:
356: IF P_PA_DEBUG_MODE = 'Y' Then
357: print_msg('Check for Dates corruption');
358: End If;
359: FOR i IN cur_blDatesCheck LOOP
360: x_return_status := 'E';

Line 475: If p_pa_debug_mode = 'Y' Then

471: END IF;
472: END IF;
473:
474: /* Start of Bug fix:5726773: printing all input parameters */
475: If p_pa_debug_mode = 'Y' Then
476:
477: print_msg('p_resource_assignment => '||p_resource_assignment );
478: print_msg('p_txn_currency_code => '||p_txn_currency_code );
479: print_msg('p_txn_currency_override => '||p_txn_currency_override );

Line 963: If p_pa_debug_mode = 'Y' Then

959: End If;
960: If x_Rv_miss_num_flag_tab.count = 0 Then
961: x_Rv_miss_num_flag_tab.extend(l_numRows);
962: End If;
963: If p_pa_debug_mode = 'Y' Then
964: print_msg(' Inserting records into spread calc tmp table');
965: End If;
966: FORALL i IN x_resource_assignment_tab.FIRST .. x_resource_assignment_tab.LAST
967: INSERT INTO pa_fp_spread_calc_tmp

Line 1094: If p_pa_debug_mode = 'Y' Then

1090: ,decode(x_total_raw_cost_tab(i),l_miss_num,'Y','N') --x_Rw_miss_num_flag_tab(i)
1091: ,decode(x_total_burdened_cost_tab(i),l_miss_num,'Y','N') --x_Br_miss_num_flag_tab(i)
1092: ,decode(x_total_revenue_tab(i),l_miss_num,'Y','N') --x_Rv_miss_num_flag_tab(i)
1093: );
1094: If p_pa_debug_mode = 'Y' Then
1095: print_msg('Number of records inserted into calctemp:['||sql%rowcount||']');
1096: End If;
1097: IF g_source_context = 'BUDGET_LINE' THEN
1098: FOR i IN cur_validate LOOP

Line 1302: IF P_PA_DEBUG_MODE = 'Y' Then

1298: BEGIN
1299: x_return_status := 'S';
1300: l_return_status := 'S';
1301: x_msg_data := NULL;
1302: IF P_PA_DEBUG_MODE = 'Y' Then
1303: print_msg('Entered Compare_bdgtLine_Values API');
1304: End If;
1305: DELETE FROM pa_fp_spread_calc_tmp2
1306: WHERE budget_version_id = p_budget_version_id;

Line 1332: IF P_PA_DEBUG_MODE = 'Y' Then

1328: FROM pa_fp_spread_calc_tmp tmp
1329: WHERE tmp.budget_version_id = p_budget_version_id;
1330:
1331: IF l_res_Asgn_Id_Tab.COUNT > 0 Then --{
1332: IF P_PA_DEBUG_MODE = 'Y' Then
1333: print_msg('NumOf Lines inserted['||l_res_Asgn_Id_Tab.count||']');
1334: End If;
1335: FORALL i IN l_res_Asgn_Id_Tab.FIRST .. l_res_Asgn_Id_Tab.LAST
1336: INSERT INTO pa_fp_spread_calc_tmp2

Line 1352: IF P_PA_DEBUG_MODE = 'Y' Then

1348: ,l_start_date_tab(i)
1349: ,l_end_date_tab(i)
1350: );
1351: IF p_source_context = 'RESOURCE_ASSIGNMENT' Then --{
1352: IF P_PA_DEBUG_MODE = 'Y' Then
1353: print_msg('Inserting records into sprdcalctmp2 for resource assignment context');
1354: End If;
1355: FORALL i IN l_res_Asgn_Id_Tab.FIRST .. l_res_Asgn_Id_Tab.LAST
1356: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP2_N1) */ pa_fp_spread_calc_tmp2 tmp

Line 1422: IF P_PA_DEBUG_MODE = 'Y' Then

1418: and bl1.txn_currency_code = tmp.txn_currency_code
1419: );
1420:
1421: ELSE
1422: IF P_PA_DEBUG_MODE = 'Y' Then
1423: print_msg('Updating calcTmp2 with budgetLine values');
1424: End If;
1425: FORALL i IN l_res_Asgn_Id_Tab.FIRST .. l_res_Asgn_Id_Tab.LAST
1426: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP2_N1) */ pa_fp_spread_calc_tmp2 tmp

Line 2051: IF P_PA_DEBUG_MODE = 'Y' Then

2047: END; --}
2048: END LOOP;
2049:
2050: IF NVL(x_return_status,'S') = 'S' AND l_rowid_tab.COUNT > 0 Then
2051: IF P_PA_DEBUG_MODE = 'Y' Then
2052: print_msg('setting the Changed Flags NumofRowsUpd['||l_rowid_tab.COUNT||']');
2053: End If;
2054: --/** added this for debug testing
2055: for i IN l_rowid_tab.FIRST .. l_rowid_tab.LAST loop

Line 2139: IF P_PA_DEBUG_MODE = 'Y' Then

2135:
2136: End IF;
2137:
2138: END IF; --}
2139: IF P_PA_DEBUG_MODE = 'Y' Then
2140: print_msg('End of Compare_bdgtLine_Values api ReturnStatus['||x_return_status||']');
2141: End If;
2142:
2143: EXCEPTION

Line 2243: IF P_PA_DEBUG_MODE = 'Y' Then

2239: l_burden_rate_override_tab.delete;
2240: l_bill_rate_override_tab.delete;
2241: l_Cntr := 0;
2242: IF g_wp_version_flag = 'N' Then
2243: IF P_PA_DEBUG_MODE = 'Y' Then
2244: print_msg('Entered process_NonRtBsRec_forSprd API');
2245: End If;
2246: FOR i IN cur_NonRtBsRecs LOOP
2247: l_Cntr := l_Cntr +1 ;

Line 2405: IF P_PA_DEBUG_MODE = 'Y' Then

2401: l_bill_rate_override_tab pa_plsql_datatypes.NumTabTyp;
2402:
2403: BEGIN
2404: x_return_status := 'S';
2405: IF P_PA_DEBUG_MODE = 'Y' Then
2406: print_msg('1: Inside pre_process_Revenue_Only_Recs api');
2407: End If;
2408: l_resource_assignment_tab.delete;
2409: l_txn_currency_code_tab.delete;

Line 2466: IF P_PA_DEBUG_MODE = 'Y' Then

2462: /* rederive the budget rate overrides on the budget lines to retain the amounts
2463: * in case of re spread, planning dates change etc
2464: */
2465: If p_source_context = 'RESOURCE_ASSIGNMENT' and l_resetAmts_Tab.COUNT > 0 Then --{
2466: IF P_PA_DEBUG_MODE = 'Y' Then
2467: print_msg('1.3: Upd Resource asgn cur with rate overrides ');
2468: End If;
2469: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
2470: UPDATE pa_resource_asgn_curr rtx

Line 2494: IF P_PA_DEBUG_MODE = 'Y' Then

2490: and bl1.txn_currency_code = rtx.txn_currency_code
2491: );
2492:
2493: /* Now spread the raw cost: so copy raw cost to quantity param */
2494: IF P_PA_DEBUG_MODE = 'Y' Then
2495: print_msg('1.4: Update spread calc tmp with quantity = raw cost');
2496: End If;
2497: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
2498: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP_N1) */ pa_fp_spread_calc_tmp tmp

Line 2831: IF P_PA_DEBUG_MODE = 'Y' Then

2827: If i.rate_based_flag = 'N' and i.resource_rate_based_flag = 'Y' Then
2828: If i.quantity_changed_flag = 'Y' Then
2829: -- CBS: 13721529
2830: IF (g_wp_version_flag = 'Y' AND g_wp_resource_class_flag = 'N' ) THEN
2831: IF P_PA_DEBUG_MODE = 'Y' Then
2832: print_msg('Not resetting the rate_based_flag');
2833: END IF;
2834: ELSE
2835: l_reset_rate_based_flag_tab(l_tbl_counter) := 'Y';

Line 3339: IF P_PA_DEBUG_MODE = 'Y' Then

3335: WHERE tmp2.budget_version_id = p_budget_version_id ) LOOP --{
3336:
3337: g_stage := 'PA_FP_RATE_BASE_QTY_REQD:RaId['||i.resource_assignment_id||']';
3338: g_stage := 'Currency['||i.txn_currency_code||']SDate['||i.start_date||']';
3339: IF P_PA_DEBUG_MODE = 'Y' Then
3340: print_msg(g_stage);
3341: End If;
3342:
3343: PA_UTILS.ADD_MESSAGE

Line 3365: IF P_PA_DEBUG_MODE = 'Y' Then

3361:
3362: If l_NonRrtRec_Exists_Flg = 'Y' THEN
3363: x_return_status := 'E';
3364: g_stage := 'Found Errors during reset Rate base flag validation: Raising Error';
3365: IF P_PA_DEBUG_MODE = 'Y' Then
3366: print_msg(g_stage);
3367: End If;
3368: RAISE l_NonRrtRec_Exists_Exception;
3369: End If;

Line 3372: IF P_PA_DEBUG_MODE = 'Y' Then

3368: RAISE l_NonRrtRec_Exists_Exception;
3369: End If;
3370:
3371: g_stage := 'reset_ratebased_pltrxns:104';
3372: IF P_PA_DEBUG_MODE = 'Y' Then
3373: print_msg(g_stage);
3374: End If;
3375: -- CBS 13653430 changes
3376: -- for workplan RC disabled case, rate_based_flag should not be reset.

Line 3378: IF P_PA_DEBUG_MODE = 'Y' Then

3374: End If;
3375: -- CBS 13653430 changes
3376: -- for workplan RC disabled case, rate_based_flag should not be reset.
3377: IF (g_wp_version_flag = 'Y' AND g_wp_resource_class_flag = 'N' ) THEN
3378: IF P_PA_DEBUG_MODE = 'Y' Then
3379: print_msg('Not resetting the rate_based_flag and UOM');
3380: END IF;
3381: ELSE
3382: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST

Line 3388: IF P_PA_DEBUG_MODE = 'Y' Then

3384: SET ra.rate_based_flag = 'Y'
3385: ,ra.unit_of_measure = l_uom_tab(i)
3386: WHERE ra.resource_assignment_id = l_resource_assignment_tab(i)
3387: AND l_reset_rate_based_flag_tab(i) = 'Y';
3388: IF P_PA_DEBUG_MODE = 'Y' Then
3389: print_msg('Resetting the rate_based_flag and UOM');
3390: END IF;
3391: END IF;
3392:

Line 3393: IF P_PA_DEBUG_MODE = 'Y' Then

3389: print_msg('Resetting the rate_based_flag and UOM');
3390: END IF;
3391: END IF;
3392:
3393: IF P_PA_DEBUG_MODE = 'Y' Then
3394: print_msg('reset the override rates in new entity');
3395: End If;
3396: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
3397: UPDATE PA_RESOURCE_ASGN_CURR rtx

Line 3409: IF P_PA_DEBUG_MODE = 'Y' Then

3405: OR
3406: (p_source_context = 'BUDGET_LINE'
3407: and l_reset_rate_based_flag_tab(i) = 'Y')
3408: );
3409: IF P_PA_DEBUG_MODE = 'Y' Then
3410: print_msg('reset the override rates in budgetLines');
3411: End If;
3412: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
3413: UPDATE PA_BUDGET_LINES bl

Line 3425: IF P_PA_DEBUG_MODE = 'Y' Then

3421: OR
3422: p_source_context <> 'BUDGET_LINE'
3423: )
3424: AND (l_rwRtSetFlag_Tab(i) = 'Y' OR l_bilRtSetFlag_Tab(i) = 'Y' OR l_bdRtSetFlag_Tab(i) = 'Y');
3425: IF P_PA_DEBUG_MODE = 'Y' Then
3426: g_stage := 'reset_ratebased_pltrxns:105';
3427: End If;
3428: /* Now update the rollup tmp with the new qty and raw cost */
3429: print_msg('Updating tmp table with qty = rawcost or burden cost');

Line 3479: IF P_PA_DEBUG_MODE = 'Y' Then

3475:
3476:
3477: End If; --}
3478: g_stage := 'reset_ratebased_pltrxns:107';
3479: IF P_PA_DEBUG_MODE = 'Y' Then
3480: print_msg('Leaving reset_ratebased_pltrxns with retSts['||x_return_status||']');
3481: End If;
3482: EXCEPTION
3483: WHEN l_NonRrtRec_Exists_Exception THEN

Line 3658: IF P_PA_DEBUG_MODE = 'Y' Then

3654: l_lkp_code VARCHAR2(30);
3655:
3656: BEGIN
3657: x_return_status := 'S';
3658: IF P_PA_DEBUG_MODE = 'Y' Then
3659: print_msg('start of Check_ratebased_pltrxns API');
3660: End If;
3661: g_stage := 'Check_ratebased_pltrxns:100';
3662: l_webAdi_context := PA_FP_WEBADI_PKG.G_FP_WA_CALC_CALLING_CONTEXT;

Line 3780: IF P_PA_DEBUG_MODE = 'Y' Then

3776: ));
3777: End If;
3778: END IF;
3779: /* end of bug fix: 4156225 */
3780: IF P_PA_DEBUG_MODE = 'Y' Then
3781: print_msg('Check for Rateresource with qty and raw cost are not passed');
3782: End If;
3783: /* process rate based resources */
3784: l_tbl_counter := 0;

Line 3836: IF P_PA_DEBUG_MODE = 'Y' Then

3832: -- amounts are not changed so skip this record
3833: NULL;
3834: ELSE
3835: -- amounts only changed for a rate based resource
3836: IF P_PA_DEBUG_MODE = 'Y' Then
3837: print_msg('amounts only changed for rate based planning resource:'||i.resource_assignment_id);
3838: End If;
3839: If p_source_context = 'RESOURCE_ASSIGNMENT' then
3840: l_start_date := NULL;

Line 4159: IF P_PA_DEBUG_MODE = 'Y' Then

4155: and ra.resource_assignment_id = rtx.resource_assignment_id
4156: );
4157:
4158: /* update the resource assignments mark it as Non-Rate based */
4159: IF P_PA_DEBUG_MODE = 'Y' Then
4160: print_msg('Updating RA with Non-Rate base flag');
4161: End If;
4162: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
4163: UPDATE PA_RESOURCE_ASSIGNMENTS ra

Line 4170: IF P_PA_DEBUG_MODE = 'Y' Then

4166: WHERE ra.resource_assignment_id = l_resource_assignment_tab(i);
4167:
4168: g_stage := 'Check_ratebased_pltrxns:105';
4169: /* Now update the rollup tmp with the new qty and raw cost */
4170: IF P_PA_DEBUG_MODE = 'Y' Then
4171: print_msg('Updating rollup tmp with qty = rawcost or burden cost');
4172: End If;
4173: FORALL i IN l_resource_assignment_tab.FIRST .. l_resource_assignment_tab.LAST
4174: UPDATE /*+ INDEX(TMP PA_FP_SPREAD_CALC_TMP_N1) */ pa_fp_spread_calc_tmp tmp

Line 4209: IF P_PA_DEBUG_MODE = 'Y' Then

4205: ));
4206: End If;
4207: END If;
4208: g_stage := 'Check_ratebased_pltrxns:107';
4209: IF P_PA_DEBUG_MODE = 'Y' Then
4210: print_msg('Leaving Check_ratebased_pltrxns with retSts['||x_return_status||']');
4211: End if;
4212: RETURN;
4213: EXCEPTION

Line 4318: IF P_PA_DEBUG_MODE = 'Y' Then

4314: END LOOP;
4315: Else
4316: NULL;
4317: END If;
4318: IF P_PA_DEBUG_MODE = 'Y' Then
4319: print_msg('End of Check_GLPA_periods_exists api ReturnStatus['||x_return_status||']');
4320: End If;
4321:
4322: EXCEPTION

Line 4660: IF P_PA_DEBUG_MODE = 'Y' Then

4656: END If; --}
4657: END IF; --}
4658: END IF; --}
4659: END IF; --}
4660: IF P_PA_DEBUG_MODE = 'Y' Then
4661: print_msg('End of process_NonTimePhase_Lines api ReturnStatus['||x_return_status||']');
4662: End If;
4663:
4664: EXCEPTION

Line 4752: If p_pa_debug_mode = 'Y' Then

4748: l_populate_mrc_tab_flag Varchar2(10) := 'N'; --MRC Elimination Changes:NVL(PA_FP_CALC_PLAN_PKG.G_populate_mrc_tab_flag,'N');
4749: BEGIN
4750: x_return_status := 'S';
4751: /* Initialize the error stack */
4752: If p_pa_debug_mode = 'Y' Then
4753: pa_debug.init_err_stack('PA_FP_CALC_UTILS.delete_budget_lines');
4754: End If;
4755:
4756: --print_msg('Entered delete_budget_lines api');

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

4749: BEGIN
4750: x_return_status := 'S';
4751: /* Initialize the error stack */
4752: If p_pa_debug_mode = 'Y' Then
4753: pa_debug.init_err_stack('PA_FP_CALC_UTILS.delete_budget_lines');
4754: End If;
4755:
4756: --print_msg('Entered delete_budget_lines api');
4757: /* Initialize the plsql tabs */

Line 4853: If p_pa_debug_mode = 'Y' Then

4849: END IF;
4850:
4851: --print_msg('ReturnStatus['||x_return_status||']');
4852: /* reset the error stack */
4853: If p_pa_debug_mode = 'Y' Then
4854: pa_debug.reset_err_stack;
4855: End If;
4856:
4857: EXCEPTION

Line 4854: pa_debug.reset_err_stack;

4850:
4851: --print_msg('ReturnStatus['||x_return_status||']');
4852: /* reset the error stack */
4853: If p_pa_debug_mode = 'Y' Then
4854: pa_debug.reset_err_stack;
4855: End If;
4856:
4857: EXCEPTION
4858: WHEN OTHERS THEN

Line 4862: If p_pa_debug_mode = 'Y' Then

4858: WHEN OTHERS THEN
4859: x_return_status := 'U';
4860: x_msg_data := sqlcode||sqlerrm;
4861: print_msg('Failed in delete_budget_lines API'||x_msg_data);
4862: If p_pa_debug_mode = 'Y' Then
4863: pa_debug.reset_err_stack;
4864: End If;
4865: fnd_msg_pub.add_exc_msg
4866: ( p_pkg_name => 'PA_FP_CALC_UTILS'

Line 4863: pa_debug.reset_err_stack;

4859: x_return_status := 'U';
4860: x_msg_data := sqlcode||sqlerrm;
4861: print_msg('Failed in delete_budget_lines API'||x_msg_data);
4862: If p_pa_debug_mode = 'Y' Then
4863: pa_debug.reset_err_stack;
4864: End If;
4865: fnd_msg_pub.add_exc_msg
4866: ( p_pkg_name => 'PA_FP_CALC_UTILS'
4867: ,p_procedure_name => 'delete_budget_lines');

Line 4969: If p_pa_debug_mode = 'Y' Then

4965: BEGIN
4966:
4967: x_return_status := 'S';
4968: /* Initialize the error stack */
4969: If p_pa_debug_mode = 'Y' Then
4970: pa_debug.init_err_stack('PA_FP_CALC_UTILS.insert_budget_lines');
4971: End If;
4972: --print_msg('Entered insert_budget_lines api');
4973: /* Initialize the plsql tabs */

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

4966:
4967: x_return_status := 'S';
4968: /* Initialize the error stack */
4969: If p_pa_debug_mode = 'Y' Then
4970: pa_debug.init_err_stack('PA_FP_CALC_UTILS.insert_budget_lines');
4971: End If;
4972: --print_msg('Entered insert_budget_lines api');
4973: /* Initialize the plsql tabs */
4974: l_budget_line_id_tab.delete;

Line 5275: If p_pa_debug_mode = 'Y' Then

5271: End If; --}
5272: End If; --}
5273:
5274: /* reset the error stack */
5275: If p_pa_debug_mode = 'Y' Then
5276: print_msg('RetSts of Insert_budget_lines api['||x_return_status||']');
5277: pa_debug.reset_err_stack;
5278: End If;
5279:

Line 5277: pa_debug.reset_err_stack;

5273:
5274: /* reset the error stack */
5275: If p_pa_debug_mode = 'Y' Then
5276: print_msg('RetSts of Insert_budget_lines api['||x_return_status||']');
5277: pa_debug.reset_err_stack;
5278: End If;
5279:
5280: EXCEPTION
5281: WHEN OTHERS THEN

Line 5285: If p_pa_debug_mode = 'Y' Then

5281: WHEN OTHERS THEN
5282: x_return_status := 'U';
5283: x_msg_data := sqlcode||sqlerrm;
5284: print_msg('Failed in insert_budget_lines API'||x_msg_data);
5285: If p_pa_debug_mode = 'Y' Then
5286: pa_debug.reset_err_stack;
5287: End If;
5288: fnd_msg_pub.add_exc_msg
5289: ( p_pkg_name => 'PA_FP_CALC_UTILS'

Line 5286: pa_debug.reset_err_stack;

5282: x_return_status := 'U';
5283: x_msg_data := sqlcode||sqlerrm;
5284: print_msg('Failed in insert_budget_lines API'||x_msg_data);
5285: If p_pa_debug_mode = 'Y' Then
5286: pa_debug.reset_err_stack;
5287: End If;
5288: fnd_msg_pub.add_exc_msg
5289: ( p_pkg_name => 'PA_FP_CALC_UTILS'
5290: ,p_procedure_name => 'insert_budget_lines');

Line 5363: If p_pa_debug_mode = 'Y' Then

5359: WHEN OTHERS THEN
5360: x_return_status := 'U';
5361: x_msg_data := sqlcode||sqlerrm;
5362: print_msg('Failed in insert_budget_lines API'||x_msg_data);
5363: If p_pa_debug_mode = 'Y' Then
5364: pa_debug.reset_err_stack;
5365: End If;
5366: fnd_msg_pub.add_exc_msg
5367: ( p_pkg_name => 'PA_FP_CALC_UTILS'

Line 5364: pa_debug.reset_err_stack;

5360: x_return_status := 'U';
5361: x_msg_data := sqlcode||sqlerrm;
5362: print_msg('Failed in insert_budget_lines API'||x_msg_data);
5363: If p_pa_debug_mode = 'Y' Then
5364: pa_debug.reset_err_stack;
5365: End If;
5366: fnd_msg_pub.add_exc_msg
5367: ( p_pkg_name => 'PA_FP_CALC_UTILS'
5368: ,p_procedure_name => 'process_ResAttribs');

Line 5418: If p_pa_debug_mode = 'Y' Then

5414: l_period_type Varchar2(100);
5415:
5416: BEGIN
5417: x_return_status := 'S';
5418: If p_pa_debug_mode = 'Y' Then
5419: pa_debug.init_err_stack('PA_FP_CALC_UTILS.process_planDates_change');
5420: --print_msg('Entered process_planDates_change api NumLinetoProcess['||g_Rspd_RaId_tab.COUNT||']');
5421: End If;
5422: IF perdRec.time_phased_code = 'P' Then

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

5415:
5416: BEGIN
5417: x_return_status := 'S';
5418: If p_pa_debug_mode = 'Y' Then
5419: pa_debug.init_err_stack('PA_FP_CALC_UTILS.process_planDates_change');
5420: --print_msg('Entered process_planDates_change api NumLinetoProcess['||g_Rspd_RaId_tab.COUNT||']');
5421: End If;
5422: IF perdRec.time_phased_code = 'P' Then
5423: l_period_type := perdRec.pa_period_type;

Line 5552: If p_pa_debug_mode = 'Y' Then

5548: END IF;
5549:
5550: --print_msg('ReturnStatus of process_planDates_change ['||x_return_status||']');
5551: /* reset the error stack */
5552: If p_pa_debug_mode = 'Y' Then
5553: pa_debug.reset_err_stack;
5554: End If;
5555:
5556: EXCEPTION

Line 5553: pa_debug.reset_err_stack;

5549:
5550: --print_msg('ReturnStatus of process_planDates_change ['||x_return_status||']');
5551: /* reset the error stack */
5552: If p_pa_debug_mode = 'Y' Then
5553: pa_debug.reset_err_stack;
5554: End If;
5555:
5556: EXCEPTION
5557: WHEN OTHERS THEN

Line 5561: If p_pa_debug_mode = 'Y' Then

5557: WHEN OTHERS THEN
5558: x_return_status := 'U';
5559: x_msg_data := sqlcode||sqlerrm;
5560: print_msg('Failed in process_planDates_change API'||x_msg_data);
5561: If p_pa_debug_mode = 'Y' Then
5562: pa_debug.reset_err_stack;
5563: End If;
5564: fnd_msg_pub.add_exc_msg
5565: ( p_pkg_name => 'PA_FP_CALC_UTILS'

Line 5562: pa_debug.reset_err_stack;

5558: x_return_status := 'U';
5559: x_msg_data := sqlcode||sqlerrm;
5560: print_msg('Failed in process_planDates_change API'||x_msg_data);
5561: If p_pa_debug_mode = 'Y' Then
5562: pa_debug.reset_err_stack;
5563: End If;
5564: fnd_msg_pub.add_exc_msg
5565: ( p_pkg_name => 'PA_FP_CALC_UTILS'
5566: ,p_procedure_name => 'process_planDates_change');

Line 5585: If p_pa_debug_mode = 'Y' Then

5581: x_return_status := 'S';
5582: /* bulk select all the RA+Txn currency combo from budget lines and later insert these records into tmp table
5583: * for processing
5584: */
5585: If p_pa_debug_mode = 'Y' Then
5586: pa_debug.init_err_stack('PA_FP_CALC_UTILS.populate_blTxnCurCombo');
5587: print_msg('Entered populate_blTxnCurCombo api');
5588: End If;
5589: SELECT /*+ INDEX(BL PA_BUDGET_LINES_U1) */

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

5582: /* bulk select all the RA+Txn currency combo from budget lines and later insert these records into tmp table
5583: * for processing
5584: */
5585: If p_pa_debug_mode = 'Y' Then
5586: pa_debug.init_err_stack('PA_FP_CALC_UTILS.populate_blTxnCurCombo');
5587: print_msg('Entered populate_blTxnCurCombo api');
5588: End If;
5589: SELECT /*+ INDEX(BL PA_BUDGET_LINES_U1) */
5590: bl.resource_assignment_id

Line 5633: IF P_PA_DEBUG_MODE = 'Y' Then

5629: ,l_raId_Tab(i)
5630: ,l_TxnCur_Tab(i)
5631: ,'Y'
5632: );
5633: IF P_PA_DEBUG_MODE = 'Y' Then
5634: print_msg('Number of rows inserted ra+txncur into tmp['||sql%rowcount||']');
5635: End If;
5636:
5637: /* Now updates the other attributes for the newly inserted rows */

Line 5714: If p_pa_debug_mode = 'Y' Then

5710: ,tmp.PLAN_DATES_CHANGE_FLAG = decode(nvl(tmp.rlm_id_change_flag,'N'),'Y','N',tmp.PLAN_DATES_CHANGE_FLAG)
5711: ,tmp.SP_FIX_DATE_CHANGE_FLAG = decode(nvl(tmp.rlm_id_change_flag,'N'),'Y','N',tmp.SP_FIX_DATE_CHANGE_FLAG)
5712: ,tmp.MFC_COST_CHANGE_FLAG = decode(nvl(tmp.rlm_id_change_flag,'N'),'Y','N',tmp.MFC_COST_CHANGE_FLAG)
5713: WHERE tmp.budget_version_id = p_budget_version_id;
5714: If p_pa_debug_mode = 'Y' Then
5715: pa_debug.reset_err_stack;
5716: End If;
5717: EXCEPTION
5718: WHEN OTHERS THEN

Line 5715: pa_debug.reset_err_stack;

5711: ,tmp.SP_FIX_DATE_CHANGE_FLAG = decode(nvl(tmp.rlm_id_change_flag,'N'),'Y','N',tmp.SP_FIX_DATE_CHANGE_FLAG)
5712: ,tmp.MFC_COST_CHANGE_FLAG = decode(nvl(tmp.rlm_id_change_flag,'N'),'Y','N',tmp.MFC_COST_CHANGE_FLAG)
5713: WHERE tmp.budget_version_id = p_budget_version_id;
5714: If p_pa_debug_mode = 'Y' Then
5715: pa_debug.reset_err_stack;
5716: End If;
5717: EXCEPTION
5718: WHEN OTHERS THEN
5719: x_return_status := 'U';

Line 5722: If p_pa_debug_mode = 'Y' Then

5718: WHEN OTHERS THEN
5719: x_return_status := 'U';
5720: l_msg_data := sqlcode||sqlerrm;
5721: print_msg('Failed in populate_blTxnCurCombo API'||l_msg_data);
5722: If p_pa_debug_mode = 'Y' Then
5723: pa_debug.reset_err_stack;
5724: End if;
5725: fnd_msg_pub.add_exc_msg
5726: ( p_pkg_name => 'PA_FP_CALC_UTILS'

Line 5723: pa_debug.reset_err_stack;

5719: x_return_status := 'U';
5720: l_msg_data := sqlcode||sqlerrm;
5721: print_msg('Failed in populate_blTxnCurCombo API'||l_msg_data);
5722: If p_pa_debug_mode = 'Y' Then
5723: pa_debug.reset_err_stack;
5724: End if;
5725: fnd_msg_pub.add_exc_msg
5726: ( p_pkg_name => 'PA_FP_CALC_UTILS'
5727: ,p_procedure_name => 'populate_blTxnCurCombo');

Line 5738: IF P_PA_DEBUG_MODE = 'Y' Then

5734:
5735: l_return_status Varchar2(1);
5736: l_msg_data Varchar2(1000);
5737: BEGIN
5738: IF P_PA_DEBUG_MODE = 'Y' Then
5739: print_msg('Enetered synch_resAttribs api');
5740: End If;
5741: IF (p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')
5742: and NVL(g_apply_progress_flag,'N') <> 'Y'

Line 5863: IF P_PA_DEBUG_MODE = 'Y' Then

5859: ,decode(sign(trunc(tmp.new_plan_end_date) - trunc(tmp.old_plan_end_date)),-1 ,'Y','N'))))
5860: WHERE tmp.budget_version_id = p_budget_version_id;
5861: END IF; --}
5862:
5863: IF P_PA_DEBUG_MODE = 'Y' Then
5864: print_msg('Out of synch_resAttribs api');
5865: End If;
5866:
5867: EXCEPTION

Line 5886: IF P_PA_DEBUG_MODE = 'Y' Then

5882: l_msg_data Varchar2(1000);
5883: l_return_status Varchar2(1);
5884:
5885: BEGIN
5886: IF P_PA_DEBUG_MODE = 'Y' Then
5887: print_msg('Enetered synch_ChangedFlags API');
5888: End If;
5889: IF (p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')
5890: and NVL(g_apply_progress_flag,'N') <> 'Y'

Line 6248: If p_pa_debug_mode = 'Y' Then

6244: l_return_status := 'S';
6245: x_msg_data := NULL;
6246:
6247: /* Initialize the error stack */
6248: If p_pa_debug_mode = 'Y' Then
6249: pa_debug.init_err_stack('PA_FP_CALC_UTILS.populate_spreadCalc_Tmp');
6250: print_msg(' Entered populate_spreadCalc_Tmp API');
6251: End If;
6252: /* populate tmp table with the data */

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

6245: x_msg_data := NULL;
6246:
6247: /* Initialize the error stack */
6248: If p_pa_debug_mode = 'Y' Then
6249: pa_debug.init_err_stack('PA_FP_CALC_UTILS.populate_spreadCalc_Tmp');
6250: print_msg(' Entered populate_spreadCalc_Tmp API');
6251: End If;
6252: /* populate tmp table with the data */
6253: Init_plsqlTabs;

Line 6293: IF P_PA_DEBUG_MODE = 'Y' Then

6289: g_wp_cost_changed_flag := NVL(p_wp_cost_changed_flag,'N');
6290: -- CBS 13653430 changes
6291: g_wp_resource_class_flag := PA_PROJECT_STRUCTURE_UTILS.get_resource_class_flag(g_project_id);
6292:
6293: IF P_PA_DEBUG_MODE = 'Y' Then
6294: print_msg('populating spread_calc_tmp table from in params');
6295: End If;
6296:
6297: /*Start of Perf Impr:5309529: Added this new api as part of perf enhancement */

Line 6475: IF P_PA_DEBUG_MODE = 'Y' Then

6471: ,x_Br_miss_num_flag_tab(i)
6472: ,x_Rv_miss_num_flag_tab(i)
6473: );
6474: ************/
6475: IF P_PA_DEBUG_MODE = 'Y' Then
6476: print_msg('Number of rows populated['||sql%rowcount||']');
6477: End If;
6478:
6479: /* Bug fix: 3841644 Added the following check to validate the duplicate records sent by calling API */

Line 6513: IF P_PA_DEBUG_MODE = 'Y' Then

6509: print_msg('Check MultipleLinesAdjustmentFlag['||l_MultipleAdjustments_flag||']');
6510: IF NVL(l_MultipleAdjustments_flag,'N') = 'Y' THEN
6511: l_return_status := 'E';
6512: x_return_status := 'E';
6513: IF P_PA_DEBUG_MODE = 'Y' Then
6514: print_msg('Multiple adjustments found for the single resource');
6515: End If;
6516: FOR i IN cur_msgStackDetails LOOP
6517: l_stage := 'RaId['||i.resource_assignment_id||']TxnCur['||i.txn_currency_code||']oldSD[';

Line 6558: IF P_PA_DEBUG_MODE = 'Y' Then

6554: --print_msg('Bug fix:4272944: DONOT DELETE AUTOBASELINE zero qty budget lines');
6555: null;
6556: /* Bug fix:4272944 Ends */
6557: ELSIF x_resource_assignment_tab.COUNT > 0 THEN
6558: IF P_PA_DEBUG_MODE = 'Y' Then
6559: print_msg('Delete zero Quantity budget lines where actuals donot exists');
6560: End If;
6561: FORALL i IN x_resource_assignment_tab.FIRST .. x_resource_assignment_tab.LAST
6562: DELETE FROM pa_budget_lines bl

Line 6574: IF P_PA_DEBUG_MODE = 'Y' Then

6570: and NVL(bl.txn_init_raw_cost,0) = 0
6571: and NVL(bl.txn_init_burdened_cost,0) = 0
6572: and NVL(bl.txn_init_revenue,0) = 0
6573: );
6574: IF P_PA_DEBUG_MODE = 'Y' Then
6575: print_msg('Number of lines deleted['||sql%rowcount||']');
6576: End If;
6577: END IF;
6578:

Line 6581: IF P_PA_DEBUG_MODE = 'Y' Then

6577: END IF;
6578:
6579: IF NVL(l_return_status,'S') = 'S' Then
6580: /* Now update the Rate/Amount/Qty changed flags on the Tmp table */
6581: IF P_PA_DEBUG_MODE = 'Y' Then
6582: print_msg('Calling Compare_bdgtLine_Values Api');
6583: End If;
6584: Compare_bdgtLine_Values
6585: (p_budget_version_id => p_budget_version_id

Line 6599: IF P_PA_DEBUG_MODE = 'Y' Then

6595: End If;
6596: END IF; --}
6597:
6598: /* If multiple RA + Txn cur combo is passed, then updates the res attributes whereever it is null */
6599: IF P_PA_DEBUG_MODE = 'Y' Then
6600: print_msg('Calling synchronize resource attributes api');
6601: End If;
6602: synch_resAttribs(p_budget_version_id => p_budget_version_id
6603: ,p_calling_module => p_calling_module );

Line 6606: IF P_PA_DEBUG_MODE = 'Y' Then

6602: synch_resAttribs(p_budget_version_id => p_budget_version_id
6603: ,p_calling_module => p_calling_module );
6604:
6605: /* now synchronize all the flags */
6606: IF P_PA_DEBUG_MODE = 'Y' Then
6607: print_msg('calling synchronize changed flag api');
6608: End If;
6609: synch_ChangedFlags(p_budget_version_id => p_budget_version_id
6610: ,p_calling_module => p_calling_module );

Line 6623: IF P_PA_DEBUG_MODE = 'Y' Then

6619: AND bvDetailsRec.Wp_Version_Flag <> 'Y'
6620: AND IsCacheReqd(p_calling_context => 'RATXNCOMBO') = 'Y'
6621: AND p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')) Then
6622: /* Now populate the tmp table with other RA +Txn currnecy combo for resource planned in multi currency */
6623: IF P_PA_DEBUG_MODE = 'Y' Then
6624: print_msg('Calling populate_blTxnCurCombo api');
6625: End If;
6626: populate_blTxnCurCombo
6627: (p_budget_version_id => p_budget_version_id

Line 6630: IF P_PA_DEBUG_MODE = 'Y' Then

6626: populate_blTxnCurCombo
6627: (p_budget_version_id => p_budget_version_id
6628: ,x_return_status => l_return_status
6629: );
6630: IF P_PA_DEBUG_MODE = 'Y' Then
6631: print_msg('RetSts after populate_blTxnCurCombo ['||l_return_status||']');
6632: End If;
6633: If l_return_status <> 'S' Then
6634: x_return_status := l_return_status;

Line 6642: IF P_PA_DEBUG_MODE = 'Y' Then

6638:
6639: /* Ipm changes */
6640: If l_return_status = 'S' AND NVL(g_apply_progress_flag,'N') <> 'Y' Then --{
6641: If p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then
6642: IF P_PA_DEBUG_MODE = 'Y' Then
6643: print_msg('Calling Reset_ratebased_pltrxns API');
6644: End If;
6645: Reset_ratebased_pltrxns(
6646: p_budget_version_id => p_budget_version_id

Line 6650: IF P_PA_DEBUG_MODE = 'Y' Then

6646: p_budget_version_id => p_budget_version_id
6647: ,p_source_context => p_source_context
6648: ,x_return_status => l_return_status
6649: );
6650: IF P_PA_DEBUG_MODE = 'Y' Then
6651: print_msg('RetSts of Reset_ratebased_pltrxns API ['||l_return_status||']');
6652: End If;
6653: If l_return_status <> 'S' Then
6654: x_return_status := 'E';

Line 6659: IF P_PA_DEBUG_MODE = 'Y' Then

6655: End If;
6656: End If;
6657:
6658: If l_return_status = 'S' and p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then
6659: IF P_PA_DEBUG_MODE = 'Y' Then
6660: print_msg('Calling process_NonRtBsRec_forSprd API');
6661: End If;
6662: process_NonRtBsRec_forSprd
6663: (p_budget_version_id => p_budget_version_id

Line 6667: IF P_PA_DEBUG_MODE = 'Y' Then

6663: (p_budget_version_id => p_budget_version_id
6664: ,p_source_context => p_source_context
6665: ,x_return_status => l_return_status
6666: );
6667: IF P_PA_DEBUG_MODE = 'Y' Then
6668: print_msg('RetSts of process_NonRtBsRec_forSprd API ['||l_return_status||']');
6669: End If;
6670: If l_return_status <> 'S' Then
6671: x_return_status := 'E';

Line 6678: IF P_PA_DEBUG_MODE = 'Y' Then

6674:
6675:
6676: If p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') and
6677: g_budget_version_type = 'ALL' and l_return_status = 'S' Then
6678: IF P_PA_DEBUG_MODE = 'Y' Then
6679: print_msg('Calling pre_process_Revenue_Only_Recs API');
6680: End If;
6681: pre_process_Revenue_Only_Recs
6682: (p_budget_version_id => p_budget_version_id

Line 6686: IF P_PA_DEBUG_MODE = 'Y' Then

6682: (p_budget_version_id => p_budget_version_id
6683: ,p_source_context => p_source_context
6684: ,x_return_status => l_return_status
6685: );
6686: IF P_PA_DEBUG_MODE = 'Y' Then
6687: print_msg('RetSts of pre_process_Revenue_Only_Recs API ['||l_return_status||']');
6688: End If;
6689: If l_return_status <> 'S' Then
6690: x_return_status := 'E';

Line 6695: IF P_PA_DEBUG_MODE = 'Y' Then

6691: End If;
6692: End If;
6693:
6694: If l_return_status = 'S' AND NVL(g_apply_progress_flag,'N') <> 'Y' Then
6695: IF P_PA_DEBUG_MODE = 'Y' Then
6696: print_msg('Calling Check_ratebased_pltrxns API');
6697: End If;
6698: Check_ratebased_pltrxns(
6699: p_budget_version_id => p_budget_version_id

Line 6703: IF P_PA_DEBUG_MODE = 'Y' Then

6699: p_budget_version_id => p_budget_version_id
6700: ,p_source_context => p_source_context
6701: ,x_return_status => l_return_status
6702: );
6703: IF P_PA_DEBUG_MODE = 'Y' Then
6704: print_msg('RetSts of Check_ratebased_pltrxns API ['||l_return_status||']');
6705: End If;
6706: If l_return_status <> 'S' Then
6707: x_return_status := 'E';

Line 6784: IF P_PA_DEBUG_MODE = 'Y' Then

6780: END IF; -- end of MultiCurrLineFlag
6781: END LOOP; --}
6782: /* process tmp table for planning dates change*/
6783: IF g_Rspd_RaId_Tab.COUNT > 0 Then
6784: IF P_PA_DEBUG_MODE = 'Y' Then
6785: print_msg('Calling process_planDates_change api');
6786: End If;
6787: process_planDates_change(
6788: p_budget_version_id => p_budget_version_id

Line 6792: IF P_PA_DEBUG_MODE = 'Y' Then

6788: p_budget_version_id => p_budget_version_id
6789: ,x_return_status => l_return_status
6790: ,x_msg_data => x_msg_data
6791: );
6792: IF P_PA_DEBUG_MODE = 'Y' Then
6793: print_msg('returnStatus of process_planDates_change api['||l_return_status||']');
6794: End If;
6795: If l_return_status <> 'S' Then
6796: x_return_status := l_return_status;

Line 6801: IF P_PA_DEBUG_MODE = 'Y' Then

6797: End If;
6798: END IF;
6799: /* process tmp table for other res attribute changes flag */
6800: IF g_RsAtrb_RaId_tab.COUNT > 0 THEN
6801: IF P_PA_DEBUG_MODE = 'Y' Then
6802: print_msg('Calling process_ResAttribs api');
6803: End if;
6804: process_ResAttribs(
6805: p_budget_version_id => p_budget_version_id

Line 6811: IF P_PA_DEBUG_MODE = 'Y' Then

6807: ,p_txn_currency_code_tab => g_RsAtrb_Txncur_Tab
6808: ,x_return_status => l_return_status
6809: ,x_msg_data => x_msg_data
6810: );
6811: IF P_PA_DEBUG_MODE = 'Y' Then
6812: print_msg('returnStatus of process_ResAttribs api['||l_return_status||']');
6813: End If;
6814: If l_return_status <> 'S' Then
6815: x_return_status := l_return_status;

Line 6828: IF P_PA_DEBUG_MODE = 'Y' Then

6824: AND g_apply_progress_flag = 'N'
6825: AND NVL(g_time_phase_changed_flag,'N') = 'N'
6826: AND perdRec.time_phased_code NOT IN ('G','P')
6827: AND p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') ) Then --{
6828: IF P_PA_DEBUG_MODE = 'Y' Then
6829: print_msg('Calling process_NonTimePhase_Lines API ');
6830: End If;
6831: process_NonTimePhase_Lines
6832: (p_budget_version_id => p_budget_version_id

Line 6839: IF P_PA_DEBUG_MODE = 'Y' Then

6835: ,p_source_context => p_source_context
6836: ,x_return_status => l_return_status
6837: ,x_msg_data => x_msg_data
6838: );
6839: IF P_PA_DEBUG_MODE = 'Y' Then
6840: print_msg('returnStatus of process_NonTimePhase_Lines api['||l_return_status||']');
6841: End If;
6842: If l_return_status <> 'S' Then
6843: x_return_status := l_return_status;

Line 6856: IF P_PA_DEBUG_MODE = 'Y' Then

6852: AND NVL(g_time_phase_changed_flag,'N') = 'N'
6853: AND p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')) Then --{
6854: IF IsCacheReqd(p_calling_context => 'RATES') = 'Y' Then
6855: /* cache all the override rates and currency conversion attributes */
6856: IF P_PA_DEBUG_MODE = 'Y' Then
6857: print_msg('Calling cache_rates API');
6858: End If;
6859: cache_rates(
6860: p_budget_verson_id => p_budget_version_id

Line 6866: IF P_PA_DEBUG_MODE = 'Y' Then

6862: ,p_source_context => p_source_context
6863: ,x_return_status => l_return_status
6864: ,x_msg_data => x_msg_data
6865: );
6866: IF P_PA_DEBUG_MODE = 'Y' Then
6867: print_msg('returnSts of cache_rates api['||l_return_status||']');
6868: End If;
6869: IF l_return_status <> 'S' Then
6870: x_return_status := l_return_status;

Line 6885: IF P_PA_DEBUG_MODE = 'Y' Then

6881: AND NVL(g_time_phase_changed_flag,'N') = 'N'
6882: AND perdRec.time_phased_code IN ('G','P')
6883: AND g_source_context = 'RESOURCE_ASSIGNMENT'
6884: AND p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION')) Then --{
6885: IF P_PA_DEBUG_MODE = 'Y' Then
6886: print_msg('Calling Check_GLPA_periods_exists ');
6887: End If;
6888: Check_GLPA_periods_exists(
6889: p_budget_verson_id => p_budget_version_id

Line 6894: IF P_PA_DEBUG_MODE = 'Y' Then

6890: ,p_time_phase_code => perdRec.time_phased_code
6891: ,x_return_status => l_return_status
6892: ,x_msg_data => x_msg_data
6893: );
6894: IF P_PA_DEBUG_MODE = 'Y' Then
6895: print_msg('returnSts of Check_GLPA_periods_exists ['||l_return_status||']');
6896: End If;
6897: END If;
6898: /* end of bug:5483430 */

Line 7038: If p_pa_debug_mode = 'Y' Then

7034:
7035: x_return_status := l_return_status;
7036:
7037: /* reset the error stack */
7038: If p_pa_debug_mode = 'Y' Then
7039: print_msg('RetSts of the populate_spreadTmp_OvrRates ['||x_return_status||']');
7040: pa_debug.reset_err_stack;
7041: End If;
7042:

Line 7040: pa_debug.reset_err_stack;

7036:
7037: /* reset the error stack */
7038: If p_pa_debug_mode = 'Y' Then
7039: print_msg('RetSts of the populate_spreadTmp_OvrRates ['||x_return_status||']');
7040: pa_debug.reset_err_stack;
7041: End If;
7042:
7043: EXCEPTION
7044: WHEN OTHERS THEN

Line 7051: If p_pa_debug_mode = 'Y' Then

7047: print_msg('Failed in populate_spreadTmp_OvrRates API'||x_msg_data);
7048: fnd_msg_pub.add_exc_msg
7049: ( p_pkg_name => 'PA_FP_CALC_UTILS'
7050: ,p_procedure_name => 'populate_spreadCalc_Tmp ');
7051: If p_pa_debug_mode = 'Y' Then
7052: pa_debug.reset_err_stack;
7053: End If;
7054: RAISE;
7055:

Line 7052: pa_debug.reset_err_stack;

7048: fnd_msg_pub.add_exc_msg
7049: ( p_pkg_name => 'PA_FP_CALC_UTILS'
7050: ,p_procedure_name => 'populate_spreadCalc_Tmp ');
7051: If p_pa_debug_mode = 'Y' Then
7052: pa_debug.reset_err_stack;
7053: End If;
7054: RAISE;
7055:
7056: END populate_spreadCalc_Tmp ;

Line 7093: If p_pa_debug_mode = 'Y' Then

7089: OR tmp.bill_rate_override is NOT NULL
7090: OR tmp.mfc_cost_change_flag = 'Y' );
7091: BEGIN
7092: /* Initialize the error stack */
7093: If p_pa_debug_mode = 'Y' Then
7094: pa_debug.init_err_stack('PA_FP_CALC_UTILS.cache_rates');
7095: End If;
7096: x_return_status := 'S';
7097: x_msg_data := NULL;

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

7090: OR tmp.mfc_cost_change_flag = 'Y' );
7091: BEGIN
7092: /* Initialize the error stack */
7093: If p_pa_debug_mode = 'Y' Then
7094: pa_debug.init_err_stack('PA_FP_CALC_UTILS.cache_rates');
7095: End If;
7096: x_return_status := 'S';
7097: x_msg_data := NULL;
7098:

Line 7291: IF P_PA_DEBUG_MODE = 'Y' Then

7287: OR NVL(tmp.MFC_COST_CHANGE_FLAG,'N') = 'Y'
7288: OR NVL(tmp.RE_SPREAD_AMTS_FLAG,'N') = 'Y'
7289: );
7290: l_rowcount := sql%rowcount;
7291: IF P_PA_DEBUG_MODE = 'Y' Then
7292: print_msg('Number of rows cached['||l_rowcount||']');
7293: End If;
7294:
7295: /* Now update the override rates If any passed from the Page */

Line 7326: IF P_PA_DEBUG_MODE = 'Y' Then

7322: AND tmp1.resource_assignment_id = i.resource_assignment_id
7323: AND tmp1.txn_currency_code = i.txn_currency_code ;
7324:
7325: l_rowcount := sql%rowcount;
7326: IF P_PA_DEBUG_MODE = 'Y' Then
7327: print_msg('Number of cached rows updated['||l_rowcount||']');
7328: End If;
7329:
7330: END LOOP;

Line 7333: If p_pa_debug_mode = 'Y' Then

7329:
7330: END LOOP;
7331:
7332: /* reset the error stack */
7333: If p_pa_debug_mode = 'Y' Then
7334: pa_debug.reset_err_stack;
7335: End If;
7336:
7337: EXCEPTION

Line 7334: pa_debug.reset_err_stack;

7330: END LOOP;
7331:
7332: /* reset the error stack */
7333: If p_pa_debug_mode = 'Y' Then
7334: pa_debug.reset_err_stack;
7335: End If;
7336:
7337: EXCEPTION
7338: WHEN OTHERS THEN

Line 7345: If p_pa_debug_mode = 'Y' Then

7341: print_msg('Failed in cache_rates API'||x_msg_data);
7342: fnd_msg_pub.add_exc_msg
7343: ( p_pkg_name => 'PA_FP_CALC_UTILS'
7344: ,p_procedure_name => 'cache_rates');
7345: If p_pa_debug_mode = 'Y' Then
7346: pa_debug.reset_err_stack;
7347: End If;
7348: RAISE;
7349:

Line 7346: pa_debug.reset_err_stack;

7342: fnd_msg_pub.add_exc_msg
7343: ( p_pkg_name => 'PA_FP_CALC_UTILS'
7344: ,p_procedure_name => 'cache_rates');
7345: If p_pa_debug_mode = 'Y' Then
7346: pa_debug.reset_err_stack;
7347: End If;
7348: RAISE;
7349:
7350: END cache_rates;

Line 7840: If p_pa_debug_mode = 'Y' Then

7836: BEGIN
7837: /* Initialize the out variables */
7838: x_return_status := 'S';
7839: x_msg_data := NULL;
7840: If p_pa_debug_mode = 'Y' Then
7841: pa_debug.init_err_stack('PA_FP_CALC_UTILS.copy_BlAttributes');
7842: End If;
7843: IF p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then --{
7844: IF P_PA_DEBUG_MODE = 'Y' Then

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

7837: /* Initialize the out variables */
7838: x_return_status := 'S';
7839: x_msg_data := NULL;
7840: If p_pa_debug_mode = 'Y' Then
7841: pa_debug.init_err_stack('PA_FP_CALC_UTILS.copy_BlAttributes');
7842: End If;
7843: IF p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then --{
7844: IF P_PA_DEBUG_MODE = 'Y' Then
7845: print_msg('Entered copy_BlAttributes API');

Line 7844: IF P_PA_DEBUG_MODE = 'Y' Then

7840: If p_pa_debug_mode = 'Y' Then
7841: pa_debug.init_err_stack('PA_FP_CALC_UTILS.copy_BlAttributes');
7842: End If;
7843: IF p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then --{
7844: IF P_PA_DEBUG_MODE = 'Y' Then
7845: print_msg('Entered copy_BlAttributes API');
7846: End If;
7847: INIT_PLSQL_TABS;
7848: OPEN fptmpDetails;

Line 8015: If p_pa_debug_mode = 'Y' Then

8011: /* release the buffer */
8012: INIT_PLSQL_TABS;
8013: END IF; --}
8014: --print_msg('End of copy_BlAttributes retSts['||x_return_status||']');
8015: If p_pa_debug_mode = 'Y' Then
8016: pa_debug.reset_err_stack;
8017: End If;
8018: EXCEPTION
8019: WHEN OTHERS THEN

Line 8016: pa_debug.reset_err_stack;

8012: INIT_PLSQL_TABS;
8013: END IF; --}
8014: --print_msg('End of copy_BlAttributes retSts['||x_return_status||']');
8015: If p_pa_debug_mode = 'Y' Then
8016: pa_debug.reset_err_stack;
8017: End If;
8018: EXCEPTION
8019: WHEN OTHERS THEN
8020: x_return_status := 'U';

Line 8025: If p_pa_debug_mode = 'Y' Then

8021: x_msg_data := SQLCODE||SQLERRM;
8022: fnd_msg_pub.add_exc_msg
8023: ( p_pkg_name => 'PA_FP_CALC_UTILS'
8024: ,p_procedure_name => 'copy_BlAttributes');
8025: If p_pa_debug_mode = 'Y' Then
8026: pa_debug.reset_err_stack;
8027: End If;
8028: RAISE;
8029:

Line 8026: pa_debug.reset_err_stack;

8022: fnd_msg_pub.add_exc_msg
8023: ( p_pkg_name => 'PA_FP_CALC_UTILS'
8024: ,p_procedure_name => 'copy_BlAttributes');
8025: If p_pa_debug_mode = 'Y' Then
8026: pa_debug.reset_err_stack;
8027: End If;
8028: RAISE;
8029:
8030: END copy_BlAttributes;

Line 8879: IF p_pa_debug_mode = 'Y' Then

8875: x_msg_data := NULL;
8876: l_return_status := 'S';
8877: l_msg_count := 0;
8878: l_msg_data := NULL;
8879: IF p_pa_debug_mode = 'Y' Then
8880: pa_debug.init_err_stack('PA_FP_CALC_UTILS.Update_rounding_diff_bl');
8881: End If;
8882:
8883: g_stage := 'Update_rounding_diff_bl:100';

Line 8880: pa_debug.init_err_stack('PA_FP_CALC_UTILS.Update_rounding_diff_bl');

8876: l_return_status := 'S';
8877: l_msg_count := 0;
8878: l_msg_data := NULL;
8879: IF p_pa_debug_mode = 'Y' Then
8880: pa_debug.init_err_stack('PA_FP_CALC_UTILS.Update_rounding_diff_bl');
8881: End If;
8882:
8883: g_stage := 'Update_rounding_diff_bl:100';
8884: pa_debug.g_err_stage := 'Entered Update_rounding_diff_bl API';

Line 8884: pa_debug.g_err_stage := 'Entered Update_rounding_diff_bl API';

8880: pa_debug.init_err_stack('PA_FP_CALC_UTILS.Update_rounding_diff_bl');
8881: End If;
8882:
8883: g_stage := 'Update_rounding_diff_bl:100';
8884: pa_debug.g_err_stage := 'Entered Update_rounding_diff_bl API';
8885:
8886: --print_msg(pa_debug.g_err_stage);
8887: /* initialize the plsql tabs */
8888:

Line 8886: --print_msg(pa_debug.g_err_stage);

8882:
8883: g_stage := 'Update_rounding_diff_bl:100';
8884: pa_debug.g_err_stage := 'Entered Update_rounding_diff_bl API';
8885:
8886: --print_msg(pa_debug.g_err_stage);
8887: /* initialize the plsql tabs */
8888:
8889: l_resource_assignment_tab.delete;
8890: l_txn_currency_code_tab.delete;

Line 8970: IF p_pa_debug_mode = 'Y' Then

8966: x_msg_count := l_msg_count;
8967: x_msg_data := l_msg_data;
8968: g_stage := 'Update_rounding_diff_bl:104';
8969: -- reset error stack
8970: IF p_pa_debug_mode = 'Y' Then
8971: print_msg('End of Update_rounding_diff_bl API return Sts['||x_return_status||']');
8972: pa_debug.reset_err_stack;
8973: End If;
8974:

Line 8972: pa_debug.reset_err_stack;

8968: g_stage := 'Update_rounding_diff_bl:104';
8969: -- reset error stack
8970: IF p_pa_debug_mode = 'Y' Then
8971: print_msg('End of Update_rounding_diff_bl API return Sts['||x_return_status||']');
8972: pa_debug.reset_err_stack;
8973: End If;
8974:
8975: EXCEPTION
8976: WHEN OTHERS THEN

Line 8984: IF p_pa_debug_mode = 'Y' Then

8980: fnd_msg_pub.add_exc_msg
8981: ( p_pkg_name => 'PA_FP_CALC_UTILS'
8982: ,p_procedure_name => 'Update_rounding_diff_bl' );
8983: print_msg('Failed in Update_rounding_diff_bl substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
8984: IF p_pa_debug_mode = 'Y' Then
8985: pa_debug.reset_err_stack;
8986: End If;
8987: RAISE;
8988: END Update_rounding_diff_bl;

Line 8985: pa_debug.reset_err_stack;

8981: ( p_pkg_name => 'PA_FP_CALC_UTILS'
8982: ,p_procedure_name => 'Update_rounding_diff_bl' );
8983: print_msg('Failed in Update_rounding_diff_bl substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
8984: IF p_pa_debug_mode = 'Y' Then
8985: pa_debug.reset_err_stack;
8986: End If;
8987: RAISE;
8988: END Update_rounding_diff_bl;
8989:

Line 9175: If p_pa_debug_mode = 'Y' Then

9171: BEGIN
9172:
9173: x_return_status := FND_API.G_RET_STS_SUCCESS;
9174: l_return_status := 'S';
9175: If p_pa_debug_mode = 'Y' Then
9176: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');
9177: End If;
9178: IF P_PA_DEBUG_MODE = 'Y' Then
9179: print_msg('Entered PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');

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

9172:
9173: x_return_status := FND_API.G_RET_STS_SUCCESS;
9174: l_return_status := 'S';
9175: If p_pa_debug_mode = 'Y' Then
9176: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');
9177: End If;
9178: IF P_PA_DEBUG_MODE = 'Y' Then
9179: print_msg('Entered PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');
9180: End If;

Line 9178: IF P_PA_DEBUG_MODE = 'Y' Then

9174: l_return_status := 'S';
9175: If p_pa_debug_mode = 'Y' Then
9176: pa_debug.init_err_stack('PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');
9177: End If;
9178: IF P_PA_DEBUG_MODE = 'Y' Then
9179: print_msg('Entered PA_FP_CALC_PLAN_PKG.BLK_update_budget_lines');
9180: End If;
9181: l_stage := 4000;
9182: InitPlsqlTabs;

Line 9296: IF P_PA_DEBUG_MODE = 'Y' Then

9292: CLOSE Cur_RollupLines;
9293:
9294: IF l_bl_budget_line_id_tab.COUNT > 0 THEN --{
9295: <>
9296: IF P_PA_DEBUG_MODE = 'Y' Then
9297: print_msg('Entered NEW_BUDGET_LINE block');
9298: End If;
9299: BEGIN
9300: /* Call the update reporting line by passing -ve amounts of the existsing budgetline

Line 9609: IF P_PA_DEBUG_MODE = 'Y' Then

9605:
9606: /* Now process the exception records in bulk */
9607: <>
9608: IF l_exception_return_status = 'S' AND l_err_error_code_tab.COUNT > 0 THEN --{
9609: IF P_PA_DEBUG_MODE = 'Y' Then
9610: 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||']');
9611: End If;
9612:
9613: /*We should pass the +ve values for the updated rows. having returning clause in the bulk update returns the

Line 10116: If p_pa_debug_mode = 'Y' Then

10112: InitPlsqlTabs;
10113: END IF; --} -- end of New budget Line
10114: x_return_status := l_return_status;
10115: print_msg('Leaving BLK_update_budget_lines:x_return_status : '||x_return_status);
10116: If p_pa_debug_mode = 'Y' Then
10117: pa_debug.reset_err_stack;
10118: End If;
10119:
10120: EXCEPTION

Line 10117: pa_debug.reset_err_stack;

10113: END IF; --} -- end of New budget Line
10114: x_return_status := l_return_status;
10115: print_msg('Leaving BLK_update_budget_lines:x_return_status : '||x_return_status);
10116: If p_pa_debug_mode = 'Y' Then
10117: pa_debug.reset_err_stack;
10118: End If;
10119:
10120: EXCEPTION
10121: WHEN OTHERS THEN

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

10123: x_msg_data := SQLCODE||SQLERRM;
10124: fnd_msg_pub.add_exc_msg
10125: ( p_pkg_name => 'PA_FP_CALC_PLAN_PKG'
10126: ,p_procedure_name => 'BLK_update_budget_lines' );
10127: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
10128: l_stage := 4120;
10129: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
10130: If p_pa_debug_mode = 'Y' Then
10131: pa_debug.reset_err_stack;

Line 10130: If p_pa_debug_mode = 'Y' Then

10126: ,p_procedure_name => 'BLK_update_budget_lines' );
10127: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
10128: l_stage := 4120;
10129: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
10130: If p_pa_debug_mode = 'Y' Then
10131: pa_debug.reset_err_stack;
10132: End If;
10133: RAISE;
10134:

Line 10131: pa_debug.reset_err_stack;

10127: pa_debug.g_err_stage := 'Stage : '||to_char(l_stage)||' '||substr(SQLERRM,1,240);
10128: l_stage := 4120;
10129: print_msg(to_char(l_stage)||' substr(SQLERRM,1,240) => '|| substr(SQLERRM,1,240));
10130: If p_pa_debug_mode = 'Y' Then
10131: pa_debug.reset_err_stack;
10132: End If;
10133: RAISE;
10134:
10135: END BLK_update_budget_lines;

Line 10492: If p_pa_debug_mode = 'Y' Then

10488: /* Initialize the out variables */
10489: x_return_status := 'S';
10490: x_msg_data := NULL;
10491: x_msg_count := fnd_msg_pub.count_msg;
10492: If p_pa_debug_mode = 'Y' Then
10493: pa_debug.init_err_stack('PA_FP_CALC_UTILS.update_dffcols');
10494: End If;
10495: IF p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then --{
10496: INIT_PLSQL_TABS;

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

10489: x_return_status := 'S';
10490: x_msg_data := NULL;
10491: x_msg_count := fnd_msg_pub.count_msg;
10492: If p_pa_debug_mode = 'Y' Then
10493: pa_debug.init_err_stack('PA_FP_CALC_UTILS.update_dffcols');
10494: End If;
10495: IF p_calling_module NOT IN ('BUDGET_GENERATION','FORECAST_GENERATION') Then --{
10496: INIT_PLSQL_TABS;
10497: --print_msg('Fetching budget Line Attributes such as DFFs details from cache ');

Line 10829: If p_pa_debug_mode = 'Y' Then

10825: END IF; --}
10826:
10827: x_msg_count := fnd_msg_pub.count_msg;
10828: --print_msg('End of update_dffcols retSts['||x_return_status||']');
10829: If p_pa_debug_mode = 'Y' Then
10830: pa_debug.reset_err_stack;
10831: End If;
10832:
10833: EXCEPTION

Line 10830: pa_debug.reset_err_stack;

10826:
10827: x_msg_count := fnd_msg_pub.count_msg;
10828: --print_msg('End of update_dffcols retSts['||x_return_status||']');
10829: If p_pa_debug_mode = 'Y' Then
10830: pa_debug.reset_err_stack;
10831: End If;
10832:
10833: EXCEPTION
10834: WHEN OTHERS THEN

Line 10840: If p_pa_debug_mode = 'Y' Then

10836: x_msg_data := SQLCODE||SQLERRM;
10837: fnd_msg_pub.add_exc_msg
10838: ( p_pkg_name => 'PA_FP_CALC_UTILS'
10839: ,p_procedure_name => 'update_dffcols');
10840: If p_pa_debug_mode = 'Y' Then
10841: pa_debug.reset_err_stack;
10842: End If;
10843: RAISE;
10844:

Line 10841: pa_debug.reset_err_stack;

10837: fnd_msg_pub.add_exc_msg
10838: ( p_pkg_name => 'PA_FP_CALC_UTILS'
10839: ,p_procedure_name => 'update_dffcols');
10840: If p_pa_debug_mode = 'Y' Then
10841: pa_debug.reset_err_stack;
10842: End If;
10843: RAISE;
10844:
10845: END update_dffcols;

Line 11147: IF P_PA_DEBUG_MODE = 'Y' Then

11143: END; --}
11144: END IF; --} end of l_budget_line_id_tab.COUNT > 0
11145: END IF;
11146: Init_plsql_tabs;
11147: IF P_PA_DEBUG_MODE = 'Y' Then
11148: print_msg('Return Status of InsertFunding_ReqdLines api ['||x_return_status||']');
11149: End If;
11150: EXCEPTION
11151: