PACKAGE BODY: APPS.GL_GLXDALST_XMLP_PKG

Source

1 PACKAGE BODY GL_GLXDALST_XMLP_PKG AS
2 /* $Header: GLXDALSTB.pls 120.0 2007/12/27 14:52:53 vijranga noship $ */
3 function BeforeReport return boolean is
4 errbuf VARCHAR2(300);
5 begin
6   /*srw.user_exit('FND SRWINIT');*/null;
7 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
8   begin
9     SELECT a.name, a.description, f.id_flex_structure_name,
10            a.period_set_name, p.user_period_type,
11            a.security_segment_code, l.name
12     INTO data_as_name, description, coa, calendar,
13          --period_type, type, default_ledger
14 	 period_type, l_type, default_ledger
15     FROM gl_access_sets a,
16          gl_ledgers l,
17          fnd_id_flex_structures_tl f,
18          gl_period_types p
19     WHERE a.access_set_id = P_ACCESS_SET_ID
20     AND   l.ledger_id (+) = a.default_ledger_id
21     AND   f.application_id = 101
22     AND   f.id_flex_code = 'GL#'
23     AND   f.id_flex_num = a.chart_of_accounts_id
24     AND   f.language = userenv('LANG')
25     AND   p.period_type = a.accounted_period_type;
26   exception
27     WHEN OTHERS THEN
28       errbuf := SQLERRM;
29       /*srw.message('00', errbuf);*/null;
30       raise_application_error(-20101,null);/*srw.program_abort;*/null;
31   end;
32   return (TRUE);
33 end;
34 function AfterReport return boolean is
35 begin
36   /*srw.user_exit('FND SRWEXIT');*/null;
37   return (TRUE);
38 end;
39 --Functions to refer Oracle report placeholders--
40  Function DATA_AS_NAME_p return varchar2 is
41 	Begin
42 	 return DATA_AS_NAME;
43 	 END;
44  Function DESCRIPTION_p return varchar2 is
45 	Begin
46 	 return DESCRIPTION;
47 	 END;
48  Function COA_p return varchar2 is
49 	Begin
50 	 return COA;
51 	 END;
52  Function CALENDAR_p return varchar2 is
53 	Begin
54 	 return CALENDAR;
55 	 END;
56  Function PERIOD_TYPE_p return varchar2 is
57 	Begin
58 	 return PERIOD_TYPE;
59 	 END;
60  Function TYPE_p return varchar2 is
61 	Begin
62 	 --return TYPE;
63 	 return L_TYPE;
64 	 END;
65  Function DEFAULT_LEDGER_p return varchar2 is
66 	Begin
67 	 return DEFAULT_LEDGER;
68 	 END;
69  Function SECURITY_SEGMENT_CODE_p return varchar2 is
70 	Begin
71 	 return SECURITY_SEGMENT_CODE;
72 	 END;
73 END GL_GLXDALST_XMLP_PKG ;
74