1 PACKAGE BODY WIP_WIPRELIN_XMLP_PKG AS
2 /* $Header: WIPRELINB.pls 120.2 2008/01/31 12:37:30 npannamp noship $ */
3 FUNCTION LIMIT_LINES RETURN CHARACTER IS
4 LIMIT_LINES VARCHAR2(80);
5 BEGIN
6 IF (P_FROM_LINE IS NOT NULL) THEN
7 IF (P_TO_LINE IS NOT NULL) THEN
8 LIMIT_LINES := ' AND WL.LINE_CODE BETWEEN ''' || P_FROM_LINE || ''' AND ''' || P_TO_LINE || ''' ';
9 ELSE
10 LIMIT_LINES := ' AND WL.LINE_CODE >= ''' || P_FROM_LINE || ''' ';
11 END IF;
12 ELSE
13 IF (P_TO_LINE IS NOT NULL) THEN
14 LIMIT_LINES := ' AND WL.LINE_CODE <= ''' || P_TO_LINE || ''' ';
15 ELSE
16 LIMIT_LINES := ' ';
17 END IF;
18 END IF;
19 RETURN (LIMIT_LINES);
20 END LIMIT_LINES;
21
22 FUNCTION LIMIT_JOBS RETURN CHARACTER IS
23 LIMIT_JOBS VARCHAR2(500);
24 BEGIN
25 IF (P_FROM_JOB IS NOT NULL) THEN
26 IF (P_TO_JOB IS NOT NULL) THEN
27 LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME BETWEEN ''' || P_FROM_JOB || ''' AND ''' || P_TO_JOB || '''';
28 ELSE
29 LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME >= ''' || P_FROM_JOB || '''';
30 END IF;
31 ELSE
32 IF (P_TO_JOB IS NOT NULL) THEN
33 LIMIT_JOBS := ' AND WE.WIP_ENTITY_NAME <= ''' || P_TO_JOB || '''';
34 ELSE
35 LIMIT_JOBS := ' ';
36 END IF;
37 END IF;
38 RETURN (LIMIT_JOBS);
39 END LIMIT_JOBS;
40
41 FUNCTION LIMIT_DATES RETURN CHARACTER IS
42 LIMIT_DATES VARCHAR2(1000);
43 BEGIN
44 IF (P_FROM_DATE IS NOT NULL) THEN
45 IF (P_TO_DATE IS NOT NULL) THEN
46 LIMIT_DATES := ' AND (((TRUNC(RS.FIRST_UNIT_START_DATE) < TO_DATE(''' || TO_CHAR(P_FROM_DATE
47 ,'YYYYMMDD') || ''',''YYYYMMDD'')) AND (TRUNC(RS.LAST_UNIT_COMPLETION_DATE) >= TO_DATE(''' || TO_CHAR(P_TO_DATE
48 ,'YYYYMMDD') || ''',''YYYYMMDD'')))' || ' OR ((TRUNC(RS.FIRST_UNIT_START_DATE) >= TO_DATE(''' || TO_CHAR(P_FROM_DATE
49 ,'YYYYMMDD') || ''',''YYYYMMDD'')) AND (TRUNC(RS.LAST_UNIT_COMPLETION_DATE) <= TO_DATE(''' || TO_CHAR(P_TO_DATE
50 ,'YYYYMMDD') || ''',''YYYYMMDD'')))' || ' OR ((TRUNC(RS.FIRST_UNIT_START_DATE) <= TO_DATE(''' || TO_CHAR(P_FROM_DATE
51 ,'YYYYMMDD') || ''',''YYYYMMDD'')) AND (TRUNC(RS.LAST_UNIT_COMPLETION_DATE) > TO_DATE(''' || TO_CHAR(P_TO_DATE
52 ,'YYYYMMDD') || ''',''YYYYMMDD'')))' || ' OR ((TRUNC(RS.FIRST_UNIT_START_DATE) <= TO_DATE(''' || TO_CHAR(P_FROM_DATE
53 ,'YYYYMMDD') || ''',''YYYYMMDD'')) AND (TRUNC(RS.LAST_UNIT_COMPLETION_DATE) >= TO_DATE(''' || TO_CHAR(P_TO_DATE
54 ,'YYYYMMDD') || ''',''YYYYMMDD''))))';
55 ELSE
56 LIMIT_DATES := ' AND TRUNC(RS.LAST_UNIT_COMPLETION_DATE) >= TO_DATE(''' || TO_CHAR(P_FROM_DATE
57 ,'YYYYMMDD') || ''',''YYYYMMDD'') ';
58 END IF;
59 ELSE
60 IF (P_TO_DATE IS NOT NULL) THEN
61 LIMIT_DATES := ' AND TRUNC(RS.FIRST_UNIT_START_DATE) <= TO_DATE(''' || TO_CHAR(P_TO_DATE
62 ,'YYYYMMDD') || ''',''YYYYMMDD'') ';
63 ELSE
64 LIMIT_DATES := ' ';
65 END IF;
66 END IF;
67 RETURN (LIMIT_DATES);
68 END LIMIT_DATES;
69
70 FUNCTION AFTERREPORT RETURN BOOLEAN IS
71 BEGIN
72 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
73 RETURN (TRUE);
74 END AFTERREPORT;
75
76 FUNCTION AFTERPFORM RETURN BOOLEAN IS
77 BEGIN
78 qty_precision:=wip_common_xmlp_pkg.get_precision(P_qty_precision);
79 RETURN (TRUE);
80 END AFTERPFORM;
81
82 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
83 BEGIN
84 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
85 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
86 RETURN (TRUE);
87 END BEFOREREPORT;
88
89 END WIP_WIPRELIN_XMLP_PKG;
90