[Home] [Help]
PACKAGE BODY: APPS.AP_APXMTDTR_XMLP_PKG
Source
1 PACKAGE BODY AP_APXMTDTR_XMLP_PKG AS
2 /* $Header: APXMTDTRB.pls 120.0 2007/12/27 08:14:08 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.precision%TYPE; min_au fnd_currencies.minimum_accountable_unit%TYPE; descr fnd_currencies.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 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_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;
68 BEGIN
69
70 SELECT ly.meaning,
71 ln.meaning,
72 l1.displayed_field,
73 l2.displayed_field,
74 l3.displayed_field
75 INTO nls_yes,
76 nls_no,
77 nls_all,
78 nls_void,
79 nls_na
80 FROM fnd_lookups ly,
81 fnd_lookups ln,
82 ap_lookup_codes l1,
83 ap_lookup_codes l2,
84 ap_lookup_codes l3
85 WHERE ly.lookup_type = 'YES_NO'
86 AND ly.lookup_code = 'Y'
87 AND ln.lookup_type = 'YES_NO'
88 AND ln.lookup_code = 'N'
89 AND l1.lookup_type = 'NLS REPORT PARAMETER'
90 AND l1.lookup_code = 'ALL'
91 AND l2.lookup_type = 'NLS TRANSLATION'
92 AND l2.lookup_code = 'VOID'
93 AND l3.lookup_type = 'NLS REPORT PARAMETER'
94 AND l3.lookup_code = 'NA';
95
96 C_NLS_YES := nls_yes;
97 C_NLS_NO := nls_no;
98 C_NLS_ALL := nls_all;
99 C_NLS_VOID := nls_void;
100 C_NLS_NA := nls_na;
101
102
103
104 /*srw.user_exit('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
105
106 /*srw.user_exit('FND MESSAGE_GET OUTPUT_FIELD=":C_NLS_NO_DATA_EXISTS"');*/null;
107
108 /*srw.user_exit('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
109
110 /*srw.user_exit('FND MESSAGE_GET OUTPUT_FIELD=":C_NLS_END_OF_REPORT"');*/null;
111
112
113 C_NLS_NO_DATA_EXISTS := 'No Data Found';
114 C_NLS_END_OF_REPORT := 'End of Report';
115
116 RETURN (TRUE);
117
118 RETURN NULL; EXCEPTION
119 WHEN OTHERS THEN
120 RETURN (FALSE);
121 END;
122
123 function BeforeReport return boolean is
124 begin
125
126
127
128 DECLARE
129
130 init_failure EXCEPTION;
131
132 BEGIN
133
134
135 C_REPORT_START_DATE := sysdate;
136
137
138
139
140 /*SRW.USER_EXIT('FND SRWINIT');*/null;
141
142 IF (p_debug_switch in ('y','Y')) THEN
143 /*SRW.MESSAGE('1','After SRWINIT');*/null;
144
145 END IF;
146
147
148
149
150 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
151 END IF;
152 IF (p_debug_switch in ('y','Y')) THEN
153 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
154
155 END IF;
156
157
158
159 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
160 END IF;
161 IF (p_debug_switch in ('y','Y')) THEN
162 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
163
164 END IF;
165
166
167
168 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
169 END IF;
170 IF (p_debug_switch in ('y','Y')) THEN
171 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
172
173 END IF;
174
175
176 LP_PO_RELEASE_ID := 'AND 1=1 ';
177 IF(p_po_release_id IS NOT NULL) THEN
178 LP_PO_RELEASE_ID := 'AND PR.po_release_id = '||to_char(p_po_release_id) ;
179 END IF;
180
181
182
183
184
185
186
187
188
189
190
191
192
193 IF (get_flexdata() <> TRUE) THEN
194 RAISE init_failure;
195 END IF;
196 IF (p_debug_switch in ('y','Y')) THEN
197 /*SRW.MESSAGE ('6', 'After Get_Flexdata');*/null;
198
199 END IF;
200
201 IF (get_flexdata3() <> TRUE) THEN
202 RAISE init_failure;
203 END IF;
204 IF (p_debug_switch in ('y','Y')) THEN
205 /*SRW.MESSAGE ('6', 'After Get_Flexdata3');*/null;
206
207 END IF;
208
209 IF (get_flexdata4() <> TRUE) THEN
210 RAISE init_failure;
211 END IF;
212 IF (p_debug_switch in ('y','Y')) THEN
213 /*SRW.MESSAGE ('6', 'After Get_Flexdata4');*/null;
214
215 END IF;
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230 IF (p_debug_switch in ('y','Y')) THEN
231 /*SRW.BREAK;*/null;
232
233 END IF;
234
235
236
237 RETURN (TRUE);
238
239
240
241 EXCEPTION
242
243 WHEN OTHERS THEN
244
245 /* RAISE_application_error(-20101,null);SRW.PROGRAM_ABORT;*/null;
246
247
248 END;
249 return (TRUE);
250 end;
251
252 function AfterReport return boolean is
253 begin
254
255 BEGIN
256 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
257
258 IF (P_DEBUG_SWITCH = 'Y') THEN
259 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
260
261 END IF;
262 EXCEPTION
263 WHEN OTHERS THEN
264 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
265
266 END; return (TRUE);
267 end;
268
269 FUNCTION get_company_name RETURN BOOLEAN IS
270 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
271 l_name gl_sets_of_books.name%TYPE;
272 l_sob_id number;
273 BEGIN
274
275 if P_SET_OF_BOOKS_ID is not null then
276 l_sob_id := p_set_of_books_id;
277 SELECT name,
278 chart_of_accounts_id
279 INTO l_name,
280 l_chart_of_accounts_id
281 FROM gl_sets_of_books
282 WHERE set_of_books_id = l_sob_id;
283
284 c_company_name_header := l_name;
285 c_chart_of_accounts_id := l_chart_of_accounts_id;
286
287 end if;
288
289 RETURN (TRUE);
290
291 RETURN NULL; EXCEPTION
292
293 WHEN OTHERS THEN
294 RETURN (FALSE);
295
296 END;
297
298 FUNCTION get_flexdata RETURN BOOLEAN IS
299
300 BEGIN
301
302 if C_CHART_OF_ACCOUNTS_ID is not null then
303
304 null;
305 return (TRUE);
306 else
307 /*SRW.MESSAGE('999','Cannot use flex API without a chart of accounts ID.');*/null;
308
309 return(FALSE);
310 end if;
311
312 RETURN NULL; EXCEPTION
313 WHEN OTHERS THEN
314 RETURN(FALSE);
315 END;
316
317 FUNCTION get_flexdata3 RETURN BOOLEAN IS
318
319 BEGIN
320
321 if C_CHART_OF_ACCOUNTS_ID is not null then
322
323 null;
324 return (TRUE);
325 else
326 /*SRW.MESSAGE('999','Cannot use flex API without a chart of accounts ID.');*/null;
327
328 return(FALSE);
329 end if;
330
331 RETURN NULL; EXCEPTION
332 WHEN OTHERS THEN
333 RETURN(FALSE);
334 END;
335
336 FUNCTION get_flexdata4 RETURN BOOLEAN IS
337
338 BEGIN
339
340 if C_CHART_OF_ACCOUNTS_ID is not null then
341
342 null;
343 return (TRUE);
344 else
345 /*SRW.MESSAGE('999','Cannot use flex API without a chart of accounts ID.');*/null;
346
347 return(FALSE);
348 end if;
349
350 RETURN NULL; EXCEPTION
351 WHEN OTHERS THEN
352 RETURN(FALSE);
353 END;
354
355 function c_po_price_roundformula(C_PO_PRICE in number, C_CURRENCY_CODE in varchar2) return number is
356 begin
357 /*SRW.REFERENCE(C_PO_PRICE);*/null;
358
359 return(ap_utilities_pkg.ap_round_currency(C_PO_PRICE,C_CURRENCY_CODE));
360 end;
361
362 function c_po_price1_roundformula(C_PO_PRICE1 in number, C_PO_CURRENCY_CODE in varchar2) return number is
363 begin
364 /*SRW.REFERENCE(C_PO_PRICE1);*/null;
365
366 return(ap_utilities_pkg.ap_round_currency(C_PO_PRICE1,C_PO_CURRENCY_CODE));
367 end;
368
369 function cf_exchange_rate_type_desc_inv(c_exchange_rate_type in varchar2) return char is
370
371 l_exchange_rate_type_desc varchar2(30);
372
373 begin
374
375 if c_exchange_rate_type is not null then
376 select substr(user_conversion_type,1,16) user_conversion_type
377 into l_exchange_rate_type_desc
378 from gl_daily_conversion_types
379 where conversion_type = c_exchange_rate_type;
380 end if;
381
382 return (l_exchange_rate_type_desc);
383 end;
384
385 function cf_rate_type_desc_poformula(c_rate_type in varchar2) return char is
386
387 l_rate_type_desc_po varchar2(30);
388
389 begin
390
391 if c_rate_type is not null then
392 select substr(user_conversion_type,1,16) user_conversion_type
393 into l_rate_type_desc_po
394 from gl_daily_conversion_types
395 where conversion_type = c_rate_type;
396 end if;
397
398 return (l_rate_type_desc_po);
399 end;
400
401 function cf_exchange_rate_type_desc_rec(c_exchange_rate_type1 in varchar2) return char is
402
403 l_exchange_rate_type_desc_rec varchar2(30);
404
405 begin
406
407 if c_exchange_rate_type1 is not null then
408 select substr(user_conversion_type,1,30) user_conversion_type
409 into l_exchange_rate_type_desc_rec
410 from gl_daily_conversion_types
411 where conversion_type = c_exchange_rate_type1;
412 end if;
413
414 return (l_exchange_rate_type_desc_rec);
415 end;
416
417 --Functions to refer Oracle report placeholders--
418
419 Function C_NLS_YES_p return varchar2 is
420 Begin
421 return C_NLS_YES;
422 END;
423 Function C_NLS_NO_p return varchar2 is
424 Begin
425 return C_NLS_NO;
426 END;
427 Function C_NLS_ALL_p return varchar2 is
428 Begin
429 return C_NLS_ALL;
430 END;
431 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
432 Begin
433 return C_NLS_NO_DATA_EXISTS;
434 END;
435 Function C_NLS_VOID_p return varchar2 is
436 Begin
437 return C_NLS_VOID;
438 END;
439 Function C_NLS_NA_p return varchar2 is
440 Begin
441 return C_NLS_NA;
442 END;
443 Function C_NLS_END_OF_REPORT_p return varchar2 is
444 Begin
445 return C_NLS_END_OF_REPORT;
446 END;
447 Function C_REPORT_START_DATE_p return date is
448 Begin
449 return C_REPORT_START_DATE;
450 END;
451 Function C_COMPANY_NAME_HEADER_p return varchar2 is
452 Begin
453 return C_COMPANY_NAME_HEADER;
454 END;
455 Function C_BASE_CURRENCY_CODE_p return varchar2 is
456 Begin
457 return C_BASE_CURRENCY_CODE;
458 END;
459 Function C_BASE_PRECISION_p return number is
460 Begin
461 return C_BASE_PRECISION;
462 END;
463 Function C_BASE_MIN_ACCT_UNIT_p return number is
464 Begin
465 return C_BASE_MIN_ACCT_UNIT;
466 END;
467 Function C_BASE_DESCRIPTION_p return varchar2 is
468 Begin
469 return C_BASE_DESCRIPTION;
470 END;
471 Function C_CHART_OF_ACCOUNTS_ID_p return number is
472 Begin
473 return C_CHART_OF_ACCOUNTS_ID;
474 END;
475 --Function Applications Template Report_p return varchar2 is
476 Function Applications_Template_Report_p return varchar2 is
477 Begin
478 --return Applications Template Report;
479 return Applications_Template_Report;
480 END;
481 END AP_APXMTDTR_XMLP_PKG ;
482