[Home] [Help]
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