[Home] [Help]
PACKAGE BODY: APPS.AP_APXPAYAD_XMLP_PKG
Source
1 PACKAGE BODY AP_APXPAYAD_XMLP_PKG AS
2 /* $Header: APXPAYADB.pls 120.0 2007/12/27 08:18:48 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 l_doc_sequence_id NUMBER;
43
44 BEGIN
45
46 select distinct ds.doc_sequence_id
47 into l_doc_sequence_id
48 from fnd_document_sequences ds,
49 fnd_doc_sequence_assignments dsa
50 where ds.name = P_sequence_name
51 and ds.doc_sequence_id = dsa.doc_sequence_id
52 and dsa.application_id = 200;
53
54 C_doc_sequence_id := l_doc_sequence_id;
55
56 RETURN (TRUE);
57
58 RETURN NULL; EXCEPTION
59
60 WHEN OTHERS THEN
61 RETURN (FALSE);
62
63 END;
64
65 FUNCTION get_cover_page_values RETURN BOOLEAN IS
66
67 BEGIN
68
69 RETURN(TRUE);
70
71 RETURN NULL; EXCEPTION
72 WHEN OTHERS THEN
73 RETURN(FALSE);
74
75 END;
76
77 FUNCTION get_nls_strings RETURN BOOLEAN IS
78 nls_all ap_lookup_codes.displayed_field%TYPE; nls_yes fnd_lookups.meaning%TYPE; nls_no fnd_lookups.meaning%TYPE;
79 BEGIN
80
81 nls_all := '';
82 nls_yes := '';
83 nls_no := '';
84
85 SELECT ly.meaning,
86 ln.meaning,
87 la.displayed_field
88 INTO nls_yes, nls_no, nls_all
89 FROM fnd_lookups ly, fnd_lookups ln, ap_lookup_codes la
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 la.lookup_type = 'NLS REPORT PARAMETER'
95 AND la.lookup_code = 'ALL';
96
97 c_nls_yes := nls_yes;
98 c_nls_no := nls_no;
99 c_nls_all := nls_all;
100
101 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
102
103 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_no_data_exists"');*/null;
104
105 c_nls_no_data_exists := '*** '||c_nls_no_data_exists||' ***';
106
107 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
108
109 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_end_of_report"');*/null;
110
111 c_nls_end_of_report := '*** '||c_nls_end_of_report||' ***';
112
113 RETURN (TRUE);
114
115 RETURN NULL; EXCEPTION
116 WHEN OTHERS THEN
117 RETURN (FALSE);
118 END;
119
120 function BeforeReport return boolean is
121 begin
122
123
124
125 DECLARE
126
127 init_failure EXCEPTION;
128
129 BEGIN
130
131
132
133
134 /*SRW.USER_EXIT('FND SRWINIT');*/null;
135
136 IF (p_debug_switch = 'Y') THEN
137 /*SRW.MESSAGE('1','After SRWINIT');*/null;
138
139 END IF;
140
141
142 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
143 END IF;
144 IF (p_debug_switch = 'Y') THEN
145 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
146
147 END IF;
148
149
150 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
151 END IF;
152 IF (p_debug_switch = 'Y') THEN
153 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
154
155 END IF;
156
157
158 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
159 END IF;
160 IF (p_debug_switch = 'Y') THEN
161 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
162
163 END IF;
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187 IF(custom_init() <> TRUE) THEN
188 RAISE init_failure;
189 END IF;
190 IF (p_debug_switch = 'Y') THEN
191 /*SRW.MESSAGE('7','After Custom_Init');*/null;
192
193 END IF;
194
195
196
197
198 IF (p_debug_switch = 'Y') THEN
199 /*SRW.BREAK;*/null;
200
201 END IF;
202
203
204
205 RETURN (TRUE);
206
207
208
209 EXCEPTION
210
211 WHEN OTHERS THEN
212
213 /*RAISE_application_error(-20101,null);SRW.PROGRAM_ABORT;*/
214 null;
215
216
217 END; return (TRUE);
218 end;
219
220 function AfterReport return boolean is
221 begin
222
223 BEGIN
224 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
225
226 IF (P_DEBUG_SWITCH = 'Y') THEN
227 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
228
229 END IF;
230 EXCEPTION
231 WHEN OTHERS THEN
232 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
233
234 END; return (TRUE);
235 end;
236
237 FUNCTION get_company_name RETURN BOOLEAN IS
238 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
239 l_name gl_sets_of_books.name%TYPE;
240 l_sob_id NUMBER;
241 l_report_start_date DATE;
242 BEGIN
243 l_report_start_date := sysdate; l_sob_id := p_set_of_books_id;
244 SELECT name,
245 chart_of_accounts_id
246 INTO l_name,
247 l_chart_of_accounts_id
248 FROM gl_sets_of_books
249 WHERE set_of_books_id = l_sob_id;
250
251 c_company_name_header := l_name;
252 c_chart_of_accounts_id := l_chart_of_accounts_id;
253 c_report_start_date := l_report_start_date;
254
255 RETURN (TRUE);
256
257 RETURN NULL; EXCEPTION
258
259 WHEN OTHERS THEN
260 RETURN (FALSE);
261
262 END;
263
264 FUNCTION get_flexdata RETURN BOOLEAN IS
265
266 BEGIN
267
268
269 null;
270 RETURN (TRUE);
271
272 RETURN NULL; EXCEPTION
273 WHEN OTHERS THEN
274 RETURN(FALSE);
275 END;
276
277 function C_enteredFormula return VARCHAR2 is
278 begin
279
280 DECLARE
281 status VARCHAR2(80);
282 BEGIN
283 select meaning
284 into status
285 from fnd_lookups
286 where lookup_type='SEQ_DOCUMENT_STATUS'
287 and lookup_code='E';
288 return(status);
289 END;
290 RETURN NULL; end;
291
292 function C_deletedFormula return VARCHAR2 is
293 begin
294
295 DECLARE
296 status VARCHAR2(80);
297 BEGIN
298 select meaning
299 into status
300 from fnd_lookups
301 where lookup_type = 'SEQ_DOCUMENT_STATUS'
302 and lookup_code = 'D';
303 return(status);
304 END;
305 RETURN NULL; end;
306
307 function c_new_recordsformula(doc_sequence_value in number) return number is
308 begin
309
310 DECLARE
311 temp NUMBER;
312 BEGIN
313 IF (C_last_value = -1) THEN
314 C_last_value := P_sequence_from -1;
315 END IF;
316 IF (doc_sequence_value <> (C_last_value + 1)) THEN
317 temp := doc_sequence_value - C_last_value - 1;
318 ELSE
319 temp := 0;
320 END IF;
321 C_last_value := doc_sequence_value;
322 return(temp);
323 END;
324 RETURN NULL; end;
325
326 function C_not_enteredFormula return VARCHAR2 is
327 begin
328
329 DECLARE
330 status VARCHAR2(80);
331 BEGIN
332 select meaning
333 into status
334 from fnd_lookups
335 where lookup_type = 'SEQ_DOCUMENT_STATUS'
336 and lookup_code = 'N';
337 return(status);
338 END;
339 RETURN NULL; end;
340
341 --Functions to refer Oracle report placeholders--
342
343 Function C_last_value_p return number is
344 Begin
345 return C_last_value;
346 END;
347 Function C_BASE_CURRENCY_CODE_p return varchar2 is
348 Begin
349 return C_BASE_CURRENCY_CODE;
350 END;
351 Function C_BASE_PRECISION_p return number is
352 Begin
353 return C_BASE_PRECISION;
354 END;
355 Function C_BASE_MIN_ACCT_UNIT_p return number is
356 Begin
357 return C_BASE_MIN_ACCT_UNIT;
358 END;
359 Function C_BASE_DESCRIPTION_p return varchar2 is
360 Begin
361 return C_BASE_DESCRIPTION;
362 END;
363 Function C_COMPANY_NAME_HEADER_p return varchar2 is
364 Begin
365 return C_COMPANY_NAME_HEADER;
366 END;
367 Function C_REPORT_START_DATE_p return date is
368 Begin
369 return C_REPORT_START_DATE;
370 END;
371 Function C_NLS_YES_p return varchar2 is
372 Begin
373 return C_NLS_YES;
374 END;
375 Function C_NLS_NO_p return varchar2 is
376 Begin
377 return C_NLS_NO;
378 END;
379 Function C_NLS_ALL_p return varchar2 is
380 Begin
381 return C_NLS_ALL;
382 END;
383 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
384 Begin
385 return C_NLS_NO_DATA_EXISTS;
386 END;
387 Function C_REPORT_RUN_TIME_p return varchar2 is
388 Begin
389 return C_REPORT_RUN_TIME;
390 END;
391 Function C_CHART_OF_ACCOUNTS_ID_p return number is
392 Begin
393 return C_CHART_OF_ACCOUNTS_ID;
394 END;
395 Function C_doc_sequence_id_p return number is
396 Begin
397 return C_doc_sequence_id;
398 END;
399 Function C_NLS_END_OF_REPORT_p return varchar2 is
400 Begin
401 return C_NLS_END_OF_REPORT;
402 END;
403 END AP_APXPAYAD_XMLP_PKG ;
404