[Home] [Help]
PACKAGE BODY: APPS.EAM_EAMWSREP_XMLP_PKG
Source
1 PACKAGE BODY EAM_EAMWSREP_XMLP_PKG AS
2 /* $Header: EAMWSREPB.pls 120.0 2007/12/25 08:02:35 krreddy noship $ */
3 FUNCTION CF_AREA RETURN VARCHAR2 IS
4 CF_AREA VARCHAR2(150) := '';
5 BEGIN
6 IF P_AREA IS NOT NULL THEN
7 CF_AREA := 'and mel.location_codes=''' || RTRIM(P_AREA) || '''';
8 ELSE
9 CF_AREA := 'and 1=1';
10 END IF;
11 RETURN (CF_AREA);
12 END CF_AREA;
13
14 FUNCTION CF_ASSET RETURN CHAR IS
15 CF_ASSET VARCHAR2(100) := '';
16 BEGIN
17 IF P_ASSET IS NOT NULL THEN
18 CF_ASSET := 'and cii.instance_number= ''' || P_ASSET || '''';
19 ELSE
20 CF_ASSET := 'and 1=1';
21 END IF;
22 RETURN (CF_ASSET);
23 END CF_ASSET;
24
25 FUNCTION CF_REBUILD_ITEM RETURN CHAR IS
26 CF_REBUILD_ITEM VARCHAR2(50) := '';
27 BEGIN
28 IF P_REBUILD_ITEM IS NOT NULL THEN
29 CF_REBUILD_ITEM := 'and wdj.rebuild_item_id= ' || P_REBUILD_ITEM;
30 ELSE
31 CF_REBUILD_ITEM := 'and 1=1';
32 END IF;
33 RETURN (CF_REBUILD_ITEM);
34 END CF_REBUILD_ITEM;
35
36 FUNCTION CF_ASSIGNED_DEPT RETURN CHAR IS
37 CF_ASSIGNED_DEPT VARCHAR2(200) := '';
38 BEGIN
39 IF P_ASSIGNED_DEPT IS NOT NULL THEN
40 CF_ASSIGNED_DEPT := 'and bd.department_code=''' || RTRIM(P_ASSIGNED_DEPT) || '''';
41 ELSE
42 CF_ASSIGNED_DEPT := 'and 1=1';
43 END IF;
44 RETURN (CF_ASSIGNED_DEPT);
45 END CF_ASSIGNED_DEPT;
46
47 FUNCTION CF_INSTANCE RETURN VARCHAR2 IS
48 CF_INSTANCE VARCHAR2(2000) := '';
49 BEGIN
50 IF P_INSTANCE IS NOT NULL THEN
51 CF_INSTANCE := 'and worp.instance_id = ((SELECT bre.instance_id FROM PER_ALL_PEOPLE_F PAPF,bom_resource_employees bre,bom_resources br1
52 WHERE trunc(sysdate) between papf.effective_start_date and papf.effective_end_date AND
53 PAPF.PERSON_ID = BRE.PERSON_ID and
54 bre.instance_id =worp.instance_id and
55 bre.resource_id =br.resource_id and
56 br1.resource_id=bre.resource_id and
57 br1.organization_id=worp.organization_id and
58 bre.organization_id = worp.organization_id and
59 papf.full_name = ''' || P_INSTANCE || '''
60 and br1.resource_type=2)
61 union
62 (select bre.instance_id
63 FROM MTL_SYSTEM_ITEMS_KFV MSIK, bom_resource_equipments bre,bom_resources br2
64 WHERE BRE.INVENTORY_ITEM_ID = MSIK.INVENTORY_ITEM_ID AND
65 MSIK.ITEM_TYPE = ''EQ'' and
66 bre.instance_id =worp.instance_id and
67 bre.resource_id = br.resource_id and
68 br2.resource_id=bre.resource_id and
69 br2.organization_id=worp.organization_id and
70 bre.organization_id = worp.organization_id
71 and br2.resource_type=1 and
72 MSIK.CONCATENATED_SEGMENTS =''' || P_INSTANCE || '''))';
73 ELSE
74 CF_INSTANCE := 'and 1=1';
75 END IF;
76 RETURN (CF_INSTANCE);
77 END CF_INSTANCE;
78
79 FUNCTION CF_OWNING_DEPARTMENT RETURN varchar2 IS
80 CF_OWNING_DEPARTMENT VARCHAR2(20000) := '';
81 BEGIN
82 IF P_OWNING_DEPARTMENT IS NOT NULL THEN
83 CF_OWNING_DEPARTMENT := 'and wdj.owning_department=
84 (select department_id from bom_departments where department_code=''' || RTRIM(P_OWNING_DEPARTMENT) || '''
85 and organization_id=worp.organization_id)';
86 ELSE
87 CF_OWNING_DEPARTMENT := 'and 1=1';
88 END IF;
89 RETURN (CF_OWNING_DEPARTMENT);
90 END CF_OWNING_DEPARTMENT;
91
92 FUNCTION CF_REPORT_HEADER RETURN CHAR IS
93 CF_REPORT_HEADER VARCHAR2(200);
94 BEGIN
95 CF_REPORT_HEADER := 'Weekly Schedule';
96 RETURN (CF_REPORT_HEADER);
97 END CF_REPORT_HEADER;
98
99 FUNCTION CF_RESOURCE RETURN VARCHAR2 IS
100 CF_RESOURCE VARCHAR2(1000) := '';
101 BEGIN
102 IF P_RESOURCE IS NULL THEN
103 CF_RESOURCE := 'and 1=1';
104 ELSE
105 CF_RESOURCE := 'and br.resource_code=''' || P_RESOURCE || '''';
106 END IF;
107 RETURN (CF_RESOURCE);
108 END CF_RESOURCE;
109
110 FUNCTION CF_SHUTDOWN_TYPE RETURN CHAR IS
111 CF_SHUTDOWN_TYPE VARCHAR2(50) := '';
112 BEGIN
113 IF P_SHUTDOWN_TYPE IS NOT NULL THEN
114 CF_SHUTDOWN_TYPE := 'and ml2.meaning=''' || P_SHUTDOWN_TYPE || '''';
115 ELSE
116 CF_SHUTDOWN_TYPE := 'and 1=1';
117 END IF;
118 RETURN (CF_SHUTDOWN_TYPE);
119 END CF_SHUTDOWN_TYPE;
120
121 FUNCTION CF_SORT_BY RETURN CHAR IS
122 CF_SORT_BY VARCHAR2(500) := ' ';
123 BEGIN
124 RETURN (CF_SORT_BY);
125 END CF_SORT_BY;
126
127 FUNCTION DAYS(RES_START_DATE IN DATE
128 ,RES_COMPLETION_DATE IN DATE) RETURN VARCHAR2 IS
129 X_ST_DAY_TIME VARCHAR2(5) := '';
130 X_END_DAY_TIME VARCHAR2(5) := '';
131 X_START_DAY VARCHAR2(20) := '';
132 X_END_DAY VARCHAR2(20) := '';
133 X_PERIOD NUMBER := 0;
134 ADD_DAY NUMBER;
135 X_MID_DAY VARCHAR2(20) := '';
136 SUB_DAY NUMBER;
137 X_WK_ST_DATE DATE;
138 BEGIN
139 /*SRW.REFERENCE(RES_START_DATE)*/NULL;
140 /*SRW.REFERENCE(RES_COMPLETION_DATE)*/NULL;
141 /*SRW.REFERENCE(CP_1)*/NULL;
142 /*SRW.REFERENCE(CP_2)*/NULL;
143 /*SRW.REFERENCE(CP_3)*/NULL;
144 /*SRW.REFERENCE(CP_4)*/NULL;
145 /*SRW.REFERENCE(CP_5)*/NULL;
146 /*SRW.REFERENCE(CP_6)*/NULL;
147 /*SRW.REFERENCE(CP_7)*/NULL;
148 /*SRW.REFERENCE(CP_8)*/NULL;
149 /*SRW.REFERENCE(CP_11)*/NULL;
150 /*SRW.REFERENCE(CP_12)*/NULL;
151 /*SRW.REFERENCE(CP_13)*/NULL;
152 /*SRW.REFERENCE(CP_14)*/NULL;
153 /*SRW.REFERENCE(CP_15)*/NULL;
154 /*SRW.REFERENCE(CP_16)*/NULL;
155 /*SRW.REFERENCE(CP_17)*/NULL;
156 CP_1 := NULL;
157 CP_2 := '';
158 CP_3 := '';
159 CP_4 := '';
160 CP_5 := '';
161 CP_6 := '';
162 CP_7 := '';
163 IF TO_NUMBER(TO_CHAR(RES_START_DATE
164 ,'MI')) > 30 THEN
165 X_ST_DAY_TIME := SUBSTR(TO_CHAR(24 - TO_NUMBER(TO_CHAR(RES_START_DATE
166 ,'HH24')))
167 ,1
168 ,2);
169 ELSE
170 X_ST_DAY_TIME := SUBSTR(TO_CHAR(23 - TO_NUMBER(TO_CHAR(RES_START_DATE
171 ,'HH24')))
172 ,1
173 ,2);
174 END IF;
175 IF TO_NUMBER(TO_CHAR(RES_COMPLETION_DATE
176 ,'MI')) < 30 THEN
177 X_END_DAY_TIME := SUBSTR(TO_CHAR(TO_NUMBER(TO_CHAR(RES_COMPLETION_DATE
178 ,'HH24')) + 1)
179 ,1
180 ,2);
181 ELSE
182 X_END_DAY_TIME := SUBSTR(TO_CHAR(RES_COMPLETION_DATE
183 ,'HH24')
184 ,1
185 ,2);
186 END IF;
187 X_START_DAY := SUBSTR(TO_CHAR(RES_START_DATE
188 ,'DAY')
189 ,1
190 ,3);
191 X_END_DAY := SUBSTR(TO_CHAR(RES_COMPLETION_DATE
192 ,'DAY')
193 ,1
194 ,3);
195 X_PERIOD := TO_NUMBER(RES_COMPLETION_DATE - RES_START_DATE);
196 IF X_PERIOD = 0 THEN
197 IF X_START_DAY = CP_11 THEN
198 CP_1 := 0;
199 ELSIF X_START_DAY = CP_12 THEN
200 CP_2 := 0;
201 ELSIF X_START_DAY = CP_13 THEN
202 CP_3 := 0;
203 ELSIF X_START_DAY = CP_14 THEN
204 CP_4 := 0;
205 ELSIF X_START_DAY = CP_15 THEN
206 CP_5 := 0;
207 ELSIF X_START_DAY = CP_16 THEN
208 CP_6 := 0;
209 ELSIF X_START_DAY = CP_17 THEN
210 CP_7 := 0;
211 END IF;
212 CP_8 := 0;
213 RETURN 'A';
214 END IF;
215 IF P_WEEK_START_DATE IS NOT NULL THEN
216 X_WK_ST_DATE := P_WEEK_START_DATE;
217 ELSE
218 X_WK_ST_DATE := ROUND(SYSDATE
219 ,'DAY');
220 END IF;
221 IF X_START_DAY = CP_11 THEN
222 ADD_DAY := 7;
223 ELSIF X_START_DAY = CP_12 THEN
224 ADD_DAY := 6;
225 ELSIF X_START_DAY = CP_13 THEN
226 ADD_DAY := 5;
227 ELSIF X_START_DAY = CP_14 THEN
228 ADD_DAY := 4;
229 ELSIF X_START_DAY = CP_15 THEN
230 ADD_DAY := 3;
231 ELSIF X_START_DAY = CP_16 THEN
232 ADD_DAY := 2;
233 ELSIF X_START_DAY = CP_17 THEN
234 ADD_DAY := 1;
235 END IF;
236 IF X_END_DAY = CP_11 THEN
237 SUB_DAY := 1;
238 ELSIF X_END_DAY = CP_12 THEN
239 SUB_DAY := 2;
240 ELSIF X_END_DAY = CP_13 THEN
241 SUB_DAY := 3;
242 ELSIF X_END_DAY = CP_14 THEN
243 SUB_DAY := 4;
244 ELSIF X_END_DAY = CP_15 THEN
245 SUB_DAY := 5;
246 ELSIF X_END_DAY = CP_16 THEN
247 SUB_DAY := 6;
248 ELSIF X_END_DAY = CP_17 THEN
249 SUB_DAY := 7;
250 END IF;
251 IF RES_START_DATE > X_WK_ST_DATE AND RES_START_DATE < (X_WK_ST_DATE + 7) THEN
252 IF TO_CHAR(RES_START_DATE
253 ,'DD-MON-RRRR') <> TO_CHAR(RES_COMPLETION_DATE
254 ,'DD-MON-RRRR') THEN
255 IF X_START_DAY = CP_11 THEN
256 CP_1 := X_ST_DAY_TIME;
257 ELSIF X_START_DAY = CP_12 THEN
258 CP_2 := X_ST_DAY_TIME;
259 ELSIF X_START_DAY = CP_13 THEN
260 CP_3 := X_ST_DAY_TIME;
261 ELSIF X_START_DAY = CP_14 THEN
262 CP_4 := X_ST_DAY_TIME;
263 ELSIF X_START_DAY = CP_15 THEN
264 CP_5 := X_ST_DAY_TIME;
265 ELSIF X_START_DAY = CP_16 THEN
266 CP_6 := X_ST_DAY_TIME;
267 ELSIF X_START_DAY = CP_17 THEN
268 CP_7 := X_ST_DAY_TIME;
269 END IF;
270 FOR i IN 1 .. ADD_DAY LOOP
271 IF RES_START_DATE + I < RES_COMPLETION_DATE AND RES_START_DATE + I <= (X_WK_ST_DATE + 7) THEN
272 X_MID_DAY := SUBSTR(TO_CHAR(RES_START_DATE + I
273 ,'DAY')
274 ,1
275 ,3);
276 IF X_MID_DAY = CP_11 THEN
277 CP_1 := 24;
278 ELSIF X_MID_DAY = CP_12 THEN
279 CP_2 := 24;
280 ELSIF X_MID_DAY = CP_13 THEN
281 CP_3 := 24;
282 ELSIF X_MID_DAY = CP_14 THEN
283 CP_4 := 24;
284 ELSIF X_MID_DAY = CP_15 THEN
285 CP_5 := 24;
286 ELSIF X_MID_DAY = CP_16 THEN
287 CP_6 := 24;
288 ELSIF X_MID_DAY = CP_17 THEN
289 CP_7 := 24;
290 END IF;
291 END IF;
292 END LOOP;
293 IF RES_COMPLETION_DATE < (X_WK_ST_DATE + 7) THEN
294 IF X_END_DAY = CP_11 THEN
295 CP_1 := X_END_DAY_TIME;
296 ELSIF X_END_DAY = CP_12 THEN
297 CP_2 := X_END_DAY_TIME;
298 ELSIF X_END_DAY = CP_13 THEN
299 CP_3 := X_END_DAY_TIME;
300 ELSIF X_END_DAY = CP_14 THEN
301 CP_4 := X_END_DAY_TIME;
302 ELSIF X_END_DAY = CP_15 THEN
303 CP_5 := X_END_DAY_TIME;
304 ELSIF X_END_DAY = CP_16 THEN
305 CP_6 := X_END_DAY_TIME;
306 ELSIF X_END_DAY = CP_17 THEN
307 CP_7 := X_END_DAY_TIME;
308 END IF;
309 END IF;
310 ELSIF TO_CHAR(RES_START_DATE
311 ,'DD-MON-RRRR') = TO_CHAR(RES_COMPLETION_DATE
312 ,'DD-MON-RRRR') THEN
313 IF X_START_DAY = CP_11 THEN
314 CP_1 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
315 ,1
316 ,2);
317 ELSIF X_START_DAY = CP_12 THEN
321 ELSIF X_START_DAY = CP_13 THEN
318 CP_2 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
319 ,1
320 ,2);
322 CP_3 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
323 ,1
324 ,2);
325 ELSIF X_START_DAY = CP_14 THEN
326 CP_4 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
327 ,1
328 ,2);
329 ELSIF X_START_DAY = CP_15 THEN
330 CP_5 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
331 ,1
332 ,2);
333 ELSIF X_START_DAY = CP_16 THEN
334 CP_6 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
335 ,1
336 ,2);
337 ELSIF X_START_DAY = CP_17 THEN
338 CP_7 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
339 ,1
340 ,2);
341 END IF;
342 END IF;
343 ELSIF RES_COMPLETION_DATE > X_WK_ST_DATE AND RES_COMPLETION_DATE < (X_WK_ST_DATE + 7) THEN
344 IF TO_CHAR(RES_START_DATE
345 ,'DD-MON-RRRR') <> TO_CHAR(RES_COMPLETION_DATE
346 ,'DD-MON-RRRR') THEN
347 IF X_END_DAY = CP_11 THEN
348 CP_1 := X_END_DAY_TIME;
349 ELSIF X_END_DAY = CP_12 THEN
350 CP_2 := X_END_DAY_TIME;
351 ELSIF X_END_DAY = CP_13 THEN
352 CP_3 := X_END_DAY_TIME;
353 ELSIF X_END_DAY = CP_14 THEN
354 CP_4 := X_END_DAY_TIME;
355 ELSIF X_END_DAY = CP_15 THEN
356 CP_5 := X_END_DAY_TIME;
357 ELSIF X_END_DAY = CP_16 THEN
358 CP_6 := X_END_DAY_TIME;
359 ELSIF X_END_DAY = CP_17 THEN
360 CP_7 := X_END_DAY_TIME;
361 END IF;
362 FOR i IN 1 .. (SUB_DAY - 1) LOOP
363 IF RES_COMPLETION_DATE - I > RES_START_DATE THEN
364 X_MID_DAY := SUBSTR(TO_CHAR(RES_COMPLETION_DATE - I
365 ,'DAY')
366 ,1
367 ,3);
368 IF X_MID_DAY = CP_11 THEN
369 CP_1 := 24;
370 ELSIF X_MID_DAY = CP_12 THEN
371 CP_2 := 24;
372 ELSIF X_MID_DAY = CP_13 THEN
373 CP_3 := 24;
374 ELSIF X_MID_DAY = CP_14 THEN
375 CP_4 := 24;
376 ELSIF X_MID_DAY = CP_15 THEN
377 CP_5 := 24;
378 ELSIF X_MID_DAY = CP_16 THEN
379 CP_6 := 24;
380 ELSIF X_MID_DAY = CP_17 THEN
381 CP_7 := 24;
382 END IF;
383 END IF;
384 END LOOP;
385 ELSIF TO_CHAR(RES_START_DATE
386 ,'DD-MON-RRRR') = TO_CHAR(RES_COMPLETION_DATE
387 ,'DD-MON-RRRR') THEN
388 IF X_START_DAY = CP_11 THEN
389 CP_1 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
390 ,1
391 ,2);
392 ELSIF X_START_DAY = CP_12 THEN
393 CP_2 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
394 ,1
395 ,2);
396 ELSIF X_START_DAY = CP_13 THEN
397 CP_3 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
398 ,1
399 ,2);
400 ELSIF X_START_DAY = CP_14 THEN
401 CP_4 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
402 ,1
403 ,2);
404 ELSIF X_START_DAY = CP_15 THEN
405 CP_5 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
406 ,1
407 ,2);
408 ELSIF X_START_DAY = CP_16 THEN
409 CP_6 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
410 ,1
411 ,2);
412 ELSIF X_START_DAY = CP_17 THEN
413 CP_7 := SUBSTR(((RES_COMPLETION_DATE - RES_START_DATE) * 24)
414 ,1
415 ,2);
416 END IF;
417 END IF;
418 ELSIF RES_COMPLETION_DATE > (X_WK_ST_DATE + 7) AND RES_START_DATE < X_WK_ST_DATE THEN
419 CP_1 := 24;
420 CP_2 := 24;
421 CP_3 := 24;
422 CP_4 := 24;
423 CP_5 := 24;
424 CP_6 := 24;
425 CP_7 := 24;
426 END IF;
427 CP_8 := TO_NUMBER(NVL(CP_1
428 ,0)) + TO_NUMBER(NVL(CP_2
429 ,0)) + TO_NUMBER(NVL(CP_3
430 ,0)) + TO_NUMBER(NVL(CP_4
431 ,0)) + TO_NUMBER(NVL(CP_5
432 ,0)) + TO_NUMBER(NVL(CP_6
433 ,0)) + TO_NUMBER(NVL(CP_7
434 ,0));
435 RETURN 'A';
436 END DAYS;
437
438 FUNCTION AFTERPFORM RETURN BOOLEAN IS
439 BEGIN
440 IF P_WEEK_STARTING IS NULL THEN
441 IF RTRIM(TO_CHAR(SYSDATE
442 ,'DAY')) in ('SUNDAY','MONDAY','TUESDAY') THEN
443 P_WEEK_START_DATE := ROUND(SYSDATE
444 ,'DAY');
445 ELSIF RTRIM(TO_CHAR(SYSDATE
446 ,'DAY')) in ('WEDNESDAY') THEN
447 P_WEEK_START_DATE := ROUND(SYSDATE - 1
448 ,'DAY');
449 ELSIF RTRIM(TO_CHAR(SYSDATE
450 ,'DAY')) in ('THURSDAY','FRIDAY','SATURDAY') THEN
451 P_WEEK_START_DATE := ROUND(SYSDATE - 4
452 ,'DAY');
453 END IF;
454 ELSE
455 P_WEEK_START_DATE := P_WEEK_STARTING;
456 P_DIS_START_DATE := P_WEEK_STARTING;
457 END IF;
458 IF P_SORT_BY IS NOT NULL THEN
459 BEGIN
460 SELECT
461 MEANING
462 INTO P_DIS_SORT_BY
463 FROM
464 MFG_LOOKUPS
465 WHERE LOOKUP_TYPE = 'EAM_WSREP_SORT_BY'
466 AND LOOKUP_CODE = P_SORT_BY;
467 EXCEPTION
468 WHEN OTHERS THEN
469 NULL;
470 END;
471 ELSE
472 P_DIS_SORT_BY := '';
473 END IF;
474 IF P_REBUILD_ITEM IS NOT NULL THEN
475 BEGIN
476 SELECT
477 CONCATENATED_SEGMENTS
478 INTO P_DIS_RBITEM
479 FROM
480 MTL_SYSTEM_ITEMS_B_KFV
481 WHERE INVENTORY_ITEM_ID = P_REBUILD_ITEM
482 AND ROWNUM < 2;
483 EXCEPTION
484 WHEN OTHERS THEN
485 NULL;
486 END;
487 ELSE
488 P_DIS_RBITEM := '';
489 END IF;
490 RETURN (TRUE);
491 END AFTERPFORM;
492
493 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
494 BEGIN
495 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
496 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
497 /*SRW.REFERENCE(P_WEEK_START_DATE)*/NULL;
498 /*SRW.REFERENCE(CP_11)*/NULL;
499 /*SRW.REFERENCE(CP_12)*/NULL;
500 /*SRW.REFERENCE(CP_13)*/NULL;
501 /*SRW.REFERENCE(CP_14)*/NULL;
502 /*SRW.REFERENCE(CP_15)*/NULL;
503 /*SRW.REFERENCE(CP_16)*/NULL;
504 /*SRW.REFERENCE(CP_17)*/NULL;
505 CP_11 := SUBSTR(TO_CHAR(P_WEEK_START_DATE
506 ,'DAY')
507 ,1
508 ,3);
509 CP_12 := SUBSTR(TO_CHAR(P_WEEK_START_DATE + 1
510 ,'DAY')
511 ,1
512 ,3);
513 CP_13 := SUBSTR(TO_CHAR(P_WEEK_START_DATE + 2
514 ,'DAY')
515 ,1
516 ,3);
517 CP_14 := SUBSTR(TO_CHAR(P_WEEK_START_DATE + 3
518 ,'DAY')
519 ,1
520 ,3);
521 CP_15 := SUBSTR(TO_CHAR(P_WEEK_START_DATE + 4
522 ,'DAY')
523 ,1
524 ,3);
525 CP_16 := SUBSTR(TO_CHAR(P_WEEK_START_DATE + 5
526 ,'DAY')
527 ,1
528 ,3);
529 CP_17 := SUBSTR(TO_CHAR(P_WEEK_START_DATE + 6
530 ,'DAY')
531 ,1
532 ,3);
533 RETURN (TRUE);
534 END BEFOREREPORT;
535
536 FUNCTION AFTERREPORT RETURN BOOLEAN IS
537 BEGIN
538 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
539 RETURN (TRUE);
540 END AFTERREPORT;
541
542 FUNCTION CP_1_P RETURN NUMBER IS
543 BEGIN
544 RETURN CP_1;
545 END CP_1_P;
546
547 FUNCTION CP_2_P RETURN NUMBER IS
548 BEGIN
549 RETURN CP_2;
550 END CP_2_P;
551
552 FUNCTION CP_3_P RETURN NUMBER IS
553 BEGIN
554 RETURN CP_3;
555 END CP_3_P;
556
557 FUNCTION CP_4_P RETURN NUMBER IS
558 BEGIN
559 RETURN CP_4;
560 END CP_4_P;
561
562 FUNCTION CP_5_P RETURN NUMBER IS
563 BEGIN
564 RETURN CP_5;
565 END CP_5_P;
566
567 FUNCTION CP_6_P RETURN NUMBER IS
568 BEGIN
569 RETURN CP_6;
570 END CP_6_P;
571
572 FUNCTION CP_7_P RETURN NUMBER IS
573 BEGIN
574 RETURN CP_7;
575 END CP_7_P;
576
577 FUNCTION CP_8_P RETURN NUMBER IS
578 BEGIN
579 RETURN CP_8;
580 END CP_8_P;
581
582 FUNCTION CP_13_P RETURN VARCHAR2 IS
583 BEGIN
584 RETURN CP_13;
585 END CP_13_P;
586
587 FUNCTION CP_14_P RETURN VARCHAR2 IS
588 BEGIN
589 RETURN CP_14;
590 END CP_14_P;
591
592 FUNCTION CP_15_P RETURN VARCHAR2 IS
593 BEGIN
594 RETURN CP_15;
595 END CP_15_P;
596
597 FUNCTION CP_16_P RETURN VARCHAR2 IS
598 BEGIN
599 RETURN CP_16;
600 END CP_16_P;
601
602 FUNCTION CP_17_P RETURN VARCHAR2 IS
603 BEGIN
604 RETURN CP_17;
605 END CP_17_P;
606
607 FUNCTION CP_11_P RETURN VARCHAR2 IS
608 BEGIN
609 RETURN CP_11;
610 END CP_11_P;
611
612 FUNCTION CP_12_P RETURN VARCHAR2 IS
613 BEGIN
614 RETURN CP_12;
615 END CP_12_P;
616
617 END EAM_EAMWSREP_XMLP_PKG;
618
619