59: END;
60: END BEFOREREPORT;
61:
62: PROCEDURE GET_BASE_CURR_DATA IS
63: BASE_CURR FND_CURRENCIES_VL.CURRENCY_CODE%TYPE;
64: PREC FND_CURRENCIES_VL.PRECISION%TYPE;
65: MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
66: DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
67: ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
60: END BEFOREREPORT;
61:
62: PROCEDURE GET_BASE_CURR_DATA IS
63: BASE_CURR FND_CURRENCIES_VL.CURRENCY_CODE%TYPE;
64: PREC FND_CURRENCIES_VL.PRECISION%TYPE;
65: MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
66: DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
67: ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
68: BEGIN
61:
62: PROCEDURE GET_BASE_CURR_DATA IS
63: BASE_CURR FND_CURRENCIES_VL.CURRENCY_CODE%TYPE;
64: PREC FND_CURRENCIES_VL.PRECISION%TYPE;
65: MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
66: DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
67: ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
68: BEGIN
69: BASE_CURR := '';
62: PROCEDURE GET_BASE_CURR_DATA IS
63: BASE_CURR FND_CURRENCIES_VL.CURRENCY_CODE%TYPE;
64: PREC FND_CURRENCIES_VL.PRECISION%TYPE;
65: MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
66: DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
67: ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
68: BEGIN
69: BASE_CURR := '';
70: PREC := 0;
80: GSBKS.NAME
81: INTO BASE_CURR,PREC,MIN_AU,DESCR,ORG_NAME
82: FROM
83: AR_SYSTEM_PARAMETERS ASP,
84: FND_CURRENCIES_VL FCURR,
85: GL_SETS_OF_BOOKS GSBKS
86: WHERE ASP.SET_OF_BOOKS_ID = GSBKS.SET_OF_BOOKS_ID
87: AND GSBKS.CURRENCY_CODE = FCURR.CURRENCY_CODE;
88: EXCEPTION