[Home] [Help]
PACKAGE BODY: APPS.AP_APXPPREM_XMLP_PKG
Source
1 PACKAGE BODY AP_APXPPREM_XMLP_PKG AS
2 /* $Header: APXPPREMB.pls 120.0 2007/12/27 08:24:46 vjaganat noship $ */
3
4 DO_SQL_FAILURE EXCEPTION;
5
6 FUNCTION get_base_curr_data RETURN BOOLEAN IS
7
8 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; date_today date;
9
10 BEGIN
11
12 base_curr := '';
13 prec := 0;
14 min_au := 0;
15 descr := '';
16
17 SELECT p.base_currency_code,
18 c.precision,
19 c.minimum_accountable_unit,
20 c.description,
21 sysdate
22 INTO base_curr,
23 prec,
24 min_au,
25 descr,
26 date_today
27 FROM ap_system_parameters p,
28 fnd_currencies_vl c
29 WHERE p.base_currency_code = c.currency_code;
30
31 c_base_currency_code := base_curr;
32 c_base_precision := prec;
33 c_base_min_acct_unit := min_au;
34 c_base_description := descr;
35 c_report_start_date := date_today;
36 RETURN (TRUE);
37
38 RETURN NULL; EXCEPTION
39
40 WHEN OTHERS THEN
41 RETURN (FALSE);
42
43 END;
44
45 function custom_init return boolean is
46
47 begin
48
49 if P_VENDOR_ID is not null then
50 C_VENDOR_ID_PREDICATE := 'and inv1.vendor_id = '||to_char(P_VENDOR_ID);
51 ELSE
52 C_VENDOR_ID_PREDICATE := ' ';
53 end if;
54
55 if P_INVOICE_ID is not null then
56 C_INVOICE_ID_PREDICATE := 'and inv1.invoice_id = '||to_char(P_INVOICE_ID);
57 ELSE
58 C_INVOICE_ID_PREDICATE := ' ';
59 end if;
60
61 if P_PREPAY_ID is not null then
62 C_PREPAY_ID_PREDICATE := 'and pp.invoice_id = '||to_char(P_PREPAY_ID);
63 ELSE
64 C_PREPAY_ID_PREDICATE := ' ';
65 end if;
66
67
68
69
70 if P_START_DATE is not null then
71 C_START_DATE_PREDICATE := 'and aipp.last_update_date >= '''||to_char(P_START_DATE)||'''';
72 ELSE
73 C_START_DATE_PREDICATE := ' ';
74 end if;
75
76 if P_END_DATE is not null then
77 C_END_DATE_PREDICATE := 'and aipp.last_update_date <= '''
78 ||to_char(P_END_DATE)||'''';
79 ELSE
80 C_END_DATE_PREDICATE := ' ';
81 end if;
82
83
84
85
86 if P_START_DATE is not null then
87 C_START_INVOICE_DATE_PREDICATE := 'and inv1.invoice_date >= '''||to_char(P_START_DATE)||'''';
88 else
89 C_START_INVOICE_DATE_PREDICATE := ' ';
90 end if;
91
92 if P_END_DATE is not null then
93 C_END_INVOICE_DATE_PREDICATE := 'and inv1.invoice_date <= '''
94 ||to_char(P_END_DATE)||'''';
95 else
96 C_END_INVOICE_DATE_PREDICATE := ' ';
97 end if;
98
99
100
101
102
103
104
105
106 return(TRUE);
107
108 RETURN NULL; exception
109 when OTHERS then
110 return(FALSE);
111
112
113 end;
114
115 FUNCTION get_cover_page_values RETURN BOOLEAN IS
116
117 BEGIN
118
119 RETURN(TRUE);
120
121 RETURN NULL; EXCEPTION
122 WHEN OTHERS THEN
123 RETURN(FALSE);
124
125 END;
126
127 FUNCTION get_nls_strings RETURN BOOLEAN IS
128 nls_all ap_lookup_codes.displayed_field%TYPE; nls_yes fnd_lookups.meaning%TYPE; nls_no fnd_lookups.meaning%TYPE;
129 BEGIN
130
131 nls_all := '';
132 nls_yes := '';
133 nls_no := '';
134
135 SELECT ly.meaning,
136 ln.meaning,
137 la.displayed_field
138 INTO nls_yes, nls_no, nls_all
139 FROM fnd_lookups ly, fnd_lookups ln, ap_lookup_codes la
140 WHERE ly.lookup_type = 'YES_NO'
141 AND ly.lookup_code = 'Y'
142 AND ln.lookup_type = 'YES_NO'
143 AND ln.lookup_code = 'N'
144 AND la.lookup_type = 'NLS REPORT PARAMETER'
145 AND la.lookup_code = 'ALL';
146
147 c_nls_yes := nls_yes;
148 c_nls_no := nls_no;
149 c_nls_all := nls_all;
150
151 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL= "SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
152
153
154 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_no_data_exists"');*/null;
155
156
157 c_nls_no_data_exists := '*** '||c_nls_no_data_exists||' ***';
158
159 RETURN (TRUE);
160
161 RETURN NULL; EXCEPTION
162 WHEN OTHERS THEN
163 RETURN (FALSE);
164 END;
165
166 function BeforeReport return boolean is
167 begin
168
169
170
171 DECLARE
172
173 init_failure EXCEPTION;
174
175 BEGIN
176
177
178
179
180 /*SRW.USER_EXIT('FND SRWINIT');*/null;
181
182 IF (p_debug_switch = 'Y') THEN
183 /*SRW.MESSAGE('1','After SRWINIT');*/null;
184
185 END IF;
186
187
188
189
190
191 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
192 END IF;
193 IF (p_debug_switch = 'Y') THEN
194 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
195
196 END IF;
197
198
199 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
200 END IF;
201 IF (p_debug_switch = 'Y') THEN
202 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
203
204 END IF;
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228 IF(custom_init() <> TRUE) THEN
229 RAISE init_failure;
230 END IF;
231 IF (p_debug_switch = 'Y') THEN
232 /*SRW.MESSAGE('7','After Custom_Init');*/null;
233
234 END IF;
235
236
237
238
239 IF (populate_mls_lexicals() = FALSE) THEN
240 RAISE init_failure;
241 END IF;
242 IF (p_debug_switch = 'Y') THEN
243 /*SRW.MESSAGE('8','After populate_mls_lexicals');*/null;
244
245 END IF;
246
247
248
249
250
251
252
253 IF (p_debug_switch = 'Y') THEN
254 /*SRW.BREAK;*/null;
255
256 END IF;
257
258
259
260 RETURN (TRUE);
261
262
263
264 EXCEPTION
265
266 WHEN OTHERS THEN
267
268 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
269
270
271 END; return (TRUE);
272 end;
273
274 function AfterReport return boolean is
275 begin
276
277 BEGIN
278 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
279
280 IF (P_DEBUG_SWITCH = 'Y') THEN
281 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
282
283 END IF;
284 EXCEPTION
285 WHEN OTHERS THEN
286 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
287
288 END; return (TRUE);
289 end;
290
291 FUNCTION get_flexdata RETURN BOOLEAN IS
292
293 BEGIN
294
295
296 null;
297 RETURN (TRUE);
298
299 RETURN NULL; EXCEPTION
300 WHEN OTHERS THEN
301 RETURN(FALSE);
302 END;
303
304 FUNCTION calculate_run_time RETURN BOOLEAN IS
305 end_date DATE;
306 start_date DATE;
307 BEGIN
308 end_date := sysdate;
309 start_date := C_REPORT_START_DATE;
310 C_REPORT_RUN_TIME := to_char(to_date('01/01/0001','DD/MM/YYYY') + ((end_date - start_date)),'HH24:MI:SS');
311 RETURN(TRUE);
312 RETURN NULL; EXCEPTION
313 WHEN OTHERS THEN
314 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
315
316 END;
317
318 function C_SENDER_NAMEFormula return VARCHAR2 is
319 begin
320
321 return(nvl(P_NAME_SRS, replace(P_NAME_EXEC, '_', ' ')));
322 end;
323
324 function C_SENDER_TITLEFormula return VARCHAR2 is
325 begin
326
327 return(nvl(P_TITLE_SRS, replace(P_TITLE_EXEC, '_', ' ')));
328 end;
329
330 function C_SENDER_PHONEFormula return VARCHAR2 is
331 begin
332
333 return(nvl(P_PHONE_SRS, replace(P_PHONE_EXEC, '_', ' ')));
334 end;
335
336 function populate_mls_lexicals return boolean is
337 session_language fnd_languages.nls_language%TYPE;
338 base_language fnd_languages.nls_language%TYPE;
339 begin
340
341 session_language := '';
342 base_language := '';
343
344 select substr(userenv('LANGUAGE'),1,instr(userenv('LANGUAGE'),'_')-1)
345 into session_language
346 from dual;
347
348 select nls_language
349 into base_language
350 from fnd_languages
351 where installed_flag = 'B';
352
353 lp_language_where := ' and nvl(pvs.language,'||''''||base_language||
354 ''')='||''''||session_language||'''';
355
356 return(TRUE);
357
358 RETURN NULL; exception
359 when DO_SQL_FAILURE /*srw.do_sql_failure */then return(TRUE);
360 when others then return(FALSE);
361 end;
362
363 --Functions to refer Oracle report placeholders--
364
365 Function C_BASE_CURRENCY_CODE_p return varchar2 is
366 Begin
367 return C_BASE_CURRENCY_CODE;
368 END;
369 Function C_BASE_PRECISION_p return number is
370 Begin
371 return C_BASE_PRECISION;
372 END;
373 Function C_BASE_MIN_ACCT_UNIT_p return number is
374 Begin
375 return C_BASE_MIN_ACCT_UNIT;
376 END;
377 Function C_BASE_DESCRIPTION_p return varchar2 is
378 Begin
379 return C_BASE_DESCRIPTION;
380 END;
381 Function C_COMPANY_NAME_HEADER_p return varchar2 is
382 Begin
383 return C_COMPANY_NAME_HEADER;
384 END;
385 Function C_REPORT_START_DATE_p return date is
386 Begin
387 return C_REPORT_START_DATE;
388 END;
389 Function C_NLS_YES_p return varchar2 is
390 Begin
391 return C_NLS_YES;
392 END;
393 Function C_NLS_NO_p return varchar2 is
394 Begin
395 return C_NLS_NO;
396 END;
397 Function C_NLS_ALL_p return varchar2 is
398 Begin
399 return C_NLS_ALL;
400 END;
401 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
402 Begin
403 return C_NLS_NO_DATA_EXISTS;
404 END;
405 Function C_REPORT_RUN_TIME_p return varchar2 is
406 Begin
407 return C_REPORT_RUN_TIME;
408 END;
409 Function C_CHART_OF_ACCOUNTS_ID_p return number is
410 Begin
411 return C_CHART_OF_ACCOUNTS_ID;
412 END;
413 Function C_VENDOR_ID_PREDICATE_p return varchar2 is
414 Begin
415 return C_VENDOR_ID_PREDICATE;
416 END;
417 Function C_INVOICE_ID_PREDICATE_p return varchar2 is
418 Begin
419 return C_INVOICE_ID_PREDICATE;
420 END;
421 Function C_PREPAY_ID_PREDICATE_p return varchar2 is
422 Begin
423 return C_PREPAY_ID_PREDICATE;
424 END;
425 Function C_START_DATE_PREDICATE_p return varchar2 is
426 Begin
427 return C_START_DATE_PREDICATE;
428 END;
429 Function C_END_DATE_PREDICATE_p return varchar2 is
430 Begin
431 return C_END_DATE_PREDICATE;
432 END;
433 Function C_START_INVOICE_DATE_PREDICAT return varchar2 is
434 Begin
435 return C_START_INVOICE_DATE_PREDICATE;
436 END;
437 Function C_END_INVOICE_DATE_PREDICATE_p return varchar2 is
438 Begin
439 return C_END_INVOICE_DATE_PREDICATE;
440 END;
441 END AP_APXPPREM_XMLP_PKG ;
442
443