[Home] [Help]
53: g_demand_table demRecTabTyp;
54:
55: -- Global Variables
56: g_trolin_tbl INV_MOVE_ORDER_PUB.Trolin_Tbl_Type;
57: g_trolin_delivery_ids WSH_UTIL_CORE.Id_Tab_Type;
58: g_order_number NUMBER;
59: g_del_detail_ids WSH_PICK_LIST.DelDetTabTyp;
60: g_exp_pick_release_stat Inv_Express_Pick_Pub.P_Pick_Release_Status_Tbl;
61:
60: g_exp_pick_release_stat Inv_Express_Pick_Pub.P_Pick_Release_Status_Tbl;
61:
62: -- X-dock, declare package level global variables
63: g_allocation_method WSH_PICKING_BATCHES.ALLOCATION_METHOD%TYPE;
64: g_xdock_delivery_ids WSH_UTIL_CORE.Id_Tab_Type; -- used for X-dock only
65: g_xdock_detail_ids WSH_PICK_LIST.DelDetTabTyp; -- used for X-dock only
66:
67: /**************************
68: -- X-dock
117: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'INIT_PICK_RELEASE';
118: --
119: BEGIN
120:
121: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
122:
123: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
124: IF l_debug_on IS NULL THEN
125: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
135: WSH_PR_CRITERIA.Init( p_batch_id => p_batch_id,
136: p_worker_id => p_worker_id,
137: x_api_status => x_return_status);
138:
139: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
140: --
141: IF l_debug_on THEN
142: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION SUCCESSFUL ');
143: END IF;
141: IF l_debug_on THEN
142: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION SUCCESSFUL ');
143: END IF;
144: --
145: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
146: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init');
147: --
148: IF l_debug_on THEN
149: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT');
142: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION SUCCESSFUL ');
143: END IF;
144: --
145: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
146: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init');
147: --
148: IF l_debug_on THEN
149: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT');
150: END IF;
195:
196: EXCEPTION
197: --
198: WHEN OTHERS THEN
199: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
200: IF l_debug_on THEN
201: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
202: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
203: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
239: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_ORG_PARAMS';
240:
241: BEGIN
242:
243: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
244:
245: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
246: IF l_debug_on IS NULL THEN
247: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
436: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Rules',WSH_DEBUG_SV.C_PROC_LEVEL);
437: END IF;
438:
439: WSH_PR_CRITERIA.Init_Rules(x_org_info.pick_seq_rule_id, x_org_info.pick_grouping_rule_id, x_return_status);
440: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
441:
442: IF l_debug_on THEN
443: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION OF RULES SUCESSFUL');
444: END IF;
442: IF l_debug_on THEN
443: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION OF RULES SUCESSFUL');
444: END IF;
445:
446: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
447: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Rules');
448:
449: IF l_debug_on THEN
450: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT_RULES');
443: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION OF RULES SUCESSFUL');
444: END IF;
445:
446: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
447: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Rules');
448:
449: IF l_debug_on THEN
450: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT_RULES');
451: RETURN; -- back to calling API
464: WHEN OTHERS THEN
465: IF get_default_confirm%ISOPEN THEN
466: CLOSE get_default_confirm;
467: END IF;
468: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
469: IF l_debug_on THEN
470: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
471: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
472: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
504: l_request_id NUMBER;
505:
506: BEGIN
507:
508: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
509:
510: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
511: IF l_debug_on IS NULL THEN
512: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
544: IF l_debug_on THEN
545: WSH_DEBUG_SV.logmsg(l_module_name,'Request submission failed for Worker '||i);
546: WSH_DEBUG_SV.pop(l_module_name);
547: END IF;
548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
549: RETURN;
550: ELSE
551: IF l_debug_on THEN
552: WSH_DEBUG_SV.logmsg(l_module_name,'Request '||l_request_id||' submitted successfully');
568:
569: EXCEPTION
570: --
571: WHEN OTHERS THEN
572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
573: IF l_debug_on THEN
574: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
575: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
624: l_debug_on BOOLEAN;
625: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Print_Docs';
626:
627: l_document_info WSH_DOCUMENT_SETS.document_set_tab_type;
628: l_null_ids WSH_UTIL_CORE.Id_Tab_Type;
629: l_return_status VARCHAR2(1);
630: l_message VARCHAR2(2000);
631: l_order_number VARCHAR2(30);
632:
645: WSH_DEBUG_SV.log(l_module_name,'P_DOC_SET_ID',P_DOC_SET_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_NAME',P_BATCH_NAME);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_NUMBER',P_ORDER_NUMBER);
648: END IF;
649: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
650:
651: WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.delete;
652:
653: FOR crec in c_get_printers LOOP
679: x_error_message => l_message );
680: IF l_debug_on THEN
681: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
682: END IF;
683: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
684: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
685: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Report(s)');
686: WSH_UTIL_CORE.PrintMsg(l_message);
687: x_return_status := l_return_status;
680: IF l_debug_on THEN
681: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
682: END IF;
683: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
684: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
685: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Report(s)');
686: WSH_UTIL_CORE.PrintMsg(l_message);
687: x_return_status := l_return_status;
688: ELSE
681: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
682: END IF;
683: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
684: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
685: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Report(s)');
686: WSH_UTIL_CORE.PrintMsg(l_message);
687: x_return_status := l_return_status;
688: ELSE
689: IF l_debug_on THEN
682: END IF;
683: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
684: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
685: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Report(s)');
686: WSH_UTIL_CORE.PrintMsg(l_message);
687: x_return_status := l_return_status;
688: ELSE
689: IF l_debug_on THEN
690: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP SUCCESSFUL' );
752: x_return_status => l_return_status );
753: IF l_debug_on THEN
754: WSH_DEBUG_SV.logmsg(l_module_name, '* END PRINT DOCUMENT SET ' );
755: END IF;
756: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
757: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
758: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Document Set, when count=0 ');
759: WSH_UTIL_CORE.PrintMsg(l_message);
760: x_return_status := l_return_status;
753: IF l_debug_on THEN
754: WSH_DEBUG_SV.logmsg(l_module_name, '* END PRINT DOCUMENT SET ' );
755: END IF;
756: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
757: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
758: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Document Set, when count=0 ');
759: WSH_UTIL_CORE.PrintMsg(l_message);
760: x_return_status := l_return_status;
761: ELSE
754: WSH_DEBUG_SV.logmsg(l_module_name, '* END PRINT DOCUMENT SET ' );
755: END IF;
756: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
757: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
758: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Document Set, when count=0 ');
759: WSH_UTIL_CORE.PrintMsg(l_message);
760: x_return_status := l_return_status;
761: ELSE
762: IF l_debug_on THEN
755: END IF;
756: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
757: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
758: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Document Set, when count=0 ');
759: WSH_UTIL_CORE.PrintMsg(l_message);
760: x_return_status := l_return_status;
761: ELSE
762: IF l_debug_on THEN
763: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT DOCUMENT SET SUCCESSFUL ' );
774: END IF;
775:
776: EXCEPTION
777: WHEN OTHERS THEN
778: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
779: IF l_debug_on THEN
780: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
781: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
782: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
865: l_count_x_relstatus_details NUMBER;
866: l_temp_trolin_rec INV_MOVE_ORDER_PUB.Trolin_Rec_Type;
867: l_trolin_tbl INV_MOVE_ORDER_PUB.Trolin_Tbl_Type;
868: l_trolin_val_tbl INV_MOVE_ORDER_PUB.Trolin_Val_Tbl_Type;
869: l_rel_delivery_detail_id WSH_UTIL_CORE.Id_Tab_Type;
870: l_dummy_rsv_tbl INV_RESERVATION_GLOBAL.Mtl_Reservation_Tbl_Type;
871:
872: -- WMS
873: l_attr_tab WSH_DELIVERY_AUTOCREATE.Grp_attr_tab_type;
873: l_attr_tab WSH_DELIVERY_AUTOCREATE.Grp_attr_tab_type;
874: l_group_tab WSH_DELIVERY_AUTOCREATE.Grp_attr_tab_type;
875: l_action_rec WSH_DELIVERY_AUTOCREATE.Action_rec_type;
876: l_target_rec WSH_DELIVERY_AUTOCREATE.Grp_attr_rec_type;
877: l_matched_entities WSH_UTIL_CORE.id_tab_type;
878: l_out_rec WSH_DELIVERY_AUTOCREATE.Out_rec_type;
879: l_dd_pup_stop_id NUMBER;
880: x_wms_return_status VARCHAR2(1);
881: x_wms_msg_count NUMBER;
901: l_exception_msg_data VARCHAR2(4000) := NULL;
902: l_dummy_exception_id NUMBER;
903:
904: -- DBI Project
905: l_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
906: l_dbi_rs VARCHAR2(1); -- DBI Project
907: l_dd_txn_id NUMBER; -- DBI Project
908: l_txn_return_status VARCHAR2(1); -- DBI Project
909:
923: l_standalone_mode VARCHAR2(1);
924:
925: BEGIN
926:
927: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
928:
929: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
930: IF l_debug_on IS NULL THEN
931: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1000: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DELIVERY_IDS Table Count',g_xdock_delivery_ids.count);
1001: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DETAIL_IDS Table Count',g_xdock_detail_ids.count);
1002: END IF;
1003:
1004: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1005: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN--{
1006: x_return_status := l_return_status;
1007: WSH_UTIL_CORE.PrintMsg('Error occurred in WMS API Planned_Cross_Dock');
1008: IF l_debug_on THEN
1001: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DETAIL_IDS Table Count',g_xdock_detail_ids.count);
1002: END IF;
1003:
1004: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1005: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN--{
1006: x_return_status := l_return_status;
1007: WSH_UTIL_CORE.PrintMsg('Error occurred in WMS API Planned_Cross_Dock');
1008: IF l_debug_on THEN
1009: WSH_DEBUG_SV.pop(l_module_name);
1003:
1004: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1005: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN--{
1006: x_return_status := l_return_status;
1007: WSH_UTIL_CORE.PrintMsg('Error occurred in WMS API Planned_Cross_Dock');
1008: IF l_debug_on THEN
1009: WSH_DEBUG_SV.pop(l_module_name);
1010: END IF;
1011: -- the parent API handles the errors raised from create_move_order_lines
1009: WSH_DEBUG_SV.pop(l_module_name);
1010: END IF;
1011: -- the parent API handles the errors raised from create_move_order_lines
1012: RETURN;
1013: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1014: x_return_status := l_return_status;
1015: WSH_UTIL_CORE.PrintMsg('Warning returned from WMS API Planned_Cross_Dock');
1016: IF g_xdock_detail_ids.count <> wsh_pr_criteria.release_table.count THEN --{
1017: --there is atleast one delivery detail which was not crossdocked
1011: -- the parent API handles the errors raised from create_move_order_lines
1012: RETURN;
1013: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1014: x_return_status := l_return_status;
1015: WSH_UTIL_CORE.PrintMsg('Warning returned from WMS API Planned_Cross_Dock');
1016: IF g_xdock_detail_ids.count <> wsh_pr_criteria.release_table.count THEN --{
1017: --there is atleast one delivery detail which was not crossdocked
1018: --Need to log exception for that delivery detail
1019: --WMS Crossdock API will set the released_status to 'S' for lines which are
1111: IF l_debug_on THEN
1112: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1113: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status',l_return_status);
1114: END IF;
1115: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1116: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1117: x_return_status := l_return_status;
1118: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
1119: IF l_debug_on THEN
1112: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1113: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status',l_return_status);
1114: END IF;
1115: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1116: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1117: x_return_status := l_return_status;
1118: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
1119: IF l_debug_on THEN
1120: WSH_DEBUG_SV.pop(l_module_name);
1114: END IF;
1115: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1116: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1117: x_return_status := l_return_status;
1118: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
1119: IF l_debug_on THEN
1120: WSH_DEBUG_SV.pop(l_module_name);
1121: END IF;
1122: RETURN;
1304: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RETN. STATUS :' || X_WMS_RETURN_STATUS);
1305: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. LN ID :' || X_WMS_STG_LN_ID);
1306: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. SUB :' || X_WMS_SUB_CODE);
1307: END IF;
1308: IF ( x_wms_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1309: -- AND x_wms_sub_code IS NOT NULL) THEN
1310: g_trolin_tbl(l_count).to_subinventory_code := x_wms_sub_code;
1311: g_trolin_tbl(l_count).to_locator_id := x_wms_stg_ln_id;
1312: l_Stops_Ids_Tbl(l_dd_pup_stop_id).Staging_Subinventory := x_wms_sub_code;
1404: x_return_status => l_dbi_rs );
1405: IF l_debug_on THEN
1406: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1407: END IF;
1408: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1409: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1410: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.pop(l_module_name);
1405: IF l_debug_on THEN
1406: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1407: END IF;
1408: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1409: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1410: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.pop(l_module_name);
1413: END IF;
1406: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1407: END IF;
1408: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1409: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1410: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.pop(l_module_name);
1413: END IF;
1414: RETURN;
1450: WSH_DEBUG_SV.log(l_module_name, 'Return status from INV API', l_return_status);
1451: WSH_DEBUG_SV.log(l_module_name, 'l_msg_count', l_msg_count);
1452: WSH_DEBUG_SV.log(l_module_name, 'l_msg_data', l_msg_data);
1453: END IF;
1454: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1455: --{
1456: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Lines');
1457: FOR i in 1..l_msg_count LOOP
1458: l_message := fnd_msg_pub.get(i,'F');
1452: WSH_DEBUG_SV.log(l_module_name, 'l_msg_data', l_msg_data);
1453: END IF;
1454: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1455: --{
1456: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Lines');
1457: FOR i in 1..l_msg_count LOOP
1458: l_message := fnd_msg_pub.get(i,'F');
1459: l_message := replace(l_message,chr(0),' ');
1460: WSH_UTIL_CORE.PrintMsg(l_message);
1456: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Lines');
1457: FOR i in 1..l_msg_count LOOP
1458: l_message := fnd_msg_pub.get(i,'F');
1459: l_message := replace(l_message,chr(0),' ');
1460: WSH_UTIL_CORE.PrintMsg(l_message);
1461: END LOOP;
1462: fnd_msg_pub.delete_msg();
1463: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1464: --{
1459: l_message := replace(l_message,chr(0),' ');
1460: WSH_UTIL_CORE.PrintMsg(l_message);
1461: END LOOP;
1462: fnd_msg_pub.delete_msg();
1463: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1464: --{
1465: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Move_Order_Pub.Create_Move_Order_Lines. Exiting');
1466: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1467: IF l_debug_on THEN
1461: END LOOP;
1462: fnd_msg_pub.delete_msg();
1463: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1464: --{
1465: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Move_Order_Pub.Create_Move_Order_Lines. Exiting');
1466: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1467: IF l_debug_on THEN
1468: WSH_DEBUG_SV.pop(l_module_name);
1469: END IF;
1462: fnd_msg_pub.delete_msg();
1463: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1464: --{
1465: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Move_Order_Pub.Create_Move_Order_Lines. Exiting');
1466: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1467: IF l_debug_on THEN
1468: WSH_DEBUG_SV.pop(l_module_name);
1469: END IF;
1470: RETURN;
1470: RETURN;
1471: --}
1472: ELSE
1473: --{
1474: WSH_UTIL_CORE.PrintMsg('Create Move Order Lines Partially Successful');
1475: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1476: IF l_debug_on THEN
1477: WSH_DEBUG_SV.logmsg(l_module_name, 'Create Move Order Lines Partially Successful');
1478: WSH_DEBUG_SV.logmsg(l_module_name, 'Remove lines that errored out in INV');
1471: --}
1472: ELSE
1473: --{
1474: WSH_UTIL_CORE.PrintMsg('Create Move Order Lines Partially Successful');
1475: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1476: IF l_debug_on THEN
1477: WSH_DEBUG_SV.logmsg(l_module_name, 'Create Move Order Lines Partially Successful');
1478: WSH_DEBUG_SV.logmsg(l_module_name, 'Remove lines that errored out in INV');
1479: END IF;
1479: END IF;
1480: -- Bug 2522935 : Error in MO line creation for Ship Sets causes Released to Warehouse lines
1481: -- Delete all the Lines which had the return status as error from Inventory's Move Order Line API
1482: FOR i in 1..g_trolin_tbl.count LOOP
1483: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1484: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1485: IF l_debug_on THEN
1486: WSH_DEBUG_SV.log(l_module_name, 'Deleting line', g_trolin_tbl(i).line_id);
1487: END IF;
1480: -- Bug 2522935 : Error in MO line creation for Ship Sets causes Released to Warehouse lines
1481: -- Delete all the Lines which had the return status as error from Inventory's Move Order Line API
1482: FOR i in 1..g_trolin_tbl.count LOOP
1483: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1484: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1485: IF l_debug_on THEN
1486: WSH_DEBUG_SV.log(l_module_name, 'Deleting line', g_trolin_tbl(i).line_id);
1487: END IF;
1488: g_trolin_tbl.delete(i);
1490: g_del_detail_ids.delete(i);
1491: g_trolin_delivery_ids.delete(i);
1492: END IF;
1493: END LOOP;
1494: WSH_UTIL_CORE.PrintMsg('After deleting lines, Trolin Table count '||g_del_detail_ids.count);
1495: IF l_debug_on THEN
1496: WSH_DEBUG_SV.log(l_module_name, 'g_del_detail_ids.count', g_del_detail_ids.count);
1497: END IF;
1498: --}
1497: END IF;
1498: --}
1499: END IF;
1500: --}
1501: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1502: --{
1503: G_ONLINE_PICK_RELEASE_PHASE := 'MOVE_ORDER_LINES';
1504: IF l_debug_on THEN
1505: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED MO LINES SUCESSFULLY');
1533: IF l_debug_on THEN
1534: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1535: WSH_DEBUG_SV.log(l_module_name,'Inv_Express_Pick_Pub.Pick_Release l_return_status',l_return_status);
1536: END IF;
1537: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1538: --{
1539: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Express_Pick_Pub.Pick_Release');
1540: FOR i in 1..l_msg_count LOOP
1541: l_message := fnd_msg_pub.get(i,'F');
1535: WSH_DEBUG_SV.log(l_module_name,'Inv_Express_Pick_Pub.Pick_Release l_return_status',l_return_status);
1536: END IF;
1537: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1538: --{
1539: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Express_Pick_Pub.Pick_Release');
1540: FOR i in 1..l_msg_count LOOP
1541: l_message := fnd_msg_pub.get(i,'F');
1542: l_message := replace(l_message,chr(0),' ');
1543: WSH_UTIL_CORE.PrintMsg(l_message);
1539: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Express_Pick_Pub.Pick_Release');
1540: FOR i in 1..l_msg_count LOOP
1541: l_message := fnd_msg_pub.get(i,'F');
1542: l_message := replace(l_message,chr(0),' ');
1543: WSH_UTIL_CORE.PrintMsg(l_message);
1544: IF (i = 1) THEN
1545: l_message1 := l_message;
1546: END IF;
1547: END LOOP;
1545: l_message1 := l_message;
1546: END IF;
1547: END LOOP;
1548: fnd_msg_pub.delete_msg();
1549: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1550: --{
1551: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Express_Pick_Pub.Pick_Release. Exiting');
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1553: IF l_debug_on THEN
1547: END LOOP;
1548: fnd_msg_pub.delete_msg();
1549: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1550: --{
1551: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Express_Pick_Pub.Pick_Release. Exiting');
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1553: IF l_debug_on THEN
1554: WSH_DEBUG_SV.pop(l_module_name);
1555: END IF;
1548: fnd_msg_pub.delete_msg();
1549: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1550: --{
1551: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Express_Pick_Pub.Pick_Release. Exiting');
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1553: IF l_debug_on THEN
1554: WSH_DEBUG_SV.pop(l_module_name);
1555: END IF;
1556: RETURN;
1557: --}
1558: ELSE
1559: --{
1560: ROLLBACK TO BEF_MOVE_ORDER_LINE_CREATE;
1561: WSH_UTIL_CORE.PrintMsg('Express Pick Release Returned Expected Error');
1562: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1563: l_request_id := fnd_global.conc_request_id;
1564: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
1565: --{
1558: ELSE
1559: --{
1560: ROLLBACK TO BEF_MOVE_ORDER_LINE_CREATE;
1561: WSH_UTIL_CORE.PrintMsg('Express Pick Release Returned Expected Error');
1562: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1563: l_request_id := fnd_global.conc_request_id;
1564: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
1565: --{
1566: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count LOOP
1564: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
1565: --{
1566: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count LOOP
1567: IF l_debug_on THEN
1568: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1569: END IF;
1570: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1571: WSH_PR_CRITERIA.release_table(i).organization_id);
1572: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
1566: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count LOOP
1567: IF l_debug_on THEN
1568: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1569: END IF;
1570: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1571: WSH_PR_CRITERIA.release_table(i).organization_id);
1572: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
1573: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
1574: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
1606: END IF;
1607: --}
1608: END IF;
1609:
1610: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1611: --{
1612: /* INV will always pass 'delivery_detail_id' in the record structure and this will be in the same
1613: order as passed by shipping.
1614: 1. If a dd is completely picked and the dd is Staged using only 1 reservation
1654: --{
1655: --Bug 5645615: Since we are deleting lines with error status, get the next index before we might delete the line.
1656: j := g_trolin_tbl.NEXT(i);
1657: BEGIN
1658: IF (g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1659: IF l_debug_on THEN
1660: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE WITH TROLIN.LINE_ID ' || G_TROLIN_TBL(I).LINE_ID );
1661: END IF;
1662: UPDATE wsh_delivery_details
1674: WSH_DD_TXNS_PVT.create_dd_txn_from_dd (
1675: p_delivery_detail_id => g_del_detail_ids(i),
1676: x_dd_txn_id => l_dd_txn_id,
1677: x_return_status =>l_txn_return_status);
1678: IF (l_txn_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1679: x_return_status := l_txn_return_status;
1680: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DD_TXNS_PVT.create_dd_txn_from_dd');
1681: IF l_debug_on THEN
1682: WSH_DEBUG_SV.pop(l_module_name);
1676: x_dd_txn_id => l_dd_txn_id,
1677: x_return_status =>l_txn_return_status);
1678: IF (l_txn_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1679: x_return_status := l_txn_return_status;
1680: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DD_TXNS_PVT.create_dd_txn_from_dd');
1681: IF l_debug_on THEN
1682: WSH_DEBUG_SV.pop(l_module_name);
1683: END IF;
1684: RETURN;
1717: CLOSE c_get_picked_lines_count;
1718: --Done Raise Event : Pick To Pod Workflow
1719:
1720: ELSE
1721: WSH_UTIL_CORE.PrintMsg('Could not Create Move Order Line for Delivery Detail '||g_del_detail_ids(i));
1722: -- Bug 5645615: Delete all the lines with return status error.
1723: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1724: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1725: IF l_debug_on THEN
1719:
1720: ELSE
1721: WSH_UTIL_CORE.PrintMsg('Could not Create Move Order Line for Delivery Detail '||g_del_detail_ids(i));
1722: -- Bug 5645615: Delete all the lines with return status error.
1723: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1724: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1725: IF l_debug_on THEN
1726: WSH_DEBUG_SV.log(l_module_name, 'Deleting trolin line', g_trolin_tbl(i).line_id);
1727: WSH_DEBUG_SV.log(l_module_name, 'Deleting detail line', g_del_detail_ids(i));
1720: ELSE
1721: WSH_UTIL_CORE.PrintMsg('Could not Create Move Order Line for Delivery Detail '||g_del_detail_ids(i));
1722: -- Bug 5645615: Delete all the lines with return status error.
1723: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1724: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1725: IF l_debug_on THEN
1726: WSH_DEBUG_SV.log(l_module_name, 'Deleting trolin line', g_trolin_tbl(i).line_id);
1727: WSH_DEBUG_SV.log(l_module_name, 'Deleting detail line', g_del_detail_ids(i));
1728: END IF;
1734:
1735: END IF;
1736: EXCEPTION
1737: WHEN no_data_found THEN
1738: WSH_UTIL_CORE.PrintMsg('Delivery detail line not found: '|| WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1739: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1740: IF l_debug_on THEN
1741: WSH_DEBUG_SV.pop(l_module_name);
1742: END IF;
1735: END IF;
1736: EXCEPTION
1737: WHEN no_data_found THEN
1738: WSH_UTIL_CORE.PrintMsg('Delivery detail line not found: '|| WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1739: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1740: IF l_debug_on THEN
1741: WSH_DEBUG_SV.pop(l_module_name);
1742: END IF;
1743: RETURN;
1741: WSH_DEBUG_SV.pop(l_module_name);
1742: END IF;
1743: RETURN;
1744: WHEN others THEN
1745: WSH_UTIL_CORE.PrintMsg('Cannot update delivery detail: ' || WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1746: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1747: IF l_debug_on THEN
1748: WSH_DEBUG_SV.pop(l_module_name);
1749: END IF;
1742: END IF;
1743: RETURN;
1744: WHEN others THEN
1745: WSH_UTIL_CORE.PrintMsg('Cannot update delivery detail: ' || WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1746: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1747: IF l_debug_on THEN
1748: WSH_DEBUG_SV.pop(l_module_name);
1749: END IF;
1750: RETURN;
1767: x_return_status => l_dbi_rs );
1768: IF l_debug_on THEN
1769: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1770: END IF;
1771: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1773: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1774: IF l_debug_on THEN
1775: WSH_DEBUG_SV.pop(l_module_name);
1768: IF l_debug_on THEN
1769: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1770: END IF;
1771: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1773: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1774: IF l_debug_on THEN
1775: WSH_DEBUG_SV.pop(l_module_name);
1776: END IF;
1769: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1770: END IF;
1771: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1773: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1774: IF l_debug_on THEN
1775: WSH_DEBUG_SV.pop(l_module_name);
1776: END IF;
1777: RETURN;
1787: WHEN OTHERS THEN
1788: IF get_dd_pup_trip_stop%ISOPEN THEN
1789: CLOSE get_dd_pup_trip_stop;
1790: END IF;
1791: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1792: IF l_debug_on THEN
1793: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
1794: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1795: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1814: -- End of comments
1815: PROCEDURE Autocreate_Deliveries(
1816: p_append_flag IN VARCHAR2,
1817: p_use_header_flag IN VARCHAR2,
1818: p_del_details_tbl IN WSH_UTIL_CORE.Id_Tab_Type,
1819: x_return_status OUT NOCOPY VARCHAR2)
1820: IS
1821:
1822: CURSOR del_cur(c_dlvy_id NUMBER) IS
1823: SELECT ship_method_code, intmed_ship_to_location_id
1824: FROM wsh_new_deliveries
1825: WHERE delivery_id = c_dlvy_id;
1826:
1827: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
1828: l_grouping_tbl WSH_UTIL_CORE.Id_Tab_Type;
1829: l_delivery_ids_tbl WSH_UTIL_CORE.Id_Tab_Type;
1830: i NUMBER;
1831: j NUMBER;
1824: FROM wsh_new_deliveries
1825: WHERE delivery_id = c_dlvy_id;
1826:
1827: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
1828: l_grouping_tbl WSH_UTIL_CORE.Id_Tab_Type;
1829: l_delivery_ids_tbl WSH_UTIL_CORE.Id_Tab_Type;
1830: i NUMBER;
1831: j NUMBER;
1832: l_msg_count NUMBER;
1825: WHERE delivery_id = c_dlvy_id;
1826:
1827: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
1828: l_grouping_tbl WSH_UTIL_CORE.Id_Tab_Type;
1829: l_delivery_ids_tbl WSH_UTIL_CORE.Id_Tab_Type;
1830: i NUMBER;
1831: j NUMBER;
1832: l_msg_count NUMBER;
1833: l_msg_data VARCHAR2(2000);
1839: l_cc_line_groups WSH_FTE_COMP_CONSTRAINT_PKG.line_group_tab_type;
1840: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
1841: b_cc_linefailed BOOLEAN;
1842: b_cc_groupidexists BOOLEAN;
1843: l_id_tab_temp WSH_UTIL_CORE.Id_Tab_Type;
1844: l_del_details_tbl_temp WSH_UTIL_CORE.Id_Tab_Type;
1845: l_cc_count_success NUMBER;
1846: l_cc_count_group_ids NUMBER;
1847: l_cc_count_rec NUMBER;
1840: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
1841: b_cc_linefailed BOOLEAN;
1842: b_cc_groupidexists BOOLEAN;
1843: l_id_tab_temp WSH_UTIL_CORE.Id_Tab_Type;
1844: l_del_details_tbl_temp WSH_UTIL_CORE.Id_Tab_Type;
1845: l_cc_count_success NUMBER;
1846: l_cc_count_group_ids NUMBER;
1847: l_cc_count_rec NUMBER;
1848: l_cc_group_ids WSH_UTIL_CORE.Id_Tab_Type;
1844: l_del_details_tbl_temp WSH_UTIL_CORE.Id_Tab_Type;
1845: l_cc_count_success NUMBER;
1846: l_cc_count_group_ids NUMBER;
1847: l_cc_count_rec NUMBER;
1848: l_cc_group_ids WSH_UTIL_CORE.Id_Tab_Type;
1849: l_cc_upd_dlvy_intmed_ship_to VARCHAR2(1);
1850: l_cc_upd_dlvy_ship_method VARCHAR2(1);
1851: l_cc_dlvy_intmed_ship_to NUMBER;
1852: l_cc_dlvy_ship_method VARCHAR2(30);
1851: l_cc_dlvy_intmed_ship_to NUMBER;
1852: l_cc_dlvy_ship_method VARCHAR2(30);
1853: l_num_errors NUMBER;
1854: l_num_warnings NUMBER;
1855: l_cc_del_rows WSH_UTIL_CORE.Id_Tab_Type;
1856: l_cc_grouping_rows WSH_UTIL_CORE.Id_Tab_Type;
1857: l_cc_return_status VARCHAR2(1);
1858: l_cc_count_del_rows NUMBER;
1859: l_cc_count_grouping_rows NUMBER;
1852: l_cc_dlvy_ship_method VARCHAR2(30);
1853: l_num_errors NUMBER;
1854: l_num_warnings NUMBER;
1855: l_cc_del_rows WSH_UTIL_CORE.Id_Tab_Type;
1856: l_cc_grouping_rows WSH_UTIL_CORE.Id_Tab_Type;
1857: l_cc_return_status VARCHAR2(1);
1858: l_cc_count_del_rows NUMBER;
1859: l_cc_count_grouping_rows NUMBER;
1860: --dummy tables for calling validate_constraint_main
1861: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
1862: l_cc_det_attr_tab WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type;
1863: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
1864: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
1865: l_cc_in_ids WSH_UTIL_CORE.Id_Tab_Type;
1866: l_cc_fail_ids WSH_UTIL_CORE.Id_Tab_Type;
1867: -- deliveryMerge
1868: l_appended_det_tbl WSH_DELIVERY_DETAILS_UTILITIES.delivery_assignment_rec_tbl;
1869: l_unappended_det_tbl WSH_UTIL_CORE.Id_Tab_Type;
1862: l_cc_det_attr_tab WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type;
1863: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
1864: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
1865: l_cc_in_ids WSH_UTIL_CORE.Id_Tab_Type;
1866: l_cc_fail_ids WSH_UTIL_CORE.Id_Tab_Type;
1867: -- deliveryMerge
1868: l_appended_det_tbl WSH_DELIVERY_DETAILS_UTILITIES.delivery_assignment_rec_tbl;
1869: l_unappended_det_tbl WSH_UTIL_CORE.Id_Tab_Type;
1870: l_default_ship_confirm_rule_id NUMBER := NULL;
1865: l_cc_in_ids WSH_UTIL_CORE.Id_Tab_Type;
1866: l_cc_fail_ids WSH_UTIL_CORE.Id_Tab_Type;
1867: -- deliveryMerge
1868: l_appended_det_tbl WSH_DELIVERY_DETAILS_UTILITIES.delivery_assignment_rec_tbl;
1869: l_unappended_det_tbl WSH_UTIL_CORE.Id_Tab_Type;
1870: l_default_ship_confirm_rule_id NUMBER := NULL;
1871: l_appended_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1872: l_tmp_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1873: --
1867: -- deliveryMerge
1868: l_appended_det_tbl WSH_DELIVERY_DETAILS_UTILITIES.delivery_assignment_rec_tbl;
1869: l_unappended_det_tbl WSH_UTIL_CORE.Id_Tab_Type;
1870: l_default_ship_confirm_rule_id NUMBER := NULL;
1871: l_appended_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1872: l_tmp_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1873: --
1874: l_debug_on BOOLEAN;
1875: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'AUTOCREATE_DELIVERIES';
1868: l_appended_det_tbl WSH_DELIVERY_DETAILS_UTILITIES.delivery_assignment_rec_tbl;
1869: l_unappended_det_tbl WSH_UTIL_CORE.Id_Tab_Type;
1870: l_default_ship_confirm_rule_id NUMBER := NULL;
1871: l_appended_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1872: l_tmp_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1873: --
1874: l_debug_on BOOLEAN;
1875: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'AUTOCREATE_DELIVERIES';
1876: --
1889: WSH_DEBUG_SV.log(l_module_name,'P_USE_HEADER_FLAG',P_USE_HEADER_FLAG);
1890: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAILS_TBL.COUNT',P_DEL_DETAILS_TBL.COUNT);
1891: END IF;
1892:
1893: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1894:
1895: l_del_details_tbl := p_del_details_tbl;
1896: l_appended_del_tbl.delete;
1897:
1898: -- Check whether we have eligible lines to autocreate
1899: IF (l_del_details_tbl.count > 0) THEN
1900: --{
1901: --Compatibility Changes
1902: IF wsh_util_core.fte_is_installed = 'Y' THEN
1903: --{
1904: l_cc_line_groups.delete;
1905: l_cc_group_info.delete;
1906: l_cc_failed_records.delete;
1940: ,l_cc_line_groups.COUNT);
1941: WSH_DEBUG_SV.log(l_module_name,'group_info count After Calling validate_constraint_main'
1942: ,l_cc_group_info.COUNT);
1943: END IF;
1944: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1945: --{
1946: x_return_status := l_return_status;
1947: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main');
1948: IF l_debug_on THEN
1943: END IF;
1944: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1945: --{
1946: x_return_status := l_return_status;
1947: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main');
1948: IF l_debug_on THEN
1949: WSH_DEBUG_SV.pop(l_module_name);
1950: END IF;
1951: RETURN;
1951: RETURN;
1952: --}
1953: END IF;
1954:
1955: IF l_cc_line_groups.COUNT > 0 AND l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1956: --{
1957: --set return_status as warning
1958: IF l_cc_failed_records.COUNT <> l_del_details_tbl.COUNT THEN
1959: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1955: IF l_cc_line_groups.COUNT > 0 AND l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1956: --{
1957: --set return_status as warning
1958: IF l_cc_failed_records.COUNT <> l_del_details_tbl.COUNT THEN
1959: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1960: END IF;
1961:
1962: --1. get the group ids by which the constraints API has grouped the lines
1963: l_cc_count_group_ids := 1;
2008: IF l_debug_on THEN
2009: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2010: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
2011: END IF;
2012: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2013: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2014: x_return_status := l_return_status;
2015: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2016: IF l_debug_on THEN
2009: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2010: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
2011: END IF;
2012: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2013: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2014: x_return_status := l_return_status;
2015: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2016: IF l_debug_on THEN
2017: WSH_DEBUG_SV.pop(l_module_name);
2011: END IF;
2012: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2013: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2014: x_return_status := l_return_status;
2015: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2016: IF l_debug_on THEN
2017: WSH_DEBUG_SV.pop(l_module_name);
2018: END IF;
2019: RETURN;
2127: END IF;
2128: END IF;
2129:
2130: IF (l_cc_return_status IS NOT NULL AND l_cc_return_status IN
2131: (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2132: l_return_status := l_cc_return_status;
2133: ELSIF (l_cc_return_status IS NOT NULL AND l_cc_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2134: AND l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2135: l_return_status := l_cc_return_status;
2129:
2130: IF (l_cc_return_status IS NOT NULL AND l_cc_return_status IN
2131: (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2132: l_return_status := l_cc_return_status;
2133: ELSIF (l_cc_return_status IS NOT NULL AND l_cc_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2134: AND l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2135: l_return_status := l_cc_return_status;
2136: ELSE
2137: l_cc_return_status := l_return_status;
2130: IF (l_cc_return_status IS NOT NULL AND l_cc_return_status IN
2131: (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2132: l_return_status := l_cc_return_status;
2133: ELSIF (l_cc_return_status IS NOT NULL AND l_cc_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2134: AND l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2135: l_return_status := l_cc_return_status;
2136: ELSE
2137: l_cc_return_status := l_return_status;
2138: END IF;
2175: IF l_debug_on THEN
2176: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2177: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is',l_return_status );
2178: END IF;
2179: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2180: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2181: x_return_status := l_return_status;
2182: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2183: IF l_debug_on THEN
2176: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2177: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is',l_return_status );
2178: END IF;
2179: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2180: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2181: x_return_status := l_return_status;
2182: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2183: IF l_debug_on THEN
2184: WSH_DEBUG_SV.pop(l_module_name);
2178: END IF;
2179: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2180: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2181: x_return_status := l_return_status;
2182: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2183: IF l_debug_on THEN
2184: WSH_DEBUG_SV.pop(l_module_name);
2185: END IF;
2186: RETURN;
2288: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2289: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
2290: END IF;
2291:
2292: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
2293: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2294: --{
2295: x_return_status := l_return_status;
2296: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2289: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
2290: END IF;
2291:
2292: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
2293: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2294: --{
2295: x_return_status := l_return_status;
2296: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2297: IF l_debug_on THEN
2292: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
2293: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2294: --{
2295: x_return_status := l_return_status;
2296: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2297: IF l_debug_on THEN
2298: WSH_DEBUG_SV.pop(l_module_name);
2299: END IF;
2300: RETURN;
2324: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_return_status',l_return_status);
2325: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2326: END IF;
2327:
2328: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2329: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2330: x_return_status := l_return_status;
2331: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries');
2332: IF l_debug_on THEN
2325: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2326: END IF;
2327:
2328: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2329: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2330: x_return_status := l_return_status;
2331: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries');
2332: IF l_debug_on THEN
2333: WSH_DEBUG_SV.pop(l_module_name);
2327:
2328: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2329: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2330: x_return_status := l_return_status;
2331: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries');
2332: IF l_debug_on THEN
2333: WSH_DEBUG_SV.pop(l_module_name);
2334: END IF;
2335: RETURN;
2340: END IF;
2341:
2342: --}
2343: ELSE
2344: WSH_UTIL_CORE.printMsg('No eligible lines to autocreate deliveries');
2345: END IF;
2346:
2347: IF l_debug_on THEN
2348: WSH_DEBUG_SV.pop(l_module_name);
2349: END IF;
2350:
2351: EXCEPTION
2352: WHEN OTHERS THEN
2353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2354: IF l_debug_on THEN
2355: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
2356: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2357: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2412: --
2413: l_ship_confirm_rule_rec WSH_BATCH_PROCESS.G_GET_SHIP_CONFIRM_RULE%ROWTYPE;
2414: l_ship_confirm_rule_id NUMBER;
2415: l_batch_creation_date DATE;
2416: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
2417: l_curr_count NUMBER;
2418: l_return_status VARCHAR2(1);
2419: l_completion_status VARCHAR2(30);
2420: e_Return EXCEPTION;
2474: G_CONC_REQ := FND_API.G_TRUE;
2475: END IF;
2476:
2477: IF G_CONC_REQ = FND_API.G_TRUE AND p_worker_id IS NOT NULL THEN
2478: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
2479: IF p_log_level IS NOT NULL THEN -- log level fix
2480: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
2481: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
2482: END IF;
2476:
2477: IF G_CONC_REQ = FND_API.G_TRUE AND p_worker_id IS NOT NULL THEN
2478: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
2479: IF p_log_level IS NOT NULL THEN -- log level fix
2480: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
2481: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
2482: END IF;
2483: END IF;
2484:
2477: IF G_CONC_REQ = FND_API.G_TRUE AND p_worker_id IS NOT NULL THEN
2478: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
2479: IF p_log_level IS NOT NULL THEN -- log level fix
2480: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
2481: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
2482: END IF;
2483: END IF;
2484:
2485: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2522: IF l_debug_on THEN
2523: WSH_DEBUG_SV.log(l_module_name,'INIT_PICK_RELEASE l_return_status',l_return_status);
2524: END IF;
2525:
2526: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2527: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2528: WSH_UTIL_CORE.PrintMsg('Error occurred in Init_Pick_Release');
2529: RAISE e_return;
2530: END IF;
2523: WSH_DEBUG_SV.log(l_module_name,'INIT_PICK_RELEASE l_return_status',l_return_status);
2524: END IF;
2525:
2526: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2527: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2528: WSH_UTIL_CORE.PrintMsg('Error occurred in Init_Pick_Release');
2529: RAISE e_return;
2530: END IF;
2531: END IF; --}
2524: END IF;
2525:
2526: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2527: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2528: WSH_UTIL_CORE.PrintMsg('Error occurred in Init_Pick_Release');
2529: RAISE e_return;
2530: END IF;
2531: END IF; --}
2532:
2597: END IF;
2598: Get_Org_Params( p_organization_id => batch_rec.organization_id,
2599: x_org_info => l_org_info,
2600: x_return_status => l_return_status);
2601: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2602: WSH_UTIL_CORE.PrintMsg('Error occurred in Get_Org_Params');
2603: RAISE e_return;
2604: END IF;
2605: --}
2598: Get_Org_Params( p_organization_id => batch_rec.organization_id,
2599: x_org_info => l_org_info,
2600: x_return_status => l_return_status);
2601: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2602: WSH_UTIL_CORE.PrintMsg('Error occurred in Get_Org_Params');
2603: RAISE e_return;
2604: END IF;
2605: --}
2606:
2613: p_mode => p_mode,
2614: p_batch_id => p_batch_id,
2615: p_organization_id => batch_rec.organization_id,
2616: x_api_status => l_return_status );
2617: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2618: WSH_UTIL_CORE.PrintMsg('Error occurred in Get_Worker_Records');
2619: RAISE e_return;
2620: END IF;
2621: --}
2614: p_batch_id => p_batch_id,
2615: p_organization_id => batch_rec.organization_id,
2616: x_api_status => l_return_status );
2617: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2618: WSH_UTIL_CORE.PrintMsg('Error occurred in Get_Worker_Records');
2619: RAISE e_return;
2620: END IF;
2621: --}
2622: l_continue_create_del := 'Y'; -- bug # 8915460 :
2639: IF l_debug_on THEN
2640: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2641: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2642: END IF;
2643: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2644: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2645: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2646: RAISE e_return;
2647: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2640: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2641: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2642: END IF;
2643: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2644: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2645: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2646: RAISE e_return;
2647: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2648: G_ONLINE_PICK_RELEASE_SKIP := 'Y';
2641: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2642: END IF;
2643: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2644: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2645: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2646: RAISE e_return;
2647: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2648: G_ONLINE_PICK_RELEASE_SKIP := 'Y';
2649: l_completion_status := 'WARNING';
2643: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2644: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2645: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2646: RAISE e_return;
2647: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2648: G_ONLINE_PICK_RELEASE_SKIP := 'Y';
2649: l_completion_status := 'WARNING';
2650: IF l_debug_on THEN
2651: WSH_DEBUG_SV.log(l_Module_name, 'WSH_PR_CRITERIA.Get_Lines returned with warning');
2690: IF l_debug_on THEN
2691: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2692: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Create_Move_Order_Lines l_return_status' ,l_return_status);
2693: END IF;
2694: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2695: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2696: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Create_Move_Order_Lines');
2697: RAISE e_return;
2698: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2691: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2692: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Create_Move_Order_Lines l_return_status' ,l_return_status);
2693: END IF;
2694: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2695: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2696: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Create_Move_Order_Lines');
2697: RAISE e_return;
2698: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2699: IF l_completion_status = 'NORMAL' THEN
2692: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Create_Move_Order_Lines l_return_status' ,l_return_status);
2693: END IF;
2694: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2695: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2696: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Create_Move_Order_Lines');
2697: RAISE e_return;
2698: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2699: IF l_completion_status = 'NORMAL' THEN
2700: l_completion_status := 'WARNING';
2694: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2695: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2696: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Create_Move_Order_Lines');
2697: RAISE e_return;
2698: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2699: IF l_completion_status = 'NORMAL' THEN
2700: l_completion_status := 'WARNING';
2701: END IF;
2702: IF l_debug_on THEN
2809: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2810: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
2811: ,l_return_status);
2812: END IF;
2813: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2814: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2815: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
2816: RAISE e_return;
2817: END IF;
2810: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
2811: ,l_return_status);
2812: END IF;
2813: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2814: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2815: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
2816: RAISE e_return;
2817: END IF;
2818: -- bug # 8915460 : When pick release is performed by specifying deliery detail id/containerDDId
2811: ,l_return_status);
2812: END IF;
2813: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2814: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2815: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
2816: RAISE e_return;
2817: END IF;
2818: -- bug # 8915460 : When pick release is performed by specifying deliery detail id/containerDDId
2819: -- then auto create delivery can be performed only once because
2830: --}
2831:
2832: -- Call FTE Load Tender and Issue Commit for Concurrent Express Pick Release
2833: IF l_org_info.express_pick_flag = 'Y' AND ( G_CONC_REQ = FND_API.G_TRUE ) THEN --{
2834: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2835: IF l_debug_on THEN
2836: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2837: END IF;
2838: WSH_UTIL_CORE.Process_stops_for_load_tender (
2832: -- Call FTE Load Tender and Issue Commit for Concurrent Express Pick Release
2833: IF l_org_info.express_pick_flag = 'Y' AND ( G_CONC_REQ = FND_API.G_TRUE ) THEN --{
2834: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2835: IF l_debug_on THEN
2836: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2837: END IF;
2838: WSH_UTIL_CORE.Process_stops_for_load_tender (
2839: p_reset_flags => FALSE,
2840: x_return_status => l_return_status );
2834: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2835: IF l_debug_on THEN
2836: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2837: END IF;
2838: WSH_UTIL_CORE.Process_stops_for_load_tender (
2839: p_reset_flags => FALSE,
2840: x_return_status => l_return_status );
2841: IF l_debug_on THEN
2842: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2840: x_return_status => l_return_status );
2841: IF l_debug_on THEN
2842: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2843: END IF;
2844: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2845: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2846: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2847: RAISE e_return;
2848: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2841: IF l_debug_on THEN
2842: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2843: END IF;
2844: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2845: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2846: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2847: RAISE e_return;
2848: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2849: IF l_completion_status = 'NORMAL' THEN
2842: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2843: END IF;
2844: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2845: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2846: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2847: RAISE e_return;
2848: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2849: IF l_completion_status = 'NORMAL' THEN
2850: l_completion_status := 'WARNING';
2844: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2845: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2846: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2847: RAISE e_return;
2848: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2849: IF l_completion_status = 'NORMAL' THEN
2850: l_completion_status := 'WARNING';
2851: END IF;
2852: END IF;
2939: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2940: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Release_Pub.Pick_Release l_return_status',
2941: l_return_status);
2942: END IF;
2943: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2944: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2945: --{
2946: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Pick_Release_Pub.Pick_Release');
2947: FOR i in 1..l_msg_count LOOP
2940: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Release_Pub.Pick_Release l_return_status',
2941: l_return_status);
2942: END IF;
2943: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2944: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2945: --{
2946: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Pick_Release_Pub.Pick_Release');
2947: FOR i in 1..l_msg_count LOOP
2948: l_message := fnd_msg_pub.get(i,'F');
2942: END IF;
2943: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2944: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2945: --{
2946: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Pick_Release_Pub.Pick_Release');
2947: FOR i in 1..l_msg_count LOOP
2948: l_message := fnd_msg_pub.get(i,'F');
2949: l_message := replace(l_message,chr(0),' ');
2950: WSH_UTIL_CORE.PrintMsg(l_message);
2946: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Pick_Release_Pub.Pick_Release');
2947: FOR i in 1..l_msg_count LOOP
2948: l_message := fnd_msg_pub.get(i,'F');
2949: l_message := replace(l_message,chr(0),' ');
2950: WSH_UTIL_CORE.PrintMsg(l_message);
2951: IF (i = 1) THEN
2952: l_message1 := l_message;
2953: END IF;
2954: END LOOP;
2953: END IF;
2954: END LOOP;
2955: l_completion_status := 'WARNING';
2956: fnd_msg_pub.delete_msg();
2957: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2958: WSH_UTIL_CORE.PrintMsg('Unexpected error from INV_Pick_Release_Pub.Pick_Release. Exiting');
2959: RAISE e_return;
2960: ELSE
2961: --{
2954: END LOOP;
2955: l_completion_status := 'WARNING';
2956: fnd_msg_pub.delete_msg();
2957: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2958: WSH_UTIL_CORE.PrintMsg('Unexpected error from INV_Pick_Release_Pub.Pick_Release. Exiting');
2959: RAISE e_return;
2960: ELSE
2961: --{
2962: ROLLBACK TO BEF_MOVE_ORDER_LINE_CREATE;
2959: RAISE e_return;
2960: ELSE
2961: --{
2962: ROLLBACK TO BEF_MOVE_ORDER_LINE_CREATE;
2963: WSH_UTIL_CORE.PrintMsg('Auto Detailing Returned Expected Error');
2964: l_request_id := fnd_global.conc_request_id;
2965: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
2966: --{
2967: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count
2966: --{
2967: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count
2968: LOOP
2969: IF l_debug_on THEN
2970: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2971: END IF;
2972: l_item_name := WSH_UTIL_CORE.Get_Item_Name(
2973: WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2974: WSH_PR_CRITERIA.release_table(i).organization_id);
2968: LOOP
2969: IF l_debug_on THEN
2970: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2971: END IF;
2972: l_item_name := WSH_UTIL_CORE.Get_Item_Name(
2973: WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2974: WSH_PR_CRITERIA.release_table(i).organization_id);
2975: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
2976: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
3025: AND (g_trolin_tbl.count > 0) THEN
3026: --{
3027: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3028: --{
3029: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3030: IF l_debug_on THEN
3031: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3032: END IF;
3033: WSH_UTIL_CORE.Process_stops_for_load_tender(
3027: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3028: --{
3029: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3030: IF l_debug_on THEN
3031: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3032: END IF;
3033: WSH_UTIL_CORE.Process_stops_for_load_tender(
3034: p_reset_flags => FALSE,
3035: x_return_status => l_tmp_rel_status );
3029: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3030: IF l_debug_on THEN
3031: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3032: END IF;
3033: WSH_UTIL_CORE.Process_stops_for_load_tender(
3034: p_reset_flags => FALSE,
3035: x_return_status => l_tmp_rel_status );
3036: IF l_debug_on THEN
3037: WSH_DEBUG_SV.log(l_module_name,'l_tmp_rel_status',l_tmp_rel_status);
3035: x_return_status => l_tmp_rel_status );
3036: IF l_debug_on THEN
3037: WSH_DEBUG_SV.log(l_module_name,'l_tmp_rel_status',l_tmp_rel_status);
3038: END IF;
3039: IF (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3040: OR (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3041: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3042: RAISE e_return;
3043: ELSIF l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3036: IF l_debug_on THEN
3037: WSH_DEBUG_SV.log(l_module_name,'l_tmp_rel_status',l_tmp_rel_status);
3038: END IF;
3039: IF (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3040: OR (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3041: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3042: RAISE e_return;
3043: ELSIF l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3044: IF l_completion_status = 'NORMAL' THEN
3037: WSH_DEBUG_SV.log(l_module_name,'l_tmp_rel_status',l_tmp_rel_status);
3038: END IF;
3039: IF (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3040: OR (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3041: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3042: RAISE e_return;
3043: ELSIF l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3044: IF l_completion_status = 'NORMAL' THEN
3045: l_completion_status := 'WARNING';
3039: IF (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3040: OR (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3041: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3042: RAISE e_return;
3043: ELSIF l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3044: IF l_completion_status = 'NORMAL' THEN
3045: l_completion_status := 'WARNING';
3046: END IF;
3047: END IF;
3048: END IF;
3049: --}
3050: END IF;
3051:
3052: IF ((l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3053: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3054: --{
3055: FOR i in 1..l_pick_release_stat.count LOOP
3056: IF l_debug_on THEN
3049: --}
3050: END IF;
3051:
3052: IF ((l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3053: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3054: --{
3055: FOR i in 1..l_pick_release_stat.count LOOP
3056: IF l_debug_on THEN
3057: WSH_DEBUG_SV.logmsg(l_module_name,
3116: ,l_return_status);
3117: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip l_message'
3118: ,l_message);
3119: END IF;
3120: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3121: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3122: WSH_UTIL_CORE.PrintMsg('** Warning: Cannot Print Pick Slip **');
3123: WSH_UTIL_CORE.PrintMsg(l_message);
3124: l_completion_status := 'WARNING';
3117: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip l_message'
3118: ,l_message);
3119: END IF;
3120: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3121: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3122: WSH_UTIL_CORE.PrintMsg('** Warning: Cannot Print Pick Slip **');
3123: WSH_UTIL_CORE.PrintMsg(l_message);
3124: l_completion_status := 'WARNING';
3125: END IF;
3118: ,l_message);
3119: END IF;
3120: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3121: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3122: WSH_UTIL_CORE.PrintMsg('** Warning: Cannot Print Pick Slip **');
3123: WSH_UTIL_CORE.PrintMsg(l_message);
3124: l_completion_status := 'WARNING';
3125: END IF;
3126: END LOOP;
3119: END IF;
3120: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3121: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3122: WSH_UTIL_CORE.PrintMsg('** Warning: Cannot Print Pick Slip **');
3123: WSH_UTIL_CORE.PrintMsg(l_message);
3124: l_completion_status := 'WARNING';
3125: END IF;
3126: END LOOP;
3127: --}
3182: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3183: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm l_return_status',l_return_status);
3184: END IF;
3185: --}
3186: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3187: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3188: --{
3189: WSH_UTIL_CORE.PrintMsg('Error occurred in INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm');
3190: FOR i in 1..l_msg_count LOOP
3183: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm l_return_status',l_return_status);
3184: END IF;
3185: --}
3186: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3187: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3188: --{
3189: WSH_UTIL_CORE.PrintMsg('Error occurred in INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm');
3190: FOR i in 1..l_msg_count LOOP
3191: l_message := fnd_msg_pub.get(i,'F');
3185: --}
3186: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3187: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3188: --{
3189: WSH_UTIL_CORE.PrintMsg('Error occurred in INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm');
3190: FOR i in 1..l_msg_count LOOP
3191: l_message := fnd_msg_pub.get(i,'F');
3192: l_message := replace(l_message,chr(0),' ');
3193: WSH_UTIL_CORE.PrintMsg(l_message);
3189: WSH_UTIL_CORE.PrintMsg('Error occurred in INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm');
3190: FOR i in 1..l_msg_count LOOP
3191: l_message := fnd_msg_pub.get(i,'F');
3192: l_message := replace(l_message,chr(0),' ');
3193: WSH_UTIL_CORE.PrintMsg(l_message);
3194: END LOOP;
3195: l_completion_status := 'WARNING';
3196: fnd_msg_pub.delete_msg();
3197: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3193: WSH_UTIL_CORE.PrintMsg(l_message);
3194: END LOOP;
3195: l_completion_status := 'WARNING';
3196: fnd_msg_pub.delete_msg();
3197: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3198: WSH_UTIL_CORE.PrintMsg('Unexpected error. Exiting');
3199: --Bug 4906830
3200: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3201: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3194: END LOOP;
3195: l_completion_status := 'WARNING';
3196: fnd_msg_pub.delete_msg();
3197: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3198: WSH_UTIL_CORE.PrintMsg('Unexpected error. Exiting');
3199: --Bug 4906830
3200: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3201: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3202: errbuf := 'Unexpected error. Exiting';
3206: END IF;
3207: --Bug 4906830
3208: RAISE e_return;
3209: ELSE
3210: WSH_UTIL_CORE.PrintMsg('Pick Confirm Partially Sucessful');
3211: END IF;
3212: --}
3213: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3214: IF l_debug_on THEN
3209: ELSE
3210: WSH_UTIL_CORE.PrintMsg('Pick Confirm Partially Sucessful');
3211: END IF;
3212: --}
3213: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3214: IF l_debug_on THEN
3215: WSH_DEBUG_SV.logmsg(l_module_name, 'PICK CONFIRM SUCESSFUL' );
3216: END IF;
3217: END IF;
3217: END IF;
3218:
3219: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3220: --{
3221: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3222: IF l_debug_on THEN
3223: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3224: END IF;
3225: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
3219: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3220: --{
3221: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3222: IF l_debug_on THEN
3223: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3224: END IF;
3225: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
3226: x_return_status => l_return_status );
3227: IF l_debug_on THEN
3221: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3222: IF l_debug_on THEN
3223: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3224: END IF;
3225: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
3226: x_return_status => l_return_status );
3227: IF l_debug_on THEN
3228: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3229: END IF;
3226: x_return_status => l_return_status );
3227: IF l_debug_on THEN
3228: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3229: END IF;
3230: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3231: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3232: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3233: RAISE e_return;
3234: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3227: IF l_debug_on THEN
3228: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3229: END IF;
3230: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3231: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3232: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3233: RAISE e_return;
3234: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3235: IF l_completion_status = 'NORMAL' THEN
3228: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3229: END IF;
3230: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3231: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3232: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3233: RAISE e_return;
3234: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3235: IF l_completion_status = 'NORMAL' THEN
3236: l_completion_status := 'WARNING';
3230: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3231: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3232: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3233: RAISE e_return;
3234: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3235: IF l_completion_status = 'NORMAL' THEN
3236: l_completion_status := 'WARNING';
3237: END IF;
3238: END IF;
3329: IF ( G_BACKORDERED ) AND l_completion_status <> 'ERROR' THEN
3330: l_completion_status := 'WARNING';
3331: END IF;
3332:
3333: WSH_UTIL_CORE.PrintMsg('Picking in Release_Batch_Sub is completed');
3334:
3335: END IF;
3336: --}
3337:
3384: p_auto_pack_level => crec.ap_level,
3385: p_log_level => p_log_level,
3386: x_return_status => l_return_status
3387: );
3388: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3389: l_packed_results_success := l_packed_results_success + 1;
3390: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3391: l_packed_results_warning := l_packed_results_warning + 1;
3392: WSH_BATCH_PROCESS.log_batch_messages (
3386: x_return_status => l_return_status
3387: );
3388: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3389: l_packed_results_success := l_packed_results_success + 1;
3390: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3391: l_packed_results_warning := l_packed_results_warning + 1;
3392: WSH_BATCH_PROCESS.log_batch_messages (
3393: crec.PA_SC_BATCH_ID,
3394: crec.delivery_id,
3444: p_log_level => p_log_level,
3445: p_actual_departure_date => WSH_PR_CRITERIA.g_actual_departure_date,
3446: x_return_status => l_return_status
3447: );
3448: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3449: l_confirmed_results_success := l_confirmed_results_success + 1;
3450: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3451: l_confirmed_results_warning := l_confirmed_results_warning + 1;
3452: WSH_BATCH_PROCESS.log_batch_messages (
3446: x_return_status => l_return_status
3447: );
3448: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3449: l_confirmed_results_success := l_confirmed_results_success + 1;
3450: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3451: l_confirmed_results_warning := l_confirmed_results_warning + 1;
3452: WSH_BATCH_PROCESS.log_batch_messages (
3453: crec.PA_SC_BATCH_ID,
3454: crec.delivery_id,
3466: END IF;
3467: --}
3468: EXCEPTION
3469: WHEN WSH_MISSING_SC_RULE THEN
3470: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to find the ship confirm rule ');
3471: l_confirmed_results_failure := l_confirmed_results_failure + 1;
3472: END;
3473: --}
3474: END IF;
3536: ELSE
3537: ROLLBACK TO s_Release_Batch_Sub_sf;
3538: END IF;
3539:
3540: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
3541: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST.Release_Batch_Sub');
3542: IF G_CONC_REQ = FND_API.G_TRUE THEN
3543: -- Set the completion status only in the case of Child Request
3544: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3537: ROLLBACK TO s_Release_Batch_Sub_sf;
3538: END IF;
3539:
3540: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
3541: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST.Release_Batch_Sub');
3542: IF G_CONC_REQ = FND_API.G_TRUE THEN
3543: -- Set the completion status only in the case of Child Request
3544: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3545: -- any further processing
3560: ELSE
3561: ROLLBACK TO s_Release_Batch_Sub_sf;
3562: END IF;
3563:
3564: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
3565: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST.Release_Batch_Sub');
3566: IF G_CONC_REQ = FND_API.G_TRUE THEN
3567: -- Set the completion status only in the case of Child Request
3568: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3561: ROLLBACK TO s_Release_Batch_Sub_sf;
3562: END IF;
3563:
3564: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
3565: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST.Release_Batch_Sub');
3566: IF G_CONC_REQ = FND_API.G_TRUE THEN
3567: -- Set the completion status only in the case of Child Request
3568: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3569: -- any further processing
4048: l_count NUMBER := 0;
4049: l_del_batch_id NUMBER;
4050: l_del_batch_name VARCHAR2(30);
4051: l_tmp_row_id VARCHAR2(2000);
4052: l_delivery_ids WSH_UTIL_CORE.Id_Tab_Type;
4053: l_request_id NUMBER;
4054: l_item_name VARCHAR2(2000);
4055: l_message1 VARCHAR2(2000);
4056: l_exception_return_status VARCHAR2(30);
4058: l_exception_msg_data VARCHAR2(4000) := NULL;
4059: l_dummy_exception_id NUMBER;
4060: l_warehouse_type VARCHAR2(10);
4061: l_temp_num NUMBER;
4062: l_del_ids_tab wsh_util_core.id_tab_type; -- empty table of delivery ids
4063:
4064: i NUMBER;
4065: j NUMBER;
4066:
4063:
4064: i NUMBER;
4065: j NUMBER;
4066:
4067: l_ps_delivery_tab WSH_UTIL_CORE.Id_Tab_Type;
4068: l_ps_org_tab WSH_UTIL_CORE.Id_Tab_Type;
4069: l_ps_pick_loc_tab WSH_UTIL_CORE.Id_Tab_Type;
4070: l_ap_batch_id NUMBER;
4071: l_sc_id_tab WSH_UTIL_CORE.Id_Tab_Type;
4064: i NUMBER;
4065: j NUMBER;
4066:
4067: l_ps_delivery_tab WSH_UTIL_CORE.Id_Tab_Type;
4068: l_ps_org_tab WSH_UTIL_CORE.Id_Tab_Type;
4069: l_ps_pick_loc_tab WSH_UTIL_CORE.Id_Tab_Type;
4070: l_ap_batch_id NUMBER;
4071: l_sc_id_tab WSH_UTIL_CORE.Id_Tab_Type;
4072: l_interface_stop_id NUMBER;
4065: j NUMBER;
4066:
4067: l_ps_delivery_tab WSH_UTIL_CORE.Id_Tab_Type;
4068: l_ps_org_tab WSH_UTIL_CORE.Id_Tab_Type;
4069: l_ps_pick_loc_tab WSH_UTIL_CORE.Id_Tab_Type;
4070: l_ap_batch_id NUMBER;
4071: l_sc_id_tab WSH_UTIL_CORE.Id_Tab_Type;
4072: l_interface_stop_id NUMBER;
4073: l_batch_creation_date DATE := NULL;
4067: l_ps_delivery_tab WSH_UTIL_CORE.Id_Tab_Type;
4068: l_ps_org_tab WSH_UTIL_CORE.Id_Tab_Type;
4069: l_ps_pick_loc_tab WSH_UTIL_CORE.Id_Tab_Type;
4070: l_ap_batch_id NUMBER;
4071: l_sc_id_tab WSH_UTIL_CORE.Id_Tab_Type;
4072: l_interface_stop_id NUMBER;
4073: l_batch_creation_date DATE := NULL;
4074: l_ac_close_trip_flag VARCHAR2(1);
4075: l_ac_intransit_flag VARCHAR2(1);
4075: l_ac_intransit_flag VARCHAR2(1);
4076: l_stop_sequence_number NUMBER;
4077: l_stop_id NUMBER;
4078: l_stop_location_id NUMBER;
4079: l_stops_to_close WSH_UTIL_CORE.Id_Tab_Type;
4080: l_stop_location_ids WSH_UTIL_CORE.Id_Tab_Type;
4081: l_stops_sc_ids WSH_UTIL_CORE.Id_Tab_Type;
4082: l_closing_stop_success NUMBER := 0;
4083: l_closing_stop_failure NUMBER := 0;
4076: l_stop_sequence_number NUMBER;
4077: l_stop_id NUMBER;
4078: l_stop_location_id NUMBER;
4079: l_stops_to_close WSH_UTIL_CORE.Id_Tab_Type;
4080: l_stop_location_ids WSH_UTIL_CORE.Id_Tab_Type;
4081: l_stops_sc_ids WSH_UTIL_CORE.Id_Tab_Type;
4082: l_closing_stop_success NUMBER := 0;
4083: l_closing_stop_failure NUMBER := 0;
4084: l_closing_stop_warning NUMBER := 0;
4077: l_stop_id NUMBER;
4078: l_stop_location_id NUMBER;
4079: l_stops_to_close WSH_UTIL_CORE.Id_Tab_Type;
4080: l_stop_location_ids WSH_UTIL_CORE.Id_Tab_Type;
4081: l_stops_sc_ids WSH_UTIL_CORE.Id_Tab_Type;
4082: l_closing_stop_success NUMBER := 0;
4083: l_closing_stop_failure NUMBER := 0;
4084: l_closing_stop_warning NUMBER := 0;
4085: l_lock_error VARCHAR2(1);
4106: l_org_info WSH_PICK_LIST.Org_Params_Rec;
4107: l_org_info_tbl WSH_PICK_LIST.Org_Params_Rec_Tbl;
4108: l_detail_cfetch NUMBER;
4109: l_detail_pfetch NUMBER;
4110: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
4111: l_mo_lines_tbl INV_MOVE_ORDER_PUB.Num_Tbl_Type;
4112: l_carton_grouping_tbl INV_MOVE_ORDER_PUB.Num_Tbl_Type;
4113: l_print_ps VARCHAR2(1);
4114: l_phase VARCHAR2(100);
4114: l_phase VARCHAR2(100);
4115: l_status VARCHAR2(100);
4116: l_dev_phase VARCHAR2(100);
4117: l_dev_status VARCHAR2(100);
4118: l_child_req_ids WSH_UTIL_CORE.Id_Tab_Type;
4119: l_this_request NUMBER;
4120: l_dummy BOOLEAN;
4121: l_errors NUMBER := 0;
4122: l_warnings NUMBER := 0;
4125: l_attr_tab WSH_DELIVERY_AUTOCREATE.Grp_attr_tab_type;
4126: l_group_tab WSH_DELIVERY_AUTOCREATE.Grp_attr_tab_type;
4127: l_action_rec WSH_DELIVERY_AUTOCREATE.Action_rec_type;
4128: l_target_rec WSH_DELIVERY_AUTOCREATE.Grp_attr_rec_type;
4129: l_matched_entities WSH_UTIL_CORE.id_tab_type;
4130: l_out_rec WSH_DELIVERY_AUTOCREATE.Out_rec_type;
4131:
4132: l_check_dcp NUMBER;
4133: l_in_param_rec WSH_FTE_INTEGRATION.rate_del_in_param_rec;
4131:
4132: l_check_dcp NUMBER;
4133: l_in_param_rec WSH_FTE_INTEGRATION.rate_del_in_param_rec;
4134: l_out_param_rec WSH_FTE_INTEGRATION.rate_del_out_param_rec;
4135: l_rate_dels_tab WSH_UTIL_CORE.Id_Tab_Type;
4136:
4137: l_excp_location_id NUMBER;
4138:
4139: l_api_session_name CONSTANT VARCHAR2(150) := G_PKG_NAME ||'.' || l_module_name;
4157:
4158: SAVEPOINT s_Release_Batch_sp;
4159:
4160: -- 10. Load Tendering Initializations
4161: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
4162: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4163: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4164: END IF;
4165:
4158: SAVEPOINT s_Release_Batch_sp;
4159:
4160: -- 10. Load Tendering Initializations
4161: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
4162: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4163: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4164: END IF;
4165:
4166: -- 20. DCP Checks
4159:
4160: -- 10. Load Tendering Initializations
4161: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
4162: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4163: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4164: END IF;
4165:
4166: -- 20. DCP Checks
4167: l_check_dcp := WSH_DCP_PVT.G_CHECK_DCP;
4176: END IF;
4177:
4178: -- 30. Logging Settings
4179: IF G_CONC_REQ = FND_API.G_TRUE THEN
4180: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
4181: IF p_log_level IS NOT NULL THEN
4182: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
4183: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
4184: END IF;
4178: -- 30. Logging Settings
4179: IF G_CONC_REQ = FND_API.G_TRUE THEN
4180: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
4181: IF p_log_level IS NOT NULL THEN
4182: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
4183: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
4184: END IF;
4185: END IF;
4186:
4179: IF G_CONC_REQ = FND_API.G_TRUE THEN
4180: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
4181: IF p_log_level IS NOT NULL THEN
4182: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
4183: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
4184: END IF;
4185: END IF;
4186:
4187: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4216: END IF;
4217: --
4218: WSH_PR_PICK_SLIP_NUMBER.Delete_ps_tbl (x_api_status => l_return_status,
4219: x_error_message => l_message);
4220: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4221: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4222: --{
4223: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_PICK_SLIP_NUMBER.Delete_ps_tbl');
4224: RAISE e_return;
4217: --
4218: WSH_PR_PICK_SLIP_NUMBER.Delete_ps_tbl (x_api_status => l_return_status,
4219: x_error_message => l_message);
4220: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4221: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4222: --{
4223: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_PICK_SLIP_NUMBER.Delete_ps_tbl');
4224: RAISE e_return;
4225: END IF; --}
4219: x_error_message => l_message);
4220: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4221: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4222: --{
4223: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_PICK_SLIP_NUMBER.Delete_ps_tbl');
4224: RAISE e_return;
4225: END IF; --}
4226: -- end bug 5222079
4227:
4277: WSH_DEBUG_SV.log(l_module_name,'DDs for batch ',l_temp_num);
4278: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4279: END IF;
4280:
4281: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4282: WSH_UTIL_CORE.PrintMsg('Error occurred in Init_Pick_Release');
4283: RAISE e_return;
4284: END IF;
4285:
4278: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4279: END IF;
4280:
4281: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4282: WSH_UTIL_CORE.PrintMsg('Error occurred in Init_Pick_Release');
4283: RAISE e_return;
4284: END IF;
4285:
4286: -- 70. Initializations for local variables
4323: IF l_debug_on THEN
4324: WSH_DEBUG_SV.log(l_module_name, 'Number of Organizations',l_organization_tab.count);
4325: END IF;
4326: IF l_organization_tab.COUNT = 0 THEN
4327: WSH_UTIL_CORE.PrintMsg('No organization found. Cannot Pick Release.');
4328: RAISE e_return;
4329: END IF;
4330: --}
4331: ELSE
4501: l_warehouse_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type(
4502: p_organization_id => l_organization_id,
4503: p_event_key => NULL,
4504: x_return_status => l_return_status);
4505: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN --{
4506: IF l_debug_on THEN
4507: WSH_DEBUG_SV.log(l_module_name, 'Org Type', L_WAREHOUSE_TYPE );
4508: END IF;
4509:
4515: END IF;
4516: GOTO next_organization;
4517: END IF;
4518: --}
4519: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4520: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
4521:
4522: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type');
4523: RAISE e_return;
4516: GOTO next_organization;
4517: END IF;
4518: --}
4519: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4520: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
4521:
4522: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type');
4523: RAISE e_return;
4524:
4518: --}
4519: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4520: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
4521:
4522: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type');
4523: RAISE e_return;
4524:
4525: END IF; --}
4526:
4532: END IF;
4533: Get_Org_Params ( p_organization_id => l_organization_id,
4534: x_org_info => l_org_info,
4535: x_return_status => l_return_status);
4536: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4537: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4538: IF l_debug_on THEN
4539: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in Get_Org_Params');
4540: END IF;
4533: Get_Org_Params ( p_organization_id => l_organization_id,
4534: x_org_info => l_org_info,
4535: x_return_status => l_return_status);
4536: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4537: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4538: IF l_debug_on THEN
4539: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in Get_Org_Params');
4540: END IF;
4541: RAISE e_return;
4604: WSH_DEBUG_SV.log(l_module_name,'Inv_Move_Order_Pub.Create_Move_Order_Header l_return_status',l_return_status);
4605: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4606: END IF;
4607:
4608: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4609: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN --{
4610:
4611: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Header');
4612: FOR i in 1..l_msg_count LOOP
4605: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4606: END IF;
4607:
4608: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4609: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN --{
4610:
4611: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Header');
4612: FOR i in 1..l_msg_count LOOP
4613: l_message := fnd_msg_pub.get(i,'F');
4607:
4608: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4609: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN --{
4610:
4611: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Header');
4612: FOR i in 1..l_msg_count LOOP
4613: l_message := fnd_msg_pub.get(i,'F');
4614: l_message := replace(l_message,chr(0),' ');
4615: WSH_UTIL_CORE.PrintMsg(l_message);
4611: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Header');
4612: FOR i in 1..l_msg_count LOOP
4613: l_message := fnd_msg_pub.get(i,'F');
4614: l_message := replace(l_message,chr(0),' ');
4615: WSH_UTIL_CORE.PrintMsg(l_message);
4616: END LOOP;
4617: fnd_msg_pub.delete_msg();
4618: RAISE e_return;
4619: --}
4616: END LOOP;
4617: fnd_msg_pub.delete_msg();
4618: RAISE e_return;
4619: --}
4620: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4621: IF l_debug_on THEN
4622: WSH_DEBUG_SV.logmsg(l_module_name, 'Created MO Header '||TO_CHAR(L_TROHDR_REC.HEADER_ID)||' Sucessfully' );
4623: END IF;
4624: END IF;
4626: -- 90.8 Data should be committed only in case of a concurrent request.
4627: -- Data should not be commited if its ONLINE/From PUBLIC API.
4628: -- In case of Online data is committed from Pick Release form.
4629: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
4630: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
4631: IF l_debug_on THEN
4632: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
4633: END IF;
4634: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
4628: -- In case of Online data is committed from Pick Release form.
4629: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
4630: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
4631: IF l_debug_on THEN
4632: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
4633: END IF;
4634: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
4635: x_return_status => l_return_status);
4636:
4630: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
4631: IF l_debug_on THEN
4632: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
4633: END IF;
4634: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
4635: x_return_status => l_return_status);
4636:
4637: IF l_debug_on THEN
4638: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
4636:
4637: IF l_debug_on THEN
4638: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
4639: END IF;
4640: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4641: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4642: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
4643: RAISE e_return;
4644: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4637: IF l_debug_on THEN
4638: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
4639: END IF;
4640: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4641: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4642: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
4643: RAISE e_return;
4644: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4645: IF l_completion_status = 'NORMAL' THEN
4638: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
4639: END IF;
4640: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4641: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4642: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
4643: RAISE e_return;
4644: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4645: IF l_completion_status = 'NORMAL' THEN
4646: l_completion_status := 'WARNING';
4640: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4641: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4642: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
4643: RAISE e_return;
4644: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4645: IF l_completion_status = 'NORMAL' THEN
4646: l_completion_status := 'WARNING';
4647: END IF;
4648: END IF;
4670: 'N');
4671:
4672: EXCEPTION
4673: WHEN OTHERS THEN
4674: WSH_UTIL_CORE.PrintMsg('Error occurred in trying to insert WMS rec type in worker table');
4675: RAISE e_return;
4676: END;
4677: END IF; --}
4678:
4701:
4702: EXCEPTION
4703:
4704: WHEN OTHERS THEN
4705: WSH_UTIL_CORE.PrintMsg('Error occurred in trying to insert PICK rec type in worker table');
4706: RAISE e_return;
4707: END; --}
4708:
4709: ELSE --{
4733: WSH_DEBUG_SV.log(l_module_name, 'WSH_PR_CRITERIA.Init_Cursor l_return_status',l_return_status);
4734: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4735: END IF;
4736:
4737: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4738: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4739: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Cursor');
4740: RAISE e_return;
4741: END IF;
4734: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4735: END IF;
4736:
4737: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4738: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4739: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Cursor');
4740: RAISE e_return;
4741: END IF;
4742:
4735: END IF;
4736:
4737: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4738: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4739: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Cursor');
4740: RAISE e_return;
4741: END IF;
4742:
4743: l_tot_worker_records := l_tot_worker_records + NVL(l_worker_records,0);
4764: 'N');
4765:
4766: EXCEPTION
4767: WHEN OTHERS THEN
4768: WSH_UTIL_CORE.PrintMsg('Error occurred in trying to insert DOC rec type in worker table');
4769: RAISE e_return;
4770: END; --}
4771:
4772: END IF; -- l_mode is null --}
4821: x_return_status => l_return_status );
4822: IF l_debug_on THEN
4823: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4824: END IF;
4825: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4826: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4827: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK-SS');
4828: RAISE e_return;
4829: ELSE
4822: IF l_debug_on THEN
4823: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4824: END IF;
4825: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4826: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4827: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK-SS');
4828: RAISE e_return;
4829: ELSE
4830: -- This is required as we do not need to process rest of the code till
4823: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4824: END IF;
4825: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4826: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4827: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK-SS');
4828: RAISE e_return;
4829: ELSE
4830: -- This is required as we do not need to process rest of the code till
4831: -- workers complete
4860: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
4861: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
4862: END IF;
4863: IF l_retcode = 2 THEN
4864: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
4865: RAISE e_return;
4866: ELSIF l_retcode = 1 THEN
4867: G_BACKORDERED := TRUE; -- To set the request status as Warning
4868: ELSIF l_retcode IS NULL THEN -- Online Process
4868: ELSIF l_retcode IS NULL THEN -- Online Process
4869: IF G_ONLINE_PICK_RELEASE_RESULT = 'W' THEN
4870: G_BACKORDERED := TRUE; -- To set the request status as Warning
4871: ELSIF G_ONLINE_PICK_RELEASE_RESULT = 'F' THEN
4872: WSH_UTIL_CORE.PrintMsg('Error in Online Release_batch_sub');
4873: RAISE e_return;
4874: END IF;
4875: END IF;
4876: END IF; --}
4901: x_return_status => l_return_status );
4902: IF l_debug_on THEN
4903: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4904: END IF;
4905: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4906: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4907: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK');
4908: RAISE e_return;
4909: ELSE
4902: IF l_debug_on THEN
4903: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4904: END IF;
4905: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4906: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4907: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK');
4908: RAISE e_return;
4909: ELSE
4910: -- This is required as we do not need to process rest of the code till
4903: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4904: END IF;
4905: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4906: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4907: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK');
4908: RAISE e_return;
4909: ELSE
4910: -- This is required as we do not need to process rest of the code till
4911: -- workers complete
4936: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
4937: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
4938: END IF;
4939: IF l_retcode = 2 THEN
4940: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
4941: RAISE e_return;
4942: ELSIF l_retcode = 1 THEN
4943: G_BACKORDERED := TRUE; -- To set the request status as Warning
4944: ELSIF l_retcode IS NULL THEN -- Online Process
4944: ELSIF l_retcode IS NULL THEN -- Online Process
4945: IF G_ONLINE_PICK_RELEASE_RESULT = 'W' THEN
4946: G_BACKORDERED := TRUE; -- To set the request status as Warning
4947: ELSIF G_ONLINE_PICK_RELEASE_RESULT = 'F' THEN
4948: WSH_UTIL_CORE.PrintMsg('Error in Online Release_batch_sub');
4949: RAISE e_return;
4950: END IF;
4951: END IF;
4952: END IF; --}
4995: x_return_status => l_return_status);
4996: IF l_debug_on THEN
4997: WSH_DEBUG_SV.log(l_module_name,'WSH_USA_INV_PVT.Unassign_Backordered_Details l_return_status' ,l_return_status);
4998: END IF;
4999: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5000: WSH_UTIL_CORE.PrintMsg('Unexpected Error occurred in WSH_USA_INV_PVT.Unassign_Backordered_Details');
5001: RAISE e_return;
5002: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5003: l_errors := l_errors + 1;
4996: IF l_debug_on THEN
4997: WSH_DEBUG_SV.log(l_module_name,'WSH_USA_INV_PVT.Unassign_Backordered_Details l_return_status' ,l_return_status);
4998: END IF;
4999: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5000: WSH_UTIL_CORE.PrintMsg('Unexpected Error occurred in WSH_USA_INV_PVT.Unassign_Backordered_Details');
5001: RAISE e_return;
5002: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5003: l_errors := l_errors + 1;
5004: END IF;
4998: END IF;
4999: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5000: WSH_UTIL_CORE.PrintMsg('Unexpected Error occurred in WSH_USA_INV_PVT.Unassign_Backordered_Details');
5001: RAISE e_return;
5002: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5003: l_errors := l_errors + 1;
5004: END IF;
5005: l_detail_pfetch := c_get_backordered_details%ROWCOUNT;
5006: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
5013: CLOSE c_get_backordered_details;
5014:
5015: -- If there are any Errors encountered, stop processing immediately
5016: IF l_errors > 0 THEN
5017: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_USA_INV_PVT.Unassign_Backordered_Details');
5018: RAISE e_return;
5019: END IF;
5020: END IF; --}
5021:
5027: WSH_DELIVERY_AUTOCREATE.Unassign_Empty_Containers(g_unassigned_delivery_ids,l_return_status);
5028: IF l_debug_on THEN
5029: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.unassign_empty_containers l_return_status',l_return_status);
5030: END IF;
5031: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5032: l_completion_status := 'WARNING';
5033: END IF;
5034: END IF;
5035:
5084: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5085: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
5086: ,l_return_status);
5087: END IF;
5088: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5089: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5090: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
5091: RAISE e_return;
5092: END IF;
5085: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
5086: ,l_return_status);
5087: END IF;
5088: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5089: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5090: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
5091: RAISE e_return;
5092: END IF;
5093: -- bug # 8915460 : When pick release is performed by specifying deliery detail id/containerDDId
5086: ,l_return_status);
5087: END IF;
5088: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5089: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5090: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
5091: RAISE e_return;
5092: END IF;
5093: -- bug # 8915460 : When pick release is performed by specifying deliery detail id/containerDDId
5094: -- then auto create delivery can be performed only once because
5129: p_caller => 'WSH_PICK_RELEASE',
5130: p_organization_id => i, -- Organization_id
5131: x_return_message => l_message,
5132: x_return_status => l_return_status );
5133: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5134: IF l_debug_on THEN
5135: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR OR WARNING OCCURRED WHILE PROCESSING CARRIER SELECTION ( PICK SLIP ) ' );
5136: END IF;
5137: END IF;
5134: IF l_debug_on THEN
5135: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR OR WARNING OCCURRED WHILE PROCESSING CARRIER SELECTION ( PICK SLIP ) ' );
5136: END IF;
5137: END IF;
5138: WSH_UTIL_CORE.add_message(l_return_status);
5139: --}
5140: END IF;
5141:
5142: -- Bug 3714834: If there are more lines to be picked than the pick release batch size
5167: x_msg_data => l_msg_data );
5168: IF l_debug_on THEN
5169: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_FTE_INTEGRATION.Rate_Delivery',l_return_status);
5170: END IF;
5171: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
5172: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5173: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_INTEGRATION.Rate_Delivery');
5174: RAISE e_return;
5175: ELSE
5168: IF l_debug_on THEN
5169: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_FTE_INTEGRATION.Rate_Delivery',l_return_status);
5170: END IF;
5171: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
5172: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5173: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_INTEGRATION.Rate_Delivery');
5174: RAISE e_return;
5175: ELSE
5176: j := l_out_param_rec.failed_delivery_id_list.FIRST;
5169: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_FTE_INTEGRATION.Rate_Delivery',l_return_status);
5170: END IF;
5171: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
5172: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5173: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_INTEGRATION.Rate_Delivery');
5174: RAISE e_return;
5175: ELSE
5176: j := l_out_param_rec.failed_delivery_id_list.FIRST;
5177: WHILE j is not NULL LOOP
5222: x_return_status => l_return_status );
5223: IF l_debug_on THEN
5224: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5225: END IF;
5226: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5227: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5228: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5229: RAISE e_Return;
5230: END IF;
5223: IF l_debug_on THEN
5224: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5225: END IF;
5226: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5227: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5228: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5229: RAISE e_Return;
5230: END IF;
5231: END IF; --}
5224: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5225: END IF;
5226: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5227: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5228: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5229: RAISE e_Return;
5230: END IF;
5231: END IF; --}
5232:
5251: x_return_status => l_return_status );
5252: IF l_debug_on THEN
5253: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5254: END IF;
5255: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5256: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5257: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5258: RAISE e_Return;
5259: END IF;
5252: IF l_debug_on THEN
5253: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5254: END IF;
5255: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5256: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5257: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5258: RAISE e_Return;
5259: END IF;
5260: l_detail_pfetch := c_batch_unplanned_del%ROWCOUNT;
5253: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5254: END IF;
5255: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5256: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5257: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5258: RAISE e_Return;
5259: END IF;
5260: l_detail_pfetch := c_batch_unplanned_del%ROWCOUNT;
5261: END LOOP; --}
5322: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5323: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status'
5324: ,l_return_status);
5325: END IF;
5326: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5327: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5328: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
5329: RAISE e_return;
5330: END IF;
5323: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status'
5324: ,l_return_status);
5325: END IF;
5326: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5327: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5328: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
5329: RAISE e_return;
5330: END IF;
5331:
5324: ,l_return_status);
5325: END IF;
5326: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5327: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5328: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
5329: RAISE e_return;
5330: END IF;
5331:
5332: --bug 7171766
5421: IF l_debug_on THEN
5422: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5423: WSH_DEBUG_SV.log(l_module_name,'Return status from WMS_POST_ALLOCATION.launch ', l_return_status);
5424: END IF;
5425: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5426: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5427: WSH_UTIL_CORE.PrintMsg('Error occurred in WMS_POST_ALLOCATION.launch');
5428: RAISE e_return;
5429: END IF;
5422: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5423: WSH_DEBUG_SV.log(l_module_name,'Return status from WMS_POST_ALLOCATION.launch ', l_return_status);
5424: END IF;
5425: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5426: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5427: WSH_UTIL_CORE.PrintMsg('Error occurred in WMS_POST_ALLOCATION.launch');
5428: RAISE e_return;
5429: END IF;
5430:
5423: WSH_DEBUG_SV.log(l_module_name,'Return status from WMS_POST_ALLOCATION.launch ', l_return_status);
5424: END IF;
5425: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5426: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5427: WSH_UTIL_CORE.PrintMsg('Error occurred in WMS_POST_ALLOCATION.launch');
5428: RAISE e_return;
5429: END IF;
5430:
5431: <
5482: p_doc_set_id => l_org_info_tbl(crec.organization_id).doc_set_id,
5483: p_batch_name => l_batch_name,
5484: p_order_number => NULL, -- this will be derived in Print_Docs API itself
5485: x_return_status => l_return_status );
5486: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5487: l_completion_status := 'WARNING';
5488: END IF;
5489: END IF;
5490: -- No records detailed, so delete Move Order Header for Organization
5520: IF l_debug_on THEN
5521: WSH_DEBUG_SV.log(l_module_name,'Inv_Move_Order_Pub.Process_Move_Order l_return_status'
5522: ,l_return_status);
5523: END IF;
5524: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5525: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5526: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Process_Move_Order');
5527: FOR i in 1..l_msg_count LOOP
5528: l_message := fnd_msg_pub.get(i,'F');
5521: WSH_DEBUG_SV.log(l_module_name,'Inv_Move_Order_Pub.Process_Move_Order l_return_status'
5522: ,l_return_status);
5523: END IF;
5524: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5525: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5526: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Process_Move_Order');
5527: FOR i in 1..l_msg_count LOOP
5528: l_message := fnd_msg_pub.get(i,'F');
5529: l_message := replace(l_message,chr(0),' ');
5522: ,l_return_status);
5523: END IF;
5524: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5525: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5526: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Process_Move_Order');
5527: FOR i in 1..l_msg_count LOOP
5528: l_message := fnd_msg_pub.get(i,'F');
5529: l_message := replace(l_message,chr(0),' ');
5530: WSH_UTIL_CORE.PrintMsg(l_message);
5526: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Process_Move_Order');
5527: FOR i in 1..l_msg_count LOOP
5528: l_message := fnd_msg_pub.get(i,'F');
5529: l_message := replace(l_message,chr(0),' ');
5530: WSH_UTIL_CORE.PrintMsg(l_message);
5531: END LOOP;
5532: fnd_msg_pub.delete_msg();
5533: RAISE e_return;
5534: END IF;
5542: WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries(g_batch_id,l_return_status);
5543: IF l_debug_on THEN
5544: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries l_return_status',l_return_status);
5545: END IF;
5546: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5547: l_completion_status := 'WARNING';
5548: END IF;
5549:
5550: -- Reset delivery batch id.
5627:
5628: FND_MESSAGE.SET_NAME('WSH','WSH_CHILD_REQ_STATUS');
5629: FND_MESSAGE.SET_TOKEN('REQ_ID', to_char(l_child_req_ids(j)));
5630: FND_MESSAGE.SET_TOKEN('STATUS', l_status);
5631: WSH_UTIL_CORE.PrintMsg(FND_MESSAGE.GET);
5632: j := l_child_req_ids.NEXT(j);
5633: END LOOP;
5634:
5635: IF ( G_BACKORDERED ) THEN
5644: l_completion_status := 'WARNING';
5645: END IF;
5646: END IF; --}
5647:
5648: WSH_UTIL_CORE.PrintMsg('Pick selection is completed');
5649:
5650: -- Set Online Pick Release Result
5651: -- Warning Mesg. for Online
5652: IF (l_completion_status = 'WARNING') THEN
5772: IF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) > 0 THEN
5773: l_act_ap_level := NVL(l_ap_level,0);
5774: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5775: IF G_CONC_REQ = FND_API.G_TRUE THEN
5776: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5777: END IF;
5778: l_act_ap_level := 0;
5779: ELSE
5780: l_act_ap_level := 0;
5918: OR (NVL(l_ap_level,0) > 0 AND WSH_PR_CRITERIA.g_non_picking_flag = 'P') THEN
5919: l_act_ap_level := NVL(l_ap_level,0);
5920: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5921: IF G_CONC_REQ = FND_API.G_TRUE THEN
5922: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5923: END IF;
5924: l_act_ap_level := 0;
5925: ELSE
5926: l_act_ap_level := 0;
6014: x_return_status => l_return_status );
6015: IF l_debug_on THEN
6016: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
6017: END IF;
6018: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
6019: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6020: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PS');
6021: RAISE e_return;
6022: ELSE
6015: IF l_debug_on THEN
6016: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
6017: END IF;
6018: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
6019: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6020: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PS');
6021: RAISE e_return;
6022: ELSE
6023: -- After pausing parent process, we need to skip rest of the code
6016: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
6017: END IF;
6018: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
6019: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6020: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PS');
6021: RAISE e_return;
6022: ELSE
6023: -- After pausing parent process, we need to skip rest of the code
6024: -- till all workers complete and parent process restarts
6045: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
6046: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
6047: END IF;
6048: IF l_retcode = 2 THEN
6049: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
6050: RAISE e_return;
6051: ELSIF l_retcode IS NULL AND
6052: G_ONLINE_PICK_RELEASE_RESULT = 'F' THEN
6053: WSH_UTIL_CORE.PrintMsg('Error in Online Release_batch_sub');
6049: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
6050: RAISE e_return;
6051: ELSIF l_retcode IS NULL AND
6052: G_ONLINE_PICK_RELEASE_RESULT = 'F' THEN
6053: WSH_UTIL_CORE.PrintMsg('Error in Online Release_batch_sub');
6054: RAISE e_return;
6055: END IF;
6056: --}
6057: END IF;
6059: END IF;
6060: --}
6061: END IF; -- Pack/Ship Grouping
6062:
6063: WSH_UTIL_CORE.PrintDateTime;
6064:
6065: IF ((G_CONC_REQ = FND_API.G_TRUE AND l_completion_status <> 'ERROR') OR
6066: G_ONLINE_PICK_RELEASE_RESULT IN ('S', 'W'))
6067: AND (WSH_PR_CRITERIA.g_autopack_flag = 'Y' OR WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') OR
6118: p_actual_date => NVL(WSH_PR_CRITERIA.g_actual_departure_date, SYSDATE),
6119: p_defer_interface_flag => 'Y',
6120: x_return_status => l_return_status );
6121:
6122: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6123: IF l_debug_on THEN
6124: WSH_DEBUG_SV.log(l_module_name,'Successfully closed stop',l_stops_to_close(i));
6125: END IF;
6126: l_closing_stop_success := l_closing_stop_success + 1;
6123: IF l_debug_on THEN
6124: WSH_DEBUG_SV.log(l_module_name,'Successfully closed stop',l_stops_to_close(i));
6125: END IF;
6126: l_closing_stop_success := l_closing_stop_success + 1;
6127: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6128: IF l_debug_on THEN
6129: WSH_DEBUG_SV.log(l_module_name,'Trip stop ', l_stops_to_close(i) ||' is closed with warnings');
6130: END IF;
6131: l_closing_stop_warning := l_closing_stop_warning + 1;
6160: WSH_DEBUG_SV.log(l_module_name, 'No stops to close');
6161: END IF;
6162: END IF;
6163:
6164: WSH_UTIL_CORE.PrintDateTime;
6165:
6166: -- Submit ITS for Batch
6167: FOR crec in c_defer_interface(p_batch_id) LOOP
6168: --{
6185: IF l_debug_on THEN
6186: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
6187: END IF;
6188: COMMIT;
6189: WSH_UTIL_CORE.PrintMsg('Interface request submitted for stops, request ID: '||to_char(l_request_id));
6190: END IF;
6191: END IF;
6192: --}
6193: END IF;
6218: END IF;
6219: COMMIT;
6220: END LOOP;
6221: CLOSE c_ap_batch;
6222: WSH_UTIL_CORE.PrintDateTime;
6223: --}
6224:
6225: -- Submit Auto Ship Confirm Report
6226: --{
6228: IF l_debug_on THEN
6229: WSH_DEBUG_SV.logmsg(l_module_name, 'Submitting Auto Ship Confirm Report');
6230: WSH_DEBUG_SV.log(l_module_name, 'l_sc_id_tab.COUNT', l_sc_id_tab.COUNT);
6231: END IF;
6232: WSH_UTIL_CORE.PrintDateTime;
6233: FOR i in l_sc_id_tab.FIRST..l_sc_id_tab.LAST
6234: LOOP
6235: l_request_id := FND_REQUEST.Submit_Request (
6236: 'WSH',
6250: END IF;
6251: COMMIT;
6252: END LOOP;
6253: END IF;
6254: WSH_UTIL_CORE.PrintDateTime;
6255: --}
6256:
6257: IF l_mode = 'PS' THEN --{
6258: --set the l_completion_status based on the other programs
6284:
6285: FND_MESSAGE.SET_NAME('WSH','WSH_CHILD_REQ_STATUS');
6286: FND_MESSAGE.SET_TOKEN('REQ_ID', to_char(l_child_req_ids(j)));
6287: FND_MESSAGE.SET_TOKEN('STATUS', l_status);
6288: WSH_UTIL_CORE.PrintMsg(FND_MESSAGE.GET);
6289: j := l_child_req_ids.NEXT(j);
6290: END LOOP;
6291:
6292: IF ( G_BACKORDERED ) THEN
6362: --
6363:
6364: SAVEPOINT S_CALL_FTE_LOAD_TENDER_API_SP;
6365:
6366: IF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
6367: --{
6368: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6369: IF l_debug_on THEN
6370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender'
6364: SAVEPOINT S_CALL_FTE_LOAD_TENDER_API_SP;
6365:
6366: IF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
6367: --{
6368: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6369: IF l_debug_on THEN
6370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender'
6371: ,WSH_DEBUG_SV.C_PROC_LEVEL);
6372: END IF;
6366: IF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
6367: --{
6368: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6369: IF l_debug_on THEN
6370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender'
6371: ,WSH_DEBUG_SV.C_PROC_LEVEL);
6372: END IF;
6373: WSH_UTIL_CORE.Process_stops_for_load_tender (
6374: p_reset_flags => TRUE,
6369: IF l_debug_on THEN
6370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender'
6371: ,WSH_DEBUG_SV.C_PROC_LEVEL);
6372: END IF;
6373: WSH_UTIL_CORE.Process_stops_for_load_tender (
6374: p_reset_flags => TRUE,
6375: x_return_status => l_return_status );
6376: IF l_debug_on THEN
6377: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6375: x_return_status => l_return_status );
6376: IF l_debug_on THEN
6377: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6378: END IF;
6379: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
6380: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6381: IF G_CONC_REQ = FND_API.G_TRUE THEN
6382: l_completion_status := 'ERROR';
6383: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6376: IF l_debug_on THEN
6377: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6378: END IF;
6379: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
6380: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6381: IF G_CONC_REQ = FND_API.G_TRUE THEN
6382: l_completion_status := 'ERROR';
6383: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6384: errbuf := 'Pick selection is completed with error';
6388: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6389: ROLLBACK TO S_CALL_FTE_LOAD_TENDER_API_SP;
6390: END IF;
6391:
6392: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6393: IF G_CONC_REQ = FND_API.G_TRUE THEN
6394: IF l_completion_status = 'NORMAL' THEN
6395: l_completion_status := 'WARNING';
6396: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6428: ELSE
6429: ROLLBACK TO s_Release_Batch_sp;
6430: END IF;
6431:
6432: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
6433: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST');
6434: IF get_orgs%ISOPEN THEN
6435: CLOSE get_orgs;
6436: END IF;
6429: ROLLBACK TO s_Release_Batch_sp;
6430: END IF;
6431:
6432: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
6433: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST');
6434: IF get_orgs%ISOPEN THEN
6435: CLOSE get_orgs;
6436: END IF;
6437: IF get_pack_ship_groups%ISOPEN THEN
6502: errbuf := 'Exception occurred in WSH_PICK_LIST';
6503: retcode := '2';
6504: END IF;
6505: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6506: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6507: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6508: IF l_debug_on THEN
6509: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6510: END IF;
6503: retcode := '2';
6504: END IF;
6505: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6506: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6507: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6508: IF l_debug_on THEN
6509: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6510: END IF;
6511: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6505: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6506: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6507: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6508: IF l_debug_on THEN
6509: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6510: END IF;
6511: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6512: x_return_status => l_return_status);
6513: IF l_debug_on THEN
6507: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6508: IF l_debug_on THEN
6509: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6510: END IF;
6511: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6512: x_return_status => l_return_status);
6513: IF l_debug_on THEN
6514: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6515: END IF;
6522: --
6523: WHEN OTHERS THEN
6524: --
6525: ROLLBACK;
6526: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
6527: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST');
6528: IF get_orgs%ISOPEN THEN
6529: CLOSE get_orgs;
6530: END IF;
6523: WHEN OTHERS THEN
6524: --
6525: ROLLBACK;
6526: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
6527: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST');
6528: IF get_orgs%ISOPEN THEN
6529: CLOSE get_orgs;
6530: END IF;
6531: IF get_pack_ship_groups%ISOPEN THEN
6596: errbuf := 'Exception occurred in WSH_PICK_LIST';
6597: retcode := '2';
6598: END IF;
6599: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6600: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6601: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6602: IF l_debug_on THEN
6603: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6604: END IF;
6597: retcode := '2';
6598: END IF;
6599: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6600: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6601: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6602: IF l_debug_on THEN
6603: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6604: END IF;
6605: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6599: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6600: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6601: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6602: IF l_debug_on THEN
6603: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6604: END IF;
6605: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6606: x_return_status => l_return_status);
6607: IF l_debug_on THEN
6601: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6602: IF l_debug_on THEN
6603: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6604: END IF;
6605: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6606: x_return_status => l_return_status);
6607: IF l_debug_on THEN
6608: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6609: END IF;
6743: WSH_NO_FUTURE_SHIPDATE EXCEPTION;
6744: BEGIN
6745: -- Fetch user and login information
6746: --
6747: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
6748: --
6749: IF p_log_level IS NOT NULL THEN -- log level fix
6750: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
6751: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
6746: --
6747: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
6748: --
6749: IF p_log_level IS NOT NULL THEN -- log level fix
6750: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
6751: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
6752: END IF;
6753: --
6754: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6747: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
6748: --
6749: IF p_log_level IS NOT NULL THEN -- log level fix
6750: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
6751: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
6752: END IF;
6753: --
6754: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6755: --
6791: l_login_id := FND_GLOBAL.CONC_LOGIN_ID;
6792: l_actual_departure_date := FND_DATE.CANONICAL_TO_DATE(p_actual_departure_date);
6793:
6794: IF (l_actual_departure_date IS NOT NULL) THEN
6795: IF NOT WSH_UTIL_CORE.ValidateActualDepartureDate(p_ship_confirm_rule_id, l_actual_departure_date) THEN
6796: raise WSH_NO_FUTURE_SHIPDATE;
6797: END IF;
6798: END IF;
6799: --
6804: FETCH c_RuleInfo INTO v_RuleInfo;
6805: --
6806: IF c_RuleInfo%NOTFOUND THEN
6807: --
6808: WSH_UTIL_CORE.PrintMsg('Rule ' || p_rule_id || ' does not exist or has expired');
6809: CLOSE c_RuleInfo;
6810: --
6811: IF l_debug_on THEN
6812: wsh_Debug_sv.pop(l_module_name);
6991: --
6992:
6993: WHEN WSH_NO_FUTURE_SHIPDATE THEN
6994:
6995: WSH_UTIL_CORE.PrintMsg('No Lines were selected for Ship Confirmation because Allow Future Ship Date Parameter is disabled and Actual Ship Date is greater than current system date');
6996: l_ret_code := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING','Release_Batch_SRS');
6997: errbuf := 'Pick Selection List Generation SRS completed with warning';
6998: retcode := '1';
6999: IF l_debug_on THEN
7099: -- bug# 6719369 (replenishment project): For dynamic replenishment case, WMS passes the delivery detail ids as well as
7100: -- the picking batch id value. In this case it shoud create a new batch by taking the attribute values from the old batch
7101: -- information.
7102: PROCEDURE Launch_Pick_Release(
7103: p_trip_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7104: p_stop_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7105: p_delivery_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7106: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7107: x_request_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
7100: -- the picking batch id value. In this case it shoud create a new batch by taking the attribute values from the old batch
7101: -- information.
7102: PROCEDURE Launch_Pick_Release(
7103: p_trip_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7104: p_stop_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7105: p_delivery_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7106: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7107: x_request_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
7108: p_auto_pack_ship IN VARCHAR2 DEFAULT NULL,
7101: -- information.
7102: PROCEDURE Launch_Pick_Release(
7103: p_trip_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7104: p_stop_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7105: p_delivery_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7106: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7107: x_request_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
7108: p_auto_pack_ship IN VARCHAR2 DEFAULT NULL,
7109: p_batch_id IN NUMBER DEFAULT NULL, -- bug# 6719369 (replenishment project)
7102: PROCEDURE Launch_Pick_Release(
7103: p_trip_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7104: p_stop_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7105: p_delivery_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7106: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7107: x_request_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
7108: p_auto_pack_ship IN VARCHAR2 DEFAULT NULL,
7109: p_batch_id IN NUMBER DEFAULT NULL, -- bug# 6719369 (replenishment project)
7110: x_return_status OUT NOCOPY VARCHAR2
7103: p_trip_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7104: p_stop_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7105: p_delivery_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7106: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
7107: x_request_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
7108: p_auto_pack_ship IN VARCHAR2 DEFAULT NULL,
7109: p_batch_id IN NUMBER DEFAULT NULL, -- bug# 6719369 (replenishment project)
7110: x_return_status OUT NOCOPY VARCHAR2
7111: ) IS
7279: l_cached_flag VARCHAR2(1);
7280: j NUMBER := 0;
7281:
7282: --OTM R12
7283: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type;
7284: i NUMBER;
7285: l_counter NUMBER;
7286: l_result NUMBER;
7287: l_gc3_is_installed VARCHAR2(1);
7316:
7317: --OTM R12
7318: --include for planning delivery lines will all be
7319: --set to ignore for planning
7320: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
7321:
7322: IF l_gc3_is_installed IS NULL THEN
7323: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
7324: END IF;
7319: --set to ignore for planning
7320: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
7321:
7322: IF l_gc3_is_installed IS NULL THEN
7323: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
7324: END IF;
7325:
7326: IF (p_detail_ids.COUNT > 0
7327: AND p_auto_pack_ship IS NOT NULL
7362: IF l_debug_on THEN
7363: wsh_debug_sv.log(l_module_name,'Return Status After Calling change_ignoreplan_status ',l_return_status);
7364: END IF;
7365:
7366: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7367:
7368: --
7369: IF l_debug_on THEN
7370: WSH_DEBUG_SV.logmsg(l_module_name,'ERROR IN WSH_TP_RELEASE.CHANGE_IGNOREPLAN_STATUS');
7371: END IF;
7372: --
7373: RAISE api_return_fail;
7374:
7375: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7376: l_num_warn := l_num_warn + 1;
7377: END IF;
7378:
7379: END IF;
7434: END IF;
7435: END IF;
7436: ELSE
7437: --Non of pick release entity passed.
7438: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7439: FND_MESSAGE.SET_NAME('WSH','WSH_PR_NULL_IDS');
7440: WSH_UTIL_CORE.Add_Message(x_return_status);
7441: IF l_debug_on THEN
7442: WSH_DEBUG_SV.pop(l_module_name);
7436: ELSE
7437: --Non of pick release entity passed.
7438: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7439: FND_MESSAGE.SET_NAME('WSH','WSH_PR_NULL_IDS');
7440: WSH_UTIL_CORE.Add_Message(x_return_status);
7441: IF l_debug_on THEN
7442: WSH_DEBUG_SV.pop(l_module_name);
7443: END IF;
7444: --
7501: FETCH pick_confirm_required_for_del into l_pickconfirm_required;
7502: CLOSE pick_confirm_required_for_del;
7503:
7504: IF l_pickconfirm_required <> 2 THEN
7505: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7506: -- set warning for org
7507: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7508: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7509: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7505: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7506: -- set warning for org
7507: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7508: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7509: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7510: WSH_UTIL_CORE.Add_Message(x_return_status);
7511: l_num_warn := l_num_warn + 1;
7512: END IF;
7513:
7506: -- set warning for org
7507: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7508: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7509: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7510: WSH_UTIL_CORE.Add_Message(x_return_status);
7511: l_num_warn := l_num_warn + 1;
7512: END IF;
7513:
7514: -- always ship when action is pick,ship or pick,pack,ship
7515: l_ship_confirm_rule_id := l_param_info.ship_confirm_rule_id;
7516: l_del_org_params_cache_tab(j).ship_confirm_rule_id := l_ship_confirm_rule_id;
7517:
7518: IF l_ship_confirm_rule_id IS NULL THEN
7519: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7520: -- set warning for org
7521: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7522: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7523: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7519: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7520: -- set warning for org
7521: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7522: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7523: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7524: WSH_UTIL_CORE.Add_Message(x_return_status);
7525: l_num_warn := l_num_warn + 1;
7526: END IF;
7527:
7520: -- set warning for org
7521: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7522: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7523: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7524: WSH_UTIL_CORE.Add_Message(x_return_status);
7525: l_num_warn := l_num_warn + 1;
7526: END IF;
7527:
7528: IF p_auto_pack_ship = 'PS' THEN
7532: l_autopack_flag := 'Y';
7533: l_del_org_params_cache_tab(j).autopack_flag := l_autopack_flag;
7534:
7535: IF NVL(l_autopack_level,0) = 0 THEN
7536: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7537: -- set warning for org
7538: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7539: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7540: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7536: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7537: -- set warning for org
7538: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7539: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7540: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7541: WSH_UTIL_CORE.Add_Message(x_return_status);
7542: l_num_warn := l_num_warn + 1;
7543: END IF;
7544: END IF;
7537: -- set warning for org
7538: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7539: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7540: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7541: WSH_UTIL_CORE.Add_Message(x_return_status);
7542: l_num_warn := l_num_warn + 1;
7543: END IF;
7544: END IF;
7545: END IF;
7565: IF l_debug_on THEN
7566: wsh_Debug_sv.log(l_module_name, 'dynamic replenishment (WMS), Invalid batch Id', p_batch_id);
7567: WSH_DEBUG_SV.pop(l_module_name);
7568: END IF;
7569: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7570: CLOSE c_batch_info;
7571: RETURN;
7572: --}
7573: END IF;
7782:
7783: FETCH check_detail_for_SC into l_warn_org, l_ship_confirm_rule_id,
7784: l_autocreate_del_flag, l_pickconfirm_required;
7785: EXIT when check_detail_for_SC%NOTFOUND;
7786: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_warn_org);
7787: -- set warning for org
7788: IF l_ship_confirm_rule_id IS NULL THEN
7789: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7790: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7787: -- set warning for org
7788: IF l_ship_confirm_rule_id IS NULL THEN
7789: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7790: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7791: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7792: WSH_UTIL_CORE.Add_Message(x_return_status);
7793: l_num_warn := l_num_warn + 1;
7794: END IF;
7795: IF NVL(l_pickconfirm_required,0) <> 2 THEN
7788: IF l_ship_confirm_rule_id IS NULL THEN
7789: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7790: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7791: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7792: WSH_UTIL_CORE.Add_Message(x_return_status);
7793: l_num_warn := l_num_warn + 1;
7794: END IF;
7795: IF NVL(l_pickconfirm_required,0) <> 2 THEN
7796: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7794: END IF;
7795: IF NVL(l_pickconfirm_required,0) <> 2 THEN
7796: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7797: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7798: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7799: WSH_UTIL_CORE.Add_Message(x_return_status);
7800: l_num_warn := l_num_warn + 1;
7801: END IF;
7802: IF NVL(l_autocreate_del_flag, 'N') <> 'Y' THEN
7795: IF NVL(l_pickconfirm_required,0) <> 2 THEN
7796: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7797: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7798: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7799: WSH_UTIL_CORE.Add_Message(x_return_status);
7800: l_num_warn := l_num_warn + 1;
7801: END IF;
7802: IF NVL(l_autocreate_del_flag, 'N') <> 'Y' THEN
7803: OPEN check_unassigned_dels(l_warn_org, l_batch_id);
7804: FETCH check_unassigned_dels INTO l_assigned;
7805: IF check_unassigned_dels%FOUND THEN
7806: FND_MESSAGE.SET_NAME('WSH','WSH_NO_DELS_FOR_ORG');
7807: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7808: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7809: WSH_UTIL_CORE.Add_Message(x_return_status);
7810: l_num_warn := l_num_warn + 1;
7811: END IF;
7812: CLOSE check_unassigned_dels;
7805: IF check_unassigned_dels%FOUND THEN
7806: FND_MESSAGE.SET_NAME('WSH','WSH_NO_DELS_FOR_ORG');
7807: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7808: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7809: WSH_UTIL_CORE.Add_Message(x_return_status);
7810: l_num_warn := l_num_warn + 1;
7811: END IF;
7812: CLOSE check_unassigned_dels;
7813: END IF;
7821: LOOP
7822: FETCH check_detail_for_AP into l_warn_org;
7823: EXIT when check_detail_for_AP%NOTFOUND;
7824: -- set message for org
7825: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_warn_org);
7826: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7827: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7828: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7829: WSH_UTIL_CORE.Add_Message(x_return_status);
7824: -- set message for org
7825: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_warn_org);
7826: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7827: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7828: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7829: WSH_UTIL_CORE.Add_Message(x_return_status);
7830: l_num_warn := l_num_warn + 1;
7831: END LOOP;
7832: IF check_detail_for_AP%isopen THEN
7825: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_warn_org);
7826: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7827: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7828: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7829: WSH_UTIL_CORE.Add_Message(x_return_status);
7830: l_num_warn := l_num_warn + 1;
7831: END LOOP;
7832: IF check_detail_for_AP%isopen THEN
7833: CLOSE check_detail_for_AP;
7845: p_log_level => l_log_level,
7846: p_num_workers => 1, -- Always 1
7847: p_commit => 'N');
7848: IF (x_request_ids(l_index) = 0) THEN
7849: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7850: FND_MESSAGE.SET_NAME('WSH','WSH_PR_LAUNCH_FAILED');
7851: FND_MESSAGE.SET_TOKEN('RELEASE_TYPE',l_type);
7852: FND_MESSAGE.SET_TOKEN('NAME',l_name);
7853: WSH_UTIL_CORE.Add_Message(x_return_status);
7849: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7850: FND_MESSAGE.SET_NAME('WSH','WSH_PR_LAUNCH_FAILED');
7851: FND_MESSAGE.SET_TOKEN('RELEASE_TYPE',l_type);
7852: FND_MESSAGE.SET_TOKEN('NAME',l_name);
7853: WSH_UTIL_CORE.Add_Message(x_return_status);
7854: l_count_fail := l_count_fail + 1;
7855: ELSE
7856: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7857: FND_MESSAGE.SET_NAME('WSH','WSH_PR_LAUNCH_SUCCESS');
7852: FND_MESSAGE.SET_TOKEN('NAME',l_name);
7853: WSH_UTIL_CORE.Add_Message(x_return_status);
7854: l_count_fail := l_count_fail + 1;
7855: ELSE
7856: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7857: FND_MESSAGE.SET_NAME('WSH','WSH_PR_LAUNCH_SUCCESS');
7858: --change for Bug#3379553
7859: -- FND_MESSAGE.SET_TOKEN('RELEASE_TYPE',l_type);
7860: -- FND_MESSAGE.SET_TOKEN('NAME',l_name);
7859: -- FND_MESSAGE.SET_TOKEN('RELEASE_TYPE',l_type);
7860: -- FND_MESSAGE.SET_TOKEN('NAME',l_name);
7861: --End of change for Bug#3379553
7862: FND_MESSAGE.SET_TOKEN('REQUEST_ID', to_char(x_request_ids(l_index)));
7863: WSH_UTIL_CORE.Add_Message(x_return_status);
7864: l_count_succ := l_count_succ + 1;
7865: END IF;
7866:
7867: IF l_trip_id IS NOT NULL THEN
7901: --}
7902: END LOOP;
7903:
7904: IF l_count_fail > 0 THEN
7905: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7906: END IF;
7907:
7908:
7909:
7910: -- Summary message
7911: FND_MESSAGE.SET_NAME('WSH','WSH_PR_LAUNCH_SUMMARY');
7912: FND_MESSAGE.SET_TOKEN('SUCCESS',to_char(l_count_succ));
7913: FND_MESSAGE.SET_TOKEN('FAIL',to_char(l_count_fail));
7914: WSH_UTIL_CORE.Add_Message(x_return_status);
7915:
7916: IF ((l_num_warn > 0) and (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
7917:
7918: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7912: FND_MESSAGE.SET_TOKEN('SUCCESS',to_char(l_count_succ));
7913: FND_MESSAGE.SET_TOKEN('FAIL',to_char(l_count_fail));
7914: WSH_UTIL_CORE.Add_Message(x_return_status);
7915:
7916: IF ((l_num_warn > 0) and (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
7917:
7918: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7919: FND_MESSAGE.SET_NAME('WSH','WSH_QS_LAUNCH_SUMMARY');
7920: WSH_UTIL_CORE.Add_Message(x_return_status);
7914: WSH_UTIL_CORE.Add_Message(x_return_status);
7915:
7916: IF ((l_num_warn > 0) and (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
7917:
7918: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7919: FND_MESSAGE.SET_NAME('WSH','WSH_QS_LAUNCH_SUMMARY');
7920: WSH_UTIL_CORE.Add_Message(x_return_status);
7921:
7922: END IF;
7916: IF ((l_num_warn > 0) and (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
7917:
7918: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7919: FND_MESSAGE.SET_NAME('WSH','WSH_QS_LAUNCH_SUMMARY');
7920: WSH_UTIL_CORE.Add_Message(x_return_status);
7921:
7922: END IF;
7923: --
7924: IF l_debug_on THEN
7941: CLOSE c_is_detail_assigned;
7942: END IF;
7943: --
7944:
7945: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7946: FND_MESSAGE.SET_NAME('WSH','WSH_PR_INVALID_DETAIL');
7947: FND_MESSAGE.SET_TOKEN('detail',to_char(l_detail_id));
7948: WSH_UTIL_CORE.Add_Message(x_return_status);
7949: --
7944:
7945: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7946: FND_MESSAGE.SET_NAME('WSH','WSH_PR_INVALID_DETAIL');
7947: FND_MESSAGE.SET_TOKEN('detail',to_char(l_detail_id));
7948: WSH_UTIL_CORE.Add_Message(x_return_status);
7949: --
7950: -- Debug Statements
7951: --
7952: IF l_debug_on THEN
7962: CLOSE c_is_detail_assigned;
7963: END IF;
7964: --
7965:
7966: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7967: FND_MESSAGE.SET_NAME('WSH','WSH_PR_INVALID_ENTITY');
7968: FND_MESSAGE.SET_TOKEN('entity_type',lower(l_type));
7969: IF l_type = 'Trip' THEN
7970: l_entity_id := l_trip_id;
7973: ELSIF l_type = 'Delivery' THEN
7974: l_entity_id := l_delivery_id;
7975: END IF;
7976: FND_MESSAGE.SET_TOKEN('entity_id',l_entity_id);
7977: WSH_UTIL_CORE.Add_Message(x_return_status);
7978: --
7979: -- Debug Statements
7980: --
7981: IF l_debug_on THEN
7991: CLOSE c_is_detail_assigned;
7992: END IF;
7993: --
7994:
7995: WSH_UTIL_CORE.Default_Handler('WSH_PICK_LIST.Launch_Pick_Release');
7996: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7997: IF check_detail_for_SC%ISOPEN THEN
7998: CLOSE check_detail_for_SC;
7999: END IF;
7992: END IF;
7993: --
7994:
7995: WSH_UTIL_CORE.Default_Handler('WSH_PICK_LIST.Launch_Pick_Release');
7996: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7997: IF check_detail_for_SC%ISOPEN THEN
7998: CLOSE check_detail_for_SC;
7999: END IF;
8000: IF check_detail_for_AP%ISOPEN THEN
8143: l_demand_exists := FALSE;
8144: l_hash_exists := FALSE;
8145: --
8146: -- muom
8147: IF WSH_UTIL_CORE.Get_Line_Fulfillment_Base('OE', p_demand_source_line_id) = 'S' THEN
8148: l_fulfill_base := 'S';
8149: ELSE
8150: l_fulfill_base := 'P';
8151: END IF;
8265: To_uom => p_requested_quantity_uom,
8266: Quantity => p_src_requested_quantity,
8267: Item_id => p_inv_item_id);
8268: ELSE
8269: l_total_requested_quantity := round(p_src_requested_quantity,WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS_INV); --Bugfix 8557457
8270: END IF;
8271: -- muom
8272: l_total_requested_quantity2 := p_src_requested_quantity2;
8273:
8611: FND_MESSAGE.SET_NAME('WSH','WSH_NO_CALENDAR_DATE');
8612: FND_MESSAGE.SET_TOKEN('NAME',p_PickRule);
8613: FND_MESSAGE.SET_TOKEN('CALENDAR',p_CalCode);
8614: FND_MESSAGE.SET_TOKEN('WAREHOUSE',v_org_code);
8615: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8616: RAISE e_return;
8617: EXIT;
8618:
8619: --}