[Home] [Help]
82: l_debug_on BOOLEAN;
83: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Shipment_Request_Inbound';
84: BEGIN
85: --
86: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
87: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
88: --
89: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
90: --
83: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Shipment_Request_Inbound';
84: BEGIN
85: --
86: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
87: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
88: --
89: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
90: --
91: IF l_debug_on IS NULL
129: END IF;
130: --
131:
132:
133: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
134: l_completion_status := 'SUCCESS';
135: errbuf := 'Process Shipment Requests Program has completed successfully';
136: retcode := '0';
137: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
133: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
134: l_completion_status := 'SUCCESS';
135: errbuf := 'Process Shipment Requests Program has completed successfully';
136: retcode := '0';
137: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
138: l_completion_status := 'WARNING';
139: errbuf := 'Process Shipment Requests Program has completed with warning';
140: retcode := '1';
141: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
137: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
138: l_completion_status := 'WARNING';
139: errbuf := 'Process Shipment Requests Program has completed with warning';
140: retcode := '1';
141: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
142: l_completion_status := 'ERROR';
143: errbuf := 'Process Shipment Requests Program has completed with error';
144: retcode := '2';
145: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
141: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
142: l_completion_status := 'ERROR';
143: errbuf := 'Process Shipment Requests Program has completed with error';
144: retcode := '2';
145: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
146: l_completion_status := 'UNEXPECTED ERROR';
147: errbuf := 'Process Shipment Requests Program has completed with unexpected error';
148: retcode := '2';
149: END IF;
157: END IF;
158: --
159: EXCEPTION
160: WHEN OTHERS THEN
161: l_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
162: errbuf := 'Process Shipment Requests Program is completed with unexpected error - ' || SQLCODE;
163: retcode := '2';
164: --
165: IF l_debug_on THEN
298: wsh_debug_sv.log(l_module_name, 'p_transaction_id', p_transaction_id);
299: END IF;
300: --
301:
302: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
303:
304: --Check if instance is running in Standalone, if not exit out of the program
305: --
306: IF l_debug_on THEN
606: END IF;
607: --
608: END IF;
609:
610: l_tmp_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
611: l_total := l_total + 1;
612:
613: IF l_transaction_rec.item_type is not null and
614: l_transaction_rec.event_key is not null --{
633: wsh_debug_sv.log(l_module_name,'l_trx_status', l_trx_status);
634: END IF;
635:
636: IF l_trx_status <> 'SC' THEN
637: l_tmp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
638: END IF;
639: ELSE
640: --
641: IF l_debug_on THEN
654: --
655: END IF; --}
656:
657: -- API Process_Shipment_Request will return WARNING if its not able to lock tables.
658: IF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
659: l_success := l_success + 1;
660: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_ERROR
661: THEN
662: l_errors := l_errors + 1;
656:
657: -- API Process_Shipment_Request will return WARNING if its not able to lock tables.
658: IF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
659: l_success := l_success + 1;
660: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_ERROR
661: THEN
662: l_errors := l_errors + 1;
663: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
664: THEN
659: l_success := l_success + 1;
660: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_ERROR
661: THEN
662: l_errors := l_errors + 1;
663: ELSIF l_tmp_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
664: THEN
665: --
666: IF l_debug_on THEN
667: wsh_debug_sv.log(l_module_name,'Unexpected error occurred in Process_Shipment_Request', l_tmp_status);
687: END IF;
688: END IF;
689:
690: IF (l_total = l_success) THEN
691: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
692: ELSIF (l_total = l_errors) THEN
693: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
694: ELSE
695: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
689:
690: IF (l_total = l_success) THEN
691: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
692: ELSIF (l_total = l_errors) THEN
693: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
694: ELSE
695: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
696: END IF;
697:
691: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
692: ELSIF (l_total = l_errors) THEN
693: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
694: ELSE
695: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
696: END IF;
697:
698: -- To Print in Concurrent Request Output File
699: IF FND_GLOBAL.Conc_Request_Id > 0 THEN
721: END IF;
722: --
723: EXCEPTION
724: when FND_API.G_EXC_ERROR then
725: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
726: IF p_transaction_id is not null THEN
727: IF C_Get_One_Transactions%ISOPEN THEN
728: CLOSE C_Get_One_Transactions;
729: END IF;
740: END IF;
741: --
742:
743: WHEN OTHERS THEN
744: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
745: IF p_transaction_id is not null THEN
746: IF C_Get_One_Transactions%ISOPEN THEN
747: CLOSE C_Get_One_Transactions;
748: END IF;
850:
851: l_po_start_time DATE;
852: l_po_end_time DATE;
853:
854: l_line_details_tbl WSH_UTIl_CORE.Id_Tab_Type;
855: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
856: l_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
857: l_upd_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
858: l_entity_number_tbl WSH_UTIL_CORE.Id_Tab_Type;
851: l_po_start_time DATE;
852: l_po_end_time DATE;
853:
854: l_line_details_tbl WSH_UTIl_CORE.Id_Tab_Type;
855: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
856: l_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
857: l_upd_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
858: l_entity_number_tbl WSH_UTIL_CORE.Id_Tab_Type;
859: l_del_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
852: l_po_end_time DATE;
853:
854: l_line_details_tbl WSH_UTIl_CORE.Id_Tab_Type;
855: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
856: l_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
857: l_upd_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
858: l_entity_number_tbl WSH_UTIL_CORE.Id_Tab_Type;
859: l_del_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
860: l_det_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
853:
854: l_line_details_tbl WSH_UTIl_CORE.Id_Tab_Type;
855: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
856: l_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
857: l_upd_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
858: l_entity_number_tbl WSH_UTIL_CORE.Id_Tab_Type;
859: l_del_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
860: l_det_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
861: l_close_line_tbl WSH_UTIL_CORE.Id_Tab_Type;
854: l_line_details_tbl WSH_UTIl_CORE.Id_Tab_Type;
855: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
856: l_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
857: l_upd_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
858: l_entity_number_tbl WSH_UTIL_CORE.Id_Tab_Type;
859: l_del_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
860: l_det_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
861: l_close_line_tbl WSH_UTIL_CORE.Id_Tab_Type;
862: l_delivery_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
855: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
856: l_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
857: l_upd_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
858: l_entity_number_tbl WSH_UTIL_CORE.Id_Tab_Type;
859: l_del_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
860: l_det_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
861: l_close_line_tbl WSH_UTIL_CORE.Id_Tab_Type;
862: l_delivery_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
863: l_detail_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
856: l_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
857: l_upd_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
858: l_entity_number_tbl WSH_UTIL_CORE.Id_Tab_Type;
859: l_del_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
860: l_det_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
861: l_close_line_tbl WSH_UTIL_CORE.Id_Tab_Type;
862: l_delivery_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
863: l_detail_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
864: l_del_assgn_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
857: l_upd_txn_history_tbl WSH_UTIL_CORE.Id_Tab_Type;
858: l_entity_number_tbl WSH_UTIL_CORE.Id_Tab_Type;
859: l_del_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
860: l_det_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
861: l_close_line_tbl WSH_UTIL_CORE.Id_Tab_Type;
862: l_delivery_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
863: l_detail_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
864: l_del_assgn_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
865: l_delivery_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
858: l_entity_number_tbl WSH_UTIL_CORE.Id_Tab_Type;
859: l_del_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
860: l_det_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
861: l_close_line_tbl WSH_UTIL_CORE.Id_Tab_Type;
862: l_delivery_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
863: l_detail_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
864: l_del_assgn_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
865: l_delivery_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
866: l_transaction_rec WSH_TRANSACTIONS_HISTORY_PKG.Txns_History_Record_Type;
859: l_del_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
860: l_det_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
861: l_close_line_tbl WSH_UTIL_CORE.Id_Tab_Type;
862: l_delivery_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
863: l_detail_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
864: l_del_assgn_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
865: l_delivery_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
866: l_transaction_rec WSH_TRANSACTIONS_HISTORY_PKG.Txns_History_Record_Type;
867:
860: l_det_interface_error_tbl WSH_UTIL_CORE.Id_Tab_Type;
861: l_close_line_tbl WSH_UTIL_CORE.Id_Tab_Type;
862: l_delivery_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
863: l_detail_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
864: l_del_assgn_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
865: l_delivery_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
866: l_transaction_rec WSH_TRANSACTIONS_HISTORY_PKG.Txns_History_Record_Type;
867:
868: l_init_om_header_rec OM_Header_Rec_Type;
861: l_close_line_tbl WSH_UTIL_CORE.Id_Tab_Type;
862: l_delivery_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
863: l_detail_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
864: l_del_assgn_interface_tbl WSH_UTIL_CORE.Id_Tab_Type;
865: l_delivery_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
866: l_transaction_rec WSH_TRANSACTIONS_HISTORY_PKG.Txns_History_Record_Type;
867:
868: l_init_om_header_rec OM_Header_Rec_Type;
869: l_om_header_rec OM_Header_Rec_Type;
913: l_lpn_out_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_out_rec_type;
914:
915: interface_error_rec WSH_INTERFACE_VALIDATIONS_PKG.interface_errors_rec_type;
916: interface_error_tab WSH_INTERFACE_VALIDATIONS_PKG.interface_errors_rec_tab;
917: l_dummy WSH_UTIL_CORE.Id_Tab_Type;
918: -- LSP PROJECT : begin
919: l_modify_otm_flag VARCHAR2(1);
920: l_modify_oe_iface_flag VARCHAR2(1);
921: l_client_id NUMBER;
952: --
953:
954: l_tmp := null;
955:
956: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
957:
958: --
959: IF l_debug_on THEN
960: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling WMS_DEPLOY.Wms_Deployment_Mode', WSH_DEBUG_SV.C_PROC_LEVEL);
1019: END IF;
1020: --
1021: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_POSITIVE_INTEGER');
1022: FND_MESSAGE.Set_Token('ATTRIBUTE', 'DOCUMENT_NUMBER');
1023: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1024: END;
1025:
1026: --Validating Document Revision
1027: BEGIN
1038: END IF;
1039: --
1040: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_POSITIVE_INTEGER');
1041: FND_MESSAGE.Set_Token('ATTRIBUTE', 'DOCUMENT_REVISION');
1042: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1043: END;
1044:
1045: BEGIN
1046: l_entity_number := to_number(l_transaction_rec.entity_number);
1194: p_delivery_interface_id => l_entity_number,
1195: x_delivery_interface_rec => l_new_del_rec,
1196: x_return_status => l_return_status );
1197:
1198: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1199: --
1200: IF l_debug_on THEN
1201: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Get_Standalone_Defaults => ' || l_return_status, WSH_DEBUG_SV.C_ERR_LEVEL);
1202: END IF;
1226: x_return_status => l_return_status);
1227: IF l_debug_on THEN
1228: WSH_DEBUG_SV.logmsg(l_module_name, 'ClientId:'||l_client_id||','||'ClientName:'||l_client_name||','||'Return status:'||l_return_status);
1229: END IF;
1230: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1231: --{
1232: IF l_debug_on THEN
1233: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in WMS_DEPLOY.GET_CLIENT_DETAILS');
1234: END IF;
1234: END IF;
1235: l_temp_status := 'INVALID_HEADER';
1236: FND_MESSAGE.Set_Name('WSH', 'WSH_OI_INVALID_ATTRIBUTE');
1237: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CLIENT_CODE');
1238: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1239: GOTO loop_end;
1240: --}
1241: END IF;
1242: -- Call client setup API to return all client default parameter values.
1246: inv_cache.get_client_default_parameters (
1247: p_client_id => l_client_id,
1248: x_client_parameters_rec => l_client_params,
1249: x_return_status => l_return_status);
1250: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1251: IF l_debug_on THEN
1252: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in get_client_default_parameters => ' || l_return_status, WSH_DEBUG_SV.C_ERR_LEVEL);
1253: END IF;
1254: l_temp_status := 'INVALID_HEADER';
1253: END IF;
1254: l_temp_status := 'INVALID_HEADER';
1255: FND_MESSAGE.Set_Name('WSH', 'WSH_OI_INVALID_ATTRIBUTE');
1256: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CLIENT_DEFAULTS');
1257: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1258: GOTO loop_end;
1259: END IF;
1260: l_org_id := NULL;
1261: l_order_type_id := NULL;
1280: END IF;
1281: l_temp_status := 'INVALID_HEADER';
1282: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_ATTR_MANDATORY');
1283: FND_MESSAGE.Set_Token('ATTRIBUTE', 'CLIENT_CODE');
1284: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1285: GOTO loop_end;
1286: --} client validation.
1287: END IF;
1288: --} LSP check
1347: END IF;
1348: --
1349: l_temp_status := 'INVALID_HEADER';
1350: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_ERROR');
1351: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1352: goto loop_end;
1353: END IF;
1354:
1355: --Validate Currency Code
1370:
1371: WHEN TOO_MANY_ROWS THEN
1372: l_temp_status := 'INVALID_HEADER';
1373: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_CURRENCY_CODE');
1374: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1375: IF l_debug_on THEN
1376: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Shipment Request has lines with more than 1 Currency Code');
1377: END IF;
1378: --
1383: l_temp_status := 'INVALID_HEADER';
1384: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_CURRENCY_MISMATCH');
1385: FND_MESSAGE.Set_Token('CUR_CODE_HDR', l_currency_code);
1386: FND_MESSAGE.Set_Token('CUR_CODE_LINES', l_temp_currency_code);
1387: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1388: --
1389: IF l_debug_on THEN
1390: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Shipment Request has lines with more than 1 Currency Code');
1391: END IF;
1423:
1424: IF l_transaction_rec.action_type = 'A' THEN
1425: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_HEADER_EXISTS');
1426: FND_MESSAGE.Set_Token('DOCUMENT_NUMBER', l_document_number);
1427: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1428: l_temp_status := 'INVALID_HEADER';
1429: --
1430: IF l_debug_on THEN
1431: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Shipment Request already exist for same document number and revision');
1434: goto loop_end;
1435: ELSIF l_om_header_rec.open_flag = 'N' THEN
1436: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_HEADER_CLOSED');
1437: FND_MESSAGE.Set_Token('DOCUMENT_NUMBER', l_document_number);
1438: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1439: l_temp_status := 'INVALID_HEADER';
1440: --
1441: IF l_debug_on THEN
1442: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Shipment Request is already closed');
1446: ELSIF l_om_header_rec.version_number >= l_document_revision
1447: THEN
1448: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_INVALID_REVISION');
1449: FND_MESSAGE.Set_Token('DOCUMENT_REVISION', l_document_revision);
1450: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1451: l_temp_status := 'INVALID_HEADER';
1452: --
1453: IF l_debug_on THEN
1454: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Shipment Request with higher revision is already processed');
1466: p_delivery_interface_id => l_entity_number,
1467: p_interface_records => 'Y',
1468: x_return_status => l_return_status );
1469:
1470: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
1471: THEN
1472: l_temp_status := 'NO_LOCK';
1473: goto loop_end;
1474: END IF;
1512: WSH_CUSTOM_PUB.Post_Process_Shipment_Request(
1513: p_transaction_id => l_transaction_rec.transaction_id,
1514: x_return_status => l_return_status );
1515:
1516: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1517: --
1518: IF l_debug_on THEN
1519: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in WSH_CUSTOM_PUB.Post_Process_Shipment_Request', WSH_DEBUG_SV.C_ERR_LEVEL);
1520: END IF;
1533: p_del_error_interface_id_tbl => l_del_interface_error_tbl,
1534: p_det_error_interface_id_tbl => l_det_interface_error_tbl,
1535: x_return_status => l_return_status);
1536:
1537: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1538: --
1539: IF l_debug_on THEN
1540: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Delete_Interface_Records => ' || l_return_status, WSH_DEBUG_SV.C_ERR_LEVEL);
1541: END IF;
1558: p_om_header_rec => l_om_header_rec,
1559: x_del_interface_rec => l_new_del_rec,
1560: x_return_status => l_return_status );
1561:
1562: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1563: --
1564: IF l_debug_on THEN
1565: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Derive_Header_Rec => ' || l_return_status, WSH_DEBUG_SV.C_ERR_LEVEL);
1566: END IF;
1590: p_del_interface_rec => l_new_del_rec,
1591: x_header_rec => l_header_rec,
1592: x_return_status => l_return_status );
1593:
1594: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1595: --
1596: IF l_debug_on THEN
1597: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Populate_Header_Rec => ' || l_return_status, WSH_DEBUG_SV.C_ERR_LEVEL);
1598: END IF;
1629: x_details_interface_rec_tab => l_details_interface_tab,
1630: x_interface_error_tab => interface_error_tab,
1631: x_return_status => l_return_status );
1632:
1633: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1634: --
1635: IF l_debug_on THEN
1636: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Derive_Line_Rec => ' || l_return_status, WSH_DEBUG_SV.C_ERR_LEVEL);
1637: END IF;
1652: p_delivery_interface_id => l_entity_number,
1653: p_interface_records => 'N',
1654: x_return_status => l_return_status );
1655:
1656: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
1657: THEN
1658: l_temp_status := 'NO_LOCK';
1659: goto loop_end;
1660: END IF;
1673: x_line_tbl => l_line_tbl,
1674: x_line_details_tbl => l_line_details_tbl,
1675: x_return_status => l_return_status );
1676:
1677: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1678: --
1679: IF l_debug_on THEN
1680: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Populate_Line_Records', WSH_DEBUG_SV.C_ERR_LEVEL);
1681: END IF;
1697: x_line_tbl => l_line_tbl,
1698: x_customer_info => l_header_customer_info_tbl,
1699: x_return_status => l_return_status );
1700:
1701: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1702: --
1703: IF l_debug_on THEN
1704: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in Populate_OM_Common_Attr', WSH_DEBUG_SV.C_ERR_LEVEL);
1705: END IF;
1726: END IF;
1727: --
1728: l_temp_status := 'INVALID_HEADER';
1729: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_LINE_MISSING');
1730: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
1731: goto loop_end;
1732: ELSE
1733: FOR i in l_line_tbl.first..l_line_tbl.last
1734: LOOP
1903: p_details_interface_tab => l_details_interface_tab,
1904: x_interface_error_tab => interface_error_tab,
1905: x_return_status => l_return_status );
1906:
1907: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1908: --
1909: IF l_debug_on THEN
1910: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Validate_Interface_Details', WSH_DEBUG_SV.C_ERR_LEVEL);
1911: END IF;
1922: --{
1923: l_modify_oe_iface_flag := 'Y'; --Need to update oe_interfaced_flag value to 'X' (om interface is not required).
1924: --
1925: l_modify_otm_flag := 'Y'; --Need to update ignore for planning value.
1926: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1927: IF l_gc3_is_installed IS NULL THEN
1928: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1929: END IF;
1930: IF l_debug_on THEN
1924: --
1925: l_modify_otm_flag := 'Y'; --Need to update ignore for planning value.
1926: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1927: IF l_gc3_is_installed IS NULL THEN
1928: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1929: END IF;
1930: IF l_debug_on THEN
1931: wsh_debug_sv.log(l_module_name,'l_gc3_is_installed ',l_gc3_is_installed);
1932: wsh_debug_sv.log(l_module_name,'otm_enabled ',l_client_params.client_rec.otm_enabled);
2042: END IF;
2043: --
2044: l_temp_status := 'INVALID_HEADER';
2045: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_ERROR');
2046: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
2047: goto loop_end;
2048: END IF;
2049: END IF;
2050:
2086: p_entity_ids => l_details_marked,
2087: x_return_status => l_return_status);
2088:
2089:
2090: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2091: --
2092: IF l_debug_on THEN
2093: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Calculate_cont_del_tpdates', WSH_DEBUG_SV.C_ERR_LEVEL);
2094: END IF;
2108: WSH_SHIP_CONFIRM_ACTIONS.Process_Lines_To_OM(
2109: p_line_id_tab => l_close_line_tbl,
2110: x_return_status => l_return_status );
2111:
2112: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2113: --
2114: IF l_debug_on THEN
2115: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in WSH_Process_line_To_OM', WSH_DEBUG_SV.C_ERR_LEVEL);
2116: END IF;
2173: WSH_CUSTOM_PUB.Post_Process_Shipment_Request(
2174: p_transaction_id => l_transaction_rec.transaction_id,
2175: x_return_status => l_return_status );
2176:
2177: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
2178: --
2179: IF l_debug_on THEN
2180: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in WSH_CUSTOM_PUB.Post_Process_Shipment_Request', WSH_DEBUG_SV.C_ERR_LEVEL);
2181: END IF;
2190: p_del_error_interface_id_tbl => l_del_interface_error_tbl,
2191: p_det_error_interface_id_tbl => l_det_interface_error_tbl,
2192: x_return_status => l_return_status);
2193:
2194: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
2195: --
2196: IF l_debug_on THEN
2197: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Delete_Interface_Records', WSH_DEBUG_SV.C_ERR_LEVEL);
2198: END IF;
2298: IF l_debug_on THEN
2299: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2300: END IF;
2301: --
2302: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2303: --
2304: IF l_debug_on THEN
2305: WSH_DEBUG_SV.logmsg(l_module_name, 'LPN Sync API WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS failed');
2306: END IF;
2310: --}
2311: END IF;
2312:
2313: IF l_temp_status in ( 'INVALID', 'INVALID_HEADER' ) THEN --{
2314: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2315: -- To Print in Concurrent Request Output File
2316: IF FND_GLOBAL.Conc_Request_Id > 0 THEN
2317: FND_FILE.put_line(FND_FILE.output, ' Process Shipment Request failed to process document number: ' || l_transaction_rec.document_number);
2318: END IF;
2335: p_interface_table_name => 'WSH_NEW_DEL_INTERFACE',
2336: x_interface_errors_rec_tab => interface_error_tab,
2337: x_return_status => l_return_status );
2338:
2339: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2340: --
2341: IF l_debug_on THEN
2342: WSH_DEBUG_SV.logmsg(l_module_name, 'Populate_Error_Records returned unexpected error', WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2343: END IF;
2398: WSH_CUSTOM_PUB.Post_Process_Shipment_Request(
2399: p_transaction_id => l_transaction_rec.transaction_id,
2400: x_return_status => l_return_status );
2401:
2402: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
2403: --
2404: IF l_debug_on THEN
2405: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in WSH_CUSTOM_PUB.Post_Process_Shipment_Request', WSH_DEBUG_SV.C_ERR_LEVEL);
2406: END IF;
2420: p_del_error_interface_id_tbl => l_del_interface_error_tbl,
2421: p_det_error_interface_id_tbl => l_det_interface_error_tbl,
2422: x_return_status => l_return_status);
2423:
2424: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
2425: --
2426: IF l_debug_on THEN
2427: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Delete_Interface_Records', WSH_DEBUG_SV.C_ERR_LEVEL);
2428: END IF;
2446: p_interface_errors_rec_tab => interface_error_tab,
2447: p_interface_action_code => g_interface_action_code,
2448: x_return_status => l_return_status);
2449:
2450: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
2451: --
2452: IF l_debug_on THEN
2453: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Log_Interface_Errors', WSH_DEBUG_SV.C_ERR_LEVEL);
2454: END IF;
2473: IF l_debug_on THEN
2474: wsh_debug_sv.log (l_module_name, 'Return status after Create_Update_Txns_History ', l_return_status);
2475: END IF;
2476: --
2477: IF ( l_return_status <> WSH_UTIL_CORE.g_ret_sts_success ) THEN
2478: --
2479: IF l_debug_on THEN
2480: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Create_Update_Txns_History', WSH_DEBUG_SV.C_ERR_LEVEL);
2481: END IF;
2483: RAISE FND_API.G_EXC_ERROR;
2484: END IF;
2485:
2486: ELSIF (l_temp_status = 'NO_LOCK') THEN
2487: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2488: --
2489: IF l_debug_on THEN
2490: wsh_debug_sv.logmsg(l_module_name, 'Unable to lock the records for Transaction '||l_transaction_rec.transaction_id||'. Skipping the Record');
2491: END IF;
2521: --Setting value for G_MODE back to 'NORMAL'
2522: IF WSH_MAP_LOCATION_REGION_PKG.G_MODE <> 'NORMAL' THEN
2523: WSH_MAP_LOCATION_REGION_PKG.G_MODE := 'NORMAL';
2524: END IF;
2525: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2526:
2527: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2528: THEN
2529: --{
2542: IF l_debug_on THEN
2543: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2544: END IF;
2545: --
2546: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2547: x_return_status := l_return_status;
2548: END IF;
2549: --}
2550: END IF;
2565: --Setting value for G_MODE back to 'NORMAL'
2566: IF WSH_MAP_LOCATION_REGION_PKG.G_MODE <> 'NORMAL' THEN
2567: WSH_MAP_LOCATION_REGION_PKG.G_MODE := 'NORMAL';
2568: END IF;
2569: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2570:
2571: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
2572: THEN
2573: --{
2701: WSH_DEBUG_SV.push(l_module_name);
2702: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_interface_id', p_delivery_interface_id );
2703: END IF;
2704: --
2705: x_return_status := WSH_UTIl_CORE.G_RET_STS_SUCCESS;
2706:
2707: open c_delivery_interface_rec;
2708: fetch c_delivery_interface_rec into x_delivery_interface_rec;
2709: IF c_delivery_interface_rec%NOTFOUND THEN
2711: IF l_debug_on THEN
2712: wsh_debug_sv.logmsg(l_module_name, 'Delivery Interface Record Missing');
2713: END IF;
2714: --
2715: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2716: WSH_DEBUG_SV.pop(l_module_name);
2717: RETURN;
2718: END IF;
2719: close c_delivery_interface_rec;
2728: p_org_code => x_delivery_interface_rec.organization_code,
2729: p_organization_id => x_delivery_interface_rec.organization_id,
2730: x_return_status => l_return_status );
2731:
2732: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2733: --
2734: IF l_debug_on THEN
2735: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Validate_Organization', WSH_DEBUG_SV.C_ERR_LEVEL);
2736: END IF;
2738: x_return_status := l_return_status;
2739: ELSE
2740: --
2741: IF l_debug_on THEN
2742: wsh_debug_sv.logmsg(l_module_name, 'Calling api WSH_UTIL_CORE.Get_Operating_Unit', WSH_DEBUG_SV.C_PROC_LEVEL);
2743: END IF;
2744: --
2745: x_delivery_interface_rec.org_id := WSH_UTIL_CORE.Get_Operating_Unit(x_delivery_interface_rec.organization_id);
2746:
2741: IF l_debug_on THEN
2742: wsh_debug_sv.logmsg(l_module_name, 'Calling api WSH_UTIL_CORE.Get_Operating_Unit', WSH_DEBUG_SV.C_PROC_LEVEL);
2743: END IF;
2744: --
2745: x_delivery_interface_rec.org_id := WSH_UTIL_CORE.Get_Operating_Unit(x_delivery_interface_rec.organization_id);
2746:
2747: IF nvl(x_delivery_interface_rec.org_id, -1) = -1 THEN
2748: --
2749: IF l_debug_on THEN
2750: wsh_debug_sv.logmsg(l_module_name, 'Error: Invalid Operating Unit returned');
2751: END IF;
2752: --
2753: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_OU_NOT_ASSIGNED');
2754: FND_MESSAGE.Set_Token('ORG_NAME', WSH_UTIL_CORE.Get_Org_Name(x_delivery_interface_rec.organization_id));
2755: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2756: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
2757: END IF;
2758: END IF;
2751: END IF;
2752: --
2753: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_OU_NOT_ASSIGNED');
2754: FND_MESSAGE.Set_Token('ORG_NAME', WSH_UTIL_CORE.Get_Org_Name(x_delivery_interface_rec.organization_id));
2755: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2756: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
2757: END IF;
2758: END IF;
2759:
2752: --
2753: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_OU_NOT_ASSIGNED');
2754: FND_MESSAGE.Set_Token('ORG_NAME', WSH_UTIL_CORE.Get_Org_Name(x_delivery_interface_rec.organization_id));
2755: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2756: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
2757: END IF;
2758: END IF;
2759:
2760: --
2769: END IF;
2770: --
2771: EXCEPTION
2772: WHEN OTHERS THEN
2773: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2774: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Get_Standalone_Defaults');
2775: IF c_delivery_interface_rec%ISOPEN THEN
2776: close c_delivery_interface_rec;
2777: END IF;
2770: --
2771: EXCEPTION
2772: WHEN OTHERS THEN
2773: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2774: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Get_Standalone_Defaults');
2775: IF c_delivery_interface_rec%ISOPEN THEN
2776: close c_delivery_interface_rec;
2777: END IF;
2778: --
2845: WSH_DEBUG_SV.log(l_module_name, 'p_order_type_id', p_order_type_id );
2846: END IF;
2847: --
2848:
2849: x_return_status := WSH_UTIl_CORE.G_RET_STS_SUCCESS;
2850:
2851: open c_order_info;
2852: fetch c_order_info into
2853: x_om_header_rec_type.header_id,
2878: END IF;
2879: --
2880: EXCEPTION
2881: WHEN OTHERS THEN
2882: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2883: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Check_Header_Exists');
2884: IF c_order_info%ISOPEN THEN
2885: close c_order_info;
2886: END IF;
2879: --
2880: EXCEPTION
2881: WHEN OTHERS THEN
2882: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2883: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Check_Header_Exists');
2884: IF c_order_info%ISOPEN THEN
2885: close c_order_info;
2886: END IF;
2887: --
2956: WSH_DEBUG_SV.log(l_module_name, 'p_line_number', p_line_number );
2957: END IF;
2958: --
2959:
2960: x_return_status := WSH_UTIl_CORE.G_RET_STS_SUCCESS;
2961:
2962: FOR i in c_line_info
2963: LOOP
2964: IF i.rownum > 1 THEN
2967: WSH_DEBUG_SV.log(l_module_name, 'Error: More than one order line exists for same line number', p_line_number);
2968: END IF;
2969: --
2970: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_ERROR');
2971: x_return_status := WSH_UTIl_CORE.G_RET_STS_ERROR;
2972: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name);
2973: END IF;
2974:
2975: -- Error out while entering into the loop second time.
2968: END IF;
2969: --
2970: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_ERROR');
2971: x_return_status := WSH_UTIl_CORE.G_RET_STS_ERROR;
2972: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name);
2973: END IF;
2974:
2975: -- Error out while entering into the loop second time.
2976: x_om_line_rec_type.line_id := i.line_id;
3014: END IF;
3015: --
3016: EXCEPTION
3017: WHEN OTHERS THEN
3018: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3019: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Check_Line_Exists');
3020: --
3021: IF l_debug_on THEN
3022: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3015: --
3016: EXCEPTION
3017: WHEN OTHERS THEN
3018: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3019: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Check_Line_Exists');
3020: --
3021: IF l_debug_on THEN
3022: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3023: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3088: and source_line_id = c_line_id
3089: for update nowait;
3090:
3091: l_header_id NUMBER;
3092: l_details_tab WSH_UTIL_CORE.Id_Tab_Type;
3093:
3094: RECORD_LOCKED EXCEPTION;
3095: PRAGMA EXCEPTION_INIT(RECORD_LOCKED, -54);
3096:
3113: WSH_DEBUG_SV.log(l_module_name, 'p_interface_records', p_interface_records );
3114: END IF;
3115: --
3116:
3117: x_return_status := WSH_UTIl_CORE.G_RET_STS_SUCCESS;
3118:
3119: IF p_interface_records = 'Y' THEN
3120: --
3121: IF l_debug_on THEN
3176: END IF;
3177: --
3178: EXCEPTION
3179: WHEN RECORD_LOCKED THEN
3180: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3181: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
3182: WSH_UTIL_CORE.add_message (x_return_status);
3183: --
3184: IF l_debug_on THEN
3178: EXCEPTION
3179: WHEN RECORD_LOCKED THEN
3180: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3181: FND_MESSAGE.SET_NAME('WSH','WSH_NO_LOCK');
3182: WSH_UTIL_CORE.add_message (x_return_status);
3183: --
3184: IF l_debug_on THEN
3185: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3186: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
3186: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
3187: END IF;
3188: --
3189: WHEN OTHERS THEN
3190: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3191: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Lock_SR_Lines');
3192: WSH_UTIL_CORE.add_message (x_return_status);
3193: --
3194: IF l_debug_on THEN
3187: END IF;
3188: --
3189: WHEN OTHERS THEN
3190: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3191: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Lock_SR_Lines');
3192: WSH_UTIL_CORE.add_message (x_return_status);
3193: --
3194: IF l_debug_on THEN
3195: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3188: --
3189: WHEN OTHERS THEN
3190: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3191: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Lock_SR_Lines');
3192: WSH_UTIL_CORE.add_message (x_return_status);
3193: --
3194: IF l_debug_on THEN
3195: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3196: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3245: WSH_DEBUG_SV.push(l_module_name);
3246: END IF;
3247: --
3248:
3249: x_return_status := WSH_UTIl_CORE.G_RET_STS_SUCCESS;
3250:
3251: FOR i in p_changed_attributes.FIRST .. p_changed_attributes.LAST
3252: LOOP
3253: --
3740: IF l_debug_on THEN
3741: WSH_DEBUG_SV.logmsg(l_module_name, 'INSIDE VALIDATION SUCCESS' );
3742: END IF;
3743: --
3744: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3745: ELSE
3746: --Raise Error
3747: --
3748: IF l_debug_on THEN
3748: IF l_debug_on THEN
3749: WSH_DEBUG_SV.logmsg(l_module_name, 'Attributes does not match so returning error' );
3750: END IF;
3751: --
3752: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3753: END IF;
3754: END LOOP;
3755: END LOOP;
3756:
3761: END IF;
3762: --
3763: EXCEPTION
3764: WHEN OTHERS THEN
3765: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3766: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Validate_Delivery_Line');
3767: --
3768: IF l_debug_on THEN
3769: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3762: --
3763: EXCEPTION
3764: WHEN OTHERS THEN
3765: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3766: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Validate_Delivery_Line');
3767: --
3768: IF l_debug_on THEN
3769: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3770: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3977: END IF;
3978: --
3979: EXCEPTION
3980: WHEN OTHERS THEN
3981: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Print_OE_Header_Record');
3982: --
3983: IF l_debug_on THEN
3984: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3985: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4122: END IF;
4123: --
4124: EXCEPTION
4125: WHEN OTHERS THEN
4126: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Print_OE_Line_Record');
4127: --
4128: IF l_debug_on THEN
4129: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4130: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4183: WSH_DEBUG_SV.push(l_module_name);
4184: END IF;
4185: --
4186:
4187: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4188: p_om_header_rec.header_attributes_changed := FALSE;
4189:
4190: IF p_del_interface_rec.organization_id <> p_om_header_rec.ship_from_org_id THEN
4191: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4187: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4188: p_om_header_rec.header_attributes_changed := FALSE;
4189:
4190: IF p_del_interface_rec.organization_id <> p_om_header_rec.ship_from_org_id THEN
4191: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4192: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_REJECT_ORG_CHANGE');
4193: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
4194: --
4195: IF l_debug_on THEN
4189:
4190: IF p_del_interface_rec.organization_id <> p_om_header_rec.ship_from_org_id THEN
4191: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4192: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_REJECT_ORG_CHANGE');
4193: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
4194: --
4195: IF l_debug_on THEN
4196: WSH_DEBUG_SV.logmsg(l_module_name, 'Error => Ship From Changed');
4197: WSH_DEBUG_SV.logmsg(l_module_name, 'Order Header Ship_From => ' || p_om_header_rec.ship_from_org_id
4235: END IF;
4236: END IF;
4237:
4238: IF ( nvl(l_sold_to, FND_API.G_MISS_NUM) <> p_om_header_rec.sold_to_org_id ) THEN
4239: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4240: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_REJECT_SOLDTO_CHANGE');
4241: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
4242: --
4243: IF l_debug_on THEN
4237:
4238: IF ( nvl(l_sold_to, FND_API.G_MISS_NUM) <> p_om_header_rec.sold_to_org_id ) THEN
4239: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4240: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_REJECT_SOLDTO_CHANGE');
4241: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
4242: --
4243: IF l_debug_on THEN
4244: WSH_DEBUG_SV.logmsg(l_module_name, 'Error => SoldTo customer changed');
4245: END IF;
4245: END IF;
4246: --
4247: END IF;
4248:
4249: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4250: --
4251: IF l_debug_on THEN
4252: WSH_DEBUG_SV.log(l_module_name, 'Return Status',x_return_status);
4253: WSH_DEBUG_SV.pop(l_module_name);
4833: END IF;
4834: --
4835: EXCEPTION
4836: WHEN OTHERS THEN
4837: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4838: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Check_Header_Attr_Changed');
4839: --
4840: IF l_debug_on THEN
4841: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4834: --
4835: EXCEPTION
4836: WHEN OTHERS THEN
4837: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4838: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Check_Header_Attr_Changed');
4839: --
4840: IF l_debug_on THEN
4841: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4842: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4887: WSH_DEBUG_SV.log(l_module_name, 'p_om_header_rec.header_id', p_om_header_rec.header_id);
4888: WSH_DEBUG_SV.log(l_module_name, 'x_line_tbl.count', x_line_tbl.count);
4889: END IF;
4890: --
4891: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4892:
4893: -- Always pass SOLD-TO CUSTOMER DETAILS
4894: --
4895: IF l_debug_on THEN
5330: END IF;
5331: --
5332: EXCEPTION
5333: WHEN OTHERS THEN
5334: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5335: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Populate_OM_Common_Attr');
5336: --
5337: IF l_debug_on THEN
5338: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5331: --
5332: EXCEPTION
5333: WHEN OTHERS THEN
5334: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5335: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Populate_OM_Common_Attr');
5336: --
5337: IF l_debug_on THEN
5338: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5339: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5388: WSH_DEBUG_SV.log(l_module_name, 'p_action_type', p_action_type);
5389: WSH_DEBUG_SV.log(l_module_name, 'p_om_header_rec.header_id', p_om_header_rec.header_id);
5390: END IF;
5391: --
5392: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5393:
5394: l_header_id := p_om_header_rec.header_id;
5395:
5396: x_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;
5439: IF (x_header_rec.order_source_id IS NULL OR x_header_rec.order_source_id = FND_API.G_MISS_NUM ) THEN
5440: --{
5441: FND_MESSAGE.Set_Name('WSH', 'WSH_OI_INVALID_ATTRIBUTE');
5442: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','ORDER_SOURCE');
5443: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5444: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
5445: IF l_debug_on THEN
5446: WSH_DEBUG_SV.log(l_module_name, 'Return Status',x_return_status);
5447: WSH_DEBUG_SV.pop(l_module_name);
5440: --{
5441: FND_MESSAGE.Set_Name('WSH', 'WSH_OI_INVALID_ATTRIBUTE');
5442: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','ORDER_SOURCE');
5443: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5444: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
5445: IF l_debug_on THEN
5446: WSH_DEBUG_SV.log(l_module_name, 'Return Status',x_return_status);
5447: WSH_DEBUG_SV.pop(l_module_name);
5448: END IF;
5475: END IF;
5476: --
5477: EXCEPTION
5478: WHEN OTHERS THEN
5479: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5480: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Populate_Header_Rec');
5481: --
5482: IF l_debug_on THEN
5483: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5476: --
5477: EXCEPTION
5478: WHEN OTHERS THEN
5479: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5480: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Populate_Header_Rec');
5481: --
5482: IF l_debug_on THEN
5483: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5484: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5541: || ', ' || 'InvoiceTo Partner Address => ' || x_del_interface_rec.invoice_to_address_id );
5542: END IF;
5543: --
5544:
5545: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5546: l_temp_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5547:
5548: l_missing_attr := null;
5549: l_header_id := p_om_header_rec.header_id;
5542: END IF;
5543: --
5544:
5545: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5546: l_temp_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5547:
5548: l_missing_attr := null;
5549: l_header_id := p_om_header_rec.header_id;
5550: l_call_attr_changed := TRUE;
5556: l_missing_attr := 'SHIPTO_PARTNER';
5557: ELSE
5558: l_missing_attr := l_missing_attr || ', ' || 'SHIPTO_PARTNER';
5559: END IF;
5560: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5561: END IF;
5562:
5563: IF x_del_interface_rec.ship_to_address_id is null and
5564: x_del_interface_rec.ship_to_address1 is null
5567: l_missing_attr := 'SHIPTO_PARTNER_ADDRESS';
5568: ELSE
5569: l_missing_attr := l_missing_attr || ', ' || 'SHIPTO_PARTNER_ADDRESS';
5570: END IF;
5571: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5572: END IF;
5573:
5574: IF x_del_interface_rec.customer_id is null and
5575: x_del_interface_rec.customer_name is null
5598: x_del_interface_rec.invoice_to_country := x_del_interface_rec.ship_to_country;
5599: x_del_interface_rec.invoice_to_postal_code := x_del_interface_rec.ship_to_postal_code;
5600: END IF;
5601:
5602: IF l_temp_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5603: --
5604: IF l_debug_on THEN
5605: WSH_DEBUG_SV.log(l_module_name, 'Error: Missing Attributes', l_missing_attr);
5606: END IF;
5606: END IF;
5607: --
5608: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_ATTR_MANDATORY');
5609: FND_MESSAGE.Set_Token('ATTRIBUTE', l_missing_attr);
5610: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name);
5611: l_call_attr_changed := FALSE;
5612: END IF;
5613:
5614: -- DeliverTo Address cannot be populated if DeliverTo Partner is NULL
5622: IF l_debug_on THEN
5623: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: DeliverTo Partner Address is populated without DeliverTo Partner detail');
5624: END IF;
5625: --
5626: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5627: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_INVALID_DELIVER_INFO');
5628: FND_MESSAGE.Set_Token('ATTRIBUTE', 'DELIVERTO_PARTNER_ADDRESS');
5629: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name);
5630: l_call_attr_changed := FALSE;
5625: --
5626: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5627: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_INVALID_DELIVER_INFO');
5628: FND_MESSAGE.Set_Token('ATTRIBUTE', 'DELIVERTO_PARTNER_ADDRESS');
5629: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name);
5630: l_call_attr_changed := FALSE;
5631: END IF;
5632: END IF;
5633:
5644: IF l_debug_on THEN
5645: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: DeliverTo Partner Contact is populated without DeliverTo Partner detail');
5646: END IF;
5647: --
5648: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5649: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_INVALID_DELIVER_INFO');
5650: FND_MESSAGE.Set_Token('ATTRIBUTE', 'DELIVERTO_PARTNER_CONTACT');
5651: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name);
5652: l_call_attr_changed := FALSE;
5647: --
5648: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5649: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_INVALID_DELIVER_INFO');
5650: FND_MESSAGE.Set_Token('ATTRIBUTE', 'DELIVERTO_PARTNER_CONTACT');
5651: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name);
5652: l_call_attr_changed := FALSE;
5653: END IF;
5654: END IF;
5655:
5691: p_mode_of_transport => x_del_interface_rec.mode_of_transport,
5692: x_ship_method_code => x_del_interface_rec.ship_method_code,
5693: x_return_status => l_return_status );
5694:
5695: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5696: --
5697: IF l_debug_on THEN
5698: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Validate_Ship_Method', WSH_DEBUG_SV.C_ERR_LEVEL);
5699: END IF;
5697: IF l_debug_on THEN
5698: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Validate_Ship_Method', WSH_DEBUG_SV.C_ERR_LEVEL);
5699: END IF;
5700: --
5701: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5702: END IF;
5703: ELSIF ( ( x_del_interface_rec.carrier_id is not null or
5704: x_del_interface_rec.service_level is not null or
5705: x_del_interface_rec.mode_of_transport is not null ) and
5711: IF l_debug_on THEN
5712: wsh_debug_sv.logmsg(l_module_name, 'Error: Ship Method information is incomplete');
5713: END IF;
5714: --
5715: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5716: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_INCOMPLETE_SM');
5717: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name);
5718: END IF;
5719:
5713: END IF;
5714: --
5715: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5716: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_INCOMPLETE_SM');
5717: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name);
5718: END IF;
5719:
5720: EXCEPTION
5721: WHEN NO_DATA_FOUND THEN
5719:
5720: EXCEPTION
5721: WHEN NO_DATA_FOUND THEN
5722: FND_MESSAGE.Set_Name('WSH', 'WSH_CARRIER_NOT_FOUND');
5723: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5724: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name);
5725: --
5726: IF l_debug_on THEN
5727: wsh_debug_sv.logmsg(l_module_name, 'Error: Carrier not found');
5720: EXCEPTION
5721: WHEN NO_DATA_FOUND THEN
5722: FND_MESSAGE.Set_Name('WSH', 'WSH_CARRIER_NOT_FOUND');
5723: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5724: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name);
5725: --
5726: IF l_debug_on THEN
5727: wsh_debug_sv.logmsg(l_module_name, 'Error: Carrier not found');
5728: END IF;
5742: p_del_interface_rec => x_del_interface_rec,
5743: p_om_header_rec => p_om_header_rec,
5744: x_return_status => l_return_status );
5745:
5746: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5747: --
5748: IF l_debug_on THEN
5749: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Check_Header_Attr_Changed', WSH_DEBUG_SV.C_ERR_LEVEL);
5750: END IF;
5748: IF l_debug_on THEN
5749: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Check_Header_Attr_Changed', WSH_DEBUG_SV.C_ERR_LEVEL);
5750: END IF;
5751: --
5752: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5753: ELSIF ( p_om_header_rec.header_attributes_changed )
5754: THEN
5755: --
5756: IF l_debug_on THEN
5777: END;
5778:
5779: IF l_tmp is not null THEN
5780: l_missing_attr := null;
5781: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5782:
5783: IF p_om_header_rec.ship_to_changed THEN
5784: l_missing_attr := 'SHIPTO_PARTNER';
5785: END IF;
5849: END IF;
5850:
5851: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_REJECT_HEADER_CHANGE');
5852: FND_MESSAGE.Set_Token('HEADER_ATTR', l_missing_attr);
5853: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name);
5854: --
5855: IF l_debug_on THEN
5856: wsh_debug_sv.logmsg(l_module_name, 'Error: Header attributes cannot be changed');
5857: END IF;
5859: END IF;
5860: END IF;
5861: END IF;
5862:
5863: IF l_temp_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5864: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5865: END IF;
5866:
5867: --
5860: END IF;
5861: END IF;
5862:
5863: IF l_temp_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5864: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5865: END IF;
5866:
5867: --
5868: IF l_debug_on THEN
5871: END IF;
5872: --
5873: EXCEPTION
5874: WHEN OTHERS THEN
5875: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5876: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Derive_Header_Rec');
5877: --
5878: IF l_debug_on THEN
5879: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5872: --
5873: EXCEPTION
5874: WHEN OTHERS THEN
5875: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5876: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Derive_Header_Rec');
5877: --
5878: IF l_debug_on THEN
5879: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5880: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5986: WSH_DEBUG_SV.log(l_module_name, 'p_header_id', p_header_id);
5987: END IF;
5988: --
5989:
5990: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5991:
5992: open c_del_details_interface_rec;
5993: fetch c_del_details_interface_rec BULK COLLECT INTO x_details_interface_rec_tab;
5994: close c_del_details_interface_rec;
6003: l_line_cnt := 0;
6004: FOR i in x_details_interface_rec_tab.first..x_details_interface_rec_tab.last
6005: LOOP
6006: l_line_cnt := l_line_cnt + 1;
6007: l_temp_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6008: --
6009: IF l_debug_on THEN
6010: WSH_DEBUG_SV.logmsg(l_module_name, 'Processing Line Number', x_details_interface_rec_tab(i).line_number);
6011: END IF;
6014: IF (x_details_interface_rec_tab(i).line_number <= 0) OR
6015: (trunc(x_details_interface_rec_tab(i).line_number) <> x_details_interface_rec_tab(i).line_number) THEN
6016: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_POSITIVE_INTEGER');
6017: FND_MESSAGE.Set_Token('ATTRIBUTE', 'LINE_NUMBER');
6018: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6019: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6020: --
6021: IF l_debug_on THEN
6022: wsh_debug_sv.logmsg(l_module_name, 'Error: Line number should be positive integer');
6015: (trunc(x_details_interface_rec_tab(i).line_number) <> x_details_interface_rec_tab(i).line_number) THEN
6016: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_POSITIVE_INTEGER');
6017: FND_MESSAGE.Set_Token('ATTRIBUTE', 'LINE_NUMBER');
6018: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6019: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6020: --
6021: IF l_debug_on THEN
6022: wsh_debug_sv.logmsg(l_module_name, 'Error: Line number should be positive integer');
6023: END IF;
6043: WSH_DEBUG_SV.log(l_module_name, 'Return Status from Check_Line_Exists', l_return_status);
6044: END IF;
6045: --
6046:
6047: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6048: --
6049: IF l_debug_on THEN
6050: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Check_Line_Exists', WSH_DEBUG_SV.C_ERR_LEVEL);
6051: END IF;
6049: IF l_debug_on THEN
6050: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Check_Line_Exists', WSH_DEBUG_SV.C_ERR_LEVEL);
6051: END IF;
6052: --
6053: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6054: goto loop_end;
6055: END IF;
6056:
6057: --
6068: END IF;
6069: --
6070: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_LINE_CLOSED');
6071: FND_MESSAGE.Set_Token('LINE_NUMBER', x_details_interface_rec_tab(i).line_number);
6072: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6073: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6074: goto loop_end;
6075: END IF;
6076: END IF; --}
6069: --
6070: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_LINE_CLOSED');
6071: FND_MESSAGE.Set_Token('LINE_NUMBER', x_details_interface_rec_tab(i).line_number);
6072: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6073: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6074: goto loop_end;
6075: END IF;
6076: END IF; --}
6077:
6083: END IF;
6084: --
6085: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_ATTR_MANDATORY');
6086: FND_MESSAGE.Set_Token('ATTRIBUTE', 'ORDERED_QUANTITY');
6087: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6088: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6089: -- Bug 8452056: Check only if ordered quantity is negative.
6090: ELSIF ( x_details_interface_rec_tab(i).requested_quantity < 0 )
6091: THEN
6084: --
6085: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_ATTR_MANDATORY');
6086: FND_MESSAGE.Set_Token('ATTRIBUTE', 'ORDERED_QUANTITY');
6087: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6088: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6089: -- Bug 8452056: Check only if ordered quantity is negative.
6090: ELSIF ( x_details_interface_rec_tab(i).requested_quantity < 0 )
6091: THEN
6092: --
6094: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Requested Quantity cannot be Negative');
6095: END IF;
6096: --
6097: FND_MESSAGE.Set_Name('WSH', 'WSH_UI_NEGATIVE_QTY');
6098: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6099: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6100: END IF;
6101:
6102: IF ( x_details_interface_rec_tab(i).requested_quantity_uom IS NULL )
6095: END IF;
6096: --
6097: FND_MESSAGE.Set_Name('WSH', 'WSH_UI_NEGATIVE_QTY');
6098: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6099: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6100: END IF;
6101:
6102: IF ( x_details_interface_rec_tab(i).requested_quantity_uom IS NULL )
6103: THEN
6107: END IF;
6108: --
6109: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_ATTR_MANDATORY');
6110: FND_MESSAGE.Set_Token('ATTRIBUTE', 'ORDERED_QUANTITY_UOM');
6111: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6112: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6113: END IF;
6114:
6115: IF (x_details_interface_rec_tab(i).ship_tolerance_above IS NOT NULL) AND
6108: --
6109: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_ATTR_MANDATORY');
6110: FND_MESSAGE.Set_Token('ATTRIBUTE', 'ORDERED_QUANTITY_UOM');
6111: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6112: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6113: END IF;
6114:
6115: IF (x_details_interface_rec_tab(i).ship_tolerance_above IS NOT NULL) AND
6116: ((x_details_interface_rec_tab(i).ship_tolerance_above < 0) OR
6122: END IF;
6123: --
6124: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_POSITIVE_INTEGER');
6125: FND_MESSAGE.Set_Token('ATTRIBUTE', 'SHIP_TOLERANCE_ABOVE');
6126: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6127: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6128: END IF;
6129:
6130: IF (x_details_interface_rec_tab(i).ship_tolerance_below IS NOT NULL) AND
6123: --
6124: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_POSITIVE_INTEGER');
6125: FND_MESSAGE.Set_Token('ATTRIBUTE', 'SHIP_TOLERANCE_ABOVE');
6126: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6127: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6128: END IF;
6129:
6130: IF (x_details_interface_rec_tab(i).ship_tolerance_below IS NOT NULL) AND
6131: ((x_details_interface_rec_tab(i).ship_tolerance_below < 0) OR
6137: END IF;
6138: --
6139: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_POSITIVE_INTEGER');
6140: FND_MESSAGE.Set_Token('ATTRIBUTE', 'SHIP_TOLERANCE_BELOW');
6141: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6142: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6143: END IF;
6144:
6145: --Derive Inventory Item Id
6138: --
6139: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_POSITIVE_INTEGER');
6140: FND_MESSAGE.Set_Token('ATTRIBUTE', 'SHIP_TOLERANCE_BELOW');
6141: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6142: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6143: END IF;
6144:
6145: --Derive Inventory Item Id
6146: IF ( x_details_interface_rec_tab(i).inventory_item_id is null and -- {
6152: END IF;
6153: --
6154: FND_MESSAGE.Set_Name('WSH', 'WSH_REQUIRED_FIELD_NULL');
6155: FND_MESSAGE.Set_Token('FIELD_NAME', 'ITEM_NUMBER OR ITEM_ID');
6156: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6157: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6158: ELSIF x_details_interface_rec_tab(i).inventory_item_id is null
6159: THEN
6160: l_item_number := x_details_interface_rec_tab(i).item_number;
6153: --
6154: FND_MESSAGE.Set_Name('WSH', 'WSH_REQUIRED_FIELD_NULL');
6155: FND_MESSAGE.Set_Token('FIELD_NAME', 'ITEM_NUMBER OR ITEM_ID');
6156: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6157: WSH_UTIL_CORE.Add_Message(l_temp_status, l_module_name );
6158: ELSIF x_details_interface_rec_tab(i).inventory_item_id is null
6159: THEN
6160: l_item_number := x_details_interface_rec_tab(i).item_number;
6161: --
6170: x_return_status => l_return_status );
6171:
6172: x_details_interface_rec_tab(i).inventory_item_id := l_inventory_item_id;
6173:
6174: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN -- {
6175: --
6176: IF l_debug_on THEN
6177: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Validate_Item', WSH_DEBUG_SV.C_ERR_LEVEL);
6178: END IF;
6176: IF l_debug_on THEN
6177: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Validate_Item', WSH_DEBUG_SV.C_ERR_LEVEL);
6178: END IF;
6179: --
6180: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6181: END IF; --}
6182: END IF; -- } Inventory Item Validation
6183:
6184: -- Customer Item Id validation
6209: IF l_debug_on THEN
6210: WSH_DEBUG_SV.logmsg(l_module_name, 'Customer does not exist. So, Customer item is invalid');
6211: END IF;
6212: --
6213: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6214: END IF;
6215: END IF; -- }
6216:
6217: --Derive Ship-To-Org, if its null
6247: IF l_debug_on THEN
6248: WSH_DEBUG_SV.logmsg(l_module_name, 'Invalid Ship-To Information');
6249: END IF;
6250: --
6251: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6252: END IF; -- }
6253: END IF; -- }
6254:
6255: --Derive Ship-To-Cust Site Use
6287: x_customer_item_id => l_customer_item_id,
6288: x_return_status => l_return_status );
6289:
6290:
6291: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN -- {
6292: --
6293: IF l_debug_on THEN
6294: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Validate_Customer_Item', WSH_DEBUG_SV.C_ERR_LEVEL);
6295: END IF;
6293: IF l_debug_on THEN
6294: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured in Validate_Customer_Item', WSH_DEBUG_SV.C_ERR_LEVEL);
6295: END IF;
6296: --
6297: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6298: ELSE
6299: x_details_interface_rec_tab(i).customer_item_id := l_customer_item_id;
6300: END IF; --}
6301:
6302: END IF; --}
6303: END IF; -- }
6304:
6305: <
6306: IF l_temp_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
6307: x_return_status := l_temp_status;
6308: Populate_Error_Records(
6309: p_interface_id => x_details_interface_rec_tab(i).delivery_detail_interface_id,
6310: p_interface_table_name => 'WSH_DEL_DETAILS_INTERFACE',
6326: WHEN OTHERS THEN
6327: IF c_del_details_interface_rec%ISOPEN THEN
6328: close c_del_details_interface_rec;
6329: END IF;
6330: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6331: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Derive_Line_Rec');
6332: --
6333: IF l_debug_on THEN
6334: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6327: IF c_del_details_interface_rec%ISOPEN THEN
6328: close c_del_details_interface_rec;
6329: END IF;
6330: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6331: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Derive_Line_Rec');
6332: --
6333: IF l_debug_on THEN
6334: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6335: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6360: p_details_interface_rec_tab IN Del_Details_Interface_Rec_Tab,
6361: p_om_header_rec_type IN OM_Header_Rec_Type,
6362: p_delivery_interface_rec IN Del_Interface_Rec_Type,
6363: x_line_tbl OUT NOCOPY OE_ORDER_PUB.Line_Tbl_Type,
6364: x_line_details_tbl OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
6365: x_return_status OUT NOCOPY VARCHAR2 )
6366: IS
6367: CURSOR c_non_interface_order_lines
6368: IS
6405: WSH_DEBUG_SV.log(l_module_name, 'p_details_interface_rec_tab.count', p_details_interface_rec_tab.count);
6406: END IF;
6407: --
6408:
6409: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6410:
6411: l_line_cnt := x_line_tbl.count;
6412:
6413: IF p_details_interface_rec_tab.count > 0 THEN -- { Interface records
6626: END IF;
6627: --
6628: EXCEPTION
6629: WHEN OTHERS THEN
6630: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6631: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Populate_Line_Records');
6632: --
6633: IF l_debug_on THEN
6634: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6627: --
6628: EXCEPTION
6629: WHEN OTHERS THEN
6630: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6631: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Populate_Line_Records');
6632: --
6633: IF l_debug_on THEN
6634: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6635: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6678: WSH_DEBUG_SV.log(l_module_name, 'p_org_code', p_org_code);
6679: END IF;
6680: --
6681:
6682: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6683:
6684: IF ( p_org_code is not null or p_organization_id is not null )
6685: THEN
6686: --Validate Organization Code from Interface table
6707: || ', Organization Code => ' || l_organization_code );
6708: END IF;
6709: --
6710:
6711: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS )
6712: THEN
6713: --
6714: IF l_debug_on THEN
6715: wsh_debug_sv.logmsg(l_module_name, 'Calling api WSH_UTIL_VALIDATE.Validate_SR_Organization', WSH_DEBUG_SV.C_PROC_LEVEL);
6726: --
6727:
6728: END IF;
6729:
6730: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6731: x_return_status := l_return_status;
6732: END IF;
6733: ELSE
6734: --
6735: IF l_debug_on THEN
6736: wsh_debug_sv.logmsg(l_module_name, 'Error: Organization information is missing.');
6737: END IF;
6738: --
6739: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6740: FND_MESSAGE.Set_Name('WSH', 'WSH_REQUIRED_FIELD_NULL');
6741: FND_MESSAGE.Set_Token('FIELD_NAME', 'ORGANIZATION');
6742: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
6743: END IF;
6738: --
6739: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6740: FND_MESSAGE.Set_Name('WSH', 'WSH_REQUIRED_FIELD_NULL');
6741: FND_MESSAGE.Set_Token('FIELD_NAME', 'ORGANIZATION');
6742: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
6743: END IF;
6744:
6745: --
6746: IF l_debug_on THEN
6749: END IF;
6750: --
6751: EXCEPTION
6752: WHEN OTHERS THEN
6753: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6754: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Validate_Organization');
6755: --
6756: IF l_debug_on THEN
6757: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6750: --
6751: EXCEPTION
6752: WHEN OTHERS THEN
6753: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6754: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Validate_Organization');
6755: --
6756: IF l_debug_on THEN
6757: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6758: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6811: WSH_DEBUG_SV.log(l_module_name, 'p_organization_id', p_organization_id);
6812: END IF;
6813: --
6814:
6815: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6816:
6817: --
6818: IF l_debug_on THEN
6819: wsh_debug_sv.logmsg(l_module_name, 'Calling api WSH_UTIL_VALIDATE.Validate_Lookup', WSH_DEBUG_SV.C_PROC_LEVEL);
6826: p_lookup_code => l_service_level,
6827: p_meaning => null,
6828: x_return_status => l_return_status );
6829:
6830: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6831: --
6832: IF l_debug_on THEN
6833: wsh_debug_sv.logmsg(l_module_name, 'Error occured in Validate_Lookup(SL)', WSH_DEBUG_SV.C_ERR_LEVEL);
6834: END IF;
6849: p_lookup_code => l_mode_of_transport,
6850: p_meaning => null,
6851: x_return_status => l_return_status );
6852:
6853: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6854: --
6855: IF l_debug_on THEN
6856: wsh_debug_sv.logmsg(l_module_name, 'Error occured in Validate_Lookup(MOT)', WSH_DEBUG_SV.C_ERR_LEVEL);
6857: END IF;
6858: --
6859: x_return_status := l_return_status;
6860: END IF;
6861:
6862: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS and
6863: p_organization_id is not null
6864: THEN
6865: --
6866: IF l_debug_on THEN
6874: p_mode_of_transport => p_mode_of_transport,
6875: x_ship_method_code => x_ship_method_code,
6876: x_return_status => l_return_status );
6877:
6878: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6879: --
6880: IF l_debug_on THEN
6881: wsh_debug_sv.logmsg(l_module_name, 'Error occured in Validate_Ship_Method', WSH_DEBUG_SV.C_ERR_LEVEL);
6882: END IF;
6893: END IF;
6894: --
6895: EXCEPTION
6896: WHEN OTHERS THEN
6897: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6898: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Validate_Ship_Method');
6899: --
6900: IF l_debug_on THEN
6901: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6894: --
6895: EXCEPTION
6896: WHEN OTHERS THEN
6897: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6898: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Validate_Ship_Method');
6899: --
6900: IF l_debug_on THEN
6901: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6902: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6947: WSH_DEBUG_SV.log(l_module_name, 'x_interface_errors_rec_tab.count', x_interface_errors_rec_tab.count);
6948: END IF;
6949: --
6950:
6951: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6952: l_error_count := x_interface_errors_rec_tab.count;
6953: l_msg_count := FND_MSG_PUB.count_msg;
6954: --
6955: IF l_debug_on THEN
6977: END IF;
6978: --
6979: EXCEPTION
6980: WHEN OTHERS THEN
6981: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6982: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Populate_Error_Records');
6983: --
6984: IF l_debug_on THEN
6985: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6978: --
6979: EXCEPTION
6980: WHEN OTHERS THEN
6981: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6982: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Populate_Error_Records');
6983: --
6984: IF l_debug_on THEN
6985: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6986: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7061: WSH_DEBUG_SV.log(l_module_name, 'p_details_interface_tab.count', p_details_interface_tab.count);
7062: END IF;
7063: --
7064:
7065: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7066:
7067: FOR i in p_details_interface_tab.first..p_details_interface_tab.last
7068: LOOP --{
7069: l_temp_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7065: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7066:
7067: FOR i in p_details_interface_tab.first..p_details_interface_tab.last
7068: LOOP --{
7069: l_temp_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7070: l_changed_flag := 'N';
7071: l_inv_control_changed := FALSE;
7072: l_line_id := p_details_interface_tab(i).line_id;
7073: p_details_interface_tab(i).schedule_date_changed := 'N';
7103: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: For order line ' || l_line_id
7104: || ', delivery detail does not exist in WDD table' );
7105: END IF;
7106: --
7107: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7108: -- Modified Message Name while fixing bug 8452056.
7109: WSH_UTIL_CORE.Add_Message(l_temp_status, 'NO_DATA_FOUND');
7110: goto end_loop;
7111: END IF;
7105: END IF;
7106: --
7107: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7108: -- Modified Message Name while fixing bug 8452056.
7109: WSH_UTIL_CORE.Add_Message(l_temp_status, 'NO_DATA_FOUND');
7110: goto end_loop;
7111: END IF;
7112: CLOSE c_delivery_details_info;
7113:
7150: IF l_debug_on THEN
7151: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Schedule dates cannot be changed.');
7152: END IF;
7153: --
7154: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7155: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_REJ_SCH_DATE_CHANGE');
7156: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
7157: goto end_loop;
7158: END IF;
7152: END IF;
7153: --
7154: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7155: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_REJ_SCH_DATE_CHANGE');
7156: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
7157: goto end_loop;
7158: END IF;
7159: END IF;
7160:
7188: p_organization_id => p_details_interface_tab(i).organization_id,
7189: x_locator_id => p_details_interface_tab(i).locator_id,
7190: x_return_status => l_return_status );
7191:
7192: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS or
7193: p_details_interface_tab(i).locator_id is null
7194: THEN
7195: --
7196: IF l_debug_on THEN
7196: IF l_debug_on THEN
7197: wsh_debug_sv.logmsg(l_module_name, 'Error occured in Validate_Locator_Code', WSH_DEBUG_SV.C_ERR_LEVEL);
7198: END IF;
7199: --
7200: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7201: goto end_loop;
7202: END IF;
7203: END IF;
7204:
7232: IF l_debug_on THEN
7233: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Inventory attributes cannot be changed.');
7234: END IF;
7235: --
7236: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7237: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_REJ_INV_CTRL_CHANGE');
7238: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
7239: goto end_loop;
7240: END IF;
7234: END IF;
7235: --
7236: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7237: FND_MESSAGE.Set_Name('WSH', 'WSH_STND_REJ_INV_CTRL_CHANGE');
7238: WSH_UTIL_CORE.Add_Message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name );
7239: goto end_loop;
7240: END IF;
7241: END IF;
7242:
7266: END IF;
7267: --
7268:
7269: IF NOT l_inv_result THEN
7270: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7271: WSH_UTIL_CORE.Add_Message(l_temp_status, 'WSH_INVALID_REVISION');
7272: --
7273: IF l_debug_on THEN
7274: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Invalid Revision');
7267: --
7268:
7269: IF NOT l_inv_result THEN
7270: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7271: WSH_UTIL_CORE.Add_Message(l_temp_status, 'WSH_INVALID_REVISION');
7272: --
7273: IF l_debug_on THEN
7274: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Invalid Revision');
7275: END IF;
7303: END IF;
7304: --
7305:
7306: IF NOT l_inv_result THEN
7307: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7308: WSH_UTIL_CORE.Add_Message(l_temp_status, 'WSH_INVALID_LOCATOR');
7309: --
7310: IF l_debug_on THEN
7311: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Invalid Locator');
7304: --
7305:
7306: IF NOT l_inv_result THEN
7307: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7308: WSH_UTIL_CORE.Add_Message(l_temp_status, 'WSH_INVALID_LOCATOR');
7309: --
7310: IF l_debug_on THEN
7311: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Invalid Locator');
7312: END IF;
7345: END IF;
7346: --
7347:
7348: IF NOT l_inv_result THEN
7349: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7350: WSH_UTIL_CORE.Add_Message(l_temp_status, 'WSH_INVALID_LOT');
7351: --
7352: IF l_debug_on THEN
7353: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Invalid Lot Number');
7346: --
7347:
7348: IF NOT l_inv_result THEN
7349: l_temp_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7350: WSH_UTIL_CORE.Add_Message(l_temp_status, 'WSH_INVALID_LOT');
7351: --
7352: IF l_debug_on THEN
7353: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Invalid Lot Number');
7354: END IF;
7367: END IF;
7368: --
7369:
7370: <
7371: IF l_temp_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
7372: x_return_status := l_temp_status;
7373:
7374: Populate_Error_Records(
7375: p_interface_id => p_details_interface_tab(i).delivery_detail_interface_id,
7391: IF c_delivery_details_info%ISOPEN THEN
7392: CLOSE c_delivery_details_info;
7393: END IF;
7394:
7395: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7396: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Validate_Interface_Details');
7397: --
7398: IF l_debug_on THEN
7399: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7392: CLOSE c_delivery_details_info;
7393: END IF;
7394:
7395: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7396: WSH_UTIL_CORE.Default_Handler('WSH_SHIPMENT_REQUEST_PKG.Validate_Interface_Details');
7397: --
7398: IF l_debug_on THEN
7399: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7400: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');