[Home] [Help]
PACKAGE BODY: APPS.AP_APXBABAL_XMLP_PKG
Source
1 PACKAGE BODY AP_APXBABAL_XMLP_PKG AS
2 /* $Header: APXBABALB.pls 120.0 2007/12/27 07:27:12 vjaganat noship $ */
3
4 FUNCTION get_base_curr_data RETURN BOOLEAN IS
5
6 base_curr ap_system_parameters.base_currency_code%TYPE; prec fnd_currencies_vl.precision%TYPE; min_au fnd_currencies_vl.minimum_accountable_unit%TYPE; descr fnd_currencies_vl.description%TYPE;
7 BEGIN
8
9 base_curr := '';
10 prec := 0;
11 min_au := 0;
12 descr := '';
13
14 SELECT p.base_currency_code,
15 c.precision,
16 c.minimum_accountable_unit,
17 c.description
18 INTO base_curr,
19 prec,
20 min_au,
21 descr
22 FROM ap_system_parameters p,
23 fnd_currencies_vl c
24 WHERE p.base_currency_code = c.currency_code;
25
26 c_base_currency_code := base_curr;
27 c_base_precision := prec;
28 c_base_min_acct_unit := min_au;
29 c_base_description := descr;
30
31 RETURN (TRUE);
32
33 RETURN NULL;
34
35 EXCEPTION
36
37 WHEN OTHERS THEN
38 RETURN (FALSE);
39
40 END;
41
42 FUNCTION custom_init RETURN BOOLEAN IS
43
44 BEGIN
45 select recon_accounting_flag
46 into C_RECON_ACCOUNTING
47 from ap_system_parameters;
48
49 RETURN (TRUE);
50
51 RETURN NULL; EXCEPTION
52
53 WHEN OTHERS THEN
54 RETURN (FALSE);
55
56 END;
57
58 FUNCTION get_cover_page_values RETURN BOOLEAN IS
59
60 BEGIN
61
62 RETURN(TRUE);
63
64 RETURN NULL; EXCEPTION
65 WHEN OTHERS THEN
66 RETURN(FALSE);
67
68 END;
69
70 FUNCTION get_nls_strings RETURN BOOLEAN IS
71 nls_all ap_lookup_codes.displayed_field%TYPE; nls_ba_par ap_lookup_codes.displayed_field%TYPE;
72 nls_yes fnd_lookups.meaning%TYPE; nls_no fnd_lookups.meaning%TYPE;
73 BEGIN
74
75 nls_all := '';
76 nls_ba_par := '';
77 nls_yes := '';
78 nls_no := '';
79
80 SELECT ly.meaning,
81 ln.meaning,
82 l1.displayed_field,
83 l2.displayed_field
84 INTO nls_yes, nls_no, nls_all, nls_ba_par
85 FROM fnd_lookups ly, fnd_lookups ln,
86 ap_lookup_codes l1, ap_lookup_codes l2
87 WHERE ly.lookup_type = 'YES_NO'
88 AND ly.lookup_code = 'Y'
89 AND ln.lookup_type = 'YES_NO'
90 AND ln.lookup_code = 'N'
91 AND l1.lookup_type = 'NLS REPORT PARAMETER'
92 AND l1.lookup_code = 'ALL'
93 AND l2.lookup_type = 'ACTIVE_OPTIONS'
94 AND upper(l2.lookup_code) = upper(P_BANK_ACCOUNT_PAR);
95
96 c_nls_yes := nls_yes;
97 c_nls_no := nls_no;
98 c_nls_all := nls_all;
99 c_nls_ba_par := nls_ba_par;
100
101 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL ="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
102
103 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_no_data_exists"');*/null;
104
105 /*SRW.MESSAGE('999', c_nls_no_data_exists);*/null;
106
107 c_nls_no_data_exists := '*** '||c_nls_no_data_exists||' ***';
108
109 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
110
111 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_end_of_report"');*/null;
112
113 /*SRW.MESSAGE('999', c_nls_end_of_report);*/null;
114
115 c_nls_end_of_report := '*** '||c_nls_end_of_report||' ***';
116
117 RETURN (TRUE);
118
119 RETURN NULL; EXCEPTION
120 WHEN OTHERS THEN
121 /*srw.message(999,sqlerrm);*/null;
122
123 RETURN (FALSE);
124 END;
125
126 function BeforeReport return boolean is
127 begin
128
129
130
131 DECLARE
132
133 init_failure EXCEPTION;
134
135 BEGIN
136
137 LP_EFFECTIVE_DATE:=to_char(P_EFFECTIVE_DATE,'DD-MON-YY');
138
139
140 /*SRW.USER_EXIT('FND SRWINIT');*/null;
141
142 IF (p_debug_switch = 'Y') THEN
143 /*SRW.MESSAGE('1','After SRWINIT');*/null;
144
145 END IF;
146
147
148 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
149 END IF;
150 IF (p_debug_switch = 'Y') THEN
151 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
152
153 END IF;
154
155
156 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
157 END IF;
158 IF (p_debug_switch = 'Y') THEN
159 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
160
161 END IF;
162
163
164 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
165 END IF;
166 IF (p_debug_switch = 'Y') THEN
167 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
168
169 END IF;
170
171
172
173
174
175
176
177
178
179
180
181
182
183 IF (get_flexdata() <> TRUE) THEN
184 RAISE init_failure;
185 END IF;
186 IF (p_debug_switch = 'Y') THEN
187 /*SRW.MESSAGE ('6', 'After Get_Flexdata');*/null;
188
189 END IF;
190 IF (get_flexdata2() <> TRUE) THEN
191 RAISE init_failure;
192 END IF;
193 IF (p_debug_switch = 'Y') THEN
194 /*SRW.MESSAGE ('6', 'After Get_Flexdata2');*/null;
195
196 END IF;
197
198
199
200
201 IF(custom_init() <> TRUE) THEN
202 RAISE init_failure;
203 END IF;
204 IF (p_debug_switch = 'Y') THEN
205 /*SRW.MESSAGE('7','After Custom_Init');*/null;
206
207 END IF;
208
209
210
211
212 IF (p_debug_switch = 'Y') THEN
213 /*SRW.BREAK;*/null;
214
215 END IF;
216
217
218
219 RETURN (TRUE);
220
221
222
223 EXCEPTION
224
225 WHEN OTHERS THEN
226
227 /* RAISE_application_error(-20101,null);SRW.PROGRAM_ABORT;*/
228 null;
229
230
231 END; return (TRUE);
232 end;
233
234 function AfterReport return boolean is
235 begin
236
237 BEGIN
238 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
239
240 IF (P_DEBUG_SWITCH = 'Y') THEN
241 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
242
243 END IF;
244 EXCEPTION
245 WHEN OTHERS THEN
246 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
247
248 END; return (TRUE);
249 end;
250
251 FUNCTION get_company_name RETURN BOOLEAN IS
252 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
253 l_name gl_sets_of_books.name%TYPE;
254 l_sob_id NUMBER;
255 l_report_start_date DATE;
256 BEGIN
257 l_report_start_date := sysdate; l_sob_id := p_set_of_books_id;
258 SELECT name,
259 chart_of_accounts_id
260 INTO l_name,
261 l_chart_of_accounts_id
262 FROM gl_sets_of_books
263 WHERE set_of_books_id = l_sob_id;
264
265 c_company_name_header := l_name;
266 c_chart_of_accounts_id := l_chart_of_accounts_id;
267 c_report_start_date := l_report_start_date;
268
269 RETURN (TRUE);
270
271 RETURN NULL; EXCEPTION
272
273 WHEN OTHERS THEN
274 RETURN (FALSE);
275
276 END;
277
278 FUNCTION get_flexdata RETURN BOOLEAN IS
279 BEGIN
280
281
282 null;
283 RETURN (TRUE);
284
285 RETURN NULL; EXCEPTION
286 WHEN OTHERS THEN
287 RETURN(FALSE);
288 END;
289
290 FUNCTION calculate_run_time RETURN BOOLEAN IS
291 end_date DATE;
292 start_date DATE;
293 BEGIN
294 end_date := sysdate;
295 start_date := C_REPORT_START_DATE;
296 C_REPORT_RUN_TIME := to_char(to_date('01/01/0001','DD/MM/YYYY') + ((end_date - start_date)),'HH24:MI:SS');
297 RETURN(TRUE);
298 RETURN NULL; EXCEPTION
299 WHEN OTHERS THEN
300 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
301
302 END;
303
304 FUNCTION get_flexdata2 RETURN BOOLEAN IS
305 BEGIN
306
307
308
309 null;
310 RETURN (TRUE);
311
312 RETURN NULL; EXCEPTION
313 WHEN OTHERS THEN
314 RETURN(FALSE);
315 END;
316
317 --Functions to refer Oracle report placeholders--
318
319 Function C_BASE_CURRENCY_CODE_p return varchar2 is
320 Begin
321 return C_BASE_CURRENCY_CODE;
322 END;
323 Function C_BASE_PRECISION_p return number is
324 Begin
325 return C_BASE_PRECISION;
326 END;
327 Function C_BASE_MIN_ACCT_UNIT_p return number is
328 Begin
329 return C_BASE_MIN_ACCT_UNIT;
330 END;
331 Function C_BASE_DESCRIPTION_p return varchar2 is
332 Begin
333 return C_BASE_DESCRIPTION;
334 END;
335 Function C_COMPANY_NAME_HEADER_p return varchar2 is
336 Begin
337 return C_COMPANY_NAME_HEADER;
338 END;
339 Function C_REPORT_START_DATE_p return date is
340 Begin
341 return C_REPORT_START_DATE;
342 END;
343 Function C_NLS_YES_p return varchar2 is
344 Begin
345 return C_NLS_YES;
346 END;
347 Function C_NLS_NO_p return varchar2 is
348 Begin
349 return C_NLS_NO;
350 END;
351 Function C_NLS_ALL_p return varchar2 is
352 Begin
353 return C_NLS_ALL;
354 END;
355 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
356 Begin
357 return C_NLS_NO_DATA_EXISTS;
358 END;
359 Function C_REPORT_RUN_TIME_p return varchar2 is
360 Begin
361 return C_REPORT_RUN_TIME;
362 END;
363 Function C_CHART_OF_ACCOUNTS_ID_p return number is
364 Begin
365 return C_CHART_OF_ACCOUNTS_ID;
366 END;
367 Function C_NLS_BA_PAR_p return varchar2 is
368 Begin
369 return C_NLS_BA_PAR;
370 END;
371 Function C_NLS_END_OF_REPORT_p return varchar2 is
372 Begin
373 return C_NLS_END_OF_REPORT;
374 END;
375 Function C_RECON_ACCOUNTING_p return varchar2 is
376 Begin
377 return C_RECON_ACCOUNTING;
378 END;
379 END AP_APXBABAL_XMLP_PKG ;
380