1 PACKAGE BODY PA_PAXRWIMP_XMLP_PKG AS
2 /* $Header: PAXRWIMPB.pls 120.0 2008/01/02 11:58:07 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
31 /*srw.user_exit('FND SRWINIT');*/null;
32
33
34 if ( get_company_name <> TRUE ) then
35 raise init_error;
36 end if;
37 end;
38
39 /*srw.user_exit('FND GETPROFILE
40 NAME="PA_RULE_BASED_OPTIMIZER"
41 FIELD=":p_rule_optimizer"
42 PRINT_ERROR="N"');*/null;
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 return (TRUE);
58 end;
59
60 function get_meaning (type in VARCHAR2,code in VARCHAR2) return VARCHAR2 is
61 v_meaning varchar2(80);
62 cursor c is
63 select meaning
64 from pa_lookups
65 where lookup_type = type
66 and lookup_code = code;
67 begin
68 open c;
69 fetch c into v_meaning;
70 close c;
71 return v_meaning;
72
73 exception
74 when others then
75 return null;
76 end;
77
78 function c_descformula(glpa_type in varchar2) return varchar2 is
79 begin
80
81 return(get_meaning('ACCUMULATION PERIOD TYPE',glpa_type));
82 EXCEPTION
83 WHEN OTHERS THEN
84 RAISE;
85 end;
86
87 function cf_overtime_flagformula(overtime_flag in varchar2) return varchar2 is
88 tmp_over_flag VARCHAR2(80);
89 begin
90 IF overtime_flag IS NOT NULL THEN
91 SELECT meaning INTO tmp_over_flag
92 FROM fnd_lookups
93 WHERE lookup_type = 'YES_NO' AND lookup_code = overtime_flag ;
94 RETURN tmp_over_flag;
95 ELSE
96 RETURN NULL;
97 END IF;
98 EXCEPTION
99 WHEN OTHERS THEN
100 RAISE;
101 end;
102
103 function cf_iflabortoglformula(Iflabortogl in varchar2) return varchar2 is
104 tmp_labortogl VARCHAR2(80);
105 begin
106 IF Iflabortogl IS NOT NULL THEN
107 SELECT meaning INTO tmp_labortogl
108 FROM fnd_lookups
109 WHERE lookup_type = 'YES_NO' AND lookup_code = Iflabortogl ;
110 RETURN tmp_labortogl;
111 ELSE
112 RETURN NULL;
113 END IF;
114 EXCEPTION
115 WHEN OTHERS THEN
116 RAISE;
117 end;
118
119 function cf_ifrevtoglformula(Ifrevenuetogl in varchar2) return varchar2 is
120 tmp_ifrevtogl VARCHAR2(80);
121 begin
122 IF Ifrevenuetogl IS NOT NULL THEN
123 SELECT meaning INTO tmp_ifrevtogl
124 FROM fnd_lookups
125 WHERE lookup_type = 'YES_NO' AND lookup_code = ifrevenuetogl ;
126 RETURN tmp_ifrevtogl;
127 ELSE
128 RETURN NULL;
129 END IF;
130 EXCEPTION
131 WHEN OTHERS THEN
132 RAISE;
133 end;
134
135 function cf_ifusgtoglformula(ifusagetogl in varchar2) return varchar2 is
136 tmp_ifusgtogl VARCHAR2(80);
137 begin
138 IF ifusagetogl IS NOT NULL THEN
139 SELECT meaning INTO tmp_ifusgtogl
140 FROM fnd_lookups
141 WHERE lookup_type = 'YES_NO' AND lookup_code = ifusagetogl ;
142 RETURN tmp_ifusgtogl;
143 ELSE
144 RETURN NULL;
145 END IF;
146 EXCEPTION
147 WHEN OTHERS THEN
148 RAISE;
149 end;
150
151 function cf_cen_inv_collformula(centralized_invoicing_flag in varchar2) return varchar2 is
152 tmp_ceninvcoll VARCHAR2(80);
153 begin
154 IF centralized_invoicing_flag IS NOT NULL THEN
155 SELECT meaning INTO tmp_ceninvcoll
156 FROM fnd_lookups
157 WHERE lookup_type = 'YES_NO' AND lookup_code =
158 centralized_invoicing_flag ;
159 RETURN tmp_ceninvcoll;
160 ELSE
161 RETURN NULL;
162 END IF;
163 EXCEPTION
164 WHEN OTHERS THEN
165 RAISE;
166 end;
167
168 function cf_ifretnaccformul(Ifretnacc in varchar2) return varchar2 is
169 tmp_ifretnacc VARCHAR2(80);
170 begin
171 IF Ifretnacc IS NOT NULL THEN
172 SELECT meaning INTO tmp_ifretnacc
173 FROM fnd_lookups
174 WHERE lookup_type = 'YES_NO' AND lookup_code = ifretnacc ;
175 RETURN tmp_ifretnacc;
176 ELSE
177 RETURN NULL;
178 END IF;
179 EXCEPTION
180 WHEN OTHERS THEN
181 RAISE;
182 end;
183
184 function cf_mrc_for_fundformula(mrc_for_fund in varchar2) return char is
185 tmp_over_flag VARCHAR2(80);
186 begin
187 IF mrc_for_fund IS NOT NULL THEN
188 SELECT meaning INTO tmp_over_flag
189 FROM fnd_lookups
190 WHERE lookup_type = 'YES_NO'
191 AND lookup_code = DECODE(mrc_for_fund,'U','Y', mrc_for_fund);
192 RETURN tmp_over_flag;
193 ELSE
194 RETURN NULL;
195 END IF;
196 EXCEPTION
197 WHEN OTHERS THEN
198 RAISE;
199 end;
200
201 function cf_reval_mrc_fundformula(reval_mrc_fund in varchar2) return char is
202 tmp_over_flag VARCHAR2(80);
203 begin
204 IF reval_mrc_fund IS NOT NULL THEN
205 SELECT meaning INTO tmp_over_flag
206 FROM fnd_lookups
207 WHERE lookup_type = 'YES_NO'
208 AND lookup_code = DECODE(reval_mrc_fund,'U','Y', reval_mrc_fund);
209 RETURN tmp_over_flag;
210 ELSE
211 RETURN NULL;
212 END IF;
213 EXCEPTION
214 WHEN OTHERS THEN
215 RAISE;
216 end;
217
218 function cf_mrc_for_finplanformula(mrc_for_finplan in varchar2) return char is
219 tmp_over_flag VARCHAR2(80);
220 begin
221 IF mrc_for_finplan IS NOT NULL THEN
222 SELECT meaning INTO tmp_over_flag
223 FROM fnd_lookups
224 WHERE lookup_type = 'YES_NO'
225 AND lookup_code = DECODE(mrc_for_finplan,'U','Y', mrc_for_finplan) ;
226 RETURN tmp_over_flag;
227 ELSE
228 RETURN NULL;
229 END IF;
230 EXCEPTION
231 WHEN OTHERS THEN
232 RAISE;
233 end;
234
235 function cf_ingainlossformula(ingainloss in varchar2) return char is
236 tmp_over_flag VARCHAR2(80);
237 begin
238 IF ingainloss IS NOT NULL THEN
239 SELECT meaning INTO tmp_over_flag
240 FROM fnd_lookups
241 WHERE lookup_type = 'YES_NO' AND lookup_code = ingainloss ;
242 RETURN tmp_over_flag;
243 ELSE
244 RETURN NULL;
245 END IF;
246 EXCEPTION
247 WHEN OTHERS THEN
248 RAISE;
249 end;
250
251 function cf_exch_rate_typeformula(exch_rate_type in varchar2) return char is
252 tmp_exchrate VARCHAR2(80);
253 begin
254 IF exch_rate_type IS NOT NULL THEN
255 SELECT user_conversion_type INTO tmp_exchrate
256 FROM pa_conversion_types_v
257 WHERE conversion_type = exch_rate_type;
258 RETURN tmp_exchrate;
259 ELSE
260 RETURN NULL;
261 END IF;
262 EXCEPTION
263 WHEN OTHERS THEN
264 RAISE;
265 end;
266
267 function cf_customer_relationformula(cust_acc_rel_code in varchar2) return char is
268 tmp_over_flag VARCHAR2(80);
269
270 begin
271 IF cust_acc_rel_code IS NOT NULL THEN
272 SELECT meaning INTO tmp_over_flag
273 FROM pa_lookups
274 WHERE lookup_type = 'PA_CUST_ACC_REL_CODE'
275 AND lookup_code = cust_acc_rel_code;
276
277 RETURN tmp_over_flag;
278
279 ELSE
280 RETURN NULL;
281 END IF;
282 EXCEPTION
283 WHEN OTHERS THEN
284 RAISE;
285 end;
286
287
288
289 function cf_credit_memoformula(credit_memo_reason_flag in varchar2) return char is
290 temp fnd_lookups.meaning%TYPE;
291 begin
292 IF credit_memo_reason_flag IS NOT NULL THEN
293 SELECT meaning
294 INTO temp
295 FROM fnd_lookups
296 WHERE lookup_type = 'YES_NO'
297 AND lookup_code = credit_memo_reason_flag;
298 END IF;
299
300 RETURN temp;
301
302 end;
303
304 function AfterReport return boolean is
305 begin
306
307 /*srw.user_exit('FND SRWEXIT') ;*/null;
308
309 return (TRUE);
310 end;
311
312 --Functions to refer Oracle report placeholders--
313
314 Function C_Company_Name_Header_p return varchar2 is
315 Begin
316 return C_Company_Name_Header;
317 END;
318 END PA_PAXRWIMP_XMLP_PKG ;
319