1 PACKAGE BODY JL_JLARRERR_XMLP_PKG AS
2 /* $Header: JLARRERRB.pls 120.0 2008/01/07 14:10:13 vjaganat noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 DELETE FROM RA_INTERFACE_ERRORS
7 WHERE INVALID_VALUE in ( 'JLERRUBS' , 'JLUPDUBS' );
8 COMMIT;
9 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
10 EXCEPTION
11 WHEN OTHERS THEN
12 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
13 END;
14 RETURN (TRUE);
15 END AFTERREPORT;
16 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
17 BEGIN
18 BEGIN
19 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
20 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
21 EXCEPTION
22 WHEN OTHERS THEN
23 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
24 END;
25 RETURN (TRUE);
26 END BEFOREREPORT;
27 FUNCTION CF__SET_OF_BOOKSFORMULA RETURN VARCHAR2 IS
28 BEGIN
29 RETURN (FND_PROFILE.VALUE('GL_SET_OF_BKS_NAME'));
30 END CF__SET_OF_BOOKSFORMULA;
31 END JL_JLARRERR_XMLP_PKG;
32
33