[Home] [Help]
PACKAGE BODY: APPS.PA_PAXEXCPD_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXEXCPD_XMLP_PKG AS
2 /* $Header: PAXEXCPDB.pls 120.0 2008/01/02 11:28:33 krreddy noship $ */
3
4 FUNCTION get_cover_page_values RETURN BOOLEAN IS
5
6 BEGIN
7
8 RETURN(TRUE);
9
10 EXCEPTION
11 WHEN OTHERS THEN
12 RETURN(FALSE);
13
14 END;
15
16 function BeforeReport return boolean is
17 begin
18
19 Declare
20 init_failure exception;
21 ndf VARCHAR2(80);
22 l_start_date DATE;
23 l_end_date DATE;
24 BEGIN
25 /*srw.user_exit('FND SRWINIT');*/null;
26
27
28 /*srw.user_exit('FND GETPROFILE
29 NAME="PA_DEBUG_MODE"
30 FIELD=":p_debug_mode"
31 PRINT_ERROR="N"');*/null;
32
33
34 /*srw.user_exit('FND GETPROFILE
35 NAME="PA_RULE_BASED_OPTIMIZER"
36 FIELD=":p_rule_optimizer"
37 PRINT_ERROR="N"');*/null;
38
39
40 select nvl(paimp.org_id,-99) into org_id1 from pa_implementations paimp;
41
42
43 select nvl(fnd_profile.value_specific('PA_EN_NEW_GLDATE_DERIVATION'),'N') into pa_new_gl_date from dual;
44
45
46
47
48
49
50
51
52
53
54
55
56 IF (get_ou_name <> TRUE) THEN
57 RAISE init_failure;
58 END IF;
59
60
61 IF (get_company_name <> TRUE) THEN RAISE init_failure;
62 END IF;
63
64 select meaning into ndf from pa_lookups where
65 lookup_code = 'NO_DATA_FOUND' and
66 lookup_type = 'MESSAGE';
67 c_no_data_found := ndf;
68
69
70 if (calling_mode = 'PA') then
71
72 SELECT START_DATE
73 INTO START_DATE
74 FROM PA_PERIODS
75 WHERE PERIOD_NAME= START_PERIOD;
76
77 SELECT END_DATE
78 INTO END_DATE
79 FROM PA_PERIODS
80 WHERE PERIOD_NAME= END_PERIOD;
81
82 elsif (calling_mode = 'GL') then
83
84 SELECT START_DATE
85 INTO START_DATE
86 FROM GL_PERIOD_STATUSES gps, PA_IMPLEMENTATIONS imp
87 WHERE gps.PERIOD_NAME= START_PERIOD
88 AND gps.APPLICATION_ID = 8721
89 AND gps.SET_OF_BOOKS_ID = imp.set_of_books_id;
90
91 SELECT END_DATE
92 INTO END_DATE
93 FROM GL_PERIOD_STATUSES gps, PA_IMPLEMENTATIONS imp
94 WHERE gps.PERIOD_NAME= END_PERIOD
95 AND gps.APPLICATION_ID = 8721
96 AND gps.SET_OF_BOOKS_ID = imp.set_of_books_id;
97
98
99 end if;
100
101 fnd_client_info.set_currency_context(org_id1);
102
103 EXCEPTION
104 WHEN NO_DATA_FOUND THEN
105 select meaning into ndf from pa_lookups where
106 lookup_code = 'NO_DATA_FOUND' and
107 lookup_type = 'MESSAGE';
108 c_no_data_found := ndf;
109 c_dummy_data := 1;
110 WHEN OTHERS THEN
111 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
112
113 END; return (TRUE);
114 end;
115
116 FUNCTION get_company_name RETURN BOOLEAN IS
117 l_name gl_sets_of_books.name%TYPE;
118 BEGIN
119 SELECT gl.name
120 INTO l_name
121 FROM gl_sets_of_books gl,pa_implementations pi
122 WHERE gl.set_of_books_id = pi.set_of_books_id;
123
124 c_company_name_header := l_name;
125
126 RETURN (TRUE);
127
128 EXCEPTION
129
130 WHEN OTHERS THEN
131 RETURN (FALSE);
132
133 END;
134
135 FUNCTION get_exception_type RETURN BOOLEAN IS
136
137 BEGIN
138
139 IF exception_type IS NOT NULL
140 AND NOT (exception_type = 'AP INVOICES' OR
141 exception_type = 'COSTING' OR
142 exception_type = 'DRAFT REVENUES') THEN
143 RETURN FALSE;
144 ELSE
145 RETURN TRUE;
146 END IF;
147
148 EXCEPTION
149
150 WHEN OTHERS THEN
151 RETURN (FALSE);
152
153 END ;
154
155 function CF_acct_curr_codeFormula return VARCHAR2 is
156 begin
157 return(pa_multi_currency.get_acct_currency_code);
158 end;
159
160 function AfterReport return boolean is
161 begin
162
163
164 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
165
166 return (TRUE);
167 end;
168
169 FUNCTION get_ou_name RETURN boolean IS
170
171 v_ou_name hr_organization_units.name%type;
172
173 BEGIN
174
175 select hr.name
176 into v_ou_name
177 from hr_all_organization_units_tl hr,
178 pa_implementations pi
179 where hr.organization_id(+) = pi.org_id
180 and decode(hr.organization_id,null,'1',hr.language)=
181 decode(hr.organization_id,null,'1',userenv('lang')) ;
182
183 cp_ou_name := v_ou_name;
184 return (true);
185
186 EXCEPTION
187 WHEN OTHERS THEN
188 RETURN (FALSE);
189
190 END;
191
192 function cf_inv_ou_nameformula(inv_org_id in number) return char is
193 begin
194 IF nvl(inv_org_id ,-99) <> -99 then
195 return (pa_expenditures_utils.getorgtlname(inv_org_id));
196 Else
197 return get_ou_name1;
198 End if;
199 end;
200
201 function cf_cst_ou_nameformula(cst_org_id in number) return char is
202 begin
203 IF nvl(cst_org_id ,-99) <> -99 then
204 return pa_expenditures_utils.getorgtlname(cst_org_id);
205 Else
206 return get_ou_name1;
207 End if;
208
209
210 end;
211
212 function cf_mfg_ou_nameformula(org_id_pmg in number) return char is
213 begin
214 IF nvl(org_id_pmg ,-99) <> -99 then
215 return pa_expenditures_utils.getorgtlname(org_id_pmg);
216 Else
217 return get_ou_name1;
218 End if;
219
220 end;
221
222 function cf_rev_ou_nameformula(rev_org_id in number) return char is
223 begin
224 IF nvl(rev_org_id ,-99) <> -99 then
225 return pa_expenditures_utils.getorgtlname(rev_org_id);
226 Else
227 return get_ou_name1;
228 End if;
229
230 end;
231
232 function cf_cc_ou_nameformula(cc_org_id in number) return char is
233 begin
234 If nvl(cc_org_id ,-99) <> -99 then
235 return pa_expenditures_utils.getorgtlname(cc_org_id);
236 Else
237 return get_ou_name1;
238 End if;
239
240 end;
241
242 function cf_mrc_ou_nameformula(mrc_org_id in number) return char is
243 begin
244 If nvl(mrc_org_id ,-99) <> -99 then
245 return pa_expenditures_utils.getorgtlname(mrc_org_id);
246 Else
247 return get_ou_name1;
248 End if;
249
250 end;
251
252 FUNCTION get_ou_name1 RETURN varchar2 IS
253
254 v_ou_name hr_organization_units.name%type;
255
256 BEGIN
257
258 select hr.name
259 into v_ou_name
260 from hr_all_organization_units_tl hr,
261 pa_implementations pi
262 where hr.organization_id(+) = pi.org_id
263 and decode(hr.organization_id,null,'1',hr.language)=
264 decode(hr.organization_id,null,'1',userenv('lang')) ;
265 return (v_ou_name);
266
267 EXCEPTION
268 WHEN OTHERS THEN
269 RETURN (null);
270
271 END;
272
273 function cf_uncst_sob_nameformula(uncst_sob in number) return char is
274
275 v_name varchar2(60);
276 begin
277 If uncst_sob is not null then
278 select gl.name
279 into v_name
280 from gl_sets_of_books gl
281 where gl.set_of_books_id = uncst_sob;
282 End if;
283
284 return v_name;
285
286 exception
287
288 when others then
289 return null;
290
291
292 end;
293
294 function cf_rec_book_nameformula(receipt_books in number) return char is
295 v_name varchar2(60);
296 begin
297 If receipt_books is not null then
298 select gl.name
299 into v_name
300 from gl_sets_of_books gl
301 where gl.set_of_books_id = receipt_books;
302 End if;
303
304 return v_name;
305
306 exception
307
308 when others then
309 return null;
310
311 end;
312
313 function cf_project_numformula(project_id in number) return varchar2 is
314 l_project_number varchar2(50);
315 begin
316 pa_utils3.GetCachedProjNum(project_id,l_project_number);
317 return l_project_number;
318 end;
319
320 function cf_task_numformula(task_id in number) return varchar2 is
321 l_task_number varchar2(50);
322 begin
323 pa_utils3.GetCachedTaskNum(task_id,l_task_number);
324 return l_task_number;
325 end;
326
327 --Functions to refer Oracle report placeholders--
328
329 Function C_COMPANY_NAME_HEADER_p return varchar2 is
330 Begin
331 return C_COMPANY_NAME_HEADER;
332 END;
333 Function C_no_data_found_p return varchar2 is
334 Begin
335 return C_no_data_found;
336 END;
337 Function C_dummy_data_p return number is
338 Begin
339 return C_dummy_data;
340 END;
341 Function CP_OU_Name_p return varchar2 is
342 Begin
343 return CP_OU_Name;
344 END;
345 END PA_PAXEXCPD_XMLP_PKG ;
346