30: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
31: x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
32: is
33: BEGIN
34: x_return_status := FND_API.G_RET_STS_SUCCESS;
35: x_msg_count := 0;
36: pa_fin_plan_type_global.G_PROJECT_ID := p_project_id;
37: -- pa_fin_plan_type_global.G_PLAN_CLASS_CODE := p_plan_class_code;
38: -- *** bug fix 2770782: retrieve x_budget_status code from project-level row ***
44:
45: EXCEPTION WHEN NO_DATA_FOUND THEN
46: x_factor_by_code := 1;
47: WHEN OTHERS THEN
48: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
49: x_msg_count := 1;
50: x_msg_data := SQLERRM;
51: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
52: p_procedure_name => 'set_global_variables');
79: current_working_flag = 'Y';
80: cw_rec cw_csr%ROWTYPE;
81:
82: BEGIN
83: x_return_status := FND_API.G_RET_STS_SUCCESS;
84: IF p_plan_status_code = 'CB' THEN
85: open cb_csr;
86: fetch cb_csr into cb_rec;
87: if cb_csr%NOTFOUND then
102: END IF;
103:
104: EXCEPTION
105: WHEN OTHERS THEN
106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
107: x_msg_count := 1;
108: x_msg_data := SQLERRM;
109: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
110: p_procedure_name => 'pa_fp_get_orgfcst_version_id');
159: current_flag = 'Y';
160: baselined_revenue_rec baselined_revenue_csr%ROWTYPE;
161:
162: BEGIN
163: x_return_status := FND_API.G_RET_STS_SUCCESS;
164: x_msg_count := 0;
165: -- looking for the current baselined cost/revenue versions
166: if p_plan_status_code = 'CB' then
167: open baselined_cost_csr;
201: end if;
202:
203: EXCEPTION
204: WHEN OTHERS THEN
205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
206: x_msg_count := 1;
207: x_msg_data := SQLERRM;
208: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
209: p_procedure_name => 'pa_fp_get_finplan_version_id');
291: -- If versions of the plan type exist in the project, cannot delete plan type
292: open plan_type_versions_csr;
293: fetch plan_type_versions_csr into plan_type_versions_rec;
294: if not (plan_type_versions_csr%NOTFOUND) then
295: x_return_status := FND_API.G_RET_STS_ERROR;
296: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
297: p_msg_name => 'PA_FP_DELETE_PLAN_TYPE_ERROR');
298: end if;
299: close plan_type_versions_csr;
302: open plan_type_code_csr;
303: fetch plan_type_code_csr into plan_type_code_rec;
304: if not (plan_type_code_csr%NOTFOUND) then
305: if plan_type_code_rec.fin_plan_type_code = 'ORG_FORECAST' then
306: x_return_status := FND_API.G_RET_STS_ERROR;
307: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
308: p_msg_name => 'PA_CANNOT_DELETE_ORGFCST');
309: end if;
310: end if;
314: l_msg_count := FND_MSG_PUB.count_msg;
315: if l_msg_count > 0 then
316: if l_msg_count = 1 then
317: PA_INTERFACE_UTILS_PUB.get_messages
318: (p_encoded => FND_API.G_TRUE,
319: p_msg_index => 1,
320: p_msg_count => l_msg_count,
321: p_msg_data => l_msg_data,
322: p_data => l_data,
482: where project_id = p_project_id and
483: fin_plan_option_level_code = 'PLAN_TYPE' and
484: fin_plan_type_id = p_fin_plan_type_id;
485:
486: x_return_status := FND_API.G_RET_STS_SUCCESS;
487: pa_debug.reset_err_stack;
488:
489: exception
490: when others then
488:
489: exception
490: when others then
491: rollback to PA_FP_DELETE_PLAN_TYPE;
492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
493: x_msg_count := 1;
494: x_msg_data := SQLERRM;
495: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
496: p_procedure_name => 'delete_plan_type_from_project');
494: x_msg_data := SQLERRM;
495: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
496: p_procedure_name => 'delete_plan_type_from_project');
497: pa_debug.reset_err_stack;
498: raise FND_API.G_EXC_UNEXPECTED_ERROR;
499: END delete_plan_type_from_project;
500:
501:
502: -- CREATED FOR FP L