PACKAGE BODY: APPS.INV_INVARAAS_XMLP_PKG

Source

1 PACKAGE BODY INV_INVARAAS_XMLP_PKG AS
2 /* $Header: INVARAASB.pls 120.1 2007/12/25 09:57:13 dwkrishn noship $ */
3   FUNCTION C_ORDERBYFORMULA RETURN VARCHAR2 IS
4   BEGIN
5     DECLARE
6       LOCAL_VAR VARCHAR2(240);
7     BEGIN
8       IF P_SORT_ID = '1' THEN
9         LOCAL_VAR := ' ORDER BY 1, 4';
10       END IF;
11       IF P_SORT_ID = '2' THEN
12         LOCAL_VAR := ' ORDER BY 4';
13       END IF;
14       IF P_SORT_ID = '3' THEN
15         LOCAL_VAR := ' ORDER BY 6, 4';
16       END IF;
17       IF P_SORT_ID = '4' THEN
18         LOCAL_VAR := ' ORDER BY 5, 4';
19       END IF;
20       RETURN (LOCAL_VAR);
21     END;
22     RETURN NULL;
23   END C_ORDERBYFORMULA;
24   FUNCTION C_FORMATTEDCURRENCYCODEFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
25   BEGIN
26     DECLARE
27       TEMP_C VARCHAR2(20);
28     BEGIN
29       TEMP_C := '(' || CURRENCY_CODE || ')';
30       RETURN (TEMP_C);
31     END;
32     RETURN NULL;
33   END C_FORMATTEDCURRENCYCODEFORMULA;
34   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
35   BEGIN
36     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
37     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
38     qty_precision:=inv_common_xmlp_pkg.get_precision(P_qty_precision);
39     RETURN (TRUE);
40     RETURN (TRUE);
41   END BEFOREREPORT;
42   FUNCTION AFTERREPORT RETURN BOOLEAN IS
43   BEGIN
44     BEGIN
45       /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
46       RETURN (TRUE);
47     END;
48     RETURN (TRUE);
49   END AFTERREPORT;
50   FUNCTION AFTERPFORM RETURN BOOLEAN IS
51   BEGIN
52     RETURN (TRUE);
53   END AFTERPFORM;
54 END INV_INVARAAS_XMLP_PKG;
55