[Home] [Help]
PACKAGE BODY: APPS.AP_APXINVPH_XMLP_PKG
Source
1 PACKAGE BODY AP_APXINVPH_XMLP_PKG AS
2 /* $Header: APXINVPHB.pls 120.0 2007/12/27 08:06:35 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_void ap_lookup_codes.displayed_field%TYPE;
68 nls_na ap_lookup_codes.displayed_field%TYPE;
69 nls_all ap_lookup_codes.displayed_field%TYPE;
70 nls_type po_lookup_codes.displayed_field%TYPE;
71 nls_yes fnd_lookups.meaning%TYPE;
72 nls_no fnd_lookups.meaning%TYPE;
73 BEGIN
74
75 SELECT ly.meaning,
76 ln.meaning,
77 l1.displayed_field,
78 l2.displayed_field,
79 l3.displayed_field
80 INTO nls_yes,
81 nls_no,
82 nls_all,
83 nls_void,
84 nls_na
85 FROM fnd_lookups ly,
86 fnd_lookups ln,
87 ap_lookup_codes l1,
88 ap_lookup_codes l2,
89 ap_lookup_codes l3
90 WHERE ly.lookup_type = 'YES_NO'
91 AND ly.lookup_code = 'Y'
92 AND ln.lookup_type = 'YES_NO'
93 AND ln.lookup_code = 'N'
94 AND l1.lookup_type = 'NLS REPORT PARAMETER'
95 AND l1.lookup_code = 'ALL'
96 AND l2.lookup_type = 'NLS TRANSLATION'
97 AND l2.lookup_code = 'VOID'
98 AND l3.lookup_type = 'NLS REPORT PARAMETER'
99 AND l3.lookup_code = 'NA';
100
101 C_NLS_YES := nls_yes;
102 C_NLS_NO := nls_no;
103 C_NLS_ALL := nls_all;
104 C_NLS_VOID := nls_void;
105 C_NLS_NA := nls_na;
106
107
108 if P_VENDOR_TYPE_LOOKUP_CODE is null then
109 C_NLS_VENDOR_TYPE := C_NLS_ALL;
110 else
111 select displayed_field
112 into nls_type
113 from po_lookup_codes
114 where lookup_type = 'VENDOR TYPE'
115 and lookup_code = P_VENDOR_TYPE_LOOKUP_CODE;
116
117 C_NLS_VENDOR_TYPE := nls_type;
118 end if;
119
120 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
121
122 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_no_data_exists"');*/null;
123
124 /*c_nls_no_data_exists := '*** '||c_nls_no_data_exists||' ***';*/
125 c_nls_no_data_exists := 'No Data Found';
126
127 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
128
129 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_end_of_report"');*/null;
130
131 /*c_nls_end_of_report := '*** '||c_nls_end_of_report||' ***';*/
132 c_nls_end_of_report := 'End of Report';
133
134 RETURN (TRUE);
135
136 RETURN NULL; EXCEPTION
137 WHEN OTHERS THEN
138 RETURN (FALSE);
139 END;
140
141 function BeforeReport return boolean is
142 begin
143
144 LP_START_DATE := to_char(P_START_DATE, 'DD-MON-YY');
145 LP_END_DATE := to_char(P_END_DATE, 'DD-MON-YY');
146
147 DECLARE
148
149 init_failure EXCEPTION;
150
151 BEGIN
152
153
154
155
156 /*SRW.USER_EXIT('FND SRWINIT');*/null;
157
158 IF (p_debug_switch = 'Y') THEN
159 /*SRW.MESSAGE('1','After SRWINIT');*/null;
160
161 END IF;
162
163
164 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
165 END IF;
166 IF (p_debug_switch = 'Y') THEN
167 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
168
169 END IF;
170
171
172 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
173 END IF;
174 IF (p_debug_switch = 'Y') THEN
175 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
176
177 END IF;
178
179
180 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
181 END IF;
182 IF (p_debug_switch = 'Y') THEN
183 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
184
185 END IF;
186
187
188 if P_VENDOR_ID is not null then
189 P_VENDOR_ID_SQL := 'AND v.vendor_id = '||to_char(P_VENDOR_ID);
190 end if;
191
192
193
194
195
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 BEGIN
223
224 /* commented by raj
225 SELECT sort_by_alternate_field
226 INTO SORT_BY_ALTERNATE
227 FROM AP_SYSTEM_PARAMETERS;*/
228
229 SELECT sort_by_alternate_field
230 INTO SORT_BY_ALTERNATE_m
231 FROM AP_SYSTEM_PARAMETERS;
232
233
234 EXCEPTION
235 WHEN OTHERS THEN
236 -- commented by raj SORT_BY_ALTERNATE := 'N';
237 SORT_BY_ALTERNATE_m := 'N';
238 END;
239
240
241
242 IF (p_debug_switch = 'Y') THEN
243 /*SRW.BREAK;*/null;
244
245 END IF;
246
247
248
249 RETURN (TRUE);
250
251
252
253 EXCEPTION
254
255 WHEN OTHERS THEN
256
257 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
258
259
260 END;
261 return (TRUE);
262 end;
263
264 function AfterReport return boolean is
265 begin
266
267 BEGIN
268 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
269
270 IF (P_DEBUG_SWITCH = 'Y') THEN
271 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
272
273 END IF;
274 EXCEPTION
275 WHEN OTHERS THEN
276 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
277
278 END; return (TRUE);
279 end;
280
281 FUNCTION get_company_name RETURN BOOLEAN IS
282 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
283 l_name gl_sets_of_books.name%TYPE;
284 l_sob_id number;
285 BEGIN
286
287 if P_SET_OF_BOOKS_ID is not null then
288 l_sob_id := p_set_of_books_id;
289 SELECT name,
290 chart_of_accounts_id
291 INTO l_name,
292 l_chart_of_accounts_id
293 FROM gl_sets_of_books
294 WHERE set_of_books_id = l_sob_id;
295
296 c_company_name_header := l_name;
297 c_chart_of_accounts_id := l_chart_of_accounts_id;
298
299 end if;
300
301 RETURN (TRUE);
302
303 RETURN NULL; EXCEPTION
304
305 WHEN OTHERS THEN
306 RETURN (FALSE);
307
308 END;
309
310 FUNCTION get_flexdata RETURN BOOLEAN IS
311
312 BEGIN
313
314 if C_CHART_OF_ACCOUNTS_ID is not null then
315
316 null;
317 return (TRUE);
318 else
319 /*SRW.MESSAGE('999','Cannot use flex API without a chart of accounts ID.');*/null;
320
321 return(FALSE);
322 end if;
323
324 RETURN NULL; EXCEPTION
325 WHEN OTHERS THEN
326 RETURN(FALSE);
327 END;
328
329 FUNCTION calculate_run_time RETURN BOOLEAN IS
330 end_date DATE;
331 start_date DATE;
332 BEGIN
333 end_date := sysdate;
334 start_date := C_REPORT_START_DATE;
335 C_REPORT_RUN_TIME := to_char(to_date('01/01/0001','DD/MM/YYYY') +
336 ((end_date - start_date)),'HH24:MI:SS');
337
338 return(TRUE);
339
340
341 RETURN NULL; EXCEPTION
342 WHEN OTHERS THEN
343 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
344
345 END;
346
347 function C_DYNAMIC_DESCFormula return VARCHAR2 is
348 begin
349
350
351 if upper(substr(P_ORDER_BY,1,4)) = 'DESC' then
352 return('DESC');
353 end if;
354 --commented by raj RETURN NULL; end;
355 RETURN ' ' ; end;
356
357 --Functions to refer Oracle report placeholders--
358
359 Function C_BASE_CURRENCY_CODE_p return varchar2 is
360 Begin
361 return C_BASE_CURRENCY_CODE;
362 END;
363 Function C_BASE_PRECISION_p return number is
364 Begin
365 return C_BASE_PRECISION;
366 END;
367 Function C_BASE_MIN_ACCT_UNIT_p return number is
368 Begin
369 return C_BASE_MIN_ACCT_UNIT;
370 END;
371 Function C_BASE_DESCRIPTION_p return varchar2 is
372 Begin
373 return C_BASE_DESCRIPTION;
374 END;
375 Function C_COMPANY_NAME_HEADER_p return varchar2 is
376 Begin
377 return C_COMPANY_NAME_HEADER;
378 END;
379 Function C_REPORT_START_DATE_p return date is
380 Begin
381 return C_REPORT_START_DATE;
382 END;
383 Function C_NLS_YES_p return varchar2 is
384 Begin
385 return C_NLS_YES;
386 END;
387 Function C_NLS_NO_p return varchar2 is
388 Begin
389 return C_NLS_NO;
390 END;
391 Function C_NLS_ALL_p return varchar2 is
392 Begin
393 return C_NLS_ALL;
394 END;
395 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
396 Begin
397 return C_NLS_NO_DATA_EXISTS;
398 END;
399 Function C_REPORT_RUN_TIME_p return varchar2 is
400 Begin
401 return C_REPORT_RUN_TIME;
402 END;
403 Function C_CHART_OF_ACCOUNTS_ID_p return number is
404 Begin
405 return C_CHART_OF_ACCOUNTS_ID;
406 END;
407 Function C_NLS_VOID_p return varchar2 is
408 Begin
409 return C_NLS_VOID;
410 END;
411 Function C_NLS_NA_p return varchar2 is
412 Begin
413 return C_NLS_NA;
414 END;
415 Function C_NLS_VENDOR_TYPE_p return varchar2 is
416 Begin
417 return C_NLS_VENDOR_TYPE;
418 END;
419 Function C_NLS_END_OF_REPORT_p return varchar2 is
420 Begin
421 return C_NLS_END_OF_REPORT;
422 END;
423 END AP_APXINVPH_XMLP_PKG ;
424
425