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');
322: -- If versions of the plan type exist in the project, cannot delete plan type
323: open plan_type_versions_csr;
324: fetch plan_type_versions_csr into plan_type_versions_rec;
325: if not (plan_type_versions_csr%NOTFOUND) then
326: x_return_status := FND_API.G_RET_STS_ERROR;
327: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
328: p_msg_name => 'PA_FP_DELETE_PLAN_TYPE_ERROR');
329: end if;
330: close plan_type_versions_csr;
333: open plan_type_code_csr;
334: fetch plan_type_code_csr into plan_type_code_rec;
335: if not (plan_type_code_csr%NOTFOUND) then
336: if plan_type_code_rec.fin_plan_type_code = 'ORG_FORECAST' then
337: x_return_status := FND_API.G_RET_STS_ERROR;
338: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
339: p_msg_name => 'PA_CANNOT_DELETE_ORGFCST');
340: end if;
341: end if;
345: l_msg_count := FND_MSG_PUB.count_msg;
346: if l_msg_count > 0 then
347: if l_msg_count = 1 then
348: PA_INTERFACE_UTILS_PUB.get_messages
349: (p_encoded => FND_API.G_TRUE,
350: p_msg_index => 1,
351: p_msg_count => l_msg_count,
352: p_msg_data => l_msg_data,
353: p_data => l_data,
556:
557: END IF;
558: --Bug#11776072 - Addition end
559:
560: x_return_status := FND_API.G_RET_STS_SUCCESS;
561: pa_debug.reset_err_stack;
562:
563: exception
564: when others then
562:
563: exception
564: when others then
565: rollback to PA_FP_DELETE_PLAN_TYPE;
566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
567: x_msg_count := 1;
568: x_msg_data := SQLERRM;
569: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
570: p_procedure_name => 'delete_plan_type_from_project');
568: x_msg_data := SQLERRM;
569: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_FIN_PLAN_TYPE_GLOBAL',
570: p_procedure_name => 'delete_plan_type_from_project');
571: pa_debug.reset_err_stack;
572: raise FND_API.G_EXC_UNEXPECTED_ERROR;
573: END delete_plan_type_from_project;
574:
575:
576: -- CREATED FOR FP L