[Home] [Help]
PACKAGE BODY: APPS.PA_PAXACRPT_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXACRPT_XMLP_PKG AS
2 /* $Header: PAXACRPTB.pls 120.0 2008/01/02 11:11:54 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
11 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
12 BEGIN
13 DECLARE
14 INIT_FAILURE EXCEPTION;
15 NDF VARCHAR2(80);
16 ERRBUF VARCHAR2(525);
17 MESSAGE_BUF VARCHAR2(256);
18 NUMBER_OF_MESSAGES NUMBER;
19 BEGIN
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 IF (GET_COMPANY_NAME <> TRUE) THEN
27 /*SRW.MESSAGE(1
28 ,'Error : GL set of Book Not Set Up')*/NULL;
29 RAISE INIT_FAILURE;
30 END IF;
31 SELECT
32 MEANING
33 INTO NDF
34 FROM
35 PA_LOOKUPS
36 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
37 AND LOOKUP_TYPE = 'MESSAGE';
38 C_NO_DATA_FOUND := NDF;
39 /*SRW.MESSAGE(1
40 ,'Calling Refresh Project Accumulation')*/NULL;
41 /*SRW.MESSAGE(1
42 ,'Concurrent request id is ' || TO_CHAR(P_CONC_REQUEST_ID))*/NULL;
43 BEGIN
44 PA_PROJ_ACCUM_MAIN.PROJ_REFRESH(ERRBUF
45 ,C_RETCODE
46 ,P_PROJECT_NUM_FROM
47 ,P_PROJECT_NUM_TO
48 ,P_THROUGH_DATE
49 ,P_PROJECT_TYPE);
50 IF (C_RETCODE <> 0) THEN
51 /*SRW.MESSAGE(1
52 ,ERRBUF)*/NULL;
53 NUMBER_OF_MESSAGES := PA_DEBUG.NO_OF_DEBUG_MESSAGES;
54 IF (NUMBER_OF_MESSAGES > 0) THEN
55 /*SRW.MESSAGE(1
56 ,'Debug Messages:')*/NULL;
57 FOR i IN 1 .. NUMBER_OF_MESSAGES LOOP
58 PA_DEBUG.GET_MESSAGE(I
59 ,MESSAGE_BUF);
60 /*SRW.MESSAGE(1
61 ,MESSAGE_BUF)*/NULL;
62 END LOOP;
63 END IF;
64 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
65 END IF;
66 EXCEPTION
67 WHEN STORAGE_ERROR THEN
68 C_RETCODE := -9999;
69 /*SRW.MESSAGE(1
70 ,'Exception: Storage Error')*/NULL;
71 WHEN TIMEOUT_ON_RESOURCE THEN
72 C_RETCODE := -9999;
73 /*SRW.MESSAGE(1
74 ,'Exception: Time Out Occured, waiting for a resource')*/NULL;
75 WHEN OTHERS THEN
76 C_RETCODE := -9999;
77 /*SRW.MESSAGE(1
78 ,'Exception was generated by Accumulation API')*/NULL;
79 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
80 END;
81 EXCEPTION
82 WHEN NO_DATA_FOUND THEN
83 SELECT
84 MEANING
85 INTO NDF
86 FROM
87 PA_LOOKUPS
88 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
89 AND LOOKUP_TYPE = 'MESSAGE';
90 C_NO_DATA_FOUND := NDF;
91 C_DUMMY_DATA := 1;
92 WHEN OTHERS THEN
93 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
94 END;
95 RETURN (TRUE);
96 END BEFOREREPORT;
97
98 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
99 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
100 BEGIN
101 SELECT
102 GL.NAME
103 INTO L_NAME
104 FROM
105 GL_SETS_OF_BOOKS GL,
106 PA_IMPLEMENTATIONS PI
107 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
108 C_COMPANY_NAME_HEADER := L_NAME;
109 RETURN (TRUE);
110 EXCEPTION
111 WHEN OTHERS THEN
112 RETURN (FALSE);
113 END GET_COMPANY_NAME;
114
115 FUNCTION AFTERREPORT RETURN BOOLEAN IS
116 BEGIN
117 DECLARE
118 MESSAGE_BUF VARCHAR2(256);
119 ACCUM_ERROR EXCEPTION;
120 NUMBER_OF_MESSAGES NUMBER;
121 X_PROJECT_ID NUMBER;
122 X_ACCUM_PERIOD_B VARCHAR2(20);
123 X_RAW_COST_ITD_B NUMBER;
124 X_RAW_COST_YTD_B NUMBER;
125 X_RAW_COST_PP_B NUMBER;
126 X_RAW_COST_PTD_B NUMBER;
127 X_BILLABLE_RAW_COST_ITD_B NUMBER;
128 X_BILLABLE_RAW_COST_YTD_B NUMBER;
129 X_BILLABLE_RAW_COST_PP_B NUMBER;
130 X_BILLABLE_RAW_COST_PTD_B NUMBER;
131 X_BURDENED_COST_ITD_B NUMBER;
132 X_BURDENED_COST_YTD_B NUMBER;
133 X_BURDENED_COST_PP_B NUMBER;
134 X_BURDENED_COST_PTD_B NUMBER;
135 X_BILLABLE_BURDENED_COST_ITD_B NUMBER;
136 X_BILLABLE_BURDENED_COST_YTD_B NUMBER;
137 X_BILLABLE_BURDENED_COST_PP_B NUMBER;
138 X_BILLABLE_BURDENED_COST_PTD_B NUMBER;
139 X_QUANTITY_ITD_B NUMBER;
140 X_QUANTITY_YTD_B NUMBER;
141 X_QUANTITY_PP_B NUMBER;
142 X_QUANTITY_PTD_B NUMBER;
143 X_LABOR_HOURS_ITD_B NUMBER;
144 X_LABOR_HOURS_YTD_B NUMBER;
145 X_LABOR_HOURS_PP_B NUMBER;
146 X_LABOR_HOURS_PTD_B NUMBER;
147 X_BILLABLE_QUANTITY_ITD_B NUMBER;
148 X_BILLABLE_QUANTITY_YTD_B NUMBER;
149 X_BILLABLE_QUANTITY_PP_B NUMBER;
150 X_BILLABLE_QUANTITY_PTD_B NUMBER;
151 X_BILLABLE_LABOR_HOURS_ITD_B NUMBER;
152 X_BILLABLE_LABOR_HOURS_YTD_B NUMBER;
153 X_BILLABLE_LABOR_HOURS_PP_B NUMBER;
154 X_BILLABLE_LABOR_HOURS_PTD_B NUMBER;
155 X_REVENUE_ITD_B NUMBER;
156 X_REVENUE_YTD_B NUMBER;
157 X_REVENUE_PP_B NUMBER;
158 X_REVENUE_PTD_B NUMBER;
159 X_CMT_RAW_COST_ITD_B NUMBER;
160 X_CMT_RAW_COST_YTD_B NUMBER;
161 X_CMT_RAW_COST_PP_B NUMBER;
162 X_CMT_RAW_COST_PTD_B NUMBER;
163 X_CMT_BURDENED_COST_ITD_B NUMBER;
164 X_CMT_BURDENED_COST_YTD_B NUMBER;
165 X_CMT_BURDENED_COST_PP_B NUMBER;
166 X_CMT_BURDENED_COST_PTD_B NUMBER;
167 X_CMT_QUANTITY_ITD_B NUMBER;
168 X_CMT_QUANTITY_YTD_B NUMBER;
169 X_CMT_QUANTITY_PP_B NUMBER;
170 X_CMT_QUANTITY_PTD_B NUMBER;
171 X_ACCUM_PERIOD_A VARCHAR2(20);
172 X_RAW_COST_ITD_A NUMBER;
173 X_RAW_COST_YTD_A NUMBER;
174 X_RAW_COST_PP_A NUMBER;
175 X_RAW_COST_PTD_A NUMBER;
176 X_BILLABLE_RAW_COST_ITD_A NUMBER;
177 X_BILLABLE_RAW_COST_YTD_A NUMBER;
178 X_BILLABLE_RAW_COST_PP_A NUMBER;
179 X_BILLABLE_RAW_COST_PTD_A NUMBER;
180 X_BURDENED_COST_ITD_A NUMBER;
181 X_BURDENED_COST_YTD_A NUMBER;
182 X_BURDENED_COST_PP_A NUMBER;
183 X_BURDENED_COST_PTD_A NUMBER;
184 X_BILLABLE_BURDENED_COST_ITD_A NUMBER;
185 X_BILLABLE_BURDENED_COST_YTD_A NUMBER;
186 X_BILLABLE_BURDENED_COST_PP_A NUMBER;
187 X_BILLABLE_BURDENED_COST_PTD_A NUMBER;
188 X_QUANTITY_ITD_A NUMBER;
189 X_QUANTITY_YTD_A NUMBER;
190 X_QUANTITY_PP_A NUMBER;
191 X_QUANTITY_PTD_A NUMBER;
192 X_LABOR_HOURS_ITD_A NUMBER;
193 X_LABOR_HOURS_YTD_A NUMBER;
194 X_LABOR_HOURS_PP_A NUMBER;
195 X_LABOR_HOURS_PTD_A NUMBER;
196 X_BILLABLE_QUANTITY_ITD_A NUMBER;
197 X_BILLABLE_QUANTITY_YTD_A NUMBER;
198 X_BILLABLE_QUANTITY_PP_A NUMBER;
199 X_BILLABLE_QUANTITY_PTD_A NUMBER;
200 X_BILLABLE_LABOR_HOURS_ITD_A NUMBER;
201 X_BILLABLE_LABOR_HOURS_YTD_A NUMBER;
202 X_BILLABLE_LABOR_HOURS_PP_A NUMBER;
203 X_BILLABLE_LABOR_HOURS_PTD_A NUMBER;
204 X_REVENUE_ITD_A NUMBER;
205 X_REVENUE_YTD_A NUMBER;
206 X_REVENUE_PP_A NUMBER;
207 X_REVENUE_PTD_A NUMBER;
208 X_CMT_RAW_COST_ITD_A NUMBER;
209 X_CMT_RAW_COST_YTD_A NUMBER;
210 X_CMT_RAW_COST_PP_A NUMBER;
211 X_CMT_RAW_COST_PTD_A NUMBER;
212 X_CMT_BURDENED_COST_ITD_A NUMBER;
213 X_CMT_BURDENED_COST_YTD_A NUMBER;
214 X_CMT_BURDENED_COST_PP_A NUMBER;
215 X_CMT_BURDENED_COST_PTD_A NUMBER;
216 X_CMT_QUANTITY_ITD_A NUMBER;
217 X_CMT_QUANTITY_YTD_A NUMBER;
218 X_CMT_QUANTITY_PP_A NUMBER;
219 X_CMT_QUANTITY_PTD_A NUMBER;
220 X_BUDGET_TYPE_CODE VARCHAR2(30);
221 X_BASE_RAW_COST_ITD_B NUMBER;
222 X_BASE_RAW_COST_YTD_B NUMBER;
223 X_BASE_RAW_COST_PP_B NUMBER;
224 X_BASE_RAW_COST_PTD_B NUMBER;
225 X_BASE_BURDENED_COST_ITD_B NUMBER;
226 X_BASE_BURDENED_COST_YTD_B NUMBER;
227 X_BASE_BURDENED_COST_PP_B NUMBER;
228 X_BASE_BURDENED_COST_PTD_B NUMBER;
229 X_ORIG_RAW_COST_ITD_B NUMBER;
230 X_ORIG_RAW_COST_YTD_B NUMBER;
231 X_ORIG_RAW_COST_PP_B NUMBER;
232 X_ORIG_RAW_COST_PTD_B NUMBER;
233 X_ORIG_BURDENED_COST_ITD_B NUMBER;
234 X_ORIG_BURDENED_COST_YTD_B NUMBER;
235 X_ORIG_BURDENED_COST_PP_B NUMBER;
236 X_ORIG_BURDENED_COST_PTD_B NUMBER;
237 X_BASE_REVENUE_ITD_B NUMBER;
238 X_BASE_REVENUE_YTD_B NUMBER;
239 X_BASE_REVENUE_PP_B NUMBER;
240 X_BASE_REVENUE_PTD_B NUMBER;
241 X_ORIG_REVENUE_ITD_B NUMBER;
242 X_ORIG_REVENUE_YTD_B NUMBER;
243 X_ORIG_REVENUE_PP_B NUMBER;
244 X_ORIG_REVENUE_PTD_B NUMBER;
245 X_ORIG_LABOR_HOURS_ITD_B NUMBER;
246 X_ORIG_LABOR_HOURS_YTD_B NUMBER;
247 X_ORIG_LABOR_HOURS_PP_B NUMBER;
248 X_ORIG_LABOR_HOURS_PTD_B NUMBER;
249 X_BASE_LABOR_HOURS_ITD_B NUMBER;
250 X_BASE_LABOR_HOURS_YTD_B NUMBER;
251 X_BASE_LABOR_HOURS_PP_B NUMBER;
252 X_BASE_LABOR_HOURS_PTD_B NUMBER;
253 X_ORIG_QUANTITY_YTD_B NUMBER;
254 X_ORIG_QUANTITY_ITD_B NUMBER;
255 X_ORIG_QUANTITY_PP_B NUMBER;
256 X_ORIG_QUANTITY_PTD_B NUMBER;
257 X_BASE_QUANTITY_YTD_B NUMBER;
258 X_BASE_QUANTITY_ITD_B NUMBER;
259 X_BASE_QUANTITY_PP_B NUMBER;
260 X_BASE_QUANTITY_PTD_B NUMBER;
261 X_ORIG_LABOR_HOURS_TOT_B NUMBER;
262 X_BASE_LABOR_HOURS_TOT_B NUMBER;
263 X_ORIG_QUANTITY_TOT_B NUMBER;
264 X_BASE_QUANTITY_TOT_B NUMBER;
265 X_BASE_RAW_COST_TOT_B NUMBER;
266 X_BASE_BURDENED_COST_TOT_B NUMBER;
267 X_ORIG_RAW_COST_TOT_B NUMBER;
268 X_ORIG_BURDENED_COST_TOT_B NUMBER;
269 X_BASE_REVENUE_TOT_B NUMBER;
270 X_ORIG_REVENUE_TOT_B NUMBER;
271 X_BASE_RAW_COST_ITD_A NUMBER;
272 X_BASE_RAW_COST_YTD_A NUMBER;
273 X_BASE_RAW_COST_PP_A NUMBER;
274 X_BASE_RAW_COST_PTD_A NUMBER;
275 X_BASE_BURDENED_COST_ITD_A NUMBER;
276 X_BASE_BURDENED_COST_YTD_A NUMBER;
277 X_BASE_BURDENED_COST_PP_A NUMBER;
278 X_BASE_BURDENED_COST_PTD_A NUMBER;
279 X_ORIG_RAW_COST_ITD_A NUMBER;
280 X_ORIG_RAW_COST_YTD_A NUMBER;
281 X_ORIG_RAW_COST_PP_A NUMBER;
282 X_ORIG_RAW_COST_PTD_A NUMBER;
283 X_ORIG_BURDENED_COST_ITD_A NUMBER;
284 X_ORIG_BURDENED_COST_YTD_A NUMBER;
285 X_ORIG_BURDENED_COST_PP_A NUMBER;
286 X_ORIG_BURDENED_COST_PTD_A NUMBER;
287 X_BASE_REVENUE_ITD_A NUMBER;
288 X_BASE_REVENUE_YTD_A NUMBER;
289 X_BASE_REVENUE_PP_A NUMBER;
290 X_BASE_REVENUE_PTD_A NUMBER;
291 X_ORIG_REVENUE_ITD_A NUMBER;
292 X_ORIG_REVENUE_YTD_A NUMBER;
293 X_ORIG_REVENUE_PP_A NUMBER;
294 X_ORIG_REVENUE_PTD_A NUMBER;
295 X_ORIG_LABOR_HOURS_ITD_A NUMBER;
296 X_ORIG_LABOR_HOURS_YTD_A NUMBER;
297 X_ORIG_LABOR_HOURS_PP_A NUMBER;
298 X_ORIG_LABOR_HOURS_PTD_A NUMBER;
299 X_BASE_LABOR_HOURS_ITD_A NUMBER;
300 X_BASE_LABOR_HOURS_YTD_A NUMBER;
301 X_BASE_LABOR_HOURS_PP_A NUMBER;
302 X_BASE_LABOR_HOURS_PTD_A NUMBER;
303 X_ORIG_QUANTITY_YTD_A NUMBER;
304 X_ORIG_QUANTITY_ITD_A NUMBER;
305 X_ORIG_QUANTITY_PP_A NUMBER;
306 X_ORIG_QUANTITY_PTD_A NUMBER;
307 X_BASE_QUANTITY_YTD_A NUMBER;
308 X_BASE_QUANTITY_ITD_A NUMBER;
309 X_BASE_QUANTITY_PP_A NUMBER;
310 X_BASE_QUANTITY_PTD_A NUMBER;
311 X_ORIG_LABOR_HOURS_TOT_A NUMBER;
312 X_BASE_LABOR_HOURS_TOT_A NUMBER;
313 X_ORIG_QUANTITY_TOT_A NUMBER;
314 X_BASE_QUANTITY_TOT_A NUMBER;
315 X_BASE_RAW_COST_TOT_A NUMBER;
316 X_BASE_BURDENED_COST_TOT_A NUMBER;
317 X_ORIG_RAW_COST_TOT_A NUMBER;
318 X_ORIG_BURDENED_COST_TOT_A NUMBER;
319 X_BASE_REVENUE_TOT_A NUMBER;
320 X_ORIG_REVENUE_TOT_A NUMBER;
321 BEGIN
322 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
323 NUMBER_OF_MESSAGES := PA_ACCUM_SRW.GET_NUMBER_OF_PROJECTS;
324 /*SRW.MESSAGE(1
325 ,'No. of Projects Accumulated = ' || TO_CHAR(NUMBER_OF_MESSAGES))*/NULL;
326 BEGIN
327 FOR i IN 1 .. NUMBER_OF_MESSAGES LOOP
328 PA_ACCUM_SRW.REPORT_PROJECT_SUMMARY_NUMBERS(I
329 ,X_PROJECT_ID
330 ,X_ACCUM_PERIOD_B
331 ,X_RAW_COST_ITD_B
332 ,X_RAW_COST_YTD_B
333 ,X_RAW_COST_PP_B
334 ,X_RAW_COST_PTD_B
335 ,X_BILLABLE_RAW_COST_ITD_B
336 ,X_BILLABLE_RAW_COST_YTD_B
337 ,X_BILLABLE_RAW_COST_PP_B
338 ,X_BILLABLE_RAW_COST_PTD_B
339 ,X_BURDENED_COST_ITD_B
340 ,X_BURDENED_COST_YTD_B
341 ,X_BURDENED_COST_PP_B
342 ,X_BURDENED_COST_PTD_B
343 ,X_BILLABLE_BURDENED_COST_ITD_B
344 ,X_BILLABLE_BURDENED_COST_YTD_B
345 ,X_BILLABLE_BURDENED_COST_PP_B
346 ,X_BILLABLE_BURDENED_COST_PTD_B
347 ,X_QUANTITY_ITD_B
348 ,X_QUANTITY_YTD_B
349 ,X_QUANTITY_PP_B
350 ,X_QUANTITY_PTD_B
351 ,X_LABOR_HOURS_ITD_B
352 ,X_LABOR_HOURS_YTD_B
353 ,X_LABOR_HOURS_PP_B
354 ,X_LABOR_HOURS_PTD_B
355 ,X_BILLABLE_QUANTITY_ITD_B
356 ,X_BILLABLE_QUANTITY_YTD_B
357 ,X_BILLABLE_QUANTITY_PP_B
358 ,X_BILLABLE_QUANTITY_PTD_B
359 ,X_BILLABLE_LABOR_HOURS_ITD_B
360 ,X_BILLABLE_LABOR_HOURS_YTD_B
361 ,X_BILLABLE_LABOR_HOURS_PP_B
362 ,X_BILLABLE_LABOR_HOURS_PTD_B
363 ,X_REVENUE_ITD_B
364 ,X_REVENUE_YTD_B
365 ,X_REVENUE_PP_B
366 ,X_REVENUE_PTD_B
367 ,X_CMT_RAW_COST_ITD_B
368 ,X_CMT_RAW_COST_YTD_B
369 ,X_CMT_RAW_COST_PP_B
370 ,X_CMT_RAW_COST_PTD_B
371 ,X_CMT_BURDENED_COST_ITD_B
372 ,X_CMT_BURDENED_COST_YTD_B
373 ,X_CMT_BURDENED_COST_PP_B
374 ,X_CMT_BURDENED_COST_PTD_B
375 ,X_CMT_QUANTITY_ITD_B
376 ,X_CMT_QUANTITY_YTD_B
377 ,X_CMT_QUANTITY_PP_B
378 ,X_CMT_QUANTITY_PTD_B
379 ,X_ACCUM_PERIOD_A
380 ,X_RAW_COST_ITD_A
381 ,X_RAW_COST_YTD_A
382 ,X_RAW_COST_PP_A
383 ,X_RAW_COST_PTD_A
384 ,X_BILLABLE_RAW_COST_ITD_A
385 ,X_BILLABLE_RAW_COST_YTD_A
386 ,X_BILLABLE_RAW_COST_PP_A
387 ,X_BILLABLE_RAW_COST_PTD_A
388 ,X_BURDENED_COST_ITD_A
389 ,X_BURDENED_COST_YTD_A
390 ,X_BURDENED_COST_PP_A
391 ,X_BURDENED_COST_PTD_A
392 ,X_BILLABLE_BURDENED_COST_ITD_A
393 ,X_BILLABLE_BURDENED_COST_YTD_A
394 ,X_BILLABLE_BURDENED_COST_PP_A
395 ,X_BILLABLE_BURDENED_COST_PTD_A
396 ,X_QUANTITY_ITD_A
397 ,X_QUANTITY_YTD_A
398 ,X_QUANTITY_PP_A
399 ,X_QUANTITY_PTD_A
400 ,X_LABOR_HOURS_ITD_A
401 ,X_LABOR_HOURS_YTD_A
402 ,X_LABOR_HOURS_PP_A
403 ,X_LABOR_HOURS_PTD_A
404 ,X_BILLABLE_QUANTITY_ITD_A
405 ,X_BILLABLE_QUANTITY_YTD_A
406 ,X_BILLABLE_QUANTITY_PP_A
407 ,X_BILLABLE_QUANTITY_PTD_A
408 ,X_BILLABLE_LABOR_HOURS_ITD_A
409 ,X_BILLABLE_LABOR_HOURS_YTD_A
410 ,X_BILLABLE_LABOR_HOURS_PP_A
411 ,X_BILLABLE_LABOR_HOURS_PTD_A
412 ,X_REVENUE_ITD_A
413 ,X_REVENUE_YTD_A
414 ,X_REVENUE_PP_A
415 ,X_REVENUE_PTD_A
416 ,X_CMT_RAW_COST_ITD_A
417 ,X_CMT_RAW_COST_YTD_A
418 ,X_CMT_RAW_COST_PP_A
419 ,X_CMT_RAW_COST_PTD_A
420 ,X_CMT_BURDENED_COST_ITD_A
421 ,X_CMT_BURDENED_COST_YTD_A
422 ,X_CMT_BURDENED_COST_PP_A
423 ,X_CMT_BURDENED_COST_PTD_A
424 ,X_CMT_QUANTITY_ITD_A
425 ,X_CMT_QUANTITY_YTD_A
426 ,X_CMT_QUANTITY_PP_A
427 ,X_CMT_QUANTITY_PTD_A);
428 END LOOP;
429 EXCEPTION
430 WHEN OTHERS THEN
431 NULL;
432 END;
433 BEGIN
434 NUMBER_OF_MESSAGES := PA_ACCUM_SRW.GET_NUMBER_OF_BUDGETS_PST;
435 /*SRW.MESSAGE(1
436 ,'No. of Budgets Accumulated = ' || TO_CHAR(NUMBER_OF_MESSAGES))*/NULL;
437 FOR i IN 1 .. NUMBER_OF_MESSAGES LOOP
438 PA_ACCUM_SRW.REPORT_PROJECT_BUDGET_NUMBERS(I
439 ,X_PROJECT_ID
440 ,X_BUDGET_TYPE_CODE
441 ,X_BASE_RAW_COST_ITD_B
442 ,X_BASE_RAW_COST_YTD_B
443 ,X_BASE_RAW_COST_PP_B
444 ,X_BASE_RAW_COST_PTD_B
445 ,X_BASE_BURDENED_COST_ITD_B
446 ,X_BASE_BURDENED_COST_YTD_B
447 ,X_BASE_BURDENED_COST_PP_B
448 ,X_BASE_BURDENED_COST_PTD_B
449 ,X_ORIG_RAW_COST_ITD_B
450 ,X_ORIG_RAW_COST_YTD_B
451 ,X_ORIG_RAW_COST_PP_B
452 ,X_ORIG_RAW_COST_PTD_B
453 ,X_ORIG_BURDENED_COST_ITD_B
454 ,X_ORIG_BURDENED_COST_YTD_B
455 ,X_ORIG_BURDENED_COST_PP_B
456 ,X_ORIG_BURDENED_COST_PTD_B
457 ,X_BASE_REVENUE_ITD_B
458 ,X_BASE_REVENUE_YTD_B
459 ,X_BASE_REVENUE_PP_B
460 ,X_BASE_REVENUE_PTD_B
461 ,X_ORIG_REVENUE_ITD_B
462 ,X_ORIG_REVENUE_YTD_B
463 ,X_ORIG_REVENUE_PP_B
464 ,X_ORIG_REVENUE_PTD_B
465 ,X_ORIG_LABOR_HOURS_ITD_B
466 ,X_ORIG_LABOR_HOURS_YTD_B
467 ,X_ORIG_LABOR_HOURS_PP_B
468 ,X_ORIG_LABOR_HOURS_PTD_B
469 ,X_BASE_LABOR_HOURS_ITD_B
470 ,X_BASE_LABOR_HOURS_YTD_B
471 ,X_BASE_LABOR_HOURS_PP_B
472 ,X_BASE_LABOR_HOURS_PTD_B
473 ,X_ORIG_QUANTITY_YTD_B
474 ,X_ORIG_QUANTITY_ITD_B
475 ,X_ORIG_QUANTITY_PP_B
476 ,X_ORIG_QUANTITY_PTD_B
477 ,X_BASE_QUANTITY_YTD_B
478 ,X_BASE_QUANTITY_ITD_B
479 ,X_BASE_QUANTITY_PP_B
480 ,X_BASE_QUANTITY_PTD_B
481 ,X_ORIG_LABOR_HOURS_TOT_B
482 ,X_BASE_LABOR_HOURS_TOT_B
483 ,X_ORIG_QUANTITY_TOT_B
484 ,X_BASE_QUANTITY_TOT_B
485 ,X_BASE_RAW_COST_TOT_B
486 ,X_BASE_BURDENED_COST_TOT_B
487 ,X_ORIG_RAW_COST_TOT_B
488 ,X_ORIG_BURDENED_COST_TOT_B
489 ,X_BASE_REVENUE_TOT_B
490 ,X_ORIG_REVENUE_TOT_B
491 ,X_BASE_RAW_COST_ITD_A
492 ,X_BASE_RAW_COST_YTD_A
493 ,X_BASE_RAW_COST_PP_A
494 ,X_BASE_RAW_COST_PTD_A
495 ,X_BASE_BURDENED_COST_ITD_A
496 ,X_BASE_BURDENED_COST_YTD_A
497 ,X_BASE_BURDENED_COST_PP_A
498 ,X_BASE_BURDENED_COST_PTD_A
499 ,X_ORIG_RAW_COST_ITD_A
500 ,X_ORIG_RAW_COST_YTD_A
501 ,X_ORIG_RAW_COST_PP_A
502 ,X_ORIG_RAW_COST_PTD_A
503 ,X_ORIG_BURDENED_COST_ITD_A
504 ,X_ORIG_BURDENED_COST_YTD_A
505 ,X_ORIG_BURDENED_COST_PP_A
506 ,X_ORIG_BURDENED_COST_PTD_A
507 ,X_BASE_REVENUE_ITD_A
508 ,X_BASE_REVENUE_YTD_A
509 ,X_BASE_REVENUE_PP_A
510 ,X_BASE_REVENUE_PTD_A
511 ,X_ORIG_REVENUE_ITD_A
512 ,X_ORIG_REVENUE_YTD_A
513 ,X_ORIG_REVENUE_PP_A
514 ,X_ORIG_REVENUE_PTD_A
515 ,X_ORIG_LABOR_HOURS_ITD_A
516 ,X_ORIG_LABOR_HOURS_YTD_A
517 ,X_ORIG_LABOR_HOURS_PP_A
518 ,X_ORIG_LABOR_HOURS_PTD_A
519 ,X_BASE_LABOR_HOURS_ITD_A
520 ,X_BASE_LABOR_HOURS_YTD_A
521 ,X_BASE_LABOR_HOURS_PP_A
522 ,X_BASE_LABOR_HOURS_PTD_A
523 ,X_ORIG_QUANTITY_YTD_A
524 ,X_ORIG_QUANTITY_ITD_A
525 ,X_ORIG_QUANTITY_PP_A
526 ,X_ORIG_QUANTITY_PTD_A
527 ,X_BASE_QUANTITY_YTD_A
528 ,X_BASE_QUANTITY_ITD_A
529 ,X_BASE_QUANTITY_PP_A
530 ,X_BASE_QUANTITY_PTD_A
531 ,X_ORIG_LABOR_HOURS_TOT_A
532 ,X_BASE_LABOR_HOURS_TOT_A
533 ,X_ORIG_QUANTITY_TOT_A
534 ,X_BASE_QUANTITY_TOT_A
535 ,X_BASE_RAW_COST_TOT_A
536 ,X_BASE_BURDENED_COST_TOT_A
537 ,X_ORIG_RAW_COST_TOT_A
538 ,X_ORIG_BURDENED_COST_TOT_A
539 ,X_BASE_REVENUE_TOT_A
540 ,X_ORIG_REVENUE_TOT_A);
541 END LOOP;
542 EXCEPTION
543 WHEN OTHERS THEN
544 NULL;
545 END;
546 NUMBER_OF_MESSAGES := PA_DEBUG.NO_OF_DEBUG_MESSAGES;
547 IF (NUMBER_OF_MESSAGES > 0) THEN
548 /*SRW.MESSAGE(1
549 ,'Debug Messages:')*/NULL;
550 FOR i IN 1 .. NUMBER_OF_MESSAGES LOOP
551 PA_DEBUG.GET_MESSAGE(I
552 ,MESSAGE_BUF);
553 /*SRW.MESSAGE(1
554 ,MESSAGE_BUF)*/NULL;
555 END LOOP;
556 END IF;
557 IF (C_RETCODE <> 0) THEN
558 RAISE ACCUM_ERROR;
559 END IF;
560 EXCEPTION
561 WHEN OTHERS THEN
562 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
563 END;
564 RETURN (TRUE);
565 END AFTERREPORT;
566
567 FUNCTION FMT(NUMBER_IN IN NUMBER) RETURN VARCHAR2 IS
568 BEGIN
569 RETURN TO_CHAR(NVL(NUMBER_IN
570 ,0)
571 ,'9999990D99');
572 END FMT;
573
574 FUNCTION CF_CORBFORMULA(PROJECT_TYPE_CLASS_CODE IN VARCHAR2) RETURN VARCHAR2 IS
575 BEGIN
576 IF PROJECT_TYPE_CLASS_CODE = 'CAPITAL' THEN
577 RETURN P_CAPITAL;
578 ELSE
579 RETURN P_BILLABLE;
580 END IF;
581 END CF_CORBFORMULA;
582
583 FUNCTION C_FMT_MASKFORMULA RETURN VARCHAR2 IS
584 TMP_FMT_MASK VARCHAR2(15);
585 BEGIN
586 TMP_FMT_MASK := PA_CURRENCY.CURRENCY_FMT_MASK(15);
587 RETURN TMP_FMT_MASK;
588 END C_FMT_MASKFORMULA;
589
590 FUNCTION CF_EXCEPTION_MSGFORMULA(SUM_EXCEPTION_CODE IN VARCHAR2) RETURN CHAR IS
591 TMP_MESSAGE VARCHAR2(255);
592 BEGIN
593 FND_MESSAGE.SET_NAME('PA'
594 ,SUM_EXCEPTION_CODE);
595 SELECT
596 SUBSTRB(FND_MESSAGE.GET
597 ,1
598 ,255)
599 INTO TMP_MESSAGE
600 FROM
601 DUAL;
602 RETURN TMP_MESSAGE;
603 END CF_EXCEPTION_MSGFORMULA;
604
605 FUNCTION CF_REJECTION_REASONFORMULA(CMT_REJECTION_CODE IN VARCHAR2) RETURN CHAR IS
606 TMP_COMMIT_EXCEPT VARCHAR2(255);
607 BEGIN
608 FND_MESSAGE.SET_NAME('PA'
609 ,CMT_REJECTION_CODE);
610 SELECT
611 SUBSTRB(FND_MESSAGE.GET
612 ,1
613 ,255)
614 INTO TMP_COMMIT_EXCEPT
615 FROM
616 DUAL;
617 RETURN TMP_COMMIT_EXCEPT;
618 END CF_REJECTION_REASONFORMULA;
619
620 FUNCTION CP_ROUND_CURRENCY_1_P RETURN NUMBER IS
621 BEGIN
622 RETURN CP_ROUND_CURRENCY_1;
623 END CP_ROUND_CURRENCY_1_P;
624
625 FUNCTION CP_ROUND_CURRENCY_2_P RETURN NUMBER IS
626 BEGIN
627 RETURN CP_ROUND_CURRENCY_2;
628 END CP_ROUND_CURRENCY_2_P;
629
630 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
631 BEGIN
632 RETURN C_COMPANY_NAME_HEADER;
633 END C_COMPANY_NAME_HEADER_P;
634
635 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
636 BEGIN
637 RETURN C_NO_DATA_FOUND;
638 END C_NO_DATA_FOUND_P;
639
640 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
641 BEGIN
642 RETURN C_DUMMY_DATA;
643 END C_DUMMY_DATA_P;
644
645 FUNCTION C_RETCODE_P RETURN NUMBER IS
646 BEGIN
647 RETURN C_RETCODE;
648 END C_RETCODE_P;
649
650 FUNCTION CP_ROUND_CURRENCY_P RETURN NUMBER IS
651 BEGIN
652 RETURN CP_ROUND_CURRENCY;
653 END CP_ROUND_CURRENCY_P;
654
655 END PA_PAXACRPT_XMLP_PKG;
656