PACKAGE BODY: APPS.INV_INVIRCOC_XMLP_PKG

Source

1 PACKAGE BODY INV_INVIRCOC_XMLP_PKG AS
2 /* $Header: INVIRCOCB.pls 120.2 2008/01/08 06:29:32 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     BEGIN
6       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8     EXCEPTION
9       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
10         /*SRW.MESSAGE(1
11                    ,'Srwinit failed before report trigger')*/NULL;
12         RAISE;
13     END;
14     IF (P_COMMODITY_CODE_FROM IS NOT NULL) THEN
15       P_WHERE := P_WHERE || 'and commodity_code >= ' || '''' || P_COMMODITY_CODE_FROM || '''';
16     END IF;
17     IF (P_COMMODITY_CODE_FROM IS NOT NULL AND P_COMMODITY_CODE_TO IS NOT NULL) THEN
18       P_WHERE := P_WHERE || ' And commodity_code <=' || '''' || P_COMMODITY_CODE_TO || '''';
19     END IF;
20     IF (P_COMMODITY_CODE_FROM IS NULL AND P_COMMODITY_CODE_TO IS NOT NULL) THEN
21       P_WHERE := P_WHERE || 'and commodity_code <=' || '''' || P_COMMODITY_CODE_TO || '''';
22     END IF;
23     RETURN (TRUE);
24   END BEFOREREPORT;
25   FUNCTION AFTERREPORT RETURN BOOLEAN IS
26   BEGIN
27     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
28     RETURN (TRUE);
29     RETURN (TRUE);
30   END AFTERREPORT;
31 END INV_INVIRCOC_XMLP_PKG;
32