PACKAGE BODY: APPS.JL_JLBRPICR_XMLP_PKG

Source

1 PACKAGE BODY JL_JLBRPICR_XMLP_PKG AS
2 /* $Header: JLBRPICRB.pls 120.1 2007/12/25 16:40:11 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7     DECLARE
8       L_NAME VARCHAR2(30);
9       CURR VARCHAR2(15);
10     BEGIN
11       SELECT
12         SUBSTR(NAME
13               ,1
14               ,30),
15         CURRENCY_CODE
16       INTO L_NAME,CURR
17       FROM
18         GL_SETS_OF_BOOKS
19       WHERE SET_OF_BOOKS_ID = P_SET_OF_BOOKS_ID;
20       CURRENCY_CODE := CURR;
21       C_COMPANY_NAME_HEADER := L_NAME;
22     EXCEPTION
23       WHEN OTHERS THEN
24         NULL;
25     END;
26     RETURN (TRUE);
27   END BEFOREREPORT;
28 
29   FUNCTION AFTERREPORT RETURN BOOLEAN IS
30   BEGIN
31     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
32     BEGIN
33       DELETE FROM JL_BR_AP_INT_COLLECTION_TMP
34        WHERE FILE_CONTROL = P_FILE_CONTROL;
35     EXCEPTION
36       WHEN /*SRW.DO_SQL_FAILURE*/OTHERS THEN
37         NULL;
38     END;
39     RETURN (TRUE);
40   END AFTERREPORT;
41 
42   FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
43   BEGIN
44     RETURN C_COMPANY_NAME_HEADER;
45   END C_COMPANY_NAME_HEADER_P;
46 
47   FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
48   BEGIN
49     RETURN CURRENCY_CODE;
50   END CURRENCY_CODE_P;
51 
52 END JL_JLBRPICR_XMLP_PKG;
53 
54