[Home] [Help]
PACKAGE BODY: APPS.GMI_RIWHM_XMLP_PKG
Source
1 PACKAGE BODY GMI_RIWHM_XMLP_PKG AS
2 /* $Header: RIWHMB.pls 120.0 2007/12/24 13:28:19 nchinnam noship $ */
3 FUNCTION LEXPRMCFFORMULA RETURN VARCHAR2 IS
4 W_FROM VARCHAR2(4);
5 W_TO VARCHAR2(4);
6 D_FROM VARCHAR2(40);
7 D_TO VARCHAR2(40);
8 R_FROM VARCHAR2(8);
9 R_TO VARCHAR2(8);
10 C_FROM VARCHAR2(8);
11 C_TO VARCHAR2(8);
12 BEGIN
13 /*SRW.REFERENCE(LEXPRMCP)*/NULL;
14 IF SORT_BY = 'Whse' THEN
15 LEXPRMCP := ' whse_code between NVL(''' || FROM_WHSE || ''',whse_code) and NVL(''' || TO_WHSE || ''',whse_code)';
16 ELSIF SORT_BY = 'Description' THEN
17 LEXPRMCP := ' whse_name between NVL(''' || FROM_DESCRIPTION || ''',whse_name) and NVL(''' || TO_DESCRIPTION || ''',whse_name)';
18 ELSIF SORT_BY = 'Region' THEN
19 LEXPRMCP := ' region_code between NVL(''' || FROM_REGION || ''',region_code) and NVL(''' || TO_REGION || ''',region_code)';
20 ELSIF SORT_BY = 'Class' THEN
21 LEXPRMCP := ' whse_class between NVL(''' || FROM_CLASS || ''',whse_class) and NVL(''' || TO_CLASS || ''',whse_class)';
22 END IF;
23 RETURN NULL;
24 END LEXPRMCFFORMULA;
25
26 FUNCTION RANGE1FORMULA RETURN VARCHAR2 IS
27 RANGEV VARCHAR2(200);
28 BEGIN
29 IF SORT_BY = 'Whse' THEN
30 SELECT
31 DECODE(FROM_WHSE
32 ,NULL
33 ,DECODE(TO_WHSE
34 ,NULL
35 ,' Range : All '
36 ,' Warehouse Range: All - ' || TO_WHSE)
37 ,DECODE(TO_WHSE
38 ,NULL
39 ,' Warehouse Range: ' || FROM_WHSE || ' - All '
40 ,' Warehouse Range: ' || FROM_WHSE || ' - ' || TO_WHSE))
41 INTO RANGEV
42 FROM
43 DUAL;
44 ELSIF SORT_BY = 'Description' THEN
45 SELECT
46 DECODE(FROM_DESCRIPTION
47 ,NULL
48 ,DECODE(TO_DESCRIPTION
49 ,NULL
50 ,' Description Range: All '
51 ,' Description Range: All - ' || TO_DESCRIPTION)
52 ,DECODE(TO_DESCRIPTION
53 ,NULL
54 ,' Description Range: ' || FROM_DESCRIPTION || ' - All '
55 ,' Description Range: ' || FROM_DESCRIPTION || ' - ' || TO_DESCRIPTION))
56 INTO RANGEV
57 FROM
58 DUAL;
59 ELSIF SORT_BY = 'Region' THEN
60 SELECT
61 DECODE(FROM_REGION
62 ,NULL
63 ,DECODE(TO_REGION
64 ,NULL
65 ,' Range : All '
66 ,' Region Range: All - ' || TO_REGION)
67 ,DECODE(TO_REGION
68 ,NULL
69 ,' Region Range: ' || FROM_REGION || ' - All '
70 ,' Region Range: ' || FROM_REGION || ' - ' || TO_REGION))
71 INTO RANGEV
72 FROM
73 DUAL;
74 ELSIF SORT_BY = 'Class' THEN
75 SELECT
76 DECODE(FROM_CLASS
77 ,NULL
78 ,DECODE(TO_CLASS
79 ,NULL
80 ,' Range : All '
81 ,' class Range: All - ' || TO_CLASS)
82 ,DECODE(TO_CLASS
83 ,NULL
84 ,' class Range: ' || FROM_CLASS || ' - All '
85 ,' class Range: ' || FROM_CLASS || ' - ' || TO_CLASS))
86 INTO RANGEV
87 FROM
88 DUAL;
89 END IF;
90 RETURN (RANGEV);
91 END RANGE1FORMULA;
92
93 FUNCTION SORTCFFORMULA RETURN VARCHAR2 IS
94 SORT1 VARCHAR2(15);
95 BEGIN
96 IF SORT_BY = 'Whse' THEN
97 SELECT
98 'Whse'
99 INTO SORT1
100 FROM
101 DUAL;
102 ELSIF SORT_BY = 'Description' THEN
103 SELECT
104 'Description'
105 INTO SORT1
106 FROM
107 DUAL;
108 ELSIF SORT_BY = 'Region' THEN
109 SELECT
110 'Region'
111 INTO SORT1
112 FROM
113 DUAL;
114 ELSE
115 SELECT
116 'Class'
117 INTO SORT1
118 FROM
119 DUAL;
120 END IF;
121 RETURN (SORT1);
122 END SORTCFFORMULA;
123
124 FUNCTION LEX_ORDCFFORMULA RETURN VARCHAR2 IS
125 BEGIN
126 IF SORT_BY = 'Whse' THEN
127 IF ORDER1 = 'Ascending' THEN
128 RETURN ('whse_code asc');
129 ELSE
130 RETURN ('whse_code desc');
131 END IF;
132 ELSIF SORT_BY = 'Description' THEN
133 IF ORDER1 = 'Ascending' THEN
134 RETURN ('whse_name asc ');
135 ELSE
136 RETURN ('whse_name desc');
137 END IF;
138 ELSIF SORT_BY = 'Region' THEN
139 IF ORDER1 = 'Ascending' THEN
140 RETURN ('region_code asc ');
141 ELSE
142 RETURN ('region_code desc');
143 END IF;
144 ELSIF SORT_BY = 'Class' THEN
145 IF ORDER1 = 'Ascending' THEN
146 RETURN ('whse_class asc ');
147 ELSE
148 RETURN ('whse_class desc');
149 END IF;
150 END IF;
151 RETURN NULL;
152 END LEX_ORDCFFORMULA;
153
154 FUNCTION USERCFFORMULA RETURN VARCHAR2 IS
155 USERNAME VARCHAR2(100);
156 BEGIN
157 SELECT
158 USER_NAME
159 INTO USERNAME
160 FROM
161 FND_USER
162 WHERE USER_ID = GMI_RIWHM_XMLP_PKG.USER_ID;
163 RETURN (USERNAME);
164 END USERCFFORMULA;
165
166 FUNCTION FROM_WHSECFFORMULA RETURN VARCHAR2 IS
167 BEGIN
168 IF FROM_WHSE IS NULL THEN
169 SELECT
170 'All'
171 INTO FROM_WHSECP
172 FROM
173 DUAL;
174 ELSE
175 FROM_WHSECP := FROM_WHSE;
176 END IF;
177 RETURN (FROM_WHSECP);
178 END FROM_WHSECFFORMULA;
179
180 FUNCTION FROM_DESCRIPTIONCFFORMULA RETURN VARCHAR2 IS
181 BEGIN
182 IF FROM_DESCRIPTION IS NULL THEN
183 SELECT
184 'All'
185 INTO FROM_DESCRIPTIONCP
186 FROM
187 DUAL;
188 ELSE
189 FROM_DESCRIPTIONCP := FROM_DESCRIPTION;
190 END IF;
191 RETURN (FROM_DESCRIPTIONCP);
192 END FROM_DESCRIPTIONCFFORMULA;
193
194 FUNCTION TO_WHSECFFORMULA RETURN VARCHAR2 IS
195 BEGIN
196 IF TO_WHSE IS NULL THEN
197 SELECT
198 'All'
199 INTO TO_WHSECP
200 FROM
201 DUAL;
202 ELSE
203 TO_WHSECP := TO_WHSE;
204 END IF;
205 RETURN (TO_WHSECP);
206 END TO_WHSECFFORMULA;
207
208 FUNCTION TO_DESCRIPTIONCFFORMULA RETURN VARCHAR2 IS
209 BEGIN
210 IF TO_DESCRIPTION IS NULL THEN
211 SELECT
212 'All'
213 INTO TO_DESCRIPTIONCP
214 FROM
215 DUAL;
216 ELSE
217 TO_DESCRIPTIONCP := TO_DESCRIPTION;
218 END IF;
219 RETURN (TO_DESCRIPTIONCP);
220 END TO_DESCRIPTIONCFFORMULA;
221
222 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
223 BEGIN
224 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
225 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
226 RETURN (TRUE);
227 END BEFOREREPORT;
228
229 FUNCTION FROM_REGIONCFFORMULA RETURN CHAR IS
230 BEGIN
231 IF FROM_REGION IS NULL THEN
232 SELECT
233 'All'
234 INTO FROM_REGIONCP
235 FROM
236 DUAL;
237 ELSE
238 FROM_REGIONCP := FROM_REGION;
239 END IF;
240 RETURN (FROM_REGIONCP);
241 END FROM_REGIONCFFORMULA;
242
243 FUNCTION TO_REGIONCFFORMULA RETURN CHAR IS
244 BEGIN
245 IF TO_REGION IS NULL THEN
246 SELECT
247 'All'
248 INTO TO_REGIONCP
249 FROM
250 DUAL;
251 ELSE
252 TO_REGIONCP := TO_REGION;
253 END IF;
254 RETURN (TO_REGIONCP);
255 END TO_REGIONCFFORMULA;
256
257 FUNCTION FROM_CLASSCFFORMULA RETURN CHAR IS
258 BEGIN
259 IF FROM_CLASS IS NULL THEN
260 SELECT
261 'All'
262 INTO FROM_CLASSCP
263 FROM
264 DUAL;
265 ELSE
266 FROM_CLASSCP := FROM_CLASS;
267 END IF;
268 RETURN (FROM_CLASSCP);
269 END FROM_CLASSCFFORMULA;
270
271 FUNCTION TO_CLASSCFFORMULA RETURN CHAR IS
272 BEGIN
273 IF TO_CLASS IS NULL THEN
274 SELECT
275 'All'
276 INTO TO_CLASSCP
277 FROM
278 DUAL;
279 ELSE
280 TO_CLASSCP := TO_CLASS;
281 END IF;
282 RETURN (TO_CLASSCP);
283 END TO_CLASSCFFORMULA;
284
285 FUNCTION AFTERREPORT RETURN BOOLEAN IS
286 BEGIN
287 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
288 RETURN (TRUE);
289 END AFTERREPORT;
290
291 FUNCTION LEXPRMCP_P RETURN VARCHAR2 IS
292 BEGIN
293 RETURN LEXPRMCP;
294 END LEXPRMCP_P;
295
296 FUNCTION FROM_WHSECP_P RETURN VARCHAR2 IS
297 BEGIN
298 RETURN FROM_WHSECP;
299 END FROM_WHSECP_P;
300
301 FUNCTION FROM_DESCRIPTIONCP_P RETURN VARCHAR2 IS
302 BEGIN
303 RETURN FROM_DESCRIPTIONCP;
304 END FROM_DESCRIPTIONCP_P;
305
306 FUNCTION TO_WHSECP_P RETURN VARCHAR2 IS
307 BEGIN
308 RETURN TO_WHSECP;
309 END TO_WHSECP_P;
310
311 FUNCTION TO_DESCRIPTIONCP_P RETURN VARCHAR2 IS
312 BEGIN
313 RETURN TO_DESCRIPTIONCP;
314 END TO_DESCRIPTIONCP_P;
315
316 FUNCTION FROM_REGIONCP_P RETURN VARCHAR2 IS
317 BEGIN
318 RETURN FROM_REGIONCP;
319 END FROM_REGIONCP_P;
320
321 FUNCTION TO_REGIONCP_P RETURN VARCHAR2 IS
322 BEGIN
323 RETURN TO_REGIONCP;
324 END TO_REGIONCP_P;
325
326 FUNCTION FROM_CLASSCP_P RETURN VARCHAR2 IS
327 BEGIN
328 RETURN FROM_CLASSCP;
329 END FROM_CLASSCP_P;
330
331 FUNCTION TO_CLASSCP_P RETURN VARCHAR2 IS
332 BEGIN
333 RETURN TO_CLASSCP;
334 END TO_CLASSCP_P;
335
336 END GMI_RIWHM_XMLP_PKG;
337