[Home] [Help]
PACKAGE BODY: APPS.AP_APXINVTC_XMLP_PKG
Source
1 PACKAGE BODY AP_APXINVTC_XMLP_PKG AS
2 /* $Header: APXINVTCB.pls 120.0 2007/12/27 08:07:50 vjaganat noship $ */
3
4 UNKNOWN_USER_EXIT 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;
9 BEGIN
10
11 base_curr := '';
12 prec := 0;
13 min_au := 0;
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 RETURN (TRUE);
30
31 RETURN NULL; EXCEPTION
32
33 WHEN OTHERS THEN
34 RETURN (FALSE);
35
36 END;
37
38 FUNCTION custom_init RETURN BOOLEAN IS
39
40 BEGIN
41
42
43 RETURN (TRUE);
44
45 RETURN NULL; EXCEPTION
46
47 WHEN OTHERS THEN
48 RETURN (FALSE);
49
50 END;
51
52 FUNCTION get_cover_page_values RETURN BOOLEAN IS
53
54 BEGIN
55
56 RETURN(TRUE);
57
58 RETURN NULL; EXCEPTION
59 WHEN OTHERS THEN
60 RETURN(FALSE);
61
62 END;
63
64 FUNCTION get_nls_strings RETURN BOOLEAN IS
65 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;
66 BEGIN
67
68 SELECT ly.meaning,
69 ln.meaning,
70 l1.displayed_field,
71 l2.displayed_field,
72 l3.displayed_field
73 INTO nls_yes,
74 nls_no,
75 nls_all,
76 nls_void,
77 nls_na
78 FROM fnd_lookups ly,
79 fnd_lookups ln,
80 ap_lookup_codes l1,
81 ap_lookup_codes l2,
82 ap_lookup_codes l3
83 WHERE ly.lookup_type = 'YES_NO'
84 AND ly.lookup_code = 'Y'
85 AND ln.lookup_type = 'YES_NO'
86 AND ln.lookup_code = 'N'
87 AND l1.lookup_type = 'NLS REPORT PARAMETER'
88 AND l1.lookup_code = 'ALL'
89 AND l2.lookup_type = 'NLS TRANSLATION'
90 AND l2.lookup_code = 'VOID'
91 AND l3.lookup_type = 'NLS REPORT PARAMETER'
92 AND l3.lookup_code = 'NA';
93
94 C_NLS_YES := nls_yes;
95 C_NLS_NO := nls_no;
96 C_NLS_ALL := nls_all;
97 C_NLS_VOID := nls_void;
98 C_NLS_NA := nls_na;
99
100
101
102 /*srw.user_exit('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
103
104 /*srw.user_exit('FND MESSAGE_GET OUTPUT_FIELD=":C_NLS_NO_DATA_EXISTS"');*/null;
105
106 /*srw.user_exit('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
107
108 /*srw.user_exit('FND MESSAGE_GET OUTPUT_FIELD=":C_NLS_END_OF_REPORT"');*/null;
109
110
111 C_NLS_NO_DATA_EXISTS := 'No Data Found';
112 C_NLS_END_OF_REPORT := 'End of Report';
113
114 RETURN (TRUE);
115
116 RETURN NULL; EXCEPTION
117 WHEN OTHERS THEN
118 RETURN (FALSE);
119 END;
120
121 function BeforeReport return boolean is
122 begin
123
124
125
126 DECLARE
127
128 init_failure EXCEPTION;
129
130 BEGIN
131
132 CP_END_UPDATE_DATE := to_char(P_END_UPDATE_DATE,'DD-MON-YYYY');
133 CP_START_UPDATE_DATE := to_char(P_START_UPDATE_DATE,'DD-MON-YYYY');
134 C_REPORT_START_DATE := sysdate;
135
136
137
138
139 /*SRW.USER_EXIT('FND SRWINIT');*/null;
140
141 IF (p_debug_switch in ('y','Y')) THEN
142 /*SRW.MESSAGE('1','After SRWINIT');*/null;
143
144 END IF;
145
146
147
148 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
149 END IF;
150 IF (p_debug_switch in ('y','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 in ('y','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 in ('y','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
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205 IF (create_where() <> TRUE) THEN RAISE init_failure;
206 END IF;
207 IF (p_debug_switch in ('y','Y')) THEN
208 /*SRW.MESSAGE('8','After Create_Where');*/null;
209
210 END IF;
211
212
213
214 IF (get_profile() <> TRUE) THEN RAISE init_failure;
215 END IF;
216 IF (p_debug_switch in ('y','Y')) THEN
217 /*SRW.MESSAGE('9','After get_profile');*/null;
218
219 END IF;
220
221
222
223 IF (get_acc_segs() <> TRUE) THEN RAISE init_failure;
224 END IF;
225 IF (p_debug_switch in ('y','Y')) THEN
226 /*SRW.MESSAGE('10','After get_acc_segs');*/null;
227
228 END IF;
229
230
231
232 /*IF (get_date_format() <> TRUE) THEN RAISE init_failure;
233 END IF;*/
234 --COMMENTED BY SWAPNA
235 IF (p_debug_switch in ('y','Y')) THEN
236 /*SRW.MESSAGE('11','After get_date_format');*/null;
237
238 END IF;
239
240
241
242
243
244 IF (p_debug_switch in ('y','Y')) THEN
245 /*SRW.BREAK;*/null;
246
247 END IF;
248
249
250
251 RETURN (TRUE);
252
253
254
255 EXCEPTION
256
257 WHEN OTHERS THEN
258
259 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
260
261
262 END;
263 return (TRUE);
264 end;
265
266 function AfterReport return boolean is
267 begin
268
269 BEGIN
270 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
271
272 IF (P_DEBUG_SWITCH = 'Y') THEN
273 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
274
275 END IF;
276 EXCEPTION
277 WHEN OTHERS THEN
278 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
279
280 END; return (TRUE);
281 end;
282
283 FUNCTION get_company_name RETURN BOOLEAN IS
284 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
285 l_name gl_sets_of_books.name%TYPE;
286 l_sob_id number;
287 BEGIN
288
289 if P_SET_OF_BOOKS_ID is not null then
290 l_sob_id := p_set_of_books_id;
291 SELECT name,
292 chart_of_accounts_id
293 INTO l_name,
294 l_chart_of_accounts_id
295 FROM gl_sets_of_books
296 WHERE set_of_books_id = l_sob_id;
297
298 c_company_name_header := l_name;
299 c_chart_of_accounts_id := l_chart_of_accounts_id;
300
301 end if;
302
303 RETURN (TRUE);
304
305 RETURN NULL; EXCEPTION
306
307 WHEN OTHERS THEN
308 RETURN (FALSE);
309
310 END;
311
312 FUNCTION get_flexdata RETURN BOOLEAN IS
313
314 BEGIN
315
316 if C_CHART_OF_ACCOUNTS_ID is not null then
317
318 null;
319 return (TRUE);
320 else
321 /*SRW.MESSAGE('999','Cannot use flex API without a chart of accounts ID.');*/null;
322
323 return(FALSE);
324 end if;
325
326 RETURN NULL; EXCEPTION
327 WHEN OTHERS THEN
328 RETURN(FALSE);
329 END;
330
331 FUNCTION create_where RETURN BOOLEAN IS
332 BEGIN
333 if P_INVOICE_TYPE is not null then
334 H_INVOICE_WHERE := H_INVOICE_WHERE||'ALC2.LOOKUP_CODE = '''||P_INVOICE_TYPE||''' and ';
335 else
336 H_INVOICE_WHERE := ' ';
337 end if;
338 if P_SUPPLIER_NAME is not null then
339 H_INVOICE_WHERE := H_INVOICE_WHERE||'PV1.VENDOR_ID = '''||P_SUPPLIER_NAME||''' and ';
340 else
341 H_INVOICE_WHERE := ' ';
342 end if;
343 if P_UPDATED_BY is not null then
344 H_INVOICE_WHERE := H_INVOICE_WHERE||'FU.USER_NAME = '''||P_UPDATED_BY||''' and ';
345 else
346 H_INVOICE_WHERE := ' ';
347 end if;
348
349 return true;
350
351 RETURN NULL; exception
352 when others then
353 return false;
354 END;
355
356 FUNCTION get_profile RETURN boolean IS
357 BEGIN
358
359
360 SELECT sort_by_alternate_field
361 INTO H_SORT_BY_ALTERNATE
362 FROM AP_SYSTEM_PARAMETERS;
363
364
365 return true;
366
367 RETURN NULL; exception
368 when others then
369 H_SORT_BY_ALTERNATE := 'N';
370
371 return false;
372 END;
373
374 FUNCTION get_acc_segs RETURN boolean IS
375 BEGIN
376
377
378
379 /*srw.reference(C_CHART_OF_ACCOUNTS_ID);*/null;
380
381
382 null;
383
384
385 return true;
386
387 RETURN NULL; exception
388 when UNKNOWN_USER_EXIT /*srw.unknown_user_exit */then
389 return false;
390 END;
391
392 --Functions to refer Oracle report placeholders--
393
394 Function C_NLS_YES_p return varchar2 is
395 Begin
396 return C_NLS_YES;
397 END;
398 Function C_NLS_NO_p return varchar2 is
399 Begin
400 return C_NLS_NO;
401 END;
402 Function C_NLS_ALL_p return varchar2 is
403 Begin
404 return C_NLS_ALL;
405 END;
406 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
407 Begin
408 return C_NLS_NO_DATA_EXISTS;
409 END;
410 Function C_NLS_VOID_p return varchar2 is
411 Begin
412 return C_NLS_VOID;
413 END;
414 Function C_NLS_NA_p return varchar2 is
415 Begin
416 return C_NLS_NA;
417 END;
418 Function C_NLS_END_OF_REPORT_p return varchar2 is
419 Begin
420 return C_NLS_END_OF_REPORT;
421 END;
422 Function C_REPORT_START_DATE_p return date is
423 Begin
424 return C_REPORT_START_DATE;
425 END;
426 Function C_COMPANY_NAME_HEADER_p return varchar2 is
427 Begin
428 return C_COMPANY_NAME_HEADER;
429 END;
430 Function C_BASE_CURRENCY_CODE_p return varchar2 is
431 Begin
432 return C_BASE_CURRENCY_CODE;
433 END;
434 Function C_BASE_PRECISION_p return number is
435 Begin
436 return C_BASE_PRECISION;
437 END;
438 Function C_BASE_MIN_ACCT_UNIT_p return number is
439 Begin
440 return C_BASE_MIN_ACCT_UNIT;
441 END;
442 Function C_BASE_DESCRIPTION_p return varchar2 is
443 Begin
444 return C_BASE_DESCRIPTION;
445 END;
446 Function C_CHART_OF_ACCOUNTS_ID_p return number is
447 Begin
448 return C_CHART_OF_ACCOUNTS_ID;
449 END;
450 --Function Applications Template Report_p return varchar2 is
451 Function Applications_Template_Report_p return varchar2 is
452 Begin
453 --return Applications Template Report;
454 return Applications_Template_Report;
455 END;
456 Function H_ACCT_SEGS_p return varchar2 is
457 Begin
458 return H_ACCT_SEGS;
459 END;
460 Function H_SORT_BY_ALTERNATE_p return varchar2 is
461 Begin
462 return H_SORT_BY_ALTERNATE;
463 END;
464 Function H_CHART_OF_ACCOUNTS_ID_p return varchar2 is
465 Begin
466 return H_CHART_OF_ACCOUNTS_ID;
467 END;
468 Function H_SET_OF_BOOKS_NAME_p return varchar2 is
469 Begin
470 return H_SET_OF_BOOKS_NAME;
471 END;
472 Function H_CURRENCY_p return varchar2 is
473 Begin
474 return H_CURRENCY;
475 END;
476 Function H_CURRENCY_PRECISION_p return number is
477 Begin
478 return H_CURRENCY_PRECISION;
479 END;
480 Function H_INVOICE_WHERE_p return varchar2 is
481 Begin
482 return H_INVOICE_WHERE;
483 END;
484 Function H_CURRENCY_DIST_p return varchar2 is
485 Begin
486 return H_CURRENCY_DIST;
487 END;
488 Function H_CURRENCY_DIST_PRECISION_p return number is
489 Begin
490 return H_CURRENCY_DIST_PRECISION;
491 END;
492 Function H_CURRENCY_PAY_p return varchar2 is
493 Begin
494 return H_CURRENCY_PAY;
495 END;
496 Function H_CURRENCY_PAY_PRECISION_p return number is
497 Begin
498 return H_CURRENCY_PAY_PRECISION;
499 END;
500 Function H_DATEFORMAT_p return varchar2 is
501 Begin
502 return H_DATEFORMAT;
503 END;
504 Function C_EXPENSE_ACCT_SEGS_COPY_p return varchar2 is
505 Begin
506 return C_EXPENSE_ACCT_SEGS_COPY;
507 END;
508 Function C_INVOICE_ACCT_SEGS_COPY_p return varchar2 is
509 Begin
510 return C_INVOICE_ACCT_SEGS_COPY;
511 END;
512 END AP_APXINVTC_XMLP_PKG ;
513
514