PACKAGE BODY: APPS.JA_JAINF4RG_XMLP_PKG

Source

1 PACKAGE BODY JA_JAINF4RG_XMLP_PKG AS
2 /* $Header: JAINF4RGB.pls 120.1 2007/12/25 16:19:17 dwkrishn noship $ */
3   FUNCTION P_TO_DATEVALIDTRIGGER RETURN BOOLEAN IS
4   BEGIN
5     IF P_TO_DATE IS NULL THEN
6       P_TO_DATE := SYSDATE;
7     END IF;
8     RETURN (TRUE);
9   END P_TO_DATEVALIDTRIGGER;
10 
11   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
12     CURSOR C_PROGRAM_ID(P_REQUEST_ID IN NUMBER) IS
13       SELECT
14         CONCURRENT_PROGRAM_ID,
15         NVL(ENABLE_TRACE
16            ,'N')
17       FROM
18         FND_CONCURRENT_REQUESTS
19       WHERE REQUEST_ID = P_REQUEST_ID;
20     V_ENABLE_TRACE FND_CONCURRENT_PROGRAMS.ENABLE_TRACE%TYPE;
21     V_PROGRAM_ID FND_CONCURRENT_PROGRAMS.CONCURRENT_PROGRAM_ID%TYPE;
22     a boolean;
23   BEGIN
24  a:=P_TO_DATEVALIDTRIGGER;
25     /*SRW.MESSAGE(1275
26                ,'Report Version is 120.2 Last modified date is 25/07/2005')*/NULL;
27     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
28     /*SRW.USER_EXIT('FND SRWINIT')*/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     IF TRUNC(P_FROM_DATE) IS NULL THEN
46       SELECT
47         MIN(ISSUE_DATE)
48       INTO P_FROM_DATE
49       FROM
50         JAI_PO_OSP_HDRS F3
51       WHERE F3.ORGANIZATION_ID = P_ORGANIZATION_ID
52         AND F3.LOCATION_ID = NVL(P_LOCATION_ID
53          ,F3.LOCATION_ID);
54     END IF;
55     RETURN (TRUE);
56   END BEFOREREPORT;
57 
58   FUNCTION AFTERREPORT RETURN BOOLEAN IS
59   BEGIN
60     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
61     RETURN (TRUE);
62   END AFTERREPORT;
63 
64 END JA_JAINF4RG_XMLP_PKG;
65 
66