24: -- -------------------------------------------------------------------------- --
25: -- R12 Enhancement
26: -- Local data structues
27: -- -------------------------------------------------------------------------- --
28: TYPE FTE_CS_ENTITY_RULE_REC IS RECORD (entity_id_tab WSH_UTIL_CORE.ID_TAB_TYPE,
29: rule_id_tab WSH_UTIL_CORE.ID_TAB_TYPE);
30:
31: TYPE FTE_CS_TEMP_ENTITY_REC IS RECORD( delivery_id NUMBER,
32: trip_id NUMBER,
25: -- R12 Enhancement
26: -- Local data structues
27: -- -------------------------------------------------------------------------- --
28: TYPE FTE_CS_ENTITY_RULE_REC IS RECORD (entity_id_tab WSH_UTIL_CORE.ID_TAB_TYPE,
29: rule_id_tab WSH_UTIL_CORE.ID_TAB_TYPE);
30:
31: TYPE FTE_CS_TEMP_ENTITY_REC IS RECORD( delivery_id NUMBER,
32: trip_id NUMBER,
33: rule_id NUMBER,
129: --
130: WSH_DEBUG_SV.log(l_module_name,'P_QUERY_ID',P_QUERY_ID);
131: END IF;
132: --
133: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
134: x_return_message := null;
135:
136:
137: FOR abcd IN p_message_text_tab.FIRST..p_message_text_tab.LAST LOOP
181: END IF;
182:
183: END LOOP;
184:
185: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
186: x_return_message := null;
187: --
188: -- Debug Statements
189: --
209: IF l_debug_on THEN
210: WSH_DEBUG_SV.logmsg(l_module_name, 'THE UNEXPECTED ERROR FROM FTE_ACS_PKG.LOG_CS_MESSAGES IS ' ||L_ERROR_TEXT );
211: END IF;
212: --
213: WSH_UTIL_CORE.default_handler('FTE_ACS_PKG.LOG_CS_MESSAGES');
214: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
215: x_return_message := ('FTE_ACS_PKG.LOG_CS_MESSAGES '||l_error_text);
216: --
217: -- Debug Statements
210: WSH_DEBUG_SV.logmsg(l_module_name, 'THE UNEXPECTED ERROR FROM FTE_ACS_PKG.LOG_CS_MESSAGES IS ' ||L_ERROR_TEXT );
211: END IF;
212: --
213: WSH_UTIL_CORE.default_handler('FTE_ACS_PKG.LOG_CS_MESSAGES');
214: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
215: x_return_message := ('FTE_ACS_PKG.LOG_CS_MESSAGES '||l_error_text);
216: --
217: -- Debug Statements
218: --
289: WSH_DEBUG_SV.log(l_module_name,'p_entity',p_entity);
290: WSH_DEBUG_SV.log(l_module_name,'p_use_gtt',p_use_gtt);
291: END IF;
292:
293: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
294:
295: IF (p_use_gtt) THEN
296:
297: OPEN c_get_failed_entities;
334: p_exception_name => l_exception_name ,
335: p_message => substrb(l_exception_message,1,2000),
336: p_delivery_id => l_failed_entity_tab(itr).delivery_id);
337:
338: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
339: raise FND_API.G_EXC_UNEXPECTED_ERROR;
340: END IF;
341:
342: EXIT WHEN itr = l_failed_entity_tab.LAST;
368: p_exception_name => l_exception_name ,
369: p_message => substrb(l_exception_message,1,2000),
370: p_trip_id => l_failed_entity_tab(itr).trip_id);
371:
372: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
373: raise FND_API.G_EXC_UNEXPECTED_ERROR;
374: END IF;
375:
376: EXIT WHEN itr = l_failed_entity_tab.LAST;
457: IF c_get_failed_entities%ISOPEN THEN
458: CLOSE c_get_failed_entities;
459: END IF;
460:
461: WSH_UTIL_CORE.default_handler('FTE_ACS_PKG.log_exceptions');
462: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
463:
464: IF l_debug_on THEN
465: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
458: CLOSE c_get_failed_entities;
459: END IF;
460:
461: WSH_UTIL_CORE.default_handler('FTE_ACS_PKG.log_exceptions');
462: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
463:
464: IF l_debug_on THEN
465: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
466: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
530: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_FORMAT_RESULTS';
531:
532: BEGIN
533:
534: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
535:
536: IF l_debug_on THEN
537: wsh_debug_sv.push (l_module_name);
538: END IF;
595: IF l_debug_on THEN
596: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
597: END IF;
598:
599: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
600: raise FND_API.G_EXC_UNEXPECTED_ERROR;
601: END IF;
602:
603: --
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: raise FND_API.G_EXC_UNEXPECTED_ERROR;
653: END IF;
654:
655: x_cs_output_tab(l_cnt).freight_terms_code := l_result_tab(l_itr).freight_terms_code;
763: IF (c_get_rule_name%ISOPEN) THEN
764: CLOSE c_get_rule_name;
765: END IF;
766:
767: WSH_UTIL_CORE.default_handler('FTE_ACS_PKG.get_routing_rules');
768: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
769: --
770: IF l_debug_on THEN
771: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
764: CLOSE c_get_rule_name;
765: END IF;
766:
767: WSH_UTIL_CORE.default_handler('FTE_ACS_PKG.get_routing_rules');
768: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
769: --
770: IF l_debug_on THEN
771: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
772: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
805: l_single_entity BOOLEAN;
806: l_use_gtt BOOLEAN;
807:
808: l_entity_rec FTE_ACS_PKG.fte_cs_entity_rec_type;
809: l_search_level_tab WSH_UTIL_CORE.column_tab_type;
810:
811: l_output_tab FTE_ACS_CACHE_PKG.fte_cs_entity_attr_tab;
812: l_entity_info FTE_ACS_CACHE_PKG.fte_cs_entity_attr_rec;
813:
828: IF l_debug_on THEN
829: wsh_debug_sv.push (l_module_name);
830: END IF;
831:
832: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
833:
834: --
835: -- Format the data.
836: -- a) Determine Freight Term code levels
844: IF l_debug_on THEN
845: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
846: END IF;
847:
848: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
849: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
850: raise FND_API.G_EXC_UNEXPECTED_ERROR;
851: END IF;
852: END IF;
845: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
846: END IF;
847:
848: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
849: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
850: raise FND_API.G_EXC_UNEXPECTED_ERROR;
851: END IF;
852: END IF;
853:
928: IF l_debug_on THEN
929: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
930: END IF;
931:
932: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
933: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
934: raise FND_API.G_EXC_UNEXPECTED_ERROR;
935: END IF;
936: END IF;
929: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
930: END IF;
931:
932: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
933: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
934: raise FND_API.G_EXC_UNEXPECTED_ERROR;
935: END IF;
936: END IF;
937:
1002: IF l_debug_on THEN
1003: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
1004: END IF;
1005:
1006: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1007: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1008: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1009: END IF;
1010: END IF;
1003: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
1004: END IF;
1005:
1006: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1007: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1008: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1009: END IF;
1010: END IF;
1011:
1032: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
1033: WSH_DEBUG_SV.log(l_module_name,'l_rule_id ',l_rule_id);
1034: END IF;
1035:
1036: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1037: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1038: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1039: END IF;
1040: END IF;
1033: WSH_DEBUG_SV.log(l_module_name,'l_rule_id ',l_rule_id);
1034: END IF;
1035:
1036: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1037: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1038: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1039: END IF;
1040: END IF;
1041:
1117: IF l_debug_on THEN
1118: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
1119: END IF;
1120:
1121: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1122: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1123: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1124: END IF;
1125: END IF;
1118: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
1119: END IF;
1120:
1121: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1122: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1123: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1124: END IF;
1125: END IF;
1126: END IF;
1143: IF l_debug_on THEN
1144: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
1145: END IF;
1146:
1147: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1148: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1149: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1150: END IF;
1151: END IF;
1144: WSH_DEBUG_SV.log(l_module_name,'l_return Status ',l_return_status);
1145: END IF;
1146:
1147: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1148: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1149: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1150: END IF;
1151: END IF;
1152:
1156: -- We can have multirecords in this case
1157: --
1158:
1159: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_NO_CARRIER_SELECTED');
1160: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1161: WSH_UTIL_CORE.add_message(x_return_status);
1162:
1163: END IF;
1164:
1157: --
1158:
1159: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_NO_CARRIER_SELECTED');
1160: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1161: WSH_UTIL_CORE.add_message(x_return_status);
1162:
1163: END IF;
1164:
1165: END IF;
1171: EXCEPTION
1172:
1173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1174: --
1175: WSH_UTIL_CORE.default_handler('FTE_ACS_PKG.get_routing_rules');
1176: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1177: --
1178: IF l_debug_on THEN
1179: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1172:
1173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1174: --
1175: WSH_UTIL_CORE.default_handler('FTE_ACS_PKG.get_routing_rules');
1176: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1177: --
1178: IF l_debug_on THEN
1179: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1180: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1181: END IF;
1182:
1183: WHEN OTHERS THEN
1184: --
1185: WSH_UTIL_CORE.default_handler('FTE_ACS_PKG.get_routing_rules');
1186: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1187: --
1188: IF l_debug_on THEN
1189: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1182:
1183: WHEN OTHERS THEN
1184: --
1185: WSH_UTIL_CORE.default_handler('FTE_ACS_PKG.get_routing_rules');
1186: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1187: --
1188: IF l_debug_on THEN
1189: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1190: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');