[Home] [Help]
PACKAGE BODY: APPS.PA_PAXEXCPS_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXEXCPS_XMLP_PKG AS
2 /* $Header: PAXEXCPSB.pls 120.0 2008/01/02 11:29:17 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 /*srw.user_exit('FND SRWINIT');*/null;
20
21
22 Declare
23 init_failure exception;
24 ndf VARCHAR2(80);
25 BEGIN
26
27 /*srw.user_exit('FND SRWINIT');*/null;
28
29
30 /*srw.user_exit('FND GETPROFILE
31 NAME="PA_DEBUG_MODE"
32 FIELD=":p_debug_mode"
33 PRINT_ERROR="N"');*/null;
34
35
36 /*srw.user_exit('FND GETPROFILE
37 NAME="PA_RULE_BASED_OPTIMIZER"
38 FIELD=":p_rule_optimizer"
39 PRINT_ERROR="N"');*/null;
40
41
42 /*srw.user_exit('FND GETPROFILE
43 NAME="CURRENCY:MIXED_PRECISION"
44 FIELD=":p_min_precision"
45 PRINT_ERROR="N"');*/null;
46
47
48 select nvl(paimp.org_id,-99) into org_id1 from pa_implementations paimp;
49
50
51
52
53
54
55
56
57
58 IF (get_company_name <> TRUE or get_ou_name <>true) THEN RAISE init_failure;
59 END IF;
60 select meaning into ndf from pa_lookups where
61 lookup_code = 'NO_DATA_FOUND' and
62 lookup_type = 'MESSAGE';
63 c_no_data_found := ndf;
64
65
66 if (calling_mode = 'PA') then
67
68 SELECT START_DATE
69 INTO START_DATE
70 FROM PA_PERIODS
71 WHERE PERIOD_NAME= PA_PAXEXCPS_XMLP_PKG.START_PERIOD;
72
73 SELECT END_DATE
74 INTO END_DATE
75 FROM PA_PERIODS
76 WHERE PERIOD_NAME= PA_PAXEXCPS_XMLP_PKG.END_PERIOD;
77
78 elsif (calling_mode = 'GL') then
79
80 SELECT START_DATE
81 INTO START_DATE
82 FROM GL_PERIOD_STATUSES gps, PA_IMPLEMENTATIONS imp
83 WHERE gps.PERIOD_NAME= START_PERIOD
84 AND gps.APPLICATION_ID = 8721
85 AND gps.SET_OF_BOOKS_ID = imp.set_of_books_id;
86
87 SELECT END_DATE
88 INTO END_DATE
89 FROM GL_PERIOD_STATUSES gps, PA_IMPLEMENTATIONS imp
90 WHERE gps.PERIOD_NAME= END_PERIOD
91 AND gps.APPLICATION_ID = 8721
92 AND gps.SET_OF_BOOKS_ID = imp.set_of_books_id;
93
94 end if;
95
96
97 EXCEPTION
98 WHEN NO_DATA_FOUND THEN
99 select meaning into ndf from pa_lookups where
100 lookup_code = 'NO_DATA_FOUND' and
101 lookup_type = 'MESSAGE';
102 c_no_data_found := ndf;
103 c_dummy_data := 1;
104 WHEN OTHERS THEN
105 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
106
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 CF_ACCT_CURR_CODEFormula return VARCHAR2 is
132 begin
133 return(pa_multi_currency.get_acct_currency_code);
134 return 'USD';
135 end;
136
137 function AfterReport return boolean is
138 begin
139 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
140
141 return (TRUE);
142 end;
143
144 FUNCTION get_ou_name RETURN boolean IS
145
146
147
148
149 v_ou_name hr_all_organization_units_tl.name%type;
150
151 BEGIN
152 select substr(hr.name,1,60)
153 into v_ou_name
154 from hr_all_organization_units_tl hr, pa_implementations pi
155 where hr.organization_id(+) = pi.org_id and
156 decode(hr.organization_id,null,'1',hr.language)=
157 decode(hr.organization_id,null,'1',userenv('lang'));
158
159
160
161 cp_ou_name := v_ou_name;
162 return(true);
163
164 EXCEPTION
165
166 WHEN OTHERS THEN
167 RETURN (FALSE);
168
169 END;
170
171 function cf_cost_ou_nameformula(org_id in number) return char is
172 begin
173 If org_id is not null then
174 return (substr(PA_EXPENDITURES_UTILS.getorgtlname(org_id),1,60));
175 Else
176 return null;
177 End if;
178
179 end;
180
181 function cf_inv_ou_nameformula(inv_org_id in number) return char is
182 begin
183
184
185 If nvl(inv_org_id,-99) <> -99 Then
186 return (substr(pa_expenditures_utils.getorgtlname(inv_org_id),1,60));
187 Else
188 return cp_ou_name;
189 End if;
190 end;
191
192 function cf_rev_ou_nameformula(rev_org_id in number) return char is
193 begin
194 If rev_org_id is not null then
195 return (substr(PA_EXPENDITURES_UTILS.getorgtlname(rev_org_id),1,60));
196 Else
197 return null;
198 End if;
199 end;
200
201 function cf_cc_ou_nameformula(cc_org_id in number) return char is
202 begin
203 If cc_org_id is not null then
204 return (substr(PA_EXPENDITURES_UTILS.getorgtlname(cc_org_id),1,60));
205 Else
206 return null;
207 End if;
208
209 end;
210
211 function cf_mfg_ou_nameformula(mfg_org_id in number) return char is
212 begin
213 If mfg_org_id is NOT NULL then
214 return (substr(pa_expenditures_utils.getorgtlname(mfg_org_id),1,60));
215 Else
216 return null;
217 End if;
218 end;
219
220 function cf_uncst_ou_nameformula(uncst_org_id in number) return char is
221 begin
222 If nvl(uncst_org_id , -99) <> -99 then
223 return (substr(pa_expenditures_utils.getorgtlname(uncst_org_id),1,60));
224 else
225 return cp_ou_name;
226 End if;
227
228 end;
229
230 function cf_uncst_sob_nameformula(uncst_sob in number) return char is
231 l_name varchar2(50);
232 begin
233
234 select gl.name
235 into l_name
236 from gl_sets_of_books gl
237 where gl.set_of_books_id = uncst_sob;
238
239 return l_name;
240 exception
241 when no_data_found then
242 return null;
243
244 end;
245
246 --Functions to refer Oracle report placeholders--
247
248 Function C_COMPANY_NAME_HEADER_p return varchar2 is
249 Begin
250 return C_COMPANY_NAME_HEADER;
251 END;
252 Function C_no_data_found_p return varchar2 is
253 Begin
254 return C_no_data_found;
255 END;
256 Function C_dummy_data_p return number is
257 Begin
258 return C_dummy_data;
259 END;
260 Function CP_ou_name_p return varchar2 is
261 Begin
262 return CP_ou_name;
263 END;
264 END PA_PAXEXCPS_XMLP_PKG ;
265