1 PACKAGE BODY JL_JLCOGLNE_XMLP_PKG AS
2 /* $Header: JLCOGLNEB.pls 120.1 2007/12/25 16:49:40 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 IF P_SOB_ID IS NULL THEN
6 /*SRW.MESSAGE(100001
7 ,'Set of Books value is NULL! ' || ' Process execution failed...')*/NULL;
8 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
9 END IF;
10 IF (GET_NLS_STRINGS <> TRUE) THEN
11 NULL;
12 END IF;
13 BEGIN
14 SELECT
15 NAME
16 INTO CP_SOB_NAME
17 FROM
18 GL_SETS_OF_BOOKS
19 WHERE SET_OF_BOOKS_ID = P_SOB_ID
20 AND ROWNUM < 2;
21 SELECT
22 PERIOD_NAME
23 INTO CP_PERIOD_NAME
24 FROM
25 JL_CO_GL_CONC_CTRL
26 WHERE PROCESS_ID = P_CONC_ID;
27 EXCEPTION
28 WHEN NO_DATA_FOUND THEN
29 /*SRW.MESSAGE(10001
30 ,'Set of Books Id not found !!!')*/NULL;
31 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
32 WHEN OTHERS THEN
33 /*SRW.MESSAGE(10001
34 ,SQLERRM)*/NULL;
35 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
36 END;
37 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
38 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
39 RETURN (TRUE);
40 END BEFOREREPORT;
41
42 FUNCTION AFTERREPORT RETURN BOOLEAN IS
43 BEGIN
44 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
45 RETURN (TRUE);
46 END AFTERREPORT;
47
48 FUNCTION CP_PERIOD_NAMEFORMULA RETURN VARCHAR2 IS
49 BEGIN
50 RETURN NULL;
51 END CP_PERIOD_NAMEFORMULA;
52
53 FUNCTION CF_1FORMULA RETURN NUMBER IS
54 NIT_0_COUNT NUMBER;
55 BEGIN
56 SELECT
57 count(*)
58 INTO NIT_0_COUNT
59 FROM
60 JL_CO_GL_TRX
61 WHERE PROCESS_ID = P_CONC_ID
62 AND NIT_ID = (
63 SELECT
64 NIT_ID
65 FROM
66 JL_CO_GL_NITS
67 WHERE NIT = '0' );
68 RETURN (NIT_0_COUNT);
69 RETURN NULL;
70 EXCEPTION
71 WHEN NO_DATA_FOUND THEN
72 RETURN NULL;
73 WHEN OTHERS THEN
74 /*SRW.MESSAGE(10001
75 ,SQLERRM)*/NULL;
76 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
77 END CF_1FORMULA;
78
79 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
80 NLS_NO_DATA_FOUND VARCHAR2(45);
81 NLS_END_OF_REPORT VARCHAR2(45);
82 BEGIN
83 FND_MESSAGE.SET_NAME('JL'
84 ,'JL_ZZ_NO_DATA_FOUND');
85 NLS_NO_DATA_FOUND := SUBSTR(FND_MESSAGE.GET
86 ,1
87 ,35);
88 FND_MESSAGE.SET_NAME('JL'
89 ,'JL_ZZ_END_OF_REPORT');
90 NLS_END_OF_REPORT :=SUBSTR(FND_MESSAGE.GET
91 ,1
92 ,35);
93 P_NO_DATA_FOUND := NLS_NO_DATA_FOUND;
94 P_END_OF_REPORT := NLS_END_OF_REPORT;
95 RETURN (TRUE);
96 RETURN NULL;
97 EXCEPTION
98 WHEN OTHERS THEN
99 RETURN (FALSE);
100 END GET_NLS_STRINGS;
101
102 FUNCTION CP_SOB_NAME_P RETURN VARCHAR2 IS
103 BEGIN
104 RETURN CP_SOB_NAME;
105 END CP_SOB_NAME_P;
106
107 FUNCTION CP_PERIOD_NAME_P RETURN VARCHAR2 IS
108 BEGIN
109 RETURN CP_PERIOD_NAME;
110 END CP_PERIOD_NAME_P;
111
112 END JL_JLCOGLNE_XMLP_PKG;
113
114