190: ) IS
191:
192: -- LPOON: Change to use ALC ledger record list instead ID list in order to
193: -- get their currencies at the same time
194: l_alc_ledger_list GL_MC_INFO.r_sob_list := GL_MC_INFO.r_sob_list();
195: l_src_ledger_id NUMBER;
196: l_src_currency VARCHAR2(15);
197:
198: l_calling_fn VARCHAR2(35) := 'fa_mc_bc_pkg.add_new_book';
281: if(p_secondary_sob_id is null) then
282: if g_log_level_rec.statement_level then
283: fa_debug_pkg.add(
284: l_calling_fn,
285: 'calling GL_MC_INFO.GET_ALC_LEDGER_ID for src ledger',
286: l_src_ledger_id,
287: p_log_level_rec => g_log_level_rec);
288: end if;
289:
288: end if;
289:
290: -- LPOON: Changed to call another API to get ALC ledger list instead of ID list
291: -- and then loop through that list
292: GL_MC_INFO.GET_ALC_ASSOCIATED_LEDGERS
293: (n_ledger_id => l_src_ledger_id,
294: n_appl_id => 140,
295: n_include_source_ledger => 'N',
296: n_ledger_list => l_alc_ledger_list);