[Home] [Help]
PACKAGE BODY: APPS.PA_PAXEMRAO_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXEMRAO_XMLP_PKG AS
2 /* $Header: PAXEMRAOB.pls 120.0 2008/01/02 11:26:48 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 hold_employee_name VARCHAR2(50);
22 org_name hr_organization_units.name%TYPE;
23 yes_no VARCHAR2(40);
24 BEGIN
25
26 CP_DATE_LO := TO_CHAR(DATE_LO,'DD-MON-YY');
27 CP_DATE_HI := TO_CHAR(DATE_HI,'DD-MON-YY');
28
29 /*srw.user_exit('FND SRWINIT');*/null;
30
31
32
33 /*srw.user_exit('FND GETPROFILE
34 NAME="PA_RULE_BASED_OPTIMIZER"
35 FIELD=":p_rule_optimizer"
36 PRINT_ERROR="N"');*/null;
37
38
39
40
41
42
43 /*srw.user_exit('FND GETPROFILE
44 NAME="PA_DEBUG_MODE"
45 FIELD=":p_debug_mode"
46 PRINT_ERROR="N"');*/null;
47
48
49
50
51
52
53
54
55 if start_org_id is not null then
56 select substr(name,1,40)
57 into org_name
58 from hr_organization_units
59 where organization_id = start_org_id;
60 end if;
61 c_org_name := org_name;
62
63
64 If p_person_id is not null
65 then
66 select substr(full_name,1,50)
67 into hold_employee_name
68 from per_people_f
69 where person_id = p_person_id
70 and sysdate between effective_start_date
71 and nvl(effective_end_date,sysdate + 1)
72 and (employee_number IS NOT NULL OR npw_number IS NOT NULL );
73 c_employee_name := hold_employee_name;
74 end if;
75
76 If display_detail is not null then
77 select substr(meaning,1,40) into yes_no from fnd_lookups
78 where lookup_code = display_detail
79 and lookup_type = 'YES_NO';
80 end if;
81 c_display_details := yes_no;
82
83 IF (get_company_name <> TRUE) THEN RAISE init_failure;
84 END IF;
85 IF (get_start_org <> TRUE) THEN
86 RAISE init_failure;
87 END IF;
88
89 IF (no_data_found_func <> TRUE) THEN
90 RAISE init_failure;
91 END IF;
92
93 EXCEPTION
94 WHEN NO_DATA_FOUND THEN
95 IF (no_data_found_func <> TRUE) THEN
96 RAISE init_failure;
97 END IF;
98 WHEN OTHERS THEN
99 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
100
101 END; return (TRUE);
102 end;
103
104 FUNCTION get_company_name RETURN BOOLEAN IS
105 l_name gl_sets_of_books.name%TYPE;
106 BEGIN
107 SELECT gl.name
108 INTO l_name
109 FROM gl_sets_of_books gl,pa_implementations pi
110 WHERE gl.set_of_books_id = pi.set_of_books_id;
111
112 c_company_name_header := l_name;
113
114 RETURN (TRUE);
115
116 EXCEPTION
117
118 WHEN OTHERS THEN
119 RETURN (FALSE);
120
121 END;
122
123 FUNCTION get_start_org RETURN BOOLEAN IS
124 c_start_organization_id number;
125
126 BEGIN
127 select
128 decode(start_org_id,null,
129 start_organization_id,start_org_id)
130 into
131 c_start_organization_id
132 from
133 pa_implementations;
134 insert into
135 pa_org_reporting_sessions
136 (start_organization_id,session_id)
137 values(c_start_organization_id,userenv('SESSIONID'));
138 RETURN (TRUE);
139 EXCEPTION WHEN OTHERS THEN
140 RETURN (FALSE);
141 END;
142
143 function G_projectGroupFilter return boolean is
144 begin
145
146
147 return (TRUE);
148 end;
149
150 function c_utilizationformula(total_hours in number, billable_hours in number) return number is
151
152 hold_result number;
153 hold_project_result number;
154
155 begin
156
157
158
159
160 If total_hours > 0
161 then
162 hold_result := billable_hours / total_hours * 100;
163 return(hold_result);
164 else
165 return(0);
166 End if;
167
168
169
170 end;
171
172 Function cal_util return NUMBER is
173
174 Begin
175 null;
176
177
178 END;
179
180 function c_project_utilizationformula(c_project_tot_hours in number, c_project_tot_billable in number) return number is
181 hold_project_util number;
182
183 Begin
184
185 If c_project_tot_hours > 0
186 then
187 hold_project_util :=
188 c_project_tot_billable / c_project_tot_hours * 100;
189 return(hold_project_util);
190 else
191 return(0);
192 End if;
193 end;
194
195 function cal_project_util return NUMBER is
196
197 Begin
198
199 null;
200 End;
201
202 function cal_org_util return NUMBER is
203
204 Begin
205
206 null;
207
208 End;
209
210 function c_org_utilizationformula(c_org_tot_hours in number, c_org_tot_billable in number) return number is
211
212 hold_org_util number;
213
214 Begin
215
216
217
218
219 If c_org_tot_hours > 0
220 then
221 hold_org_util :=
222 c_org_tot_billable / c_org_tot_hours * 100;
223 return(hold_org_util);
224 else
225 return(0);
226 End if;
227
228
229
230 end;
231
232 function AfterReport return boolean is
233 begin
234
235 Begin
236 Rollback;
237 End;
238 /*srw.user_exit('FND SRWEXIT');*/null;
239
240 return (TRUE);
241 end;
242
243 Function no_data_found_func return boolean is
244 message_name VARCHAR2(80);
245 begin
246 select meaning into message_name from pa_lookups
247 where lookup_type = 'MESSAGE'
248 and lookup_code = 'NO_DATA_FOUND';
249 c_no_data_found := message_name;
250 return(TRUE);
251 EXCEPTION
252 WHEN OTHERS THEN
253 RETURN(FALSE);
254 END;
255
256 function G_emp_detGroupFilter return boolean is
257 begin
258
259 If display_detail = 'Y'
260 then
261 return(TRUE);
262 else
263 return(FALSE);
264 end if;
265 return (TRUE);
266 end;
267
268 function G_emp_detailGroupFilter return boolean is
269 begin
270
271 If display_detail = 'Y'
272 then
273 return(TRUE);
274 else
275 return(FALSE);
276 end if;
277 return (TRUE);
278 end;
279
280 --Functions to refer Oracle report placeholders--
281
282 Function C_COMPANY_NAME_HEADER_p return varchar2 is
283 Begin
284 return C_COMPANY_NAME_HEADER;
285 END;
286 Function C_org_name_p return varchar2 is
287 Begin
288 return C_org_name;
289 END;
290 Function C_employee_name_p return varchar2 is
291 Begin
292 return C_employee_name;
293 END;
294 Function C_no_data_found_p return varchar2 is
295 Begin
296 return C_no_data_found;
297 END;
298 Function C_display_details_p return varchar2 is
299 Begin
300 return C_display_details;
301 END;
302 END PA_PAXEMRAO_XMLP_PKG ;
303