22: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
23: --
24: IF l_debug_on IS NULL
25: THEN
26: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
27: END IF;
28: --
29: -- Debug Statements
30: --
28: --
29: -- Debug Statements
30: --
31: IF l_debug_on THEN
32: WSH_DEBUG_SV.push(l_sub_module_name);
33: END IF;
34:
35: FOR i in 1..p_all_details.COUNT LOOP
36: --{
44: --}
45: END LOOP;
46:
47: IF l_debug_on THEN
48: WSH_DEBUG_SV.pop(l_sub_module_name);
49: END IF;
50:
51: EXCEPTION
52:
51: EXCEPTION
52:
53: WHEN FND_API.G_EXC_ERROR THEN
54: IF l_debug_on THEN
55: WSH_DEBUG_SV.log(l_sub_module_name,' FND_API.G_EXC_ERROR',sqlerrm);
56: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
57: END IF;
58: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
59: IF l_debug_on THEN
52:
53: WHEN FND_API.G_EXC_ERROR THEN
54: IF l_debug_on THEN
55: WSH_DEBUG_SV.log(l_sub_module_name,' FND_API.G_EXC_ERROR',sqlerrm);
56: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
57: END IF;
58: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
59: IF l_debug_on THEN
60: WSH_DEBUG_SV.log(l_sub_module_name,' FND_API.G_EXC_UNEXPECTED_ERROR',sqlerrm);
56: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
57: END IF;
58: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
59: IF l_debug_on THEN
60: WSH_DEBUG_SV.log(l_sub_module_name,' FND_API.G_EXC_UNEXPECTED_ERROR',sqlerrm);
61: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
62: END IF;
63: WHEN OTHERS THEN
64: wsh_util_core.default_handler('WSH_OTM_OUTBOUND.GET_DEL_DETAILS',l_sub_module_name);
57: END IF;
58: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
59: IF l_debug_on THEN
60: WSH_DEBUG_SV.log(l_sub_module_name,' FND_API.G_EXC_UNEXPECTED_ERROR',sqlerrm);
61: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
62: END IF;
63: WHEN OTHERS THEN
64: wsh_util_core.default_handler('WSH_OTM_OUTBOUND.GET_DEL_DETAILS',l_sub_module_name);
65: IF l_debug_on THEN
62: END IF;
63: WHEN OTHERS THEN
64: wsh_util_core.default_handler('WSH_OTM_OUTBOUND.GET_DEL_DETAILS',l_sub_module_name);
65: IF l_debug_on THEN
66: WSH_DEBUG_SV.log(l_sub_module_name,' OTHERS',sqlerrm);
67: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:OTHERS');
68: END IF;
69: END;
70:
63: WHEN OTHERS THEN
64: wsh_util_core.default_handler('WSH_OTM_OUTBOUND.GET_DEL_DETAILS',l_sub_module_name);
65: IF l_debug_on THEN
66: WSH_DEBUG_SV.log(l_sub_module_name,' OTHERS',sqlerrm);
67: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:OTHERS');
68: END IF;
69: END;
70:
71:
193: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
194: --
195: IF l_debug_on IS NULL
196: THEN
197: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
198: END IF;
199: --
200: -- Debug Statements
201: --
199: --
200: -- Debug Statements
201: --
202: IF l_debug_on THEN
203: WSH_DEBUG_SV.push(l_sub_module_name);
204: END IF;
205:
206: -- Setting the apps context
207: --Bug8231371 calling WSH_OTM_APPS_INITIALIZE to set apps context
209: p_resp_id =>p_resp_id,
210: p_resp_appl_id => p_resp_appl_id);
211:
212: IF l_debug_on THEN
213: WSH_DEBUG_SV.log(l_sub_module_name,'Building the dymanic sql to fetch Trips');
214: END IF;
215:
216: --dbms_output.put_line('Building the sql');
217: -- Bug 6732184: Added null values for dock_dook_xid, start_time and end_time of WSH_OTM_STOP_OBJ
328: l_trip_tab(l_trip_tab.COUNT).shipment_stops := WSH_OTM_STOP_TAB();
329:
330: IF l_debug_on
331: THEN
332: WSH_DEBUG_SV.log(l_sub_module_name,'Fetch Trip Id', l_trip_obj.trip_id);
333: END IF;
334:
335:
336: -- Get the OrganizationId of Trip
336: -- Get the OrganizationId of Trip
337: l_organization_id := WSH_UTIL_CORE.GET_TRIP_ORGANIZATION_ID(l_trip_obj.trip_id);
338: IF l_debug_on
339: THEN
340: WSH_DEBUG_SV.log(l_sub_module_name,' Organization Id after calling GET_TRIP_ORGANIZATION_ID ' ,
341: l_organization_id);
342: END IF;
343: --If Vehicle_organization_id is null then take the trip Organization_id
344: IF l_trip_tab(l_trip_tab.COUNT).EQUIPMENT_GROUP_XID IS NULL THEN
351: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS then
352: --{
353: -- Bug 6497991: Deleting the trip record before raising exception
354: IF l_debug_on THEN
355: WSH_DEBUG_SV.log(l_sub_module_name,'failed in get_default_uoms' ,x_return_status);
356: END IF;
357: l_del_trip_rec := l_trip_tab(l_trip_tab.COUNT).trip_id;
358: x_error_trip_id_tab.extend;
359: x_error_trip_id_tab(x_error_trip_id_tab.COUNT) := l_trip_tab(l_trip_tab.COUNT).trip_id;
369: IF((l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
370: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
371: --{
372: IF l_debug_on THEN
373: WSH_DEBUG_SV.log(l_sub_module_name,'Get_EBS_To_OTM_UOM Weight Failed');
374: END IF;
375: -- Bug 6497991: Deleting the trip record before raising exception
376: l_del_trip_rec := l_trip_tab(l_trip_tab.COUNT).trip_id;
377: x_error_trip_id_tab.extend;
388:
389: IF((l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
390: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
391: IF l_debug_on THEN
392: WSH_DEBUG_SV.log(l_sub_module_name,'Get_EBS_To_OTM_UOM Weight Failed');
393: END IF;
394: -- Bug 6497991: Deleting the trip record before raising exception
395: --l_trip_tab.delete(l_trip_tab.COUNT);
396: l_del_trip_rec := l_trip_tab(l_trip_tab.COUNT).trip_id;
443: EXCEPTION
444: WHEN GET_DEAFULT_UOMS_FALIED THEN
445: l_num_error := l_num_error + 1;
446: IF l_debug_on THEN
447: WSH_DEBUG_SV.log(l_sub_module_name,' GET_DEAFULT_UOMS_FALIED',sqlerrm);
448: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:GET_DEAFULT_UOMS_FALIED');
449: END IF;
450:
451: WHEN FND_API.G_EXC_ERROR THEN
444: WHEN GET_DEAFULT_UOMS_FALIED THEN
445: l_num_error := l_num_error + 1;
446: IF l_debug_on THEN
447: WSH_DEBUG_SV.log(l_sub_module_name,' GET_DEAFULT_UOMS_FALIED',sqlerrm);
448: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:GET_DEAFULT_UOMS_FALIED');
449: END IF;
450:
451: WHEN FND_API.G_EXC_ERROR THEN
452: l_num_error := l_num_error + 1;
450:
451: WHEN FND_API.G_EXC_ERROR THEN
452: l_num_error := l_num_error + 1;
453: IF l_debug_on THEN
454: WSH_DEBUG_SV.log(l_sub_module_name,' FND_API.G_EXC_ERROR',sqlerrm);
455: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
456: END IF;
457:
458: END;
451: WHEN FND_API.G_EXC_ERROR THEN
452: l_num_error := l_num_error + 1;
453: IF l_debug_on THEN
454: WSH_DEBUG_SV.log(l_sub_module_name,' FND_API.G_EXC_ERROR',sqlerrm);
455: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
456: END IF;
457:
458: END;
459: --}
459: --}
460: END LOOP;
461:
462: IF l_debug_on THEN
463: WSH_DEBUG_SV.log(l_sub_module_name,'Number of Trips Fetched' , l_trip_tab.COUNT);
464: FOR i in 1..l_trip_tab.COUNT LOOP
465: WSH_DEBUG_SV.log(l_sub_module_name,'Fetched Trips' , l_trip_tab(i).trip_id);
466: END LOOP;
467: END IF;
461:
462: IF l_debug_on THEN
463: WSH_DEBUG_SV.log(l_sub_module_name,'Number of Trips Fetched' , l_trip_tab.COUNT);
464: FOR i in 1..l_trip_tab.COUNT LOOP
465: WSH_DEBUG_SV.log(l_sub_module_name,'Fetched Trips' , l_trip_tab(i).trip_id);
466: END LOOP;
467: END IF;
468:
469: IF l_trip_tab.COUNT >0 THEN
474: IF l_trip_tab.EXISTS(i) THEN
475: BEGIN
476: --{
477: IF l_debug_on THEN
478: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Trip with Id ' , l_trip_tab(i).trip_id);
479: END IF;
480:
481: l_dlv_ids := WSH_OTM_ID_TAB();
482: l_stops_tab := l_trip_tab(i).shipment_stops;
519: IF l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
520: --{
521: -- Bug 6497991: Deleting the trip record before raising exception
522: IF l_debug_on THEN
523: WSH_DEBUG_SV.log(l_sub_module_name,'Get_Trip_Manual_Freight_Cost Failed');
524: END IF;
525: x_error_trip_id_tab.extend;
526: x_error_trip_id_tab(x_error_trip_id_tab.COUNT) := l_trip_tab(i).trip_id;
527: l_trip_tab.delete(i);
539: FOR i1 in 1..l_stops_tab.COUNT LOOP
540: --{
541:
542: IF l_debug_on THEN
543: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Stop with Id ' , l_stops_tab(i1).STOP_LOCATION_XID);
544: END IF;
545:
546: l_stop_details := WSH_OTM_STOP_DET_TAB();
547:
552: --{
553: fetch get_deliveries_picked into l_delivery_id;
554: EXIT WHEN (get_deliveries_picked%NOTFOUND);
555: IF l_debug_on THEN
556: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery being Picked up ' , l_delivery_id);
557: END IF;
558: l_dlv_ids.extend;
559: l_dlv_ids(l_dlv_ids.COUNT) := l_delivery_id;
560: -- Pick Up Stop
569: --{
570: fetch get_deliveries_dropped into l_delivery_id;
571: EXIT WHEN (get_deliveries_dropped%NOTFOUND);
572: IF l_debug_on THEN
573: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery being Dropped off ' , l_delivery_id);
574: END IF;
575:
576: -- Drop Off Stop
577: l_drop_off_flag := 'Y';
604:
605: CLOSE get_deliveries_picked;
606: CLOSE get_deliveries_dropped;
607: IF l_debug_on THEN
608: WSH_DEBUG_SV.log(l_sub_module_name,'Assigning the stop Details');
609: END IF;
610: l_stops_tab(i1).stop_details := l_stop_details;
611:
612: l_stops_tab(i1).STOP_LOCATION_XID := WSH_OTM_REF_DATA_GEN_PKG.GET_STOP_LOCATION_XID(l_stops_tab(i1).STOP_LOCATION_XID);
616:
617:
618:
619: IF l_debug_on THEN
620: WSH_DEBUG_SV.log(l_sub_module_name,'List of delivery Ids passed to GET_DELIVERY_OBJECTS');
621: END IF;
622: FOR i in 1..l_dlv_ids.COUNT LOOP
623: --{
624: IF l_debug_on THEN
621: END IF;
622: FOR i in 1..l_dlv_ids.COUNT LOOP
623: --{
624: IF l_debug_on THEN
625: WSH_DEBUG_SV.log(l_sub_module_name,'dlv_ids' ,l_dlv_ids(i));
626: END IF;
627: --}
628: END LOOP;
629:
635:
636: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS then
637: --{
638: IF l_debug_on THEN
639: WSH_DEBUG_SV.log(l_sub_module_name,'failed in Get_Delivery_objects' ,x_return_status);
640: END IF;
641: x_error_trip_id_tab.extend;
642: x_error_trip_id_tab(x_error_trip_id_tab.COUNT) := l_trip_tab(i).trip_id;
643: l_trip_tab.delete(i);
694: EXCEPTION
695: WHEN GET_FREIGHT_COST_ERROR THEN
696: l_num_error := l_num_error + 1;
697: IF l_debug_on THEN
698: WSH_DEBUG_SV.log(l_sub_module_name,' GET_FREIGHT_COST_ERROR',sqlerrm);
699: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:GET_FREIGHT_COST_ERROR');
700: END IF;
701:
702: WHEN GET_DELIVERY_OBJECTS_FALIED THEN
695: WHEN GET_FREIGHT_COST_ERROR THEN
696: l_num_error := l_num_error + 1;
697: IF l_debug_on THEN
698: WSH_DEBUG_SV.log(l_sub_module_name,' GET_FREIGHT_COST_ERROR',sqlerrm);
699: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:GET_FREIGHT_COST_ERROR');
700: END IF;
701:
702: WHEN GET_DELIVERY_OBJECTS_FALIED THEN
703: l_num_error := l_num_error + 1;
701:
702: WHEN GET_DELIVERY_OBJECTS_FALIED THEN
703: l_num_error := l_num_error + 1;
704: IF l_debug_on THEN
705: WSH_DEBUG_SV.log(l_sub_module_name,' GET_DELIVERY_OBJECTS_FALIED',sqlerrm);
706: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:GET_DELIVERY_OBJECTS_FALIED');
707: END IF;
708:
709: END;
702: WHEN GET_DELIVERY_OBJECTS_FALIED THEN
703: l_num_error := l_num_error + 1;
704: IF l_debug_on THEN
705: WSH_DEBUG_SV.log(l_sub_module_name,' GET_DELIVERY_OBJECTS_FALIED',sqlerrm);
706: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:GET_DELIVERY_OBJECTS_FALIED');
707: END IF;
708:
709: END;
710: END IF;
747: --
748: -- Bug 6497991(begin): for error trips, update tms_interface_flag back to 'ASR'
749: --
750: IF l_debug_on THEN
751: WSH_DEBUG_SV.log(l_sub_module_name,'ERROR TRIP ids Count',x_error_trip_id_tab.count);
752: END IF;
753: IF ( x_error_trip_id_tab.count > 0 ) THEN
754: --{
755: i := x_error_trip_id_tab.first;
760: CLOSE get_trip_stops;
761: IF l_upd_trip_stops.COUNT > 0 THEN
762: --{
763: IF l_debug_on THEN
764: WSH_DEBUG_SV.log(l_sub_module_name,'Calling WSH_TRIP_STOPS_PVT.UPDATE_TMS_INTERFACE_FLAG Total stops ids',l_upd_trip_stops.COUNT);
765: END IF;
766: --
767: WSH_TRIP_STOPS_PVT.UPDATE_TMS_INTERFACE_FLAG
768: (P_STOP_ID_TAB=>l_upd_trip_stops,
769: P_TMS_INTERFACE_FLAG_TAB =>l_upd_tms_interface_flags,
770: X_RETURN_STATUS =>l_return_status);
771: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS then
772: IF l_debug_on THEN
773: WSH_DEBUG_SV.log(l_sub_module_name,'failed in UPDATE_TMS_INTERFACE_FLAG');
774: END IF;
775: raise FND_API.G_EXC_ERROR;
776: END IF;
777: --}
785: --
786: -- Debug Statements
787: --
788: IF l_debug_on THEN
789: WSH_DEBUG_SV.pop(l_sub_module_name);
790: END IF;
791: --
792: EXCEPTION
793: -- Bug 6497991: Defined exceptions to be handled inside the LOOP
800: IF get_deliveries_dropped%ISOPEN THEN
801: CLOSE get_deliveries_dropped;
802: END IF;
803: IF l_debug_on THEN
804: WSH_DEBUG_SV.log(l_sub_module_name,' OTHERS',sqlerrm);
805: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:OTHERS');
806: END IF;
807: END GET_TRIP_OBJECTS;
808:
801: CLOSE get_deliveries_dropped;
802: END IF;
803: IF l_debug_on THEN
804: WSH_DEBUG_SV.log(l_sub_module_name,' OTHERS',sqlerrm);
805: WSH_DEBUG_SV.pop(l_sub_module_name,'EXCEPTION:OTHERS');
806: END IF;
807: END GET_TRIP_OBJECTS;
808:
809:
976: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
977: --
978: IF l_debug_on IS NULL
979: THEN
980: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
981: END IF;
982: --
983: -- Debug Statements
984: --
982: --
983: -- Debug Statements
984: --
985: IF l_debug_on THEN
986: WSH_DEBUG_SV.push(l_sub_module_name);
987: END IF;
988:
989: IF l_debug_on THEN
990: FOR i in 1..p_dlv_id_tab.COUNT LOOP
987: END IF;
988:
989: IF l_debug_on THEN
990: FOR i in 1..p_dlv_id_tab.COUNT LOOP
991: WSH_DEBUG_SV.log(l_sub_module_name,'Dlv Id : ' , p_dlv_id_tab(i));
992: END LOOP;
993: WSH_DEBUG_SV.log(l_sub_module_name,'p_user_id' , p_user_id);
994: WSH_DEBUG_SV.log(l_sub_module_name,'p_resp_id' , p_resp_id);
995: WSH_DEBUG_SV.log(l_sub_module_name,'p_resp_appl_id' , p_resp_appl_id);
989: IF l_debug_on THEN
990: FOR i in 1..p_dlv_id_tab.COUNT LOOP
991: WSH_DEBUG_SV.log(l_sub_module_name,'Dlv Id : ' , p_dlv_id_tab(i));
992: END LOOP;
993: WSH_DEBUG_SV.log(l_sub_module_name,'p_user_id' , p_user_id);
994: WSH_DEBUG_SV.log(l_sub_module_name,'p_resp_id' , p_resp_id);
995: WSH_DEBUG_SV.log(l_sub_module_name,'p_resp_appl_id' , p_resp_appl_id);
996: WSH_DEBUG_SV.log(l_sub_module_name,'p_caller' , p_caller);
997: END IF ;
990: FOR i in 1..p_dlv_id_tab.COUNT LOOP
991: WSH_DEBUG_SV.log(l_sub_module_name,'Dlv Id : ' , p_dlv_id_tab(i));
992: END LOOP;
993: WSH_DEBUG_SV.log(l_sub_module_name,'p_user_id' , p_user_id);
994: WSH_DEBUG_SV.log(l_sub_module_name,'p_resp_id' , p_resp_id);
995: WSH_DEBUG_SV.log(l_sub_module_name,'p_resp_appl_id' , p_resp_appl_id);
996: WSH_DEBUG_SV.log(l_sub_module_name,'p_caller' , p_caller);
997: END IF ;
998: -- Bug 7207835 p_caller value not defaulting to 'D' when passed as NULL.
991: WSH_DEBUG_SV.log(l_sub_module_name,'Dlv Id : ' , p_dlv_id_tab(i));
992: END LOOP;
993: WSH_DEBUG_SV.log(l_sub_module_name,'p_user_id' , p_user_id);
994: WSH_DEBUG_SV.log(l_sub_module_name,'p_resp_id' , p_resp_id);
995: WSH_DEBUG_SV.log(l_sub_module_name,'p_resp_appl_id' , p_resp_appl_id);
996: WSH_DEBUG_SV.log(l_sub_module_name,'p_caller' , p_caller);
997: END IF ;
998: -- Bug 7207835 p_caller value not defaulting to 'D' when passed as NULL.
999: l_p_caller := NVL(p_caller,'D');
992: END LOOP;
993: WSH_DEBUG_SV.log(l_sub_module_name,'p_user_id' , p_user_id);
994: WSH_DEBUG_SV.log(l_sub_module_name,'p_resp_id' , p_resp_id);
995: WSH_DEBUG_SV.log(l_sub_module_name,'p_resp_appl_id' , p_resp_appl_id);
996: WSH_DEBUG_SV.log(l_sub_module_name,'p_caller' , p_caller);
997: END IF ;
998: -- Bug 7207835 p_caller value not defaulting to 'D' when passed as NULL.
999: l_p_caller := NVL(p_caller,'D');
1000: -- End Bug 7207835
1011: fnd_profile.get('WSH_OTM_PASSWORD',x_otm_pwd);
1012: x_server_tz_code := FND_TIMEZONES.get_server_timezone_code();
1013:
1014: IF l_debug_on THEN
1015: WSH_DEBUG_SV.log(l_sub_module_name,'Building the dymanic sql to fetch Deliveries');
1016: END IF;
1017:
1018: l_deliveries_sql :=
1019: 'select '
1119: --}
1120: END LOOP;
1121:
1122: IF l_debug_on THEN
1123: WSH_DEBUG_SV.log(l_sub_module_name,'count of deliveries ' , l_dlv_tab.COUNT);
1124: END IF;
1125:
1126:
1127: IF l_dlv_tab.COUNT >0 THEN
1200: IF((l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
1201: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
1202: IF l_debug_on
1203: THEN
1204: WSH_DEBUG_SV.log(l_sub_module_name,'Get_EBS_To_OTM_UOM Weight Failed');
1205: END IF;
1206: raise FND_API.G_EXC_ERROR;
1207: END IF;
1208:
1213: IF((l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
1214: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
1215: IF l_debug_on
1216: THEN
1217: WSH_DEBUG_SV.log(l_sub_module_name,'Get_EBS_To_OTM_UOM Weight Failed');
1218: END IF;
1219: raise FND_API.G_EXC_ERROR;
1220: END IF;
1221:
1258: IF((l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
1259: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
1260: IF l_debug_on
1261: THEN
1262: WSH_DEBUG_SV.log(l_sub_module_name,'Get_EBS_To_OTM_UOM Weight Failed');
1263: END IF;
1264: raise FND_API.G_EXC_ERROR;
1265: END IF;
1266:
1271: IF((l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
1272: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
1273: IF l_debug_on
1274: THEN
1275: WSH_DEBUG_SV.log(l_sub_module_name,'Get_EBS_To_OTM_UOM Weight Failed');
1276: END IF;
1277: raise FND_API.G_EXC_ERROR;
1278: END IF;
1279:
1318: l_organization_id);
1319: fetch get_container_details into l_cont_type, l_length, l_height, l_width, l_uom;
1320: close get_container_details;
1321: IF l_debug_on THEN
1322: WSH_DEBUG_SV.log(l_sub_module_name,'Calling Get_EBS_To_OTM_UOM Weight for Loose Item : '||substr(l_inventory_item,instr(l_inventory_item,'-') + 1));
1323: END IF;
1324: WSH_OTM_RIQ_XML.Get_EBS_To_OTM_UOM(
1325: p_uom=>l_uom,
1326: x_uom=>l_otm_dimen_uom ,
1328: IF((l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
1329: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
1330: IF l_debug_on
1331: THEN
1332: WSH_DEBUG_SV.log(l_sub_module_name,'Get_EBS_To_OTM_UOM Weight Failed for Loose Item');
1333: END IF;
1334: raise FND_API.G_EXC_ERROR;
1335: END IF;
1336:
1387: IF((l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
1388: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
1389: IF l_debug_on
1390: THEN
1391: WSH_DEBUG_SV.log(l_sub_module_name,'Get_EBS_To_OTM_UOM Weight Failed');
1392: END IF;
1393: raise FND_API.G_EXC_ERROR;
1394: END IF;
1395:
1445: WHEN GET_DEAFULT_UOMS_FAILED THEN
1446: -- 6830854
1447: IF l_debug_on
1448: THEN
1449: WSH_DEBUG_SV.log(l_sub_module_name,'GET_DEAFULT_UOMS_FALIED',sqlerrm);
1450: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery id: '||l_delivery_id);
1451: END IF;
1452:
1453: WHEN CONVERT_INT_LOC_FALIED THEN
1446: -- 6830854
1447: IF l_debug_on
1448: THEN
1449: WSH_DEBUG_SV.log(l_sub_module_name,'GET_DEAFULT_UOMS_FALIED',sqlerrm);
1450: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery id: '||l_delivery_id);
1451: END IF;
1452:
1453: WHEN CONVERT_INT_LOC_FALIED THEN
1454: -- 6830854
1453: WHEN CONVERT_INT_LOC_FALIED THEN
1454: -- 6830854
1455: IF l_debug_on
1456: THEN
1457: WSH_DEBUG_SV.log(l_sub_module_name,'CONVERT_INT_LOC_FALIED',sqlerrm);
1458: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery id: '||l_delivery_id);
1459: END IF;
1460:
1461: WHEN FND_API.G_EXC_ERROR THEN
1454: -- 6830854
1455: IF l_debug_on
1456: THEN
1457: WSH_DEBUG_SV.log(l_sub_module_name,'CONVERT_INT_LOC_FALIED',sqlerrm);
1458: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery id: '||l_delivery_id);
1459: END IF;
1460:
1461: WHEN FND_API.G_EXC_ERROR THEN
1462: -- 6830854
1461: WHEN FND_API.G_EXC_ERROR THEN
1462: -- 6830854
1463: IF l_debug_on
1464: THEN
1465: WSH_DEBUG_SV.log(l_sub_module_name,' FND_API.G_EXC_ERROR',sqlerrm);
1466: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery id: '||l_delivery_id);
1467: END IF;
1468:
1469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1462: -- 6830854
1463: IF l_debug_on
1464: THEN
1465: WSH_DEBUG_SV.log(l_sub_module_name,' FND_API.G_EXC_ERROR',sqlerrm);
1466: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery id: '||l_delivery_id);
1467: END IF;
1468:
1469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1470: -- 6830854
1469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1470: -- 6830854
1471: IF l_debug_on
1472: THEN
1473: WSH_DEBUG_SV.log(l_sub_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR',sqlerrm);
1474: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery id: '||l_delivery_id);
1475: END IF;
1476:
1477: WHEN OTHERS THEN
1470: -- 6830854
1471: IF l_debug_on
1472: THEN
1473: WSH_DEBUG_SV.log(l_sub_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR',sqlerrm);
1474: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery id: '||l_delivery_id);
1475: END IF;
1476:
1477: WHEN OTHERS THEN
1478: wsh_util_core.default_handler('WSH_OTM_OUTBOUND.GET_DELIVERY_OBJECTS',l_sub_module_name);
1479: -- 6922924 Note : Removed all ref: to x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1480: -- in this Exception and above Exceptions
1481: IF l_debug_on
1482: THEN
1483: WSH_DEBUG_SV.log(l_sub_module_name,'WHEN OTHERS inside Get Delivery Loop',sqlerrm);
1484: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery id: '||l_delivery_id);
1485: END IF;
1486: END;
1487:
1480: -- in this Exception and above Exceptions
1481: IF l_debug_on
1482: THEN
1483: WSH_DEBUG_SV.log(l_sub_module_name,'WHEN OTHERS inside Get Delivery Loop',sqlerrm);
1484: WSH_DEBUG_SV.log(l_sub_module_name,'Delivery id: '||l_delivery_id);
1485: END IF;
1486: END;
1487:
1488: -- 6922924
1516: IF l_found = FALSE THEN
1517: l_error_dlv_id_tab.extend;
1518: l_error_dlv_id_tab(l_error_dlv_id_tab.COUNT) := p_dlv_id_tab(i);
1519: IF l_debug_on THEN
1520: WSH_DEBUG_SV.log(l_sub_module_name,'Errored Delivery id: ' , p_dlv_id_tab(i) );
1521: WSH_DEBUG_SV.log(l_sub_module_name,'Count of i' , i);
1522: END IF;
1523: END IF;
1524: --}
1517: l_error_dlv_id_tab.extend;
1518: l_error_dlv_id_tab(l_error_dlv_id_tab.COUNT) := p_dlv_id_tab(i);
1519: IF l_debug_on THEN
1520: WSH_DEBUG_SV.log(l_sub_module_name,'Errored Delivery id: ' , p_dlv_id_tab(i) );
1521: WSH_DEBUG_SV.log(l_sub_module_name,'Count of i' , i);
1522: END IF;
1523: END IF;
1524: --}
1525: END LOOP;
1535: --6922924
1536: -- Update the tms_interface_flag to 'CR' and Print the List of Errored Delivery Ids
1537: IF ( x_error_dlv_id_tab.count > 0 ) THEN
1538: IF l_debug_on THEN
1539: WSH_DEBUG_SV.log(l_sub_module_name,'ERROR DELIVERY ids Count',x_error_dlv_id_tab.count);
1540: END IF;
1541: --{
1542: i := x_error_dlv_id_tab.first;
1543: WHILE (i is not NULL) LOOP
1547: CLOSE get_errored_dlvys;
1548: IF l_upd_err_dlvys.COUNT > 0 THEN
1549: --{
1550: IF l_debug_on THEN
1551: WSH_DEBUG_SV.log(l_sub_module_name,'Calling WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
1552: END IF;
1553: --
1554: WSH_NEW_DELIVERIES_PVT.Update_Tms_interface_flag
1555: ( p_delivery_id_tab => l_upd_err_dlvys,
1557: x_return_status => l_return_status );
1558: --
1559: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS then
1560: IF l_debug_on THEN
1561: WSH_DEBUG_SV.log(l_sub_module_name,'failed in WND_PVT.UPDATE_TMS_INTERFACE_FLAG');
1562: END IF;
1563: -- 6830854 raise FND_API.G_EXC_ERROR;
1564: -- removing the above as Error can occur in Validation again
1565: END IF;
1576: IF l_debug_on THEN
1577: --{
1578: FOR k in 1..x_dlv_tab.COUNT LOOP
1579: --{
1580: WSH_DEBUG_SV.log(l_sub_module_name,'dlv_id' , x_dlv_tab(k).delivery_id);
1581: FOR i in 1..x_dlv_tab(k).rl_details.COUNT LOOP
1582: WSH_DEBUG_SV.log(l_sub_module_name,'DD ' , x_dlv_tab(k).rl_details(i).delivery_detail_id);
1583: END LOOP;
1584: WSH_DEBUG_SV.log(l_sub_module_name,'Ship Units Count' , x_dlv_tab(k).lpn.COUNT);
1578: FOR k in 1..x_dlv_tab.COUNT LOOP
1579: --{
1580: WSH_DEBUG_SV.log(l_sub_module_name,'dlv_id' , x_dlv_tab(k).delivery_id);
1581: FOR i in 1..x_dlv_tab(k).rl_details.COUNT LOOP
1582: WSH_DEBUG_SV.log(l_sub_module_name,'DD ' , x_dlv_tab(k).rl_details(i).delivery_detail_id);
1583: END LOOP;
1584: WSH_DEBUG_SV.log(l_sub_module_name,'Ship Units Count' , x_dlv_tab(k).lpn.COUNT);
1585: FOR i in 1..x_dlv_tab(k).lpn.COUNT LOOP
1586: --{
1580: WSH_DEBUG_SV.log(l_sub_module_name,'dlv_id' , x_dlv_tab(k).delivery_id);
1581: FOR i in 1..x_dlv_tab(k).rl_details.COUNT LOOP
1582: WSH_DEBUG_SV.log(l_sub_module_name,'DD ' , x_dlv_tab(k).rl_details(i).delivery_detail_id);
1583: END LOOP;
1584: WSH_DEBUG_SV.log(l_sub_module_name,'Ship Units Count' , x_dlv_tab(k).lpn.COUNT);
1585: FOR i in 1..x_dlv_tab(k).lpn.COUNT LOOP
1586: --{
1587: WSH_DEBUG_SV.log(l_sub_module_name,'Lpn Id ' , x_dlv_tab(k).lpn(i).lpn_id);
1588: FOR j in 1..x_dlv_tab(k).lpn(i).packed_items.COUNT LOOP
1583: END LOOP;
1584: WSH_DEBUG_SV.log(l_sub_module_name,'Ship Units Count' , x_dlv_tab(k).lpn.COUNT);
1585: FOR i in 1..x_dlv_tab(k).lpn.COUNT LOOP
1586: --{
1587: WSH_DEBUG_SV.log(l_sub_module_name,'Lpn Id ' , x_dlv_tab(k).lpn(i).lpn_id);
1588: FOR j in 1..x_dlv_tab(k).lpn(i).packed_items.COUNT LOOP
1589: WSH_DEBUG_SV.log(l_sub_module_name,'Content ' ,x_dlv_tab(k).lpn(i).packed_items(j).content_id);
1590: WSH_DEBUG_SV.log(l_sub_module_name,'Content ' ,x_dlv_tab(k).lpn(i).packed_items(j).line_number);
1591: END LOOP;
1585: FOR i in 1..x_dlv_tab(k).lpn.COUNT LOOP
1586: --{
1587: WSH_DEBUG_SV.log(l_sub_module_name,'Lpn Id ' , x_dlv_tab(k).lpn(i).lpn_id);
1588: FOR j in 1..x_dlv_tab(k).lpn(i).packed_items.COUNT LOOP
1589: WSH_DEBUG_SV.log(l_sub_module_name,'Content ' ,x_dlv_tab(k).lpn(i).packed_items(j).content_id);
1590: WSH_DEBUG_SV.log(l_sub_module_name,'Content ' ,x_dlv_tab(k).lpn(i).packed_items(j).line_number);
1591: END LOOP;
1592: --}
1593: END LOOP;
1586: --{
1587: WSH_DEBUG_SV.log(l_sub_module_name,'Lpn Id ' , x_dlv_tab(k).lpn(i).lpn_id);
1588: FOR j in 1..x_dlv_tab(k).lpn(i).packed_items.COUNT LOOP
1589: WSH_DEBUG_SV.log(l_sub_module_name,'Content ' ,x_dlv_tab(k).lpn(i).packed_items(j).content_id);
1590: WSH_DEBUG_SV.log(l_sub_module_name,'Content ' ,x_dlv_tab(k).lpn(i).packed_items(j).line_number);
1591: END LOOP;
1592: --}
1593: END LOOP;
1594: --}
1599: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1600: --
1601: ELSE
1602: IF l_debug_on THEN
1603: WSH_DEBUG_SV.log(l_sub_module_name,'Else error');
1604: END IF;
1605: x_error_dlv_id_tab := p_dlv_id_tab;
1606: p_dlv_id_tab := l_dlv_id_tab;
1607: x_dlv_tab := l_dlv_tab;
1611: --
1612: -- Debug Statements
1613: --
1614: IF l_debug_on THEN
1615: WSH_DEBUG_SV.pop(l_sub_module_name);
1616: END IF;
1617: --
1618: EXCEPTION
1619: -- 6922924 removeing all Exceptions to Inside the Loop as in above
1626: IF get_container_details%ISOPEN THEN
1627: CLOSE get_container_details;
1628: END IF;
1629: IF l_debug_on THEN
1630: WSH_DEBUG_SV.pop(l_sub_module_name,'When Others');
1631: END IF;
1632: end GET_DELIVERY_OBJECTS;
1633:
1634:
1734: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1735: --
1736: IF l_debug_on IS NULL
1737: THEN
1738: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1739: END IF;
1740: --
1741: -- initialize Apps variables
1742: --Bug8231371 calling WSH_OTM_APPS_INITIALIZE to set apps context
1751: --
1752: IF l_debug_on THEN
1753: --{
1754: fnd_profile.get('WSH_DEBUG_LOG_DIRECTORY',l_debugfile);
1755: l_debugfile := l_debugfile||'/'||WSH_DEBUG_SV.g_file;
1756:
1757: WSH_DEBUG_SV.push(l_sub_module_name);
1758: WSH_DEBUG_SV.log(l_sub_module_name,'Begin of the process ',l_debugfile);
1759: WSH_DEBUG_SV.log(l_sub_module_name,'p_entity_type ',p_entity_type);
1753: --{
1754: fnd_profile.get('WSH_DEBUG_LOG_DIRECTORY',l_debugfile);
1755: l_debugfile := l_debugfile||'/'||WSH_DEBUG_SV.g_file;
1756:
1757: WSH_DEBUG_SV.push(l_sub_module_name);
1758: WSH_DEBUG_SV.log(l_sub_module_name,'Begin of the process ',l_debugfile);
1759: WSH_DEBUG_SV.log(l_sub_module_name,'p_entity_type ',p_entity_type);
1760: WSH_DEBUG_SV.log(l_sub_module_name,'p_new_intf_status ',p_new_intf_status);
1761: --}
1754: fnd_profile.get('WSH_DEBUG_LOG_DIRECTORY',l_debugfile);
1755: l_debugfile := l_debugfile||'/'||WSH_DEBUG_SV.g_file;
1756:
1757: WSH_DEBUG_SV.push(l_sub_module_name);
1758: WSH_DEBUG_SV.log(l_sub_module_name,'Begin of the process ',l_debugfile);
1759: WSH_DEBUG_SV.log(l_sub_module_name,'p_entity_type ',p_entity_type);
1760: WSH_DEBUG_SV.log(l_sub_module_name,'p_new_intf_status ',p_new_intf_status);
1761: --}
1762: END IF;
1755: l_debugfile := l_debugfile||'/'||WSH_DEBUG_SV.g_file;
1756:
1757: WSH_DEBUG_SV.push(l_sub_module_name);
1758: WSH_DEBUG_SV.log(l_sub_module_name,'Begin of the process ',l_debugfile);
1759: WSH_DEBUG_SV.log(l_sub_module_name,'p_entity_type ',p_entity_type);
1760: WSH_DEBUG_SV.log(l_sub_module_name,'p_new_intf_status ',p_new_intf_status);
1761: --}
1762: END IF;
1763: --
1756:
1757: WSH_DEBUG_SV.push(l_sub_module_name);
1758: WSH_DEBUG_SV.log(l_sub_module_name,'Begin of the process ',l_debugfile);
1759: WSH_DEBUG_SV.log(l_sub_module_name,'p_entity_type ',p_entity_type);
1760: WSH_DEBUG_SV.log(l_sub_module_name,'p_new_intf_status ',p_new_intf_status);
1761: --}
1762: END IF;
1763: --
1764: --Validations
1763: --
1764: --Validations
1765: IF p_new_intf_status NOT IN ('IN_PROCESS','COMPLETE') THEN
1766: IF l_debug_on THEN
1767: WSH_DEBUG_SV.log(l_sub_module_name,'Invalid p_new_intf_status',p_new_intf_status);
1768: END IF;
1769: RAISE INVALID_NEW_INTF_STATUS;
1770: END IF;
1771: -- General Process
1784: k := 0;
1785: IF p_entity_type = 'DELIVERY' THEN
1786: --{
1787: IF l_debug_on THEN
1788: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Delivery Count',p_entity_id_tab.COUNT);
1789: END IF;
1790: --
1791: FOR i IN 1..p_entity_id_tab.COUNT
1792: LOOP
1795: fetch get_del_tms_interface_flag into l_del_current_status,l_del_status_code,l_ignore_for_planning;
1796: --
1797: IF get_del_tms_interface_flag%NOTFOUND then
1798: IF l_debug_on THEN
1799: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Delivery Not found',p_entity_id_tab(i));
1800: END IF;
1801: -- Move delivery id to error table - p_error_id_tab
1802: l_del_id_error_flag := 'Y';
1803: END IF;
1805: close get_del_tms_interface_flag;
1806: --
1807: IF p_new_intf_status = 'IN_PROCESS' then
1808: IF l_debug_on THEN
1809: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Delivery - Status',p_new_intf_status);
1810: END IF;
1811: --{
1812: -- Query the delivery for the given delivery id list and
1813: -- if the current interface flag is not in 'CR,UR,DR',
1814: -- no update required, move the delivery id to error id table.
1815: --
1816: IF l_del_current_status = 'CR' then
1817: IF l_debug_on THEN
1818: WSH_DEBUG_SV.log(l_sub_module_name,'value of k1 '|| k);
1819: END IF;
1820: l_status_tab(k) := 'CP' ;
1821: l_id_tab(k) := p_entity_id_tab(i);
1822: k := k+ 1;
1832: -- no change to the status since the delivery is in process
1833: null;
1834: else
1835: IF l_debug_on THEN
1836: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Delivery - Error ',p_entity_id_tab(i));
1837: END IF;
1838: -- set l_del_id_error_flag to "YES" to move this del-id to error table.
1839: l_del_id_error_flag := 'Y';
1840: end if;
1863: -- check if the delivery is empty or not. If it not empty, set the status to "CR"
1864: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(p_entity_id_tab(i));
1865: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1866: IF l_debug_on THEN
1867: WSH_DEBUG_SV.log(l_sub_module_name,'Error from wsh_new_delivery_actions.is_delivery_empty API for Delivery '||p_entity_id_tab(i));
1868: END IF;
1869: -- Setting this delivery to Error List since it is failed to process
1870: l_del_id_error_flag := 'Y';
1871: END IF;
1890: IF l_del_id_error_flag = 'Y' THEN
1891: --{
1892: -- Move delivery id to error table - p_error_id_tab
1893: IF l_debug_on THEN
1894: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Delivery ID-Moving to error table ');
1895: END IF;
1896: l_error_id_out_tab.extend;
1897: l_error_id_out_tab(l_error_id_out_tab.COUNT):=p_entity_id_tab(i);
1898: --
1898: --
1899: --}
1900: ELSE
1901: IF l_debug_on THEN
1902: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Delivery ID-Success to table ',p_entity_id_tab(i));
1903: END IF;
1904:
1905: -- Move delivery id to success table - l_entity_id_out_tab
1906: l_entity_id_out_tab.extend;
1909: --
1910: END LOOP;
1911: IF l_id_tab.COUNT > 0 THEN
1912: IF l_debug_on THEN
1913: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Delivery Calling WSH API to update status-Del-Count',l_id_tab.COUNT);
1914: END IF;
1915: --{
1916: --Call WSH API to update the new status
1917: WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG
1921: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS then
1922: raise UPD_DEL_INTF_FLAG_API_FALIED;
1923: END IF;
1924: IF l_debug_on THEN
1925: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Delivery Calling WSH API to update status-Success-Del-Count',l_id_tab.COUNT);
1926: END IF;
1927: --}
1928: END IF;
1929: --}
1939: -- Otherwise no change.
1940: -- if there is no trip stops for the give trip id, move the trip id to error id table.
1941: k := 0;
1942: IF l_debug_on THEN
1943: WSH_DEBUG_SV.log(l_sub_module_name,'Trip Count ',p_entity_id_tab.COUNT);
1944: END IF;
1945: --{
1946: FOR i IN 1..p_entity_id_tab.COUNT
1947: LOOP
1946: FOR i IN 1..p_entity_id_tab.COUNT
1947: LOOP
1948: --{
1949: IF l_debug_on THEN
1950: WSH_DEBUG_SV.log(l_sub_module_name,'Trip Stop ID ',p_entity_id_tab(i));
1951: END IF;
1952: OPEN get_trip_stops(p_entity_id_tab(i));
1953: FETCH get_trip_stops BULK COLLECT into l_stop_id_tab,l_stop_status_tab;
1954: CLOSE get_trip_stops;
1953: FETCH get_trip_stops BULK COLLECT into l_stop_id_tab,l_stop_status_tab;
1954: CLOSE get_trip_stops;
1955: --
1956: IF l_debug_on THEN
1957: WSH_DEBUG_SV.log(l_sub_module_name,'Trip Stps count ',l_stop_id_tab.COUNT);
1958: END IF;
1959: IF l_stop_id_tab.COUNT > 0 THEN
1960: --{
1961: j := l_stop_id_tab.FIRST;
1962: WHILE j IS NOT NULL
1963: LOOP
1964: --{
1965: IF l_debug_on THEN
1966: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Trip STOP ID ',l_stop_id_tab(j) ||'-'||l_stop_status_tab(j));
1967: END IF;
1968: --
1969: IF p_new_intf_status = 'IN_PROCESS' THEN
1970: --
1970: --
1971: --IF l_stop_status_tab(j) = 'ASR' then
1972: l_status_tab(k) := 'ASP' ;
1973: IF l_debug_on THEN
1974: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Trip STOP ID -New Status ',l_status_tab(k));
1975: END IF;
1976: l_id_tab(k) := l_stop_id_tab(j);
1977: k := k + 1;
1978: --end if ;
1981: --
1982: --IF l_stop_status_tab(j) = 'ASP' then
1983: l_status_tab(k) := 'CMP';
1984: IF l_debug_on THEN
1985: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Trip STOP ID -New Status ',l_status_tab(k));
1986: END IF;
1987: l_id_tab(k) := l_stop_id_tab(j);
1988: k := k + 1;
1989: --END IF;
1999: --}
2000: ELSE
2001: --{
2002: IF l_debug_on THEN
2003: WSH_DEBUG_SV.log(l_sub_module_name,'Moving to Error table for Trip id',p_entity_id_tab(i));
2004: END IF;
2005: -- Move the Trip Id into error table
2006: l_error_id_out_tab.extend;
2007: l_error_id_out_tab(l_error_id_out_tab.COUNT):=p_entity_id_tab(i);
2012: --Call WSH API to update the new status in Trip Stops
2013: IF l_id_tab.COUNT > 0 THEN
2014: --{
2015: IF l_debug_on THEN
2016: WSH_DEBUG_SV.log(l_sub_module_name,'Calling WSH API-UPDATE_TMS_INTERFACE_FLAG Total stops ids',l_id_tab.COUNT);
2017: END IF;
2018: --
2019: WSH_TRIP_STOPS_PVT.UPDATE_TMS_INTERFACE_FLAG
2020: (P_STOP_ID_TAB=>l_id_tab,
2023: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS then
2024: raise UPD_STOP_INTF_FLAG_API_FALIED;
2025: END IF;
2026: IF l_debug_on THEN
2027: WSH_DEBUG_SV.log(l_sub_module_name,'Processing Trip Calling WSH API to update status-Success-Trip-Stops-Count',l_id_tab.COUNT);
2028: END IF;
2029: --}
2030: END IF;
2031: --}
2036: -- store the error deliveries/trips tp_error_id_tab table
2037: p_entity_id_tab := l_entity_id_out_tab;
2038: p_error_id_tab := l_error_id_out_tab;
2039: IF l_debug_on THEN
2040: WSH_DEBUG_SV.log(l_sub_module_name,'End of Process - Delivery/Trip Success',p_entity_id_tab.COUNT);
2041: WSH_DEBUG_SV.log(l_sub_module_name,'End of Process - Delivery/Trip Error',p_error_id_tab.COUNT);
2042: END IF;
2043: --
2044: EXCEPTION
2037: p_entity_id_tab := l_entity_id_out_tab;
2038: p_error_id_tab := l_error_id_out_tab;
2039: IF l_debug_on THEN
2040: WSH_DEBUG_SV.log(l_sub_module_name,'End of Process - Delivery/Trip Success',p_entity_id_tab.COUNT);
2041: WSH_DEBUG_SV.log(l_sub_module_name,'End of Process - Delivery/Trip Error',p_error_id_tab.COUNT);
2042: END IF;
2043: --
2044: EXCEPTION
2045: WHEN UPD_DEL_INTF_FLAG_API_FALIED THEN
2043: --
2044: EXCEPTION
2045: WHEN UPD_DEL_INTF_FLAG_API_FALIED THEN
2046: IF l_debug_on THEN
2047: WSH_DEBUG_SV.log(l_sub_module_name,'UPD_DEL_INTF_FLAG_API_FALIED',sqlerrm);
2048: END IF;
2049: ROLLBACK TO UPDATE_ENTITY_INTF_STATUS;
2050: -- returning all entitiy id to error id table
2051: p_error_id_tab := p_entity_id_tab;
2051: p_error_id_tab := p_entity_id_tab;
2052: x_return_status := FND_API.G_RET_STS_ERROR;
2053: WHEN UPD_STOP_INTF_FLAG_API_FALIED THEN
2054: IF l_debug_on THEN
2055: WSH_DEBUG_SV.log(l_sub_module_name,'UPD_STOP_INTF_FLAG_API_FALIED',sqlerrm);
2056: END IF;
2057: ROLLBACK TO UPDATE_ENTITY_INTF_STATUS;
2058: -- returning all entitiy id to error id table
2059: p_error_id_tab := p_entity_id_tab;
2059: p_error_id_tab := p_entity_id_tab;
2060: x_return_status := FND_API.G_RET_STS_ERROR;
2061: WHEN INVALID_ENTITY_TYPE THEN
2062: IF l_debug_on THEN
2063: WSH_DEBUG_SV.log(l_sub_module_name,'INVALID_ENTITY_TYPE',sqlerrm);
2064: END IF;
2065: ROLLBACK TO UPDATE_ENTITY_INTF_STATUS;
2066: -- returning all entitiy id to error id table
2067: p_error_id_tab := p_entity_id_tab;
2067: p_error_id_tab := p_entity_id_tab;
2068: x_return_status := FND_API.G_RET_STS_ERROR;
2069: WHEN INVALID_NEW_INTF_STATUS THEN
2070: IF l_debug_on THEN
2071: WSH_DEBUG_SV.log(l_sub_module_name,'INVALID_NEW_INTF_STATUS',sqlerrm);
2072: END IF;
2073: ROLLBACK TO UPDATE_ENTITY_INTF_STATUS;
2074: -- returning all entitiy id to error id table
2075: p_error_id_tab := p_entity_id_tab;
2075: p_error_id_tab := p_entity_id_tab;
2076: x_return_status := FND_API.G_RET_STS_ERROR;
2077: WHEN FND_API.G_EXC_ERROR THEN
2078: IF l_debug_on THEN
2079: WSH_DEBUG_SV.log(l_sub_module_name,' FND_API.G_EXC_ERROR',sqlerrm);
2080: END IF;
2081: ROLLBACK TO UPDATE_ENTITY_INTF_STATUS;
2082: -- returning all entitiy id to error id table
2083: p_error_id_tab := p_entity_id_tab;
2083: p_error_id_tab := p_entity_id_tab;
2084: x_return_status := FND_API.G_RET_STS_ERROR;
2085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2086: IF l_debug_on THEN
2087: WSH_DEBUG_SV.log(l_sub_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR',sqlerrm);
2088: END IF;
2089: ROLLBACK TO UPDATE_ENTITY_INTF_STATUS;
2090: -- returning all entitiy id to error id table
2091: p_error_id_tab := p_entity_id_tab;
2091: p_error_id_tab := p_entity_id_tab;
2092: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2093: WHEN OTHERS then
2094: IF l_debug_on THEN
2095: WSH_DEBUG_SV.log(l_sub_module_name,'OTHERS - ERROR',sqlerrm);
2096: END IF;
2097: -- returning all entitiy id to error id table
2098: p_error_id_tab := p_entity_id_tab;
2099: x_return_status := FND_API.G_RET_STS_ERROR;
2132: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2133: --
2134: IF l_debug_on IS NULL
2135: THEN
2136: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2137: END IF;
2138: --
2139: -- Debug Statements
2140: --
2138: --
2139: -- Debug Statements
2140: --
2141: IF l_debug_on THEN
2142: WSH_DEBUG_SV.push(l_sub_module_name);
2143: WSH_DEBUG_SV.log(l_sub_module_name,'calling FND_GLOBAL.apps_initialize');
2144: END IF;
2145:
2146: FND_GLOBAL.apps_initialize(user_id => p_user_id,
2139: -- Debug Statements
2140: --
2141: IF l_debug_on THEN
2142: WSH_DEBUG_SV.push(l_sub_module_name);
2143: WSH_DEBUG_SV.log(l_sub_module_name,'calling FND_GLOBAL.apps_initialize');
2144: END IF;
2145:
2146: FND_GLOBAL.apps_initialize(user_id => p_user_id,
2147: resp_id =>p_resp_id,
2147: resp_id =>p_resp_id,
2148: resp_appl_id => p_resp_appl_id);
2149:
2150: IF l_debug_on THEN
2151: WSH_DEBUG_SV.log(l_sub_module_name,'issuing commit');
2152: END IF;
2153:
2154: COMMIT;
2155:
2153:
2154: COMMIT;
2155:
2156: IF l_debug_on THEN
2157: WSH_DEBUG_SV.pop(l_sub_module_name);
2158: END IF;
2159:
2160: EXCEPTION
2161: WHEN OTHERS THEN
2160: EXCEPTION
2161: WHEN OTHERS THEN
2162: wsh_util_core.default_handler('WSH_OTM_OUTBOUND.WSH_OTM_APPS_INITIALIZE',l_sub_module_name);
2163: IF l_debug_on THEN
2164: WSH_DEBUG_SV.log(l_sub_module_name,'OTHERS - ERROR',sqlerrm);
2165: END IF;
2166: END;
2167:
2168: END WSH_OTM_OUTBOUND;