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