[Home] [Help]
PACKAGE BODY: APPS.GL_GLXCAR_XMLP_PKG
Source
1 PACKAGE BODY GL_GLXCAR_XMLP_PKG AS
2 /* $Header: GLXCARB.pls 120.0 2007/12/27 14:48:49 vijranga noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7 /*srw.user_exit('FND SRWINIT');*/null;
8
9
10 declare
11 to_ledgerid NUMBER;
12 from_ledgerid NUMBER;
13 coaid NUMBER;
14 tmpname VARCHAR2(100);
15 functcurr VARCHAR2(15);
16 errbuf VARCHAR2(132);
17 errbuf2 VARCHAR2(132);
18 method VARCHAR2(1);
19 description VARCHAR2(240);
20 CURSOR t_cursorLedgerName IS
21 SELECT glr.target_ledger_name
22 FROM gl_ledger_relationships glr, gl_consolidation gcs, gl_ledgers gll
23 WHERE gll.ledger_id = decode(gcs.from_currency_code,
24 'STAT', gcs.from_ledger_id, gll.ledger_id)
25 AND glr.target_currency_code = decode(gcs.from_currency_code,
26 'STAT', gll.currency_code, gcs.from_currency_code)
27 AND glr.source_ledger_id = gcs.from_ledger_id
28 AND glr.target_ledger_id = gcs.from_ledger_id
29 AND gcs.consolidation_id = P_CONSOLIDATION_ID;
30
31 begin
32
33 gl_get_consolidation_info(
34 P_CONSOLIDATION_ID, tmpname,
35 method, functcurr, from_ledgerid,
36 to_ledgerid, description,
37 errbuf);
38
39 if (errbuf is not null) then
40
41
42 errbuf2 := gl_message.get_message(
43 'GL_PLL_ROUTINE_ERROR', 'N',
44 'ROUTINE','gl_get_consolidation_info'
45 );
46 /*srw.message('00', errbuf2);*/null;
47
48
49 /*srw.message('00', errbuf);*/null;
50
51
52 raise_application_error(-20101,null);/*srw.program_abort;*/null;
53
54 end if;
55
56 TO_LEDGER_ID := to_ledgerid;
57 FROM_LEDGER_ID := from_ledgerid;
58 CONSOLIDATION_NAME := tmpname;
59 CURRENCY_CODE := functcurr;
60
61
62
63 gl_info.gl_get_ledger_info(TO_LEDGER_ID,
64 coaid, tmpname, functcurr,
65 errbuf);
66
67 if (errbuf is not null) then
68
69
70 errbuf2 := gl_message.get_message(
71 'GL_PLL_ROUTINE_ERROR', 'N',
72 'ROUTINE','gl_get_ledger_info'
73 );
74 /*srw.message('00', errbuf2);*/null;
75
76
77 /*srw.message('00', errbuf);*/null;
78
79
80 raise_application_error(-20101,null);/*srw.program_abort;*/null;
81
82 end if;
83
84 TO_CHART_OF_ACCOUNTS_ID := coaid;
85 TO_LEDGER_NAME := tmpname;
86
87
88 open t_cursorLedgerName;
89 fetch t_cursorLedgerName into FROM_LEDGER_NAME;
90 if t_cursorLedgerName%NOTFOUND then
91 errbuf := gl_message.get_message('GL_PLL_INVALID_CONSOLID_ID', 'Y',
92 'CID', to_char(P_CONSOLIDATION_ID));
93 /*SRW.MESSAGE(0, errbuf);*/null;
94
95 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
96
97 end if;
98 close t_cursorLedgerName;
99
100 gl_info.gl_get_ledger_info(FROM_LEDGER_ID,
101 coaid, tmpname, functcurr,
102 errbuf);
103
104 if (errbuf is not null) then
105
106
107 errbuf2 := gl_message.get_message(
108 'GL_PLL_ROUTINE_ERROR', 'N',
109 'ROUTINE','gl_ledger_info'
110 );
111 /*srw.message('00', errbuf2);*/null;
112
113
114 /*srw.message('00', errbuf);*/null;
115
116
117 raise_application_error(-20101,null);/*srw.program_abort;*/null;
118
119 end if;
120
121 FROM_CHART_OF_ACCOUNTS_ID := coaid;
122 FROM_CURRENCY_CODE := functcurr;
123
124
125 if (functcurr = CURRENCY_CODE) then
126 WHERE_DR_CR_NOT_ZERO
127 := '( (nvl(ca.entered_dr,0) <> 0)
128 OR (nvl(ca.entered_cr,0) <> 0))';
129 else
130 WHERE_DR_CR_NOT_ZERO
131 := '( nvl(ca.entered_dr,0)
132 - nvl(ca.entered_cr,0) <> 0)';
133 end if;
134 end;
135
136 if (P_BALANCE_TYPE = 'A') then
137 WHERE_BALANCE := 'ca.actual_flag = ''A''';
138 elsif (P_BALANCE_TYPE = 'B') then
139 WHERE_BALANCE := 'ca.actual_flag = ''B''';
140 else
141 WHERE_BALANCE := 'ca.actual_flag in (''A'', ''B'')';
142 end if;
143
144
145 /*srw.reference(FROM_CHART_OF_ACCOUNTS_ID);*/null;
146
147
148 null;
149
150
151 null;
152
153 /*srw.reference(TO_CHART_OF_ACCOUNTS_ID);*/null;
154
155
156 null;
157
158
159 null;
160 return (TRUE);
161 end;
162
163 function SUBTITLE1Formula return VARCHAR2 is
164 begin
165
166 return(gl_message.get_message(
167 'GL_PLL_PERIOD_CURR', 'N',
168 'PERIOD', P_PERIOD_NAME
169 ));
170
171 end;
172
173 function AfterReport return boolean is
174 begin
175
176 /*srw.user_exit('FND SRWEXIT');*/null;
177 return (TRUE);
178 end;
179
180 procedure gl_get_consolidation_info(
181 cons_id number, cons_name out NOCOPY varchar2,
182 method out NOCOPY varchar2, curr_code out NOCOPY varchar2,
183 from_ledgerid out NOCOPY number, to_ledgerid out NOCOPY number,
184 description out NOCOPY varchar2,
185 errbuf out NOCOPY varchar2) is
186 begin
187 select glc.name, glc.method, glc.from_currency_code,
188 glc.from_ledger_id, glc.to_ledger_id,
189 glc.description
190 into cons_name, method, curr_code, from_ledgerid, to_ledgerid,
191 description
192 from gl_consolidation glc
193 where glc.consolidation_id = cons_id;
194
195 EXCEPTION
196 WHEN NO_DATA_FOUND THEN
197 errbuf := gl_message.get_message('GL_PLL_INVALID_CONSOLID_ID', 'Y',
198 'CID', to_char(cons_id));
199 end;
200
201 function USAGE_DISPLAYFormula return VARCHAR2 is
202 begin
203
204 DECLARE
205 errorbuffer VARCHAR2(2000);
206 meaning VARCHAR2(80);
207
208 BEGIN
209 gl_info.gl_get_lookup_value('M',
210 P_USAGE,
211 'CONSOLIDATION_USAGE',
212 meaning,
213 errorbuffer);
214 if (errorbuffer is not NULL) then
215 /*SRW.MESSAGE(0,errorbuffer);*/null;
216
217 raise_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
218
219 else
220 return(meaning);
221 end if;
222 END;
223 RETURN NULL; end;
224
225 --Functions to refer Oracle report placeholders--
226
227 Function TO_CHART_OF_ACCOUNTS_ID_p return varchar2 is
228 Begin
229 return TO_CHART_OF_ACCOUNTS_ID;
230 END;
231 Function TO_LEDGER_NAME_p return varchar2 is
232 Begin
233 return TO_LEDGER_NAME;
234 END;
235 Function SELECT_TO_FLEX_p return varchar2 is
236 Begin
237 return SELECT_TO_FLEX;
238 END;
239 Function ORDERBY_FROM_FLEX_p return varchar2 is
240 Begin
241 return ORDERBY_FROM_FLEX;
242 END;
243 Function SELECT_FROM_FLEX_p return varchar2 is
244 Begin
245 return SELECT_FROM_FLEX;
246 END;
247 Function ORDERBY_TO_FLEX_p return varchar2 is
248 Begin
249 return ORDERBY_TO_FLEX;
250 END;
251 Function TO_LEDGER_ID_p return number is
252 Begin
253 return TO_LEDGER_ID;
254 END;
255 Function FROM_LEDGER_ID_p return number is
256 Begin
257 return FROM_LEDGER_ID;
258 END;
259 Function FROM_CHART_OF_ACCOUNTS_ID_p return varchar2 is
260 Begin
261 return FROM_CHART_OF_ACCOUNTS_ID;
262 END;
263 Function FROM_LEDGER_NAME_p return varchar2 is
264 Begin
265 return FROM_LEDGER_NAME;
266 END;
267 Function CONSOLIDATION_NAME_p return varchar2 is
268 Begin
269 return CONSOLIDATION_NAME;
270 END;
271 Function CURRENCY_CODE_p return varchar2 is
272 Begin
273 return CURRENCY_CODE;
274 END;
275 Function WHERE_DR_CR_NOT_ZERO_p return varchar2 is
276 Begin
277 return WHERE_DR_CR_NOT_ZERO;
278 END;
279 Function FROM_CURRENCY_CODE_p return varchar2 is
280 Begin
281 return FROM_CURRENCY_CODE;
282 END;
283 Function WHERE_BALANCE_p return varchar2 is
284 Begin
285 return WHERE_BALANCE;
286 END;
287 END GL_GLXCAR_XMLP_PKG ;
288