[Home] [Help]
PACKAGE BODY: APPS.PA_PAXEXTAR_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXEXTAR_XMLP_PKG AS
2 /* $Header: PAXEXTARB.pls 120.0 2008/01/02 11:32:06 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 prj_num varchar2(25);
22 prj_name varchar2(30);
23 e_name VARCHAR2(30);
24 tsk_name varchar2(30);
25 tsk_num varchar2(25);
26 BEGIN
27
28
29 /*srw.user_exit('FND SRWINIT');*/null;
30
31
32
33 /*srw.user_exit('FND GETPROFILE
34 NAME="PA_RULE_BASED_OPTIMIZER"
35 FIELD=":p_rule_optimizer"
36 PRINT_ERROR="N"');*/null;
37
38
39
40
41
42
43
44 /*srw.user_exit('FND GETPROFILE
45 NAME="PA_DEBUG_MODE"
46 FIELD=":p_debug_mode"
47 PRINT_ERROR="N"');*/null;
48
49
50
51
52
53
54
55 IF (get_company_name <> TRUE) THEN RAISE init_failure;
56 END IF;
57
58 SELECT
59 name
60 , segment1
61 INTO
62 prj_name
63 , prj_num
64 FROM
65 pa_projects p
66 WHERE
67 p.project_id = PROJECT;
68
69 C_project_name := prj_name;
70 C_project_num := prj_num;
71
72 IF ( TASK IS NOT NULL ) THEN
73 SELECT
74 task_name
75 , task_number
76 INTO
77 tsk_name
78 , tsk_num
79 FROM
80 pa_tasks
81 WHERE
82 task_id = TASK;
83
84 C_task_name := tsk_name;
85 C_task_num := tsk_num;
86 END IF;
87
88 IF (no_data_found_func <> TRUE) THEN
89 RAISE init_failure;
90 END IF;
91 EXCEPTION
92 WHEN OTHERS THEN
93 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
94
95 END; return (TRUE);
96 end;
97
98 FUNCTION get_company_name RETURN BOOLEAN IS
99 l_name gl_sets_of_books.name%TYPE;
100 BEGIN
101 SELECT gl.name
102 INTO l_name
103 FROM gl_sets_of_books gl,pa_implementations pi
104 WHERE gl.set_of_books_id = pi.set_of_books_id;
105
106 c_company_name_header := l_name;
107
108 RETURN (TRUE);
109
110 EXCEPTION
111
112 WHEN OTHERS THEN
113 RETURN (FALSE);
114
115 END;
116
117 FUNCTION NO_DATA_FOUND_FUNC RETURN BOOLEAN IS
118 message_name VARCHAR2(80);
119 begin
120 select meaning into message_name from pa_lookups
121 where lookup_type = 'MESSAGE'
122 and lookup_code = 'NO_DATA_FOUND';
123 c_no_data_found := message_name;
124 return(TRUE);
125 EXCEPTION
126 WHEN OTHERS THEN
127 RETURN(FALSE);
128 END;
129
130 function get_task(
131 t_id number ) return varchar2 is
132
133 tsk VARCHAR2(35);
134
135 BEGIN
136 SELECT
137 rpad( t.task_number, 18, ' ' )||
138 rpad( t.task_name, 17, ' ' )
139 INTO
140 tsk
141 FROM
142 pa_tasks t
143 WHERE
144 t.task_id = t_id;
145
146
147 RETURN ( tsk );
148
149
150 EXCEPTION
151 WHEN NO_DATA_FOUND THEN
152 RETURN ( ' ' );
153
154 END get_task;
155
156 function c_taskformula(t_id in number) return varchar2 is
157 begin
158
159 return (get_task ( t_id ));
160 end;
161
162 function AfterReport return boolean is
163 begin
164
165 BEGIN
166 /*srw.user_exit('FND SRWEXIT');*/null;
167
168 END;
169 return (TRUE);
170 end;
171
172 function get_project (t_id NUMBER ,level in number) return varchar2 is
173
174 prj VARCHAR2(35);
175
176 BEGIN
177 SELECT
178 substr((lpad( ' ', 2*(level-1) )||
179 rpad( p.segment1, 18, ' ' )||
180 rpad( p.name, 17, ' ' )), 1, 35 )
181 INTO
182 prj
183 FROM
184 pa_projects p
185 , pa_tasks t
186 WHERE
187 p.project_id = t.project_id
188 AND t.task_id = t_id;
189
190 RETURN ( prj );
191
192 EXCEPTION
193 WHEN NO_DATA_FOUND THEN
194 RETURN ( ' ' );
195
196 END get_project;
197
198 function c_projectformula(t_id in number,level in number) return varchar2 is
199 begin
200
201 return (get_project(
202 t_id,level) );
203 end;
204
205 function CF_ACCT_CURRENCY_CODEFormula return Varchar2 is
206 begin
207 return(pa_multi_currency.get_acct_currency_code);
208 end;
209
210 --Functions to refer Oracle report placeholders--
211
212 Function C_COMPANY_NAME_HEADER_p return varchar2 is
213 Begin
214 return C_COMPANY_NAME_HEADER;
215 END;
216 Function c_no_data_found_p return varchar2 is
217 Begin
218 return c_no_data_found;
219 END;
220 Function C_project_name_p return varchar2 is
221 Begin
222 return C_project_name;
223 END;
224 Function C_project_num_p return varchar2 is
225 Begin
226 return C_project_num;
227 END;
228 Function C_task_name_p return varchar2 is
229 Begin
230 return C_task_name;
231 END;
232 Function C_task_num_p return varchar2 is
233 Begin
234 return C_task_num;
235 END;
236 END PA_PAXEXTAR_XMLP_PKG ;