1 PACKAGE BODY WSH_WSHRDSDL_XMLP_PKG AS
2 /* $Header: WSHRDSDLB.pls 120.3 2010/08/17 10:44:59 anvarshn ship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8 EXCEPTION
9 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
10 /*SRW.MESSAGE(1
11 ,'Failed FND SRWINIT.')*/NULL;
12 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
13 END;
14 BEGIN
15 DECLARE
16 L_REPORT_NAME CHAR(240);
17 BEGIN
18 SELECT
19 CP.USER_CONCURRENT_PROGRAM_NAME
20 INTO L_REPORT_NAME
21 FROM
22 FND_CONCURRENT_PROGRAMS_VL CP,
23 FND_CONCURRENT_REQUESTS CR
24 WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
25 AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
26 AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
27 REPORT_NAME := L_REPORT_NAME;
28 EXCEPTION
29 WHEN NO_DATA_FOUND THEN
30 REPORT_NAME := 'Shipped Delivery Lines Report';
31 END;
32 IF (P_SHIP_FROM_ORG_ID IS NOT NULL) THEN
33 SELECT
34 ORGANIZATION_NAME
35 INTO REPORT_SHIP_FROM
36 FROM
37 ORG_ORGANIZATION_DEFINITIONS
38 WHERE ORGANIZATION_ID = P_SHIP_FROM_ORG_ID;
39 END IF;
40 IF (P_ORDER_TYPE IS NOT NULL) THEN
41 SELECT
42 SOURCE_TYPE_NAME
43 INTO REPORT_ORDER_TYPE
44 FROM
45 WSH_SOURCE_TYPES_V
46 WHERE SOURCE_TYPE_ID = P_ORDER_TYPE;
47 END IF;
48 IF (P_SHIP_METHOD IS NOT NULL) THEN
49 REPORT_SHIP_METHOD := P_SHIP_METHOD;
50 END IF;
51 IF (P_ITEM IS NOT NULL) THEN
52 REPORT_ITEM := WSH_UTIL_CORE.GET_ITEM_NAME(P_ITEM
53 ,P_SHIP_FROM_ORG_ID);
54 END IF;
55 IF (P_ITEM_DISPLAY IS NOT NULL) THEN
56 SELECT
57 MEANING
58 INTO REPORT_ITEM_DISPLAY
59 FROM
60 WSH_LOOKUPS
61 WHERE LOOKUP_TYPE = 'ITEM_DISPLAY'
62 AND LOOKUP_CODE = P_ITEM_DISPLAY;
63 END IF;
64 IF (P_SHIP_DATE_LOW IS NOT NULL) THEN
65 REPORT_SHIP_DATE_FROM := P_SHIP_DATE_LOW;
66 END IF;
67 IF (P_SHIP_DATE_HIGH IS NOT NULL) THEN
68 REPORT_SHIP_DATE_TO := P_SHIP_DATE_HIGH;
69 END IF;
70 IF (P_ORDER_NUMBER_LOW IS NOT NULL) THEN
71 REPORT_ORDER_NUMBER_FROM := P_ORDER_NUMBER_LOW;
72 END IF;
73 IF (P_ORDER_NUMBER_HIGH IS NOT NULL) THEN
74 REPORT_ORDER_NUMBER_TO := P_ORDER_NUMBER_HIGH;
75 END IF;
76 IF (P_DELIVERY_LOW IS NOT NULL) THEN
77 REPORT_DELIVERY_FROM := P_DELIVERY_LOW;
78 END IF;
79 IF (P_DELIVERY_HIGH IS NOT NULL) THEN
80 REPORT_DELIVERY_TO := P_DELIVERY_HIGH;
81 END IF;
82 IF (P_CUSTOMER_NAME_LOW IS NOT NULL) THEN
83 REPORT_CUSTOMER_FROM := P_CUSTOMER_NAME_LOW;
84 END IF;
85 IF (P_CUSTOMER_NAME_HIGH IS NOT NULL) THEN
86 REPORT_CUSTOMER_TO := P_CUSTOMER_NAME_HIGH;
87 END IF;
88 SELECT
89 MEANING
90 INTO REPORT_SORT_BY_1
91 FROM
92 WSH_LOOKUPS
93 WHERE LOOKUP_TYPE = 'WSH_ORDER_BY'
94 AND LOOKUP_CODE = P_ORDER_BY_1;
95 SELECT
96 MEANING
97 INTO REPORT_SORT_BY_2
98 FROM
99 WSH_LOOKUPS
100 WHERE LOOKUP_TYPE = 'WSH_ORDER_BY'
101 AND LOOKUP_CODE = P_ORDER_BY_2;
102 SELECT
103 MEANING
104 INTO REPORT_SORT_BY_3
105 FROM
106 WSH_LOOKUPS
107 WHERE LOOKUP_TYPE = 'WSH_ORDER_BY'
108 AND LOOKUP_CODE = P_ORDER_BY_3;
109 EXCEPTION
110 WHEN OTHERS THEN
111 /*SRW.MESSAGE(1
112 ,'Failed Placeholder Columns Initialization!')*/NULL;
113 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
114 END;
115 RETURN (TRUE);
116 END BEFOREREPORT;
117 FUNCTION AFTERPFORM RETURN BOOLEAN IS
118 BEGIN
119 DECLARE
120 CURSOR STRUCT_NUM(FLEX_CODE IN VARCHAR2) IS
121 SELECT
122 ID_FLEX_NUM
123 FROM
124 FND_ID_FLEX_STRUCTURES
125 WHERE ID_FLEX_CODE = FLEX_CODE;
126 STRUCT_NUMBER NUMBER;
127 ORDER_BY_1 VARCHAR2(50);
128 ORDER_BY_2 VARCHAR2(50);
129 ORDER_BY_3 VARCHAR2(50);
130 CUSTOMER_LOW VARCHAR2(55);
131 CUSTOMER_HIGH VARCHAR2(55);
132 BEGIN
133 BEGIN
134 /*SRW.REFERENCE(P_DELIVERY_LOW)*/NULL;
135 /*SRW.REFERENCE(P_DELIVERY_HIGH)*/NULL;
136 /*SRW.REFERENCE(P_CUSTOMER_NAME_LOW)*/NULL;
137 /*SRW.REFERENCE(P_CUSTOMER_NAME_HIGH)*/NULL;
138 /*SRW.REFERENCE(P_ORDER_NUMBER_LOW)*/NULL;
139 /*SRW.REFERENCE(P_ORDER_NUMBER_HIGH)*/NULL;
140 /*SRW.REFERENCE(P_SHIP_DATE_LOW)*/NULL;
141 /*SRW.REFERENCE(P_SHIP_DATE_HIGH)*/NULL;
142 /*SRW.REFERENCE(P_ITEM_DISPLAY)*/NULL;
143 /*SRW.REFERENCE(P_ITEM)*/NULL;
144 /*SRW.REFERENCE(P_ORDER_TYPE)*/NULL;
145 /*SRW.REFERENCE(P_SHIP_METHOD)*/NULL;
146 /*SRW.REFERENCE(P_ORDER_BY_1)*/NULL;
147 /*SRW.REFERENCE(P_ORDER_BY_2)*/NULL;
148 /*SRW.REFERENCE(P_ORDER_BY_3)*/NULL;
149 /*SRW.REFERENCE(P_SHIP_FROM_ORG_ID)*/NULL;
150 IF (P_SHIP_FROM_ORG_ID IS NOT NULL) THEN
151 LP_SHIP_FROM_ORG_ID := ' AND WDD.ORGANIZATION_ID = :P_SHIP_FROM_ORG_ID ';
152 END IF;
153 IF (P_ORDER_TYPE IS NOT NULL) THEN
154 LP_ORDER_TYPE := ' AND WDD.SOURCE_HEADER_TYPE_ID = :P_ORDER_TYPE ';
155 END IF;
156 IF (P_SHIP_METHOD IS NOT NULL) THEN
157 LP_SHIP_METHOD := ' AND NVL(WT.SHIP_METHOD_CODE,WDD.SHIP_METHOD_CODE) = :P_SHIP_METHOD ';
158 END IF;
159 IF (P_ITEM IS NOT NULL) THEN
160 LP_ITEM := ' AND WDD.INVENTORY_ITEM_ID = :P_ITEM ';
161 END IF;
162 IF (P_SHIP_DATE_LOW IS NOT NULL AND P_SHIP_DATE_HIGH IS NOT NULL AND P_ORDER_NUMBER_LOW IS NULL AND P_CUSTOMER_NAME_LOW IS NULL) THEN
163 LP_TABLE_NAME := '( select /*+ leading(wts) cardinality(wts,3)*/ * from wsh_trip_stops wts ) WTS';
164 ELSE
165 LP_TABLE_NAME := 'WSH_TRIP_STOPS WTS';
166 END IF;
167 LP_WHERE_CLAUSE := ' AND WDL.PICK_UP_STOP_ID = WTS.STOP_ID ';
168 LP_WHERE_CLAUSE := LP_WHERE_CLAUSE || ' AND WTS.TRIP_ID = WT.TRIP_ID ';
169 LP_WHERE_CLAUSE := LP_WHERE_CLAUSE || ' AND WTS.STOP_LOCATION_ID = WDD.SHIP_FROM_LOCATION_ID ';
170 IF ((P_SHIP_DATE_LOW IS NOT NULL) AND (P_SHIP_DATE_HIGH IS NOT NULL)) THEN
171 LP_SHIP_DATE := ' AND (WTS.ACTUAL_DEPARTURE_DATE BETWEEN FND_DATE.CANONICAL_TO_DATE(:P_SHIP_DATE_LOW) AND FND_DATE.CANONICAL_TO_DATE(:P_SHIP_DATE_HIGH)) ';
172 ELSIF (P_SHIP_DATE_LOW IS NOT NULL) THEN
173 LP_SHIP_DATE := ' AND WTS.ACTUAL_DEPARTURE_DATE >= FND_DATE.CANONICAL_TO_DATE(:P_SHIP_DATE_LOW) ';
174 ELSIF (P_SHIP_DATE_HIGH IS NOT NULL) THEN
175 LP_SHIP_DATE := ' AND WTS.ACTUAL_DEPARTURE_DATE <= FND_DATE.CANONICAL_TO_DATE(:P_SHIP_DATE_HIGH) ';
176 END IF;
177 IF ((P_ORDER_NUMBER_LOW IS NOT NULL) AND (P_ORDER_NUMBER_HIGH IS NOT NULL)) THEN
178 LP_ORDER_NUMBER := ' AND (WDD.SOURCE_HEADER_NUMBER BETWEEN :P_ORDER_NUMBER_LOW AND :P_ORDER_NUMBER_HIGH) ';
179 ELSIF (P_ORDER_NUMBER_LOW IS NOT NULL) THEN
180 LP_ORDER_NUMBER := ' AND WDD.SOURCE_HEADER_NUMBER >= :P_ORDER_NUMBER_LOW ';
181 ELSIF (P_ORDER_NUMBER_HIGH IS NOT NULL) THEN
182 LP_ORDER_NUMBER := ' AND WDD.SOURCE_HEADER_NUMBER <= :P_ORDER_NUMBER_HIGH ';
183 END IF;
184 IF ((P_DELIVERY_LOW IS NOT NULL) AND (P_DELIVERY_HIGH IS NOT NULL)) THEN
185 LP_DELIVERY := ' AND (WND.NAME BETWEEN :P_DELIVERY_LOW AND :P_DELIVERY_HIGH) ';
186 ELSIF (P_DELIVERY_LOW IS NOT NULL) THEN
187 LP_DELIVERY := ' AND WND.NAME >= :P_DELIVERY_LOW ';
188 ELSIF (P_DELIVERY_HIGH IS NOT NULL) THEN
189 LP_DELIVERY := ' AND WND.NAME <= :P_DELIVERY_HIGH ';
190 END IF;
191 -- RTV Changes
192 IF P_SOURCE_SYSTEM IN ('OE','OKE','WSH') THEN
193 IF (P_CUSTOMER_NAME_LOW IS NOT NULL) THEN
194 SELECT
195 SUBSTRB(PARTY.PARTY_NAME
196 ,1
197 ,50)
198 INTO CUSTOMER_LOW
199 FROM
200 HZ_PARTIES PARTY
201 WHERE PARTY.PARTY_ID = (
202 SELECT
203 CUST_ACCT.PARTY_ID
204 FROM
205 HZ_CUST_ACCOUNTS CUST_ACCT
206 WHERE CUST_ACCT.CUST_ACCOUNT_ID = P_CUSTOMER_NAME_LOW );
207 END IF;
208 IF (P_CUSTOMER_NAME_HIGH IS NOT NULL) THEN
209 SELECT
210 SUBSTRB(PARTY.PARTY_NAME
211 ,1
212 ,50)
213 INTO CUSTOMER_HIGH
214 FROM
215 HZ_PARTIES PARTY
216 WHERE PARTY.PARTY_ID = (
217 SELECT
218 CUST_ACCT.PARTY_ID
219 FROM
220 HZ_CUST_ACCOUNTS CUST_ACCT
221 WHERE CUST_ACCT.CUST_ACCOUNT_ID = P_CUSTOMER_NAME_HIGH );
222 END IF;
223 ELSE
224 IF (P_CUSTOMER_NAME_LOW IS NOT NULL) THEN
225 SELECT
226 SUBSTRB(PARTY.PARTY_NAME
227 ,1
228 ,50)
229 INTO CUSTOMER_LOW
230 FROM
231 HZ_PARTIES PARTY
232 WHERE PARTY.PARTY_ID = (
233 SELECT
234 POV.PARTY_ID
235 FROM
236 PO_VENDORS POV
237 WHERE POV.VENDOR_ID = P_CUSTOMER_NAME_LOW );
238 END IF;
239 IF (P_CUSTOMER_NAME_HIGH IS NOT NULL) THEN
240 SELECT
241 SUBSTRB(PARTY.PARTY_NAME
242 ,1
243 ,50)
244 INTO CUSTOMER_HIGH
245 FROM
246 HZ_PARTIES PARTY
247 WHERE PARTY.PARTY_ID = (
248 SELECT
249 POV.PARTY_ID
250 FROM
251 PO_VENDORS POV
252 WHERE POV.VENDOR_ID = P_CUSTOMER_NAME_HIGH );
253 END IF;
254 END IF;
255 IF ((P_CUSTOMER_NAME_LOW IS NOT NULL) AND (P_CUSTOMER_NAME_HIGH IS NOT NULL)) THEN
256 IF (P_CUSTOMER_NAME_LOW = P_CUSTOMER_NAME_HIGH) THEN
257 LP_CUSTOMER_NAME := ' AND SUBSTRB(PARTY.PARTY_NAME,1,50) = ''' || CUSTOMER_LOW || ''' ';
258 ELSE
259 LP_CUSTOMER_NAME := ' AND (SUBSTRB(PARTY.PARTY_NAME,1,50) BETWEEN ''' || CUSTOMER_LOW || ''' AND ''' || CUSTOMER_HIGH || ''') ';
260 END IF;
261 ELSIF (P_CUSTOMER_NAME_LOW IS NOT NULL) THEN
262 LP_CUSTOMER_NAME := ' AND SUBSTRB(PARTY.PARTY_NAME,1,50) >= ''' || CUSTOMER_LOW || ''' ';
263 ELSIF (P_CUSTOMER_NAME_HIGH IS NOT NULL) THEN
264 LP_CUSTOMER_NAME := ' AND SUBSTRB(PARTY.PARTY_NAME,1,50) <= ''' || CUSTOMER_HIGH || ''' ';
265 END IF;
266 OPEN STRUCT_NUM(P_ITEM_FLEX_CODE);
267 FETCH STRUCT_NUM
268 INTO STRUCT_NUMBER;
269 CLOSE STRUCT_NUM;
270 LP_STRUCTURE_NUM := STRUCT_NUMBER;
271 IF P_ORDER_BY_1 = 'CUSTOMER' THEN
272 ORDER_BY_1 := ' SUBSTRB(PARTY.PARTY_NAME,1,50) ';
273 ELSIF P_ORDER_BY_1 = 'SHIP_METHOD' THEN
274 ORDER_BY_1 := 'SHIP_METHOD';
275 ELSIF P_ORDER_BY_1 = 'ITEM' THEN
276 IF P_ITEM_DISPLAY = 'D' THEN
277 ORDER_BY_1 := 'lower(WDD.ITEM_DESCRIPTION)';
278 ELSE
279 ORDER_BY_1 := 'lower(ITEM_SEG)';
280 END IF;
281 ELSIF P_ORDER_BY_1 = 'SHIP_DATE' THEN
282 ORDER_BY_1 := 'WTS.ACTUAL_DEPARTURE_DATE';
283 ELSIF P_ORDER_BY_1 = 'DELIVERY' THEN
284 ORDER_BY_1 := 'WND.NAME';
285 END IF;
286 IF P_ORDER_BY_2 = 'CUSTOMER' THEN
287 ORDER_BY_2 := ' SUBSTRB(PARTY.PARTY_NAME,1,50) ';
288 ELSIF P_ORDER_BY_2 = 'SHIP_METHOD' THEN
289 ORDER_BY_2 := 'SHIP_METHOD';
290 ELSIF P_ORDER_BY_2 = 'ITEM' THEN
291 IF P_ITEM_DISPLAY = 'D' THEN
292 ORDER_BY_2 := 'lower(WDD.ITEM_DESCRIPTION)';
293 ELSE
294 ORDER_BY_2 := 'lower(ITEM_SEG)';
295 END IF;
296 ELSIF P_ORDER_BY_2 = 'SHIP_DATE' THEN
297 ORDER_BY_2 := 'WTS.ACTUAL_DEPARTURE_DATE';
298 ELSIF P_ORDER_BY_2 = 'DELIVERY' THEN
299 ORDER_BY_2 := 'WND.NAME';
300 END IF;
301 IF P_ORDER_BY_3 = 'CUSTOMER' THEN
302 ORDER_BY_3 := ' SUBSTRB(PARTY.PARTY_NAME,1,50) ';
303 ELSIF P_ORDER_BY_3 = 'SHIP_METHOD' THEN
304 ORDER_BY_3 := 'SHIP_METHOD';
305 ELSIF P_ORDER_BY_3 = 'ITEM' THEN
306 IF P_ITEM_DISPLAY = 'D' THEN
307 ORDER_BY_3 := 'lower(WDD.ITEM_DESCRIPTION)';
308 ELSE
309 ORDER_BY_3 := 'lower(ITEM_SEG)';
310 END IF;
311 ELSIF P_ORDER_BY_3 = 'SHIP_DATE' THEN
312 ORDER_BY_3 := 'WTS.ACTUAL_DEPARTURE_DATE';
313 ELSIF P_ORDER_BY_3 = 'DELIVERY' THEN
314 ORDER_BY_3 := 'WND.NAME';
315 END IF;
316 LP_ORDER_BY := ORDER_BY_1 || ',' || ORDER_BY_2 || ',' || ORDER_BY_3;
317 EXCEPTION
318 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
319 /*SRW.MESSAGE(2000
320 ,'Failed in AFTER FORM trigger. FND FLEXSQL USER_EXIT')*/NULL;
321 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
322 END;
323 END;
324 RETURN (TRUE);
325 END AFTERPFORM;
326 FUNCTION AFTERREPORT RETURN BOOLEAN IS
327 BEGIN
328 BEGIN
329 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
330 EXCEPTION
331 WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
332 /*SRW.MESSAGE(1
333 ,'Failed in SRWEXIT')*/NULL;
334 RAISE;
335 END;
336 RETURN (TRUE);
337 END AFTERREPORT;
338 FUNCTION CF_RELEASED_QUANTITYFORMULA(DELIVERY_LINE IN NUMBER
339 ,SOURCE_HEADER_ID IN NUMBER) RETURN NUMBER IS
340 BEGIN
341 DECLARE
342 CURSOR C_REQUESTED_QTY(P_DETAIL_ID IN NUMBER,P_SOURCE_HEADER_ID IN NUMBER) IS
343 SELECT
344 SUM(NVL(PICKED_QUANTITY
345 ,0))
346 FROM
347 WSH_DELIVERY_DETAILS
348 START WITH DELIVERY_DETAIL_ID = P_DETAIL_ID
349 CONNECT BY prior DELIVERY_DETAIL_ID = SPLIT_FROM_DELIVERY_DETAIL_ID
350 AND SOURCE_HEADER_ID = P_SOURCE_HEADER_ID
351 AND RELEASED_STATUS = 'Y';
352 L_REQUESTED_QTY NUMBER := NULL;
353 BEGIN
354 OPEN C_REQUESTED_QTY(DELIVERY_LINE,SOURCE_HEADER_ID);
355 FETCH C_REQUESTED_QTY
356 INTO L_REQUESTED_QTY;
357 CLOSE C_REQUESTED_QTY;
358 RETURN L_REQUESTED_QTY;
359 END;
360 END CF_RELEASED_QUANTITYFORMULA;
361 FUNCTION CF_ITEM_DISPLAYFORMULA(INVENTORY_ITEM_ID IN NUMBER
362 ,SHIP_FROM_ORGANIZATION IN NUMBER) RETURN VARCHAR2 IS
363 BEGIN
364 DECLARE
365 CURSOR INVENTORY_LABEL(ID IN NUMBER,ORG_ID IN NUMBER) IS
366 SELECT
367 DESCRIPTION
368 FROM
369 MTL_SYSTEM_ITEMS_VL
370 WHERE INVENTORY_ITEM_ID = ID
371 AND ORGANIZATION_ID = ORG_ID;
372 NAME VARCHAR2(800);
373 BEGIN
374 IF P_ITEM_DISPLAY = 'D' THEN
375 OPEN INVENTORY_LABEL(INVENTORY_ITEM_ID,SHIP_FROM_ORGANIZATION);
376 FETCH INVENTORY_LABEL
377 INTO NAME;
378 CLOSE INVENTORY_LABEL;
379 ELSIF P_ITEM_DISPLAY = 'F' THEN
380 NAME := WSH_UTIL_CORE.GET_ITEM_NAME(INVENTORY_ITEM_ID
381 ,SHIP_FROM_ORGANIZATION
382 ,P_ITEM_FLEX_CODE
383 ,LP_STRUCTURE_NUM);
384 ELSE
385 OPEN INVENTORY_LABEL(INVENTORY_ITEM_ID,SHIP_FROM_ORGANIZATION);
386 FETCH INVENTORY_LABEL
387 INTO NAME;
388 CLOSE INVENTORY_LABEL;
389 NAME := WSH_UTIL_CORE.GET_ITEM_NAME(INVENTORY_ITEM_ID
390 ,SHIP_FROM_ORGANIZATION
391 ,P_ITEM_FLEX_CODE
392 ,LP_STRUCTURE_NUM) || ' ' || NAME;
393 END IF;
394 RETURN NAME;
395 END;
396 RETURN NULL;
397 END CF_ITEM_DISPLAYFORMULA;
398 FUNCTION CF_SHIP_FROM_ORGANIZATION_NAME(SHIP_FROM_ORGANIZATION IN NUMBER) RETURN CHAR IS
399 BEGIN
400 DECLARE
401 ORG_NAME ORG_ORGANIZATION_DEFINITIONS.ORGANIZATION_NAME%TYPE;
402 BEGIN
403 SELECT
404 ORGANIZATION_NAME
405 INTO ORG_NAME
406 FROM
407 ORG_ORGANIZATION_DEFINITIONS
408 WHERE ORGANIZATION_ID = SHIP_FROM_ORGANIZATION;
409 RETURN ORG_NAME;
410 EXCEPTION
411 WHEN OTHERS THEN
412 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
413 END;
414 END CF_SHIP_FROM_ORGANIZATION_NAME;
415 FUNCTION CF_SHIP_DATEFORMULA(STOP_ID_1 IN NUMBER) RETURN VARCHAR2 IS
416 CURSOR C_DEP_DATE IS
417 SELECT
418 TO_CHAR(ACTUAL_DEPARTURE_DATE
419 ,'DD-MON-RRRR')
420 FROM
421 WSH_TRIP_STOPS WTS
422 WHERE WTS.STOP_ID = STOP_ID_1;
423 L_DEP_DATE VARCHAR2(20);
424 BEGIN
425 OPEN C_DEP_DATE;
426 FETCH C_DEP_DATE
427 INTO L_DEP_DATE;
428 CLOSE C_DEP_DATE;
429 RETURN L_DEP_DATE;
430 END CF_SHIP_DATEFORMULA;
431 FUNCTION REPORT_SORT_BY_1_P RETURN VARCHAR2 IS
432 BEGIN
433 RETURN REPORT_SORT_BY_1;
434 END REPORT_SORT_BY_1_P;
435 FUNCTION REPORT_SORT_BY_2_P RETURN VARCHAR2 IS
436 BEGIN
437 RETURN REPORT_SORT_BY_2;
438 END REPORT_SORT_BY_2_P;
439 FUNCTION REPORT_SORT_BY_3_P RETURN VARCHAR2 IS
440 BEGIN
441 RETURN REPORT_SORT_BY_3;
442 END REPORT_SORT_BY_3_P;
443 FUNCTION REPORT_SHIP_FROM_P RETURN VARCHAR2 IS
444 BEGIN
445 RETURN REPORT_SHIP_FROM;
446 END REPORT_SHIP_FROM_P;
447 FUNCTION REPORT_ITEM_DISPLAY_P RETURN VARCHAR2 IS
448 BEGIN
449 RETURN REPORT_ITEM_DISPLAY;
450 END REPORT_ITEM_DISPLAY_P;
451 FUNCTION REPORT_ITEM_P RETURN VARCHAR2 IS
452 BEGIN
453 RETURN REPORT_ITEM;
454 END REPORT_ITEM_P;
455 FUNCTION REPORT_SHIP_METHOD_P RETURN VARCHAR2 IS
456 BEGIN
457 RETURN REPORT_SHIP_METHOD;
458 END REPORT_SHIP_METHOD_P;
459 FUNCTION REPORT_ORDER_TYPE_P RETURN VARCHAR2 IS
460 BEGIN
461 RETURN REPORT_ORDER_TYPE;
462 END REPORT_ORDER_TYPE_P;
463 FUNCTION REPORT_DELIVERY_FROM_P RETURN VARCHAR2 IS
464 BEGIN
465 RETURN REPORT_DELIVERY_FROM;
466 END REPORT_DELIVERY_FROM_P;
467 FUNCTION REPORT_DELIVERY_TO_P RETURN VARCHAR2 IS
468 BEGIN
469 RETURN REPORT_DELIVERY_TO;
470 END REPORT_DELIVERY_TO_P;
471 FUNCTION REPORT_ORDER_NUMBER_FROM_P RETURN VARCHAR2 IS
472 BEGIN
473 RETURN REPORT_ORDER_NUMBER_FROM;
474 END REPORT_ORDER_NUMBER_FROM_P;
475 FUNCTION REPORT_ORDER_NUMBER_TO_P RETURN VARCHAR2 IS
476 BEGIN
477 RETURN REPORT_ORDER_NUMBER_TO;
478 END REPORT_ORDER_NUMBER_TO_P;
479 FUNCTION REPORT_CUSTOMER_FROM_P RETURN VARCHAR2 IS
480 BEGIN
481 RETURN REPORT_CUSTOMER_FROM;
482 END REPORT_CUSTOMER_FROM_P;
483 FUNCTION REPORT_CUSTOMER_TO_P RETURN VARCHAR2 IS
484 BEGIN
485 RETURN REPORT_CUSTOMER_TO;
486 END REPORT_CUSTOMER_TO_P;
487 FUNCTION REPORT_SHIP_DATE_FROM_P RETURN VARCHAR2 IS
488 BEGIN
489 RETURN REPORT_SHIP_DATE_FROM;
490 END REPORT_SHIP_DATE_FROM_P;
491 FUNCTION REPORT_SHIP_DATE_TO_P RETURN VARCHAR2 IS
492 BEGIN
493 RETURN REPORT_SHIP_DATE_TO;
494 END REPORT_SHIP_DATE_TO_P;
495 FUNCTION REPORT_NAME_P RETURN VARCHAR2 IS
496 BEGIN
497 RETURN REPORT_NAME;
498 END REPORT_NAME_P;
499 END WSH_WSHRDSDL_XMLP_PKG;
500
[Home] [Help]