[Home] [Help]
90: WSH_DEBUG_SV.log(l_module_name,'P_PO_LINE_LOCATION_ID',P_PO_LINE_LOCATION_ID);
91: WSH_DEBUG_SV.log(l_module_name,'P_PREV_LINE_REC_INDEX',P_PREV_LINE_REC_INDEX);
92: END IF;
93: --
94: x_return_status := wsh_util_core.g_ret_sts_success;
95:
96: /*
97: x_line_rec.header_id.extend;
98: x_line_rec.po_shipment_line_id.extend;
265: --
266: IF l_debug_on THEN
267: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling the API Extend_tables is ', l_return_status);
268: WSH_DEBUG_SV.log(l_module_name,'l_tab_count', l_tab_count);
269: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
270: END IF;
271: --
272: wsh_util_core.api_post_call(
273: p_return_status => l_return_status,
268: WSH_DEBUG_SV.log(l_module_name,'l_tab_count', l_tab_count);
269: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
270: END IF;
271: --
272: wsh_util_core.api_post_call(
273: p_return_status => l_return_status,
274: x_num_warnings => l_num_warnings,
275: x_num_errors => l_num_errors);
276:
392: --
393: -- Debug Statements
394: --
395: IF l_debug_on THEN
396: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
397: END IF;
398: --
399: wsh_util_core.api_post_call(
400: p_return_status => l_return_status,
395: IF l_debug_on THEN
396: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
397: END IF;
398: --
399: wsh_util_core.api_post_call(
400: p_return_status => l_return_status,
401: x_num_warnings => l_num_warnings,
402: x_num_errors => l_num_errors);
403: --}
476: END IF;
477: --
478: IF l_num_errors > 0
479: THEN
480: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
481: ELSIF l_num_warnings > 0
482: THEN
483: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
484: ELSE
479: THEN
480: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
481: ELSIF l_num_warnings > 0
482: THEN
483: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
484: ELSE
485: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
486: END IF;
487: --
481: ELSIF l_num_warnings > 0
482: THEN
483: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
484: ELSE
485: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
486: END IF;
487: --
488: --}
489: --
495: --
496: EXCEPTION
497: --{
498: WHEN FND_API.G_EXC_ERROR THEN
499: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
500: --
501: -- Debug Statements
502: --
503: IF l_debug_on THEN
505: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
506: END IF;
507: --
508: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
509: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
510: --
511: -- Debug Statements
512: --
513: IF l_debug_on THEN
514: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
515: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
516: END IF;
517: --
518: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
519: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
520: --
521: -- Debug Statements
522: --
515: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
516: END IF;
517: --
518: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
519: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
520: --
521: -- Debug Statements
522: --
523: IF l_debug_on THEN
520: --
521: -- Debug Statements
522: --
523: IF l_debug_on THEN
524: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
525: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
526: END IF;
527: --
528: WHEN OTHERS THEN
521: -- Debug Statements
522: --
523: IF l_debug_on THEN
524: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
525: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
526: END IF;
527: --
528: WHEN OTHERS THEN
529: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
525: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
526: END IF;
527: --
528: WHEN OTHERS THEN
529: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
530: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.COPY_PO_REC_TO_LINE_REC');
531: --}
532: --
533: -- Debug Statements
526: END IF;
527: --
528: WHEN OTHERS THEN
529: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
530: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.COPY_PO_REC_TO_LINE_REC');
531: --}
532: --
533: -- Debug Statements
534: --
618: --
619: BEGIN
620: --{
621: --
622: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
623: --
624: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
625: --
626: IF l_debug_on IS NULL
689: --
690: EXCEPTION
691: --{
692: WHEN FND_API.G_EXC_ERROR THEN
693: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
694: --
695: -- Debug Statements
696: --
697: IF l_debug_on THEN
699: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
700: END IF;
701: --
702: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
703: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
704: --
705: -- Debug Statements
706: --
707: IF l_debug_on THEN
708: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
709: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
710: END IF;
711: --
712: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
713: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
714: --
715: -- Debug Statements
716: --
709: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
710: END IF;
711: --
712: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
713: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
714: --
715: -- Debug Statements
716: --
717: IF l_debug_on THEN
714: --
715: -- Debug Statements
716: --
717: IF l_debug_on THEN
718: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
719: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
720: END IF;
721: --
722: WHEN OTHERS THEN
715: -- Debug Statements
716: --
717: IF l_debug_on THEN
718: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
719: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
720: END IF;
721: --
722: WHEN OTHERS THEN
723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
719: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
720: END IF;
721: --
722: WHEN OTHERS THEN
723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
724: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.GET_RCV_LINE_ATTRIBS');
725: --}
726: --
727: -- Debug Statements
720: END IF;
721: --
722: WHEN OTHERS THEN
723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
724: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.GET_RCV_LINE_ATTRIBS');
725: --}
726: --
727: -- Debug Statements
728: --
792: WSH_DEBUG_SV.log(l_module_name,'P_PO_LINE_LOCATION_ID',P_PO_LINE_LOCATION_ID);
793: WSH_DEBUG_SV.log(l_module_name,'P_RCV_SHIPMENT_LINE_ID',P_RCV_SHIPMENT_LINE_ID);
794: END IF;
795: --
796: x_return_status := wsh_util_core.g_ret_sts_success;
797: --
798: l_line_rec_count := x_line_rec.po_shipment_line_id.count;
799: IF l_line_rec_count < 1 THEN -- This means we have to call PO's API
800: l_get_attr_from_po := TRUE;
837: -- Debug Statements
838: --
839: IF l_debug_on THEN
840: WSH_DEBUG_SV.log(l_module_name,'l_return_status is',l_return_status);
841: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
842: END IF;
843: --
844: wsh_util_core.api_post_call(
845: p_return_status => l_return_status,
840: WSH_DEBUG_SV.log(l_module_name,'l_return_status is',l_return_status);
841: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
842: END IF;
843: --
844: wsh_util_core.api_post_call(
845: p_return_status => l_return_status,
846: x_num_warnings => l_num_warnings,
847: x_num_errors => l_num_errors);
848: --}
867: -- Debug Statements
868: --
869: IF l_debug_on THEN
870: WSH_DEBUG_SV.log(l_module_name,'l_return_status is',l_return_status);
871: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
872: END IF;
873: --
874: wsh_util_core.api_post_call(
875: p_return_status => l_return_status,
870: WSH_DEBUG_SV.log(l_module_name,'l_return_status is',l_return_status);
871: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
872: END IF;
873: --
874: wsh_util_core.api_post_call(
875: p_return_status => l_return_status,
876: x_num_warnings => l_num_warnings,
877: x_num_errors => l_num_errors);
878:
888: -- Debug Statements
889: --
890: IF l_debug_on THEN
891: WSH_DEBUG_SV.log(l_module_name,'l_return_status is',l_return_status);
892: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
893: END IF;
894: --
895: wsh_util_core.api_post_call(
896: p_return_status => l_return_status,
891: WSH_DEBUG_SV.log(l_module_name,'l_return_status is',l_return_status);
892: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
893: END IF;
894: --
895: wsh_util_core.api_post_call(
896: p_return_status => l_return_status,
897: x_num_warnings => l_num_warnings,
898: x_num_errors => l_num_errors);
899: --}
900: END IF;
901: --
902: IF l_num_errors > 0
903: THEN
904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
905: ELSIF l_num_warnings > 0
906: THEN
907: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
908: ELSE
903: THEN
904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
905: ELSIF l_num_warnings > 0
906: THEN
907: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
908: ELSE
909: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
910: END IF;
911: --
905: ELSIF l_num_warnings > 0
906: THEN
907: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
908: ELSE
909: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
910: END IF;
911: --
912: --}
913: --
919: --
920: EXCEPTION
921: --{
922: WHEN FND_API.G_EXC_ERROR THEN
923: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
924: --
925: -- Debug Statements
926: --
927: IF l_debug_on THEN
929: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
930: END IF;
931: --
932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
933: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
934: --
935: -- Debug Statements
936: --
937: IF l_debug_on THEN
938: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
939: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
940: END IF;
941: --
942: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
943: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
944: --
945: -- Debug Statements
946: --
939: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
940: END IF;
941: --
942: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
943: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
944: --
945: -- Debug Statements
946: --
947: IF l_debug_on THEN
944: --
945: -- Debug Statements
946: --
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
949: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
950: END IF;
951: --
952: WHEN OTHERS THEN
945: -- Debug Statements
946: --
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
949: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
950: END IF;
951: --
952: WHEN OTHERS THEN
953: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
949: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
950: END IF;
951: --
952: WHEN OTHERS THEN
953: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
954: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.GET_PO_RCV_ATTRIBUTES');
955: --}
956: --
957: -- Debug Statements
950: END IF;
951: --
952: WHEN OTHERS THEN
953: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
954: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.GET_PO_RCV_ATTRIBUTES');
955: --}
956: --
957: -- Debug Statements
958: --
1061: WSH_DEBUG_SV.log(l_module_name,'P_INDEX',P_INDEX);
1062: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.po_shipment_line_id(p_index)',p_line_rec.po_shipment_line_id(p_index));
1063: END IF;
1064: --
1065: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1066:
1067: OPEN c_drop_ship(p_index);
1068: FETCH c_drop_ship
1069: INTO
1109: --
1110: -- Debug Statements
1111: --
1112: IF l_debug_on THEN
1113: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
1114: END IF;
1115: --
1116: --Call API WSH_UTIL_CORE.GET_LOCATION_ID to get the Deliver_to_location_id.
1117: WSH_UTIL_CORE.GET_LOCATION_ID(
1112: IF l_debug_on THEN
1113: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
1114: END IF;
1115: --
1116: --Call API WSH_UTIL_CORE.GET_LOCATION_ID to get the Deliver_to_location_id.
1117: WSH_UTIL_CORE.GET_LOCATION_ID(
1118: p_mode => 'CUSTOMER SITE',
1119: p_source_id => p_line_rec.deliver_to_org_id(p_index),
1120: x_location_id => p_line_rec.deliver_to_location_id(p_index),
1113: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
1114: END IF;
1115: --
1116: --Call API WSH_UTIL_CORE.GET_LOCATION_ID to get the Deliver_to_location_id.
1117: WSH_UTIL_CORE.GET_LOCATION_ID(
1118: p_mode => 'CUSTOMER SITE',
1119: p_source_id => p_line_rec.deliver_to_org_id(p_index),
1120: x_location_id => p_line_rec.deliver_to_location_id(p_index),
1121: x_api_status => l_return_status);
1123: --
1124: -- Debug Statements
1125: --
1126: IF l_debug_on THEN
1127: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1128: END IF;
1129: --
1130: wsh_util_core.api_post_call(
1131: p_return_status => l_return_status,
1126: IF l_debug_on THEN
1127: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1128: END IF;
1129: --
1130: wsh_util_core.api_post_call(
1131: p_return_status => l_return_status,
1132: x_num_warnings => l_num_warnings,
1133: x_num_errors => l_num_errors);
1134:
1143: --
1144: -- Debug Statements
1145: --
1146: IF l_debug_on THEN
1147: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
1148: END IF;
1149: --
1150: --Call API WSH_UTIL_CORE.GET_LOCATION_ID to get the intmed_ship_to_location_id.
1151: WSH_UTIL_CORE.GET_LOCATION_ID(
1146: IF l_debug_on THEN
1147: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
1148: END IF;
1149: --
1150: --Call API WSH_UTIL_CORE.GET_LOCATION_ID to get the intmed_ship_to_location_id.
1151: WSH_UTIL_CORE.GET_LOCATION_ID(
1152: p_mode => 'CUSTOMER SITE',
1153: p_source_id => p_line_rec.intermed_ship_to_org_id(p_index),
1154: x_location_id => p_line_rec.intmed_ship_to_location_id(p_index),
1147: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
1148: END IF;
1149: --
1150: --Call API WSH_UTIL_CORE.GET_LOCATION_ID to get the intmed_ship_to_location_id.
1151: WSH_UTIL_CORE.GET_LOCATION_ID(
1152: p_mode => 'CUSTOMER SITE',
1153: p_source_id => p_line_rec.intermed_ship_to_org_id(p_index),
1154: x_location_id => p_line_rec.intmed_ship_to_location_id(p_index),
1155: x_api_status => l_return_status);
1157: --
1158: -- Debug Statements
1159: --
1160: IF l_debug_on THEN
1161: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1162: END IF;
1163: --
1164: wsh_util_core.api_post_call(
1165: p_return_status => l_return_status,
1160: IF l_debug_on THEN
1161: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1162: END IF;
1163: --
1164: wsh_util_core.api_post_call(
1165: p_return_status => l_return_status,
1166: x_num_warnings => l_num_warnings,
1167: x_num_errors => l_num_errors);
1168: END IF;
1169:
1170: --
1171: IF l_num_errors > 0
1172: THEN
1173: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1174: ELSIF l_num_warnings > 0
1175: THEN
1176: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1177: ELSE
1172: THEN
1173: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1174: ELSIF l_num_warnings > 0
1175: THEN
1176: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1177: ELSE
1178: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1179: END IF;
1180: --
1174: ELSIF l_num_warnings > 0
1175: THEN
1176: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1177: ELSE
1178: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1179: END IF;
1180: --
1181: --
1182: -- Debug Statements
1186: END IF;
1187: --
1188: EXCEPTION
1189: WHEN FND_API.G_EXC_ERROR THEN
1190: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1191: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1192:
1193: --
1194: -- Debug Statements
1187: --
1188: EXCEPTION
1189: WHEN FND_API.G_EXC_ERROR THEN
1190: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1191: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1192:
1193: --
1194: -- Debug Statements
1195: --
1198: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1199: END IF;
1200: --
1201: WHEN INVALID_DROP_SHIP_INFO THEN
1202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1203: FND_MESSAGE.SET_NAME('WSH','WSH_IB_DERIVE_DROPSHP_FAILED');
1204: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1205: --
1206: -- Debug Statements
1200: --
1201: WHEN INVALID_DROP_SHIP_INFO THEN
1202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1203: FND_MESSAGE.SET_NAME('WSH','WSH_IB_DERIVE_DROPSHP_FAILED');
1204: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1205: --
1206: -- Debug Statements
1207: --
1208: IF l_debug_on THEN
1210: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DROP_SHIP_INFO');
1211: END IF;
1212: --
1213: WHEN OTHERS THEN
1214: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1215: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_BULK_PROCESS_PVT.get_drop_ship_info',l_module_name);
1216: --
1217: -- Debug Statements
1218: --
1211: END IF;
1212: --
1213: WHEN OTHERS THEN
1214: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1215: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_BULK_PROCESS_PVT.get_drop_ship_info',l_module_name);
1216: --
1217: -- Debug Statements
1218: --
1219: IF l_debug_on THEN
1248: --========================================================================
1249: --
1250: PROCEDURE split_inbound_delivery
1251: (
1252: p_delivery_detail_id_tbl IN wsh_util_core.id_tab_type,
1253: p_delivery_id IN NUMBER,
1254: x_delivery_id IN OUT NOCOPY NUMBER,
1255: x_return_status OUT NOCOPY VARCHAR2,
1256: p_caller IN VARCHAR2 DEFAULT 'WSH_ASN_RECEIPT'
1297: AND wdd.delivery_detail_id = wwst.delivery_detail_id
1298: AND wda.parent_delivery_detail_id IS NOT NULL
1299: ORDER BY wda.parent_delivery_detail_id;
1300: --
1301: l_wdd_id_tbl wsh_util_core.id_tab_type;
1302: l_parent_wdd_id_tbl wsh_util_core.id_tab_type;
1303: l_tmp_wdd_id_tbl wsh_util_core.id_tab_type;
1304: l_index NUMBER;
1305: l_parent_wdd_id NUMBER;
1298: AND wda.parent_delivery_detail_id IS NOT NULL
1299: ORDER BY wda.parent_delivery_detail_id;
1300: --
1301: l_wdd_id_tbl wsh_util_core.id_tab_type;
1302: l_parent_wdd_id_tbl wsh_util_core.id_tab_type;
1303: l_tmp_wdd_id_tbl wsh_util_core.id_tab_type;
1304: l_index NUMBER;
1305: l_parent_wdd_id NUMBER;
1306: l_prev_parent_wdd_id NUMBER;
1299: ORDER BY wda.parent_delivery_detail_id;
1300: --
1301: l_wdd_id_tbl wsh_util_core.id_tab_type;
1302: l_parent_wdd_id_tbl wsh_util_core.id_tab_type;
1303: l_tmp_wdd_id_tbl wsh_util_core.id_tab_type;
1304: l_index NUMBER;
1305: l_parent_wdd_id NUMBER;
1306: l_prev_parent_wdd_id NUMBER;
1307: l_new_parent_wdd_id NUMBER;
1306: l_prev_parent_wdd_id NUMBER;
1307: l_new_parent_wdd_id NUMBER;
1308: l_count NUMBER;
1309: l_txn_type VARCHAR2(20);
1310: l_temp_tbl wsh_util_core.id_tab_type;
1311: --
1312: l_num_warnings NUMBER := 0;
1313: l_num_errors NUMBER := 0;
1314: l_return_status VARCHAR2(10);
1318:
1319: l_query_count NUMBER;
1320: --
1321: l_delivery_rec WSH_NEW_DELIVERIES_PVT.delivery_rec_type;
1322: l_leg_id_tbl wsh_util_core.id_tab_type;
1323: l_line_tbl wsh_util_core.id_tab_type;
1324: l_entity_ids wsh_util_core.id_tab_type;
1325: l_dlvy_freight_terms_code VARCHAR2(30);
1326: --
1319: l_query_count NUMBER;
1320: --
1321: l_delivery_rec WSH_NEW_DELIVERIES_PVT.delivery_rec_type;
1322: l_leg_id_tbl wsh_util_core.id_tab_type;
1323: l_line_tbl wsh_util_core.id_tab_type;
1324: l_entity_ids wsh_util_core.id_tab_type;
1325: l_dlvy_freight_terms_code VARCHAR2(30);
1326: --
1327: l_debug_on BOOLEAN;
1320: --
1321: l_delivery_rec WSH_NEW_DELIVERIES_PVT.delivery_rec_type;
1322: l_leg_id_tbl wsh_util_core.id_tab_type;
1323: l_line_tbl wsh_util_core.id_tab_type;
1324: l_entity_ids wsh_util_core.id_tab_type;
1325: l_dlvy_freight_terms_code VARCHAR2(30);
1326: --
1327: l_debug_on BOOLEAN;
1328: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || g_pkg_name || '.' || 'split_inbound_delivery';
1344: wsh_debug_sv.LOG(l_module_name, 'p_delivery_id', p_delivery_id);
1345: wsh_debug_sv.log(l_module_name, 'p_delivery_detail_id_tbl.COUNT', p_delivery_detail_id_tbl.COUNT);
1346: END IF;
1347: --
1348: x_return_status := wsh_util_core.g_ret_sts_success;
1349: --
1350: --
1351: IF p_delivery_id IS NULL
1352: THEN
1355: -- p_delivery_id is mandatory
1356: --
1357: FND_MESSAGE.SET_NAME('WSH', 'WSH_REQUIRED_FIELD_NULL');
1358: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'p_delivery_id');
1359: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
1360: --
1361: RAISE FND_API.G_EXC_ERROR;
1362: --}
1363: END IF;
1369: -- p_delivery_detail_id_tbl should have at least one record
1370: --
1371: FND_MESSAGE.SET_NAME('WSH', 'WSH_EMPTY_TABLE_ERROR');
1372: FND_MESSAGE.SET_TOKEN('TABLE_NAME', 'p_delivery_detail_id_tbl');
1373: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
1374: --
1375: RAISE FND_API.G_EXC_ERROR;
1376: --}
1377: END IF;
1386: THEN
1387: --{
1388: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NOT_EXIST');
1389: FND_MESSAGE.SET_TOKEN('DELIVERY_ID', p_delivery_id);
1390: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
1391: --
1392: RAISE FND_API.G_EXC_ERROR;
1393: --}
1394: END IF;
1401: -- Invalid operation for outbound delivery
1402: --
1403: FND_MESSAGE.SET_NAME('WSH','WSH_NOT_IB_DLVY_ERROR');
1404: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_dlvy_rec.name);
1405: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
1406: --
1407: RAISE FND_API.G_EXC_ERROR;
1408: --}
1409: END IF;
1430: x_leg_id_tab => l_leg_id_tbl,
1431: x_return_status => l_return_Status
1432: ) ;
1433: --
1434: wsh_util_core.api_post_call
1435: (
1436: p_return_status => l_return_status,
1437: x_num_warnings => l_num_warnings,
1438: x_num_errors => l_num_errors
1568: p_entity_ids => l_temp_tbl,
1569: x_return_status => l_return_status
1570: );
1571: --
1572: wsh_util_core.api_post_call(
1573: p_return_status => l_return_status,
1574: x_num_warnings => l_num_warnings,
1575: x_num_errors => l_num_errors
1576: );
1592: p_waybill_number => l_waybill,
1593: p_caller => p_caller
1594: );
1595: --
1596: wsh_util_core.api_post_call(
1597: p_return_status => l_return_status,
1598: x_num_warnings => l_num_warnings,
1599: x_num_errors => l_num_errors
1600: );
1631: p_dml_type => 'DELETE',
1632: x_return_status => l_return_status
1633: );
1634: --
1635: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1637: END IF;
1638: --
1639: wsh_util_core.api_post_call(
1635: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1637: END IF;
1638: --
1639: wsh_util_core.api_post_call(
1640: p_return_status => l_return_status,
1641: x_num_warnings => l_num_warnings,
1642: x_num_errors => l_num_errors
1643: );
1678: x_freight_terms_code => l_dlvy_freight_terms_code
1679: );
1680: --
1681: --
1682: wsh_util_core.api_post_call
1683: (
1684: p_return_status => l_return_status,
1685: x_num_warnings => l_num_warnings,
1686: x_num_errors => l_num_errors
1701: x_freight_terms_code => l_dlvy_freight_terms_code
1702: );
1703: --
1704: --
1705: wsh_util_core.api_post_call
1706: (
1707: p_return_status => l_return_status,
1708: x_num_warnings => l_num_warnings,
1709: x_num_errors => l_num_errors
1727: p_entity_ids => l_entity_ids,
1728: x_return_status => l_return_status
1729: );
1730: --
1731: wsh_util_core.api_post_call
1732: (
1733: p_return_status => l_return_status,
1734: x_num_warnings => l_num_warnings,
1735: x_num_errors => l_num_errors
1736: );
1737: --
1738: IF l_num_errors > 0
1739: THEN
1740: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1741: ELSIF l_num_warnings > 0
1742: THEN
1743: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1744: ELSE
1739: THEN
1740: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1741: ELSIF l_num_warnings > 0
1742: THEN
1743: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1744: ELSE
1745: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1746: END IF;
1747: --
1741: ELSIF l_num_warnings > 0
1742: THEN
1743: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1744: ELSE
1745: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1746: END IF;
1747: --
1748: IF l_debug_on THEN
1749: wsh_debug_sv.pop(l_module_name);
1755: --
1756: WHEN FND_API.G_EXC_ERROR THEN
1757:
1758: ROLLBACK TO split_inbound_delivery_sp;
1759: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1760: --
1761: IF l_debug_on THEN
1762: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1764: END IF;
1765: --
1766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1767:
1768: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1769: ROLLBACK TO split_inbound_delivery_sp;
1770: --
1771: IF l_debug_on THEN
1772: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1772: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1773: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1774: END IF;
1775: --
1776: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1777: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1778: --
1779: IF l_debug_on THEN
1780: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1773: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1774: END IF;
1775: --
1776: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1777: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1778: --
1779: IF l_debug_on THEN
1780: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1781: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1776: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1777: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1778: --
1779: IF l_debug_on THEN
1780: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1781: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1782: END IF;
1783: --
1784: WHEN OTHERS THEN
1777: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1778: --
1779: IF l_debug_on THEN
1780: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1781: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1782: END IF;
1783: --
1784: WHEN OTHERS THEN
1785:
1783: --
1784: WHEN OTHERS THEN
1785:
1786: ROLLBACK TO split_inbound_delivery_sp;
1787: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1788: wsh_util_core.default_handler('split_inbound_delivery', l_module_name);
1789: IF l_debug_on THEN
1790: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1791: END IF;
1784: WHEN OTHERS THEN
1785:
1786: ROLLBACK TO split_inbound_delivery_sp;
1787: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1788: wsh_util_core.default_handler('split_inbound_delivery', l_module_name);
1789: IF l_debug_on THEN
1790: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1791: END IF;
1792: --
1816: --========================================================================
1817: --
1818: PROCEDURE reRateDeliveries
1819: (
1820: p_delivery_id_tab IN wsh_util_core.id_tab_type,
1821: x_return_status OUT NOCOPY VARCHAR2
1822: )
1823: IS
1824: --{
1843: --
1844: --
1845: l_index NUMBER;
1846: --
1847: l_trip_tbl wsh_util_core.key_value_tab_type;
1848: l_trip_ext_tbl wsh_util_core.key_value_tab_type;
1849: --
1850: -- { IB-Phase-2
1851: l_action_params FTE_TRIP_RATING_GRP.action_param_rec;
1844: --
1845: l_index NUMBER;
1846: --
1847: l_trip_tbl wsh_util_core.key_value_tab_type;
1848: l_trip_ext_tbl wsh_util_core.key_value_tab_type;
1849: --
1850: -- { IB-Phase-2
1851: l_action_params FTE_TRIP_RATING_GRP.action_param_rec;
1852: l_msg_count NUMBER;
1877: --
1878: WSH_DEBUG_SV.log(l_module_name,'p_delivery_id_tab.count',p_delivery_id_tab.count);
1879: END IF;
1880: --
1881: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1882: --
1883: --
1884: l_num_warnings := 0;
1885: l_num_errors := 0;
1900: IF trips_Rec.reprice_required = 'Y'
1901: THEN
1902: --{
1903: IF l_debug_on THEN
1904: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_Cached_value',WSH_DEBUG_SV.C_PROC_LEVEL);
1905: END IF;
1906: --
1907: WSH_UTIL_CORE.get_Cached_value
1908: (
1903: IF l_debug_on THEN
1904: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_Cached_value',WSH_DEBUG_SV.C_PROC_LEVEL);
1905: END IF;
1906: --
1907: WSH_UTIL_CORE.get_Cached_value
1908: (
1909: p_cache_tbl => l_trip_tbl,
1910: p_cache_ext_tbl => l_trip_ext_tbl,
1911: p_key => trips_rec.trip_id,
1914: x_return_status => l_return_status
1915: );
1916: --
1917: --
1918: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1919: THEN
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
1922: THEN
1917: --
1918: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1919: THEN
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
1922: THEN
1923: RAISE FND_API.G_EXC_ERROR;
1924: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
1925: THEN
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
1922: THEN
1923: RAISE FND_API.G_EXC_ERROR;
1924: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
1925: THEN
1926: --{
1927: IF l_debug_on THEN
1928: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit FND_REQUEST.SUBMIT_REQUEST',WSH_DEBUG_SV.C_PROC_LEVEL);
1962: ELSE
1963: --{
1964: FND_MESSAGE.SET_NAME('WSH', 'WSH_IB_RATE_TRIP_ERROR');
1965: FND_MESSAGE.SET_TOKEN('TRIP_NAME',trips_rec.name);
1966: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
1967: --}
1968: END IF;
1969: --}
1970: END IF;
1970: END IF;
1971: --
1972: --
1973: IF l_debug_on THEN
1974: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_Cached_value',WSH_DEBUG_SV.C_PROC_LEVEL);
1975: END IF;
1976: --
1977: WSH_UTIL_CORE.get_Cached_value
1978: (
1973: IF l_debug_on THEN
1974: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_Cached_value',WSH_DEBUG_SV.C_PROC_LEVEL);
1975: END IF;
1976: --
1977: WSH_UTIL_CORE.get_Cached_value
1978: (
1979: p_cache_tbl => l_trip_tbl,
1980: p_cache_ext_tbl => l_trip_ext_tbl,
1981: p_key => trips_rec.trip_id,
1987: IF l_debug_on THEN
1988: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1989: END IF;
1990: --
1991: WSH_UTIL_CORE.api_post_call
1992: (
1993: p_return_status => l_return_status,
1994: x_num_warnings => l_num_warnings,
1995: x_num_errors => l_num_errors
2008: THEN
2009: --{
2010: FND_MESSAGE.SET_NAME('WSH', 'WSH_IB_RATE_TRIP_MESSAGE');
2011: FND_MESSAGE.SET_TOKEN('REQ_IDS',l_requestIdList);
2012: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_SUCCESS,l_module_name);
2013: --}
2014: END IF;
2015: --}
2016: --
2028: THEN
2029: --{
2030:
2031: IF l_debug_on THEN
2032: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_Cached_value',WSH_DEBUG_SV.C_PROC_LEVEL);
2033: END IF;
2034: --
2035: WSH_UTIL_CORE.get_Cached_value
2036: (
2031: IF l_debug_on THEN
2032: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_Cached_value',WSH_DEBUG_SV.C_PROC_LEVEL);
2033: END IF;
2034: --
2035: WSH_UTIL_CORE.get_Cached_value
2036: (
2037: p_cache_tbl => l_trip_tbl,
2038: p_cache_ext_tbl => l_trip_ext_tbl,
2039: p_key => trips_rec.trip_id,
2041: p_action => 'GET',
2042: x_return_status => l_return_status
2043: );
2044: --
2045: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2046: THEN
2047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2048: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2049: THEN
2044: --
2045: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2046: THEN
2047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2048: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2049: THEN
2050: RAISE FND_API.G_EXC_ERROR;
2051: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2052: THEN
2047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2048: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2049: THEN
2050: RAISE FND_API.G_EXC_ERROR;
2051: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2052: THEN
2053: --{
2054: l_action_params.trip_id_list(l_action_params.trip_id_list.count + 1) := trips_rec.trip_id;
2055:
2053: --{
2054: l_action_params.trip_id_list(l_action_params.trip_id_list.count + 1) := trips_rec.trip_id;
2055:
2056: IF l_debug_on THEN
2057: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_Cached_value',WSH_DEBUG_SV.C_PROC_LEVEL);
2058: END IF;
2059: --
2060: WSH_UTIL_CORE.get_Cached_value
2061: (
2056: IF l_debug_on THEN
2057: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_Cached_value',WSH_DEBUG_SV.C_PROC_LEVEL);
2058: END IF;
2059: --
2060: WSH_UTIL_CORE.get_Cached_value
2061: (
2062: p_cache_tbl => l_trip_tbl,
2063: p_cache_ext_tbl => l_trip_ext_tbl,
2064: p_key => trips_rec.trip_id,
2068: );
2069: --
2070: IF l_debug_on THEN
2071: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2072: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2073: END IF;
2074: --
2075: wsh_util_core.api_post_call
2076: (
2071: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2072: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2073: END IF;
2074: --
2075: wsh_util_core.api_post_call
2076: (
2077: p_return_status => l_return_status,
2078: x_num_warnings => l_num_warnings,
2079: x_num_errors => l_num_errors
2119: END IF;
2120:
2121: --bugfix 4535358
2122: --{
2123: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2124: THEN
2125: IF l_debug_on THEN
2126: wsh_debug_sv.logmsg(l_module_name, 'Rating has failed');
2127: END IF;
2128: --Even if Rating fails for any Reason, IB will proceed with auto-matching of Receipt by
2129: --reverting to the State before Rating was initiated.
2130: ROLLBACK TO handle_rate_fail_sp;
2131: --
2132: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2133: THEN
2134: l_num_warnings := l_num_warnings + 1;
2135: END IF;
2136: --}
2143: -- } IB-Phase-2
2144: --
2145: IF l_num_errors > 0
2146: THEN
2147: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2148: ELSIF l_num_warnings > 0
2149: THEN
2150: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2151: ELSE
2146: THEN
2147: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2148: ELSIF l_num_warnings > 0
2149: THEN
2150: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2151: ELSE
2152: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2153: END IF;
2154: --
2148: ELSIF l_num_warnings > 0
2149: THEN
2150: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2151: ELSE
2152: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2153: END IF;
2154: --
2155: --
2156: -- Debug Statements
2167:
2168: --ROLLBACK TO open_stop_begin_sp;
2169: --
2170: WSH_INBOUND_UTIL_PKG.G_ASN_RECEIPT_MATCH_TYPE := null; -- IB-Phase-2
2171: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2172: --
2173: IF l_debug_on THEN
2174: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2175: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2179:
2180: --ROLLBACK TO open_stop_begin_sp;
2181: --
2182: WSH_INBOUND_UTIL_PKG.G_ASN_RECEIPT_MATCH_TYPE := null; -- IB-Phase-2
2183: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2184: --
2185: IF l_debug_on THEN
2186: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2187: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2186: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2187: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2188: END IF;
2189: --
2190: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2191: WSH_INBOUND_UTIL_PKG.G_ASN_RECEIPT_MATCH_TYPE := null; -- IB-Phase-2
2192: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2193: --
2194: IF l_debug_on THEN
2188: END IF;
2189: --
2190: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2191: WSH_INBOUND_UTIL_PKG.G_ASN_RECEIPT_MATCH_TYPE := null; -- IB-Phase-2
2192: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2193: --
2194: IF l_debug_on THEN
2195: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2196: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2191: WSH_INBOUND_UTIL_PKG.G_ASN_RECEIPT_MATCH_TYPE := null; -- IB-Phase-2
2192: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2193: --
2194: IF l_debug_on THEN
2195: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2196: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2197: END IF;
2198: WHEN others THEN
2199: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.reRateDeliveries',l_module_name);
2192: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2193: --
2194: IF l_debug_on THEN
2195: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2196: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2197: END IF;
2198: WHEN others THEN
2199: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.reRateDeliveries',l_module_name);
2200: --
2195: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2196: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2197: END IF;
2198: WHEN others THEN
2199: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.reRateDeliveries',l_module_name);
2200: --
2201: --ROLLBACK TO open_stop_begin_sp;
2202: --
2203: WSH_INBOUND_UTIL_PKG.G_ASN_RECEIPT_MATCH_TYPE := null; -- IB-Phase-2
2200: --
2201: --ROLLBACK TO open_stop_begin_sp;
2202: --
2203: WSH_INBOUND_UTIL_PKG.G_ASN_RECEIPT_MATCH_TYPE := null; -- IB-Phase-2
2204: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2205: --
2206: -- Debug Statements
2207: --
2208: IF l_debug_on THEN
2273: WSH_DEBUG_SV.log(l_module_name,'p_shipements_type_flag',p_shipements_type_flag);
2274: WSH_DEBUG_SV.log(l_module_name,'p_action_code',p_action_code);
2275: END IF;
2276: --
2277: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2278: --
2279: --
2280: l_num_warnings := 0;
2281: l_num_errors := 0;
2365: x_stop_processed => x_processed,
2366: x_return_status => l_return_status
2367: );
2368: --
2369: WSH_UTIL_CORE.api_post_call
2370: (
2371: p_return_status => l_return_status,
2372: x_num_warnings => l_num_warnings,
2373: x_num_errors => l_num_errors
2388: END IF;
2389: --
2390: IF l_num_errors > 0
2391: THEN
2392: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2393: ELSIF l_num_warnings > 0
2394: THEN
2395: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2396: ELSE
2391: THEN
2392: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2393: ELSIF l_num_warnings > 0
2394: THEN
2395: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2396: ELSE
2397: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2398: END IF;
2399: --
2393: ELSIF l_num_warnings > 0
2394: THEN
2395: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2396: ELSE
2397: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2398: END IF;
2399: --
2400: --
2401: -- Debug Statements
2411: WHEN FND_API.G_EXC_ERROR THEN
2412:
2413: --ROLLBACK TO open_stop_begin_sp;
2414: --
2415: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2416: --
2417: IF l_debug_on THEN
2418: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2419: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2422: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2423:
2424: --ROLLBACK TO open_stop_begin_sp;
2425: --
2426: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2427: --
2428: IF l_debug_on THEN
2429: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2430: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2429: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2430: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2431: END IF;
2432: --
2433: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2434: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2435: --
2436: IF l_debug_on THEN
2437: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2430: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2431: END IF;
2432: --
2433: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2434: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2435: --
2436: IF l_debug_on THEN
2437: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2438: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2433: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2434: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2435: --
2436: IF l_debug_on THEN
2437: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2438: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2439: END IF;
2440: WHEN others THEN
2441: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.processStop',l_module_name);
2434: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2435: --
2436: IF l_debug_on THEN
2437: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2438: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2439: END IF;
2440: WHEN others THEN
2441: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.processStop',l_module_name);
2442: --
2437: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2438: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2439: END IF;
2440: WHEN others THEN
2441: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.processStop',l_module_name);
2442: --
2443: --ROLLBACK TO open_stop_begin_sp;
2444: --
2445: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2441: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.processStop',l_module_name);
2442: --
2443: --ROLLBACK TO open_stop_begin_sp;
2444: --
2445: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2446: --
2447: -- Debug Statements
2448: --
2449: IF l_debug_on THEN
2456: PROCEDURE setTripStopStatus
2457: (
2458: p_transaction_code IN VARCHAR2 DEFAULT 'RECEIPT',
2459: p_action_code IN VARCHAR2 DEFAULT 'APPLY',
2460: p_delivery_id_tab IN wsh_util_core.id_tab_type,
2461: x_return_status OUT NOCOPY VARCHAR2
2462: )
2463: IS
2464: --{
2535: FROM wsh_trip_stops
2536: WHERE trip_id = p_trip_id
2537: AND status_code <> 'CL';
2538:
2539: l_trip_tbl wsh_util_core.key_value_tab_type;
2540: l_trip_ext_tbl wsh_util_core.key_value_tab_type;
2541: l_stop_count number := 0;
2542: --Bug 3410681 fixed.
2543:
2536: WHERE trip_id = p_trip_id
2537: AND status_code <> 'CL';
2538:
2539: l_trip_tbl wsh_util_core.key_value_tab_type;
2540: l_trip_ext_tbl wsh_util_core.key_value_tab_type;
2541: l_stop_count number := 0;
2542: --Bug 3410681 fixed.
2543:
2544: --
2555: l_index NUMBER;
2556: --
2557: --
2558: l_count NUMBER := 0;
2559: l_dlvy_tbl wsh_util_core.id_tab_type;
2560: --
2561: l_trip_Status_code VARCHAR2(30);
2562: l_stop_processed VARCHAR2(10);
2563: l_allowed VARCHAR2(10);
2592: WSH_DEBUG_SV.log(l_module_name,'p_transaction_code',p_transaction_code);
2593: WSH_DEBUG_SV.log(l_module_name,'p_action_code',p_action_code);
2594: END IF;
2595: --
2596: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2597: --
2598: --
2599: l_num_warnings := 0;
2600: l_num_errors := 0;
2626: l_message_name := NULL;
2627: --
2628:
2629: --Bug 3410681 fixed
2630: wsh_util_core.get_cached_value (
2631: p_cache_tbl => l_trip_tbl,
2632: p_cache_ext_tbl => l_trip_ext_tbl,
2633: p_key => first_leg_rec.trip_id,
2634: p_value => first_leg_rec.trip_id,
2635: p_action => 'PUT',
2636: x_return_status => l_return_status);
2637:
2638: IF l_debug_on THEN
2639: WSH_DEBUG_SV.log(l_module_name,'wsh_util_core.get_cached_value l_return_status',l_return_status);
2640: WSH_DEBUG_SV.log(l_module_name,'l_trip_tbl.count',l_trip_tbl.count);
2641: END IF;
2642:
2643: wsh_util_core.api_post_call
2639: WSH_DEBUG_SV.log(l_module_name,'wsh_util_core.get_cached_value l_return_status',l_return_status);
2640: WSH_DEBUG_SV.log(l_module_name,'l_trip_tbl.count',l_trip_tbl.count);
2641: END IF;
2642:
2643: wsh_util_core.api_post_call
2644: (
2645: p_return_status => l_return_status,
2646: x_num_warnings => l_num_warnings,
2647: x_num_errors => l_num_errors
2667: THEN
2668: --{
2669: FND_MESSAGE.SET_NAME('WSH', l_message_name);
2670: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',first_leg_rec.delivery_name);
2671: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2672: RAISE FND_API.G_EXC_ERROR;
2673: --}
2674: END IF;
2675: --}
2702: THEN
2703: --{
2704: FND_MESSAGE.SET_NAME('WSH', l_message_name);
2705: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',first_leg_rec.delivery_name);
2706: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2707: RAISE FND_API.G_EXC_ERROR;
2708: --}
2709: END IF;
2710: --}
2730: --
2731: IF l_debug_on THEN
2732: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2733: WSH_DEBUG_SV.log(l_module_name,'l_stop_processed',l_stop_processed);
2734: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_util_core.api_post_call',WSH_DEBUG_SV.C_PROC_LEVEL);
2735: END IF;
2736: --
2737: wsh_util_core.api_post_call
2738: (
2733: WSH_DEBUG_SV.log(l_module_name,'l_stop_processed',l_stop_processed);
2734: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_util_core.api_post_call',WSH_DEBUG_SV.C_PROC_LEVEL);
2735: END IF;
2736: --
2737: wsh_util_core.api_post_call
2738: (
2739: p_return_status => l_return_status,
2740: x_num_warnings => l_num_warnings,
2741: x_num_errors => l_num_errors
2770: --
2771: IF l_debug_on THEN
2772: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2773: WSH_DEBUG_SV.log(l_module_name,'l_stop_processed',l_stop_processed);
2774: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_util_core.api_post_call',WSH_DEBUG_SV.C_PROC_LEVEL);
2775: END IF;
2776: --
2777: wsh_util_core.api_post_call
2778: (
2773: WSH_DEBUG_SV.log(l_module_name,'l_stop_processed',l_stop_processed);
2774: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_util_core.api_post_call',WSH_DEBUG_SV.C_PROC_LEVEL);
2775: END IF;
2776: --
2777: wsh_util_core.api_post_call
2778: (
2779: p_return_status => l_return_status,
2780: x_num_warnings => l_num_warnings,
2781: x_num_errors => l_num_errors
2798: LOOP
2799: --{
2800:
2801: --Bug 3410681 fixed
2802: wsh_util_core.get_cached_value (
2803: p_cache_tbl => l_trip_tbl,
2804: p_cache_ext_tbl => l_trip_ext_tbl,
2805: p_key => next_leg_rec.trip_id,
2806: p_value => next_leg_rec.trip_id,
2807: p_action => 'PUT',
2808: x_return_status => l_return_status);
2809:
2810: IF l_debug_on THEN
2811: WSH_DEBUG_SV.log(l_module_name,'wsh_util_core.get_cached_value l_return_status',l_return_status);
2812: WSH_DEBUG_SV.log(l_module_name,'l_trip_tbl.count',l_trip_tbl.count);
2813: END IF;
2814:
2815: wsh_util_core.api_post_call (
2811: WSH_DEBUG_SV.log(l_module_name,'wsh_util_core.get_cached_value l_return_status',l_return_status);
2812: WSH_DEBUG_SV.log(l_module_name,'l_trip_tbl.count',l_trip_tbl.count);
2813: END IF;
2814:
2815: wsh_util_core.api_post_call (
2816: p_return_status => l_return_status,
2817: x_num_warnings => l_num_warnings,
2818: x_num_errors => l_num_errors);
2819:
2838: --
2839: IF l_debug_on THEN
2840: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2841: WSH_DEBUG_SV.log(l_module_name,'l_stop_processed',l_stop_processed);
2842: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_util_core.api_post_call',WSH_DEBUG_SV.C_PROC_LEVEL);
2843: END IF;
2844: --
2845: wsh_util_core.api_post_call
2846: (
2841: WSH_DEBUG_SV.log(l_module_name,'l_stop_processed',l_stop_processed);
2842: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_util_core.api_post_call',WSH_DEBUG_SV.C_PROC_LEVEL);
2843: END IF;
2844: --
2845: wsh_util_core.api_post_call
2846: (
2847: p_return_status => l_return_status,
2848: x_num_warnings => l_num_warnings,
2849: x_num_errors => l_num_errors
2877: --
2878: IF l_debug_on THEN
2879: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2880: WSH_DEBUG_SV.log(l_module_name,'l_stop_processed',l_stop_processed);
2881: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_util_core.api_post_call',WSH_DEBUG_SV.C_PROC_LEVEL);
2882: END IF;
2883: --
2884: wsh_util_core.api_post_call
2885: (
2880: WSH_DEBUG_SV.log(l_module_name,'l_stop_processed',l_stop_processed);
2881: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_util_core.api_post_call',WSH_DEBUG_SV.C_PROC_LEVEL);
2882: END IF;
2883: --
2884: wsh_util_core.api_post_call
2885: (
2886: p_return_status => l_return_status,
2887: x_num_warnings => l_num_warnings,
2888: x_num_errors => l_num_errors
2968: --
2969: --
2970: IF l_debug_on THEN
2971: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2972: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2973: END IF;
2974: --
2975: --
2976: wsh_util_core.api_post_call
2972: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2973: END IF;
2974: --
2975: --
2976: wsh_util_core.api_post_call
2977: (
2978: p_return_status => l_return_status,
2979: x_num_warnings => l_num_warnings,
2980: x_num_errors => l_num_errors
2996: --
2997: --
2998: IF l_debug_on THEN
2999: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3000: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3001: END IF;
3002: --
3003: --
3004: wsh_util_core.api_post_call
3000: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3001: END IF;
3002: --
3003: --
3004: wsh_util_core.api_post_call
3005: (
3006: p_return_status => l_return_status,
3007: x_num_warnings => l_num_warnings,
3008: x_num_errors => l_num_errors
3029:
3030: IF (l_stop_count > 0) THEN
3031: FND_MESSAGE.SET_NAME('WSH', 'WSH_IB_TRIP_NOT_CLOSE');
3032: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(l_index));
3033: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
3034:
3035: l_num_warnings := l_num_warnings + 1;
3036: l_stop_count := 0;
3037: END IF;
3047: FETCH stop_csr INTO l_stop_count;
3048: IF (l_stop_count > 0) THEN
3049: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_NOT_CLOSE');
3050: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(l_index));
3051: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
3052: l_num_warnings := l_num_warnings + 1;
3053: l_stop_count := 0;
3054: END IF;
3055: CLOSE stop_csr;
3068: END IF;
3069: --
3070: IF l_num_errors > 0
3071: THEN
3072: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3073: ELSIF l_num_warnings > 0
3074: THEN
3075: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3076: ELSE
3071: THEN
3072: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3073: ELSIF l_num_warnings > 0
3074: THEN
3075: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3076: ELSE
3077: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3078: END IF;
3079: --
3073: ELSIF l_num_warnings > 0
3074: THEN
3075: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3076: ELSE
3077: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3078: END IF;
3079: --
3080: --
3081: -- Debug Statements
3091: WHEN FND_API.G_EXC_ERROR THEN
3092:
3093: --ROLLBACK TO open_stop_begin_sp;
3094: --
3095: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3096: --
3097: IF l_debug_on THEN
3098: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3099: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3103:
3104: --ROLLBACK TO open_stop_begin_sp;
3105: --
3106: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3107: --
3108: IF l_debug_on THEN
3109: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3110: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3109: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3110: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3111: END IF;
3112: --
3113: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3114: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3115: --
3116: IF l_debug_on THEN
3117: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3110: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3111: END IF;
3112: --
3113: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3114: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3115: --
3116: IF l_debug_on THEN
3117: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3118: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3113: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3114: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3115: --
3116: IF l_debug_on THEN
3117: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3118: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3119: END IF;
3120: WHEN others THEN
3121: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.setTripStopStatus',l_module_name);
3114: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3115: --
3116: IF l_debug_on THEN
3117: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3118: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3119: END IF;
3120: WHEN others THEN
3121: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.setTripStopStatus',l_module_name);
3122: --
3117: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3118: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3119: END IF;
3120: WHEN others THEN
3121: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.setTripStopStatus',l_module_name);
3122: --
3123: --ROLLBACK TO open_stop_begin_sp;
3124: --
3125: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3121: wsh_util_core.default_handler('WSH_INBOUND_UTIL_PKG.setTripStopStatus',l_module_name);
3122: --
3123: --ROLLBACK TO open_stop_begin_sp;
3124: --
3125: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3126: --
3127: -- Debug Statements
3128: --
3129: IF l_debug_on THEN
3202: END IF;
3203: --
3204:
3205:
3206: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3207:
3208: --assigning p_quanity to x_conv quantity
3209: x_conv_qty := p_quantity;
3210:
3243: from_uom => p_qty_uom_code,
3244: to_uom => p_primary_uom_code,
3245: quantity => p_quantity,
3246: item_id => p_inv_item_id,
3247: p_max_decimal_digits => WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS);-- RV DEC_QTY
3248:
3249:
3250: -- HW OPMCONV - Removed code forking
3251:
3262: --
3263:
3264: EXCEPTION
3265: WHEN OTHERS THEN
3266: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3267: WSH_UTIL_CORE.Default_Handler('WSH_INBOUND_UTIL_PKG.convert_quantity',l_module_name);
3268: IF l_debug_on THEN
3269: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3270: END IF;
3263:
3264: EXCEPTION
3265: WHEN OTHERS THEN
3266: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3267: WSH_UTIL_CORE.Default_Handler('WSH_INBOUND_UTIL_PKG.convert_quantity',l_module_name);
3268: IF l_debug_on THEN
3269: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3270: END IF;
3271:
3351: END IF;
3352: --
3353:
3354:
3355: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3356: x_outermost_lpn := NULL;
3357: x_outermost_lpn_name := NULL;
3358:
3359: --The loop goes up by one LPN level(Parent LPN) for the given i/p LPN, during each iteration of the loop.
3388: --
3389:
3390: EXCEPTION
3391: WHEN OTHERS THEN
3392: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3393: WSH_UTIL_CORE.Default_Handler('WSH_INBOUND_UTIL_PKG.GET_OUTERMOST_LPN',l_module_name);
3394: IF l_debug_on THEN
3395: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3396: END IF;
3389:
3390: EXCEPTION
3391: WHEN OTHERS THEN
3392: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3393: WSH_UTIL_CORE.Default_Handler('WSH_INBOUND_UTIL_PKG.GET_OUTERMOST_LPN',l_module_name);
3394: IF l_debug_on THEN
3395: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3396: END IF;
3397: