[Home] [Help]
PACKAGE BODY: APPS.AP_APXPPHIS_XMLP_PKG
Source
1 PACKAGE BODY AP_APXPPHIS_XMLP_PKG AS
2 /* $Header: APXPPHISB.pls 120.0 2007/12/27 08:23:33 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_all ap_lookup_codes.displayed_field%TYPE; nls_type po_lookup_codes.displayed_field%TYPE; nls_yes fnd_lookups.meaning%TYPE; nls_no fnd_lookups.meaning%TYPE;
68 BEGIN
69
70 nls_all := '';
71 nls_yes := '';
72 nls_no := '';
73
74 SELECT ly.meaning,
75 ln.meaning,
76 l1.displayed_field
77 INTO nls_yes, nls_no, nls_all
78 FROM fnd_lookups ly, fnd_lookups ln,
79 ap_lookup_codes l1
80 WHERE ly.lookup_type = 'YES_NO'
81 AND ly.lookup_code = 'Y'
82 AND ln.lookup_type = 'YES_NO'
83 AND ln.lookup_code = 'N'
84 AND l1.lookup_type = 'NLS REPORT PARAMETER'
85 AND l1.lookup_code = 'ALL';
86
87 c_nls_yes := nls_yes;
88 c_nls_no := nls_no;
89 c_nls_all := nls_all;
90
91
92 if P_VENDOR_TYPE is null then
93 C_NLS_VENDOR_TYPE := C_NLS_ALL;
94 else
95 SELECT displayed_field
96 INTO nls_type
97 FROM PO_LOOKUP_CODES
98 WHERE lookup_type = 'VENDOR TYPE'
99 AND lookup_code = P_VENDOR_TYPE;
100
101 C_NLS_VENDOR_TYPE := nls_type;
102 end if;
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 /*c_nls_no_data_exists := '*** '||c_nls_no_data_exists||' ***';*/
109 c_nls_no_data_exists := 'No Data Found';
110
111 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
112
113 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_end_of_report"');*/null;
114
115 /*c_nls_end_of_report := '*** '||c_nls_end_of_report||' ***';*/
116 c_nls_end_of_report := 'End of Report';
117
118 RETURN (TRUE);
119
120 RETURN NULL; EXCEPTION
121 WHEN OTHERS THEN
122 RETURN (FALSE);
123 END;
124
125 function BeforeReport return boolean is
126 begin
127
128 LP_START_PAYMENT_DATE := TO_CHAR(P_START_PAYMENT_DATE, 'DD-MON-YY');
129 LP_END_PAYMENT_DATE := TO_CHAR(P_END_PAYMENT_DATE, 'DD-MON-YY');
130
131 DECLARE
132
133 init_failure EXCEPTION;
134
135 BEGIN
136
137
138
139
140 /*SRW.USER_EXIT('FND SRWINIT');*/null;
141
142 IF (p_debug_switch = 'Y') THEN
143 /*SRW.MESSAGE('1','After SRWINIT');*/null;
144
145 END IF;
146
147
148 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
149 END IF;
150 IF (p_debug_switch = '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 = '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 = 'Y') THEN
167 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
168
169 END IF;
170
171
172
173
174 IF (get_cover_page_values() <> TRUE) THEN
175 RAISE init_failure;
176 END IF;
177 IF (p_debug_switch = 'Y') THEN
178 /*SRW.MESSAGE('5','After Get_Cover_Page_Values');*/null;
179
180 END IF;
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204 IF (p_debug_switch = 'Y') THEN
205 /*SRW.BREAK;*/null;
206
207 END IF;
208
209
210
211 RETURN (TRUE);
212
213
214
215 EXCEPTION
216
217 WHEN OTHERS THEN
218
219 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
220
221
222 END; return (TRUE);
223 end;
224
225 function AfterReport return boolean is
226 begin
227
228 BEGIN
229 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
230
231 IF (P_DEBUG_SWITCH = 'Y') THEN
232 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
233
234 END IF;
235 EXCEPTION
236 WHEN OTHERS THEN
237 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
238
239 END; return (TRUE);
240 end;
241
242 FUNCTION get_company_name RETURN BOOLEAN IS
243 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
244 l_name gl_sets_of_books.name%TYPE;
245 l_sob_id NUMBER;
246 l_report_start_date DATE;
247 BEGIN
248 l_report_start_date := sysdate; l_sob_id := p_set_of_books_id;
249 SELECT name,
250 chart_of_accounts_id
251 INTO l_name,
252 l_chart_of_accounts_id
253 FROM gl_sets_of_books
254 WHERE set_of_books_id = l_sob_id;
255
256 c_company_name_header := l_name;
257 c_chart_of_accounts_id := l_chart_of_accounts_id;
258 c_report_start_date := l_report_start_date;
259
260 RETURN (TRUE);
261
262 RETURN NULL; EXCEPTION
263
264 WHEN OTHERS THEN
265 RETURN (FALSE);
266
267 END;
268
269 FUNCTION get_flexdata RETURN BOOLEAN IS
270
271 BEGIN
272
273
274 null;
275 RETURN (TRUE);
276
277 RETURN NULL; EXCEPTION
278 WHEN OTHERS THEN
279 RETURN(FALSE);
280 END;
281
282 FUNCTION calculate_run_time RETURN BOOLEAN IS
283 end_date DATE;
284 start_date DATE;
285 BEGIN
286 end_date := sysdate;
287 start_date := C_REPORT_START_DATE;
288 C_REPORT_RUN_TIME := to_char(to_date('01/01/0001','DD/MM/YYYY') + ((end_date - start_date)),'HH24:MI:SS');
289 RETURN(TRUE);
290 RETURN NULL; EXCEPTION
291 WHEN OTHERS THEN
292 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
293
294 END;
295
296 function G_invoiceGroupFilter return boolean is
297 begin
298
299 return(P_PRINT_DETAIL_FLAG = 'Y'); return (TRUE);
300 end;
301
302 --Functions to refer Oracle report placeholders--
303
304 Function C_BASE_CURRENCY_CODE_p return varchar2 is
305 Begin
306 return C_BASE_CURRENCY_CODE;
307 END;
308 Function C_BASE_PRECISION_p return number is
309 Begin
310 return C_BASE_PRECISION;
311 END;
312 Function C_BASE_MIN_ACCT_UNIT_p return number is
313 Begin
314 return C_BASE_MIN_ACCT_UNIT;
315 END;
316 Function C_BASE_DESCRIPTION_p return varchar2 is
317 Begin
318 return C_BASE_DESCRIPTION;
319 END;
320 Function C_COMPANY_NAME_HEADER_p return varchar2 is
321 Begin
322 return C_COMPANY_NAME_HEADER;
323 END;
324 Function C_REPORT_START_DATE_p return date is
325 Begin
326 return C_REPORT_START_DATE;
327 END;
328 Function C_NLS_YES_p return varchar2 is
329 Begin
330 return C_NLS_YES;
331 END;
332 Function C_NLS_NO_p return varchar2 is
333 Begin
334 return C_NLS_NO;
335 END;
336 Function C_NLS_ALL_p return varchar2 is
337 Begin
338 return C_NLS_ALL;
339 END;
340 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
341 Begin
342 return C_NLS_NO_DATA_EXISTS;
343 END;
344 Function C_REPORT_RUN_TIME_p return varchar2 is
345 Begin
346 return C_REPORT_RUN_TIME;
347 END;
348 Function C_CHART_OF_ACCOUNTS_ID_p return number is
349 Begin
350 return C_CHART_OF_ACCOUNTS_ID;
351 END;
352 Function C_NLS_VENDOR_TYPE_p return varchar2 is
353 Begin
354 return C_NLS_VENDOR_TYPE;
355 END;
356 Function C_NLS_END_OF_REPORT_p return varchar2 is
357 Begin
358 return C_NLS_END_OF_REPORT;
359 END;
360 END AP_APXPPHIS_XMLP_PKG ;
361