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