1: PACKAGE BODY gl_mc_currency_pkg AS
2: /* $Header: glmccurb.pls 120.15 2006/03/29 19:52:50 mgowda ship $ */
3:
4:
5: TYPE CurrencyCodeType IS TABLE OF VARCHAR2(15) INDEX BY BINARY_INTEGER;
9: CurrencyCode CurrencyCodeType;
10: Precision PrecisionType;
11: Mau MauType;
12:
13: G_PKG_NAME CONSTANT VARCHAR2(30) :='GL_MC_CURRENCY_PKG';
14: G_DEBUG_LEVEL CONSTANT NUMBER :=FND_LOG.G_CURRENT_RUNTIME_LEVEL;
15: G_STATEMENT_LEVEL CONSTANT NUMBER :=FND_LOG.LEVEL_STATEMENT;
16: G_PROC_LEVEL CONSTANT NUMBER :=FND_LOG.LEVEL_PROCEDURE;
17: G_EVENT_LEVEL CONSTANT NUMBER :=FND_LOG.LEVEL_EVENT;
347: p_result_code IN OUT NOCOPY VARCHAR2) IS
348: l_numerator_rate NUMBER;
349: l_denominator_rate NUMBER;
350: BEGIN
351: GL_MC_CURRENCY_PKG.get_rate(
352: p_primary_set_of_books_id ,
353: p_reporting_set_of_books_id,
354: p_trans_date ,
355: p_trans_currency_code ,
448: RETURN( ROUND( p_amount, l_precision ));
449: END IF;
450: END CurrRound;
451: --
452: END gl_mc_currency_pkg;