[Home] [Help]
PACKAGE BODY: APPS.PER_PERRPPSM_XMLP_PKG
Source
1 PACKAGE BODY PER_PERRPPSM_XMLP_PKG AS
2 /* $Header: PERRPPSMB.pls 120.1 2007/12/06 11:29:43 amakrish noship $ */
3
4 function BeforeReport return boolean is
5 l_date_format varchar2(20):='DD-MON-YYYY';
6 begin
7
8 --c_end_of_time := hr_general.end_of_time;
9 c_end_of_time :=to_char(to_date(hr_general.end_of_time,l_date_format),'YYYY-MM-DD');
10
11 declare
12 v_name varchar2(382);
13 begin
14
15
16 --hr_standard.event('BEFORE REPORT');
17
18 /*srw.message('001','start');*/null;
19
20
21 c_business_group_name :=
22 hr_reports.get_business_group(p_business_group_id);
23 /*srw.message('002','bg');*/null;
24
25 P_SESSION_DATE1:=TO_CHAR(P_SESSION_DATE,'DD-MON-YYYY');
26 select peo.first_name ||
27 decode(peo.first_name,null,null,' ') ||
28 peo.last_name
29 into v_name
30 from per_all_people_f peo
31 where peo.person_id = p_person_id
32 and p_session_date between peo.effective_start_date
33 and peo.effective_end_date;
34 c_header_name := v_name;
35 /*srw.message('003','name');*/null;
36
37 end;
38
39
40 select org_information10
41 into c_currency_code
42 from hr_organization_information
43 where organization_id = p_business_group_id
44 and org_information_context = 'Business Group Information';
45
46
47 null;
48
49
50 return (TRUE);
51 end;
52
53 function c_get_flexformula(style in varchar2) return number is
54 begin
55
56 declare
57 v_title varchar2(240);
58 v_label_expr varchar2(2000);
59 v_column_expr varchar2(2000);
60
61 v_aol_seperator_flag boolean := false;
62
63 begin
64
65 hr_reports.get_dvlpr_desc_flex(
66 'PER'
67 ,'Address Structure'
68 ,style
69 ,'ADD1'
70 ,v_aol_seperator_flag
71 ,v_title
72 ,v_label_expr
73 ,v_column_expr
74 );
75
76 c_details := v_column_expr;
77
78 return(0);
79
80 end;
81
82 RETURN NULL; end;
83
84 function c_address_copyformula(conc_address in varchar2) return varchar2 is
85 begin
86
87 return conc_address;
88 end;
89
90 function c_split_flexformula(c_address_copy in varchar2) return number is
91 begin
92
93 declare
94
95 v_segments_used NUMBER(10);
96 v_value1 VARCHAR2(240);
97 v_value2 VARCHAR2(240);
98 v_value3 VARCHAR2(240);
99 v_value4 VARCHAR2(240);
100 v_value5 VARCHAR2(240);
101 v_value6 VARCHAR2(240);
102 v_value7 VARCHAR2(240);
103 v_value8 VARCHAR2(240);
104 v_value9 VARCHAR2(240);
105 v_value10 VARCHAR2(240);
106 v_value11 VARCHAR2(240);
107 v_value12 VARCHAR2(240);
108 v_value13 VARCHAR2(240);
109 v_value14 VARCHAR2(240);
110 v_value15 VARCHAR2(240);
111 v_value16 VARCHAR2(240);
112 v_value17 VARCHAR2(240);
113 v_value18 VARCHAR2(240);
114 v_value19 VARCHAR2(240);
115 v_value20 VARCHAR2(240);
116 v_value21 VARCHAR2(240);
117 v_value22 VARCHAR2(240);
118 v_value23 VARCHAR2(240);
119 v_value24 VARCHAR2(240);
120 v_value25 VARCHAR2(240);
121 v_value26 VARCHAR2(240);
122 v_value27 VARCHAR2(240);
123 v_value28 VARCHAR2(240);
124 v_value29 VARCHAR2(240);
125 v_value30 VARCHAR2(240);
126
127 v_aol_seperator_flag boolean := false;
128
129 begin
130 /*srw.message('001','addr='||c_address_copy);*/null;
131
132 hr_reports.get_attributes(
133 c_address_copy,
134 'Address Structure',
135 v_aol_seperator_flag,
136 v_segments_used,
137 v_value1,
138 v_value2,
139 v_value3,
140 v_value4,
141 v_value5,
142 v_value6,
143 v_value7,
144 v_value8,
145 v_value9,
146 v_value10,
147 v_value11,
148 v_value12,
149 v_value13,
150 v_value14,
151 v_value15,
152 v_value16,
153 v_value17,
154 v_value18,
155 v_value19,
156 v_value20,
157 v_value21,
158 v_value22,
159 v_value23,
160 v_value24,
161 v_value25,
162 v_value26,
163 v_value27,
164 v_value28,
165 v_value29,
166 v_value30);
167
168 c_address1 := v_value1;
169 c_address2 := v_value2;
170 c_address3 := v_value3;
171 c_address4 := v_value4;
172 c_address5 := v_value5;
173 c_address6 := v_value6;
174 c_address7 := v_value7;
175 c_address8 := v_value8;
176 c_address9 := v_value9;
177 c_address10 := v_value10;
178 c_address11 := v_value11;
179 c_address12 := v_value12;
180 c_address13 := v_value13;
181 c_address14 := v_value14;
182 c_address15 := v_value15;
183 c_address16 := v_value16;
184 c_address17 := v_value17;
185 c_address18 := v_value18;
186 c_address19 := v_value19;
187 c_address20 := v_value20;
188
189 if c_address7 = 'GB' and c_address5 is not null then select meaning
190 into c_address5
191 from fnd_common_lookups
192 where lookup_type = 'GB_COUNTY'
193 and lookup_code = c_address5;
194 end if;
195
196 return(0);
197
198 end;
199
200 RETURN NULL; end;
201
202 function c_get_cont_flexformula(style1 in varchar2) return number is
203 begin
204
205 declare
206 v_title varchar2(240);
207 v_label_expr varchar2(20000);
208 v_column_expr varchar2(20000);
209 begin
210 hr_reports.get_dvlpr_desc_flex('PER','Address Structure',style1,
211 'ADD1',v_title,v_label_expr,v_column_expr);
212 c_cont_details := v_column_expr;
213 end;
214
215 RETURN NULL; end;
216
217 function c_cont_copyformula(conc_cont_address in varchar2) return varchar2 is
218 begin
219
220 return conc_cont_address;
221 end;
222
223 function c_cont_split_flexformula(c_cont_copy in varchar2) return number is
224 begin
225
226 declare
227
228 v_segments_used NUMBER;
229 v_value1 VARCHAR2(240);
230 v_value2 VARCHAR2(240);
231 v_value3 VARCHAR2(240);
232 v_value4 VARCHAR2(240);
233 v_value5 VARCHAR2(240);
234 v_value6 VARCHAR2(240);
235 v_value7 VARCHAR2(240);
236 v_value8 VARCHAR2(240);
237 v_value9 VARCHAR2(240);
238 v_value10 VARCHAR2(240);
239 v_value11 VARCHAR2(240);
240 v_value12 VARCHAR2(240);
241 v_value13 VARCHAR2(240);
242 v_value14 VARCHAR2(240);
243 v_value15 VARCHAR2(240);
244 v_value16 VARCHAR2(240);
245 v_value17 VARCHAR2(240);
246 v_value18 VARCHAR2(240);
247 v_value19 VARCHAR2(240);
248 v_value20 VARCHAR2(240);
249 v_value21 VARCHAR2(240);
250 v_value22 VARCHAR2(240);
251 v_value23 VARCHAR2(240);
252 v_value24 VARCHAR2(240);
253 v_value25 VARCHAR2(240);
254 v_value26 VARCHAR2(240);
255 v_value27 VARCHAR2(240);
256 v_value28 VARCHAR2(240);
257 v_value29 VARCHAR2(240);
258 v_value30 VARCHAR2(240);
259
260 begin
261 hr_reports.get_attributes(
262 c_cont_copy,
263 'Address Structure',
264 v_segments_used,
265 v_value1,
266 v_value2,
267 v_value3,
268 v_value4,
269 v_value5,
270 v_value6,
271 v_value7,
272 v_value8,
273 v_value9,
274 v_value10,
275 v_value11,
276 v_value12,
277 v_value13,
278 v_value14,
279 v_value15,
280 v_value16,
281 v_value17,
282 v_value18,
283 v_value19,
284 v_value20,
285 v_value21,
286 v_value22,
287 v_value23,
288 v_value24,
289 v_value25,
290 v_value26,
291 v_value27,
292 v_value28,
293 v_value29,
294 v_value30);
295
296 c_cont_address1 := v_value1;
297 c_cont_address2 := v_value2;
298 c_cont_address3 := v_value3;
299 c_cont_address4 := v_value4;
300 c_cont_address5 := v_value5;
301 c_cont_address6 := v_value6;
302 c_cont_address6 := v_value6;
303 c_cont_address7 := v_value7;
304 c_cont_address8 := v_value8;
305 c_cont_address9 := v_value9;
306 c_cont_address10 := v_value10;
307 c_cont_address11 := v_value11;
308 c_cont_address12 := v_value12;
309 c_cont_address13 := v_value13;
310 c_cont_address14 := v_value14;
311 c_cont_address15 := v_value15;
312 c_cont_address16 := v_value16;
313 c_cont_address17 := v_value17;
314 c_cont_address18 := v_value18;
315 c_cont_address19 := v_value19;
316 c_cont_address20 := v_value20;
317
318 return(0);
319
320 end;
321
322 RETURN NULL; end;
323
324 function C_SPECIAL_INFO_SEGSFormula return Number is
325 begin
326
327
328
329 return(0);
330
331 end;
332
333 function add_line(p_add_line varchar2)
334 return BOOLEAN is
335 begin
336 if p_add_line is null then
337 return(FALSE);
338 else
339 return(TRUE);
340 end if;
341 RETURN NULL; end;
342
343 function set_pay_meth_count(p_assignment_id in number) return number is
344 v_count number;
345 begin
346 select count(*)
347 into v_count
348 from pay_personal_payment_methods_f ppm
349 , pay_org_payment_methods_f opm
350 , pay_payment_types pt
351 where ppm.business_group_id = p_business_group_id
352 and ppm.assignment_id = p_assignment_id
353 and p_session_date between ppm.effective_start_date
354 and ppm.effective_end_date
355 and p_session_date between opm.effective_start_date
356 and opm.effective_end_date
357 and ppm.org_payment_method_id = opm.org_payment_method_id
358 and opm.payment_type_id = pt.payment_type_id;
359 return( v_count);
360 end;
361
362 function C_PAY_METH2Formula (assignment_id in number)return Number is
363 begin
364
365 return(set_pay_meth_count(assignment_id) );
366 end;
367
368 function AfterReport return boolean is
369 begin
370
371 --hr_standard.event('AFTER REPORT');
372
373 return (TRUE);
374 end;
375
376 --Functions to refer Oracle report placeholders--
377
378 Function C_address1_p return varchar2 is
379 Begin
380 return C_address1;
381 END;
382 Function C_address2_p return varchar2 is
383 Begin
384 return C_address2;
385 END;
386 Function C_address3_p return varchar2 is
387 Begin
388 return C_address3;
389 END;
390 Function C_address4_p return varchar2 is
391 Begin
392 return C_address4;
393 END;
394 Function C_address5_p return varchar2 is
395 Begin
396 return C_address5;
397 END;
398 Function C_address6_p return varchar2 is
399 Begin
400 return C_address6;
401 END;
402 Function C_address7_p return varchar2 is
403 Begin
404 return C_address7;
405 END;
406 Function C_address8_p return varchar2 is
407 Begin
408 return C_address8;
409 END;
410 Function C_address9_p return varchar2 is
411 Begin
412 return C_address9;
413 END;
414 Function C_address10_p return varchar2 is
415 Begin
416 return C_address10;
417 END;
418 Function C_address11_p return varchar2 is
419 Begin
420 return C_address11;
421 END;
422 Function C_address12_p return varchar2 is
423 Begin
424 return C_address12;
425 END;
426 Function C_address13_p return varchar2 is
427 Begin
428 return C_address13;
429 END;
430 Function C_address14_p return varchar2 is
431 Begin
432 return C_address14;
433 END;
434 Function C_address15_p return varchar2 is
435 Begin
436 return C_address15;
437 END;
438 Function C_address16_p return varchar2 is
439 Begin
440 return C_address16;
441 END;
442 Function C_address17_p return varchar2 is
443 Begin
444 return C_address17;
445 END;
446 Function C_address18_p return varchar2 is
447 Begin
448 return C_address18;
449 END;
450 Function C_address19_p return varchar2 is
451 Begin
452 return C_address19;
453 END;
454 Function C_address20_p return varchar2 is
455 Begin
456 return C_address20;
457 END;
458 Function C_cont_address1_p return varchar2 is
459 Begin
460 return C_cont_address1;
461 END;
462 Function C_cont_address2_p return varchar2 is
463 Begin
464 return C_cont_address2;
465 END;
466 Function C_cont_address3_p return varchar2 is
467 Begin
468 return C_cont_address3;
469 END;
470 Function C_cont_address4_p return varchar2 is
471 Begin
472 return C_cont_address4;
473 END;
474 Function C_cont_address5_p return varchar2 is
475 Begin
476 return C_cont_address5;
477 END;
478 Function C_cont_address6_p return varchar2 is
479 Begin
480 return C_cont_address6;
481 END;
482 Function C_cont_address7_p return varchar2 is
483 Begin
484 return C_cont_address7;
485 END;
486 Function C_cont_address8_p return varchar2 is
487 Begin
488 return C_cont_address8;
489 END;
490 Function C_cont_address9_p return varchar2 is
491 Begin
492 return C_cont_address9;
493 END;
494 Function C_cont_address10_p return varchar2 is
495 Begin
496 return C_cont_address10;
497 END;
498 Function C_cont_address11_p return varchar2 is
499 Begin
500 return C_cont_address11;
501 END;
502 Function C_cont_address12_p return varchar2 is
503 Begin
504 return C_cont_address12;
505 END;
506 Function C_cont_address13_p return varchar2 is
507 Begin
508 return C_cont_address13;
509 END;
510 Function C_cont_address14_p return varchar2 is
511 Begin
512 return C_cont_address14;
513 END;
514 Function C_cont_address15_p return varchar2 is
515 Begin
516 return C_cont_address15;
517 END;
518 Function C_cont_address16_p return varchar2 is
519 Begin
520 return C_cont_address16;
521 END;
522 Function C_cont_address17_p return varchar2 is
523 Begin
524 return C_cont_address17;
525 END;
526 Function C_cont_address18_p return varchar2 is
527 Begin
528 return C_cont_address18;
529 END;
530 Function C_cont_address19_p return varchar2 is
531 Begin
532 return C_cont_address19;
533 END;
534 Function C_cont_address20_p return varchar2 is
535 Begin
536 return C_cont_address20;
537 END;
538 Function C_BUSINESS_GROUP_NAME_p return varchar2 is
539 Begin
540 return C_BUSINESS_GROUP_NAME;
541 END;
542 Function C_details_p return varchar2 is
543 Begin
544 return C_details;
545 END;
546 Function C_cont_details_p return varchar2 is
547 Begin
548 return C_cont_details;
549 END;
550 Function C_requirement_desc_p return varchar2 is
551 Begin
552 return C_requirement_desc;
553 END;
554 Function C_requirement_value_p return varchar2 is
555 Begin
556 return C_requirement_value;
557 END;
558 Function C_header_name_p return varchar2 is
559 Begin
560 return C_header_name;
561 END;
562 Function C_pay_meth_count_p return number is
563 Begin
564 return C_pay_meth_count;
565 END;
566 Function C_END_OF_TIME_p return varchar2 is
567 Begin
568 return C_END_OF_TIME;
569 END;
570 Function C_currency_code_p return varchar2 is
571 Begin
572 return C_currency_code;
573 END;
574 END PER_PERRPPSM_XMLP_PKG ;