[Home] [Help]
PACKAGE BODY: APPS.AP_APXMHLET_XMLP_PKG
Source
1 PACKAGE BODY AP_APXMHLET_XMLP_PKG AS
2 /* $Header: APXMHLETB.pls 120.0 2007/12/27 08:11:50 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_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 la.displayed_field
77 INTO nls_yes, nls_no, nls_all
78 FROM fnd_lookups ly, fnd_lookups ln, ap_lookup_codes la
79 WHERE ly.lookup_type = 'YES_NO'
80 AND ly.lookup_code = 'Y'
81 AND ln.lookup_type = 'YES_NO'
82 AND ln.lookup_code = 'N'
83 AND la.lookup_type = 'NLS REPORT PARAMETER'
84 AND la.lookup_code = 'ALL';
85
86 c_nls_yes := nls_yes;
87 c_nls_no := nls_no;
88 c_nls_all := nls_all;
89
90 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_APPRVL_NO_DATA"');*/null;
91
92 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_no_data_exists"');*/null;
93
94 c_nls_no_data_exists := 'No Data Found';
95
96
97 RETURN (TRUE);
98
99 RETURN NULL; EXCEPTION
100 WHEN OTHERS THEN
101 RETURN (FALSE);
102 END;
103
104 function BeforeReport return boolean is
105 begin
106
107
108
109 DECLARE
110
111 init_failure EXCEPTION;
112
113 BEGIN
114
115
116
117
118 /*SRW.USER_EXIT('FND SRWINIT');*/null;
119
120 IF (p_debug_switch = 'Y') THEN
121 /*SRW.MESSAGE('1','After SRWINIT');*/null;
122
123 END IF;
124
125
126 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
127 END IF;
128 IF (p_debug_switch = 'Y') THEN
129 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
130
131 END IF;
132
133
134 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
135 END IF;
136 IF (p_debug_switch = 'Y') THEN
137 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
138
139 END IF;
140
141
142 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
143 END IF;
144 IF (p_debug_switch = 'Y') THEN
145 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
146
147 END IF;
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181 IF (p_debug_switch = 'Y') THEN
182 /*SRW.BREAK;*/null;
183
184 END IF;
185
186
187
188 RETURN (TRUE);
189
190
191
192 EXCEPTION
193
194 WHEN OTHERS THEN
195
196 /*RAISE_application_error(-20101,null);SRW.PROGRAM_ABORT;*/
197 null;
198
199
200 END; return (TRUE);
201 end;
202
203 function AfterReport return boolean is
204 begin
205
206 BEGIN
207 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
208
209 IF (P_DEBUG_SWITCH = 'Y') THEN
210 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
211
212 END IF;
213 EXCEPTION
214 WHEN OTHERS THEN
215 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
216
217 END; return (TRUE);
218 end;
219
220 FUNCTION get_company_name RETURN BOOLEAN IS
221 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
222 l_name gl_sets_of_books.name%TYPE;
223 l_sob_id NUMBER;
224 l_report_start_date DATE;
225 l_curdate VARCHAR2(25);
226 BEGIN
227 l_report_start_date := sysdate; l_sob_id := p_set_of_books_id;
228 SELECT name,
229 chart_of_accounts_id,
230 to_char(sysdate,'fmMonth DD, YYYY')
231 INTO l_name,
232 l_chart_of_accounts_id,
233 l_curdate
234 FROM gl_sets_of_books
235 WHERE set_of_books_id = l_sob_id;
236
237 c_company_name_header := l_name;
238 c_chart_of_accounts_id := l_chart_of_accounts_id;
239 c_report_start_date := l_report_start_date;
240 c_curdate := l_curdate;
241
242 RETURN (TRUE);
243
244 RETURN NULL; EXCEPTION
245
246 WHEN OTHERS THEN
247 RETURN (FALSE);
248
249 END;
250
251 FUNCTION get_flexdata RETURN BOOLEAN IS
252
253 BEGIN
254
255
256 null;
257 RETURN (TRUE);
258
259 RETURN NULL; EXCEPTION
260 WHEN OTHERS THEN
261 RETURN(FALSE);
262 END;
263
264 FUNCTION calculate_run_time RETURN BOOLEAN IS
265 end_date DATE;
266 start_date DATE;
267 BEGIN
268 end_date := sysdate;
269 start_date := C_REPORT_START_DATE;
270 C_REPORT_RUN_TIME := to_char(to_date('01/01/0001','DD/MM/YYYY') + ((end_date - start_date)),'HH24:MI:SS');
271 RETURN(TRUE);
272 RETURN NULL; EXCEPTION
273 WHEN OTHERS THEN
274 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
275
276 END;
277
278 --Functions to refer Oracle report placeholders--
279
280 Function C_BASE_CURRENCY_CODE_p return varchar2 is
281 Begin
282 return C_BASE_CURRENCY_CODE;
283 END;
284 Function C_BASE_PRECISION_p return number is
285 Begin
286 return C_BASE_PRECISION;
287 END;
288 Function C_BASE_MIN_ACCT_UNIT_p return number is
289 Begin
290 return C_BASE_MIN_ACCT_UNIT;
291 END;
292 Function C_BASE_DESCRIPTION_p return varchar2 is
293 Begin
294 return C_BASE_DESCRIPTION;
295 END;
296 Function C_COMPANY_NAME_HEADER_p return varchar2 is
297 Begin
298 return C_COMPANY_NAME_HEADER;
299 END;
300 Function C_REPORT_START_DATE_p return date is
301 Begin
302 return C_REPORT_START_DATE;
303 END;
304 Function C_NLS_YES_p return varchar2 is
305 Begin
306 return C_NLS_YES;
307 END;
308 Function C_NLS_NO_p return varchar2 is
309 Begin
310 return C_NLS_NO;
311 END;
312 Function C_NLS_ALL_p return varchar2 is
313 Begin
314 return C_NLS_ALL;
315 END;
316 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
317 Begin
318 return C_NLS_NO_DATA_EXISTS;
319 END;
320 Function C_REPORT_RUN_TIME_p return varchar2 is
321 Begin
322 return C_REPORT_RUN_TIME;
323 END;
324 Function C_CHART_OF_ACCOUNTS_ID_p return number is
325 Begin
326 return C_CHART_OF_ACCOUNTS_ID;
327 END;
328 Function C_CURDATE_p return varchar2 is
329 Begin
330 return C_CURDATE;
331 END;
332 END AP_APXMHLET_XMLP_PKG ;
333