[Home] [Help]
19: g_bal_segment_name VARCHAR2(25);
20: g_acct_segment_name VARCHAR2(25);
21: g_acc_value_set_id NUMBER;
22: g_adjustment_flag VARCHAR2(1);
23: g_coa_id Gl_Code_Combinations.chart_of_accounts_id%TYPE;
24: g_apps_id Fnd_Id_Flex_Structures.application_id%TYPE;
25: g_id_flex_code Fnd_Id_Flex_Structures.id_flex_code%TYPE;
26: g_currency_code Gl_Sets_Of_Books.currency_code%TYPE;
27: g_start_date Gl_Period_Statuses.start_date%TYPE;
1078: l_tr_dept_id_col || l_tr_main_acct_col ||
1079: ' FROM gl_je_batches gjb,
1080: gl_je_headers gjh,
1081: gl_je_lines gjl,
1082: gl_code_combinations glc,
1083: fv_treasury_symbols fts,
1084: fv_fund_parameters ffp
1085: WHERE gjl.code_combination_id = glc.code_combination_id
1086: AND gjl.ledger_id = :sob_id
1153: l_tr_dept_id_col || l_tr_main_acct_col ||
1154: ' FROM gl_je_batches gjb,
1155: gl_je_headers gjh,
1156: gl_je_lines gjl,
1157: gl_code_combinations glc,
1158: fv_treasury_symbols fts,
1159: fv_fund_parameters ffp,
1160: xla_ae_lines xal,
1161: xla_ae_headers xah,
4095:
4096: l_fund_select := 'SELECT ''X'', fts.fund_group_code, fts.department_id, ' ||
4097: 'fts.bureau_id, ' ||
4098: 'glc.' || g_bal_segment_name || ' ' ||
4099: 'FROM gl_code_combinations glc, fv_fund_parameters ffp, ' ||
4100: 'fv_treasury_symbols fts ' ||
4101: 'WHERE glc.code_combination_id = :ccid
4102: AND glc.chart_of_accounts_id = :coa_id
4103: AND ffp.treasury_symbol_id = fts.treasury_symbol_id
4136: l_bal_fetch Integer;
4137: l_exec_ret Integer;
4138: BEGIN
4139: l_bal_select := 'SELECT glc.' || g_bal_segment_name || ' '
4140: ||'FROM gl_code_combinations glc '
4141: ||'WHERE glc.code_combination_id = ' || to_char(p_ccid);
4142: BEGIN
4143: EXECUTE IMMEDIATE l_bal_select INTO p_bal_segment;
4144: EXCEPTION
5086:
5087: -- If program segment name is found in the pl/sql table, then
5088: -- get the program segment value using the ccid
5089: vl_program_sel := 'SELECT gcc.'||vl_prg_seg_name||
5090: ' FROM gl_code_combinations gcc
5091: WHERE gcc.code_combination_id = '||p_ccid;
5092:
5093: EXECUTE IMMEDIATE vl_program_sel INTO vl_program_value;
5094: