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