[Home] [Help]
PACKAGE BODY: APPS.GL_GLYRLBGE_XMLP_PKG
Source
1 PACKAGE BODY GL_GLYRLBGE_XMLP_PKG AS
2 /* $Header: GLYRLBGEB.pls 120.0 2007/12/27 15:25:39 vijranga noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7 /*SRW.USER_EXIT('FND SRWINIT');*/null;
8
9
10 declare
11 t_ledger_id NUMBER;
12 t_chart_of_accounts_id NUMBER;
13 t_ledger_name VARCHAR2(30);
14 t_func_curr VARCHAR2(15);
15 t_period_name VARCHAR2(15);
16 t_first_period_name VARCHAR2(15);
17 t_segment_num NUMBER;
18 t_errorbuffer VARCHAR2(132);
19 t_currency_name VARCHAR2(80);
20 t_ledger_currency VARCHAR2(15);
21
22 t_target_ledger_id number:= NULL;
23
24 begin
25
26 t_ledger_id := to_number(P_LEDGER_ID);
27 SELECT NAME, CHART_OF_ACCOUNTS_ID
28 INTO ACCESS_NAME, STRUCT_NUM
29 FROM GL_ACCESS_SETS
30 WHERE ACCESS_SET_ID = P_ACCESS_SET_ID;
31
32 t_ledger_currency := P_LEDGER_CURRENCY;
33
34 gl_ledger_utils_pkg.Get_First_Ledger_Id_From_Set(t_ledger_id,
35 t_ledger_currency,
36 t_target_ledger_id,
37 t_errorbuffer);
38 if (t_errorbuffer is not NULL) then
39 /*SRW.MESSAGE(0,t_errorbuffer);*/null;
40
41 raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
42
43 end if;
44
45 t_period_name := P_PERIOD_NAME;
46 gl_get_first_period(t_target_ledger_id,
47 t_period_name,
48 t_first_period_name,
49 t_errorbuffer);
50 if (t_errorbuffer is not NULL) then
51 /*SRW.MESSAGE(0,t_errorbuffer);*/null;
52
53 raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
54
55 else
56 FIRST_PERIOD_NAME := t_first_period_name;
57 end if;
58
59
60
61 /*SRW.REFERENCE(STRUCT_NUM);*/null;
62
63
64 null;
65
66
67 /*SRW.REFERENCE(STRUCT_NUM);*/null;
68
69
70 null;
71
72
73 /*SRW.REFERENCE(STRUCT_NUM);*/null;
74
75 /*SRW.REFERENCE(P_START_ACCOUNT);*/null;
76
77 /*SRW.REFERENCE(P_END_ACCOUNT);*/null;
78
79
80 null;
81 ACCOUNTING_SEGMENT_WHERE := ''||ACCOUNTING_SEGMENT_WHERE;
82
83 IF (P_COMPANY IS NOT NULL)
84 THEN
85 /*SRW.REFERENCE(STRUCT_NUM);*/null;
86
87 /*SRW.REFERENCE(P_COMPANY);*/null;
88
89
90 null;
91 BALANCING_SEGMENT_WHERE := ''||BALANCING_SEGMENT_WHERE;
92
93 END IF;
94
95 /*SRW.REFERENCE(STRUCT_NUM);*/null;
96
97
98 null;
99
100
101 /*SRW.REFERENCE(STRUCT_NUM);*/null;
102
103
104 null;
105
106
107
108 IF P_CURRENCY_TYPE = 'E' THEN
109 CURRENCY_WHERE := 'NVL(BL.TRANSLATED_FLAG,''R'') = ''R''';
110 ACTUAL_CURRENCY := P_ENTERED_CURRENCY;
111 ELSIF P_CURRENCY_TYPE = 'T' THEN
112 CURRENCY_WHERE := 'NVL(BL.TRANSLATED_FLAG,''x'') <> ''R''';
113 ACTUAL_CURRENCY := P_LEDGER_CURRENCY;
114 ELSIF P_CURRENCY_TYPE = 'S' THEN
115 CURRENCY_WHERE := '(BL.TRANSLATED_FLAG is null)';
116 ACTUAL_CURRENCY := P_ENTERED_CURRENCY;
117 END IF;
118
119 ACCESS_WHERE := gl_access_set_security_pkg.get_security_clause
120 (P_ACCESS_SET_ID,
121 'R',
122 'LEDGER_COLUMN',
123 'LEDGER_ID', 'BL',
124 'SEG_COLUMN',
125 null, 'CC', NULL);
126 IF ACCESS_WHERE is NULL THEN
127 ACCESS_WHERE := '1 = 1';
128 END IF;
129
130
131
132 end;
133
134 return (TRUE);
135 end;
136
137 function net_crformula(NET in number) return number is
138 begin
139
140 return(-NET);
141 end;
142
143 function comp_net_crformula(COMP_NET in number) return number is
144 begin
145
146 return(-COMP_NET);
147 end;
148
149 function cl_net_crformula(CL_NET in number) return number is
150 begin
151
152 return(-CL_NET);
153 end;
154
155 function sc_net_crformula(SC_NET in number) return number is
156 begin
157
158 return(-SC_NET);
159 end;
160
161 function gr_net_crformula(GR_NET in number) return number is
162 begin
163
164 return(-GR_NET);
165 end;
166
167 procedure gl_get_ledger_info ( ledgerid in number,
168 coaid out NOCOPY number,
169 ledgername out NOCOPY varchar2,
170 func_curr out NOCOPY varchar2,
171 errbuf out NOCOPY varchar2)
172 is
173 BEGIN
174 select name, chart_of_accounts_id, currency_code
175 into ledgername, coaid, func_curr
176 from gl_ledgers
177 where ledger_id = ledgerid;
178 EXCEPTION
179 WHEN NO_DATA_FOUND THEN
180 errbuf := gl_message.get_message('GL_PLL_INVALID_LEDGER', 'Y',
181 'LEDGERID', to_char(ledgerid));
182
183 WHEN OTHERS THEN
184 errbuf := SQLERRM;
185 END;
186
187 procedure gl_get_first_period(tledger_id in number,
188 tperiod_name in varchar2,
189 tfirst_period out NOCOPY varchar2,
190 errbuf out NOCOPY varchar2)
191
192 is
193 BEGIN
194 SELECT a.period_name
195 INTO tfirst_period
196 FROM gl_period_statuses a, gl_period_statuses b
197 WHERE a.application_id = 101
198 AND b.application_id = 101
199 AND a.ledger_id = tledger_id
200 AND b.ledger_id = tledger_id
201 AND a.period_type = b.period_type
202 AND a.period_year = b.period_year
203 AND b.period_name = tperiod_name
204 AND a.period_num =
205 (SELECT min(c.period_num)
206 FROM gl_period_statuses c
207 WHERE c.application_id = 101
208 AND c.ledger_id = tledger_id
209 AND c.period_year = a.period_year
210 AND c.period_type = a.period_type
211 GROUP BY c.period_year);
212 EXCEPTION
213 WHEN NO_DATA_FOUND THEN
214 errbuf := gl_message.get_message('GL_PLL_INVALID_FIRST_PERIOD', 'Y',
215 'PERIOD', tperiod_name,
216 'LEDGERID', to_char(tledger_id));
217 WHEN OTHERS THEN
218
219 errbuf := SQLERRM;
220
221
222 END;
223
224 function grand_net_crformula(GRAND_NET in number) return number is
225 begin
226
227 return(-GRAND_NET);
228 end;
229
230 function c_bal_lpromptformula(C_BAL_LPROMPT in varchar2) return varchar2 is
231 begin
232
233 /*srw.reference(COMPANY_NAME);*/null;
234
235 declare
236 temp_char VARCHAR2(240);
237 begin
238 temp_char := C_BAL_LPROMPT||':' ;
239 return(temp_char) ;
240 end ;
241 RETURN NULL; end;
242
243 procedure get_industry_code is
244
245 w_industry_code varchar2(20);
246 w_industry_stat varchar2(20);
247
248 begin
249
250 if fnd_installation.get(0, 0,
251 w_industry_stat,
252 w_industry_code) then
253 c_industry_code := w_Industry_code ;
254
255 end if;
256
257 end ;
258
259 function set_display_for_gov return boolean is
260
261 begin
262
263
264 if c_industry_code = 'C' then
265 return(FALSE);
266 else
267 return(TRUE);
268 end if;
269
270 RETURN NULL; end ;
271
272 function set_display_for_core return boolean is
273
274 begin
275
276 if c_industry_code = 'C' then
277 return(TRUE);
278 else
279 return(FALSE);
280 end if;
281
282 RETURN NULL; end;
283
284 function g_maingroupfilter(ACCT_SECURE in varchar2, BEGIN_CR in number, BEGIN_DR in number, PER_DR in number, PER_CR in number) return boolean is
285 begin
286
287 /*SRW.REFERENCE(STRUCT_NUM);*/null;
288
289 /*SRW.REFERENCE(ACCOUNT);*/null;
290
291
292
293 if(ACCT_SECURE = 'S' ) then
294 return (FALSE);
295 else
296 return (TRUE);
297 end if;
298 IF (BEGIN_CR <> 0 OR
299 BEGIN_DR <> 0 OR
300 PER_DR <> 0 OR
301 PER_CR <> 0 ) THEN
302 RETURN(TRUE);
303 ELSE
304 RETURN(FALSE);
305 END IF;
306
307 RETURN NULL; end;
308
309 function g_companygroupfilter(BAL_SECURE in varchar2) return boolean is
310 begin
311
312 /*SRW.REFERENCE(STRUCT_NUM);*/null;
313
314 /*SRW.REFERENCE(COMPANY);*/null;
315
316
317
318 if(BAL_SECURE ='S') then
319 return (FALSE);
320 else
321 return (TRUE);
322 END IF;
323
324 RETURN NULL; end;
325
326 function G_ClassGroupFilter return boolean is
327 begin
328
329
330 return (TRUE);
331 end;
332
333 function zero_indicatorformula(BEGIN_CR in number, BEGIN_DR in number, PER_DR in number, PER_CR in number) return number is
334 begin
335 IF (BEGIN_CR <> 0 OR
336 BEGIN_DR <> 0 OR
337 PER_DR <> 0 OR
338 PER_CR <> 0) THEN
339 RETURN(1);
340 ELSE
341 RETURN(0);
342 END IF;
343
344
345 return null;
346 end;
347
348 function g_sub_classgroupfilter(BEGIN_CR in number, BEGIN_DR in number, PER_DR in number, PER_CR in number) return boolean is
349 begin
350
351 IF (BEGIN_CR <> 0 OR
352 BEGIN_DR <> 0 OR
353 PER_DR <> 0 OR
354 PER_CR <> 0 ) THEN
355 RETURN(TRUE);
356 ELSE
357 RETURN(FALSE);
358 END IF;
359
360 return (TRUE);
361 end;
362
363 function g_groupsgroupfilter(BEGIN_CR in number, BEGIN_DR in number, PER_DR in number, PER_CR in number) return boolean is
364 begin
365
366 IF (BEGIN_CR <> 0 OR
367 BEGIN_DR <> 0 OR
368 PER_DR <> 0 OR
369 PER_CR <> 0 ) THEN
370 RETURN(TRUE);
371 ELSE
372 RETURN(FALSE);
373 END IF;
374
375 return (TRUE);
376 end;
377
378 function company_lprompt_ndformula(COMPANY_LPROMPT_ND in varchar2) return char is
379 begin
380
381
382 /*srw.reference(COMPANY_NAME_ND);*/null;
383
384 declare
385 temp_char VARCHAR2(240);
386 begin
387 temp_char := COMPANY_LPROMPT_ND||':' ;
388 return(temp_char) ;
389 end ;
390 RETURN NULL; end;
391
392 function AfterReport return boolean is
393 begin
394
395 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
396
397 return (TRUE);
398 end;
399
400 --Functions to refer Oracle report placeholders--
401
402 Function BEGIN_CR_SELECT_p return varchar2 is
403 Begin
404 return BEGIN_CR_SELECT;
405 END;
406 Function CURRENCY_NAME_p return varchar2 is
407 Begin
408 return CURRENCY_NAME;
409 END;
410 Function ACCOUNTING_SEGMENT_WHERE_p return varchar2 is
411 Begin
412 return ACCOUNTING_SEGMENT_WHERE;
413 END;
414 Function BEGIN_DR_SELECT_p return varchar2 is
415 Begin
416 return BEGIN_DR_SELECT;
417 END;
418 Function END_DR_SELECT_p return varchar2 is
419 Begin
420 return END_DR_SELECT;
421 END;
422 Function FIRST_PERIOD_NAME_p return varchar2 is
423 Begin
424 return FIRST_PERIOD_NAME;
425 END;
426 Function ACCOUNTING_ORDERBY_p return varchar2 is
427 Begin
428 return ACCOUNTING_ORDERBY;
429 END;
430 Function BALANCING_ORDERBY_p return varchar2 is
431 Begin
432 return BALANCING_ORDERBY;
433 END;
434 Function BALANCING_SEGMENT_WHERE_p return varchar2 is
435 Begin
436 return BALANCING_SEGMENT_WHERE;
437 END;
438 Function STRUCT_NUM_p return varchar2 is
439 Begin
440 return STRUCT_NUM;
441 END;
442 Function BALANCING_SEGMENT_p return varchar2 is
443 Begin
444 return BALANCING_SEGMENT;
445 END;
446 Function PER_DR_SELECT_p return varchar2 is
447 Begin
448 return PER_DR_SELECT;
449 END;
450 Function ACCOUNTING_SEGMENT_p return varchar2 is
451 Begin
452 return ACCOUNTING_SEGMENT;
453 END;
454 Function END_CR_SELECT_p return varchar2 is
455 Begin
456 return END_CR_SELECT;
457 END;
458 Function PER_CR_SELECT_p return varchar2 is
459 Begin
460 return PER_CR_SELECT;
461 END;
462 Function TRANSLATE_WHERE_p return varchar2 is
463 Begin
467 Begin
464 return TRANSLATE_WHERE;
465 END;
466 Function C_industry_code_p return varchar2 is
468 return C_industry_code;
469 END;
470 Function CURRENCY_WHERE_p return varchar2 is
471 Begin
472 return CURRENCY_WHERE;
473 END;
474 Function ACCESS_WHERE_p return varchar2 is
475 Begin
476 return ACCESS_WHERE;
477 END;
478 Function ACTUAL_CURRENCY_p return varchar2 is
479 Begin
480 return ACTUAL_CURRENCY;
481 END;
482 Function ACCESS_NAME_p return varchar2 is
483 Begin
484 return ACCESS_NAME;
485 END;
486 END GL_GLYRLBGE_XMLP_PKG ;
487
488