DBA Data[Home] [Help]

APPS.PA_FIN_PLAN_PVT dependencies on PA_FIN_PLAN_UTILS

Line 4: Package name : PA_FIN_PLAN_UTILS

1: PACKAGE BODY pa_fin_plan_pvt AS
2: /* $Header: PAFPPVTB.pls 120.17.12020000.4 2013/04/04 07:24:23 djambhek ship $
3: Start of Comments
4: Package name : PA_FIN_PLAN_UTILS
5: Purpose : utility API's for Org Forecast pages
6: History :
7: NOTE :
8: End of Comments

Line 79: PA_FIN_PLAN_UTILS.Check_Record_Version_Number

75: p_msg_name => 'PA_FP_NO_PLAN_VERSION');
76: end if;
77: /* check to see if the budget version we're updating has */
78: /* been updated by someone else already */
79: PA_FIN_PLAN_UTILS.Check_Record_Version_Number
80: (p_unique_index => p_budget_version_id,
81: p_record_version_number => p_record_version_number,
82: x_valid_flag => l_valid_flag,
83: x_return_status => l_return_status,

Line 128: p_value1 => pa_fin_plan_utils.get_person_name(bv_rec.locked_by_person_id));

124: x_return_status := FND_API.G_RET_STS_ERROR;
125: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
126: p_msg_name => 'PA_FP_LOCKED_BY_USER',
127: p_token1 => 'USERNAME',
128: p_value1 => pa_fin_plan_utils.get_person_name(bv_rec.locked_by_person_id));
129: end if;
130: end if;
131:
132: /* Bug 5349962: R12 Perf Fix: Putting a close cursor statement. Closing the cursor only when it returns any row. */

Line 269: l_valid_flag VARCHAR2(1); -- for PA_FIN_PLAN_UTILS.Check_Record_Version_Number

265: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
266: x_msg_data OUT NOCOPY VARCHAR2) IS --File.Sql.39 bug 4440895
267:
268: -- error handling variables
269: l_valid_flag VARCHAR2(1); -- for PA_FIN_PLAN_UTILS.Check_Record_Version_Number
270: l_msg_count NUMBER := 0;
271: l_err_msg_count NUMBER := 0;
272: l_data VARCHAR2(2000);
273: l_msg_data VARCHAR2(2000);

Line 371: PA_FIN_PLAN_UTILS.Check_Record_Version_Number

