PACKAGE BODY: APPS.INV_INVARADV_XMLP_PKG

Source

1 PACKAGE BODY INV_INVARADV_XMLP_PKG AS
2 /* $Header: INVARADVB.pls 120.1 2007/12/25 09:58:10 dwkrishn noship $ */
3   FUNCTION C_FORMATTEDCURRENCYCODEFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
4   BEGIN
5     /*SRW.REFERENCE(CURRENCY_CODE)*/NULL;
6     DECLARE
7       TEMP_C VARCHAR2(20);
8     BEGIN
9       TEMP_C := '(' || CURRENCY_CODE || ')';
10       RETURN (TEMP_C);
11     END;
12     RETURN NULL;
13   END C_FORMATTEDCURRENCYCODEFORMULA;
14 
15   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
16   BEGIN
17     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
18     QTY_PRECISION:=    inv_common_xmlp_pkg.get_precision (P_QTY_PRECISION);
19     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
20     RETURN (TRUE);
21   END BEFOREREPORT;
22 
23   FUNCTION AFTERREPORT RETURN BOOLEAN IS
24   BEGIN
25     BEGIN
26       /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
27       RETURN (TRUE);
28     END;
29     RETURN (TRUE);
30   END AFTERREPORT;
31 
32   FUNCTION VAR_BOILERPLATEFORMULA(S_QTY_BASE1 IN VARCHAR2) RETURN VARCHAR2 IS
33   BEGIN
34     BEGIN
35       IF P_DISPLAYCUMVALUE = 1 THEN
36         RETURN ('    Cum Value');
37       ELSIF P_DISPLAYCUMVALUE = 2 THEN
38         RETURN (' Cum Quantity');
39       ELSE
40         RETURN (S_QTY_BASE1);
41       END IF;
42     END;
43     RETURN NULL;
44   END VAR_BOILERPLATEFORMULA;
45 
46   FUNCTION AFTERPFORM RETURN BOOLEAN IS
47   BEGIN
48     RETURN (TRUE);
49   END AFTERPFORM;
50 
51 END INV_INVARADV_XMLP_PKG;
52