[Home] [Help]
PACKAGE BODY: APPS.GL_GLXETB_XMLP_PKG
Source
1 PACKAGE BODY GL_GLXETB_XMLP_PKG AS
2 /* $Header: GLXETBB.pls 120.0 2007/12/27 14:58:02 vijranga noship $ */
3
4 function ENCUMBRANCE_TYPEFormula return VARCHAR2 is
5 name VARCHAR2(30);
6 errbuf VARCHAR2(132);
7 errbuf2 VARCHAR2(132);
8 begin
9
10 gl_info.gl_get_bud_or_enc_name('E',
11 P_ENCUMBRANCE_TYPE_ID,
12 name, errbuf);
13
14 if (errbuf is not null) then
15
16 errbuf2 := gl_message.get_message(
17 'GL_PLL_ROUTINE_ERROR', 'N',
18 'ROUTINE','gl_get_bud_or_enc_name'
19 );
20 /*srw.message('00', errbuf2);*/null;
21
22 /*srw.message('00', errbuf);*/null;
23
24 raise_application_error(-20101,null);/*srw.program_abort;*/null;
25
26 end if;
27
28 return(name);
29 end;
30
31 function AfterReport return boolean is
32 begin
33 /*srw.user_exit('FND SRWEXIT');*/null;
34
35 return (TRUE);
36 end;
37
38 function end_balformula(BEGIN_BAL in number, DEBITS in number, CREDITS in number) return number is
39 begin
40 return (BEGIN_BAL + DEBITS - CREDITS);
41 end;
42
43 function BeforeReport return boolean is
44 errbuf VARCHAR2(132);
45 begin
46 /*srw.user_exit('FND SRWINIT');*/null;
47
48
49
50 begin
51 SELECT name, chart_of_accounts_id
52 INTO ACCESS_SET_NAME, STRUCT_NUM
53 FROM gl_access_sets
54 WHERE access_set_id = P_ACCESS_SET_ID;
55
56 exception
57 WHEN NO_DATA_FOUND THEN
58 errbuf := gl_message.get_message('GL_PLL_INVALID_DATA_ACCESS_SET', 'Y',
59 'DASID', to_char(P_ACCESS_SET_ID));
60 /*srw.message('00', errbuf);*/null;
61
62 raise_application_error(-20101,null);/*srw.program_abort;*/null;
63
64
65 WHEN OTHERS THEN
66 errbuf := SQLERRM;
67 /*srw.message('00', errbuf);*/null;
68
69 raise_application_error(-20101,null);/*srw.program_abort;*/null;
70
71 end;
72
73 WHERE_DAS := GL_ACCESS_SET_SECURITY_PKG.GET_SECURITY_CLAUSE(
74 P_ACCESS_SET_ID,
75 'R',
76 'LEDGER_COLUMN',
77 'LEDGER_ID',
78 'BAL',
79 'SEG_COLUMN',
80 null,
81 'CC',
82 null);
83
84 if (WHERE_DAS is not null) then
85 WHERE_DAS := ' and ' || WHERE_DAS;
86 end if;
87
88 /*srw.reference(STRUCT_NUM);*/null;
89
90
91 null;
92
93 /*srw.reference(STRUCT_NUM);*/null;
94
95
96 null;
97
98 /*srw.reference(STRUCT_NUM);*/null;
99
100
101 null;
102
103 /*srw.reference(STRUCT_NUM);*/null;
104
105
106 null;
107
108 /*srw.reference(STRUCT_NUM);*/null;
109
110
111 null;
112
113 /*srw.reference(STRUCT_NUM);*/null;
114
115
116 null;
117
118 /*srw.reference(STRUCT_NUM);*/null;
119
120
121 null;
122
123 /*srw.reference(STRUCT_NUM);*/null;
124
125
126 null;
127
128
129 begin
130 SELECT currency_code, object_type_code
131 INTO PARAM_LEDGER_CURR, PARAM_LEDGER_TYPE
132 FROM gl_ledgers
133 WHERE ledger_id = P_LEDGER_ID;
134 exception
135 WHEN OTHERS THEN
136 errbuf := SQLERRM;
137 /*srw.message('00', errbuf);*/null;
138
139 raise_application_error(-20101,null);/*srw.program_abort;*/null;
140
141 end;
142
143 IF (PARAM_LEDGER_TYPE = 'S') THEN
144 FROM_LEDGER := ', GL_LEDGER_SET_ASSIGNMENTS LS';
145 WHERE_LEDGER := 'AND LS.ledger_set_id = ' || to_char(P_LEDGER_ID) ||
146 ' AND BAL.ledger_id = LS.ledger_id ';
147
148
149 begin
150 SELECT substr(ltrim(to_char(11, '9G9')), 2, 1)
151 INTO THOUSANDS_SEPARATOR
152 FROM dual;
153 exception
154 WHEN OTHERS THEN
155 errbuf := SQLERRM;
156 /*srw.message('00', errbuf);*/null;
157
158 raise_application_error(-20101,null);/*srw.program_abort;*/null;
159
160 end;
161
162 MIXED_PRECISION := to_number(FND_PROFILE.value('CURRENCY:MIXED_PRECISION'));
163 FND_CURRENCY.build_format_mask(CURR_FORMAT_MASK, 38, MIXED_PRECISION, null);
164 CURR_FORMAT_MASK := REPLACE(CURR_FORMAT_MASK, 'FM');
165 CURR_FORMAT_MASK := REPLACE(CURR_FORMAT_MASK, 'FX');
166 ELSE
167 FROM_LEDGER := ' ';
168 WHERE_LEDGER := 'AND BAL.ledger_id = ' || to_char(P_LEDGER_ID) || ' ';
169 END IF;
170
171 return (TRUE);
172 end;
173
174 function g_page_breakgroupfilter(BAL_SECURE in varchar2) return boolean is
175 begin
176 /*srw.reference(BAL_DATA);*/null;
177
178
179
180 if (BAL_SECURE ='S') then
181 return(FALSE);
182 else
183 return (TRUE);
184 end if;
185
186 RETURN NULL;
187 end;
188
189 function g_acct_datagroupfilter(ACCT_SECURE in varchar2) return boolean is
190 begin
191 /*srw.reference(ACCTDATA);*/null;
192
193
194
195 if (ACCT_SECURE = 'S') then
196 return (FALSE);
197 else
198 return (TRUE);
199 end if;
200
201 RETURN NULL;
202 end;
203
204 function g_balancesgroupfilter(FLEX_SECURE in varchar2) return boolean is
205 begin
206 /*srw.reference(STRUCT_NUM);*/null;
207
208 /*srw.reference(FLEXDATA);*/null;
209
210
211
212 if (FLEX_SECURE = 'S') then
213 return(FALSE);
214 else
215 return (TRUE);
216 end if;
217
218 RETURN NULL;
219 end;
220
221 function gl_format_currency(Amount NUMBER) return varchar2 is
222 num_amount NUMBER;
223 dsp_amount VARCHAR2(100);
224 WIDTH NUMBER := 19;
225 BEGIN
226 num_amount := ROUND(Amount, MIXED_PRECISION);
227 dsp_amount := LTRIM(TO_CHAR(num_amount, CURR_FORMAT_MASK));
228
229 IF (LENGTH(dsp_amount) > WIDTH) THEN
230 dsp_amount := REPLACE(dsp_amount, ' ');
231
232 IF (LENGTH(dsp_amount) > WIDTH) THEN
233 dsp_amount := REPLACE(dsp_amount, THOUSANDS_SEPARATOR);
234
235 IF (LENGTH(dsp_amount) > WIDTH) THEN
236 dsp_amount := RPAD('*', WIDTH, '*');
237 END IF;
238 END IF;
239 END IF;
240
241 RETURN dsp_amount;
242 END;
243
244 --Functions to refer Oracle report placeholders--
245
246 Function STRUCT_NUM_p return varchar2 is
247 Begin
248 return STRUCT_NUM;
249 END;
250 Function SELECT_BAL_p return varchar2 is
251 Begin
252 return SELECT_BAL;
253 END;
254 Function SELECT_ALL_p return varchar2 is
255 Begin
256 return SELECT_ALL;
257 END;
258 Function ORDERBY_BAL_p return varchar2 is
259 Begin
260 return ORDERBY_BAL;
261 END;
262 Function ORDERBY_ACCT_p return varchar2 is
263 Begin
264 return ORDERBY_ACCT;
265 END;
266 Function ORDERBY_ALL_p return varchar2 is
267 Begin
268 return ORDERBY_ALL;
269 END;
270 Function SELECT_ACCT_p return varchar2 is
271 Begin
272 return SELECT_ACCT;
273 END;
274 Function ORDERBY_BAL2_p return varchar2 is
275 Begin
276 return ORDERBY_BAL2;
277 END;
278 Function ORDERBY_ACCT2_p return varchar2 is
279 Begin
280 return ORDERBY_ACCT2;
281 END;
282 Function ACCESS_SET_NAME_p return varchar2 is
283 Begin
284 return ACCESS_SET_NAME;
285 END;
286 Function WHERE_DAS_p return varchar2 is
287 Begin
288 return WHERE_DAS;
289 END;
290 Function PARAM_LEDGER_CURR_p return varchar2 is
291 Begin
292 return PARAM_LEDGER_CURR;
293 END;
294 Function PARAM_LEDGER_TYPE_p return varchar2 is
295 Begin
296 return PARAM_LEDGER_TYPE;
297 END;
298 Function MIXED_PRECISION_p return number is
299 Begin
300 return MIXED_PRECISION;
301 END;
302 Function THOUSANDS_SEPARATOR_p return varchar2 is
303 Begin
304 return THOUSANDS_SEPARATOR;
305 END;
306 Function CURR_FORMAT_MASK_p return varchar2 is
307 Begin
308 return CURR_FORMAT_MASK;
309 END;
310 Function FROM_LEDGER_p return varchar2 is
311 Begin
312 return FROM_LEDGER;
313 END;
314 Function WHERE_LEDGER_p return varchar2 is
315 Begin
316 return WHERE_LEDGER;
317 END;
318 END GL_GLXETB_XMLP_PKG ;
319