[Home] [Help]
1: PACKAGE BODY pa_fin_plan_utils as
2: /* $Header: PAFPUTLB.pls 120.25 2010/08/02 21:54:07 rbruno ship $
3: Start of Comments
4: Package name : PA_FIN_PLAN_UTILS
5: Purpose : utility API's for Org Forecast pages
1: PACKAGE BODY pa_fin_plan_utils as
2: /* $Header: PAFPUTLB.pls 120.25 2010/08/02 21:54:07 rbruno ship $
3: Start of Comments
4: Package name : PA_FIN_PLAN_UTILS
5: Purpose : utility API's for Org Forecast pages
6: History :
7: NOTE :
8: End of Comments
7: NOTE :
8: End of Comments
9: */
10:
11: l_module_name VARCHAR2(100) := 'pa.plsql.pa_fin_plan_utils';
12: Invalid_Arg_Exc EXCEPTION;
13: Invalid_Call_Exc EXCEPTION; /* Added for FP.M, Tracking bug no.3354518 */
14:
15: -- This function takes a lookup type and code, and returns the meaning
74: when others then
75: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76: x_msg_count := 1;
77: x_msg_data := SQLERRM;
78: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS',
79: p_procedure_name => 'Check_Record_Version_Number');
80: */
81: end Check_Record_Version_Number;
82:
95: l_budget_version_id pa_budget_Versions.budget_version_id%TYPE;
96:
97: BEGIN
98: IF P_PA_DEBUG_MODE = 'Y' THEN
99: pa_debug.init_err_stack ('pa_fin_plan_utils.is_plan_type_addition_allowed');
100: END IF;
101:
102: /* Changes for FP.M, Tracking Bug No - 3354518. Adding conditon in the where clause below to
103: check for new column use_for_workplan flag. This column indicates if a plan type is being
632:
633: BEGIN
634:
635: IF P_PA_DEBUG_MODE = 'Y' THEN
636: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info');
637: END IF;
638: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
639: l_debug_mode := NVL(l_debug_mode, 'Y');
640: IF P_PA_DEBUG_MODE = 'Y' THEN
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: x_msg_count := 1;
819: x_msg_data := SQLERRM;
820:
821: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
822: ,p_procedure_name => 'GET_BASELINED_VERSION_INFO');
823:
824: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
825: IF P_PA_DEBUG_MODE = 'Y' THEN
1158:
1159: BEGIN
1160:
1161: IF P_PA_DEBUG_MODE = 'Y' THEN
1162: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info');
1163: END IF;
1164: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1165: l_debug_mode := NVL(l_debug_mode, 'Y');
1166: IF P_PA_DEBUG_MODE = 'Y' THEN
1344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1345: x_msg_count := 1;
1346: x_msg_data := SQLERRM;
1347:
1348: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1349: ,p_procedure_name => 'Get_Curr_Working_Version_Info');
1350:
1351: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1352: IF P_PA_DEBUG_MODE = 'Y' THEN
1389:
1390: BEGIN
1391:
1392: IF P_PA_DEBUG_MODE = 'Y' THEN
1393: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Appr_Cost_Plan_Type_Info');
1394: END IF;
1395: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1396: l_debug_mode := NVL(l_debug_mode, 'Y');
1397: IF P_PA_DEBUG_MODE = 'Y' THEN
1502: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1503: x_msg_count := 1;
1504: x_msg_data := SQLERRM;
1505:
1506: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1507: ,p_procedure_name => 'Get_Appr_Cost_Plan_Type_Info');
1508:
1509: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1510: IF P_PA_DEBUG_MODE = 'Y' THEN
1544:
1545: BEGIN
1546:
1547: IF P_PA_DEBUG_MODE = 'Y' THEN
1548: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Appr_Rev_Plan_Type_Info');
1549: END IF;
1550: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1551: l_debug_mode := NVL(l_debug_mode, 'Y');
1552: IF P_PA_DEBUG_MODE = 'Y' THEN
1656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1657: x_msg_count := 1;
1658: x_msg_data := SQLERRM;
1659:
1660: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1661: ,p_procedure_name => 'Get_Appr_Rev_Plan_Type_Info');
1662:
1663: pa_debug.g_err_stage:='Unexpeted Error'||SQLERRM;
1664: IF P_PA_DEBUG_MODE = 'Y' THEN
1713:
1714:
1715: BEGIN
1716: IF P_PA_DEBUG_MODE = 'Y' THEN
1717: pa_debug.set_err_stack ('PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID');
1718: END IF;
1719: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1720: l_debug_mode := NVL(l_debug_mode, 'Y');
1721: IF P_PA_DEBUG_MODE = 'Y' THEN
2162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2163: x_message_count := 1;
2164: x_message_data := SQLERRM;
2165:
2166: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
2167: ,p_procedure_name => 'GET_OR_CREATE_AMOUNT_SET_ID');
2168:
2169: pa_debug.g_err_stage:='Unexpected Error';
2170: IF P_PA_DEBUG_MODE = 'Y' THEN
2209:
2210: BEGIN
2211:
2212: IF P_PA_DEBUG_MODE = 'Y' THEN
2213: pa_debug.set_err_stack ('PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS');
2214: END IF;
2215: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2216: l_debug_mode := NVL(l_debug_mode, 'Y');
2217: IF P_PA_DEBUG_MODE = 'Y' THEN
2317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2318: x_message_count := 1;
2319: x_message_data := SQLERRM;
2320:
2321: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
2322: ,p_procedure_name => 'GET_PLAN_AMOUNT_FLAGS');
2323:
2324: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2325: IF P_PA_DEBUG_MODE = 'Y' THEN
2428: l_msg_data VARCHAR2(2000);
2429: l_data VARCHAR2(2000);
2430: l_msg_index_out NUMBER;
2431: l_debug_mode VARCHAR2(30);
2432: l_module_name VARCHAR2(100) := 'pa.plsql.PA_FIN_PLAN_UTILS';
2433:
2434: BEGIN
2435:
2436: x_msg_count := 0;
2436: x_msg_count := 0;
2437: x_return_status := FND_API.G_RET_STS_SUCCESS;
2438:
2439: IF P_PA_DEBUG_MODE = 'Y' THEN
2440: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Peceding_Suceeding_Prd_Info');
2441: END IF;
2442: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2443: l_debug_mode := NVL(l_debug_mode, 'Y');
2444: IF P_PA_DEBUG_MODE = 'Y' THEN
2527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2528: x_msg_count := 1;
2529: x_msg_data := SQLERRM;
2530:
2531: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
2532: ,p_procedure_name => 'Get_Peceding_Suceeding_Pd_Info');
2533:
2534: pa_debug.g_err_stage:='Unexpected Error';
2535: IF P_PA_DEBUG_MODE = 'Y' THEN
2569: l_msg_data VARCHAR2(2000);
2570: l_data VARCHAR2(2000);
2571: l_msg_index_out NUMBER;
2572: l_debug_mode VARCHAR2(30);
2573: l_module_name VARCHAR2(100) := 'pa.plsql.PA_FIN_PLAN_UTILS';
2574:
2575: BEGIN
2576: x_msg_count := 0;
2577: x_return_status := FND_API.G_RET_STS_SUCCESS;
2576: x_msg_count := 0;
2577: x_return_status := FND_API.G_RET_STS_SUCCESS;
2578:
2579: IF P_PA_DEBUG_MODE = 'Y' THEN
2580: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Element_Prj_Pf_Amounts');
2581: END IF;
2582: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2583: l_debug_mode := NVL(l_debug_mode, 'Y');
2584: IF P_PA_DEBUG_MODE = 'Y' THEN
2688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2689: x_msg_count := 1;
2690: x_msg_data := SQLERRM;
2691:
2692: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
2693: ,p_procedure_name => 'Get_Element_Proj_PF_Amounts');
2694:
2695: pa_debug.g_err_stage:='Unexpected Error';
2696: IF P_PA_DEBUG_MODE = 'Y' THEN
2723: BEGIN
2724: x_msg_count := 0;
2725: x_return_status := FND_API.G_RET_STS_SUCCESS;
2726: IF P_PA_DEBUG_MODE = 'Y' THEN
2727: pa_debug.init_err_stack ('pa_fin_plan_utils.check_version_name_or_id');
2728: END IF;
2729: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2730: l_debug_mode := NVL(l_debug_mode, 'N');
2731: IF l_debug_mode = 'Y' THEN
2808: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2809: p_msg_name => 'PA_FP_VERSION_NAME_AMBIGOUS');
2810: x_budget_version_id := NULL;
2811: WHEN OTHERS THEN
2812: FND_MSG_PUB.ADD_EXC_MSG (p_pkg_name => 'PA_FIN_PLAN_UTILS',
2813: p_procedure_name => pa_debug.g_err_stack );
2814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2815: x_msg_data := SQLERRM;
2816: x_budget_version_id := NULL;
2828: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2829: ) IS
2830: BEGIN
2831: IF P_PA_DEBUG_MODE = 'Y' THEN
2832: pa_debug.init_err_stack ('pa_fin_plan_utils.Check_Currency_Name_Or_Code');
2833: END IF;
2834: IF p_txn_currency_code IS NOT NULL THEN
2835: pa_debug.g_err_stage:='Txn Currency Code is not null';
2836: IF P_PA_DEBUG_MODE = 'Y' THEN
2895: x_msg_data := 'PA_FP_CURR_INVALID';
2896: x_txn_currency_code := NULL;
2897: WHEN OTHERS THEN
2898: fnd_msg_pub.add_exc_msg
2899: (p_pkg_name => 'PA_FIN_PLAN_UTILS',
2900: p_procedure_name => pa_debug.g_err_stack );
2901: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
2902: x_txn_currency_code := NULL;
2903: RAISE;
2929: is
2930: l_msg_index_out NUMBER;
2931: BEGIN
2932: IF P_PA_DEBUG_MODE = 'Y' THEN
2933: pa_debug.init_err_stack ('pa_fin_plan_utils.check_task_name_or_id');
2934: END IF;
2935: if p_task_id is not null AND p_task_id <> FND_API.G_MISS_NUM then
2936: if p_check_id_flag = 'Y' then
2937: -- validate the id that was passed in
2990: end if;
2991: WHEN OTHERS THEN
2992: x_task_id := NULL;
2993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2994: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
2995: p_procedure_name => 'check_task_name_or_id');
2996: RAISE;
2997: END check_task_name_or_id;
2998:
3015: is
3016: l_msg_index_out NUMBER;
3017: BEGIN
3018: IF P_PA_DEBUG_MODE = 'Y' THEN
3019: pa_debug.init_err_stack ('pa_fin_plan_utils.check_resource_gp_name_or_id');
3020: END IF;
3021: raise Invalid_Call_Exc; /* Changes for FP.M, Tracking Bug No - 3354518 */
3022: /*** bug 3683382 this piece code would never be executed as there is a immediate raise
3023: if p_resource_id is not null AND p_resource_id <> FND_API.G_MISS_NUM then
3081: end if;
3082: WHEN Invalid_Call_Exc THEN /* Changes for FP.M, Tracking Bug No - 3354518, Adding Exception handling block for Invalid_Call_Exc */
3083: x_resource_id := NULL;
3084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3085: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3086: p_procedure_name => 'check_resource_gp_name_or_id');
3087: RAISE;
3088: WHEN OTHERS THEN
3089: x_resource_id := NULL;
3087: RAISE;
3088: WHEN OTHERS THEN
3089: x_resource_id := NULL;
3090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3091: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3092: p_procedure_name => 'check_resource_gp_name_or_id');
3093: RAISE;
3094: END check_resource_gp_name_or_id;
3095:
3104: is
3105: l_msg_index_out NUMBER;
3106: BEGIN
3107: IF P_PA_DEBUG_MODE = 'Y' THEN
3108: pa_debug.init_err_stack ('pa_fin_plan_utils.check_resource_name_or_id');
3109: END IF;
3110: if p_resource_id is not null AND p_resource_id <> FND_API.G_MISS_NUM then
3111: if p_check_id_flag = 'Y' then
3112: -- validate the id that was passed in
3164: end if;
3165: WHEN OTHERS THEN
3166: x_resource_id := NULL;
3167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3168: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3169: p_procedure_name => 'check_resource_name_or_id');
3170: RAISE;
3171: END check_resource_name_or_id;
3172:
3229: l_stage number := 0;
3230:
3231: BEGIN
3232: IF P_PA_DEBUG_MODE = 'Y' THEN
3233: pa_debug.init_err_stack('pa_fin_plan_utils.get_amttype_id');
3234: END IF;
3235:
3236: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3237: l_debug_mode := NVL(l_debug_mode, 'Y');
3272:
3273: EXCEPTION
3274: WHEN OTHERS THEN
3275: FND_MSG_PUB.add_exc_msg(
3276: p_pkg_name => 'pa_fin_plan_utils.get_amttype_id'
3277: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3278:
3279: IF P_PA_DEBUG_MODE = 'Y' THEN
3280: pa_debug.write_file('get_amttype_id: ' || SQLERRM);
3316: l_msg_count NUMBER := 0;
3317: l_msg_data VARCHAR2(2000);
3318: l_data VARCHAR2(2000);
3319: l_msg_index_out NUMBER;
3320: l_module_name VARCHAR2(100) := 'pa.plsql.pa_fin_plan_utils';
3321:
3322: BEGIN
3323: x_msg_count := 0;
3324: x_return_status := FND_API.G_RET_STS_SUCCESS;
3322: BEGIN
3323: x_msg_count := 0;
3324: x_return_status := FND_API.G_RET_STS_SUCCESS;
3325: IF P_PA_DEBUG_MODE = 'Y' THEN
3326: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Check_Locked_By_User');
3327: END IF;
3328: /* CHECK FOR BUSINESS RULES VIOLATIONS */
3329:
3330: -- Check for VALID USER ID
3439: END IF;
3440: EXCEPTION
3441: WHEN OTHERS THEN
3442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3443: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3444: p_procedure_name => 'Check_Locked_By_User');
3445: IF P_PA_DEBUG_MODE = 'Y' THEN
3446: pa_debug.reset_err_stack;
3447: END IF;
3480: BEGIN
3481: x_msg_count := 0;
3482: x_return_status := FND_API.G_RET_STS_SUCCESS;
3483: IF P_PA_DEBUG_MODE = 'Y' THEN
3484: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Check_Locked_By_User');
3485: END IF;
3486: pa_fin_plan_utils.Check_Locked_By_User
3487: (p_user_id => p_user_id,
3488: p_budget_version_id => p_budget_version_id1,
3482: x_return_status := FND_API.G_RET_STS_SUCCESS;
3483: IF P_PA_DEBUG_MODE = 'Y' THEN
3484: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Check_Locked_By_User');
3485: END IF;
3486: pa_fin_plan_utils.Check_Locked_By_User
3487: (p_user_id => p_user_id,
3488: p_budget_version_id => p_budget_version_id1,
3489: x_is_locked_by_userid => l_is_locked_by_userid1,
3490: x_locked_by_person_id => l_locked_by_person_id,
3491: x_return_status => l_return_status,
3492: x_msg_count => l_msg_count,
3493: x_msg_data => l_msg_data);
3494: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3495: raise pa_fin_plan_utils.Check_Locked_By_User_Exception;
3496: end if;
3497:
3498: pa_fin_plan_utils.Check_Locked_By_User
3499: (p_user_id => p_user_id,
3494: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3495: raise pa_fin_plan_utils.Check_Locked_By_User_Exception;
3496: end if;
3497:
3498: pa_fin_plan_utils.Check_Locked_By_User
3499: (p_user_id => p_user_id,
3500: p_budget_version_id => p_budget_version_id2,
3501: x_is_locked_by_userid => l_is_locked_by_userid2,
3502: x_locked_by_person_id => l_locked_by_person_id,
3503: x_return_status => l_return_status,
3504: x_msg_count => l_msg_count,
3505: x_msg_data => l_msg_data);
3506: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3507: raise pa_fin_plan_utils.Check_Locked_By_User_Exception;
3508: end if;
3509:
3510: if l_is_locked_by_userid1 = 'Y' and l_is_locked_by_userid2 = 'Y' then
3511: x_is_locked_by_userid := 'Y';
3515: IF P_PA_DEBUG_MODE = 'Y' THEN
3516: pa_debug.reset_err_stack;
3517: END IF;
3518: EXCEPTION
3519: WHEN pa_fin_plan_utils.Check_Locked_By_User_Exception THEN
3520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3521: IF P_PA_DEBUG_MODE = 'Y' THEN
3522: pa_debug.write_file('Check_Both_Locked_By_User: ' || 'Check_Locked_By_User_Exception reached');
3523: END IF;
3520: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3521: IF P_PA_DEBUG_MODE = 'Y' THEN
3522: pa_debug.write_file('Check_Both_Locked_By_User: ' || 'Check_Locked_By_User_Exception reached');
3523: END IF;
3524: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3525: p_procedure_name => 'Check_Both_Locked_By_User');
3526: WHEN OTHERS THEN
3527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3528: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3524: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3525: p_procedure_name => 'Check_Both_Locked_By_User');
3526: WHEN OTHERS THEN
3527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3528: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3529: p_procedure_name => 'Check_Both_Locked_By_User');
3530: RAISE;
3531:
3532: END Check_Both_Locked_By_User;
3655: x_msg_count := 0;
3656: x_return_status := FND_API.G_RET_STS_SUCCESS;
3657:
3658: IF P_PA_DEBUG_MODE = 'Y' THEN
3659: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Resource_List_Info');
3660: END IF;
3661: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3662: l_debug_mode := NVL(l_debug_mode, 'Y');
3663: IF P_PA_DEBUG_MODE = 'Y' THEN
3739: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3740: x_msg_count := 1;
3741: x_msg_data := SQLERRM;
3742:
3743: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
3744: ,p_procedure_name => 'Get_Resource_List_Info');
3745:
3746: pa_debug.g_err_stage:='Unexpected Error';
3747: IF P_PA_DEBUG_MODE = 'Y' THEN
3785: x_msg_count := 0;
3786: x_return_status := FND_API.G_RET_STS_SUCCESS;
3787:
3788: IF P_PA_DEBUG_MODE = 'Y' THEN
3789: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Resource_List_Info');
3790: END IF;
3791: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3792: l_debug_mode := NVL(l_debug_mode, 'Y');
3793: IF P_PA_DEBUG_MODE = 'Y' THEN
3875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3876: x_msg_count := 1;
3877: x_msg_data := SQLERRM;
3878:
3879: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
3880: ,p_procedure_name => 'Get_Resource_List_Info');
3881:
3882: pa_debug.g_err_stage:='Unexpected Error';
3883: IF P_PA_DEBUG_MODE = 'Y' THEN
3904:
3905: BEGIN
3906:
3907: IF P_PA_DEBUG_MODE = 'Y' THEN
3908: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Uncat_Resource_List_Info');
3909: END IF;
3910: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3911: l_debug_mode := NVL(l_debug_mode, 'Y');
3912:
4032:
4033: BEGIN
4034:
4035: IF P_PA_DEBUG_MODE = 'Y' THEN
4036: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Is_AC_PT_Attached_After_UPG');
4037: END IF;
4038: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4039: l_debug_mode := NVL(l_debug_mode, 'Y');
4040: IF P_PA_DEBUG_MODE = 'Y' THEN
4165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4166: x_msg_count := 1;
4167: x_msg_data := SQLERRM;
4168:
4169: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4170: ,p_procedure_name => 'Is_AC_PT_Attached_After_UPG');
4171:
4172: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4173: IF P_PA_DEBUG_MODE = 'Y' THEN
4214:
4215: BEGIN
4216:
4217: IF P_PA_DEBUG_MODE = 'Y' THEN
4218: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Is_AR_PT_Attached_After_UPG');
4219: END IF;
4220: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4221: l_debug_mode := NVL(l_debug_mode, 'Y');
4222: IF P_PA_DEBUG_MODE = 'Y' THEN
4348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4349: x_msg_count := 1;
4350: x_msg_data := SQLERRM;
4351:
4352: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4353: ,p_procedure_name => 'Is_AR_PT_Attached_After_UPG');
4354:
4355: pa_debug.g_err_stage:='Unexpeted Error'||SQLERRM;
4356: IF P_PA_DEBUG_MODE = 'Y' THEN
4554:
4555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4556: x_msg_count := 1;
4557: x_msg_data := SQLERRM;
4558: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4559: ,p_procedure_name => 'Get_Budget_Version_Number');
4560: pa_debug.g_err_stage:='Unexpeted Error'||SQLERRM;
4561: IF P_PA_DEBUG_MODE = 'Y' THEN
4562: pa_debug.write('Get_Max_Budget_Version_Number: ' || l_module_name,pa_debug.g_err_stage,5);
4675:
4676: x_msg_count := 0;
4677: x_return_status := FND_API.G_RET_STS_SUCCESS;
4678: IF P_PA_DEBUG_MODE = 'Y' THEN
4679: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_COST_BASE_VERSION_INFO');
4680: END IF;
4681: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4682: l_debug_mode := NVL(l_debug_mode, 'Y');
4683: IF P_PA_DEBUG_MODE = 'Y' THEN
4750: ELSE
4751: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST;
4752: END IF;
4753:
4754: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
4755: p_project_id => p_project_id
4756: ,p_fin_plan_type_id => p_fin_plan_type_id
4757: ,p_version_type => l_version_type
4758: ,x_fp_options_id => l_fp_options_id
4827:
4828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4829: x_msg_count := 1;
4830: x_msg_data := SQLERRM;
4831: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4832: ,p_procedure_name => 'GET_COST_BASE_VERSION_INFO');
4833: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4834: IF P_PA_DEBUG_MODE = 'Y' THEN
4835: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4875:
4876: x_msg_count := 0;
4877: x_return_status := FND_API.G_RET_STS_SUCCESS;
4878: IF P_PA_DEBUG_MODE = 'Y' THEN
4879: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_REV_BASE_VERSION_INFO');
4880: END IF;
4881: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4882: l_debug_mode := NVL(l_debug_mode, 'Y');
4883: IF P_PA_DEBUG_MODE = 'Y' THEN
4951: ELSE
4952: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE;
4953: END IF;
4954:
4955: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
4956: p_project_id => p_project_id
4957: ,p_fin_plan_type_id => p_fin_plan_type_id
4958: ,p_version_type => l_version_type
4959: ,x_fp_options_id => l_fp_options_id
5029:
5030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5031: x_msg_count := 1;
5032: x_msg_data := SQLERRM;
5033: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5034: ,p_procedure_name => 'GET_REV_BASE_VERSION_INFO');
5035: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
5036: IF P_PA_DEBUG_MODE = 'Y' THEN
5037: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5238: x_msg_count := 1;
5239: x_msg_data := SQLERRM;
5240: FND_MSG_PUB.add_exc_msg
5241: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5242: ,p_procedure_name => 'conv_est_amounts_of_ci_version'
5243: ,p_error_text => sqlerrm);
5244: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
5245: IF P_PA_DEBUG_MODE = 'Y' THEN
5500:
5501: x_msg_count := 0;
5502: x_return_status := FND_API.G_RET_STS_SUCCESS;
5503: IF P_PA_DEBUG_MODE = 'Y' THEN
5504: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Period_Details');
5505: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
5506: END IF;
5507: -- Check for NOT NULL parameters
5508: IF (p_period_name IS NULL) OR
5596: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5597: x_msg_count := 1;
5598: x_msg_data := SQLERRM;
5599: FND_MSG_PUB.add_exc_msg
5600: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5601: ,p_procedure_name => 'Get_Period_Details'
5602: ,p_error_text => SQLERRM);
5603: IF p_pa_debug_mode = 'Y' THEN
5604: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
5649: BEGIN
5650: x_msg_count := 0;
5651: x_return_status := FND_API.G_RET_STS_SUCCESS;
5652: IF P_PA_DEBUG_MODE = 'Y' THEN
5653: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Shifted_Period');
5654: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
5655: END IF;
5656: -- check for not null parameters
5657: IF (p_period_name IS NULL) OR
5674: END IF;
5675:
5676: -- Fetch the start and end dates of the input period name
5677:
5678: Pa_Fin_Plan_Utils.Get_Period_Details(
5679: p_period_name => p_period_name
5680: ,p_plan_period_type => p_plan_period_type
5681: ,x_start_date => l_start_date
5682: ,x_end_date => l_end_date
5856: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5857: x_msg_count := 1;
5858: x_msg_data := SQLERRM;
5859: FND_MSG_PUB.add_exc_msg
5860: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5861: ,p_procedure_name => 'Get_Shifted_Period'
5862: ,p_error_text => SQLERRM);
5863: IF p_pa_debug_mode = 'Y' THEN
5864: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
5928:
5929: BEGIN
5930:
5931: IF p_pa_debug_mode = 'Y' THEN
5932: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Approved_Budget_Ver_Qty');
5933: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
5934: END IF;
5935:
5936: -- Check for business rules violations
6093:
6094: END IF;
6095:
6096: IF p_pa_debug_mode = 'Y' THEN
6097: pa_debug.g_err_stage:= 'Exiting Pa_Fin_Plan_Utils.Get_Approved_Budget_Ver_Qty';
6098: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6099: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6100: pa_debug.reset_err_stack;
6101:
6125:
6126: WHEN others THEN
6127:
6128: FND_MSG_PUB.add_exc_msg
6129: ( p_pkg_name => 'Pa_Fin_Plan_Utils'
6130: ,p_procedure_name => 'Get_Approved_Budget_Ver_Qty'
6131: ,p_error_text => sqlerrm);
6132:
6133: IF p_pa_debug_mode = 'Y' THEN
6175:
6176: x_msg_count := 0;
6177: x_return_status := FND_API.G_RET_STS_SUCCESS;
6178: IF P_PA_DEBUG_MODE = 'Y' THEN
6179: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.validate_input_params');
6180: END IF;
6181: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6182: l_debug_mode := NVL(l_debug_mode, 'Y');
6183: IF l_debug_mode = 'Y' THEN
6313: x_msg_count := 1;
6314: x_msg_data := SQLERRM;
6315:
6316: FND_MSG_PUB.add_exc_msg
6317: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
6318: ,p_procedure_name => 'validate_input_params'
6319: ,p_error_text => sqlerrm);
6320:
6321: pa_debug.G_Err_Stack := SQLERRM;
6361: BEGIN
6362: x_msg_count := 0;
6363: x_return_status := FND_API.G_RET_STS_SUCCESS;
6364: IF P_PA_DEBUG_MODE = 'Y' THEN
6365: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.VALIDATE_CONV_ATTRIBUTES');
6366: END IF;
6367: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6368: l_debug_mode := NVL(l_debug_mode, 'Y');
6369: IF l_debug_mode = 'Y' THEN
6636: x_msg_count := 1;
6637: x_msg_data := SQLERRM;
6638:
6639: FND_MSG_PUB.add_exc_msg
6640: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
6641: ,p_procedure_name => 'VALIDATE_CONV_ATTRIBUTES'
6642: ,p_error_text => sqlerrm);
6643:
6644: pa_debug.G_Err_Stack := SQLERRM;
6715: BEGIN
6716: x_msg_count := 0;
6717: x_return_status := FND_API.G_RET_STS_SUCCESS;
6718: IF P_PA_DEBUG_MODE = 'Y' THEN
6719: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.VALIDATE_CURRENCY_ATTRIBUTES');
6720: END IF;
6721: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6722: l_debug_mode := NVL(l_debug_mode, 'Y');
6723: IF l_debug_mode = 'Y' THEN
7117: x_msg_count := 1;
7118: x_msg_data := SQLERRM;
7119:
7120: FND_MSG_PUB.add_exc_msg
7121: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7122: ,p_procedure_name => 'VALIDATE_CURRENCY_ATTRIBUTES'
7123: ,p_error_text => sqlerrm);
7124:
7125: pa_debug.G_Err_Stack := SQLERRM;
7168: x_msg_count := 0;
7169: x_return_status := FND_API.G_RET_STS_SUCCESS;
7170: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7171: IF l_debug_mode = 'Y' THEN
7172: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_PLAN_TYPE_OPTS_FOR_VER');
7173: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
7174: END IF;
7175:
7176: -- Check for business rules violations
7174: END IF;
7175:
7176: -- Check for business rules violations
7177: IF l_debug_mode = 'Y' THEN
7178: pa_debug.g_err_stage:= 'Entering PA_FIN_PLAN_UTILS.GET_PLAN_TYPE_OPTS_FOR_VER';
7179: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7180: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7181: END IF;
7182:
7260: x_msg_count := 1;
7261: x_msg_data := SQLERRM;
7262:
7263: FND_MSG_PUB.add_exc_msg
7264: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7265: ,p_procedure_name => 'GET_PLAN_TYPE_OPTS_FOR_VER'
7266: ,p_error_text => x_msg_data);
7267:
7268: IF l_debug_mode = 'Y' THEN
7386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7387: x_msg_count := 1;
7388: x_msg_data := SQLERRM;
7389: FND_MSG_PUB.add_exc_msg
7390: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7391: ,p_procedure_name => 'Get_Project_Curr_Attributes'
7392: ,p_error_text => SQLERRM);
7393: IF p_pa_debug_mode = 'Y' THEN
7394: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
7527: CLOSE autobaseline_appr_rev_info_cur;
7528: END IF;
7529:
7530: FND_MSG_PUB.add_exc_msg
7531: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7532: ,p_procedure_name => 'IsRevVersionCreationAllowed'
7533: ,p_error_text => x_msg_data);
7534:
7535: IF l_debug_mode = 'Y' THEN
7667: close lookups_cur;
7668: END IF;
7669:
7670: FND_MSG_PUB.add_exc_msg
7671: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7672: ,p_procedure_name => 'GET_LOOKUP_CODE'
7673: ,p_error_text => x_msg_data);
7674:
7675: IF l_debug_mode = 'Y' THEN
7989: x_msg_count := 1;
7990: x_msg_data := SQLERRM;
7991:
7992: FND_MSG_PUB.add_exc_msg
7993: ( p_pkg_name => 'pa_fin_plan_utils'
7994: ,p_procedure_name => 'get_Version_type'
7995: ,p_error_text => x_msg_data);
7996:
7997: IF l_debug_mode = 'Y' THEN
8129: x_msg_count := 1;
8130: x_msg_data := SQLERRM;
8131:
8132: FND_MSG_PUB.add_exc_msg
8133: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
8134: ,p_procedure_name => 'get_version_id'
8135: ,p_error_text => x_msg_data);
8136:
8137: IF l_debug_mode = 'Y' THEN
8283: x_msg_count := 1;
8284: x_msg_data := SQLERRM;
8285:
8286: FND_MSG_PUB.add_exc_msg
8287: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
8288: ,p_procedure_name => 'perform_autobasline_checks'
8289: ,p_error_text => x_msg_data);
8290:
8291: IF l_debug_mode = 'Y' THEN
8393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8394: x_msg_count := 1;
8395: x_msg_data := SQLERRM;
8396: FND_MSG_PUB.add_exc_msg
8397: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
8398: ,p_procedure_name => 'get_version_type_for_bdgt_type'
8399: ,p_error_text => sqlerrm);
8400: IF p_pa_debug_mode = 'Y' THEN
8401: pa_debug.g_err_stage:= 'unexp error in get_version_type_for_bdgt_type'||SQLERRM;
8704: if p_context <> 'WEBADI' then
8705: IF p_context <> PA_FP_CONSTANTS_PKG.G_AMG_API THEN
8706: x_err_code := 'PA_FP_ATTACH_LOCKED_BY_USER';
8707: -- BUG FIX 2933867: use locked_by_person_id for error msg
8708: l_locked_by_name := pa_fin_plan_utils.get_person_name(x_locked_by_person_id);
8709: PA_UTILS.ADD_MESSAGE
8710: ( p_app_short_name => 'PA',
8711: p_msg_name => 'PA_FP_ATTACH_LOCKED_BY_USER',
8712: p_token1 => 'PERSON_NAME',
8829: WHEN OTHERS THEN
8830: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8831: x_msg_count := 1;
8832: x_msg_data := SQLERRM;
8833: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8834: p_procedure_name => 'validate_editable_bv');
8835: IF P_PA_DEBUG_MODE = 'Y' THEN
8836: pa_debug.reset_err_stack;
8837: END IF;
8913: WHEN NO_DATA_FOUND THEN
8914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8915: x_msg_count := 1;
8916: x_msg_data := SQLERRM;
8917: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8918: p_procedure_name => 'validate_editable_bv');
8919: IF P_PA_DEBUG_MODE = 'Y' THEN
8920: pa_debug.reset_err_stack;
8921: END IF;
8923: WHEN OTHERS THEN
8924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8925: x_msg_count := 1;
8926: x_msg_data := SQLERRM;
8927: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8928: p_procedure_name => 'validate_editable_bv');
8929: IF P_PA_DEBUG_MODE = 'Y' THEN
8930: pa_debug.reset_err_stack;
8931: END IF;
9208: x_msg_count := 1;
9209: x_msg_data := SQLERRM;
9210:
9211: FND_MSG_PUB.add_exc_msg
9212: ( p_pkg_name => 'pa_fin_plan_utils'
9213: ,p_procedure_name => 'check_delete_task_ok'
9214: ,p_error_text => x_msg_data);
9215:
9216: IF l_debug_mode = 'Y' THEN
9286: return;
9287: END IF; -- old parent = new parent
9288:
9289: -- VALIDATION: Affected task
9290: pa_fin_plan_utils.check_delete_task_ok
9291: (p_task_id => p_task_id,
9292: p_validation_mode => p_validation_mode,
9293: -- x_delete_task_ok_flag => l_delete_task_ok_flag,
9294: x_return_status => l_return_status,
9470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9471: x_msg_count := 1;
9472: x_msg_data := SQLERRM;
9473: FND_MSG_PUB.add_exc_msg
9474: ( p_pkg_name => 'pa_fin_plan_utils'
9475: ,p_procedure_name => 'check_reparent_task_ok'
9476: ,p_error_text => x_msg_data);
9477: IF l_debug_mode = 'Y' THEN
9478: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
9930: WHEN Others THEN
9931: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9932: x_msg_count := 1;
9933: x_msg_data := SQLERRM;
9934: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
9935: ,p_procedure_name => 'CHECK_IF_PLAN_TYPE_EDITABLE');
9936: IF P_PA_DEBUG_MODE = 'Y' THEN
9937: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9938: pa_debug.write('Check_if_plan_type_editable: ' || l_module_name,pa_debug.g_err_stage,5);
9993: WHEN OTHERS THEN
9994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9995: x_msg_count := 1;
9996: x_msg_data := SQLERRM;
9997: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS',
9998: p_procedure_name => 'end_date_active_val');
9999: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10000: END End_date_active_val;
10001:
10040: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10041: l_debug_mode := NVL(l_debug_mode, 'Y');
10042:
10043: IF l_debug_mode = 'Y' THEN
10044: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Curr_Original_Version_Info');
10045: pa_debug.set_process('Get_Curr_Original_Version_Info: ' || 'PLSQL','LOG',l_debug_mode);
10046: END IF;
10047:
10048: -- Check for business rules violations
10211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10212: x_msg_count := 1;
10213: x_msg_data := SQLERRM;
10214:
10215: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10216: ,p_procedure_name => 'Get_Curr_Original_Version_Info');
10217:
10218: IF l_debug_mode = 'Y' THEN
10219: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10280: -- Set curr function
10281:
10282: IF l_debug_mode = 'Y' THEN
10283: pa_debug.set_curr_function(
10284: p_function =>'PA_FIN_PLAN_UTILS.GET_ACTUAL_AMTS_THRU_PERIOD'
10285: ,p_debug_mode => l_debug_mode );
10286:
10287: -- Check for business rules violations
10288: pa_debug.g_err_stage:='Validating input parameters';
10383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10384: x_msg_count := 1;
10385: x_msg_data := SQLERRM;
10386:
10387: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10388: ,p_procedure_name => 'GET_ACTUAL_AMTS_THRU_PERIOD');
10389:
10390: IF l_debug_mode = 'Y' THEN
10391: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10561:
10562: -- Set curr function
10563: IF l_debug_mode = 'Y' THEN
10564: pa_debug.set_curr_function(
10565: p_function =>'PA_FIN_PLAN_UTILS.IS_WP_RL_UPDATEABLE'
10566: ,p_debug_mode => l_debug_mode );
10567: END IF;
10568:
10569: IF (p_project_id IS NULL)
10679: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10680: x_msg_count := 1;
10681: x_msg_data := SQLERRM;
10682:
10683: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10684: ,p_procedure_name => 'IS_WP_RL_UPDATEABLE');
10685:
10686: IF l_debug_mode = 'Y' THEN
10687: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10728:
10729: -- Set curr function
10730: IF l_debug_mode = 'Y' THEN
10731: pa_debug.set_curr_function(
10732: p_function =>'PA_FIN_PLAN_UTILS.IS_PRI_FCST_COST_PT_ATTACHED'
10733: ,p_debug_mode => l_debug_mode );
10734:
10735: -- Check for business rules violations
10736:
10803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10804: x_msg_count := 1;
10805: x_msg_data := SQLERRM;
10806:
10807: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10808: ,p_procedure_name => 'IS_PRI_FCST_COST_PT_ATTACHED');
10809:
10810: IF l_debug_mode = 'Y' THEN
10811: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10851:
10852: -- Set curr function
10853: IF l_debug_mode = 'Y' THEN
10854: pa_debug.set_curr_function(
10855: p_function =>'PA_FIN_PLAN_UTILS.IS_PRI_FCST_REV_PT_ATTACHED'
10856: ,p_debug_mode => l_debug_mode );
10857:
10858: -- Check for business rules violations
10859: pa_debug.g_err_stage:='Validating input parameters';
10925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10926: x_msg_count := 1;
10927: x_msg_data := SQLERRM;
10928:
10929: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10930: ,p_procedure_name => 'IS_PRI_FCST_REV_PT_ATTACHED');
10931:
10932: IF l_debug_mode = 'Y' THEN
10933: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11084:
11085: -- Get_Curr_Working_Version_Info returns NULL if there is no working version of that version type
11086: If l_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY OR
11087: l_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP then
11088: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(p_project_id => p_project_id
11089: ,p_fin_plan_type_id => p_fin_plan_type_id
11090: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
11091: ,x_fp_options_id => l_fp_options_id
11092: ,x_fin_plan_version_id => X_cost_budget_version_id
11103: END IF;
11104: END IF;
11105: If l_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY OR
11106: l_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP then
11107: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(p_project_id => p_project_id
11108: ,p_fin_plan_type_id => p_fin_plan_type_id
11109: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
11110: ,x_fp_options_id => l_fp_options_id
11111: ,x_fin_plan_version_id => X_rev_budget_version_id
11120: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11121: END IF;
11122: END IF;
11123: If l_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME then
11124: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(p_project_id => p_project_id
11125: ,p_fin_plan_type_id => p_fin_plan_type_id
11126: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL
11127: ,x_fp_options_id => l_fp_options_id
11128: ,x_fin_plan_version_id => x_all_budget_version_id
11173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11174: x_msg_count := 1;
11175: x_msg_data := SQLERRM;
11176:
11177: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11178: ,p_procedure_name => 'GET_CURR_WORKING_VERSION_IDS');
11179: IF P_PA_DEBUG_MODE = 'Y' THEN
11180: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11181: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11445: x_msg_count := 1;
11446: x_msg_data := SQLERRM;
11447:
11448: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11449: ,p_procedure_name => 'GET_PROJ_IMPACT_AMOUNTS');
11450: IF P_PA_DEBUG_MODE = 'Y' THEN
11451: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11452: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11676: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11677: END IF;
11678:
11679: -- Added New Params for Quantity(Cost/Rev) in call to GET_PROJ_IMPACT_AMOUNTS - Bug 3902176
11680: PA_FIN_PLAN_UTILS.GET_PROJ_IMPACT_AMOUNTS(p_cost_budget_version_id => x_cost_budget_version_id
11681: ,p_rev_budget_version_id => x_rev_budget_version_id
11682: ,p_all_budget_version_id => x_all_budget_version_id
11683: -- ,p_version_type => p_version_type -- Bug 3902176
11684: ,X_proj_raw_cost => x_proj_raw_cost
11702: END IF;
11703: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11704: END IF;
11705: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_PLAN_TYPE_CWV_AMOUNTS THEN
11706: pa_fin_plan_utils.GET_CURR_WORKING_VERSION_IDS(P_fin_plan_type_id => P_fin_plan_type_id
11707: ,P_project_id => p_project_id
11708: ,X_cost_budget_version_id => x_cost_budget_version_id
11709: ,X_rev_budget_version_id => x_rev_budget_version_id
11710: ,X_all_budget_version_id => x_all_budget_version_id
11724: IF nvl(x_all_budget_version_id,-1) <> -1 OR nvl(x_cost_budget_version_id,-1) <> -1
11725: OR nvl(x_rev_budget_version_id,-1) <> -1 THEN
11726:
11727: -- Added New Params for Quantity(Cost/Rev) in call to GET_PROJ_IMPACT_AMOUNTS - Bug 3902176
11728: PA_FIN_PLAN_UTILS.GET_PROJ_IMPACT_AMOUNTS(p_cost_budget_version_id => x_cost_budget_version_id
11729: ,p_rev_budget_version_id => x_rev_budget_version_id
11730: ,p_all_budget_version_id => x_all_budget_version_id
11731: -- ,p_version_type => p_version_type -- Bug 3902176
11732: ,X_proj_raw_cost => x_proj_raw_cost
11788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11789: x_msg_count := 1;
11790: x_msg_data := SQLERRM;
11791:
11792: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11793: ,p_procedure_name => 'GET_SUMMARY_AMOUNTS');
11794: IF P_PA_DEBUG_MODE = 'Y' THEN
11795: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11796: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
12089: RETURN is_valid_flag;
12090:
12091: EXCEPTION
12092: WHEN OTHERS THEN
12093: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12094: ,p_procedure_name => 'Validate_Uncheck_MC_Flag');
12095: IF P_PA_DEBUG_MODE = 'Y' THEN
12096: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12097: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
12133: BEGIN
12134: -- Set curr function
12135: IF P_PA_DEBUG_MODE = 'Y' THEN
12136: pa_debug.set_curr_function(
12137: p_function =>'PA_FIN_PLAN_UTILS.Check_delete_txn_cur_ok'
12138: ,p_debug_mode => P_PA_DEBUG_MODE );
12139:
12140: -- Validate input parameters
12141: pa_debug.g_err_stage:='Validating input parameters';
12164:
12165: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12166: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12167: p_token1 => 'PROCEDURENAME',
12168: p_value1 => 'PA_FIN_PLAN_UTILS.Check_delete_txn_cur_ok');
12169:
12170: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12171:
12172: END IF;
12236:
12237: EXCEPTION
12238: WHEN Others THEN
12239:
12240: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12241: ,p_procedure_name => 'Check_delete_txn_cur_ok');
12242:
12243: IF P_PA_DEBUG_MODE = 'Y' THEN
12244: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12263: BEGIN
12264: -- Set curr function
12265: IF P_PA_DEBUG_MODE = 'Y' THEN
12266: pa_debug.set_curr_function(
12267: p_function =>'PA_FIN_PLAN_UTILS.check_if_amounts_exist_for_wp'
12268: ,p_debug_mode => P_PA_DEBUG_MODE );
12269:
12270: -- Validate input parameters
12271:
12283:
12284: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12285: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12286: p_token1 => 'PROCEDURENAME',
12287: p_value1 => 'PA_FIN_PLAN_UTILS.check_if_amounts_exist_for_wp');
12288:
12289: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12290:
12291: END IF;
12317:
12318: EXCEPTION
12319: WHEN Others THEN
12320:
12321: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12322: ,p_procedure_name => 'check_if_amounts_exist_for_wp');
12323:
12324: IF P_PA_DEBUG_MODE = 'Y' THEN
12325: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12344: BEGIN
12345: -- Set curr function
12346: IF P_PA_DEBUG_MODE = 'Y' THEN
12347: pa_debug.set_curr_function(
12348: p_function =>'PA_FIN_PLAN_UTILS.check_if_task_asgmts_exist'
12349: ,p_debug_mode => P_PA_DEBUG_MODE );
12350:
12351: -- Validate input parameters
12352:
12364:
12365: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12366: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12367: p_token1 => 'PROCEDURENAME',
12368: p_value1 => 'PA_FIN_PLAN_UTILS.check_if_task_asgmts_exist');
12369:
12370: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12371:
12372: END IF;
12399:
12400: EXCEPTION
12401: WHEN Others THEN
12402:
12403: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12404: ,p_procedure_name => 'check_if_task_asgmts_exist');
12405:
12406: IF P_PA_DEBUG_MODE = 'Y' THEN
12407: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12428: BEGIN
12429: -- Set curr function
12430: IF P_PA_DEBUG_MODE = 'Y' THEN
12431: pa_debug.set_curr_function(
12432: p_function =>'PA_FIN_PLAN_UTILS.check_if_amounts_exist_for_fp'
12433: ,p_debug_mode => P_PA_DEBUG_MODE );
12434:
12435: -- Validate input parameters
12436:
12451:
12452: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12453: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12454: p_token1 => 'PROCEDURENAME',
12455: p_value1 => 'PA_FIN_PLAN_UTILS.check_if_amounts_exist_for_fp');
12456:
12457: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12458:
12459: END IF;
12485:
12486: EXCEPTION
12487: WHEN Others THEN
12488:
12489: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12490: ,p_procedure_name => 'check_if_amounts_exist_for_fp');
12491:
12492: IF P_PA_DEBUG_MODE = 'Y' THEN
12493: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12559: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
12560: p_debug_mode => l_debug_mode );
12561: END IF;
12562: IF l_debug_mode = 'Y' THEN
12563: pa_debug.g_err_stage := 'Entering into pa.plsql.pa_fin_plan_utils.return_and_vldt_plan_prc_code';
12564: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
12565: pa_debug.g_err_stage := 'Validating input parameters';
12566: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
12567: END IF;
12838: END;
12839: END IF; -- p_calling_context
12840:
12841: IF l_debug_mode = 'Y' THEN
12842: pa_debug.g_err_stage := 'Leaving into pa.plsql.pa_fin_plan_utils.return_and_vldt_plan_prc_code';
12843: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
12844:
12845: pa_debug.reset_curr_function();
12846: END IF;
12876: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12877: x_msg_count := 1;
12878: x_msg_data := SQLERRM;
12879:
12880: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils'
12881: ,p_procedure_name => 'return_and_vldt_plan_prc_code');
12882:
12883: IF l_debug_mode = 'Y' THEN
12884: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12903:
12904: BEGIN
12905:
12906: IF P_PA_DEBUG_MODE = 'Y' THEN
12907: pa_debug.init_err_stack ('pa_fin_plan_utils.Is_source_for_generation_options');
12908: END IF;
12909:
12910: /* Changes for FP.M, Tracking Bug No - 3619687. Making a check if the plan version/type is
12911: a source of generation fot other plan types*/
13133: END IF;
13134: RAISE;
13135: END return_struct_ver_info;
13136:
13137: /* This fuction calls pa_fin_plan_utils.get_time_phased_code to get the time phased
13138: * code for the version and caches it in a package variable for the first time
13139: * and uses it to read and return to avoid select every time for each row
13140: * in the excel download view query
13141: */
13146: BEGIN
13147: IF g_fp_wa_time_phased_code IS NOT NULL THEN
13148: l_time_phased_code := g_fp_wa_time_phased_code;
13149: ELSE
13150: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(bv_id);
13151: g_fp_wa_time_phased_code := l_time_phased_code;
13152: END IF;
13153:
13154: RETURN l_time_phased_code;
13252: l_budget_version_name pa_budget_versions.version_name%TYPE;
13253:
13254: BEGIN
13255:
13256: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.create_draft_budget_wrp');
13257: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
13258: l_debug_mode := NVL(l_debug_mode, 'Y');
13259: IF P_PA_DEBUG_MODE = 'Y' THEN
13260: pa_debug.set_process('create_draft_budget_wrp: ' || 'PLSQL','LOG',l_debug_mode);
13275: END IF;
13276:
13277: -- Call the utility function that gives the id of the approved revenue plan type, if exists,
13278: -- that is added to the project
13279: pa_fin_plan_utils.Get_Appr_Rev_Plan_Type_Info(
13280: p_project_id => p_pa_project_id
13281: ,x_plan_type_id => l_approved_fin_plan_type_id
13282: ,x_return_status => l_return_status
13283: ,x_msg_count => l_msg_count
13538: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13539: p_msg_count := 1;
13540: p_msg_data := SQLERRM;
13541:
13542: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
13543: ,p_procedure_name => 'create_draft_budget_wrp');
13544:
13545: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
13546: IF P_PA_DEBUG_MODE = 'Y' THEN
13671:
13672: END get_copy_etc_from_plan_flag ;
13673: -- gboomina added for bug 8318932 - end
13674:
13675: END PA_FIN_PLAN_UTILS;