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