[Home] [Help]
339: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
340: --
341: IF l_debug_on IS NULL
342: THEN
343: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
344: END IF;
345:
346: IF l_debug_on THEN
347: WSH_DEBUG_SV.push(l_module_name);
343: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
344: END IF;
345:
346: IF l_debug_on THEN
347: WSH_DEBUG_SV.push(l_module_name);
348: --
349: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
350: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
351: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_SEQ',P_PICKUP_STOP_SEQ);
345:
346: IF l_debug_on THEN
347: WSH_DEBUG_SV.push(l_module_name);
348: --
349: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
350: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
351: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_SEQ',P_PICKUP_STOP_SEQ);
352: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
353: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_SEQ',P_DROPOFF_STOP_SEQ);
346: IF l_debug_on THEN
347: WSH_DEBUG_SV.push(l_module_name);
348: --
349: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
350: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
351: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_SEQ',P_PICKUP_STOP_SEQ);
352: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
353: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_SEQ',P_DROPOFF_STOP_SEQ);
354: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_LOCATION_ID',P_PICKUP_LOCATION_ID);
347: WSH_DEBUG_SV.push(l_module_name);
348: --
349: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
350: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
351: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_SEQ',P_PICKUP_STOP_SEQ);
352: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
353: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_SEQ',P_DROPOFF_STOP_SEQ);
354: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_LOCATION_ID',P_PICKUP_LOCATION_ID);
355: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_LOCATION_ID',P_DROPOFF_LOCATION_ID);
348: --
349: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
350: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
351: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_SEQ',P_PICKUP_STOP_SEQ);
352: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
353: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_SEQ',P_DROPOFF_STOP_SEQ);
354: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_LOCATION_ID',P_PICKUP_LOCATION_ID);
355: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_LOCATION_ID',P_DROPOFF_LOCATION_ID);
356: WSH_DEBUG_SV.log(l_module_name,'P_CREATE_FLAG',P_CREATE_FLAG);
349: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
350: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
351: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_SEQ',P_PICKUP_STOP_SEQ);
352: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
353: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_SEQ',P_DROPOFF_STOP_SEQ);
354: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_LOCATION_ID',P_PICKUP_LOCATION_ID);
355: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_LOCATION_ID',P_DROPOFF_LOCATION_ID);
356: WSH_DEBUG_SV.log(l_module_name,'P_CREATE_FLAG',P_CREATE_FLAG);
357: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_ARR_DATE',P_PICKUP_ARR_DATE);
350: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
351: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_SEQ',P_PICKUP_STOP_SEQ);
352: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
353: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_SEQ',P_DROPOFF_STOP_SEQ);
354: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_LOCATION_ID',P_PICKUP_LOCATION_ID);
355: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_LOCATION_ID',P_DROPOFF_LOCATION_ID);
356: WSH_DEBUG_SV.log(l_module_name,'P_CREATE_FLAG',P_CREATE_FLAG);
357: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_ARR_DATE',P_PICKUP_ARR_DATE);
358: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DEP_DATE',P_PICKUP_DEP_DATE);
351: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_SEQ',P_PICKUP_STOP_SEQ);
352: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
353: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_SEQ',P_DROPOFF_STOP_SEQ);
354: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_LOCATION_ID',P_PICKUP_LOCATION_ID);
355: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_LOCATION_ID',P_DROPOFF_LOCATION_ID);
356: WSH_DEBUG_SV.log(l_module_name,'P_CREATE_FLAG',P_CREATE_FLAG);
357: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_ARR_DATE',P_PICKUP_ARR_DATE);
358: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DEP_DATE',P_PICKUP_DEP_DATE);
359: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_ARR_DATE',P_DROPOFF_ARR_DATE);
352: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
353: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_SEQ',P_DROPOFF_STOP_SEQ);
354: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_LOCATION_ID',P_PICKUP_LOCATION_ID);
355: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_LOCATION_ID',P_DROPOFF_LOCATION_ID);
356: WSH_DEBUG_SV.log(l_module_name,'P_CREATE_FLAG',P_CREATE_FLAG);
357: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_ARR_DATE',P_PICKUP_ARR_DATE);
358: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DEP_DATE',P_PICKUP_DEP_DATE);
359: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_ARR_DATE',P_DROPOFF_ARR_DATE);
360: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_DEP_DATE',P_DROPOFF_DEP_DATE);
353: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_SEQ',P_DROPOFF_STOP_SEQ);
354: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_LOCATION_ID',P_PICKUP_LOCATION_ID);
355: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_LOCATION_ID',P_DROPOFF_LOCATION_ID);
356: WSH_DEBUG_SV.log(l_module_name,'P_CREATE_FLAG',P_CREATE_FLAG);
357: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_ARR_DATE',P_PICKUP_ARR_DATE);
358: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DEP_DATE',P_PICKUP_DEP_DATE);
359: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_ARR_DATE',P_DROPOFF_ARR_DATE);
360: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_DEP_DATE',P_DROPOFF_DEP_DATE);
361: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
354: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_LOCATION_ID',P_PICKUP_LOCATION_ID);
355: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_LOCATION_ID',P_DROPOFF_LOCATION_ID);
356: WSH_DEBUG_SV.log(l_module_name,'P_CREATE_FLAG',P_CREATE_FLAG);
357: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_ARR_DATE',P_PICKUP_ARR_DATE);
358: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DEP_DATE',P_PICKUP_DEP_DATE);
359: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_ARR_DATE',P_DROPOFF_ARR_DATE);
360: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_DEP_DATE',P_DROPOFF_DEP_DATE);
361: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
362: WSH_DEBUG_SV.log(l_module_name,'p_sc_pickup_date',p_sc_pickup_date);
355: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_LOCATION_ID',P_DROPOFF_LOCATION_ID);
356: WSH_DEBUG_SV.log(l_module_name,'P_CREATE_FLAG',P_CREATE_FLAG);
357: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_ARR_DATE',P_PICKUP_ARR_DATE);
358: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DEP_DATE',P_PICKUP_DEP_DATE);
359: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_ARR_DATE',P_DROPOFF_ARR_DATE);
360: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_DEP_DATE',P_DROPOFF_DEP_DATE);
361: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
362: WSH_DEBUG_SV.log(l_module_name,'p_sc_pickup_date',p_sc_pickup_date);
363: WSH_DEBUG_SV.log(l_module_name,'p_sc_dropoff_date',p_sc_dropoff_date);
356: WSH_DEBUG_SV.log(l_module_name,'P_CREATE_FLAG',P_CREATE_FLAG);
357: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_ARR_DATE',P_PICKUP_ARR_DATE);
358: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DEP_DATE',P_PICKUP_DEP_DATE);
359: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_ARR_DATE',P_DROPOFF_ARR_DATE);
360: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_DEP_DATE',P_DROPOFF_DEP_DATE);
361: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
362: WSH_DEBUG_SV.log(l_module_name,'p_sc_pickup_date',p_sc_pickup_date);
363: WSH_DEBUG_SV.log(l_module_name,'p_sc_dropoff_date',p_sc_dropoff_date);
364: END IF;
357: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_ARR_DATE',P_PICKUP_ARR_DATE);
358: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DEP_DATE',P_PICKUP_DEP_DATE);
359: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_ARR_DATE',P_DROPOFF_ARR_DATE);
360: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_DEP_DATE',P_DROPOFF_DEP_DATE);
361: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
362: WSH_DEBUG_SV.log(l_module_name,'p_sc_pickup_date',p_sc_pickup_date);
363: WSH_DEBUG_SV.log(l_module_name,'p_sc_dropoff_date',p_sc_dropoff_date);
364: END IF;
365: --
358: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_DEP_DATE',P_PICKUP_DEP_DATE);
359: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_ARR_DATE',P_DROPOFF_ARR_DATE);
360: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_DEP_DATE',P_DROPOFF_DEP_DATE);
361: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
362: WSH_DEBUG_SV.log(l_module_name,'p_sc_pickup_date',p_sc_pickup_date);
363: WSH_DEBUG_SV.log(l_module_name,'p_sc_dropoff_date',p_sc_dropoff_date);
364: END IF;
365: --
366: l_stop_seq_mode := WSH_TRIPS_ACTIONS.GET_STOP_SEQ_MODE;
359: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_ARR_DATE',P_DROPOFF_ARR_DATE);
360: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_DEP_DATE',P_DROPOFF_DEP_DATE);
361: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
362: WSH_DEBUG_SV.log(l_module_name,'p_sc_pickup_date',p_sc_pickup_date);
363: WSH_DEBUG_SV.log(l_module_name,'p_sc_dropoff_date',p_sc_dropoff_date);
364: END IF;
365: --
366: l_stop_seq_mode := WSH_TRIPS_ACTIONS.GET_STOP_SEQ_MODE;
367: --
370: close get_trip_status;
371: --
372: --
373: IF l_debug_on THEN
374: WSH_DEBUG_SV.log(l_module_name,'l_trip_shipments_type_flag',l_trip_shipments_type_flag);
375: END IF;
376: --
377: IF l_trip_status = 'CL'
378: THEN
443: --RETURN;
444: raise e_return_excp; -- LPN CONV. rv
445: END IF;
446: IF l_debug_on THEN
447: WSH_DEBUG_SV.log(l_module_name,'l_phys_trip_dropoff_loc_id',l_phys_trip_dropoff_loc_id);
448: END IF;
449: END IF;
450:
451: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y') THEN
471: l_freight_terms_code, l_delivery_name, l_customer_id;
472: CLOSE delivery_info;
473:
474: IF l_debug_on THEN
475: wsh_debug_sv.log(l_module_name, 'Del '||p_del_rows(i)||' Status '||l_delivery_status);
476: END IF;
477:
478: -- Check if the delivery is in a valid status.
479: IF l_delivery_status in ('CA', 'CL') THEN
528: IF l_del_rows.COUNT > 1 THEN --{
529:
530:
531: IF l_debug_on THEN
532: wsh_debug_sv.log(l_module_name, 'Pre determining the sequence numbers/PAD');
533: END IF;
534:
535: l_pregen_seq := 'Y';
536: l_sysdate := sysdate;
617: END IF;
618:
619: IF l_debug_on THEN
620: FOR i in l_id.FIRST..l_id.LAST LOOP
621: wsh_debug_sv.log(l_module_name, 'l_id '||l_id(i)||' l_seq '||l_seq(i));
622: END LOOP;
623: END IF;
624:
625: EXIT WHEN c_get_seq_numbers%NOTFOUND;
675: END IF; --}
676: --
677:
678: IF l_debug_on THEN
679: wsh_debug_sv.log(l_module_name, 'Processing Del '||l_del_rows(i)||' Shipment direction '|| l_shipment_direction);
680: END IF;
681: --
682:
683: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y') THEN
740: --
741: -- Debug Statements
742: --
743: IF l_debug_on THEN
744: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.GET_DEFAULT_UOMS',WSH_DEBUG_SV.C_PROC_LEVEL);
745: END IF;
746: --
747: wsh_wv_utils.get_default_uoms(l_org_id, l_default_wt_uom, l_default_vol_uom, x_return_status);
748:
787: CLOSE get_stop;
788: END IF;
789:
790: IF l_debug_on THEN
791: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id-'||l_pickup_stop_id);
792: WSH_DEBUG_SV.log(l_module_name,'l_pickup_location_id-'||l_pickup_location_id);
793: WSH_DEBUG_SV.log(l_module_name,'pickup_stop_seq-'||p_pickup_stop_seq);
794: WSH_DEBUG_SV.log(l_module_name,'l_stop_shipments_type_flag',l_stop_shipments_type_flag);
795: END IF;
788: END IF;
789:
790: IF l_debug_on THEN
791: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id-'||l_pickup_stop_id);
792: WSH_DEBUG_SV.log(l_module_name,'l_pickup_location_id-'||l_pickup_location_id);
793: WSH_DEBUG_SV.log(l_module_name,'pickup_stop_seq-'||p_pickup_stop_seq);
794: WSH_DEBUG_SV.log(l_module_name,'l_stop_shipments_type_flag',l_stop_shipments_type_flag);
795: END IF;
796: /* H integration , for stop sequence number */
789:
790: IF l_debug_on THEN
791: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id-'||l_pickup_stop_id);
792: WSH_DEBUG_SV.log(l_module_name,'l_pickup_location_id-'||l_pickup_location_id);
793: WSH_DEBUG_SV.log(l_module_name,'pickup_stop_seq-'||p_pickup_stop_seq);
794: WSH_DEBUG_SV.log(l_module_name,'l_stop_shipments_type_flag',l_stop_shipments_type_flag);
795: END IF;
796: /* H integration , for stop sequence number */
797: IF p_pickup_location_id IS NOT NULL THEN
790: IF l_debug_on THEN
791: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id-'||l_pickup_stop_id);
792: WSH_DEBUG_SV.log(l_module_name,'l_pickup_location_id-'||l_pickup_location_id);
793: WSH_DEBUG_SV.log(l_module_name,'pickup_stop_seq-'||p_pickup_stop_seq);
794: WSH_DEBUG_SV.log(l_module_name,'l_stop_shipments_type_flag',l_stop_shipments_type_flag);
795: END IF;
796: /* H integration , for stop sequence number */
797: IF p_pickup_location_id IS NOT NULL THEN
798: l_new_flag := 'PICKUP';
809: --
810: -- Debug Statements
811: --
812: IF l_debug_on THEN
813: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_VALIDATIONS.GET_NEW_SEQUENCE_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
814: END IF;
815: --
816: WSH_TRIP_STOPS_VALIDATIONS.get_new_sequence_number
817: (x_stop_sequence_number => l_pickup_stop_seq,
870: FETCH c_get_prev_seq_wv into l_gross_weight,l_net_weight,l_volume;
871: CLOSE c_get_prev_seq_wv;
872:
873: IF l_debug_on THEN
874: WSH_DEBUG_SV.log(l_module_name,'Prev stop Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume);
875: END IF;
876:
877: l_trip_stop_info.departure_gross_weight := l_gross_weight;
878: l_trip_stop_info.departure_net_weight := l_net_weight;
890: l_trip_stop_info.shipments_type_flag := 'I';
891: END IF;
892: --
893: IF l_debug_on THEN
894: WSH_DEBUG_SV.log(l_module_name,'l_trip_stop_info.shipments_type_flag',l_trip_stop_info.shipments_type_flag);
895: END IF;
896: --
897: -- J-IB-NPARIKH-}
898:
897: -- J-IB-NPARIKH-}
898:
899: IF p_pickup_location_id IS NOT NULL THEN
900: IF l_debug_on THEN
901: WSH_DEBUG_SV.log(l_module_name,'updating dates for pickup loc which is getting created',p_pickup_location_id );
902: END IF;
903: l_trip_stop_info.planned_arrival_date := p_pickup_arr_date;
904: l_trip_stop_info.planned_departure_date := p_pickup_dep_date;
905: END IF;
910: --
911: -- Debug Statements
912: --
913: IF l_debug_on THEN
914: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
915: END IF;
916: --
917: wsh_fte_integration.trip_stop_validations
918: (p_stop_rec => l_trip_stop_info,
928: --
929: -- Debug Statements
930: --
931: --IF l_debug_on THEN
932: --WSH_DEBUG_SV.pop(l_module_name);
933: --END IF;
934: --
935: --RETURN;
936: raise e_return_excp; -- LPN CONV. rv
943: --
944: -- Debug Statements
945: --
946: IF l_debug_on THEN
947: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.CREATE_TRIP_STOP',WSH_DEBUG_SV.C_PROC_LEVEL);
948: END IF;
949: --
950: --
951:
966: FETCH c_check_dummystops INTO l_check_dummystops;
967: IF c_check_dummystops%NOTFOUND THEN
968: CLOSE c_check_dummystops;
969: IF l_debug_on THEN
970: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_trips_pvt.get_name',WSH_DEBUG_SV.C_PROC_LEVEL);
971: END IF;
972: FND_MESSAGE.SET_NAME('WSH','WSH_FIRMTRIP_NO_NEW_STOP');
973: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
974: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
983: p_trip_id => p_trip_id,
984: p_mode_of_transport => l_trip_mode_of_transport,
985: x_return_status => x_return_status);
986: IF l_debug_on THEN
987: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.Validate_MultiStops x_return_status',x_return_status);
988: END IF;
989:
990: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
991: RAISE e_InvalidDelExcep; -- Bug 5336308
1002: --
1003: -- Debug Statements
1004: --
1005: IF l_debug_on THEN
1006: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_GRP.GET_STOP_DETAILS_PVT',WSH_DEBUG_SV.C_PROC_LEVEL);
1007: END IF;
1008: --
1009: wsh_trip_stops_grp.get_stop_details_pvt
1010: (p_stop_id => l_pickup_stop_id,
1016: --
1017: -- Debug Statements
1018: --
1019: --IF l_debug_on THEN
1020: --WSH_DEBUG_SV.pop(l_module_name);
1021: --END IF;
1022: --
1023: --RETURN;
1024: raise e_return_excp; -- LPN CONV. rv
1036: --
1037: -- Debug Statements
1038: --
1039: IF l_debug_on THEN
1040: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
1041: END IF;
1042: --
1043: wsh_fte_integration.trip_stop_validations
1044: (p_stop_rec => l_stop_rec,
1053: --
1054: -- Debug Statements
1055: --
1056: --IF l_debug_on THEN
1057: --WSH_DEBUG_SV.pop(l_module_name);
1058: --END IF;
1059: --
1060: --RETURN;
1061: raise e_return_excp; -- LPN CONV. rv
1070: -- For an existing stop, calculate value of shipments type flag
1071: -- by calling WSH_TRIP_STOPS_VALIDATIONS.refreshShipmentsTypeFlag
1072: --
1073: IF l_debug_on THEN
1074: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WWSH_TRIP_STOPS_VALIDATIONS.refreshShipmentsTypeFlag',WSH_DEBUG_SV.C_PROC_LEVEL);
1075: END IF;
1076: --
1077: WSH_TRIP_STOPS_VALIDATIONS.refreshShipmentsTypeFlag
1078: (
1108: -- Updating WSH_TRIP_STOPS.
1109: -- Call DBI API after the Update.
1110: -- This API will also check for DBI Installed or not
1111: IF l_debug_on THEN
1112: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Stop id -',l_pickup_stop_id);
1113: END IF;
1114: l_stop_tab(1) := l_pickup_stop_id;
1115: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
1116: (p_stop_id_tab => l_stop_tab,
1117: p_dml_type => 'UPDATE',
1118: x_return_status => l_dbi_rs);
1119:
1120: IF l_debug_on THEN
1121: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1122: END IF;
1123: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1124: x_return_status := l_dbi_rs;
1125: rollback to assign_del_to_trip;
1124: x_return_status := l_dbi_rs;
1125: rollback to assign_del_to_trip;
1126: -- just pass this return status to caller API
1127: IF l_debug_on THEN
1128: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1129: --WSH_DEBUG_SV.pop(l_module_name);
1130: END IF;
1131: --return;
1132: raise e_return_excp; -- LPN CONV. rv
1125: rollback to assign_del_to_trip;
1126: -- just pass this return status to caller API
1127: IF l_debug_on THEN
1128: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1129: --WSH_DEBUG_SV.pop(l_module_name);
1130: END IF;
1131: --return;
1132: raise e_return_excp; -- LPN CONV. rv
1133: END IF;
1141: x_success_trip_ids => l_dummy_trip_ids,
1142: x_return_status => l_return_status);
1143:
1144: IF l_debug_on THEN
1145: WSH_DEBUG_SV.log(l_module_name,'Handle_Internal_Stops after updating stop l_return_status',l_return_status);
1146: END IF;
1147:
1148: wsh_util_core.api_post_call
1149: (
1175: CLOSE get_stop;
1176: END IF;
1177:
1178: IF l_debug_on THEN
1179: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id-'||l_dropoff_stop_id);
1180: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_location_id-'||l_dropoff_location_id);
1181: WSH_DEBUG_SV.log(l_module_name,'dropoff_stop_seq-'||p_dropoff_stop_seq);
1182: WSH_DEBUG_SV.log(l_module_name,'l_stop_shipments_type_flag'||l_stop_shipments_type_flag);
1183: END IF;
1176: END IF;
1177:
1178: IF l_debug_on THEN
1179: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id-'||l_dropoff_stop_id);
1180: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_location_id-'||l_dropoff_location_id);
1181: WSH_DEBUG_SV.log(l_module_name,'dropoff_stop_seq-'||p_dropoff_stop_seq);
1182: WSH_DEBUG_SV.log(l_module_name,'l_stop_shipments_type_flag'||l_stop_shipments_type_flag);
1183: END IF;
1184:
1177:
1178: IF l_debug_on THEN
1179: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id-'||l_dropoff_stop_id);
1180: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_location_id-'||l_dropoff_location_id);
1181: WSH_DEBUG_SV.log(l_module_name,'dropoff_stop_seq-'||p_dropoff_stop_seq);
1182: WSH_DEBUG_SV.log(l_module_name,'l_stop_shipments_type_flag'||l_stop_shipments_type_flag);
1183: END IF;
1184:
1185: -- bug 2784197
1178: IF l_debug_on THEN
1179: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id-'||l_dropoff_stop_id);
1180: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_location_id-'||l_dropoff_location_id);
1181: WSH_DEBUG_SV.log(l_module_name,'dropoff_stop_seq-'||p_dropoff_stop_seq);
1182: WSH_DEBUG_SV.log(l_module_name,'l_stop_shipments_type_flag'||l_stop_shipments_type_flag);
1183: END IF;
1184:
1185: -- bug 2784197
1186: open get_sequence(l_pickup_stop_id);
1186: open get_sequence(l_pickup_stop_id);
1187: fetch get_sequence into l_pickup_stop_seq;
1188: close get_sequence;
1189: IF l_debug_on THEN
1190: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_seq',l_pickup_stop_seq);
1191: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_seq',l_dropoff_stop_seq);
1192: END IF;
1193: IF nvl(l_dropoff_stop_seq, 0 ) = 0
1194: OR nvl(l_dropoff_stop_seq, 0 ) < nvl(l_pickup_stop_seq,0) THEN
1187: fetch get_sequence into l_pickup_stop_seq;
1188: close get_sequence;
1189: IF l_debug_on THEN
1190: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_seq',l_pickup_stop_seq);
1191: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_seq',l_dropoff_stop_seq);
1192: END IF;
1193: IF nvl(l_dropoff_stop_seq, 0 ) = 0
1194: OR nvl(l_dropoff_stop_seq, 0 ) < nvl(l_pickup_stop_seq,0) THEN
1195: l_dropoff_stop_id := NULL;
1209: -- Debug Statements
1210: --
1211: --4106241 : Call the get_new_sequence_number API only if l_dropoff_stop_seq and l_dropoff_stop_id are null.
1212: IF l_debug_on THEN
1213: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_seq before api call is:',l_dropoff_stop_seq);
1214: END IF;
1215: IF l_dropoff_stop_seq is NULL and l_dropoff_stop_id is NULL THEN
1216:
1217: IF l_pregen_seq = 'N' THEN --{
1215: IF l_dropoff_stop_seq is NULL and l_dropoff_stop_id is NULL THEN
1216:
1217: IF l_pregen_seq = 'N' THEN --{
1218: IF l_debug_on THEN
1219: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_VALIDATIONS.GET_NEW_SEQUENCE_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
1220: END IF;
1221: --
1222:
1223: WSH_TRIP_STOPS_VALIDATIONS.get_new_sequence_number
1293: FETCH c_get_prev_seq_wv into l_gross_weight,l_net_weight,l_volume;
1294: CLOSE c_get_prev_seq_wv;
1295:
1296: IF l_debug_on THEN
1297: WSH_DEBUG_SV.log(l_module_name,'Prev stop Gross '||l_gross_weight||' Net '||l_net_weight||' Vol '||l_volume);
1298: END IF;
1299:
1300: l_trip_stop_info.departure_gross_weight := l_gross_weight;
1301: l_trip_stop_info.departure_net_weight := l_net_weight;
1314: l_trip_stop_info.shipments_type_flag := 'I';
1315: END IF;
1316: --
1317: IF l_debug_on THEN
1318: WSH_DEBUG_SV.log(l_module_name,'l_trip_stop_info.shipments_type_flag',l_trip_stop_info.shipments_type_flag);
1319: END IF;
1320: --
1321: -- J-IB-NPARIKH-}
1322:
1321: -- J-IB-NPARIKH-}
1322:
1323: IF p_dropoff_location_id IS NOT NULL THEN
1324: IF l_debug_on THEN
1325: WSH_DEBUG_SV.log(l_module_name,'updating dates for dropoff loc which us getting created',p_dropoff_location_id);
1326: END IF;
1327: l_trip_stop_info.planned_arrival_date := p_dropoff_arr_date;
1328: l_trip_stop_info.planned_departure_date := p_dropoff_dep_date;
1329: END IF;
1334: --
1335: -- Debug Statements
1336: --
1337: IF l_debug_on THEN
1338: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
1339: END IF;
1340: --
1341: wsh_fte_integration.trip_stop_validations
1342: (p_stop_rec => l_trip_stop_info,
1352: --
1353: -- Debug Statements
1354: --
1355: --IF l_debug_on THEN
1356: --WSH_DEBUG_SV.pop(l_module_name);
1357: --END IF;
1358: --
1359: --RETURN;
1360: raise e_return_excp; -- LPN CONV. rv
1366: --
1367: -- Debug Statements
1368: --
1369: IF l_debug_on THEN
1370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.CREATE_TRIP_STOP',WSH_DEBUG_SV.C_PROC_LEVEL);
1371: END IF;
1372: --
1373: wsh_trip_stops_pvt.create_trip_stop(l_trip_stop_info,l_rowid,l_dropoff_stop_id, x_return_status);
1374:
1388: FETCH c_check_dummystops INTO l_check_dummystops;
1389: IF c_check_dummystops%NOTFOUND THEN
1390: CLOSE c_check_dummystops;
1391: IF l_debug_on THEN
1392: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_trips_pvt.get_name',WSH_DEBUG_SV.C_PROC_LEVEL);
1393: END IF;
1394: FND_MESSAGE.SET_NAME('WSH','WSH_FIRMTRIP_NO_NEW_STOP');
1395: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
1396: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
1405: p_trip_id => p_trip_id,
1406: p_mode_of_transport => l_trip_mode_of_transport,
1407: x_return_status => x_return_status);
1408: IF l_debug_on THEN
1409: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.Validate_MultiStops x_return_status',x_return_status);
1410: END IF;
1411:
1412: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1413: RAISE e_InvalidDelExcep; -- Bug 5336308
1425: --
1426: -- Debug Statements
1427: --
1428: IF l_debug_on THEN
1429: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_GRP.GET_STOP_DETAILS_PVT',WSH_DEBUG_SV.C_PROC_LEVEL);
1430: END IF;
1431: --
1432: wsh_trip_stops_grp.get_stop_details_pvt
1433: (p_stop_id => l_dropoff_stop_id,
1439: --
1440: -- Debug Statements
1441: --
1442: --IF l_debug_on THEN
1443: --WSH_DEBUG_SV.pop(l_module_name);
1444: --END IF;
1445: --
1446: --RETURN;
1447: raise e_return_excp; -- LPN CONV. rv
1458: --
1459: -- Debug Statements
1460: --
1461: IF l_debug_on THEN
1462: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
1463: END IF;
1464: --
1465: wsh_fte_integration.trip_stop_validations
1466: (p_stop_rec => l_stop_rec,
1475: --
1476: -- Debug Statements
1477: --
1478: --IF l_debug_on THEN
1479: --WSH_DEBUG_SV.pop(l_module_name);
1480: --END IF;
1481: --
1482: --RETURN;
1483: raise e_return_excp; -- LPN CONV. rv
1492: -- For an existing stop, calculate value of shipments type flag
1493: -- by calling WSH_TRIP_STOPS_VALIDATIONS.refreshShipmentsTypeFlag
1494: --
1495: IF l_debug_on THEN
1496: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WWSH_TRIP_STOPS_VALIDATIONS.refreshShipmentsTypeFlag',WSH_DEBUG_SV.C_PROC_LEVEL);
1497: END IF;
1498: --
1499: WSH_TRIP_STOPS_VALIDATIONS.refreshShipmentsTypeFlag
1500: (
1527: END IF;
1528:
1529: --
1530: IF l_debug_on THEN
1531: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHK_DUP_PICKUP_DROPOFF_LOCNS',WSH_DEBUG_SV.C_PROC_LEVEL);
1532: END IF;
1533: --
1534: wsh_delivery_validations.chk_dup_pickup_dropoff_locns
1535: (p_delivery_id => l_del_rows(i),
1539: IF l_return_status IN (wsh_util_core.g_ret_sts_error, wsh_util_core.g_ret_sts_unexp_error) THEN
1540: l_num_error := l_num_error + 1;
1541: --
1542: IF l_debug_on THEN
1543: WSH_DEBUG_SV.logmsg(l_module_name,'Rolling back to the begining of the loop',WSH_DEBUG_SV.C_PROC_LEVEL);
1544: WSH_DEBUG_SV.log(l_module_name,'l_num_error',l_num_error);
1545: END IF;
1546: --
1547: RAISE e_CommonExcep; -- Bug 5336308
1540: l_num_error := l_num_error + 1;
1541: --
1542: IF l_debug_on THEN
1543: WSH_DEBUG_SV.logmsg(l_module_name,'Rolling back to the begining of the loop',WSH_DEBUG_SV.C_PROC_LEVEL);
1544: WSH_DEBUG_SV.log(l_module_name,'l_num_error',l_num_error);
1545: END IF;
1546: --
1547: RAISE e_CommonExcep; -- Bug 5336308
1548: --
1548: --
1549: END IF;
1550: --2709662
1551: IF l_debug_on THEN
1552: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id', l_dropoff_stop_id);
1553: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id', l_pickup_stop_id);
1554: END IF;
1555:
1556: IF l_pregen_seq = 'N' THEN --{
1549: END IF;
1550: --2709662
1551: IF l_debug_on THEN
1552: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id', l_dropoff_stop_id);
1553: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id', l_pickup_stop_id);
1554: END IF;
1555:
1556: IF l_pregen_seq = 'N' THEN --{
1557: --
1562: (l_pickup_stop_id IS NOT NULL) AND (l_dropoff_stop_id IS NOT NULL)
1563: THEN
1564:
1565: IF l_debug_on THEN
1566: WSH_DEBUG_SV.log(l_module_name,'l_pickup_arr_date', fnd_date.date_to_displaydt(l_pickup_arr_date));
1567: WSH_DEBUG_SV.log(l_module_name,'l_pickup_dep_date', fnd_date.date_to_displaydt(l_pickup_dep_date));
1568: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_arr_date', fnd_date.date_to_displaydt (l_dropoff_arr_date));
1569: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_dep_date', fnd_date.date_to_displaydt (l_dropoff_dep_date));
1570: END IF;
1563: THEN
1564:
1565: IF l_debug_on THEN
1566: WSH_DEBUG_SV.log(l_module_name,'l_pickup_arr_date', fnd_date.date_to_displaydt(l_pickup_arr_date));
1567: WSH_DEBUG_SV.log(l_module_name,'l_pickup_dep_date', fnd_date.date_to_displaydt(l_pickup_dep_date));
1568: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_arr_date', fnd_date.date_to_displaydt (l_dropoff_arr_date));
1569: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_dep_date', fnd_date.date_to_displaydt (l_dropoff_dep_date));
1570: END IF;
1571: -- bug 3516052
1564:
1565: IF l_debug_on THEN
1566: WSH_DEBUG_SV.log(l_module_name,'l_pickup_arr_date', fnd_date.date_to_displaydt(l_pickup_arr_date));
1567: WSH_DEBUG_SV.log(l_module_name,'l_pickup_dep_date', fnd_date.date_to_displaydt(l_pickup_dep_date));
1568: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_arr_date', fnd_date.date_to_displaydt (l_dropoff_arr_date));
1569: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_dep_date', fnd_date.date_to_displaydt (l_dropoff_dep_date));
1570: END IF;
1571: -- bug 3516052
1572: -- bug 4036204: We relax the restriction so that p_pickup_dep_date = p_dropoff_arr_date
1565: IF l_debug_on THEN
1566: WSH_DEBUG_SV.log(l_module_name,'l_pickup_arr_date', fnd_date.date_to_displaydt(l_pickup_arr_date));
1567: WSH_DEBUG_SV.log(l_module_name,'l_pickup_dep_date', fnd_date.date_to_displaydt(l_pickup_dep_date));
1568: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_arr_date', fnd_date.date_to_displaydt (l_dropoff_arr_date));
1569: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_dep_date', fnd_date.date_to_displaydt (l_dropoff_dep_date));
1570: END IF;
1571: -- bug 3516052
1572: -- bug 4036204: We relax the restriction so that p_pickup_dep_date = p_dropoff_arr_date
1573: -- as long as p_pickup_arr_date >= p_dropoff_arr_date
1587:
1588: -- check that pick up SSN is before drop off SSN.
1589:
1590: IF l_debug_on THEN
1591: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_seq', l_pickup_stop_seq);
1592: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_seq', l_dropoff_stop_seq);
1593: END IF;
1594:
1595: IF l_pickup_stop_seq >= l_dropoff_stop_seq THEN
1588: -- check that pick up SSN is before drop off SSN.
1589:
1590: IF l_debug_on THEN
1591: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_seq', l_pickup_stop_seq);
1592: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_seq', l_dropoff_stop_seq);
1593: END IF;
1594:
1595: IF l_pickup_stop_seq >= l_dropoff_stop_seq THEN
1596: FND_MESSAGE.Set_Name('WSH', 'WSH_PICKUP_STOP_SEQUENCE');
1628: -- Updating WSH_TRIP_STOPS.
1629: -- Call DBI API after the Update.
1630: -- This API will also check for DBI Installed or not
1631: IF l_debug_on THEN
1632: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Stop id -',l_pickup_stop_id);
1633: END IF;
1634: l_stop_tab.delete;
1635: l_stop_tab(1) := l_pickup_stop_id;
1636: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
1638: p_dml_type => 'UPDATE',
1639: x_return_status => l_dbi_rs);
1640:
1641: IF l_debug_on THEN
1642: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1643: END IF;
1644: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1645: x_return_status := l_dbi_rs;
1646: rollback to assign_del_to_trip;
1645: x_return_status := l_dbi_rs;
1646: rollback to assign_del_to_trip;
1647: -- just pass this return status to caller API
1648: IF l_debug_on THEN
1649: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1650: --WSH_DEBUG_SV.pop(l_module_name);
1651: END IF;
1652: --return;
1653: raise e_return_excp; -- LPN CONV. rv
1646: rollback to assign_del_to_trip;
1647: -- just pass this return status to caller API
1648: IF l_debug_on THEN
1649: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1650: --WSH_DEBUG_SV.pop(l_module_name);
1651: END IF;
1652: --return;
1653: raise e_return_excp; -- LPN CONV. rv
1654: END IF;
1676: -- Updating WSH_TRIP_STOPS.
1677: -- Call DBI API after the Update.
1678: -- This API will also check for DBI Installed or not
1679: IF l_debug_on THEN
1680: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Stop id -',l_dropoff_stop_id);
1681: END IF;
1682: l_stop_tab.delete;
1683: l_stop_tab(1) := l_dropoff_stop_id;
1684: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
1686: p_dml_type => 'UPDATE',
1687: x_return_status => l_dbi_rs);
1688:
1689: IF l_debug_on THEN
1690: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1691: END IF;
1692: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1693: x_return_status := l_dbi_rs;
1694: rollback to assign_del_to_trip;
1693: x_return_status := l_dbi_rs;
1694: rollback to assign_del_to_trip;
1695: -- just pass this return status to caller API
1696: IF l_debug_on THEN
1697: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1698: --WSH_DEBUG_SV.pop(l_module_name);
1699: END IF;
1700: --return;
1701: raise e_return_excp; -- LPN CONV. rv
1694: rollback to assign_del_to_trip;
1695: -- just pass this return status to caller API
1696: IF l_debug_on THEN
1697: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1698: --WSH_DEBUG_SV.pop(l_module_name);
1699: END IF;
1700: --return;
1701: raise e_return_excp; -- LPN CONV. rv
1702: END IF;
1729: --
1730: -- Debug Statements
1731: --
1732: IF l_debug_on THEN
1733: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_PVT.CREATE_DELIVERY_LEG',WSH_DEBUG_SV.C_PROC_LEVEL);
1734: END IF;
1735: --
1736: wsh_delivery_legs_pvt.create_delivery_leg(l_delivery_leg_info, l_rowid, l_leg_id, x_return_status);
1737:
1763: IF p_pickup_stop_id IS NOT NULL
1764: THEN
1765: --{
1766: IF l_debug_on THEN
1767: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WWSH_TRIP_STOPS_VALIDATIONS.refreshShipmentsTypeFlag',WSH_DEBUG_SV.C_PROC_LEVEL);
1768: END IF;
1769: --
1770: --
1771: -- For an existing stop, calculate value of shipments type flag
1802: -- Updating WSH_TRIP_STOPS.
1803: -- Call DBI API after the Update.
1804: -- This API will also check for DBI Installed or not
1805: IF l_debug_on THEN
1806: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Stop id -',p_pickup_stop_id);
1807: END IF;
1808: l_stop_tab.delete;
1809: l_stop_tab(1) := p_pickup_stop_id;
1810: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
1812: p_dml_type => 'UPDATE',
1813: x_return_status => l_dbi_rs);
1814:
1815: IF l_debug_on THEN
1816: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1817: END IF;
1818: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1819: x_return_status := l_dbi_rs;
1820: rollback to assign_del_to_trip;
1819: x_return_status := l_dbi_rs;
1820: rollback to assign_del_to_trip;
1821: -- just pass this return status to caller API
1822: IF l_debug_on THEN
1823: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||l_dbi_rs);
1824: --WSH_DEBUG_SV.pop(l_module_name);
1825: END IF;
1826: --return;
1827: raise e_return_excp; -- LPN CONV. rv
1820: rollback to assign_del_to_trip;
1821: -- just pass this return status to caller API
1822: IF l_debug_on THEN
1823: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||l_dbi_rs);
1824: --WSH_DEBUG_SV.pop(l_module_name);
1825: END IF;
1826: --return;
1827: raise e_return_excp; -- LPN CONV. rv
1828: END IF;
1836: IF p_dropoff_stop_id IS NOT NULL
1837: THEN
1838: --{
1839: IF l_debug_on THEN
1840: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WWSH_TRIP_STOPS_VALIDATIONS.refreshShipmentsTypeFlag',WSH_DEBUG_SV.C_PROC_LEVEL);
1841: END IF;
1842: --
1843: --
1844: -- For an existing stop, calculate value of shipments type flag
1862: );
1863: --
1864: --
1865: IF l_debug_on THEN
1866: WSH_DEBUG_SV.log(l_module_name,'l_do_stop_shipments_type_flag',l_do_stop_shipments_type_flag);
1867: END IF;
1868: IF p_dropoff_location_id IS NOT NULL THEN
1869: update wsh_trip_stops
1870: set planned_departure_date=p_dropoff_dep_date,
1879: -- Updating WSH_TRIP_STOPS.
1880: -- Call DBI API after the Update.
1881: -- This API will also check for DBI Installed or not
1882: IF l_debug_on THEN
1883: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Stop id -',p_dropoff_stop_id);
1884: END IF;
1885: l_stop_tab.delete;
1886: l_stop_tab(1) := p_dropoff_stop_id;
1887: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
1889: p_dml_type => 'UPDATE',
1890: x_return_status => l_dbi_rs);
1891:
1892: IF l_debug_on THEN
1893: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1894: END IF;
1895: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1896: x_return_status := l_dbi_rs;
1897: rollback to assign_del_to_trip;
1896: x_return_status := l_dbi_rs;
1897: rollback to assign_del_to_trip;
1898: -- just pass this return status to caller API
1899: IF l_debug_on THEN
1900: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1901: --WSH_DEBUG_SV.pop(l_module_name);
1902: END IF;
1903: --return;
1904: raise e_return_excp; -- LPN CONV. rv
1897: rollback to assign_del_to_trip;
1898: -- just pass this return status to caller API
1899: IF l_debug_on THEN
1900: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1901: --WSH_DEBUG_SV.pop(l_module_name);
1902: END IF;
1903: --return;
1904: raise e_return_excp; -- LPN CONV. rv
1905: END IF;
1932: -- Call wms to check if assignment is valid
1933: l_dlvy_trip_tbl(1).delivery_id := l_del_rows(i);
1934: l_dlvy_trip_tbl(1).trip_id := p_trip_id;
1935: IF l_debug_on THEN
1936: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
1937: WSH_DEBUG_SV.log(l_module_name,'trip_id',p_trip_id);
1938: WSH_DEBUG_SV.log(l_module_name,'del_id',l_del_rows(i));
1939: END IF;
1940: WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip(
1933: l_dlvy_trip_tbl(1).delivery_id := l_del_rows(i);
1934: l_dlvy_trip_tbl(1).trip_id := p_trip_id;
1935: IF l_debug_on THEN
1936: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
1937: WSH_DEBUG_SV.log(l_module_name,'trip_id',p_trip_id);
1938: WSH_DEBUG_SV.log(l_module_name,'del_id',l_del_rows(i));
1939: END IF;
1940: WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip(
1941: p_api_version => 1.0,
1934: l_dlvy_trip_tbl(1).trip_id := p_trip_id;
1935: IF l_debug_on THEN
1936: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
1937: WSH_DEBUG_SV.log(l_module_name,'trip_id',p_trip_id);
1938: WSH_DEBUG_SV.log(l_module_name,'del_id',l_del_rows(i));
1939: END IF;
1940: WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip(
1941: p_api_version => 1.0,
1942: p_init_msg_list => wms_shipping_interface_grp.g_false,
1969: --
1970: ROLLBACK TO ASSIGN_DEL_TO_TRIP;
1971: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_ERROR');
1972: IF l_debug_on THEN
1973: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1974: END IF;
1975: --
1976: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_del_rows(i)));
1977: -- Bug 3439165
1995: x_success_trip_ids => l_dummy_trip_ids,
1996: x_return_status => l_return_status);
1997:
1998: IF l_debug_on THEN
1999: WSH_DEBUG_SV.log(l_module_name,'Handle_Internal_Stops l_return_status',l_return_status);
2000: END IF;
2001:
2002: wsh_util_core.api_post_call
2003: (
2022: --
2023: -- Debug Statements
2024: --
2025: IF l_debug_on THEN
2026: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_GRP.GET_STOP_DETAILS_PVT',WSH_DEBUG_SV.C_PROC_LEVEL);
2027: END IF;
2028: --
2029: wsh_trip_stops_grp.get_stop_details_pvt
2030: (p_stop_id => p_pickup_stop_id,
2036: --
2037: -- Debug Statements
2038: --
2039: --IF l_debug_on THEN
2040: --WSH_DEBUG_SV.pop(l_module_name);
2041: --END IF;
2042: --
2043: --RETURN;
2044: raise e_return_excp; -- LPN CONV. rv
2047: --
2048: -- Debug Statements
2049: --
2050: IF l_debug_on THEN
2051: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
2052: END IF;
2053: --
2054: wsh_fte_integration.trip_stop_validations
2055: (p_stop_rec => l_stop_rec,
2064: --
2065: -- Debug Statements
2066: --
2067: --IF l_debug_on THEN
2068: --WSH_DEBUG_SV.pop(l_module_name);
2069: --END IF;
2070: --
2071: --RETURN;
2072: raise e_return_excp; -- LPN CONV. rv
2076: END IF;
2077:
2078:
2079: IF l_debug_on THEN
2080: WSH_DEBUG_SV.log(l_module_name,'l_pu_stop_shipments_type_flag',l_pu_stop_shipments_type_flag);
2081: WSH_DEBUG_SV.log(l_module_name,'l_pu_stop_shipType_flag_orig',l_pu_stop_shipType_flag_orig);
2082: END IF;
2083: --
2084: -- J-IB-NPARIKH-}
2077:
2078:
2079: IF l_debug_on THEN
2080: WSH_DEBUG_SV.log(l_module_name,'l_pu_stop_shipments_type_flag',l_pu_stop_shipments_type_flag);
2081: WSH_DEBUG_SV.log(l_module_name,'l_pu_stop_shipType_flag_orig',l_pu_stop_shipType_flag_orig);
2082: END IF;
2083: --
2084: -- J-IB-NPARIKH-}
2085:
2107: --
2108: -- Debug Statements
2109: --
2110: IF l_debug_on THEN
2111: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_GRP.GET_STOP_DETAILS_PVT',WSH_DEBUG_SV.C_PROC_LEVEL);
2112: END IF;
2113: --
2114: wsh_trip_stops_grp.get_stop_details_pvt
2115: (p_stop_id => p_dropoff_stop_id,
2121: --
2122: -- Debug Statements
2123: --
2124: --IF l_debug_on THEN
2125: --WSH_DEBUG_SV.pop(l_module_name);
2126: --END IF;
2127: --
2128: --RETURN;
2129: raise e_return_excp; -- LPN CONV. rv
2132: --
2133: -- Debug Statements
2134: --
2135: IF l_debug_on THEN
2136: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
2137: END IF;
2138: --
2139: wsh_fte_integration.trip_stop_validations
2140: (p_stop_rec => l_stop_rec,
2149: --
2150: -- Debug Statements
2151: --
2152: --IF l_debug_on THEN
2153: --WSH_DEBUG_SV.pop(l_module_name);
2154: --END IF;
2155: --
2156: --RETURN;
2157: raise e_return_excp; -- LPN CONV. rv
2161: END IF;
2162:
2163:
2164: IF l_debug_on THEN
2165: WSH_DEBUG_SV.log(l_module_name,'l_do_stop_shipments_type_flag',l_do_stop_shipments_type_flag);
2166: WSH_DEBUG_SV.log(l_module_name,'l_do_stop_shipType_flag_orig',l_do_stop_shipType_flag_orig);
2167: END IF;
2168: --
2169:
2162:
2163:
2164: IF l_debug_on THEN
2165: WSH_DEBUG_SV.log(l_module_name,'l_do_stop_shipments_type_flag',l_do_stop_shipments_type_flag);
2166: WSH_DEBUG_SV.log(l_module_name,'l_do_stop_shipType_flag_orig',l_do_stop_shipType_flag_orig);
2167: END IF;
2168: --
2169:
2170: /* End of H integration - call Multi Leg FTE */
2191: -- If trip already has mixed deliveries, no further updates are required.
2192: -- Hence, this code is restricted only to trip shipments type flag I/O
2193: --
2194: IF l_debug_on THEN
2195: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_VALIDATIONS.has_mixed_deliveries',WSH_DEBUG_SV.C_PROC_LEVEL);
2196: END IF;
2197: --
2198: l_has_mixed_deliveries := WSH_TRIP_VALIDATIONS.has_mixed_deliveries
2199: (
2200: p_trip_id => p_trip_id
2201: );
2202: --
2203: IF l_debug_on THEN
2204: WSH_DEBUG_SV.log(l_module_name,'l_has_mixed_deliveries',l_has_mixed_deliveries);
2205: END IF;
2206: --
2207: --
2208: IF l_has_mixed_deliveries = 'Y'
2218: l_trip_shipments_type_flag_new := l_trip_shipments_type_flag;
2219: END IF;
2220: --
2221: IF l_debug_on THEN
2222: WSH_DEBUG_SV.log(l_module_name,'l_trip_shipments_type_flag',l_trip_shipments_type_flag);
2223: WSH_DEBUG_SV.log(l_module_name,'l_trip_shipments_type_flag_new',l_trip_shipments_type_flag_new);
2224: END IF;
2225: --
2226: --
2219: END IF;
2220: --
2221: IF l_debug_on THEN
2222: WSH_DEBUG_SV.log(l_module_name,'l_trip_shipments_type_flag',l_trip_shipments_type_flag);
2223: WSH_DEBUG_SV.log(l_module_name,'l_trip_shipments_type_flag_new',l_trip_shipments_type_flag_new);
2224: END IF;
2225: --
2226: --
2227: --
2245: WHERE trip_id = p_trip_id
2246: and shipments_type_flag <> l_trip_shipments_type_flag_new;
2247:
2248: IF l_debug_on THEN
2249: WSH_DEBUG_SV.log(l_module_name,'SQL%ROWCOUNT After updating wts',SQL%ROWCOUNT);
2250: END IF;
2251:
2252: END IF;
2253: END IF;
2263: p_entity_ids => x_leg_rows,
2264: x_return_status => l_return_status);
2265:
2266: IF l_debug_on THEN
2267: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2268: END IF;
2269:
2270: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2271: raise mark_reprice_error;
2278:
2279: --J-IB-HEALI {
2280: FOR i IN 1..p_del_rows.count LOOP
2281: IF l_debug_on THEN
2282: WSH_DEBUG_SV.log(l_module_name,'delivery_id',p_del_rows(i));
2283: END IF;
2284:
2285: WSH_NEW_DELIVERY_ACTIONS.Process_Leg_Sequence
2286: ( p_delivery_id => p_del_rows(i),
2289: x_leg_complete => l_leg_complete,
2290: x_return_status => l_return_status);
2291:
2292: IF l_debug_on THEN
2293: WSH_DEBUG_SV.log(l_module_name,'Process_Leg_Sequence l_return_status',l_return_status);
2294: END IF;
2295:
2296: wsh_util_core.api_post_call
2297: (
2308: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2309: THEN
2310: --{
2311: IF l_debug_on THEN
2312: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
2313: END IF;
2314:
2315: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
2316: (
2320: );
2321: --
2322: --
2323: IF l_debug_on THEN
2324: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2325: END IF;
2326: --
2327: --
2328: WSH_UTIL_CORE.API_POST_CALL
2370: --
2371: -- Debug Statements
2372: --
2373: IF l_debug_on THEN
2374: WSH_DEBUG_SV.log(l_module_name,'X_LEG_ROWS.COUNT'||x_leg_rows.count);
2375: WSH_DEBUG_SV.pop(l_module_name);
2376: END IF;
2377: --
2378: EXCEPTION
2371: -- Debug Statements
2372: --
2373: IF l_debug_on THEN
2374: WSH_DEBUG_SV.log(l_module_name,'X_LEG_ROWS.COUNT'||x_leg_rows.count);
2375: WSH_DEBUG_SV.pop(l_module_name);
2376: END IF;
2377: --
2378: EXCEPTION
2379: WHEN e_return_excp THEN
2384: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2385: THEN
2386: --{
2387: IF l_debug_on THEN
2388: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
2389: END IF;
2390:
2391: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
2392: (
2396: );
2397: --
2398: --
2399: IF l_debug_on THEN
2400: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2401: END IF;
2402: --
2403: --
2404: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR) and x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2411: -- K LPN CONV. rv
2412: --
2413: --
2414: IF l_debug_on THEN
2415: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN_EXCP');
2416: END IF;
2417: --
2418: -- J-IB-NPARIKH-{
2419: --
2437: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2438: THEN
2439: --{
2440: IF l_debug_on THEN
2441: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
2442: END IF;
2443:
2444: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
2445: (
2449: );
2450: --
2451: --
2452: IF l_debug_on THEN
2453: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2454: END IF;
2455: --
2456: --
2457: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2464: -- K LPN CONV. rv
2465: --
2466: --
2467: IF l_debug_on THEN
2468: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2469: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2470: END IF;
2471: --
2472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2465: --
2466: --
2467: IF l_debug_on THEN
2468: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2469: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2470: END IF;
2471: --
2472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2473: IF c_is_first_leg%isopen THEN
2484: END IF;
2485: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2486: --
2487: IF l_debug_on THEN
2488: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2489: END IF;
2490: --
2491: -- K LPN CONV. rv
2492: --
2493: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2494: THEN
2495: --{
2496: IF l_debug_on THEN
2497: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
2498: END IF;
2499:
2500: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
2501: (
2505: );
2506: --
2507: --
2508: IF l_debug_on THEN
2509: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2510: END IF;
2511: --
2512: --
2513: --}
2515: --
2516: -- K LPN CONV. rv
2517: --
2518: IF l_debug_on THEN
2519: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2520: END IF;
2521: --
2522: -- J-IB-NPARIKH-}
2523: WHEN mark_reprice_error THEN
2543: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2544: THEN
2545: --{
2546: IF l_debug_on THEN
2547: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
2548: END IF;
2549:
2550: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
2551: (
2555: );
2556: --
2557: --
2558: IF l_debug_on THEN
2559: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2560: END IF;
2561: --
2562: --
2563: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2571: --
2572: -- Debug Statements
2573: --
2574: IF l_debug_on THEN
2575: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2577: END IF;
2578: --
2579: WHEN Invalid_Trip THEN
2572: -- Debug Statements
2573: --
2574: IF l_debug_on THEN
2575: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2577: END IF;
2578: --
2579: WHEN Invalid_Trip THEN
2580: IF c_is_first_leg%isopen THEN
2598: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2599: THEN
2600: --{
2601: IF l_debug_on THEN
2602: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
2603: END IF;
2604:
2605: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
2606: (
2610: );
2611: --
2612: --
2613: IF l_debug_on THEN
2614: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2615: END IF;
2616: --
2617: --
2618: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2627: --
2628: -- Debug Statements
2629: --
2630: IF l_debug_on THEN
2631: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_TRIP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2632: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_TRIP');
2633: END IF;
2634: --
2635: WHEN bad_trip_stop THEN
2628: -- Debug Statements
2629: --
2630: IF l_debug_on THEN
2631: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_TRIP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2632: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_TRIP');
2633: END IF;
2634: --
2635: WHEN bad_trip_stop THEN
2636: IF c_is_first_leg%isopen THEN
2655: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2656: THEN
2657: --{
2658: IF l_debug_on THEN
2659: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
2660: END IF;
2661:
2662: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
2663: (
2667: );
2668: --
2669: --
2670: IF l_debug_on THEN
2671: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2672: END IF;
2673: --
2674: --
2675: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2683: --
2684: -- Debug Statements
2685: --
2686: IF l_debug_on THEN
2687: WSH_DEBUG_SV.logmsg(l_module_name,'BAD_TRIP_STOP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2688: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:BAD_TRIP_STOP');
2689: END IF;
2690: --
2691: WHEN rate_trip_contents_fail THEN
2684: -- Debug Statements
2685: --
2686: IF l_debug_on THEN
2687: WSH_DEBUG_SV.logmsg(l_module_name,'BAD_TRIP_STOP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2688: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:BAD_TRIP_STOP');
2689: END IF;
2690: --
2691: WHEN rate_trip_contents_fail THEN
2692: IF c_is_first_leg%isopen THEN
2710: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2711: THEN
2712: --{
2713: IF l_debug_on THEN
2714: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
2715: END IF;
2716:
2717: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
2718: (
2722: );
2723: --
2724: --
2725: IF l_debug_on THEN
2726: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2727: END IF;
2728: --
2729: --
2730: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2736: --
2737: -- K LPN CONV. rv
2738: --
2739: IF l_debug_on THEN
2740: WSH_DEBUG_SV.logmsg(l_module_name,'rate_trip_contents_fail exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2741: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:rate_trip_contents_fail');
2742: END IF;
2743:
2744: WHEN e_lock_error THEN
2737: -- K LPN CONV. rv
2738: --
2739: IF l_debug_on THEN
2740: WSH_DEBUG_SV.logmsg(l_module_name,'rate_trip_contents_fail exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2741: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:rate_trip_contents_fail');
2742: END IF;
2743:
2744: WHEN e_lock_error THEN
2745: IF get_stop_new%ISOPEN THEN
2757:
2758: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
2759: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
2760: IF l_debug_on THEN
2761: WSH_DEBUG_SV.logmsg(l_module_name,'e_lock_error' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2762: END IF;
2763: --
2764: -- K LPN CONV. rv
2765: --
2766: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2767: THEN
2768: --{
2769: IF l_debug_on THEN
2770: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
2771: END IF;
2772:
2773: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
2774: (
2778: );
2779: --
2780: --
2781: IF l_debug_on THEN
2782: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2783: END IF;
2784: --
2785: --
2786: --}
2791: --
2792: -- Debug Statements
2793: --
2794: IF l_debug_on THEN
2795: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_LOCK_ERROR');
2796: END IF;
2797: --
2798: WHEN others THEN
2799: IF get_trip_status%ISOPEN THEN
2816: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_ACTIONS.ASSIGN_DELIVERIES');
2817: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2818:
2819: IF l_debug_on THEN
2820: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2821: END IF;
2822: --
2823: -- K LPN CONV. rv
2824: --
2825: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2826: THEN
2827: --{
2828: IF l_debug_on THEN
2829: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
2830: END IF;
2831:
2832: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
2833: (
2837: );
2838: --
2839: --
2840: IF l_debug_on THEN
2841: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2842: END IF;
2843: --
2844: --
2845: --}
2850: --
2851: -- Debug Statements
2852: --
2853: IF l_debug_on THEN
2854: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2855: END IF;
2856: --
2857: END Assign_Deliveries;
2858:
2981: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2982: --
2983: IF l_debug_on IS NULL
2984: THEN
2985: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2986: END IF;
2987:
2988: IF l_debug_on THEN
2989: WSH_DEBUG_SV.push(l_module_name);
2985: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2986: END IF;
2987:
2988: IF l_debug_on THEN
2989: WSH_DEBUG_SV.push(l_module_name);
2990: --
2991: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
2992: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
2993: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
2987:
2988: IF l_debug_on THEN
2989: WSH_DEBUG_SV.push(l_module_name);
2990: --
2991: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
2992: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
2993: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
2994: END IF;
2995: --
2988: IF l_debug_on THEN
2989: WSH_DEBUG_SV.push(l_module_name);
2990: --
2991: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
2992: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
2993: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
2994: END IF;
2995: --
2996: IF (p_trip_id IS NULL) AND (p_pickup_stop_id IS NULL) AND
2989: WSH_DEBUG_SV.push(l_module_name);
2990: --
2991: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
2992: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
2993: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
2994: END IF;
2995: --
2996: IF (p_trip_id IS NULL) AND (p_pickup_stop_id IS NULL) AND
2997: (p_dropoff_stop_id IS NULL) THEN
3116: -- Call wms to check if unassignment is valid
3117: l_dlvy_trip_tbl(1).delivery_id := p_del_rows(i);
3118: l_dlvy_trip_tbl(1).trip_id := p_trip_id;
3119: IF l_debug_on THEN
3120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
3121: WSH_DEBUG_SV.log(l_module_name,'trip_id',p_trip_id);
3122: WSH_DEBUG_SV.log(l_module_name,'del_id',p_del_rows(i));
3123: END IF;
3124: WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip(
3117: l_dlvy_trip_tbl(1).delivery_id := p_del_rows(i);
3118: l_dlvy_trip_tbl(1).trip_id := p_trip_id;
3119: IF l_debug_on THEN
3120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
3121: WSH_DEBUG_SV.log(l_module_name,'trip_id',p_trip_id);
3122: WSH_DEBUG_SV.log(l_module_name,'del_id',p_del_rows(i));
3123: END IF;
3124: WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip(
3125: p_api_version => 1.0,
3118: l_dlvy_trip_tbl(1).trip_id := p_trip_id;
3119: IF l_debug_on THEN
3120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
3121: WSH_DEBUG_SV.log(l_module_name,'trip_id',p_trip_id);
3122: WSH_DEBUG_SV.log(l_module_name,'del_id',p_del_rows(i));
3123: END IF;
3124: WMS_SHIPPING_INTERFACE_GRP.Process_Delivery_Trip(
3125: p_api_version => 1.0,
3126: p_init_msg_list => wms_shipping_interface_grp.g_false,
3148: -- J: W/V Changes
3149: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3150:
3151: IF l_debug_on THEN
3152: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Del_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
3153: END IF;
3154: WSH_WV_UTILS.Del_WV_Post_Process(
3155: p_delivery_id => p_del_rows(i),
3156: p_diff_gross_wt => -1 * l_gross_wt,
3175: --
3176: -- Debug Statements
3177: --
3178: IF l_debug_on THEN
3179: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_PVT.DELETE_DELIVERY_LEG',WSH_DEBUG_SV.C_PROC_LEVEL);
3180: END IF;
3181: --
3182: wsh_delivery_legs_pvt.delete_delivery_leg(NULL,
3183: l_del_leg_id, l_return_status);
3215: OPEN c_lock_delivery_details (p_del_rows(i));
3216: FETCH c_lock_delivery_details BULK COLLECT INTO l_del_det_tab;
3217: IF l_del_det_tab.COUNT > 0 THEN
3218: IF l_debug_on THEN
3219: WSH_DEBUG_SV.log(l_module_name, 'Updating Deliveries and Details With Loading Sequence as NULL');
3220: END IF;
3221:
3222: UPDATE wsh_new_deliveries
3223: SET loading_sequence = NULL,
3244: IF c_lock_delivery_details%ISOPEN then
3245: CLOSE c_lock_delivery_details;
3246: END IF;
3247: IF l_debug_on THEN
3248: WSH_DEBUG_SV.log(l_module_name, 'Unable to lock Deliveries/Details for delivery '||p_del_rows(i));
3249: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
3250: END IF;
3251: RAISE cannot_unassign;
3252: END;
3245: CLOSE c_lock_delivery_details;
3246: END IF;
3247: IF l_debug_on THEN
3248: WSH_DEBUG_SV.log(l_module_name, 'Unable to lock Deliveries/Details for delivery '||p_del_rows(i));
3249: WSH_DEBUG_SV.log(l_module_name, 'l_return_status', l_return_status);
3250: END IF;
3251: RAISE cannot_unassign;
3252: END;
3253: END IF;
3294: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
3295: THEN
3296: --{
3297: IF l_debug_on THEN
3298: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
3299: END IF;
3300:
3301: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
3302: (
3306: );
3307: --
3308: --
3309: IF l_debug_on THEN
3310: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
3311: END IF;
3312: --
3313: --
3314: WSH_UTIL_CORE.API_POST_CALL
3335: --
3336: -- Debug Statements
3337: --
3338: IF l_debug_on THEN
3339: WSH_DEBUG_SV.pop(l_module_name);
3340: END IF;
3341: --
3342: EXCEPTION
3343: WHEN e_return_excp THEN
3348: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
3349: THEN
3350: --{
3351: IF l_debug_on THEN
3352: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
3353: END IF;
3354:
3355: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
3356: (
3360: );
3361: --
3362: --
3363: IF l_debug_on THEN
3364: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
3365: END IF;
3366: --
3367: --
3368: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR) and x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3375: -- K LPN CONV. rv
3376: --
3377: --
3378: IF l_debug_on THEN
3379: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN_EXCP');
3380: END IF;
3381: --
3382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3383:
3382: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3383:
3384: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3385: IF l_debug_on THEN
3386: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3387: END IF;
3388: --
3389: -- K LPN CONV. rv
3390: --
3391: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
3392: THEN
3393: --{
3394: IF l_debug_on THEN
3395: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
3396: END IF;
3397:
3398: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
3399: (
3403: );
3404: --
3405: --
3406: IF l_debug_on THEN
3407: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
3408: END IF;
3409: --
3410: --
3411: --}
3417: IF c_is_first_leg%isopen THEN
3418: close c_is_first_leg;
3419: END IF;
3420: IF l_debug_on THEN
3421: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3422: END IF;
3423: --
3424:
3425: WHEN lock_error THEN
3435: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
3436: THEN
3437: --{
3438: IF l_debug_on THEN
3439: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
3440: END IF;
3441:
3442: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
3443: (
3447: );
3448: --
3449: --
3450: IF l_debug_on THEN
3451: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
3452: END IF;
3453: --
3454: --
3455: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3464: --
3465: -- Debug Statements
3466: --
3467: IF l_debug_on THEN
3468: WSH_DEBUG_SV.logmsg(l_module_name,'LOCK_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3469: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:LOCK_ERROR');
3470: END IF;
3471: --
3472: WHEN cannot_unassign THEN
3465: -- Debug Statements
3466: --
3467: IF l_debug_on THEN
3468: WSH_DEBUG_SV.logmsg(l_module_name,'LOCK_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3469: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:LOCK_ERROR');
3470: END IF;
3471: --
3472: WHEN cannot_unassign THEN
3473: IF c_is_first_leg%isopen THEN
3482: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
3483: THEN
3484: --{
3485: IF l_debug_on THEN
3486: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
3487: END IF;
3488:
3489: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
3490: (
3494: );
3495: --
3496: --
3497: IF l_debug_on THEN
3498: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
3499: END IF;
3500: --
3501: --
3502: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3511: --
3512: -- Debug Statements
3513: --
3514: IF l_debug_on THEN
3515: WSH_DEBUG_SV.logmsg(l_module_name,'CANNOT_UNASSIGN exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3516: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CANNOT_UNASSIGN');
3517: END IF;
3518: --
3519: WHEN others THEN
3512: -- Debug Statements
3513: --
3514: IF l_debug_on THEN
3515: WSH_DEBUG_SV.logmsg(l_module_name,'CANNOT_UNASSIGN exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3516: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CANNOT_UNASSIGN');
3517: END IF;
3518: --
3519: WHEN others THEN
3520: iF c_is_first_leg%isopen THEN
3522: END IF;
3523: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_ACTIONS.UNASSIGN_DELIVERIES');
3524: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3525: IF l_debug_on THEN
3526: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3527: END IF;
3528: --
3529: -- K LPN CONV. rv
3530: --
3531: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
3532: THEN
3533: --{
3534: IF l_debug_on THEN
3535: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
3536: END IF;
3537:
3538: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
3539: (
3543: );
3544: --
3545: --
3546: IF l_debug_on THEN
3547: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
3548: END IF;
3549: --
3550: --
3551: --}
3557: --
3558: -- Debug Statements
3559: --
3560: IF l_debug_on THEN
3561: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3562: END IF;
3563: --
3564: END Unassign_Deliveries;
3565:
3715: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3716: --
3717: IF l_debug_on IS NULL
3718: THEN
3719: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3720: END IF;
3721:
3722: IF l_debug_on THEN
3723: WSH_DEBUG_SV.push(l_module_name);
3719: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3720: END IF;
3721:
3722: IF l_debug_on THEN
3723: WSH_DEBUG_SV.push(l_module_name);
3724: --
3725: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',P_ENTITY_TYPE);
3726: WSH_DEBUG_SV.log(l_module_name,'P_CONSOLIDATION_CHANGE',P_CONSOLIDATION_CHANGE);
3727: END IF;
3721:
3722: IF l_debug_on THEN
3723: WSH_DEBUG_SV.push(l_module_name);
3724: --
3725: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',P_ENTITY_TYPE);
3726: WSH_DEBUG_SV.log(l_module_name,'P_CONSOLIDATION_CHANGE',P_CONSOLIDATION_CHANGE);
3727: END IF;
3728: --
3729: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3722: IF l_debug_on THEN
3723: WSH_DEBUG_SV.push(l_module_name);
3724: --
3725: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_TYPE',P_ENTITY_TYPE);
3726: WSH_DEBUG_SV.log(l_module_name,'P_CONSOLIDATION_CHANGE',P_CONSOLIDATION_CHANGE);
3727: END IF;
3728: --
3729: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3730:
3822: )
3823: THEN
3824:
3825: IF l_debug_on THEN
3826: WSH_DEBUG_SV.logmsg(l_module_name,'legs_priced_cur is being opened for dlegs');
3827: END IF;
3828:
3829: FOR legs_priced_rec IN legs_priced_cur( l_leg.trip_id ) LOOP
3830: l_at_least_one_leg_priced := TRUE;
3854: )
3855: THEN
3856:
3857: IF l_debug_on THEN
3858: WSH_DEBUG_SV.logmsg(l_module_name,'legs_priced_cur is being opened for stops');
3859: END IF;
3860:
3861: FOR legs_priced_rec IN legs_priced_cur( l_leg.trip_id ) LOOP
3862: l_at_least_one_leg_priced := TRUE;
3885: IF ( l_mode_of_transport = C_TRUCK OR
3886: l_lane_id is not null) THEN
3887:
3888: IF l_debug_on THEN
3889: WSH_DEBUG_SV.logmsg(l_module_name,'legs_priced_cur is being opened for trips');
3890: END IF;
3891:
3892: FOR legs_priced_rec IN legs_priced_cur( p_entity_ids(i) ) LOOP
3893: l_at_least_one_leg_priced := TRUE;
3950: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3951: FND_MESSAGE.Set_Name('WSH', 'WSH_DEL_LEG_LOCKED');
3952: WSH_UTIL_CORE.Add_Message(x_return_status);
3953: IF l_debug_on THEN
3954: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY_LEG_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3955: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIVERY_LEG_LOCKED');
3956: END IF;
3957: RETURN;
3958: END;
3951: FND_MESSAGE.Set_Name('WSH', 'WSH_DEL_LEG_LOCKED');
3952: WSH_UTIL_CORE.Add_Message(x_return_status);
3953: IF l_debug_on THEN
3954: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY_LEG_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3955: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIVERY_LEG_LOCKED');
3956: END IF;
3957: RETURN;
3958: END;
3959: UPDATE wsh_delivery_legs
3971: --
3972: -- Debug Statements
3973: --
3974: IF l_debug_on THEN
3975: WSH_DEBUG_SV.pop(l_module_name);
3976: END IF;
3977: --
3978: EXCEPTION
3979:
3986: --
3987: -- Debug Statements
3988: --
3989: IF l_debug_on THEN
3990: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_PARAMETER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3991: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_PARAMETER');
3992: END IF;
3993: --
3994: WHEN delivery_leg_locked THEN
3987: -- Debug Statements
3988: --
3989: IF l_debug_on THEN
3990: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_PARAMETER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3991: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_PARAMETER');
3992: END IF;
3993: --
3994: WHEN delivery_leg_locked THEN
3995: CLOSE c_lock_delivery_leg;
4000: --
4001: -- Debug Statements
4002: --
4003: IF l_debug_on THEN
4004: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY_LEG_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4005: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIVERY_LEG_LOCKED');
4006: END IF;
4007: --
4008: WHEN others THEN
4001: -- Debug Statements
4002: --
4003: IF l_debug_on THEN
4004: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY_LEG_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4005: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIVERY_LEG_LOCKED');
4006: END IF;
4007: --
4008: WHEN others THEN
4009: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required');
4012: --
4013: -- Debug Statements
4014: --
4015: IF l_debug_on THEN
4016: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4017: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4018: END IF;
4019: --
4020: END Mark_Reprice_Required;
4013: -- Debug Statements
4014: --
4015: IF l_debug_on THEN
4016: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4017: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4018: END IF;
4019: --
4020: END Mark_Reprice_Required;
4021:
4055: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4056: --
4057: IF l_debug_on IS NULL
4058: THEN
4059: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4060: END IF;
4061: --
4062: IF l_debug_on THEN
4063: WSH_DEBUG_SV.push(l_module_name);
4059: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4060: END IF;
4061: --
4062: IF l_debug_on THEN
4063: WSH_DEBUG_SV.push(l_module_name);
4064: WSH_DEBUG_SV.log(l_module_name,'p_delivery_id',p_delivery_id);
4065: END IF;
4066:
4067:
4060: END IF;
4061: --
4062: IF l_debug_on THEN
4063: WSH_DEBUG_SV.push(l_module_name);
4064: WSH_DEBUG_SV.log(l_module_name,'p_delivery_id',p_delivery_id);
4065: END IF;
4066:
4067:
4068: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(
4137:
4138: END IF;
4139:
4140: IF l_debug_on THEN
4141: WSH_DEBUG_SV.pop(l_module_name);
4142: END IF;
4143: RETURN l_rate_delivery;
4144:
4145: EXCEPTION
4148: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4149: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_DELIVERY');
4150: WSH_UTIL_CORE.Add_Message(x_return_status);
4151: IF l_debug_on THEN
4152: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4153: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DELIVERY');
4154: END IF;
4155:
4156: WHEN invalid_global_params THEN
4149: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_DELIVERY');
4150: WSH_UTIL_CORE.Add_Message(x_return_status);
4151: IF l_debug_on THEN
4152: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4153: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DELIVERY');
4154: END IF;
4155:
4156: WHEN invalid_global_params THEN
4157: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4157: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4158: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_GLOBAL_PARAMETER');
4159: WSH_UTIL_CORE.Add_Message(x_return_status);
4160: IF l_debug_on THEN
4161: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_PARAMETER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4162: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_PARAMETER');
4163: END IF;
4164:
4165: WHEN others THEN
4158: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_GLOBAL_PARAMETER');
4159: WSH_UTIL_CORE.Add_Message(x_return_status);
4160: IF l_debug_on THEN
4161: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_PARAMETER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4162: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_PARAMETER');
4163: END IF;
4164:
4165: WHEN others THEN
4166: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.Check_Rate_Content_Dels');
4165: WHEN others THEN
4166: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.Check_Rate_Content_Dels');
4167: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4168: IF l_debug_on THEN
4169: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4170: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4171: END IF;
4172:
4173: END Check_Rate_Delivery;
4166: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.Check_Rate_Content_Dels');
4167: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4168: IF l_debug_on THEN
4169: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4170: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4171: END IF;
4172:
4173: END Check_Rate_Delivery;
4174:
4270: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4271: --
4272: IF l_debug_on IS NULL
4273: THEN
4274: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4275: END IF;
4276: --
4277: IF l_debug_on THEN
4278: WSH_DEBUG_SV.push(l_module_name);
4274: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4275: END IF;
4276: --
4277: IF l_debug_on THEN
4278: WSH_DEBUG_SV.push(l_module_name);
4279: WSH_DEBUG_SV.log(l_module_name,'p_trip_id',p_trip_id);
4280: END IF;
4281:
4282:
4275: END IF;
4276: --
4277: IF l_debug_on THEN
4278: WSH_DEBUG_SV.push(l_module_name);
4279: WSH_DEBUG_SV.log(l_module_name,'p_trip_id',p_trip_id);
4280: END IF;
4281:
4282:
4283: IF p_trip_id is NULL THEN
4302: FETCH C_TRIP_DEL_RATE INTO l_dummy_del;
4303: IF C_TRIP_DEL_RATE%FOUND THEN
4304: l_rate_trip_dels := 'Y';
4305: IF l_debug_on THEN
4306: WSH_DEBUG_SV.log(l_module_name,'l_rate_trip_dels 1',l_rate_trip_dels);
4307: END IF;
4308: END IF;
4309: CLOSE C_TRIP_DEL_RATE;
4310:
4317: IF C_TRIP_DEL_NORATE%FOUND THEN
4318: IF l_rate_trip_dels = 'Y' THEN
4319: l_rate_trip_dels := 'M';
4320: IF l_debug_on THEN
4321: WSH_DEBUG_SV.log(l_module_name,'l_rate_trip_dels 2',l_rate_trip_dels);
4322: END IF;
4323: ELSE
4324: l_rate_trip_dels := 'N';
4325: IF l_debug_on THEN
4322: END IF;
4323: ELSE
4324: l_rate_trip_dels := 'N';
4325: IF l_debug_on THEN
4326: WSH_DEBUG_SV.log(l_module_name,'l_rate_trip_dels 3',l_rate_trip_dels);
4327: END IF;
4328: END IF;
4329: END IF;
4330: CLOSE C_TRIP_DEL_NORATE;
4331:
4332: END IF;
4333:
4334: IF l_debug_on THEN
4335: WSH_DEBUG_SV.log(l_module_name,'l_rate_trip_dels',l_rate_trip_dels);
4336: WSH_DEBUG_SV.pop(l_module_name);
4337: END IF;
4338: RETURN l_rate_trip_dels;
4339:
4332: END IF;
4333:
4334: IF l_debug_on THEN
4335: WSH_DEBUG_SV.log(l_module_name,'l_rate_trip_dels',l_rate_trip_dels);
4336: WSH_DEBUG_SV.pop(l_module_name);
4337: END IF;
4338: RETURN l_rate_trip_dels;
4339:
4340: EXCEPTION
4343: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4344: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_TRIP');
4345: WSH_UTIL_CORE.Add_Message(x_return_status);
4346: IF l_debug_on THEN
4347: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4348: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DELIVERY');
4349: END IF;
4350:
4351: WHEN invalid_global_params THEN
4344: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_TRIP');
4345: WSH_UTIL_CORE.Add_Message(x_return_status);
4346: IF l_debug_on THEN
4347: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4348: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DELIVERY');
4349: END IF;
4350:
4351: WHEN invalid_global_params THEN
4352: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4352: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4353: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_GLOBAL_PARAMETER');
4354: WSH_UTIL_CORE.Add_Message(x_return_status);
4355: IF l_debug_on THEN
4356: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_PARAMETER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4357: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_PARAMETER');
4358: END IF;
4359:
4360: WHEN others THEN
4353: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_GLOBAL_PARAMETER');
4354: WSH_UTIL_CORE.Add_Message(x_return_status);
4355: IF l_debug_on THEN
4356: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_PARAMETER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4357: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_PARAMETER');
4358: END IF;
4359:
4360: WHEN others THEN
4361: IF c_trip_del_norate%isopen THEN
4366: END IF;
4367: wsh_util_core.default_handler('Check_Rate_Content_Dels');
4368: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4369: IF l_debug_on THEN
4370: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4371: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4372: END IF;
4373:
4374: END Check_Rate_Trip_Contents;
4367: wsh_util_core.default_handler('Check_Rate_Content_Dels');
4368: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4369: IF l_debug_on THEN
4370: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4371: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4372: END IF;
4373:
4374: END Check_Rate_Trip_Contents;
4375: