[Home] [Help]
PACKAGE BODY: APPS.AP_APXT7INE_XMLP_PKG
Source
1 PACKAGE BODY AP_APXT7INE_XMLP_PKG AS
2 /* $Header: APXT7INEB.pls 120.0 2007/12/27 08:36:59 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; 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 := '*** '||C_NLS_NO_DATA_EXISTS||' ***';
114 C_NLS_END_OF_REPORT := '*** '||C_NLS_END_OF_REPORT||' ***';*/
115
116 C_NLS_NO_DATA_EXISTS := 'No Data Found';
117 C_NLS_END_OF_REPORT := 'End of Report';
118
119 RETURN (TRUE);
120
121 RETURN NULL; EXCEPTION
122 WHEN OTHERS THEN
123 RETURN (FALSE);
124 END;
125
126 function BeforeReport return boolean is
127 begin
128
129 LP_START_DATE := to_char(P_START_DATE, 'DD-MON-YYYY');
130 LP_END_DATE := to_char(P_END_DATE, 'DD-MON-YYYY');
131
132 DECLARE
133
134 init_failure EXCEPTION;
135 l_combined_flag varchar2(1);
136 BEGIN
137
138
139 C_REPORT_START_DATE := sysdate;
140
141 /*SRW.USER_EXIT('FND SRWINIT');*/null;
142
143 IF (p_debug_switch in ('y','Y')) THEN
144 /*SRW.MESSAGE('1','After SRWINIT');*/null;
145
146 END IF;
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 SELECT nvl(combined_filing_flag,'N')
173 INTO l_combined_flag
174 FROM ap_system_parameters;
175
176 C_COMBINED_FILING := l_combined_flag;
177
178 IF (p_debug_switch in ('y','Y')) THEN
179 /*SRW.BREAK;*/null;
180
181 END IF;
182
183 IF (get_balancing_segment_column() <> TRUE) then
184 raise init_failure;
185 END IF;
186
187 IF (get_entity_name() <> TRUE) then
188 raise init_failure;
189 END IF;
190
191 RETURN (TRUE);
192
193 EXCEPTION
194
195 WHEN OTHERS THEN
196 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
197
198 END;
199 return (TRUE);
200 end;
201
202 function AfterReport return boolean is
203 begin
204
205 BEGIN
206 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
207
208 IF (P_DEBUG_SWITCH = 'Y') THEN
209 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
210
211 END IF;
212 EXCEPTION
213 WHEN OTHERS THEN
214 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
215
216 END; return (TRUE);
217 end;
218
219 FUNCTION get_company_name RETURN BOOLEAN IS
220 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
221 l_name gl_sets_of_books.name%TYPE;
222 l_sob_id number;
223 BEGIN
224
225 if P_SET_OF_BOOKS_ID is not null then
226 l_sob_id := p_set_of_books_id;
227 SELECT name,
228 chart_of_accounts_id
229 INTO l_name,
230 l_chart_of_accounts_id
231 FROM gl_sets_of_books
232 WHERE set_of_books_id = l_sob_id;
233
234 c_company_name_header := l_name;
235 c_chart_of_accounts_id := l_chart_of_accounts_id;
236
237 end if;
238
239 RETURN (TRUE);
240
241 RETURN NULL; EXCEPTION
242
243 WHEN OTHERS THEN
244 RETURN (FALSE);
245
246 END;
247
248 FUNCTION get_flexdata RETURN BOOLEAN IS
249
250 BEGIN
251
252 if C_CHART_OF_ACCOUNTS_ID is not null then
253
254 null;
255 return (TRUE);
256 else
257 /*SRW.MESSAGE('999','Cannot use flex API without a chart of accounts ID.');*/null;
258
259 return(FALSE);
260 end if;
261
262 RETURN NULL; EXCEPTION
263 WHEN OTHERS THEN
264 RETURN(FALSE);
265 END;
266
267 Function Get_Balancing_segment_column Return BOOLEAN IS
268
269 Begin
270
271 SELECT fnd.application_column_name
272 INTO p_balancing_segment_column
273 FROM fnd_segment_attribute_values fnd,
274 gl_sets_of_books gl
275 WHERE fnd.attribute_value='Y'
276 AND fnd.segment_attribute_type = 'GL_BALANCING'
277 AND fnd.id_flex_num = gl.chart_of_accounts_id
278 AND fnd.id_flex_code = 'GL#'
279 AND gl.set_of_books_id = p_set_of_books_id;
280
281 return(TRUE);
282
283 RETURN NULL; EXCEPTION
284 WHEN OTHERS THEN
285 RETURN(FALSE);
286
287 END;
288
289 Function Get_Entity_name Return BOOLEAN IS
290
291 Begin
292
293 SELECT entity_name
294 INTO p_entity_name
295 FROM ap_reporting_entities
296 WHERE tax_entity_id = p_rep_entity_id;
297
298 return(TRUE);
299
300 RETURN NULL; EXCEPTION
301 WHEN OTHERS THEN
302 RETURN(FALSE);
303
304 END;
305
306 function c_count_invoice_exceptionformu(c_count_no_type in number, c_count_non_1099 in number, c_count_null_region in number) return number is
307 begin
308
309 return (c_count_no_type + c_count_non_1099 + c_count_null_region);
310 end;
311
312 --Functions to refer Oracle report placeholders--
313
314 Function C_NLS_YES_p return varchar2 is
315 Begin
316 return C_NLS_YES;
317 END;
318 Function C_NLS_NO_p return varchar2 is
319 Begin
320 return C_NLS_NO;
321 END;
322 Function C_NLS_ALL_p return varchar2 is
323 Begin
324 return C_NLS_ALL;
325 END;
326 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
327 Begin
328 return C_NLS_NO_DATA_EXISTS;
329 END;
330 Function C_NLS_VOID_p return varchar2 is
331 Begin
332 return C_NLS_VOID;
333 END;
334 Function C_NLS_NA_p return varchar2 is
335 Begin
336 return C_NLS_NA;
337 END;
338 Function C_NLS_END_OF_REPORT_p return varchar2 is
339 Begin
340 return C_NLS_END_OF_REPORT;
341 END;
342 Function C_REPORT_START_DATE_p return date is
343 Begin
344 return C_REPORT_START_DATE;
345 END;
346 Function C_COMPANY_NAME_HEADER_p return varchar2 is
347 Begin
348 return C_COMPANY_NAME_HEADER;
349 END;
350 Function C_BASE_CURRENCY_CODE_p return varchar2 is
351 Begin
352 return C_BASE_CURRENCY_CODE;
353 END;
354 Function C_BASE_PRECISION_p return number is
355 Begin
356 return C_BASE_PRECISION;
357 END;
358 Function C_BASE_MIN_ACCT_UNIT_p return number is
359 Begin
360 return C_BASE_MIN_ACCT_UNIT;
361 END;
362 Function C_BASE_DESCRIPTION_p return varchar2 is
363 Begin
364 return C_BASE_DESCRIPTION;
365 END;
366 Function C_CHART_OF_ACCOUNTS_ID_p return number is
367 Begin
368 return C_CHART_OF_ACCOUNTS_ID;
369 END;
370 /*Function Applications Template Report_p return varchar2 is
371 Begin
372 return Applications Template Report;
373 END;*/
374
375 Function Applications_Template_Report_p return varchar2 is
376 Begin
377 return Applications_Template_Report;
378 END;
379 Function C_COMBINED_FILING_p return varchar2 is
380 Begin
381 return C_COMBINED_FILING;
382 END;
383 END AP_APXT7INE_XMLP_PKG ;
384