1 PACKAGE BODY PA_PAXPEAST_XMLP_PKG AS
2 /* $Header: PAXPEASTB.pls 120.1 2008/01/09 13:56:45 krreddy noship $ */
3 FUNCTION get_company_name RETURN BOOLEAN IS
4 l_name gl_sets_of_books.name%TYPE;
5 BEGIN
6 /* SELECT gl.name
7 INTO l_name
8 FROM gl_sets_of_books gl,pa_implementations pi
9 WHERE gl.set_of_books_id = pi.set_of_books_id;*/
10 select name
11 into l_name
12 from gl_sets_of_books
13 where set_of_books_id = fnd_profile.value('GL_SET_OF_BKS_ID');
14 c_company_name_header := l_name;
15 RETURN (TRUE);
16 EXCEPTION
17 WHEN OTHERS THEN
18 RETURN (FALSE);
19 END;
20 function BeforeReport return boolean is
21 begin
22 declare
23 init_error exception;
24 Org_Name hr_organization_units.name%TYPE;
25 Job_Name per_jobs.name%TYPE;
26 Sort_By_Meaning pa_lookups.meaning%TYPE;
27 begin
28 ORGANIZATION_ID_T:=ORGANIZATION_ID;
29 JOB_ID_T := JOB_ID;
30 /*srw.user_exit('FND SRWINIT');*/null;
31 if organization_id is not NULL then
32 select substrb(name,1,60) into Org_Name from
33 hr_organization_units
34 where
35 organization_id = ORGANIZATION_ID_T;
36 end if;
37 C_Org_Name := Org_Name;
38 if Job_id is not NULL then
39 select name into Job_Name from per_jobs
40 where
41 job_id = JOB_ID_T;
42 end if;
43 C_Job := Job_Name;
44 if SORT_BY is not NULL then
45 select meaning into Sort_By_Meaning from
46 pa_lookups
47 where lookup_code = SORT_BY and
48 lookup_type = 'ASSIGNMENT SORT BY';
49 end if;
50 C_Sort_By_Meaning := Sort_By_Meaning;
51 if ( get_company_name <> TRUE ) then
52 raise init_error;
53 end if;
54 end; return (TRUE);
55 end;
56 function BeforePForm return boolean is
57 begin
58 return (TRUE);
59 end;
60 function AfterPForm return boolean is
61 l_buffer Varchar2(2000) ;
62 begin
63 EFFECTIVE_DATE_1 := TO_CHAR(EFFECTIVE_DATE ,'DD-MON-YY');
64 If organization_id Is Not Null Then
65 l_buffer := l_buffer || ' AND a.organization_id = :organization_id ' ;
66 End If;
67 If job_id Is Not NUll Then
68 l_buffer := l_buffer || ' AND a.job_id = :job_id ' ;
69 End If;
70 If effective_date Is Not Null Then
71 l_buffer := l_buffer || ' AND :effective_date between a.effective_start_date and a.effective_end_date ' ;
72 l_buffer := l_buffer || ' AND :effective_date between p.effective_start_date and p.effective_end_date ' ;
73 else
74 l_buffer := l_buffer || ' AND sysdate between a.effective_start_date and a.effective_end_date ' ;
75 l_buffer := l_buffer || ' AND sysdate between p.effective_start_date and p.effective_end_date ' ;
76 End If;
77 If job_level is Not Null Then
78 l_buffer := l_buffer || ' AND jd.segment1 = :job_level ' ;
79 End If;
80 If job_discipline Is Not Null Then
81 l_buffer := l_buffer || ' AND jd.segment2 = :job_discipline ' ;
82 End If;
83 p_para_sql := l_buffer;
84 return (TRUE);
85 end;
86 function BetweenPage return boolean is
87 begin
88 return (TRUE);
89 end;
90 function AfterReport return boolean is
91 begin
92 /*srw.user_exit('FND SRWEXIT') ;*/null;
93 return (TRUE);
94 end;
95 --Functions to refer Oracle report placeholders--
96 Function C_Company_Name_Header_p return varchar2 is
97 Begin
98 return C_Company_Name_Header;
99 END;
100 Function C_Org_Name_p return varchar2 is
101 Begin
102 return C_Org_Name;
103 END;
104 Function C_Job_p return varchar2 is
105 Begin
106 return C_Job;
107 END;
108 Function C_Sort_By_Meaning_p return varchar2 is
109 Begin
110 return C_Sort_By_Meaning;
111 END;
112 END PA_PAXPEAST_XMLP_PKG ;
113