PACKAGE BODY: APPS.INV_INVTRCLS_XMLP_PKG

Source

1 PACKAGE BODY INV_INVTRCLS_XMLP_PKG AS
2 /* $Header: INVTRCLSB.pls 120.1 2007/12/25 11:05:02 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     BEGIN
6       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7       P_CLOSE_DATE_T := to_char(P_CLOSE_DATE,'DD-MON-YY');
8       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
9     EXCEPTION
10       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
11         /*SRW.MESSAGE(1
12                    ,'Failed in before report trigger:SRWINIT')*/NULL;
13         RAISE;
14     END;
15     RETURN (TRUE);
16   END BEFOREREPORT;
17   FUNCTION AFTERREPORT RETURN BOOLEAN IS
18   BEGIN
19     BEGIN
20       /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
21     EXCEPTION
22       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
23         /*SRW.MESSAGE(1
24                    ,'SRWEXIT failed')*/NULL;
25     END;
26     RETURN (TRUE);
27   END AFTERREPORT;
28   FUNCTION C_CURRENCY_CODEFORMULA(R_CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
29   BEGIN
30     RETURN ('(' || R_CURRENCY_CODE || ')');
31   END C_CURRENCY_CODEFORMULA;
32   FUNCTION C_ORDER_BYFORMULA RETURN VARCHAR2 IS
33   BEGIN
34     IF P_SORT_ID = 1 THEN
35       RETURN ('order by 1,3');
36     ELSE
37       IF P_SORT_ID = 2 THEN
38         RETURN ('order by 3 ASC, 1');
39       ELSE
40         IF P_SORT_ID = 3 THEN
41           RETURN ('order by 3 DESC, 1');
42         ELSE
43           RETURN (NULL);
44         END IF;
45       END IF;
46     END IF;
47     RETURN NULL;
48   END C_ORDER_BYFORMULA;
49 END INV_INVTRCLS_XMLP_PKG;
50