13: END BEFOREREPORT;
14:
15: PROCEDURE GET_BASE_CURR_DATA IS
16: BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
17: PREC FND_CURRENCIES_VL.PRECISION%TYPE;
18: MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
19: DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
20: ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
21: BEGIN
14:
15: PROCEDURE GET_BASE_CURR_DATA IS
16: BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
17: PREC FND_CURRENCIES_VL.PRECISION%TYPE;
18: MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
19: DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
20: ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
21: BEGIN
22: BASE_CURR := '';
15: PROCEDURE GET_BASE_CURR_DATA IS
16: BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
17: PREC FND_CURRENCIES_VL.PRECISION%TYPE;
18: MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
19: DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
20: ORG_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
21: BEGIN
22: BASE_CURR := '';
23: PREC := 0;
34: GSBKS.NAME
35: INTO BASE_CURR,PREC,MIN_AU,DESCR,ORG_NAME
36: FROM
37: FA_BOOK_CONTROLS_MRC_V BKCTRL,
38: FND_CURRENCIES_VL FCURR,
39: GL_SETS_OF_BOOKS GSBKS
40: WHERE BKCTRL.BOOK_TYPE_CODE = P_BOOK_TYPE_CODE
41: AND BKCTRL.SET_OF_BOOKS_ID = GSBKS.SET_OF_BOOKS_ID
42: AND GSBKS.CURRENCY_CODE = FCURR.CURRENCY_CODE;
57: GSBKS.NAME
58: INTO BASE_CURR,PREC,MIN_AU,DESCR,ORG_NAME
59: FROM
60: FA_BOOK_CONTROLS BKCTRL,
61: FND_CURRENCIES_VL FCURR,
62: GL_SETS_OF_BOOKS GSBKS
63: WHERE BKCTRL.BOOK_TYPE_CODE = P_BOOK_TYPE_CODE
64: AND BKCTRL.SET_OF_BOOKS_ID = GSBKS.SET_OF_BOOKS_ID
65: AND GSBKS.CURRENCY_CODE = FCURR.CURRENCY_CODE;