DBA Data[Home] [Help]

APPS.PA_FP_VIEW_PLANS_TXN_PUB dependencies on PA_DEBUG

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

7: NOTE :
8: End of Comments
9: */
10:
11: P_PA_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
12: g_plsql_max_array_size NUMBER := 200;
13:
14: function Get_Multicurrency_Flag return VARCHAR2 is
15: BEGIN

Line 283: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize', '100: entered procedure', 2);

279: l_module_name VARCHAR2(100);
280: l_msg_index_out NUMBER;
281:
282: BEGIN
283: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize', '100: entered procedure', 2);
284: x_msg_count := 0;
285: l_module_name:='pa_fp_view_plans_txn_pub';
286: x_return_status := FND_API.G_RET_STS_SUCCESS;
287: pa_debug.set_err_stack('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize');

Line 287: pa_debug.set_err_stack('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize');

283: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize', '100: entered procedure', 2);
284: x_msg_count := 0;
285: l_module_name:='pa_fp_view_plans_txn_pub';
286: x_return_status := FND_API.G_RET_STS_SUCCESS;
287: pa_debug.set_err_stack('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize');
288: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
289: l_debug_mode := NVL(l_debug_mode, 'Y');
290: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
291: IF ( p_cost_version_id IS NULL

Line 288: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);

284: x_msg_count := 0;
285: l_module_name:='pa_fp_view_plans_txn_pub';
286: x_return_status := FND_API.G_RET_STS_SUCCESS;
287: pa_debug.set_err_stack('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize');
288: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
289: l_debug_mode := NVL(l_debug_mode, 'Y');
290: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
291: IF ( p_cost_version_id IS NULL
292: AND p_rev_version_id IS NULL ) THEN

Line 290: pa_debug.set_process('PLSQL','LOG',l_debug_mode);

286: x_return_status := FND_API.G_RET_STS_SUCCESS;
287: pa_debug.set_err_stack('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize');
288: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
289: l_debug_mode := NVL(l_debug_mode, 'Y');
290: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
291: IF ( p_cost_version_id IS NULL
292: AND p_rev_version_id IS NULL ) THEN
293:
294: IF l_debug_mode = 'Y' THEN

Line 295: pa_debug.g_err_stage := 'Both cost and rev version ids are null' ;

291: IF ( p_cost_version_id IS NULL
292: AND p_rev_version_id IS NULL ) THEN
293:
294: IF l_debug_mode = 'Y' THEN
295: pa_debug.g_err_stage := 'Both cost and rev version ids are null' ;
296: pa_debug.write('nonhgrid_view_initialize: ' || l_module_name,pa_debug.g_err_stage,1);
297: END IF;
298: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
299:

Line 296: pa_debug.write('nonhgrid_view_initialize: ' || l_module_name,pa_debug.g_err_stage,1);

292: AND p_rev_version_id IS NULL ) THEN
293:
294: IF l_debug_mode = 'Y' THEN
295: pa_debug.g_err_stage := 'Both cost and rev version ids are null' ;
296: pa_debug.write('nonhgrid_view_initialize: ' || l_module_name,pa_debug.g_err_stage,1);
297: END IF;
298: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
299:
300: END IF;

Line 302: pa_debug.g_err_stage := 'Inside nonhgrid_view_initialize...';

298: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
299:
300: END IF;
301: IF l_debug_mode = 'Y' THEN
302: pa_debug.g_err_stage := 'Inside nonhgrid_view_initialize...';
303: pa_debug.write('nonhgrid_view_initialize: ' || l_module_name,pa_debug.g_err_stage,3);
304: END IF;
305:
306: -- bug 3146974 GET AUTO BASELINED FLAG

Line 303: pa_debug.write('nonhgrid_view_initialize: ' || l_module_name,pa_debug.g_err_stage,3);

299:
300: END IF;
301: IF l_debug_mode = 'Y' THEN
302: pa_debug.g_err_stage := 'Inside nonhgrid_view_initialize...';
303: pa_debug.write('nonhgrid_view_initialize: ' || l_module_name,pa_debug.g_err_stage,3);
304: END IF;
305:
306: -- bug 3146974 GET AUTO BASELINED FLAG
307: x_auto_baselined_flag :=

Line 844: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize', '1000: exited procedure', 2);

