1: PACKAGE BODY PA_CURRENCY AS
2: /* $Header: PAXGCURB.pls 120.5 2008/03/17 13:58:29 rvelusam ship $ */
3:
4: -- ==========================================================================
5: -- = PRIVATE PROCEDURE Get_Currency_Info
606: FOR i IN p_amount_tab.FIRST .. p_amount_tab.LAST
607: LOOP
608: IF ( l_prev_curr_code IS NULL OR l_prev_curr_code <> p_currency_tab(i) )
609: THEN
610: PA_CURRENCY.GET_TRANS_CURRENCY_INFO1(p_currency_tab(i), l_mau, l_sp, l_ep);
611: l_prev_curr_code := p_currency_tab(i);
612: END IF;
613:
614: IF ( l_mau IS NOT NULL )
648: LOOP
649: l_amount_tab(i) := p_amount_tbl(i);
650: l_currency_tab(i) := p_currency_tbl(i);
651: END LOOP;
652: l_output_amount_tab := PA_CURRENCY.round_currency_amt_blk( p_amount_tab => l_amount_tab
653: ,p_currency_tab => l_currency_tab
654: );
655: FOR i IN l_output_amount_tab.FIRST .. l_output_amount_tab.LAST
656: LOOP
658: l_output_amount_tbl(i) := l_output_amount_tab(i);
659: END LOOP;
660: RETURN l_output_amount_tbl;
661: END round_currency_amt_nested_blk;
662: END pa_currency;