[Home] [Help]
PACKAGE BODY: APPS.GL_GLCRDR_XMLP_PKG
Source
1 PACKAGE BODY GL_GLCRDR_XMLP_PKG AS
2 /* $Header: GLCRDRB.pls 120.0 2007/12/27 14:21:57 vijranga noship $ */
3
4 procedure gl_consolidation_name(cons_id number, cons_name out NOCOPY varchar2,
5 curr_code out NOCOPY varchar2,
6 errbuf out NOCOPY varchar2) is
7 begin
8 select name, from_currency_code
9 into cons_name, curr_code
10 from gl_consolidation
11 where consolidation_id = cons_id;
12
13 EXCEPTION
14 when NO_DATA_FOUND then
15 errbuf := gl_message.get_message(
16 'GL_PLL_INVALID_CONSOLID_ID', 'Y',
17 'CID', to_char(cons_id));
18 end;
19
20 procedure gl_get_batch_info(batch_id number, batch_name out NOCOPY varchar2,
21 to_ledid out NOCOPY number, to_period out NOCOPY varchar2,
22 from_ledid out NOCOPY number, cons_id out NOCOPY number,
23 errbuf out NOCOPY varchar2) is
24 header_id NUMBER;
25 ccid NUMBER;
26 s_consolidation_id VARCHAR2(25) default null;
27 s_header_id VARCHAR2(25) default null;
28 s_ccid VARCHAR2(50) default null;
29
30 begin
31
32
33
34 begin
35 select jeb.name, jeb.default_period_name
36 into batch_name, to_period
37 from gl_je_batches jeb,
38 gl_je_headers jeh,
39 gl_je_lines jel
40 where jeb.je_batch_id = batch_id
41 and jeh.je_batch_id = jeb.je_batch_id
42 and (jeh.display_alc_journal_flag is null or jeh.display_alc_journal_flag = 'Y')
43 and jel.je_header_id = jeh.je_header_id
44 and rownum < 2;
45
46 EXCEPTION
47 when NO_DATA_FOUND then
48 errbuf := gl_message.get_message(
49 'GL_PLL_INVALID_BATCH_ID', 'Y',
50 'BID', to_char(batch_id)
51 );
52 return;
53 end;
54
55
56 begin
57
58 select jir.reference_3, jir.reference_1, jir.reference_4
59 into s_header_id, s_consolidation_id, s_ccid
60 from gl_import_references jir, gl_je_headers jeh
61 where jeh.je_batch_id = batch_id
62 and jir.je_header_id = jeh.je_header_id
63 and rownum < 2;
64
65 EXCEPTION
66 when NO_DATA_FOUND then
67 errbuf := gl_message.get_message(
68 'GL_PLL_INVALID_BATCH_ID', 'Y',
69 'BID', to_char(batch_id)
70 );
71 return;
72 end;
73
74 cons_id := to_number(s_consolidation_id);
75 header_id := to_number(s_header_id);
76 ccid := to_number(s_ccid);
77 begin
78 select jeh.ledger_id
79 into from_ledid
80 from gl_je_headers jeh
81 where jeh.je_header_id = header_id;
82
83 EXCEPTION
84 when NO_DATA_FOUND OR INVALID_NUMBER OR VALUE_ERROR then
85 errbuf := gl_message.get_message(
86 'GL_PLL_INVALID_CONS_BATCH', 'Y'
87 );
88 return;
89 end;
90
91
92 begin
93 select gca.to_ledger_id
94 into to_ledid
95 from gl_consolidation gca
96 where gca.consolidation_id = cons_id ;
97
98 EXCEPTION
99 when NO_DATA_FOUND OR INVALID_NUMBER OR VALUE_ERROR then
100 errbuf := gl_message.get_message(
101 'GL_PLL_INVALID_CONS_BATCH', 'Y'
102 );
103 return;
104
105 end;
106
107 EXCEPTION
108 when NO_DATA_FOUND OR INVALID_NUMBER OR VALUE_ERROR then
109 errbuf := gl_message.get_message(
110 'GL_PLL_INVALID_CONS_BATCH', 'Y'
111 );
112 end;
113
114 function AfterReport return boolean is
115 begin
116
117 /*srw.user_exit('FND SRWEXIT');*/null;
118 return (TRUE);
119 end;
120
121 function BeforeReport return boolean is
122 begin
123
124 /*srw.user_exit('FND SRWINIT');*/null;
125
126
127 declare
128 to_ledid NUMBER;
129 --to_batch_name VARCHAR2(100);
130 to_batch_name_1 VARCHAR2(100);
131 -- to_period VARCHAR2(15);
132 to_period_1 VARCHAR2(15);
133 from_ledid NUMBER;
134 cons_id NUMBER;
135 coaid NUMBER;
136 tmpname VARCHAR2(100);
137 functcurr VARCHAR2(15);
138 errbuf VARCHAR2(132);
139 errbuf2 VARCHAR2(132);
140
141
142 begin
143
144 begin
145 SELECT name
146 INTO DAS_NAME
147 FROM gl_access_sets
148 WHERE access_set_id = P_ACCESS_SET_ID;
149
150 exception
151 WHEN NO_DATA_FOUND THEN
152 errbuf := gl_message.get_message('GL_PLL_INVALID_DATA_ACCESS_SET', 'Y',
153 'DASID', to_char(P_ACCESS_SET_ID));
154 /*srw.message('00', errbuf);*/null;
155
156 raise_application_error(-20101,null);/*srw.program_abort;*/null;
157
158
159 WHEN OTHERS THEN
160 errbuf := SQLERRM;
161 /*srw.message('00', errbuf);*/null;
162
163 raise_application_error(-20101,null);/*srw.program_abort;*/null;
164
165 end;
166
167 WHERE_DAS_CLAUSE := gl_access_set_security_pkg.get_security_clause(
168 P_ACCESS_SET_ID,
169 'R',
170 'LEDGER_COLUMN',
171 'LEDGER_ID',
172 'to_jel',
173 'SEG_COLUMN',
174 null,
175 'to_cc',
176 null);
177 IF (WHERE_DAS_CLAUSE IS NOT NULL) THEN
178 WHERE_DAS_CLAUSE := ' AND ' || WHERE_DAS_CLAUSE;
179 END IF;
180
181
182 /* gl_get_batch_info(P_TO_BATCH_ID, to_batch_name,
183 to_ledid, to_period,
184 from_ledid, cons_id, errbuf);*/
185
186 gl_get_batch_info(P_TO_BATCH_ID, to_batch_name_1,
187 to_ledid, to_period_1,
188 from_ledid, cons_id, errbuf);
189
190
191 if (errbuf is not null) then
192
193
194 errbuf2 := gl_message.get_message(
195 'GL_PLL_ROUTINE_ERROR', 'N',
196 'ROUTINE','gl_get_batch_info'
197 );
198 /*srw.message('00', errbuf2);*/null;
199
200
201 /*srw.message('00', errbuf);*/null;
202
203
204 raise_application_error(-20101,null);/*srw.program_abort;*/null;
205
206 end if;
207
208 -- TO_BATCH_NAME := to_batch_name;
209 TO_BATCH_NAME := to_batch_name_1;
210 TO_LEDGER_ID := to_ledid;
211 FROM_LEDGER_ID := from_ledid;
212 --TO_PERIOD := to_period;
213 TO_PERIOD := to_period_1;
214
215
216
217 gl_info.gl_get_ledger_info(TO_LEDGER_ID,
218 coaid, tmpname, functcurr,
219 errbuf);
220
221 if (errbuf is not null) then
222
223
224 errbuf2 := gl_message.get_message(
225 'GL_PLL_ROUTINE_ERROR', 'N',
226 'ROUTINE','gl_get_ledger_info'
227 );
228 /*srw.message('00', errbuf2);*/null;
229
230
231 /*srw.message('00', errbuf);*/null;
232
233
234 raise_application_error(-20101,null);/*srw.program_abort;*/null;
235
236 end if;
237
238 TO_CHART_OF_ACCOUNTS_ID := coaid;
239 TO_LEDGER_NAME := tmpname;
240
241 begin
242 SELECT glr.target_ledger_name
243 INTO FROM_LEDGER_NAME
244 FROM gl_ledger_relationships glr, gl_consolidation gcs
245 WHERE glr.target_currency_code = gcs.from_currency_code
246 AND glr.source_ledger_id = gcs.from_ledger_id
247 AND glr.target_ledger_id = gcs.from_ledger_id
248 AND gcs.consolidation_id = cons_id;
249 exception
250 when NO_DATA_FOUND then
251 errbuf2 := SQLERRM;
252 /*srw.message('00', errbuf2);*/null;
253
254 /*srw.message('00', errbuf);*/null;
255
256 raise_application_error(-20101,null);/*srw.program_abort;*/null;
257
258 end;
259
260 gl_info.gl_get_ledger_info(FROM_LEDGER_ID,
261 coaid, tmpname, functcurr,
262 errbuf);
263
264 if (errbuf is not null) then
265
266
267 errbuf2 := gl_message.get_message(
268 'GL_PLL_ROUTINE_ERROR', 'N',
269 'ROUTINE','gl_get_ledger_info'
270 );
271 /*srw.message('00', errbuf2);*/null;
272
273
274 /*srw.message('00', errbuf);*/null;
275
276
277 raise_application_error(-20101,null);/*srw.program_abort;*/null;
278
279 end if;
280
281 FROM_CHART_OF_ACCOUNTS_ID := coaid;
282
283
284 gl_consolidation_name(cons_id, tmpname, functcurr, errbuf);
285
286 if (errbuf is not null) then
287
288
289 errbuf2 := gl_message.get_message(
290 'GL_PLL_ROUTINE_ERROR', 'N',
291 'ROUTINE', 'gl_consolidation_name');
292 /*srw.message('00', errbuf2);*/null;
293
294 /*srw.message('00', errbuf);*/null;
295
296 raise_application_error(-20101,null);/*srw.program_abort;*/null;
297
298 end if;
299
300 CONSOLIDATION_NAME := tmpname;
301 CURRENCY_CODE := functcurr;
302 end;
303
304 /*srw.reference(FROM_CHART_OF_ACCOUNTS_ID);*/null;
305
306
307 null;
308
309
310 null;
311
312 /*srw.reference(TO_CHART_OF_ACCOUNTS_ID);*/null;
313
314
315 null;
316
317
318 null;
319 return (TRUE);
320 end;
321
322 --Functions to refer Oracle report placeholders--
323
324 Function TO_CHART_OF_ACCOUNTS_ID_p return varchar2 is
325 Begin
326 return TO_CHART_OF_ACCOUNTS_ID;
327 END;
328 Function TO_LEDGER_NAME_p return varchar2 is
329 Begin
330 return TO_LEDGER_NAME;
331 END;
332 Function SELECT_TO_FLEX_p return varchar2 is
333 Begin
334 return SELECT_TO_FLEX;
335 END;
336 Function ORDERBY_FROM_FLEX_p return varchar2 is
337 Begin
338 return ORDERBY_FROM_FLEX;
339 END;
340 Function SELECT_FROM_FLEX_p return varchar2 is
341 Begin
342 return SELECT_FROM_FLEX;
343 END;
344 Function ORDERBY_TO_FLEX_p return varchar2 is
345 Begin
346 return ORDERBY_TO_FLEX;
347 END;
348 Function TO_BATCH_NAME_p return varchar2 is
349 Begin
350 return TO_BATCH_NAME;
351 END;
352 Function TO_LEDGER_ID_p return number is
353 Begin
354 return TO_LEDGER_ID;
355 END;
356 Function TO_PERIOD_p return varchar2 is
357 Begin
358 return TO_PERIOD;
359 END;
360 Function FROM_LEDGER_ID_p return number is
361 Begin
362 return FROM_LEDGER_ID;
363 END;
364 Function FROM_CHART_OF_ACCOUNTS_ID_p return varchar2 is
365 Begin
366 return FROM_CHART_OF_ACCOUNTS_ID;
367 END;
368 Function FROM_LEDGER_NAME_p return varchar2 is
369 Begin
370 return FROM_LEDGER_NAME;
371 END;
372 Function CONSOLIDATION_NAME_p return varchar2 is
373 Begin
374 return CONSOLIDATION_NAME;
375 END;
376 Function CURRENCY_CODE_p return varchar2 is
377 Begin
378 return CURRENCY_CODE;
379 END;
380 Function WHERE_DAS_CLAUSE_p return varchar2 is
381 Begin
382 return WHERE_DAS_CLAUSE;
383 END;
384 Function DAS_NAME_p return varchar2 is
385 Begin
386 return DAS_NAME;
387 END;
388 END GL_GLCRDR_XMLP_PKG ;
389
390