[Home] [Help]
PACKAGE BODY: APPS.AP_APXPAYSC_XMLP_PKG
Source
1 PACKAGE BODY AP_APXPAYSC_XMLP_PKG AS
2 /* $Header: APXPAYSCB.pls 120.0 2007/12/27 08:19:58 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;
7 BEGIN
8
9 base_curr := '';
10 prec := 0;
11 min_au := 0;
12
13
14
15 SELECT p.base_currency_code,
16 c.precision,
17 c.minimum_accountable_unit
18 INTO base_curr,
19 prec,
20 min_au
21 FROM ap_system_parameters p,
22 fnd_currencies_vl c
23 WHERE p.base_currency_code = c.currency_code;
24
25 C_BASE_CURRENCY_CODE := base_curr;
26 C_BASE_PRECISION := prec;
27 C_BASE_MIN_ACCT_UNIT := min_au;
28
29
30
31
32 RETURN (TRUE);
33
34 RETURN NULL; EXCEPTION
35
36 WHEN OTHERS THEN
37 RETURN (FALSE);
38
39 END;
40
41 FUNCTION custom_init RETURN BOOLEAN IS
42
43 BEGIN
44
45
46 RETURN (TRUE);
47
48 RETURN NULL; EXCEPTION
49
50 WHEN OTHERS THEN
51 RETURN (FALSE);
52
53 END;
54
55 FUNCTION get_cover_page_values RETURN BOOLEAN IS
56
57 BEGIN
58
59 RETURN(TRUE);
60
61 RETURN NULL; EXCEPTION
62 WHEN OTHERS THEN
63 RETURN(FALSE);
64
65 END;
66
67 FUNCTION get_nls_strings RETURN BOOLEAN IS
68 nls_void ap_lookup_codes.displayed_field%TYPE; nls_na ap_lookup_codes.displayed_field%TYPE; nls_all ap_lookup_codes.displayed_field%TYPE; nls_yes fnd_lookups.meaning%TYPE; nls_no fnd_lookups.meaning%TYPE;
69 BEGIN
70
71 SELECT ly.meaning,
72 ln.meaning,
73 l1.displayed_field,
74 l2.displayed_field,
75 l3.displayed_field
76 INTO nls_yes,
77 nls_no,
78 nls_all,
79 nls_void,
80 nls_na
81 FROM fnd_lookups ly,
82 fnd_lookups ln,
83 ap_lookup_codes l1,
84 ap_lookup_codes l2,
85 ap_lookup_codes l3
86 WHERE ly.lookup_type = 'YES_NO'
87 AND ly.lookup_code = 'Y'
88 AND ln.lookup_type = 'YES_NO'
89 AND ln.lookup_code = 'N'
90 AND l1.lookup_type = 'NLS REPORT PARAMETER'
91 AND l1.lookup_code = 'ALL'
92 AND l2.lookup_type = 'NLS TRANSLATION'
93 AND l2.lookup_code = 'VOID'
94 AND l3.lookup_type = 'NLS REPORT PARAMETER'
95 AND l3.lookup_code = 'NA';
96
97 C_NLS_YES := nls_yes;
98 C_NLS_NO := nls_no;
99 C_NLS_ALL := nls_all;
100 C_NLS_VOID := nls_void;
101 C_NLS_NA := nls_na;
102
103
104
105 /*srw.user_exit('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
106
107 /*srw.user_exit('FND MESSAGE_GET OUTPUT_FIELD=":C_NLS_NO_DATA_EXISTS"');*/null;
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
114 C_NLS_NO_DATA_EXISTS := 'No Data Found';
115 C_NLS_END_OF_REPORT := 'End of Report';
116
117 RETURN (TRUE);
118
119 RETURN NULL; EXCEPTION
120 WHEN OTHERS THEN
121 RETURN (FALSE);
122 END;
123
124 function BeforeReport return boolean is
125 begin
126
127 CP_END_DUE_DATE := to_char(P_END_DUE_DATE,'DD-MON-YY');
128
129 DECLARE
130
131 init_failure EXCEPTION;
132
133 num number;
134
135 BEGIN
136
137
138
139
140
141 C_REPORT_START_DATE := sysdate;
142
143
144
145
146 /*SRW.USER_EXIT('FND SRWINIT');*/null;
147
148 IF (p_debug_switch in ('y','Y')) THEN
149 /*SRW.MESSAGE('1','After SRWINIT');*/null;
150
151 END IF;
152
153
154
155 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
156 END IF;
157 IF (p_debug_switch in ('y','Y')) THEN
158 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
159
160 END IF;
161
162
163 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
164 END IF;
165 IF (p_debug_switch in ('y','Y')) THEN
166 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
167
168 END IF;
169
170
171 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
172 END IF;
173 IF (p_debug_switch in ('y','Y')) THEN
174 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
175
176 END IF;
177
178
179
180 IF (get_report_curr_data() <> TRUE) THEN RAISE init_failure;
181 END IF;
182 IF (p_debug_switch in ('y','Y')) THEN
183 /*SRW.MESSAGE('5','After Get_Report_Curr_Data');*/null;
184
185 END IF;
186
187
188
189 /* IF (get_date_format() <> TRUE) THEN RAISE init_failure;
190 END IF;*/
191 --COMMENTED BY SWAPNA
192 IF (p_debug_switch in ('y','Y')) THEN
193 /*SRW.MESSAGE('6','After Get_Date_format');*/null;
194
195 END IF;
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229 IF (p_debug_switch in ('y','Y')) THEN
230 /*SRW.BREAK;*/null;
231
232 END IF;
233
234
235
236 RETURN (TRUE);
237
238
239
240 EXCEPTION
241
242 WHEN OTHERS THEN
243
244 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
245
246
247 END;
248 return (TRUE);
249 end;
250
251 function AfterReport return boolean is
252 begin
253
254 BEGIN
255 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
256
257 IF (P_DEBUG_SWITCH = 'Y') THEN
258 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
259
260 END IF;
261 EXCEPTION
262 WHEN OTHERS THEN
263 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
264
265 END; return (TRUE);
266 end;
267
268 FUNCTION get_company_name RETURN BOOLEAN IS
269 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
270 l_name gl_sets_of_books.name%TYPE;
271 l_sob_id number;
272 BEGIN
273
274 if P_SET_OF_BOOKS_ID is not null then
275 l_sob_id := p_set_of_books_id;
276 SELECT name,
277 chart_of_accounts_id
278 INTO l_name,
279 l_chart_of_accounts_id
280 FROM gl_sets_of_books
281 WHERE set_of_books_id = l_sob_id;
282
283 c_company_name_header := l_name;
284 c_chart_of_accounts_id := l_chart_of_accounts_id;
285
286 end if;
287
288 RETURN (TRUE);
289
290 RETURN NULL; EXCEPTION
291
292 WHEN OTHERS THEN
293 RETURN (FALSE);
294
295 END;
296
297 FUNCTION get_flexdata RETURN BOOLEAN IS
298
299 BEGIN
300
301 if C_CHART_OF_ACCOUNTS_ID is not null then
302
303 null;
304 return (TRUE);
305 else
306 /*SRW.MESSAGE('999','Cannot use flex API without a chart of accounts ID.');*/null;
307
308 return(FALSE);
309 end if;
310
311 RETURN NULL; EXCEPTION
312 WHEN OTHERS THEN
313 RETURN(FALSE);
314 END;
315
316 FUNCTION get_report_curr_data RETURN boolean IS
317
318 prec fnd_currencies_vl.precision%TYPE;
319 BEGIN
320 prec := 0;
321
322 SELECT c.precision
323 INTO prec
324 FROM fnd_currencies_vl c
325 WHERE c.currency_code = p_payment_currency;
326
327 h_currency := p_payment_currency;
328 h_currency_precision := prec;
329
330 RETURN (TRUE);
331
332 RETURN NULL; EXCEPTION
333
334 WHEN OTHERS THEN
335 RETURN (FALSE);
336
337 END;
338
339 --Functions to refer Oracle report placeholders--
340
341 Function C_NLS_YES_p return varchar2 is
342 Begin
343 return C_NLS_YES;
344 END;
345 Function C_NLS_NO_p return varchar2 is
346 Begin
347 return C_NLS_NO;
348 END;
349 Function C_NLS_ALL_p return varchar2 is
350 Begin
351 return C_NLS_ALL;
352 END;
353 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
354 Begin
355 return C_NLS_NO_DATA_EXISTS;
356 END;
357 Function C_NLS_VOID_p return varchar2 is
358 Begin
359 return C_NLS_VOID;
360 END;
361 Function C_NLS_NA_p return varchar2 is
362 Begin
363 return C_NLS_NA;
364 END;
365 Function C_NLS_END_OF_REPORT_p return varchar2 is
366 Begin
367 return C_NLS_END_OF_REPORT;
368 END;
369 Function C_REPORT_START_DATE_p return date is
370 Begin
371 return C_REPORT_START_DATE;
372 END;
373 Function C_COMPANY_NAME_HEADER_p return varchar2 is
374 Begin
375 return C_COMPANY_NAME_HEADER;
376 END;
377 Function C_BASE_CURRENCY_CODE_p return varchar2 is
378 Begin
379 return C_BASE_CURRENCY_CODE;
380 END;
381 Function C_BASE_PRECISION_p return number is
382 Begin
383 return C_BASE_PRECISION;
384 END;
385 Function C_BASE_MIN_ACCT_UNIT_p return number is
386 Begin
387 return C_BASE_MIN_ACCT_UNIT;
388 END;
389 Function C_BASE_DESCRIPTION_p return varchar2 is
390 Begin
391 return C_BASE_DESCRIPTION;
392 END;
393 Function C_CHART_OF_ACCOUNTS_ID_p return number is
394 Begin
395 return C_CHART_OF_ACCOUNTS_ID;
396 END;
397 --Function Applications Template Report_p return varchar2 is
398 Function Applications_Template_Report_p return varchar2 is
399 Begin
400 --return Applications Template Report;
401 return Applications_Template_Report;
402 END;
403 Function H_CURRENCY_p return varchar2 is
404 Begin
405 return H_CURRENCY;
406 END;
407 Function H_CURRENCY_PRECISION_p return number is
408 Begin
409 return H_CURRENCY_PRECISION;
410 END;
411 Function H_CHART_OF_ACCOUNTS_ID_p return varchar2 is
412 Begin
413 return H_CHART_OF_ACCOUNTS_ID;
414 END;
415 Function H_SET_OF_BOOKS_NAME_p return varchar2 is
416 Begin
417 return H_SET_OF_BOOKS_NAME;
418 END;
419 Function H_SORT_BY_ALTERNATE_p return varchar2 is
420 Begin
421 return H_SORT_BY_ALTERNATE;
422 END;
423 Function H_DATEFORMAT_p return varchar2 is
424 Begin
425 return H_DATEFORMAT;
426 END;
427 END AP_APXPAYSC_XMLP_PKG ;
428