[Home] [Help]
1: PACKAGE BODY pa_fin_plan_utils as
2: /* $Header: PAFPUTLB.pls 120.16.12010000.3 2008/10/21 13:57:43 vgovvala 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.16.12010000.3 2008/10/21 13:57:43 vgovvala 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
630:
631: BEGIN
632:
633: IF P_PA_DEBUG_MODE = 'Y' THEN
634: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info');
635: END IF;
636: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
637: l_debug_mode := NVL(l_debug_mode, 'Y');
638: IF P_PA_DEBUG_MODE = 'Y' THEN
815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
816: x_msg_count := 1;
817: x_msg_data := SQLERRM;
818:
819: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
820: ,p_procedure_name => 'GET_BASELINED_VERSION_INFO');
821:
822: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
823: IF P_PA_DEBUG_MODE = 'Y' THEN
1156:
1157: BEGIN
1158:
1159: IF P_PA_DEBUG_MODE = 'Y' THEN
1160: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info');
1161: END IF;
1162: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1163: l_debug_mode := NVL(l_debug_mode, 'Y');
1164: IF P_PA_DEBUG_MODE = 'Y' THEN
1342: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1343: x_msg_count := 1;
1344: x_msg_data := SQLERRM;
1345:
1346: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1347: ,p_procedure_name => 'Get_Curr_Working_Version_Info');
1348:
1349: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1350: IF P_PA_DEBUG_MODE = 'Y' THEN
1387:
1388: BEGIN
1389:
1390: IF P_PA_DEBUG_MODE = 'Y' THEN
1391: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Appr_Cost_Plan_Type_Info');
1392: END IF;
1393: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1394: l_debug_mode := NVL(l_debug_mode, 'Y');
1395: IF P_PA_DEBUG_MODE = 'Y' THEN
1500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1501: x_msg_count := 1;
1502: x_msg_data := SQLERRM;
1503:
1504: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1505: ,p_procedure_name => 'Get_Appr_Cost_Plan_Type_Info');
1506:
1507: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
1508: IF P_PA_DEBUG_MODE = 'Y' THEN
1542:
1543: BEGIN
1544:
1545: IF P_PA_DEBUG_MODE = 'Y' THEN
1546: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Appr_Rev_Plan_Type_Info');
1547: END IF;
1548: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1549: l_debug_mode := NVL(l_debug_mode, 'Y');
1550: IF P_PA_DEBUG_MODE = 'Y' THEN
1654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1655: x_msg_count := 1;
1656: x_msg_data := SQLERRM;
1657:
1658: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
1659: ,p_procedure_name => 'Get_Appr_Rev_Plan_Type_Info');
1660:
1661: pa_debug.g_err_stage:='Unexpeted Error'||SQLERRM;
1662: IF P_PA_DEBUG_MODE = 'Y' THEN
1711:
1712:
1713: BEGIN
1714: IF P_PA_DEBUG_MODE = 'Y' THEN
1715: pa_debug.set_err_stack ('PA_FIN_PLAN_UTILS.GET_OR_CREATE_AMOUNT_SET_ID');
1716: END IF;
1717: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
1718: l_debug_mode := NVL(l_debug_mode, 'Y');
1719: IF P_PA_DEBUG_MODE = 'Y' THEN
2160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2161: x_message_count := 1;
2162: x_message_data := SQLERRM;
2163:
2164: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
2165: ,p_procedure_name => 'GET_OR_CREATE_AMOUNT_SET_ID');
2166:
2167: pa_debug.g_err_stage:='Unexpected Error';
2168: IF P_PA_DEBUG_MODE = 'Y' THEN
2207:
2208: BEGIN
2209:
2210: IF P_PA_DEBUG_MODE = 'Y' THEN
2211: pa_debug.set_err_stack ('PA_FIN_PLAN_UTILS.GET_PLAN_AMOUNT_FLAGS');
2212: END IF;
2213: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2214: l_debug_mode := NVL(l_debug_mode, 'Y');
2215: IF P_PA_DEBUG_MODE = 'Y' THEN
2315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2316: x_message_count := 1;
2317: x_message_data := SQLERRM;
2318:
2319: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
2320: ,p_procedure_name => 'GET_PLAN_AMOUNT_FLAGS');
2321:
2322: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
2323: IF P_PA_DEBUG_MODE = 'Y' THEN
2426: l_msg_data VARCHAR2(2000);
2427: l_data VARCHAR2(2000);
2428: l_msg_index_out NUMBER;
2429: l_debug_mode VARCHAR2(30);
2430: l_module_name VARCHAR2(100) := 'pa.plsql.PA_FIN_PLAN_UTILS';
2431:
2432: BEGIN
2433:
2434: x_msg_count := 0;
2434: x_msg_count := 0;
2435: x_return_status := FND_API.G_RET_STS_SUCCESS;
2436:
2437: IF P_PA_DEBUG_MODE = 'Y' THEN
2438: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Peceding_Suceeding_Prd_Info');
2439: END IF;
2440: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2441: l_debug_mode := NVL(l_debug_mode, 'Y');
2442: IF P_PA_DEBUG_MODE = 'Y' THEN
2525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2526: x_msg_count := 1;
2527: x_msg_data := SQLERRM;
2528:
2529: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
2530: ,p_procedure_name => 'Get_Peceding_Suceeding_Pd_Info');
2531:
2532: pa_debug.g_err_stage:='Unexpected Error';
2533: IF P_PA_DEBUG_MODE = 'Y' THEN
2567: l_msg_data VARCHAR2(2000);
2568: l_data VARCHAR2(2000);
2569: l_msg_index_out NUMBER;
2570: l_debug_mode VARCHAR2(30);
2571: l_module_name VARCHAR2(100) := 'pa.plsql.PA_FIN_PLAN_UTILS';
2572:
2573: BEGIN
2574: x_msg_count := 0;
2575: x_return_status := FND_API.G_RET_STS_SUCCESS;
2574: x_msg_count := 0;
2575: x_return_status := FND_API.G_RET_STS_SUCCESS;
2576:
2577: IF P_PA_DEBUG_MODE = 'Y' THEN
2578: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Element_Prj_Pf_Amounts');
2579: END IF;
2580: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2581: l_debug_mode := NVL(l_debug_mode, 'Y');
2582: IF P_PA_DEBUG_MODE = 'Y' THEN
2686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2687: x_msg_count := 1;
2688: x_msg_data := SQLERRM;
2689:
2690: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
2691: ,p_procedure_name => 'Get_Element_Proj_PF_Amounts');
2692:
2693: pa_debug.g_err_stage:='Unexpected Error';
2694: IF P_PA_DEBUG_MODE = 'Y' THEN
2721: BEGIN
2722: x_msg_count := 0;
2723: x_return_status := FND_API.G_RET_STS_SUCCESS;
2724: IF P_PA_DEBUG_MODE = 'Y' THEN
2725: pa_debug.init_err_stack ('pa_fin_plan_utils.check_version_name_or_id');
2726: END IF;
2727: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
2728: l_debug_mode := NVL(l_debug_mode, 'N');
2729: IF l_debug_mode = 'Y' THEN
2806: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
2807: p_msg_name => 'PA_FP_VERSION_NAME_AMBIGOUS');
2808: x_budget_version_id := NULL;
2809: WHEN OTHERS THEN
2810: FND_MSG_PUB.ADD_EXC_MSG (p_pkg_name => 'PA_FIN_PLAN_UTILS',
2811: p_procedure_name => pa_debug.g_err_stack );
2812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2813: x_msg_data := SQLERRM;
2814: x_budget_version_id := NULL;
2826: ,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
2827: ) IS
2828: BEGIN
2829: IF P_PA_DEBUG_MODE = 'Y' THEN
2830: pa_debug.init_err_stack ('pa_fin_plan_utils.Check_Currency_Name_Or_Code');
2831: END IF;
2832: IF p_txn_currency_code IS NOT NULL THEN
2833: pa_debug.g_err_stage:='Txn Currency Code is not null';
2834: IF P_PA_DEBUG_MODE = 'Y' THEN
2893: x_msg_data := 'PA_FP_CURR_INVALID';
2894: x_txn_currency_code := NULL;
2895: WHEN OTHERS THEN
2896: fnd_msg_pub.add_exc_msg
2897: (p_pkg_name => 'PA_FIN_PLAN_UTILS',
2898: p_procedure_name => pa_debug.g_err_stack );
2899: x_return_status:= FND_API.G_RET_STS_UNEXP_ERROR;
2900: x_txn_currency_code := NULL;
2901: RAISE;
2927: is
2928: l_msg_index_out NUMBER;
2929: BEGIN
2930: IF P_PA_DEBUG_MODE = 'Y' THEN
2931: pa_debug.init_err_stack ('pa_fin_plan_utils.check_task_name_or_id');
2932: END IF;
2933: if p_task_id is not null AND p_task_id <> FND_API.G_MISS_NUM then
2934: if p_check_id_flag = 'Y' then
2935: -- validate the id that was passed in
2988: end if;
2989: WHEN OTHERS THEN
2990: x_task_id := NULL;
2991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2992: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
2993: p_procedure_name => 'check_task_name_or_id');
2994: RAISE;
2995: END check_task_name_or_id;
2996:
3013: is
3014: l_msg_index_out NUMBER;
3015: BEGIN
3016: IF P_PA_DEBUG_MODE = 'Y' THEN
3017: pa_debug.init_err_stack ('pa_fin_plan_utils.check_resource_gp_name_or_id');
3018: END IF;
3019: raise Invalid_Call_Exc; /* Changes for FP.M, Tracking Bug No - 3354518 */
3020: /*** bug 3683382 this piece code would never be executed as there is a immediate raise
3021: if p_resource_id is not null AND p_resource_id <> FND_API.G_MISS_NUM then
3079: end if;
3080: WHEN Invalid_Call_Exc THEN /* Changes for FP.M, Tracking Bug No - 3354518, Adding Exception handling block for Invalid_Call_Exc */
3081: x_resource_id := NULL;
3082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3083: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3084: p_procedure_name => 'check_resource_gp_name_or_id');
3085: RAISE;
3086: WHEN OTHERS THEN
3087: x_resource_id := NULL;
3085: RAISE;
3086: WHEN OTHERS THEN
3087: x_resource_id := NULL;
3088: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3089: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3090: p_procedure_name => 'check_resource_gp_name_or_id');
3091: RAISE;
3092: END check_resource_gp_name_or_id;
3093:
3102: is
3103: l_msg_index_out NUMBER;
3104: BEGIN
3105: IF P_PA_DEBUG_MODE = 'Y' THEN
3106: pa_debug.init_err_stack ('pa_fin_plan_utils.check_resource_name_or_id');
3107: END IF;
3108: if p_resource_id is not null AND p_resource_id <> FND_API.G_MISS_NUM then
3109: if p_check_id_flag = 'Y' then
3110: -- validate the id that was passed in
3162: end if;
3163: WHEN OTHERS THEN
3164: x_resource_id := NULL;
3165: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3166: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3167: p_procedure_name => 'check_resource_name_or_id');
3168: RAISE;
3169: END check_resource_name_or_id;
3170:
3227: l_stage number := 0;
3228:
3229: BEGIN
3230: IF P_PA_DEBUG_MODE = 'Y' THEN
3231: pa_debug.init_err_stack('pa_fin_plan_utils.get_amttype_id');
3232: END IF;
3233:
3234: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3235: l_debug_mode := NVL(l_debug_mode, 'Y');
3270:
3271: EXCEPTION
3272: WHEN OTHERS THEN
3273: FND_MSG_PUB.add_exc_msg(
3274: p_pkg_name => 'pa_fin_plan_utils.get_amttype_id'
3275: ,p_procedure_name => PA_DEBUG.G_Err_Stack);
3276:
3277: IF P_PA_DEBUG_MODE = 'Y' THEN
3278: pa_debug.write_file('get_amttype_id: ' || SQLERRM);
3314: l_msg_count NUMBER := 0;
3315: l_msg_data VARCHAR2(2000);
3316: l_data VARCHAR2(2000);
3317: l_msg_index_out NUMBER;
3318: l_module_name VARCHAR2(100) := 'pa.plsql.pa_fin_plan_utils';
3319:
3320: BEGIN
3321: x_msg_count := 0;
3322: x_return_status := FND_API.G_RET_STS_SUCCESS;
3320: BEGIN
3321: x_msg_count := 0;
3322: x_return_status := FND_API.G_RET_STS_SUCCESS;
3323: IF P_PA_DEBUG_MODE = 'Y' THEN
3324: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Check_Locked_By_User');
3325: END IF;
3326: /* CHECK FOR BUSINESS RULES VIOLATIONS */
3327:
3328: -- Check for VALID USER ID
3437: END IF;
3438: EXCEPTION
3439: WHEN OTHERS THEN
3440: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3441: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3442: p_procedure_name => 'Check_Locked_By_User');
3443: IF P_PA_DEBUG_MODE = 'Y' THEN
3444: pa_debug.reset_err_stack;
3445: END IF;
3478: BEGIN
3479: x_msg_count := 0;
3480: x_return_status := FND_API.G_RET_STS_SUCCESS;
3481: IF P_PA_DEBUG_MODE = 'Y' THEN
3482: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Check_Locked_By_User');
3483: END IF;
3484: pa_fin_plan_utils.Check_Locked_By_User
3485: (p_user_id => p_user_id,
3486: p_budget_version_id => p_budget_version_id1,
3480: x_return_status := FND_API.G_RET_STS_SUCCESS;
3481: IF P_PA_DEBUG_MODE = 'Y' THEN
3482: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Check_Locked_By_User');
3483: END IF;
3484: pa_fin_plan_utils.Check_Locked_By_User
3485: (p_user_id => p_user_id,
3486: p_budget_version_id => p_budget_version_id1,
3487: x_is_locked_by_userid => l_is_locked_by_userid1,
3488: x_locked_by_person_id => l_locked_by_person_id,
3489: x_return_status => l_return_status,
3490: x_msg_count => l_msg_count,
3491: x_msg_data => l_msg_data);
3492: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3493: raise pa_fin_plan_utils.Check_Locked_By_User_Exception;
3494: end if;
3495:
3496: pa_fin_plan_utils.Check_Locked_By_User
3497: (p_user_id => p_user_id,
3492: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3493: raise pa_fin_plan_utils.Check_Locked_By_User_Exception;
3494: end if;
3495:
3496: pa_fin_plan_utils.Check_Locked_By_User
3497: (p_user_id => p_user_id,
3498: p_budget_version_id => p_budget_version_id2,
3499: x_is_locked_by_userid => l_is_locked_by_userid2,
3500: x_locked_by_person_id => l_locked_by_person_id,
3501: x_return_status => l_return_status,
3502: x_msg_count => l_msg_count,
3503: x_msg_data => l_msg_data);
3504: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3505: raise pa_fin_plan_utils.Check_Locked_By_User_Exception;
3506: end if;
3507:
3508: if l_is_locked_by_userid1 = 'Y' and l_is_locked_by_userid2 = 'Y' then
3509: x_is_locked_by_userid := 'Y';
3513: IF P_PA_DEBUG_MODE = 'Y' THEN
3514: pa_debug.reset_err_stack;
3515: END IF;
3516: EXCEPTION
3517: WHEN pa_fin_plan_utils.Check_Locked_By_User_Exception THEN
3518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3519: IF P_PA_DEBUG_MODE = 'Y' THEN
3520: pa_debug.write_file('Check_Both_Locked_By_User: ' || 'Check_Locked_By_User_Exception reached');
3521: END IF;
3518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3519: IF P_PA_DEBUG_MODE = 'Y' THEN
3520: pa_debug.write_file('Check_Both_Locked_By_User: ' || 'Check_Locked_By_User_Exception reached');
3521: END IF;
3522: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3523: p_procedure_name => 'Check_Both_Locked_By_User');
3524: WHEN OTHERS THEN
3525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3526: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3522: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3523: p_procedure_name => 'Check_Both_Locked_By_User');
3524: WHEN OTHERS THEN
3525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3526: FND_MSG_PUB.add_exc_msg(p_pkg_name => 'PA_FIN_PLAN_UTILS',
3527: p_procedure_name => 'Check_Both_Locked_By_User');
3528: RAISE;
3529:
3530: END Check_Both_Locked_By_User;
3653: x_msg_count := 0;
3654: x_return_status := FND_API.G_RET_STS_SUCCESS;
3655:
3656: IF P_PA_DEBUG_MODE = 'Y' THEN
3657: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Resource_List_Info');
3658: END IF;
3659: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3660: l_debug_mode := NVL(l_debug_mode, 'Y');
3661: IF P_PA_DEBUG_MODE = 'Y' THEN
3737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3738: x_msg_count := 1;
3739: x_msg_data := SQLERRM;
3740:
3741: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
3742: ,p_procedure_name => 'Get_Resource_List_Info');
3743:
3744: pa_debug.g_err_stage:='Unexpected Error';
3745: IF P_PA_DEBUG_MODE = 'Y' THEN
3783: x_msg_count := 0;
3784: x_return_status := FND_API.G_RET_STS_SUCCESS;
3785:
3786: IF P_PA_DEBUG_MODE = 'Y' THEN
3787: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Resource_List_Info');
3788: END IF;
3789: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3790: l_debug_mode := NVL(l_debug_mode, 'Y');
3791: IF P_PA_DEBUG_MODE = 'Y' THEN
3873: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3874: x_msg_count := 1;
3875: x_msg_data := SQLERRM;
3876:
3877: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_FIN_PLAN_UTILS'
3878: ,p_procedure_name => 'Get_Resource_List_Info');
3879:
3880: pa_debug.g_err_stage:='Unexpected Error';
3881: IF P_PA_DEBUG_MODE = 'Y' THEN
3902:
3903: BEGIN
3904:
3905: IF P_PA_DEBUG_MODE = 'Y' THEN
3906: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Uncat_Resource_List_Info');
3907: END IF;
3908: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3909: l_debug_mode := NVL(l_debug_mode, 'Y');
3910:
4030:
4031: BEGIN
4032:
4033: IF P_PA_DEBUG_MODE = 'Y' THEN
4034: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Is_AC_PT_Attached_After_UPG');
4035: END IF;
4036: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4037: l_debug_mode := NVL(l_debug_mode, 'Y');
4038: IF P_PA_DEBUG_MODE = 'Y' THEN
4163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4164: x_msg_count := 1;
4165: x_msg_data := SQLERRM;
4166:
4167: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4168: ,p_procedure_name => 'Is_AC_PT_Attached_After_UPG');
4169:
4170: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
4171: IF P_PA_DEBUG_MODE = 'Y' THEN
4212:
4213: BEGIN
4214:
4215: IF P_PA_DEBUG_MODE = 'Y' THEN
4216: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Is_AR_PT_Attached_After_UPG');
4217: END IF;
4218: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4219: l_debug_mode := NVL(l_debug_mode, 'Y');
4220: IF P_PA_DEBUG_MODE = 'Y' THEN
4346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4347: x_msg_count := 1;
4348: x_msg_data := SQLERRM;
4349:
4350: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4351: ,p_procedure_name => 'Is_AR_PT_Attached_After_UPG');
4352:
4353: pa_debug.g_err_stage:='Unexpeted Error'||SQLERRM;
4354: IF P_PA_DEBUG_MODE = 'Y' THEN
4552:
4553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4554: x_msg_count := 1;
4555: x_msg_data := SQLERRM;
4556: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4557: ,p_procedure_name => 'Get_Budget_Version_Number');
4558: pa_debug.g_err_stage:='Unexpeted Error'||SQLERRM;
4559: IF P_PA_DEBUG_MODE = 'Y' THEN
4560: pa_debug.write('Get_Max_Budget_Version_Number: ' || l_module_name,pa_debug.g_err_stage,5);
4673:
4674: x_msg_count := 0;
4675: x_return_status := FND_API.G_RET_STS_SUCCESS;
4676: IF P_PA_DEBUG_MODE = 'Y' THEN
4677: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_COST_BASE_VERSION_INFO');
4678: END IF;
4679: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4680: l_debug_mode := NVL(l_debug_mode, 'Y');
4681: IF P_PA_DEBUG_MODE = 'Y' THEN
4748: ELSE
4749: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST;
4750: END IF;
4751:
4752: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
4753: p_project_id => p_project_id
4754: ,p_fin_plan_type_id => p_fin_plan_type_id
4755: ,p_version_type => l_version_type
4756: ,x_fp_options_id => l_fp_options_id
4825:
4826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4827: x_msg_count := 1;
4828: x_msg_data := SQLERRM;
4829: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
4830: ,p_procedure_name => 'GET_COST_BASE_VERSION_INFO');
4831: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
4832: IF P_PA_DEBUG_MODE = 'Y' THEN
4833: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4873:
4874: x_msg_count := 0;
4875: x_return_status := FND_API.G_RET_STS_SUCCESS;
4876: IF P_PA_DEBUG_MODE = 'Y' THEN
4877: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_REV_BASE_VERSION_INFO');
4878: END IF;
4879: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
4880: l_debug_mode := NVL(l_debug_mode, 'Y');
4881: IF P_PA_DEBUG_MODE = 'Y' THEN
4949: ELSE
4950: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE;
4951: END IF;
4952:
4953: PA_FIN_PLAN_UTILS.Get_Baselined_Version_Info(
4954: p_project_id => p_project_id
4955: ,p_fin_plan_type_id => p_fin_plan_type_id
4956: ,p_version_type => l_version_type
4957: ,x_fp_options_id => l_fp_options_id
5027:
5028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5029: x_msg_count := 1;
5030: x_msg_data := SQLERRM;
5031: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5032: ,p_procedure_name => 'GET_REV_BASE_VERSION_INFO');
5033: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
5034: IF P_PA_DEBUG_MODE = 'Y' THEN
5035: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5236: x_msg_count := 1;
5237: x_msg_data := SQLERRM;
5238: FND_MSG_PUB.add_exc_msg
5239: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5240: ,p_procedure_name => 'conv_est_amounts_of_ci_version'
5241: ,p_error_text => sqlerrm);
5242: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
5243: IF P_PA_DEBUG_MODE = 'Y' THEN
5498:
5499: x_msg_count := 0;
5500: x_return_status := FND_API.G_RET_STS_SUCCESS;
5501: IF P_PA_DEBUG_MODE = 'Y' THEN
5502: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Period_Details');
5503: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
5504: END IF;
5505: -- Check for NOT NULL parameters
5506: IF (p_period_name IS NULL) OR
5594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5595: x_msg_count := 1;
5596: x_msg_data := SQLERRM;
5597: FND_MSG_PUB.add_exc_msg
5598: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5599: ,p_procedure_name => 'Get_Period_Details'
5600: ,p_error_text => SQLERRM);
5601: IF p_pa_debug_mode = 'Y' THEN
5602: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
5647: BEGIN
5648: x_msg_count := 0;
5649: x_return_status := FND_API.G_RET_STS_SUCCESS;
5650: IF P_PA_DEBUG_MODE = 'Y' THEN
5651: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Shifted_Period');
5652: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
5653: END IF;
5654: -- check for not null parameters
5655: IF (p_period_name IS NULL) OR
5672: END IF;
5673:
5674: -- Fetch the start and end dates of the input period name
5675:
5676: Pa_Fin_Plan_Utils.Get_Period_Details(
5677: p_period_name => p_period_name
5678: ,p_plan_period_type => p_plan_period_type
5679: ,x_start_date => l_start_date
5680: ,x_end_date => l_end_date
5854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5855: x_msg_count := 1;
5856: x_msg_data := SQLERRM;
5857: FND_MSG_PUB.add_exc_msg
5858: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
5859: ,p_procedure_name => 'Get_Shifted_Period'
5860: ,p_error_text => SQLERRM);
5861: IF p_pa_debug_mode = 'Y' THEN
5862: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
5922:
5923: BEGIN
5924:
5925: IF p_pa_debug_mode = 'Y' THEN
5926: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Approved_Budget_Ver_Qty');
5927: pa_debug.set_process('PLSQL','LOG',p_pa_debug_mode);
5928: END IF;
5929:
5930: -- Check for business rules violations
6087:
6088: END IF;
6089:
6090: IF p_pa_debug_mode = 'Y' THEN
6091: pa_debug.g_err_stage:= 'Exiting Pa_Fin_Plan_Utils.Get_Approved_Budget_Ver_Qty';
6092: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6093: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6094: pa_debug.reset_err_stack;
6095:
6119:
6120: WHEN others THEN
6121:
6122: FND_MSG_PUB.add_exc_msg
6123: ( p_pkg_name => 'Pa_Fin_Plan_Utils'
6124: ,p_procedure_name => 'Get_Approved_Budget_Ver_Qty'
6125: ,p_error_text => sqlerrm);
6126:
6127: IF p_pa_debug_mode = 'Y' THEN
6169:
6170: x_msg_count := 0;
6171: x_return_status := FND_API.G_RET_STS_SUCCESS;
6172: IF P_PA_DEBUG_MODE = 'Y' THEN
6173: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.validate_input_params');
6174: END IF;
6175: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6176: l_debug_mode := NVL(l_debug_mode, 'Y');
6177: IF l_debug_mode = 'Y' THEN
6307: x_msg_count := 1;
6308: x_msg_data := SQLERRM;
6309:
6310: FND_MSG_PUB.add_exc_msg
6311: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
6312: ,p_procedure_name => 'validate_input_params'
6313: ,p_error_text => sqlerrm);
6314:
6315: pa_debug.G_Err_Stack := SQLERRM;
6355: BEGIN
6356: x_msg_count := 0;
6357: x_return_status := FND_API.G_RET_STS_SUCCESS;
6358: IF P_PA_DEBUG_MODE = 'Y' THEN
6359: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.VALIDATE_CONV_ATTRIBUTES');
6360: END IF;
6361: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6362: l_debug_mode := NVL(l_debug_mode, 'Y');
6363: IF l_debug_mode = 'Y' THEN
6630: x_msg_count := 1;
6631: x_msg_data := SQLERRM;
6632:
6633: FND_MSG_PUB.add_exc_msg
6634: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
6635: ,p_procedure_name => 'VALIDATE_CONV_ATTRIBUTES'
6636: ,p_error_text => sqlerrm);
6637:
6638: pa_debug.G_Err_Stack := SQLERRM;
6709: BEGIN
6710: x_msg_count := 0;
6711: x_return_status := FND_API.G_RET_STS_SUCCESS;
6712: IF P_PA_DEBUG_MODE = 'Y' THEN
6713: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.VALIDATE_CURRENCY_ATTRIBUTES');
6714: END IF;
6715: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
6716: l_debug_mode := NVL(l_debug_mode, 'Y');
6717: IF l_debug_mode = 'Y' THEN
7111: x_msg_count := 1;
7112: x_msg_data := SQLERRM;
7113:
7114: FND_MSG_PUB.add_exc_msg
7115: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7116: ,p_procedure_name => 'VALIDATE_CURRENCY_ATTRIBUTES'
7117: ,p_error_text => sqlerrm);
7118:
7119: pa_debug.G_Err_Stack := SQLERRM;
7162: x_msg_count := 0;
7163: x_return_status := FND_API.G_RET_STS_SUCCESS;
7164: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
7165: IF l_debug_mode = 'Y' THEN
7166: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.GET_PLAN_TYPE_OPTS_FOR_VER');
7167: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
7168: END IF;
7169:
7170: -- Check for business rules violations
7168: END IF;
7169:
7170: -- Check for business rules violations
7171: IF l_debug_mode = 'Y' THEN
7172: pa_debug.g_err_stage:= 'Entering PA_FIN_PLAN_UTILS.GET_PLAN_TYPE_OPTS_FOR_VER';
7173: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7174: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7175: END IF;
7176:
7254: x_msg_count := 1;
7255: x_msg_data := SQLERRM;
7256:
7257: FND_MSG_PUB.add_exc_msg
7258: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7259: ,p_procedure_name => 'GET_PLAN_TYPE_OPTS_FOR_VER'
7260: ,p_error_text => x_msg_data);
7261:
7262: IF l_debug_mode = 'Y' THEN
7380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7381: x_msg_count := 1;
7382: x_msg_data := SQLERRM;
7383: FND_MSG_PUB.add_exc_msg
7384: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7385: ,p_procedure_name => 'Get_Project_Curr_Attributes'
7386: ,p_error_text => SQLERRM);
7387: IF p_pa_debug_mode = 'Y' THEN
7388: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
7521: CLOSE autobaseline_appr_rev_info_cur;
7522: END IF;
7523:
7524: FND_MSG_PUB.add_exc_msg
7525: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7526: ,p_procedure_name => 'IsRevVersionCreationAllowed'
7527: ,p_error_text => x_msg_data);
7528:
7529: IF l_debug_mode = 'Y' THEN
7661: close lookups_cur;
7662: END IF;
7663:
7664: FND_MSG_PUB.add_exc_msg
7665: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
7666: ,p_procedure_name => 'GET_LOOKUP_CODE'
7667: ,p_error_text => x_msg_data);
7668:
7669: IF l_debug_mode = 'Y' THEN
7983: x_msg_count := 1;
7984: x_msg_data := SQLERRM;
7985:
7986: FND_MSG_PUB.add_exc_msg
7987: ( p_pkg_name => 'pa_fin_plan_utils'
7988: ,p_procedure_name => 'get_Version_type'
7989: ,p_error_text => x_msg_data);
7990:
7991: IF l_debug_mode = 'Y' THEN
8123: x_msg_count := 1;
8124: x_msg_data := SQLERRM;
8125:
8126: FND_MSG_PUB.add_exc_msg
8127: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
8128: ,p_procedure_name => 'get_version_id'
8129: ,p_error_text => x_msg_data);
8130:
8131: IF l_debug_mode = 'Y' THEN
8277: x_msg_count := 1;
8278: x_msg_data := SQLERRM;
8279:
8280: FND_MSG_PUB.add_exc_msg
8281: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
8282: ,p_procedure_name => 'perform_autobasline_checks'
8283: ,p_error_text => x_msg_data);
8284:
8285: IF l_debug_mode = 'Y' THEN
8387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8388: x_msg_count := 1;
8389: x_msg_data := SQLERRM;
8390: FND_MSG_PUB.add_exc_msg
8391: ( p_pkg_name => 'PA_FIN_PLAN_UTILS'
8392: ,p_procedure_name => 'get_version_type_for_bdgt_type'
8393: ,p_error_text => sqlerrm);
8394: IF p_pa_debug_mode = 'Y' THEN
8395: pa_debug.g_err_stage:= 'unexp error in get_version_type_for_bdgt_type'||SQLERRM;
8698: if p_context <> 'WEBADI' then
8699: IF p_context <> PA_FP_CONSTANTS_PKG.G_AMG_API THEN
8700: x_err_code := 'PA_FP_ATTACH_LOCKED_BY_USER';
8701: -- BUG FIX 2933867: use locked_by_person_id for error msg
8702: l_locked_by_name := pa_fin_plan_utils.get_person_name(x_locked_by_person_id);
8703: PA_UTILS.ADD_MESSAGE
8704: ( p_app_short_name => 'PA',
8705: p_msg_name => 'PA_FP_ATTACH_LOCKED_BY_USER',
8706: p_token1 => 'PERSON_NAME',
8823: WHEN OTHERS THEN
8824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8825: x_msg_count := 1;
8826: x_msg_data := SQLERRM;
8827: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8828: p_procedure_name => 'validate_editable_bv');
8829: IF P_PA_DEBUG_MODE = 'Y' THEN
8830: pa_debug.reset_err_stack;
8831: END IF;
8907: WHEN NO_DATA_FOUND THEN
8908: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8909: x_msg_count := 1;
8910: x_msg_data := SQLERRM;
8911: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8912: p_procedure_name => 'validate_editable_bv');
8913: IF P_PA_DEBUG_MODE = 'Y' THEN
8914: pa_debug.reset_err_stack;
8915: END IF;
8917: WHEN OTHERS THEN
8918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8919: x_msg_count := 1;
8920: x_msg_data := SQLERRM;
8921: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils',
8922: p_procedure_name => 'validate_editable_bv');
8923: IF P_PA_DEBUG_MODE = 'Y' THEN
8924: pa_debug.reset_err_stack;
8925: END IF;
9202: x_msg_count := 1;
9203: x_msg_data := SQLERRM;
9204:
9205: FND_MSG_PUB.add_exc_msg
9206: ( p_pkg_name => 'pa_fin_plan_utils'
9207: ,p_procedure_name => 'check_delete_task_ok'
9208: ,p_error_text => x_msg_data);
9209:
9210: IF l_debug_mode = 'Y' THEN
9280: return;
9281: END IF; -- old parent = new parent
9282:
9283: -- VALIDATION: Affected task
9284: pa_fin_plan_utils.check_delete_task_ok
9285: (p_task_id => p_task_id,
9286: p_validation_mode => p_validation_mode,
9287: -- x_delete_task_ok_flag => l_delete_task_ok_flag,
9288: x_return_status => l_return_status,
9464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9465: x_msg_count := 1;
9466: x_msg_data := SQLERRM;
9467: FND_MSG_PUB.add_exc_msg
9468: ( p_pkg_name => 'pa_fin_plan_utils'
9469: ,p_procedure_name => 'check_reparent_task_ok'
9470: ,p_error_text => x_msg_data);
9471: IF l_debug_mode = 'Y' THEN
9472: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
9924: WHEN Others THEN
9925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9926: x_msg_count := 1;
9927: x_msg_data := SQLERRM;
9928: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
9929: ,p_procedure_name => 'CHECK_IF_PLAN_TYPE_EDITABLE');
9930: IF P_PA_DEBUG_MODE = 'Y' THEN
9931: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
9932: pa_debug.write('Check_if_plan_type_editable: ' || l_module_name,pa_debug.g_err_stage,5);
9987: WHEN OTHERS THEN
9988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9989: x_msg_count := 1;
9990: x_msg_data := SQLERRM;
9991: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS',
9992: p_procedure_name => 'end_date_active_val');
9993: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9994: END End_date_active_val;
9995:
10034: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
10035: l_debug_mode := NVL(l_debug_mode, 'Y');
10036:
10037: IF l_debug_mode = 'Y' THEN
10038: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.Get_Curr_Original_Version_Info');
10039: pa_debug.set_process('Get_Curr_Original_Version_Info: ' || 'PLSQL','LOG',l_debug_mode);
10040: END IF;
10041:
10042: -- Check for business rules violations
10205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10206: x_msg_count := 1;
10207: x_msg_data := SQLERRM;
10208:
10209: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10210: ,p_procedure_name => 'Get_Curr_Original_Version_Info');
10211:
10212: IF l_debug_mode = 'Y' THEN
10213: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10274: -- Set curr function
10275:
10276: IF l_debug_mode = 'Y' THEN
10277: pa_debug.set_curr_function(
10278: p_function =>'PA_FIN_PLAN_UTILS.GET_ACTUAL_AMTS_THRU_PERIOD'
10279: ,p_debug_mode => l_debug_mode );
10280:
10281: -- Check for business rules violations
10282: pa_debug.g_err_stage:='Validating input parameters';
10377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10378: x_msg_count := 1;
10379: x_msg_data := SQLERRM;
10380:
10381: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10382: ,p_procedure_name => 'GET_ACTUAL_AMTS_THRU_PERIOD');
10383:
10384: IF l_debug_mode = 'Y' THEN
10385: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10555:
10556: -- Set curr function
10557: IF l_debug_mode = 'Y' THEN
10558: pa_debug.set_curr_function(
10559: p_function =>'PA_FIN_PLAN_UTILS.IS_WP_RL_UPDATEABLE'
10560: ,p_debug_mode => l_debug_mode );
10561: END IF;
10562:
10563: IF (p_project_id IS NULL)
10673: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10674: x_msg_count := 1;
10675: x_msg_data := SQLERRM;
10676:
10677: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10678: ,p_procedure_name => 'IS_WP_RL_UPDATEABLE');
10679:
10680: IF l_debug_mode = 'Y' THEN
10681: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10722:
10723: -- Set curr function
10724: IF l_debug_mode = 'Y' THEN
10725: pa_debug.set_curr_function(
10726: p_function =>'PA_FIN_PLAN_UTILS.IS_PRI_FCST_COST_PT_ATTACHED'
10727: ,p_debug_mode => l_debug_mode );
10728:
10729: -- Check for business rules violations
10730:
10797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10798: x_msg_count := 1;
10799: x_msg_data := SQLERRM;
10800:
10801: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10802: ,p_procedure_name => 'IS_PRI_FCST_COST_PT_ATTACHED');
10803:
10804: IF l_debug_mode = 'Y' THEN
10805: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
10845:
10846: -- Set curr function
10847: IF l_debug_mode = 'Y' THEN
10848: pa_debug.set_curr_function(
10849: p_function =>'PA_FIN_PLAN_UTILS.IS_PRI_FCST_REV_PT_ATTACHED'
10850: ,p_debug_mode => l_debug_mode );
10851:
10852: -- Check for business rules violations
10853: pa_debug.g_err_stage:='Validating input parameters';
10919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10920: x_msg_count := 1;
10921: x_msg_data := SQLERRM;
10922:
10923: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
10924: ,p_procedure_name => 'IS_PRI_FCST_REV_PT_ATTACHED');
10925:
10926: IF l_debug_mode = 'Y' THEN
10927: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
11078:
11079: -- Get_Curr_Working_Version_Info returns NULL if there is no working version of that version type
11080: If l_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY OR
11081: l_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP then
11082: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(p_project_id => p_project_id
11083: ,p_fin_plan_type_id => p_fin_plan_type_id
11084: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
11085: ,x_fp_options_id => l_fp_options_id
11086: ,x_fin_plan_version_id => X_cost_budget_version_id
11097: END IF;
11098: END IF;
11099: If l_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY OR
11100: l_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP then
11101: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(p_project_id => p_project_id
11102: ,p_fin_plan_type_id => p_fin_plan_type_id
11103: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
11104: ,x_fp_options_id => l_fp_options_id
11105: ,x_fin_plan_version_id => X_rev_budget_version_id
11114: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11115: END IF;
11116: END IF;
11117: If l_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME then
11118: PA_FIN_PLAN_UTILS.Get_Curr_Working_Version_Info(p_project_id => p_project_id
11119: ,p_fin_plan_type_id => p_fin_plan_type_id
11120: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL
11121: ,x_fp_options_id => l_fp_options_id
11122: ,x_fin_plan_version_id => x_all_budget_version_id
11167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11168: x_msg_count := 1;
11169: x_msg_data := SQLERRM;
11170:
11171: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11172: ,p_procedure_name => 'GET_CURR_WORKING_VERSION_IDS');
11173: IF P_PA_DEBUG_MODE = 'Y' THEN
11174: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11175: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11439: x_msg_count := 1;
11440: x_msg_data := SQLERRM;
11441:
11442: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11443: ,p_procedure_name => 'GET_PROJ_IMPACT_AMOUNTS');
11444: IF P_PA_DEBUG_MODE = 'Y' THEN
11445: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11446: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11670: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11671: END IF;
11672:
11673: -- Added New Params for Quantity(Cost/Rev) in call to GET_PROJ_IMPACT_AMOUNTS - Bug 3902176
11674: PA_FIN_PLAN_UTILS.GET_PROJ_IMPACT_AMOUNTS(p_cost_budget_version_id => x_cost_budget_version_id
11675: ,p_rev_budget_version_id => x_rev_budget_version_id
11676: ,p_all_budget_version_id => x_all_budget_version_id
11677: -- ,p_version_type => p_version_type -- Bug 3902176
11678: ,X_proj_raw_cost => x_proj_raw_cost
11696: END IF;
11697: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11698: END IF;
11699: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_PLAN_TYPE_CWV_AMOUNTS THEN
11700: pa_fin_plan_utils.GET_CURR_WORKING_VERSION_IDS(P_fin_plan_type_id => P_fin_plan_type_id
11701: ,P_project_id => p_project_id
11702: ,X_cost_budget_version_id => x_cost_budget_version_id
11703: ,X_rev_budget_version_id => x_rev_budget_version_id
11704: ,X_all_budget_version_id => x_all_budget_version_id
11718: IF nvl(x_all_budget_version_id,-1) <> -1 OR nvl(x_cost_budget_version_id,-1) <> -1
11719: OR nvl(x_rev_budget_version_id,-1) <> -1 THEN
11720:
11721: -- Added New Params for Quantity(Cost/Rev) in call to GET_PROJ_IMPACT_AMOUNTS - Bug 3902176
11722: PA_FIN_PLAN_UTILS.GET_PROJ_IMPACT_AMOUNTS(p_cost_budget_version_id => x_cost_budget_version_id
11723: ,p_rev_budget_version_id => x_rev_budget_version_id
11724: ,p_all_budget_version_id => x_all_budget_version_id
11725: -- ,p_version_type => p_version_type -- Bug 3902176
11726: ,X_proj_raw_cost => x_proj_raw_cost
11782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11783: x_msg_count := 1;
11784: x_msg_data := SQLERRM;
11785:
11786: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
11787: ,p_procedure_name => 'GET_SUMMARY_AMOUNTS');
11788: IF P_PA_DEBUG_MODE = 'Y' THEN
11789: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
11790: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
12083: RETURN is_valid_flag;
12084:
12085: EXCEPTION
12086: WHEN OTHERS THEN
12087: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12088: ,p_procedure_name => 'Validate_Uncheck_MC_Flag');
12089: IF P_PA_DEBUG_MODE = 'Y' THEN
12090: pa_debug.g_err_stage:='Unexpected Error ' || SQLERRM;
12091: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
12127: BEGIN
12128: -- Set curr function
12129: IF P_PA_DEBUG_MODE = 'Y' THEN
12130: pa_debug.set_curr_function(
12131: p_function =>'PA_FIN_PLAN_UTILS.Check_delete_txn_cur_ok'
12132: ,p_debug_mode => P_PA_DEBUG_MODE );
12133:
12134: -- Validate input parameters
12135: pa_debug.g_err_stage:='Validating input parameters';
12158:
12159: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12160: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12161: p_token1 => 'PROCEDURENAME',
12162: p_value1 => 'PA_FIN_PLAN_UTILS.Check_delete_txn_cur_ok');
12163:
12164: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12165:
12166: END IF;
12230:
12231: EXCEPTION
12232: WHEN Others THEN
12233:
12234: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12235: ,p_procedure_name => 'Check_delete_txn_cur_ok');
12236:
12237: IF P_PA_DEBUG_MODE = 'Y' THEN
12238: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12257: BEGIN
12258: -- Set curr function
12259: IF P_PA_DEBUG_MODE = 'Y' THEN
12260: pa_debug.set_curr_function(
12261: p_function =>'PA_FIN_PLAN_UTILS.check_if_amounts_exist_for_wp'
12262: ,p_debug_mode => P_PA_DEBUG_MODE );
12263:
12264: -- Validate input parameters
12265:
12277:
12278: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12279: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12280: p_token1 => 'PROCEDURENAME',
12281: p_value1 => 'PA_FIN_PLAN_UTILS.check_if_amounts_exist_for_wp');
12282:
12283: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12284:
12285: END IF;
12311:
12312: EXCEPTION
12313: WHEN Others THEN
12314:
12315: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12316: ,p_procedure_name => 'check_if_amounts_exist_for_wp');
12317:
12318: IF P_PA_DEBUG_MODE = 'Y' THEN
12319: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12338: BEGIN
12339: -- Set curr function
12340: IF P_PA_DEBUG_MODE = 'Y' THEN
12341: pa_debug.set_curr_function(
12342: p_function =>'PA_FIN_PLAN_UTILS.check_if_task_asgmts_exist'
12343: ,p_debug_mode => P_PA_DEBUG_MODE );
12344:
12345: -- Validate input parameters
12346:
12358:
12359: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12360: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12361: p_token1 => 'PROCEDURENAME',
12362: p_value1 => 'PA_FIN_PLAN_UTILS.check_if_task_asgmts_exist');
12363:
12364: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12365:
12366: END IF;
12393:
12394: EXCEPTION
12395: WHEN Others THEN
12396:
12397: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12398: ,p_procedure_name => 'check_if_task_asgmts_exist');
12399:
12400: IF P_PA_DEBUG_MODE = 'Y' THEN
12401: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12422: BEGIN
12423: -- Set curr function
12424: IF P_PA_DEBUG_MODE = 'Y' THEN
12425: pa_debug.set_curr_function(
12426: p_function =>'PA_FIN_PLAN_UTILS.check_if_amounts_exist_for_fp'
12427: ,p_debug_mode => P_PA_DEBUG_MODE );
12428:
12429: -- Validate input parameters
12430:
12445:
12446: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
12447: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
12448: p_token1 => 'PROCEDURENAME',
12449: p_value1 => 'PA_FIN_PLAN_UTILS.check_if_amounts_exist_for_fp');
12450:
12451: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12452:
12453: END IF;
12479:
12480: EXCEPTION
12481: WHEN Others THEN
12482:
12483: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
12484: ,p_procedure_name => 'check_if_amounts_exist_for_fp');
12485:
12486: IF P_PA_DEBUG_MODE = 'Y' THEN
12487: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12553: PA_DEBUG.Set_Curr_Function( p_function => l_module_name,
12554: p_debug_mode => l_debug_mode );
12555: END IF;
12556: IF l_debug_mode = 'Y' THEN
12557: pa_debug.g_err_stage := 'Entering into pa.plsql.pa_fin_plan_utils.return_and_vldt_plan_prc_code';
12558: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
12559: pa_debug.g_err_stage := 'Validating input parameters';
12560: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
12561: END IF;
12832: END;
12833: END IF; -- p_calling_context
12834:
12835: IF l_debug_mode = 'Y' THEN
12836: pa_debug.g_err_stage := 'Leaving into pa.plsql.pa_fin_plan_utils.return_and_vldt_plan_prc_code';
12837: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
12838:
12839: pa_debug.reset_curr_function();
12840: END IF;
12870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12871: x_msg_count := 1;
12872: x_msg_data := SQLERRM;
12873:
12874: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'pa_fin_plan_utils'
12875: ,p_procedure_name => 'return_and_vldt_plan_prc_code');
12876:
12877: IF l_debug_mode = 'Y' THEN
12878: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
12897:
12898: BEGIN
12899:
12900: IF P_PA_DEBUG_MODE = 'Y' THEN
12901: pa_debug.init_err_stack ('pa_fin_plan_utils.Is_source_for_generation_options');
12902: END IF;
12903:
12904: /* Changes for FP.M, Tracking Bug No - 3619687. Making a check if the plan version/type is
12905: a source of generation fot other plan types*/
13127: END IF;
13128: RAISE;
13129: END return_struct_ver_info;
13130:
13131: /* This fuction calls pa_fin_plan_utils.get_time_phased_code to get the time phased
13132: * code for the version and caches it in a package variable for the first time
13133: * and uses it to read and return to avoid select every time for each row
13134: * in the excel download view query
13135: */
13140: BEGIN
13141: IF g_fp_wa_time_phased_code IS NOT NULL THEN
13142: l_time_phased_code := g_fp_wa_time_phased_code;
13143: ELSE
13144: l_time_phased_code := pa_fin_plan_utils.get_time_phased_code(bv_id);
13145: g_fp_wa_time_phased_code := l_time_phased_code;
13146: END IF;
13147:
13148: RETURN l_time_phased_code;
13242: l_approved_fin_plan_type_id pa_fin_plan_types_b.fin_plan_type_id%TYPE;
13243:
13244: BEGIN
13245:
13246: pa_debug.set_err_stack('PA_FIN_PLAN_UTILS.create_draft_budget_wrp');
13247: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
13248: l_debug_mode := NVL(l_debug_mode, 'Y');
13249: IF P_PA_DEBUG_MODE = 'Y' THEN
13250: pa_debug.set_process('create_draft_budget_wrp: ' || 'PLSQL','LOG',l_debug_mode);
13253:
13254:
13255: -- Call the utility function that gives the id of the approved revenue plan type, if exists,
13256: -- that is added to the project
13257: pa_fin_plan_utils.Get_Appr_Rev_Plan_Type_Info(
13258: p_project_id => p_pa_project_id
13259: ,x_plan_type_id => l_approved_fin_plan_type_id
13260: ,x_return_status => l_return_status
13261: ,x_msg_count => l_msg_count
13498: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13499: p_msg_count := 1;
13500: p_msg_data := SQLERRM;
13501:
13502: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_UTILS'
13503: ,p_procedure_name => 'create_draft_budget_wrp');
13504:
13505: pa_debug.g_err_stage:='Unexpected Error'||SQLERRM;
13506: IF P_PA_DEBUG_MODE = 'Y' THEN
13594: return null;
13595:
13596: end Get_Change_Reason;
13597:
13598: END PA_FIN_PLAN_UTILS;