2159: /* FPB2: MRC */
2160: /*
2161: IF x_mrc_flag IS NULL THEN
2162: l_msg_data := 'x_mrc_flag cannot be null to table handler';
2163: RAISE FND_API.G_EXC_ERROR;
2164: END IF;
2165: */
2166:
2167: open get_budget_type_code;
2314: , x_msg_data => l_msg_data
2315: , x_return_status => l_return_status
2316: );
2317:
2318: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2319: THEN
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321:
2322: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2316: );
2317:
2318: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2319: THEN
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321:
2322: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2323: THEN
2324: RAISE FND_API.G_EXC_ERROR;
2318: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2319: THEN
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321:
2322: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2323: THEN
2324: RAISE FND_API.G_EXC_ERROR;
2325: END IF;
2326:
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321:
2322: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2323: THEN
2324: RAISE FND_API.G_EXC_ERROR;
2325: END IF;
2326:
2327: IF P_PA_DEBUG_MODE = 'Y' THEN
2328: pa_debug.g_err_stage:= 'l_return_status is - '||l_return_status;
2474: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2475: END IF;
2476: END IF;
2477:
2478: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2479: IF P_PA_DEBUG_MODE = 'Y' THEN
2480: pa_debug.g_err_stage:= 'Raising g_mrc_exception';
2481: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2482: END IF;
2489: x_err_stack := old_stack;
2490: pa_debug.reset_err_stack;
2491:
2492: exception
2493: WHEN FND_API.G_EXC_ERROR
2494: THEN
2495: x_err_code := SQLCODE;
2496: FND_MSG_PUB.Add_Exc_Msg
2497: ( p_pkg_name => 'PA_BUDGET_UTILS'
2502: pa_debug.g_err_stage:= 'In exception of create_line -1 '||substr(SQLERRM,1,100);
2503: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL4);
2504: END IF;
2505: RETURN;
2506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2507: THEN
2508: x_err_code := SQLCODE;
2509: IF P_PA_DEBUG_MODE = 'Y' THEN
2510: pa_debug.g_err_stage:= 'In exception of create_line -2 '||substr(SQLERRM,1,100);
2733: , x_return_status => l_return_status
2734: );
2735:
2736:
2737: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2738: THEN
2739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2740:
2741: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2735:
2736:
2737: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2738: THEN
2739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2740:
2741: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2742: THEN
2743:
2737: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2738: THEN
2739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2740:
2741: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2742: THEN
2743:
2744: RAISE FND_API.G_EXC_ERROR;
2745: END IF;
2740:
2741: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2742: THEN
2743:
2744: RAISE FND_API.G_EXC_ERROR;
2745: END IF;
2746:
2747:
2748: ELSE
2936: p_err_msg_count := FND_MSG_PUB.Count_Msg;
2937: p_err_stack := l_old_stack;
2938:
2939: EXCEPTION
2940: WHEN FND_API.G_EXC_ERROR
2941: THEN
2942: p_err_code := SQLCODE;
2943: FND_MSG_PUB.Add_Exc_Msg
2944: ( p_pkg_name => 'PA_BUDGET_UTILS'
2946: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2947: );
2948: p_warnings_only_flag := 'N';
2949: p_err_msg_count := FND_MSG_PUB.Count_Msg;
2950: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2951: THEN
2952: p_err_code := SQLCODE;
2953: FND_MSG_PUB.Add_Exc_Msg
2954: ( p_pkg_name => 'PA_BUDGET_UTILS'
3077: Begin
3078: -- Setup Environment ---------------------------------------------------
3079:
3080: -- Assume Success
3081: x_return_status := FND_API.G_RET_STS_SUCCESS;
3082: x_msg_count := 0;
3083: x_msg_data := NULL;
3084:
3085: -- Standard begin of API savepoint
3173: , p_procedure_name => 'BASELINE_BUDGET'
3174: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0')
3175: );
3176: END IF;
3177: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3178: ELSE
3179: -- l_err_code > 0
3180: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3181: THEN
3181: THEN
3182: FND_MESSAGE.SET_NAME('PA','PA_BASELINE_FAILED');
3183: FND_MSG_PUB.add;
3184: END IF;
3185: l_return_status := FND_API.G_RET_STS_ERROR;
3186: END IF; -- (l_err_code < 0)
3187:
3188: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3189: THEN
3184: END IF;
3185: l_return_status := FND_API.G_RET_STS_ERROR;
3186: END IF; -- (l_err_code < 0)
3187:
3188: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3189: THEN
3190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3191: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3192: THEN
3186: END IF; -- (l_err_code < 0)
3187:
3188: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3189: THEN
3190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3191: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3192: THEN
3193: RAISE FND_API.G_EXC_ERROR;
3194: END IF;
3187:
3188: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3189: THEN
3190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3191: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3192: THEN
3193: RAISE FND_API.G_EXC_ERROR;
3194: END IF;
3195:
3189: THEN
3190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3191: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3192: THEN
3193: RAISE FND_API.G_EXC_ERROR;
3194: END IF;
3195:
3196: END IF; --(nvl(l_Dual_Bdgt_Cntrl_Flag,'N') ) = 'Y'
3197:
3222: , p_procedure_name => 'BASELINE_BUDGET'
3223: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0')
3224: );
3225: END IF;
3226: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3227: ELSE
3228: -- l_err_code > 0
3229: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3230: THEN
3230: THEN
3231: FND_MESSAGE.SET_NAME('PA','PA_BASELINE_FAILED');
3232: FND_MSG_PUB.add;
3233: END IF;
3234: l_return_status := FND_API.G_RET_STS_ERROR;
3235: END IF; -- (l_err_code < 0)
3236:
3237: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3238: THEN
3233: END IF;
3234: l_return_status := FND_API.G_RET_STS_ERROR;
3235: END IF; -- (l_err_code < 0)
3236:
3237: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3238: THEN
3239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3240: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3241: THEN
3235: END IF; -- (l_err_code < 0)
3236:
3237: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3238: THEN
3239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3240: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3241: THEN
3242: RAISE FND_API.G_EXC_ERROR;
3243: END IF;
3236:
3237: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3238: THEN
3239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3240: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3241: THEN
3242: RAISE FND_API.G_EXC_ERROR;
3243: END IF;
3244:
3238: THEN
3239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3240: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3241: THEN
3242: RAISE FND_API.G_EXC_ERROR;
3243: END IF;
3244:
3245:
3246: END IF; -- l_err_code <> 0
3277: ,X_Msg_Data => l_Msg_Data
3278: ,X_Msg_Count => l_Msg_Count
3279: );
3280:
3281: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3282: THEN
3283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3284: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3285: THEN
3279: );
3280:
3281: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3282: THEN
3283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3284: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3285: THEN
3286: RAISE FND_API.G_EXC_ERROR;
3287: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS)
3280:
3281: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3282: THEN
3283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3284: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3285: THEN
3286: RAISE FND_API.G_EXC_ERROR;
3287: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS)
3288: THEN
3282: THEN
3283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3284: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3285: THEN
3286: RAISE FND_API.G_EXC_ERROR;
3287: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS)
3288: THEN
3289: -- R12 SLA Effort, Phase II
3290: -- Add Success message to message stack.
3283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3284: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3285: THEN
3286: RAISE FND_API.G_EXC_ERROR;
3287: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS)
3288: THEN
3289: -- R12 SLA Effort, Phase II
3290: -- Add Success message to message stack.
3291: FND_MESSAGE.SET_NAME('PA','PA_NFSUBJ_BU_INTG_SUCCESS');
3360: , p_procedure_name => 'BASELINE_BUDGET'
3361: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0')
3362: );
3363: END IF;
3364: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3365: ELSE
3366: -- l_err_code > 0
3367: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3368: THEN
3368: THEN
3369: FND_MESSAGE.SET_NAME('PA','PA_BASELINE_FAILED');
3370: FND_MSG_PUB.add;
3371: END IF;
3372: l_return_status := FND_API.G_RET_STS_ERROR;
3373: END IF; -- (l_err_code < 0)
3374:
3375: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3376: THEN
3371: END IF;
3372: l_return_status := FND_API.G_RET_STS_ERROR;
3373: END IF; -- (l_err_code < 0)
3374:
3375: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3376: THEN
3377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3378: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3379: THEN
3373: END IF; -- (l_err_code < 0)
3374:
3375: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3376: THEN
3377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3378: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3379: THEN
3380: RAISE FND_API.G_EXC_ERROR;
3381: END IF;
3374:
3375: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3376: THEN
3377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3378: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3379: THEN
3380: RAISE FND_API.G_EXC_ERROR;
3381: END IF;
3382:
3376: THEN
3377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3378: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3379: THEN
3380: RAISE FND_API.G_EXC_ERROR;
3381: END IF;
3382:
3383: END IF; --(l_err_code <> 0)
3384:
3437:
3438:
3439:
3440: EXCEPTION
3441: WHEN FND_API.G_EXC_ERROR
3442: THEN
3443: ROLLBACK TO baseline_budget_wrappper;
3444: x_return_status := FND_API.G_RET_STS_ERROR;
3445: --fix done for Bug 6408021
3440: EXCEPTION
3441: WHEN FND_API.G_EXC_ERROR
3442: THEN
3443: ROLLBACK TO baseline_budget_wrappper;
3444: x_return_status := FND_API.G_RET_STS_ERROR;
3445: --fix done for Bug 6408021
3446: FND_MSG_PUB.Count_And_Get
3447: (p_count => x_msg_count ,
3448: p_data => x_msg_data );
3447: (p_count => x_msg_count ,
3448: p_data => x_msg_data );
3449:
3450:
3451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3452: THEN
3453: ROLLBACK TO baseline_budget_wrappper;
3454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3455: --fix done for Bug 6408021
3450:
3451: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3452: THEN
3453: ROLLBACK TO baseline_budget_wrappper;
3454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3455: --fix done for Bug 6408021
3456: FND_MSG_PUB.Count_And_Get
3457: (p_count => x_msg_count ,
3458: p_data => x_msg_data );
3459:
3460: WHEN L_BEM_FAILED
3461: THEN
3462: ROLLBACK TO baseline_budget_wrappper;
3463: x_return_status := FND_API.G_RET_STS_ERROR;
3464: x_msg_count := 1;
3465: x_msg_data := 'PA_FV_BUDGET_INT_FAILED';
3466: Begin
3467: Select meaning
3477:
3478: WHEN OTHERS
3479: THEN
3480: ROLLBACK TO baseline_budget_wrappper;
3481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3482: FND_MSG_PUB.Add_Exc_Msg
3483: ( p_pkg_name => 'PA_BUDGET_UTILS'
3484: , p_procedure_name => 'BASELINE_BUDGET'
3485: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
3800:
3801: BEGIN
3802:
3803: -- Assume Success
3804: x_return_status := FND_API.G_RET_STS_SUCCESS;
3805: x_msg_count := 0;
3806: x_msg_data := NULL;
3807:
3808:
3837:
3838: EXCEPTION
3839: WHEN OTHERS
3840: THEN
3841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3842: FND_MSG_PUB.Add_Exc_Msg
3843: ( p_pkg_name => 'PA_BUDGET_UTILS'
3844: , p_procedure_name => 'GET_VERSION_APPROVED_CODE'
3845: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
3897: BEGIN
3898:
3899:
3900: -- Assume Success
3901: x_return_status := FND_API.G_RET_STS_SUCCESS;
3902: x_msg_count := 0;
3903: x_msg_data := NULL;
3904:
3905:
3929:
3930: EXCEPTION
3931: WHEN OTHERS
3932: THEN
3933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3934: FND_MSG_PUB.Add_Exc_Msg
3935: ( p_pkg_name => 'PA_BUDGET_UTILS'
3936: , p_procedure_name => 'GET_PROJECT_CURRENCY_INFO'
3937: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
3998: BEGIN
3999:
4000:
4001: -- Assume Success
4002: x_return_status := FND_API.G_RET_STS_SUCCESS;
4003: x_msg_count := 0;
4004: x_msg_data := NULL;
4005:
4006:
4106:
4107: EXCEPTION
4108: WHEN OTHERS
4109: THEN
4110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4111: FND_MSG_PUB.Add_Exc_Msg
4112: ( p_pkg_name => 'PA_BUDGET_UTILS'
4113: , p_procedure_name => 'GET_APPROVED_FP_INFO'
4114: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
4224:
4225:
4226:
4227: -- Assume Success
4228: x_return_status := FND_API.G_RET_STS_SUCCESS;
4229: x_msg_count := 0;
4230: x_msg_data := NULL;
4231: x_err_code := 0;
4232:
4248:
4249:
4250: EXCEPTION
4251: WHEN OTHERS THEN
4252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4253: x_err_code := SQLCODE;
4254: FND_MSG_PUB.Add_Exc_Msg
4255: ( p_pkg_name => 'PA_BUDGET_UTILS'
4256: , p_procedure_name => 'SET_PRJ_POLICY_cONTEXT'