840: end if;
841:
842: end if;
843:
844: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize', '1000: exited procedure', 2);
845: END nonhgrid_view_initialize;
846: /* ------------------------------------------------------------- */
847:
848: /* ---------------------- CHANGE HISTORY ----------------------- */

Line 925: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '100: entered procedure', 2);

921: l_msg_data VARCHAR2(2000);
922: l_msg_index_out NUMBER(10);
923:
924: BEGIN
925: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '100: entered procedure', 2);
926: x_msg_count := 0;
927: x_return_status := FND_API.G_RET_STS_SUCCESS;
928:
929: -- get AUTO BASELINED FLAG

Line 1054: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '200: pref = COST_AND_REV_SAME', 1);

1050: language = USERENV('LANG');
1051:
1052:
1053: if l_fp_preference_code = 'COST_AND_REV_SAME' then
1054: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '200: pref = COST_AND_REV_SAME', 1);
1055: pa_fp_view_plans_txn_pub.G_COST_VERSION_ID := p_budget_version_id;
1056: pa_fp_view_plans_txn_pub.G_REV_VERSION_ID := p_budget_version_id;
1057: pa_fp_view_plans_txn_pub.G_COST_VERSION_GROUPING := l_grouping_type;
1058: pa_fp_view_plans_txn_pub.G_REV_VERSION_GROUPING := l_grouping_type;

Line 1072: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '300: pref = COST_ONLY', 1);

1068: x_cost_rl_id := l_resource_list_id;
1069: x_rev_rl_id := l_resource_list_id;
1070:
1071: elsif l_fp_preference_code = 'COST_ONLY' then
1072: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '300: pref = COST_ONLY', 1);
1073: pa_fp_view_plans_txn_pub.G_COST_VERSION_ID := p_budget_version_id;
1074: pa_fp_view_plans_txn_pub.G_REV_VERSION_ID := -1;
1075: pa_fp_view_plans_txn_pub.G_COST_VERSION_GROUPING := l_grouping_type;
1076: pa_fp_view_plans_txn_pub.G_REV_VERSION_GROUPING := '';

Line 1089: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '400: pref = REVENUE_ONLY', 1);

1085: x_cost_rl_id := l_resource_list_id;
1086: x_rev_rl_id := -1;
1087:
1088: elsif l_fp_preference_code = 'REVENUE_ONLY' then
1089: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '400: pref = REVENUE_ONLY', 1);
1090: pa_fp_view_plans_txn_pub.G_COST_VERSION_ID := -1;
1091: pa_fp_view_plans_txn_pub.G_REV_VERSION_ID := p_budget_version_id;
1092: pa_fp_view_plans_txn_pub.G_COST_VERSION_GROUPING := '';
1093: pa_fp_view_plans_txn_pub.G_REV_VERSION_GROUPING := l_grouping_type;

Line 1106: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '500: pref = COST_AND_REV_SEP', 1);

1102: x_cost_rl_id := -1;
1103: x_rev_rl_id := l_resource_list_id;
1104:
1105: elsif l_fp_preference_code = 'COST_AND_REV_SEP' then
1106: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '500: pref = COST_AND_REV_SEP', 1);
1107: -- this is a cost/revenue version that's part of a cost-revenue pairing
1108: -- we need to find out which one it is
1109: select version_type
1110: into l_version_type

Line 1148: --pa_debug.write('pa_fp_view_plans_txn_pub.hgrid_edit_initialize', '600: invalid value for FIN_PLAN_PREFERENCE_CODE', 1);

1144: x_rev_rl_id := l_resource_list_id;
1145: end if; -- l_version_type
1146:
1147: else
1148: --pa_debug.write('pa_fp_view_plans_txn_pub.hgrid_edit_initialize', '600: invalid value for FIN_PLAN_PREFERENCE_CODE', 1);
1149: return;
1150: end if; -- l_fp_preference_code
1151:
1152: x_display_from := pa_fp_view_plans_txn_pub.G_DISPLAY_FROM;

Line 1204: IF P_PA_DEBUG_MODE = 'Y' THEN

1200: end if;
1201: return;
1202: end if;
1203:
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '1000: exited procedure', 2);
1206: END IF;
1207: END nonhgrid_edit_initialize;
1208: /* ------------------------------------------------------------- */

Line 1205: pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '1000: exited procedure', 2);

1201: return;
1202: end if;
1203:
1204: IF P_PA_DEBUG_MODE = 'Y' THEN
1205: pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_edit_initialize', '1000: exited procedure', 2);
1206: END IF;
1207: END nonhgrid_edit_initialize;
1208: /* ------------------------------------------------------------- */
1209:

