[Home] [Help]
PACKAGE BODY: APPS.AP_APXPCVAL_XMLP_PKG
Source
1 PACKAGE BODY AP_APXPCVAL_XMLP_PKG AS
2 /* $Header: APXPCVALB.pls 120.0 2007/12/27 08:22:14 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 l_currency_code AP_INVOICE_SELECTION_CRITERIA.CURRENCY_CODE%TYPE;
42 l_card_program_id AP_CARD_PROGRAMS.CARD_PROGRAM_ID%TYPE;
43 l_card_program_name AP_CARD_PROGRAMS.CARD_PROGRAM_NAME%TYPE;
44 l_flex_text varchar2(2000);
45 BEGIN
46 l_card_program_id:=P_CARD_PROGRAM_ID;
47
48 /*srw.message('001','Finding request id');*/null;
49
50 p_conc_request_id := fnd_global.conc_request_id;
51
52
53
54 /*SRW.MESSAGE('100','Retrieving Card Program Name');*/null;
55
56
57 SELECT card_program_currency_code,
58 card_program_name
59 INTO l_currency_code,
60 l_card_program_name
61 FROM ap_card_programs
62 WHERE card_program_id = l_card_program_id;
63
64 C_CARD_PROGRAM_CURRENCY_CODE := l_currency_code;
65 C_CARD_PROGRAM_NAME := l_card_program_name;
66
67 /*SRW.MESSAGE('200','Calling Validation API');*/null;
68
69 AP_CARD_VALIDATE_PKG.VALIDATE(P_CARD_PROGRAM_ID, P_START_DATE, P_END_DATE);
70
71 /*SRW.MESSAGE('300','Calling Create Disitribution API');*/null;
72
73
74 AP_CARD_VALIDATE_PKG.CREATE_DISTRIBUTIONS(P_CARD_PROGRAM_ID,
75 P_START_DATE, P_END_DATE, L_FLEX_TEXT, P_CONC_REQUEST_ID);
76
77 if (l_flex_text is not null) then
78 /*SRW.MESSAGE('400','Flex API return message = '|| l_flex_text);*/null;
79
80 end if;
81
82 RETURN (TRUE);
83
84 RETURN NULL; EXCEPTION
85 WHEN NO_DATA_FOUND THEN
86 /*SRW.MESSAGE('999','Cannot determine Card Program');*/null;
87
88 RETURN (FALSE);
89 WHEN OTHERS THEN
90 RETURN (FALSE);
91
92 END;
93
94 FUNCTION get_cover_page_values RETURN BOOLEAN IS
95
96 BEGIN
97
98 RETURN(TRUE);
99
100 RETURN NULL; EXCEPTION
101 WHEN OTHERS THEN
102 RETURN(FALSE);
103
104 END;
105
106 FUNCTION get_nls_strings RETURN BOOLEAN IS
107 nls_all ap_lookup_codes.displayed_field%TYPE; nls_yes fnd_lookups.meaning%TYPE; nls_no fnd_lookups.meaning%TYPE;
108 BEGIN
109
110 nls_all := '';
111 nls_yes := '';
112 nls_no := '';
113
114 SELECT ly.meaning,
115 ln.meaning,
116 la.displayed_field
117 INTO nls_yes, nls_no, nls_all
118 FROM fnd_lookups ly, fnd_lookups ln, ap_lookup_codes la
119 WHERE ly.lookup_type = 'YES_NO'
120 AND ly.lookup_code = 'Y'
121 AND ln.lookup_type = 'YES_NO'
122 AND ln.lookup_code = 'N'
123 AND la.lookup_type = 'NLS REPORT PARAMETER'
124 AND la.lookup_code = 'ALL';
125
126 c_nls_yes := nls_yes;
127 c_nls_no := nls_no;
128 c_nls_all := nls_all;
129
130 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
131
132 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_no_data_exists"');*/null;
133
134 c_nls_no_data_exists := 'No Data Found';
135
136 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
137
138 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_end_of_report"');*/null;
139
140 c_nls_end_of_report := 'End of Report';
141
142 RETURN (TRUE);
143
144 RETURN NULL; EXCEPTION
145 WHEN OTHERS THEN
146 RETURN (FALSE);
147 END;
148
149 function BeforeReport return boolean is
150 begin
151
152
153
154 DECLARE
155
156 init_failure EXCEPTION;
157
158 BEGIN
159
160
161
162
163 /*SRW.USER_EXIT('FND SRWINIT');*/null;
164
165 IF (p_debug_switch = 'Y') THEN
166 /*SRW.MESSAGE('1','After SRWINIT');*/null;
167
168 END IF;
169
170
171 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
172 END IF;
173 IF (p_debug_switch = 'Y') THEN
174 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
175
176 END IF;
177
178
179 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
180 END IF;
181 IF (p_debug_switch = 'Y') THEN
182 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
183
184 END IF;
185
186
187 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
188 END IF;
189 IF (p_debug_switch = 'Y') THEN
190 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
191
192 END IF;
193
194
195
196
197
198
199
200
201
202
203
204
205
206 IF (get_flexdata() <> TRUE) THEN
207 RAISE init_failure;
208 END IF;
209 IF (p_debug_switch = 'Y') THEN
210 /*SRW.MESSAGE ('6', 'After Get_Flexdata');*/null;
211
212 END IF;
213
214
215
216
217 IF(custom_init() <> TRUE) THEN
218 RAISE init_failure;
219 END IF;
220 IF (p_debug_switch = 'Y') THEN
221 /*SRW.MESSAGE('7','After Custom_Init');*/null;
222
223 END IF;
224
225
226
227
228 IF (p_debug_switch = 'Y') THEN
229 /*SRW.BREAK;*/null;
230
231 END IF;
232
233
234
235 RETURN (TRUE);
236
237
238
239 EXCEPTION
240
241 WHEN OTHERS THEN
242
243 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
244
245
246 END; return (TRUE);
247 end;
248
249 function AfterReport return boolean is
250 begin
251
252 BEGIN
253 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
254
255 IF (P_DEBUG_SWITCH = 'Y') THEN
256 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
257
258 END IF;
259 EXCEPTION
260 WHEN OTHERS THEN
261 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
262
263 END; return (TRUE);
264 end;
265
266 FUNCTION get_company_name RETURN BOOLEAN IS
267 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
268 l_name gl_sets_of_books.name%TYPE;
269 l_report_start_date DATE;
270 BEGIN
271 l_report_start_date := sysdate;
272 SELECT name,
273 chart_of_accounts_id
274 INTO l_name,
275 l_chart_of_accounts_id
276 FROM gl_sets_of_books g,
277 ap_system_parameters a
278 WHERE g.set_of_books_id = a.set_of_books_id;
279
280
281 c_company_name_header := l_name;
282 c_chart_of_accounts_id := l_chart_of_accounts_id;
283 c_report_start_date := l_report_start_date;
284
285 RETURN (TRUE);
286
287 RETURN NULL; EXCEPTION
288
289 WHEN OTHERS THEN
290 RETURN (FALSE);
291
292 END;
293
294 FUNCTION get_flexdata RETURN BOOLEAN IS
295
296 BEGIN
297
298
299 null;
300 RETURN (TRUE);
301
302 RETURN NULL; EXCEPTION
303 WHEN OTHERS THEN
304 RETURN(FALSE);
305 END;
306
307 FUNCTION calculate_run_time RETURN BOOLEAN IS
308 end_date DATE;
309 start_date DATE;
310 BEGIN
311 end_date := sysdate;
312 start_date := C_REPORT_START_DATE;
313 C_REPORT_RUN_TIME := to_char(to_date('01/01/0001','DD/MM/YYYY') + ((end_date - start_date)),'HH24:MI:SS');
314 RETURN(TRUE);
315 RETURN NULL; EXCEPTION
316 WHEN OTHERS THEN
317 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
318
319 END;
320
321 function C_NLS_END_OF_REPORTFormula return VARCHAR2 is
322 begin
323 null;
324 RETURN NULL; end;
325
326 function BeforePForm return boolean is
327 begin
328
329 return (TRUE);
330 end;
331
332 function BetweenPage return boolean is
333 begin
334
335 return (TRUE);
336 end;
337
338 function AfterPForm return boolean is
339 begin
340
341 return (TRUE);
342 end;
343
344 --Functions to refer Oracle report placeholders--
345
346 Function C_BASE_CURRENCY_CODE_p return varchar2 is
347 Begin
348 return C_BASE_CURRENCY_CODE;
349 END;
350 Function C_BASE_PRECISION_p return number is
351 Begin
352 return C_BASE_PRECISION;
353 END;
354 Function C_BASE_MIN_ACCT_UNIT_p return number is
355 Begin
356 return C_BASE_MIN_ACCT_UNIT;
357 END;
358 Function C_BASE_DESCRIPTION_p return varchar2 is
359 Begin
360 return C_BASE_DESCRIPTION;
361 END;
362 Function C_COMPANY_NAME_HEADER_p return varchar2 is
363 Begin
364 return C_COMPANY_NAME_HEADER;
365 END;
366 Function C_REPORT_START_DATE_p return date is
367 Begin
368 return C_REPORT_START_DATE;
369 END;
370 Function C_NLS_YES_p return varchar2 is
371 Begin
372 return C_NLS_YES;
373 END;
374 Function C_NLS_NO_p return varchar2 is
375 Begin
376 return C_NLS_NO;
377 END;
378 Function C_NLS_ALL_p return varchar2 is
379 Begin
380 return C_NLS_ALL;
381 END;
382 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
383 Begin
384 return C_NLS_NO_DATA_EXISTS;
385 END;
386 Function C_REPORT_RUN_TIME_p return varchar2 is
387 Begin
388 return C_REPORT_RUN_TIME;
389 END;
390 Function C_CHART_OF_ACCOUNTS_ID_p return number is
391 Begin
392 return C_CHART_OF_ACCOUNTS_ID;
393 END;
394 Function C_ALWAYS_NULL_p return varchar2 is
395 Begin
396 return C_ALWAYS_NULL;
397 END;
398 Function C_NLS_END_OF_REPORT_p return varchar2 is
399 Begin
400 return C_NLS_END_OF_REPORT;
401 END;
402 Function C_CARD_PROGRAM_NAME_p return varchar2 is
403 Begin
404 return C_CARD_PROGRAM_NAME;
405 END;
406 Function C_CARD_PROGRAM_CURRENCY_CODE_p return varchar2 is
407 Begin
408 return C_CARD_PROGRAM_CURRENCY_CODE;
409 END;
410 END AP_APXPCVAL_XMLP_PKG ;
411