39: WSH_DEBUG_SV.log(l_module_name,'count ',
40: p_line_rec.ship_from_location_id.COUNT);
41: END IF;
42: --
43: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
44:
45: i := p_line_rec.ship_from_location_id.FIRST;
46: WHILE i IS NOT NULL LOOP
47:
162: END IF;
163:
164: EXCEPTION
165: WHEN OTHERS THEN
166: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
167: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.clear_wsh_prev_tabs');
168: --
169: IF l_debug_on THEN
170: WSH_DEBUG_SV.log(l_module_name,'i ',i);
163:
164: EXCEPTION
165: WHEN OTHERS THEN
166: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
167: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.clear_wsh_prev_tabs');
168: --
169: IF l_debug_on THEN
170: WSH_DEBUG_SV.log(l_module_name,'i ',i);
171: WSH_DEBUG_SV.log(l_module_name,'l_debug_num ',l_debug_num);
198: --========================================================================
199: PROCEDURE calc_service_mode(
200: p_line_rec IN OUT NOCOPY OE_WSH_BULK_GRP.line_rec_type,
201: p_cache_tbl IN OUT NOCOPY
202: wsh_util_core.char500_tab_type,
203: p_cache_ext_tbl IN OUT NOCOPY
204: wsh_util_core.char500_tab_type,
205: p_index IN NUMBER,
206: p_additional_line_info_rec IN OUT NOCOPY
200: p_line_rec IN OUT NOCOPY OE_WSH_BULK_GRP.line_rec_type,
201: p_cache_tbl IN OUT NOCOPY
202: wsh_util_core.char500_tab_type,
203: p_cache_ext_tbl IN OUT NOCOPY
204: wsh_util_core.char500_tab_type,
205: p_index IN NUMBER,
206: p_additional_line_info_rec IN OUT NOCOPY
207: additional_line_info_rec_type,
208: x_return_status OUT NOCOPY VARCHAR2)
233: p_line_rec.shipping_method_code(p_index));
234: WSH_DEBUG_SV.log(l_module_name,'p_index ',p_index);
235: END IF;
236: --
237: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
238: l_ship_method_code := p_line_rec.shipping_method_code(p_index);
239: IF l_ship_method_code IS NOT NULL THEN --{
240: wsh_util_core.get_cached_value(
241: p_cache_tbl=> p_cache_tbl,
236: --
237: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
238: l_ship_method_code := p_line_rec.shipping_method_code(p_index);
239: IF l_ship_method_code IS NOT NULL THEN --{
240: wsh_util_core.get_cached_value(
241: p_cache_tbl=> p_cache_tbl,
242: p_cache_ext_tbl => p_cache_ext_tbl,
243: p_value => l_ship_method_code,
244: p_key => l_index,
244: p_key => l_index,
245: p_action => 'GET',
246: x_return_status => l_return_status) ;
247:
248: wsh_util_core.api_post_call(
249: p_return_status => l_return_status,
250: x_num_warnings => l_num_warnings,
251: x_num_errors => l_num_errors);
252: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN --{
248: wsh_util_core.api_post_call(
249: p_return_status => l_return_status,
250: x_num_warnings => l_num_warnings,
251: x_num_errors => l_num_errors);
252: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN --{
253: --the information is not cached, so calculate it
254: l_carrier_rec.ship_method_code := l_ship_method_code;
255:
256: WSH_CARRIERS_GRP.get_carrier_service_mode(
255:
256: WSH_CARRIERS_GRP.get_carrier_service_mode(
257: p_carrier_service_inout_rec => l_carrier_rec,
258: x_return_status => l_return_status);
259: wsh_util_core.api_post_call(
260: p_return_status => l_return_status,
261: x_num_warnings => l_num_warnings,
262: x_num_errors => l_num_errors);
263:
278: WSH_DEBUG_SV.log(l_module_name,'calculated mode_of_transport ',
279: p_additional_line_info_rec.mode_of_transport(p_index));
280: END IF;
281: --insert the values into the cache
282: wsh_util_core.get_cached_value(
283: p_cache_tbl=> p_cache_tbl,
284: p_cache_ext_tbl => p_cache_ext_tbl,
285: p_value => l_ship_method_code,
286: p_key => p_index,
310: END IF;
311: EXCEPTION
312:
313: WHEN OTHERS THEN
314: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
315: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.calc_service_mode');
316: --
317: IF l_debug_on THEN
318: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
311: EXCEPTION
312:
313: WHEN OTHERS THEN
314: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
315: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.calc_service_mode');
316: --
317: IF l_debug_on THEN
318: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
319: 'Oracle error message is '||
377: WSH_DEBUG_SV.log(l_module_name,'p_index',p_index);
378: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.header_id.COUNT',p_line_rec.header_id.COUNT);
379: END IF;
380: --
381: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
382:
383: /*bms create a message WSH_REQUIRED_FIELDS_NULL saying
384: Fields and FIELD_NAME cannot be null
385: */
424: END IF;
425:
426: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELDS_NULL');
427: FND_MESSAGE.SET_TOKEN('FIELD_NAMES',l_token);
428: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
429: wsh_util_core.add_message(x_return_status, l_module_name);
430:
431: END IF;
432:
425:
426: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELDS_NULL');
427: FND_MESSAGE.SET_TOKEN('FIELD_NAMES',l_token);
428: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
429: wsh_util_core.add_message(x_return_status, l_module_name);
430:
431: END IF;
432:
433: IF l_debug_on THEN
436:
437: EXCEPTION
438:
439: WHEN OTHERS THEN
440: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
441: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.check_null_fields');
442: --
443: IF l_debug_on THEN
444: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
437: EXCEPTION
438:
439: WHEN OTHERS THEN
440: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
441: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.check_null_fields');
442: --
443: IF l_debug_on THEN
444: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
445: 'Oracle error message is '||
504: IF l_debug_on THEN
505: wsh_debug_sv.push (l_module_name);
506: END IF;
507:
508: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
509:
510: IF (p_line_rec.inventory_item_id(p_index) is NULL) THEN --{
511: IF (p_line_rec.requested_quantity(p_index) is null ) THEN
512: p_line_rec.requested_quantity_uom(p_index) :=
527: IF l_token IS NOT NULL THEN
528:
529: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
530: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_token);
531: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,
532: l_module_name);
533:
534: RAISE FND_API.G_EXC_ERROR;
535:
548: p_inventory_item_id => p_line_rec.inventory_item_id(p_index),
549: x_Item_info_rec => v_item_info_rec,
550: x_return_status => l_return_status);
551:
552: wsh_util_core.api_post_call(
553: p_return_status => l_return_status,
554: x_num_warnings => l_num_warnings,
555: x_num_errors => l_num_errors);
556:
571: IF p_line_rec.requested_quantity(p_index) IS NULL THEN
572: -- RV DEC_QTY
573: IF (p_action_prms.caller = 'PO') THEN
574: --{
575: l_max_decimal_digits := WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS;
576: --}
577: ELSE
578: --{
579: l_max_decimal_digits := WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS_INV;
575: l_max_decimal_digits := WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS;
576: --}
577: ELSE
578: --{
579: l_max_decimal_digits := WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS_INV;
580: --}
581: END IF;
582: -- RV DEC_QTY
583: p_line_rec.requested_quantity(p_index) :=
610: --bms new message: containers cannot be imported.
611:
612: IF(l_item_type = 'CONT_ITEM') THEN
613: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_ITEM_TYPE');
614: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,
615: l_module_name);
616: RAISE FND_API.G_EXC_ERROR;
617: END IF;
618: END IF; --}
627:
628: IF l_token IS NOT NULL THEN
629: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
630: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_token);
631: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
632:
633: IF l_debug_on THEN
634: WSH_DEBUG_SV.log(l_module_name,'l_token ',l_token);
635: END IF;
647:
648: EXCEPTION
649:
650: WHEN FND_API.G_EXC_ERROR THEN
651: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
652: --
653: IF l_debug_on THEN
654: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
655: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
656: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
657: END IF;
658: --
659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
660: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
661: --
662: IF l_debug_on THEN
663: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. ' ||
664: 'Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
664: 'Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
665: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
666: END IF;
667:
668: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
669: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
670: --
671: IF l_debug_on THEN
672: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
665: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
666: END IF;
667:
668: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
669: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
670: --
671: IF l_debug_on THEN
672: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
673: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
668: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
669: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
670: --
671: IF l_debug_on THEN
672: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
673: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
674: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
675: END IF;
676: --
670: --
671: IF l_debug_on THEN
672: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
673: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
674: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
675: END IF;
676: --
677:
678: WHEN OTHERS THEN
675: END IF;
676: --
677:
678: WHEN OTHERS THEN
679: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
680: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.Calc_wt_vol_qty');
681: --
682: IF l_debug_on THEN
683: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
676: --
677:
678: WHEN OTHERS THEN
679: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
680: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.Calc_wt_vol_qty');
681: --
682: IF l_debug_on THEN
683: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
684: 'Oracle error message is '||
756: END IF;
757:
758: --
759:
760: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
761: l_action_prms := p_action_prms;
762:
763: IF l_debug_on THEN
764: WSH_DEBUG_SV.log(l_module_name,'count of wsh managed tables ',
770: IF p_action_prms.caller = 'OM' AND p_line_rec.ship_from_location_id.COUNT > 0 THEN
771:
772: clear_wsh_prev_tabs(p_line_rec => p_line_rec,
773: x_return_status => l_return_status);
774: wsh_util_core.api_post_call(
775: p_return_status => l_return_status,
776: x_num_warnings => l_num_warnings,
777: x_num_errors => l_num_errors);
778:
785: x_additional_line_info_rec => l_additional_line_info_rec,
786: x_return_status => l_return_status
787: );
788:
789: wsh_util_core.api_post_call(
790: p_return_status => l_return_status,
791: x_num_warnings => l_num_warnings,
792: x_num_errors => l_num_errors);
793:
857: x_eligible_rec_exist => l_eligible_rec_exist,
858: X_return_status => l_return_status
859: );
860:
861: wsh_util_core.api_post_call(
862: p_return_status => l_return_status,
863: x_num_warnings => l_num_warnings,
864: x_num_errors => l_num_errors);
865:
920: THEN
921: --
922: IF l_debug_on THEN
923: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
924: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
925: END IF;
926: --
927: wsh_util_core.api_post_call
928: (
923: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
924: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
925: END IF;
926: --
927: wsh_util_core.api_post_call
928: (
929: p_return_status => l_return_status,
930: x_num_warnings => l_num_warnings,
931: x_num_errors => l_num_errors
967: END IF;
968:
969: x_return_status := l_return_status;
970:
971: wsh_util_core.api_post_call(
972: p_return_status => l_return_status,
973: x_num_warnings => l_num_warnings,
974: x_num_errors => l_num_errors);
975: END IF; --}
981: END IF;
982: --
983: IF l_num_errors > 0
984: THEN
985: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
986: ELSIF l_num_warnings > 0
987: THEN
988: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
989: ELSE
984: THEN
985: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
986: ELSIF l_num_warnings > 0
987: THEN
988: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
989: ELSE
990: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
991: END IF;
992:
986: ELSIF l_num_warnings > 0
987: THEN
988: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
989: ELSE
990: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
991: END IF;
992:
993: IF l_debug_on THEN
994: WSH_DEBUG_SV.pop(l_module_name);
995: END IF;
996: --
997: EXCEPTION
998: WHEN FND_API.G_EXC_ERROR THEN
999: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1000: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1001: --
1002: IF l_debug_on THEN
1003: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
996: --
997: EXCEPTION
998: WHEN FND_API.G_EXC_ERROR THEN
999: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1000: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1001: --
1002: IF l_debug_on THEN
1003: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
1004: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1005: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1006: END IF;
1007: --
1008: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1009: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1010: --
1011: IF l_debug_on THEN
1012: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. ' ||
1013: 'Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1013: 'Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1014: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1015: END IF;
1016:
1017: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1018: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1019: --
1020: IF l_debug_on THEN
1021: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
1014: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1015: END IF;
1016:
1017: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1018: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1019: --
1020: IF l_debug_on THEN
1021: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
1022: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1017: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1018: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1019: --
1020: IF l_debug_on THEN
1021: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
1022: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1023: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1024: END IF;
1025: --
1019: --
1020: IF l_debug_on THEN
1021: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
1022: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1023: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1024: END IF;
1025: --
1026:
1027: WHEN OTHERS THEN
1024: END IF;
1025: --
1026:
1027: WHEN OTHERS THEN
1028: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1029: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.Create_delivery_details');
1030: --
1031: IF l_debug_on THEN
1032: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
1025: --
1026:
1027: WHEN OTHERS THEN
1028: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1029: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.Create_delivery_details');
1030: --
1031: IF l_debug_on THEN
1032: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
1033: 'Oracle error message is '||
1080: --
1081: IF l_debug_on THEN
1082: wsh_debug_sv.push (l_module_name);
1083: END IF;
1084: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1085: --
1086: x_table_count := p_line_rec.line_id.COUNT;
1087: IF l_debug_on THEN
1088: WSH_DEBUG_SV.log(l_module_name,'x_table_count ',x_table_count);
2938: END IF;
2939:
2940: EXCEPTION
2941: WHEN FND_API.G_EXC_ERROR THEN
2942: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2943: --
2944: IF l_debug_on THEN
2945: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
2946: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2947: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2948: END IF;
2949: --
2950: WHEN e_extend_error THEN
2951: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2952: FND_MESSAGE.SET_NAME('WSH','WSH_TBL_EXTEND_ERR');
2953: FND_MESSAGE.SET_TOKEN('TBL_NAME',l_field_name);
2954: wsh_util_core.add_message(x_return_status, l_module_name);
2955: --
2950: WHEN e_extend_error THEN
2951: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2952: FND_MESSAGE.SET_NAME('WSH','WSH_TBL_EXTEND_ERR');
2953: FND_MESSAGE.SET_TOKEN('TBL_NAME',l_field_name);
2954: wsh_util_core.add_message(x_return_status, l_module_name);
2955: --
2956: IF l_debug_on THEN
2957: WSH_DEBUG_SV.log(l_module_name,'l_field_name ',l_field_name);
2958: WSH_DEBUG_SV.log(l_module_name,'l_count ',l_count);
2958: WSH_DEBUG_SV.log(l_module_name,'l_count ',l_count);
2959: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_extend_error');
2960: END IF;
2961: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2962: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2963: --
2964: IF l_debug_on THEN
2965: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. ' ||
2966: 'Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2966: 'Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2967: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2968: END IF;
2969:
2970: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2971: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2972: --
2973: IF l_debug_on THEN
2974: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
2967: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2968: END IF;
2969:
2970: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2971: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2972: --
2973: IF l_debug_on THEN
2974: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
2975: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2970: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2971: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2972: --
2973: IF l_debug_on THEN
2974: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
2975: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2976: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2977: END IF;
2978: --
2972: --
2973: IF l_debug_on THEN
2974: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
2975: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2976: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2977: END IF;
2978: --
2979:
2980: WHEN OTHERS THEN
2977: END IF;
2978: --
2979:
2980: WHEN OTHERS THEN
2981: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2982: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.Extend_tables');
2983: --
2984: IF l_debug_on THEN
2985: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
2978: --
2979:
2980: WHEN OTHERS THEN
2981: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2982: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.Extend_tables');
2983: --
2984: IF l_debug_on THEN
2985: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
2986: 'Oracle error message is '||
3038: l_stack_size_start NUMBER;
3039: l_first NUMBER;
3040: l_tp_is_installed VARCHAR2(10);
3041: l_otm_is_installed VARCHAR2(10);
3042: l_cache_tbl wsh_util_core.char500_tab_type;
3043: l_cache_ext_tbl wsh_util_core.char500_tab_type;
3044: l_index NUMBER;
3045: l_caller varchar2(2000);
3046: --OTM R12 Org-Specific
3039: l_first NUMBER;
3040: l_tp_is_installed VARCHAR2(10);
3041: l_otm_is_installed VARCHAR2(10);
3042: l_cache_tbl wsh_util_core.char500_tab_type;
3043: l_cache_ext_tbl wsh_util_core.char500_tab_type;
3044: l_index NUMBER;
3045: l_caller varchar2(2000);
3046: --OTM R12 Org-Specific
3047: l_gc3_is_installed VARCHAR2(1);
3065: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed ',l_gc3_is_installed); --OTM R12 Org-Specific.
3066: END IF;
3067:
3068: --OTM R12 Org-Specific start.
3069: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3070: IF l_gc3_is_installed IS NULL THEN
3071: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3072: END IF;
3073: IF l_debug_on THEN
3067:
3068: --OTM R12 Org-Specific start.
3069: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3070: IF l_gc3_is_installed IS NULL THEN
3071: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3072: END IF;
3073: IF l_debug_on THEN
3074: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed ',l_gc3_is_installed);
3075: END IF;
3074: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed ',l_gc3_is_installed);
3075: END IF;
3076: --OTM R12 End
3077:
3078: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3079: x_valid_rec_exist := 0;
3080: x_eligible_rec_exist := 0;
3081:
3082: WSH_ACTIONS_LEVELS.set_validation_level (
3085: p_phase => nvl(p_action_prms.phase,1),
3086: p_action => p_action_prms.action_code,
3087: x_return_status => l_return_status);
3088: --
3089: wsh_util_core.api_post_call(
3090: p_return_status => l_return_status,
3091: x_num_warnings => l_num_warnings,
3092: x_num_errors => l_num_errors);
3093:
3113: WSH_DEBUG_SV.C_EXCEP_LEVEL);
3114: END IF;
3115: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
3116: FND_MESSAGE.SET_TOKEN('FIELD_NAME','ORG_ID');
3117: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,
3118: l_module_name);
3119: RAISE FND_API.G_EXC_ERROR;
3120: END IF;
3121:
3130: END LOOP;
3131: --bms what to do for inbound
3132: END IF;
3133:
3134: l_tp_is_installed := wsh_util_core.tp_is_installed ;
3135: l_otm_is_installed := wsh_util_core.gc3_is_installed ;
3136: IF l_tp_is_installed = 'Y' OR l_otm_is_installed = 'Y' THEN
3137: IF l_debug_on THEN
3138: WSH_DEBUG_SV.log(l_module_name,'l_tp_is_installed',l_tp_is_installed);
3131: --bms what to do for inbound
3132: END IF;
3133:
3134: l_tp_is_installed := wsh_util_core.tp_is_installed ;
3135: l_otm_is_installed := wsh_util_core.gc3_is_installed ;
3136: IF l_tp_is_installed = 'Y' OR l_otm_is_installed = 'Y' THEN
3137: IF l_debug_on THEN
3138: WSH_DEBUG_SV.log(l_module_name,'l_tp_is_installed',l_tp_is_installed);
3139: END IF;
3147: p_default_context => l_dff_context,
3148: p_update_flag => l_dff_update_flag,
3149: x_return_status => l_return_status);
3150:
3151: wsh_util_core.api_post_call(
3152: p_return_status => l_return_status,
3153: x_num_warnings => l_num_warnings,
3154: x_num_errors => l_num_errors);
3155:
3190: check_null_fields(p_line_rec => p_line_rec,
3191: p_index => i,
3192: x_return_status => l_return_status);
3193:
3194: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3195: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3196: THEN
3197: p_line_rec.shipping_interfaced_flag(i) := 'N';
3198: END IF;
3191: p_index => i,
3192: x_return_status => l_return_status);
3193:
3194: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3195: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3196: THEN
3197: p_line_rec.shipping_interfaced_flag(i) := 'N';
3198: END IF;
3199: END IF;
3199: END IF;
3200:
3201: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_GET_SHIP_FROM_LOC_LVL) = 1
3202: THEN
3203: WSH_UTIL_CORE.GET_LOCATION_ID('ORG',
3204: p_line_rec.organization_id(i),
3205: p_line_rec.ship_from_location_id(i),
3206: l_return_status);
3207: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3203: WSH_UTIL_CORE.GET_LOCATION_ID('ORG',
3204: p_line_rec.organization_id(i),
3205: p_line_rec.ship_from_location_id(i),
3206: l_return_status);
3207: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3208: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3209: THEN
3210: p_line_rec.shipping_interfaced_flag(i) := 'N';
3211: END IF;
3204: p_line_rec.organization_id(i),
3205: p_line_rec.ship_from_location_id(i),
3206: l_return_status);
3207: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3208: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3209: THEN
3210: p_line_rec.shipping_interfaced_flag(i) := 'N';
3211: END IF;
3212: END IF;
3213:
3214:
3215: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_GET_SHIPTO_LOC_LVL) = 1
3216: THEN
3217: WSH_UTIL_CORE.GET_LOCATION_ID('CUSTOMER SITE',
3218: p_line_rec.ship_to_org_id(i),
3219: p_line_rec.ship_to_location_id(i),
3220: l_return_status);
3221: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3217: WSH_UTIL_CORE.GET_LOCATION_ID('CUSTOMER SITE',
3218: p_line_rec.ship_to_org_id(i),
3219: p_line_rec.ship_to_location_id(i),
3220: l_return_status);
3221: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3222: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3223: THEN
3224: p_line_rec.shipping_interfaced_flag(i) := 'N';
3225: END IF;
3218: p_line_rec.ship_to_org_id(i),
3219: p_line_rec.ship_to_location_id(i),
3220: l_return_status);
3221: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3222: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3223: THEN
3224: p_line_rec.shipping_interfaced_flag(i) := 'N';
3225: END IF;
3226: END IF;
3227:
3228: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_GET_DELIVER_TO_LOC_LVL) = 1
3229: THEN
3230: IF p_line_rec.deliver_to_org_id(i) IS NOT NULL THEN
3231: WSH_UTIL_CORE.GET_LOCATION_ID('CUSTOMER SITE',
3232: p_line_rec.deliver_to_org_id(i),
3233: p_line_rec.deliver_to_location_id(i),
3234: l_return_status);
3235: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3231: WSH_UTIL_CORE.GET_LOCATION_ID('CUSTOMER SITE',
3232: p_line_rec.deliver_to_org_id(i),
3233: p_line_rec.deliver_to_location_id(i),
3234: l_return_status);
3235: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3236: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3237: THEN
3238: p_line_rec.shipping_interfaced_flag(i) := 'N';
3239: END IF;
3232: p_line_rec.deliver_to_org_id(i),
3233: p_line_rec.deliver_to_location_id(i),
3234: l_return_status);
3235: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3236: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3237: THEN
3238: p_line_rec.shipping_interfaced_flag(i) := 'N';
3239: END IF;
3240:
3247:
3248: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_GET_INTMED_SHIPTO_LOC_LVL) = 1
3249: THEN
3250: IF p_line_rec.intermed_ship_to_org_id(i) IS NOT NULL THEN
3251: WSH_UTIL_CORE.GET_LOCATION_ID('CUSTOMER SITE',
3252: p_line_rec.intermed_ship_to_org_id(i),
3253: p_line_rec.intmed_ship_to_location_id(i),
3254: l_return_status);
3255: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3251: WSH_UTIL_CORE.GET_LOCATION_ID('CUSTOMER SITE',
3252: p_line_rec.intermed_ship_to_org_id(i),
3253: p_line_rec.intmed_ship_to_location_id(i),
3254: l_return_status);
3255: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3256: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3257: THEN
3258: p_line_rec.shipping_interfaced_flag(i) := 'N';
3259: END IF;
3252: p_line_rec.intermed_ship_to_org_id(i),
3253: p_line_rec.intmed_ship_to_location_id(i),
3254: l_return_status);
3255: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3256: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3257: THEN
3258: p_line_rec.shipping_interfaced_flag(i) := 'N';
3259: END IF;
3260: END IF;
3273: p_caller => l_caller,
3274: x_return_status => l_return_status,
3275: p_isWshLocation => FALSE);
3276:
3277: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3278: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3279: THEN
3280: p_line_rec.shipping_interfaced_flag(i) := 'N';
3281: END IF;
3274: x_return_status => l_return_status,
3275: p_isWshLocation => FALSE);
3276:
3277: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3278: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3279: THEN
3280: p_line_rec.shipping_interfaced_flag(i) := 'N';
3281: END IF;
3282: END IF;
3295: p_caller => l_caller,
3296: x_return_status => l_return_status,
3297: p_isWshLocation => FALSE);
3298:
3299: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3300: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3301: THEN
3302: p_line_rec.shipping_interfaced_flag(i) := 'N';
3303: END IF;
3296: x_return_status => l_return_status,
3297: p_isWshLocation => FALSE);
3298:
3299: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3300: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3301: THEN
3302: p_line_rec.shipping_interfaced_flag(i) := 'N';
3303: END IF;
3304: END IF;
3311: p_action_prms => p_action_prms,
3312: x_return_status => l_return_status);
3313:
3314:
3315: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3316: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3317: THEN
3318: p_line_rec.shipping_interfaced_flag(i) := 'N';
3319: END IF;
3312: x_return_status => l_return_status);
3313:
3314:
3315: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3316: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3317: THEN
3318: p_line_rec.shipping_interfaced_flag(i) := 'N';
3319: END IF;
3320: END IF;
3347: p_line_rec => p_line_rec,
3348: p_index =>i,
3349: x_return_status => l_return_status
3350: );
3351: wsh_util_core.api_post_call(
3352: p_return_status => l_return_status,
3353: x_num_warnings => l_num_warnings,
3354: x_num_errors => l_num_errors);
3355:
3373: p_additional_line_info_rec =>
3374: p_additional_line_info_rec,
3375: x_return_status => l_return_status);
3376:
3377: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3378: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3379: THEN
3380: p_line_rec.shipping_interfaced_flag(i) := 'N';
3381: END IF;
3374: p_additional_line_info_rec,
3375: x_return_status => l_return_status);
3376:
3377: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3378: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3379: THEN
3380: p_line_rec.shipping_interfaced_flag(i) := 'N';
3381: END IF;
3382: END IF; --}
3420: p_additional_line_info_rec.earliest_dropoff_date(i),
3421: x_latest_dropoff_date =>
3422: p_additional_line_info_rec.latest_dropoff_date(i));
3423:
3424: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3425: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3426: THEN
3427: IF l_debug_on THEN
3428: WSH_DEBUG_SV.logmsg(l_module_name,
3421: x_latest_dropoff_date =>
3422: p_additional_line_info_rec.latest_dropoff_date(i));
3423:
3424: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3425: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3426: THEN
3427: IF l_debug_on THEN
3428: WSH_DEBUG_SV.logmsg(l_module_name,
3429: 'Error in calculating TP dates');
3429: 'Error in calculating TP dates');
3430: END IF;
3431: p_line_rec.shipping_interfaced_flag(i) := 'N';
3432: FND_MESSAGE.SET_NAME('WSH','WSH_CALC_TP_DATES');
3433: WSH_UTIL_CORE.Add_Message(l_return_status,l_module_name);
3434: END IF;
3435: --skattama
3436: IF (p_additional_line_info_rec.earliest_pickup_date(i) > p_additional_line_info_rec.latest_pickup_date(i)) THEN
3437: p_additional_line_info_rec.latest_pickup_tpdate_excep(i) := p_additional_line_info_rec.latest_pickup_date(i);
3453: THEN
3454:
3455: IF p_line_rec.org_id(i) <> p_line_rec.org_id(p_line_rec.org_id.FIRST) then
3456: FND_MESSAGE.SET_NAME('WSH','WSH_ORG_ID_INVALID');
3457: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
3458: RAISE FND_API.G_EXC_ERROR;
3459: END IF;
3460: END IF;
3461:
3472: p_index =>i,
3473: x_return_status => l_return_status
3474: );
3475:
3476: wsh_util_core.api_post_call(
3477: p_return_status => l_return_status,
3478: x_num_warnings => l_num_warnings,
3479: x_num_errors => l_num_errors);
3480: END IF;
3488: p_line_rec => p_line_rec,
3489: p_index =>i,
3490: x_return_status => l_return_status
3491: );
3492: wsh_util_core.api_post_call(
3493: p_return_status => l_return_status,
3494: x_num_warnings => l_num_warnings,
3495: x_num_errors => l_num_errors);
3496:
3508: p_caller => l_caller,
3509: x_return_status => l_return_status,
3510: p_isWshLocation => FALSE);
3511:
3512: wsh_util_core.api_post_call(
3513: p_return_status => l_return_status,
3514: x_num_warnings => l_num_warnings,
3515: x_num_errors => l_num_errors);
3516:
3522: WSH_UTIL_VALIDATE.validate_fob(
3523: p_fob => p_line_rec.fob_point_code(i),
3524: x_return_status => l_return_status);
3525:
3526: wsh_util_core.api_post_call(
3527: p_return_status => l_return_status,
3528: x_num_warnings => l_num_warnings,
3529: x_num_errors => l_num_errors);
3530: END IF;
3535: WSH_UTIL_VALIDATE.validate_freight_terms(
3536: p_freight_terms_code => p_line_rec.freight_terms_code(i),
3537: x_return_status => l_return_status);
3538:
3539: wsh_util_core.api_post_call(
3540: p_return_status => l_return_status,
3541: x_num_warnings => l_num_warnings,
3542: x_num_errors => l_num_errors);
3543:
3552: p_index => i,
3553: p_action_prms => p_action_prms,
3554: x_return_status => l_return_status);
3555:
3556: wsh_util_core.api_post_call(
3557: p_return_status => l_return_status,
3558: x_num_warnings => l_num_warnings,
3559: x_num_errors => l_num_errors);
3560: ELSIF (p_line_rec.inventory_item_id(i) is NULL) THEN
3677: x_detail_container_item_id =>
3678: p_additional_line_info_rec.detail_container_item_id(i),
3679: x_return_status => l_return_status);
3680:
3681: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3682: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3683: THEN
3684: p_line_rec.shipping_interfaced_flag(i) := 'N';
3685: END IF;
3678: p_additional_line_info_rec.detail_container_item_id(i),
3679: x_return_status => l_return_status);
3680:
3681: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3682: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3683: THEN
3684: p_line_rec.shipping_interfaced_flag(i) := 'N';
3685: END IF;
3686: END IF;
3718: END IF;
3719:
3720: EXCEPTION
3721: WHEN FND_API.G_EXC_ERROR THEN
3722: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3723: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
3724: --
3725: IF l_debug_on THEN
3726: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
3719:
3720: EXCEPTION
3721: WHEN FND_API.G_EXC_ERROR THEN
3722: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3723: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
3724: --
3725: IF l_debug_on THEN
3726: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
3727: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3728: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3729: END IF;
3730: --
3731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3732: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3733: --
3734: IF l_debug_on THEN
3735: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. ' ||
3736: 'Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3736: 'Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3737: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3738: END IF;
3739:
3740: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3741: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3742: --
3743: IF l_debug_on THEN
3744: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
3737: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3738: END IF;
3739:
3740: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3741: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3742: --
3743: IF l_debug_on THEN
3744: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
3745: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3740: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3741: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3742: --
3743: IF l_debug_on THEN
3744: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
3745: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3746: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3747: END IF;
3748: --
3742: --
3743: IF l_debug_on THEN
3744: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
3745: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3746: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3747: END IF;
3748: --
3749:
3750: WHEN OTHERS THEN
3747: END IF;
3748: --
3749:
3750: WHEN OTHERS THEN
3751: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3752: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.Validate_lines');
3753: --
3754: IF l_debug_on THEN
3755: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
3748: --
3749:
3750: WHEN OTHERS THEN
3751: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3752: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.Validate_lines');
3753: --
3754: IF l_debug_on THEN
3755: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
3756: 'Oracle error message is '||
3791: l_fnd_global_user_id NUMBER := FND_GLOBAL.USER_ID;
3792: l_sysdate DATE;
3793: l_line_rec_count NUMBER;
3794: l_rec_inserted_count NUMBER;
3795: l_valid_ids wsh_util_core.Id_Tab_Type;
3796: l_invalid_ids wsh_util_core.Id_Tab_Type;
3797: l_first NUMBER;
3798: l_last NUMBER;
3799: l_count NUMBER;
3792: l_sysdate DATE;
3793: l_line_rec_count NUMBER;
3794: l_rec_inserted_count NUMBER;
3795: l_valid_ids wsh_util_core.Id_Tab_Type;
3796: l_invalid_ids wsh_util_core.Id_Tab_Type;
3797: l_first NUMBER;
3798: l_last NUMBER;
3799: l_count NUMBER;
3800: l_eligible_count NUMBER := 0;
3802: -- HW OPM BUG#:3064890 HVOP for OPM
3803: -- HW OPMCONV. Removed OPM variable
3804:
3805: l_del_det_id_tab OE_WSH_BULK_GRP.T_NUM := OE_WSH_BULK_GRP.T_NUM();
3806: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
3807: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
3808: -- end of changes for 3064890
3809:
3810: --OTM R12
3809:
3810: --OTM R12
3811: l_delivery_detail_tab WSH_ENTITY_INFO_TAB;
3812: l_return_status VARCHAR2(1);
3813: l_item_quantity_uom_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
3814: l_gc3_is_installed VARCHAR2(1);
3815: l_tab_index NUMBER;
3816: --
3817: l_otm_installed VARCHAR2(1) ;
3834: l_line_rec_count);
3835: WSH_DEBUG_SV.log(l_module_name,'p_index ', p_index);
3836: END IF;
3837:
3838: l_otm_installed := WSH_UTIL_CORE.Get_Otm_Install_Profile_Value;
3839: IF l_otm_installed IN ( 'Y','P')
3840: AND NVL(p_action_prms.caller,'PO') <> 'OM'
3841: THEN
3842: RAISE e_success;
3841: THEN
3842: RAISE e_success;
3843: END IF;
3844:
3845: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3846:
3847: --OTM R12 initialize
3848: l_count := 0;
3849: l_tab_index := 1;
3847: --OTM R12 initialize
3848: l_count := 0;
3849: l_tab_index := 1;
3850: i := 0;
3851: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3852: IF l_gc3_is_installed IS NULL THEN
3853: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3854: END IF;
3855: IF (l_gc3_is_installed = 'Y') THEN
3849: l_tab_index := 1;
3850: i := 0;
3851: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3852: IF l_gc3_is_installed IS NULL THEN
3853: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3854: END IF;
3855: IF (l_gc3_is_installed = 'Y') THEN
3856: l_delivery_detail_tab := WSH_ENTITY_INFO_TAB();
3857: END IF;
4250:
4251: IF l_debug_on THEN
4252: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
4253: END IF;
4254: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4255: -- just pass this return status to caller API
4256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4257: END IF;
4258: -- End of Code for DBI Project
4415: IF l_eligible_count <> l_valid_ids.COUNT THEN
4416: --return warning if there were some record that did not pass validations
4417: --For the case all the records were invalid, this API is
4418: --not even called
4419: RAISE wsh_util_core.G_EXC_WARNING;
4420: END IF;
4421:
4422: --OTM R12 calling delivery detail splitter if records exist, l_tab_index incremented
4423: IF (l_gc3_is_installed = 'Y' AND l_tab_index > 1) THEN
4436: -- we will not fail based on l_return_status here because
4437: -- we do not want to stop the flow
4438: -- if the detail doesn't split, it will be caught later in
4439: -- delivery splitting and will have exception on the detail
4440: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4441: IF l_debug_on THEN
4442: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery detail split failed' );
4443: END IF;
4444: END IF;
4453:
4454: EXCEPTION
4455:
4456: WHEN e_success THEN
4457: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4458: --
4459: IF l_debug_on THEN
4460: WSH_DEBUG_SV.pop(l_module_name,'e_success');
4461: END IF;
4460: WSH_DEBUG_SV.pop(l_module_name,'e_success');
4461: END IF;
4462:
4463: WHEN FND_API.G_EXC_ERROR THEN
4464: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4465: --
4466: IF l_debug_on THEN
4467: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
4468: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4469: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4470: END IF;
4471: --
4472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4473: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4474: --
4475: IF l_debug_on THEN
4476: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. ' ||
4477: 'Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4477: 'Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4478: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4479: END IF;
4480:
4481: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4482: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4483: --
4484: IF l_debug_on THEN
4485: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
4478: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4479: END IF;
4480:
4481: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4482: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4483: --
4484: IF l_debug_on THEN
4485: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
4486: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4481: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4482: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4483: --
4484: IF l_debug_on THEN
4485: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
4486: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4487: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4488: END IF;
4489: --
4483: --
4484: IF l_debug_on THEN
4485: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING '||
4486: 'exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4487: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4488: END IF;
4489: --
4490:
4491: WHEN OTHERS THEN
4491: WHEN OTHERS THEN
4492: IF l_debug_on THEN
4493: WSH_DEBUG_SV.log(l_module_name,'inside when others - count of p_line_recs p_del det id ', p_line_rec.delivery_detail_id.count);
4494: END IF;
4495: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4496: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.bulk_insert_details');
4497: --
4498: IF l_debug_on THEN
4499: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4492: IF l_debug_on THEN
4493: WSH_DEBUG_SV.log(l_module_name,'inside when others - count of p_line_recs p_del det id ', p_line_rec.delivery_detail_id.count);
4494: END IF;
4495: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4496: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.bulk_insert_details');
4497: --
4498: IF l_debug_on THEN
4499: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4500: 'Oracle error message is '||
4573: FND_MESSAGE.SET_TOKEN('HEADER_NUMBER',
4574: p_line_rec.source_header_number(p_index));
4575: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',
4576: p_line_rec.source_line_number(p_index));
4577: wsh_util_core.add_message(wsh_util_core.g_ret_sts_success,
4578: l_module_name);
4579: END IF;
4580: X_stack_size_start := FND_MSG_PUB.Count_Msg;
4581: IF l_debug_on THEN
4592: FND_MESSAGE.SET_TOKEN('HEADER_NUMBER',
4593: p_line_rec.source_header_number(p_index));
4594: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',
4595: p_line_rec.source_line_number(p_index));
4596: wsh_util_core.add_message(wsh_util_core.g_ret_sts_success,
4597: l_module_name);
4598: ELSE --}{
4599: p_line_rec.error_message_count(p_index) := l_msg_count -
4600: X_stack_size_start;
4616:
4617: EXCEPTION
4618:
4619: WHEN OTHERS THEN
4620: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4621: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.Set_message');
4622: --
4623: IF l_debug_on THEN
4624: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4617: EXCEPTION
4618:
4619: WHEN OTHERS THEN
4620: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4621: wsh_util_core.default_handler('WSH_BULK_PROCESS_PVT.Set_message');
4622: --
4623: IF l_debug_on THEN
4624: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4625: 'Oracle error message is '||
4712: --
4713: WSH_DEBUG_SV.log(l_module_name,'P_INDEX',P_INDEX);
4714: END IF;
4715: --
4716: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4717:
4718: IF p_line_rec.ordered_quantity( p_index) IS NULL THEN
4719: l_token := 'ORDERED QUANTITY';
4720: raise l_exc_mandatory;
4776: -- 2 means a blanket PO.
4777: IF ( p_line_rec.source_header_type_id(p_index) <> 1 )AND
4778: ( p_line_rec.source_header_type_id(p_index) <> 2 ) THEN
4779: FND_MESSAGE.SET_NAME('WSH','WSH_IB_INVALID_SRC_HDR_TP');
4780: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
4781: RAISE FND_API.G_EXC_ERROR;
4782: END IF;
4783:
4784:
4788: IF ( p_line_rec.source_blanket_reference_id(p_index) IS NOT NULL ) OR
4789: ( p_line_rec.source_blanket_reference_num(p_index) IS NOT NULL) THEN
4790: FND_MESSAGE.SET_NAME('WSH','WSH_IB_BLANKET_VAL_NOT_NULL');
4791: FND_MESSAGE.SET_TOKEN('PONUM',p_line_rec.source_header_number(p_index));
4792: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
4793: RAISE FND_API.G_EXC_ERROR;
4794: END IF;
4795: END IF;
4796: --end of code for Bug # 3188208
4817: raise l_exc_mandatory;
4818: ELSIF p_line_rec.source_line_type_code(p_index) <> 'GB' AND
4819: p_line_rec.source_line_type_code(p_index) <> 'GB_OSP' THEN
4820: FND_MESSAGE.SET_NAME('WSH','WSH_IB_INVALID_SOURCE_LINE_TYPE');
4821: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
4822: RAISE FND_API.G_EXC_ERROR;
4823: END IF;
4824:
4825: --
4851: ELSIF p_line_rec.shipping_control(p_index) <> 'BUYER'
4852: AND p_line_rec.shipping_control(p_index) <> 'SUPPLIER' THEN
4853:
4854: FND_MESSAGE.SET_NAME('WSH','WSH_IB_INVALID_SHIPPING_CNTRL');
4855: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR);
4856: RAISE FND_API.G_EXC_ERROR;
4857: END IF;
4858: --
4859:
4867: EXCEPTION
4868: WHEN l_exc_mandatory THEN
4869: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
4870: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_token);
4871: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4872: wsh_util_core.add_message(x_return_status,l_module_name);
4873:
4874: --
4875: -- Debug Statements
4868: WHEN l_exc_mandatory THEN
4869: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
4870: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_token);
4871: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4872: wsh_util_core.add_message(x_return_status,l_module_name);
4873:
4874: --
4875: -- Debug Statements
4876: --
4879: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:L_EXC_MANDATORY');
4880: END IF;
4881: --
4882: WHEN FND_API.G_EXC_ERROR THEN
4883: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4884:
4885: --
4886: -- Debug Statements
4887: --
4890: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4891: END IF;
4892: --
4893: WHEN OTHERS THEN
4894: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4895: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_BULK_PROCESS_PVT.validate_mandatory_info',l_module_name);
4896:
4897: --
4898: -- Debug Statements
4891: END IF;
4892: --
4893: WHEN OTHERS THEN
4894: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4895: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_BULK_PROCESS_PVT.validate_mandatory_info',l_module_name);
4896:
4897: --
4898: -- Debug Statements
4899: --