PACKAGE BODY: APPS.AR_ARXRBRD_XMLP_PKG

Source

1 PACKAGE BODY AR_ARXRBRD_XMLP_PKG AS
2 /* $Header: ARXRBRDB.pls 120.0 2007/12/27 14:03:06 abraghun noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     BEGIN
6       SELECT
7         SUBSTRB(NAME
8                ,1
9                ,50),
10         SUBSTRB(CURRENCY_CODE
11                ,1
12                ,3)
13       INTO C_COMPANY_NAME,C_FUNCTIONAL_CURRENCY
14       FROM
15         GL_SETS_OF_BOOKS SOB,
16         AR_SYSTEM_PARAMETERS SP
17       WHERE SOB.SET_OF_BOOKS_ID = SP.SET_OF_BOOKS_ID;
18       C_NO_DATA_MESSAGE := ARP_STANDARD.FND_MESSAGE('AR_NO_DATA_FOUND');
19     END;
20     RETURN (TRUE);
21   END BEFOREREPORT;
22 
23   FUNCTION AFTERPFORM RETURN BOOLEAN IS
24   BEGIN
25     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
26     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
27     IF P_BANK_ACCOUNT_NAME IS NOT NULL THEN
28       LP_BANK_ACCOUNT := 'and acc1.bank_account_name = :P_bank_account_name';
29     ELSE
30       LP_BANK_ACCOUNT := ' ';
31     END IF;
32     RETURN (TRUE);
33   END AFTERPFORM;
34 
35   FUNCTION AFTERREPORT RETURN BOOLEAN IS
36   BEGIN
37     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
38     RETURN (TRUE);
39   END AFTERREPORT;
40 
41   FUNCTION C_FUNCTIONAL_CURRENCY_P RETURN VARCHAR2 IS
42   BEGIN
43     RETURN C_FUNCTIONAL_CURRENCY;
44   END C_FUNCTIONAL_CURRENCY_P;
45 
46   FUNCTION C_COMPANY_NAME_P RETURN VARCHAR2 IS
47   BEGIN
48     RETURN C_COMPANY_NAME;
49   END C_COMPANY_NAME_P;
50 
51   FUNCTION C_NO_DATA_MESSAGE_P RETURN VARCHAR2 IS
52   BEGIN
53     RETURN C_NO_DATA_MESSAGE;
54   END C_NO_DATA_MESSAGE_P;
55 
56 END AR_ARXRBRD_XMLP_PKG;
57