1 PACKAGE BODY PA_PAXPCPRS_XMLP_PKG AS
2 /* $Header: PAXPCPRSB.pls 120.0 2008/01/02 11:43:01 krreddy noship $ */
3 FUNCTION GET_COVER_PAGE_VALUES RETURN BOOLEAN IS
4 BEGIN
5 RETURN (TRUE);
6 EXCEPTION
7 WHEN OTHERS THEN
8 RETURN (FALSE);
9 END GET_COVER_PAGE_VALUES;
10 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
11 BEGIN
12 DECLARE
13 INIT_FAILURE EXCEPTION;
14 PROJECT_ORG HR_ORGANIZATION_UNITS.NAME%TYPE;
15 PROJ_NUMBER VARCHAR2(40);
16 MANAGER_NAME VARCHAR2(240);
17 YES_NO_MEANING VARCHAR2(40);
18 BEGIN
19 ACCRUE_THROUGH_DATE1 := TO_CHAR(ACCRUE_THROUGH_DATE,'DD-MON-YY');
20 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
21 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
22 /*SRW.USER_EXIT('FND GETPROFILE
23 NAME="PA_RULE_BASED_OPTIMIZER"
24 FIELD=":p_rule_optimizer"
25 PRINT_ERROR="N"')*/NULL;
26 P_DEBUG_MODE := FND_PROFILE.VALUE('PA_DEBUG_MODE');
27 IF PROJECT_ORGANIZATION IS NOT NULL THEN
28 SELECT
29 SUBSTR(NAME
30 ,1
31 ,60)
32 INTO PROJECT_ORG
33 FROM
34 HR_ORGANIZATION_UNITS
35 WHERE ORGANIZATION_ID = PROJECT_ORGANIZATION;
36 END IF;
37 C_PROJ_ORG := PROJECT_ORG;
38 IF PROJ IS NOT NULL THEN
39 SELECT
40 SEGMENT1
41 INTO PROJ_NUMBER
42 FROM
43 PA_PROJECTS
44 WHERE PROJECT_ID = PROJ;
45 END IF;
46 C_PROJ_NUMBER := PROJ_NUMBER;
47 IF PROJECT_MANAGER IS NOT NULL THEN
48 SELECT
49 FULL_NAME
50 INTO MANAGER_NAME
51 FROM
52 PER_PEOPLE_F
53 WHERE PERSON_ID = PROJECT_MANAGER
54 AND sysdate between EFFECTIVE_START_DATE
55 AND NVL(EFFECTIVE_END_DATE
56 ,SYSDATE + 1)
57 AND ( CURRENT_NPW_FLAG = 'Y'
58 OR CURRENT_EMPLOYEE_FLAG = 'Y' )
59 AND DECODE(CURRENT_NPW_FLAG
60 ,'Y'
61 ,NPW_NUMBER
62 ,EMPLOYEE_NUMBER) IS NOT NULL;
63 END IF;
64 C_PROJ_MANAGER := MANAGER_NAME;
65 IF INCLUDE_CLOSED_PROJECTS IS NOT NULL THEN
66 SELECT
67 SUBSTR(MEANING
68 ,1
69 ,40)
70 INTO YES_NO_MEANING
71 FROM
72 FND_LOOKUPS
73 WHERE LOOKUP_TYPE = 'YES_NO'
74 AND LOOKUP_CODE = INCLUDE_CLOSED_PROJECTS;
75 END IF;
76 C_YES_NO := YES_NO_MEANING;
77 IF (GET_COMPANY_NAME <> TRUE) THEN
78 RAISE INIT_FAILURE;
79 END IF;
80 IF (NO_DATA_FOUND_FUNC <> TRUE) THEN
81 RAISE INIT_FAILURE;
82 END IF;
83 EXCEPTION
84 WHEN OTHERS THEN
85 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
86 END;
87 RETURN (TRUE);
88 END BEFOREREPORT;
89 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
90 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
91 BEGIN
92 SELECT
93 GL.NAME
94 INTO L_NAME
95 FROM
96 GL_SETS_OF_BOOKS GL,
97 PA_IMPLEMENTATIONS PI
98 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
99 C_COMPANY_NAME_HEADER := L_NAME;
100 RETURN (TRUE);
101 EXCEPTION
102 WHEN OTHERS THEN
103 RETURN (FALSE);
104 END GET_COMPANY_NAME;
105 FUNCTION NO_DATA_FOUND_FUNC RETURN BOOLEAN IS
106 MESSAGE_NAME VARCHAR2(80);
107 BEGIN
108 SELECT
109 trim(replace(MEANING,'*',''))
110 INTO MESSAGE_NAME
111 FROM
112 PA_LOOKUPS
113 WHERE LOOKUP_TYPE = 'MESSAGE'
114 AND LOOKUP_CODE = 'NO_DATA_FOUND';
115 C_NO_DATA_FOUND := MESSAGE_NAME;
116 RETURN (TRUE);
117 EXCEPTION
118 WHEN OTHERS THEN
119 RETURN (FALSE);
120 END NO_DATA_FOUND_FUNC;
121 FUNCTION C_DIFFFORMULA(PARTIAL_POTENTIAL_REVENUE IN NUMBER
122 ,PARTIAL_ACCRUED_REVENUE IN NUMBER) RETURN NUMBER IS
123 BEGIN
124 RETURN (PARTIAL_POTENTIAL_REVENUE - PARTIAL_ACCRUED_REVENUE);
125 END C_DIFFFORMULA;
126 FUNCTION AFTERREPORT RETURN BOOLEAN IS
127 BEGIN
128 BEGIN
129 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
130 END;
131 RETURN (TRUE);
132 END AFTERREPORT;
133 FUNCTION C_DIFF2FORMULA(TOTAL_POTENTIAL_REVENUE IN NUMBER
134 ,TOTAL_ACCRUED_REVENUE IN NUMBER) RETURN NUMBER IS
135 BEGIN
136 RETURN (TOTAL_POTENTIAL_REVENUE - TOTAL_ACCRUED_REVENUE);
137 END C_DIFF2FORMULA;
138 FUNCTION C_DISP_ORG_POT_REVFORMULA(C_ORG_POT_REV IN NUMBER) RETURN VARCHAR2 IS
139 BEGIN
140 /*SRW.REFERENCE(C_ORG_POT_REV)*/NULL;
141 RETURN (TO_CHAR(C_ORG_POT_REV
142 ,CURRENCY_FMT_MASK(10)));
143 END C_DISP_ORG_POT_REVFORMULA;
144 FUNCTION C_DISP_ORG_ACC_REVFORMULA(C_ORG_ACC_REV IN NUMBER) RETURN VARCHAR2 IS
145 BEGIN
146 /*SRW.REFERENCE(C_ORG_ACC_REV)*/NULL;
147 RETURN (TO_CHAR(C_ORG_ACC_REV
148 ,CURRENCY_FMT_MASK(10)));
149 END C_DISP_ORG_ACC_REVFORMULA;
150 FUNCTION C_DISP_ORG_DIFF_REVFORMULA(C_ORG_DIFF_REV IN NUMBER) RETURN VARCHAR2 IS
151 BEGIN
152 /*SRW.REFERENCE(C_ORG_DIFF_REV)*/NULL;
153 RETURN (TO_CHAR(C_ORG_DIFF_REV
154 ,CURRENCY_FMT_MASK(10)));
155 END C_DISP_ORG_DIFF_REVFORMULA;
156 FUNCTION C_DISP_ORG_TOT_POTFORMULA(C_ORG_TOT_POT IN NUMBER) RETURN VARCHAR2 IS
157 BEGIN
158 /*SRW.REFERENCE(C_ORG_TOT_POT)*/NULL;
159 RETURN (TO_CHAR(C_ORG_TOT_POT
160 ,CURRENCY_FMT_MASK(10)));
161 END C_DISP_ORG_TOT_POTFORMULA;
162 FUNCTION C_DISP_ORG_TOT_ACCFORMULA(C_ORG_TOT_ACC IN NUMBER) RETURN VARCHAR2 IS
163 BEGIN
164 /*SRW.REFERENCE(C_ORG_TOT_ACC)*/NULL;
165 RETURN (TO_CHAR(C_ORG_TOT_ACC
166 ,CURRENCY_FMT_MASK(10)));
167 END C_DISP_ORG_TOT_ACCFORMULA;
168 FUNCTION C_DISP_ORG_TOT_DIFFFORMULA(C_ORG_TOT_DIFF IN NUMBER) RETURN VARCHAR2 IS
169 BEGIN
170 /*SRW.REFERENCE(C_ORG_TOT_DIFF)*/NULL;
171 RETURN (TO_CHAR(C_ORG_TOT_DIFF
172 ,CURRENCY_FMT_MASK(10)));
173 END C_DISP_ORG_TOT_DIFFFORMULA;
174 FUNCTION C_DISP_MGR_POT_REVFORMULA(C_MGR_POT_REV IN NUMBER) RETURN VARCHAR2 IS
175 BEGIN
176 /*SRW.REFERENCE(C_MGR_POT_REV)*/NULL;
177 RETURN (TO_CHAR(C_MGR_POT_REV
178 ,CURRENCY_FMT_MASK(10)));
179 END C_DISP_MGR_POT_REVFORMULA;
180 FUNCTION C_DISP_MGR_ACC_REVFORMULA(C_MGR_ACC_REV IN NUMBER) RETURN VARCHAR2 IS
181 BEGIN
182 /*SRW.REFERENCE(C_MGR_ACC_REV)*/NULL;
183 RETURN (TO_CHAR(C_MGR_ACC_REV
184 ,CURRENCY_FMT_MASK(10)));
185 END C_DISP_MGR_ACC_REVFORMULA;
186 FUNCTION C_DISP_MGR_DIFF_REVFORMULA(C_MGR_DIFF_REV IN NUMBER) RETURN VARCHAR2 IS
187 BEGIN
188 /*SRW.REFERENCE(C_MGR_DIFF_REV)*/NULL;
189 RETURN (TO_CHAR(C_MGR_DIFF_REV
190 ,CURRENCY_FMT_MASK(10)));
191 END C_DISP_MGR_DIFF_REVFORMULA;
192 FUNCTION C_DISP_MGR_TOT_POTFORMULA(C_MGR_TOT_POT IN NUMBER) RETURN VARCHAR2 IS
193 BEGIN
194 /*SRW.REFERENCE(C_MGR_TOT_POT)*/NULL;
195 RETURN (TO_CHAR(C_MGR_TOT_POT
196 ,CURRENCY_FMT_MASK(10)));
197 END C_DISP_MGR_TOT_POTFORMULA;
198 FUNCTION C_DISP_MGR_TOT_ACCFORMULA(C_MGR_TOT_ACC IN NUMBER) RETURN VARCHAR2 IS
199 BEGIN
200 /*SRW.REFERENCE(C_MGR_TOT_ACC)*/NULL;
201 RETURN (TO_CHAR(C_MGR_TOT_ACC
202 ,CURRENCY_FMT_MASK(10)));
203 END C_DISP_MGR_TOT_ACCFORMULA;
204 FUNCTION C_DISP_MGR_TOT_DIFFFORMULA(C_MGR_TOT_DIFF IN NUMBER) RETURN VARCHAR2 IS
205 BEGIN
206 /*SRW.REFERENCE(C_MGR_TOT_DIFF)*/NULL;
207 RETURN (TO_CHAR(C_MGR_TOT_DIFF
208 ,CURRENCY_FMT_MASK(10)));
209 END C_DISP_MGR_TOT_DIFFFORMULA;
210 FUNCTION C_DISP_TOT_POT_REVFORMULA(TOTAL_POTENTIAL_REVENUE IN NUMBER) RETURN VARCHAR2 IS
211 BEGIN
212 /*SRW.REFERENCE(TOTAL_POTENTIAL_REVENUE)*/NULL;
213 RETURN (TO_CHAR(TOTAL_POTENTIAL_REVENUE
214 ,CURRENCY_FMT_MASK(10)));
215 END C_DISP_TOT_POT_REVFORMULA;
216 FUNCTION C_DISP_TOT_ACC_REVFORMULA(TOTAL_ACCRUED_REVENUE IN NUMBER) RETURN VARCHAR2 IS
217 BEGIN
218 /*SRW.REFERENCE(TOTAL_ACCRUED_REVENUE)*/NULL;
219 RETURN (TO_CHAR(TOTAL_ACCRUED_REVENUE
220 ,CURRENCY_FMT_MASK(10)));
221 END C_DISP_TOT_ACC_REVFORMULA;
222 FUNCTION C_DISP_DIFFFORMULA(C_DIFF IN NUMBER) RETURN VARCHAR2 IS
223 BEGIN
224 /*SRW.REFERENCE(C_DIFF)*/NULL;
225 RETURN (TO_CHAR(C_DIFF
226 ,CURRENCY_FMT_MASK(10)));
227 END C_DISP_DIFFFORMULA;
228 FUNCTION C_DISP_PAR_POT_REVFORMULA(PARTIAL_POTENTIAL_REVENUE IN NUMBER) RETURN VARCHAR2 IS
229 BEGIN
230 /*SRW.REFERENCE(PARTIAL_POTENTIAL_REVENUE)*/NULL;
231 RETURN (TO_CHAR(PARTIAL_POTENTIAL_REVENUE
232 ,CURRENCY_FMT_MASK(10)));
233 END C_DISP_PAR_POT_REVFORMULA;
234 FUNCTION C_DISP_PAR_ACC_REVFORMULA(PARTIAL_ACCRUED_REVENUE IN NUMBER) RETURN VARCHAR2 IS
235 BEGIN
236 /*SRW.REFERENCE(PARTIAL_ACCRUED_REVENUE)*/NULL;
237 RETURN (TO_CHAR(PARTIAL_ACCRUED_REVENUE
238 ,CURRENCY_FMT_MASK(10)));
239 END C_DISP_PAR_ACC_REVFORMULA;
240 FUNCTION C_DISP_DIFF2FORMULA(C_DIFF2 IN NUMBER) RETURN VARCHAR2 IS
241 BEGIN
242 /*SRW.REFERENCE(C_DIFF2)*/NULL;
243 RETURN (TO_CHAR(C_DIFF2
244 ,CURRENCY_FMT_MASK(10)));
245 END C_DISP_DIFF2FORMULA;
246 FUNCTION C_DISP_REP_POT_REVFORMULA(C_REP_POT_REV IN NUMBER) RETURN VARCHAR2 IS
247 BEGIN
248 /*SRW.REFERENCE(C_REP_POT_REV)*/NULL;
249 RETURN (TO_CHAR(C_REP_POT_REV
250 ,CURRENCY_FMT_MASK(10)));
251 END C_DISP_REP_POT_REVFORMULA;
252 FUNCTION C_DISP_REP_ACC_REVFORMULA(C_REP_ACC_REV IN NUMBER) RETURN VARCHAR2 IS
253 BEGIN
254 /*SRW.REFERENCE(C_REP_ACC_REV)*/NULL;
255 RETURN (TO_CHAR(C_REP_ACC_REV
256 ,CURRENCY_FMT_MASK(10)));
257 END C_DISP_REP_ACC_REVFORMULA;
258 FUNCTION C_DISP_REP_DIFF_REVFORMULA(C_REP_DIFF_REV IN NUMBER) RETURN VARCHAR2 IS
259 BEGIN
260 /*SRW.REFERENCE(C_REP_DIFF_REV)*/NULL;
261 RETURN (TO_CHAR(C_REP_DIFF_REV
262 ,CURRENCY_FMT_MASK(10)));
263 END C_DISP_REP_DIFF_REVFORMULA;
264 FUNCTION C_DISP_REP_TOT_POTFORMULA(C_REP_TOT_POT IN NUMBER) RETURN VARCHAR2 IS
265 BEGIN
266 /*SRW.REFERENCE(C_REP_TOT_POT)*/NULL;
267 RETURN (TO_CHAR(C_REP_TOT_POT
268 ,CURRENCY_FMT_MASK(10)));
269 END C_DISP_REP_TOT_POTFORMULA;
270 FUNCTION C_DISP_REP_TOT_ACCFORMULA(C_REP_TOT_ACC IN NUMBER) RETURN VARCHAR2 IS
271 BEGIN
272 /*SRW.REFERENCE(C_REP_TOT_ACC)*/NULL;
273 RETURN (TO_CHAR(C_REP_TOT_ACC
274 ,CURRENCY_FMT_MASK(10)));
275 END C_DISP_REP_TOT_ACCFORMULA;
276 FUNCTION C_DISP_REP_TOT_DIFFFORMULA(C_REP_TOT_DIFF IN NUMBER) RETURN VARCHAR2 IS
277 BEGIN
278 /*SRW.REFERENCE(C_REP_TOT_DIFF)*/NULL;
279 RETURN (TO_CHAR(C_REP_TOT_DIFF
280 ,CURRENCY_FMT_MASK(10)));
281 END C_DISP_REP_TOT_DIFFFORMULA;
282 FUNCTION CF_CURRENCY_CODEFORMULA RETURN VARCHAR2 IS
283 BEGIN
284 RETURN (PA_MULTI_CURRENCY.GET_ACCT_CURRENCY_CODE);
285 END CF_CURRENCY_CODEFORMULA;
286 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
287 BEGIN
288 RETURN C_COMPANY_NAME_HEADER;
289 END C_COMPANY_NAME_HEADER_P;
290 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
291 BEGIN
292 RETURN C_NO_DATA_FOUND;
293 END C_NO_DATA_FOUND_P;
294 FUNCTION C_PROJ_ORG_P RETURN VARCHAR2 IS
295 BEGIN
296 RETURN C_PROJ_ORG;
297 END C_PROJ_ORG_P;
298 FUNCTION C_PROJ_NUMBER_P RETURN VARCHAR2 IS
299 BEGIN
300 RETURN C_PROJ_NUMBER;
301 END C_PROJ_NUMBER_P;
302 FUNCTION C_PROJ_MANAGER_P RETURN VARCHAR2 IS
303 BEGIN
304 RETURN C_PROJ_MANAGER;
305 END C_PROJ_MANAGER_P;
306 FUNCTION C_YES_NO_P RETURN VARCHAR2 IS
307 BEGIN
308 RETURN C_YES_NO;
309 END C_YES_NO_P;
310 FUNCTION GET_CURRENCY_CODE RETURN VARCHAR2 IS
311 X0 VARCHAR2(2000);
312 BEGIN
313 begin
314 X0 := PA_CURRENCY.GET_CURRENCY_CODE;
315 end;
316 -- STPROC.INIT('begin :X0 := PA_CURRENCY.GET_CURRENCY_CODE; end;');
317 -- STPROC.BIND_O(X0);
318 -- STPROC.EXECUTE;
319 -- STPROC.RETRIEVE(1,X0);
320 RETURN X0;
321 END GET_CURRENCY_CODE;
322 FUNCTION ROUND_CURRENCY_AMT(X_AMOUNT IN NUMBER) RETURN NUMBER IS
323 X0 NUMBER;
324 BEGIN
325 begin
326 X0 := PA_CURRENCY.ROUND_CURRENCY_AMT(X_AMOUNT);
327 end;
328 /*STPROC.INIT('begin :X0 := PA_CURRENCY.ROUND_CURRENCY_AMT(:X_AMOUNT); end;');
329 STPROC.BIND_O(X0);
330 STPROC.BIND_I(X_AMOUNT);
331 STPROC.EXECUTE;
332 STPROC.RETRIEVE(1
333 ,X0);*/
334 RETURN X0;
335 END ROUND_CURRENCY_AMT;
336 FUNCTION CURRENCY_FMT_MASK(X_LENGTH IN NUMBER) RETURN VARCHAR2 IS
337 X0 VARCHAR2(2000);
338 BEGIN
339 begin
340 X0 := PA_CURRENCY.CURRENCY_FMT_MASK(X_LENGTH);
341 end;
342 /* STPROC.INIT('begin :X0 := PA_CURRENCY.CURRENCY_FMT_MASK(:X_LENGTH); end;');
343 STPROC.BIND_O(X0);
344 STPROC.BIND_I(X_LENGTH);
345 STPROC.EXECUTE;
346 STPROC.RETRIEVE(1
347 ,X0);*/
348 RETURN X0;
349 END CURRENCY_FMT_MASK;
350 FUNCTION RPT_CURRENCY_FMT_MASK(X_ORG_ID IN NUMBER
351 ,X_LENGTH IN NUMBER) RETURN VARCHAR2 IS
352 X0 VARCHAR2(2000);
353 BEGIN
354 begin
355 X0 := PA_CURRENCY.RPT_CURRENCY_FMT_MASK(X_ORG_ID, X_LENGTH);
356 end;
357 /*
358 STPROC.INIT('begin :X0 := PA_CURRENCY.RPT_CURRENCY_FMT_MASK(:X_ORG_ID, :X_LENGTH); end;');
359 STPROC.BIND_O(X0);
360 STPROC.BIND_I(X_ORG_ID);
361 STPROC.BIND_I(X_LENGTH);
362 STPROC.EXECUTE;
363 STPROC.RETRIEVE(1
364 ,X0);*/
365 RETURN X0;
366 END RPT_CURRENCY_FMT_MASK;
367 END PA_PAXPCPRS_XMLP_PKG;