[Home] [Help]
30: BEGIN
31: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
32: IF l_debug_on IS NULL
33: THEN
34: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
35: END IF;
36: --
37: IF l_debug_on THEN
38: wsh_debug_sv.push (l_module_name);
34: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
35: END IF;
36: --
37: IF l_debug_on THEN
38: wsh_debug_sv.push (l_module_name);
39: WSH_DEBUG_SV.log(l_module_name,'count ',
40: p_line_rec.ship_from_location_id.COUNT);
41: END IF;
42: --
35: END IF;
36: --
37: IF l_debug_on THEN
38: wsh_debug_sv.push (l_module_name);
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;
157: i := p_line_rec.ship_from_location_id.NEXT(i);
158:
159: END LOOP;
160: IF l_debug_on THEN
161: WSH_DEBUG_SV.pop(l_module_name);
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);
171: WSH_DEBUG_SV.log(l_module_name,'l_debug_num ',l_debug_num);
172: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
173: 'Oracle error message is '||
174: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
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);
172: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
173: 'Oracle error message is '||
174: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
175: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
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);
172: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
173: 'Oracle error message is '||
174: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
175: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
176: END IF;
170: WSH_DEBUG_SV.log(l_module_name,'i ',i);
171: WSH_DEBUG_SV.log(l_module_name,'l_debug_num ',l_debug_num);
172: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
173: 'Oracle error message is '||
174: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
175: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
176: END IF;
177: END clear_wsh_prev_tabs;
178:
171: WSH_DEBUG_SV.log(l_module_name,'l_debug_num ',l_debug_num);
172: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
173: 'Oracle error message is '||
174: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
175: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
176: END IF;
177: END clear_wsh_prev_tabs;
178:
179:
223: BEGIN
224: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
225: IF l_debug_on IS NULL
226: THEN
227: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
228: END IF;
229: --
230: IF l_debug_on THEN
231: wsh_debug_sv.push (l_module_name);
227: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
228: END IF;
229: --
230: IF l_debug_on THEN
231: wsh_debug_sv.push (l_module_name);
232: WSH_DEBUG_SV.log(l_module_name,'ship_method_code ',
233: p_line_rec.shipping_method_code(p_index));
234: WSH_DEBUG_SV.log(l_module_name,'p_index ',p_index);
235: END IF;
228: END IF;
229: --
230: IF l_debug_on THEN
231: wsh_debug_sv.push (l_module_name);
232: WSH_DEBUG_SV.log(l_module_name,'ship_method_code ',
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: --
230: IF l_debug_on THEN
231: wsh_debug_sv.push (l_module_name);
232: WSH_DEBUG_SV.log(l_module_name,'ship_method_code ',
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);
270: END IF;
271: p_additional_line_info_rec.service_level(p_index) := l_carrier_rec.service_level;
272: p_additional_line_info_rec.mode_of_transport(p_index) := l_carrier_rec.mode_of_transport;
273: IF l_debug_on THEN
274: WSH_DEBUG_SV.log(l_module_name,'generic_flag ',
275: l_carrier_rec.generic_flag);
276: WSH_DEBUG_SV.log(l_module_name,'calculated service level ',
277: p_additional_line_info_rec.service_level(p_index));
278: WSH_DEBUG_SV.log(l_module_name,'calculated mode_of_transport ',
272: p_additional_line_info_rec.mode_of_transport(p_index) := l_carrier_rec.mode_of_transport;
273: IF l_debug_on THEN
274: WSH_DEBUG_SV.log(l_module_name,'generic_flag ',
275: l_carrier_rec.generic_flag);
276: WSH_DEBUG_SV.log(l_module_name,'calculated service level ',
277: p_additional_line_info_rec.service_level(p_index));
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;
274: WSH_DEBUG_SV.log(l_module_name,'generic_flag ',
275: l_carrier_rec.generic_flag);
276: WSH_DEBUG_SV.log(l_module_name,'calculated service level ',
277: p_additional_line_info_rec.service_level(p_index));
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(
299: END IF; --}
300: END IF; --}
301:
302: IF l_debug_on THEN
303: WSH_DEBUG_SV.log(l_module_name,'service level ',
304: p_additional_line_info_rec.service_level(p_index));
305: WSH_DEBUG_SV.log(l_module_name,'mode of transport ',
306: p_additional_line_info_rec.mode_of_transport(p_index));
307: WSH_DEBUG_SV.log(l_module_name,'shipping_method_code ',
301:
302: IF l_debug_on THEN
303: WSH_DEBUG_SV.log(l_module_name,'service level ',
304: p_additional_line_info_rec.service_level(p_index));
305: WSH_DEBUG_SV.log(l_module_name,'mode of transport ',
306: p_additional_line_info_rec.mode_of_transport(p_index));
307: WSH_DEBUG_SV.log(l_module_name,'shipping_method_code ',
308: p_line_rec.shipping_method_code(p_index));
309: WSH_DEBUG_SV.pop(l_module_name);
303: WSH_DEBUG_SV.log(l_module_name,'service level ',
304: p_additional_line_info_rec.service_level(p_index));
305: WSH_DEBUG_SV.log(l_module_name,'mode of transport ',
306: p_additional_line_info_rec.mode_of_transport(p_index));
307: WSH_DEBUG_SV.log(l_module_name,'shipping_method_code ',
308: p_line_rec.shipping_method_code(p_index));
309: WSH_DEBUG_SV.pop(l_module_name);
310: END IF;
311: EXCEPTION
305: WSH_DEBUG_SV.log(l_module_name,'mode of transport ',
306: p_additional_line_info_rec.mode_of_transport(p_index));
307: WSH_DEBUG_SV.log(l_module_name,'shipping_method_code ',
308: p_line_rec.shipping_method_code(p_index));
309: WSH_DEBUG_SV.pop(l_module_name);
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. '||
319: 'Oracle error message is '||
320: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
321: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
322: END IF;
316: --
317: IF l_debug_on THEN
318: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
319: 'Oracle error message is '||
320: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
321: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
322: END IF;
323: END calc_service_mode;
324:
317: IF l_debug_on THEN
318: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
319: 'Oracle error message is '||
320: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
321: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
322: END IF;
323: END calc_service_mode;
324:
325:
368:
369: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
370: IF l_debug_on IS NULL
371: THEN
372: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
373: END IF;
374: --
375: IF l_debug_on THEN
376: wsh_debug_sv.push (l_module_name);
372: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
373: END IF;
374: --
375: IF l_debug_on THEN
376: wsh_debug_sv.push (l_module_name);
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: --
373: END IF;
374: --
375: IF l_debug_on THEN
376: wsh_debug_sv.push (l_module_name);
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;
374: --
375: IF l_debug_on THEN
376: wsh_debug_sv.push (l_module_name);
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:
419:
420: -- If true, it implies that certain field(s) are NULL.
421: IF l_token IS NOT NULL THEN
422: IF l_debug_on THEN
423: WSH_DEBUG_SV.log(l_module_name,'l_token ',l_token);
424: END IF;
425:
426: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELDS_NULL');
427: FND_MESSAGE.SET_TOKEN('FIELD_NAMES',l_token);
430:
431: END IF;
432:
433: IF l_debug_on THEN
434: WSH_DEBUG_SV.pop(l_module_name);
435: END IF;
436:
437: EXCEPTION
438:
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 '||
446: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
447: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
448: END IF;
442: --
443: IF l_debug_on THEN
444: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
445: 'Oracle error message is '||
446: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
447: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
448: END IF;
449: END check_null_fields;
450:
443: IF l_debug_on THEN
444: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
445: 'Oracle error message is '||
446: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
447: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
448: END IF;
449: END check_null_fields;
450:
451:
497:
498: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
499: IF l_debug_on IS NULL
500: THEN
501: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
502: END IF;
503: --
504: IF l_debug_on THEN
505: wsh_debug_sv.push (l_module_name);
501: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
502: END IF;
503: --
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:
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;
636:
637: RAISE FND_API.G_EXC_ERROR;
638: END IF;
637: RAISE FND_API.G_EXC_ERROR;
638: END IF;
639:
640: IF l_debug_on THEN
641: WSH_DEBUG_SV.log(l_module_name,'requeste_quantity ',
642: P_line_rec.requested_quantity(p_index));
643: WSH_DEBUG_SV.log(l_module_name,'requested_quantity_uom',
644: P_line_rec.requested_quantity_uom(p_index));
645: WSH_DEBUG_SV.pop(l_module_name);
639:
640: IF l_debug_on THEN
641: WSH_DEBUG_SV.log(l_module_name,'requeste_quantity ',
642: P_line_rec.requested_quantity(p_index));
643: WSH_DEBUG_SV.log(l_module_name,'requested_quantity_uom',
644: P_line_rec.requested_quantity_uom(p_index));
645: WSH_DEBUG_SV.pop(l_module_name);
646: END IF;
647:
641: WSH_DEBUG_SV.log(l_module_name,'requeste_quantity ',
642: P_line_rec.requested_quantity(p_index));
643: WSH_DEBUG_SV.log(l_module_name,'requested_quantity_uom',
644: P_line_rec.requested_quantity_uom(p_index));
645: WSH_DEBUG_SV.pop(l_module_name);
646: 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: --
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
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 ;
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);
665: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
666: END IF;
667:
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);
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
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);
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;
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: --
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: --
677:
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
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 '||
685: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
686: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
687: END IF;
681: --
682: IF l_debug_on THEN
683: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
684: 'Oracle error message is '||
685: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
686: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
687: END IF;
688:
689: END Calc_wt_vol_qty;
682: IF l_debug_on THEN
683: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
684: 'Oracle error message is '||
685: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
686: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
687: END IF;
688:
689: END Calc_wt_vol_qty;
690:
747:
748: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
749: IF l_debug_on IS NULL
750: THEN
751: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
752: END IF;
753: --
754: IF l_debug_on THEN
755: wsh_debug_sv.push (l_module_name);
751: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
752: END IF;
753: --
754: IF l_debug_on THEN
755: wsh_debug_sv.push (l_module_name);
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 ',
765: p_line_rec.ship_from_location_id.COUNT);
766: WSH_DEBUG_SV.log(l_module_name,'Caller',p_action_prms.caller);
767: WSH_DEBUG_SV.log(l_module_name,'Action Code',p_action_prms.action_code);
768: END IF;
762:
763: IF l_debug_on THEN
764: WSH_DEBUG_SV.log(l_module_name,'count of wsh managed tables ',
765: p_line_rec.ship_from_location_id.COUNT);
766: WSH_DEBUG_SV.log(l_module_name,'Caller',p_action_prms.caller);
767: WSH_DEBUG_SV.log(l_module_name,'Action Code',p_action_prms.action_code);
768: END IF;
769:
770: IF p_action_prms.caller = 'OM' AND p_line_rec.ship_from_location_id.COUNT > 0 THEN
763: IF l_debug_on THEN
764: WSH_DEBUG_SV.log(l_module_name,'count of wsh managed tables ',
765: p_line_rec.ship_from_location_id.COUNT);
766: WSH_DEBUG_SV.log(l_module_name,'Caller',p_action_prms.caller);
767: WSH_DEBUG_SV.log(l_module_name,'Action Code',p_action_prms.action_code);
768: END IF;
769:
770: IF p_action_prms.caller = 'OM' AND p_line_rec.ship_from_location_id.COUNT > 0 THEN
771:
819:
820: IF p_action_prms.action_code = 'APPROVE_PO' THEN
821:
822: IF l_debug_on THEN
823: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.vendor_id(p_line_rec.vendor_id.FIRST)',p_line_rec.vendor_id(p_line_rec.vendor_id.FIRST));
824: END IF;
825:
826: --To find the party ID for the given Vendor ID.
827: l_vendor_party_exists := WSH_SUPPLIER_PARTY.VENDOR_PARTY_EXISTS(
828: p_vendor_id => p_line_rec.vendor_id(p_line_rec.vendor_id.FIRST),
829: x_party_id => l_vendor_party_id);
830:
831: IF l_debug_on THEN
832: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.vendor_id(p_line_rec.vendor_id.FIRST)',p_line_rec.vendor_id(p_line_rec.vendor_id.FIRST));
833: WSH_DEBUG_SV.log(l_module_name,'l_vendor_party_exists',l_vendor_party_exists);
834: WSH_DEBUG_SV.log(l_module_name,'l_vendor_party_id',l_vendor_party_id);
835: END IF;
836:
829: x_party_id => l_vendor_party_id);
830:
831: IF l_debug_on THEN
832: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.vendor_id(p_line_rec.vendor_id.FIRST)',p_line_rec.vendor_id(p_line_rec.vendor_id.FIRST));
833: WSH_DEBUG_SV.log(l_module_name,'l_vendor_party_exists',l_vendor_party_exists);
834: WSH_DEBUG_SV.log(l_module_name,'l_vendor_party_id',l_vendor_party_id);
835: END IF;
836:
837:
830:
831: IF l_debug_on THEN
832: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.vendor_id(p_line_rec.vendor_id.FIRST)',p_line_rec.vendor_id(p_line_rec.vendor_id.FIRST));
833: WSH_DEBUG_SV.log(l_module_name,'l_vendor_party_exists',l_vendor_party_exists);
834: WSH_DEBUG_SV.log(l_module_name,'l_vendor_party_id',l_vendor_party_id);
835: END IF;
836:
837:
838: IF l_vendor_party_exists = 'N' THEN
838: IF l_vendor_party_exists = 'N' THEN
839: -- { IB-Phase-2
840: --If party not exists, throw an error message and return.
841: IF l_debug_on THEN
842: WSH_DEBUG_SV.log(l_module_name,'Party does not Exist for the Vendor ');
843: END IF;
844: raise fnd_api.g_exc_error;
845: -- } IB-Phase-2
846: END IF;
863: x_num_warnings => l_num_warnings,
864: x_num_errors => l_num_errors);
865:
866: IF l_debug_on THEN
867: WSH_DEBUG_SV.log(l_module_name,'l_valid_rec_exist ',l_valid_rec_exist);
868: WSH_DEBUG_SV.log(l_module_name,'l_eligible_rec_exist ',
869: l_eligible_rec_exist);
870: END IF;
871:
864: x_num_errors => l_num_errors);
865:
866: IF l_debug_on THEN
867: WSH_DEBUG_SV.log(l_module_name,'l_valid_rec_exist ',l_valid_rec_exist);
868: WSH_DEBUG_SV.log(l_module_name,'l_eligible_rec_exist ',
869: l_eligible_rec_exist);
870: END IF;
871:
872: IF l_valid_rec_exist = 0 THEN --{
881: /* if no lines were validated successfully, and no lines were
882: eligible then return success */
883:
884: IF l_debug_on THEN
885: WSH_DEBUG_SV.pop(l_module_name);
886: END IF;
887: RETURN;
888: END IF;
889: ELSE --}{
887: RETURN;
888: END IF;
889: ELSE --}{
890: IF l_debug_on THEN
891: WSH_DEBUG_SV.logmsg(l_module_name,'calling bulk insert');
892: WSH_DEBUG_SV.log(l_module_name,'action code ', p_action_prms.action_code);
893: END IF;
894:
895: --Added for Inbound Logistics
888: END IF;
889: ELSE --}{
890: IF l_debug_on THEN
891: WSH_DEBUG_SV.logmsg(l_module_name,'calling bulk insert');
892: WSH_DEBUG_SV.log(l_module_name,'action code ', p_action_prms.action_code);
893: END IF;
894:
895: --Added for Inbound Logistics
896: IF p_action_prms.action_code = 'APPROVE_PO' or
919: IF p_action_prms.action_code = 'APPROVE_PO'
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
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: (
934: --
935: l_action_prms1.caller := 'PO_INTG';
936: --
937: IF l_debug_on THEN
938: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_IB_TXN_MATCH_PKG.handlePriorReceipts',WSH_DEBUG_SV.C_PROC_LEVEL);
939: END IF;
940: --
941: --
942: WSH_IB_TXN_MATCH_PKG.handlePriorReceipts
975: END IF; --}
976:
977: --
978: IF l_debug_on THEN
979: WSH_DEBUG_SV.logmsg(l_module_name,
980: 'Number of Errors='||l_num_errors||',Number of Warnings='||l_num_warnings);
981: END IF;
982: --
983: IF l_num_errors > 0
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 '
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: --
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
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 ;
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);
1014: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1015: END IF;
1016:
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);
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
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);
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;
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: --
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: --
1026:
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
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 '||
1034: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1035: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1036: END IF;
1030: --
1031: IF l_debug_on THEN
1032: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
1033: 'Oracle error message is '||
1034: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1035: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1036: END IF;
1037:
1038: END Create_delivery_details;
1031: IF l_debug_on THEN
1032: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
1033: 'Oracle error message is '||
1034: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1035: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1036: END IF;
1037:
1038: END Create_delivery_details;
1039:
1074: --
1075: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1076: IF l_debug_on IS NULL
1077: THEN
1078: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1079: END IF;
1080: --
1081: IF l_debug_on THEN
1082: wsh_debug_sv.push (l_module_name);
1078: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1079: END IF;
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;
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);
1089: WSH_DEBUG_SV.log(l_module_name,'caller is ',p_action_prms.caller);
1090: END IF;
1091:
1092: IF x_table_count = 0 THEN
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);
1089: WSH_DEBUG_SV.log(l_module_name,'caller is ',p_action_prms.caller);
1090: END IF;
1091:
1092: IF x_table_count = 0 THEN
1093: --bms do we need to set some message
2132: IF p_line_rec.shipping_eligible_flag.COUNT = 0 THEN --{
2133:
2134: IF p_action_prms.caller = 'OM' THEN
2135: IF l_debug_on THEN
2136: WSH_DEBUG_SV.log(l_module_name,'x_table_count ',x_table_count);
2137: END IF;
2138: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2139: END IF;
2140:
2415: p_line_rec.mvt_stat_status.EXTEND(x_table_count - l_count);
2416: END IF;
2417: END IF;
2418: IF l_debug_on THEN
2419: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs p_del det id before extending it', p_line_rec.delivery_detail_id.count);
2420: END IF;
2421:
2422: l_count := p_line_rec.delivery_detail_id.COUNT;
2423: IF p_line_rec.delivery_detail_id.COUNT <> x_table_count THEN
2429: p_line_rec.delivery_detail_id.EXTEND(x_table_count - l_count);
2430: END IF;
2431: END IF;
2432: IF l_debug_on THEN
2433: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs p_del det id after extending it', p_line_rec.delivery_detail_id.count);
2434: END IF;
2435:
2436: l_count := p_line_rec.inspection_flag.COUNT;
2437: IF p_line_rec.inspection_flag.COUNT <> x_table_count THEN
2806: END IF;
2807: END IF;
2808:
2809: IF l_debug_on THEN
2810: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs vendor_party_id before extending it', p_line_rec.vendor_party_id.COUNT);
2811: WSH_DEBUG_SV.log(l_module_name,'x_table_count', x_table_count);
2812: END IF;
2813:
2814: l_count := p_line_rec.vendor_party_id.COUNT;
2807: END IF;
2808:
2809: IF l_debug_on THEN
2810: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs vendor_party_id before extending it', p_line_rec.vendor_party_id.COUNT);
2811: WSH_DEBUG_SV.log(l_module_name,'x_table_count', x_table_count);
2812: END IF;
2813:
2814: l_count := p_line_rec.vendor_party_id.COUNT;
2815: IF p_line_rec.vendor_party_id.COUNT <> x_table_count THEN
2821: p_line_rec.vendor_party_id.EXTEND(x_table_count - l_count);
2822: END IF;
2823: END IF;
2824: IF l_debug_on THEN
2825: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs vendor_party_id after extending it', p_line_rec.vendor_party_id.COUNT);
2826: END IF;
2827:
2828: l_count := p_line_rec.Days_early_receipt_allowed.COUNT;
2829: IF p_line_rec.Days_early_receipt_allowed.COUNT <> x_table_count THEN
2933: x_additional_line_info_rec.detail_container_item_id.EXTEND(x_table_count);
2934: --}
2935: END IF;
2936: IF l_debug_on THEN
2937: WSH_DEBUG_SV.pop(l_module_name);
2938: END IF;
2939:
2940: EXCEPTION
2941: WHEN FND_API.G_EXC_ERROR THEN
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: --
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
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 ;
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);
2959: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_extend_error');
2960: END IF;
2961: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
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 ;
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);
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: --
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);
2967: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2968: END IF;
2969:
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);
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
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);
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;
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: --
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: --
2979:
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
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 '||
2987: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2988: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2989: END IF;
2983: --
2984: IF l_debug_on THEN
2985: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
2986: 'Oracle error message is '||
2987: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2988: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2989: END IF;
2990:
2991:
2984: IF l_debug_on THEN
2985: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
2986: 'Oracle error message is '||
2987: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2988: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2989: END IF;
2990:
2991:
2992: END Extend_tables;
3051:
3052: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3053: IF l_debug_on IS NULL
3054: THEN
3055: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3056: END IF;
3057: --
3058:
3059: IF l_debug_on THEN
3056: END IF;
3057: --
3058:
3059: IF l_debug_on THEN
3060: wsh_debug_sv.push (l_module_name);
3061: WSH_DEBUG_SV.log(l_module_name,'caller ',p_action_prms.caller);
3062: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.org_id',
3063: p_action_prms.org_id);
3064: WSH_DEBUG_SV.log(l_module_name,'line_rec org_id ',p_line_rec.org_id(p_line_rec.org_id.FIRST));
3057: --
3058:
3059: IF l_debug_on THEN
3060: wsh_debug_sv.push (l_module_name);
3061: WSH_DEBUG_SV.log(l_module_name,'caller ',p_action_prms.caller);
3062: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.org_id',
3063: p_action_prms.org_id);
3064: WSH_DEBUG_SV.log(l_module_name,'line_rec org_id ',p_line_rec.org_id(p_line_rec.org_id.FIRST));
3065: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed ',l_gc3_is_installed); --OTM R12 Org-Specific.
3058:
3059: IF l_debug_on THEN
3060: wsh_debug_sv.push (l_module_name);
3061: WSH_DEBUG_SV.log(l_module_name,'caller ',p_action_prms.caller);
3062: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.org_id',
3063: p_action_prms.org_id);
3064: WSH_DEBUG_SV.log(l_module_name,'line_rec org_id ',p_line_rec.org_id(p_line_rec.org_id.FIRST));
3065: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed ',l_gc3_is_installed); --OTM R12 Org-Specific.
3066: END IF;
3060: wsh_debug_sv.push (l_module_name);
3061: WSH_DEBUG_SV.log(l_module_name,'caller ',p_action_prms.caller);
3062: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.org_id',
3063: p_action_prms.org_id);
3064: WSH_DEBUG_SV.log(l_module_name,'line_rec org_id ',p_line_rec.org_id(p_line_rec.org_id.FIRST));
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.
3061: WSH_DEBUG_SV.log(l_module_name,'caller ',p_action_prms.caller);
3062: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.org_id',
3063: p_action_prms.org_id);
3064: WSH_DEBUG_SV.log(l_module_name,'line_rec org_id ',p_line_rec.org_id(p_line_rec.org_id.FIRST));
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
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;
3101: p_additional_line_info_rec.source_code := 'OKE';
3102: p_action_prms.org_id := p_line_rec.org_id(p_line_rec.org_id.FIRST);
3103: ELSE
3104: IF l_debug_on THEN
3105: WSH_DEBUG_SV.log(l_module_name,'bad caller ',p_action_prms.caller);
3106: END IF;
3107: RAISE FND_API.G_EXC_ERROR;
3108: END IF;
3109:
3108: END IF;
3109:
3110: IF p_action_prms.org_id IS NULL THEN
3111: IF l_debug_on THEN
3112: WSH_DEBUG_SV.logmsg(l_module_name,'org_id is not passed ',
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');
3109:
3110: IF p_action_prms.org_id IS NULL THEN
3111: IF l_debug_on THEN
3112: WSH_DEBUG_SV.logmsg(l_module_name,'org_id is not passed ',
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,
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;
3140: ELSE
3141: l_tp_is_installed := 'N';
3142: END IF;
3160: BEGIN --{
3161:
3162: IF NVL(p_line_rec.shipping_eligible_flag(i), 'N') <> 'Y' THEN
3163: IF l_debug_on THEN
3164: WSH_DEBUG_SV.log(l_module_name,'Not processing line ',
3165: p_line_rec.line_id(i));
3166: END IF;
3167: RAISE e_next_line;
3168: END IF;
3179:
3180: IF p_line_rec.source_document_type_id(i) = 10 THEN
3181: p_line_rec.shipping_interfaced_flag(i) := 'N';
3182: IF l_debug_on THEN
3183: WSH_DEBUG_SV.log(l_module_name,'Internal orders are not supported'
3184: ,p_line_rec.source_document_type_id(i));
3185: END IF;
3186: END IF;
3187:
3333: x_return_status => l_return_status,
3334: p_otm_installed => l_gc3_is_installed); --OTM R12 Org-Specific.
3335: --OTM R12 Org-Specific start.
3336: IF (l_debug_on) THEN
3337: wsh_debug_sv.log(l_module_name,'ignore_for_planning(i) ',
3338: p_additional_line_info_rec.ignore_for_planning(i));
3339: wsh_debug_sv.log(l_module_name,'l_return_status ',l_return_status);
3340: END IF;
3341: --OTM R12 End.
3335: --OTM R12 Org-Specific start.
3336: IF (l_debug_on) THEN
3337: wsh_debug_sv.log(l_module_name,'ignore_for_planning(i) ',
3338: p_additional_line_info_rec.ignore_for_planning(i));
3339: wsh_debug_sv.log(l_module_name,'l_return_status ',l_return_status);
3340: END IF;
3341: --OTM R12 End.
3342: --added for Inbound Logistics
3343: --{
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');
3430: END IF;
3431: p_line_rec.shipping_interfaced_flag(i) := 'N';
3432: FND_MESSAGE.SET_NAME('WSH','WSH_CALC_TP_DATES');
3665: END IF; --}
3666: END IF; --}
3667: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_DEFAULT_CONTAINEER_LVL) = 1 THEN
3668: IF l_debug_on THEN
3669: WSH_DEBUG_SV.log(l_module_name,'ordered_item_id ',
3670: p_line_rec.ordered_item_id(i));
3671: END IF;
3672: IF (p_line_rec.ordered_item_id(i) IS NOT NULL) AND (p_line_rec.item_identifier_type(i) = 'CUST') THEN
3673: wsh_util_validate.default_container(
3713: END LOOP; --}
3714:
3715:
3716: IF l_debug_on THEN
3717: WSH_DEBUG_SV.pop(l_module_name);
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 '
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: --
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
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 ;
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);
3737: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3738: END IF;
3739:
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);
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
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);
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;
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: --
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: --
3749:
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
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 '||
3757: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3758: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3759: END IF;
3753: --
3754: IF l_debug_on THEN
3755: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
3756: 'Oracle error message is '||
3757: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3758: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3759: END IF;
3760:
3761: END Validate_lines ;
3754: IF l_debug_on THEN
3755: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
3756: 'Oracle error message is '||
3757: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3758: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3759: END IF;
3760:
3761: END Validate_lines ;
3762:
3821: --
3822: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3823: IF l_debug_on IS NULL
3824: THEN
3825: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3826: END IF;
3827: --
3828: IF l_debug_on THEN
3829: wsh_debug_sv.push (l_module_name);
3825: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3826: END IF;
3827: --
3828: IF l_debug_on THEN
3829: wsh_debug_sv.push (l_module_name);
3830: END IF;
3831:
3832: IF l_debug_on THEN
3833: WSH_DEBUG_SV.log(l_module_name,'number of rows inserting ',
3829: wsh_debug_sv.push (l_module_name);
3830: END IF;
3831:
3832: IF l_debug_on THEN
3833: WSH_DEBUG_SV.log(l_module_name,'number of rows inserting ',
3834: l_line_rec_count);
3835: WSH_DEBUG_SV.log(l_module_name,'p_index ', p_index);
3836: END IF;
3837:
3831:
3832: IF l_debug_on THEN
3833: WSH_DEBUG_SV.log(l_module_name,'number of rows inserting ',
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')
3873: l_line_rec_count := 1;
3874: l_first := p_index;
3875: l_last := p_index;
3876: IF l_debug_on THEN
3877: WSH_DEBUG_SV.log(l_module_name,'requested_quantity of line being inserted is', p_line_rec.requested_quantity(p_index));
3878: END IF;
3879: END IF;
3880: IF l_debug_on THEN
3881: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs p_del det id ', p_line_rec.delivery_detail_id.count);
3877: WSH_DEBUG_SV.log(l_module_name,'requested_quantity of line being inserted is', p_line_rec.requested_quantity(p_index));
3878: END IF;
3879: END IF;
3880: IF l_debug_on THEN
3881: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs p_del det id ', p_line_rec.delivery_detail_id.count);
3882: WSH_DEBUG_SV.log(l_module_name,'l_first', l_first);
3883: WSH_DEBUG_SV.log(l_module_name,'l_last', l_last);
3884: END IF;
3885:
3878: END IF;
3879: END IF;
3880: IF l_debug_on THEN
3881: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs p_del det id ', p_line_rec.delivery_detail_id.count);
3882: WSH_DEBUG_SV.log(l_module_name,'l_first', l_first);
3883: WSH_DEBUG_SV.log(l_module_name,'l_last', l_last);
3884: END IF;
3885:
3886:
3879: END IF;
3880: IF l_debug_on THEN
3881: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs p_del det id ', p_line_rec.delivery_detail_id.count);
3882: WSH_DEBUG_SV.log(l_module_name,'l_first', l_first);
3883: WSH_DEBUG_SV.log(l_module_name,'l_last', l_last);
3884: END IF;
3885:
3886:
3887: FORALL i in l_first..l_last
4204: BULK COLLECT INTO l_del_det_id_tab;
4205: --BULK COLLECT INTO p_line_rec.delivery_detail_id;
4206:
4207: IF l_debug_on THEN
4208: WSH_DEBUG_SV.log(l_module_name,'Count of l_del_det_id_tab' , l_del_det_id_tab.count);
4209: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs p_del det id after inert and before assignment', p_line_rec.delivery_detail_id.count);
4210: END IF;
4211: IF p_index is not null THEN
4212: p_line_rec.delivery_detail_id(p_index) := l_del_det_id_tab(l_del_det_id_tab.first);
4205: --BULK COLLECT INTO p_line_rec.delivery_detail_id;
4206:
4207: IF l_debug_on THEN
4208: WSH_DEBUG_SV.log(l_module_name,'Count of l_del_det_id_tab' , l_del_det_id_tab.count);
4209: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs p_del det id after inert and before assignment', p_line_rec.delivery_detail_id.count);
4210: END IF;
4211: IF p_index is not null THEN
4212: p_line_rec.delivery_detail_id(p_index) := l_del_det_id_tab(l_del_det_id_tab.first);
4213: l_rec_inserted_count := l_del_det_id_tab.first;
4222: END LOOP;
4223: l_rec_inserted_count := l_del_det_id_tab.COUNT;
4224: END IF;
4225: IF l_debug_on THEN
4226: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs p_del det id after inert and after assignment', p_line_rec.delivery_detail_id.count);
4227: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.shipping_eligible_flag count', p_line_rec.shipping_eligible_flag.count);
4228: END IF;
4229:
4230: IF l_debug_on THEN
4223: l_rec_inserted_count := l_del_det_id_tab.COUNT;
4224: END IF;
4225: IF l_debug_on THEN
4226: WSH_DEBUG_SV.log(l_module_name,'count of p_line_recs p_del det id after inert and after assignment', p_line_rec.delivery_detail_id.count);
4227: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.shipping_eligible_flag count', p_line_rec.shipping_eligible_flag.count);
4228: END IF;
4229:
4230: IF l_debug_on THEN
4231: WSH_DEBUG_SV.log(l_module_name,'number of rows inserted ',
4227: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.shipping_eligible_flag count', p_line_rec.shipping_eligible_flag.count);
4228: END IF;
4229:
4230: IF l_debug_on THEN
4231: WSH_DEBUG_SV.log(l_module_name,'number of rows inserted ',
4232: l_rec_inserted_count);
4233: WSH_DEBUG_SV.log(l_module_name,'l_line_rec_count', l_line_rec_count);
4234: WSH_DEBUG_SV.log(l_module_name,'p_index', p_index);
4235: END IF;
4229:
4230: IF l_debug_on THEN
4231: WSH_DEBUG_SV.log(l_module_name,'number of rows inserted ',
4232: l_rec_inserted_count);
4233: WSH_DEBUG_SV.log(l_module_name,'l_line_rec_count', l_line_rec_count);
4234: WSH_DEBUG_SV.log(l_module_name,'p_index', p_index);
4235: END IF;
4236: IF l_rec_inserted_count <> l_line_rec_count THEN
4237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4230: IF l_debug_on THEN
4231: WSH_DEBUG_SV.log(l_module_name,'number of rows inserted ',
4232: l_rec_inserted_count);
4233: WSH_DEBUG_SV.log(l_module_name,'l_line_rec_count', l_line_rec_count);
4234: WSH_DEBUG_SV.log(l_module_name,'p_index', p_index);
4235: END IF;
4236: IF l_rec_inserted_count <> l_line_rec_count THEN
4237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4238: END IF;
4240: -- DBI Project
4241: -- Insert of wsh_delivery_details, call DBI API after the insert.
4242: -- This API will also check for DBI Installed or not
4243: IF l_debug_on THEN
4244: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail count-',l_detail_tab.count);
4245: END IF;
4246: WSH_INTEGRATION.DBI_Update_Detail_Log
4247: (p_delivery_detail_id_tab => l_detail_tab,
4248: p_dml_type => 'INSERT',
4248: p_dml_type => 'INSERT',
4249: x_return_status => l_dbi_rs);
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;
4275:
4276: FOR i in l_first..l_rec_inserted_count LOOP
4277:
4278: IF l_debug_on THEN
4279: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.shipping_eligible_flag(i)', p_line_rec.shipping_eligible_flag(i));
4280: END IF;
4281: IF p_line_rec.shipping_eligible_flag(i) = 'Y' THEN
4282: l_eligible_count := l_eligible_count + 1;
4283: END IF;
4282: l_eligible_count := l_eligible_count + 1;
4283: END IF;
4284:
4285: IF l_debug_on THEN
4286: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.shipping_interfaced_flag(i)', p_line_rec.shipping_interfaced_flag(i));
4287: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.organization_id(i)', p_line_rec.organization_id(i));
4288: WSH_DEBUG_SV.log(l_module_name,'p_additional_line_info_rec.source_code', p_additional_line_info_rec.source_code);
4289: END IF;
4290: IF p_line_rec.shipping_interfaced_flag(i) = 'Y' THEN --{
4283: END IF;
4284:
4285: IF l_debug_on THEN
4286: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.shipping_interfaced_flag(i)', p_line_rec.shipping_interfaced_flag(i));
4287: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.organization_id(i)', p_line_rec.organization_id(i));
4288: WSH_DEBUG_SV.log(l_module_name,'p_additional_line_info_rec.source_code', p_additional_line_info_rec.source_code);
4289: END IF;
4290: IF p_line_rec.shipping_interfaced_flag(i) = 'Y' THEN --{
4291: IF l_debug_on THEN
4284:
4285: IF l_debug_on THEN
4286: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.shipping_interfaced_flag(i)', p_line_rec.shipping_interfaced_flag(i));
4287: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.organization_id(i)', p_line_rec.organization_id(i));
4288: WSH_DEBUG_SV.log(l_module_name,'p_additional_line_info_rec.source_code', p_additional_line_info_rec.source_code);
4289: END IF;
4290: IF p_line_rec.shipping_interfaced_flag(i) = 'Y' THEN --{
4291: IF l_debug_on THEN
4292: WSH_DEBUG_SV.logmsg(l_module_name,'Inside the if p_line_rec.shipping_interfaced_flag');
4288: WSH_DEBUG_SV.log(l_module_name,'p_additional_line_info_rec.source_code', p_additional_line_info_rec.source_code);
4289: END IF;
4290: IF p_line_rec.shipping_interfaced_flag(i) = 'Y' THEN --{
4291: IF l_debug_on THEN
4292: WSH_DEBUG_SV.logmsg(l_module_name,'Inside the if p_line_rec.shipping_interfaced_flag');
4293: END IF;
4294: --HW OPMCONV. Removed code forking
4295:
4296: IF l_debug_on THEN
4293: END IF;
4294: --HW OPMCONV. Removed code forking
4295:
4296: IF l_debug_on THEN
4297: WSH_DEBUG_SV.logmsg(l_module_name,'Assigning the valid_ids directly');
4298: END IF;
4299: l_valid_ids(l_valid_ids.COUNT + 1) := p_line_rec.delivery_detail_id(i);
4300:
4301: --OTM R12
4301: --OTM R12
4302: --get the delivery detail information for the valid lines
4303: IF (l_gc3_is_installed = 'Y') THEN
4304: IF l_debug_on THEN
4305: WSH_DEBUG_SV.log(l_module_name,'Delivery detail number',l_tab_index);
4306: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',p_line_rec.delivery_detail_id(i));
4307: WSH_DEBUG_SV.log(l_module_name,'inventory item id',p_line_rec.inventory_item_id(i));
4308: WSH_DEBUG_SV.log(l_module_name,'net weight',p_line_rec.net_weight(i));
4309: WSH_DEBUG_SV.log(l_module_name,'organization id',p_line_rec.organization_id(i));
4302: --get the delivery detail information for the valid lines
4303: IF (l_gc3_is_installed = 'Y') THEN
4304: IF l_debug_on THEN
4305: WSH_DEBUG_SV.log(l_module_name,'Delivery detail number',l_tab_index);
4306: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',p_line_rec.delivery_detail_id(i));
4307: WSH_DEBUG_SV.log(l_module_name,'inventory item id',p_line_rec.inventory_item_id(i));
4308: WSH_DEBUG_SV.log(l_module_name,'net weight',p_line_rec.net_weight(i));
4309: WSH_DEBUG_SV.log(l_module_name,'organization id',p_line_rec.organization_id(i));
4310: WSH_DEBUG_SV.log(l_module_name,'weight uom code',p_line_rec.weight_uom_code(i));
4303: IF (l_gc3_is_installed = 'Y') THEN
4304: IF l_debug_on THEN
4305: WSH_DEBUG_SV.log(l_module_name,'Delivery detail number',l_tab_index);
4306: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',p_line_rec.delivery_detail_id(i));
4307: WSH_DEBUG_SV.log(l_module_name,'inventory item id',p_line_rec.inventory_item_id(i));
4308: WSH_DEBUG_SV.log(l_module_name,'net weight',p_line_rec.net_weight(i));
4309: WSH_DEBUG_SV.log(l_module_name,'organization id',p_line_rec.organization_id(i));
4310: WSH_DEBUG_SV.log(l_module_name,'weight uom code',p_line_rec.weight_uom_code(i));
4311: WSH_DEBUG_SV.log(l_module_name,'requested quantity',p_line_rec.requested_quantity(i));
4304: IF l_debug_on THEN
4305: WSH_DEBUG_SV.log(l_module_name,'Delivery detail number',l_tab_index);
4306: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',p_line_rec.delivery_detail_id(i));
4307: WSH_DEBUG_SV.log(l_module_name,'inventory item id',p_line_rec.inventory_item_id(i));
4308: WSH_DEBUG_SV.log(l_module_name,'net weight',p_line_rec.net_weight(i));
4309: WSH_DEBUG_SV.log(l_module_name,'organization id',p_line_rec.organization_id(i));
4310: WSH_DEBUG_SV.log(l_module_name,'weight uom code',p_line_rec.weight_uom_code(i));
4311: WSH_DEBUG_SV.log(l_module_name,'requested quantity',p_line_rec.requested_quantity(i));
4312: WSH_DEBUG_SV.log(l_module_name,'ship from location id',p_line_rec.ship_from_location_id(i));
4305: WSH_DEBUG_SV.log(l_module_name,'Delivery detail number',l_tab_index);
4306: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',p_line_rec.delivery_detail_id(i));
4307: WSH_DEBUG_SV.log(l_module_name,'inventory item id',p_line_rec.inventory_item_id(i));
4308: WSH_DEBUG_SV.log(l_module_name,'net weight',p_line_rec.net_weight(i));
4309: WSH_DEBUG_SV.log(l_module_name,'organization id',p_line_rec.organization_id(i));
4310: WSH_DEBUG_SV.log(l_module_name,'weight uom code',p_line_rec.weight_uom_code(i));
4311: WSH_DEBUG_SV.log(l_module_name,'requested quantity',p_line_rec.requested_quantity(i));
4312: WSH_DEBUG_SV.log(l_module_name,'ship from location id',p_line_rec.ship_from_location_id(i));
4313: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',p_line_rec.requested_quantity_uom(i));
4306: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',p_line_rec.delivery_detail_id(i));
4307: WSH_DEBUG_SV.log(l_module_name,'inventory item id',p_line_rec.inventory_item_id(i));
4308: WSH_DEBUG_SV.log(l_module_name,'net weight',p_line_rec.net_weight(i));
4309: WSH_DEBUG_SV.log(l_module_name,'organization id',p_line_rec.organization_id(i));
4310: WSH_DEBUG_SV.log(l_module_name,'weight uom code',p_line_rec.weight_uom_code(i));
4311: WSH_DEBUG_SV.log(l_module_name,'requested quantity',p_line_rec.requested_quantity(i));
4312: WSH_DEBUG_SV.log(l_module_name,'ship from location id',p_line_rec.ship_from_location_id(i));
4313: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',p_line_rec.requested_quantity_uom(i));
4314: END IF;
4307: WSH_DEBUG_SV.log(l_module_name,'inventory item id',p_line_rec.inventory_item_id(i));
4308: WSH_DEBUG_SV.log(l_module_name,'net weight',p_line_rec.net_weight(i));
4309: WSH_DEBUG_SV.log(l_module_name,'organization id',p_line_rec.organization_id(i));
4310: WSH_DEBUG_SV.log(l_module_name,'weight uom code',p_line_rec.weight_uom_code(i));
4311: WSH_DEBUG_SV.log(l_module_name,'requested quantity',p_line_rec.requested_quantity(i));
4312: WSH_DEBUG_SV.log(l_module_name,'ship from location id',p_line_rec.ship_from_location_id(i));
4313: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',p_line_rec.requested_quantity_uom(i));
4314: END IF;
4315:
4308: WSH_DEBUG_SV.log(l_module_name,'net weight',p_line_rec.net_weight(i));
4309: WSH_DEBUG_SV.log(l_module_name,'organization id',p_line_rec.organization_id(i));
4310: WSH_DEBUG_SV.log(l_module_name,'weight uom code',p_line_rec.weight_uom_code(i));
4311: WSH_DEBUG_SV.log(l_module_name,'requested quantity',p_line_rec.requested_quantity(i));
4312: WSH_DEBUG_SV.log(l_module_name,'ship from location id',p_line_rec.ship_from_location_id(i));
4313: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',p_line_rec.requested_quantity_uom(i));
4314: END IF;
4315:
4316: l_delivery_detail_tab.EXTEND;
4309: WSH_DEBUG_SV.log(l_module_name,'organization id',p_line_rec.organization_id(i));
4310: WSH_DEBUG_SV.log(l_module_name,'weight uom code',p_line_rec.weight_uom_code(i));
4311: WSH_DEBUG_SV.log(l_module_name,'requested quantity',p_line_rec.requested_quantity(i));
4312: WSH_DEBUG_SV.log(l_module_name,'ship from location id',p_line_rec.ship_from_location_id(i));
4313: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',p_line_rec.requested_quantity_uom(i));
4314: END IF;
4315:
4316: l_delivery_detail_tab.EXTEND;
4317: l_delivery_detail_tab(l_tab_index) := WSH_ENTITY_INFO_REC(p_line_rec.delivery_detail_id(i),
4329: END IF;
4330: --END OTM R12
4331:
4332: IF l_debug_on THEN
4333: WSH_DEBUG_SV.logmsg(l_module_name,'After Assigning the valid_ids directly');
4334: END IF;
4335:
4336: ELSE -- of interfaced_flag }{
4337: IF l_debug_on THEN
4334: END IF;
4335:
4336: ELSE -- of interfaced_flag }{
4337: IF l_debug_on THEN
4338: WSH_DEBUG_SV.logmsg(l_module_name,'Inside the eslse 2 portion');
4339: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.delivery_detail_id(i)', p_line_rec.delivery_detail_id(i));
4340: END IF;
4341: l_invalid_ids(l_invalid_ids.COUNT + 1) := p_line_rec.delivery_detail_id(i);
4342: END IF; -- of interfaced_flag }
4335:
4336: ELSE -- of interfaced_flag }{
4337: IF l_debug_on THEN
4338: WSH_DEBUG_SV.logmsg(l_module_name,'Inside the eslse 2 portion');
4339: WSH_DEBUG_SV.log(l_module_name,'p_line_rec.delivery_detail_id(i)', p_line_rec.delivery_detail_id(i));
4340: END IF;
4341: l_invalid_ids(l_invalid_ids.COUNT + 1) := p_line_rec.delivery_detail_id(i);
4342: END IF; -- of interfaced_flag }
4343: IF l_debug_on THEN
4340: END IF;
4341: l_invalid_ids(l_invalid_ids.COUNT + 1) := p_line_rec.delivery_detail_id(i);
4342: END IF; -- of interfaced_flag }
4343: IF l_debug_on THEN
4344: WSH_DEBUG_SV.logmsg(l_module_name,'Going to next record in the loop');
4345: END IF;
4346:
4347:
4348: END LOOP; -- of loop
4348: END LOOP; -- of loop
4349:
4350:
4351: IF l_debug_on THEN
4352: WSH_DEBUG_SV.logmsg(l_module_name,'After the loop');
4353: END IF;
4354:
4355: -- l_valid_ids is grater than 0, otherwise, this API would not
4356: -- even be called
4354:
4355: -- l_valid_ids is grater than 0, otherwise, this API would not
4356: -- even be called
4357: IF l_debug_on THEN
4358: WSH_DEBUG_SV.log(l_module_name,'number of invalid records ',
4359: l_invalid_ids.COUNT);
4360: WSH_DEBUG_SV.log(l_module_name,'number of valid records ',
4361: l_valid_ids.COUNT);
4362: END IF;
4356: -- even be called
4357: IF l_debug_on THEN
4358: WSH_DEBUG_SV.log(l_module_name,'number of invalid records ',
4359: l_invalid_ids.COUNT);
4360: WSH_DEBUG_SV.log(l_module_name,'number of valid records ',
4361: l_valid_ids.COUNT);
4362: END IF;
4363:
4364: IF l_invalid_ids.COUNT > 0 THEN
4378: l_first := l_valid_ids.FIRST; --always 1
4379: l_count := l_valid_ids.COUNT;
4380:
4381: IF l_debug_on THEN
4382: WSH_DEBUG_SV.log(l_module_name,'l_first', l_first);
4383: WSH_DEBUG_SV.log(l_module_name,'l_count', l_count);
4384: END IF;
4385: FORALL I in l_first..l_count
4386: INSERT INTO wsh_delivery_assignments_v(
4379: l_count := l_valid_ids.COUNT;
4380:
4381: IF l_debug_on THEN
4382: WSH_DEBUG_SV.log(l_module_name,'l_first', l_first);
4383: WSH_DEBUG_SV.log(l_module_name,'l_count', l_count);
4384: END IF;
4385: FORALL I in l_first..l_count
4386: INSERT INTO wsh_delivery_assignments_v(
4387: delivery_assignment_id,
4409:
4410: --put debug message about the row count
4411:
4412: IF l_debug_on THEN
4413: WSH_DEBUG_SV.log(l_module_name,'After the insert');
4414: END IF;
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
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
4424: IF l_debug_on THEN
4425: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_SPLITTER.TMS_DELIVERY_DETAIL_SPLIT',WSH_DEBUG_SV.C_PROC_LEVEL);
4426: END IF;
4427:
4428: WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split(
4429: p_detail_tab => l_delivery_detail_tab,
4430: p_item_quantity_uom_tab => l_item_quantity_uom_tab,
4431: x_return_status => l_return_status);
4432:
4433: IF l_debug_on THEN
4434: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_DETAILS_SPLITTER.TMS_DELIVERY_DETAIL_SPLIT',l_return_status);
4435: END IF;
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
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;
4445:
4446: END IF;
4446: END IF;
4447: --END OTM R12
4448:
4449: IF l_debug_on THEN
4450: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
4451: WSH_DEBUG_SV.pop(l_module_name);
4452: END IF;
4453:
4454: EXCEPTION
4447: --END OTM R12
4448:
4449: IF l_debug_on THEN
4450: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
4451: WSH_DEBUG_SV.pop(l_module_name);
4452: 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;
4462:
4463: WHEN FND_API.G_EXC_ERROR THEN
4464: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
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: --
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
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 ;
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);
4478: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4479: END IF;
4480:
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);
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
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);
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;
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: --
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: --
4490:
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
4489: --
4490:
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: --
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 '||
4501: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4502: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4503: END IF;
4497: --
4498: IF l_debug_on THEN
4499: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4500: 'Oracle error message is '||
4501: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4502: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4503: END IF;
4504:
4505:
4498: IF l_debug_on THEN
4499: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4500: 'Oracle error message is '||
4501: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4502: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4503: END IF;
4504:
4505:
4506: END bulk_insert_details;
4552: --
4553: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4554: IF l_debug_on IS NULL
4555: THEN
4556: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4557: END IF;
4558: --
4559: IF l_debug_on THEN
4560: wsh_debug_sv.push (l_module_name);
4556: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4557: END IF;
4558: --
4559: IF l_debug_on THEN
4560: wsh_debug_sv.push (l_module_name);
4561: WSH_DEBUG_SV.log(l_module_name,'p_caller ',p_caller);
4562: WSH_DEBUG_SV.log(l_module_name,'p_index ',p_index);
4563: WSH_DEBUG_SV.log(l_module_name,'P_first_call ',P_first_call);
4564: WSH_DEBUG_SV.log(l_module_name,'X_stack_size_start ',X_stack_size_start);
4557: END IF;
4558: --
4559: IF l_debug_on THEN
4560: wsh_debug_sv.push (l_module_name);
4561: WSH_DEBUG_SV.log(l_module_name,'p_caller ',p_caller);
4562: WSH_DEBUG_SV.log(l_module_name,'p_index ',p_index);
4563: WSH_DEBUG_SV.log(l_module_name,'P_first_call ',P_first_call);
4564: WSH_DEBUG_SV.log(l_module_name,'X_stack_size_start ',X_stack_size_start);
4565: WSH_DEBUG_SV.log(l_module_name,'header_number ',
4558: --
4559: IF l_debug_on THEN
4560: wsh_debug_sv.push (l_module_name);
4561: WSH_DEBUG_SV.log(l_module_name,'p_caller ',p_caller);
4562: WSH_DEBUG_SV.log(l_module_name,'p_index ',p_index);
4563: WSH_DEBUG_SV.log(l_module_name,'P_first_call ',P_first_call);
4564: WSH_DEBUG_SV.log(l_module_name,'X_stack_size_start ',X_stack_size_start);
4565: WSH_DEBUG_SV.log(l_module_name,'header_number ',
4566: p_line_rec.source_header_number(p_index));
4559: IF l_debug_on THEN
4560: wsh_debug_sv.push (l_module_name);
4561: WSH_DEBUG_SV.log(l_module_name,'p_caller ',p_caller);
4562: WSH_DEBUG_SV.log(l_module_name,'p_index ',p_index);
4563: WSH_DEBUG_SV.log(l_module_name,'P_first_call ',P_first_call);
4564: WSH_DEBUG_SV.log(l_module_name,'X_stack_size_start ',X_stack_size_start);
4565: WSH_DEBUG_SV.log(l_module_name,'header_number ',
4566: p_line_rec.source_header_number(p_index));
4567: WSH_DEBUG_SV.log(l_module_name,'line_number ',
4560: wsh_debug_sv.push (l_module_name);
4561: WSH_DEBUG_SV.log(l_module_name,'p_caller ',p_caller);
4562: WSH_DEBUG_SV.log(l_module_name,'p_index ',p_index);
4563: WSH_DEBUG_SV.log(l_module_name,'P_first_call ',P_first_call);
4564: WSH_DEBUG_SV.log(l_module_name,'X_stack_size_start ',X_stack_size_start);
4565: WSH_DEBUG_SV.log(l_module_name,'header_number ',
4566: p_line_rec.source_header_number(p_index));
4567: WSH_DEBUG_SV.log(l_module_name,'line_number ',
4568: p_line_rec.source_line_number(p_index));
4561: WSH_DEBUG_SV.log(l_module_name,'p_caller ',p_caller);
4562: WSH_DEBUG_SV.log(l_module_name,'p_index ',p_index);
4563: WSH_DEBUG_SV.log(l_module_name,'P_first_call ',P_first_call);
4564: WSH_DEBUG_SV.log(l_module_name,'X_stack_size_start ',X_stack_size_start);
4565: WSH_DEBUG_SV.log(l_module_name,'header_number ',
4566: p_line_rec.source_header_number(p_index));
4567: WSH_DEBUG_SV.log(l_module_name,'line_number ',
4568: p_line_rec.source_line_number(p_index));
4569: END IF;
4563: WSH_DEBUG_SV.log(l_module_name,'P_first_call ',P_first_call);
4564: WSH_DEBUG_SV.log(l_module_name,'X_stack_size_start ',X_stack_size_start);
4565: WSH_DEBUG_SV.log(l_module_name,'header_number ',
4566: p_line_rec.source_header_number(p_index));
4567: WSH_DEBUG_SV.log(l_module_name,'line_number ',
4568: p_line_rec.source_line_number(p_index));
4569: END IF;
4570: IF P_first_call = 'T' THEN --{
4571: IF p_caller <> 'OM' THEN
4578: l_module_name);
4579: END IF;
4580: X_stack_size_start := FND_MSG_PUB.Count_Msg;
4581: IF l_debug_on THEN
4582: WSH_DEBUG_SV.log(l_module_name,'X_stack_size_start',
4583: X_stack_size_start);
4584: END IF;
4585: ELSE --}{
4586:
4598: ELSE --}{
4599: p_line_rec.error_message_count(p_index) := l_msg_count -
4600: X_stack_size_start;
4601: IF l_debug_on THEN
4602: WSH_DEBUG_SV.log(l_module_name,'OM message count',
4603: p_line_rec.error_message_count(p_index));
4604: END IF;
4605: END IF; --}
4606: ELSE --}{
4610: END IF;
4611: END IF; --}
4612: END IF; --}
4613: IF l_debug_on THEN
4614: WSH_DEBUG_SV.pop(l_module_name);
4615: END IF;
4616:
4617: EXCEPTION
4618:
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 '||
4626: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4627: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4628: END IF;
4622: --
4623: IF l_debug_on THEN
4624: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4625: 'Oracle error message is '||
4626: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4627: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4628: END IF;
4629:
4630: END Set_message;
4623: IF l_debug_on THEN
4624: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4625: 'Oracle error message is '||
4626: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4627: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4628: END IF;
4629:
4630: END Set_message;
4631:
4700: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4701: --
4702: IF l_debug_on IS NULL
4703: THEN
4704: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4705: END IF;
4706: --
4707: --
4708: -- Debug Statements
4707: --
4708: -- Debug Statements
4709: --
4710: IF l_debug_on THEN
4711: WSH_DEBUG_SV.push(l_module_name);
4712: --
4713: WSH_DEBUG_SV.log(l_module_name,'P_INDEX',P_INDEX);
4714: END IF;
4715: --
4709: --
4710: IF l_debug_on THEN
4711: WSH_DEBUG_SV.push(l_module_name);
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:
4860: --
4861: -- Debug Statements
4862: --
4863: IF l_debug_on THEN
4864: WSH_DEBUG_SV.pop(l_module_name);
4865: END IF;
4866: --
4867: EXCEPTION
4868: WHEN l_exc_mandatory THEN
4874: --
4875: -- Debug Statements
4876: --
4877: IF l_debug_on THEN
4878: WSH_DEBUG_SV.logmsg(l_module_name,'L_EXC_MANDATORY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4879: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:L_EXC_MANDATORY');
4880: END IF;
4881: --
4882: WHEN FND_API.G_EXC_ERROR THEN
4875: -- Debug Statements
4876: --
4877: IF l_debug_on THEN
4878: WSH_DEBUG_SV.logmsg(l_module_name,'L_EXC_MANDATORY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
4885: --
4886: -- Debug Statements
4887: --
4888: IF l_debug_on THEN
4889: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4890: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4891: END IF;
4892: --
4893: WHEN OTHERS THEN
4886: -- Debug Statements
4887: --
4888: IF l_debug_on THEN
4889: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
4897: --
4898: -- Debug Statements
4899: --
4900: IF l_debug_on THEN
4901: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4902: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4903: END IF;
4904: --
4905: END validate_mandatory_info;
4898: -- Debug Statements
4899: --
4900: IF l_debug_on THEN
4901: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4902: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4903: END IF;
4904: --
4905: END validate_mandatory_info;
4906: