PACKAGE BODY: APPS.BOM_BOMRDBPR_XMLP_PKG

Source

1 PACKAGE BODY BOM_BOMRDBPR_XMLP_PKG AS
2 /* $Header: BOMRDBPRB.pls 120.0 2007/12/24 09:38:55 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     DECLARE
6       L_CURRENCY_CODE VARCHAR2(15);
7     BEGIN
8       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
9       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
10       SELECT
11         BOOK.CURRENCY_CODE
12       INTO L_CURRENCY_CODE
13       FROM
14         GL_SETS_OF_BOOKS BOOK,
15         ORG_ORGANIZATION_DEFINITIONS ORG
16       WHERE ORG.ORGANIZATION_ID = P_ORG_ID
17         AND ORG.SET_OF_BOOKS_ID = BOOK.SET_OF_BOOKS_ID;
18       P_CURRENCY_CODE := L_CURRENCY_CODE;
19     END;
20     RETURN (TRUE);
21   END BEFOREREPORT;
22 
23   FUNCTION AFTERREPORT RETURN BOOLEAN IS
24   BEGIN
25     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
26     RETURN (TRUE);
27   END AFTERREPORT;
28 
29 END BOM_BOMRDBPR_XMLP_PKG;
30