[Home] [Help]
1: PACKAGE BODY AP_APXCHECC_XMLP_PKG AS
2: /* $Header: APXCHECCB.pls 120.0 2007/12/27 07:34:20 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_VL.PRECISION%TYPE;
6: MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7: DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
8: BEGIN
9: BASE_CURR := '';
2: /* $Header: APXCHECCB.pls 120.0 2007/12/27 07:34:20 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_VL.PRECISION%TYPE;
6: MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7: DESCR FND_CURRENCIES_VL.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_VL.PRECISION%TYPE;
6: MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7: DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
8: BEGIN
9: BASE_CURR := '';
10: PREC := 0;
11: MIN_AU := 0;
17: C.DESCRIPTION
18: INTO BASE_CURR,PREC,MIN_AU,DESCR
19: FROM
20: AP_SYSTEM_PARAMETERS P,
21: FND_CURRENCIES_VL C
22: WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
23: C_BASE_CURRENCY_CODE := BASE_CURR;
24: C_BASE_PRECISION := PREC;
25: C_BASE_MIN_ACCT_UNIT := MIN_AU;
265:
266: FUNCTION C_CURRENCY_DESCRIPTIONFORMULA(C_CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
267: BEGIN
268: DECLARE
269: L_CURRENCY_DESC FND_CURRENCIES_VL.NAME%TYPE;
270: BEGIN
271: SELECT
272: SUBSTR(NAME
273: ,1
273: ,1
274: ,25)
275: INTO L_CURRENCY_DESC
276: FROM
277: FND_CURRENCIES_VL
278: WHERE CURRENCY_CODE = C_CURRENCY_CODE;
279: RETURN (L_CURRENCY_DESC);
280: EXCEPTION
281: WHEN NO_DATA_FOUND THEN