1 PACKAGE BODY PA_PAXRWPTY_XMLP_PKG AS
2 /* $Header: PAXRWPTYB.pls 120.0 2008/01/02 12:14:11 krreddy noship $ */
3
4 FUNCTION get_company_name RETURN BOOLEAN IS
5 l_name gl_sets_of_books.name%TYPE;
6 BEGIN
7 SELECT gl.name
8 INTO l_name
9 FROM gl_sets_of_books gl,pa_implementations pi
10 WHERE gl.set_of_books_id = pi.set_of_books_id;
11
12 c_company_name_header := l_name;
13
14 RETURN (TRUE);
15
16 EXCEPTION
17
18 WHEN OTHERS THEN
19 RETURN (FALSE);
20
21 END;
22
23 function BeforeReport return boolean is
24 begin
25
26
27 declare
28 init_error exception;
29 begin
30 /*srw.user_exit('FND SRWINIT');*/null;
31
32
33 if ( get_company_name <> TRUE ) then
34 raise init_error;
35 end if;
36
37 IF (no_data_found_func <> TRUE) THEN
38 RAISE init_error;
39 END IF;
40
41
42 end; return (TRUE);
43 end;
44
45 Function NO_DATA_FOUND_FUNC RETURN BOOLEAN IS
46 message_name VARCHAR2(80);
47 BEGIN
48 select
49 meaning
50 into
51 message_name
52 from
53 pa_lookups
54 where
55 lookup_type = 'MESSAGE'
56 and lookup_code = 'NO_DATA_FOUND';
57 c_no_data_found := message_name;
58 RETURN(TRUE);
59 EXCEPTION
60 when others then
61 RETURN(FALSE);
62 END;
63
64 function c_desc1formula(cbemc in varchar2) return varchar2 is
65 begin
66
67 return(get_budget_code_desc(cbemc));
68
69 end;
70
71 Function get_budget_code_desc (code in VARCHAR2) return VARCHAR2 is
72 desc1 varchar2(255);
73 cursor c is
74 select description
75 from pa_budget_entry_methods
76 where budget_entry_method_code = code;
77 begin
78 open c;
79 fetch c into desc1;
80 close c;
81 return (desc1);
82 exception
83 when others then
84 null;
85 end ;
86
87 function c_desc2formula(rbemc in varchar2) return varchar2 is
88 begin
89 return(get_budget_code_desc(rbemc));
90 end;
91
92 function get_resource_name (list_id number) return VARCHAR2 is
93 name varchar2(255);
94 cursor c is
95 select resource_list_name
96 from pa_resource_lists_active_v
97 where resource_list_id = list_id;
98 begin
99 open c;
100 fetch c into name;
101 close c;
102 return name;
103 exception
104 when others then
105 null;
106 end;
107
108 function c_desc3formula(cbrld in number) return varchar2 is
109 begin
110
111 return(get_resource_name(cbrld));
112
113
114
115 end;
116
117 function c_desc4formula(rbrld in number) return varchar2 is
118 begin
119
120 return(get_resource_name(rbrld));
121 end;
122
123 function c_desc5formula(drli in number) return varchar2 is
124 begin
125
126 return(get_resource_name(drli));
127 end;
128
129 function get_meaning (type in VARCHAR2,code in VARCHAR2) return VARCHAR2 is
130 v_meaning varchar2(80);
131 cursor c is
132 select meaning
133 from pa_lookups
134 where lookup_type = type
135 and lookup_code = code;
136 begin
137 open c;
138 fetch c into v_meaning;
139 close c;
140 return v_meaning;
141 exception
142 when others then
143 null;
144 end;
145
146 function c_desc6formula(ptcc in varchar2) return varchar2 is
147 begin
148
149 return(get_meaning('PROJECT TYPE CLASS',ptcc));
150 end;
151
152 function c_desc7formula(cctc in varchar2) return varchar2 is
153 begin
154
155 return(get_meaning('CAPITAL COST TYPE',cctc));
156 end;
157
158 function c_desc8formula(cgmc in varchar2) return varchar2 is
159 begin
160
161 return(get_meaning('CIP GROUPING METHOD',cgmc));
162 end;
163
164 function c_desc9formula(icaf in varchar2) return varchar2 is
165 begin
166
167 return(get_meaning('YES_NO',icaf));
168 end;
169
170 function cf_dest_project_idformula(burden_sum_dest_project_id in number) return varchar2 is
171 temp_proj_name VARCHAR2(25);
172 begin
173 IF burden_sum_dest_project_id IS NOT NULL THEN
174 SELECT segment1 INTO temp_proj_name FROM pa_projects
175 WHERE project_id = burden_sum_dest_project_id ;
176 RETURN temp_proj_name ;
177 END IF;
178 return burden_sum_dest_project_id;
179 end;
180
181 function cf_dest_task_nameformula(burden_sum_dest_task_id in number) return varchar2 is
182 temp_task_name VARCHAR2(20);
183 begin
184 IF burden_sum_dest_task_id IS NOT NULL THEN
185 SELECT task_name INTO temp_task_name FROM pa_tasks
186 WHERE task_id = burden_sum_dest_task_id ;
187 RETURN temp_task_name ;
188 END IF;
189 return (burden_sum_dest_task_id);
190 end;
191
192 function cf_burden_acc_flagformula(burden_account_flag in varchar2) return varchar2 is
193 temp_yesno VARCHAR2(40) :=null;
194 begin
195 IF burden_account_flag IS NOT NULL THEN
196 SELECT SUBSTR(meaning,1,40) INTO temp_yesno FROM fnd_lookups
197 WHERE lookup_type = 'YES_NO' AND lookup_code = burden_account_flag;
198 END IF;
199 RETURN temp_yesno ;
200 end;
201
202 function cf_bur_amt_disp_methformula(burden_amt_display_method in varchar2) return varchar2 is
203 temp_disp_meth VARCHAR2(40):=null;
204 begin
205 IF burden_amt_display_method IS NOT NULL THEN
206 SELECT SUBSTR(meaning,1,40) INTO temp_disp_meth FROM pa_lookups
207 WHERE lookup_type = 'BURDEN_ACCOUNTING'
208 AND lookup_code = burden_amt_display_method ;
209 END IF;
210 RETURN temp_disp_meth ;
211 end;
212
213 function CF_CURRENCY_CODEFormula return Char is
214 begin
215
216 return(pa_multi_currency.get_acct_currency_code);
217
218 end;
219
220 function AfterReport return boolean is
221 begin
222 /*srw.user_exit('FND SRWEXIT');*/null;
223
224 return (TRUE);
225 end;
226
227 function cf_baseline_fiunding_flagformu(baseline_funding_flag in varchar2) return char is
228 l_meaning varchar2(40):=NULL;
229 begin
230 if baseline_funding_flag IS NOT NULL then
231 select meaning into l_meaning from fnd_lookups
232 where lookup_type='YES_NO'
233 and lookup_code=baseline_funding_flag;
234 end if;
235 return l_meaning;
236 end;
237
238 function cf_revaluate_funding_flagformu(revaluate_funding_flag in varchar2) return char is
239 l_meaning varchar2(40):=NULL;
240 begin
241 if revaluate_funding_flag IS NOT NULL then
242 select meaning into l_meaning from fnd_lookups
243 where lookup_type='YES_NO'
244 and lookup_code=revaluate_funding_flag;
245 end if;
246 return l_meaning;
247 end;
248
249 function cf_include_gains_losses_flagfo(include_gains_losses_flag in varchar2) return char is
250 l_meaning varchar2(40):=NULL;
251 begin
252 if include_gains_losses_flag IS NOT NULL then
253 select meaning into l_meaning from fnd_lookups
254 where lookup_type='YES_NO'
255 and lookup_code=include_gains_losses_flag;
256 end if;
257 return l_meaning;
258 end;
259
260 --Functions to refer Oracle report placeholders--
261
262 Function C_Company_Name_Header_p return varchar2 is
263 Begin
264 return C_Company_Name_Header;
265 END;
266 Function C_no_data_found_p return varchar2 is
267 Begin
268 return C_no_data_found;
269 END;
270 END PA_PAXRWPTY_XMLP_PKG ;
271