[Home] [Help]
PACKAGE BODY: APPS.AP_APXMTDCR_XMLP_PKG
Source
1 PACKAGE BODY AP_APXMTDCR_XMLP_PKG AS
2 /* $Header: APXMTDCRB.pls 120.1 2007/12/28 06:23:23 vjaganat noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7 DECLARE
8
9 init_failure EXCEPTION;
10
11 BEGIN
12
13 /*SRW.USER_EXIT('FND SRWINIT');*/null;
14 CP_END_DATE := to_char(P_END_DATE,'DD-MON-YY');
15 CP_START_DATE := to_char(P_START_DATE,'DD-MON-YY');
16 C_CURRENCY_FLAG := 'NULL';
17 C_PLACE_FLAG := 'N';
18 C_PAY_CURRENCY_FLAG := 'NULL';
19
20 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
21 END IF;
22 IF (get_nls_strings() <> TRUE) THEN
23 null;
24 END IF;
25
26 IF (p_debug_switch = 'Y') THEN
27 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
28
29 END IF;
30
31 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
32 END IF;
33 IF (p_debug_switch = 'Y') THEN
34 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
35
36 END IF;
37
38 EXCEPTION
39
40 WHEN OTHERS THEN
41 RETURN (FALSE);
42
43 END; return (TRUE);
44 end;
45
46 function AfterReport return boolean is
47 begin
48
49 BEGIN
50 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
51
52 END; return (TRUE);
53 end;
54
55 FUNCTION get_base_curr_data RETURN BOOLEAN IS
56
57 l_base_curr VARCHAR2(15); l_prec NUMBER; l_min_au NUMBER; l_sob_id NUMBER;
58 BEGIN
59
60 SELECT p.base_currency_code,
61 c.precision,
62 c.minimum_accountable_unit
63 INTO l_base_curr,
64 l_prec,
65 l_min_au
66 FROM ap_system_parameters p,
67 fnd_currencies_vl c
68 WHERE p.base_currency_code = c.currency_code;
69
70 c_base_currency_code := l_base_curr;
71 c_base_precision := l_prec;
72 c_base_min_acct_unit := l_min_au;
73
74 RETURN (TRUE);
75
76 RETURN NULL; EXCEPTION
77
78 WHEN OTHERS THEN
79 RETURN (FALSE);
80
81 END;
82
83 FUNCTION get_company_name RETURN BOOLEAN IS
84
85 l_chart_of_accounts_id NUMBER;
86 l_name VARCHAR2(30); l_sob_id NUMBER;
87
88 BEGIN
89
90 l_sob_id := p_sob_id;
91 SELECT substr(name,1,30),
92 chart_of_accounts_id
93 INTO l_name,
94 l_chart_of_accounts_id
95 FROM gl_sets_of_books
96 WHERE set_of_books_id = l_sob_id;
97
98 c_company_name_header := l_name;
99 c_chart_of_accounts_id := l_chart_of_accounts_id;
100
101 RETURN (TRUE);
102
103 RETURN NULL; EXCEPTION
104
105 WHEN OTHERS THEN
106 RETURN (FALSE);
107
108 END;
109
110 FUNCTION get_nls_strings RETURN BOOLEAN IS
111 l_nls_yes fnd_lookups.meaning%TYPE;
112 l_nls_all ap_lookup_codes.displayed_field%TYPE;
113 l_payment_type ap_lookup_codes.displayed_field%TYPE;
114 l_nls_void_payment_not_incl varchar2(100);
115 l_nls_display_supp_address varchar2(80);
116 l_nls_none_ep ap_lookup_codes.displayed_field%TYPE;
117
118 BEGIN
119
120
121
122
123 BEGIN
124
125 SELECT ly.meaning,
126 la.displayed_field,
127 lnep.displayed_field
128 INTO l_nls_yes, l_nls_all, l_nls_none_ep
129 FROM fnd_lookups ly, ap_lookup_codes la, ap_lookup_codes lnep
130 WHERE ly.lookup_type = 'YES_NO'
131 AND ly.lookup_code = 'Y'
132 AND la.lookup_type = 'NLS REPORT PARAMETER'
133 AND la.lookup_code = 'ALL'
134 AND lnep.lookup_type = 'NLS TRANSLATION'
135 AND lnep.lookup_code = 'NONE ELECTRONIC PAYMENT';
136
137
138 c_nls_yes := l_nls_yes;
139 c_nls_all := l_nls_all;
140 c_nls_none_ep := l_nls_none_ep;
141
142
143 EXCEPTION
144 WHEN OTHERS THEN
145 RETURN (FALSE);
146 END;
147
148
149 if P_PAYMENT_TYPE is null then
150 C_NLS_PAYMENT_TYPE := C_NLS_ALL;
151 else
152 SELECT displayed_field
153 INTO l_payment_type
154 FROM ap_lookup_codes
155 WHERE lookup_code = P_PAYMENT_TYPE
156 AND lookup_type = 'PAYMENT TYPE';
157
158 C_NLS_PAYMENT_TYPE := l_payment_type;
159 end if;
160
161
162
163
164 SELECT meaning
165 INTO l_nls_display_supp_address
166 FROM fnd_lookups
167 WHERE lookup_type = 'YES_NO'
168 AND lookup_code = P_ADDR_OPTION;
169
170 C_NLS_ADDR_OPTION := l_nls_display_supp_address;
171
172 BEGIN
173 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
174
175 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_no_data_exists"');*/null;
176
177 c_nls_no_data_exists := 'No Data Found';
178
179 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
180
181 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_end_of_report"');*/null;
182
183 c_nls_end_of_report := 'End of Report';
184
185
186 EXCEPTION
187 WHEN OTHERS THEN
188 RETURN (FALSE);
189 END;
190 BEGIN
191 SELECT '* '||description
192 INTO l_nls_void_payment_not_incl
193 FROM ap_lookup_codes
194 WHERE lookup_type = 'NLS REPORT PARAMETER'
195 AND lookup_code = 'VOID PAYMENT NOT INCLUDED';
196
197 c_nls_void_payment_not_incl := l_nls_void_payment_not_incl;
198 EXCEPTION
199 WHEN OTHERS THEN
200 RETURN (FALSE);
201 END;
202 RETURN (TRUE);
203
204
205 END;
206
207 function get_currency (currency_code_1 in varchar2, pay_currency_code in varchar2) return boolean is
208 l_currency VARCHAR2(3);
209 l_currency_name VARCHAR2(25);
210 l_pay_currency_name VARCHAR2(27);
211
212 BEGIN
213 SELECT c1.currency_code, c1.name, c2.name
214 INTO l_currency, l_currency_name,
215 l_pay_currency_name
216 FROM fnd_currencies_vl c1, fnd_currencies_vl c2
217 WHERE c1.currency_code = currency_code_1
218 AND c2.currency_code = pay_currency_code;
219
220 return (TRUE);
221 END;
222
223 function check_flag(C_CURRENCY_CODE in varchar2, C_PAY_CURRENCY_CODE in varchar2) return varchar2 is
224 BEGIN
225 IF (C_CURRENCY_FLAG = 'NULL') THEN
226 C_CURRENCY_FLAG := C_CURRENCY_CODE;
227 END IF;
228 IF (C_PAY_CURRENCY_FLAG = 'NULL') THEN
229 C_PAY_CURRENCY_FLAG := C_PAY_CURRENCY_CODE;
230 END IF;
231
232 IF (C_CURRENCY_FLAG <> C_CURRENCY_CODE) THEN
233 C_PLACE_FLAG := 'Y';
234 RETURN('Y');
235 END IF;
236 IF (C_PAY_CURRENCY_CODE <> C_PAY_CURRENCY_FLAG)
237 THEN
238 C_PLACE_FLAG := 'Y';
239 RETURN('P');
240 END IF;
241 RETURN NULL; END;
242
243 function c_currency_descformula(c_currency_code in varchar2) return varchar2 is
244 begin
245
246 DECLARE
247 l_currency_desc fnd_currencies_vl.name%TYPE;
248 BEGIN
249 SELECT c.name
250 INTO l_currency_desc
251 FROM fnd_currencies_vl c
252 WHERE c.currency_code = c_currency_code;
253 return(l_currency_desc);
254 EXCEPTION
255 WHEN OTHERS THEN null;
256 END;
257 RETURN NULL; end;
258
259 function c_pay_currency_descformula(c_pay_currency_code in varchar2) return varchar2 is
260 begin
261
262 DECLARE
263 l_currency_desc fnd_currencies_vl.name%TYPE;
264 BEGIN
265 SELECT c.name
266 INTO l_currency_desc
267 FROM fnd_currencies_vl c
268 WHERE c.currency_code = c_pay_currency_code ;
269 return(l_currency_desc);
270 EXCEPTION
271 WHEN OTHERS THEN null;
272 END;
273 RETURN NULL; end;
274
275 --Functions to refer Oracle report placeholders--
276
277 Function C_BASE_CURRENCY_CODE_p return varchar2 is
278 Begin
279 return C_BASE_CURRENCY_CODE;
280 END;
281 Function C_BASE_PRECISION_p return number is
282 Begin
283 return C_BASE_PRECISION;
284 END;
285 Function C_BASE_MIN_ACCT_UNIT_p return number is
286 Begin
287 return C_BASE_MIN_ACCT_UNIT;
288 END;
289 Function C_NLS_YES_p return varchar2 is
290 Begin
291 return C_NLS_YES;
292 END;
293 Function C_NLS_NO_p return varchar2 is
294 Begin
295 return C_NLS_NO;
296 END;
297 Function C_NLS_ACTIVE_p return varchar2 is
298 Begin
299 return C_NLS_ACTIVE;
300 END;
301 Function C_COMPANY_NAME_HEADER_p return varchar2 is
302 Begin
303 return C_COMPANY_NAME_HEADER;
304 END;
305 Function C_CHART_OF_ACCOUNTS_ID_p return number is
306 Begin
307 return C_CHART_OF_ACCOUNTS_ID;
308 END;
309 Function C_NLS_INACTIVE_p return varchar2 is
310 Begin
311 return C_NLS_INACTIVE;
312 END;
313 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
314 Begin
315 return C_NLS_NO_DATA_EXISTS;
316 END;
317 Function C_NLS_VOID_PAYMENT_NOT_INCL_p return varchar2 is
318 Begin
319 return C_NLS_VOID_PAYMENT_NOT_INCL;
320 END;
321 Function C_CURRENCY_p return varchar2 is
322 Begin
323 return C_CURRENCY;
324 END;
325 Function C_CURRENCY_FLAG_p return varchar2 is
326 Begin
327 return C_CURRENCY_FLAG;
328 END;
329 Function C_PAY_CURRENCY_FLAG_p return varchar2 is
330 Begin
331 return C_PAY_CURRENCY_FLAG;
332 END;
333 Function C_PLACE_FLAG_p return varchar2 is
334 Begin
335 return C_PLACE_FLAG;
336 END;
337 Function C_VOIDED_FLAG_p return varchar2 is
338 Begin
339 return C_VOIDED_FLAG;
340 END;
341 Function C_NLS_PAYMENT_TYPE_p return varchar2 is
342 Begin
343 return C_NLS_PAYMENT_TYPE;
344 END;
345 Function C_NLS_ALL_p return varchar2 is
346 Begin
347 return C_NLS_ALL;
348 END;
349 Function C_NLS_END_OF_REPORT_p return varchar2 is
350 Begin
351 return C_NLS_END_OF_REPORT;
352 END;
353 Function C_NLS_ADDR_OPTION_p return varchar2 is
354 Begin
355 return C_NLS_ADDR_OPTION;
356 END;
357 Function C_NLS_NONE_EP_p return varchar2 is
358 Begin
359 return C_NLS_NONE_EP;
360 END;
361 END AP_APXMTDCR_XMLP_PKG ;
362