The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT fpa_planning_cycle_s.nextval AS l_pc_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( 'PLANNING_CYCLE'
,l_pc_s_r.l_pc_id
,p_pc_all_obj.pc_desc_fields.name
,p_pc_all_obj.pc_desc_fields.description
,l_language
,USERENV('LANG')
,fnd_global.user_id
,sysdate()
,fnd_global.user_id
,sysdate()
,0);
PROCEDURE Update_Pc_Invest_Mix
( p_api_version IN NUMBER,
p_inv_matrix IN fpa_pc_inv_matrix_tbl,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
l_pc_catg number;
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.begin',
'Entering FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix'
);
SELECT distinct(pc_category) INTO l_pc_catg
FROM fpa_aw_pc_inv_matrices_v
WHERE planning_cycle = p_inv_matrix(1).planning_cycle;
-- Update the InvestMix
-- Limit PCID
dbms_aw.execute('LMT planning_cycle_d TO ' || p_inv_matrix(1).planning_cycle );
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix.end',
'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Invest_Mix',
SQLERRM
);
END Update_Pc_Invest_Mix;
PROCEDURE Update_Pc_Fin_Targets
( p_api_version IN NUMBER,
p_fin_targets_tbl IN fpa_pc_fin_targets_tbl,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
l_pc_catg number;
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.begin',
'Entering FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets'
);
SELECT b.PC_DISPLAY_FACTOR
INTO l_pc_disply_factor
FROM fpa_aw_pc_disc_funds_v b
WHERE b.planning_cycle = p_fin_targets_tbl(1).planning_cycle;
SELECT SUBSTR(VALUE,1,1)
INTO l_decimal_marker
FROM NLS_SESSION_PARAMETERS
WHERE PARAMETER = 'NLS_NUMERIC_CHARACTERS';
-- Update the financial targets
-- Limit PCID
dbms_aw.execute('LMT planning_cycle_d TO ' || p_fin_targets_tbl(1).planning_cycle );
SELECT meaning
INTO l_target_name
FROM fpa_lookups_v
WHERE lookup_type = 'FPA_PC_FIN_TARGETS'
AND lookup_code = p_fin_targets_tbl(i).financial_metrics;
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets.end',
'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Fin_Targets',
SQLERRM
);
END Update_Pc_Fin_Targets;
PROCEDURE Update_Pc_Inv_Criteria_Data
( p_api_version IN NUMBER,
p_inv_crit_tbl IN fpa_pc_inv_criteria_tbl,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
l_pc_obj varchar2(3);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data.begin',
'Entering FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data'
);
-- Update the investment criteria data
-- Limit PCID
IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
FND_LOG.String
( FND_LOG.LEVEL_PROCEDURE,
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
'Limit pc dimension to ' || p_inv_crit_tbl(1).planning_cycle || ' value.'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
'Setting score_type_pc_r to: ' || p_inv_crit_tbl(1).pc_project_score_source || ' value.'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
'Setting pc_project_score_scale_m to: ' || p_inv_crit_tbl(1).pc_project_score_scale || ' value.'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
'Debugging, we are in ' || i || ' value.'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
'Limit strategic_obj_d dimension to ' || p_inv_crit_tbl(i).investment_criteria || ' value.'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
'Setting pc_strategic_obj_weights_m: ' || p_inv_crit_tbl(i).pc_inv_criteria_weight || ' value.'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
'Setting pc_obj_wscore_targets_from_m: ' || p_inv_crit_tbl(i).pc_inv_crit_score_target_from || ' value.'
);
-- If the target_from value from UI is null, update it in AW with NA
IF p_inv_crit_tbl(i).pc_inv_crit_score_target_from IS NULL THEN
dbms_aw.execute('pc_obj_wscore_targets_from_m = NA');
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
'Setting pc_obj_wscore_targets_to_m: ' || p_inv_crit_tbl(i).pc_inv_crit_score_target_to || ' value.'
);
-- If the target_to value from UI is null, update it in AW with NA
IF p_inv_crit_tbl(i).pc_inv_crit_score_target_to IS NULL THEN
dbms_aw.execute('pc_obj_wscore_targets_to_m = NA');
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
'Calling AW program: set_pc_invest_criteria_prg( ' || p_inv_crit_tbl(1).planning_cycle || ').'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data.end',
'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Inv_Criteria_Data',
SQLERRM
);
END Update_Pc_Inv_Criteria_Data;
PROCEDURE Update_Pc_Desc_Fields
( p_api_version IN NUMBER,
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
BEGIN
IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
FND_LOG.String
(
FND_LOG.LEVEL_PROCEDURE,
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields.begin',
'Entering FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields'
);
-- Update name and description
--DBMS_OUTPUT.put_line('Before Updating Update_Pc_Desc_Fields...');
UPDATE FPA_OBJECTS_TL
SET name = p_pc_all_obj.pc_desc_fields.name
,description = p_pc_all_obj.pc_desc_fields.description
,SOURCE_LANG = userenv('LANG')
,last_update_date = sysdate()
WHERE id = p_pc_all_obj.pc_desc_fields.id
AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG)
AND OBJECT = 'PLANNING_CYCLE'; --Added for bug 6142322
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields.end',
'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Desc_Fields',
SQLERRM
);
END Update_Pc_Desc_Fields;
-- Update the status
dbms_aw.execute('LMT planning_cycle_d TO ' || p_pc_id );
PROCEDURE Update_Pc_Class_Category
( p_api_version IN NUMBER,
p_pc_id IN NUMBER,
p_catg_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
BEGIN
--DBMS_OUTPUT.put_line('Inside Update_Pc_Class_Category....');
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.begin',
'Entering FPA_PlanningCycle_Pvt.Update_Pc_Class_Category'
);
-- Update the Basic Info
-- Limit PCID
dbms_aw.execute('LMT planning_cycle_d TO ' || p_pc_id );
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category.end',
'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Class_Category'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Class_Category',
SQLERRM
);
END Update_Pc_Class_Category;
PROCEDURE Update_Pc_Calendar
( p_api_version IN NUMBER,
p_pc_info IN fpa_pc_info_obj,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
BEGIN
--DBMS_OUTPUT.put_line('Inside Update_Pc_Calendar....');
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar.begin',
'Entering FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
);
-- Update the Calendar
-- Limit PCID
dbms_aw.execute('LMT planning_cycle_d TO ' || p_pc_info.planning_cycle );
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar.end',
'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Calendar'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Calendar',
SQLERRM
);
END Update_Pc_Calendar;
PROCEDURE Update_Pc_Currency
( p_api_version IN NUMBER,
p_pc_info IN fpa_pc_info_obj,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
BEGIN
--DBMS_OUTPUT.put_line('Inside Update_Pc_Currency....');
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency.begin',
'Entering FPA_PlanningCycle_Pvt.Update_Pc_Currency'
);
-- Update the Currency
-- Limit PCID
dbms_aw.execute('LMT planning_cycle_d TO ' || p_pc_info.planning_cycle );
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
'Setting currency_date_pc_r to : ' || to_char(fnd_date.chardate_to_date(p_pc_info.conversion_rate_date), 'MMDDYYYY' || '''') || ' value.' -- Bug 9264707
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
'Setting currency_date_pc_r to sysdate value.'||to_char(sysdate,'MMDDYYYY' || '''') -- Bug 9264707
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency.end',
'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Currency'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Currency',
SQLERRM
);
END Update_Pc_Currency;
PROCEDURE Update_Pc_Sub_Due_Date
( p_api_version IN NUMBER,
p_pc_info IN fpa_pc_info_obj,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
BEGIN
--DBMS_OUTPUT.put_line('Inside Update_Pc_Sub_Due_Date....');
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date.begin',
'Entering FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
);
-- Update the Currency
-- Limit PCID
dbms_aw.execute('LMT planning_cycle_d TO ' || p_pc_info.planning_cycle );
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date.end',
'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Sub_Due_Date',
SQLERRM
);
END Update_Pc_Sub_Due_Date;
PROCEDURE Update_Pc_Discount_funds
( p_api_version IN NUMBER,
p_disc_funds IN fpa_pc_discount_obj,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
l_decimal_marker VARCHAR2(1) ;
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.begin',
'Entering FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds'
);
-- Update the Discount
-- Limit PCID
dbms_aw.execute('LMT planning_cycle_d TO ' || p_disc_funds.planning_cycle);
SELECT SUBSTR(VALUE,1,1)
INTO l_decimal_marker
FROM NLS_SESSION_PARAMETERS
WHERE PARAMETER = 'NLS_NUMERIC_CHARACTERS';
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds.end',
'Exiting FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds'
);
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Discount_funds',
SQLERRM
);
END Update_Pc_Discount_funds;
SELECT count(p.name)
INTO l_pcName_Count
FROM fpa_aw_pc_info_v a, fpa_pcs_vl p
WHERE a.planning_cycle = p.planning_cycle
AND portfolio = p_portfolio_id
AND p.name = p_pc_name ;
SELECT count(p.name)
INTO l_pcName_Count
FROM fpa_aw_pc_info_v a, fpa_pcs_vl p
WHERE a.planning_cycle = p.planning_cycle
AND portfolio = p_portfolio_id
AND p.name = p_pc_name
AND a.planning_cycle <> p_pc_id ;
PROCEDURE Pa_Distrb_Lists_Insert_Row (
p_api_version IN NUMBER,
p_distr_list IN fpa_pc_distr_list_obj,
p_list_id IN OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
l_list_id NUMBER;
'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row.begin',
'Entering FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row'
);
PA_DISTRIBUTION_LISTS_PKG.INSERT_ROW
(
P_LIST_ID => l_list_id,
P_NAME => l_obj_name,
P_DESCRIPTION => p_distr_list.description,
P_RECORD_VERSION_NUMBER => NULL,
P_CREATED_BY => fnd_global.user_id,
P_CREATION_DATE => sysdate,
P_LAST_UPDATED_BY => fnd_global.user_id,
P_LAST_UPDATE_DATE => sysdate,
P_LAST_UPDATE_LOGIN => fnd_global.user_id
);
PA_OBJECT_DIST_LISTS_PKG.INSERT_ROW
(
P_LIST_ID => l_list_id,
P_OBJECT_TYPE => p_distr_list.object_type,
P_OBJECT_ID => p_distr_list.object_id,
P_RECORD_VERSION_NUMBER => NULL,
P_CREATED_BY => fnd_global.user_id,
P_CREATION_DATE => sysdate,
P_LAST_UPDATED_BY => fnd_global.user_id,
P_LAST_UPDATE_DATE => sysdate,
P_LAST_UPDATE_LOGIN => fnd_global.user_id
);
'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row.end',
'Exiting FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row'
);
'fpa.sql.FPA_Process_Pvt.Pa_Distrb_Lists_Insert_Row',
SQLERRM
);
END Pa_Distrb_Lists_Insert_Row;
PROCEDURE Pa_Dist_List_Items_Update_Row (
p_api_version IN NUMBER,
p_distr_list_items_tbl fpa_pc_distr_list_items_tbl,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
IS
l_list_item_id NUMBER;
'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.begin',
'Entering FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row'
);
SELECT list_id INTO l_list_id
FROM pa_object_dist_lists
WHERE object_id = p_distr_list_items_tbl(1).planning_cycle
AND object_type = 'PJP_PLANNING_CYCLE';
PA_DIST_LIST_ITEMS_PKG.Update_Row
(
P_LIST_ITEM_ID => p_distr_list_items_tbl(i).list_item_id,
P_LIST_ID => l_list_id,
P_RECIPIENT_TYPE => p_distr_list_items_tbl(i).recipient_type,
P_RECIPIENT_ID => p_distr_list_items_tbl(i).recipient_id,
P_ACCESS_LEVEL => NULL,
P_MENU_ID => NULL,
P_EMAIL => p_distr_list_items_tbl(i).email_exists,
P_RECORD_VERSION_NUMBER => NULL,
P_LAST_UPDATED_BY => fnd_global.user_id,
P_LAST_UPDATE_DATE => sysdate,
P_LAST_UPDATE_LOGIN => fnd_global.user_id
);
PA_DIST_LIST_ITEMS_PKG.INSERT_ROW
(
P_LIST_ITEM_ID => l_list_item_id,
P_LIST_ID => l_list_id,
P_RECIPIENT_TYPE => p_distr_list_items_tbl(i).recipient_type,
P_RECIPIENT_ID => p_distr_list_items_tbl(i).recipient_id,
P_ACCESS_LEVEL => NULL,
P_MENU_ID => NULL,
P_EMAIL => p_distr_list_items_tbl(i).email_exists,
P_RECORD_VERSION_NUMBER => NULL,
P_CREATED_BY => fnd_global.user_id,
P_CREATION_DATE => sysdate,
P_LAST_UPDATED_BY => fnd_global.user_id,
P_LAST_UPDATE_DATE => sysdate,
P_LAST_UPDATE_LOGIN => fnd_global.user_id
);
'fpa.sql.FPA_Process_Pvt.Pa_Dist_List_Items_Update_Row.end',
'Exiting 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_Update_Row;
PROCEDURE Update_Pc_Annual_Disc_Rates
( p_api_version IN NUMBER,
p_pc_id IN NUMBER,
p_period IN VARCHAR2,
p_rate IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER )
is
l_api_version CONSTANT NUMBER := 1.0;
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.begin',
'Entering FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates');
'FPA.SQL.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
'Checking API version.');
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
'Updating Annual discount rates for the PC in AW.');
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.',
'Done Updating Annual discount rates for the PC in AW.');
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates.end',
'Entering FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates');
'fpa.sql.FPA_PlanningCycle_Pvt.Update_Pc_Annual_Disc_Rates',
SQLERRM);
END Update_Pc_Annual_Disc_Rates;