367: -- been updated by someone else already
368: -- if p_orig_budget_version_id = null then there is currently not a baselined version
369: -- in this case, ignore this check
370: if p_orig_budget_version_id IS NOT null then
371: PA_FIN_PLAN_UTILS.Check_Record_Version_Number
372: (p_unique_index => p_orig_budget_version_id,
373: p_record_version_number => p_orig_record_version_number,
374: x_valid_flag => l_valid2_flag,
375: x_return_status => x_return_status, --l_return_status, Bug 2691822

Line 1077: Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info(

1073: l_fc_version_type := 'COST';
1074: l_version_name := ' Cost ';
1075: END IF;
1076:
1077: Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info(
1078: p_project_id => p_project_id
1079: ,p_fin_plan_type_id => l_fc_plan_type_ids_tbl(i)
1080: ,p_version_type => l_fc_version_type
1081: ,x_fp_options_id => l_fp_options_id

Line 1090: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||

1086:
1087: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1088:
1089: IF P_PA_DEBUG_MODE = 'Y' THEN
1090: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||
1091: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1092: ' : version_type : ' || l_fc_version_type;
1093: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1094: END IF;

Line 1185: Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info(

1181: l_version_name := ' Revenue ';
1182: END IF;
1183:
1184:
1185: Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info(
1186: p_project_id => p_project_id
1187: ,p_fin_plan_type_id => l_fc_plan_type_ids_tbl(i)
1188: ,p_version_type => l_fc_version_type
1189: ,x_fp_options_id => l_fp_options_id

Line 1198: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||

1194:
1195: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1196:
1197: IF P_PA_DEBUG_MODE = 'Y' THEN
1198: pa_debug.g_err_stage:='Pa_Fin_Plan_Utils.Get_Curr_Working_Version_Info errored: project_id : ' ||
1199: p_project_id || ' : plan type id : ' || l_fc_plan_type_ids_tbl(i) ||
1200: ' : version_type : ' || l_fc_version_type;
1201: pa_debug.write('PAFPPVTB.BASELINE_FINPLAN',pa_debug.g_err_stage,5);
1202: END IF;

Line 1340: l_valid_flag VARCHAR2(1); -- for PA_FIN_PLAN_UTILS.Check_Record_Version_Number

1336: x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
1337: IS
1338:
1339: -- error handling variables
1340: l_valid_flag VARCHAR2(1); -- for PA_FIN_PLAN_UTILS.Check_Record_Version_Number
1341: l_msg_count NUMBER := 0;
1342: l_err_msg_count NUMBER := 0;
1343: l_data VARCHAR2(2000);
1344: l_msg_data VARCHAR2(2000);

Line 1385: PA_FIN_PLAN_UTILS.Check_Record_Version_Number

1381:
1382: ------------ CHECK FOR BUSINESS RULES VIOLATIONS --------------
1383: -- 1. RECORD VERSION NUMBER -- If record_version_number of p_budget_version_id
1384: -- has changed, return error:
1385: PA_FIN_PLAN_UTILS.Check_Record_Version_Number
1386: (p_unique_index => p_budget_version_id,
1387: p_record_version_number => p_record_version_number,
1388: x_valid_flag => l_valid_flag,
1389: x_return_status => l_return_status,

Line 1844: pa_fin_plan_utils.Get_Baselined_Version_Info(

1840:
1841: IF l_approved_budget_plan_type = 'Y' then
1842: l_stage := 50;
1843: /* Get latest baselined info */
1844: pa_fin_plan_utils.Get_Baselined_Version_Info(
1845: p_project_id => l_project_id
1846: ,p_fin_plan_type_id => l_fin_plan_type_id
1847: ,p_version_type => l_version_type
1848: ,x_fp_options_id => l_fp_options_id

Line 2231: pa_fin_plan_utils.Get_Baselined_Version_Info(

2227: END IF;
2228:
2229: /* Validation for the resource list */
2230: /* Get the currently baselined version id */
2231: pa_fin_plan_utils.Get_Baselined_Version_Info(
2232: p_project_id => p_project_id
2233: ,p_fin_plan_type_id => p_fin_plan_type_id
2234: ,p_version_type => p_version_type
2235: ,x_fp_options_id => l_fp_options_id

Line 2257: IF (pa_fin_plan_utils.Get_Resource_List_Id(l_baselined_version_id) <> l_resource_list_id) THEN

2253: -- bug#2831968 l_resource_list_id := p_resource_list_id;
2254:
2255: /* Commenting for bug 8367755
2256: IF (l_baselined_version_id IS NOT NULL) THEN
2257: IF (pa_fin_plan_utils.Get_Resource_List_Id(l_baselined_version_id) <> l_resource_list_id) THEN
2258: pa_debug.g_err_stage:='Current baselined versions and passed resource list id are not same';
2259: IF P_PA_DEBUG_MODE = 'Y' THEN
2260: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,5);
2261: END IF;

Line 2279: pa_fin_plan_utils.Get_Curr_Working_Version_Info(

2275: /* End of validation for resource list */
2276:
2277: /* Get draft version */
2278:
2279: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
2280: p_project_id => p_project_id
2281: ,p_fin_plan_type_id => p_fin_plan_type_id
2282: ,p_version_type => p_version_type
2283: ,x_fp_options_id => l_fp_options_id

Line 2333: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number

2329: -- Do not delete the version if called from create draft. Changes due to AMG
2330:
2331: IF nvl(p_replace_current_working_flag,'N')= 'Y' THEN
2332:
2333: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
2334: (p_budget_version_id => l_curr_work_version_id);
2335:
2336: --Try to lock the version before deleting the version. This is required so as not to delete
2337: --versions locked by other users. AMG UT2

Line 2360: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number

2356: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2357:
2358: END IF;
2359:
2360: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number
2361: (p_budget_version_id => l_curr_work_version_id);
2362:
2363: pa_fin_plan_pub.delete_version
2364: ( p_project_id => p_project_id

Line 2410: pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID

2406: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2407: END IF;
2408:
2409: --Get the amount set id.
2410: pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID
2411: (
2412: p_raw_cost_flag => p_raw_cost_flag
2413: ,p_burdened_cost_flag => p_burdened_cost_flag
2414: ,p_revenue_flag => p_revenue_flag

Line 2505: pa_fin_plan_utils.Get_Curr_Working_Version_Info(

2501:
2502: -- Get the details of the current working version so as to pass it to the
2503: -- Set Current Working API.
2504:
2505: pa_fin_plan_utils.Get_Curr_Working_Version_Info(
2506: p_project_id => p_project_id
2507: ,p_fin_plan_type_id => p_fin_plan_type_id
2508: ,p_version_type => p_version_type
2509: ,x_fp_options_id => l_proj_fp_options_id

Line 2524: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);

2520:
2521: IF l_created_version_id <> l_CW_version_id THEN
2522:
2523: --Get the record version number of the current working version
2524: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
2525:
2526: --Get the record version number of the newly created version
2527: l_created_ver_rec_ver_num := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_created_version_id);
2528: l_user_id := FND_GLOBAL.User_id;

Line 2527: l_created_ver_rec_ver_num := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_created_version_id);

2523: --Get the record version number of the current working version
2524: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
2525:
2526: --Get the record version number of the newly created version
2527: l_created_ver_rec_ver_num := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_created_version_id);
2528: l_user_id := FND_GLOBAL.User_id;
2529: pa_fin_plan_pvt.lock_unlock_version
2530: (p_budget_version_id => l_CW_version_id,
2531: p_record_version_number => l_CW_record_version_number,

Line 2556: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);

2552: pa_debug.write('CREATE_DRAFT: ' || g_module_name,pa_debug.g_err_stage,3);
2553: END IF;
2554:
2555: -- Getting the rec ver number again as it will be incremented by the api lock_unlock_version
2556: l_CW_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number(l_CW_version_id);
2557:
2558: pa_fin_plan_pub.Set_Current_Working
2559: (p_project_id => p_project_id,
2560: p_budget_version_id => l_created_version_id,

Line 2739: PA_FIN_PLAN_UTILS.Get_Uncat_Resource_List_Info

2735: l_dummy_row_id ROWID;
2736: l_dummy_ra_id PA_RESOURCE_ASSIGNMENTS.resource_assignment_id%TYPE;
2737: BEGIN
2738:
2739: PA_FIN_PLAN_UTILS.Get_Uncat_Resource_List_Info
2740: (x_resource_list_id => l_dummy_res_list_id
2741: ,x_resource_list_member_id => l_uncat_rlmid
2742: ,x_track_as_labor_flag => l_track_as_labor_flag
2743: ,x_unit_of_measure => l_unit_of_measure

Line 3666: l_time_phased_type_code := PA_FIN_PLAN_UTILS.Get_Time_Phased_code(p_fin_plan_version_id);

3662: -- else it should be least of value present in pa_fp_spread_calc_tmp1.
3663:
3664: --bug#8854015 Added condition to directly update the planning_start_date and planning_end_date
3665: -- if the updation is for non-time based.
3666: l_time_phased_type_code := PA_FIN_PLAN_UTILS.Get_Time_Phased_code(p_fin_plan_version_id);
3667: IF l_time_phased_type_code = 'N' THEN
3668:
3669: -- Bug 15861188 : added following update statement
3670: UPDATE PA_FP_SPREAD_CALC_TMP1 cache

Line 4582: l_ver_time_phased_code := PA_FIN_PLAN_UTILS.get_time_phased_code (p_fin_plan_version_id);

4578:
4579: -- bug 4221650: checking for the time phased code of the version to call
4580: -- calculate api in either 'RESOURCE_ASSIGNMENT' or in 'BUDGET_LINE' mode
4581:
4582: l_ver_time_phased_code := PA_FIN_PLAN_UTILS.get_time_phased_code (p_fin_plan_version_id);
4583:
4584: IF NOT l_ver_time_phased_code = 'N' THEN
4585:
4586: IF l_debug_mode = 'Y' THEN