PACKAGE BODY: APPS.JA_JAINRACT_XMLP_PKG

Source

1 PACKAGE BODY JA_JAINRACT_XMLP_PKG AS
2 /* $Header: JAINRACTB.pls 120.1 2007/12/25 16:26:38 dwkrishn noship $ */
3   FUNCTION P_ACCT_NATUREVALIDTRIGGER RETURN BOOLEAN IS
4   BEGIN
5     IF P_ACCT_NATURE = 'MODVAT' THEN
6       P_CENVAT := 'CENVAT';
7     ELSIF P_ACCT_NATURE = 'Expense' THEN
8       P_EXPENSE := 'Capital Expense';
9     END IF;
10     RETURN (TRUE);
11   END P_ACCT_NATUREVALIDTRIGGER;
12 
13   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
14     CURSOR C_PROGRAM_ID(P_REQUEST_ID IN NUMBER) IS
15       SELECT
16         CONCURRENT_PROGRAM_ID,
17         NVL(ENABLE_TRACE
18            ,'N')
19       FROM
20         FND_CONCURRENT_REQUESTS
21       WHERE REQUEST_ID = P_REQUEST_ID;
22     V_ENABLE_TRACE FND_CONCURRENT_PROGRAMS.ENABLE_TRACE%TYPE;
23     V_PROGRAM_ID FND_CONCURRENT_PROGRAMS.CONCURRENT_PROGRAM_ID%TYPE;
24   BEGIN
25     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
26     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
27     /*SRW.MESSAGE(1275
28                ,'Report Version is 120.2 Last modified date is 25/07/2005')*/NULL;
29     BEGIN
30       OPEN C_PROGRAM_ID(P_CONC_REQUEST_ID);
31       FETCH C_PROGRAM_ID
32        INTO V_PROGRAM_ID,V_ENABLE_TRACE;
33       CLOSE C_PROGRAM_ID;
34       /*SRW.MESSAGE(1275
35                  ,'v_program_id -> ' || V_PROGRAM_ID || ', v_enable_trace -> ' || V_ENABLE_TRACE || ', request_id -> ' || P_CONC_REQUEST_ID)*/NULL;
36       IF V_ENABLE_TRACE = 'Y' THEN
37         EXECUTE IMMEDIATE
38           'ALTER SESSION SET EVENTS ''10046 trace name context forever, level 4''';
39       END IF;
40     EXCEPTION
41       WHEN OTHERS THEN
42         /*SRW.MESSAGE(1275
43                    ,'Error during enabling the trace. ErrCode -> ' || SQLCODE || ', ErrMesg -> ' || SQLERRM)*/NULL;
44     END;
45     RETURN (TRUE);
46   END BEFOREREPORT;
47 
48   FUNCTION AFTERREPORT RETURN BOOLEAN IS
49   BEGIN
50     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
51     RETURN (TRUE);
52   END AFTERREPORT;
53 
54 END JA_JAINRACT_XMLP_PKG;
55 
56