[Home] [Help]
PACKAGE BODY: APPS.PA_PAXAUMTC_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXAUMTC_XMLP_PKG AS
2 /* $Header: PAXAUMTCB.pls 120.0 2008/01/02 11:18:34 krreddy noship $ */
3 FUNCTION get_cover_page_values RETURN BOOLEAN IS
4
5 BEGIN
6
7 RETURN(TRUE);
8
9 EXCEPTION
10 WHEN OTHERS THEN
11 RETURN(FALSE);
12
13 END;
14
15 function BeforeReport return boolean is
16 begin
17
18 Declare
19 msg varchar2(2000);
20 init_failure exception;
21 hold_employee_name VARCHAR2(40);
22 p_date_lo date;
23 p_date_hi date;
24 code VARCHAR2(80);
25 org_name hr_organization_units.name%TYPE;
26 person_name VARCHAR2(30);
27 start_day NUMBER;
28
29 BEGIN
30
31
32
33 /*srw.user_exit('FND SRWINIT');*/null;
34
35
36
37 /*srw.user_exit('FND GETPROFILE
38 NAME="PA_RULE_BASED_OPTIMIZER"
39 FIELD=":p_rule_optimizer"
40 PRINT_ERROR="N"');*/null;
41
42
43
44
45
46
47
48 /*srw.user_exit('FND GETPROFILE
49 NAME="PA_DEBUG_MODE"
50 FIELD=":p_debug_mode"
51 PRINT_ERROR="N"');*/null;
52
53
54
55
56
57
58
59 If employee_id is not null
60 then
61 select substr(full_name,1,40)
62 into hold_employee_name
63 from per_people_f
64 where person_id = employee_id
65 and ((sysdate between effective_start_date
66 and nvl(effective_end_date,sysdate + 1))
67 or (effective_start_date > sysdate))
68 and (employee_number IS NOT NULL or npw_number IS NOT NULL);
69 end if;
70 c_employee_name := hold_employee_name;
71
72 IF incurred_org is not null then
73 select substr(name,1,30)
74 into org_name from
75 hr_organization_units
76 where organization_id = incurred_org;
77 END IF;
78 c_incurred_org := org_name;
79
80 IF supervisor is not null then
81 select substr(full_name,1,30)
82 into person_name
83 from per_people_f
84 where person_id = supervisor
85 and ((sysdate between effective_start_date
86 and nvl(effective_end_date,sysdate + 1))
87 or (effective_start_date > sysdate))
88 and (employee_number IS NOT NULL or npw_number IS NOT NULL);
89
90 ELSE
91 select '' into person_name from dual;
92 END IF;
93 c_supervisor := person_name;
94
95
96
97 c_date_lo := date_lo;
98 c_date_hi := date_hi;
99
100
101 IF (get_company_name <> TRUE) THEN RAISE init_failure;
102 END IF;
103
104 EXCEPTION
105 WHEN OTHERS THEN
106 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
107
108 END;
109 return (TRUE);
110 end;
111
112 FUNCTION get_company_name RETURN BOOLEAN IS
113 l_name gl_sets_of_books.name%TYPE;
114 BEGIN
115 SELECT gl.name
116 INTO l_name
117 FROM gl_sets_of_books gl,pa_implementations pi
118 WHERE gl.set_of_books_id = pi.set_of_books_id;
119
120 c_company_name_header := l_name;
121
122 RETURN (TRUE);
123
124 EXCEPTION
125
126 WHEN OTHERS THEN
127 RETURN (FALSE);
128
129 END;
130
131 function AfterReport return boolean is
132 begin
133
134 BEGIN
135 /*srw.user_exit('FND SRWEXIT');*/null;
136
137 END; return (TRUE);
138 end;
139
140 function AfterPForm return boolean is
141
142 l_start_date varchar2(11);
143 l_end_date varchar2(11) ;
144 l_dummy_date varchar2(11);
145 l_dt_format varchar2(40) := 'dd-mon-rrrr';
146 begin
147 /*srw.user_exit('FND SRWINIT');*/null;
148
149 l_start_date := pa_utils.getweekending(date_lo);
150 l_end_date := pa_utils.getweekending(date_hi);
151 l_dummy_date := l_start_date;
152 if to_date(l_end_date, l_dt_format) > to_date(date_hi, l_dt_format) then
153 l_end_date := to_date(l_end_date, l_dt_format) - 7;
154 end if ;
155 while to_date(l_dummy_date, l_dt_format) <= to_date(l_end_date, l_dt_format)
156 loop
157 where_stmt := where_stmt||' union select to_date('||''''||l_dummy_date||''''|| ','||''''||l_dt_format||''''|| ') from dual';
158 l_dummy_date := to_date(l_dummy_date,l_dt_format) + 7;
159 end loop;
160 where_stmt := where_stmt || ' minus select distinct to_date(expenditure_ending_date,'||''''||l_dt_format||''''||') from pa_expenditures where expenditure_ending_date between :date_lo and :date_hi and expenditure_class_code in (' || ''''
161 || 'PT' || '''' || ',' || '''' || 'OT' || '''' || ') order by 1' ;
162 return (TRUE);
163 end;
164
165 --Functions to refer Oracle report placeholders--
166
167 Function C_COMPANY_NAME_HEADER_p return varchar2 is
168 Begin
169 return C_COMPANY_NAME_HEADER;
170 END;
171 Function C_employee_name_p return varchar2 is
172 Begin
173 return C_employee_name;
174 END;
175 Function C_date_lo_p return date is
176 Begin
177 return C_date_lo;
178 END;
179 Function C_date_hi_p return date is
180 Begin
181 return C_date_hi;
182 END;
183 Function C_incurred_org_p return varchar2 is
184 Begin
185 return C_incurred_org;
186 END;
187 Function C_supervisor_p return varchar2 is
188 Begin
189 return C_supervisor;
190 END;
191 END PA_PAXAUMTC_XMLP_PKG ;