The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT est_project_raw_cost,
est_project_burdened_cost,
est_quantity,
est_equipment_quantity,
est_project_revenue,
version_type,
agreement_id,
approved_cost_plan_type_flag,
approved_rev_plan_type_flag
FROM pa_budget_versions
WHERE project_id=p_project_id
AND ci_id=p_ci_id;
SELECT COUNT(*) INTO l_no_of_app_plan_types FROM Pa_Proj_Fp_Options
WHERE
Project_Id = p_project_id AND
Fin_Plan_Option_Level_Code = 'PLAN_TYPE' AND
( NVL(Approved_Cost_Plan_Type_Flag ,'N') = 'Y' OR
NVL(Approved_Rev_Plan_Type_Flag ,'N') = 'Y' ) ;
* SELECT approved_cost_plan_type_flag
* INTO l_approved_cost_plan_type_flag
* FROM pa_proj_fp_options
* WHERE project_id = p_project_id
* AND fin_plan_option_level_code = 'PLAN_TYPE'
* AND ( NVL(approved_cost_plan_type_flag,'N') = 'Y'
* OR
* NVL(approved_rev_plan_type_flag,'N') = 'Y');
SELECT 'Y'
INTO l_approved_cost_plan_type_flag
FROM DUAL
WHERE EXISTS (SELECT 'X'
FROM pa_proj_fp_options
WHERE project_id = p_project_id
AND fin_plan_option_level_code = 'PLAN_TYPE'
AND approved_cost_plan_type_flag = 'Y');
SELECT Project_Currency_Code,
Projfunc_Currency_Code,
NVL(Baseline_Funding_Flag,'N') INTO
l_proj_curr_code,
l_projfunc_curr_code,
l_baseline_Funding_flag
FROM Pa_Projects_All
WHERE
Project_Id = p_project_id;
SELECT DECODE(fin_plan_preference_code,
PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,
PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_COST)
INTO l_element_type
FROM pa_proj_fp_options
WHERE project_id=p_project_id
AND fin_plan_type_id=l_fin_plan_type_id
AND fin_plan_version_id IS NULL;
SELECT DECODE(fin_plan_preference_code,
PA_FP_CONSTANTS_PKG.G_PREF_COST_AND_REV_SAME,PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_ALL,
PA_FP_CONSTANTS_PKG.G_ELEMENT_TYPE_REVENUE)
INTO l_element_type
FROM pa_proj_fp_options
WHERE project_id=p_project_id
AND fin_plan_type_id=l_fin_plan_type_id
AND fin_plan_version_id IS NULL;
l_last_updated_by NUMBER := FND_GLOBAL.user_id;
l_last_update_login NUMBER := FND_GLOBAL.login_id;
SELECT approved_rev_plan_type_flag,
approved_cost_plan_type_flag
INTO l_approved_rev_plan_type_flag,
l_approved_cost_plan_type_flag
FROM pa_proj_fp_options
WHERE project_id=p_project_id
AND fin_plan_type_id=p_fin_plan_type_id
AND fin_plan_version_id IS NULL;
SELECT Budget_Version_Id INTO l_bv_id FROM Pa_Budget_Versions bv
WHERE
bv.Project_Id = p_project_id AND
NVL(bv.Fin_Plan_Type_id,-1) = p_fin_plan_type_id AND
NVL(bv.ci_id,-1) = p_ci_id AND
bv.Version_Type = p_element_type;
delete from pa_fp_rollup_tmp;
insert into pa_fp_rollup_tmp(
RESOURCE_ASSIGNMENT_ID,
START_DATE,
END_DATE,
TXN_CURRENCY_CODE,
PROJECT_CURRENCY_CODE,
PROJFUNC_CURRENCY_CODE,
TXN_RAW_COST,
TXN_BURDENED_COST,
TXN_REVENUE )
VALUES(
-1,
TRUNC(l_sysdate),
TRUNC(l_sysdate),
p_project_currency_Code,
p_project_currency_Code,
p_projfunc_currency_Code,
p_est_proj_raw_cost,
p_est_proj_bd_cost,
p_est_proj_revenue );
SELECT PROJFUNC_RAW_COST,
PROJFUNC_BURDENED_COST,
PROJFUNC_REVENUE
INTO
l_est_projfunc_raw_cost ,
l_est_projfunc_bd_cost ,
l_est_projfunc_revenue
FROM Pa_Fp_Rollup_Tmp
WHERE RESOURCE_ASSIGNMENT_ID = -1;
UPDATE Pa_Budget_Versions SET
est_project_raw_cost = p_est_proj_raw_cost,
est_project_burdened_cost = p_est_proj_bd_cost,
est_project_revenue = p_est_proj_revenue,
est_quantity = p_est_qty,
est_equipment_quantity = p_est_equip_qty,
agreement_id = l_agreement_id, -- Bug 3752125
est_projfunc_raw_cost = l_est_projfunc_raw_cost,
est_projfunc_burdened_cost = l_est_projfunc_bd_cost,
est_projfunc_revenue = l_est_projfunc_revenue,
last_update_date = l_sysdate,
last_updated_by = l_last_updated_by,
last_update_login = l_last_update_login
WHERE Budget_Version_Id = l_bv_id;
PROCEDURE delete_ci_plan_versions
(
p_project_id IN NUMBER,
p_ci_id IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit_flag IN VARCHAR2,
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_bv_id_tab PA_PLSQL_DATATYPES.IdTabTyp;
l_module := 'pa.plsql.Pa_Fp_Control_Items_Impact_Pkg.delete_ci_plan_versions';
PA_DEBUG.init_err_stack('Pa_Fp_Control_Items_Impact_Pkg.delete_ci_plan_versions');
l_bv_id_tab.delete;
l_rv_number_tab.delete;
SELECT budget_version_id ,
record_version_number
BULK COLLECT INTO
l_bv_id_tab,
l_rv_number_tab
FROM pa_budget_versions
WHERE
project_id = p_project_id AND
ci_id = p_ci_id;
pa_fin_plan_pub.Delete_Version(
p_project_id => p_project_id,
p_budget_version_id => l_bv_id_tab(i),
p_record_version_number => l_rv_number_tab(i),
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data );
/* the finplan impact record also should be deleted from
ci table */
DELETE FROM pa_ci_impacts
WHERE
ci_id = p_ci_id AND
impact_type_code IN ('FINPLAN','FINPLAN_COST','FINPLAN_REVENUE');
p_procedure_name => 'DELETE_CI_PLAN_VERSIONS',
p_error_text => SUBSTRB(SQLERRM,1,240));
END delete_ci_plan_versions;