The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE create_update_access_list
( p_portf_users_tbl IN FPA_PORTFOLIO_USERS_TBL,
p_portfolio_id NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER
);
SELECT a.strategic_obj
,nvl(e.strategic_obj_weight,0)
,0 Targetfrom
,0 Targetto
FROM fpa_aw_inv_criteria_v a
,fpa_aw_inv_criteria_info_v e
WHERE a.strategic_obj = e.strategic_obj;
SELECT p.name INTO l_portfolio_name
FROM fpa_portfs_vl p
WHERE portfolio = p_pc_all_obj.pc_info.portfolio;
SELECT count(strategic_obj)
INTO l_inv_crit_count
FROM fpa_aw_inv_criteria_v;
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for Setup values, when UI did not have any values.'
);
FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data
(
p_api_version => 1.0,
p_inv_crit_tbl => l_inv_criteria_tbl,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for setting up default values.'
);
FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data
(
p_api_version => 1.0,
p_inv_crit_tbl => l_inv_criteria_tbl,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data for UI values.'
);
FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data
(
p_api_version => 1.0,
p_inv_crit_tbl => l_inv_criteria_tbl,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.'
);
FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix
(
p_api_version => 1.0,
p_inv_matrix => l_inv_matrix_tbl,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.'
);
FPA_PlanningCycle_Pvt.Update_Pc_Class_Category
(
p_api_version => 1.0,
p_pc_id => l_new_pc_id,
p_catg_id => p_pc_all_obj.pc_info.pc_category,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
);
FPA_PlanningCycle_Pvt.Update_Pc_Calendar
(
p_api_version => 1.0,
p_pc_info => l_pc_info,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Currency'
);
FPA_PlanningCycle_Pvt.Update_Pc_Currency
(
p_api_version => 1.0,
p_pc_info => l_pc_info,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
);
FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date
(
p_api_version => 1.0,
p_pc_info => l_pc_info,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'CAlling FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.'
);
FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds
(
p_api_version => 1.0,
p_disc_funds => l_discount_obj,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'CAlling FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.'
);
FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets
(
p_api_version => 1.0,
p_fin_targets_tbl => l_fin_targets_tbl,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'CAlling FPA_PlanningCycle_Pvt.Pa_Distrb_Lists_Insert_Row.'
);
FPA_PlanningCycle_Pvt.Pa_Distrb_Lists_Insert_Row
(
p_api_version => 1.0,
p_distr_list => l_distr_list,
p_list_id => l_distr_list_id,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'Calling FPA_PlanningCycle_Pvt.Pa_Dist_List_Items_Update_Row'
);
FPA_PlanningCycle_Pvt.Pa_Dist_List_Items_Update_Row
(
p_api_version => 1.0,
p_distr_list_items_tbl => l_distr_list_items_tbl,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
dbms_aw.execute('UPDATE');
* UPDATE case for Planning Cycle(PC). This API checks for the null values
* in object types and only updates not null objects.
* The calling program populates only those objects in fpa_pc_all_obj
* which needs update.
*/
PROCEDURE Update_Pc
( p_api_version IN NUMBER,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_pc_all_obj IN fpa_pc_all_obj,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
l_pc_info fpa_pc_info_obj;
'fpa.sql.FPA_Process_Pvt.Update_Pc.begin',
'Entering FPA_Process_Pvt.Update_Pc'
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Initializing l_pc_info with p_pc_all_obj.pc_info'
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling Fpa_Utilities_Pvt.attach_AW'
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields'
);
FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields
(
p_api_version => 1.0,
p_pc_all_obj => p_pc_all_obj,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix'
);
FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix
(
p_api_version => 1.0,
p_inv_matrix => p_pc_all_obj.pc_investmix,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Class_Category'
);
FPA_PlanningCycle_Pvt.Update_Pc_Class_Category
(
p_api_version => 1.0,
p_pc_id => p_pc_all_obj.pc_info.planning_cycle,
p_catg_id => p_pc_all_obj.pc_info.pc_category,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
);
FPA_PlanningCycle_Pvt.Update_Pc_Calendar
(
p_api_version => 1.0,
p_pc_info => l_pc_info,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Currency'
);
FPA_PlanningCycle_Pvt.Update_Pc_Currency
(
p_api_version => 1.0,
p_pc_info => l_pc_info,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
);
FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date
(
p_api_version => 1.0,
p_pc_info => l_pc_info,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds'
);
FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds
(
p_api_version => 1.0,
p_disc_funds => p_pc_all_obj.pc_discount,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets'
);
FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets
(
p_api_version => 1.0,
p_fin_targets_tbl => p_pc_all_obj.pc_targets,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data'
);
FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data
(
p_api_version => 1.0,
p_inv_crit_tbl => p_pc_all_obj.pc_invest_criteria,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling FPA_PlanningCycle_Pvt.Pa_Dist_List_Items_Update_Row'
);
FPA_PlanningCycle_Pvt.Pa_Dist_List_Items_Update_Row
(
p_api_version => 1.0,
p_distr_list_items_tbl => p_pc_all_obj.distr_list_items,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Updating AW and committing database.'
);
dbms_aw.execute('UPDATE');
'fpa.sql.FPA_Process_Pvt.Update_Pc',
'Calling Fpa_Utilities_Pvt.detach_AW.'
);
'fpa.sql.FPA_Process_Pvt.Update_Pc.end',
'Exiting FPA_Process_Pvt.Update_Pc'
);
FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa.sql.FPA_Process_Pvt.Update_Pc');
'fpa.sql.FPA_Process_Pvt.Update_Pc',
SQLERRM
);
END Update_Pc;
SELECT prevPC.planning_cycle
FROM FPA_AW_PC_INFO_V prevPC,
FPA_AW_PC_INFO_V currPC
WHERE prevPC.portfolio = currPC.portfolio
AND currPC.planning_cycle = p_pc_id
AND prevPC.last_flag = 1;
SELECT CALENDAR_NAME , PERIOD_TYPE, CAL_PERIOD_TYPE
INTO l_cal_name, l_period_type, l_cal_period_type
FROM FPA_AW_PC_INFO_V
WHERE PLANNING_CYCLE = p_pc_id;
dbms_aw.execute('UPDATE');
* DELETES the User from Distribution list Subtab in Planning Cycle(PC).
*/
PROCEDURE Pa_Dist_List_Items_Delete_Row (
p_api_version IN NUMBER,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
P_LIST_ITEM_ID IN NUMBER,
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_Process_Pvt.Pa_Dist_List_Items_Update_Row.begin',
'Entering FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row'
);
PA_DIST_LIST_ITEMS_PKG.Delete_Row
(
P_LIST_ITEM_ID => P_LIST_ITEM_ID
);
'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.end',
'Exiting FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row'
);
FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row');
'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row',
SQLERRM
);
END Pa_Dist_List_Items_Delete_Row;
create_update_access_list
( l_default_portf_user_tbl,
portfolio_rec.portfolio_id,
x_return_status ,
x_msg_data,
x_msg_count
);
create_update_access_list
( p_portfolio_obj.portfolio_users,
portfolio_rec.portfolio_id,
x_return_status ,
x_msg_data,
x_msg_count
);
dbms_aw.execute('UPDATE');
PROCEDURE Delete_Portfolio
(
p_api_version IN NUMBER,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_portfolio_id IN NUMBER,
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_process_pvt.Delete_Portfolio.begin',
'Entering fpa_process_pvt.Delete_Portfolio'
);
'fpa.sql.fpa_process_pvt.Delete_Portfolio',
'Attaching OLAP workspace: '
);
FPA_Portfolio_PVT.Delete_Portfolio
(
p_api_version => p_api_version,
p_portfolio_id => p_portfolio_id ,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count =>x_msg_count
);
dbms_aw.execute('UPDATE');
'fpa.sql.fpa_process_pvt.Delete_Portfolio',
'Detaching OLAP workspace: '
);
'fpa.sql.fpa_process_pvt.Delete_Portfolio.end',
'Exiting fpa_process_pvt.Delete_Portfolio'
);
FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa_process_pvt.Delete_Portfolio');
'fpa_process_pvt.Delete_Portfolio',
SQLERRM
);
END Delete_Portfolio;
PROCEDURE Update_Portfolio
(
p_api_version IN NUMBER,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_portfolio_obj IN FPA_PORTFO_ALL_OBJ,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER
)
IS
BEGIN
-- clear all previous messages.
FND_MSG_PUB.Initialize;
'fpa.sql.fpa_process_pvt.update_portfolio.begin',
'Entering fpa_process_pvt.update_portfolio'
);
'fpa.sql.fpa_process_pvt.update_portfolio',
'Duplicate Portfolio Name'
);
'fpa.sql.fpa_process_pvt.update_portfolio',
'Attaching OLAP workspace: '
);
FPA_SECURITY_PVT.update_portfolio_owner
(
p_api_version => p_api_version,
p_init_msg_list => 'F',
p_portfolio_id => portfolio_rec.portfolio_id,
p_person_id => portfolio_rec.Portfolio_owner_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
create_update_access_list
( p_portfolio_obj.portfolio_users,
portfolio_rec.portfolio_id,
x_return_status ,
x_msg_data,
x_msg_count
);
dbms_aw.execute('UPDATE');
FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa_process_pvt.update_portfolio');
'fpa_process_pvt.update_portfolio',
SQLERRM
);
PROCEDURE delete_Portfolio_user
(
p_api_version IN NUMBER,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_project_party_id IN NUMBER,
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_process_pvt.delete_portfolio_user.begin',
'Entering fpa_process_pvt.delete_portfolio_user'
);
FPA_SECURITY_PVT.Delete_Portfolio_User
(
p_api_version => 1,
p_init_msg_list => 'F',
p_portfolio_party_id => p_project_party_id,
p_instance_set_name=> 'PJP_PORTFOLIO_SET',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
'fpa.sql.fpa_process_pvt.delete_portfolio_user.end',
'Exiting fpa_process_pvt.delete_portfolio_user'
);
FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa_process_pvt.delete_Portfolio_user');
'fpa_process_pvt.delete_Portfolio_user',
SQLERRM
);
PROCEDURE create_update_access_list
( p_portf_users_tbl IN FPA_PORTFOLIO_USERS_TBL,
p_portfolio_id NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER
)
IS
l_project_party_id number;
l_api_name CONSTANT VARCHAR2(30) := 'Create_Update_Access_List';
'fpa.sql.fpa_process_pvt.create_update_access_list.begin',
'Entering fpa_process_pvt.create_update_access_list'
);
p_msg_log => 'Entering fpa_process_pvt.create_update_access_list.begin',
x_return_status => x_return_status);
FPA_SECURITY_PVT.update_portfolio_user(
p_api_version => 1,
p_init_msg_list => 'F',
p_portfolio_party_id => p_portf_users_tbl(i).project_party_id,
p_project_role_id => p_portf_users_tbl(i).role_id,
p_start_date_active => p_portf_users_tbl(i).start_Date,
p_end_date_active => p_portf_users_tbl(i).end_Date,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
'fpa.sql.fpa_process_pvt.create_update_access_list.end',
'Exiting fpa_process_pvt.create_update_access_list'
);
select a.name ,a.description ,b.initiate_date ,b.submission_due_date
into l_pc_name, l_pc_description, l_pc_date_initiated, l_due_date
from fpa_pcs_vl a ,fpa_aw_pc_info_v b
where a.planning_cycle = b.planning_cycle
and a.planning_cycle = l_pc_id;
dbms_aw.execute('UPDATE');
select pset.INIT_PROJECT_SET_ID
from fpa_aw_sce_info_v sc, fpa_aw_pc_info_v pc, fpa_aw_project_sets_v pset
where sc.planning_cycle = pc.planning_cycle
and pc.portfolio = pset.portfolio
and sc.scenario = p_scenario_id;
SELECT scenario ,project, scenario_project_valid
FROM table (CAST( ( olap_table ('fpa.fpapjp duration query', 'fpa_advanced_search_tbl','',
'DIMENSION scenario FROM scenario_d DIMENSION project from project_d MEASURE scenario_project_valid from scenario_project_m')) as fpa_advanced_search_tbl))
WHERE scenario_project_valid = 1 and scenario = p_scenario;
select scenario
into l_init_scenario_id
from fpa_aw_sce_info_v
where is_initial_scenario = 1
and planning_cycle = (select planning_cycle
from fpa_aw_sces_v
where scenario = p_scenario_id);
'Completed AW Updates for project_set_project_m'
);
p_delete_project_id => null,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
dbms_aw.execute('UPDATE');
'Completed AW Updates for project_set_project_m'
);
p_type => 'UPDATE',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
dbms_aw.execute('UPDATE');
select class_code from fpa_aw_projs_v where project = p_proj_id;
p_delete_project_id => p_proj_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
'Completed all API calls. Issue UPDATE to AW'
);
dbms_aw.execute('UPDATE');
PROCEDURE update_strategicobj_weight
( p_api_version IN NUMBER
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_strategic_weights_string IN varchar2
,x_return_status OUT NOCOPY varchar2
,x_msg_count OUT NOCOPY number
,x_msg_data OUT NOCOPY varchar2
)
AS
investment_rec fpa_investment_criteria_pvt.investment_rec_type;
'fpa.sql.fpa_process_pvt.update_strategicobj_weight',
'Attaching OLAP workspace: '
);
fpa_investment_criteria_pvt.update_strategicobj_weight_aw
(
p_investment_rec_type => investment_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
dbms_aw.execute('UPDATE');
'fpa.sql.FPA_Process_Pvt.Update_Pc',
SQLERRM
);
PROCEDURE update_strategicobj
( p_api_version IN NUMBER,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_strategic_obj_id IN NUMBER,
p_strategic_obj_name IN VARCHAR2,
p_strategic_obj_desc IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
AS
l_investment_rec fpa_investment_criteria_pvt.investment_rec_type;
FPA_Investment_Criteria_PVT.update_strategicobj( p_commit => p_commit
,p_investment_rec_type => l_investment_rec
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data);
dbms_aw.execute('UPDATE');
END update_strategicobj;
l_investment_rec.strategic_obj_status := 'DODELETE';
FPA_Investment_Criteria_PVT.Update_StrategicObj_Status_AW(
p_commit => FND_API.G_TRUE,
p_investment_rec_type => l_investment_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
FPA_Investment_Criteria_PVT.update_strategicobj_level_aw( p_commit
,l_investment_rec
,x_return_status
,x_msg_count
,x_msg_data);
dbms_aw.execute('UPDATE');
PROCEDURE delete_strategicobj
( p_api_version IN NUMBER,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_strategic_obj_shortname IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
AS
l_investment_rec fpa_investment_criteria_pvt.investment_rec_type;
'fpa.sql.fpa_process_pvt.delete_strategicobj',
'Attaching OLAP workspace: ');
fpa_investment_criteria_pvt.delete_strategicobj_aw
(
p_api_version => p_api_version,
p_investment_rec_type => l_investment_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
dbms_aw.execute('UPDATE');
'fpa.sql.FPA_Process_Pvt.Update_Pc',
SQLERRM
);
END delete_strategicobj;
'Calling fpa_scenario_pvt.update_scenario_disc_rate.'
);
fpa_scenario_pvt.update_scenario_disc_rate
(
p_api_version => 1.0,
p_scenario_id => x_scenario_id,
p_discount_rate => p_sce_disc_rate,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
'Calling fpa_scenario_pvt.update_scenario_funds_avail.'
);
fpa_scenario_pvt.update_scenario_funds_avail
(
p_api_version => 1.0,
p_scenario_id => x_scenario_id,
p_scenario_funds => p_sce_funds_avail,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_delete_project_id => null,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
dbms_aw.execute('UPDATE');
fpa_scenario_pvt.update_scenario_reccom_flag
(
p_api_version => 1.0,
p_scenario_id => p_scenario_id,
p_scenario_reccom_status => l_scenario_reccom_status,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
fpa_scenario_pvt.update_scen_approved_flag
( p_scenario_id => p_scenario_id,
p_approved_flag => l_approved_flag,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
fpa_scenario_pvt.update_scenario_reccom_flag
(
p_api_version => 1.0,
p_scenario_id => p_scenario_id,
p_scenario_reccom_status => l_scenario_reccom_status,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
fpa_scenario_pvt.update_scenario_working_flag
(
p_api_version => 1.0,
p_scenario_id => p_scenario_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
dbms_aw.execute('UPDATE');
procedure update_scenario_reccom_status
(
p_commit IN VARCHAR2 := FND_API.G_FALSE,
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_Process_Pvt.update_scenario_reccom_status.begin',
'Entering FPA_Process_Pvt.update_scenario_reccom_status'
);
'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
'Attaching AW space.'
);
'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
'Calling procedure fpa_scenario_pvt.update_scenario_reccom_status.'
);
fpa_scenario_pvt.update_scenario_reccom_status
(
p_api_version => 1.0,
p_scenario_id => p_scenario_id,
p_project_id => p_project_id,
p_scenario_reccom_value => p_scenario_reccom_value,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
'Calling procedure fpa_scenario_pvt.calc_scenario_data for Class Codes.'
);
'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
'Calling procedure fpa_scenario_pvt.calc_scenario_data for Scenario.'
);
'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
'Committing changes to database.'
);
dbms_aw.execute('UPDATE');
'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
'Detach AW space.'
);
'fpa.sql.FPA_Process_Pvt.update_scenario_reccom_status',
SQLERRM
);
END update_scenario_reccom_status;
SELECT 'T'
FROM PA_PROJECTS_ALL
WHERE PROJECT_ID = P_PROJECT_ID
AND FUNDING_APPROVAL_STATUS_CODE IN
('FUNDING_PROPOSED','FUNDING_ONHOLD','FUNDING_APPROVED');
dbms_aw.execute('UPDATE');
dbms_aw.execute('UPDATE');
* Updates user ranks for all projects in the current scenario.
*/
PROCEDURE Update_Scen_Proj_User_Ranks
( p_api_version IN NUMBER,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_projs IN fpa_scen_proj_userrank_all_obj,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
BEGIN
-- clear all previous messages.
FND_MSG_PUB.Initialize;
'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks.begin',
'Entering FPA_Process_Pvt.Update_Scen_Proj_User_Ranks'
);
FPA_Scenario_Pvt.Update_Proj_User_Ranks
(
p_api_version => 1.0,
p_proj_metrics => p_projs.user_ranks,
x_return_status => x_return_status,
x_msg_data => x_msg_data,
x_msg_count => x_msg_count
);
dbms_aw.execute('UPDATE');
'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks.end',
'Exiting FPA_Process_Pvt.Update_Scen_Proj_User_Ranks'
);
FND_MESSAGE.SET_TOKEN('SOURCE', 'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks');
'fpa.sql.FPA_Process_Pvt.Update_Scen_Proj_User_Ranks',
SQLERRM
);
END Update_Scen_Proj_User_Ranks;
PROCEDURE update_pjt_proj_funding_status
( p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
p_scenario_id IN NUMBER,
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_Process_Pvt.update_pjt_proj_funding_status.Begin',
'Exiting FPA_Process_Pvt.update_pjt_proj_funding_status'
);
fpa_project_pvt.update_proj_funding_status
(
p_api_version => 1.0,
p_init_msg_list => p_init_msg_list,
p_commit => FND_API.G_FALSE,
p_appr_scenario_id => p_scenario_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
'fpa.sql.FPA_Process_Pvt.update_pjt_proj_funding_status.end',
'Exiting FPA_Process_Pvt.update_pjt_proj_funding_status'
);
p_procedure_name => 'UPDATE_PJT_PROJ_FUNDING_STATUS',
p_error_text => SUBSTRB(SQLERRM,1,240));
p_procedure_name => 'UPDATE_PJT_PROJ_FUNDING_STATUS',
p_error_text => SUBSTRB(SQLERRM,1,240));
END update_pjt_proj_funding_status;
select count(a.project) Validpc
from fpa_aw_projs_v a,
fpa_aw_pcs_v b,
fpa_aw_pc_info_v c
where a.portfolio = b.portfolio
and b.planning_cycle = c.planning_cycle
and c.pc_status in ('COLLECTING', 'ANALYSIS')
and a.project = p_project_id;