The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_ledger_id gl_ledgers.ledger_id %TYPE := p_ledger_id;--updated by lyb
SELECT
period_set_name
,accounted_period_type
FROM
gl_ledgers
WHERE ledger_id=l_ledger_id;
SELECT period_year
FROM gl_periods
WHERE period_set_name = l_period_set_name
AND period_name = l_period_name;
SELECT period_name
FROM gl_periods
WHERE period_set_name = l_period_set_name
AND period_year = l_last_period_year
AND period_type = l_period_type;
,p_ledger_id IN NUMBER--updated by lyb
,p_period_name IN VARCHAR2
,p_axis_set_id IN NUMBER
,p_rounding_option IN VARCHAR2
,p_balance_type IN VARCHAR2
-- ,p_internal_trx_flag IN VARCHAR2
,p_coa IN NUMBER
,p_segment_override IN VARCHAR2 --Added for CNAO Enhancement
) IS --added by lyb
l_coa Number :=p_coa;--added by lyb
SELECT axis_seq
FROM ja_cn_cfs_row_cgs_gt
WHERE axis_set_id = l_axis_set_id
AND display_flag = 'Y'
ORDER BY axis_seq
FOR UPDATE;
SELECT axis_seq
,TYPE
,calculation_flag
,display_zero_amount_flag
,change_sign_flag
,display_format
,amount
,last_year_amount
,rowcnt
,lincnt
FROM ja_cn_cfs_row_cgs_gt
WHERE axis_set_id = l_axis_set_id
AND display_flag = 'Y'
ORDER BY axis_seq;
SELECT jcccg.operator
,jccrcg.lincnt
,jccrcg.change_sign_flag
FROM ja_cn_cfs_calculations_gt jcccg
,ja_cn_cfs_row_cgs_gt jccrcg
WHERE jcccg.axis_set_id = l_axis_set_id
AND jcccg.axis_seq = pc_axis_seg
AND jcccg.axis_set_id = jccrcg.axis_set_id
AND jcccg.cal_axis_seq = jccrcg.axis_seq
ORDER BY jcccg.calculation_seq;
SELECT
currency_code
INTO
l_func_currency_code
FROM
gl_ledgers
WHERE
ledger_id=l_ledger_id ;
JA_CN_CFS_CALCULATE_PKG.Populate_Period_Names(p_ledger_id =>l_ledger_id,--updated by lyb
p_period_name => l_period_name,
p_balance_type => l_balance_type,
x_period_names => l_period_names);
p_ledger_id => l_ledger_id,--updated by lyb
p_coa => l_coa,
p_axis_set_id => l_axis_set_id,
p_period_names => l_period_names,
p_lastyear_period_names => l_lastyear_period_names,
p_rounding_option => l_rounding_option,
p_segment_override =>l_segment_override ); --added for CNAO Enhancement
UPDATE ja_cn_cfs_row_cgs_gt
SET rowcnt = l_rowcnt,
lincnt = l_lincnt
WHERE CURRENT OF c_axis_seq;
SELECT to_char(nvl(rec_rows.amount,
0),
'FM' || to_char(rec_rows.display_format,
l_format_mask))
INTO l_amount_display
FROM dual;
SELECT to_char(nvl(rec_rows.last_year_amount,
0),
'FM' || to_char(rec_rows.display_format,
l_format_mask))
INTO l_last_year_amount_display
FROM dual;
SELECT to_char(nvl(rec_rows.amount,
0),
l_format_mask)
INTO l_amount_display
FROM dual;
SELECT to_char(nvl(rec_rows.last_year_amount,
0),
l_format_mask)
INTO l_last_year_amount_display
FROM dual;
SELECT XMLELEMENT("fsggRptLine",
XMLATTRIBUTES(l_rptcnt AS "RptCnt",
rec_rows.rowcnt AS "RowCnt",
rec_rows.lincnt AS "LinCnt"),
XMLELEMENT("fsggRptCell",
XMLATTRIBUTES(l_colcnt1 AS "ColCnt"),
nvl(l_last_year_amount_display,
0)),
XMLELEMENT("fsggRptCell",
XMLATTRIBUTES(l_colcnt2 AS "ColCnt"),
nvl(l_amount_display,
0)))
INTO l_xml_output_row
FROM dual;
SELECT XMLCONCAT(l_xml_output,
l_xml_output_row)
INTO l_xml_output
FROM dual;
SELECT decode(rec_calculation_lines.operator,
'+',
'-',
'-',
'+',
'+')
INTO l_operator
FROM dual;
SELECT 'FM' || to_char(rec_rows.display_format,
l_format_mask)
INTO l_final_display_format
FROM dual;
SELECT XMLELEMENT("Formula",
XMLATTRIBUTES(rec_rows.display_zero_amount_flag AS
"DisplayZero",
rec_rows.change_sign_flag AS
"ChangeSign",
l_final_display_format AS
"DisplayFormat"),
l_formula)
INTO l_xml_output_row
FROM dual;
SELECT XMLCONCAT(l_xml_output,
l_xml_output_row)
INTO l_xml_output
FROM dual;
SELECT XMLELEMENT("Formula",
XMLATTRIBUTES(rec_rows.display_zero_amount_flag AS
"DisplayZero",
rec_rows.change_sign_flag AS
"ChangeSign",
l_final_display_format AS
"DisplayFormat"),
l_formula)
INTO l_xml_output_row
FROM dual;
SELECT XMLCONCAT(l_xml_output,
l_xml_output_row)
INTO l_xml_output
FROM dual;
SELECT XMLELEMENT("fsggRptLine",
XMLATTRIBUTES(l_rptcnt AS "RptCnt",
rec_rows.rowcnt AS "RowCnt",
rec_rows.lincnt AS "LinCnt"),
XMLELEMENT("fsggRptCell",
XMLATTRIBUTES(l_colcnt1 AS "ColCnt"),
l_error_message),
XMLELEMENT("fsggRptCell",
XMLATTRIBUTES(l_colcnt2 AS "ColCnt"),
l_error_message))
INTO l_xml_output_row
FROM dual;
SELECT XMLCONCAT(l_xml_output,
l_xml_output_row)
INTO l_xml_output
FROM dual;
SELECT XMLELEMENT("MasterReport",
XMLATTRIBUTES('http://www.w3.org/2001/XMLSchema-instance' AS
"xmlns:xsi",
'http://www.oracle.com/fsg/2002-03-20/' AS
"xmlns:fsg",
'http://www.oracle.com/2002-03-20/fsg.xsd' AS
"xsi:schemaLocation"),
l_xml_output)
INTO l_xml_output_root
FROM dual;