1 PACKAGE BODY JL_JLCOGLNM_XMLP_PKG AS
2 /* $Header: JLCOGLNMB.pls 120.1 2007/12/25 16:50:19 dwkrishn noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7 IF P_REPORTED_YEAR IS NULL THEN
8 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
9 END IF;
10 P_LITERAL_START1 :=P_LITERAL_START;
11 P_LITERAL_END1 :=P_LITERAL_END;
12 IF P_LITERAL_START1 IS NULL THEN
13 BEGIN
14 SELECT
15 NVL(MIN(LITERAL_CODE)
16 ,0)
17 INTO CP_LITERAL_START
18 FROM
19 JL_CO_GL_MG_LITERALS
20 WHERE REPORTED_YEAR = P_REPORTED_YEAR
21 AND SET_OF_BOOKS_ID = P_SOB_ID;
22 P_LITERAL_START1 := CP_LITERAL_START;
23 EXCEPTION
24 WHEN NO_DATA_FOUND THEN
25 CP_LITERAL_START := 0;
26 WHEN OTHERS THEN
27 NULL;
28 END;
29 END IF;
30 IF P_LITERAL_END1 IS NULL THEN
31 BEGIN
32 SELECT
33 NVL(MAX(LITERAL_CODE)
34 ,9999)
35 INTO CP_LITERAL_END
36 FROM
37 JL_CO_GL_MG_LITERALS
38 WHERE REPORTED_YEAR = P_REPORTED_YEAR
39 AND SET_OF_BOOKS_ID = P_SOB_ID;
40 P_LITERAL_END1 := CP_LITERAL_END;
41 EXCEPTION
42 WHEN NO_DATA_FOUND THEN
43 CP_LITERAL_END := 9999;
44 WHEN OTHERS THEN
45 NULL;
46 END;
47 END IF;
48 BEGIN
49 SELECT
50 CURRENCY_CODE
51 INTO P_CURRENCY_CODE
52 FROM
53 GL_SETS_OF_BOOKS
54 WHERE SET_OF_BOOKS_ID = P_SOB_ID;
55 EXCEPTION
56 WHEN NO_DATA_FOUND THEN
57 NULL;
58 WHEN OTHERS THEN
59 NULL;
60 END;
61 BEGIN
62 SELECT
63 NAME COMP_NAME,
64 REGISTRATION_NUMBER COMP_ID
65 INTO P_REPORT_SUB_TITLE,CP_COMP_NIT
66 FROM
67 XLE_FIRSTPARTY_INFORMATION_V
68 WHERE LEGAL_ENTITY_ID = P_LEGAL_ENTITY_ID;
69 EXCEPTION
70 WHEN NO_DATA_FOUND THEN
71 SELECT
72 NAME
73 INTO P_REPORT_SUB_TITLE
74 FROM
75 GL_SETS_OF_BOOKS
76 WHERE SET_OF_BOOKS_ID = P_SOB_ID
77 AND ROWNUM < 2;
78 END;
79 RETURN (TRUE);
80 END BEFOREREPORT;
81
82 FUNCTION AFTERREPORT RETURN BOOLEAN IS
83 BEGIN
84 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
85 RETURN (TRUE);
86 END AFTERREPORT;
87
88 FUNCTION CF_TOTALFORMULA(CS_REP_FIRSTVAL IN NUMBER
89 ,CS_REP_SECONDVAL IN NUMBER) RETURN NUMBER IS
90 BEGIN
91 CP_TOTAL := CS_REP_FIRSTVAL + CS_REP_SECONDVAL;
92 RETURN (1);
93 END CF_TOTALFORMULA;
94
95 FUNCTION CP_COMP_NIT_P RETURN VARCHAR2 IS
96 BEGIN
97 RETURN CP_COMP_NIT;
98 END CP_COMP_NIT_P;
99
100 FUNCTION CP_COMP_NIT_VERF_DIG_P RETURN NUMBER IS
101 BEGIN
102 RETURN CP_COMP_NIT_VERF_DIG;
103 END CP_COMP_NIT_VERF_DIG_P;
104
105 FUNCTION CP_LITERAL_START_P RETURN NUMBER IS
106 BEGIN
107 RETURN CP_LITERAL_START;
108 END CP_LITERAL_START_P;
109
110 FUNCTION CP_LITERAL_END_P RETURN NUMBER IS
111 BEGIN
112 RETURN CP_LITERAL_END;
113 END CP_LITERAL_END_P;
114
115 FUNCTION CP_TOTAL_P RETURN NUMBER IS
116 BEGIN
117 RETURN CP_TOTAL;
118 END CP_TOTAL_P;
119
120 END JL_JLCOGLNM_XMLP_PKG;
121
122