Line 1871: IF P_PA_DEBUG_MODE = 'Y' THEN

1867:
1868: BEGIN
1869: --hr_utility.trace_on(null, 'dlai');
1870: FND_MSG_PUB.initialize;
1871: IF P_PA_DEBUG_MODE = 'Y' THEN
1872: pa_debug.init_err_stack('nonhgrid_view_initialize: ' || 'PA_FIN_PLAN_PUB.Submit_Current_Working');
1873: END IF;
1874: x_return_status := FND_API.G_RET_STS_SUCCESS;
1875: x_msg_count := 0;

Line 1872: pa_debug.init_err_stack('nonhgrid_view_initialize: ' || 'PA_FIN_PLAN_PUB.Submit_Current_Working');

1868: BEGIN
1869: --hr_utility.trace_on(null, 'dlai');
1870: FND_MSG_PUB.initialize;
1871: IF P_PA_DEBUG_MODE = 'Y' THEN
1872: pa_debug.init_err_stack('nonhgrid_view_initialize: ' || 'PA_FIN_PLAN_PUB.Submit_Current_Working');
1873: END IF;
1874: x_return_status := FND_API.G_RET_STS_SUCCESS;
1875: x_msg_count := 0;
1876: SAVEPOINT PA_FIN_PLAN_VIEWPLANS_TXN;

Line 2338: pa_debug.reset_err_stack;

2334: end if; -- check bvId's
2335: commit;
2336:
2337:
2338: pa_debug.reset_err_stack;
2339:
2340: exception
2341: when others then
2342: rollback to PA_FIN_PLAN_VIEWPLANS_TXN;

Line 2348: pa_debug.reset_err_stack;

2344: x_msg_count := 1;
2345: x_msg_data := SQLERRM;
2346: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fp_view_plans_txn_pub',
2347: p_procedure_name => 'view_plans_txn_populate_tmp');
2348: pa_debug.reset_err_stack;
2349: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2350: END view_plans_txn_populate_tmp;
2351:
2352: ---------------------------------------------------------------

Line 2453: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize', '100: entered procedure', 2);

2449: l_msg_data VARCHAR2(2000);
2450: l_msg_index_out NUMBER;
2451:
2452: BEGIN
2453: --pa_debug.write('pa_fp_view_plans_txn_pub.nonhgrid_view_initialize', '100: entered procedure', 2);
2454: --hr_utility.trace_on(null, 'dlai');
2455: x_msg_count := 0;
2456: x_return_status := FND_API.G_RET_STS_SUCCESS;
2457:

Line 3266: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');

3262: BEGIN
3263:
3264: x_msg_count := 0;
3265: x_return_status := FND_API.G_RET_STS_SUCCESS;
3266: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3267:
3268: pa_debug.set_curr_function( p_function => 'CALCULATE_AMOUNTS_FOR_VERSION',
3269: p_debug_mode => l_debug_mode );
3270:

