[Home] [Help]
PACKAGE BODY: APPS.GL_GLXRLHST_XMLP_PKG
Source
1 PACKAGE BODY GL_GLXRLHST_XMLP_PKG AS
2 /* $Header: GLXRLHSTB.pls 120.0 2007/12/27 15:14:09 vijranga noship $ */
3
4 function BeforeReport return boolean is
5 errbuf VARCHAR2(132);
6 errbuf2 VARCHAR2(132);
7 begin
8 /*srw.user_exit('FND SRWINIT');*/null;
9
10
11
12 declare
13 coa_id NUMBER;
14 --ledger_name VARCHAR2( 30 );
15 l_ledger_name VARCHAR2( 30 );
16 func_curr VARCHAR2( 15 );
17 begin
18 gl_info.gl_get_ledger_info( P_LEDGER_ID,
19 coa_id,
20 --ledger_name,
21 l_ledger_name,
22 func_curr,
23 errbuf );
24
25
26 if (errbuf is not null) then
27 errbuf2 := gl_message.get_message(
28 'GL_PLL_ROUTINE_ERROR',
29 'N',
30 'ROUTINE',
31 'gl_info.gl_get_ledger_info' );
32 /*srw.message('00', errbuf2);*/null;
33
34 /*srw.message('00', errbuf);*/null;
35
36 raise_application_error(-20101,null);/*srw.program_abort;*/null;
37
38 end if;
39
40 STRUCT_NUM := coa_id;
41 --LEDGER_NAME := ledger_name;
42 LEDGER_NAME := l_ledger_name;
43 FUNCTIONAL_CURRENCY := func_curr;
44
45 select enable_average_balances_flag
46 into AVERAGE_BALANCES_FLAG
47 from gl_ledgers
48 where ledger_id = P_LEDGER_ID;
49
50 end;
51
52
53 begin
54 SELECT effective_period_num
55 INTO FROM_EFF_PERIOD_NUM
56 FROM gl_period_statuses
57 WHERE application_id = 101
58 AND ledger_id = P_LEDGER_ID
59 AND period_name = P_FROM_PERIOD;
60
61 SELECT effective_period_num
62 INTO TO_EFF_PERIOD_NUM
63 FROM gl_period_statuses
64 WHERE application_id = 101
65 AND ledger_id = P_LEDGER_ID
66 AND period_name = P_TO_PERIOD;
67 exception
68 WHEN OTHERS THEN
69 errbuf := SQLERRM;
70 /*srw.message('00', errbuf);*/null;
71
72 raise_application_error(-20101,null);/*srw.program_abort;*/null;
73
74 end;
75
76
77 WHERE_DAS := GL_ACCESS_SET_SECURITY_PKG.GET_SECURITY_CLAUSE(
78 P_ACCESS_SET_ID,
79 'R',
80 'LEDGER_ID',
81 P_LEDGER_ID,
82 null,
83 'SEG_COLUMN',
84 null,
85 'GCC',
86 null);
87
88 if (WHERE_DAS is not null) then
89 WHERE_DAS := ' and ' || WHERE_DAS;
90 end if;
91
92 if (WHERE_DAS is null) then
93 WHERE_DAS := ' ';
94 end if;
95
96 /*srw.reference( STRUCT_NUM );*/null;
97
98
99 null;
100
101 /*srw.reference( STRUCT_NUM );*/null;
102
103
104 null;
105
106 /*srw.reference( STRUCT_NUM );*/null;
107
108
109 null;
110
111 /*srw.reference( STRUCT_NUM );*/null;
112
113
114 null;
115
116 /*srw.reference( STRUCT_NUM );*/null;
117
118
119 null;
120
121 /*srw.reference( STRUCT_NUM );*/null;
122
123
124 null;
125
126 /*srw.reference( STRUCT_NUM );*/null;
127
128
129 null;
130
131 /*srw.reference( STRUCT_NUM );*/null;
132
133
134 null;
135
136 return (TRUE);
137 end;
138
139 function AfterReport return boolean is
140 begin
141 /*srw.user_exit('FND SRWEXIT');*/null;
142
143 return (TRUE);
144 end;
145
146 --Functions to refer Oracle report placeholders--
147
148 Function STRUCT_NUM_p return varchar2 is
149 Begin
150 return STRUCT_NUM;
151 END;
152 Function LEDGER_NAME_p return varchar2 is
153 Begin
154 return LEDGER_NAME;
155 END;
156 Function FLEX_SELECT_ALL_p return varchar2 is
157 Begin
158 return FLEX_SELECT_ALL;
159 END;
160 Function FLEX_ORDERBY_ALL_p return varchar2 is
161 Begin
162 return FLEX_ORDERBY_ALL;
163 END;
164 Function FLEX_SELECT_BAL_p return varchar2 is
165 Begin
166 return FLEX_SELECT_BAL;
167 END;
168 Function FLEX_ORDERBY_BAL_D_p return varchar2 is
169 Begin
170 return FLEX_ORDERBY_BAL_D;
171 END;
172 Function FLEX_SELECT_ACCT_p return varchar2 is
173 Begin
174 return FLEX_SELECT_ACCT;
175 END;
176 Function FLEX_ORDERBY_ACCT_D_p return varchar2 is
177 Begin
178 return FLEX_ORDERBY_ACCT_D;
179 END;
180 Function FLEX_ORDERBY_BAL_I_p return varchar2 is
181 Begin
182 return FLEX_ORDERBY_BAL_I;
183 END;
184 Function FLEX_ORDERBY_ACCT_I_p return varchar2 is
185 Begin
186 return FLEX_ORDERBY_ACCT_I;
187 END;
188 Function AVERAGE_BALANCES_FLAG_p return varchar2 is
189 Begin
190 return AVERAGE_BALANCES_FLAG;
191 END;
192 Function WHERE_DAS_p return varchar2 is
193 Begin
194 return WHERE_DAS;
195 END;
196 Function FROM_EFF_PERIOD_NUM_p return number is
197 Begin
198 return FROM_EFF_PERIOD_NUM;
199 END;
200 Function TO_EFF_PERIOD_NUM_p return number is
201 Begin
202 return TO_EFF_PERIOD_NUM;
203 END;
204 Function FUNCTIONAL_CURRENCY_p return varchar2 is
205 Begin
206 return FUNCTIONAL_CURRENCY;
207 END;
208 END GL_GLXRLHST_XMLP_PKG ;
209