[Home] [Help]
PACKAGE BODY: APPS.AP_APXINLST_XMLP_PKG
Source
1 PACKAGE BODY AP_APXINLST_XMLP_PKG AS
2 /* $Header: APXINLSTB.pls 120.0 2007/12/27 07:55: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; EXCEPTION
34
35 WHEN OTHERS THEN
36 RETURN (FALSE);
37
38 END;
39
40 FUNCTION custom_init RETURN BOOLEAN IS
41
42 BEGIN
43
44
45 RETURN (TRUE);
46
47 RETURN NULL; EXCEPTION
48
49 WHEN OTHERS THEN
50 RETURN (FALSE);
51
52 END;
53
54 FUNCTION get_cover_page_values RETURN BOOLEAN IS
55
56 BEGIN
57
58 RETURN(TRUE);
59
60 RETURN NULL; EXCEPTION
61 WHEN OTHERS THEN
62 RETURN(FALSE);
63
64 END;
65
66 FUNCTION get_nls_strings RETURN BOOLEAN IS
67 nls_all ap_lookup_codes.displayed_field%TYPE; nls_sort ap_lookup_codes.displayed_field%TYPE;
68 nls_type ap_lookup_codes.displayed_field%TYPE;
69 nls_yes fnd_lookups.meaning%TYPE; nls_no fnd_lookups.meaning%TYPE;
70 BEGIN
71
72 nls_all := '';
73 nls_yes := '';
74 nls_no := '';
75
76 SELECT ly.meaning,
77 ln.meaning,
78 l1.displayed_field,
79 l2.displayed_field
80 INTO nls_yes, nls_no,
81 nls_all, nls_sort
82 FROM fnd_lookups ly, fnd_lookups ln,
83 ap_lookup_codes l1, ap_lookup_codes l2
84 WHERE ly.lookup_type = 'YES_NO'
85 AND ly.lookup_code = 'Y'
86 AND ln.lookup_type = 'YES_NO'
87 AND ln.lookup_code = 'N'
88 AND l1.lookup_type = 'NLS REPORT PARAMETER'
89 AND l1.lookup_code = 'ALL'
90 AND l2.lookup_type = 'INVOICE SORT OPTION'
91 AND l2.lookup_code = P_SORT_OPTION;
92
93 c_nls_yes := nls_yes;
94 c_nls_no := nls_no;
95 c_nls_all := nls_all;
96 c_nls_sort_option := nls_sort;
97
98 if P_INVOICE_TYPE is null then
99 C_NLS_INVOICE_TYPE := C_NLS_ALL;
100 else
101 SELECT displayed_field
102 INTO nls_type
103 FROM ap_lookup_codes
104 WHERE lookup_type = 'INVOICE TYPE'
105 AND lookup_code = P_INVOICE_TYPE;
106
107 C_NLS_INVOICE_TYPE := nls_type;
108 end if;
109
110 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
111
112 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_no_data_exists"');*/null;
113
114 /*c_nls_no_data_exists := '*** '||c_nls_no_data_exists||' ***';*/
115 c_nls_no_data_exists := 'No Data Found';
116
117 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
118
119 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_end_of_report"');*/null;
120
121 /*c_nls_end_of_report := '*** '||c_nls_end_of_report||' ***';*/
122 c_nls_end_of_report := 'End of Report';
123
124 RETURN (TRUE);
125
126 RETURN NULL; EXCEPTION
127 WHEN OTHERS THEN
128 RETURN (FALSE);
129 END;
130
131 function BeforeReport return boolean is
132 begin
133
134
135
136 DECLARE
137
138 init_failure EXCEPTION;
139
140 BEGIN
141
142
143
144 CP_DATE_SINCE := to_Char(P_DATE_SINCE,'DD-MON-YY');
145 /*SRW.USER_EXIT('FND SRWINIT');*/null;
146
147 IF (p_debug_switch = 'Y') THEN
148 /*SRW.MESSAGE('1','After SRWINIT');*/null;
149
150 END IF;
151
152
153 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
154 END IF;
155 IF (p_debug_switch = 'Y') THEN
156 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
157
158 END IF;
159
160
161 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
162 END IF;
163 IF (p_debug_switch = 'Y') THEN
164 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
165
166 END IF;
167
168
169 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
170 END IF;
171 IF (p_debug_switch = 'Y') THEN
172 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
173
174 END IF;
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208 IF (p_debug_switch = 'Y') THEN
209 /*SRW.BREAK;*/null;
210
211 END IF;
212
213
214
215 RETURN (TRUE);
216
217
218
219 EXCEPTION
220
221 WHEN OTHERS THEN
222
223 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
224
225
226 END; return (TRUE);
227 end;
228
229 function AfterReport return boolean is
230 begin
231
232 BEGIN
233 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
234
235 IF (P_DEBUG_SWITCH = 'Y') THEN
236 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
237
238 END IF;
239 EXCEPTION
240 WHEN OTHERS THEN
241 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
242
243 END; return (TRUE);
244 end;
245
246 FUNCTION get_company_name RETURN BOOLEAN IS
247 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
248 l_name gl_sets_of_books.name%TYPE;
249 l_sob_id NUMBER;
250 l_report_start_date DATE;
251 BEGIN
252 l_report_start_date := sysdate; l_sob_id := p_set_of_books_id;
253 SELECT name,
254 chart_of_accounts_id
255 INTO l_name,
256 l_chart_of_accounts_id
257 FROM gl_sets_of_books
258 WHERE set_of_books_id = l_sob_id;
259
260 c_company_name_header := l_name;
261 c_chart_of_accounts_id := l_chart_of_accounts_id;
262 c_report_start_date := l_report_start_date;
263
264 RETURN (TRUE);
265
266 RETURN NULL; EXCEPTION
267
268 WHEN OTHERS THEN
269 RETURN (FALSE);
270
271 END;
272
273 FUNCTION get_flexdata RETURN BOOLEAN IS
274
275 BEGIN
276
277
278 null;
279 RETURN (TRUE);
280
281 RETURN NULL; EXCEPTION
282 WHEN OTHERS THEN
283 RETURN(FALSE);
284 END;
285
286 FUNCTION calculate_run_time RETURN BOOLEAN IS
287 end_date DATE;
288 start_date DATE;
289 BEGIN
290 end_date := sysdate;
291 start_date := C_REPORT_START_DATE;
292 C_REPORT_RUN_TIME := to_char(to_date('01/01/0001','DD/MM/YYYY') + ((end_date - start_date)),'HH24:MI:SS');
293 RETURN(TRUE);
294 RETURN NULL; EXCEPTION
295 WHEN OTHERS THEN
296 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
297
298 END;
299
300 function C_ORDER_BYFormula return VARCHAR2 is
301 begin
302
303 DECLARE
304 order_1 varchar2(150);
305 i_sort varchar2(80);
306 BEGIN
307 IF (P_SORT_OPTION IS NOT NULL) THEN
308 i_sort := LOWER(REPLACE(P_SORT_OPTION,' '));
309 IF (i_sort = 'amount,date,vendor') THEN
310 order_1 := 'ORDER BY i.invoice_currency_code,i.invoice_amount,'
311 ||'i.invoice_date,'
312 ||'UPPER(v.vendor_name)';
313 ELSIF (i_sort = 'amount,vendor,date') THEN
314 order_1 := 'ORDER BY i.invoice_currency_code,i.invoice_amount,'
315 ||'UPPER(v.vendor_name),'
316 ||'i.invoice_date';
317 ELSIF (i_sort = 'date,vendor,amount') THEN
318 order_1 := 'ORDER BY i.invoice_date,'
319 ||'UPPER(v.vendor_name),'
320 ||'i.invoice_currency_code,i.invoice_amount';
321 ELSIF (i_sort = 'date,amount,vendor') THEN
322 order_1 := 'ORDER BY i.invoice_date,'
323 ||'i.invoice_currency_code,i.invoice_amount,'
324 ||'UPPER(v.vendor_name)';
325 ELSIF (i_sort = 'vendor,amount,date') THEN
326 order_1 := 'ORDER BY UPPER(v.vendor_name),'
327 ||'i.invoice_currency_code,i.invoice_amount,'
328 ||'i.invoice_date';
329 ELSIF (i_sort = 'vendor,date,amount') THEN
330 order_1 := 'ORDER BY UPPER(v.vendor_name),'
331 ||'i.invoice_date,'
332 ||'i.invoice_currency_code,i.invoice_amount';
333 END IF;
334 order_1 := order_1||',upper(i.invoice_num)';
335 END IF;
336 RETURN(order_1);
337 END;
338
339 RETURN NULL; end;
340
341 --Functions to refer Oracle report placeholders--
342
343 Function C_BASE_CURRENCY_CODE_p return varchar2 is
344 Begin
345 return C_BASE_CURRENCY_CODE;
346 END;
347 Function C_BASE_PRECISION_p return number is
348 Begin
349 return C_BASE_PRECISION;
350 END;
351 Function C_BASE_MIN_ACCT_UNIT_p return number is
352 Begin
353 return C_BASE_MIN_ACCT_UNIT;
354 END;
355 Function C_BASE_DESCRIPTION_p return varchar2 is
356 Begin
357 return C_BASE_DESCRIPTION;
358 END;
359 Function C_COMPANY_NAME_HEADER_p return varchar2 is
360 Begin
361 return C_COMPANY_NAME_HEADER;
362 END;
363 Function C_REPORT_START_DATE_p return date is
364 Begin
365 return C_REPORT_START_DATE;
366 END;
367 Function C_NLS_YES_p return varchar2 is
368 Begin
369 return C_NLS_YES;
370 END;
371 Function C_NLS_NO_p return varchar2 is
372 Begin
373 return C_NLS_NO;
374 END;
375 Function C_NLS_ALL_p return varchar2 is
376 Begin
377 return C_NLS_ALL;
378 END;
379 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
380 Begin
381 return C_NLS_NO_DATA_EXISTS;
382 END;
383 Function C_REPORT_RUN_TIME_p return varchar2 is
384 Begin
385 return C_REPORT_RUN_TIME;
386 END;
387 Function C_CHART_OF_ACCOUNTS_ID_p return number is
388 Begin
389 return C_CHART_OF_ACCOUNTS_ID;
390 END;
391 Function C_NLS_SORT_OPTION_p return varchar2 is
392 Begin
393 return C_NLS_SORT_OPTION;
394 END;
395 Function C_NLS_INVOICE_TYPE_p return varchar2 is
396 Begin
397 return C_NLS_INVOICE_TYPE;
398 END;
399 Function C_NLS_END_OF_REPORT_p return varchar2 is
400 Begin
401 return C_NLS_END_OF_REPORT;
402 END;
403 END AP_APXINLST_XMLP_PKG ;
404