[Home] [Help]
1928: -- Check for business rules violations
1929:
1930: pa_debug.g_err_stage:= 'Validating input parameters';
1931: IF P_PA_DEBUG_MODE = 'Y' THEN
1932: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1933: END IF;
1934:
1935: --Check if plan version id is null
1936:
1939: (p_version_type IS NULL)
1940: THEN
1941: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
1942: IF P_PA_DEBUG_MODE = 'Y' THEN
1943: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1944: END IF;
1945: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1946: IF P_PA_DEBUG_MODE = 'Y' THEN
1947: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1943: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1944: END IF;
1945: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1946: IF P_PA_DEBUG_MODE = 'Y' THEN
1947: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1948: END IF;
1949: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1950: IF P_PA_DEBUG_MODE = 'Y' THEN
1951: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1947: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1948: END IF;
1949: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1950: IF P_PA_DEBUG_MODE = 'Y' THEN
1951: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1952: END IF;
1953:
1954: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1955: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1955: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1956:
1957: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
1958: IF P_PA_DEBUG_MODE = 'Y' THEN
1959: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1960: END IF;
1961:
1962: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1963: END IF;
1958: IF P_PA_DEBUG_MODE = 'Y' THEN
1959: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1960: END IF;
1961:
1962: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1963: END IF;
1964:
1965: -- Fetch the plan type fp options id and resource list attached
1966: -- Bug# 2682955-Fetching plan type planning level
1979: x_msg_count => l_msg_count,
1980: x_msg_data => l_msg_data );
1981:
1982: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1983: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1984: END IF;
1985:
1986:
1987: BEGIN
1986:
1987: BEGIN
1988: SELECT proj_fp_options_id,
1989: DECODE(p_version_type,
1990: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_resource_list_id,
1991: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_resource_list_id,
1992: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1993: DECODE(p_version_type,
1994: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1987: BEGIN
1988: SELECT proj_fp_options_id,
1989: DECODE(p_version_type,
1990: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_resource_list_id,
1991: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_resource_list_id,
1992: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1993: DECODE(p_version_type,
1994: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1995: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_fin_plan_level_code,
1988: SELECT proj_fp_options_id,
1989: DECODE(p_version_type,
1990: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_resource_list_id,
1991: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_resource_list_id,
1992: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1993: DECODE(p_version_type,
1994: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1995: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_fin_plan_level_code,
1996: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code) plan_type_planning_level
1990: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_resource_list_id,
1991: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_resource_list_id,
1992: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1993: DECODE(p_version_type,
1994: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1995: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_fin_plan_level_code,
1996: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code) plan_type_planning_level
1997: INTO l_proj_fp_options_id,
1998: l_resource_list_id,
1991: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_resource_list_id,
1992: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1993: DECODE(p_version_type,
1994: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1995: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_fin_plan_level_code,
1996: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code) plan_type_planning_level
1997: INTO l_proj_fp_options_id,
1998: l_resource_list_id,
1999: l_plan_type_planning_level
1992: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1993: DECODE(p_version_type,
1994: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1995: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_fin_plan_level_code,
1996: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code) plan_type_planning_level
1997: INTO l_proj_fp_options_id,
1998: l_resource_list_id,
1999: l_plan_type_planning_level
2000: FROM pa_proj_fp_options
2007: EXCEPTION
2008: WHEN OTHERS THEN
2009: pa_debug.g_err_stage:= 'Failed to fetch the fp options id for given combination'||SQLERRM;
2010: IF P_PA_DEBUG_MODE = 'Y' THEN
2011: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2012: END IF;
2013: raise;
2014: END;
2015:
2014: END;
2015:
2016: pa_debug.g_err_stage:= 'Impacted task = '|| p_impacted_task_id;
2017: IF P_PA_DEBUG_MODE = 'Y' THEN
2018: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2019: END IF;
2020:
2021: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
2022: IF P_PA_DEBUG_MODE = 'Y' THEN
2019: END IF;
2020:
2021: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
2022: IF P_PA_DEBUG_MODE = 'Y' THEN
2023: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2024: END IF;
2025:
2026: -- Fetch resource list info
2027:
2026: -- Fetch resource list info
2027:
2028: pa_debug.g_err_stage:= 'Calling get_resource_list_info' ;
2029: IF P_PA_DEBUG_MODE = 'Y' THEN
2030: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2031: END IF;
2032:
2033: pa_fin_plan_utils.get_resource_list_info(
2034: p_resource_list_id => l_resource_list_id
2039: ,x_msg_count => l_msg_count
2040: ,x_msg_data => l_msg_data);
2041:
2042: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2043: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2044: END IF;
2045:
2046: /* Bug# 2682955 - Creating plannable elements based on the impacted task is ONLY applicable
2047: if the plan type level planning level is Task level.
2052:
2053: If the planning level for the plan type is Project and resource list is uncategorized,
2054: no check needs to be done. */
2055:
2056: IF l_plan_type_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT AND
2057: l_uncategorized_flag = 'Y' THEN
2058:
2059: RETURN;
2060:
2059: RETURN;
2060:
2061: END IF;
2062:
2063: IF l_plan_type_planning_level <> PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
2064:
2065: -- If impacted task id is not null then fetch it's top task id and parent task id
2066: -- and derive the task level of it
2067:
2068: IF p_impacted_task_id IS NOT NULL THEN
2069:
2070: pa_debug.g_err_stage:= 'Fetching impacted task details';
2071: IF P_PA_DEBUG_MODE = 'Y' THEN
2072: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2073: END IF;
2074:
2075: -- Fetching top task id and parent task id of impacted task id
2076:
2081: -- Fetching impacted task level
2082:
2083: IF impacted_task_rec.top_task_id = p_impacted_task_id
2084: THEN
2085: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_T;
2086: ELSE
2087: BEGIN
2088: SELECT count(task_id)
2089: INTO l_count
2091: WHERE parent_task_id = p_impacted_task_id;
2092:
2093: IF l_count = 0
2094: THEN
2095: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_L;
2096: ELSE
2097: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M;
2098: END IF;
2099: EXCEPTION
2093: IF l_count = 0
2094: THEN
2095: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_L;
2096: ELSE
2097: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M;
2098: END IF;
2099: EXCEPTION
2100: WHEN Others THEN
2101: pa_debug.g_err_stage:= 'Error during fetching impacted task details';
2099: EXCEPTION
2100: WHEN Others THEN
2101: pa_debug.g_err_stage:= 'Error during fetching impacted task details';
2102: IF P_PA_DEBUG_MODE = 'Y' THEN
2103: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2104: END IF;
2105: RAISE;
2106: END;
2107: END IF;
2107: END IF;
2108:
2109: pa_debug.g_err_stage:= 'Impacted task level = '|| l_impacted_task_level;
2110: IF P_PA_DEBUG_MODE = 'Y' THEN
2111: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2112: END IF;
2113:
2114: END IF;
2115:
2112: END IF;
2113:
2114: END IF;
2115:
2116: END IF; /* l_plan_type_planning_level <> PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT */
2117:
2118: -- Initialising l_count to 0
2119:
2120: l_count := 0;
2121:
2122: /* Bug# 2682955 - If plan_type planning level is Project with a categorized resource list,
2123: we just need check for the existence of planning elements */
2124:
2125: IF p_impacted_task_id IS NULL OR l_plan_type_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT
2126: THEN
2127:
2128: -- Check if plan type has any plannable elements
2129:
2128: -- Check if plan type has any plannable elements
2129:
2130: pa_debug.g_err_stage:= 'Opening cur_impacted_task_null' ;
2131: IF P_PA_DEBUG_MODE = 'Y' THEN
2132: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2133: END IF;
2134:
2135: OPEN cur_impacted_task_null;
2136: FETCH cur_impacted_task_null INTO l_count;
2135: OPEN cur_impacted_task_null;
2136: FETCH cur_impacted_task_null INTO l_count;
2137: CLOSE cur_impacted_task_null;
2138: ELSE
2139: IF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M THEN
2140:
2141: -- Check if top task id of impacted task is plannable
2142: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_M_child' ;
2143: IF P_PA_DEBUG_MODE = 'Y' THEN
2140:
2141: -- Check if top task id of impacted task is plannable
2142: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_M_child' ;
2143: IF P_PA_DEBUG_MODE = 'Y' THEN
2144: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2145: END IF;
2146:
2147: OPEN cur_impact_task_level_M_child;
2148: FETCH cur_impact_task_level_M_child INTO l_count;
2147: OPEN cur_impact_task_level_M_child;
2148: FETCH cur_impact_task_level_M_child INTO l_count;
2149: CLOSE cur_impact_task_level_M_child;
2150:
2151: ELSIF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_L THEN
2152:
2153: -- Check if the impacted task or its top task is plannable
2154:
2155: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_L' ;
2153: -- Check if the impacted task or its top task is plannable
2154:
2155: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_L' ;
2156: IF P_PA_DEBUG_MODE = 'Y' THEN
2157: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2158: END IF;
2159:
2160: OPEN cur_impact_task_level_L(impacted_task_rec.top_task_id);
2161: FETCH cur_impact_task_level_L INTO l_count;
2160: OPEN cur_impact_task_level_L(impacted_task_rec.top_task_id);
2161: FETCH cur_impact_task_level_L INTO l_count;
2162: CLOSE cur_impact_task_level_L;
2163:
2164: ELSIF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_T THEN
2165:
2166: -- Check if there are any plannable elements with top task id as impacted task id.
2167:
2168: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_T' ;
2166: -- Check if there are any plannable elements with top task id as impacted task id.
2167:
2168: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_T' ;
2169: IF P_PA_DEBUG_MODE = 'Y' THEN
2170: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2171: END IF;
2172:
2173: OPEN cur_impact_task_level_T;
2174: FETCH cur_impact_task_level_T INTO l_count;
2181: x_version_allowed_flag := 'N';
2182:
2183: pa_debug.g_err_stage:= 'Ci_version cant be created';
2184: IF P_PA_DEBUG_MODE = 'Y' THEN
2185: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2186: END IF;
2187:
2188: -- raise error if the ci version cant be created
2189: x_return_status := FND_API.G_RET_STS_ERROR;
2196: END IF;
2197:
2198: pa_debug.g_err_stage:= 'Exiting Is_Create_CI_Version_Allowed';
2199: IF P_PA_DEBUG_MODE = 'Y' THEN
2200: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2201: END IF;
2202: pa_debug.reset_err_stack;
2203:
2204: EXCEPTION
2202: pa_debug.reset_err_stack;
2203:
2204: EXCEPTION
2205:
2206: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2207:
2208: x_return_status := FND_API.G_RET_STS_ERROR;
2209: l_msg_count := FND_MSG_PUB.count_msg;
2210: IF l_msg_count = 1 THEN
2221: x_msg_count := l_msg_count;
2222: END IF;
2223:
2224: -- pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2225: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2226: pa_debug.reset_err_stack;
2227: RAISE;
2228:
2229: WHEN others THEN
2234: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2235: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2236: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2237: IF P_PA_DEBUG_MODE = 'Y' THEN
2238: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2239: END IF;
2240: pa_debug.reset_err_stack;
2241: RAISE;
2242:
2336: Fin_Plan_Option_Level_Code = 'PLAN_TYPE' AND
2337: ( NVL(Approved_Cost_Plan_Type_Flag ,'N') = 'Y' OR
2338: NVL(Approved_Rev_Plan_Type_Flag ,'N') = 'Y' ) ;
2339:
2340: IF l_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
2341: l_baseline_funding_flag := 'N';
2342: RETURN l_baseline_funding_flag;
2343: END IF;
2344: END IF;
2898: x_msg_count => l_msg_count,
2899: x_msg_data => l_msg_data );
2900:
2901: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2902: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2903: END IF;
2904:
2905: SELECT
2906: DECODE
2966: x_msg_count => l_msg_count,
2967: x_msg_data => l_msg_data );
2968:
2969: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2970: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2971: END IF;
2972:
2973: SELECT
2974: DECODE
3105: x_msg_count := FND_MSG_PUB.Count_Msg;
3106: x_msg_data := NULL;
3107: END IF;
3108: EXCEPTION
3109: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3110: l_msg_count := FND_MSG_PUB.count_msg;
3111: IF l_msg_count = 1 THEN
3112: PA_INTERFACE_UTILS_PUB.get_messages
3113: (p_encoded => FND_API.G_TRUE
3273:
3274: IF P_PA_DEBUG_MODE = 'Y' THEN
3275: pa_debug.g_err_stage := 'No Budget Version for the CI';
3276: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3277: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3278: END IF;
3279: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3280: p_msg_name => 'PA_FP_CI_VERSION_NOT_FOUND');
3281: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3277: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3278: END IF;
3279: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3280: p_msg_name => 'PA_FP_CI_VERSION_NOT_FOUND');
3281: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3282:
3283: ELSE
3284:
3285: FOR i in l_ci_version_id_tbl.first..l_ci_version_id_tbl.last
3287:
3288: IF P_PA_DEBUG_MODE = 'Y' THEN
3289: pa_debug.g_err_stage := 'Fetching the Current Working Version';
3290: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3291: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3292: END IF;
3293:
3294: -- Bug 3809665 Check if change order versions have any budget lines with
3295: -- rejection code
3298: (p_budget_version_id => l_ci_version_id_tbl(i))
3299: THEN
3300: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3301: p_msg_name => 'PA_FP_CI_REJ_LINES_EXST_TO_SUB');
3302: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3303: END IF;
3304:
3305:
3306: /* For the Project, Plan Type and Version Type, get the Current Working Version. */
3317: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3318: IF P_PA_DEBUG_MODE = 'Y' THEN
3319: pa_debug.g_err_stage := 'No working version found.';
3320: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3321: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3322: END IF;
3323: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3324: END IF;
3325:
3319: pa_debug.g_err_stage := 'No working version found.';
3320: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3321: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3322: END IF;
3323: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3324: END IF;
3325:
3326: /* Compare the Plan settings of the Financial Impact and the plan settings of the
3327: current working apporved budget plan version. */
3328:
3329: IF P_PA_DEBUG_MODE = 'Y' THEN
3330: pa_debug.g_err_stage := 'Comparing the Plan Settings of Versions';
3331: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3332: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3333: END IF;
3334:
3335: --Added by Xin Liu. For enhancement.
3336:
3362:
3363: IF p_pa_debug_mode = 'Y' THEN
3364: pa_debug.g_err_stage:= 'Exiting Fp_Ci_Impact_Submit_Chk';
3365: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3366: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3367: pa_debug.reset_err_stack;
3368: END IF;
3369:
3370: EXCEPTION
3367: pa_debug.reset_err_stack;
3368: END IF;
3369:
3370: EXCEPTION
3371: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3372: x_return_status := FND_API.G_RET_STS_ERROR;
3373: l_msg_count := FND_MSG_PUB.count_msg;
3374: IF l_msg_count = 1 THEN
3375: PA_INTERFACE_UTILS_PUB.get_messages
3402:
3403: IF p_pa_debug_mode = 'Y' THEN
3404: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3405: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3406: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3407: pa_debug.reset_err_stack;
3408: END IF;
3409: RAISE;
3410: END Fp_Ci_Impact_Submit_Chk;
3469:
3470: IF l_debug_mode = 'Y' THEN
3471: pa_debug.g_err_stage:= 'Validating input parameters';
3472: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3473: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3474: END IF;
3475:
3476: IF (p_project_id IS NULL) OR (p_ci_id IS NULL AND p_source_version_id IS NULL)
3477: OR (p_target_version_id is NULL)
3478: THEN
3479: IF l_debug_mode = 'Y' THEN
3480: pa_debug.g_err_stage:= 'p_project_id = '|| to_char(p_project_id);
3481: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3482: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3483: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3484: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3485: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3486: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3481: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3482: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3483: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3484: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3485: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3486: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3487: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3488: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3489: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3484: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3485: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3486: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3487: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3488: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3489: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3490: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3491: END IF;
3492: PA_UTILS.ADD_MESSAGE
3486: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3487: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3488: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3489: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3490: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3491: END IF;
3492: PA_UTILS.ADD_MESSAGE
3493: (p_app_short_name => 'PA',
3494: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3491: END IF;
3492: PA_UTILS.ADD_MESSAGE
3493: (p_app_short_name => 'PA',
3494: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3495: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3496:
3497: END IF;
3498:
3499: SELECT NVL(approved_cost_plan_type_flag,'N'),
3551: IF l_debug_mode = 'Y' THEN
3552: pa_debug.g_err_stage:= 'x_upd_cost_impact_allowed is '||x_upd_cost_impact_allowed
3553: ||'x_upd_rev_impact_allowed is '||x_upd_rev_impact_allowed;
3554: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3555: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3556: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3557: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3558: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3559: pa_debug.reset_err_stack;
3554: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3555: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3556: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3557: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3558: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3559: pa_debug.reset_err_stack;
3560:
3561: END IF;
3562:
3561: END IF;
3562:
3563: EXCEPTION
3564:
3565: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3566:
3567: x_return_status := FND_API.G_RET_STS_ERROR;
3568: l_msg_count := FND_MSG_PUB.count_msg;
3569:
3598:
3599: IF l_debug_mode = 'Y' THEN
3600: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3601: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3602: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3603: pa_debug.reset_err_stack;
3604:
3605: END IF;
3606: RAISE;
4317: WHERE ptco.ci_type_id = p_ci_type_id
4318: AND ptco.version_type = p_version_type
4319: AND ptco.ci_type_id = pcs.ci_type_id
4320: AND ptco.status_code=pcs.project_status_code
4321: AND pcs.project_system_status_code <> PA_FP_CONSTANTS_PKG.G_SYS_STATUS_APPROVED
4322: AND ptco.fin_plan_type_id=p_fin_plan_type_id);
4323:
4324: EXCEPTION
4325: WHEN NO_DATA_FOUND THEN
4372: IF l_debug_mode = 'Y' THEN
4373: pa_debug.reset_curr_function;
4374: END IF ;
4375:
4376: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
4377:
4378: ELSIF l_cost_impact_flag = 'Y' THEN
4379:
4380: IF l_debug_mode = 'Y' THEN
4380: IF l_debug_mode = 'Y' THEN
4381: pa_debug.reset_curr_function;
4382: END IF ;
4383:
4384: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
4385:
4386: ELSIF l_rev_impact_flag = 'Y' THEN
4387:
4388: IF l_debug_mode = 'Y' THEN
4388: IF l_debug_mode = 'Y' THEN
4389: pa_debug.reset_curr_function;
4390: END IF ;
4391:
4392: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
4393:
4394: ELSE
4395:
4396: IF l_debug_mode = 'Y' THEN
4973: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4974: END IF;
4975: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4976: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4977: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4978: END IF;
4979:
4980: IF l_debug_mode = 'Y' THEN
4981: pa_debug.g_err_stage:='Validating input parameters - p_cost_version_id : '||p_cost_version_id;
4993: IF l_debug_mode = 'Y' THEN
4994: pa_debug.g_err_stage:='Validating p_revenue_version_id :'||p_revenue_version_id;
4995: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4996: END IF;
4997: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
4998: END IF;
4999:
5000:
5001: -------------------------------------------
5060: IF l_debug_mode = 'Y' THEN
5061: pa_debug.g_err_stage:='NO_DATA_FOUND for fetching project_currency_code';
5062: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5063: END IF;
5064: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5065: END;
5066:
5067: -----------------------------------------
5068: -- Fetching the margin dervied from code.
5988:
5989: pa_debug.reset_curr_function;
5990:
5991: EXCEPTION
5992: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
5993: IF l_debug_mode = 'Y' THEN
5994: pa_debug.g_err_stage:='Exiting out as there are insufficient Parameters..'||SQLERRM;
5995: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
5996: END IF;
5996: END IF;
5997: pa_debug.reset_curr_function;
5998: RETURN;
5999:
6000: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
6001: l_msg_count := FND_MSG_PUB.count_msg;
6002: IF l_msg_count = 1 THEN
6003: PA_INTERFACE_UTILS_PUB.get_messages
6004: (p_encoded => FND_API.G_TRUE
7173: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7174: END IF;
7175: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7176: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7177: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7178: END IF;
7179:
7180: IF l_debug_mode = 'Y' THEN
7181: pa_debug.g_err_stage:='p_project_id; '||p_project_id;
7188: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7189: END IF;
7190: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7191: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7192: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7193: END IF;
7194:
7195: IF l_debug_mode = 'Y' THEN
7196: pa_debug.g_err_stage:='p_budget_version_id; '||p_budget_version_id;
7225: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7226: END IF;
7227: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7228: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7229: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7230: END;
7231: ELSE
7232: l_version_type := p_version_type;
7233: END IF;
7258: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7259: END IF;
7260: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7261: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7262: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7263: END;
7264: ELSE
7265: l_fin_plan_type_id := p_fin_plan_type_id;
7266: END IF;
7497:
7498: pa_debug.reset_curr_function;
7499:
7500: EXCEPTION
7501: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7502: l_msg_count := FND_MSG_PUB.count_msg;
7503: IF l_msg_count = 1 THEN
7504: PA_INTERFACE_UTILS_PUB.get_messages
7505: (p_encoded => FND_API.G_TRUE
7605: pa_debug.g_err_stage:='Impact Wrongly Created';
7606: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7607: END IF;
7608: pa_debug.reset_curr_function;
7609: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7610: ELSE
7611: l_impact_type_code := 'FINPLAN';
7612: END IF;
7613: ELSIF l_record_count = 2 THEN
7612: END IF;
7613: ELSIF l_record_count = 2 THEN
7614: IF l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' AND
7615: l_impact_type_tbl(l_impact_type_tbl.LAST) = 'FINPLAN_COST' THEN
7616: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7617: ELSIF l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' AND
7618: l_impact_type_tbl(l_impact_type_tbl.LAST) = 'FINPLAN_REVENUE' THEN
7619: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7620: END IF;
7615: l_impact_type_tbl(l_impact_type_tbl.LAST) = 'FINPLAN_COST' THEN
7616: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7617: ELSIF l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' AND
7618: l_impact_type_tbl(l_impact_type_tbl.LAST) = 'FINPLAN_REVENUE' THEN
7619: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7620: END IF;
7621: ELSE
7622: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7623: END IF;
7618: l_impact_type_tbl(l_impact_type_tbl.LAST) = 'FINPLAN_REVENUE' THEN
7619: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7620: END IF;
7621: ELSE
7622: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7623: END IF;
7624: END IF;
7625: IF l_debug_mode = 'Y' THEN
7626: pa_debug.g_err_stage:='l_impact_type_code is:' || l_impact_type_code;
7629:
7630: pa_debug.reset_curr_function;
7631: RETURN l_impact_type_code;
7632: EXCEPTION
7633: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7634: l_msg_count := FND_MSG_PUB.count_msg;
7635:
7636: IF l_msg_count = 1 THEN
7637: PA_INTERFACE_UTILS_PUB.get_messages
7702: pa_debug.reset_curr_function;
7703: RETURN l_fin_impl_flag;
7704: END;
7705: IF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'N' THEN
7706: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7707: ELSIF l_cost_impact_flag = 'N' and l_rev_impact_flag = 'Y' THEN
7708: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7709: ELSIF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'Y' THEN
7710: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7704: END;
7705: IF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'N' THEN
7706: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7707: ELSIF l_cost_impact_flag = 'N' and l_rev_impact_flag = 'Y' THEN
7708: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7709: ELSIF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'Y' THEN
7710: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7711: END IF;
7712:
7706: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7707: ELSIF l_cost_impact_flag = 'N' and l_rev_impact_flag = 'Y' THEN
7708: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7709: ELSIF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'Y' THEN
7710: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7711: END IF;
7712:
7713: IF l_debug_mode = 'Y' THEN
7714: pa_debug.g_err_stage:='l_fin_impl_flag is:' || l_fin_impl_flag;
7791: IF P_PA_debug_mode = 'Y' THEN
7792: pa_debug.g_err_stage:='Invalid Arguments Passed';
7793: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7794: END IF;
7795: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7796:
7797: END IF;
7798:
7799: IF P_PA_debug_mode = 'Y' THEN
7805: X_rev_budget_version_id := NULL;
7806: X_all_budget_version_id := NULL;
7807:
7808: FOR c_vers_for_ci_rec IN c_vers_for_ci LOOP
7809: IF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
7810: X_cost_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7811: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
7812: X_rev_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7813: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
7807:
7808: FOR c_vers_for_ci_rec IN c_vers_for_ci LOOP
7809: IF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
7810: X_cost_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7811: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
7812: X_rev_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7813: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
7814:
7815: --Bug 5845142. COST impact can be of ALL version type.
7809: IF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
7810: X_cost_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7811: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
7812: X_rev_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7813: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
7814:
7815: --Bug 5845142. COST impact can be of ALL version type.
7816: IF c_vers_for_ci_rec.approved_cost_plan_type_flag='Y' AND
7817: c_vers_for_ci_rec.approved_rev_plan_type_flag='Y' THEN
7837:
7838: pa_debug.reset_curr_function;
7839:
7840: EXCEPTION
7841: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7842: l_msg_count := FND_MSG_PUB.count_msg;
7843:
7844: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7845: PA_INTERFACE_UTILS_PUB.get_messages
7932: ,pfo.fin_plan_preference_code
7933: FROM pa_fin_plan_types_vl fin,
7934: pa_proj_fp_options pfo
7935: WHERE pfo.project_id = p_project_id
7936: AND pfo.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
7937: AND pfo.fin_plan_type_id = fin.fin_plan_type_id
7938: AND nvl(fin.use_for_workplan_flag,'N') <> 'Y'
7939: And nvl(fin.fin_plan_type_code,'NON-ORG') <> 'ORG_FORECAST'
7940: ORDER BY fin.name;
8062: IF l_debug_mode = 'Y' THEN
8063: pa_debug.g_err_stage:='Invalid Arguments Passed';
8064: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8065: END IF;
8066: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8067:
8068: END IF;
8069:
8070:
8086: IF l_debug_mode = 'Y' THEN
8087: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost';
8088: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8089: END IF;
8090: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8091: END IF;
8092:
8093: -- "Financials: Project: Budget: Submit Revenue"
8094: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_revenue,
8102: IF l_debug_mode = 'Y' THEN
8103: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue';
8104: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8105: END IF;
8106: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8107: END IF;
8108:
8109: -- "Financials: Project: Approved Budget: Submit Cost"
8110: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_cost_appr,
8118: IF l_debug_mode = 'Y' THEN
8119: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Approved';
8120: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8121: END IF;
8122: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8123: END IF;
8124:
8125: -- "Financials: Project: Approved Budget: Submit Revenue"
8126: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_revenue_appr,
8134: IF l_debug_mode = 'Y' THEN
8135: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Approved';
8136: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8137: END IF;
8138: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8139: END IF;
8140:
8141: -- "Financials: Project: Forecast: Submit Cost"
8142: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_cost_forecast,
8150: IF l_debug_mode = 'Y' THEN
8151: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Forecast';
8152: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8153: END IF;
8154: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8155: END IF;
8156:
8157: -- "Financials: Project: Forecast: Submit Revenue"
8158: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_revenue_forecast,
8166: IF l_debug_mode = 'Y' THEN
8167: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Forecast';
8168: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8169: END IF;
8170: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8171: END IF;
8172:
8173: IF l_debug_mode = 'Y' THEN
8174: pa_debug.g_err_stage:='After Fetching Function Security return codes';
8212: IF l_DEBUG_MODE = 'Y' THEN
8213: pa_debug.g_err_stage:='Error while fetching status of the CI';
8214: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8215: END IF;
8216: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8217: END;
8218:
8219: X_partially_impl_flag := 'N';
8220: i := 1;
8233: IF l_debug_mode = 'Y' THEN
8234: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8235: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8236: END IF;
8237: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8238: END IF;
8239:
8240: -- Version Type ref is not longer required as both Cost and Revenue Quantity Figures are Retrieved and used now -- 3902176
8241: /*
8285: IF l_debug_mode = 'Y' THEN
8286: pa_debug.g_err_stage:= 'Error in get_impl_details';
8287: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8288: END IF;
8289: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8290: END IF;
8291:
8292: IF l_approved_fin_pt_id IS NOT NULL THEN
8293: x_approved_fin_pt_id := l_approved_fin_pt_id;
8342: x_rev_impl_tbl(i) := l_rev_impl_flag;
8343:
8344: -- Version Type ref is not longer required as both Cost and Revenue Quantity Figures are Retrieved and used now -- 3902176
8345: PA_FIN_PLAN_UTILS.get_summary_amounts(
8346: p_context => PA_FP_CONSTANTS_PKG.G_PLAN_TYPE_CWV_AMOUNTS,
8347: P_project_id => p_project_id,
8348: P_ci_id => p_ci_id,
8349: P_fin_plan_type_id => c_plan_type_rec.fin_plan_type_id,
8350: -- p_version_type => l_version_type, --Bug 3662077
8369: IF l_debug_mode = 'Y' THEN
8370: pa_debug.g_err_stage:= 'Error in get_summary_amounts';
8371: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8372: END IF;
8373: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8374: END IF;
8375:
8376: --Bug 5845142. A CI version of type ALL with only approved cost plan type flag as Y should be
8377: --considered as having cost impact alone. Revenue amounts , though availble , can not be
8549: IF P_PA_debug_mode = 'Y' THEN
8550: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
8551: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8552: END IF;
8553: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8554: END IF;
8555: -- Bug 11708214
8556:
8557: IF l_debug_mode = 'Y' THEN
8560: END IF;
8561: pa_debug.reset_curr_function;
8562:
8563: EXCEPTION
8564: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8565: l_msg_count := FND_MSG_PUB.count_msg;
8566:
8567: IF c_plan_types_attached%ISOPEN THEN
8568: CLOSE c_plan_types_attached;
8757: IF P_PA_debug_mode = 'Y' THEN
8758: pa_debug.g_err_stage:='Invalid Arguments Passed';
8759: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8760: END IF;
8761: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8762:
8763: END IF;
8764:
8765:
8784: END IF;
8785:
8786: -- Check to see if the status of the control iitem is defined to be implementable
8787:
8788: OPEN c_implementable_status(l_status_code,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,l_ci_type_id);
8789: FETCH c_implementable_status INTO l_is_impl;
8790: IF c_implementable_status%FOUND THEN
8791: l_status_allows_cost_impl := 'Y';
8792: ELSE
8793: l_status_allows_cost_impl := 'N';
8794: END IF;
8795: CLOSE c_implementable_status;
8796:
8797: OPEN c_implementable_status(l_status_code,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,l_ci_type_id);
8798: FETCH c_implementable_status INTO l_is_impl;
8799: IF c_implementable_status%FOUND THEN
8800: l_status_allows_rev_impl := 'Y';
8801: ELSE
8822: IF P_PA_debug_mode = 'Y' THEN
8823: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8824: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8825: END IF;
8826: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8827: END IF;
8828: ELSE
8829: l_ci_cost_version_id := p_ci_cost_version_id;
8830: l_ci_rev_version_id := p_ci_rev_version_id;
8869: INTO l_version_type,l_current_working_flag
8870: FROM pa_budget_versions
8871: WHERE budget_version_id=p_targ_bv_id;
8872:
8873: IF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
8874: l_ci_rev_version_id := NULL;
8875: l_cost_budget_version_id := p_targ_bv_id;
8876: ELSIF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
8877: l_ci_cost_version_id := NULL;
8872:
8873: IF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
8874: l_ci_rev_version_id := NULL;
8875: l_cost_budget_version_id := p_targ_bv_id;
8876: ELSIF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
8877: l_ci_cost_version_id := NULL;
8878: l_rev_budget_version_id := p_targ_bv_id;
8879: ELSIF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
8880: l_all_budget_version_id := p_targ_bv_id;
8875: l_cost_budget_version_id := p_targ_bv_id;
8876: ELSIF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
8877: l_ci_cost_version_id := NULL;
8878: l_rev_budget_version_id := p_targ_bv_id;
8879: ELSIF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
8880: l_all_budget_version_id := p_targ_bv_id;
8881: END IF;
8882:
8883: ELSE
8901: IF P_PA_debug_mode = 'Y' THEN
8902: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
8903: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8904: END IF;
8905: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8906: END IF;
8907: END IF;
8908:
8909:
8970: IF l_all_budget_version_id = -1 THEN
8971: /* -1 indicates an "ALL" budget version cannot exist for this plan type
8972: In this case, see if cost/revenue budget versions exist */
8973:
8974: IF NVL(l_version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
8975: --This chunk of code needs to be executed only when version type is COST or targ bv id is not passed
8976: IF nvl(l_cost_budget_version_id,-1) <> -1 THEN
8977: OPEN c_impact_impl_csr(l_cost_budget_version_id , l_ci_all_version_id, 'COST');
8978: FETCH c_impact_impl_csr INTO l_is_impl;
8986: x_cost_impl_flag := 'X';
8987: END IF;
8988: END IF;
8989:
8990: IF NVL(l_version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
8991: --This chunk of code needs to be executed only when version type is REVENUE or targ bv id is not passed
8992: IF nvl(l_rev_budget_version_id,-1) <> -1 THEN
8993: OPEN c_impact_impl_csr(l_rev_budget_version_id , l_ci_all_version_id, 'REVENUE');
8994: FETCH c_impact_impl_csr INTO l_is_impl;
9067: IF P_PA_debug_mode = 'Y' THEN
9068: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
9069: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
9070: END IF;
9071: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9072: END IF;
9073:
9074: -- Modified if clause below for Bug 3668169
9075: --Changed the select for bug 3663513. This should get executed only if the revenue version exists
9214:
9215: pa_debug.reset_curr_function;
9216:
9217: EXCEPTION
9218: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9219: l_msg_count := FND_MSG_PUB.count_msg;
9220:
9221: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9222: PA_INTERFACE_UTILS_PUB.get_messages
9361: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9362: p_token1 => 'PROCEDURENAME',
9363: p_value1 => l_module_name);
9364:
9365: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9366:
9367: END IF;
9368:
9369: --Get the ci versions if not passed
9386: pa_debug.g_err_stage:='Called API Pa_Fp_Control_Items_Utils.get_ci_versions returned error';
9387: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9388: END IF;
9389:
9390: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9391:
9392: END IF;
9393: ELSE
9394:
9495: pa_debug.g_err_stage:='Called API pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj returned error';
9496: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9497: END IF;
9498:
9499: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9500:
9501: END IF;
9502:
9503: --Get the resource list ids for the approved current working versions
9656: pa_debug.reset_curr_function;
9657:
9658: EXCEPTION
9659:
9660: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9661: l_msg_count := FND_MSG_PUB.count_msg;
9662: IF l_msg_count = 1 THEN
9663: PA_INTERFACE_UTILS_PUB.get_messages
9664: (p_encoded => FND_API.G_TRUE
9754: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9755: p_token1 => 'PROCEDURENAME',
9756: p_value1 => l_module_name);
9757:
9758: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9759:
9760: END IF;
9761:
9762: IF l_debug_mode = 'Y' THEN
9799: pa_debug.reset_curr_function;
9800:
9801: EXCEPTION
9802:
9803: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9804:
9805: CLOSE c_app_cw_ver_csr; -- Added for bug#6405905
9806:
9807: l_msg_count := FND_MSG_PUB.count_msg;
9879: pa_debug.g_err_stage:='Input p_project_id/p_ci_id is NULL';
9880: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9881: END IF;
9882: pa_debug.reset_curr_function;
9883: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9884: END IF;
9885:
9886: BEGIN
9887: -- Selecting budget_version_id for the Rev CI version
9962:
9963: RETURN l_impl_agr_rev_amt;
9964:
9965: EXCEPTION
9966: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9967: l_msg_count := FND_MSG_PUB.count_msg;
9968: IF l_msg_count = 1 THEN
9969: PA_INTERFACE_UTILS_PUB.get_messages
9970: (p_encoded => FND_API.G_TRUE
10086: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10087: p_token1 => 'PROCEDURENAME',
10088: p_value1 => 'PAFPCIUB.get_txn_curr_code_of_ci_ver');
10089:
10090: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10091:
10092: END IF;
10093:
10094:
10116: pa_debug.reset_curr_function();
10117: End;
10118:
10119: EXCEPTION
10120: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10121: l_msg_count := FND_MSG_PUB.count_msg;
10122: IF l_msg_count = 1 THEN
10123: PA_INTERFACE_UTILS_PUB.get_messages
10124: (p_encoded => FND_API.G_TRUE
10198: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10199: p_token1 => 'PROCEDURENAME',
10200: p_value1 => 'PAFPCIUB.validate_fp_ci_type_delete');
10201: pa_debug.reset_curr_function;
10202: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10203: END IF;
10204:
10205: IF l_debug_mode = 'Y' THEN
10206: pa_debug.g_err_stage:='Checkin if delete allowed';
10232:
10233: RETURN is_delete_allowed;
10234:
10235: EXCEPTION
10236: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10237: l_msg_count := FND_MSG_PUB.count_msg;
10238: IF l_msg_count = 1 THEN
10239: PA_INTERFACE_UTILS_PUB.get_messages
10240: (p_encoded => FND_API.G_TRUE