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.12.12010000.2 2008/08/19 21:32:32 jngeorge 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:
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 2278: pa_fin_plan_utils.Get_Curr_Working_Version_Info(

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

Line 2332: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number

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

Line 2359: l_record_version_number := pa_fin_plan_utils.Retrieve_Record_Version_Number

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

Line 2409: pa_fin_plan_utils.GET_OR_CREATE_AMOUNT_SET_ID

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

Line 2504: pa_fin_plan_utils.Get_Curr_Working_Version_Info(

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

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

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

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

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

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

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

Line 2738: PA_FIN_PLAN_UTILS.Get_Uncat_Resource_List_Info

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

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

4539:
4540: -- bug 4221650: checking for the time phased code of the version to call
4541: -- calculate api in either 'RESOURCE_ASSIGNMENT' or in 'BUDGET_LINE' mode
4542:
4543: l_ver_time_phased_code := PA_FIN_PLAN_UTILS.get_time_phased_code (p_fin_plan_version_id);
4544:
4545: IF NOT l_ver_time_phased_code = 'N' THEN
4546:
4547: IF l_debug_mode = 'Y' THEN