1: PACKAGE BODY JL_JLARPPFF_XMLP_PKG AS
2: /* $Header: JLARPPFFB.pls 120.2 2008/01/11 07:52:01 abraghun noship $ */
3: PROCEDURE GET_BASE_CURR_DATA IS
4: BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
5: PREC FND_CURRENCIES.PRECISION%TYPE;
6: MIN_AU FND_CURRENCIES.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7: DESCR FND_CURRENCIES.DESCRIPTION%TYPE;
8: ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
9: BEGIN
2: /* $Header: JLARPPFFB.pls 120.2 2008/01/11 07:52:01 abraghun noship $ */
3: PROCEDURE GET_BASE_CURR_DATA IS
4: BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
5: PREC FND_CURRENCIES.PRECISION%TYPE;
6: MIN_AU FND_CURRENCIES.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7: DESCR FND_CURRENCIES.DESCRIPTION%TYPE;
8: ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
9: BEGIN
10: BASE_CURR := '';
3: PROCEDURE GET_BASE_CURR_DATA IS
4: BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
5: PREC FND_CURRENCIES.PRECISION%TYPE;
6: MIN_AU FND_CURRENCIES.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7: DESCR FND_CURRENCIES.DESCRIPTION%TYPE;
8: ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
9: BEGIN
10: BASE_CURR := '';
11: PREC := 0;
20: GSBKS.NAME
21: INTO BASE_CURR,PREC,MIN_AU,DESCR,ORG_NAME
22: FROM
23: AR_SYSTEM_PARAMETERS ASP,
24: FND_CURRENCIES_VL FCURR,
25: GL_SETS_OF_BOOKS GSBKS
26: WHERE ASP.SET_OF_BOOKS_ID = GSBKS.SET_OF_BOOKS_ID
27: AND GSBKS.CURRENCY_CODE = FCURR.CURRENCY_CODE;
28: EXCEPTION