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