1: PACKAGE BODY AP_APXIAWRE_XMLP_PKG AS
2: /* $Header: APXIAWREB.pls 120.0 2007/12/27 07:43:33 vjaganat noship $ */
3: FUNCTION GET_BASE_CURR_DATA RETURN BOOLEAN 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: BEGIN
9: BASE_CURR := '';
2: /* $Header: APXIAWREB.pls 120.0 2007/12/27 07:43:33 vjaganat noship $ */
3: FUNCTION GET_BASE_CURR_DATA RETURN BOOLEAN 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: BEGIN
9: BASE_CURR := '';
10: PREC := 0;
3: FUNCTION GET_BASE_CURR_DATA RETURN BOOLEAN 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: BEGIN
9: BASE_CURR := '';
10: PREC := 0;
11: MIN_AU := 0;
19: C.DESCRIPTION
20: INTO BASE_CURR,PREC,MIN_AU,DESCR
21: FROM
22: AP_SYSTEM_PARAMETERS P,
23: FND_CURRENCIES C
24: WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
25: /*SRW.MESSAGE('4'
26: ,'2After Get_Base_Curr_Data')*/NULL;
27: C_BASE_CURRENCY_CODE := BASE_CURR;