Line 3268: pa_debug.set_curr_function( p_function => 'CALCULATE_AMOUNTS_FOR_VERSION',

3264: x_msg_count := 0;
3265: x_return_status := FND_API.G_RET_STS_SUCCESS;
3266: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
3267:
3268: pa_debug.set_curr_function( p_function => 'CALCULATE_AMOUNTS_FOR_VERSION',
3269: p_debug_mode => l_debug_mode );
3270:
3271: IF l_debug_mode = 'Y' THEN
3272: pa_debug.g_err_stage := 'In PA_FP_VIEW_PLANS_TXN.CALCULATE_AMTS_FOR_VERSION ';

Line 3272: pa_debug.g_err_stage := 'In PA_FP_VIEW_PLANS_TXN.CALCULATE_AMTS_FOR_VERSION ';

3268: pa_debug.set_curr_function( p_function => 'CALCULATE_AMOUNTS_FOR_VERSION',
3269: p_debug_mode => l_debug_mode );
3270:
3271: IF l_debug_mode = 'Y' THEN
3272: pa_debug.g_err_stage := 'In PA_FP_VIEW_PLANS_TXN.CALCULATE_AMTS_FOR_VERSION ';
3273: pa_debug.write('CALCULATE_AMTS_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level3);
3274: END IF;
3275:
3276: -- Check for business rules violations

Line 3273: pa_debug.write('CALCULATE_AMTS_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level3);

3269: p_debug_mode => l_debug_mode );
3270:
3271: IF l_debug_mode = 'Y' THEN
3272: pa_debug.g_err_stage := 'In PA_FP_VIEW_PLANS_TXN.CALCULATE_AMTS_FOR_VERSION ';
3273: pa_debug.write('CALCULATE_AMTS_FOR_VERSION: ' || l_module_name,pa_debug.g_err_stage,l_debug_level3);
3274: END IF;
3275:
3276: -- Check for business rules violations
3277:

Line 3279: pa_debug.g_err_stage:= 'Validating input parameters';

3275:
3276: -- Check for business rules violations
3277:
3278: IF l_debug_mode = 'Y' THEN
3279: pa_debug.g_err_stage:= 'Validating input parameters';
3280: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3281: l_debug_level3);
3282: END IF;
3283:

Line 3280: pa_debug.write(l_module_name,pa_debug.g_err_stage,

3276: -- Check for business rules violations
3277:
3278: IF l_debug_mode = 'Y' THEN
3279: pa_debug.g_err_stage:= 'Validating input parameters';
3280: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3281: l_debug_level3);
3282: END IF;
3283:
3284: IF (p_budget_version_id IS NULL)

Line 3287: pa_debug.g_err_stage:= 'Invalid parameter(budget version id)';

3283:
3284: IF (p_budget_version_id IS NULL)
3285: THEN
3286: IF l_debug_mode = 'Y' THEN
3287: pa_debug.g_err_stage:= 'Invalid parameter(budget version id)';
3288: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3289: l_debug_level5);
3290: END IF;
3291: PA_UTILS.ADD_MESSAGE

Line 3288: pa_debug.write(l_module_name,pa_debug.g_err_stage,

3284: IF (p_budget_version_id IS NULL)
3285: THEN
3286: IF l_debug_mode = 'Y' THEN
3287: pa_debug.g_err_stage:= 'Invalid parameter(budget version id)';
3288: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3289: l_debug_level5);
3290: END IF;
3291: PA_UTILS.ADD_MESSAGE
3292: (p_app_short_name => 'PA',

Line 3302: IF P_PA_DEBUG_MODE = 'Y' THEN

3298: /* Bulk fetch the cursor records into the PL/SQL tables. */
3299: OPEN cur_sel_bud_line;
3300: LOOP
3301:
3302: IF P_PA_DEBUG_MODE = 'Y' THEN
3303: pa_debug.g_err_stage := 'Fetching records from Budget Lines';
3304: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3305: END IF;
3306:

Line 3303: pa_debug.g_err_stage := 'Fetching records from Budget Lines';

3299: OPEN cur_sel_bud_line;
3300: LOOP
3301:
3302: IF P_PA_DEBUG_MODE = 'Y' THEN
3303: pa_debug.g_err_stage := 'Fetching records from Budget Lines';
3304: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3305: END IF;
3306:
3307: FETCH cur_sel_bud_line BULK COLLECT INTO

Line 3304: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);

3300: LOOP
3301:
3302: IF P_PA_DEBUG_MODE = 'Y' THEN
3303: pa_debug.g_err_stage := 'Fetching records from Budget Lines';
3304: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3305: END IF;
3306:
3307: FETCH cur_sel_bud_line BULK COLLECT INTO
3308: l_budget_line_id_tbl,

Line 3384: IF P_PA_DEBUG_MODE = 'Y' THEN

3380:
3381: /* By now all the required PL/SQL tables to call the API Call_Client_Extension are
3382: populated. Call the overloaded API which accepts the PL/SQL tables as parameters. */
3383:
3384: IF P_PA_DEBUG_MODE = 'Y' THEN
3385: pa_debug.g_err_stage := 'Calling PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS';
3386: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3387: END IF;
3388:

Line 3385: pa_debug.g_err_stage := 'Calling PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS';

3381: /* By now all the required PL/SQL tables to call the API Call_Client_Extension are
3382: populated. Call the overloaded API which accepts the PL/SQL tables as parameters. */
3383:
3384: IF P_PA_DEBUG_MODE = 'Y' THEN
3385: pa_debug.g_err_stage := 'Calling PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS';
3386: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3387: END IF;
3388:
3389: PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS

Line 3386: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);

