70: END IF;
71: --
72:
73: Process_Shipment_Advice(
74: p_commit_flag => FND_API.G_TRUE,
75: p_transaction_status => p_transaction_status,
76: p_from_document_number => p_from_document_number,
77: p_to_document_number => p_to_document_number,
78: p_from_creation_date => p_from_creation_date,
130: -- PUBLIC PROCEDURE :
131: -- Process_Shipment_Advice
132: --
133: -- PARAMETERS:
134: -- p_commit_flag => Either FND_API.G_TRUE, FND_API.G_FALSE
135: -- p_transaction_status => Either AP, ER, NULL
136: -- p_from_document_number => From Document Number
137: -- p_to_document_number => To Document Number
138: -- p_from_creation_date => From Creation Date
245: --
246:
247: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
248: l_tpw_install := FND_PROFILE.Value('WSH_SR_SOURCE');
249: IF nvl(l_tpw_install, FND_API.G_MISS_CHAR) <> 'B' THEN
250: --
251: IF l_debug_on THEN
252: WSH_DEBUG_SV.log(l_module_name,'Error: Profile option "WSH: Distributed Source Entity" value is not set to B(Batch)', l_tpw_install);
253: RAISE FND_API.G_EXC_ERROR;
249: IF nvl(l_tpw_install, FND_API.G_MISS_CHAR) <> 'B' THEN
250: --
251: IF l_debug_on THEN
252: WSH_DEBUG_SV.log(l_module_name,'Error: Profile option "WSH: Distributed Source Entity" value is not set to B(Batch)', l_tpw_install);
253: RAISE FND_API.G_EXC_ERROR;
254: END IF;
255: --
256: END IF;
257:
556: IF l_debug_on THEN
557: wsh_debug_sv.log(l_module_name,'Unexpected error occurred in Process_Shipment_Advice', l_tmp_status);
558: END IF;
559: --
560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
561: END IF;
562: END LOOP; --}
563:
564: IF p_transaction_id is not null THEN
604: FND_FILE.put_line(FND_FILE.output, 'No. of Shipment Advices errored during processing => ' || l_errors);
605: END IF;
606: --
607: EXCEPTION
608: when FND_API.G_EXC_ERROR then
609: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
610: IF p_transaction_id is not null THEN
611: IF C_Get_One_Transactions%ISOPEN THEN
612: CLOSE C_Get_One_Transactions;
618: END IF;
619: END IF;
620: --
621: IF l_debug_on THEN
622: wsh_debug_sv.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
623: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
624: END IF;
625: --
626:
619: END IF;
620: --
621: IF l_debug_on THEN
622: wsh_debug_sv.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
623: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
624: END IF;
625: --
626:
627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
624: END IF;
625: --
626:
627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
629: IF p_transaction_id is not null THEN
630: IF C_Get_One_Transactions%ISOPEN THEN
631: CLOSE C_Get_One_Transactions;
624: END IF;
625: --
626:
627: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
629: IF p_transaction_id is not null THEN
630: IF C_Get_One_Transactions%ISOPEN THEN
631: CLOSE C_Get_One_Transactions;
632: END IF;
637: END IF;
638: END IF;
639: --
640: IF l_debug_on THEN
641: wsh_debug_sv.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
642: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
643: END IF;
644: --
645:
638: END IF;
639: --
640: IF l_debug_on THEN
641: wsh_debug_sv.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
642: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
643: END IF;
644: --
645:
646: WHEN OTHERS THEN