[Home] [Help]
PACKAGE BODY: APPS.FA_FASUNPLD_XMLP_PKG
Source
1 PACKAGE BODY FA_FASUNPLD_XMLP_PKG AS
2 /* $Header: FASUNPLDB.pls 120.0.12010000.1 2008/07/28 13:17:48 appldev ship $ */
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
15
16
17
18 SELECT sob.currency_code,
19 c.precision,
20 c.minimum_accountable_unit,
21 c.description
22 INTO base_curr,
23 prec,
24 min_au,
25 descr
26 FROM fnd_currencies_vl c,
27 fa_book_controls bc,
28 gl_sets_of_books sob
29 WHERE bc.book_type_code = P_ASSET_BOOK_TYPE
30 AND sob.set_of_books_id = bc.set_of_books_id
31 AND c.currency_code = sob.currency_code ;
32
33 C_BASE_CURRENCY_CODE := base_curr;
34 C_BASE_PRECISION := prec;
35 C_BASE_MIN_ACCT_UNIT := min_au;
36 C_BASE_DESCRIPTION := descr;
37
38 RETURN (TRUE);
39
40 RETURN NULL; EXCEPTION
41
42 WHEN OTHERS THEN
43 RETURN (FALSE);
44
45 END;
46
47 FUNCTION custom_init RETURN BOOLEAN IS
48
49 BEGIN
50
51
52 RETURN (TRUE);
53
54 RETURN NULL; EXCEPTION
55
56 WHEN OTHERS THEN
57 RETURN (FALSE);
58
59 END;
60
61 FUNCTION get_cover_page_values RETURN BOOLEAN IS
62
63 BEGIN
64
65 RETURN(TRUE);
66
67 RETURN NULL; EXCEPTION
68 WHEN OTHERS THEN
69 RETURN(FALSE);
70
71 END;
72
73 FUNCTION get_nls_strings RETURN BOOLEAN IS
74 nls_void ap_lookup_codes.displayed_field%TYPE; nls_na ap_lookup_codes.displayed_field%TYPE; nls_all ap_lookup_codes.displayed_field%TYPE; nls_yes fa_lookups.meaning%TYPE; nls_no fa_lookups.meaning%TYPE;
75 BEGIN
76
77 SELECT ly.meaning,
78 ln.meaning,
79 l1.displayed_field,
80 l2.displayed_field,
81 l3.displayed_field
82 INTO nls_yes,
83 nls_no,
84 nls_all,
85 nls_void,
86 nls_na
87 FROM fnd_lookups ly,
88 fnd_lookups ln,
89 ap_lookup_codes l1,
90 ap_lookup_codes l2,
91 ap_lookup_codes l3
92 WHERE ly.lookup_type = 'YES_NO'
93 AND ly.lookup_code = 'Y'
94 AND ln.lookup_type = 'YES_NO'
95 AND ln.lookup_code = 'N'
96 AND l1.lookup_type = 'NLS REPORT PARAMETER'
97 AND l1.lookup_code = 'ALL'
98 AND l2.lookup_type = 'NLS TRANSLATION'
99 AND l2.lookup_code = 'VOID'
100 AND l3.lookup_type = 'NLS REPORT PARAMETER'
101 AND l3.lookup_code = 'NA';
102
103 C_NLS_YES := nls_yes;
104 C_NLS_NO := nls_no;
105 C_NLS_ALL := nls_all;
106 C_NLS_VOID := nls_void;
107 C_NLS_NA := nls_na;
108
109
110 fnd_message.set_name('JE', 'JE_ALL_DATA_NOT_FOUND');
111 C_NLS_NO_DATA_EXISTS := substr(fnd_message.get, 1, 50);
112
113
114
115 C_NLS_NO_DATA_EXISTS := '***** '||C_NLS_NO_DATA_EXISTS ||' *****';
116
117
118 fnd_message.set_name('JE', 'JE_ALL_END_OF_REPORT');
119 C_NLS_NO_DATA_EXISTS := substr(fnd_message.get, 1, 50);
120
121
122 C_NLS_END_OF_REPORT := '***** '||C_NLS_END_OF_REPORT||' *****';
123
124 RETURN (TRUE);
125
126 RETURN NULL; EXCEPTION
127 WHEN OTHERS THEN
128 RETURN (FALSE);
129 END;
130
131 function BeforeReport return boolean is
132 x boolean;
133 begin
134 x:= P_DEPRN_TYPEValidTrigger;
135 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
136
137 DECLARE
138
139 init_failure EXCEPTION;
140
141 BEGIN
142
143
144 SELECT DECODE(NVL(TO_CHAR(period_close_date), 'NULL'), 'NULL', 'Open', 'Closed')
145 INTO C_Last_Open
146 FROM fa_deprn_periods
147 WHERE book_type_code = P_ASSET_BOOK_TYPE
148 AND period_name = P_PERIOD_END_NAME;
149
150
151
152 C_REPORT_START_DATE := sysdate;
153
154
155
156
157 /*SRW.USER_EXIT('FND SRWINIT');*/null;
158
159 IF (p_debug_switch = 'Y') THEN
160 /*SRW.MESSAGE('1','After SRWINIT');*/null;
161
162 END IF;
163
164
165 IF (get_company_name <> TRUE) THEN RAISE init_failure;
166 END IF;
167 IF (p_debug_switch = 'Y') THEN
168 /*SRW.MESSAGE('2','After Get_Company_Name');*/null;
169
170 END IF;
171
172
173 IF (GET_NLS_STRINGS <> TRUE) THEN RAISE init_failure;
174 END IF;
175 IF (p_debug_switch = 'Y') THEN
176 /*SRW.MESSAGE('3','After Get_NLS_Strings');*/null;
177
178 END IF;
179
180
181 IF (get_base_curr_data <> TRUE) THEN RAISE init_failure;
182 END IF;
183 IF (p_debug_switch = 'Y') THEN
184 /*SRW.MESSAGE('4','After Get_Base_Curr_Data');*/null;
185
186 END IF;
187
188
189 IF (p_debug_switch = 'Y') THEN
190 /*SRW.BREAK;*/null;
191
192 END IF;
193
194
195
196 RETURN (TRUE);
197
198
199
200 EXCEPTION
201
202 WHEN OTHERS THEN
203
204 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
205
206
207 END;
208 return (TRUE);
209 end;
210
211 function AfterReport return boolean is
212 begin
213
214 BEGIN
215 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
216
217 IF (P_DEBUG_SWITCH = 'Y') THEN
218 /*SRW.MESSAGE('20','After SRWEXIT');*/null;
219
220 END IF;
221 EXCEPTION
222 WHEN OTHERS THEN
223 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
224
225 END; return (TRUE);
226 end;
227
228 FUNCTION get_company_name RETURN BOOLEAN IS
229 l_chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE;
230 l_name gl_sets_of_books.name%TYPE;
231 l_sob_id number;
232 BEGIN
233
234 if P_SET_OF_BOOKS_ID is not null then
235 l_sob_id := p_set_of_books_id;
236 SELECT name,
237 chart_of_accounts_id
238 INTO l_name,
239 l_chart_of_accounts_id
240 FROM gl_sets_of_books
241 WHERE set_of_books_id = l_sob_id;
242
243 c_company_name_header := l_name;
244 c_chart_of_accounts_id := l_chart_of_accounts_id;
245
246 end if;
247
248 RETURN (TRUE);
249
250 RETURN NULL; EXCEPTION
251
252 WHEN OTHERS THEN
253 RETURN (FALSE);
254
255 END;
256
257 function P_DEPRN_TYPEValidTrigger return boolean is
258 begin
259
260 if P_DEPRN_TYPE is null
261 then
262 P_DEPRN_TYPE_1 := '''%''';
263 end if; return (TRUE);
264 end;
265
266 --Functions to refer Oracle report placeholders--
267
268 Function C_base_currency_code_p return varchar2 is
269 Begin
270 return C_base_currency_code;
271 END;
272 Function C_BASE_PRECISION_p return number is
273 Begin
274 return C_BASE_PRECISION;
275 END;
276 Function C_BASE_MIN_ACCT_UNIT_p return number is
277 Begin
278 return C_BASE_MIN_ACCT_UNIT;
279 END;
280 Function C_BASE_DESCRIPTION_p return varchar2 is
281 Begin
282 return C_BASE_DESCRIPTION;
283 END;
284 Function C_COMPANY_NAME_HEADER_p return varchar2 is
285 Begin
286 return C_COMPANY_NAME_HEADER;
287 END;
288 Function C_REPORT_START_DATE_p return date is
289 Begin
290 return C_REPORT_START_DATE;
291 END;
292 Function C_NLS_YES_p return varchar2 is
293 Begin
294 return C_NLS_YES;
295 END;
296 Function C_NLS_NO_p return varchar2 is
297 Begin
298 return C_NLS_NO;
299 END;
300 Function C_NLS_ALL_p return varchar2 is
301 Begin
302 return C_NLS_ALL;
303 END;
304 Function C_NLS_NO_DATA_EXISTS_p return varchar2 is
305 Begin
306 return C_NLS_NO_DATA_EXISTS;
307 END;
308 Function C_CHART_OF_ACCOUNTS_ID_p return number is
309 Begin
310 return C_CHART_OF_ACCOUNTS_ID;
311 END;
312 Function C_NLS_VOID_p return varchar2 is
313 Begin
314 return C_NLS_VOID;
315 END;
316 Function C_NLS_NA_p return varchar2 is
317 Begin
318 return C_NLS_NA;
319 END;
320 Function C_NLS_END_OF_REPORT_p return varchar2 is
321 Begin
322 return C_NLS_END_OF_REPORT;
323 END;
324 Function C_Last_Open_p return varchar2 is
325 Begin
326 return C_Last_Open;
327 END;
328 END FA_FASUNPLD_XMLP_PKG ;
329