124: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
125: --
126: IF l_debug_on IS NULL
127: THEN
128: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
129: END IF;
130: --
131: wsh_debug_sv.start_debug (l_trns_history_rec.entity_number);
132:
127: THEN
128: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
129: END IF;
130: --
131: wsh_debug_sv.start_debug (l_trns_history_rec.entity_number);
132:
133: /*
134: wsh_debug_sv.start_other_app_debug(
135: p_application => 'OE',
130: --
131: wsh_debug_sv.start_debug (l_trns_history_rec.entity_number);
132:
133: /*
134: wsh_debug_sv.start_other_app_debug(
135: p_application => 'OE',
136: x_debug_directory => oe_debug_dir,
137: x_debug_file => oe_debug_file,
138: x_return_status => l_return_status);
136: x_debug_directory => oe_debug_dir,
137: x_debug_file => oe_debug_file,
138: x_return_status => l_return_status);
139:
140: wsh_debug_file := WSH_DEBUG_SV.G_FILE;
141: wsh_debug_dir := WSH_DEBUG_SV.G_DIR;
142: */
143: IF l_debug_on THEN
144: wsh_debug_sv.push (l_module_name, 'PROCESS_INBOUND');
137: x_debug_file => oe_debug_file,
138: x_return_status => l_return_status);
139:
140: wsh_debug_file := WSH_DEBUG_SV.G_FILE;
141: wsh_debug_dir := WSH_DEBUG_SV.G_DIR;
142: */
143: IF l_debug_on THEN
144: wsh_debug_sv.push (l_module_name, 'PROCESS_INBOUND');
145: wsh_debug_sv.log (l_module_name,'DOCUMENT NUMBER',l_trns_history_rec.document_number);
140: wsh_debug_file := WSH_DEBUG_SV.G_FILE;
141: wsh_debug_dir := WSH_DEBUG_SV.G_DIR;
142: */
143: IF l_debug_on THEN
144: wsh_debug_sv.push (l_module_name, 'PROCESS_INBOUND');
145: wsh_debug_sv.log (l_module_name,'DOCUMENT NUMBER',l_trns_history_rec.document_number);
146: wsh_debug_sv.log (l_module_name,'DOC TYPE',l_trns_history_rec.document_type);
147: wsh_debug_sv.log (l_module_name,'ACTION TYPE',l_trns_history_rec.action_type);
148: wsh_debug_sv.log (l_module_name,'ENTITY NUMBER',l_trns_history_rec.entity_number);
141: wsh_debug_dir := WSH_DEBUG_SV.G_DIR;
142: */
143: IF l_debug_on THEN
144: wsh_debug_sv.push (l_module_name, 'PROCESS_INBOUND');
145: wsh_debug_sv.log (l_module_name,'DOCUMENT NUMBER',l_trns_history_rec.document_number);
146: wsh_debug_sv.log (l_module_name,'DOC TYPE',l_trns_history_rec.document_type);
147: wsh_debug_sv.log (l_module_name,'ACTION TYPE',l_trns_history_rec.action_type);
148: wsh_debug_sv.log (l_module_name,'ENTITY NUMBER',l_trns_history_rec.entity_number);
149: wsh_debug_sv.log (l_module_name,'ENTITY TYPE',l_trns_history_rec.entity_type);
142: */
143: IF l_debug_on THEN
144: wsh_debug_sv.push (l_module_name, 'PROCESS_INBOUND');
145: wsh_debug_sv.log (l_module_name,'DOCUMENT NUMBER',l_trns_history_rec.document_number);
146: wsh_debug_sv.log (l_module_name,'DOC TYPE',l_trns_history_rec.document_type);
147: wsh_debug_sv.log (l_module_name,'ACTION TYPE',l_trns_history_rec.action_type);
148: wsh_debug_sv.log (l_module_name,'ENTITY NUMBER',l_trns_history_rec.entity_number);
149: wsh_debug_sv.log (l_module_name,'ENTITY TYPE',l_trns_history_rec.entity_type);
150: wsh_debug_sv.log (l_module_name,'DIRECTION',l_trns_history_rec.document_direction);
143: IF l_debug_on THEN
144: wsh_debug_sv.push (l_module_name, 'PROCESS_INBOUND');
145: wsh_debug_sv.log (l_module_name,'DOCUMENT NUMBER',l_trns_history_rec.document_number);
146: wsh_debug_sv.log (l_module_name,'DOC TYPE',l_trns_history_rec.document_type);
147: wsh_debug_sv.log (l_module_name,'ACTION TYPE',l_trns_history_rec.action_type);
148: wsh_debug_sv.log (l_module_name,'ENTITY NUMBER',l_trns_history_rec.entity_number);
149: wsh_debug_sv.log (l_module_name,'ENTITY TYPE',l_trns_history_rec.entity_type);
150: wsh_debug_sv.log (l_module_name,'DIRECTION',l_trns_history_rec.document_direction);
151: wsh_debug_sv.log (l_module_name,'TRADING PARTNER',l_trns_history_rec.trading_partner_id);
144: wsh_debug_sv.push (l_module_name, 'PROCESS_INBOUND');
145: wsh_debug_sv.log (l_module_name,'DOCUMENT NUMBER',l_trns_history_rec.document_number);
146: wsh_debug_sv.log (l_module_name,'DOC TYPE',l_trns_history_rec.document_type);
147: wsh_debug_sv.log (l_module_name,'ACTION TYPE',l_trns_history_rec.action_type);
148: wsh_debug_sv.log (l_module_name,'ENTITY NUMBER',l_trns_history_rec.entity_number);
149: wsh_debug_sv.log (l_module_name,'ENTITY TYPE',l_trns_history_rec.entity_type);
150: wsh_debug_sv.log (l_module_name,'DIRECTION',l_trns_history_rec.document_direction);
151: wsh_debug_sv.log (l_module_name,'TRADING PARTNER',l_trns_history_rec.trading_partner_id);
152: wsh_debug_sv.log (l_module_name,'ORIG DOC NUMBER',l_trns_history_rec.orig_document_number);
145: wsh_debug_sv.log (l_module_name,'DOCUMENT NUMBER',l_trns_history_rec.document_number);
146: wsh_debug_sv.log (l_module_name,'DOC TYPE',l_trns_history_rec.document_type);
147: wsh_debug_sv.log (l_module_name,'ACTION TYPE',l_trns_history_rec.action_type);
148: wsh_debug_sv.log (l_module_name,'ENTITY NUMBER',l_trns_history_rec.entity_number);
149: wsh_debug_sv.log (l_module_name,'ENTITY TYPE',l_trns_history_rec.entity_type);
150: wsh_debug_sv.log (l_module_name,'DIRECTION',l_trns_history_rec.document_direction);
151: wsh_debug_sv.log (l_module_name,'TRADING PARTNER',l_trns_history_rec.trading_partner_id);
152: wsh_debug_sv.log (l_module_name,'ORIG DOC NUMBER',l_trns_history_rec.orig_document_number);
153: END IF;
146: wsh_debug_sv.log (l_module_name,'DOC TYPE',l_trns_history_rec.document_type);
147: wsh_debug_sv.log (l_module_name,'ACTION TYPE',l_trns_history_rec.action_type);
148: wsh_debug_sv.log (l_module_name,'ENTITY NUMBER',l_trns_history_rec.entity_number);
149: wsh_debug_sv.log (l_module_name,'ENTITY TYPE',l_trns_history_rec.entity_type);
150: wsh_debug_sv.log (l_module_name,'DIRECTION',l_trns_history_rec.document_direction);
151: wsh_debug_sv.log (l_module_name,'TRADING PARTNER',l_trns_history_rec.trading_partner_id);
152: wsh_debug_sv.log (l_module_name,'ORIG DOC NUMBER',l_trns_history_rec.orig_document_number);
153: END IF;
154:
147: wsh_debug_sv.log (l_module_name,'ACTION TYPE',l_trns_history_rec.action_type);
148: wsh_debug_sv.log (l_module_name,'ENTITY NUMBER',l_trns_history_rec.entity_number);
149: wsh_debug_sv.log (l_module_name,'ENTITY TYPE',l_trns_history_rec.entity_type);
150: wsh_debug_sv.log (l_module_name,'DIRECTION',l_trns_history_rec.document_direction);
151: wsh_debug_sv.log (l_module_name,'TRADING PARTNER',l_trns_history_rec.trading_partner_id);
152: wsh_debug_sv.log (l_module_name,'ORIG DOC NUMBER',l_trns_history_rec.orig_document_number);
153: END IF;
154:
155: IF (WMS_DEPLOY.WMS_DEPLOYMENT_MODE IN ('D','L')) THEN --{ LSP PROJECT : Consider LSP mode also
148: wsh_debug_sv.log (l_module_name,'ENTITY NUMBER',l_trns_history_rec.entity_number);
149: wsh_debug_sv.log (l_module_name,'ENTITY TYPE',l_trns_history_rec.entity_type);
150: wsh_debug_sv.log (l_module_name,'DIRECTION',l_trns_history_rec.document_direction);
151: wsh_debug_sv.log (l_module_name,'TRADING PARTNER',l_trns_history_rec.trading_partner_id);
152: wsh_debug_sv.log (l_module_name,'ORIG DOC NUMBER',l_trns_history_rec.orig_document_number);
153: END IF;
154:
155: IF (WMS_DEPLOY.WMS_DEPLOYMENT_MODE IN ('D','L')) THEN --{ LSP PROJECT : Consider LSP mode also
156: IF (l_trns_history_rec.document_number IS NOT NULL)
163: AND (l_trns_history_rec.trading_partner_id IS NOT NULL)
164: THEN
165:
166: IF l_debug_on THEN
167: wsh_debug_sv.log (l_module_name,'Parameters Not Null');
168: END IF;
169:
170: IF (l_trns_history_rec.document_direction NOT IN ('I'))
171: THEN
188: END IF;
189: END IF;
190:
191: IF l_debug_on THEN
192: wsh_debug_sv.log (l_module_name,'Valid Parameters');
193: END IF;
194:
195: IF l_debug_on THEN
196: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPMENT_REQUEST_PKG.Process_Shipment_Request',WSH_DEBUG_SV.C_PROC_LEVEL);
192: wsh_debug_sv.log (l_module_name,'Valid Parameters');
193: END IF;
194:
195: IF l_debug_on THEN
196: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPMENT_REQUEST_PKG.Process_Shipment_Request',WSH_DEBUG_SV.C_PROC_LEVEL);
197: END IF;
198:
199: WSH_SHIPMENT_REQUEST_PKG.Process_Shipment_Request(
200: p_transaction_rec => l_trns_history_rec,
235: AND (l_trns_history_rec.trading_partner_id IS NOT NULL)
236: THEN
237:
238: IF l_debug_on THEN
239: wsh_debug_sv.log (l_module_name,'Parameters Not Null');
240: END IF;
241:
242: IF (l_trns_history_rec.document_direction NOT IN ('I'))
243: THEN
259: RAISE invalid_entity_type;
260: END IF;
261:
262: IF l_debug_on THEN
263: wsh_debug_sv.log (l_module_name,'Valid Parameters');
264: END IF;
265:
266: IF (l_trns_history_rec.entity_type = 'DLVY_INT')
267: THEN
270:
271: Derive_ids (l_delivery_interface_id,l_trns_history_rec.document_type,l_return_status);
272:
273: IF l_debug_on THEN
274: wsh_debug_sv.log (l_module_name,'After Calling Derive IDS l_return_status',l_return_status);
275: END IF;
276:
277: IF (l_return_status = wsh_util_core.g_ret_sts_success) THEN
278:
292: t_return_status
293: );
294:
295: IF l_debug_on THEN
296: wsh_debug_sv.log (l_module_name,'l_delivery_interface_id',l_delivery_interface_id);
297: wsh_debug_sv.log (l_module_name,'x_delivery_id',x_delivery_id);
298: wsh_debug_sv.log (l_module_name,'t_return_status',t_return_status);
299: END IF;
300:
293: );
294:
295: IF l_debug_on THEN
296: wsh_debug_sv.log (l_module_name,'l_delivery_interface_id',l_delivery_interface_id);
297: wsh_debug_sv.log (l_module_name,'x_delivery_id',x_delivery_id);
298: wsh_debug_sv.log (l_module_name,'t_return_status',t_return_status);
299: END IF;
300:
301: ELSE
294:
295: IF l_debug_on THEN
296: wsh_debug_sv.log (l_module_name,'l_delivery_interface_id',l_delivery_interface_id);
297: wsh_debug_sv.log (l_module_name,'x_delivery_id',x_delivery_id);
298: wsh_debug_sv.log (l_module_name,'t_return_status',t_return_status);
299: END IF;
300:
301: ELSE
302: wsh_inbound_ship_advice_pkg.process_ship_advice (
305: t_return_status
306: );
307:
308: IF l_debug_on THEN
309: wsh_debug_sv.log (l_module_name,'t_return_status',t_return_status);
310: END IF;
311:
312: END IF;
313:
348: END IF; --}
349: END IF; --}
350:
351: IF l_debug_on THEN
352: wsh_debug_sv.log (l_module_name,'Ship Request or Advice Succeeded');
353: END IF;
354:
355: -- Update done only for 'SR' because , for 'SA', update
356: -- done in ship_advice_pkg
368: Delete_Interface_Records(
369: L_Delivery_Interface_ID,
370: X_Return_Status);
371: IF l_debug_on THEN
372: wsh_debug_sv.log (l_module_name, 'Return status after delete interface records', X_Return_Status);
373: END IF;
374: END IF;
375:
376: ELSE --}
374: END IF;
375:
376: ELSE --}
377: IF l_debug_on THEN
378: wsh_debug_sv.log (l_module_name, 'Ship Request or Advice error.');
379: END IF;
380:
381: -- Update done only for 'SR' because , for 'SA', update
382: -- done in ship_advice_pkg
385: IF l_trns_history_rec.document_type = 'SA'
386: AND l_trns_history_rec.event_name = 'oracle.apps.wsh.batch.bsai'
387: AND l_trns_history_rec.event_key IS NOT NULL THEN
388: IF l_debug_on THEN
389: wsh_debug_sv.log (l_module_name, 'Ship Advice error.Move to error event in workflow.');
390: END IF;
391: ELSE
392: UPDATE wsh_transactions_history
393: SET transaction_status = 'ER'
413: );
414: --
415: --
416: IF l_debug_on THEN
417: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
418: END IF;
419: --
420: --
421: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
443: --
444: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
445: --{
446: IF l_debug_on THEN
447: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
448: END IF;
449:
450: l_reset_flags := FALSE;
451:
452: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
453: x_return_status => l_return_status);
454:
455: IF l_debug_on THEN
456: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
457: END IF;
458:
459: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
460: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
491: );
492: --
493: --
494: IF l_debug_on THEN
495: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
496: END IF;
497: --
498: --
499: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
511: --
512: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
513: --{
514: IF l_debug_on THEN
515: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
516: END IF;
517:
518: l_reset_flags := FALSE;
519:
520: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
521: x_return_status => l_return_status);
522:
523: IF l_debug_on THEN
524: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
525: END IF;
526:
527: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
528: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
556: --{
557: l_reset_flags := TRUE;
558:
559: IF l_debug_on THEN
560: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
561: END IF;
562:
563: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
564: x_return_status => l_return_status);
563: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
564: x_return_status => l_return_status);
565:
566: IF l_debug_on THEN
567: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
568: END IF;
569:
570: IF (
571: ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )
587: END IF;
588: --bug 4070732
589:
590: IF l_debug_on THEN
591: wsh_debug_sv.log (l_module_name,'Return Status',X_Return_Status);
592: wsh_debug_sv.pop (l_module_name);
593: END IF;
594:
595: --wsh_debug_sv.stop_other_app_debug('OE', l_return_status);
588: --bug 4070732
589:
590: IF l_debug_on THEN
591: wsh_debug_sv.log (l_module_name,'Return Status',X_Return_Status);
592: wsh_debug_sv.pop (l_module_name);
593: END IF;
594:
595: --wsh_debug_sv.stop_other_app_debug('OE', l_return_status);
596: wsh_debug_sv.stop_debug;
591: wsh_debug_sv.log (l_module_name,'Return Status',X_Return_Status);
592: wsh_debug_sv.pop (l_module_name);
593: END IF;
594:
595: --wsh_debug_sv.stop_other_app_debug('OE', l_return_status);
596: wsh_debug_sv.stop_debug;
597: EXCEPTION
598: WHEN FND_API.G_EXC_ERROR THEN
599: x_return_status := FND_API.G_RET_STS_ERROR ;
592: wsh_debug_sv.pop (l_module_name);
593: END IF;
594:
595: --wsh_debug_sv.stop_other_app_debug('OE', l_return_status);
596: wsh_debug_sv.stop_debug;
597: EXCEPTION
598: WHEN FND_API.G_EXC_ERROR THEN
599: x_return_status := FND_API.G_RET_STS_ERROR ;
600: --
603: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
604: THEN
605: --{
606: IF l_debug_on THEN
607: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
608: END IF;
609:
610: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
611: (
615: );
616: --
617: --
618: IF l_debug_on THEN
619: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
620: END IF;
621: --
622: --
623: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
637: --{
638: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
639: --{
640: IF l_debug_on THEN
641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
642: END IF;
643:
644: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
645: x_return_status => l_return_status);
644: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
645: x_return_status => l_return_status);
646:
647: IF l_debug_on THEN
648: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
649: END IF;
650:
651: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
652: x_return_status := l_return_status;
659: -- End of Code Bugfix 4070732
660: --
661:
662: IF l_debug_on THEN
663: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
665: END IF;
666: --
667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
660: --
661:
662: IF l_debug_on THEN
663: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
665: END IF;
666: --
667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
672: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
673: THEN
674: --{
675: IF l_debug_on THEN
676: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
677: END IF;
678:
679: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
680: (
684: );
685: --
686: --
687: IF l_debug_on THEN
688: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
689: END IF;
690: --
691: --
692: --}
702: --{
703: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
704: --{
705: IF l_debug_on THEN
706: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
707: END IF;
708:
709: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
710: x_return_status => l_return_status);
709: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
710: x_return_status => l_return_status);
711:
712: IF l_debug_on THEN
713: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
714: END IF;
715: --}
716: END IF;
717: --}
719: --
720: -- End of Code Bugfix 4070732
721: --
722: IF l_debug_on THEN
723: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
724: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
725: END IF;
726: --
727: WHEN invalid_doc_direction
720: -- End of Code Bugfix 4070732
721: --
722: IF l_debug_on THEN
723: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
724: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
725: END IF;
726: --
727: WHEN invalid_doc_direction
728: THEN
733: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
734: THEN
735: --{
736: IF l_debug_on THEN
737: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
738: END IF;
739:
740: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
741: (
745: );
746: --
747: --
748: IF l_debug_on THEN
749: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
750: END IF;
751: --
752: --
753: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
767: --{
768: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
769: --{
770: IF l_debug_on THEN
771: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
772: END IF;
773:
774: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
775: x_return_status => l_return_status);
774: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
775: x_return_status => l_return_status);
776:
777: IF l_debug_on THEN
778: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
779: END IF;
780:
781: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
782: x_return_status := l_return_status;
789: -- End of Code Bugfix 4070732
790: --
791:
792: IF l_debug_on THEN
793: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_doc_direction exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
794: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_doc_direction');
795: END IF;
796: wsh_debug_sv.stop_debug;
797: WHEN invalid_doc_type
790: --
791:
792: IF l_debug_on THEN
793: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_doc_direction exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
794: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_doc_direction');
795: END IF;
796: wsh_debug_sv.stop_debug;
797: WHEN invalid_doc_type
798: THEN
792: IF l_debug_on THEN
793: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_doc_direction exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
794: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_doc_direction');
795: END IF;
796: wsh_debug_sv.stop_debug;
797: WHEN invalid_doc_type
798: THEN
799: x_return_status := wsh_util_core.g_ret_sts_error;
800:
804: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
805: THEN
806: --{
807: IF l_debug_on THEN
808: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
809: END IF;
810:
811: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
812: (
816: );
817: --
818: --
819: IF l_debug_on THEN
820: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
821: END IF;
822: --
823: --
824: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
838: --{
839: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
840: --{
841: IF l_debug_on THEN
842: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
843: END IF;
844:
845: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
846: x_return_status => l_return_status);
845: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
846: x_return_status => l_return_status);
847:
848: IF l_debug_on THEN
849: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
850: END IF;
851:
852: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
853: x_return_status := l_return_status;
860: -- End of Code Bugfix 4070732
861: --
862:
863: IF l_debug_on THEN
864: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_doc_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
865: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_doc_type');
866: END IF;
867: wsh_debug_sv.stop_debug;
868: WHEN invalid_action_type
861: --
862:
863: IF l_debug_on THEN
864: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_doc_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
865: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_doc_type');
866: END IF;
867: wsh_debug_sv.stop_debug;
868: WHEN invalid_action_type
869: THEN
863: IF l_debug_on THEN
864: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_doc_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
865: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_doc_type');
866: END IF;
867: wsh_debug_sv.stop_debug;
868: WHEN invalid_action_type
869: THEN
870: x_return_status := wsh_util_core.g_ret_sts_error;
871: --
874: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
875: THEN
876: --{
877: IF l_debug_on THEN
878: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
879: END IF;
880:
881: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
882: (
886: );
887: --
888: --
889: IF l_debug_on THEN
890: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
891: END IF;
892: --
893: --
894: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
909: --{
910: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
911: --{
912: IF l_debug_on THEN
913: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
914: END IF;
915:
916: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
917: x_return_status => l_return_status);
916: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
917: x_return_status => l_return_status);
918:
919: IF l_debug_on THEN
920: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
921: END IF;
922:
923: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
924: x_return_status := l_return_status;
931: -- End of Code Bugfix 4070732
932: --
933:
934: IF l_debug_on THEN
935: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_action_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
936: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_action_type');
937: END IF;
938: wsh_debug_sv.stop_debug;
939: WHEN invalid_entity_type
932: --
933:
934: IF l_debug_on THEN
935: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_action_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
936: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_action_type');
937: END IF;
938: wsh_debug_sv.stop_debug;
939: WHEN invalid_entity_type
940: THEN
934: IF l_debug_on THEN
935: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_action_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
936: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_action_type');
937: END IF;
938: wsh_debug_sv.stop_debug;
939: WHEN invalid_entity_type
940: THEN
941: x_return_status := wsh_util_core.g_ret_sts_error;
942:
946: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
947: THEN
948: --{
949: IF l_debug_on THEN
950: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
951: END IF;
952:
953: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
954: (
958: );
959: --
960: --
961: IF l_debug_on THEN
962: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
963: END IF;
964: --
965: --
966: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
980: --{
981: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
982: --{
983: IF l_debug_on THEN
984: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
985: END IF;
986:
987: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
988: x_return_status => l_return_status);
987: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
988: x_return_status => l_return_status);
989:
990: IF l_debug_on THEN
991: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
992: END IF;
993:
994: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
995: x_return_status := l_return_status;
1002: -- End of Code Bugfix 4070732
1003: --
1004:
1005: IF l_debug_on THEN
1006: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_entity_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1007: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_entity_type');
1008: END IF;
1009: wsh_debug_sv.stop_debug;
1010: WHEN OTHERS
1003: --
1004:
1005: IF l_debug_on THEN
1006: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_entity_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1007: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_entity_type');
1008: END IF;
1009: wsh_debug_sv.stop_debug;
1010: WHEN OTHERS
1011: THEN
1005: IF l_debug_on THEN
1006: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_entity_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1007: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_entity_type');
1008: END IF;
1009: wsh_debug_sv.stop_debug;
1010: WHEN OTHERS
1011: THEN
1012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1013: IF l_debug_on THEN
1010: WHEN OTHERS
1011: THEN
1012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1013: IF l_debug_on THEN
1014: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1015: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1016: END IF;
1017: --
1018: -- K LPN CONV. rv
1011: THEN
1012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1013: IF l_debug_on THEN
1014: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1015: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1016: END IF;
1017: --
1018: -- K LPN CONV. rv
1019: --
1020: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1021: THEN
1022: --{
1023: IF l_debug_on THEN
1024: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
1025: END IF;
1026:
1027: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
1028: (
1032: );
1033: --
1034: --
1035: IF l_debug_on THEN
1036: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1037: END IF;
1038: --
1039: --
1040: --}
1047: --
1048: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1049: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1050: IF l_debug_on THEN
1051: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1052: END IF;
1053:
1054: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1055: x_return_status => l_return_status);
1055: x_return_status => l_return_status);
1056:
1057:
1058: IF l_debug_on THEN
1059: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1060: END IF;
1061:
1062: END IF;
1063: END IF;
1065: -- End of Code Bugfix 4070732
1066: --
1067:
1068: IF l_debug_on THEN
1069: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1070: END IF;
1071: wsh_debug_sv.stop_debug;
1072: END process_inbound;
1073:
1067:
1068: IF l_debug_on THEN
1069: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1070: END IF;
1071: wsh_debug_sv.stop_debug;
1072: END process_inbound;
1073:
1074:
1075: /*=======================================================================================
1248: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1249: --
1250: IF l_debug_on IS NULL
1251: THEN
1252: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1253: END IF;
1254: --
1255: IF l_debug_on THEN
1256: wsh_debug_sv.push (l_module_name, 'DERIVE_IDS');
1252: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1253: END IF;
1254: --
1255: IF l_debug_on THEN
1256: wsh_debug_sv.push (l_module_name, 'DERIVE_IDS');
1257: wsh_debug_sv.log (l_module_name,'DELIVERY_INTERFACE_ID',p_delivery_interface_id);
1258: END IF;
1259:
1260: /* Check if the values passed are valid */
1253: END IF;
1254: --
1255: IF l_debug_on THEN
1256: wsh_debug_sv.push (l_module_name, 'DERIVE_IDS');
1257: wsh_debug_sv.log (l_module_name,'DELIVERY_INTERFACE_ID',p_delivery_interface_id);
1258: END IF;
1259:
1260: /* Check if the values passed are valid */
1261:
1270: WHERE delivery_interface_id = p_delivery_interface_id
1271: AND INTERFACE_ACTION_CODE = '94X_INBOUND';
1272:
1273: IF l_debug_on THEN
1274: wsh_debug_sv.log (l_module_name, 'l_del_count',l_del_count);
1275: END IF;
1276:
1277: IF (l_del_count <> 1)
1278: THEN
1281:
1282: FOR delivery_rec IN delivery_cur
1283: LOOP
1284: IF l_debug_on THEN
1285: wsh_debug_sv.log (l_module_name,'Inside Delivery Rec Loop');
1286: wsh_debug_sv.log (l_module_name, 'Delivery Attributes');
1287: wsh_debug_sv.log (l_module_name, 'Delivery Name', delivery_rec.name);
1288: wsh_debug_sv.log (l_module_name, 'Org Code', delivery_rec.organization_code);
1289: wsh_debug_sv.log (l_module_name, 'Initial pickup', delivery_rec.initial_pickup_location_code);
1282: FOR delivery_rec IN delivery_cur
1283: LOOP
1284: IF l_debug_on THEN
1285: wsh_debug_sv.log (l_module_name,'Inside Delivery Rec Loop');
1286: wsh_debug_sv.log (l_module_name, 'Delivery Attributes');
1287: wsh_debug_sv.log (l_module_name, 'Delivery Name', delivery_rec.name);
1288: wsh_debug_sv.log (l_module_name, 'Org Code', delivery_rec.organization_code);
1289: wsh_debug_sv.log (l_module_name, 'Initial pickup', delivery_rec.initial_pickup_location_code);
1290: wsh_debug_sv.log (l_module_name, 'Ultimate Dropoff', delivery_rec.ultimate_dropoff_location_code);
1283: LOOP
1284: IF l_debug_on THEN
1285: wsh_debug_sv.log (l_module_name,'Inside Delivery Rec Loop');
1286: wsh_debug_sv.log (l_module_name, 'Delivery Attributes');
1287: wsh_debug_sv.log (l_module_name, 'Delivery Name', delivery_rec.name);
1288: wsh_debug_sv.log (l_module_name, 'Org Code', delivery_rec.organization_code);
1289: wsh_debug_sv.log (l_module_name, 'Initial pickup', delivery_rec.initial_pickup_location_code);
1290: wsh_debug_sv.log (l_module_name, 'Ultimate Dropoff', delivery_rec.ultimate_dropoff_location_code);
1291: wsh_debug_sv.log (l_module_name, 'IntMed ShipTo', delivery_rec.intmed_ship_to_location_code);
1284: IF l_debug_on THEN
1285: wsh_debug_sv.log (l_module_name,'Inside Delivery Rec Loop');
1286: wsh_debug_sv.log (l_module_name, 'Delivery Attributes');
1287: wsh_debug_sv.log (l_module_name, 'Delivery Name', delivery_rec.name);
1288: wsh_debug_sv.log (l_module_name, 'Org Code', delivery_rec.organization_code);
1289: wsh_debug_sv.log (l_module_name, 'Initial pickup', delivery_rec.initial_pickup_location_code);
1290: wsh_debug_sv.log (l_module_name, 'Ultimate Dropoff', delivery_rec.ultimate_dropoff_location_code);
1291: wsh_debug_sv.log (l_module_name, 'IntMed ShipTo', delivery_rec.intmed_ship_to_location_code);
1292: wsh_debug_sv.log (l_module_name, 'Customer Name', delivery_rec.customer_name);
1285: wsh_debug_sv.log (l_module_name,'Inside Delivery Rec Loop');
1286: wsh_debug_sv.log (l_module_name, 'Delivery Attributes');
1287: wsh_debug_sv.log (l_module_name, 'Delivery Name', delivery_rec.name);
1288: wsh_debug_sv.log (l_module_name, 'Org Code', delivery_rec.organization_code);
1289: wsh_debug_sv.log (l_module_name, 'Initial pickup', delivery_rec.initial_pickup_location_code);
1290: wsh_debug_sv.log (l_module_name, 'Ultimate Dropoff', delivery_rec.ultimate_dropoff_location_code);
1291: wsh_debug_sv.log (l_module_name, 'IntMed ShipTo', delivery_rec.intmed_ship_to_location_code);
1292: wsh_debug_sv.log (l_module_name, 'Customer Name', delivery_rec.customer_name);
1293: END IF;
1286: wsh_debug_sv.log (l_module_name, 'Delivery Attributes');
1287: wsh_debug_sv.log (l_module_name, 'Delivery Name', delivery_rec.name);
1288: wsh_debug_sv.log (l_module_name, 'Org Code', delivery_rec.organization_code);
1289: wsh_debug_sv.log (l_module_name, 'Initial pickup', delivery_rec.initial_pickup_location_code);
1290: wsh_debug_sv.log (l_module_name, 'Ultimate Dropoff', delivery_rec.ultimate_dropoff_location_code);
1291: wsh_debug_sv.log (l_module_name, 'IntMed ShipTo', delivery_rec.intmed_ship_to_location_code);
1292: wsh_debug_sv.log (l_module_name, 'Customer Name', delivery_rec.customer_name);
1293: END IF;
1294:
1287: wsh_debug_sv.log (l_module_name, 'Delivery Name', delivery_rec.name);
1288: wsh_debug_sv.log (l_module_name, 'Org Code', delivery_rec.organization_code);
1289: wsh_debug_sv.log (l_module_name, 'Initial pickup', delivery_rec.initial_pickup_location_code);
1290: wsh_debug_sv.log (l_module_name, 'Ultimate Dropoff', delivery_rec.ultimate_dropoff_location_code);
1291: wsh_debug_sv.log (l_module_name, 'IntMed ShipTo', delivery_rec.intmed_ship_to_location_code);
1292: wsh_debug_sv.log (l_module_name, 'Customer Name', delivery_rec.customer_name);
1293: END IF;
1294:
1295: WSH_UTIL_VALIDATE.Validate_Org (
1288: wsh_debug_sv.log (l_module_name, 'Org Code', delivery_rec.organization_code);
1289: wsh_debug_sv.log (l_module_name, 'Initial pickup', delivery_rec.initial_pickup_location_code);
1290: wsh_debug_sv.log (l_module_name, 'Ultimate Dropoff', delivery_rec.ultimate_dropoff_location_code);
1291: wsh_debug_sv.log (l_module_name, 'IntMed ShipTo', delivery_rec.intmed_ship_to_location_code);
1292: wsh_debug_sv.log (l_module_name, 'Customer Name', delivery_rec.customer_name);
1293: END IF;
1294:
1295: WSH_UTIL_VALIDATE.Validate_Org (
1296: l_org_id,
1297: delivery_rec.organization_code,
1298: x_return_status);
1299:
1300: IF l_debug_on THEN
1301: wsh_debug_sv.log (l_module_name,'Status after validate_org',x_return_status);
1302: END IF;
1303:
1304: IF (x_return_status <> wsh_util_core.g_ret_sts_success)
1305: THEN
1315: P_Organization_ID => l_org_id,
1316: X_Return_Status => l_return_status);
1317:
1318: IF l_debug_on THEN
1319: wsh_debug_sv.log (l_module_name, 'Return status from get warehouse type', l_return_status);
1320: wsh_debug_sv.log (l_module_name, 'Warehouse type ', l_warehouse_type);
1321: END IF;
1322:
1323: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1316: X_Return_Status => l_return_status);
1317:
1318: IF l_debug_on THEN
1319: wsh_debug_sv.log (l_module_name, 'Return status from get warehouse type', l_return_status);
1320: wsh_debug_sv.log (l_module_name, 'Warehouse type ', l_warehouse_type);
1321: END IF;
1322:
1323: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1324: raise get_warehouse_type_failed;
1332: IF l_op_unit_id IS NULL THEN
1333: --{
1334: --
1335: IF l_debug_on THEN
1336: wsh_debug_sv.logmsg(l_module_name, 'Error: Location Org match not found');
1337: END IF;
1338: --
1339:
1340: interface_errors_rec.p_token1 := 'Operating_unit';
1350: delivery_rec.initial_pickup_location_code,
1351: x_return_status);
1352:
1353: IF l_debug_on THEN
1354: wsh_debug_sv.log (l_module_name,'Status after Initial_pickup_location ',x_return_status);
1355: END IF;
1356:
1357: IF (x_return_status <> wsh_util_core.g_ret_sts_success)
1358: THEN
1363:
1364: -- TPW - Distributed changes
1365: IF (p_document_type = 'SA' AND (nvl(l_warehouse_type, '!') = 'TW2')) THEN --{
1366: IF l_debug_on THEN
1367: wsh_debug_sv.log (l_module_name, 'Validating Customer Name');
1368: END IF;
1369:
1370: --Calling Get_Operating_Unit to get the org_id of the organization_id
1371: l_ou_org_id := WSH_UTIL_CORE.Get_Operating_Unit (p_organization_id => l_org_id);
1375: IF ( delivery_rec.customer_name is not null )
1376: THEN
1377: --
1378: IF l_debug_on THEN
1379: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling OE_Value_To_Id.Sold_To_Org', WSH_DEBUG_SV.C_PROC_LEVEL);
1380: END IF;
1381: --
1382: l_customer_id := OE_Value_To_Id.Sold_To_Org(
1383: p_sold_to_org => delivery_rec.customer_name,
1384: p_customer_number => NULL );
1385:
1386: --
1387: IF l_debug_on THEN
1388: WSH_DEBUG_SV.log(l_module_name, 'SoldTo Customer derived from Customer Name', l_customer_id );
1389: END IF;
1390: --
1391:
1392: IF nvl(l_customer_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1402: END IF;
1403:
1404: -- Ship-To Customer
1405: IF l_debug_on THEN
1406: wsh_debug_sv.log (l_module_name, 'Validating Ship To Customer Name');
1407: END IF;
1408: IF (delivery_rec.ship_to_customer_name is not null)
1409: THEN
1410: --Check if ShipTo Customer is same as SoldTo
1413: l_ship_to_cust_id := l_customer_id;
1414: ELSE
1415: --
1416: IF l_debug_on THEN
1417: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling OE_Value_To_Id.Sold_To_Org to derive Ship-To customer', WSH_DEBUG_SV.C_PROC_LEVEL);
1418: WSH_DEBUG_SV.logmsg(l_module_name, 'delivery_rec.ship_to_customer_name ='||delivery_rec.ship_to_customer_name, WSH_DEBUG_SV.C_PROC_LEVEL);
1419: END IF;
1420: --
1421: l_ship_to_cust_id := OE_Value_To_Id.Sold_To_Org(
1414: ELSE
1415: --
1416: IF l_debug_on THEN
1417: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling OE_Value_To_Id.Sold_To_Org to derive Ship-To customer', WSH_DEBUG_SV.C_PROC_LEVEL);
1418: WSH_DEBUG_SV.logmsg(l_module_name, 'delivery_rec.ship_to_customer_name ='||delivery_rec.ship_to_customer_name, WSH_DEBUG_SV.C_PROC_LEVEL);
1419: END IF;
1420: --
1421: l_ship_to_cust_id := OE_Value_To_Id.Sold_To_Org(
1422: p_sold_to_org => delivery_rec.ship_to_customer_name,
1421: l_ship_to_cust_id := OE_Value_To_Id.Sold_To_Org(
1422: p_sold_to_org => delivery_rec.ship_to_customer_name,
1423: p_customer_number => NULL );
1424:
1425: WSH_DEBUG_SV.logmsg(l_module_name, 'l_ship_to_cust_id = '||l_ship_to_cust_id, WSH_DEBUG_SV.C_PROC_LEVEL);
1426:
1427: IF nvl(l_ship_to_cust_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
1428: l_ship_to_cust_id := null;
1429: IF (x_return_status <> wsh_util_core.g_ret_sts_success)
1440: IF (delivery_rec.ship_to_address1 is not null)
1441: THEN
1442: --
1443: IF l_debug_on THEN
1444: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling OE_Value_To_Id.Ship_To_Org', WSH_DEBUG_SV.C_PROC_LEVEL);
1445: END IF;
1446: --
1447: l_ship_to_site_use_id :=
1448: OE_Value_To_Id.Ship_To_Org(
1460: p_ship_to_customer_id => l_ship_to_cust_id);
1461:
1462: --
1463: IF l_debug_on THEN
1464: WSH_DEBUG_SV.log(l_module_name, 'ShipTo Site Use Id', l_ship_to_site_use_id);
1465: END IF;
1466: IF ( nvl(l_ship_to_site_use_id, FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM )
1467: THEN
1468: l_ship_to_site_use_id := null;
1480: l_ship_to_site_use_id,
1481: l_ultimate_dropoff_location_id,
1482: l_return_status);
1483: IF l_debug_on THEN
1484: WSH_DEBUG_SV.logmsg(l_module_name, 'l_return_status '||l_return_status||' Ult Loc Id '||l_ultimate_dropoff_location_id);
1485: END IF;
1486: END IF;
1487: END IF;
1488: END IF;
1508: -- Raise an exception because that is an invalid case
1509:
1510: IF(delivery_rec.customer_name IS NULL) THEN
1511: IF l_debug_on THEN
1512: wsh_debug_sv.log (l_module_name, 'Delivery Rec customer name is null');
1513: END IF;
1514:
1515: BEGIN
1516: SELECT DISTINCT customer_name
1521: AND wdai.delivery_interface_id = p_delivery_interface_id
1522: AND wddi.INTERFACE_ACTION_CODE = '94X_INBOUND'
1523: AND wdai.INTERFACE_ACTION_CODE = '94X_INBOUND';
1524: IF l_debug_on THEN
1525: wsh_debug_sv.log (l_module_name, 'Detail Rec distinct customer name', l_detail_customer_name);
1526: END IF;
1527:
1528: IF l_detail_customer_name IS NOT NULL THEN
1529: delivery_rec.customer_name := l_detail_customer_name;
1535: WHEN NO_DATA_FOUND THEN
1536: raise invalid_customer_name;
1537: WHEN TOO_MANY_ROWS THEN
1538: IF l_debug_on THEN
1539: wsh_debug_sv.log (l_module_name, 'Multiple distinct customer_names for details');
1540: END IF;
1541: raise invalid_customer_name;
1542: END;
1543: END IF; -- if delivery_rec.customer_name
1546: l_dlvy_customer_name := delivery_rec.customer_name;
1547:
1548: IF(delivery_rec.intmed_ship_to_location_code IS NOT NULL) THEN
1549: IF l_debug_on THEN
1550: wsh_debug_sv.log (l_module_name, 'Organization id for delivery ' || l_org_id);
1551: END IF;
1552:
1553: WSH_EXTERNAL_INTERFACE_SV.Validate_Ship_To(
1554: p_customer_name => delivery_rec.customer_name,
1560: x_site_use_id => l_dummy_site_use_id);
1561:
1562:
1563: IF l_debug_on THEN
1564: wsh_debug_sv.log (l_module_name,'Status after Intmed_ship_to_location_code',x_return_status);
1565: END IF;
1566:
1567: IF (x_return_status <> wsh_util_core.g_ret_sts_success) THEN
1568: interface_errors_rec.p_token2 := 'Intmed_Ship_To_Location_Code';
1571: END IF;
1572: END IF;
1573:
1574: IF l_debug_on THEN
1575: wsh_debug_sv.log (l_module_name, 'Organization id for delivery - 2 ' || l_org_id);
1576: END IF;
1577: IF p_document_type <> 'SA' THEN --{ bug 3920178
1578:
1579: WSH_EXTERNAL_INTERFACE_SV.Validate_Ship_To(
1586: x_site_use_id => l_dummy_site_use_id,
1587: p_org_id => l_op_unit_id);
1588:
1589: IF l_debug_on THEN
1590: wsh_debug_sv.log (l_module_name,'Status after ultimate_dropoff_location ',x_return_status);
1591: END IF;
1592:
1593: IF (x_return_status <> wsh_util_core.g_ret_sts_success)
1594: THEN
1601:
1602: /* Update ID fields in interface table only if all the validations succeeded */
1603:
1604: IF l_debug_on THEN
1605: wsh_debug_sv.log (l_module_name, 'l_d_temp_status',l_d_temp_status);
1606: END IF;
1607:
1608: IF (l_d_temp_status <> 'INVALID')
1609: THEN
1632: p_interface_errors_rec =>interface_errors_rec,
1633: p_api_name =>'WSH_EXTERNAL_INTERFACE_SV.Validate_Ship_To',
1634: x_return_status =>x_return_status);
1635: IF l_debug_on THEN
1636: wsh_debug_sv.log (l_module_name, 'log_interface_errors x_return_status',x_return_status);
1637: END IF;
1638: END IF;
1639: END LOOP;
1640:
1639: END LOOP;
1640:
1641: -- TPW - Distributed changes
1642: IF l_debug_on THEN
1643: wsh_debug_sv.log (l_module_name, '*** Validating Delivery details interface ***');
1644: END IF;
1645:
1646: FOR delivery_detail_rec IN delivery_detail_cur
1647: LOOP
1655: delivery_detail_rec.organization_code,
1656: x_return_status);
1657:
1658: IF l_debug_on THEN
1659: wsh_debug_sv.log (l_module_name, 'Organization Code' , delivery_detail_rec.organization_code);
1660: wsh_debug_sv.log (l_module_name, 'Derived Org id', l_det_org_id);
1661: wsh_debug_sv.log (l_module_name, 'Status after validate org for detail',x_return_status);
1662: END IF;
1663:
1656: x_return_status);
1657:
1658: IF l_debug_on THEN
1659: wsh_debug_sv.log (l_module_name, 'Organization Code' , delivery_detail_rec.organization_code);
1660: wsh_debug_sv.log (l_module_name, 'Derived Org id', l_det_org_id);
1661: wsh_debug_sv.log (l_module_name, 'Status after validate org for detail',x_return_status);
1662: END IF;
1663:
1664: IF (x_return_status = wsh_util_core.g_ret_sts_error)
1657:
1658: IF l_debug_on THEN
1659: wsh_debug_sv.log (l_module_name, 'Organization Code' , delivery_detail_rec.organization_code);
1660: wsh_debug_sv.log (l_module_name, 'Derived Org id', l_det_org_id);
1661: wsh_debug_sv.log (l_module_name, 'Status after validate org for detail',x_return_status);
1662: END IF;
1663:
1664: IF (x_return_status = wsh_util_core.g_ret_sts_error)
1665: THEN
1678: THEN
1679: --{
1680: --
1681: IF l_debug_on THEN
1682: wsh_debug_sv.logmsg(l_module_name, 'Error: Location Org match not found');
1683: END IF;
1684: --
1685:
1686: interface_errors_rec.p_token1 := 'Operating_unit'; --bmso
1698: x_inventory_item_id => L_Inventory_Item_ID,
1699: x_return_status =>X_Return_Status);
1700:
1701: IF l_debug_on THEN
1702: wsh_debug_sv.log (l_module_name, 'Return status after validate item',X_Return_Status);
1703: wsh_debug_sv.log (l_module_name, 'Item Number', Delivery_Detail_Rec.Item_Number);
1704: wsh_debug_sv.log (l_module_name, 'Derived Item Id', L_Inventory_Item_ID);
1705: END IF;
1706: IF (x_return_status <> WSH_UTIL_CORE.g_ret_sts_success) Then
1699: x_return_status =>X_Return_Status);
1700:
1701: IF l_debug_on THEN
1702: wsh_debug_sv.log (l_module_name, 'Return status after validate item',X_Return_Status);
1703: wsh_debug_sv.log (l_module_name, 'Item Number', Delivery_Detail_Rec.Item_Number);
1704: wsh_debug_sv.log (l_module_name, 'Derived Item Id', L_Inventory_Item_ID);
1705: END IF;
1706: IF (x_return_status <> WSH_UTIL_CORE.g_ret_sts_success) Then
1707: Interface_Errors_rec.P_token2 := 'Item Number';
1700:
1701: IF l_debug_on THEN
1702: wsh_debug_sv.log (l_module_name, 'Return status after validate item',X_Return_Status);
1703: wsh_debug_sv.log (l_module_name, 'Item Number', Delivery_Detail_Rec.Item_Number);
1704: wsh_debug_sv.log (l_module_name, 'Derived Item Id', L_Inventory_Item_ID);
1705: END IF;
1706: IF (x_return_status <> WSH_UTIL_CORE.g_ret_sts_success) Then
1707: Interface_Errors_rec.P_token2 := 'Item Number';
1708: Interface_Errors_rec.P_value2 := Delivery_Detail_Rec.Item_Number;
1731: x_locator_id => l_locator_id,
1732: x_return_status =>X_Return_Status);
1733:
1734: IF l_debug_on THEN
1735: wsh_debug_sv.log (l_module_name, 'Return status after Validate Locator Code',X_Return_Status);
1736: wsh_debug_sv.log (l_module_name, 'Locator Code', Delivery_Detail_Rec.Locator_code);
1737: wsh_debug_sv.log (l_module_name, 'Derived Locator Id', l_locator_id);
1738: END IF;
1739: IF (x_return_status <> WSH_UTIL_CORE.g_ret_sts_success) Then
1732: x_return_status =>X_Return_Status);
1733:
1734: IF l_debug_on THEN
1735: wsh_debug_sv.log (l_module_name, 'Return status after Validate Locator Code',X_Return_Status);
1736: wsh_debug_sv.log (l_module_name, 'Locator Code', Delivery_Detail_Rec.Locator_code);
1737: wsh_debug_sv.log (l_module_name, 'Derived Locator Id', l_locator_id);
1738: END IF;
1739: IF (x_return_status <> WSH_UTIL_CORE.g_ret_sts_success) Then
1740: Interface_Errors_rec.P_token3 := 'Locator Code';
1733:
1734: IF l_debug_on THEN
1735: wsh_debug_sv.log (l_module_name, 'Return status after Validate Locator Code',X_Return_Status);
1736: wsh_debug_sv.log (l_module_name, 'Locator Code', Delivery_Detail_Rec.Locator_code);
1737: wsh_debug_sv.log (l_module_name, 'Derived Locator Id', l_locator_id);
1738: END IF;
1739: IF (x_return_status <> WSH_UTIL_CORE.g_ret_sts_success) Then
1740: Interface_Errors_rec.P_token3 := 'Locator Code';
1741: Interface_Errors_rec.P_value3 := Delivery_Detail_Rec.Locator_code;
1775: -- Ship To does not at the container level , in the inbound message
1776: -- Hence we need to validate the ship to only for non-containers.
1777: IF (delivery_detail_rec.container_flag = 'N') THEN
1778: IF l_debug_on THEN
1779: wsh_debug_sv.log (l_module_name, 'Organization id for delivery detail ',l_det_org_id);
1780: END IF;
1781: IF p_document_type <> 'SA' THEN --{ bug 3920178
1782: WSH_EXTERNAL_INTERFACE_SV.Validate_Ship_To(
1783: p_customer_name => delivery_detail_rec.customer_name,
1788: p_site_use_code => 'SHIP_TO',
1789: x_site_use_id => l_ship_to_site_use_id);
1790:
1791: IF l_debug_on THEN
1792: wsh_debug_sv.log (l_module_name, 'Validate_Ship_To x_return_status',x_return_status );
1793: END IF;
1794:
1795: IF (x_return_status <> wsh_util_core.g_ret_sts_success) THEN
1796: interface_errors_rec.p_token5 := 'Ship To Location Code';
1801:
1802: -- Validation for Int_Med Ship To
1803: IF(delivery_detail_rec.intmed_ship_to_location_code IS NOT NULL) THEN
1804: IF l_debug_on THEN
1805: wsh_debug_sv.log (l_module_name, 'Organization id for delivery detail - 2' ,l_det_org_id);
1806: END IF;
1807: WSH_EXTERNAL_INTERFACE_SV.Validate_Ship_To(
1808: p_customer_name => delivery_detail_rec.customer_name,
1809: p_location => delivery_detail_rec.intmed_ship_to_location_code,
1813: p_site_use_code => 'SHIP_TO',
1814: x_site_use_id => l_ship_to_site_use_id);
1815:
1816: IF l_debug_on THEN
1817: wsh_debug_sv.log (l_module_name, 'Validate_Ship_To x_return_status',x_return_status );
1818: END IF;
1819: IF (x_return_status <> wsh_util_core.g_ret_sts_success) THEN
1820: interface_errors_rec.p_token6 := 'IntMed ShipTo Location Code';
1821: interface_errors_rec.p_value6 := delivery_detail_rec.intmed_ship_to_location_code;
1825:
1826: -- Validation for Deliver To
1827: IF (delivery_detail_rec.container_flag = 'N') THEN
1828: IF l_debug_on THEN
1829: wsh_debug_sv.log (l_module_name, 'Organization id for delivery detail' ,l_det_org_id);
1830: END IF;
1831:
1832: WSH_EXTERNAL_INTERFACE_SV.Validate_Ship_To(
1833: p_customer_name => delivery_detail_rec.customer_name,
1840: --x_site_use_id => l_ship_to_site_use_id);
1841: x_site_use_id => l_deliver_to_site_use_id);
1842:
1843: IF l_debug_on THEN
1844: wsh_debug_sv.log (l_module_name, 'Validate_Ship_To x_return_status',x_return_status );
1845: END IF;
1846:
1847: IF (x_return_status <> wsh_util_core.g_ret_sts_success) THEN
1848: interface_errors_rec.p_token7 := 'Deliver To Location Code';
1927: END IF; --}
1928:
1929: /* Update ID fields in interface table only if all the validations succeeded */
1930: IF l_debug_on THEN
1931: wsh_debug_sv.log (l_module_name, 'Delivery ID', l_dlvy_id);
1932: wsh_debug_sv.log (l_module_name, 'l_dd_temp_status', l_dd_temp_status);
1933: wsh_debug_sv.log (l_module_name, 'l_loc_temp_status', l_loc_temp_status);
1934: END IF;
1935:
1928:
1929: /* Update ID fields in interface table only if all the validations succeeded */
1930: IF l_debug_on THEN
1931: wsh_debug_sv.log (l_module_name, 'Delivery ID', l_dlvy_id);
1932: wsh_debug_sv.log (l_module_name, 'l_dd_temp_status', l_dd_temp_status);
1933: wsh_debug_sv.log (l_module_name, 'l_loc_temp_status', l_loc_temp_status);
1934: END IF;
1935:
1936: IF (l_dd_temp_status <> 'INVALID')
1929: /* Update ID fields in interface table only if all the validations succeeded */
1930: IF l_debug_on THEN
1931: wsh_debug_sv.log (l_module_name, 'Delivery ID', l_dlvy_id);
1932: wsh_debug_sv.log (l_module_name, 'l_dd_temp_status', l_dd_temp_status);
1933: wsh_debug_sv.log (l_module_name, 'l_loc_temp_status', l_loc_temp_status);
1934: END IF;
1935:
1936: IF (l_dd_temp_status <> 'INVALID')
1937: THEN
1963: p_interface_errors_rec =>interface_errors_rec,
1964: p_api_name => 'wsh_delivery_details_inv.validate_lot_number',
1965: x_return_status =>x_return_status);
1966: IF l_debug_on THEN
1967: wsh_debug_sv.log (l_module_name, 'log_interface_errors x_return_status', x_return_status);
1968: END IF;
1969: --Fulfillment Batch XML Project
1970: IF l_loc_temp_status = 'INVALID' THEN
1971: IF l_debug_on THEN
1968: END IF;
1969: --Fulfillment Batch XML Project
1970: IF l_loc_temp_status = 'INVALID' THEN
1971: IF l_debug_on THEN
1972: wsh_debug_sv.log (l_module_name, 'Checking if item is locator controlled', x_return_status);
1973: END IF;
1974:
1975:
1976: OPEN Get_Inv_Controls (L_Inventory_Item_ID,L_Det_org_ID);
1997: ELSE
1998: x_return_status := wsh_util_core.g_ret_sts_error;
1999: END IF;
2000:
2001: wsh_debug_sv.pop (l_module_name);
2002: EXCEPTION
2003: WHEN invalid_delivery_name THEN
2004: IF(dlvy_id_cur%ISOPEN) THEN
2005: CLOSE dlvy_id_cur;
2005: CLOSE dlvy_id_cur;
2006: END IF;
2007: x_return_status := wsh_util_core.g_ret_sts_error;
2008: IF l_debug_on THEN
2009: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_delivery_name exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2010: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_delivery_name');
2011: END IF;
2012:
2013: WHEN invalid_delivery_int_id THEN
2006: END IF;
2007: x_return_status := wsh_util_core.g_ret_sts_error;
2008: IF l_debug_on THEN
2009: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_delivery_name exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2010: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_delivery_name');
2011: END IF;
2012:
2013: WHEN invalid_delivery_int_id THEN
2014: x_return_status := wsh_util_core.g_ret_sts_error;
2012:
2013: WHEN invalid_delivery_int_id THEN
2014: x_return_status := wsh_util_core.g_ret_sts_error;
2015: IF l_debug_on THEN
2016: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_delivery_int_id exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2017: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_delivery_int_id');
2018: END IF;
2019: WHEN invalid_locator THEN
2020: IF Get_Inv_Controls%ISOPEN THEN
2013: WHEN invalid_delivery_int_id THEN
2014: x_return_status := wsh_util_core.g_ret_sts_error;
2015: IF l_debug_on THEN
2016: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_delivery_int_id exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2017: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_delivery_int_id');
2018: END IF;
2019: WHEN invalid_locator THEN
2020: IF Get_Inv_Controls%ISOPEN THEN
2021: CLOSE Get_Inv_Controls;
2021: CLOSE Get_Inv_Controls;
2022: END IF;
2023: x_return_status := wsh_util_core.g_ret_sts_error;
2024: IF l_debug_on THEN
2025: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_locator exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2026: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_locator');
2027: END IF;
2028: WHEN invalid_customer_name THEN
2029: x_return_status := wsh_util_core.g_ret_sts_error;
2022: END IF;
2023: x_return_status := wsh_util_core.g_ret_sts_error;
2024: IF l_debug_on THEN
2025: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_locator exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2026: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_locator');
2027: END IF;
2028: WHEN invalid_customer_name THEN
2029: x_return_status := wsh_util_core.g_ret_sts_error;
2030: IF l_debug_on THEN
2027: END IF;
2028: WHEN invalid_customer_name THEN
2029: x_return_status := wsh_util_core.g_ret_sts_error;
2030: IF l_debug_on THEN
2031: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_customer_name exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2032: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_customer_name');
2033: END IF;
2034: WHEN get_warehouse_type_failed THEN
2035: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2028: WHEN invalid_customer_name THEN
2029: x_return_status := wsh_util_core.g_ret_sts_error;
2030: IF l_debug_on THEN
2031: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_customer_name exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2032: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_customer_name');
2033: END IF;
2034: WHEN get_warehouse_type_failed THEN
2035: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2036: IF l_debug_on THEN
2033: END IF;
2034: WHEN get_warehouse_type_failed THEN
2035: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2036: IF l_debug_on THEN
2037: WSH_DEBUG_SV.logmsg(l_module_name,'get_warehouse_type_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2038: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:get_warehouse_type_failed');
2039: END IF;
2040: WHEN OTHERS THEN
2041: IF Get_Inv_Controls%ISOPEN THEN
2034: WHEN get_warehouse_type_failed THEN
2035: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2036: IF l_debug_on THEN
2037: WSH_DEBUG_SV.logmsg(l_module_name,'get_warehouse_type_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2038: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:get_warehouse_type_failed');
2039: END IF;
2040: WHEN OTHERS THEN
2041: IF Get_Inv_Controls%ISOPEN THEN
2042: CLOSE Get_Inv_Controls;
2042: CLOSE Get_Inv_Controls;
2043: END IF;
2044: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2045: IF l_debug_on THEN
2046: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2047: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2048: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2049: END IF;
2050: END derive_ids;
2043: END IF;
2044: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2045: IF l_debug_on THEN
2046: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2047: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2048: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2049: END IF;
2050: END derive_ids;
2051:
2044: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2045: IF l_debug_on THEN
2046: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2047: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2048: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2049: END IF;
2050: END derive_ids;
2051:
2052:
2097: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2098: --
2099: IF l_debug_on IS NULL
2100: THEN
2101: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2102: END IF;
2103: --
2104: IF l_debug_on THEN
2105: wsh_debug_sv.push (l_module_name, 'DELETE INTERFACE RECORDS');
2101: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2102: END IF;
2103: --
2104: IF l_debug_on THEN
2105: wsh_debug_sv.push (l_module_name, 'DELETE INTERFACE RECORDS');
2106: wsh_debug_sv.log ( l_module_name, 'DELIVERY INTERFACE ID', p_delivery_interface_id);
2107: END IF;
2108:
2109: SELECT COUNT (*)
2102: END IF;
2103: --
2104: IF l_debug_on THEN
2105: wsh_debug_sv.push (l_module_name, 'DELETE INTERFACE RECORDS');
2106: wsh_debug_sv.log ( l_module_name, 'DELIVERY INTERFACE ID', p_delivery_interface_id);
2107: END IF;
2108:
2109: SELECT COUNT (*)
2110: INTO l_del_count
2181: ELSE -- IF Delivery Doesnot exists
2182: RAISE invalid_delivery;
2183: END IF;
2184:
2185: wsh_debug_sv.pop (l_module_name);
2186: EXCEPTION
2187: WHEN invalid_delivery
2188: THEN
2189: x_return_status := wsh_util_core.g_ret_sts_error;
2187: WHEN invalid_delivery
2188: THEN
2189: x_return_status := wsh_util_core.g_ret_sts_error;
2190: IF l_debug_on THEN
2191: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_delivery exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2192: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_delivery');
2193: END IF;
2194: WHEN invalid_delete
2195: THEN
2188: THEN
2189: x_return_status := wsh_util_core.g_ret_sts_error;
2190: IF l_debug_on THEN
2191: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_delivery exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2192: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_delivery');
2193: END IF;
2194: WHEN invalid_delete
2195: THEN
2196: x_return_status := wsh_util_core.g_ret_sts_error;
2194: WHEN invalid_delete
2195: THEN
2196: x_return_status := wsh_util_core.g_ret_sts_error;
2197: IF l_debug_on THEN
2198: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_delete exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2199: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_delete');
2200: END IF;
2201: WHEN OTHERS
2202: THEN
2195: THEN
2196: x_return_status := wsh_util_core.g_ret_sts_error;
2197: IF l_debug_on THEN
2198: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_delete exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2199: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_delete');
2200: END IF;
2201: WHEN OTHERS
2202: THEN
2203: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2201: WHEN OTHERS
2202: THEN
2203: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2204: IF l_debug_on THEN
2205: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2206: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2207: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2208: END IF;
2209: END delete_interface_records;
2202: THEN
2203: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2204: IF l_debug_on THEN
2205: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2206: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2207: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2208: END IF;
2209: END delete_interface_records;
2210:
2203: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2204: IF l_debug_on THEN
2205: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2206: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2207: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2208: END IF;
2209: END delete_interface_records;
2210:
2211: --R12.1.1 STANDALONE PROJECT - Added new API
2235: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2236: --
2237: IF l_debug_on IS NULL
2238: THEN
2239: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2240: END IF;
2241: --
2242: IF l_debug_on THEN
2243: wsh_debug_sv.push (l_module_name, 'DELETE INTERFACE RECORDS');
2239: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2240: END IF;
2241: --
2242: IF l_debug_on THEN
2243: wsh_debug_sv.push (l_module_name, 'DELETE INTERFACE RECORDS');
2244: wsh_debug_sv.log ( l_module_name, 'p_del_interface_id_tbl.COUNT', p_del_interface_id_tbl.COUNT);
2245: wsh_debug_sv.log ( l_module_name, 'p_del_det_interface_id_tbl.COUNT', p_del_det_interface_id_tbl.COUNT);
2246: wsh_debug_sv.log ( l_module_name, 'p_del_assgn_interface_id_tbl.COUNT', p_del_assgn_interface_id_tbl.COUNT);
2247: wsh_debug_sv.log ( l_module_name, 'p_del_error_interface_id_tbl.COUNT', p_del_error_interface_id_tbl.COUNT);
2240: END IF;
2241: --
2242: IF l_debug_on THEN
2243: wsh_debug_sv.push (l_module_name, 'DELETE INTERFACE RECORDS');
2244: wsh_debug_sv.log ( l_module_name, 'p_del_interface_id_tbl.COUNT', p_del_interface_id_tbl.COUNT);
2245: wsh_debug_sv.log ( l_module_name, 'p_del_det_interface_id_tbl.COUNT', p_del_det_interface_id_tbl.COUNT);
2246: wsh_debug_sv.log ( l_module_name, 'p_del_assgn_interface_id_tbl.COUNT', p_del_assgn_interface_id_tbl.COUNT);
2247: wsh_debug_sv.log ( l_module_name, 'p_del_error_interface_id_tbl.COUNT', p_del_error_interface_id_tbl.COUNT);
2248: wsh_debug_sv.log ( l_module_name, 'p_det_error_interface_id_tbl.COUNT', p_det_error_interface_id_tbl.COUNT);
2241: --
2242: IF l_debug_on THEN
2243: wsh_debug_sv.push (l_module_name, 'DELETE INTERFACE RECORDS');
2244: wsh_debug_sv.log ( l_module_name, 'p_del_interface_id_tbl.COUNT', p_del_interface_id_tbl.COUNT);
2245: wsh_debug_sv.log ( l_module_name, 'p_del_det_interface_id_tbl.COUNT', p_del_det_interface_id_tbl.COUNT);
2246: wsh_debug_sv.log ( l_module_name, 'p_del_assgn_interface_id_tbl.COUNT', p_del_assgn_interface_id_tbl.COUNT);
2247: wsh_debug_sv.log ( l_module_name, 'p_del_error_interface_id_tbl.COUNT', p_del_error_interface_id_tbl.COUNT);
2248: wsh_debug_sv.log ( l_module_name, 'p_det_error_interface_id_tbl.COUNT', p_det_error_interface_id_tbl.COUNT);
2249: END IF;
2242: IF l_debug_on THEN
2243: wsh_debug_sv.push (l_module_name, 'DELETE INTERFACE RECORDS');
2244: wsh_debug_sv.log ( l_module_name, 'p_del_interface_id_tbl.COUNT', p_del_interface_id_tbl.COUNT);
2245: wsh_debug_sv.log ( l_module_name, 'p_del_det_interface_id_tbl.COUNT', p_del_det_interface_id_tbl.COUNT);
2246: wsh_debug_sv.log ( l_module_name, 'p_del_assgn_interface_id_tbl.COUNT', p_del_assgn_interface_id_tbl.COUNT);
2247: wsh_debug_sv.log ( l_module_name, 'p_del_error_interface_id_tbl.COUNT', p_del_error_interface_id_tbl.COUNT);
2248: wsh_debug_sv.log ( l_module_name, 'p_det_error_interface_id_tbl.COUNT', p_det_error_interface_id_tbl.COUNT);
2249: END IF;
2250:
2243: wsh_debug_sv.push (l_module_name, 'DELETE INTERFACE RECORDS');
2244: wsh_debug_sv.log ( l_module_name, 'p_del_interface_id_tbl.COUNT', p_del_interface_id_tbl.COUNT);
2245: wsh_debug_sv.log ( l_module_name, 'p_del_det_interface_id_tbl.COUNT', p_del_det_interface_id_tbl.COUNT);
2246: wsh_debug_sv.log ( l_module_name, 'p_del_assgn_interface_id_tbl.COUNT', p_del_assgn_interface_id_tbl.COUNT);
2247: wsh_debug_sv.log ( l_module_name, 'p_del_error_interface_id_tbl.COUNT', p_del_error_interface_id_tbl.COUNT);
2248: wsh_debug_sv.log ( l_module_name, 'p_det_error_interface_id_tbl.COUNT', p_det_error_interface_id_tbl.COUNT);
2249: END IF;
2250:
2251: x_return_status := wsh_util_core.g_ret_sts_success;
2244: wsh_debug_sv.log ( l_module_name, 'p_del_interface_id_tbl.COUNT', p_del_interface_id_tbl.COUNT);
2245: wsh_debug_sv.log ( l_module_name, 'p_del_det_interface_id_tbl.COUNT', p_del_det_interface_id_tbl.COUNT);
2246: wsh_debug_sv.log ( l_module_name, 'p_del_assgn_interface_id_tbl.COUNT', p_del_assgn_interface_id_tbl.COUNT);
2247: wsh_debug_sv.log ( l_module_name, 'p_del_error_interface_id_tbl.COUNT', p_del_error_interface_id_tbl.COUNT);
2248: wsh_debug_sv.log ( l_module_name, 'p_det_error_interface_id_tbl.COUNT', p_det_error_interface_id_tbl.COUNT);
2249: END IF;
2250:
2251: x_return_status := wsh_util_core.g_ret_sts_success;
2252: --
2255: DELETE FROM wsh_interface_errors
2256: WHERE interface_error_id = p_det_error_interface_id_tbl(i);
2257: --
2258: IF l_debug_on THEN
2259: wsh_debug_sv.logmsg ( l_module_name, 'Deleted '||SQL%ROWCOUNT||' Records from wsh_interface_errors');
2260: END IF;
2261: --
2262: END IF;
2263: --
2266: DELETE FROM wsh_interface_errors
2267: WHERE interface_error_id = p_del_error_interface_id_tbl(i);
2268: --
2269: IF l_debug_on THEN
2270: wsh_debug_sv.logmsg ( l_module_name, 'Deleted '||SQL%ROWCOUNT||' Records from wsh_interface_errors');
2271: END IF;
2272: --
2273: END IF;
2274: --
2277: DELETE FROM wsh_del_assgn_interface
2278: WHERE del_assgn_interface_id = p_del_assgn_interface_id_tbl(i);
2279: --
2280: IF l_debug_on THEN
2281: wsh_debug_sv.logmsg ( l_module_name, 'Deleted '||SQL%ROWCOUNT||' Records from wsh_del_assgn_interface');
2282: END IF;
2283: --
2284: END IF;
2285: --
2288: DELETE FROM wsh_del_details_interface
2289: WHERE delivery_detail_interface_id = p_del_det_interface_id_tbl(i);
2290: --
2291: IF l_debug_on THEN
2292: wsh_debug_sv.logmsg ( l_module_name, 'Deleted '||SQL%ROWCOUNT||' Records from wsh_del_details_interface');
2293: END IF;
2294: --
2295: END IF;
2296: --
2299: DELETE FROM wsh_new_del_interface
2300: WHERE delivery_interface_id = p_del_interface_id_tbl(i);
2301: --
2302: IF l_debug_on THEN
2303: wsh_debug_sv.logmsg ( l_module_name, 'Deleted '||SQL%ROWCOUNT||' Records from wsh_new_del_interface');
2304: END IF;
2305: --
2306: END IF;
2307: --
2305: --
2306: END IF;
2307: --
2308: IF l_debug_on THEN
2309: WSH_DEBUG_SV.log(l_module_name, 'Return Status',x_return_status);
2310: wsh_debug_sv.pop (l_module_name);
2311: END IF;
2312: --
2313: EXCEPTION
2306: END IF;
2307: --
2308: IF l_debug_on THEN
2309: WSH_DEBUG_SV.log(l_module_name, 'Return Status',x_return_status);
2310: wsh_debug_sv.pop (l_module_name);
2311: END IF;
2312: --
2313: EXCEPTION
2314: WHEN OTHERS THEN
2314: WHEN OTHERS THEN
2315: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2316: --
2317: IF l_debug_on THEN
2318: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2319: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2320: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2321: END IF;
2322: --
2315: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2316: --
2317: IF l_debug_on THEN
2318: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2319: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2320: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2321: END IF;
2322: --
2323: END delete_interface_records;
2316: --
2317: IF l_debug_on THEN
2318: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2319: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2320: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2321: END IF;
2322: --
2323: END delete_interface_records;
2324: