PACKAGE BODY: APPS.JA_JAIN57PR_XMLP_PKG

Source

1 PACKAGE BODY JA_JAIN57PR_XMLP_PKG AS
2 /* $Header: JAIN57PRB.pls 120.1 2007/12/25 16:09:34 dwkrishn noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4     CURSOR C_PROGRAM_ID(P_REQUEST_ID IN NUMBER) IS
5       SELECT
6         CONCURRENT_PROGRAM_ID,
7         NVL(ENABLE_TRACE
8            ,'N')
9       FROM
10         FND_CONCURRENT_REQUESTS
11       WHERE REQUEST_ID = P_REQUEST_ID;
12     CURSOR GET_AUDSID IS
13       SELECT
14         A.SID,
15         A.SERIAL#,
16         B.SPID
17       FROM
18         V$SESSION A,
19         V$PROCESS B
20       WHERE AUDSID = USERENV('SESSIONID')
21         AND A.PADDR = B.ADDR;
22     CURSOR GET_DBNAME IS
23       SELECT
24         NAME
25       FROM
26         V$DATABASE;
27     V_ENABLE_TRACE FND_CONCURRENT_PROGRAMS.ENABLE_TRACE%TYPE;
28     V_PROGRAM_ID FND_CONCURRENT_PROGRAMS.CONCURRENT_PROGRAM_ID%TYPE;
29     V_AUDSID NUMBER := USERENV('SESSIONID');
30     V_SID NUMBER;
31     V_SERIAL NUMBER;
32     V_SPID VARCHAR2(9);
33     V_DBNAME VARCHAR2(25);
34   BEGIN
35     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
36     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
37     /*SRW.MESSAGE(1275
38                ,'Report Version is 120.3 Last modified date is 26/06/2007')*/NULL;
39     BEGIN
40       OPEN C_PROGRAM_ID(P_CONC_REQUEST_ID);
41       FETCH C_PROGRAM_ID
42        INTO V_PROGRAM_ID,V_ENABLE_TRACE;
43       CLOSE C_PROGRAM_ID;
44       /*SRW.MESSAGE(1275
45                  ,'v_program_id -> ' || V_PROGRAM_ID || ', v_enable_trace -> ' || V_ENABLE_TRACE || ', request_id -> ' || P_CONC_REQUEST_ID)*/NULL;
46       IF V_ENABLE_TRACE = 'Y' THEN
47         OPEN GET_AUDSID;
48         FETCH GET_AUDSID
49          INTO V_SID,V_SERIAL,V_SPID;
50         CLOSE GET_AUDSID;
51         OPEN GET_DBNAME;
52         FETCH GET_DBNAME
53          INTO V_DBNAME;
54         CLOSE GET_DBNAME;
55         /*SRW.MESSAGE(1275
56                    ,'TraceFile Name = ' || LOWER(V_DBNAME) || '_ora_' || V_SPID || '.trc')*/NULL;
57         EXECUTE IMMEDIATE
58           'ALTER SESSION SET EVENTS ''10046 trace name context forever, level 4''';
59       END IF;
60       RETURN (TRUE);
61     EXCEPTION
62       WHEN OTHERS THEN
63         /*SRW.MESSAGE(1275
64                    ,'Error during enabling the trace. ErrCode -> ' || SQLCODE || ', ErrMesg -> ' || SQLERRM)*/NULL;
65     END;
66   END BEFOREREPORT;
67 
68   FUNCTION AFTERREPORT RETURN BOOLEAN IS
69   BEGIN
70     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
71     RETURN (TRUE);
72   END AFTERREPORT;
73 
74   FUNCTION CF_PENDING_DUTYFORMULA(DUTY_AMT IN NUMBER
75                                  ,PENDING_QTY IN NUMBER) RETURN NUMBER IS
76     PENDING_DUTY NUMBER := 0;
77   BEGIN
78     PENDING_DUTY := DUTY_AMT * PENDING_QTY;
79     RETURN (PENDING_DUTY);
80   END CF_PENDING_DUTYFORMULA;
81 
82 END JA_JAIN57PR_XMLP_PKG;
83 
84