[Home] [Help]
1894: -- Check for business rules violations
1895:
1896: pa_debug.g_err_stage:= 'Validating input parameters';
1897: IF P_PA_DEBUG_MODE = 'Y' THEN
1898: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1899: END IF;
1900:
1901: --Check if plan version id is null
1902:
1905: (p_version_type IS NULL)
1906: THEN
1907: pa_debug.g_err_stage:= 'p_project_id = '||p_project_id;
1908: IF P_PA_DEBUG_MODE = 'Y' THEN
1909: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1910: END IF;
1911: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1912: IF P_PA_DEBUG_MODE = 'Y' THEN
1913: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1909: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1910: END IF;
1911: pa_debug.g_err_stage:= 'p_fin_plan_type_id = '||p_fin_plan_type_id;
1912: IF P_PA_DEBUG_MODE = 'Y' THEN
1913: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1914: END IF;
1915: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1916: IF P_PA_DEBUG_MODE = 'Y' THEN
1917: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1913: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1914: END IF;
1915: pa_debug.g_err_stage:= 'p_version_type = '||p_version_type;
1916: IF P_PA_DEBUG_MODE = 'Y' THEN
1917: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1918: END IF;
1919:
1920: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1921: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1921: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
1922:
1923: pa_debug.g_err_stage:= 'Invalid Arguments Passed';
1924: IF P_PA_DEBUG_MODE = 'Y' THEN
1925: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1926: END IF;
1927:
1928: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1929: END IF;
1924: IF P_PA_DEBUG_MODE = 'Y' THEN
1925: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
1926: END IF;
1927:
1928: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1929: END IF;
1930:
1931: -- Fetch the plan type fp options id and resource list attached
1932: -- Bug# 2682955-Fetching plan type planning level
1945: x_msg_count => l_msg_count,
1946: x_msg_data => l_msg_data );
1947:
1948: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1949: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
1950: END IF;
1951:
1952:
1953: BEGIN
1952:
1953: BEGIN
1954: SELECT proj_fp_options_id,
1955: DECODE(p_version_type,
1956: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_resource_list_id,
1957: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_resource_list_id,
1958: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1959: DECODE(p_version_type,
1960: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1953: BEGIN
1954: SELECT proj_fp_options_id,
1955: DECODE(p_version_type,
1956: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_resource_list_id,
1957: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_resource_list_id,
1958: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1959: DECODE(p_version_type,
1960: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1961: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_fin_plan_level_code,
1954: SELECT proj_fp_options_id,
1955: DECODE(p_version_type,
1956: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_resource_list_id,
1957: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_resource_list_id,
1958: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1959: DECODE(p_version_type,
1960: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1961: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_fin_plan_level_code,
1962: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code) plan_type_planning_level
1956: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_resource_list_id,
1957: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_resource_list_id,
1958: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1959: DECODE(p_version_type,
1960: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1961: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_fin_plan_level_code,
1962: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code) plan_type_planning_level
1963: INTO l_proj_fp_options_id,
1964: l_resource_list_id,
1957: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_resource_list_id,
1958: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1959: DECODE(p_version_type,
1960: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1961: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_fin_plan_level_code,
1962: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code) plan_type_planning_level
1963: INTO l_proj_fp_options_id,
1964: l_resource_list_id,
1965: l_plan_type_planning_level
1958: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_resource_list_id) resource_list_id,
1959: DECODE(p_version_type,
1960: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL, all_fin_plan_level_code,
1961: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST, cost_fin_plan_level_code,
1962: PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE, revenue_fin_plan_level_code) plan_type_planning_level
1963: INTO l_proj_fp_options_id,
1964: l_resource_list_id,
1965: l_plan_type_planning_level
1966: FROM pa_proj_fp_options
1973: EXCEPTION
1974: WHEN OTHERS THEN
1975: pa_debug.g_err_stage:= 'Failed to fetch the fp options id for given combination'||SQLERRM;
1976: IF P_PA_DEBUG_MODE = 'Y' THEN
1977: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1978: END IF;
1979: raise;
1980: END;
1981:
1980: END;
1981:
1982: pa_debug.g_err_stage:= 'Impacted task = '|| p_impacted_task_id;
1983: IF P_PA_DEBUG_MODE = 'Y' THEN
1984: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1985: END IF;
1986:
1987: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
1988: IF P_PA_DEBUG_MODE = 'Y' THEN
1985: END IF;
1986:
1987: pa_debug.g_err_stage := 'Plan Type Planning Level =' || l_plan_type_planning_level;
1988: IF P_PA_DEBUG_MODE = 'Y' THEN
1989: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1990: END IF;
1991:
1992: -- Fetch resource list info
1993:
1992: -- Fetch resource list info
1993:
1994: pa_debug.g_err_stage:= 'Calling get_resource_list_info' ;
1995: IF P_PA_DEBUG_MODE = 'Y' THEN
1996: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
1997: END IF;
1998:
1999: pa_fin_plan_utils.get_resource_list_info(
2000: p_resource_list_id => l_resource_list_id
2005: ,x_msg_count => l_msg_count
2006: ,x_msg_data => l_msg_data);
2007:
2008: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2009: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2010: END IF;
2011:
2012: /* Bug# 2682955 - Creating plannable elements based on the impacted task is ONLY applicable
2013: if the plan type level planning level is Task level.
2018:
2019: If the planning level for the plan type is Project and resource list is uncategorized,
2020: no check needs to be done. */
2021:
2022: IF l_plan_type_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT AND
2023: l_uncategorized_flag = 'Y' THEN
2024:
2025: RETURN;
2026:
2025: RETURN;
2026:
2027: END IF;
2028:
2029: IF l_plan_type_planning_level <> PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT THEN
2030:
2031: -- If impacted task id is not null then fetch it's top task id and parent task id
2032: -- and derive the task level of it
2033:
2034: IF p_impacted_task_id IS NOT NULL THEN
2035:
2036: pa_debug.g_err_stage:= 'Fetching impacted task details';
2037: IF P_PA_DEBUG_MODE = 'Y' THEN
2038: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2039: END IF;
2040:
2041: -- Fetching top task id and parent task id of impacted task id
2042:
2047: -- Fetching impacted task level
2048:
2049: IF impacted_task_rec.top_task_id = p_impacted_task_id
2050: THEN
2051: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_T;
2052: ELSE
2053: BEGIN
2054: SELECT count(task_id)
2055: INTO l_count
2057: WHERE parent_task_id = p_impacted_task_id;
2058:
2059: IF l_count = 0
2060: THEN
2061: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_L;
2062: ELSE
2063: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M;
2064: END IF;
2065: EXCEPTION
2059: IF l_count = 0
2060: THEN
2061: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_L;
2062: ELSE
2063: l_impacted_task_level := PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M;
2064: END IF;
2065: EXCEPTION
2066: WHEN Others THEN
2067: pa_debug.g_err_stage:= 'Error during fetching impacted task details';
2065: EXCEPTION
2066: WHEN Others THEN
2067: pa_debug.g_err_stage:= 'Error during fetching impacted task details';
2068: IF P_PA_DEBUG_MODE = 'Y' THEN
2069: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2070: END IF;
2071: RAISE;
2072: END;
2073: END IF;
2073: END IF;
2074:
2075: pa_debug.g_err_stage:= 'Impacted task level = '|| l_impacted_task_level;
2076: IF P_PA_DEBUG_MODE = 'Y' THEN
2077: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2078: END IF;
2079:
2080: END IF;
2081:
2078: END IF;
2079:
2080: END IF;
2081:
2082: END IF; /* l_plan_type_planning_level <> PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT */
2083:
2084: -- Initialising l_count to 0
2085:
2086: l_count := 0;
2087:
2088: /* Bug# 2682955 - If plan_type planning level is Project with a categorized resource list,
2089: we just need check for the existence of planning elements */
2090:
2091: IF p_impacted_task_id IS NULL OR l_plan_type_planning_level = PA_FP_CONSTANTS_PKG.G_BUDGET_ENTRY_LEVEL_PROJECT
2092: THEN
2093:
2094: -- Check if plan type has any plannable elements
2095:
2094: -- Check if plan type has any plannable elements
2095:
2096: pa_debug.g_err_stage:= 'Opening cur_impacted_task_null' ;
2097: IF P_PA_DEBUG_MODE = 'Y' THEN
2098: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2099: END IF;
2100:
2101: OPEN cur_impacted_task_null;
2102: FETCH cur_impacted_task_null INTO l_count;
2101: OPEN cur_impacted_task_null;
2102: FETCH cur_impacted_task_null INTO l_count;
2103: CLOSE cur_impacted_task_null;
2104: ELSE
2105: IF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_M THEN
2106:
2107: -- Check if top task id of impacted task is plannable
2108: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_M_child' ;
2109: IF P_PA_DEBUG_MODE = 'Y' THEN
2106:
2107: -- Check if top task id of impacted task is plannable
2108: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_M_child' ;
2109: IF P_PA_DEBUG_MODE = 'Y' THEN
2110: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2111: END IF;
2112:
2113: OPEN cur_impact_task_level_M_child;
2114: FETCH cur_impact_task_level_M_child INTO l_count;
2113: OPEN cur_impact_task_level_M_child;
2114: FETCH cur_impact_task_level_M_child INTO l_count;
2115: CLOSE cur_impact_task_level_M_child;
2116:
2117: ELSIF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_L THEN
2118:
2119: -- Check if the impacted task or its top task is plannable
2120:
2121: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_L' ;
2119: -- Check if the impacted task or its top task is plannable
2120:
2121: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_L' ;
2122: IF P_PA_DEBUG_MODE = 'Y' THEN
2123: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2124: END IF;
2125:
2126: OPEN cur_impact_task_level_L(impacted_task_rec.top_task_id);
2127: FETCH cur_impact_task_level_L INTO l_count;
2126: OPEN cur_impact_task_level_L(impacted_task_rec.top_task_id);
2127: FETCH cur_impact_task_level_L INTO l_count;
2128: CLOSE cur_impact_task_level_L;
2129:
2130: ELSIF l_impacted_task_level = PA_FP_CONSTANTS_PKG.G_IMPACTED_TASK_LEVEL_T THEN
2131:
2132: -- Check if there are any plannable elements with top task id as impacted task id.
2133:
2134: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_T' ;
2132: -- Check if there are any plannable elements with top task id as impacted task id.
2133:
2134: pa_debug.g_err_stage:= 'Opening cur_impact_task_level_T' ;
2135: IF P_PA_DEBUG_MODE = 'Y' THEN
2136: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2137: END IF;
2138:
2139: OPEN cur_impact_task_level_T;
2140: FETCH cur_impact_task_level_T INTO l_count;
2147: x_version_allowed_flag := 'N';
2148:
2149: pa_debug.g_err_stage:= 'Ci_version cant be created';
2150: IF P_PA_DEBUG_MODE = 'Y' THEN
2151: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2152: END IF;
2153:
2154: -- raise error if the ci version cant be created
2155: x_return_status := FND_API.G_RET_STS_ERROR;
2162: END IF;
2163:
2164: pa_debug.g_err_stage:= 'Exiting Is_Create_CI_Version_Allowed';
2165: IF P_PA_DEBUG_MODE = 'Y' THEN
2166: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
2167: END IF;
2168: pa_debug.reset_err_stack;
2169:
2170: EXCEPTION
2168: pa_debug.reset_err_stack;
2169:
2170: EXCEPTION
2171:
2172: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
2173:
2174: x_return_status := FND_API.G_RET_STS_ERROR;
2175: l_msg_count := FND_MSG_PUB.count_msg;
2176: IF l_msg_count = 1 THEN
2187: x_msg_count := l_msg_count;
2188: END IF;
2189:
2190: -- pa_debug.g_err_stage:= 'Invalid Arguments Passed';
2191: -- pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2192: pa_debug.reset_err_stack;
2193: RAISE;
2194:
2195: WHEN others THEN
2200: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FP_CONTROL_ITEMS_UTILS'
2201: ,p_procedure_name => 'Is_Create_CI_Version_Allowed');
2202: pa_debug.g_err_stage:= 'Unexpected Error'||SQLERRM;
2203: IF P_PA_DEBUG_MODE = 'Y' THEN
2204: pa_debug.write('Is_Create_CI_Version_Allowed: ' || l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
2205: END IF;
2206: pa_debug.reset_err_stack;
2207: RAISE;
2208:
2302: Fin_Plan_Option_Level_Code = 'PLAN_TYPE' AND
2303: ( NVL(Approved_Cost_Plan_Type_Flag ,'N') = 'Y' OR
2304: NVL(Approved_Rev_Plan_Type_Flag ,'N') = 'Y' ) ;
2305:
2306: IF l_fp_pref_code = PA_FP_CONSTANTS_PKG.G_PREF_COST_ONLY THEN
2307: l_baseline_funding_flag := 'N';
2308: RETURN l_baseline_funding_flag;
2309: END IF;
2310: END IF;
2849: x_msg_count => l_msg_count,
2850: x_msg_data => l_msg_data );
2851:
2852: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2853: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2854: END IF;
2855:
2856: SELECT
2857: DECODE
2917: x_msg_count => l_msg_count,
2918: x_msg_data => l_msg_data );
2919:
2920: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2921: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
2922: END IF;
2923:
2924: SELECT
2925: DECODE
3056: x_msg_count := FND_MSG_PUB.Count_Msg;
3057: x_msg_data := NULL;
3058: END IF;
3059: EXCEPTION
3060: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3061: l_msg_count := FND_MSG_PUB.count_msg;
3062: IF l_msg_count = 1 THEN
3063: PA_INTERFACE_UTILS_PUB.get_messages
3064: (p_encoded => FND_API.G_TRUE
3224:
3225: IF P_PA_DEBUG_MODE = 'Y' THEN
3226: pa_debug.g_err_stage := 'No Budget Version for the CI';
3227: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3228: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3229: END IF;
3230: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3231: p_msg_name => 'PA_FP_CI_VERSION_NOT_FOUND');
3232: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3228: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3229: END IF;
3230: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3231: p_msg_name => 'PA_FP_CI_VERSION_NOT_FOUND');
3232: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3233:
3234: ELSE
3235:
3236: FOR i in l_ci_version_id_tbl.first..l_ci_version_id_tbl.last
3238:
3239: IF P_PA_DEBUG_MODE = 'Y' THEN
3240: pa_debug.g_err_stage := 'Fetching the Current Working Version';
3241: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3242: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3243: END IF;
3244:
3245: -- Bug 3809665 Check if change order versions have any budget lines with
3246: -- rejection code
3249: (p_budget_version_id => l_ci_version_id_tbl(i))
3250: THEN
3251: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
3252: p_msg_name => 'PA_FP_CI_REJ_LINES_EXST_TO_SUB');
3253: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3254: END IF;
3255:
3256:
3257: /* For the Project, Plan Type and Version Type, get the Current Working Version. */
3268: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3269: IF P_PA_DEBUG_MODE = 'Y' THEN
3270: pa_debug.g_err_stage := 'No working version found.';
3271: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3272: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3273: END IF;
3274: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3275: END IF;
3276:
3270: pa_debug.g_err_stage := 'No working version found.';
3271: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3272: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3273: END IF;
3274: raise PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3275: END IF;
3276:
3277: /* Compare the Plan settings of the Financial Impact and the plan settings of the
3278: current working apporved budget plan version. */
3279:
3280: IF P_PA_DEBUG_MODE = 'Y' THEN
3281: pa_debug.g_err_stage := 'Comparing the Plan Settings of Versions';
3282: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' || l_module_name,
3283: pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3284: END IF;
3285:
3286: --Added by Xin Liu. For enhancement.
3287:
3313:
3314: IF p_pa_debug_mode = 'Y' THEN
3315: pa_debug.g_err_stage:= 'Exiting Fp_Ci_Impact_Submit_Chk';
3316: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3317: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3318: pa_debug.reset_err_stack;
3319: END IF;
3320:
3321: EXCEPTION
3318: pa_debug.reset_err_stack;
3319: END IF;
3320:
3321: EXCEPTION
3322: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3323: x_return_status := FND_API.G_RET_STS_ERROR;
3324: l_msg_count := FND_MSG_PUB.count_msg;
3325: IF l_msg_count = 1 THEN
3326: PA_INTERFACE_UTILS_PUB.get_messages
3353:
3354: IF p_pa_debug_mode = 'Y' THEN
3355: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3356: pa_debug.write('Fp_Ci_Impact_Submit_Chk: ' ||l_module_name,pa_debug.g_err_stage,
3357: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3358: pa_debug.reset_err_stack;
3359: END IF;
3360: RAISE;
3361: END Fp_Ci_Impact_Submit_Chk;
3420:
3421: IF l_debug_mode = 'Y' THEN
3422: pa_debug.g_err_stage:= 'Validating input parameters';
3423: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3424: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3425: END IF;
3426:
3427: IF (p_project_id IS NULL) OR (p_ci_id IS NULL AND p_source_version_id IS NULL)
3428: OR (p_target_version_id is NULL)
3429: THEN
3430: IF l_debug_mode = 'Y' THEN
3431: pa_debug.g_err_stage:= 'p_project_id = '|| to_char(p_project_id);
3432: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3433: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3434: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3435: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3436: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3437: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3432: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3433: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3434: pa_debug.g_err_stage:= 'p_source_version_id = '|| to_char(p_source_version_id);
3435: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3436: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3437: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3439: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3440: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3435: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3436: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3437: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3439: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3440: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3441: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3442: END IF;
3443: PA_UTILS.ADD_MESSAGE
3437: pa_debug.g_err_stage:= 'p_target_version_id = '|| to_char(p_target_version_id);
3438: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3439: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3440: pa_debug.g_err_stage:= 'p_ci_id = '|| to_char(p_ci_id);
3441: pa_debug.write(l_module_name,pa_debug.g_err_stage,PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3442: END IF;
3443: PA_UTILS.ADD_MESSAGE
3444: (p_app_short_name => 'PA',
3445: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3442: END IF;
3443: PA_UTILS.ADD_MESSAGE
3444: (p_app_short_name => 'PA',
3445: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
3446: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
3447:
3448: END IF;
3449:
3450: SELECT NVL(approved_cost_plan_type_flag,'N'),
3502: IF l_debug_mode = 'Y' THEN
3503: pa_debug.g_err_stage:= 'x_upd_cost_impact_allowed is '||x_upd_cost_impact_allowed
3504: ||'x_upd_rev_impact_allowed is '||x_upd_rev_impact_allowed;
3505: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3506: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3507: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3508: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3509: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3510: pa_debug.reset_err_stack;
3505: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3506: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3507: pa_debug.g_err_stage:= 'Exiting FP_CI_VALIDATE_UPDATE_IMPACT';
3508: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3509: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL3);
3510: pa_debug.reset_err_stack;
3511:
3512: END IF;
3513:
3512: END IF;
3513:
3514: EXCEPTION
3515:
3516: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
3517:
3518: x_return_status := FND_API.G_RET_STS_ERROR;
3519: l_msg_count := FND_MSG_PUB.count_msg;
3520:
3549:
3550: IF l_debug_mode = 'Y' THEN
3551: pa_debug.g_err_stage:= 'Unexpected Error'||x_msg_data;
3552: pa_debug.write(l_module_name,pa_debug.g_err_stage,
3553: PA_FP_CONSTANTS_PKG.G_DEBUG_LEVEL5);
3554: pa_debug.reset_err_stack;
3555:
3556: END IF;
3557: RAISE;
4268: WHERE ptco.ci_type_id = p_ci_type_id
4269: AND ptco.version_type = p_version_type
4270: AND ptco.ci_type_id = pcs.ci_type_id
4271: AND ptco.status_code=pcs.project_status_code
4272: AND pcs.project_system_status_code <> PA_FP_CONSTANTS_PKG.G_SYS_STATUS_APPROVED
4273: AND ptco.fin_plan_type_id=p_fin_plan_type_id);
4274:
4275: EXCEPTION
4276: WHEN NO_DATA_FOUND THEN
4323: IF l_debug_mode = 'Y' THEN
4324: pa_debug.reset_curr_function;
4325: END IF ;
4326:
4327: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
4328:
4329: ELSIF l_cost_impact_flag = 'Y' THEN
4330:
4331: IF l_debug_mode = 'Y' THEN
4331: IF l_debug_mode = 'Y' THEN
4332: pa_debug.reset_curr_function;
4333: END IF ;
4334:
4335: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
4336:
4337: ELSIF l_rev_impact_flag = 'Y' THEN
4338:
4339: IF l_debug_mode = 'Y' THEN
4339: IF l_debug_mode = 'Y' THEN
4340: pa_debug.reset_curr_function;
4341: END IF ;
4342:
4343: RETURN PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
4344:
4345: ELSE
4346:
4347: IF l_debug_mode = 'Y' THEN
4917: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4918: END IF;
4919: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
4920: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
4921: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
4922: END IF;
4923:
4924: IF l_debug_mode = 'Y' THEN
4925: pa_debug.g_err_stage:='Validating input parameters - p_cost_version_id : '||p_cost_version_id;
4937: IF l_debug_mode = 'Y' THEN
4938: pa_debug.g_err_stage:='Validating p_revenue_version_id :'||p_revenue_version_id;
4939: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
4940: END IF;
4941: RAISE PA_FP_CONSTANTS_PKG.Just_Ret_Exc;
4942: END IF;
4943:
4944:
4945: -------------------------------------------
5004: IF l_debug_mode = 'Y' THEN
5005: pa_debug.g_err_stage:='NO_DATA_FOUND for fetching project_currency_code';
5006: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
5007: END IF;
5008: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
5009: END;
5010:
5011: -----------------------------------------
5012: -- Fetching the margin dervied from code.
5932:
5933: pa_debug.reset_curr_function;
5934:
5935: EXCEPTION
5936: WHEN PA_FP_CONSTANTS_PKG.Just_Ret_Exc THEN
5937: IF l_debug_mode = 'Y' THEN
5938: pa_debug.g_err_stage:='Exiting out as there are insufficient Parameters..'||SQLERRM;
5939: pa_debug.write('get_summary_data: ' || g_module_name,pa_debug.g_err_stage,5);
5940: END IF;
5940: END IF;
5941: pa_debug.reset_curr_function;
5942: RETURN;
5943:
5944: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
5945: l_msg_count := FND_MSG_PUB.count_msg;
5946: IF l_msg_count = 1 THEN
5947: PA_INTERFACE_UTILS_PUB.get_messages
5948: (p_encoded => FND_API.G_TRUE
7101: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7102: END IF;
7103: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7104: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7105: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7106: END IF;
7107:
7108: IF l_debug_mode = 'Y' THEN
7109: pa_debug.g_err_stage:='p_project_id; '||p_project_id;
7116: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7117: END IF;
7118: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7119: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7120: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7121: END IF;
7122:
7123: IF l_debug_mode = 'Y' THEN
7124: pa_debug.g_err_stage:='p_budget_version_id; '||p_budget_version_id;
7153: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7154: END IF;
7155: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7156: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7157: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7158: END;
7159: ELSE
7160: l_version_type := p_version_type;
7161: END IF;
7186: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7187: END IF;
7188: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
7189: p_msg_name => 'PA_FP_INV_PARAM_PASSED');
7190: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7191: END;
7192: ELSE
7193: l_fin_plan_type_id := p_fin_plan_type_id;
7194: END IF;
7425:
7426: pa_debug.reset_curr_function;
7427:
7428: EXCEPTION
7429: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7430: l_msg_count := FND_MSG_PUB.count_msg;
7431: IF l_msg_count = 1 THEN
7432: PA_INTERFACE_UTILS_PUB.get_messages
7433: (p_encoded => FND_API.G_TRUE
7533: pa_debug.g_err_stage:='Impact Wrongly Created';
7534: pa_debug.write(l_module_name,pa_debug.g_err_stage,5);
7535: END IF;
7536: pa_debug.reset_curr_function;
7537: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7538: ELSE
7539: l_impact_type_code := 'FINPLAN';
7540: END IF;
7541: ELSIF l_record_count = 2 THEN
7540: END IF;
7541: ELSIF l_record_count = 2 THEN
7542: IF l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' AND
7543: l_impact_type_tbl(l_impact_type_tbl.LAST) = 'FINPLAN_COST' THEN
7544: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7545: ELSIF l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' AND
7546: l_impact_type_tbl(l_impact_type_tbl.LAST) = 'FINPLAN_REVENUE' THEN
7547: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7548: END IF;
7543: l_impact_type_tbl(l_impact_type_tbl.LAST) = 'FINPLAN_COST' THEN
7544: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7545: ELSIF l_impact_type_tbl(l_impact_type_tbl.FIRST) = 'FINPLAN' AND
7546: l_impact_type_tbl(l_impact_type_tbl.LAST) = 'FINPLAN_REVENUE' THEN
7547: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7548: END IF;
7549: ELSE
7550: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7551: END IF;
7546: l_impact_type_tbl(l_impact_type_tbl.LAST) = 'FINPLAN_REVENUE' THEN
7547: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7548: END IF;
7549: ELSE
7550: l_impact_type_code := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7551: END IF;
7552: END IF;
7553: IF l_debug_mode = 'Y' THEN
7554: pa_debug.g_err_stage:='l_impact_type_code is:' || l_impact_type_code;
7557:
7558: pa_debug.reset_curr_function;
7559: RETURN l_impact_type_code;
7560: EXCEPTION
7561: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7562: l_msg_count := FND_MSG_PUB.count_msg;
7563:
7564: IF l_msg_count = 1 THEN
7565: PA_INTERFACE_UTILS_PUB.get_messages
7630: pa_debug.reset_curr_function;
7631: RETURN l_fin_impl_flag;
7632: END;
7633: IF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'N' THEN
7634: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7635: ELSIF l_cost_impact_flag = 'N' and l_rev_impact_flag = 'Y' THEN
7636: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7637: ELSIF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'Y' THEN
7638: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7632: END;
7633: IF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'N' THEN
7634: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7635: ELSIF l_cost_impact_flag = 'N' and l_rev_impact_flag = 'Y' THEN
7636: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7637: ELSIF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'Y' THEN
7638: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7639: END IF;
7640:
7634: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST;
7635: ELSIF l_cost_impact_flag = 'N' and l_rev_impact_flag = 'Y' THEN
7636: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE;
7637: ELSIF l_cost_impact_flag = 'Y' and l_rev_impact_flag = 'Y' THEN
7638: l_fin_impl_flag := PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_BOTH;
7639: END IF;
7640:
7641: IF l_debug_mode = 'Y' THEN
7642: pa_debug.g_err_stage:='l_fin_impl_flag is:' || l_fin_impl_flag;
7716: IF P_PA_debug_mode = 'Y' THEN
7717: pa_debug.g_err_stage:='Invalid Arguments Passed';
7718: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7719: END IF;
7720: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7721:
7722: END IF;
7723:
7724: IF P_PA_debug_mode = 'Y' THEN
7730: X_rev_budget_version_id := NULL;
7731: X_all_budget_version_id := NULL;
7732:
7733: FOR c_vers_for_ci_rec IN c_vers_for_ci LOOP
7734: IF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
7735: X_cost_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7736: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
7737: X_rev_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7738: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
7732:
7733: FOR c_vers_for_ci_rec IN c_vers_for_ci LOOP
7734: IF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
7735: X_cost_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7736: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
7737: X_rev_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7738: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
7739: X_all_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7740: END IF;
7734: IF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
7735: X_cost_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7736: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
7737: X_rev_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7738: ELSIF c_vers_for_ci_rec.version_type = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
7739: X_all_budget_version_id := c_vers_for_ci_rec.budget_version_id;
7740: END IF;
7741: END LOOP;
7742:
7747:
7748: pa_debug.reset_curr_function;
7749:
7750: EXCEPTION
7751: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
7752: l_msg_count := FND_MSG_PUB.count_msg;
7753:
7754: IF l_msg_count = 1 and x_msg_data IS NULL THEN
7755: PA_INTERFACE_UTILS_PUB.get_messages
7841: ,fin.plan_class_code
7842: FROM pa_fin_plan_types_vl fin,
7843: pa_proj_fp_options pfo
7844: WHERE pfo.project_id = p_project_id
7845: AND pfo.fin_plan_option_level_code = PA_FP_CONSTANTS_PKG.G_OPTION_LEVEL_PLAN_TYPE
7846: AND pfo.fin_plan_type_id = fin.fin_plan_type_id
7847: AND nvl(fin.use_for_workplan_flag,'N') <> 'Y'
7848: And nvl(fin.fin_plan_type_code,'NON-ORG') <> 'ORG_FORECAST'
7849: ORDER BY fin.name;
7967: IF l_debug_mode = 'Y' THEN
7968: pa_debug.g_err_stage:='Invalid Arguments Passed';
7969: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7970: END IF;
7971: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7972:
7973: END IF;
7974:
7975:
7991: IF l_debug_mode = 'Y' THEN
7992: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost';
7993: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
7994: END IF;
7995: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
7996: END IF;
7997:
7998: -- "Financials: Project: Budget: Submit Revenue"
7999: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_revenue,
8007: IF l_debug_mode = 'Y' THEN
8008: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue';
8009: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8010: END IF;
8011: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8012: END IF;
8013:
8014: -- "Financials: Project: Approved Budget: Submit Cost"
8015: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_cost_appr,
8023: IF l_debug_mode = 'Y' THEN
8024: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Approved';
8025: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8026: END IF;
8027: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8028: END IF;
8029:
8030: -- "Financials: Project: Approved Budget: Submit Revenue"
8031: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_revenue_appr,
8039: IF l_debug_mode = 'Y' THEN
8040: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Approved';
8041: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8042: END IF;
8043: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8044: END IF;
8045:
8046: -- "Financials: Project: Forecast: Submit Cost"
8047: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_cost_forecast,
8055: IF l_debug_mode = 'Y' THEN
8056: pa_debug.g_err_stage:= 'Error fetching function security - Submit Cost Forecast';
8057: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8058: END IF;
8059: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8060: END IF;
8061:
8062: -- "Financials: Project: Forecast: Submit Revenue"
8063: pa_security_pvt.check_user_privilege(x_ret_code => l_submit_revenue_forecast,
8071: IF l_debug_mode = 'Y' THEN
8072: pa_debug.g_err_stage:= 'Error fetching function security - Submit Revenue Forecast';
8073: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8074: END IF;
8075: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8076: END IF;
8077:
8078: IF l_debug_mode = 'Y' THEN
8079: pa_debug.g_err_stage:='After Fetching Function Security return codes';
8117: IF l_DEBUG_MODE = 'Y' THEN
8118: pa_debug.g_err_stage:='Error while fetching status of the CI';
8119: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level3);
8120: END IF;
8121: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8122: END;
8123:
8124: X_partially_impl_flag := 'N';
8125: i := 1;
8138: IF l_debug_mode = 'Y' THEN
8139: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8140: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8141: END IF;
8142: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8143: END IF;
8144:
8145: -- Version Type ref is not longer required as both Cost and Revenue Quantity Figures are Retrieved and used now -- 3902176
8146: /*
8190: IF l_debug_mode = 'Y' THEN
8191: pa_debug.g_err_stage:= 'Error in get_impl_details';
8192: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8193: END IF;
8194: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8195: END IF;
8196:
8197: IF l_approved_fin_pt_id IS NOT NULL THEN
8198: x_approved_fin_pt_id := l_approved_fin_pt_id;
8247: x_rev_impl_tbl(i) := l_rev_impl_flag;
8248:
8249: -- Version Type ref is not longer required as both Cost and Revenue Quantity Figures are Retrieved and used now -- 3902176
8250: PA_FIN_PLAN_UTILS.get_summary_amounts(
8251: p_context => PA_FP_CONSTANTS_PKG.G_PLAN_TYPE_CWV_AMOUNTS,
8252: P_project_id => p_project_id,
8253: P_ci_id => p_ci_id,
8254: P_fin_plan_type_id => c_plan_type_rec.fin_plan_type_id,
8255: -- p_version_type => l_version_type, --Bug 3662077
8274: IF l_debug_mode = 'Y' THEN
8275: pa_debug.g_err_stage:= 'Error in get_summary_amounts';
8276: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8277: END IF;
8278: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8279: END IF;
8280:
8281: IF l_partially_impl_flag = 'Y' THEN
8282: x_partially_impl_flag := l_partially_impl_flag;
8428: END IF;
8429: pa_debug.reset_curr_function;
8430:
8431: EXCEPTION
8432: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
8433: l_msg_count := FND_MSG_PUB.count_msg;
8434:
8435: IF c_plan_types_attached%ISOPEN THEN
8436: CLOSE c_plan_types_attached;
8620: IF P_PA_debug_mode = 'Y' THEN
8621: pa_debug.g_err_stage:='Invalid Arguments Passed';
8622: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8623: END IF;
8624: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8625:
8626: END IF;
8627:
8628:
8647: END IF;
8648:
8649: -- Check to see if the status of the control iitem is defined to be implementable
8650:
8651: OPEN c_implementable_status(l_status_code,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST,l_ci_type_id);
8652: FETCH c_implementable_status INTO l_is_impl;
8653: IF c_implementable_status%FOUND THEN
8654: l_status_allows_cost_impl := 'Y';
8655: ELSE
8656: l_status_allows_cost_impl := 'N';
8657: END IF;
8658: CLOSE c_implementable_status;
8659:
8660: OPEN c_implementable_status(l_status_code,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE,l_ci_type_id);
8661: FETCH c_implementable_status INTO l_is_impl;
8662: IF c_implementable_status%FOUND THEN
8663: l_status_allows_rev_impl := 'Y';
8664: ELSE
8685: IF P_PA_debug_mode = 'Y' THEN
8686: pa_debug.g_err_stage:= 'Error in GET_CI_VERSIONS';
8687: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8688: END IF;
8689: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8690: END IF;
8691: ELSE
8692: l_ci_cost_version_id := p_ci_cost_version_id;
8693: l_ci_rev_version_id := p_ci_rev_version_id;
8711: INTO l_version_type,l_current_working_flag
8712: FROM pa_budget_versions
8713: WHERE budget_version_id=p_targ_bv_id;
8714:
8715: IF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
8716: l_ci_rev_version_id := NULL;
8717: l_cost_budget_version_id := p_targ_bv_id;
8718: ELSIF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
8719: l_ci_cost_version_id := NULL;
8714:
8715: IF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
8716: l_ci_rev_version_id := NULL;
8717: l_cost_budget_version_id := p_targ_bv_id;
8718: ELSIF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
8719: l_ci_cost_version_id := NULL;
8720: l_rev_budget_version_id := p_targ_bv_id;
8721: ELSIF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
8722: l_all_budget_version_id := p_targ_bv_id;
8717: l_cost_budget_version_id := p_targ_bv_id;
8718: ELSIF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
8719: l_ci_cost_version_id := NULL;
8720: l_rev_budget_version_id := p_targ_bv_id;
8721: ELSIF l_version_type=PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL THEN
8722: l_all_budget_version_id := p_targ_bv_id;
8723: END IF;
8724:
8725: ELSE
8743: IF P_PA_debug_mode = 'Y' THEN
8744: pa_debug.g_err_stage:= 'Error in GET_CURR_WORKING_VERSION_IDS';
8745: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8746: END IF;
8747: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8748: END IF;
8749: END IF;
8750:
8751:
8812: IF l_all_budget_version_id = -1 THEN
8813: /* -1 indicates an "ALL" budget version cannot exist for this plan type
8814: In this case, see if cost/revenue budget versions exist */
8815:
8816: IF NVL(l_version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST) = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST THEN
8817: --This chunk of code needs to be executed only when version type is COST or targ bv id is not passed
8818: IF nvl(l_cost_budget_version_id,-1) <> -1 THEN
8819: OPEN c_impact_impl_csr(l_cost_budget_version_id , l_ci_all_version_id, 'COST');
8820: FETCH c_impact_impl_csr INTO l_is_impl;
8828: x_cost_impl_flag := 'X';
8829: END IF;
8830: END IF;
8831:
8832: IF NVL(l_version_type,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE) = PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE THEN
8833: --This chunk of code needs to be executed only when version type is REVENUE or targ bv id is not passed
8834: IF nvl(l_rev_budget_version_id,-1) <> -1 THEN
8835: OPEN c_impact_impl_csr(l_rev_budget_version_id , l_ci_all_version_id, 'REVENUE');
8836: FETCH c_impact_impl_csr INTO l_is_impl;
8909: IF P_PA_debug_mode = 'Y' THEN
8910: pa_debug.g_err_stage:= 'Error in get_fp_ci_agreement_dtls';
8911: pa_debug.write(l_mod_name,pa_debug.g_err_stage,l_debug_level5);
8912: END IF;
8913: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
8914: END IF;
8915:
8916: -- Modified if clause below for Bug 3668169
8917: --Changed the select for bug 3663513. This should get executed only if the revenue version exists
9056:
9057: pa_debug.reset_curr_function;
9058:
9059: EXCEPTION
9060: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9061: l_msg_count := FND_MSG_PUB.count_msg;
9062:
9063: IF l_msg_count = 1 and x_msg_data IS NULL THEN
9064: PA_INTERFACE_UTILS_PUB.get_messages
9203: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9204: p_token1 => 'PROCEDURENAME',
9205: p_value1 => l_module_name);
9206:
9207: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9208:
9209: END IF;
9210:
9211: --Get the ci versions if not passed
9228: pa_debug.g_err_stage:='Called API Pa_Fp_Control_Items_Utils.get_ci_versions returned error';
9229: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9230: END IF;
9231:
9232: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9233:
9234: END IF;
9235: ELSE
9236:
9337: pa_debug.g_err_stage:='Called API pa_fp_control_items_utils.get_app_cw_ver_ids_for_proj returned error';
9338: pa_debug.write( l_module_name,pa_debug.g_err_stage,5);
9339: END IF;
9340:
9341: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9342:
9343: END IF;
9344:
9345: --Get the resource list ids for the approved current working versions
9498: pa_debug.reset_curr_function;
9499:
9500: EXCEPTION
9501:
9502: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9503: l_msg_count := FND_MSG_PUB.count_msg;
9504: IF l_msg_count = 1 THEN
9505: PA_INTERFACE_UTILS_PUB.get_messages
9506: (p_encoded => FND_API.G_TRUE
9596: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9597: p_token1 => 'PROCEDURENAME',
9598: p_value1 => l_module_name);
9599:
9600: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9601:
9602: END IF;
9603:
9604: IF l_debug_mode = 'Y' THEN
9641: pa_debug.reset_curr_function;
9642:
9643: EXCEPTION
9644:
9645: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9646:
9647: CLOSE c_app_cw_ver_csr; -- Added for bug#6405905
9648:
9649: l_msg_count := FND_MSG_PUB.count_msg;
9721: pa_debug.g_err_stage:='Input p_project_id/p_ci_id is NULL';
9722: pa_debug.write(l_module_name,pa_debug.g_err_stage,3);
9723: END IF;
9724: pa_debug.reset_curr_function;
9725: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9726: END IF;
9727:
9728: BEGIN
9729: -- Selecting budget_version_id for the Rev CI version
9804:
9805: RETURN l_impl_agr_rev_amt;
9806:
9807: EXCEPTION
9808: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9809: l_msg_count := FND_MSG_PUB.count_msg;
9810: IF l_msg_count = 1 THEN
9811: PA_INTERFACE_UTILS_PUB.get_messages
9812: (p_encoded => FND_API.G_TRUE
9902: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
9903: p_token1 => 'PROCEDURENAME',
9904: p_value1 => 'PAFPCIUB.get_txn_curr_code_of_ci_ver');
9905:
9906: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
9907:
9908: END IF;
9909:
9910:
9932: pa_debug.reset_curr_function();
9933: End;
9934:
9935: EXCEPTION
9936: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
9937: l_msg_count := FND_MSG_PUB.count_msg;
9938: IF l_msg_count = 1 THEN
9939: PA_INTERFACE_UTILS_PUB.get_messages
9940: (p_encoded => FND_API.G_TRUE
10014: p_msg_name => 'PA_FP_INV_PARAM_PASSED',
10015: p_token1 => 'PROCEDURENAME',
10016: p_value1 => 'PAFPCIUB.validate_fp_ci_type_delete');
10017: pa_debug.reset_curr_function;
10018: RAISE PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc;
10019: END IF;
10020:
10021: IF l_debug_mode = 'Y' THEN
10022: pa_debug.g_err_stage:='Checkin if delete allowed';
10048:
10049: RETURN is_delete_allowed;
10050:
10051: EXCEPTION
10052: WHEN PA_FP_CONSTANTS_PKG.Invalid_Arg_Exc THEN
10053: l_msg_count := FND_MSG_PUB.count_msg;
10054: IF l_msg_count = 1 THEN
10055: PA_INTERFACE_UTILS_PUB.get_messages
10056: (p_encoded => FND_API.G_TRUE