[Home] [Help]
PACKAGE BODY: APPS.JL_JLCOGLCM_XMLP_PKG
Source
1 PACKAGE BODY JL_JLCOGLCM_XMLP_PKG AS
2 /* $Header: JLCOGLCMB.pls 120.1 2007/12/25 16:48:40 dwkrishn noship $ */
3 FUNCTION GET_BASE_CURR_DATA RETURN BOOLEAN IS
4 BASE_CURR AP_SYSTEM_PARAMETERS.BASE_CURRENCY_CODE%TYPE;
5 PREC FND_CURRENCIES_VL.PRECISION%TYPE;
6 MIN_AU FND_CURRENCIES_VL.MINIMUM_ACCOUNTABLE_UNIT%TYPE;
7 DESCR FND_CURRENCIES_VL.DESCRIPTION%TYPE;
8 BEGIN
9 BASE_CURR := '';
10 PREC := 0;
11 MIN_AU := 0;
12 DESCR := '';
13 SELECT
14 P.BASE_CURRENCY_CODE,
15 C.PRECISION,
16 C.MINIMUM_ACCOUNTABLE_UNIT,
17 C.DESCRIPTION
18 INTO BASE_CURR,PREC,MIN_AU,DESCR
19 FROM
20 AP_SYSTEM_PARAMETERS P,
21 FND_CURRENCIES_VL C
22 WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
23 C_BASE_CURRENCY_CODE := BASE_CURR;
24 C_BASE_PRECISION := PREC;
25 C_BASE_MIN_ACCT_UNIT := MIN_AU;
26 C_BASE_DESCRIPTION := DESCR;
27 RETURN (TRUE);
28 RETURN NULL;
29 EXCEPTION
30 WHEN OTHERS THEN
31 RETURN (FALSE);
32 END GET_BASE_CURR_DATA;
33
34 FUNCTION CUSTOM_INIT RETURN BOOLEAN IS
35 BEGIN
36 RETURN (TRUE);
37 RETURN NULL;
38 EXCEPTION
39 WHEN OTHERS THEN
40 RETURN (FALSE);
41 END CUSTOM_INIT;
42
43 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
44 BEGIN
45 RETURN (TRUE);
46 RETURN NULL;
47 EXCEPTION
48 WHEN OTHERS THEN
49 RETURN (FALSE);
50 END GET_COVER_PAGE_VALUES;
51
52 FUNCTION GET_NLS_STRINGS RETURN BOOLEAN IS
53 NLS_VOID AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
54 NLS_NA AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
55 NLS_ALL AP_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
56 NLS_YES FND_LOOKUPS.MEANING%TYPE;
57 NLS_NO FND_LOOKUPS.MEANING%TYPE;
58 BEGIN
59 SELECT
60 LY.MEANING,
61 LN.MEANING,
62 L1.DISPLAYED_FIELD,
63 L2.DISPLAYED_FIELD,
64 L3.DISPLAYED_FIELD
65 INTO NLS_YES,NLS_NO,NLS_ALL,NLS_VOID,NLS_NA
66 FROM
67 FND_LOOKUPS LY,
68 FND_LOOKUPS LN,
69 AP_LOOKUP_CODES L1,
70 AP_LOOKUP_CODES L2,
71 AP_LOOKUP_CODES L3
72 WHERE LY.LOOKUP_TYPE = 'YES_NO'
73 AND LY.LOOKUP_CODE = 'Y'
74 AND LN.LOOKUP_TYPE = 'YES_NO'
75 AND LN.LOOKUP_CODE = 'N'
76 AND L1.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
77 AND L1.LOOKUP_CODE = 'ALL'
78 AND L2.LOOKUP_TYPE = 'NLS TRANSLATION'
79 AND L2.LOOKUP_CODE = 'VOID'
80 AND L3.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
81 AND L3.LOOKUP_CODE = 'NA';
82 C_NLS_YES := NLS_YES;
83 C_NLS_NO := NLS_NO;
84 C_NLS_ALL := NLS_ALL;
85 C_NLS_VOID := NLS_VOID;
86 C_NLS_NA := NLS_NA;
87 FND_MESSAGE.SET_NAME('SQLAP'
88 ,'AP_APPRVL_NO_DATA');
89 C_NLS_NO_DATA_EXISTS := FND_MESSAGE.GET;
90 FND_MESSAGE.SET_NAME('SQLAP'
91 ,'AP_ALL_END_OF_REPORT');
92 C_NLS_END_OF_REPORT := FND_MESSAGE.GET;
93 C_NLS_NO_DATA_EXISTS := '*** ' || C_NLS_NO_DATA_EXISTS || ' ***';
94 C_NLS_END_OF_REPORT := '*** ' || C_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 BEFOREREPORT RETURN BOOLEAN IS
103 BEGIN
104 DECLARE
105 CHT_ID NUMBER;
106 INIT_FAILURE EXCEPTION;
107 T_SET_OF_BOOKS_ID NUMBER;
108 T_CHART_OF_ACCOUNTS_ID NUMBER;
109 T_SET_OF_BOOKS_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
110 T_FUNC_CURR GL_SETS_OF_BOOKS.CURRENCY_CODE%TYPE;
111 T_PERIOD_NAME GL_PERIODS.PERIOD_NAME%TYPE;
112 T_ERRORBUFFER VARCHAR2(132);
113 STRUCT_NUM VARCHAR2(1000);
114 SET_OF_BOOKS_NAME VARCHAR2(25);
115 FUNC_CURR VARCHAR2(15);
116 BEGIN
117 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
118 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
119 T_SET_OF_BOOKS_ID := P_SET_OF_BOOKS_ID;
120 BEGIN
121 SELECT
122 NAME,
123 CHART_OF_ACCOUNTS_ID,
124 CURRENCY_CODE
125 INTO T_SET_OF_BOOKS_NAME,T_CHART_OF_ACCOUNTS_ID,T_FUNC_CURR
126 FROM
127 GL_SETS_OF_BOOKS
128 WHERE SET_OF_BOOKS_ID = T_SET_OF_BOOKS_ID;
129 STRUCT_NUM := TO_CHAR(T_CHART_OF_ACCOUNTS_ID);
130 COMPANY_NAME := T_SET_OF_BOOKS_NAME;
131 FUNC_CURR := T_FUNC_CURR;
132 C_BASE_CURRENCY_CODE := T_FUNC_CURR;
133 EXCEPTION
134 WHEN NO_DATA_FOUND THEN
135 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
136 END;
137 BEGIN
138 CHT_ID := T_CHART_OF_ACCOUNTS_ID;
139 C_ACCOUNT_START := JL_ZZ_GL_SEGS_PKG.GET_COLUMNS(T_CHART_OF_ACCOUNTS_ID
140 ,'R'
141 ,'ALL'
142 ,'LOW');
143 C_ACCOUNT_END := JL_ZZ_GL_SEGS_PKG.GET_COLUMNS(T_CHART_OF_ACCOUNTS_ID
144 ,'R'
145 ,'ALL'
146 ,'HIGH');
147 EXCEPTION
148 WHEN OTHERS THEN
149 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
150 END;
151 RETURN (TRUE);
152 END;
153 RETURN NULL;
154 END BEFOREREPORT;
155
156 FUNCTION AFTERREPORT RETURN BOOLEAN IS
157 BEGIN
158 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
159 RETURN (TRUE);
160 END AFTERREPORT;
161
162 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
163 L_CHART_OF_ACCOUNTS_ID GL_SETS_OF_BOOKS.CHART_OF_ACCOUNTS_ID%TYPE;
164 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
165 L_SOB_ID NUMBER;
166 BEGIN
167 IF P_SET_OF_BOOKS_ID IS NOT NULL THEN
168 L_SOB_ID := P_SET_OF_BOOKS_ID;
169 SELECT
170 NAME,
171 CHART_OF_ACCOUNTS_ID
172 INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
173 FROM
174 GL_SETS_OF_BOOKS
175 WHERE SET_OF_BOOKS_ID = L_SOB_ID;
176 COMPANY_NAME := L_NAME;
177 C_CHART_OF_ACCOUNTS_ID := L_CHART_OF_ACCOUNTS_ID;
178 END IF;
179 RETURN (TRUE);
180 RETURN NULL;
181 EXCEPTION
182 WHEN OTHERS THEN
183 RETURN (FALSE);
184 END GET_COMPANY_NAME;
185
186 FUNCTION CF_1FORMULA RETURN VARCHAR2 IS
187 VAR_MAG_MEDIA_STATUS VARCHAR2(80);
188 BEGIN
189 IF P_MAG_MEDIA_STATUS IS NOT NULL THEN
190 SELECT
191 MEANING
192 INTO VAR_MAG_MEDIA_STATUS
193 FROM
194 FND_LOOKUPS
195 WHERE LOOKUP_TYPE = 'JLCO_MG_LITERAL_PROCESS_FLAG'
196 AND LOOKUP_CODE = P_MAG_MEDIA_STATUS;
197 END IF;
198 RETURN (VAR_MAG_MEDIA_STATUS);
199 END CF_1FORMULA;
200
201 FUNCTION C_NLS_YES_P RETURN VARCHAR2 IS
202 BEGIN
203 RETURN C_NLS_YES;
204 END C_NLS_YES_P;
205
206 FUNCTION C_NLS_NO_P RETURN VARCHAR2 IS
207 BEGIN
208 RETURN C_NLS_NO;
209 END C_NLS_NO_P;
210
211 FUNCTION C_NLS_ALL_P RETURN VARCHAR2 IS
212 BEGIN
213 RETURN C_NLS_ALL;
214 END C_NLS_ALL_P;
215
216 FUNCTION C_NLS_NO_DATA_EXISTS_P RETURN VARCHAR2 IS
217 BEGIN
218 RETURN C_NLS_NO_DATA_EXISTS;
219 END C_NLS_NO_DATA_EXISTS_P;
220
221 FUNCTION C_NLS_VOID_P RETURN VARCHAR2 IS
222 BEGIN
223 RETURN C_NLS_VOID;
224 END C_NLS_VOID_P;
225
226 FUNCTION C_NLS_NA_P RETURN VARCHAR2 IS
227 BEGIN
228 RETURN C_NLS_NA;
229 END C_NLS_NA_P;
230
231 FUNCTION C_NLS_END_OF_REPORT_P RETURN VARCHAR2 IS
232 BEGIN
233 RETURN C_NLS_END_OF_REPORT;
234 END C_NLS_END_OF_REPORT_P;
235
236 FUNCTION C_REPORT_START_DATE_P RETURN DATE IS
237 BEGIN
238 RETURN C_REPORT_START_DATE;
239 END C_REPORT_START_DATE_P;
240
241 FUNCTION COMPANY_NAME_P RETURN VARCHAR2 IS
242 BEGIN
243 RETURN COMPANY_NAME;
244 END COMPANY_NAME_P;
245
246 FUNCTION C_BASE_CURRENCY_CODE_P RETURN VARCHAR2 IS
247 BEGIN
248 RETURN C_BASE_CURRENCY_CODE;
249 END C_BASE_CURRENCY_CODE_P;
250
251 FUNCTION C_BASE_PRECISION_P RETURN NUMBER IS
252 BEGIN
253 RETURN C_BASE_PRECISION;
254 END C_BASE_PRECISION_P;
255
256 FUNCTION C_BASE_MIN_ACCT_UNIT_P RETURN NUMBER IS
257 BEGIN
258 RETURN C_BASE_MIN_ACCT_UNIT;
259 END C_BASE_MIN_ACCT_UNIT_P;
260
261 FUNCTION C_BASE_DESCRIPTION_P RETURN VARCHAR2 IS
262 BEGIN
263 RETURN C_BASE_DESCRIPTION;
264 END C_BASE_DESCRIPTION_P;
265
266 FUNCTION C_CHART_OF_ACCOUNTS_ID_P RETURN NUMBER IS
267 BEGIN
268 RETURN C_CHART_OF_ACCOUNTS_ID;
269 END C_CHART_OF_ACCOUNTS_ID_P;
270
271 FUNCTION APPLICATIONS_TEMPLATE_REPORT_P RETURN VARCHAR2 IS
272 BEGIN
273 RETURN APPLICATIONS_TEMPLATE_REPORT;
274 END APPLICATIONS_TEMPLATE_REPORT_P;
275
276 FUNCTION C_ACCOUNT_START_P RETURN VARCHAR2 IS
277 BEGIN
278 RETURN C_ACCOUNT_START;
279 END C_ACCOUNT_START_P;
280
281 FUNCTION C_ACCOUNT_END_P RETURN VARCHAR2 IS
282 BEGIN
283 RETURN C_ACCOUNT_END;
284 END C_ACCOUNT_END_P;
285
286 END JL_JLCOGLCM_XMLP_PKG;
287
288