PACKAGE BODY: APPS.INV_INVARRTA_XMLP_PKG

Source

1 PACKAGE BODY INV_INVARRTA_XMLP_PKG AS
2 /* $Header: INVARRTAB.pls 120.2 2008/01/08 06:39:16 dwkrishn noship $ */
3   FUNCTION C_FORMATTEDCURRENCYCODEFORMULA(CURRENCY_CODE IN VARCHAR2) RETURN VARCHAR2 IS
4   BEGIN
5     DECLARE
6       TEMP_C VARCHAR2(20);
7     BEGIN
8       TEMP_C := '(' || CURRENCY_CODE || ')';
9       RETURN (TEMP_C);
10     END;
11     RETURN NULL;
12   END C_FORMATTEDCURRENCYCODEFORMULA;
13 
14   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
15  C_DATE_FORMAT varchar2(20);
16   BEGIN
17     BEGIN
18       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
19       C_DATE_FORMAT := 'DD-MON-YYYY';
20        LP_FROMDATE:=to_char(P_FROMDATE, C_DATE_FORMAT);
21         LP_TODATE:= TO_CHAR(P_TODATE,C_DATE_FORMAT);
22       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
23     EXCEPTION
24       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
25         /*SRW.MESSAGE(1
26                    ,'Before Report: Init')*/NULL;
27     END;
28     DECLARE
29       P_ORG_ID_CHAR VARCHAR2(100) := TO_CHAR(P_ORG_ID);
30     BEGIN
31       /*SRW.USER_EXIT('FND PUTPROFILE NAME="' || 'MFG_ORGANIZATION_ID' || '" FIELD="' || P_ORG_ID_CHAR || '"')*/NULL;
32     EXCEPTION
33       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
34         /*SRW.MESSAGE(020
35                    ,'Failed in before report trigger, setting org profile ')*/NULL;
36         RAISE;
37     END;
38     BEGIN
39       NULL;
40     EXCEPTION
41       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
42         /*SRW.MESSAGE(1
43                    ,'Before Report: LocatorFlex')*/NULL;
44     END;
45     BEGIN
46       NULL;
47     EXCEPTION
48       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
49         /*SRW.MESSAGE(1
50                    ,'Before Report: ItemFlex')*/NULL;
51     END;
52     RETURN (TRUE);
53   END BEFOREREPORT;
54 
55   FUNCTION AFTERREPORT RETURN BOOLEAN IS
56   BEGIN
57     BEGIN
58       /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
59       RETURN (TRUE);
60     END;
61     RETURN (TRUE);
62   END AFTERREPORT;
63 
64   FUNCTION AFTERPFORM RETURN BOOLEAN IS
65   BEGIN
66     RETURN (TRUE);
67   END AFTERPFORM;
68 
69 END INV_INVARRTA_XMLP_PKG;
70 
71