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