1 PACKAGE BODY WIP_WIPDJRTG_XMLP_PKG AS
2 /* $Header: WIPDJRTGB.pls 120.1 2008/01/31 12:22:14 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 APF BOOLEAN;
5 BEGIN
6 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7 APF := afterpform;
8 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
9 DECLARE
10 P_ORG_ID_CHAR VARCHAR2(100) := (P_ORGANIZATION_ID);
11 BEGIN
12 FND_PROFILE.PUT('MFG_ORGANIZATION_ID'
13 ,P_ORG_ID_CHAR);
14 /*SRW.USER_EXIT('FND PUTPROFILE NAME="' || 'MFG_ORGANIZATION_ID' || '" FIELD="' || P_ORG_ID_CHAR || '"')*/NULL;
15 EXCEPTION
16 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
17 /*SRW.MESSAGE(020
18 ,'Failed in before report trigger, setting org profile ')*/NULL;
19 RAISE;
20 END;
21 RETURN (TRUE);
22 RETURN (TRUE);
23 END BEFOREREPORT;
24
25 FUNCTION NAME_RANGE RETURN CHARACTER IS
26 NAME_RANGE VARCHAR2(240);
27 BEGIN
28 IF (P_WIP_ENTITY_NAME1 IS NOT NULL) THEN
29 IF (P_WIP_ENTITY_NAME2 IS NOT NULL) THEN
30 IF (P_WIP_ENTITY_NAME1 = P_WIP_ENTITY_NAME2) THEN
31 NAME_RANGE := 'AND E.WIP_ENTITY_NAME = ''' || P_WIP_ENTITY_NAME1 || '''';
32 ELSE
33 NAME_RANGE := 'AND E.WIP_ENTITY_NAME BETWEEN ''' || P_WIP_ENTITY_NAME1 || '''
34 AND ''' || P_WIP_ENTITY_NAME2 || '''';
35 END IF;
36 ELSE
37 NAME_RANGE := 'AND E.WIP_ENTITY_NAME >= ''' || P_WIP_ENTITY_NAME1 || '''';
38 END IF;
39 ELSE
40 IF (P_WIP_ENTITY_NAME2 IS NOT NULL) THEN
41 NAME_RANGE := 'AND E.WIP_ENTITY_NAME <= ''' || P_WIP_ENTITY_NAME2 || '''';
42 ELSE
43 NAME_RANGE := ' ';
44 END IF;
45 END IF;
46 RETURN (NAME_RANGE);
47 END NAME_RANGE;
48
49 FUNCTION DATE_RANGE RETURN CHARACTER IS
50 DATE_RANGE VARCHAR2(150);
51 BEGIN
52 IF (P_SCHEDULED_START_DATE1 IS NOT NULL) THEN
53 IF (P_SCHEDULED_START_DATE2 IS NOT NULL) THEN
54 IF (P_SCHEDULED_START_DATE1 = P_SCHEDULED_START_DATE2) THEN
55 DATE_RANGE := ' AND TRUNC(D.SCHEDULED_START_DATE) = TO_DATE(''' || TO_CHAR(P_SCHEDULED_START_DATE1
56 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
57 ELSE
58 DATE_RANGE := ' AND TRUNC(D.SCHEDULED_START_DATE) BETWEEN TO_DATE(''' || TO_CHAR(P_SCHEDULED_START_DATE1
59 ,'YYYYMMDD') || ''',''YYYYMMDD'') AND TO_DATE(''' || TO_CHAR(P_SCHEDULED_START_DATE2
60 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
61 END IF;
62 ELSE
63 DATE_RANGE := ' AND TRUNC(D.SCHEDULED_START_DATE) >= TO_DATE(''' || TO_CHAR(P_SCHEDULED_START_DATE1
64 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
65 END IF;
66 ELSE
67 IF (P_SCHEDULED_START_DATE2 IS NOT NULL) THEN
68 DATE_RANGE := ' AND TRUNC(D.SCHEDULED_START_DATE) <= TO_DATE(''' || TO_CHAR(P_SCHEDULED_START_DATE2
69 ,'YYYYMMDD') || ''',''YYYYMMDD'')';
70 ELSE
71 DATE_RANGE := ' ';
72 END IF;
73 END IF;
74 RETURN (DATE_RANGE);
75 END DATE_RANGE;
76
77 FUNCTION NAME_OR_DATE RETURN CHARACTER IS
78 NAME_OR_DATE CHARACTER(50);
79 BEGIN
80 IF ((P_WIP_ENTITY_NAME1 IS NOT NULL) OR (P_WIP_ENTITY_NAME2 IS NOT NULL)) THEN
81 NAME_OR_DATE := 'E.WIP_ENTITY_NAME, D.SCHEDULED_START_DATE,';
82 ELSE
83 IF ((P_SCHEDULED_START_DATE1 IS NOT NULL) OR (P_SCHEDULED_START_DATE2 IS NOT NULL)) THEN
84 NAME_OR_DATE := 'D.SCHEDULED_START_DATE, E.WIP_ENTITY_NAME,';
85 ELSE
86 NAME_OR_DATE := 'E.WIP_ENTITY_NAME, D.SCHEDULED_START_DATE';
87 END IF;
88 END IF;
89 RETURN (NAME_OR_DATE);
90 END NAME_OR_DATE;
91
92 FUNCTION AFTERREPORT RETURN BOOLEAN IS
93 BEGIN
94 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
95 RETURN (TRUE);
96 END AFTERREPORT;
97
98 FUNCTION AFTERPFORM RETURN BOOLEAN IS
99 BEGIN
100 IF P_SCHEDULE_GROUP_FROM IS NOT NULL OR P_SCHEDULE_GROUP_TO IS NOT NULL THEN
101 P_SG_OUTER := ' ';
102 END IF;
103 RETURN (TRUE);
104 END AFTERPFORM;
105
106 FUNCTION C_LIMITER RETURN VARCHAR2 IS
107 C_OUT VARCHAR2(200);
108 BEGIN
109 IF P_SCHEDULE_GROUP_FROM IS NOT NULL THEN
110 IF P_SCHEDULE_GROUP_TO IS NOT NULL THEN
111 C_OUT := ' AND SG.SCHEDULE_GROUP_NAME BETWEEN ''' || P_SCHEDULE_GROUP_FROM || ''' AND ''' || P_SCHEDULE_GROUP_TO || '''';
112 ELSE
113 C_OUT := ' AND SG.SCHEDULE_GROUP_NAME >= ''' || P_SCHEDULE_GROUP_FROM || '''';
114 END IF;
115 ELSE
116 IF P_SCHEDULE_GROUP_TO IS NOT NULL THEN
117 C_OUT := ' AND SG.SCHEDULE_GROUP_NAME <= ''' || P_SCHEDULE_GROUP_TO || '''';
118 ELSE
119 C_OUT := ' ';
120 END IF;
121 END IF;
122 RETURN (C_OUT);
123 END C_LIMITER;
124
125 FUNCTION C_ORDER_BYFORMULA RETURN VARCHAR2 IS
126 BEGIN
127 IF P_SORT_BY = 14 THEN
128 RETURN ('SG.SCHEDULE_GROUP_NAME, D.BUILD_SEQUENCE');
129 ELSE
130 RETURN ('E.WIP_ENTITY_NAME');
131 END IF;
132 RETURN NULL;
133 END C_ORDER_BYFORMULA;
134
135 END WIP_WIPDJRTG_XMLP_PKG;
136