[Home] [Help]
PACKAGE BODY: APPS.AP_APXXPXPL_XMLP_PKG
Source
1 PACKAGE BODY AP_APXXPXPL_XMLP_PKG AS
2 /* $Header: APXXPXPLB.pls 120.0 2007/12/27 08:53:07 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
96 /*SRW.USER_EXIT('FND MESSAGE_NAME APPL="SQLAP" NAME="AP_ALL_END_OF_REPORT"');*/null;
97
98 /*SRW.USER_EXIT('FND MESSAGE_GET OUTPUT_FIELD=":c_nls_end_of_report"');*/null;
99
100 c_nls_end_of_report := '*** '||c_nls_end_of_report||' ***';
101
102 RETURN (TRUE);
103
104 RETURN NULL; EXCEPTION
105 WHEN OTHERS THEN
106 RETURN (FALSE);
107 END;
108
109 function BeforeReport return boolean is
110 begin
111
112
113
114 DECLARE
115
116 init_failure EXCEPTION;
117
118 BEGIN
119
120
121
122
123 /*SRW.USER_EXIT('FND SRWINIT');*/null;
124
125 IF (p_debug_switch = 'Y') THEN
126 /*SRW.MESSAGE('1','After SRWINIT');*/null;
127
128 END IF;
129
130
131 IF (get_company_name() <> TRUE) THEN RAISE init_failure;
132 END IF;
133 IF (p_debug_switch = 'Y') THEN
134 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
135
136 END IF;
137
138
139 IF (get_nls_strings() <> TRUE) THEN RAISE init_failure;
140 END IF;
141 IF (p_debug_switch = 'Y') THEN
142 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
143
144 END IF;
145
146
147 IF (get_base_curr_data() <> TRUE) THEN RAISE init_failure;
148 END IF;
149 IF (p_debug_switch = 'Y') THEN
150 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
151
152 END IF;
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
182
183
184
185
186 IF (p_debug_switch = 'Y') THEN
187 /*SRW.BREAK;*/null;
188
189 END IF;
190
191
192
193 RETURN (TRUE);
194
195
196
197 EXCEPTION
198
199 WHEN OTHERS THEN
200
201 /*RAISE_application_error(-20101,null);SRW.PROGRAM_ABORT;*/
202 null;
203
204
205 END; return (TRUE);
206 end;
207
208 function AfterReport return boolean is
209 begin
210
211 BEGIN
212 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
213
214 IF (P_DEBUG_SWITCH = 'Y') THEN
215 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
216
217 END IF;
218 EXCEPTION
219 WHEN OTHERS THEN
220 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
221
222 END; return (TRUE);
223 end;
224
225 FUNCTION get_company_name RETURN BOOLEAN IS
226 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
227 l_name gl_sets_of_books.name%TYPE;
228 l_sob_id NUMBER;
229 l_report_start_date DATE;
230 BEGIN
231 l_report_start_date := sysdate; l_sob_id := p_set_of_books_id;
232 SELECT name,
233 chart_of_accounts_id
234 INTO l_name,
235 l_chart_of_accounts_id
236 FROM gl_sets_of_books
237 WHERE set_of_books_id = l_sob_id;
238
239 c_company_name_header := l_name;
240 c_chart_of_accounts_id := l_chart_of_accounts_id;
241 c_report_start_date := l_report_start_date;
242
243 RETURN (TRUE);
244
245 RETURN NULL; EXCEPTION
246
247 WHEN OTHERS THEN
248 RETURN (FALSE);
249
250 END;
251
252 --Functions to refer Oracle report placeholders--
253
254 Function C_BASE_CURRENCY_CODE_p return varchar2 is
255 Begin
256 return C_BASE_CURRENCY_CODE;
257 END;
258 Function C_BASE_PRECISION_p return number is
259 Begin
260 return C_BASE_PRECISION;
261 END;
262 Function C_BASE_MIN_ACCT_UNIT_p return number is
263 Begin
264 return C_BASE_MIN_ACCT_UNIT;
265 END;
266 Function C_BASE_DESCRIPTION_p return varchar2 is
267 Begin
268 return C_BASE_DESCRIPTION;
269 END;
270 Function C_COMPANY_NAME_HEADER_p return varchar2 is
271 Begin
272 return C_COMPANY_NAME_HEADER;
273 END;
274 Function C_REPORT_START_DATE_p return date is
275 Begin
276 return C_REPORT_START_DATE;
277 END;
278 Function C_NLS_YES_p return varchar2 is
279 Begin
280 return C_NLS_YES;
281 END;
282 Function C_NLS_NO_p return varchar2 is
283 Begin
284 return C_NLS_NO;
285 END;
286 Function C_NLS_ALL_p return varchar2 is
287 Begin
288 return C_NLS_ALL;
289 END;
290 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
291 Begin
292 return C_NLS_NO_DATA_EXISTS;
293 END;
294 Function C_CHART_OF_ACCOUNTS_ID_p return number is
295 Begin
296 return C_CHART_OF_ACCOUNTS_ID;
297 END;
298 Function C_NLS_END_OF_REPORT_p return varchar2 is
299 Begin
300 return C_NLS_END_OF_REPORT;
301 END;
302 END AP_APXXPXPL_XMLP_PKG ;
303