The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_tl_rec(
p_init_msg_list IN VARCHAR2,
p_scorecards_tl_rec IN FPA_SCORECARDS_TL_REC,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'insert_tl_rec';
SELECT *
FROM FND_LANGUAGES
WHERE INSTALLED_FLAG IN ('I', 'B');
x_scorecards_tl_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
x_scorecards_tl_rec.LAST_UPDATE_DATE := SYSDATE;
x_scorecards_tl_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
p_msg_log => 'Entering Fpa_Scorecards_Pvt.insert_tl_rec');
INSERT INTO FPA_SCORECARDS_TL(
project_id,
strategic_obj_id,
scenario_id,
comments,
language,
source_lang,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES (
l_scorecards_tl_rec.project_id,
l_scorecards_tl_rec.strategic_obj_id,
l_scorecards_tl_rec.scenario_id,
l_scorecards_tl_rec.comments,
l_scorecards_tl_rec.language,
l_scorecards_tl_rec.source_lang,
l_scorecards_tl_rec.created_by,
l_scorecards_tl_rec.creation_date,
l_scorecards_tl_rec.last_updated_by,
l_scorecards_tl_rec.last_update_date,
l_scorecards_tl_rec.last_update_login);
END insert_tl_rec;
PROCEDURE update_tl_rec(
p_init_msg_list IN VARCHAR2,
p_scorecards_tl_rec IN FPA_SCORECARDS_TL_REC,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'update_tl_rec';
x_scorecards_tl_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
x_scorecards_tl_rec.LAST_UPDATE_DATE := SYSDATE;
x_scorecards_tl_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
p_msg_log => 'Entering Fpa_Scorecards_Pvt.update_tl_rec');
UPDATE fpa_scorecards_tl
SET comments = l_scorecards_tl_rec.comments,
last_updated_by = l_scorecards_tl_rec.last_updated_by,
last_update_date = l_scorecards_tl_rec.last_update_date,
last_update_login = l_scorecards_tl_rec.last_update_login
WHERE project_id = l_scorecards_tl_rec.project_id AND
scenario_id = l_scorecards_tl_rec.scenario_id AND
strategic_obj_id = l_scorecards_tl_rec.strategic_obj_id AND
language = userenv('LANG') AND
source_lang = userenv('LANG');
END update_tl_rec;
PROCEDURE Update_Calc_Pjt_Scorecard_Aw
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_planning_cycle_id IN NUMBER,
p_project_id IN NUMBER,
p_scorecard_tbl IN FPA_SCORECARDS_PVT.FPA_SCORECARD_TBL_TYPE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
-- standard parameters
l_return_status VARCHAR2(1);
l_api_name CONSTANT VARCHAR2(30) := 'Update_Calc_Pjt_Score';
select 'T'
from fpa_scorecards_tl
where project_id = p_project_id
and strategic_obj_id = p_strategic_obj_id
and scenario_id = -1
and language = USERENV('LANG')
and source_lang = USERENV('LANG');
p_msg_log => 'Entering Fpa_Scorecards_Pvt.Update_Calc_Pjt_Scorecard_Aw',
x_return_status => x_return_status);
update_tl_rec(
p_init_msg_list => p_init_msg_list,
p_scorecards_tl_rec => l_scorecards_tl_rec,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_return_status => l_return_status
);
insert_tl_rec(
p_init_msg_list => p_init_msg_list,
p_scorecards_tl_rec => l_scorecards_tl_rec,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_return_status => l_return_status
);
END Update_Calc_Pjt_Scorecard_Aw;
PROCEDURE Update_Calc_Scen_Scorecard_Aw
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_planning_cycle_id IN NUMBER,
p_scenario_id IN NUMBER,
p_project_id IN NUMBER,
p_scorecard_tbl IN FPA_SCORECARDS_PVT.FPA_SCORECARD_TBL_TYPE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
-- standard parameters
l_return_status VARCHAR2(1);
l_api_name CONSTANT VARCHAR2(30) := 'Update_Calc_Scen_Score';
select 'T'
from fpa_scorecards_tl
where project_id = p_project_id
and strategic_obj_id = p_strategic_obj_id
and scenario_id = p_scenario_id
and language = USERENV('LANG')
and source_lang = USERENV('LANG');
p_msg_log => 'Entering Fpa_Scorecards_Pvt.Update_Calc_Scen_Scorecard_Aw',
x_return_status => x_return_status);
update_tl_rec(
p_init_msg_list => p_init_msg_list,
p_scorecards_tl_rec => l_scorecards_tl_rec,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_return_status => l_return_status
);
insert_tl_rec(
p_init_msg_list => p_init_msg_list,
p_scorecards_tl_rec => l_scorecards_tl_rec,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_return_status => l_return_status
);
END Update_Calc_Scen_Scorecard_Aw;
SELECT
PC.PLANNING_CYCLE, SCEI.SCENARIO
FROM
FPA_AW_SCE_INFO_V SCEI, FPA_AW_SCE_INFO_V SCE, FPA_AW_SCES_V PC
WHERE
SCEI.IS_INITIAL_SCENARIO = 1
AND SCE.PLANNING_CYCLE = PC.PLANNING_CYCLE
AND SCEI.PLANNING_CYCLE = PC.PLANNING_CYCLE
AND PC.SCENARIO = SCE.SCENARIO
AND SCE.SCENARIO = P_SCENARIO_ID;
PROCEDURE Update_Scenario_App_Scores
(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
p_scenario_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
-- standard parameters
l_return_status VARCHAR2(1);
l_api_name CONSTANT VARCHAR2(30) := 'Update_Scenario_App_Scores';
'FPA_Scorecard_Pvt.Update_Scenario_App_Scores.begin',
'Setting appropriate dimension limits.'
);
'FPA_Scorecard_Pvt.Update_Scenario_App_Scores.',
'Updating Approved Scores.'
);
'FPA_Scorecard_Pvt.Update_Scenario_App_Scores.end',
'Finished updating approved projects.'
);
end Update_Scenario_App_Scores;
p_delete_project_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
-- standard parameters
l_return_status VARCHAR2(1);
select
scei.scenario
from
fpa_aw_sce_info_v scei, fpa_aw_sce_info_v sce, fpa_aw_sces_v pc
where
scei.is_initial_scenario = 1
and sce.planning_cycle = pc.planning_cycle
and scei.planning_cycle = pc.planning_cycle
and pc.scenario = sce.scenario
and sce.scenario = p_scenario_id;
select
sce.scenario scenario,
sce.project project,
sce.investment_criteria investment_criteria,
pjtc.comments comments
from
fpa_aw_proj_str_scores_v sce, fpa_scorecards_tl pjtc
where
sce.project = pjtc.project_id
and sce.investment_criteria = pjtc.strategic_obj_id
and pjtc.scenario_id = -1
and sce.scenario = p_scenario_id
and pjtc.language = userenv('LANG')
and not exists
(select 1
from fpa_scorecards_tl sctl
where sctl.scenario_id = sce.scenario
and sctl.project_id = sce.project
and sctl.language = userenv('LANG')
and sctl.strategic_obj_id = sce.investment_criteria);
select
pjts.project_id project,
pjts.strategic_obj_id investment_criteria,
pjts.comments comments
from
fpa_scorecards_tl pjts
where
pjts.scenario_id = p_source_scenario_id
and pjts.language = userenv('LANG')
and not exists
(select 1
from fpa_scorecards_tl sctl
where sctl.project_id = pjts.project_id
and sctl.strategic_obj_id = pjts.strategic_obj_id
and sctl.language = userenv('LANG')
and sctl.scenario_id = p_scenario_id);
IF (p_delete_project_id is not null) then
DELETE
FROM FPA_SCORECARDS_TL
WHERE SCENARIO_ID = P_SCENARIO_ID
AND PROJECT_ID = P_DELETE_PROJECT_ID
AND LANGUAGE = userenv('LANG')
AND SOURCE_LANG = userenv('LANG');
insert_tl_rec(
p_init_msg_list => p_init_msg_list,
p_scorecards_tl_rec => l_scorecards_tl_rec,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_return_status => l_return_status);
insert_tl_rec(
p_init_msg_list => p_init_msg_list,
p_scorecards_tl_rec => l_scorecards_tl_rec,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_return_status => l_return_status);
insert_tl_rec(
p_init_msg_list => p_init_msg_list,
p_scorecards_tl_rec => l_scorecards_tl_rec,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_return_status => l_return_status);
SELECT
PC.PC_STATUS, PC.PORTFOLIO, PC.PLANNING_CYCLE,
SCE.RECOMMENDED_FLAG, SCE.APPROVED_FLAG, SCE.IS_INITIAL_SCENARIO
FROM
FPA_AW_PC_INFO_V PC, FPA_AW_SCES_V SCEP, FPA_AW_SCE_INFO_V SCE
WHERE
SCEP.SCENARIO = SCE.SCENARIO
AND SCEP.PLANNING_CYCLE = PC.PLANNING_CYCLE
AND SCEP.SCENARIO = P_SCENARIO_ID;
SELECT
PC.PC_STATUS, PC.PORTFOLIO, PC.SCENARIO_COUNT
FROM
FPA_AW_PC_INFO_V PC
WHERE
PC.PLANNING_CYCLE = P_PC_ID;