3382: populated. Call the overloaded API which accepts the PL/SQL tables as parameters. */
3383:
3384: IF P_PA_DEBUG_MODE = 'Y' THEN
3385: pa_debug.g_err_stage := 'Calling PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS';
3386: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3387: END IF;
3388:
3389: PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS
3390: ( p_project_id => l_project_id

Line 3410: IF P_PA_DEBUG_MODE = 'Y' THEN

3406: ,x_msg_count => x_msg_count
3407: ,x_msg_data => x_msg_data );
3408:
3409: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3410: IF P_PA_DEBUG_MODE = 'Y' THEN
3411: pa_debug.g_err_stage := 'Call to PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS errored... ';
3412: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3413: END IF;
3414: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;

Line 3411: pa_debug.g_err_stage := 'Call to PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS errored... ';

3407: ,x_msg_data => x_msg_data );
3408:
3409: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3410: IF P_PA_DEBUG_MODE = 'Y' THEN
3411: pa_debug.g_err_stage := 'Call to PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS errored... ';
3412: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3413: END IF;
3414: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3415: END IF;

Line 3412: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);

3408:
3409: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3410: IF P_PA_DEBUG_MODE = 'Y' THEN
3411: pa_debug.g_err_stage := 'Call to PA_FP_EDIT_LINE_PKG.CALL_CLIENT_EXTENSIONS errored... ';
3412: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
3413: END IF;
3414: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3415: END IF;
3416:

Line 3420: IF P_PA_DEBUG_MODE = 'Y' THEN

3416:
3417: /* The client extensions would have populated the Raw Cost, Burdened Cost, Revenue
3418: and Quantity accordingly. Bulk update the amounts on the Budget Lines table. */
3419:
3420: IF P_PA_DEBUG_MODE = 'Y' THEN
3421: pa_debug.g_err_stage := 'Updating the Budget Line amounts';
3422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3423: END IF;
3424:

Line 3421: pa_debug.g_err_stage := 'Updating the Budget Line amounts';

3417: /* The client extensions would have populated the Raw Cost, Burdened Cost, Revenue
3418: and Quantity accordingly. Bulk update the amounts on the Budget Lines table. */
3419:
3420: IF P_PA_DEBUG_MODE = 'Y' THEN
3421: pa_debug.g_err_stage := 'Updating the Budget Line amounts';
3422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3423: END IF;
3424:
3425: FORALL i in l_budget_line_id_tbl.first..l_budget_line_id_tbl.last

Line 3422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);

3418: and Quantity accordingly. Bulk update the amounts on the Budget Lines table. */
3419:
3420: IF P_PA_DEBUG_MODE = 'Y' THEN
3421: pa_debug.g_err_stage := 'Updating the Budget Line amounts';
3422: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3423: END IF;
3424:
3425: FORALL i in l_budget_line_id_tbl.first..l_budget_line_id_tbl.last
3426: UPDATE pa_budget_lines

Line 3436: IF P_PA_DEBUG_MODE = 'Y' THEN

3432: ,last_updated_by = FND_GLOBAL.user_id
3433: ,last_update_login = FND_GLOBAL.login_id
3434: WHERE budget_line_id = l_budget_line_id_tbl(i);
3435:
3436: IF P_PA_DEBUG_MODE = 'Y' THEN
3437: pa_debug.g_err_stage := 'Updated - '||sql%rowcount||' records';
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3439: END IF;
3440:

Line 3437: pa_debug.g_err_stage := 'Updated - '||sql%rowcount||' records';

3433: ,last_update_login = FND_GLOBAL.login_id
3434: WHERE budget_line_id = l_budget_line_id_tbl(i);
3435:
3436: IF P_PA_DEBUG_MODE = 'Y' THEN
3437: pa_debug.g_err_stage := 'Updated - '||sql%rowcount||' records';
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3439: END IF;
3440:
3441: END IF; /* end of only if something is fetched */

Line 3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);

3434: WHERE budget_line_id = l_budget_line_id_tbl(i);
3435:
3436: IF P_PA_DEBUG_MODE = 'Y' THEN
3437: pa_debug.g_err_stage := 'Updated - '||sql%rowcount||' records';
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3439: END IF;
3440:
3441: END IF; /* end of only if something is fetched */
3442:

Line 3449: IF P_PA_DEBUG_MODE = 'Y' THEN

3445: END LOOP; -- End of main loop
3446: CLOSE cur_sel_bud_line; -- Close the main cursor.
3447:
3448:
3449: IF P_PA_DEBUG_MODE = 'Y' THEN
3450: pa_debug.g_err_stage := 'Calling PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION';
3451: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3452: END IF;
3453:

