The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 'Y'
into l_exists
from pa_fin_plan_types_vl
where upper(name) = upper(p_name)
and fin_plan_type_id <> p_fin_plan_type_id
and rownum < 2;
Select language_code
,userenv('LANG')
into l_language_code
,l_curr_language
from fnd_languages
where installed_flag = 'B';
being updated for an upgraded budget type. The check should be
done in such a way to exclude checking the budget type from
which this plan type was upgraded */
/*Commented out the sql for bug 2774573 */
/*
SELECT 'Y'
INTO l_exists
FROM pa_budget_types a, pa_fin_plan_types_b b
WHERE upper(budget_type) = upper(p_name)
AND b.fin_plan_type_id = p_fin_plan_type_id
AND a.budget_type_code <> b.migrated_frm_bdgt_typ_code;
SELECT 'Y'
INTO l_exists
FROM pa_budget_types a
WHERE upper(a.budget_type) = upper(p_name)
AND NOT EXISTS( SELECT 'x'
FROM pa_fin_plan_types_b f
WHERE f.fin_plan_type_id=p_fin_plan_type_id
AND nvl
(f.migrated_frm_bdgt_typ_code,'-99')=a.budget_type_code);
Select count(*)
into l_count
from pa_fin_plan_types_b
where fin_plan_type_id <> p_fin_plan_type_id
and used_in_billing_flag = 'Y';
procedure delete_val
(p_fin_plan_type_id IN
pa_fin_plan_types_b.fin_plan_type_id%type,
x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
x_msg_data OUT NOCOPY VARCHAR2) --File.Sql.39 bug 4440895
is
l_msg_count NUMBER;
be deleted */
x_return_status := FND_API.G_RET_STS_ERROR;
p_procedure_name => 'delete_val');
end delete_val;
SELECT 'Y'
INTO l_return
FROM DUAL
WHERE EXISTS (SELECT 1
FROM PA_PROJ_FP_OPTIONS
WHERE FIN_PLAN_TYPE_ID = p_fin_plan_type_id);
SELECT 'Y'
INTO l_partial_cos_exist
FROM DUAL
WHERE
EXISTS (SELECT 'X'
FROM pa_budget_versions bv,
pa_control_items ci
WHERE ci.ci_id=bv.ci_id
AND bv.fin_plan_type_id= p_fin_plan_type_id
AND bv.rev_partially_impl_flag='Y'
AND ci.ci_type_id = p_ci_type_id);
SELECT 'Y'
INTO l_return_flag
FROM pa_budget_versions
WHERE fin_plan_type_id = p_fin_plan_type_id
AND rev_partially_impl_flag = 'Y'
AND ci_id is not null
AND ROWNUM = 1;
SELECT ci.project_status_name
FROM PA_CI_STATUSES_V ci,
PA_PT_CO_IMPL_STATUSES ptco
WHERE ptco.ci_type_id=p_ci_type_id
AND ptco.fin_plan_type_id=p_fin_plan_type_id
AND ptco.version_type=c_impact_type_code
AND ci.ci_type_id = ptco.ci_type_id
AND ci.project_status_code = ptco.status_code;
SELECT fin_plan_type_id
INTO x_workplan_pt_id
FROM pa_fin_plan_types_b
WHERE use_for_workplan_flag = 'Y';
SELECT 'Y'
INTO x_w_pt_attached_to_proj
FROM DUAL
WHERE
EXISTS (SELECT 'X'
FROM pa_proj_fp_options
WHERE fin_plan_type_id = x_workplan_pt_id);
SELECT Nvl(rev_partially_impl_flag, 'N')
INTO l_rev_partial_impl_flag
FROM pa_budget_versions
WHERE ci_id = p_ci_id
AND project_id = p_project_id
AND version_type IN ('REVENUE','ALL');