2158: /* FPB2: MRC */
2159: /*
2160: IF x_mrc_flag IS NULL THEN
2161: l_msg_data := 'x_mrc_flag cannot be null to table handler';
2162: RAISE FND_API.G_EXC_ERROR;
2163: END IF;
2164: */
2165:
2166: open get_budget_type_code;
2310: , x_msg_data => l_msg_data
2311: , x_return_status => l_return_status
2312: );
2313:
2314: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2315: THEN
2316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317:
2318: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2312: );
2313:
2314: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2315: THEN
2316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317:
2318: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2319: THEN
2320: RAISE FND_API.G_EXC_ERROR;
2314: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2315: THEN
2316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317:
2318: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2319: THEN
2320: RAISE FND_API.G_EXC_ERROR;
2321: END IF;
2322:
2316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317:
2318: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2319: THEN
2320: RAISE FND_API.G_EXC_ERROR;
2321: END IF;
2322:
2323: IF P_PA_DEBUG_MODE = 'Y' THEN
2324: pa_debug.g_err_stage:= 'l_return_status is - '||l_return_status;
2470: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2471: END IF;
2472: END IF;
2473:
2474: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2475: IF P_PA_DEBUG_MODE = 'Y' THEN
2476: pa_debug.g_err_stage:= 'Raising g_mrc_exception';
2477: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2478: END IF;
2485: x_err_stack := old_stack;
2486: pa_debug.reset_err_stack;
2487:
2488: exception
2489: WHEN FND_API.G_EXC_ERROR
2490: THEN
2491: x_err_code := SQLCODE;
2492: FND_MSG_PUB.Add_Exc_Msg
2493: ( p_pkg_name => 'PA_BUDGET_UTILS'
2498: pa_debug.g_err_stage:= 'In exception of create_line -1 '||substr(SQLERRM,1,100);
2499: pa_debug.write('create_line: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL4);
2500: END IF;
2501: RETURN;
2502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2503: THEN
2504: x_err_code := SQLCODE;
2505: IF P_PA_DEBUG_MODE = 'Y' THEN
2506: pa_debug.g_err_stage:= 'In exception of create_line -2 '||substr(SQLERRM,1,100);
2729: , x_return_status => l_return_status
2730: );
2731:
2732:
2733: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2734: THEN
2735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2736:
2737: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2731:
2732:
2733: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2734: THEN
2735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2736:
2737: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2738: THEN
2739:
2733: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
2734: THEN
2735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2736:
2737: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2738: THEN
2739:
2740: RAISE FND_API.G_EXC_ERROR;
2741: END IF;
2736:
2737: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
2738: THEN
2739:
2740: RAISE FND_API.G_EXC_ERROR;
2741: END IF;
2742:
2743:
2744: ELSE
2932: p_err_msg_count := FND_MSG_PUB.Count_Msg;
2933: p_err_stack := l_old_stack;
2934:
2935: EXCEPTION
2936: WHEN FND_API.G_EXC_ERROR
2937: THEN
2938: p_err_code := SQLCODE;
2939: FND_MSG_PUB.Add_Exc_Msg
2940: ( p_pkg_name => 'PA_BUDGET_UTILS'
2942: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
2943: );
2944: p_warnings_only_flag := 'N';
2945: p_err_msg_count := FND_MSG_PUB.Count_Msg;
2946: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
2947: THEN
2948: p_err_code := SQLCODE;
2949: FND_MSG_PUB.Add_Exc_Msg
2950: ( p_pkg_name => 'PA_BUDGET_UTILS'
3073: Begin
3074: -- Setup Environment ---------------------------------------------------
3075:
3076: -- Assume Success
3077: x_return_status := FND_API.G_RET_STS_SUCCESS;
3078: x_msg_count := 0;
3079: x_msg_data := NULL;
3080:
3081: -- Standard begin of API savepoint
3169: , p_procedure_name => 'BASELINE_BUDGET'
3170: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0')
3171: );
3172: END IF;
3173: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3174: ELSE
3175: -- l_err_code > 0
3176: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3177: THEN
3177: THEN
3178: FND_MESSAGE.SET_NAME('PA','PA_BASELINE_FAILED');
3179: FND_MSG_PUB.add;
3180: END IF;
3181: l_return_status := FND_API.G_RET_STS_ERROR;
3182: END IF; -- (l_err_code < 0)
3183:
3184: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3185: THEN
3180: END IF;
3181: l_return_status := FND_API.G_RET_STS_ERROR;
3182: END IF; -- (l_err_code < 0)
3183:
3184: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3185: THEN
3186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3187: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3188: THEN
3182: END IF; -- (l_err_code < 0)
3183:
3184: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3185: THEN
3186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3187: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3188: THEN
3189: RAISE FND_API.G_EXC_ERROR;
3190: END IF;
3183:
3184: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3185: THEN
3186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3187: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3188: THEN
3189: RAISE FND_API.G_EXC_ERROR;
3190: END IF;
3191:
3185: THEN
3186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3187: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3188: THEN
3189: RAISE FND_API.G_EXC_ERROR;
3190: END IF;
3191:
3192: END IF; --(nvl(l_Dual_Bdgt_Cntrl_Flag,'N') ) = 'Y'
3193:
3218: , p_procedure_name => 'BASELINE_BUDGET'
3219: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0')
3220: );
3221: END IF;
3222: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3223: ELSE
3224: -- l_err_code > 0
3225: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3226: THEN
3226: THEN
3227: FND_MESSAGE.SET_NAME('PA','PA_BASELINE_FAILED');
3228: FND_MSG_PUB.add;
3229: END IF;
3230: l_return_status := FND_API.G_RET_STS_ERROR;
3231: END IF; -- (l_err_code < 0)
3232:
3233: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3234: THEN
3229: END IF;
3230: l_return_status := FND_API.G_RET_STS_ERROR;
3231: END IF; -- (l_err_code < 0)
3232:
3233: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3234: THEN
3235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3236: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3237: THEN
3231: END IF; -- (l_err_code < 0)
3232:
3233: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3234: THEN
3235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3236: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3237: THEN
3238: RAISE FND_API.G_EXC_ERROR;
3239: END IF;
3232:
3233: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3234: THEN
3235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3236: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3237: THEN
3238: RAISE FND_API.G_EXC_ERROR;
3239: END IF;
3240:
3234: THEN
3235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3236: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3237: THEN
3238: RAISE FND_API.G_EXC_ERROR;
3239: END IF;
3240:
3241:
3242: END IF; -- l_err_code <> 0
3273: ,X_Msg_Data => l_Msg_Data
3274: ,X_Msg_Count => l_Msg_Count
3275: );
3276:
3277: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3278: THEN
3279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3280: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3281: THEN
3275: );
3276:
3277: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3278: THEN
3279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3280: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3281: THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS)
3276:
3277: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3278: THEN
3279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3280: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3281: THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS)
3284: THEN
3278: THEN
3279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3280: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3281: THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS)
3284: THEN
3285: -- R12 SLA Effort, Phase II
3286: -- Add Success message to message stack.
3279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3280: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3281: THEN
3282: RAISE FND_API.G_EXC_ERROR;
3283: ELSIF (l_return_status = FND_API.G_RET_STS_SUCCESS)
3284: THEN
3285: -- R12 SLA Effort, Phase II
3286: -- Add Success message to message stack.
3287: FND_MESSAGE.SET_NAME('PA','PA_NFSUBJ_BU_INTG_SUCCESS');
3356: , p_procedure_name => 'BASELINE_BUDGET'
3357: , p_error_text => 'ORA-'||LPAD(substr(l_err_code,2),5,'0')
3358: );
3359: END IF;
3360: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3361: ELSE
3362: -- l_err_code > 0
3363: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR)
3364: THEN
3364: THEN
3365: FND_MESSAGE.SET_NAME('PA','PA_BASELINE_FAILED');
3366: FND_MSG_PUB.add;
3367: END IF;
3368: l_return_status := FND_API.G_RET_STS_ERROR;
3369: END IF; -- (l_err_code < 0)
3370:
3371: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3372: THEN
3367: END IF;
3368: l_return_status := FND_API.G_RET_STS_ERROR;
3369: END IF; -- (l_err_code < 0)
3370:
3371: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3372: THEN
3373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3374: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3375: THEN
3369: END IF; -- (l_err_code < 0)
3370:
3371: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3372: THEN
3373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3374: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3375: THEN
3376: RAISE FND_API.G_EXC_ERROR;
3377: END IF;
3370:
3371: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
3372: THEN
3373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3374: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3375: THEN
3376: RAISE FND_API.G_EXC_ERROR;
3377: END IF;
3378:
3372: THEN
3373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3374: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR)
3375: THEN
3376: RAISE FND_API.G_EXC_ERROR;
3377: END IF;
3378:
3379: END IF; --(l_err_code <> 0)
3380:
3433:
3434:
3435:
3436: EXCEPTION
3437: WHEN FND_API.G_EXC_ERROR
3438: THEN
3439: ROLLBACK TO baseline_budget_wrappper;
3440: x_return_status := FND_API.G_RET_STS_ERROR;
3441: --fix done for Bug 6408021
3436: EXCEPTION
3437: WHEN FND_API.G_EXC_ERROR
3438: THEN
3439: ROLLBACK TO baseline_budget_wrappper;
3440: x_return_status := FND_API.G_RET_STS_ERROR;
3441: --fix done for Bug 6408021
3442: FND_MSG_PUB.Count_And_Get
3443: (p_count => x_msg_count ,
3444: p_data => x_msg_data );
3443: (p_count => x_msg_count ,
3444: p_data => x_msg_data );
3445:
3446:
3447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3448: THEN
3449: ROLLBACK TO baseline_budget_wrappper;
3450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3451: --fix done for Bug 6408021
3446:
3447: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3448: THEN
3449: ROLLBACK TO baseline_budget_wrappper;
3450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3451: --fix done for Bug 6408021
3452: FND_MSG_PUB.Count_And_Get
3453: (p_count => x_msg_count ,
3454: p_data => x_msg_data );
3455:
3456: WHEN L_BEM_FAILED
3457: THEN
3458: ROLLBACK TO baseline_budget_wrappper;
3459: x_return_status := FND_API.G_RET_STS_ERROR;
3460: x_msg_count := 1;
3461: x_msg_data := 'PA_FV_BUDGET_INT_FAILED';
3462: Begin
3463: Select meaning
3473:
3474: WHEN OTHERS
3475: THEN
3476: ROLLBACK TO baseline_budget_wrappper;
3477: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3478: FND_MSG_PUB.Add_Exc_Msg
3479: ( p_pkg_name => 'PA_BUDGET_UTILS'
3480: , p_procedure_name => 'BASELINE_BUDGET'
3481: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
3796:
3797: BEGIN
3798:
3799: -- Assume Success
3800: x_return_status := FND_API.G_RET_STS_SUCCESS;
3801: x_msg_count := 0;
3802: x_msg_data := NULL;
3803:
3804:
3833:
3834: EXCEPTION
3835: WHEN OTHERS
3836: THEN
3837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3838: FND_MSG_PUB.Add_Exc_Msg
3839: ( p_pkg_name => 'PA_BUDGET_UTILS'
3840: , p_procedure_name => 'GET_VERSION_APPROVED_CODE'
3841: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
3893: BEGIN
3894:
3895:
3896: -- Assume Success
3897: x_return_status := FND_API.G_RET_STS_SUCCESS;
3898: x_msg_count := 0;
3899: x_msg_data := NULL;
3900:
3901:
3925:
3926: EXCEPTION
3927: WHEN OTHERS
3928: THEN
3929: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3930: FND_MSG_PUB.Add_Exc_Msg
3931: ( p_pkg_name => 'PA_BUDGET_UTILS'
3932: , p_procedure_name => 'GET_PROJECT_CURRENCY_INFO'
3933: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
3994: BEGIN
3995:
3996:
3997: -- Assume Success
3998: x_return_status := FND_API.G_RET_STS_SUCCESS;
3999: x_msg_count := 0;
4000: x_msg_data := NULL;
4001:
4002:
4102:
4103: EXCEPTION
4104: WHEN OTHERS
4105: THEN
4106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4107: FND_MSG_PUB.Add_Exc_Msg
4108: ( p_pkg_name => 'PA_BUDGET_UTILS'
4109: , p_procedure_name => 'GET_APPROVED_FP_INFO'
4110: , p_error_text => 'ORA-'||LPAD(substr(SQLCODE,2),5,'0')
4220:
4221:
4222:
4223: -- Assume Success
4224: x_return_status := FND_API.G_RET_STS_SUCCESS;
4225: x_msg_count := 0;
4226: x_msg_data := NULL;
4227: x_err_code := 0;
4228:
4244:
4245:
4246: EXCEPTION
4247: WHEN OTHERS THEN
4248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4249: x_err_code := SQLCODE;
4250: FND_MSG_PUB.Add_Exc_Msg
4251: ( p_pkg_name => 'PA_BUDGET_UTILS'
4252: , p_procedure_name => 'SET_PRJ_POLICY_cONTEXT'