Line 3450: pa_debug.g_err_stage := 'Calling PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION';

3446: CLOSE cur_sel_bud_line; -- Close the main cursor.
3447:
3448:
3449: IF P_PA_DEBUG_MODE = 'Y' THEN
3450: pa_debug.g_err_stage := 'Calling PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION';
3451: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3452: END IF;
3453:
3454: PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION

Line 3451: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);

3447:
3448:
3449: IF P_PA_DEBUG_MODE = 'Y' THEN
3450: pa_debug.g_err_stage := 'Calling PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION';
3451: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
3452: END IF;
3453:
3454: PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION
3455: ( p_budget_version_id => p_budget_version_id

Line 3462: IF P_PA_DEBUG_MODE = 'Y' THEN

3458: ,x_msg_count => x_msg_count
3459: ,x_msg_data => x_msg_data);
3460:
3461: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3462: IF P_PA_DEBUG_MODE = 'Y' THEN
3463: pa_debug.g_err_stage := 'Call to PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION errored... ';
3464: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3465: END IF;
3466: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;

Line 3463: pa_debug.g_err_stage := 'Call to PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION errored... ';

3459: ,x_msg_data => x_msg_data);
3460:
3461: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3462: IF P_PA_DEBUG_MODE = 'Y' THEN
3463: pa_debug.g_err_stage := 'Call to PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION errored... ';
3464: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3465: END IF;
3466: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3467: END IF;

Line 3464: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);

3460:
3461: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3462: IF P_PA_DEBUG_MODE = 'Y' THEN
3463: pa_debug.g_err_stage := 'Call to PA_FP_EDIT_LINE_PKG.PROCESS_BDGTLINES_FOR_VERSION errored... ';
3464: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
3465: END IF;
3466: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3467: END IF;
3468:

Line 3470: pa_debug.g_err_stage:= 'Exiting CALCULATE_AMOUNTS_FOR_VERSION';

3466: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3467: END IF;
3468:
3469: IF l_debug_mode = 'Y' THEN
3470: pa_debug.g_err_stage:= 'Exiting CALCULATE_AMOUNTS_FOR_VERSION';
3471: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3472: l_debug_level3);
3473: END IF;
3474: pa_debug.reset_curr_function;

Line 3471: pa_debug.write(l_module_name,pa_debug.g_err_stage,

3467: END IF;
3468:
3469: IF l_debug_mode = 'Y' THEN
3470: pa_debug.g_err_stage:= 'Exiting CALCULATE_AMOUNTS_FOR_VERSION';
3471: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3472: l_debug_level3);
3473: END IF;
3474: pa_debug.reset_curr_function;
3475:

Line 3474: pa_debug.reset_curr_function;

3470: pa_debug.g_err_stage:= 'Exiting CALCULATE_AMOUNTS_FOR_VERSION';
3471: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3472: l_debug_level3);
3473: END IF;
3474: pa_debug.reset_curr_function;
3475:
3476: EXCEPTION
3477:
3478: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN

Line 3502: pa_debug.reset_curr_function;

3498: x_msg_count := l_msg_count;
3499: ELSE
3500: x_msg_count := l_msg_count;
3501: END IF;
3502: pa_debug.reset_curr_function;
3503: RETURN;
3504:
3505: WHEN others THEN
3506:

Line 3523: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;

3519: ,p_procedure_name => 'CALCULATE_AMOUNTS_FOR_VERSION'
3520: ,p_error_text => x_msg_data);
3521:
3522: IF l_debug_mode = 'Y' THEN
3523: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3524: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3525: l_debug_level5);
3526: END IF;
3527: pa_debug.reset_curr_function;

Line 3524: pa_debug.write(l_module_name,pa_debug.g_err_stage,

3520: ,p_error_text => x_msg_data);
3521:
3522: IF l_debug_mode = 'Y' THEN
3523: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3524: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3525: l_debug_level5);
3526: END IF;
3527: pa_debug.reset_curr_function;
3528: RAISE;

Line 3527: pa_debug.reset_curr_function;

3523: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3524: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3525: l_debug_level5);
3526: END IF;
3527: pa_debug.reset_curr_function;
3528: RAISE;
3529: END CALCULATE_AMOUNTS_FOR_VERSION;
3530:
3531: end pa_fp_view_plans_txn_pub;