The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
fpa_scenario_s.nextval AS scenario_id
FROM
dual;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I','B');
INSERT INTO FPA_OBJECTS_TL( object
,id
,name
,description
,LANGUAGE
,SOURCE_LANG
,created_by
,creation_date
,last_updated_by
,last_update_date
,last_update_login)
VALUES( 'SCENARIO'
,x_scenario_id
,p_scenario_name
,p_scenario_desc
,l_language
,USERENV('LANG')
,0
,sysdate()
,0
,sysdate()
,0);
-- Set the last update date
dbms_aw.execute('last_update_date_scenario_r = '''
|| to_char(SYSDATE, 'MM-DD-YYYY') || '''');
-- Update and commit our changes
IF (p_commit = FND_API.G_TRUE) THEN
dbms_aw.execute('UPDATE');
select count(a.scenario)
into l_sce_count
from fpa_sces_vl a,
fpa_aw_sces_v b
where a.scenario = b.scenario
and b.planning_cycle = p_pc_id
and upper(a.name) = upper(p_scenario_name);
PROCEDURE update_scen_approved_flag
(
p_scenario_id IN NUMBER,
p_approved_flag IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
begin
IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
fnd_log.string
(
FND_LOG.LEVEL_PROCEDURE,
'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag.begin',
'Entering fpa_scenario_pvt.update_scen_approved_flag'
);
-- Set the last update date
-- need to wite code for this
IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
fnd_log.string
(
FND_LOG.LEVEL_PROCEDURE,
'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag.end',
'Exiting fpa_scenario_pvt.update_scen_approved_flag'
);
'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag',
SQLERRM
);
end update_scen_approved_flag;
procedure update_scenario_disc_rate
(
p_api_version IN NUMBER,
p_scenario_id IN NUMBER,
p_discount_rate IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_api_version CONSTANT NUMBER := 1.0;
'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate.begin',
'Entering fpa_scenario_pvt.update_scenario_disc_rate'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate',
'Setting the discount rate.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate.end',
'Entering fpa_scenario_pvt.update_scenario_disc_rate'
);
end update_scenario_disc_rate;
procedure update_scenario_funds_avail
(
p_api_version IN NUMBER,
p_scenario_id IN NUMBER,
p_scenario_funds IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_api_version CONSTANT NUMBER := 1.0;
'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail.begin',
'Entering fpa_scenario_pvt.update_scenario_funds_avail'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail',
'Setting the discount rate.'
);
SELECT b.PC_DISPLAY_FACTOR
INTO l_pc_disply_factor
FROM fpa_aw_sces_v a, fpa_aw_pc_disc_funds_v b
WHERE a.planning_cycle = b.planning_cycle
AND a.scenario = p_scenario_id ;
'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail.end',
'Entering fpa_scenario_pvt.update_scenario_funds_avail'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail',
SQLERRM
);
end update_scenario_funds_avail;
procedure update_scenario_initial_flag
(
p_api_version IN NUMBER,
p_scenario_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_api_version CONSTANT NUMBER := 1.0;
'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.begin',
'Entering fpa_scenario_pvt.update_scenario_initial_flag.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.begin',
'Unsetting any previous flags and setting new flag.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.end',
'Entering fpa_scenario_pvt.update_scenario_initial_flag.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag',
SQLERRM
);
end update_scenario_initial_flag;
procedure update_scenario_working_flag
(
p_api_version IN NUMBER,
p_scenario_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_api_version CONSTANT NUMBER := 1.0;
'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag.begin',
'Entering fpa_scenario_pvt.update_scenario_working_flag.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag',
'Unsetting any previous flags and setting new flag.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag.end',
'Entering fpa_scenario_pvt.update_scenario_working_flag.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag',
SQLERRM
);
end update_scenario_working_flag;
procedure update_scenario_reccom_flag
(
p_api_version IN NUMBER,
p_scenario_id IN NUMBER,
p_scenario_reccom_status IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_api_version CONSTANT NUMBER := 1.0;
'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag.begin',
'Entering fpa_scenario_pvt.update_scenario_reccom_flag.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag',
'Unsetting any previous flags and setting new flag.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag.end',
'Entering fpa_scenario_pvt.update_scenario_reccom_flag.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag',
SQLERRM
);
end update_scenario_reccom_flag;
procedure update_scenario_reccom_status
(
p_api_version IN NUMBER,
p_scenario_id IN NUMBER,
p_project_id IN VARCHAR2,
p_scenario_reccom_value IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_api_version CONSTANT NUMBER := 1.0;
'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
'Entering fpa_scenario_pvt.update_scenario_reccom_status'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
'Limiting to scenario id passed.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
'Assing project id string passed to local string variable.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
'Loop over project id string and update recommended funding status relation.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
'Current project string: ' || l_project_id_string || ' and project id: ' || l_project_id
);
'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.end',
'Exiting fpa_scenario_pvt.update_scenario_reccom_status.'
);
'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status',
SQLERRM
);
end update_scenario_reccom_status;
select scenario
into source_scen_id
from fpa_aw_sce_info_v
where planning_cycle =
(select planning_cycle from fpa_aw_sce_info_v where scenario = p_target_scen_id)
and is_initial_scenario = 1 ;
PROCEDURE Update_Proj_User_Ranks
( p_api_version IN NUMBER,
p_proj_metrics IN fpa_scen_proj_userrank_tbl,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
BEGIN
IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
FND_LOG.String
(
FND_LOG.LEVEL_PROCEDURE,
'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.begin',
'Entering FPA_Scenario_Pvt.Update_Proj_User_Ranks'
);
-- Update user ranking against project ID for the given scenario ID
-- Limit Scenario ID
dbms_aw.execute('LMT scenario_d TO ' || p_proj_metrics(1).scenarioID );
'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
'FPA_Scenario_Pvt.Update_Proj_User_Ranks: Inside for loop:projectID='||p_proj_metrics(i).projectID
||' user_rank='||p_proj_metrics(i).user_rank
);
'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
'Exiting FPA_Scenario_Pvt.Update_Proj_User_Ranks'
);
'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks',
SQLERRM
);
END Update_Proj_User_Ranks;