1 PACKAGE BODY PA_PAXPCTCE_XMLP_PKG AS
2 /* $Header: PAXPCTCEB.pls 120.2 2008/01/03 12:15:04 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(240);
22 org_name hr_organization_units.name%TYPE;
23
24 BEGIN
25 DATE_LOW_1:=to_char(DATE_LOW,'DD-MON-YY');
26 DATE_HIGH_1:=to_char(DATE_HIGH,'DD-MON-YY');
27 /*srw.user_exit('FND SRWINIT');*/null;
28
29 /*srw.message(1,'Satyen This is ur report');*/null;
30
31 /*srw.user_exit('FND GETPROFILE
32 NAME="PA_RULE_BASED_OPTIMIZER"
33 FIELD=":p_rule_optimizer"
34 PRINT_ERROR="N"');*/null;
35
36
37
38
39
40 IF incurred_org is not null then
41 select substr(name,1,30)
42 into org_name from
43 hr_organization_units
44 where organization_id = incurred_org;
45 END IF;
46 c_incurred_org := org_name;
47
48
49 If employee_id is not null
50 then
51 select full_name
52 into hold_employee_name
53 from per_people_f
54 where person_id = PA_PAXPCTCE_XMLP_PKG.employee_id
55 and sysdate between effective_start_date
56 and nvl(effective_end_date,sysdate + 1)
57 and ( employee_number IS NOT NULL or npw_number IS NOT NULL);
58
59 c_employee_name := substr(hold_employee_name,1,80);
60 end if;
61
62
63 IF (get_company_name <> TRUE) THEN RAISE init_failure;
64 END IF;
65 EXCEPTION
66 WHEN OTHERS THEN
67 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
68
69 END; return (TRUE);
70 end;
71
72 FUNCTION get_company_name RETURN BOOLEAN IS
73 l_name gl_sets_of_books.name%TYPE;
74 BEGIN
75 SELECT gl.name
76 INTO l_name
77 FROM gl_sets_of_books gl,pa_implementations pi
78 WHERE gl.set_of_books_id = pi.set_of_books_id;
79
80 c_company_name_header := l_name;
81
82 RETURN (TRUE);
83
84 EXCEPTION
85
86 WHEN OTHERS THEN
87 RETURN (FALSE);
88
89 END;
90
91 function c_billable_timeformula(c_hours in number, c_billable_hour in number) return number is
92 temp_value number := 0;
93 begin
94 if c_hours <> 0 then
95 temp_value := round((nvl(c_billable_hour,0)/c_hours)
96 ,4) * 100;
97 end if;
98 return(temp_value);
99 end;
100
101 function BeforePForm return boolean is
102 begin
103
104 return (TRUE);
105 end;
106
107 function AfterPForm return boolean is
108 begin
109
110 return (TRUE);
111 end;
112
113 function BetweenPage return boolean is
114 begin
115
116 return (TRUE);
117 end;
118
119 function AfterReport return boolean is
120 begin
121
122 /*srw.user_exit('FND SRWEXIT') ;*/null;
123
124 return (TRUE);
125 end;
126
127 --Functions to refer Oracle report placeholders--
128
129 Function C_COMPANY_NAME_HEADER_p return varchar2 is
130 Begin
131 return C_COMPANY_NAME_HEADER;
132 END;
133 Function C_employee_name_p return varchar2 is
134 Begin
135 return C_employee_name;
136 END;
137 Function C_INCURRED_ORG_p return varchar2 is
138 Begin
139 return C_INCURRED_ORG;
140 END;
141 END PA_PAXPCTCE_XMLP_PKG ;
142