[Home] [Help]
122: SELECT budget_version_id
123: INTO l_budget_version_id
124: FROM pa_budget_versions
125: WHERE project_id = p_project_id
126: AND budget_type_code=PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AC
127: AND rownum = 1;
128:
129: RETURN ('PA_FP_AC_BUDGET_TYPE_EXISTS');
130:
139: SELECT budget_version_id
140: INTO l_budget_version_id
141: FROM pa_budget_versions
142: WHERE project_id = p_project_id
143: AND budget_type_code=PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AR
144: AND rownum = 1;
145:
146: RETURN 'PA_FP_AR_BUDGET_TYPE_EXISTS';
147:
276:
277: BEGIN
278:
279: SELECT DECODE(fin_plan_preference_code,
280: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_resource_list_id,
281: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_resource_list_id,
282: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_resource_list_id)
283: INTO l_resource_list_id
284: FROM pa_proj_fp_options
277: BEGIN
278:
279: SELECT DECODE(fin_plan_preference_code,
280: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_resource_list_id,
281: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_resource_list_id,
282: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_resource_list_id)
283: INTO l_resource_list_id
284: FROM pa_proj_fp_options
285: WHERE fin_plan_version_id = p_fin_plan_version_id;
278:
279: SELECT DECODE(fin_plan_preference_code,
280: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_resource_list_id,
281: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_resource_list_id,
282: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_resource_list_id)
283: INTO l_resource_list_id
284: FROM pa_proj_fp_options
285: WHERE fin_plan_version_id = p_fin_plan_version_id;
286:
338: END;
339: ELSE
340: BEGIN
341: SELECT DECODE(fin_plan_preference_code,
342: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_time_phased_code,
343: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_time_phased_code,
344: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_time_phased_code)
345: INTO l_time_phased_code
346: FROM pa_proj_fp_options
339: ELSE
340: BEGIN
341: SELECT DECODE(fin_plan_preference_code,
342: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_time_phased_code,
343: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_time_phased_code,
344: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_time_phased_code)
345: INTO l_time_phased_code
346: FROM pa_proj_fp_options
347: WHERE fin_plan_version_id = p_fin_plan_version_id;
340: BEGIN
341: SELECT DECODE(fin_plan_preference_code,
342: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_time_phased_code,
343: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_time_phased_code,
344: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_time_phased_code)
345: INTO l_time_phased_code
346: FROM pa_proj_fp_options
347: WHERE fin_plan_version_id = p_fin_plan_version_id;
348: EXCEPTION
368:
369: BEGIN
370:
371: SELECT DECODE(fin_plan_preference_code,
372: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_fin_plan_level_code,
373: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_fin_plan_level_code,
374: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_fin_plan_level_code)
375: INTO l_fin_plan_level_code
376: FROM pa_proj_fp_options
369: BEGIN
370:
371: SELECT DECODE(fin_plan_preference_code,
372: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_fin_plan_level_code,
373: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_fin_plan_level_code,
374: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_fin_plan_level_code)
375: INTO l_fin_plan_level_code
376: FROM pa_proj_fp_options
377: WHERE fin_plan_version_id = p_fin_plan_version_id;
370:
371: SELECT DECODE(fin_plan_preference_code,
372: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_fin_plan_level_code,
373: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_fin_plan_level_code,
374: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_fin_plan_level_code)
375: INTO l_fin_plan_level_code
376: FROM pa_proj_fp_options
377: WHERE fin_plan_version_id = p_fin_plan_version_id;
378:
422:
423: BEGIN
424:
425: SELECT DECODE(fin_plan_preference_code,
426: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_fin_plan_level_code,
427: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_fin_plan_level_code,
428: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_fin_plan_level_code,
429: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP,
430: DECODE(p_element_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,cost_fin_plan_level_code,
423: BEGIN
424:
425: SELECT DECODE(fin_plan_preference_code,
426: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_fin_plan_level_code,
427: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_fin_plan_level_code,
428: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_fin_plan_level_code,
429: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP,
430: DECODE(p_element_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,cost_fin_plan_level_code,
431: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code))
424:
425: SELECT DECODE(fin_plan_preference_code,
426: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_fin_plan_level_code,
427: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_fin_plan_level_code,
428: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_fin_plan_level_code,
429: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP,
430: DECODE(p_element_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,cost_fin_plan_level_code,
431: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code))
432: INTO l_fin_plan_level_code
425: SELECT DECODE(fin_plan_preference_code,
426: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_fin_plan_level_code,
427: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_fin_plan_level_code,
428: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_fin_plan_level_code,
429: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP,
430: DECODE(p_element_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,cost_fin_plan_level_code,
431: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code))
432: INTO l_fin_plan_level_code
433: FROM pa_proj_fp_options
426: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_fin_plan_level_code,
427: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_fin_plan_level_code,
428: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_fin_plan_level_code,
429: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP,
430: DECODE(p_element_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,cost_fin_plan_level_code,
431: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code))
432: INTO l_fin_plan_level_code
433: FROM pa_proj_fp_options
434: WHERE proj_fp_options_id = p_proj_fp_options_id;
427: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_fin_plan_level_code,
428: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_fin_plan_level_code,
429: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP,
430: DECODE(p_element_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,cost_fin_plan_level_code,
431: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code))
432: INTO l_fin_plan_level_code
433: FROM pa_proj_fp_options
434: WHERE proj_fp_options_id = p_proj_fp_options_id;
435:
451:
452: BEGIN
453:
454: SELECT DECODE(fin_plan_preference_code,
455: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_amount_set_id,
456: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_amount_set_id,
457: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_amount_set_id)
458: INTO l_amount_set_id
459: FROM pa_proj_fp_options
452: BEGIN
453:
454: SELECT DECODE(fin_plan_preference_code,
455: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_amount_set_id,
456: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_amount_set_id,
457: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_amount_set_id)
458: INTO l_amount_set_id
459: FROM pa_proj_fp_options
460: WHERE fin_plan_version_id = p_fin_plan_version_id;
453:
454: SELECT DECODE(fin_plan_preference_code,
455: PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME, all_amount_set_id,
456: PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY, cost_amount_set_id,
457: PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY, revenue_amount_set_id)
458: INTO l_amount_set_id
459: FROM pa_proj_fp_options
460: WHERE fin_plan_version_id = p_fin_plan_version_id;
461:
681: INTO l_fp_preference_code
682: FROM pa_proj_fp_options
683: WHERE project_id = p_project_id
684: AND fin_plan_type_id = p_fin_plan_type_id
685: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
686:
687: IF (l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) AND
688:
689: (p_version_type IS NULL) THEN
683: WHERE project_id = p_project_id
684: AND fin_plan_type_id = p_fin_plan_type_id
685: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
686:
687: IF (l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) AND
688:
689: (p_version_type IS NULL) THEN
690:
691: --In this case version_type should be passed and so raise error
710: --Fetch l_element_type ifn't passed and could be derived
711:
712: IF p_version_type IS NULL THEN
713:
714: IF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
715:
716: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
717:
718: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
712: IF p_version_type IS NULL THEN
713:
714: IF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
715:
716: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
717:
718: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
719:
720: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
714: IF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
715:
716: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
717:
718: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
719:
720: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
721:
722: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
716: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
717:
718: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
719:
720: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
721:
722: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
723:
724: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
718: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
719:
720: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
721:
722: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
723:
724: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
725:
726: END IF;
720: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
721:
722: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
723:
724: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
725:
726: END IF;
727:
728: END IF;
1207: INTO l_fp_preference_code
1208: FROM pa_proj_fp_options
1209: WHERE project_id = p_project_id
1210: AND fin_plan_type_id = p_fin_plan_type_id
1211: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
1212:
1213: IF (l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) AND
1214:
1215: (p_version_type IS NULL) THEN
1209: WHERE project_id = p_project_id
1210: AND fin_plan_type_id = p_fin_plan_type_id
1211: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
1212:
1213: IF (l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) AND
1214:
1215: (p_version_type IS NULL) THEN
1216:
1217: --In this case version_type should be passed and so raise error
1236: --Fetch l_element_type ifn't passed and could be derived
1237:
1238: IF p_version_type IS NULL THEN
1239:
1240: IF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
1241:
1242: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
1243:
1244: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
1238: IF p_version_type IS NULL THEN
1239:
1240: IF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
1241:
1242: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
1243:
1244: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
1245:
1246: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
1240: IF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
1241:
1242: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
1243:
1244: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
1245:
1246: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
1247:
1248: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
1242: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
1243:
1244: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
1245:
1246: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
1247:
1248: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
1249:
1250: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
1244: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
1245:
1246: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
1247:
1248: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
1249:
1250: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
1251:
1252: END IF;
1246: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
1247:
1248: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
1249:
1250: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
1251:
1252: END IF;
1253:
1254: END IF;
1812: IF P_PA_DEBUG_MODE = 'Y' THEN
1813: pa_debug.write('GET_OR_CREATE_AMOUNT_SET_ID: ' || l_module_name,pa_debug.g_err_stage,3);
1814: END IF;
1815:
1816: IF (p_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY or p_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) then
1817: BEGIN
1818:
1819: /* Changes for FP.M, Tracking Bug No - 3354518
1820: Appending where clause for three new column bill_rate_flag,
1834: bill_rate_flag = 'N' and
1835: cost_rate_flag = p_cost_rate_flag and
1836: burden_rate_flag = p_burden_rate_flag and
1837: /* Changes for FPM End here ,Tracking Bug No - 3354518*/
1838: amount_set_type_code=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
1839:
1840: l_status := 'OLD';
1841: EXCEPTION
1842: when NO_DATA_FOUND then
1917: IF P_PA_DEBUG_MODE = 'Y' THEN
1918: pa_debug.write('GET_OR_CREATE_AMOUNT_SET_ID: ' || l_module_name,pa_debug.g_err_stage,3);
1919: END IF;
1920:
1921: IF p_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY or p_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP THEN
1922: BEGIN
1923:
1924: /* Changes for FP.M, Tracking Bug No - 3354518
1925: Appending where clause for three new column bill_rate_flag,
2023: IF P_PA_DEBUG_MODE = 'Y' THEN
2024: pa_debug.write('GET_OR_CREATE_AMOUNT_SET_ID: ' || l_module_name,pa_debug.g_err_stage,3);
2025: END IF;
2026:
2027: IF p_plan_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
2028: BEGIN
2029: /* Changes for FP.M, Tracking Bug No - 3354518
2030: Appending where clause for three new column bill_rate_flag,
2031: cost_rate_flag, burden_rate added to pa_fin_plan_amount_sets
2467:
2468: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2469: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2470:
2471: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2472:
2473: END IF;
2474:
2475: FOR l_period_info_rec IN period_info_cur LOOP
2486: pa_debug.reset_err_stack;
2487: END IF;
2488: EXCEPTION
2489:
2490: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2491:
2492: l_msg_count := FND_MSG_PUB.count_msg;
2493:
2494: IF l_msg_count = 1 THEN
2607:
2608: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
2609: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2610:
2611: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2612:
2613: END IF;
2614:
2615: BEGIN
2647: pa_debug.reset_err_stack;
2648: END IF;
2649: EXCEPTION
2650:
2651: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2652:
2653: l_msg_count := FND_MSG_PUB.count_msg;
2654:
2655: IF l_msg_count = 1 THEN
2741: END IF;
2742: PA_UTILS.ADD_MESSAGE
2743: (p_app_short_name => 'PA',
2744: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
2745: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2746:
2747: END IF;
2748:
2749:
2771: IF P_PA_DEBUG_MODE = 'Y' THEN
2772: pa_debug.reset_err_stack;
2773: END IF;
2774: EXCEPTION
2775: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN -- Bug 2770562
2776:
2777: x_return_status := FND_API.G_RET_STS_ERROR;
2778: l_msg_count := FND_MSG_PUB.count_msg;
2779:
3681: END IF;
3682: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3683: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3684:
3685: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3686:
3687: END IF;
3688:
3689: SELECT nvl(uncategorized_flag,'N')
3698: IF P_PA_DEBUG_MODE = 'Y' THEN
3699: pa_debug.reset_err_stack;
3700: END IF;
3701: EXCEPTION
3702: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3703:
3704: l_msg_count := FND_MSG_PUB.count_msg;
3705:
3706: IF l_msg_count = 1 THEN
3811: END IF;
3812: PA_UTILS.ADD_MESSAGE(p_app_short_name=> 'PA',
3813: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3814:
3815: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3816:
3817: END IF;
3818:
3819: SELECT nvl(uncategorized_flag,'N')
3834: IF P_PA_DEBUG_MODE = 'Y' THEN
3835: pa_debug.reset_err_stack;
3836: END IF;
3837: EXCEPTION
3838: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3839:
3840: l_msg_count := FND_MSG_PUB.count_msg;
3841:
3842: IF l_msg_count = 1 THEN
3990: p_msg_name => 'PA_BU_NO_UNCAT_RESOURCE_LIST' );
3991: IF P_PA_DEBUG_MODE = 'Y' THEN
3992: pa_debug.reset_err_stack;
3993: END IF;
3994: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3995:
3996: END Get_Uncat_Resource_List_Info;
3997:
3998: /*=============================================================================
4434: RAISE Invalid_Arg_Exc;
4435:
4436: END IF;
4437:
4438: IF p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING THEN
4439: IF p_ci_id IS NULL THEN
4440: BEGIN
4441: SELECT NVL(max(version_number),0)
4442: INTO l_version_number
4443: FROM pa_budget_versions
4444: WHERE project_id = p_project_id
4445: AND fin_plan_type_id = p_fin_plan_type_id
4446: AND version_type = p_version_type
4447: AND budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
4448: PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED)
4449: AND ci_id IS NULL;
4450: EXCEPTION
4451: WHEN OTHERS THEN
4444: WHERE project_id = p_project_id
4445: AND fin_plan_type_id = p_fin_plan_type_id
4446: AND version_type = p_version_type
4447: AND budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
4448: PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED)
4449: AND ci_id IS NULL;
4450: EXCEPTION
4451: WHEN OTHERS THEN
4452:
4466: FROM pa_budget_versions
4467: WHERE project_id = p_project_id
4468: AND fin_plan_type_id = p_fin_plan_type_id
4469: AND version_type = p_version_type
4470: AND budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
4471: PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED)
4472: AND ci_id is null
4473: AND version_number = l_version_number
4474: FOR UPDATE;
4467: WHERE project_id = p_project_id
4468: AND fin_plan_type_id = p_fin_plan_type_id
4469: AND version_type = p_version_type
4470: AND budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
4471: PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED)
4472: AND ci_id is null
4473: AND version_number = l_version_number
4474: FOR UPDATE;
4475: EXCEPTION
4490: FROM pa_budget_versions
4491: WHERE project_id = p_project_id
4492: AND fin_plan_type_id = p_fin_plan_type_id
4493: AND version_type = p_version_type
4494: AND budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
4495: PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED)
4496: AND ci_id = p_ci_id;
4497:
4498: IF l_version_number <> 0 AND nvl(p_lock_required_flag, 'N') = 'Y' THEN -- bug 3677924
4491: WHERE project_id = p_project_id
4492: AND fin_plan_type_id = p_fin_plan_type_id
4493: AND version_type = p_version_type
4494: AND budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
4495: PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED)
4496: AND ci_id = p_ci_id;
4497:
4498: IF l_version_number <> 0 AND nvl(p_lock_required_flag, 'N') = 'Y' THEN -- bug 3677924
4499: SELECT version_number
4501: FROM pa_budget_versions
4502: WHERE project_id = p_project_id
4503: AND fin_plan_type_id = p_fin_plan_type_id
4504: AND version_type = p_version_type
4505: AND budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
4506: PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED)
4507: AND ci_id = p_ci_id
4508: AND version_number = l_version_number
4509: FOR UPDATE;
4502: WHERE project_id = p_project_id
4503: AND fin_plan_type_id = p_fin_plan_type_id
4504: AND version_type = p_version_type
4505: AND budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_WORKING,
4506: PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_SUBMITTED)
4507: AND ci_id = p_ci_id
4508: AND version_number = l_version_number
4509: FOR UPDATE;
4510: END IF;
4508: AND version_number = l_version_number
4509: FOR UPDATE;
4510: END IF;
4511: END IF;
4512: ELSIF p_copy_mode = PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED THEN
4513:
4514: SELECT NVL(max(version_number),0)
4515: INTO l_version_number
4516: FROM pa_budget_versions
4516: FROM pa_budget_versions
4517: WHERE project_id = p_project_id
4518: AND fin_plan_type_id = p_fin_plan_type_id
4519: AND version_type = p_version_type
4520: AND budget_status_code IN (PA_FP_CONSTANTS_PKG.G_BUDGET_STATUS_BASELINED);
4521:
4522: END IF;
4523:
4524: x_version_number:= l_version_number;
4574: IF P_PA_DEBUG_MODE = 'Y' THEN
4575: pa_debug.g_err_stage := 'Inside get_period_start_date and input date is '||p_input_date||' time phasing is : '||p_time_phased_code;
4576: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4577: END IF;
4578: IF p_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P THEN
4579: IF p_input_date IS NOT NULL THEN
4580: SELECT start_date
4581: INTO l_start_date
4582: FROM pa_periods
4581: INTO l_start_date
4582: FROM pa_periods
4583: WHERE p_input_date between start_date and end_date;
4584: END IF;
4585: ELSIF p_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G THEN
4586: IF p_input_date IS NOT NULL THEN
4587: SELECT g.start_date
4588: INTO l_start_date
4589: FROM PA_IMPLEMENTATIONS i,
4609: IF P_PA_DEBUG_MODE = 'Y' THEN
4610: pa_debug.g_err_stage := 'Inside get_period_end_date and input date is '||p_input_date||' time phasing is : '||p_time_phased_code;
4611: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4612: END IF;
4613: IF p_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_P THEN
4614: IF p_input_date IS NOT NULL THEN
4615: SELECT end_date
4616: INTO l_end_date
4617: FROM pa_periods
4617: FROM pa_periods
4618: WHERE p_input_date between start_date and end_date;
4619: END IF;
4620:
4621: ELSIF p_time_phased_code = PA_FP_CONSTANTS_PKG.G_TIME_PHASED_CODE_G THEN
4622: IF p_input_date IS NOT NULL THEN
4623: SELECT g.end_date
4624: INTO l_end_date
4625: FROM PA_IMPLEMENTATIONS i,
4687: -- Check for business rules violations
4688:
4689: pa_debug.g_err_stage:= 'Validating input parameters';
4690: IF P_PA_DEBUG_MODE = 'Y' THEN
4691: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4692: END IF;
4693:
4694: --Check if plan version id is null
4695:
4699: THEN
4700:
4701: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
4702: IF P_PA_DEBUG_MODE = 'Y' THEN
4703: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4704: END IF;
4705: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
4706: IF P_PA_DEBUG_MODE = 'Y' THEN
4707: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4703: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4704: END IF;
4705: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
4706: IF P_PA_DEBUG_MODE = 'Y' THEN
4707: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4708: END IF;
4709: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '|| p_fin_plan_type_id;
4710: IF P_PA_DEBUG_MODE = 'Y' THEN
4711: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4707: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4708: END IF;
4709: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '|| p_fin_plan_type_id;
4710: IF P_PA_DEBUG_MODE = 'Y' THEN
4711: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4712: END IF;
4713:
4714: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4715: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4730: INTO l_fin_plan_preference_code
4731: FROM pa_proj_fp_options
4732: WHERE project_id = p_project_id
4733: AND fin_plan_type_id = p_fin_plan_type_id
4734: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
4735: EXCEPTION
4736: WHEN others THEN
4737: pa_debug.g_err_stage:= 'While fetching Preference Code'||SQLERRM;
4738: IF P_PA_DEBUG_MODE = 'Y' THEN
4735: EXCEPTION
4736: WHEN others THEN
4737: pa_debug.g_err_stage:= 'While fetching Preference Code'||SQLERRM;
4738: IF P_PA_DEBUG_MODE = 'Y' THEN
4739: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4740: END IF;
4741: RAISE ;
4742: END;
4743:
4743:
4744: -- Based on fin_plan_preference code, fetch all version for cost_and_rev_same plan type and
4745: -- for other plan types fetch cost version..
4746:
4747: IF l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME
4748: THEN
4749: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL;
4750: ELSE
4751: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST;
4745: -- for other plan types fetch cost version..
4746:
4747: IF l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME
4748: THEN
4749: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL;
4750: ELSE
4751: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST;
4752: END IF;
4753:
4747: IF l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME
4748: THEN
4749: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL;
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
4790: END IF;
4791:
4792: pa_debug.g_err_stage:= 'Exiting GET_COST_BASE_VERSION_INFO';
4793: IF P_PA_DEBUG_MODE = 'Y' THEN
4794: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4795:
4796: pa_debug.reset_err_stack;
4797: END IF;
4798: EXCEPTION
4815: END IF;
4816:
4817: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
4818: IF P_PA_DEBUG_MODE = 'Y' THEN
4819: pa_debug.write('GET_COST_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4820: END IF;
4821:
4822: x_return_status := FND_API.G_RET_STS_ERROR;
4823: IF P_PA_DEBUG_MODE = 'Y' THEN
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);
4836: pa_debug.reset_err_stack;
4837: END IF;
4838: END GET_COST_BASE_VERSION_INFO;
4839:
4887: -- Check for business rules violations
4888:
4889: pa_debug.g_err_stage:= 'Validating input parameters';
4890: IF P_PA_DEBUG_MODE = 'Y' THEN
4891: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4892: END IF;
4893:
4894: --Check if plan version id is null
4895:
4899: THEN
4900:
4901: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
4902: IF P_PA_DEBUG_MODE = 'Y' THEN
4903: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4904: END IF;
4905: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
4906: IF P_PA_DEBUG_MODE = 'Y' THEN
4907: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4903: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4904: END IF;
4905: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
4906: IF P_PA_DEBUG_MODE = 'Y' THEN
4907: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4908: END IF;
4909: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '|| p_fin_plan_type_id;
4910: IF P_PA_DEBUG_MODE = 'Y' THEN
4911: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4907: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4908: END IF;
4909: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '|| p_fin_plan_type_id;
4910: IF P_PA_DEBUG_MODE = 'Y' THEN
4911: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4912: END IF;
4913:
4914: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4915: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4930: INTO l_fin_plan_preference_code
4931: FROM pa_proj_fp_options
4932: WHERE project_id = p_project_id
4933: AND fin_plan_type_id = p_fin_plan_type_id
4934: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
4935: EXCEPTION
4936: WHEN others THEN
4937:
4938: pa_debug.g_err_stage:= 'While fetching Preference Code'||SQLERRM;
4936: WHEN others THEN
4937:
4938: pa_debug.g_err_stage:= 'While fetching Preference Code'||SQLERRM;
4939: IF P_PA_DEBUG_MODE = 'Y' THEN
4940: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
4941: END IF;
4942: RAISE;
4943: END;
4944:
4944:
4945: -- Based on fin_plan_preference code, fetch all version for cost_and_rev_same plan type and
4946: -- for other plan types fetch cost version..
4947:
4948: IF l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME
4949: THEN
4950: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL;
4951: ELSE
4952: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE;
4946: -- for other plan types fetch cost version..
4947:
4948: IF l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME
4949: THEN
4950: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL;
4951: ELSE
4952: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE;
4953: END IF;
4954:
4948: IF l_fin_plan_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME
4949: THEN
4950: l_version_type := PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL;
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
4993:
4994:
4995: pa_debug.g_err_stage:= 'Exiting GET_REV_BASE_VERSION_INFO';
4996: IF P_PA_DEBUG_MODE = 'Y' THEN
4997: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
4998: pa_debug.reset_err_stack;
4999: END IF;
5000: EXCEPTION
5001:
5017: END IF;
5018:
5019: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
5020: IF P_PA_DEBUG_MODE = 'Y' THEN
5021: pa_debug.write('GET_REV_BASE_VERSION_INFO: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5022: END IF;
5023:
5024: x_return_status := FND_API.G_RET_STS_ERROR;
5025: IF P_PA_DEBUG_MODE = 'Y' THEN
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);
5038: pa_debug.reset_err_stack;
5039: END IF;
5040: END GET_REV_BASE_VERSION_INFO;
5041:
5115:
5116: pa_debug.g_err_stage:= 'Validating input parameters';
5117: IF P_PA_DEBUG_MODE = 'Y' THEN
5118: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,
5119: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
5120: END IF;
5121:
5122: --Check if plan version id is null
5123:
5128: THEN
5129:
5130: pa_debug.g_err_stage:= 'p_budget_version_id = '|| p_budget_version_id;
5131: IF P_PA_DEBUG_MODE = 'Y' THEN
5132: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5133: END IF;
5134: pa_debug.g_err_stage:= 'p_txn_currency_Code = '|| p_txn_currency_Code;
5135: IF P_PA_DEBUG_MODE = 'Y' THEN
5136: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5132: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5133: END IF;
5134: pa_debug.g_err_stage:= 'p_txn_currency_Code = '|| p_txn_currency_Code;
5135: IF P_PA_DEBUG_MODE = 'Y' THEN
5136: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5137: END IF;
5138: pa_debug.g_err_stage:= 'p_project_currency_Code = '|| p_project_currency_Code;
5139: IF P_PA_DEBUG_MODE = 'Y' THEN
5140: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5136: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5137: END IF;
5138: pa_debug.g_err_stage:= 'p_project_currency_Code = '|| p_project_currency_Code;
5139: IF P_PA_DEBUG_MODE = 'Y' THEN
5140: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5141: END IF;
5142: pa_debug.g_err_stage:= 'p_projfunc_currency_code = '|| p_projfunc_currency_code;
5143: IF P_PA_DEBUG_MODE = 'Y' THEN
5144: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5140: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5141: END IF;
5142: pa_debug.g_err_stage:= 'p_projfunc_currency_code = '|| p_projfunc_currency_code;
5143: IF P_PA_DEBUG_MODE = 'Y' THEN
5144: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5145: END IF;
5146:
5147: PA_UTILS.ADD_MESSAGE
5148: (p_app_short_name => 'PA',
5147: PA_UTILS.ADD_MESSAGE
5148: (p_app_short_name => 'PA',
5149: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5150:
5151: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5152: END IF;
5153:
5154: DELETE FROM pa_fp_rollup_tmp;
5155: INSERT INTO pa_fp_rollup_tmp(
5201: WHERE RESOURCE_ASSIGNMENT_ID = -1;
5202:
5203: pa_debug.g_err_stage:= 'Exiting get_converted_amounts';
5204: IF P_PA_DEBUG_MODE = 'Y' THEN
5205: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
5206: pa_debug.reset_err_stack;
5207: END IF;
5208: EXCEPTION
5209:
5206: pa_debug.reset_err_stack;
5207: END IF;
5208: EXCEPTION
5209:
5210: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5211:
5212: x_return_status := FND_API.G_RET_STS_ERROR;
5213: l_msg_count := FND_MSG_PUB.count_msg;
5214: IF l_msg_count = 1 THEN
5226: END IF;
5227:
5228: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
5229: IF P_PA_DEBUG_MODE = 'Y' THEN
5230: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5231: pa_debug.reset_err_stack;
5232: END IF;
5233: RAISE;
5234:
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
5246: pa_debug.write('get_converted_amounts: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5247: pa_debug.reset_err_stack;
5248: END IF;
5249: RAISE;
5250:
5509: (p_plan_period_type IS NULL)
5510: THEN
5511: IF p_pa_debug_mode = 'Y' THEN
5512: pa_debug.g_err_stage:= 'p_period_name = '|| p_period_name;
5513: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5514: pa_debug.g_err_stage:= 'p_plan_period_type = '|| p_plan_period_type;
5515: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5516: END IF;
5517: PA_UTILS.ADD_MESSAGE
5511: IF p_pa_debug_mode = 'Y' THEN
5512: pa_debug.g_err_stage:= 'p_period_name = '|| p_period_name;
5513: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5514: pa_debug.g_err_stage:= 'p_plan_period_type = '|| p_plan_period_type;
5515: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5516: END IF;
5517: PA_UTILS.ADD_MESSAGE
5518: (p_app_short_name => 'PA',
5519: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5517: PA_UTILS.ADD_MESSAGE
5518: (p_app_short_name => 'PA',
5519: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5520:
5521: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5522: END IF;
5523:
5524: IF p_plan_period_type = 'PA' THEN
5525:
5533: EXCEPTION
5534: WHEN OTHERS THEN
5535: IF p_pa_debug_mode = 'Y' THEN
5536: pa_debug.g_err_stage:= 'Error while fetching the details of pa_period'||SQLERRM;
5537: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5538: END IF;
5539: RAISE;
5540: END;
5541: ELSIF p_plan_period_type = 'GL' THEN
5555: EXCEPTION
5556: WHEN OTHERS THEN
5557: IF p_pa_debug_mode = 'Y' THEN
5558: pa_debug.g_err_stage:= 'Error while fetching the details of gl_period'||SQLERRM;
5559: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5560: END IF;
5561: RAISE;
5562: END;
5563: END IF;
5563: END IF;
5564:
5565: IF p_pa_debug_mode = 'Y' THEN
5566: pa_debug.g_err_stage:= 'Exiting Get_Period_Details';
5567: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
5568: pa_debug.reset_err_stack;
5569: END IF;
5570: EXCEPTION
5571:
5568: pa_debug.reset_err_stack;
5569: END IF;
5570: EXCEPTION
5571:
5572: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5573:
5574: x_return_status := FND_API.G_RET_STS_ERROR;
5575: l_msg_count := FND_MSG_PUB.count_msg;
5576: IF l_msg_count = 1 THEN
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;
5605: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5606: pa_debug.reset_err_stack;
5607: END IF;
5608: RAISE;
5609: END Get_Period_Details;
5659: (p_number_of_periods IS NULL)
5660: THEN
5661: IF p_pa_debug_mode = 'Y' THEN
5662: pa_debug.g_err_stage:= 'p_period_name = '|| p_period_name;
5663: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5664: pa_debug.g_err_stage:= 'p_plan_period_type = '|| p_plan_period_type;
5665: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5666: pa_debug.g_err_stage:= 'p_number_of_periods = '|| p_number_of_periods;
5667: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5661: IF p_pa_debug_mode = 'Y' THEN
5662: pa_debug.g_err_stage:= 'p_period_name = '|| p_period_name;
5663: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5664: pa_debug.g_err_stage:= 'p_plan_period_type = '|| p_plan_period_type;
5665: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5666: pa_debug.g_err_stage:= 'p_number_of_periods = '|| p_number_of_periods;
5667: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5668: END IF;
5669: PA_UTILS.ADD_MESSAGE
5663: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5664: pa_debug.g_err_stage:= 'p_plan_period_type = '|| p_plan_period_type;
5665: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5666: pa_debug.g_err_stage:= 'p_number_of_periods = '|| p_number_of_periods;
5667: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5668: END IF;
5669: PA_UTILS.ADD_MESSAGE
5670: (p_app_short_name => 'PA',
5671: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5669: PA_UTILS.ADD_MESSAGE
5670: (p_app_short_name => 'PA',
5671: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5672:
5673: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5674: END IF;
5675:
5676: -- Fetch the start and end dates of the input period name
5677:
5684: ,x_msg_count => l_msg_count
5685: ,x_msg_data => l_msg_data );
5686:
5687: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5688: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5689: END IF;
5690:
5691: IF p_plan_period_type = 'PA' THEN
5692: BEGIN
5732: /*Fix for bug 2753123 starts */
5733: WHEN NO_DATA_FOUND THEN
5734: IF p_pa_debug_mode = 'Y' THEN
5735: pa_debug.g_err_stage:= 'Failed in shifting PA profile as Periods do not exist .'||SQLERRM;
5736: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5737: END IF;
5738: PA_UTILS.ADD_MESSAGE
5739: (p_app_short_name => 'PA',
5740: p_msg_name => 'PA_BU_INVALID_NEW_PERIOD');
5737: END IF;
5738: PA_UTILS.ADD_MESSAGE
5739: (p_app_short_name => 'PA',
5740: p_msg_name => 'PA_BU_INVALID_NEW_PERIOD');
5741: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5742: /*Fix for bug 2753123 ends */
5743: WHEN OTHERS THEN
5744: IF p_pa_debug_mode = 'Y' THEN
5745: pa_debug.g_err_stage:= 'Unexp error while fetching shifted PA period'||SQLERRM;
5742: /*Fix for bug 2753123 ends */
5743: WHEN OTHERS THEN
5744: IF p_pa_debug_mode = 'Y' THEN
5745: pa_debug.g_err_stage:= 'Unexp error while fetching shifted PA period'||SQLERRM;
5746: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5747: END IF;
5748: RAISE;
5749: END;
5750: ELSIF p_plan_period_type = 'GL' THEN
5803: /*Fix for bug 2753123 starts */
5804: WHEN NO_DATA_FOUND THEN
5805: IF p_pa_debug_mode = 'Y' THEN
5806: pa_debug.g_err_stage:= 'Failed in shifting GL profile as Periods do not exist .'||SQLERRM;
5807: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5808: END IF;
5809: PA_UTILS.ADD_MESSAGE
5810: (p_app_short_name => 'PA',
5811: p_msg_name => 'PA_BU_INVALID_NEW_PERIOD');
5808: END IF;
5809: PA_UTILS.ADD_MESSAGE
5810: (p_app_short_name => 'PA',
5811: p_msg_name => 'PA_BU_INVALID_NEW_PERIOD');
5812: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5813: /*Fix for bug 2753123 ends */
5814: WHEN OTHERS THEN
5815: IF p_pa_debug_mode = 'Y' THEN
5816: pa_debug.g_err_stage:= 'Unexp error while fetching shifted GL period'||SQLERRM;
5813: /*Fix for bug 2753123 ends */
5814: WHEN OTHERS THEN
5815: IF p_pa_debug_mode = 'Y' THEN
5816: pa_debug.g_err_stage:= 'Unexp error while fetching shifted GL period'||SQLERRM;
5817: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5818: END IF;
5819: RAISE;
5820: END;
5821:
5822: END IF;
5823:
5824: IF p_pa_debug_mode = 'Y' THEN
5825: pa_debug.g_err_stage:= 'Exiting Get_Shifted_Period';
5826: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
5827: pa_debug.reset_err_stack;
5828: END IF;
5829: EXCEPTION
5830:
5827: pa_debug.reset_err_stack;
5828: END IF;
5829: EXCEPTION
5830:
5831: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5832:
5833: x_return_status := FND_API.G_RET_STS_ERROR;
5834: l_msg_count := FND_MSG_PUB.count_msg;
5835: IF l_msg_count = 1 THEN
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;
5865: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5866: pa_debug.reset_err_stack;
5867: END IF;
5868: RAISE;
5869: END Get_Shifted_Period;
5937:
5938: IF p_pa_debug_mode = 'Y' THEN
5939: pa_debug.g_err_stage:= 'Validating input parameters';
5940: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5941: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
5942: END IF;
5943:
5944: IF ((p_project_id IS NULL) OR (p_version_code IS NULL) OR (p_quantity_type IS NULL)) OR
5945: ((p_version_code = C_CTRL_ITEM_VERSION) AND (p_ci_id IS NULL)) THEN
5945: ((p_version_code = C_CTRL_ITEM_VERSION) AND (p_ci_id IS NULL)) THEN
5946: IF p_pa_debug_mode = 'Y' THEN
5947: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
5948: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5949: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5950: pa_debug.g_err_stage:= 'p_version_code = '|| p_version_code;
5951: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5952: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5953: pa_debug.g_err_stage:= 'p_quantity_type = '|| p_quantity_type;
5948: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5949: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5950: pa_debug.g_err_stage:= 'p_version_code = '|| p_version_code;
5951: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5952: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5953: pa_debug.g_err_stage:= 'p_quantity_type = '|| p_quantity_type;
5954: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5955: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5956: pa_debug.g_err_stage:= 'p_ci_id = '|| p_ci_id;
5951: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5952: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5953: pa_debug.g_err_stage:= 'p_quantity_type = '|| p_quantity_type;
5954: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5955: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5956: pa_debug.g_err_stage:= 'p_ci_id = '|| p_ci_id;
5957: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5958: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5959: END IF;
5954: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5955: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5956: pa_debug.g_err_stage:= 'p_ci_id = '|| p_ci_id;
5957: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5958: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5959: END IF;
5960: PA_UTILS.ADD_MESSAGE
5961: (p_app_short_name => 'PA',
5962: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5959: END IF;
5960: PA_UTILS.ADD_MESSAGE
5961: (p_app_short_name => 'PA',
5962: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
5963: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5964:
5965: END IF;
5966:
5967: IF p_version_code = C_CTRL_ITEM_VERSION THEN
5981: AND ci_id = p_ci_id;
5982:
5983: IF l_ver_count = 2 THEN
5984:
5985: OPEN cur_ci_ver(PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST, p_ci_id);
5986: FETCH cur_ci_ver INTO cur_ci_ver_rec;
5987: IF cur_ci_ver%NOTFOUND THEN
5988: IF p_pa_debug_mode = 'Y' THEN
5989: pa_debug.g_err_stage:= 'Could not fetch cost ci version details!!!...';
5987: IF cur_ci_ver%NOTFOUND THEN
5988: IF p_pa_debug_mode = 'Y' THEN
5989: pa_debug.g_err_stage:= 'Could not fetch cost ci version details!!!...';
5990: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5991: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5992: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5993: END IF;
5994: END IF;
5995: CLOSE cur_ci_ver;
5988: IF p_pa_debug_mode = 'Y' THEN
5989: pa_debug.g_err_stage:= 'Could not fetch cost ci version details!!!...';
5990: pa_debug.write(l_module_name,pa_debug.g_err_stage,
5991: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
5992: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5993: END IF;
5994: END IF;
5995: CLOSE cur_ci_ver;
5996:
6001: IF cur_ci_ver%NOTFOUND THEN
6002: IF p_pa_debug_mode = 'Y' THEN
6003: pa_debug.g_err_stage:= 'Could not fetch ci version details!!!...';
6004: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6005: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6006: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6007: END IF;
6008: END IF;
6009: CLOSE cur_ci_ver;
6002: IF p_pa_debug_mode = 'Y' THEN
6003: pa_debug.g_err_stage:= 'Could not fetch ci version details!!!...';
6004: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6005: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6006: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6007: END IF;
6008: END IF;
6009: CLOSE cur_ci_ver;
6010:
6014:
6015: IF p_pa_debug_mode = 'Y' THEN
6016: pa_debug.g_err_stage:= 'More than 2 ctrl item versions for the project!!!';
6017: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6018: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6019: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6020: END IF;
6021: END IF;
6022:
6015: IF p_pa_debug_mode = 'Y' THEN
6016: pa_debug.g_err_stage:= 'More than 2 ctrl item versions for the project!!!';
6017: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6018: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6019: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6020: END IF;
6021: END IF;
6022:
6023: ELSIF p_version_code = C_BASELINED_VERSION THEN
6031: Approved_Rev_Plan_Type_Flag = 'Y' );
6032:
6033: IF l_ver_count = 2 THEN
6034:
6035: OPEN cur_baselined_ver(PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST);
6036: FETCH cur_baselined_ver INTO cur_ci_ver_rec;
6037: CLOSE cur_baselined_ver;
6038:
6039: ELSIF l_ver_count = 1 THEN
6048:
6049: IF p_pa_debug_mode = 'Y' THEN
6050: pa_debug.g_err_stage:= 'More than 2 current baselined item versions for the project!!!';
6051: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6052: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6053: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6054: END IF;
6055:
6056: END IF;
6049: IF p_pa_debug_mode = 'Y' THEN
6050: pa_debug.g_err_stage:= 'More than 2 current baselined item versions for the project!!!';
6051: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6052: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6053: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6054: END IF;
6055:
6056: END IF;
6057:
6066: Approved_Rev_Plan_Type_Flag = 'Y' );
6067:
6068: IF l_ver_count = 2 THEN
6069:
6070: OPEN cur_working_ver(PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST);
6071: FETCH cur_working_ver INTO cur_ci_ver_rec;
6072: CLOSE cur_working_ver;
6073:
6074: ELSIF l_ver_count = 1 THEN
6083:
6084: IF p_pa_debug_mode = 'Y' THEN
6085: pa_debug.g_err_stage:= 'More than 2 current working versions for the project!!!';
6086: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6087: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6088: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6089: END IF;
6090:
6091: END IF;
6084: IF p_pa_debug_mode = 'Y' THEN
6085: pa_debug.g_err_stage:= 'More than 2 current working versions for the project!!!';
6086: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6087: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6088: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6089: END IF;
6090:
6091: END IF;
6092:
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:
6102: END IF;
6103:
6113:
6114:
6115: EXCEPTION
6116:
6117: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6118:
6119: IF p_pa_debug_mode = 'Y' THEN
6120: pa_debug.g_err_stage := 'Invalid arg exception ..';
6121: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6117: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6118:
6119: IF p_pa_debug_mode = 'Y' THEN
6120: pa_debug.g_err_stage := 'Invalid arg exception ..';
6121: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6122: pa_debug.reset_err_stack;
6123: END IF;
6124: RAISE;
6125:
6132:
6133: IF p_pa_debug_mode = 'Y' THEN
6134: pa_debug.g_err_stage:= 'Unexpected Error'||sqlerrm;
6135: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6136: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
6137: pa_debug.reset_err_stack;
6138:
6139: END IF;
6140: RAISE;
6301:
6302: IF l_debug_mode='Y' THEN
6303: pa_debug.g_err_stage:= 'Exiting validate_input_params';
6304: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6305: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6306:
6307: pa_debug.reset_err_stack;
6308: END IF;
6309: EXCEPTION
6384: pa_debug.g_err_stage:='All the attributes are null';
6385: pa_debug.write('validate_set_of_conv_attrs: ' || l_module_name,pa_debug.g_err_stage,3);
6386: END IF;
6387:
6388: IF(p_calling_context=PA_FP_CONSTANTS_PKG.G_CR_UP_PLAN_TYPE_PAGE) THEN
6389: /* Do Nothing as this will be checked in validate_currency_attributes */
6390: NULL;
6391: ELSE
6392: x_return_status := FND_API.G_RET_STS_ERROR;
6397: /*
6398: NOTE: The following message is different from the first error code that is being
6399: passed back. This specific message is being used as this accepts tokens.
6400: */
6401: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6402:
6403: PA_UTILS.ADD_MESSAGE
6404: (p_app_short_name => 'PA',
6405: p_msg_name => 'PA_FP_INVALID_RATE_TYPE_AMG',
6439: pa_debug.write('validate_set_of_conv_attrs: ' || l_module_name,pa_debug.g_err_stage,3);
6440: END IF;
6441:
6442: x_return_status := FND_API.G_RET_STS_ERROR;
6443: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6444:
6445: PA_UTILS.ADD_MESSAGE
6446: (p_app_short_name => 'PA',
6447: p_msg_name => 'PA_FP_INVALID_RATE_TYPE_AMG',
6470: IF x_first_error_code IS NULL THEN
6471: x_first_error_code := 'PA_FP_INVALID_RATE_TYPE';
6472: END IF;
6473:
6474: ELSIF (px_rate_type = PA_FP_CONSTANTS_PKG.G_RATE_TYPE_USER ) THEN
6475:
6476: IF l_debug_mode = 'Y' THEN
6477: pa_debug.g_err_stage:='Rate Type is User';
6478: pa_debug.write('validate_set_of_conv_attrs: ' || l_module_name,pa_debug.g_err_stage,3);
6477: pa_debug.g_err_stage:='Rate Type is User';
6478: pa_debug.write('validate_set_of_conv_attrs: ' || l_module_name,pa_debug.g_err_stage,3);
6479: END IF;
6480: --Added the constant G_AMG_API_HEADER as part of changes due to finplan model in AMG
6481: IF (px_rate IS NULL AND nvl(p_calling_context,'-99') NOT IN ( PA_FP_CONSTANTS_PKG.G_CR_UP_PLAN_TYPE_PAGE
6482: ,PA_FP_CONSTANTS_PKG.G_AMG_API_HEADER) )THEN
6483:
6484: /* on create update plan type it is allowed that when rate type is user there is no rate defined
6485: */
6478: pa_debug.write('validate_set_of_conv_attrs: ' || l_module_name,pa_debug.g_err_stage,3);
6479: END IF;
6480: --Added the constant G_AMG_API_HEADER as part of changes due to finplan model in AMG
6481: IF (px_rate IS NULL AND nvl(p_calling_context,'-99') NOT IN ( PA_FP_CONSTANTS_PKG.G_CR_UP_PLAN_TYPE_PAGE
6482: ,PA_FP_CONSTANTS_PKG.G_AMG_API_HEADER) )THEN
6483:
6484: /* on create update plan type it is allowed that when rate type is user there is no rate defined
6485: */
6486: x_return_status := FND_API.G_RET_STS_ERROR;
6484: /* on create update plan type it is allowed that when rate type is user there is no rate defined
6485: */
6486: x_return_status := FND_API.G_RET_STS_ERROR;
6487:
6488: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6489: PA_UTILS.ADD_MESSAGE
6490: (p_app_short_name => 'PA',
6491: p_msg_name => 'PA_FP_USER_EXCH_RATE_REQ_AMG',
6492: p_token1 => 'TASK',
6521:
6522: /* Null out the Rate Date Type and Rate Date */
6523: px_rate_date_type := null;
6524: px_rate_date := null;
6525: -- x_validity_code:=PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR; Not required
6526:
6527: END IF;
6528:
6529: IF x_first_error_code IS NULL THEN
6538: pa_debug.write('validate_set_of_conv_attrs: ' || l_module_name,pa_debug.g_err_stage,3);
6539: END IF;
6540:
6541: x_return_status := FND_API.G_RET_STS_ERROR;
6542: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6543:
6544: PA_UTILS.ADD_MESSAGE
6545: (p_app_short_name => 'PA',
6546: p_msg_name => 'PA_FP_INVALID_RATE_DT_TYP_AMG',
6569: x_first_error_code := 'PA_FP_INVALID_RATE_DATE_TYPE';
6570: END IF;
6571:
6572: /* this means that rate type is not null and its value is not user and rate_date_type value is FIXED */
6573: ELSIF px_rate_date_type = PA_FP_CONSTANTS_PKG.G_RATE_DATE_TYPE_FIXED_DATE THEN
6574:
6575: IF l_debug_mode = 'Y' THEN
6576: pa_debug.g_err_stage:='Rate Date Type is Fixed';
6577: pa_debug.write('validate_set_of_conv_attrs: ' || l_module_name,pa_debug.g_err_stage,3);
6580: /* Rate Date Should not be null */
6581: IF (px_rate_date IS NULL) THEN
6582:
6583: x_return_status := FND_API.G_RET_STS_ERROR;
6584: IF (p_calling_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6585: PA_UTILS.ADD_MESSAGE
6586: (p_app_short_name => 'PA',
6587: p_msg_name => 'PA_FP_INVALID_RATE_DATE_AMG',
6588: p_token1 => 'TASK',
6609: x_first_error_code := 'PA_FP_INVALID_RATE_DATE';
6610: END IF;
6611: ELSE
6612: px_rate:=null;
6613: -- x_validity_code := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR; Not required
6614: END IF;
6615:
6616: /* This means that rate type is not null and its value is not user
6617: and rate_date_type is not null and its value is NOT FIXED. This is a valid set.*/
6618: ELSE
6619: /* CHECK IF THIS NEEDS TO BE DONE IN CASE ITS CALLED FROM EDIT PLAN LINE PAGES */
6620: px_rate_date := null;
6621: px_rate := null;
6622: -- x_validity_code:=PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6623:
6624: END IF;
6625:
6626: IF l_debug_mode = 'Y' THEN
6625:
6626: IF l_debug_mode = 'Y' THEN
6627: pa_debug.g_err_stage:= 'Exiting validate_conv_attributes';
6628: pa_debug.write(l_module_name,pa_debug.g_err_stage,
6629: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
6630:
6631: pa_debug.reset_err_stack;
6632: END IF;
6633: EXCEPTION
6696: l_rate_date_type pa_proj_fp_options.project_cost_rate_date_type%TYPE;
6697: l_rate_date pa_proj_fp_options.project_cost_rate_date%TYPE;
6698: l_rate pa_budget_lines.project_rev_exchange_rate%TYPE ;
6699: l_validity_code VARCHAR2(30);*/
6700: l_pc_cost_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6701: l_pc_rev_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6702: l_pfc_cost_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6703: l_pfc_rev_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6704: l_project_token fnd_new_messages.message_text%TYPE; --bug 2848406 VARCHAR2(30);
6697: l_rate_date pa_proj_fp_options.project_cost_rate_date%TYPE;
6698: l_rate pa_budget_lines.project_rev_exchange_rate%TYPE ;
6699: l_validity_code VARCHAR2(30);*/
6700: l_pc_cost_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6701: l_pc_rev_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6702: l_pfc_cost_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6703: l_pfc_rev_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6704: l_project_token fnd_new_messages.message_text%TYPE; --bug 2848406 VARCHAR2(30);
6705: l_projfunc_token fnd_new_messages.message_text%TYPE; --bug 2848406 VARCHAR2(30);
6698: l_rate pa_budget_lines.project_rev_exchange_rate%TYPE ;
6699: l_validity_code VARCHAR2(30);*/
6700: l_pc_cost_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6701: l_pc_rev_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6702: l_pfc_cost_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6703: l_pfc_rev_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6704: l_project_token fnd_new_messages.message_text%TYPE; --bug 2848406 VARCHAR2(30);
6705: l_projfunc_token fnd_new_messages.message_text%TYPE; --bug 2848406 VARCHAR2(30);
6706: l_cost_token fnd_new_messages.message_text%TYPE; --bug 2848406 VARCHAR2(30);
6699: l_validity_code VARCHAR2(30);*/
6700: l_pc_cost_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6701: l_pc_rev_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6702: l_pfc_cost_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6703: l_pfc_rev_validity_code VARCHAR2(30) := PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR;
6704: l_project_token fnd_new_messages.message_text%TYPE; --bug 2848406 VARCHAR2(30);
6705: l_projfunc_token fnd_new_messages.message_text%TYPE; --bug 2848406 VARCHAR2(30);
6706: l_cost_token fnd_new_messages.message_text%TYPE; --bug 2848406 VARCHAR2(30);
6707: l_rev_token fnd_new_messages.message_text%TYPE; --bug 2848406 VARCHAR2(30);
6748: IF l_debug_mode = 'Y' THEN
6749: pa_debug.g_err_stage := 'Invalid parameters passed' ;
6750: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,1);
6751: END IF;
6752: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6753:
6754: END IF;
6755:
6756:
6760: END IF;
6761:
6762: /*Get the message tokens that may be required while validating the attributes*/
6763:
6764: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_COST_TOKEN_MESSAGE);
6765: l_cost_token := FND_MESSAGE.GET;
6766:
6767: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_REV_TOKEN_MESSAGE);
6768: l_rev_token := FND_MESSAGE.GET;
6763:
6764: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_COST_TOKEN_MESSAGE);
6765: l_cost_token := FND_MESSAGE.GET;
6766:
6767: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_REV_TOKEN_MESSAGE);
6768: l_rev_token := FND_MESSAGE.GET;
6769:
6770: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_PROJECT_TOKEN_MESSAGE);
6771: l_project_token := FND_MESSAGE.GET;
6766:
6767: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_REV_TOKEN_MESSAGE);
6768: l_rev_token := FND_MESSAGE.GET;
6769:
6770: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_PROJECT_TOKEN_MESSAGE);
6771: l_project_token := FND_MESSAGE.GET;
6772:
6773: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_PROJFUNC_TOKEN_MESSAGE);
6774: l_projfunc_token := FND_MESSAGE.GET;
6769:
6770: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_PROJECT_TOKEN_MESSAGE);
6771: l_project_token := FND_MESSAGE.GET;
6772:
6773: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_PROJFUNC_TOKEN_MESSAGE);
6774: l_projfunc_token := FND_MESSAGE.GET;
6775:
6776: IF (p_context=PA_FP_CONSTANTS_PKG.G_AMG_API_HEADER OR
6777: p_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6772:
6773: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_PROJFUNC_TOKEN_MESSAGE);
6774: l_projfunc_token := FND_MESSAGE.GET;
6775:
6776: IF (p_context=PA_FP_CONSTANTS_PKG.G_AMG_API_HEADER OR
6777: p_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6778:
6779: VALIDATE_INPUT_PARAMS(p_project_cost_rate_type => px_project_cost_rate_type
6780: ,p_project_cost_rate_date_typ => px_project_cost_rate_date_typ
6773: FND_MESSAGE.SET_NAME ('PA',PA_FP_CONSTANTS_PKG.G_PROJFUNC_TOKEN_MESSAGE);
6774: l_projfunc_token := FND_MESSAGE.GET;
6775:
6776: IF (p_context=PA_FP_CONSTANTS_PKG.G_AMG_API_HEADER OR
6777: p_context=PA_FP_CONSTANTS_PKG.G_AMG_API_DETAIL ) THEN
6778:
6779: VALIDATE_INPUT_PARAMS(p_project_cost_rate_type => px_project_cost_rate_type
6780: ,p_project_cost_rate_date_typ => px_project_cost_rate_date_typ
6781: ,p_projfunc_cost_rate_type => px_projfunc_cost_rate_type
6797: IF l_debug_mode = 'Y' THEN
6798: pa_debug.g_err_stage := 'Values for rate type and rate date types are not valied' ;
6799: pa_debug.write('validate_currency_attributes: ' || l_module_name,pa_debug.g_err_stage,1);
6800: END IF;
6801: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
6802:
6803: END IF;
6804: END IF;
6805:
6811: /* initialize any error occurred flag to N */
6812: l_any_error_occurred_flag := 'N';
6813:
6814: /* Initialize the globals to null in webadi context */
6815: IF p_context = PA_FP_CONSTANTS_PKG.G_WEBADI THEN
6816: g_first_error_code := NULL;
6817: g_pc_pfc_context := NULL;
6818: g_cost_rev_context := NULL;
6819: END IF;
6817: g_pc_pfc_context := NULL;
6818: g_cost_rev_context := NULL;
6819: END IF;
6820:
6821: IF(p_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST OR
6822: p_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH) THEN
6823:
6824: -- Txn curr code <> PFC
6825: --IF PFC needs to be validated THEN
6818: g_cost_rev_context := NULL;
6819: END IF;
6820:
6821: IF(p_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST OR
6822: p_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH) THEN
6823:
6824: -- Txn curr code <> PFC
6825: --IF PFC needs to be validated THEN
6826: IF nvl(p_txn_currency_code,'-99') <> p_projfunc_currency_code THEN
6844: END IF;
6845: l_any_error_occurred_flag := 'Y';
6846:
6847: /* webADI looks only for the first error message */
6848: --IF p_context = PA_FP_CONSTANTS_PKG.G_WEBADI and
6849: IF g_first_error_code IS NULL and
6850: l_first_error_code IS NOT NULL THEN
6851:
6852: g_first_error_code := l_first_error_code;
6849: IF g_first_error_code IS NULL and
6850: l_first_error_code IS NOT NULL THEN
6851:
6852: g_first_error_code := l_first_error_code;
6853: g_pc_pfc_context := PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJFUNC;
6854: g_cost_rev_context := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
6855:
6856: /* No further processing is required in context of webadi */
6857: --RETURN;
6850: l_first_error_code IS NOT NULL THEN
6851:
6852: g_first_error_code := l_first_error_code;
6853: g_pc_pfc_context := PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJFUNC;
6854: g_cost_rev_context := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
6855:
6856: /* No further processing is required in context of webadi */
6857: --RETURN;
6858:
6858:
6859: END IF;
6860: END IF;
6861:
6862: l_pfc_cost_validity_code := nvl(l_first_error_code,PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR);
6863:
6864: END IF;
6865:
6866: --IF PC needs to be validated THEN
6886: END IF;
6887: l_any_error_occurred_flag := 'Y';
6888:
6889: /* webADI looks only for the first error message */
6890: --IF p_context = PA_FP_CONSTANTS_PKG.G_WEBADI and
6891: IF g_first_error_code IS NULL and
6892: l_first_error_code IS NOT NULL
6893: THEN
6894: g_first_error_code := l_first_error_code;
6891: IF g_first_error_code IS NULL and
6892: l_first_error_code IS NOT NULL
6893: THEN
6894: g_first_error_code := l_first_error_code;
6895: g_pc_pfc_context := PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJECT;
6896: g_cost_rev_context := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
6897:
6898: /* No further processing is required in context of webadi */
6899: -- RETURN;
6892: l_first_error_code IS NOT NULL
6893: THEN
6894: g_first_error_code := l_first_error_code;
6895: g_pc_pfc_context := PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJECT;
6896: g_cost_rev_context := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_COST;
6897:
6898: /* No further processing is required in context of webadi */
6899: -- RETURN;
6900: END IF;
6899: -- RETURN;
6900: END IF;
6901:
6902: END IF;
6903: l_pc_cost_validity_code := nvl(l_first_error_code,PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR);
6904: END IF;
6905:
6906: -- If PC = PFC copy the PFC attributes to PC. WEBADI UT
6907: IF p_project_currency_code = p_projfunc_currency_code THEN
6912: END IF;
6913:
6914: END IF; -- element type cost or both.
6915:
6916: IF(p_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE OR
6917: p_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH) THEN
6918:
6919: --IF PFC needs to be validated THEN
6920: IF nvl(p_txn_currency_code,'-99') <> p_projfunc_currency_code THEN
6913:
6914: END IF; -- element type cost or both.
6915:
6916: IF(p_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE OR
6917: p_attrs_to_be_validated = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH) THEN
6918:
6919: --IF PFC needs to be validated THEN
6920: IF nvl(p_txn_currency_code,'-99') <> p_projfunc_currency_code THEN
6921: /* Validate the project functional Cost attributes*/
6937: END IF;
6938: l_any_error_occurred_flag := 'Y';
6939:
6940: /* webADI looks only for the first error message */
6941: --IF p_context = PA_FP_CONSTANTS_PKG.G_WEBADI and
6942: IF g_first_error_code IS NULL and
6943: l_first_error_code IS NOT NULL
6944: THEN
6945: g_first_error_code := l_first_error_code;
6942: IF g_first_error_code IS NULL and
6943: l_first_error_code IS NOT NULL
6944: THEN
6945: g_first_error_code := l_first_error_code;
6946: g_pc_pfc_context := PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJFUNC;
6947: g_cost_rev_context := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
6948:
6949: /* No further processing is required in context of webadi */
6950: --RETURN;
6943: l_first_error_code IS NOT NULL
6944: THEN
6945: g_first_error_code := l_first_error_code;
6946: g_pc_pfc_context := PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJFUNC;
6947: g_cost_rev_context := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
6948:
6949: /* No further processing is required in context of webadi */
6950: --RETURN;
6951: END IF;
6951: END IF;
6952:
6953: END IF;
6954:
6955: l_pfc_rev_validity_code := nvl(l_first_error_code,PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR);
6956: END IF;
6957:
6958: --IF PC needs to be validated THEN
6959: IF nvl(p_txn_currency_code,'-99') <> p_project_currency_code AND
6978: END IF;
6979: l_any_error_occurred_flag := 'Y';
6980:
6981: /* webADI looks only for the first error message */
6982: --IF p_context = PA_FP_CONSTANTS_PKG.G_WEBADI and
6983: IF g_first_error_code IS NULL and
6984: l_first_error_code IS NOT NULL
6985: THEN
6986: g_first_error_code := l_first_error_code;
6983: IF g_first_error_code IS NULL and
6984: l_first_error_code IS NOT NULL
6985: THEN
6986: g_first_error_code := l_first_error_code;
6987: g_pc_pfc_context := PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJECT;
6988: g_cost_rev_context := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
6989:
6990: /* No further processing is required in context of webadi */
6991: --RETURN;
6984: l_first_error_code IS NOT NULL
6985: THEN
6986: g_first_error_code := l_first_error_code;
6987: g_pc_pfc_context := PA_FP_CONSTANTS_PKG.G_CURRENCY_TYPE_PROJECT;
6988: g_cost_rev_context := PA_FP_CONSTANTS_PKG.G_AMOUNT_TYPE_REVENUE;
6989:
6990: /* No further processing is required in context of webadi */
6991: --RETURN;
6992:
6992:
6993: END IF;
6994:
6995: END IF;
6996: l_pc_rev_validity_code := nvl(l_first_error_code,PA_FP_CONSTANTS_PKG.G_VALID_CONV_ATTR);
6997: END IF;
6998:
6999: -- If PC = PFC copy the PFC attributes to PC. WEBADI UT
7000: IF p_project_currency_code = p_projfunc_currency_code THEN
7010:
7011: IF l_debug_mode='Y' THEN
7012: pa_debug.g_err_stage:= 'p_context is '||p_context;
7013: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7014: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7015: END IF;
7016:
7017: IF (p_context=PA_FP_CONSTANTS_PKG.G_CR_UP_PLAN_TYPE_PAGE) THEN
7018:
7013: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7014: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7015: END IF;
7016:
7017: IF (p_context=PA_FP_CONSTANTS_PKG.G_CR_UP_PLAN_TYPE_PAGE) THEN
7018:
7019: /*Either all the cost attributes should be null or both project and project functional
7020: cost attributes should be valid
7021: */
7075:
7076: IF l_any_error_occurred_flag = 'Y' THEN
7077: IF l_debug_mode='Y' THEN
7078: pa_debug.g_err_stage:= 'some of the conversion attributes failed.. Returning error';
7079: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7080: END IF;
7081:
7082: x_return_status := FND_API.G_RET_STS_ERROR;
7083: END IF;
7084:
7085: IF l_debug_mode='Y' THEN
7086: pa_debug.g_err_stage:= 'Exiting validate_currency_attributes';
7087: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7088: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7089:
7090: pa_debug.reset_err_stack;
7091: END IF;
7092: EXCEPTION
7089:
7090: pa_debug.reset_err_stack;
7091: END IF;
7092: EXCEPTION
7093: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7094: x_return_status := FND_API.G_RET_STS_ERROR;
7095: l_msg_count := FND_MSG_PUB.count_msg;
7096: IF l_msg_count = 1 THEN
7097: PA_INTERFACE_UTILS_PUB.get_messages
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:
7183: IF l_debug_mode = 'Y' THEN
7184: pa_debug.g_err_stage:= 'Validating input parameters';
7182:
7183: IF l_debug_mode = 'Y' THEN
7184: pa_debug.g_err_stage:= 'Validating input parameters';
7185: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7186: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7187: END IF;
7188:
7189: IF (p_plan_version_id IS NULL) THEN
7190: IF l_debug_mode = 'Y' THEN
7189: IF (p_plan_version_id IS NULL) THEN
7190: IF l_debug_mode = 'Y' THEN
7191: pa_debug.g_err_stage:= 'plan version id is null';
7192: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7193: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7194: END IF;
7195: PA_UTILS.ADD_MESSAGE
7196: (p_app_short_name => 'PA',
7197: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7194: END IF;
7195: PA_UTILS.ADD_MESSAGE
7196: (p_app_short_name => 'PA',
7197: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7198: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7199:
7200: END IF;
7201:
7202: open plan_type_cur(p_plan_version_id);
7205:
7206: IF plan_type_cur%NOTFOUND THEN
7207: IF l_debug_mode = 'Y' THEN
7208: pa_debug.g_err_stage:= 'Plan type record not found';
7209: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7210: END IF;
7211: CLOSE plan_type_cur;
7212: RAISE NO_DATA_FOUND;
7213: END IF;
7215: CLOSE plan_type_cur;
7216:
7217: IF l_debug_mode = 'Y' THEN
7218: pa_debug.g_err_stage:= 'Plan type id->'||x_fin_plan_type_id;
7219: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7220: pa_debug.g_err_stage:= 'Plan type option id->'||x_plan_type_option_id;
7221: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7222: END IF;
7223:
7217: IF l_debug_mode = 'Y' THEN
7218: pa_debug.g_err_stage:= 'Plan type id->'||x_fin_plan_type_id;
7219: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7220: pa_debug.g_err_stage:= 'Plan type option id->'||x_plan_type_option_id;
7221: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7222: END IF;
7223:
7224: IF l_debug_mode = 'Y' THEN
7225: pa_debug.g_err_stage:= 'Exiting GET_PLAN_TYPE_OPTS_FOR_VER';
7223:
7224: IF l_debug_mode = 'Y' THEN
7225: pa_debug.g_err_stage:= 'Exiting GET_PLAN_TYPE_OPTS_FOR_VER';
7226: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7227: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7228: pa_debug.reset_err_stack;
7229:
7230: END IF;
7231:
7230: END IF;
7231:
7232: EXCEPTION
7233:
7234: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7235:
7236: x_return_status := FND_API.G_RET_STS_ERROR;
7237: l_msg_count := FND_MSG_PUB.count_msg;
7238:
7267:
7268: IF l_debug_mode = 'Y' THEN
7269: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7270: pa_debug.write(L_module_name,pa_debug.g_err_stage,
7271: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7272: pa_debug.reset_err_stack;
7273:
7274: END IF;
7275: RAISE;
7313: IF (p_project_id IS NULL)
7314: THEN
7315: IF p_pa_debug_mode = 'Y' THEN
7316: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
7317: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7318: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
7319: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7320: END IF;
7321: PA_UTILS.ADD_MESSAGE
7315: IF p_pa_debug_mode = 'Y' THEN
7316: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
7317: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7318: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
7319: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7320: END IF;
7321: PA_UTILS.ADD_MESSAGE
7322: (p_app_short_name => 'PA',
7323: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7320: END IF;
7321: PA_UTILS.ADD_MESSAGE
7322: (p_app_short_name => 'PA',
7323: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7324: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7325: END IF;
7326:
7327: -- Fetch the cost rate types for project currency and projfunc currency
7328:
7327: -- Fetch the cost rate types for project currency and projfunc currency
7328:
7329: IF p_pa_debug_mode = 'Y' THEN
7330: pa_debug.g_err_stage:= 'Fetching cost rate types for project = '||p_project_id;
7331: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7332: END IF;
7333:
7334: SELECT p.multi_currency_billing_flag
7335: ,p.project_currency_code
7354: This has been added as part of code merge */
7355:
7356: IF p_pa_debug_mode = 'Y' THEN
7357: pa_debug.g_err_stage:= 'Exiting Get_Project_Curr_Attributes';
7358: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7359: pa_debug.reset_curr_function;
7360: END IF;
7361: EXCEPTION
7362:
7359: pa_debug.reset_curr_function;
7360: END IF;
7361: EXCEPTION
7362:
7363: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7364:
7365: x_return_status := FND_API.G_RET_STS_ERROR;
7366: l_msg_count := FND_MSG_PUB.count_msg;
7367: IF l_msg_count = 1 THEN
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;
7395: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7396: pa_debug.reset_curr_function;
7397: END IF;
7398: RAISE;
7399: END Get_Project_Curr_Attributes;
7422: pft.use_for_workplan_flag -- Added for FP.M ,Tracking Bug No - 3354518
7423: FROM pa_projects_all pr, pa_proj_fp_options pfo,
7424: pa_fin_plan_types_b pft -- Added for FP.M ,Tracking Bug No - 3354518
7425: WHERE pr.project_id = pfo.project_id
7426: AND pfo.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
7427: AND pfo.fin_plan_type_id = p_fin_plan_type_id
7428: AND pfo.project_id = p_project_id
7429: AND pft.fin_plan_type_id = p_fin_plan_type_id; -- Added for FP.M ,Tracking Bug No - 3354518
7430:
7444:
7445: IF l_debug_mode = 'Y' THEN
7446: pa_debug.g_err_stage:= 'Validating input parameters';
7447: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7448: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7449: END IF;
7450:
7451: IF (p_project_id IS NULL) OR (p_fin_plan_type_id IS NULL)
7452: THEN
7452: THEN
7453: IF l_debug_mode = 'Y' THEN
7454: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
7455: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7456: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7457: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '|| p_fin_plan_type_id;
7458: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7459: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7460: END IF;
7455: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7456: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7457: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '|| p_fin_plan_type_id;
7458: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7459: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7460: END IF;
7461: PA_UTILS.ADD_MESSAGE
7462: (p_app_short_name => 'PA',
7463: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7460: END IF;
7461: PA_UTILS.ADD_MESSAGE
7462: (p_app_short_name => 'PA',
7463: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7464: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7465:
7466: END IF;
7467:
7468: x_creation_allowed := 'Y';
7484:
7485: IF l_debug_mode = 'Y' THEN
7486: pa_debug.g_err_stage:= 'Exiting IsRevVersionCreationAllowed';
7487: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7488: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7489: pa_debug.reset_curr_function;
7490: END IF;
7491: EXCEPTION
7492:
7489: pa_debug.reset_curr_function;
7490: END IF;
7491: EXCEPTION
7492:
7493: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7494:
7495: x_return_status := FND_API.G_RET_STS_ERROR;
7496: l_msg_count := FND_MSG_PUB.count_msg;
7497:
7534:
7535: IF l_debug_mode = 'Y' THEN
7536: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7537: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7538: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7539: pa_debug.reset_curr_function;
7540: END IF;
7541: RAISE;
7542:
7585:
7586: IF l_debug_mode = 'Y' THEN
7587: pa_debug.g_err_stage:= 'Validating input parameters';
7588: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7589: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7590: END IF;
7591:
7592: IF (p_lookup_type IS NULL) OR
7593: (p_lookup_meaning IS NULL)
7594: THEN
7595: IF l_debug_mode = 'Y' THEN
7596: pa_debug.g_err_stage:= 'p_lookup_type = '|| p_lookup_type;
7597: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7598: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7599: pa_debug.g_err_stage:= 'p_lookup_meaning = '|| p_lookup_meaning;
7600: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7601: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7602: END IF;
7597: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7598: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7599: pa_debug.g_err_stage:= 'p_lookup_meaning = '|| p_lookup_meaning;
7600: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7601: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7602: END IF;
7603: PA_UTILS.ADD_MESSAGE
7604: (p_app_short_name => 'PA',
7605: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7602: END IF;
7603: PA_UTILS.ADD_MESSAGE
7604: (p_app_short_name => 'PA',
7605: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7606: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7607:
7608: END IF;
7609:
7610: open lookups_cur;
7614: IF lookups_cur%NOTFOUND THEN
7615: IF l_debug_mode = 'Y' THEN
7616: pa_debug.g_err_stage:= 'could not obtain lookup code';
7617: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7618: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7619: END IF;
7620: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7621: END IF;
7622:
7616: pa_debug.g_err_stage:= 'could not obtain lookup code';
7617: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7618: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7619: END IF;
7620: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7621: END IF;
7622:
7623: close lookups_cur;
7624:
7624:
7625: IF l_debug_mode = 'Y' THEN
7626: pa_debug.g_err_stage:= 'Exiting GET_LOOKUP_CODE';
7627: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7628: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
7629: pa_debug.reset_curr_function;
7630: END IF;
7631: EXCEPTION
7632:
7629: pa_debug.reset_curr_function;
7630: END IF;
7631: EXCEPTION
7632:
7633: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7634:
7635: x_return_status := FND_API.G_RET_STS_ERROR;
7636: l_msg_count := FND_MSG_PUB.count_msg;
7637:
7674:
7675: IF l_debug_mode = 'Y' THEN
7676: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
7677: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7678: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7679: pa_debug.reset_curr_function;
7680: END IF;
7681: RAISE;
7682:
7724: SELECT fin_plan_preference_code
7725: FROM pa_proj_fp_options
7726: WHERE project_id=p_project_id
7727: AND fin_plan_type_id=p_fin_plan_type_id
7728: AND fin_plan_option_level_code= PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
7729:
7730: l_proj_fp_options_rec l_proj_fp_options_csr%ROWTYPE;
7731:
7732: l_msg_count NUMBER := 0;
7773: p_token3 => 'VERSION_TYPE',
7774: p_value3 => px_version_type);
7775:
7776: x_return_status := FND_API.G_RET_STS_ERROR;
7777: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7778:
7779: END;
7780:
7781: -- Get the segment1 of the project
7792:
7793: IF l_debug_mode = 'Y' THEN
7794: pa_debug.g_err_stage:= 'p_project_id = '|| p_project_id;
7795: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7796: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7797: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '|| p_fin_plan_type_id;
7798: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7799: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7800: END IF;
7795: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7796: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7797: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '|| p_fin_plan_type_id;
7798: pa_debug.write(l_module_name,pa_debug.g_err_stage,
7799: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
7800: END IF;
7801:
7802: PA_UTILS.ADD_MESSAGE
7803: (p_app_short_name => 'PA',
7808: p_value2 => l_fin_plan_type_name);
7809:
7810:
7811: CLOSE l_proj_fp_options_csr;
7812: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7813:
7814: END IF;
7815: CLOSE l_proj_fp_options_csr;
7816:
7814: END IF;
7815: CLOSE l_proj_fp_options_csr;
7816:
7817: IF (l_proj_fp_options_rec.fin_plan_preference_code
7818: =PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY) THEN
7819:
7820: IF ( px_version_type IS NULL ) THEN
7821:
7822: px_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ;
7818: =PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY) THEN
7819:
7820: IF ( px_version_type IS NULL ) THEN
7821:
7822: px_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ;
7823:
7824: ELSIF(px_version_type <> PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
7825:
7826: IF l_debug_mode = 'Y' THEN
7820: IF ( px_version_type IS NULL ) THEN
7821:
7822: px_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST ;
7823:
7824: ELSIF(px_version_type <> PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) THEN
7825:
7826: IF l_debug_mode = 'Y' THEN
7827: pa_debug.g_err_stage := 'Version type passed is '||px_version_type ;
7828: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7838: p_token3 => 'VERSION_TYPE',
7839: p_value3 => px_version_type);
7840:
7841: x_return_status := FND_API.G_RET_STS_ERROR;
7842: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7843:
7844: END IF;
7845:
7846: ELSIF (l_proj_fp_options_rec.fin_plan_preference_code
7843:
7844: END IF;
7845:
7846: ELSIF (l_proj_fp_options_rec.fin_plan_preference_code
7847: =PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
7848:
7849: IF ( px_version_type IS NULL) THEN
7850:
7851: px_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ;
7847: =PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
7848:
7849: IF ( px_version_type IS NULL) THEN
7850:
7851: px_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ;
7852:
7853: ELSIF(px_version_type <> PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
7854:
7855: IF l_debug_mode = 'Y' THEN
7849: IF ( px_version_type IS NULL) THEN
7850:
7851: px_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE ;
7852:
7853: ELSIF(px_version_type <> PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
7854:
7855: IF l_debug_mode = 'Y' THEN
7856: pa_debug.g_err_stage := 'Version type passed is '||px_version_type ;
7857: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
7866: p_value2 => l_fin_plan_type_name,
7867: p_token3 => 'VERSION_TYPE',
7868: p_value3 => px_version_type);
7869: x_return_status := FND_API.G_RET_STS_ERROR;
7870: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7871:
7872: END IF;
7873:
7874: ELSIF (l_proj_fp_options_rec.fin_plan_preference_code
7871:
7872: END IF;
7873:
7874: ELSIF (l_proj_fp_options_rec.fin_plan_preference_code
7875: =PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME) THEN
7876:
7877: IF ( px_version_type IS NULL ) THEN
7878:
7879: px_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL ;
7875: =PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME) THEN
7876:
7877: IF ( px_version_type IS NULL ) THEN
7878:
7879: px_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL ;
7880:
7881: ELSIF(px_version_type <> PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
7882:
7883: IF l_debug_mode = 'Y' THEN
7877: IF ( px_version_type IS NULL ) THEN
7878:
7879: px_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL ;
7880:
7881: ELSIF(px_version_type <> PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL) THEN
7882:
7883: IF l_debug_mode = 'Y' THEN
7884: pa_debug.g_err_stage := 'Version type passed is '||px_version_type ;
7885: pa_debug.write(l_module_name,pa_debug.g_err_stage, l_debug_level3);
7895: p_token3 => 'VERSION_TYPE',
7896: p_value3 => px_version_type);
7897:
7898: x_return_status := FND_API.G_RET_STS_ERROR;
7899: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7900:
7901: END IF;
7902:
7903: ELSIF (l_proj_fp_options_rec.fin_plan_preference_code
7900:
7901: END IF;
7902:
7903: ELSIF (l_proj_fp_options_rec.fin_plan_preference_code
7904: =PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) THEN
7905:
7906: IF( px_version_type IS NULL) THEN
7907:
7908: IF l_debug_mode = 'Y' THEN
7917: p_value1 => l_segment1,
7918: p_token2 => 'PLAN_TYPE',
7919: p_value2 => l_fin_plan_type_name);
7920: x_return_status := FND_API.G_RET_STS_ERROR;
7921: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7922:
7923: ELSIF( px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
7924: OR px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
7925:
7919: p_value2 => l_fin_plan_type_name);
7920: x_return_status := FND_API.G_RET_STS_ERROR;
7921: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7922:
7923: ELSIF( px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
7924: OR px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
7925:
7926: px_version_type:= px_version_type ;
7927: ELSE-- version type is neither COST nor REVENUE
7920: x_return_status := FND_API.G_RET_STS_ERROR;
7921: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7922:
7923: ELSIF( px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST
7924: OR px_version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
7925:
7926: px_version_type:= px_version_type ;
7927: ELSE-- version type is neither COST nor REVENUE
7928:
7941: p_token3 => 'VERSION_TYPE',
7942: p_value3 => px_version_type);
7943:
7944: x_return_status := FND_API.G_RET_STS_ERROR;
7945: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7946:
7947: END IF;
7948:
7949: END IF;--Version type derivation ends
7956: pa_debug.reset_curr_function;
7957: END IF;
7958: EXCEPTION
7959:
7960: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7961:
7962: IF x_return_status IS NULL OR
7963: x_return_status = FND_API.G_RET_STS_SUCCESS THEN
7964: x_return_status := FND_API.G_RET_STS_ERROR;
8084:
8085: PA_UTILS.ADD_MESSAGE
8086: (p_app_short_name => 'PA',
8087: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8088: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8089:
8090: END IF;
8091:
8092: OPEN l_budget_version_id_csr ;
8099: pa_debug.reset_curr_function;
8100: END IF;
8101:
8102: EXCEPTION
8103: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8104:
8105: x_return_status := FND_API.G_RET_STS_ERROR;
8106: l_msg_count := FND_MSG_PUB.count_msg;
8107:
8203:
8204: PA_UTILS.ADD_MESSAGE
8205: (p_app_short_name => 'PA',
8206: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8207: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8208:
8209: END IF;
8210:
8211: OPEN l_autobaseline_check_csr;
8216: pa_debug.g_err_stage:= 'p_budget_version_id is ' || p_budget_version_id;
8217: pa_debug.write(l_module,pa_debug.g_err_stage,l_debug_level3);
8218: END IF;
8219: CLOSE l_autobaseline_check_csr;
8220: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8221:
8222: END IF;
8223: CLOSE l_autobaseline_check_csr;
8224:
8223: CLOSE l_autobaseline_check_csr;
8224:
8225: IF (l_autobaseline_check_rec.baseline_funding_flag='Y') THEN
8226: IF nvl( l_autobaseline_check_rec.budget_type_code,'N')=
8227: PA_FP_CONSTANTS_PKG.G_BUDGET_TYPE_CODE_AR THEN
8228:
8229: IF l_debug_mode = 'Y' THEN
8230: pa_debug.g_err_stage := 'Auto base line error in budget model' ;
8231: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8234: x_result := 'F';
8235:
8236: ELSIF (l_autobaseline_check_rec.budget_type_code IS NULL AND
8237: l_autobaseline_check_rec.approved_rev_plan_type_flag = 'Y' AND
8238: l_autobaseline_check_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) THEN
8239:
8240: IF l_debug_mode = 'Y' THEN
8241: pa_debug.g_err_stage := 'Auto base line error in finplan model' ;
8242: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8253: pa_debug.write(l_module,pa_debug.g_err_stage,l_debug_level3);
8254: pa_debug.reset_curr_function;
8255: END IF;
8256: EXCEPTION
8257: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8258:
8259: x_return_status := FND_API.G_RET_STS_ERROR;
8260: l_msg_count := FND_MSG_PUB.count_msg;
8261:
8328: IF (p_budget_type_code IS NULL)
8329: THEN
8330: IF p_pa_debug_mode = 'Y' THEN
8331: pa_debug.g_err_stage:= 'p_budget_type_code = '|| p_budget_type_code;
8332: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8333: END IF;
8334: PA_UTILS.ADD_MESSAGE
8335: (p_app_short_name => 'PA',
8336: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8333: END IF;
8334: PA_UTILS.ADD_MESSAGE
8335: (p_app_short_name => 'PA',
8336: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
8337: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8338: END IF;
8339:
8340: -- derive version type using the budget amount code
8341:
8339:
8340: -- derive version type using the budget amount code
8341:
8342: BEGIN
8343: SELECT DECODE(budget_amount_code, 'C', PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST,
8344: 'R', PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE,
8345: 'ALL', PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL)
8346: INTO x_version_type
8347: FROM pa_budget_types
8340: -- derive version type using the budget amount code
8341:
8342: BEGIN
8343: SELECT DECODE(budget_amount_code, 'C', PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST,
8344: 'R', PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE,
8345: 'ALL', PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL)
8346: INTO x_version_type
8347: FROM pa_budget_types
8348: WHERE budget_type_code = p_budget_type_code;
8341:
8342: BEGIN
8343: SELECT DECODE(budget_amount_code, 'C', PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_COST,
8344: 'R', PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_REVENUE,
8345: 'ALL', PA_FP_CONSTANTS_PKG.G_VERSION_TYPE_ALL)
8346: INTO x_version_type
8347: FROM pa_budget_types
8348: WHERE budget_type_code = p_budget_type_code;
8349: EXCEPTION
8349: EXCEPTION
8350: WHEN NO_DATA_FOUND THEN
8351: IF p_pa_debug_mode = 'Y' THEN
8352: pa_debug.g_err_stage:= 'no data found error in get_version_type_for_bdgt_type'||SQLERRM;
8353: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8354: END IF;
8355:
8356: PA_UTILS.ADD_MESSAGE(
8357: p_app_short_name => 'PA'
8356: PA_UTILS.ADD_MESSAGE(
8357: p_app_short_name => 'PA'
8358: ,p_msg_name => 'PA_BUDGET_TYPE_IS_INVALID' );
8359:
8360: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8361: END;
8362:
8363: IF p_pa_debug_mode = 'Y' THEN
8364: pa_debug.g_err_stage:= 'Exiting get_version_type_for_bdgt_type';
8361: END;
8362:
8363: IF p_pa_debug_mode = 'Y' THEN
8364: pa_debug.g_err_stage:= 'Exiting get_version_type_for_bdgt_type';
8365: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
8366: pa_debug.reset_curr_function;
8367: END IF;
8368: EXCEPTION
8369:
8366: pa_debug.reset_curr_function;
8367: END IF;
8368: EXCEPTION
8369:
8370: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8371:
8372: x_return_status := FND_API.G_RET_STS_ERROR;
8373: l_msg_count := FND_MSG_PUB.count_msg;
8374: IF l_msg_count = 1 THEN
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;
8402: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
8403: pa_debug.reset_curr_function;
8404: END IF;
8405: RAISE;
8406: END get_version_type_for_bdgt_type;
8536: WHERE budget_version_id = p_budget_version_id;
8537:
8538: if l_budget_status_code = 'S' then
8539: if p_context <> 'WEBADI' then
8540: IF p_context <> PA_FP_CONSTANTS_PKG.G_AMG_API THEN
8541:
8542: x_err_code := 'PA_FP_ATTACH_SUBMITTED';
8543:
8544: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
8586: p_data => x_msg_data,
8587: p_msg_index_out => l_msg_index_out);
8588: end if;
8589: */
8590: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
8591: ELSE
8592: -- AMG context
8593: x_err_code := 'PA_FP_SUBMITTED_VERSION';
8594:
8607:
8608: x_msg_data := l_data;
8609: x_msg_count := l_msg_count;
8610:
8611: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
8612: END IF;
8613: ELSE -- p_context = 'WEBADI'
8614: IF l_debug_mode = 'Y' THEN
8615: pa_debug.g_err_stage:='Web ADI: Submitted Error';
8619: END IF;
8620:
8621: x_err_code := 'PA_FP_WA_BV_SUBMITTED_ERR';
8622:
8623: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
8624: end if; -- p_context
8625: end if; -- version submitted
8626:
8627: -- Bug 3057564, jwhite, 22-JUL-03 -----------------------------
8628: -- Add logic for plan version locked by a process
8629:
8630: IF ( ( nvl( x_locked_by_person_id,0) = -98 )
8631: AND ( l_request_id is NOT NULL ) ) THEN
8632: IF p_context <> PA_FP_CONSTANTS_PKG.G_AMG_API THEN
8633: x_err_code := 'PA_FP_ATTACH_LOCKED_BY_PRC';
8634:
8635: PA_UTILS.ADD_MESSAGE
8636: ( p_app_short_name => 'PA',
8648:
8649: x_msg_data := l_data;
8650: x_msg_count := l_msg_count;
8651:
8652: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
8653: ELSE
8654: -- AMG context
8655: x_err_code := 'PA_FP_LOCKED_BY_PROCESSING';
8656:
8670:
8671: x_msg_data := l_data;
8672: x_msg_count := l_msg_count;
8673:
8674: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
8675: END IF;
8676: END IF; -- locked by process
8677:
8678: -- End Bug 3057564 --------------------------------------------
8692: END IF;
8693:
8694: x_err_code := 'PA_FP_WA_BV_LOCKED_PRC_ERR';
8695:
8696: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
8697: END IF;
8698: END IF;
8699: END IF;
8700:
8701: if x_locked_by_person_id is not null then
8702: if l_person_id <> x_locked_by_person_id then
8703:
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
8759: p_data => x_msg_data,
8760: p_msg_index_out => l_msg_index_out);
8761: end if;
8762: */
8763: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
8764: ELSE
8765: -- AMG context
8766: x_err_code := 'PA_FP_LOCKED_BY_USER';
8767:
8781:
8782: x_msg_data := l_data;
8783: x_msg_count := l_msg_count;
8784:
8785: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
8786: END IF;
8787: ELSE -- p_context = 'WEBADI'
8788: IF l_debug_mode = 'Y' THEN
8789: pa_debug.g_err_stage:='Web ADI: BV Locked Error';
8793: END IF;
8794:
8795: x_err_code := 'PA_FP_WA_BV_LOCKED_ERR';
8796:
8797: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
8798: end if; -- p_context
8799: end if; -- version locked by another user
8800: end if;
8801:
8878:
8879: x_msg_data := l_data;
8880: x_msg_count := l_msg_count;
8881:
8882: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
8883: ELSE -- p_context = 'WEBADI'
8884: IF l_debug_mode = 'Y' THEN
8885: pa_debug.g_err_stage:='Web ADI: BV Non Edit Error';
8886: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level3);
8889: END IF;
8890: -- Use new messages for the context of WEBADI
8891: x_err_code := 'PA_FP_WA_BV_BL_NON_EDIT';
8892:
8893: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
8894: END IF; -- p_context
8895: END IF;
8896: END IF; -- edit_after_baseline
8897:
8901: pa_debug.Reset_Curr_Function;
8902: END IF;
8903:
8904: EXCEPTION
8905: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
8906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8907:
8908: IF l_debug_mode = 'Y' THEN
8909: pa_debug.Reset_Curr_Function;
9088: END IF;
9089: PA_UTILS.ADD_MESSAGE
9090: (p_app_short_name => 'PA',
9091: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9092: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9093:
9094: END IF;
9095:
9096: IF l_debug_mode = 'Y' THEN
9117: CLOSE delete_task_R_mode_cur;
9118:
9119: ELSE
9120:
9121: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9122: END IF;
9123: */
9124:
9125:
9129: FETCH delete_task_R_mode_cur into l_validation_success;
9130: CLOSE delete_task_R_mode_cur;
9131: ELSE
9132:
9133: Raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9134: END IF;
9135:
9136:
9137:
9155: pa_debug.reset_curr_function;
9156: END IF;
9157: EXCEPTION
9158:
9159: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9160:
9161: x_return_status := FND_API.G_RET_STS_ERROR;
9162: l_msg_count := FND_MSG_PUB.count_msg;
9163:
9273: END IF;
9274: PA_UTILS.ADD_MESSAGE
9275: (p_app_short_name => 'PA',
9276: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9277: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9278: END IF;
9279: -- end of business rules violations check
9280:
9281: IF (p_old_parent_task_id = p_new_parent_task_id) THEN
9354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9355: PA_UTILS.ADD_MESSAGE
9356: (p_app_short_name => 'PA',
9357: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9358: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9359: END;
9360: PA_UTILS.ADD_MESSAGE
9361: ( p_app_short_name => 'PA',
9362: p_msg_name => 'PA_FP_REPARENT_ERR_OLDPRT',
9413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9414: PA_UTILS.ADD_MESSAGE
9415: (p_app_short_name => 'PA',
9416: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
9417: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9418: END;
9419: PA_UTILS.ADD_MESSAGE
9420: ( p_app_short_name => 'PA',
9421: p_msg_name => 'PA_FP_REPARENT_ERR_NEWPRT',
9445: IF P_PA_DEBUG_MODE = 'Y' THEN
9446: pa_debug.reset_curr_function;
9447: END IF;
9448: EXCEPTION
9449: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9450: x_return_status := FND_API.G_RET_STS_ERROR;
9451: l_msg_count := FND_MSG_PUB.count_msg;
9452: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9453: PA_INTERFACE_UTILS_PUB.get_messages
9847: IF P_PA_DEBUG_MODE = 'Y' THEN
9848: pa_debug.g_err_stage:='Invalid Arguments Passed';
9849: pa_debug.write('Check_if_plan_type_editable: ' || l_module_name,pa_debug.g_err_stage,5);
9850: END IF;
9851: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9852:
9853: END IF;
9854:
9855: BEGIN
9903: pa_debug.reset_curr_function;
9904: END IF;
9905: EXCEPTION
9906:
9907: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9908: l_msg_count := FND_MSG_PUB.count_msg;
9909: IF l_msg_count = 1 THEN
9910: PA_INTERFACE_UTILS_PUB.get_messages
9911: (p_encoded => FND_API.G_TRUE
10066:
10067: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10068: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
10069:
10070: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10071:
10072: END IF;
10073:
10074: --Fetch fin plan preference code
10082: INTO l_fp_preference_code
10083: FROM pa_proj_fp_options
10084: WHERE project_id = p_project_id
10085: AND fin_plan_type_id = p_fin_plan_type_id
10086: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
10087:
10088: IF (l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) AND
10089: (p_version_type IS NULL)
10090: THEN
10084: WHERE project_id = p_project_id
10085: AND fin_plan_type_id = p_fin_plan_type_id
10086: AND fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE;
10087:
10088: IF (l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SEP) AND
10089: (p_version_type IS NULL)
10090: THEN
10091:
10092: --In this case version_type should be passed and so raise error
10098:
10099: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10100: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
10101:
10102: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10103:
10104: END IF;
10105:
10106: IF l_debug_mode = 'Y' THEN
10111: --Fetch l_element_type ifn't passed and could be derived
10112:
10113: IF p_version_type IS NULL THEN
10114:
10115: IF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
10116:
10117: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
10118:
10119: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
10113: IF p_version_type IS NULL THEN
10114:
10115: IF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
10116:
10117: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
10118:
10119: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
10120:
10121: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
10115: IF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME THEN
10116:
10117: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
10118:
10119: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
10120:
10121: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
10122:
10123: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
10117: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL;
10118:
10119: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
10120:
10121: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
10122:
10123: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
10124:
10125: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
10119: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
10120:
10121: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
10122:
10123: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
10124:
10125: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
10126:
10127: END IF;
10121: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
10122:
10123: ELSIF l_fp_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY THEN
10124:
10125: l_version_type := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
10126:
10127: END IF;
10128:
10129: END IF;
10178: END IF;
10179:
10180: EXCEPTION
10181:
10182: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10183: l_msg_count := FND_MSG_PUB.count_msg;
10184: IF l_msg_count = 1 THEN
10185: PA_INTERFACE_UTILS_PUB.get_messages
10186: (p_encoded => FND_API.G_TRUE
10299:
10300: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10301: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
10302:
10303: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10304:
10305: END IF;
10306:
10307: -- Using bv id derive ACTUAL_AMTS_THRU_PERIOD from versions table
10351: pa_debug.reset_curr_function();
10352: END IF;
10353: EXCEPTION
10354:
10355: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10356: l_msg_count := FND_MSG_PUB.count_msg;
10357: IF l_msg_count = 1 THEN
10358: PA_INTERFACE_UTILS_PUB.get_messages
10359: (p_encoded => FND_API.G_TRUE
10421: WHERE EXISTS (SELECT 'x'
10422: FROM PA_RESOURCE_ASSIGNMENTS a, pa_proj_element_versions pelm
10423: WHERE a.budget_version_id = p_budget_version_id
10424: AND a.task_id = pelm.proj_element_id
10425: AND a.resource_class_code = PA_FP_CONSTANTS_PKG.G_RESOURCE_CLASS_CODE_FIN
10426: AND a.task_id = p_task_id
10427: AND a.resource_class_flag = 'Y'
10428: AND pelm.parent_structure_version_id= l_structure_version_id);
10429: ELSE -- For Project Level Records
10432: FROM DUAL
10433: WHERE EXISTS (SELECT 'x'
10434: FROM PA_RESOURCE_ASSIGNMENTS a
10435: WHERE a.budget_version_id = p_budget_version_id
10436: AND a.resource_class_code = PA_FP_CONSTANTS_PKG.G_RESOURCE_CLASS_CODE_FIN
10437: AND a.task_id = p_task_id
10438: AND a.resource_class_flag = 'Y');
10439: END IF;
10440:
10464: WHERE a.budget_version_id = p_budget_version_id
10465: AND a.task_id = p_task_id
10466: --Commented for bug 3793136
10467: --AND a.wbs_element_version_id = p_wbs_element_version_id
10468: AND NOT(a.resource_class_code = PA_FP_CONSTANTS_PKG.G_RESOURCE_CLASS_CODE_FIN
10469: and a.resource_class_flag = 'Y') );
10470:
10471: RETURN l_exists;
10472: EXCEPTION
10576:
10577: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10578: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
10579:
10580: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10581:
10582: END IF;
10583:
10584: -- Check if versioning is enabled or not
10647: pa_debug.reset_curr_function();
10648: END IF;
10649: EXCEPTION
10650:
10651: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10652: l_msg_count := FND_MSG_PUB.count_msg;
10653: IF l_msg_count = 1 THEN
10654: PA_INTERFACE_UTILS_PUB.get_messages
10655: (p_encoded => FND_API.G_TRUE
10748:
10749: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10750: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
10751:
10752: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10753:
10754: END IF;
10755:
10756: BEGIN
10772: pa_debug.reset_curr_function();
10773: END IF;
10774: EXCEPTION
10775:
10776: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10777: l_msg_count := FND_MSG_PUB.count_msg;
10778: IF l_msg_count = 1 THEN
10779: PA_INTERFACE_UTILS_PUB.get_messages
10780: (p_encoded => FND_API.G_TRUE
10870:
10871: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
10872: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
10873:
10874: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10875:
10876: END IF;
10877:
10878: BEGIN
10894: pa_debug.reset_curr_function();
10895: END IF;
10896: EXCEPTION
10897:
10898: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10899: l_msg_count := FND_MSG_PUB.count_msg;
10900: IF l_msg_count = 1 THEN
10901: PA_INTERFACE_UTILS_PUB.get_messages
10902: (p_encoded => FND_API.G_TRUE
11053: IF P_PA_debug_mode = 'Y' THEN
11054: pa_debug.g_err_stage:='Invalid Arguments Passed';
11055: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11056: END IF;
11057: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11058: END IF;
11059:
11060: IF P_PA_debug_mode = 'Y' THEN
11061: pa_debug.g_err_stage:= 'Entering GET_CURR_WORKING_VERSION_IDS';
11065: BEGIN
11066: SELECT fin_plan_preference_code
11067: INTO l_plan_pref_code
11068: FROM pa_proj_fp_options
11069: WHERE fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
11070: AND project_id = p_project_id
11071: AND fin_plan_type_id = p_fin_plan_type_id;
11072: EXCEPTION
11073: WHEN NO_DATA_FOUND THEN
11074: IF P_PA_debug_mode = 'Y' THEN
11075: pa_debug.g_err_stage:='No data found while getting fin_plan_preference_code ';
11076: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11077: END IF;
11078: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11079: END;
11080:
11081: X_cost_budget_version_id := -1;
11082: X_rev_budget_version_id := -1;
11082: X_rev_budget_version_id := -1;
11083: X_all_budget_version_id := -1;
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
11083: X_all_budget_version_id := -1;
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
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
11093: ,x_return_status => l_return_status
11094: ,x_msg_count => l_msg_count
11098: IF P_PA_debug_mode = 'Y' THEN
11099: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info: COST context';
11100: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11101: END IF;
11102: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
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
11101: END IF;
11102: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
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
11102: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
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
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
11112: ,x_return_status => l_return_status
11113: ,x_msg_count => l_msg_count
11116: IF P_PA_debug_mode = 'Y' THEN
11117: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info: REV context';
11118: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11119: END IF;
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
11119: END IF;
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
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
11129: ,x_return_status => l_return_status
11130: ,x_msg_count => l_msg_count
11134: IF P_PA_debug_mode = 'Y' THEN
11135: pa_debug.g_err_stage:= 'Error in Get_Curr_Working_Version_Info: ALL context';
11136: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11137: END IF;
11138: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11139: END IF;
11140:
11141:
11142: END IF;
11146: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11147: pa_debug.reset_curr_function;
11148: END IF;
11149: EXCEPTION
11150: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11151: l_msg_count := FND_MSG_PUB.count_msg;
11152:
11153: IF l_msg_count = 1 and x_msg_data IS NULL THEN
11154: PA_INTERFACE_UTILS_PUB.get_messages
11259: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
11260: p_token1 => l_token_name,
11261: p_value1 => l_mod_name);
11262:
11263: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11264: END IF;
11265:
11266:
11267: -- Bug 3902176
11285: IF P_PA_debug_mode = 'Y' THEN
11286: pa_debug.g_err_stage:='Invalid Arguments Passed';
11287: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11288: END IF;
11289: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11290:
11291: END IF;
11292: */
11293:
11316: IF P_PA_DEBUG_MODE = 'Y' THEN
11317: pa_debug.g_err_stage:='No Data Found while fetching margin_derived_from_code';
11318: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11319: END IF;
11320: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11321: END;
11322: END IF;
11323:
11324: x_margin_derived_from_code := l_margin_derived_from_code; -- Bug 3734840
11354: IF P_PA_DEBUG_MODE = 'Y' THEN
11355: pa_debug.g_err_stage:='No data found while fetching quantity and amounts. Context: Cost/All version type';
11356: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11357: END IF;
11358: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11359: END;
11360: END IF;
11361: IF NVL(p_rev_budget_version_id,-1) <> -1 or NVL(p_all_budget_version_id,-1) <> -1 THEN
11362: BEGIN
11373: IF P_PA_DEBUG_MODE = 'Y' THEN
11374: pa_debug.g_err_stage:='No data found while fetching quantity and amounts. Context: Rev/All version type';
11375: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
11376: END IF;
11377: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11378: END;
11379: END IF;
11380:
11381: -- Bug 3902176.
11396: END IF;
11397: */
11398:
11399: IF l_budget_version_id IS NOT NULL THEN
11400: IF l_margin_derived_from_code = PA_FP_CONSTANTS_PKG.G_MARGIN_DERIVED_FROM_CODE_R THEN
11401: x_margin := nvl(x_proj_revenue,0) - nvl(x_proj_raw_cost,0);
11402: ELSE
11403: x_margin := nvl(x_proj_revenue,0) - nvl(x_proj_burdened_cost,0);
11404: END IF;
11416: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11417: pa_debug.reset_curr_function;
11418: END IF;
11419: EXCEPTION
11420: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11421: l_msg_count := FND_MSG_PUB.count_msg;
11422:
11423: IF l_msg_count = 1 and x_msg_data IS NULL THEN
11424: PA_INTERFACE_UTILS_PUB.get_messages
11463: Mandatory input parameters: 1. p_context,p_project_id and p_ci_id
11464: OR
11465: 2. p_context,p_project_id and p_fin_plan_type_id
11466:
11467: Valid values for p_context: 1. PA_FP_CONSTANTS_PKG.G_CI_VERSION_AMOUNTS. (In this case p_ci_id has to be passed)
11468: 2. PA_FP_CONSTANTS_PKG.G_PLAN_TYPE_CWV_AMOUNTS. (In this case p_fin_plan_type_id has to be passed)
11469:
11470: Depending on the value of p_context, the API returns the OUT parameters with respect to either the CI versions of the passed ci_id
11471: or the current working version of the fin_plan_type_id in the context of a project (p_project_id)
11464: OR
11465: 2. p_context,p_project_id and p_fin_plan_type_id
11466:
11467: Valid values for p_context: 1. PA_FP_CONSTANTS_PKG.G_CI_VERSION_AMOUNTS. (In this case p_ci_id has to be passed)
11468: 2. PA_FP_CONSTANTS_PKG.G_PLAN_TYPE_CWV_AMOUNTS. (In this case p_fin_plan_type_id has to be passed)
11469:
11470: Depending on the value of p_context, the API returns the OUT parameters with respect to either the CI versions of the passed ci_id
11471: or the current working version of the fin_plan_type_id in the context of a project (p_project_id)
11472:
11556: IF P_PA_debug_mode = 'Y' THEN
11557: pa_debug.g_err_stage:='Invalid Arguments Passed';
11558: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11559: END IF;
11560: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11561:
11562: END IF;
11563:
11564:
11587: IF P_PA_debug_mode = 'Y' THEN
11588: pa_debug.g_err_stage:='Invalid Arguments Passed';
11589: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11590: END IF;
11591: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11592:
11593: END IF;
11594: */
11595:
11595:
11596:
11597: -- Check if fin_plan_type_id and ci id are null
11598:
11599: IF p_context = PA_FP_CONSTANTS_PKG.G_CI_VERSION_AMOUNTS THEN
11600: IF (p_ci_id IS NULL)
11601: THEN
11602:
11603: IF P_PA_debug_mode = 'Y' THEN
11619: IF P_PA_debug_mode = 'Y' THEN
11620: pa_debug.g_err_stage:='Invalid Arguments Passed';
11621: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11622: END IF;
11623: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11624:
11625: END IF;
11626:
11627: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_PLAN_TYPE_CWV_AMOUNTS THEN
11623: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11624:
11625: END IF;
11626:
11627: ELSIF p_context = PA_FP_CONSTANTS_PKG.G_PLAN_TYPE_CWV_AMOUNTS THEN
11628: IF (p_fin_plan_type_id IS NULL)
11629: THEN
11630:
11631: IF P_PA_debug_mode = 'Y' THEN
11647: IF P_PA_debug_mode = 'Y' THEN
11648: pa_debug.g_err_stage:='Invalid Arguments Passed';
11649: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11650: END IF;
11651: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11652:
11653: END IF;
11654:
11655: END IF;
11658: pa_debug.g_err_stage:= 'Entering GET_SUMMARY_AMOUNTS';
11659: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11660: END IF;
11661:
11662: IF p_context = PA_FP_CONSTANTS_PKG.G_CI_VERSION_AMOUNTS THEN
11663: Pa_Fp_Control_Items_Utils.GET_CI_VERSIONS(P_ci_id => p_ci_id,
11664: X_cost_budget_version_id => x_cost_budget_version_id,
11665: X_rev_budget_version_id => x_rev_budget_version_id,
11666: X_all_budget_version_id => x_all_budget_version_id,
11672: IF P_PA_debug_mode = 'Y' THEN
11673: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
11674: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11675: END IF;
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
11699: IF P_PA_debug_mode = 'Y' THEN
11700: pa_debug.g_err_stage:= 'Error in GET_PROJ_IMPACT_AMOUNTS';
11701: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
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
11701: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
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
11716: IF P_PA_debug_mode = 'Y' THEN
11717: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
11718: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11719: END IF;
11720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11721: END IF;
11722:
11723: --Get the project impact amounts only if the current working version exists. Bug 3661627
11724: IF nvl(x_all_budget_version_id,-1) <> -1 OR nvl(x_cost_budget_version_id,-1) <> -1
11747: IF P_PA_debug_mode = 'Y' THEN
11748: pa_debug.g_err_stage:= 'Error in GET_PROJ_IMPACT_AMOUNTS';
11749: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
11750: END IF;
11751: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
11752: END IF;
11753: END IF;
11754: END IF;
11755:
11760:
11761: pa_debug.reset_curr_function;
11762: END IF;
11763: EXCEPTION
11764: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
11765: l_msg_count := FND_MSG_PUB.count_msg;
11766:
11767: IF l_msg_count = 1 and x_msg_data IS NULL THEN
11768: PA_INTERFACE_UTILS_PUB.get_messages
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;
12173:
12174: -- Derive project and project funcional currencies
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;
12292:
12293: -- Check if budget line exists for any of the workplan versions of the project
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;
12373:
12374: -- Check if task assignments exist for any of the workplan versions of the project
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;
12460:
12461: -- Check if budget line exists for any of the budget versions of the project-plan type
12579: END IF;
12580:
12581: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12582: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
12583: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12584: END IF;
12585:
12586: ELSIF p_calling_context = 'CI' THEN
12587: IF p_source_ci_id_tbl.COUNT = 0 AND
12596: END IF;
12597:
12598: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
12599: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
12600: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12601: END IF;
12602: END IF;
12603:
12604: IF p_calling_context = 'BUDGET' THEN
12618: IF l_plan_processing_code = 'XLUP' THEN
12619: PA_UTILS.ADD_MESSAGE
12620: (p_app_short_name => 'PA',
12621: p_msg_name => 'PA_FP_LOCKED_BY_PROCESSING');
12622: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12623: ELSIF l_plan_processing_code = 'XLUE' THEN
12624: PA_UTILS.ADD_MESSAGE
12625: (p_app_short_name => 'PA',
12626: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12623: ELSIF l_plan_processing_code = 'XLUE' THEN
12624: PA_UTILS.ADD_MESSAGE
12625: (p_app_short_name => 'PA',
12626: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12627: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12628: END IF;
12629: END IF;
12630:
12631: x_final_plan_prc_code := l_plan_processing_code;
12651: IF l_targ_ci_ver_plan_prc_code = 'XLUP' THEN
12652: PA_UTILS.ADD_MESSAGE
12653: (p_app_short_name => 'PA',
12654: p_msg_name => 'PA_FP_LOCKED_BY_PROCESSING');
12655: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12656: ELSIF l_targ_ci_ver_plan_prc_code = 'XLUE' THEN
12657: PA_UTILS.ADD_MESSAGE
12658: (p_app_short_name => 'PA',
12659: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12656: ELSIF l_targ_ci_ver_plan_prc_code = 'XLUE' THEN
12657: PA_UTILS.ADD_MESSAGE
12658: (p_app_short_name => 'PA',
12659: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12660: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12661: END IF;
12662: ELSE
12663: x_final_plan_prc_code := l_targ_ci_ver_plan_prc_code;
12664: x_targ_request_id := l_targ_request_id;
12715: IF l_targ_ci_ver_plan_prc_code = 'XLUP' THEN
12716: PA_UTILS.ADD_MESSAGE
12717: (p_app_short_name => 'PA',
12718: p_msg_name => 'PA_FP_LOCKED_BY_PROCESSING');
12719: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12720: ELSIF l_targ_ci_ver_plan_prc_code = 'XLUE' THEN
12721: PA_UTILS.ADD_MESSAGE
12722: (p_app_short_name => 'PA',
12723: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12720: ELSIF l_targ_ci_ver_plan_prc_code = 'XLUE' THEN
12721: PA_UTILS.ADD_MESSAGE
12722: (p_app_short_name => 'PA',
12723: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12724: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12725: END IF;
12726: ELSE
12727: x_final_plan_prc_code := l_targ_ci_ver_plan_prc_code;
12728: x_targ_request_id := l_targ_ci_request_id;
12757: IF l_targ_ci_ver_plan_prc_code = 'XLUP' THEN
12758: PA_UTILS.ADD_MESSAGE
12759: (p_app_short_name => 'PA',
12760: p_msg_name => 'PA_FP_LOCKED_BY_PROCESSING');
12761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12762: ELSIF l_targ_ci_ver_plan_prc_code = 'XLUE' THEN
12763: PA_UTILS.ADD_MESSAGE
12764: (p_app_short_name => 'PA',
12765: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12762: ELSIF l_targ_ci_ver_plan_prc_code = 'XLUE' THEN
12763: PA_UTILS.ADD_MESSAGE
12764: (p_app_short_name => 'PA',
12765: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12766: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12767: END IF;
12768: ELSE
12769: x_final_plan_prc_code := l_targ_ci_ver_plan_prc_code;
12770: x_targ_request_id := l_targ_ci_request_id;
12790: IF l_targ_ci_ver_plan_prc_code = 'XLUP' THEN
12791: PA_UTILS.ADD_MESSAGE
12792: (p_app_short_name => 'PA',
12793: p_msg_name => 'PA_FP_LOCKED_BY_PROCESSING');
12794: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12795: ELSIF l_targ_ci_ver_plan_prc_code = 'XLUE' THEN
12796: PA_UTILS.ADD_MESSAGE
12797: (p_app_short_name => 'PA',
12798: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12795: ELSIF l_targ_ci_ver_plan_prc_code = 'XLUE' THEN
12796: PA_UTILS.ADD_MESSAGE
12797: (p_app_short_name => 'PA',
12798: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12799: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12800: END IF;
12801: ELSE
12802: x_final_plan_prc_code := l_targ_ci_ver_plan_prc_code;
12803: x_targ_request_id := l_targ_ci_request_id;
12816: IF l_targ_ci_ver_plan_prc_code = 'XLUP' THEN
12817: PA_UTILS.ADD_MESSAGE
12818: (p_app_short_name => 'PA',
12819: p_msg_name => 'PA_FP_LOCKED_BY_PROCESSING');
12820: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12821: ELSIF l_targ_ci_ver_plan_prc_code = 'XLUE' THEN
12822: PA_UTILS.ADD_MESSAGE
12823: (p_app_short_name => 'PA',
12824: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12821: ELSIF l_targ_ci_ver_plan_prc_code = 'XLUE' THEN
12822: PA_UTILS.ADD_MESSAGE
12823: (p_app_short_name => 'PA',
12824: p_msg_name => 'PA_FP_WA_CONC_PRC_FAILURE_MSG');
12825: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
12826: END IF;
12827: ELSE
12828: x_final_plan_prc_code := l_targ_ci_ver_plan_prc_code;
12829: x_targ_request_id := l_targ_ci_request_id;
12845: pa_debug.reset_curr_function();
12846: END IF;
12847: EXCEPTION
12848:
12849: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
12850: l_msg_count := FND_MSG_PUB.count_msg;
12851: IF l_msg_count = 1 THEN
12852: PA_INTERFACE_UTILS_PUB.get_messages
12853: (p_encoded => FND_API.G_TRUE
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*/
12912: BEGIN
12913: IF ( p_preference_code = PA_FP_CONSTANTS_PKG.G_PREF_REVENUE_ONLY) THEN
12914: SELECT 1 INTO l_exists FROM dual WHERE EXISTS (SELECT fin_plan_type_id
12915: FROM PA_PROJ_FP_OPTIONS
12916: WHERE Project_id = p_project_id AND
12917: (GEN_SRC_REV_PLAN_TYPE_ID = p_fin_plan_type_id
13054: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
13055: p_token1 => 'PROCEDURENAME',
13056: p_value1 => l_module_name);
13057:
13058: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13059: END IF;
13060:
13061: IF l_debug_mode = 'Y' THEN
13062: pa_debug.g_err_stage := 'Deriving project_id';
13078: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
13079: p_token1 => 'PROCEDURENAME',
13080: p_value1 => l_module_name);
13081:
13082: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13083: END;
13084:
13085: IF l_debug_mode = 'Y' THEN
13086: pa_debug.g_err_stage := 'Getting structure version id';
13105: pa_debug.reset_curr_function;
13106: END IF;
13107:
13108: EXCEPTION
13109: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
13110: l_msg_count := FND_MSG_PUB.count_msg;
13111: IF l_msg_count = 1 THEN
13112: PA_INTERFACE_UTILS_PUB.get_messages
13113: (p_encoded => FND_API.G_TRUE
13288: IF l_debug_mode = 'Y' THEN
13289: pa_debug.g_err_stage := 'Get_Appr_Cost_Plan_Type_Info API returned error' ;
13290: pa_debug.write(l_module_name,pa_debug.g_err_stage,l_debug_level5);
13291: END IF;
13292: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
13293:
13294: -- The Get_Appr_Cost_Plan_Type_Info api got executed successfully.
13295: ELSIF( l_approved_fin_plan_type_id IS NOT NULL) THEN
13296:
13332: ,p_attribute15 => p_attribute15
13333: ,p_budget_lines_in => p_budget_lines_in
13334: ,p_budget_lines_out => l_budget_lines_out_tbl
13335: ,p_fin_plan_type_id => l_approved_fin_plan_type_id
13336: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
13337: ,p_revenue_flag => 'Y'
13338: , p_revenue_qty_flag => 'Y'
13339: ,p_raw_cost_flag => p_raw_cost_flag --Bug 9883817
13340: ,p_burdened_cost_flag => p_burdened_cost_flag
13361: END IF;
13362:
13363:
13364: -- dbms_output.put_line('about to call baseline_budget ... ');
13365: -- dbms_output.put_line('Before setting the value of PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB = '|| PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB);
13366: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'Y';
13367:
13368: PA_BUDGET_PUB.BASELINE_BUDGET
13369: ( p_api_version_number => p_api_version_number
13362:
13363:
13364: -- dbms_output.put_line('about to call baseline_budget ... ');
13365: -- dbms_output.put_line('Before setting the value of PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB = '|| PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB);
13366: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'Y';
13367:
13368: PA_BUDGET_PUB.BASELINE_BUDGET
13369: ( p_api_version_number => p_api_version_number
13370: ,p_commit => FND_API.G_FALSE
13378: ,p_pm_project_reference => p_pm_project_reference
13379: ,p_budget_type_code => NULL
13380: ,p_mark_as_original => 'Y'
13381: ,p_fin_plan_type_id => l_approved_fin_plan_type_id
13382: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
13383: );
13384: -- dbms_output.put_line('returned from BASELINE_BUDGET ... status = '||l_return_status);
13385:
13386: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
13382: ,p_version_type => PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE
13383: );
13384: -- dbms_output.put_line('returned from BASELINE_BUDGET ... status = '||l_return_status);
13385:
13386: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
13387: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
13388: END IF;
13389:
13390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13383: );
13384: -- dbms_output.put_line('returned from BASELINE_BUDGET ... status = '||l_return_status);
13385:
13386: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
13387: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
13388: END IF;
13389:
13390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13391: THEN
13457: RAISE FND_API.G_EXC_ERROR;
13458: END IF;
13459:
13460: -- dbms_output.put_line('about to call baseline_budget ... ');
13461: -- dbms_output.put_line('Before setting the value of PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB = '|| PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB);
13462: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'Y';
13463:
13464: PA_BUDGET_PUB.BASELINE_BUDGET
13465: ( p_api_version_number => p_api_version_number
13458: END IF;
13459:
13460: -- dbms_output.put_line('about to call baseline_budget ... ');
13461: -- dbms_output.put_line('Before setting the value of PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB = '|| PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB);
13462: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'Y';
13463:
13464: PA_BUDGET_PUB.BASELINE_BUDGET
13465: ( p_api_version_number => p_api_version_number
13466: ,p_commit => FND_API.G_FALSE
13476: ,p_mark_as_original => 'Y'
13477: );
13478: -- dbms_output.put_line('returned from BASELINE_BUDGET ... status = '||l_return_status);
13479:
13480: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
13481: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
13482: END IF;
13483:
13484: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13477: );
13478: -- dbms_output.put_line('returned from BASELINE_BUDGET ... status = '||l_return_status);
13479:
13480: IF (nvl(PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB,'N') = 'Y') THEN
13481: PA_FP_CONSTANTS_PKG.G_CALLED_FROM_AGREEMENT_PUB := 'N'; -- reset the value bug 3099706
13482: END IF;
13483:
13484: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
13485: THEN