25: )
26: IS
27: BEGIN
28: --{
29: IF p_api_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
30: THEN
31: --{
32: IF p_api_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
33: THEN
28: --{
29: IF p_api_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
30: THEN
31: --{
32: IF p_api_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
33: THEN
34: --{
35: x_number_of_warnings := x_number_of_warnings + 1;
36: --}
35: x_number_of_warnings := x_number_of_warnings + 1;
36: --}
37: ELSE
38: --{
39: IF p_api_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
40: THEN
41: --{
42: FND_MESSAGE.SET_NAME('FTE', p_message_name );
43: FND_MESSAGE.SET_TOKEN('PROGRAM_UNIT_NAME', p_api_name);
90: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', p_delivery_name);
91: END IF;
92: --
93: --
94: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR);
95: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
96: RETURN;
97: --}
98: ELSE
91: END IF;
92: --
93: --
94: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR);
95: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
96: RETURN;
97: --}
98: ELSE
99: x_number_of_errors := x_number_of_errors + 1;
104: END IF;
105: --}
106: EXCEPTION
107: WHEN OTHERS THEN
108: wsh_util_core.default_handler('FTE_MLS_UTIL.API_POST_CALL');
109: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
110: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
111: END api_post_call;
112: --
105: --}
106: EXCEPTION
107: WHEN OTHERS THEN
108: wsh_util_core.default_handler('FTE_MLS_UTIL.API_POST_CALL');
109: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
110: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
111: END api_post_call;
112: --
113: --
106: EXCEPTION
107: WHEN OTHERS THEN
108: wsh_util_core.default_handler('FTE_MLS_UTIL.API_POST_CALL');
109: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
110: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
111: END api_post_call;
112: --
113: --
114: PROCEDURE get_trip_segment_name
147: --
148: --
149: x_trip_segment_name := l_trip_segment_name;
150: --
151: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
152: --}
153: EXCEPTION
154: --{
155: WHEN OTHERS THEN
152: --}
153: EXCEPTION
154: --{
155: WHEN OTHERS THEN
156: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_TRIP_SEGMENT_NAME');
157: FND_MESSAGE.SET_NAME('FTE','FTE_GET_TRIP_SEG_NAME_ERROR');
158: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_ID',p_trip_segment_id);
159: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
160: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
155: WHEN OTHERS THEN
156: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_TRIP_SEGMENT_NAME');
157: FND_MESSAGE.SET_NAME('FTE','FTE_GET_TRIP_SEG_NAME_ERROR');
158: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_ID',p_trip_segment_id);
159: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
160: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
161: --}
162: END get_trip_segment_name;
163: --
156: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_TRIP_SEGMENT_NAME');
157: FND_MESSAGE.SET_NAME('FTE','FTE_GET_TRIP_SEG_NAME_ERROR');
158: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_ID',p_trip_segment_id);
159: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
160: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
161: --}
162: END get_trip_segment_name;
163: --
164: --
230: and sequence_number > p_sequence_number );
231: --}
232: BEGIN
233: --{
234: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
235: --
236: --
237: IF x_trip_name IS NULL
238: THEN
244: x_return_status => l_return_status
245: );
246: --
247: --
248: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
249: THEN
250: --{
251: x_return_status := l_return_status;
252: --
250: --{
251: x_return_status := l_return_status;
252: --
253: --
254: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
255: THEN
256: --{
257: RETURN;
258: --}
273: x_return_status => l_return_status
274: );
275: --
276: --
277: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
278: THEN
279: --{
280: x_return_status := l_return_status;
281: --
279: --{
280: x_return_status := l_return_status;
281: --
282: --
283: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
284: THEN
285: --{
286: RETURN;
287: --}
303: --}
304: EXCEPTION
305: --{
306: WHEN OTHERS THEN
307: wsh_util_core.default_handler('WSH_MLS_UTIL.GET_NEXT_SEGMENT_ID');
308: FND_MESSAGE.SET_NAME('FTE','FTE_GET_NEXT_SEGMENT_ERROR');
309: FND_MESSAGE.SET_TOKEN('TRIP_NAME',x_trip_name);
310: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
311: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
307: wsh_util_core.default_handler('WSH_MLS_UTIL.GET_NEXT_SEGMENT_ID');
308: FND_MESSAGE.SET_NAME('FTE','FTE_GET_NEXT_SEGMENT_ERROR');
309: FND_MESSAGE.SET_TOKEN('TRIP_NAME',x_trip_name);
310: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
311: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
312: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
313: --}
314: END get_next_segment_id;
315: --
308: FND_MESSAGE.SET_NAME('FTE','FTE_GET_NEXT_SEGMENT_ERROR');
309: FND_MESSAGE.SET_TOKEN('TRIP_NAME',x_trip_name);
310: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
311: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
312: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
313: --}
314: END get_next_segment_id;
315: --
316: --
343: and sequence_number < p_sequence_number );
344: --}
345: BEGIN
346: --{
347: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
348: --
349: --
350: IF x_trip_name IS NULL
351: THEN
357: x_return_status => l_return_status
358: );
359: --
360: --
361: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
362: THEN
363: --{
364: x_return_status := l_return_status;
365: --
363: --{
364: x_return_status := l_return_status;
365: --
366: --
367: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
368: THEN
369: --{
370: RETURN;
371: --}
386: x_return_status => l_return_status
387: );
388: --
389: --
390: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
391: THEN
392: --{
393: x_return_status := l_return_status;
394: --
392: --{
393: x_return_status := l_return_status;
394: --
395: --
396: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
397: THEN
398: --{
399: RETURN;
400: --}
417: --}
418: EXCEPTION
419: --{
420: WHEN OTHERS THEN
421: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_PREVIOUS_SEGMENT_ID');
422: FND_MESSAGE.SET_NAME('FTE','FTE_GET_NEXT_SEGMENT_ERROR');
423: FND_MESSAGE.SET_TOKEN('TRIP_NAME',x_trip_name);
424: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
425: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
421: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_PREVIOUS_SEGMENT_ID');
422: FND_MESSAGE.SET_NAME('FTE','FTE_GET_NEXT_SEGMENT_ERROR');
423: FND_MESSAGE.SET_TOKEN('TRIP_NAME',x_trip_name);
424: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
425: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
426: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
427: --}
428: END get_previous_segment_id;
429: --
422: FND_MESSAGE.SET_NAME('FTE','FTE_GET_NEXT_SEGMENT_ERROR');
423: FND_MESSAGE.SET_TOKEN('TRIP_NAME',x_trip_name);
424: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
425: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
426: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
427: --}
428: END get_previous_segment_id;
429: --
430: --
456: where trip_id = p_segment_id );
457: --}
458: BEGIN
459: --{
460: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
461: --
462: --
463: IF x_trip_segment_name IS NULL
464: THEN
470: x_return_status => l_return_status
471: );
472: --
473: --
474: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
475: THEN
476: --{
477: x_return_status := l_return_status;
478: --
476: --{
477: x_return_status := l_return_status;
478: --
479: --
480: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
481: THEN
482: --{
483: RETURN;
484: --}
501: --}
502: EXCEPTION
503: --{
504: WHEN OTHERS THEN
505: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_FIRST_STOP_LOCATION_ID');
506: FND_MESSAGE.SET_NAME('FTE','FTE_GET_FIRST_STOP_ERROR');
507: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
508: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
509: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
504: WHEN OTHERS THEN
505: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_FIRST_STOP_LOCATION_ID');
506: FND_MESSAGE.SET_NAME('FTE','FTE_GET_FIRST_STOP_ERROR');
507: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
508: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
509: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
510: --}
511: END get_first_stop_location_id;
512: --
505: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_FIRST_STOP_LOCATION_ID');
506: FND_MESSAGE.SET_NAME('FTE','FTE_GET_FIRST_STOP_ERROR');
507: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
508: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
509: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
510: --}
511: END get_first_stop_location_id;
512: --
513: --
540:
541: --}
542: BEGIN
543: --{
544: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
545: --
546: --
547: IF x_trip_segment_name IS NULL
548: THEN
554: x_return_status => l_return_status
555: );
556: --
557: --
558: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
559: THEN
560: --{
561: x_return_status := l_return_status;
562: --
560: --{
561: x_return_status := l_return_status;
562: --
563: --
564: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
565: THEN
566: --{
567: RETURN;
568: --}
584: --}
585: EXCEPTION
586: --{
587: WHEN OTHERS THEN
588: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_LAST_STOP_LOCATION_ID');
589: FND_MESSAGE.SET_NAME('FTE','FTE_GET_LAST_STOP_ERROR');
590: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
591: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
592: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
587: WHEN OTHERS THEN
588: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_LAST_STOP_LOCATION_ID');
589: FND_MESSAGE.SET_NAME('FTE','FTE_GET_LAST_STOP_ERROR');
590: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
591: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
592: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
593: --}
594: END get_last_stop_location_id;
595: --
588: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_LAST_STOP_LOCATION_ID');
589: FND_MESSAGE.SET_NAME('FTE','FTE_GET_LAST_STOP_ERROR');
590: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME',x_trip_segment_name);
591: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
592: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
593: --}
594: END get_last_stop_location_id;
595: --
596: --
624: l_last_stop_location_id NUMBER;
625: --}
626: BEGIN
627: --{
628: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
629: --
630: --
631: IF x_trip_name IS NULL
632: THEN
638: x_return_status => l_return_status
639: );
640: --
641: --
642: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
643: THEN
644: --{
645: x_return_status := l_return_status;
646: --
644: --{
645: x_return_status := l_return_status;
646: --
647: --
648: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
649: THEN
650: --{
651: RETURN;
652: --}
667: x_return_status => l_return_status
668: );
669: --
670: --
671: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
672: THEN
673: --{
674: x_return_status := l_return_status;
675: --
673: --{
674: x_return_status := l_return_status;
675: --
676: --
677: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
678: THEN
679: --{
680: RETURN;
681: --}
699: x_return_status => l_return_status
700: );
701: --
702: --
703: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
704: THEN
705: --{
706: x_return_status := l_return_status;
707: --
705: --{
706: x_return_status := l_return_status;
707: --
708: --
709: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
710: THEN
711: --{
712: RETURN;
713: --}
731: x_return_status => l_return_status
732: );
733: --
734: --
735: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
736: THEN
737: --{
738: x_return_status := l_return_status;
739: --
737: --{
738: x_return_status := l_return_status;
739: --
740: --
741: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
742: THEN
743: --{
744: RETURN;
745: --}
795: --}
796: EXCEPTION
797: --{
798: WHEN OTHERS THEN
799: wsh_util_core.default_handler('FTE_MLS_UTIL.CHECK_NEXT_SEGMENT');
800: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
801: --}
802: END check_next_segment;
803: --
796: EXCEPTION
797: --{
798: WHEN OTHERS THEN
799: wsh_util_core.default_handler('FTE_MLS_UTIL.CHECK_NEXT_SEGMENT');
800: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
801: --}
802: END check_next_segment;
803: --
804: --
843: --}
844: EXCEPTION
845: --{
846: WHEN OTHERS THEN
847: wsh_util_core.default_handler('FTE_MLS_UTIL.CHECK_NEXT_SEGMENT');
848: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
849: --}
850: END check_next_segment;
851: --
844: EXCEPTION
845: --{
846: WHEN OTHERS THEN
847: wsh_util_core.default_handler('FTE_MLS_UTIL.CHECK_NEXT_SEGMENT');
848: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
849: --}
850: END check_next_segment;
851: --
852: --
878: l_last_stop_location_id NUMBER;
879: --}
880: BEGIN
881: --{
882: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
883: --
884: --
885: IF x_trip_name IS NULL
886: THEN
892: x_return_status => l_return_status
893: );
894: --
895: --
896: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
897: THEN
898: --{
899: x_return_status := l_return_status;
900: --
898: --{
899: x_return_status := l_return_status;
900: --
901: --
902: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
903: THEN
904: --{
905: RETURN;
906: --}
921: x_return_status => l_return_status
922: );
923: --
924: --
925: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
926: THEN
927: --{
928: x_return_status := l_return_status;
929: --
927: --{
928: x_return_status := l_return_status;
929: --
930: --
931: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
932: THEN
933: --{
934: RETURN;
935: --}
953: x_return_status => l_return_status
954: );
955: --
956: --
957: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
958: THEN
959: --{
960: x_return_status := l_return_status;
961: --
959: --{
960: x_return_status := l_return_status;
961: --
962: --
963: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
964: THEN
965: --{
966: RETURN;
967: --}
984: x_return_status => l_return_status
985: );
986: --
987: --
988: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
989: THEN
990: --{
991: x_return_status := l_return_status;
992: --
990: --{
991: x_return_status := l_return_status;
992: --
993: --
994: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
995: THEN
996: --{
997: RETURN;
998: --}
1047: --}
1048: EXCEPTION
1049: --{
1050: WHEN OTHERS THEN
1051: wsh_util_core.default_handler('FTE_MLS_UTIL.CHECK_PREVIOUS_SEGMENT');
1052: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1053: --}
1054: END check_previous_segment;
1055: --
1048: EXCEPTION
1049: --{
1050: WHEN OTHERS THEN
1051: wsh_util_core.default_handler('FTE_MLS_UTIL.CHECK_PREVIOUS_SEGMENT');
1052: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1053: --}
1054: END check_previous_segment;
1055: --
1056: --
1087: --}
1088: EXCEPTION
1089: --{
1090: WHEN OTHERS THEN
1091: wsh_util_core.default_handler('FTE_MLS_UTIL.CHECK_PREVIOUS_SEGMENT');
1092: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1093: --}
1094: END check_previous_segment;
1095: --
1088: EXCEPTION
1089: --{
1090: WHEN OTHERS THEN
1091: wsh_util_core.default_handler('FTE_MLS_UTIL.CHECK_PREVIOUS_SEGMENT');
1092: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1093: --}
1094: END check_previous_segment;
1095: --
1096: --
1128: RETURN FALSE;
1129: EXCEPTION
1130: --{
1131: WHEN OTHERS THEN
1132: wsh_util_core.default_handler('FTE_MLS_UTIL.SEGMENT_HAS_INTRANSIT_DLVY');
1133: RAISE;
1134: --}
1135: END segment_has_intransit_dlvy;
1136: --
1168: RETURN FALSE;
1169: EXCEPTION
1170: --{
1171: WHEN OTHERS THEN
1172: wsh_util_core.default_handler('FTE_MLS_UTIL.SEGMENT_HAS_OTHER_DELIVERIES');
1173: RAISE;
1174: --}
1175: END segment_has_other_deliveries;
1176: --
1194: );
1195: EXCEPTION
1196: --{
1197: WHEN OTHERS THEN
1198: wsh_util_core.default_handler('FTE_MLS_UTIL.STOP_HAS_INTRANSIT_DLVY');
1199: RAISE;
1200: --}
1201: END stop_has_intransit_dlvy;
1202: --
1233: RETURN FALSE;
1234: EXCEPTION
1235: --{
1236: WHEN OTHERS THEN
1237: wsh_util_core.default_handler('FTE_MLS_UTIL.STOP_HAS_INTRANSIT_DLVY');
1238: RAISE;
1239: --}
1240: END stop_has_intransit_dlvy;
1241: --
1286: );
1287: --}
1288: BEGIN
1289: --{
1290: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1291: --
1292: --
1293: x_ship_method_code := NULL;
1294: --
1310: --}
1311: EXCEPTION
1312: --{
1313: WHEN OTHERS THEN
1314: wsh_util_core.default_handler('FTE_MLS_UTIL.DERIVE_SHIP_METHOD_CODE');
1315: FND_MESSAGE.SET_NAME('FTE','FTE_GET_SHIPMETHOD_UNEXP_ERROR');
1316: FND_MESSAGE.SET_TOKEN('CARRIER_NAME',p_carrier_name);
1317: FND_MESSAGE.SET_TOKEN('MODE_OF_TRANSPORT',NVL(p_mode_of_transport_meaning,'NULL'));
1318: FND_MESSAGE.SET_TOKEN('SERVICE_LEVEL',NVL(p_service_level_meaning,'NULL'));
1315: FND_MESSAGE.SET_NAME('FTE','FTE_GET_SHIPMETHOD_UNEXP_ERROR');
1316: FND_MESSAGE.SET_TOKEN('CARRIER_NAME',p_carrier_name);
1317: FND_MESSAGE.SET_TOKEN('MODE_OF_TRANSPORT',NVL(p_mode_of_transport_meaning,'NULL'));
1318: FND_MESSAGE.SET_TOKEN('SERVICE_LEVEL',NVL(p_service_level_meaning,'NULL'));
1319: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1320: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1321: --}
1322: END derive_ship_method;
1323: --
1316: FND_MESSAGE.SET_TOKEN('CARRIER_NAME',p_carrier_name);
1317: FND_MESSAGE.SET_TOKEN('MODE_OF_TRANSPORT',NVL(p_mode_of_transport_meaning,'NULL'));
1318: FND_MESSAGE.SET_TOKEN('SERVICE_LEVEL',NVL(p_service_level_meaning,'NULL'));
1319: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1320: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1321: --}
1322: END derive_ship_method;
1323: --
1324: --
1345: BEGIN
1346: x_location := null;
1347: x_csz := null;
1348: x_country := null;
1349: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1350:
1351: --{
1352: FOR get_location_rec IN get_location_cur(p_location_id)
1353: LOOP
1380: --}
1381: EXCEPTION
1382: --{
1383: WHEN OTHERS THEN
1384: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_LOCATION');
1385: FND_MESSAGE.SET_NAME('FTE','FTE_GET_LOCATION_UNEXP_ERROR');
1386: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1387: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1388: --}
1382: --{
1383: WHEN OTHERS THEN
1384: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_LOCATION');
1385: FND_MESSAGE.SET_NAME('FTE','FTE_GET_LOCATION_UNEXP_ERROR');
1386: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1387: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1388: --}
1389: END get_location_info;
1390: --
1383: WHEN OTHERS THEN
1384: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_LOCATION');
1385: FND_MESSAGE.SET_NAME('FTE','FTE_GET_LOCATION_UNEXP_ERROR');
1386: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1387: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1388: --}
1389: END get_location_info;
1390: --
1391: --
1420: RETURN l_carrier_name;
1421: EXCEPTION
1422: --{
1423: WHEN OTHERS THEN
1424: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_CARRIER_NAME');
1425: RAISE;
1426: --}
1427: END get_carrier_name;
1428: --
1631:
1632: --}
1633: BEGIN
1634: x_location := null;
1635: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1636:
1637: --{
1638: FOR get_location_rec IN get_location_cur(p_location_id)
1639: LOOP
1655: --}
1656: EXCEPTION
1657: --{
1658: WHEN OTHERS THEN
1659: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_LOCATION');
1660: FND_MESSAGE.SET_NAME('FTE','FTE_GET_LOCATION_UNEXP_ERROR');
1661: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1662: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1663: --}
1657: --{
1658: WHEN OTHERS THEN
1659: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_LOCATION');
1660: FND_MESSAGE.SET_NAME('FTE','FTE_GET_LOCATION_UNEXP_ERROR');
1661: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1662: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1663: --}
1664: END get_location_info;
1665: --
1658: WHEN OTHERS THEN
1659: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_LOCATION');
1660: FND_MESSAGE.SET_NAME('FTE','FTE_GET_LOCATION_UNEXP_ERROR');
1661: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1662: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1663: --}
1664: END get_location_info;
1665: --
1666:
1731: END IF;
1732: --
1733: --
1734: -- Initialize API return status to success
1735: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1736: x_msg_count := 0;
1737: x_msg_data := 0;
1738:
1739: -- get default no contact info message
1756: IF (l_contact_id IS NULL)
1757: THEN
1758: FND_MESSAGE.SET_NAME('FTE','FTE_INVLD_CARRIER_CONTACT');
1759: FND_MESSAGE.SET_TOKEN('TENDER_NUMBER',p_tender_number);
1760: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1761: RAISE FND_API.G_EXC_ERROR;
1762: END IF;
1763:
1764: ---
1814: p_encoded => FND_API.G_FALSE
1815: );
1816: WHEN OTHERS THEN
1817: ROLLBACK TO GET_CARRIER_CONTACT_INFO_PUB;
1818: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_CARRIER_CONTACT_INFO');
1819: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1820: FND_MSG_PUB.Count_And_Get
1821: (
1822: p_count => x_msg_count,
1815: );
1816: WHEN OTHERS THEN
1817: ROLLBACK TO GET_CARRIER_CONTACT_INFO_PUB;
1818: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_CARRIER_CONTACT_INFO');
1819: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1820: FND_MSG_PUB.Count_And_Get
1821: (
1822: p_count => x_msg_count,
1823: p_data => x_msg_data,
1861:
1862: --}
1863: EXCEPTION
1864: WHEN OTHERS THEN
1865: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_ORG_NAME_BY_FIRSTSTOP');
1866: RAISE;
1867: --}
1868:
1869: END GET_ORG_NAME_BY_FIRSTSTOP;
1903:
1904: --}
1905: EXCEPTION
1906: WHEN OTHERS THEN
1907: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_PICKUP_DLVY_ORG_BY_TRIP');
1908: RAISE;
1909: --}
1910:
1911: END GET_PICKUP_DLVY_ORG_BY_TRIP;
1943:
1944: --}
1945: EXCEPTION
1946: WHEN OTHERS THEN
1947: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_PICKUP_DLVY_ORGID_BY_TRIP');
1948: RAISE;
1949: --}
1950:
1951: END GET_PICKUP_DLVY_ORGID_BY_TRIP;
2001: END IF;
2002: --
2003: --
2004: -- Initialize API return status to success
2005: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2006: x_msg_count := 0;
2007: x_msg_data := 0;
2008:
2009: -- get default no contact info message
2082: p_encoded => FND_API.G_FALSE
2083: );
2084: WHEN OTHERS THEN
2085: ROLLBACK TO GET_SHIPPER_CONTACT_INFO_PUB;
2086: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_SHIPPER_CONTACT_INFO');
2087: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2088: FND_MSG_PUB.Count_And_Get
2089: (
2090: p_count => x_msg_count,
2083: );
2084: WHEN OTHERS THEN
2085: ROLLBACK TO GET_SHIPPER_CONTACT_INFO_PUB;
2086: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_SHIPPER_CONTACT_INFO');
2087: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2088: FND_MSG_PUB.Count_And_Get
2089: (
2090: p_count => x_msg_count,
2091: p_data => x_msg_data,
2148:
2149: EXCEPTION
2150: --{
2151: WHEN OTHERS THEN
2152: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_CARRIER_ID');
2153: RAISE;
2154: --}
2155:
2156: END GET_CARRIER_ID;
2256:
2257: EXCEPTION
2258: --{
2259: WHEN OTHERS THEN
2260: wsh_util_core.default_handler('FTE_MLS_UTIL.FTE_UOM_CONV');
2261: RAISE;
2262: --}
2263:
2264: END FTE_UOM_CONV;
2267: --========================================================================
2268: -- PROCEDURE : COPY_FTE_ID_TO_WSH_ID
2269: --
2270: -- PARAMETERS: p_fte_id_tab IN FTE_ID_TAB_TYPE
2271: -- x_wsh_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type
2272: -- VERSION : current version 1.0
2273: -- initial version 1.0
2274: --========================================================================
2275:
2273: -- initial version 1.0
2274: --========================================================================
2275:
2276: PROCEDURE COPY_FTE_ID_TO_WSH_ID (p_fte_id_tab IN FTE_ID_TAB_TYPE,
2277: x_wsh_id_tab OUT NOCOPY WSH_UTIL_CORE.ID_TAB_TYPE)
2278: AS
2279:
2280: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
2281: l_module_name CONSTANT VARCHAR2(100) := 'fte.plsql.' || G_PKG_NAME || '.' || 'COPY_FTE_ID_TO_WSH_ID';
2317: --
2318: --========================================================================
2319: -- PROCEDURE : COPY_WSH_ID_TO_FTE_ID
2320: --
2321: -- PARAMETERS: p_wsh_id_tab IN WSH_UTIL_CORE.id_tab_type
2322: -- x_fte_id_tab OUT NOCOPY FTE_ID_TAB_TYPE
2323: --
2324: -- VERSION : current version 1.0
2325: -- initial version 1.0
2324: -- VERSION : current version 1.0
2325: -- initial version 1.0
2326: --========================================================================
2327:
2328: PROCEDURE COPY_WSH_ID_TO_FTE_ID (p_wsh_id_tab IN WSH_UTIL_CORE.ID_TAB_TYPE,
2329: x_fte_id_tab IN OUT NOCOPY FTE_ID_TAB_TYPE)
2330: AS
2331:
2332: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
2573: THEN
2574: FND_MSG_PUB.initialize;
2575: END IF;
2576:
2577: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2578: x_msg_count := 0;
2579: x_msg_data := 0;
2580: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2581: l_number_of_warnings := 0;
2576:
2577: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2578: x_msg_count := 0;
2579: x_msg_data := 0;
2580: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2581: l_number_of_warnings := 0;
2582: l_number_of_errors := 0;
2583:
2584: IF l_debug_on
2661:
2662: EXCEPTION
2663: WHEN NO_DATA_FOUND THEN
2664: FND_MESSAGE.SET_NAME('FTE','FTE_ORG_NOTFOUND');
2665: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2666: wsh_util_core.add_message(x_return_status);
2667: END;
2668:
2669: l_carrier_id := p_carrier_id;
2662: EXCEPTION
2663: WHEN NO_DATA_FOUND THEN
2664: FND_MESSAGE.SET_NAME('FTE','FTE_ORG_NOTFOUND');
2665: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2666: wsh_util_core.add_message(x_return_status);
2667: END;
2668:
2669: l_carrier_id := p_carrier_id;
2670:
2792: IF l_debug_on THEN
2793: WSH_DEBUG_SV.pop(l_module_name);
2794: END IF;
2795: WHEN OTHERS THEN
2796: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_CURRENCY_CODE');
2797: x_return_status := FND_API.G_RET_STS_ERROR;
2798: FND_MSG_PUB.Count_And_Get
2799: (
2800: p_count => x_msg_count,
2886: END IF;
2887:
2888:
2889:
2890: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2891: x_msg_count := 0;
2892: x_msg_data := 0;
2893: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2894: l_number_of_warnings := 0;
2889:
2890: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2891: x_msg_count := 0;
2892: x_msg_data := 0;
2893: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2894: l_number_of_warnings := 0;
2895: l_number_of_errors := 0;
2896:
2897:
2932: l_vendor_id,l_carrier_site_id;
2933:
2934: IF (GET_VENDOR_SITE_ID_FOR_TRIP%NOTFOUND) THEN
2935: FND_MESSAGE.SET_NAME('FTE','FTE_VENDORSITE_NOT_FOUND');
2936: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2937: wsh_util_core.add_message(x_return_status);
2938: END IF;
2939:
2940: CLOSE GET_VENDOR_SITE_ID_FOR_TRIP;
2933:
2934: IF (GET_VENDOR_SITE_ID_FOR_TRIP%NOTFOUND) THEN
2935: FND_MESSAGE.SET_NAME('FTE','FTE_VENDORSITE_NOT_FOUND');
2936: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2937: wsh_util_core.add_message(x_return_status);
2938: END IF;
2939:
2940: CLOSE GET_VENDOR_SITE_ID_FOR_TRIP;
2941:
2958:
2959:
2960: IF (GET_VENDOR_SITE_ID_FOR_DLVY%NOTFOUND) THEN
2961: FND_MESSAGE.SET_NAME('FTE','FTE_VENDORSITE_NOT_FOUND');
2962: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2963: wsh_util_core.add_message(x_return_status);
2964: END IF;
2965:
2966: CLOSE GET_VENDOR_SITE_ID_FOR_DLVY;
2959:
2960: IF (GET_VENDOR_SITE_ID_FOR_DLVY%NOTFOUND) THEN
2961: FND_MESSAGE.SET_NAME('FTE','FTE_VENDORSITE_NOT_FOUND');
2962: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2963: wsh_util_core.add_message(x_return_status);
2964: END IF;
2965:
2966: CLOSE GET_VENDOR_SITE_ID_FOR_DLVY;
2967:
3040: IF l_debug_on THEN
3041: WSH_DEBUG_SV.pop(l_module_name);
3042: END IF;
3043: WHEN OTHERS THEN
3044: wsh_util_core.default_handler('FTE_MLS_UTIL.GET_SUPPLIER_INFO');
3045: x_return_status := FND_API.G_RET_STS_ERROR;
3046: FND_MSG_PUB.Count_And_Get
3047: (
3048: p_count => x_msg_count,
3121: IF l_debug_on THEN
3122: WSH_DEBUG_SV.push(l_module_name);
3123: END IF;
3124:
3125: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3126: l_number_of_warnings := 0;
3127: l_number_of_errors := 0;
3128:
3129: l_sel_stop_loc_id := null;
3148: x_last_stop_loc_id => l_last_stop_loc_id,
3149: p_trip_id => p_trip_id);
3150:
3151:
3152: wsh_util_core.api_post_call(
3153: p_return_status =>l_return_status,
3154: x_num_warnings =>l_number_of_warnings,
3155: x_num_errors =>l_number_of_errors,
3156: p_msg_data =>l_msg_data);
3307: IF l_debug_on THEN
3308: WSH_DEBUG_SV.push(l_module_name);
3309: END IF;
3310:
3311: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3312:
3313: IF l_debug_on
3314: THEN
3315: WSH_DEBUG_SV.logmsg(l_module_name,' Getting trip stop information ',
3366: --}
3367: EXCEPTION
3368: --{
3369: WHEN FND_API.G_EXC_ERROR THEN
3370: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3371: IF l_debug_on THEN
3372: WSH_DEBUG_SV.pop(l_module_name);
3373: END IF;
3374:
3377: IF l_debug_on THEN
3378: WSH_DEBUG_SV.pop(l_module_name);
3379: END IF;
3380: WHEN OTHERS THEN
3381: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3382:
3383: IF l_debug_on THEN
3384: WSH_DEBUG_SV.pop(l_module_name);
3385: END IF;