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;
430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Rules',WSH_DEBUG_SV.C_PROC_LEVEL);
431: END IF;
432:
433: WSH_PR_CRITERIA.Init_Rules(x_org_info.pick_seq_rule_id, x_org_info.pick_grouping_rule_id, x_return_status);
434: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
435:
436: IF l_debug_on THEN
437: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION OF RULES SUCESSFUL');
438: END IF;
436: IF l_debug_on THEN
437: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION OF RULES SUCESSFUL');
438: END IF;
439:
440: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
441: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Rules');
442:
443: IF l_debug_on THEN
444: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT_RULES');
437: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION OF RULES SUCESSFUL');
438: END IF;
439:
440: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
441: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Rules');
442:
443: IF l_debug_on THEN
444: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT_RULES');
445: RETURN; -- back to calling API
458: WHEN OTHERS THEN
459: IF get_default_confirm%ISOPEN THEN
460: CLOSE get_default_confirm;
461: END IF;
462: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
463: IF l_debug_on THEN
464: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
465: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
466: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
498: l_request_id NUMBER;
499:
500: BEGIN
501:
502: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
503:
504: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
505: IF l_debug_on IS NULL THEN
506: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
538: IF l_debug_on THEN
539: WSH_DEBUG_SV.logmsg(l_module_name,'Request submission failed for Worker '||i);
540: WSH_DEBUG_SV.pop(l_module_name);
541: END IF;
542: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
543: RETURN;
544: ELSE
545: IF l_debug_on THEN
546: WSH_DEBUG_SV.logmsg(l_module_name,'Request '||l_request_id||' submitted successfully');
562:
563: EXCEPTION
564: --
565: WHEN OTHERS THEN
566: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
567: IF l_debug_on THEN
568: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
569: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
570: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
618: l_debug_on BOOLEAN;
619: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Print_Docs';
620:
621: l_document_info WSH_DOCUMENT_SETS.document_set_tab_type;
622: l_null_ids WSH_UTIL_CORE.Id_Tab_Type;
623: l_return_status VARCHAR2(1);
624: l_message VARCHAR2(2000);
625: l_order_number VARCHAR2(30);
626:
639: WSH_DEBUG_SV.log(l_module_name,'P_DOC_SET_ID',P_DOC_SET_ID);
640: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_NAME',P_BATCH_NAME);
641: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_NUMBER',P_ORDER_NUMBER);
642: END IF;
643: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
644:
645: WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.delete;
646: FOR crec in c_get_printers LOOP
647: WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.COUNT+1) := crec.printer_name;
665: x_error_message => l_message );
666: IF l_debug_on THEN
667: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
668: END IF;
669: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
670: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
671: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Report(s)');
672: WSH_UTIL_CORE.PrintMsg(l_message);
673: x_return_status := l_return_status;
666: IF l_debug_on THEN
667: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
668: END IF;
669: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
670: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
671: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Report(s)');
672: WSH_UTIL_CORE.PrintMsg(l_message);
673: x_return_status := l_return_status;
674: ELSE
667: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
668: END IF;
669: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
670: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
671: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Report(s)');
672: WSH_UTIL_CORE.PrintMsg(l_message);
673: x_return_status := l_return_status;
674: ELSE
675: IF l_debug_on THEN
668: END IF;
669: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
670: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
671: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Report(s)');
672: WSH_UTIL_CORE.PrintMsg(l_message);
673: x_return_status := l_return_status;
674: ELSE
675: IF l_debug_on THEN
676: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP SUCCESSFUL' );
738: x_return_status => l_return_status );
739: IF l_debug_on THEN
740: WSH_DEBUG_SV.logmsg(l_module_name, '* END PRINT DOCUMENT SET ' );
741: END IF;
742: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
743: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
744: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Document Set, when count=0 ');
745: WSH_UTIL_CORE.PrintMsg(l_message);
746: x_return_status := l_return_status;
739: IF l_debug_on THEN
740: WSH_DEBUG_SV.logmsg(l_module_name, '* END PRINT DOCUMENT SET ' );
741: END IF;
742: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
743: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
744: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Document Set, when count=0 ');
745: WSH_UTIL_CORE.PrintMsg(l_message);
746: x_return_status := l_return_status;
747: ELSE
740: WSH_DEBUG_SV.logmsg(l_module_name, '* END PRINT DOCUMENT SET ' );
741: END IF;
742: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
743: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
744: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Document Set, when count=0 ');
745: WSH_UTIL_CORE.PrintMsg(l_message);
746: x_return_status := l_return_status;
747: ELSE
748: IF l_debug_on THEN
741: END IF;
742: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
743: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
744: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Document Set, when count=0 ');
745: WSH_UTIL_CORE.PrintMsg(l_message);
746: x_return_status := l_return_status;
747: ELSE
748: IF l_debug_on THEN
749: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT DOCUMENT SET SUCCESSFUL ' );
760: END IF;
761:
762: EXCEPTION
763: WHEN OTHERS THEN
764: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
765: IF l_debug_on THEN
766: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
767: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
768: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
850: l_count_x_relstatus_details NUMBER;
851: l_temp_trolin_rec INV_MOVE_ORDER_PUB.Trolin_Rec_Type;
852: l_trolin_tbl INV_MOVE_ORDER_PUB.Trolin_Tbl_Type;
853: l_trolin_val_tbl INV_MOVE_ORDER_PUB.Trolin_Val_Tbl_Type;
854: l_rel_delivery_detail_id WSH_UTIL_CORE.Id_Tab_Type;
855: l_dummy_rsv_tbl INV_RESERVATION_GLOBAL.Mtl_Reservation_Tbl_Type;
856:
857: -- WMS
858: l_attr_tab WSH_DELIVERY_AUTOCREATE.Grp_attr_tab_type;
858: l_attr_tab WSH_DELIVERY_AUTOCREATE.Grp_attr_tab_type;
859: l_group_tab WSH_DELIVERY_AUTOCREATE.Grp_attr_tab_type;
860: l_action_rec WSH_DELIVERY_AUTOCREATE.Action_rec_type;
861: l_target_rec WSH_DELIVERY_AUTOCREATE.Grp_attr_rec_type;
862: l_matched_entities WSH_UTIL_CORE.id_tab_type;
863: l_out_rec WSH_DELIVERY_AUTOCREATE.Out_rec_type;
864: l_dd_pup_stop_id NUMBER;
865: x_wms_return_status VARCHAR2(1);
866: x_wms_msg_count NUMBER;
886: l_exception_msg_data VARCHAR2(4000) := NULL;
887: l_dummy_exception_id NUMBER;
888:
889: -- DBI Project
890: l_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
891: l_dbi_rs VARCHAR2(1); -- DBI Project
892: l_dd_txn_id NUMBER; -- DBI Project
893: l_txn_return_status VARCHAR2(1); -- DBI Project
894:
906: K NUMBER ;
907:
908: BEGIN
909:
910: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
911:
912: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
913: IF l_debug_on IS NULL THEN
914: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
980: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DELIVERY_IDS Table Count',g_xdock_delivery_ids.count);
981: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DETAIL_IDS Table Count',g_xdock_detail_ids.count);
982: END IF;
983:
984: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
985: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN--{
986: x_return_status := l_return_status;
987: WSH_UTIL_CORE.PrintMsg('Error occurred in WMS API Planned_Cross_Dock');
988: IF l_debug_on THEN
981: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DETAIL_IDS Table Count',g_xdock_detail_ids.count);
982: END IF;
983:
984: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
985: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN--{
986: x_return_status := l_return_status;
987: WSH_UTIL_CORE.PrintMsg('Error occurred in WMS API Planned_Cross_Dock');
988: IF l_debug_on THEN
989: WSH_DEBUG_SV.pop(l_module_name);
983:
984: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
985: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN--{
986: x_return_status := l_return_status;
987: WSH_UTIL_CORE.PrintMsg('Error occurred in WMS API Planned_Cross_Dock');
988: IF l_debug_on THEN
989: WSH_DEBUG_SV.pop(l_module_name);
990: END IF;
991: -- the parent API handles the errors raised from create_move_order_lines
989: WSH_DEBUG_SV.pop(l_module_name);
990: END IF;
991: -- the parent API handles the errors raised from create_move_order_lines
992: RETURN;
993: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
994: x_return_status := l_return_status;
995: WSH_UTIL_CORE.PrintMsg('Warning returned from WMS API Planned_Cross_Dock');
996: IF g_xdock_detail_ids.count <> wsh_pr_criteria.release_table.count THEN --{
997: --there is atleast one delivery detail which was not crossdocked
991: -- the parent API handles the errors raised from create_move_order_lines
992: RETURN;
993: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
994: x_return_status := l_return_status;
995: WSH_UTIL_CORE.PrintMsg('Warning returned from WMS API Planned_Cross_Dock');
996: IF g_xdock_detail_ids.count <> wsh_pr_criteria.release_table.count THEN --{
997: --there is atleast one delivery detail which was not crossdocked
998: --Need to log exception for that delivery detail
999: --WMS Crossdock API will set the released_status to 'S' for lines which are
1085: IF l_debug_on THEN
1086: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1087: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status',l_return_status);
1088: END IF;
1089: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1090: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1091: x_return_status := l_return_status;
1092: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
1093: IF l_debug_on THEN
1086: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1087: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status',l_return_status);
1088: END IF;
1089: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1090: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1091: x_return_status := l_return_status;
1092: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
1093: IF l_debug_on THEN
1094: WSH_DEBUG_SV.pop(l_module_name);
1088: END IF;
1089: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1090: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1091: x_return_status := l_return_status;
1092: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
1093: IF l_debug_on THEN
1094: WSH_DEBUG_SV.pop(l_module_name);
1095: END IF;
1096: RETURN;
1243: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RETN. STATUS :' || X_WMS_RETURN_STATUS);
1244: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. LN ID :' || X_WMS_STG_LN_ID);
1245: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. SUB :' || X_WMS_SUB_CODE);
1246: END IF;
1247: IF ( x_wms_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1248: -- AND x_wms_sub_code IS NOT NULL) THEN
1249: g_trolin_tbl(l_count).to_subinventory_code := x_wms_sub_code;
1250: g_trolin_tbl(l_count).to_locator_id := x_wms_stg_ln_id;
1251: l_Stops_Ids_Tbl(l_dd_pup_stop_id).Staging_Subinventory := x_wms_sub_code;
1343: x_return_status => l_dbi_rs );
1344: IF l_debug_on THEN
1345: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1346: END IF;
1347: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1348: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1349: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1350: IF l_debug_on THEN
1351: WSH_DEBUG_SV.pop(l_module_name);
1344: IF l_debug_on THEN
1345: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1346: END IF;
1347: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1348: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1349: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1350: IF l_debug_on THEN
1351: WSH_DEBUG_SV.pop(l_module_name);
1352: END IF;
1345: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1346: END IF;
1347: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1348: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1349: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1350: IF l_debug_on THEN
1351: WSH_DEBUG_SV.pop(l_module_name);
1352: END IF;
1353: RETURN;
1389: WSH_DEBUG_SV.log(l_module_name, 'Return status from INV API', l_return_status);
1390: WSH_DEBUG_SV.log(l_module_name, 'l_msg_count', l_msg_count);
1391: WSH_DEBUG_SV.log(l_module_name, 'l_msg_data', l_msg_data);
1392: END IF;
1393: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1394: --{
1395: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Lines');
1396: FOR i in 1..l_msg_count LOOP
1397: l_message := fnd_msg_pub.get(i,'F');
1391: WSH_DEBUG_SV.log(l_module_name, 'l_msg_data', l_msg_data);
1392: END IF;
1393: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1394: --{
1395: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Lines');
1396: FOR i in 1..l_msg_count LOOP
1397: l_message := fnd_msg_pub.get(i,'F');
1398: l_message := replace(l_message,chr(0),' ');
1399: WSH_UTIL_CORE.PrintMsg(l_message);
1395: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Lines');
1396: FOR i in 1..l_msg_count LOOP
1397: l_message := fnd_msg_pub.get(i,'F');
1398: l_message := replace(l_message,chr(0),' ');
1399: WSH_UTIL_CORE.PrintMsg(l_message);
1400: END LOOP;
1401: fnd_msg_pub.delete_msg();
1402: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1403: --{
1398: l_message := replace(l_message,chr(0),' ');
1399: WSH_UTIL_CORE.PrintMsg(l_message);
1400: END LOOP;
1401: fnd_msg_pub.delete_msg();
1402: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1403: --{
1404: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Move_Order_Pub.Create_Move_Order_Lines. Exiting');
1405: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1406: IF l_debug_on THEN
1400: END LOOP;
1401: fnd_msg_pub.delete_msg();
1402: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1403: --{
1404: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Move_Order_Pub.Create_Move_Order_Lines. Exiting');
1405: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1406: IF l_debug_on THEN
1407: WSH_DEBUG_SV.pop(l_module_name);
1408: END IF;
1401: fnd_msg_pub.delete_msg();
1402: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1403: --{
1404: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Move_Order_Pub.Create_Move_Order_Lines. Exiting');
1405: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1406: IF l_debug_on THEN
1407: WSH_DEBUG_SV.pop(l_module_name);
1408: END IF;
1409: RETURN;
1409: RETURN;
1410: --}
1411: ELSE
1412: --{
1413: WSH_UTIL_CORE.PrintMsg('Create Move Order Lines Partially Successful');
1414: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1415: IF l_debug_on THEN
1416: WSH_DEBUG_SV.logmsg(l_module_name, 'Create Move Order Lines Partially Successful');
1417: WSH_DEBUG_SV.logmsg(l_module_name, 'Remove lines that errored out in INV');
1410: --}
1411: ELSE
1412: --{
1413: WSH_UTIL_CORE.PrintMsg('Create Move Order Lines Partially Successful');
1414: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1415: IF l_debug_on THEN
1416: WSH_DEBUG_SV.logmsg(l_module_name, 'Create Move Order Lines Partially Successful');
1417: WSH_DEBUG_SV.logmsg(l_module_name, 'Remove lines that errored out in INV');
1418: END IF;
1418: END IF;
1419: -- Bug 2522935 : Error in MO line creation for Ship Sets causes Released to Warehouse lines
1420: -- Delete all the Lines which had the return status as error from Inventory's Move Order Line API
1421: FOR i in 1..g_trolin_tbl.count LOOP
1422: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1423: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1424: IF l_debug_on THEN
1425: WSH_DEBUG_SV.log(l_module_name, 'Deleting line', g_trolin_tbl(i).line_id);
1426: END IF;
1419: -- Bug 2522935 : Error in MO line creation for Ship Sets causes Released to Warehouse lines
1420: -- Delete all the Lines which had the return status as error from Inventory's Move Order Line API
1421: FOR i in 1..g_trolin_tbl.count LOOP
1422: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1423: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1424: IF l_debug_on THEN
1425: WSH_DEBUG_SV.log(l_module_name, 'Deleting line', g_trolin_tbl(i).line_id);
1426: END IF;
1427: g_trolin_tbl.delete(i);
1429: g_del_detail_ids.delete(i);
1430: g_trolin_delivery_ids.delete(i);
1431: END IF;
1432: END LOOP;
1433: WSH_UTIL_CORE.PrintMsg('After deleting lines, Trolin Table count '||g_del_detail_ids.count);
1434: IF l_debug_on THEN
1435: WSH_DEBUG_SV.log(l_module_name, 'g_del_detail_ids.count', g_del_detail_ids.count);
1436: END IF;
1437: --}
1436: END IF;
1437: --}
1438: END IF;
1439: --}
1440: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1441: --{
1442: G_ONLINE_PICK_RELEASE_PHASE := 'MOVE_ORDER_LINES';
1443: IF l_debug_on THEN
1444: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED MO LINES SUCESSFULLY');
1472: IF l_debug_on THEN
1473: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1474: WSH_DEBUG_SV.log(l_module_name,'Inv_Express_Pick_Pub.Pick_Release l_return_status',l_return_status);
1475: END IF;
1476: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1477: --{
1478: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Express_Pick_Pub.Pick_Release');
1479: FOR i in 1..l_msg_count LOOP
1480: l_message := fnd_msg_pub.get(i,'F');
1474: WSH_DEBUG_SV.log(l_module_name,'Inv_Express_Pick_Pub.Pick_Release l_return_status',l_return_status);
1475: END IF;
1476: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1477: --{
1478: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Express_Pick_Pub.Pick_Release');
1479: FOR i in 1..l_msg_count LOOP
1480: l_message := fnd_msg_pub.get(i,'F');
1481: l_message := replace(l_message,chr(0),' ');
1482: WSH_UTIL_CORE.PrintMsg(l_message);
1478: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Express_Pick_Pub.Pick_Release');
1479: FOR i in 1..l_msg_count LOOP
1480: l_message := fnd_msg_pub.get(i,'F');
1481: l_message := replace(l_message,chr(0),' ');
1482: WSH_UTIL_CORE.PrintMsg(l_message);
1483: IF (i = 1) THEN
1484: l_message1 := l_message;
1485: END IF;
1486: END LOOP;
1484: l_message1 := l_message;
1485: END IF;
1486: END LOOP;
1487: fnd_msg_pub.delete_msg();
1488: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1489: --{
1490: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Express_Pick_Pub.Pick_Release. Exiting');
1491: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1492: IF l_debug_on THEN
1486: END LOOP;
1487: fnd_msg_pub.delete_msg();
1488: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1489: --{
1490: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Express_Pick_Pub.Pick_Release. Exiting');
1491: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1492: IF l_debug_on THEN
1493: WSH_DEBUG_SV.pop(l_module_name);
1494: END IF;
1487: fnd_msg_pub.delete_msg();
1488: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1489: --{
1490: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Express_Pick_Pub.Pick_Release. Exiting');
1491: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1492: IF l_debug_on THEN
1493: WSH_DEBUG_SV.pop(l_module_name);
1494: END IF;
1495: RETURN;
1496: --}
1497: ELSE
1498: --{
1499: ROLLBACK TO BEF_MOVE_ORDER_LINE_CREATE;
1500: WSH_UTIL_CORE.PrintMsg('Express Pick Release Returned Expected Error');
1501: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1502: l_request_id := fnd_global.conc_request_id;
1503: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
1504: --{
1497: ELSE
1498: --{
1499: ROLLBACK TO BEF_MOVE_ORDER_LINE_CREATE;
1500: WSH_UTIL_CORE.PrintMsg('Express Pick Release Returned Expected Error');
1501: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1502: l_request_id := fnd_global.conc_request_id;
1503: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
1504: --{
1505: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count LOOP
1503: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
1504: --{
1505: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count LOOP
1506: IF l_debug_on THEN
1507: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1508: END IF;
1509: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1510: WSH_PR_CRITERIA.release_table(i).organization_id);
1511: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
1505: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count LOOP
1506: IF l_debug_on THEN
1507: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1508: END IF;
1509: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1510: WSH_PR_CRITERIA.release_table(i).organization_id);
1511: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
1512: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
1513: FND_MESSAGE.SET_TOKEN('ORDER',WSH_PR_CRITERIA.release_table(i).source_header_number);
1545: END IF;
1546: --}
1547: END IF;
1548:
1549: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1550: --{
1551: /* INV will always pass 'delivery_detail_id' in the record structure and this will be in the same
1552: order as passed by shipping.
1553: 1. If a dd is completely picked and the dd is Staged using only 1 reservation
1593: --{
1594: --Bug 5645615: Since we are deleting lines with error status, get the next index before we might delete the line.
1595: j := g_trolin_tbl.NEXT(i);
1596: BEGIN
1597: IF (g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1598: IF l_debug_on THEN
1599: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE WITH TROLIN.LINE_ID ' || G_TROLIN_TBL(I).LINE_ID );
1600: END IF;
1601: UPDATE wsh_delivery_details
1613: WSH_DD_TXNS_PVT.create_dd_txn_from_dd (
1614: p_delivery_detail_id => g_del_detail_ids(i),
1615: x_dd_txn_id => l_dd_txn_id,
1616: x_return_status =>l_txn_return_status);
1617: IF (l_txn_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1618: x_return_status := l_txn_return_status;
1619: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DD_TXNS_PVT.create_dd_txn_from_dd');
1620: IF l_debug_on THEN
1621: WSH_DEBUG_SV.pop(l_module_name);
1615: x_dd_txn_id => l_dd_txn_id,
1616: x_return_status =>l_txn_return_status);
1617: IF (l_txn_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1618: x_return_status := l_txn_return_status;
1619: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DD_TXNS_PVT.create_dd_txn_from_dd');
1620: IF l_debug_on THEN
1621: WSH_DEBUG_SV.pop(l_module_name);
1622: END IF;
1623: RETURN;
1656: CLOSE c_get_picked_lines_count;
1657: --Done Raise Event : Pick To Pod Workflow
1658:
1659: ELSE
1660: WSH_UTIL_CORE.PrintMsg('Could not Create Move Order Line for Delivery Detail '||g_del_detail_ids(i));
1661: -- Bug 5645615: Delete all the lines with return status error.
1662: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1663: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1664: IF l_debug_on THEN
1658:
1659: ELSE
1660: WSH_UTIL_CORE.PrintMsg('Could not Create Move Order Line for Delivery Detail '||g_del_detail_ids(i));
1661: -- Bug 5645615: Delete all the lines with return status error.
1662: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1663: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1664: IF l_debug_on THEN
1665: WSH_DEBUG_SV.log(l_module_name, 'Deleting trolin line', g_trolin_tbl(i).line_id);
1666: WSH_DEBUG_SV.log(l_module_name, 'Deleting detail line', g_del_detail_ids(i));
1659: ELSE
1660: WSH_UTIL_CORE.PrintMsg('Could not Create Move Order Line for Delivery Detail '||g_del_detail_ids(i));
1661: -- Bug 5645615: Delete all the lines with return status error.
1662: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1663: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1664: IF l_debug_on THEN
1665: WSH_DEBUG_SV.log(l_module_name, 'Deleting trolin line', g_trolin_tbl(i).line_id);
1666: WSH_DEBUG_SV.log(l_module_name, 'Deleting detail line', g_del_detail_ids(i));
1667: END IF;
1673:
1674: END IF;
1675: EXCEPTION
1676: WHEN no_data_found THEN
1677: WSH_UTIL_CORE.PrintMsg('Delivery detail line not found: '|| WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1678: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1679: IF l_debug_on THEN
1680: WSH_DEBUG_SV.pop(l_module_name);
1681: END IF;
1674: END IF;
1675: EXCEPTION
1676: WHEN no_data_found THEN
1677: WSH_UTIL_CORE.PrintMsg('Delivery detail line not found: '|| WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1678: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1679: IF l_debug_on THEN
1680: WSH_DEBUG_SV.pop(l_module_name);
1681: END IF;
1682: RETURN;
1680: WSH_DEBUG_SV.pop(l_module_name);
1681: END IF;
1682: RETURN;
1683: WHEN others THEN
1684: WSH_UTIL_CORE.PrintMsg('Cannot update delivery detail: ' || WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1685: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1686: IF l_debug_on THEN
1687: WSH_DEBUG_SV.pop(l_module_name);
1688: END IF;
1681: END IF;
1682: RETURN;
1683: WHEN others THEN
1684: WSH_UTIL_CORE.PrintMsg('Cannot update delivery detail: ' || WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1685: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1686: IF l_debug_on THEN
1687: WSH_DEBUG_SV.pop(l_module_name);
1688: END IF;
1689: RETURN;
1706: x_return_status => l_dbi_rs );
1707: IF l_debug_on THEN
1708: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1709: END IF;
1710: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1711: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1712: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1713: IF l_debug_on THEN
1714: WSH_DEBUG_SV.pop(l_module_name);
1707: IF l_debug_on THEN
1708: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1709: END IF;
1710: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1711: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1712: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1713: IF l_debug_on THEN
1714: WSH_DEBUG_SV.pop(l_module_name);
1715: END IF;
1708: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1709: END IF;
1710: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1711: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1712: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1713: IF l_debug_on THEN
1714: WSH_DEBUG_SV.pop(l_module_name);
1715: END IF;
1716: RETURN;
1726: WHEN OTHERS THEN
1727: IF get_dd_pup_trip_stop%ISOPEN THEN
1728: CLOSE get_dd_pup_trip_stop;
1729: END IF;
1730: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1731: IF l_debug_on THEN
1732: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
1733: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1753: -- End of comments
1754: PROCEDURE Autocreate_Deliveries(
1755: p_append_flag IN VARCHAR2,
1756: p_use_header_flag IN VARCHAR2,
1757: p_del_details_tbl IN WSH_UTIL_CORE.Id_Tab_Type,
1758: x_return_status OUT NOCOPY VARCHAR2)
1759: IS
1760:
1761: CURSOR del_cur(c_dlvy_id NUMBER) IS
1762: SELECT ship_method_code, intmed_ship_to_location_id
1763: FROM wsh_new_deliveries
1764: WHERE delivery_id = c_dlvy_id;
1765:
1766: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
1767: l_grouping_tbl WSH_UTIL_CORE.Id_Tab_Type;
1768: l_delivery_ids_tbl WSH_UTIL_CORE.Id_Tab_Type;
1769: i NUMBER;
1770: j NUMBER;
1763: FROM wsh_new_deliveries
1764: WHERE delivery_id = c_dlvy_id;
1765:
1766: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
1767: l_grouping_tbl WSH_UTIL_CORE.Id_Tab_Type;
1768: l_delivery_ids_tbl WSH_UTIL_CORE.Id_Tab_Type;
1769: i NUMBER;
1770: j NUMBER;
1771: l_msg_count NUMBER;
1764: WHERE delivery_id = c_dlvy_id;
1765:
1766: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
1767: l_grouping_tbl WSH_UTIL_CORE.Id_Tab_Type;
1768: l_delivery_ids_tbl WSH_UTIL_CORE.Id_Tab_Type;
1769: i NUMBER;
1770: j NUMBER;
1771: l_msg_count NUMBER;
1772: l_msg_data VARCHAR2(2000);
1778: l_cc_line_groups WSH_FTE_COMP_CONSTRAINT_PKG.line_group_tab_type;
1779: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
1780: b_cc_linefailed BOOLEAN;
1781: b_cc_groupidexists BOOLEAN;
1782: l_id_tab_temp WSH_UTIL_CORE.Id_Tab_Type;
1783: l_del_details_tbl_temp WSH_UTIL_CORE.Id_Tab_Type;
1784: l_cc_count_success NUMBER;
1785: l_cc_count_group_ids NUMBER;
1786: l_cc_count_rec NUMBER;
1779: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
1780: b_cc_linefailed BOOLEAN;
1781: b_cc_groupidexists BOOLEAN;
1782: l_id_tab_temp WSH_UTIL_CORE.Id_Tab_Type;
1783: l_del_details_tbl_temp WSH_UTIL_CORE.Id_Tab_Type;
1784: l_cc_count_success NUMBER;
1785: l_cc_count_group_ids NUMBER;
1786: l_cc_count_rec NUMBER;
1787: l_cc_group_ids WSH_UTIL_CORE.Id_Tab_Type;
1783: l_del_details_tbl_temp WSH_UTIL_CORE.Id_Tab_Type;
1784: l_cc_count_success NUMBER;
1785: l_cc_count_group_ids NUMBER;
1786: l_cc_count_rec NUMBER;
1787: l_cc_group_ids WSH_UTIL_CORE.Id_Tab_Type;
1788: l_cc_upd_dlvy_intmed_ship_to VARCHAR2(1);
1789: l_cc_upd_dlvy_ship_method VARCHAR2(1);
1790: l_cc_dlvy_intmed_ship_to NUMBER;
1791: l_cc_dlvy_ship_method VARCHAR2(30);
1790: l_cc_dlvy_intmed_ship_to NUMBER;
1791: l_cc_dlvy_ship_method VARCHAR2(30);
1792: l_num_errors NUMBER;
1793: l_num_warnings NUMBER;
1794: l_cc_del_rows WSH_UTIL_CORE.Id_Tab_Type;
1795: l_cc_grouping_rows WSH_UTIL_CORE.Id_Tab_Type;
1796: l_cc_return_status VARCHAR2(1);
1797: l_cc_count_del_rows NUMBER;
1798: l_cc_count_grouping_rows NUMBER;
1791: l_cc_dlvy_ship_method VARCHAR2(30);
1792: l_num_errors NUMBER;
1793: l_num_warnings NUMBER;
1794: l_cc_del_rows WSH_UTIL_CORE.Id_Tab_Type;
1795: l_cc_grouping_rows WSH_UTIL_CORE.Id_Tab_Type;
1796: l_cc_return_status VARCHAR2(1);
1797: l_cc_count_del_rows NUMBER;
1798: l_cc_count_grouping_rows NUMBER;
1799: --dummy tables for calling validate_constraint_main
1800: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
1801: l_cc_det_attr_tab WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type;
1802: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
1803: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
1804: l_cc_in_ids WSH_UTIL_CORE.Id_Tab_Type;
1805: l_cc_fail_ids WSH_UTIL_CORE.Id_Tab_Type;
1806: -- deliveryMerge
1807: l_appended_det_tbl WSH_DELIVERY_DETAILS_UTILITIES.delivery_assignment_rec_tbl;
1808: l_unappended_det_tbl WSH_UTIL_CORE.Id_Tab_Type;
1801: l_cc_det_attr_tab WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type;
1802: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
1803: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
1804: l_cc_in_ids WSH_UTIL_CORE.Id_Tab_Type;
1805: l_cc_fail_ids WSH_UTIL_CORE.Id_Tab_Type;
1806: -- deliveryMerge
1807: l_appended_det_tbl WSH_DELIVERY_DETAILS_UTILITIES.delivery_assignment_rec_tbl;
1808: l_unappended_det_tbl WSH_UTIL_CORE.Id_Tab_Type;
1809: l_default_ship_confirm_rule_id NUMBER := NULL;
1804: l_cc_in_ids WSH_UTIL_CORE.Id_Tab_Type;
1805: l_cc_fail_ids WSH_UTIL_CORE.Id_Tab_Type;
1806: -- deliveryMerge
1807: l_appended_det_tbl WSH_DELIVERY_DETAILS_UTILITIES.delivery_assignment_rec_tbl;
1808: l_unappended_det_tbl WSH_UTIL_CORE.Id_Tab_Type;
1809: l_default_ship_confirm_rule_id NUMBER := NULL;
1810: l_appended_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1811: l_tmp_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1812: --
1806: -- deliveryMerge
1807: l_appended_det_tbl WSH_DELIVERY_DETAILS_UTILITIES.delivery_assignment_rec_tbl;
1808: l_unappended_det_tbl WSH_UTIL_CORE.Id_Tab_Type;
1809: l_default_ship_confirm_rule_id NUMBER := NULL;
1810: l_appended_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1811: l_tmp_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1812: --
1813: l_debug_on BOOLEAN;
1814: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'AUTOCREATE_DELIVERIES';
1807: l_appended_det_tbl WSH_DELIVERY_DETAILS_UTILITIES.delivery_assignment_rec_tbl;
1808: l_unappended_det_tbl WSH_UTIL_CORE.Id_Tab_Type;
1809: l_default_ship_confirm_rule_id NUMBER := NULL;
1810: l_appended_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1811: l_tmp_del_tbl WSH_UTIL_CORE.Id_Tab_Type;
1812: --
1813: l_debug_on BOOLEAN;
1814: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'AUTOCREATE_DELIVERIES';
1815: --
1828: WSH_DEBUG_SV.log(l_module_name,'P_USE_HEADER_FLAG',P_USE_HEADER_FLAG);
1829: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAILS_TBL.COUNT',P_DEL_DETAILS_TBL.COUNT);
1830: END IF;
1831:
1832: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1833:
1834: l_del_details_tbl := p_del_details_tbl;
1835: l_appended_del_tbl.delete;
1836:
1837: -- Check whether we have eligible lines to autocreate
1838: IF (l_del_details_tbl.count > 0) THEN
1839: --{
1840: --Compatibility Changes
1841: IF wsh_util_core.fte_is_installed = 'Y' THEN
1842: --{
1843: l_cc_line_groups.delete;
1844: l_cc_group_info.delete;
1845: l_cc_failed_records.delete;
1879: ,l_cc_line_groups.COUNT);
1880: WSH_DEBUG_SV.log(l_module_name,'group_info count After Calling validate_constraint_main'
1881: ,l_cc_group_info.COUNT);
1882: END IF;
1883: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1884: --{
1885: x_return_status := l_return_status;
1886: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main');
1887: IF l_debug_on THEN
1882: END IF;
1883: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1884: --{
1885: x_return_status := l_return_status;
1886: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main');
1887: IF l_debug_on THEN
1888: WSH_DEBUG_SV.pop(l_module_name);
1889: END IF;
1890: RETURN;
1890: RETURN;
1891: --}
1892: END IF;
1893:
1894: IF l_cc_line_groups.COUNT > 0 AND l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1895: --{
1896: --set return_status as warning
1897: IF l_cc_failed_records.COUNT <> l_del_details_tbl.COUNT THEN
1898: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1894: IF l_cc_line_groups.COUNT > 0 AND l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1895: --{
1896: --set return_status as warning
1897: IF l_cc_failed_records.COUNT <> l_del_details_tbl.COUNT THEN
1898: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1899: END IF;
1900:
1901: --1. get the group ids by which the constraints API has grouped the lines
1902: l_cc_count_group_ids := 1;
1947: IF l_debug_on THEN
1948: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1949: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
1950: END IF;
1951: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
1952: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1953: x_return_status := l_return_status;
1954: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
1955: IF l_debug_on THEN
1948: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1949: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
1950: END IF;
1951: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
1952: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1953: x_return_status := l_return_status;
1954: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
1955: IF l_debug_on THEN
1956: WSH_DEBUG_SV.pop(l_module_name);
1950: END IF;
1951: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
1952: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1953: x_return_status := l_return_status;
1954: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
1955: IF l_debug_on THEN
1956: WSH_DEBUG_SV.pop(l_module_name);
1957: END IF;
1958: RETURN;
2066: END IF;
2067: END IF;
2068:
2069: IF (l_cc_return_status IS NOT NULL AND l_cc_return_status IN
2070: (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2071: l_return_status := l_cc_return_status;
2072: ELSIF (l_cc_return_status IS NOT NULL AND l_cc_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2073: AND l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2074: l_return_status := l_cc_return_status;
2068:
2069: IF (l_cc_return_status IS NOT NULL AND l_cc_return_status IN
2070: (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2071: l_return_status := l_cc_return_status;
2072: ELSIF (l_cc_return_status IS NOT NULL AND l_cc_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2073: AND l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2074: l_return_status := l_cc_return_status;
2075: ELSE
2076: l_cc_return_status := l_return_status;
2069: IF (l_cc_return_status IS NOT NULL AND l_cc_return_status IN
2070: (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2071: l_return_status := l_cc_return_status;
2072: ELSIF (l_cc_return_status IS NOT NULL AND l_cc_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2073: AND l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2074: l_return_status := l_cc_return_status;
2075: ELSE
2076: l_cc_return_status := l_return_status;
2077: END IF;
2114: IF l_debug_on THEN
2115: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2116: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is',l_return_status );
2117: END IF;
2118: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2119: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2120: x_return_status := l_return_status;
2121: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2122: IF l_debug_on THEN
2115: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2116: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is',l_return_status );
2117: END IF;
2118: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2119: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2120: x_return_status := l_return_status;
2121: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2122: IF l_debug_on THEN
2123: WSH_DEBUG_SV.pop(l_module_name);
2117: END IF;
2118: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2119: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2120: x_return_status := l_return_status;
2121: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2122: IF l_debug_on THEN
2123: WSH_DEBUG_SV.pop(l_module_name);
2124: END IF;
2125: RETURN;
2227: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2228: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
2229: END IF;
2230:
2231: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
2232: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2233: --{
2234: x_return_status := l_return_status;
2235: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2228: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
2229: END IF;
2230:
2231: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
2232: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2233: --{
2234: x_return_status := l_return_status;
2235: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2236: IF l_debug_on THEN
2231: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
2232: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2233: --{
2234: x_return_status := l_return_status;
2235: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2236: IF l_debug_on THEN
2237: WSH_DEBUG_SV.pop(l_module_name);
2238: END IF;
2239: RETURN;
2263: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_return_status',l_return_status);
2264: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2265: END IF;
2266:
2267: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2268: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2269: x_return_status := l_return_status;
2270: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries');
2271: IF l_debug_on THEN
2264: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2265: END IF;
2266:
2267: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2268: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2269: x_return_status := l_return_status;
2270: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries');
2271: IF l_debug_on THEN
2272: WSH_DEBUG_SV.pop(l_module_name);
2266:
2267: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2268: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2269: x_return_status := l_return_status;
2270: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries');
2271: IF l_debug_on THEN
2272: WSH_DEBUG_SV.pop(l_module_name);
2273: END IF;
2274: RETURN;
2279: END IF;
2280:
2281: --}
2282: ELSE
2283: WSH_UTIL_CORE.printMsg('No eligible lines to autocreate deliveries');
2284: END IF;
2285:
2286: IF l_debug_on THEN
2287: WSH_DEBUG_SV.pop(l_module_name);
2288: END IF;
2289:
2290: EXCEPTION
2291: WHEN OTHERS THEN
2292: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2293: IF l_debug_on THEN
2294: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
2295: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2296: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2351: --
2352: l_ship_confirm_rule_rec WSH_BATCH_PROCESS.G_GET_SHIP_CONFIRM_RULE%ROWTYPE;
2353: l_ship_confirm_rule_id NUMBER;
2354: l_batch_creation_date DATE;
2355: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
2356: l_curr_count NUMBER;
2357: l_return_status VARCHAR2(1);
2358: l_completion_status VARCHAR2(30);
2359: e_Return EXCEPTION;
2412: G_CONC_REQ := FND_API.G_TRUE;
2413: END IF;
2414:
2415: IF G_CONC_REQ = FND_API.G_TRUE AND p_worker_id IS NOT NULL THEN
2416: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
2417: IF p_log_level IS NOT NULL THEN -- log level fix
2418: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
2419: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
2420: END IF;
2414:
2415: IF G_CONC_REQ = FND_API.G_TRUE AND p_worker_id IS NOT NULL THEN
2416: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
2417: IF p_log_level IS NOT NULL THEN -- log level fix
2418: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
2419: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
2420: END IF;
2421: END IF;
2422:
2415: IF G_CONC_REQ = FND_API.G_TRUE AND p_worker_id IS NOT NULL THEN
2416: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
2417: IF p_log_level IS NOT NULL THEN -- log level fix
2418: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
2419: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
2420: END IF;
2421: END IF;
2422:
2423: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2460: IF l_debug_on THEN
2461: WSH_DEBUG_SV.log(l_module_name,'INIT_PICK_RELEASE l_return_status',l_return_status);
2462: END IF;
2463:
2464: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2465: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2466: WSH_UTIL_CORE.PrintMsg('Error occurred in Init_Pick_Release');
2467: RAISE e_return;
2468: END IF;
2461: WSH_DEBUG_SV.log(l_module_name,'INIT_PICK_RELEASE l_return_status',l_return_status);
2462: END IF;
2463:
2464: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2465: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2466: WSH_UTIL_CORE.PrintMsg('Error occurred in Init_Pick_Release');
2467: RAISE e_return;
2468: END IF;
2469: END IF; --}
2462: END IF;
2463:
2464: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2465: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2466: WSH_UTIL_CORE.PrintMsg('Error occurred in Init_Pick_Release');
2467: RAISE e_return;
2468: END IF;
2469: END IF; --}
2470:
2535: END IF;
2536: Get_Org_Params( p_organization_id => batch_rec.organization_id,
2537: x_org_info => l_org_info,
2538: x_return_status => l_return_status);
2539: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2540: WSH_UTIL_CORE.PrintMsg('Error occurred in Get_Org_Params');
2541: RAISE e_return;
2542: END IF;
2543: --}
2536: Get_Org_Params( p_organization_id => batch_rec.organization_id,
2537: x_org_info => l_org_info,
2538: x_return_status => l_return_status);
2539: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2540: WSH_UTIL_CORE.PrintMsg('Error occurred in Get_Org_Params');
2541: RAISE e_return;
2542: END IF;
2543: --}
2544:
2551: p_mode => p_mode,
2552: p_batch_id => p_batch_id,
2553: p_organization_id => batch_rec.organization_id,
2554: x_api_status => l_return_status );
2555: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2556: WSH_UTIL_CORE.PrintMsg('Error occurred in Get_Worker_Records');
2557: RAISE e_return;
2558: END IF;
2559: --}
2552: p_batch_id => p_batch_id,
2553: p_organization_id => batch_rec.organization_id,
2554: x_api_status => l_return_status );
2555: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2556: WSH_UTIL_CORE.PrintMsg('Error occurred in Get_Worker_Records');
2557: RAISE e_return;
2558: END IF;
2559: --}
2560:
2577: IF l_debug_on THEN
2578: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2579: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2580: END IF;
2581: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2582: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2583: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2584: RAISE e_return;
2585: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2578: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2579: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2580: END IF;
2581: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2582: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2583: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2584: RAISE e_return;
2585: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2586: G_ONLINE_PICK_RELEASE_SKIP := 'Y';
2579: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2580: END IF;
2581: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2582: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2583: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2584: RAISE e_return;
2585: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2586: G_ONLINE_PICK_RELEASE_SKIP := 'Y';
2587: l_completion_status := 'WARNING';
2581: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2582: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2583: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2584: RAISE e_return;
2585: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2586: G_ONLINE_PICK_RELEASE_SKIP := 'Y';
2587: l_completion_status := 'WARNING';
2588: IF l_debug_on THEN
2589: WSH_DEBUG_SV.log(l_Module_name, 'WSH_PR_CRITERIA.Get_Lines returned with warning');
2627: IF l_debug_on THEN
2628: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2629: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Create_Move_Order_Lines l_return_status' ,l_return_status);
2630: END IF;
2631: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2632: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2633: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Create_Move_Order_Lines');
2634: RAISE e_return;
2635: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2628: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2629: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Create_Move_Order_Lines l_return_status' ,l_return_status);
2630: END IF;
2631: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2632: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2633: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Create_Move_Order_Lines');
2634: RAISE e_return;
2635: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2636: IF l_completion_status = 'NORMAL' THEN
2629: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Create_Move_Order_Lines l_return_status' ,l_return_status);
2630: END IF;
2631: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2632: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2633: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Create_Move_Order_Lines');
2634: RAISE e_return;
2635: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2636: IF l_completion_status = 'NORMAL' THEN
2637: l_completion_status := 'WARNING';
2631: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2632: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2633: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Create_Move_Order_Lines');
2634: RAISE e_return;
2635: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2636: IF l_completion_status = 'NORMAL' THEN
2637: l_completion_status := 'WARNING';
2638: END IF;
2639: IF l_debug_on THEN
2744: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2745: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
2746: ,l_return_status);
2747: END IF;
2748: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2749: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2750: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
2751: RAISE e_return;
2752: END IF;
2745: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
2746: ,l_return_status);
2747: END IF;
2748: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2749: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2750: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
2751: RAISE e_return;
2752: END IF;
2753: END IF;
2746: ,l_return_status);
2747: END IF;
2748: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2749: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2750: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
2751: RAISE e_return;
2752: END IF;
2753: END IF;
2754: --}
2756: --}
2757:
2758: -- Call FTE Load Tender and Issue Commit for Concurrent Express Pick Release
2759: IF l_org_info.express_pick_flag = 'Y' AND ( G_CONC_REQ = FND_API.G_TRUE ) THEN --{
2760: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2761: IF l_debug_on THEN
2762: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2763: END IF;
2764: WSH_UTIL_CORE.Process_stops_for_load_tender (
2758: -- Call FTE Load Tender and Issue Commit for Concurrent Express Pick Release
2759: IF l_org_info.express_pick_flag = 'Y' AND ( G_CONC_REQ = FND_API.G_TRUE ) THEN --{
2760: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2761: IF l_debug_on THEN
2762: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2763: END IF;
2764: WSH_UTIL_CORE.Process_stops_for_load_tender (
2765: p_reset_flags => FALSE,
2766: x_return_status => l_return_status );
2760: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2761: IF l_debug_on THEN
2762: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2763: END IF;
2764: WSH_UTIL_CORE.Process_stops_for_load_tender (
2765: p_reset_flags => FALSE,
2766: x_return_status => l_return_status );
2767: IF l_debug_on THEN
2768: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2766: x_return_status => l_return_status );
2767: IF l_debug_on THEN
2768: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2769: END IF;
2770: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2771: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2772: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2773: RAISE e_return;
2774: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2767: IF l_debug_on THEN
2768: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2769: END IF;
2770: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2771: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2772: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2773: RAISE e_return;
2774: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2775: IF l_completion_status = 'NORMAL' THEN
2768: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2769: END IF;
2770: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2771: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2772: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2773: RAISE e_return;
2774: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2775: IF l_completion_status = 'NORMAL' THEN
2776: l_completion_status := 'WARNING';
2770: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2771: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2772: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2773: RAISE e_return;
2774: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2775: IF l_completion_status = 'NORMAL' THEN
2776: l_completion_status := 'WARNING';
2777: END IF;
2778: END IF;
2865: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2866: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Release_Pub.Pick_Release l_return_status',
2867: l_return_status);
2868: END IF;
2869: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2870: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2871: --{
2872: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Pick_Release_Pub.Pick_Release');
2873: FOR i in 1..l_msg_count LOOP
2866: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Release_Pub.Pick_Release l_return_status',
2867: l_return_status);
2868: END IF;
2869: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2870: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2871: --{
2872: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Pick_Release_Pub.Pick_Release');
2873: FOR i in 1..l_msg_count LOOP
2874: l_message := fnd_msg_pub.get(i,'F');
2868: END IF;
2869: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2870: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2871: --{
2872: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Pick_Release_Pub.Pick_Release');
2873: FOR i in 1..l_msg_count LOOP
2874: l_message := fnd_msg_pub.get(i,'F');
2875: l_message := replace(l_message,chr(0),' ');
2876: WSH_UTIL_CORE.PrintMsg(l_message);
2872: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Pick_Release_Pub.Pick_Release');
2873: FOR i in 1..l_msg_count LOOP
2874: l_message := fnd_msg_pub.get(i,'F');
2875: l_message := replace(l_message,chr(0),' ');
2876: WSH_UTIL_CORE.PrintMsg(l_message);
2877: IF (i = 1) THEN
2878: l_message1 := l_message;
2879: END IF;
2880: END LOOP;
2879: END IF;
2880: END LOOP;
2881: l_completion_status := 'WARNING';
2882: fnd_msg_pub.delete_msg();
2883: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2884: WSH_UTIL_CORE.PrintMsg('Unexpected error from INV_Pick_Release_Pub.Pick_Release. Exiting');
2885: RAISE e_return;
2886: ELSE
2887: --{
2880: END LOOP;
2881: l_completion_status := 'WARNING';
2882: fnd_msg_pub.delete_msg();
2883: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2884: WSH_UTIL_CORE.PrintMsg('Unexpected error from INV_Pick_Release_Pub.Pick_Release. Exiting');
2885: RAISE e_return;
2886: ELSE
2887: --{
2888: ROLLBACK TO BEF_MOVE_ORDER_LINE_CREATE;
2885: RAISE e_return;
2886: ELSE
2887: --{
2888: ROLLBACK TO BEF_MOVE_ORDER_LINE_CREATE;
2889: WSH_UTIL_CORE.PrintMsg('Auto Detailing Returned Expected Error');
2890: l_request_id := fnd_global.conc_request_id;
2891: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
2892: --{
2893: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count
2892: --{
2893: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count
2894: LOOP
2895: IF l_debug_on THEN
2896: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2897: END IF;
2898: l_item_name := WSH_UTIL_CORE.Get_Item_Name(
2899: WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2900: WSH_PR_CRITERIA.release_table(i).organization_id);
2894: LOOP
2895: IF l_debug_on THEN
2896: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2897: END IF;
2898: l_item_name := WSH_UTIL_CORE.Get_Item_Name(
2899: WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2900: WSH_PR_CRITERIA.release_table(i).organization_id);
2901: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
2902: FND_MESSAGE.SET_TOKEN('ITEM',l_item_name);
2951: AND (g_trolin_tbl.count > 0) THEN
2952: --{
2953: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
2954: --{
2955: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2956: IF l_debug_on THEN
2957: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2958: END IF;
2959: WSH_UTIL_CORE.Process_stops_for_load_tender(
2953: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
2954: --{
2955: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2956: IF l_debug_on THEN
2957: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2958: END IF;
2959: WSH_UTIL_CORE.Process_stops_for_load_tender(
2960: p_reset_flags => FALSE,
2961: x_return_status => l_tmp_rel_status );
2955: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2956: IF l_debug_on THEN
2957: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2958: END IF;
2959: WSH_UTIL_CORE.Process_stops_for_load_tender(
2960: p_reset_flags => FALSE,
2961: x_return_status => l_tmp_rel_status );
2962: IF l_debug_on THEN
2963: WSH_DEBUG_SV.log(l_module_name,'l_tmp_rel_status',l_tmp_rel_status);
2961: x_return_status => l_tmp_rel_status );
2962: IF l_debug_on THEN
2963: WSH_DEBUG_SV.log(l_module_name,'l_tmp_rel_status',l_tmp_rel_status);
2964: END IF;
2965: IF (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2966: OR (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2967: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2968: RAISE e_return;
2969: ELSIF l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2962: IF l_debug_on THEN
2963: WSH_DEBUG_SV.log(l_module_name,'l_tmp_rel_status',l_tmp_rel_status);
2964: END IF;
2965: IF (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2966: OR (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2967: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2968: RAISE e_return;
2969: ELSIF l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2970: IF l_completion_status = 'NORMAL' THEN
2963: WSH_DEBUG_SV.log(l_module_name,'l_tmp_rel_status',l_tmp_rel_status);
2964: END IF;
2965: IF (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2966: OR (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2967: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2968: RAISE e_return;
2969: ELSIF l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2970: IF l_completion_status = 'NORMAL' THEN
2971: l_completion_status := 'WARNING';
2965: IF (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2966: OR (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2967: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2968: RAISE e_return;
2969: ELSIF l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2970: IF l_completion_status = 'NORMAL' THEN
2971: l_completion_status := 'WARNING';
2972: END IF;
2973: END IF;
2974: END IF;
2975: --}
2976: END IF;
2977:
2978: IF ((l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)
2979: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2980: --{
2981: FOR i in 1..l_pick_release_stat.count LOOP
2982: IF l_debug_on THEN
2975: --}
2976: END IF;
2977:
2978: IF ((l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)
2979: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2980: --{
2981: FOR i in 1..l_pick_release_stat.count LOOP
2982: IF l_debug_on THEN
2983: WSH_DEBUG_SV.logmsg(l_module_name,
3042: ,l_return_status);
3043: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip l_message'
3044: ,l_message);
3045: END IF;
3046: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3047: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3048: WSH_UTIL_CORE.PrintMsg('** Warning: Cannot Print Pick Slip **');
3049: WSH_UTIL_CORE.PrintMsg(l_message);
3050: l_completion_status := 'WARNING';
3043: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip l_message'
3044: ,l_message);
3045: END IF;
3046: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3047: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3048: WSH_UTIL_CORE.PrintMsg('** Warning: Cannot Print Pick Slip **');
3049: WSH_UTIL_CORE.PrintMsg(l_message);
3050: l_completion_status := 'WARNING';
3051: END IF;
3044: ,l_message);
3045: END IF;
3046: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3047: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3048: WSH_UTIL_CORE.PrintMsg('** Warning: Cannot Print Pick Slip **');
3049: WSH_UTIL_CORE.PrintMsg(l_message);
3050: l_completion_status := 'WARNING';
3051: END IF;
3052: END LOOP;
3045: END IF;
3046: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3047: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3048: WSH_UTIL_CORE.PrintMsg('** Warning: Cannot Print Pick Slip **');
3049: WSH_UTIL_CORE.PrintMsg(l_message);
3050: l_completion_status := 'WARNING';
3051: END IF;
3052: END LOOP;
3053: --}
3108: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3109: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm l_return_status',l_return_status);
3110: END IF;
3111: --}
3112: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3113: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3114: --{
3115: WSH_UTIL_CORE.PrintMsg('Error occurred in INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm');
3116: FOR i in 1..l_msg_count LOOP
3109: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm l_return_status',l_return_status);
3110: END IF;
3111: --}
3112: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3113: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3114: --{
3115: WSH_UTIL_CORE.PrintMsg('Error occurred in INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm');
3116: FOR i in 1..l_msg_count LOOP
3117: l_message := fnd_msg_pub.get(i,'F');
3111: --}
3112: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3113: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3114: --{
3115: WSH_UTIL_CORE.PrintMsg('Error occurred in INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm');
3116: FOR i in 1..l_msg_count LOOP
3117: l_message := fnd_msg_pub.get(i,'F');
3118: l_message := replace(l_message,chr(0),' ');
3119: WSH_UTIL_CORE.PrintMsg(l_message);
3115: WSH_UTIL_CORE.PrintMsg('Error occurred in INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm');
3116: FOR i in 1..l_msg_count LOOP
3117: l_message := fnd_msg_pub.get(i,'F');
3118: l_message := replace(l_message,chr(0),' ');
3119: WSH_UTIL_CORE.PrintMsg(l_message);
3120: END LOOP;
3121: l_completion_status := 'WARNING';
3122: fnd_msg_pub.delete_msg();
3123: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3119: WSH_UTIL_CORE.PrintMsg(l_message);
3120: END LOOP;
3121: l_completion_status := 'WARNING';
3122: fnd_msg_pub.delete_msg();
3123: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3124: WSH_UTIL_CORE.PrintMsg('Unexpected error. Exiting');
3125: --Bug 4906830
3126: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3127: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3120: END LOOP;
3121: l_completion_status := 'WARNING';
3122: fnd_msg_pub.delete_msg();
3123: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3124: WSH_UTIL_CORE.PrintMsg('Unexpected error. Exiting');
3125: --Bug 4906830
3126: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3127: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
3128: errbuf := 'Unexpected error. Exiting';
3132: END IF;
3133: --Bug 4906830
3134: RAISE e_return;
3135: ELSE
3136: WSH_UTIL_CORE.PrintMsg('Pick Confirm Partially Sucessful');
3137: END IF;
3138: --}
3139: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3140: IF l_debug_on THEN
3135: ELSE
3136: WSH_UTIL_CORE.PrintMsg('Pick Confirm Partially Sucessful');
3137: END IF;
3138: --}
3139: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3140: IF l_debug_on THEN
3141: WSH_DEBUG_SV.logmsg(l_module_name, 'PICK CONFIRM SUCESSFUL' );
3142: END IF;
3143: END IF;
3143: END IF;
3144:
3145: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3146: --{
3147: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3148: IF l_debug_on THEN
3149: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3150: END IF;
3151: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
3145: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3146: --{
3147: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3148: IF l_debug_on THEN
3149: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3150: END IF;
3151: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
3152: x_return_status => l_return_status );
3153: IF l_debug_on THEN
3147: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3148: IF l_debug_on THEN
3149: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3150: END IF;
3151: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
3152: x_return_status => l_return_status );
3153: IF l_debug_on THEN
3154: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3155: END IF;
3152: x_return_status => l_return_status );
3153: IF l_debug_on THEN
3154: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3155: END IF;
3156: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3157: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3158: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3159: RAISE e_return;
3160: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3153: IF l_debug_on THEN
3154: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3155: END IF;
3156: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3157: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3158: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3159: RAISE e_return;
3160: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3161: IF l_completion_status = 'NORMAL' THEN
3154: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3155: END IF;
3156: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3157: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3158: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3159: RAISE e_return;
3160: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3161: IF l_completion_status = 'NORMAL' THEN
3162: l_completion_status := 'WARNING';
3156: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3157: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3158: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3159: RAISE e_return;
3160: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3161: IF l_completion_status = 'NORMAL' THEN
3162: l_completion_status := 'WARNING';
3163: END IF;
3164: END IF;
3242: IF ( G_BACKORDERED ) AND l_completion_status <> 'ERROR' THEN
3243: l_completion_status := 'WARNING';
3244: END IF;
3245:
3246: WSH_UTIL_CORE.PrintMsg('Picking in Release_Batch_Sub is completed');
3247:
3248: END IF;
3249: --}
3250:
3300: p_auto_pack_level => crec.ap_level,
3301: p_log_level => p_log_level,
3302: x_return_status => l_return_status
3303: );
3304: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3305: l_packed_results_success := l_packed_results_success + 1;
3306: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3307: l_packed_results_warning := l_packed_results_warning + 1;
3308: WSH_BATCH_PROCESS.log_batch_messages (
3302: x_return_status => l_return_status
3303: );
3304: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3305: l_packed_results_success := l_packed_results_success + 1;
3306: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3307: l_packed_results_warning := l_packed_results_warning + 1;
3308: WSH_BATCH_PROCESS.log_batch_messages (
3309: crec.PA_SC_BATCH_ID,
3310: crec.delivery_id,
3360: p_log_level => p_log_level,
3361: p_actual_departure_date => WSH_PR_CRITERIA.g_actual_departure_date,
3362: x_return_status => l_return_status
3363: );
3364: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3365: l_confirmed_results_success := l_confirmed_results_success + 1;
3366: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3367: l_confirmed_results_warning := l_confirmed_results_warning + 1;
3368: WSH_BATCH_PROCESS.log_batch_messages (
3362: x_return_status => l_return_status
3363: );
3364: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3365: l_confirmed_results_success := l_confirmed_results_success + 1;
3366: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3367: l_confirmed_results_warning := l_confirmed_results_warning + 1;
3368: WSH_BATCH_PROCESS.log_batch_messages (
3369: crec.PA_SC_BATCH_ID,
3370: crec.delivery_id,
3382: END IF;
3383: --}
3384: EXCEPTION
3385: WHEN WSH_MISSING_SC_RULE THEN
3386: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to find the ship confirm rule ');
3387: l_confirmed_results_failure := l_confirmed_results_failure + 1;
3388: END;
3389: --}
3390: END IF;
3452: ELSE
3453: ROLLBACK TO s_Release_Batch_Sub_sf;
3454: END IF;
3455:
3456: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
3457: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST.Release_Batch_Sub');
3458: IF G_CONC_REQ = FND_API.G_TRUE THEN
3459: -- Set the completion status only in the case of Child Request
3460: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3453: ROLLBACK TO s_Release_Batch_Sub_sf;
3454: END IF;
3455:
3456: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
3457: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST.Release_Batch_Sub');
3458: IF G_CONC_REQ = FND_API.G_TRUE THEN
3459: -- Set the completion status only in the case of Child Request
3460: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3461: -- any further processing
3476: ELSE
3477: ROLLBACK TO s_Release_Batch_Sub_sf;
3478: END IF;
3479:
3480: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
3481: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST.Release_Batch_Sub');
3482: IF G_CONC_REQ = FND_API.G_TRUE THEN
3483: -- Set the completion status only in the case of Child Request
3484: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3477: ROLLBACK TO s_Release_Batch_Sub_sf;
3478: END IF;
3479:
3480: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
3481: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST.Release_Batch_Sub');
3482: IF G_CONC_REQ = FND_API.G_TRUE THEN
3483: -- Set the completion status only in the case of Child Request
3484: -- If this is done as part of Parent Process, this setting will cause program to stop without doing
3485: -- any further processing
3958: l_count NUMBER := 0;
3959: l_del_batch_id NUMBER;
3960: l_del_batch_name VARCHAR2(30);
3961: l_tmp_row_id VARCHAR2(2000);
3962: l_delivery_ids WSH_UTIL_CORE.Id_Tab_Type;
3963: l_request_id NUMBER;
3964: l_item_name VARCHAR2(2000);
3965: l_message1 VARCHAR2(2000);
3966: l_exception_return_status VARCHAR2(30);
3968: l_exception_msg_data VARCHAR2(4000) := NULL;
3969: l_dummy_exception_id NUMBER;
3970: l_warehouse_type VARCHAR2(10);
3971: l_temp_num NUMBER;
3972: l_del_ids_tab wsh_util_core.id_tab_type; -- empty table of delivery ids
3973:
3974: i NUMBER;
3975: j NUMBER;
3976:
3973:
3974: i NUMBER;
3975: j NUMBER;
3976:
3977: l_ps_delivery_tab WSH_UTIL_CORE.Id_Tab_Type;
3978: l_ps_org_tab WSH_UTIL_CORE.Id_Tab_Type;
3979: l_ps_pick_loc_tab WSH_UTIL_CORE.Id_Tab_Type;
3980: l_ap_batch_id NUMBER;
3981: l_sc_id_tab WSH_UTIL_CORE.Id_Tab_Type;
3974: i NUMBER;
3975: j NUMBER;
3976:
3977: l_ps_delivery_tab WSH_UTIL_CORE.Id_Tab_Type;
3978: l_ps_org_tab WSH_UTIL_CORE.Id_Tab_Type;
3979: l_ps_pick_loc_tab WSH_UTIL_CORE.Id_Tab_Type;
3980: l_ap_batch_id NUMBER;
3981: l_sc_id_tab WSH_UTIL_CORE.Id_Tab_Type;
3982: l_interface_stop_id NUMBER;
3975: j NUMBER;
3976:
3977: l_ps_delivery_tab WSH_UTIL_CORE.Id_Tab_Type;
3978: l_ps_org_tab WSH_UTIL_CORE.Id_Tab_Type;
3979: l_ps_pick_loc_tab WSH_UTIL_CORE.Id_Tab_Type;
3980: l_ap_batch_id NUMBER;
3981: l_sc_id_tab WSH_UTIL_CORE.Id_Tab_Type;
3982: l_interface_stop_id NUMBER;
3983: l_batch_creation_date DATE := NULL;
3977: l_ps_delivery_tab WSH_UTIL_CORE.Id_Tab_Type;
3978: l_ps_org_tab WSH_UTIL_CORE.Id_Tab_Type;
3979: l_ps_pick_loc_tab WSH_UTIL_CORE.Id_Tab_Type;
3980: l_ap_batch_id NUMBER;
3981: l_sc_id_tab WSH_UTIL_CORE.Id_Tab_Type;
3982: l_interface_stop_id NUMBER;
3983: l_batch_creation_date DATE := NULL;
3984: l_ac_close_trip_flag VARCHAR2(1);
3985: l_ac_intransit_flag VARCHAR2(1);
3985: l_ac_intransit_flag VARCHAR2(1);
3986: l_stop_sequence_number NUMBER;
3987: l_stop_id NUMBER;
3988: l_stop_location_id NUMBER;
3989: l_stops_to_close WSH_UTIL_CORE.Id_Tab_Type;
3990: l_stop_location_ids WSH_UTIL_CORE.Id_Tab_Type;
3991: l_stops_sc_ids WSH_UTIL_CORE.Id_Tab_Type;
3992: l_closing_stop_success NUMBER := 0;
3993: l_closing_stop_failure NUMBER := 0;
3986: l_stop_sequence_number NUMBER;
3987: l_stop_id NUMBER;
3988: l_stop_location_id NUMBER;
3989: l_stops_to_close WSH_UTIL_CORE.Id_Tab_Type;
3990: l_stop_location_ids WSH_UTIL_CORE.Id_Tab_Type;
3991: l_stops_sc_ids WSH_UTIL_CORE.Id_Tab_Type;
3992: l_closing_stop_success NUMBER := 0;
3993: l_closing_stop_failure NUMBER := 0;
3994: l_closing_stop_warning NUMBER := 0;
3987: l_stop_id NUMBER;
3988: l_stop_location_id NUMBER;
3989: l_stops_to_close WSH_UTIL_CORE.Id_Tab_Type;
3990: l_stop_location_ids WSH_UTIL_CORE.Id_Tab_Type;
3991: l_stops_sc_ids WSH_UTIL_CORE.Id_Tab_Type;
3992: l_closing_stop_success NUMBER := 0;
3993: l_closing_stop_failure NUMBER := 0;
3994: l_closing_stop_warning NUMBER := 0;
3995: l_lock_error VARCHAR2(1);
4016: l_org_info WSH_PICK_LIST.Org_Params_Rec;
4017: l_org_info_tbl WSH_PICK_LIST.Org_Params_Rec_Tbl;
4018: l_detail_cfetch NUMBER;
4019: l_detail_pfetch NUMBER;
4020: l_del_details_tbl WSH_UTIL_CORE.Id_Tab_Type;
4021: l_mo_lines_tbl INV_MOVE_ORDER_PUB.Num_Tbl_Type;
4022: l_carton_grouping_tbl INV_MOVE_ORDER_PUB.Num_Tbl_Type;
4023: l_print_ps VARCHAR2(1);
4024: l_phase VARCHAR2(100);
4024: l_phase VARCHAR2(100);
4025: l_status VARCHAR2(100);
4026: l_dev_phase VARCHAR2(100);
4027: l_dev_status VARCHAR2(100);
4028: l_child_req_ids WSH_UTIL_CORE.Id_Tab_Type;
4029: l_this_request NUMBER;
4030: l_dummy BOOLEAN;
4031: l_errors NUMBER := 0;
4032: l_warnings NUMBER := 0;
4035: l_attr_tab WSH_DELIVERY_AUTOCREATE.Grp_attr_tab_type;
4036: l_group_tab WSH_DELIVERY_AUTOCREATE.Grp_attr_tab_type;
4037: l_action_rec WSH_DELIVERY_AUTOCREATE.Action_rec_type;
4038: l_target_rec WSH_DELIVERY_AUTOCREATE.Grp_attr_rec_type;
4039: l_matched_entities WSH_UTIL_CORE.id_tab_type;
4040: l_out_rec WSH_DELIVERY_AUTOCREATE.Out_rec_type;
4041:
4042: l_check_dcp NUMBER;
4043: l_in_param_rec WSH_FTE_INTEGRATION.rate_del_in_param_rec;
4041:
4042: l_check_dcp NUMBER;
4043: l_in_param_rec WSH_FTE_INTEGRATION.rate_del_in_param_rec;
4044: l_out_param_rec WSH_FTE_INTEGRATION.rate_del_out_param_rec;
4045: l_rate_dels_tab WSH_UTIL_CORE.Id_Tab_Type;
4046:
4047: l_excp_location_id NUMBER;
4048:
4049: l_api_session_name CONSTANT VARCHAR2(150) := G_PKG_NAME ||'.' || l_module_name;
4065:
4066: SAVEPOINT s_Release_Batch_sp;
4067:
4068: -- 10. Load Tendering Initializations
4069: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
4070: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4071: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4072: END IF;
4073:
4066: SAVEPOINT s_Release_Batch_sp;
4067:
4068: -- 10. Load Tendering Initializations
4069: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
4070: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4071: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4072: END IF;
4073:
4074: -- 20. DCP Checks
4067:
4068: -- 10. Load Tendering Initializations
4069: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
4070: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4071: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4072: END IF;
4073:
4074: -- 20. DCP Checks
4075: l_check_dcp := WSH_DCP_PVT.G_CHECK_DCP;
4084: END IF;
4085:
4086: -- 30. Logging Settings
4087: IF G_CONC_REQ = FND_API.G_TRUE THEN
4088: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
4089: IF p_log_level IS NOT NULL THEN
4090: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
4091: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
4092: END IF;
4086: -- 30. Logging Settings
4087: IF G_CONC_REQ = FND_API.G_TRUE THEN
4088: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
4089: IF p_log_level IS NOT NULL THEN
4090: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
4091: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
4092: END IF;
4093: END IF;
4094:
4087: IF G_CONC_REQ = FND_API.G_TRUE THEN
4088: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
4089: IF p_log_level IS NOT NULL THEN
4090: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
4091: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
4092: END IF;
4093: END IF;
4094:
4095: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4124: END IF;
4125: --
4126: WSH_PR_PICK_SLIP_NUMBER.Delete_ps_tbl (x_api_status => l_return_status,
4127: x_error_message => l_message);
4128: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4129: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4130: --{
4131: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_PICK_SLIP_NUMBER.Delete_ps_tbl');
4132: RAISE e_return;
4125: --
4126: WSH_PR_PICK_SLIP_NUMBER.Delete_ps_tbl (x_api_status => l_return_status,
4127: x_error_message => l_message);
4128: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4129: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4130: --{
4131: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_PICK_SLIP_NUMBER.Delete_ps_tbl');
4132: RAISE e_return;
4133: END IF; --}
4127: x_error_message => l_message);
4128: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4129: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4130: --{
4131: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_PICK_SLIP_NUMBER.Delete_ps_tbl');
4132: RAISE e_return;
4133: END IF; --}
4134: -- end bug 5222079
4135:
4185: WSH_DEBUG_SV.log(l_module_name,'DDs for batch ',l_temp_num);
4186: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4187: END IF;
4188:
4189: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4190: WSH_UTIL_CORE.PrintMsg('Error occurred in Init_Pick_Release');
4191: RAISE e_return;
4192: END IF;
4193:
4186: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4187: END IF;
4188:
4189: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4190: WSH_UTIL_CORE.PrintMsg('Error occurred in Init_Pick_Release');
4191: RAISE e_return;
4192: END IF;
4193:
4194: -- 70. Initializations for local variables
4231: IF l_debug_on THEN
4232: WSH_DEBUG_SV.log(l_module_name, 'Number of Organizations',l_organization_tab.count);
4233: END IF;
4234: IF l_organization_tab.COUNT = 0 THEN
4235: WSH_UTIL_CORE.PrintMsg('No organization found. Cannot Pick Release.');
4236: RAISE e_return;
4237: END IF;
4238: --}
4239: ELSE
4409: l_warehouse_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type(
4410: p_organization_id => l_organization_id,
4411: p_event_key => NULL,
4412: x_return_status => l_return_status);
4413: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN --{
4414: IF l_debug_on THEN
4415: WSH_DEBUG_SV.log(l_module_name, 'Org Type', L_WAREHOUSE_TYPE );
4416: END IF;
4417: IF l_warehouse_type = 'TPW' THEN
4420: END IF;
4421: GOTO next_organization;
4422: END IF;
4423: --}
4424: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4425: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
4426:
4427: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type');
4428: RAISE e_return;
4421: GOTO next_organization;
4422: END IF;
4423: --}
4424: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4425: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
4426:
4427: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type');
4428: RAISE e_return;
4429:
4423: --}
4424: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4425: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
4426:
4427: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type');
4428: RAISE e_return;
4429:
4430: END IF; --}
4431:
4437: END IF;
4438: Get_Org_Params ( p_organization_id => l_organization_id,
4439: x_org_info => l_org_info,
4440: x_return_status => l_return_status);
4441: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4442: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4443: IF l_debug_on THEN
4444: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in Get_Org_Params');
4445: END IF;
4438: Get_Org_Params ( p_organization_id => l_organization_id,
4439: x_org_info => l_org_info,
4440: x_return_status => l_return_status);
4441: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4442: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4443: IF l_debug_on THEN
4444: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in Get_Org_Params');
4445: END IF;
4446: RAISE e_return;
4509: WSH_DEBUG_SV.log(l_module_name,'Inv_Move_Order_Pub.Create_Move_Order_Header l_return_status',l_return_status);
4510: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4511: END IF;
4512:
4513: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4514: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN --{
4515:
4516: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Header');
4517: FOR i in 1..l_msg_count LOOP
4510: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4511: END IF;
4512:
4513: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4514: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN --{
4515:
4516: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Header');
4517: FOR i in 1..l_msg_count LOOP
4518: l_message := fnd_msg_pub.get(i,'F');
4512:
4513: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4514: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN --{
4515:
4516: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Header');
4517: FOR i in 1..l_msg_count LOOP
4518: l_message := fnd_msg_pub.get(i,'F');
4519: l_message := replace(l_message,chr(0),' ');
4520: WSH_UTIL_CORE.PrintMsg(l_message);
4516: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Header');
4517: FOR i in 1..l_msg_count LOOP
4518: l_message := fnd_msg_pub.get(i,'F');
4519: l_message := replace(l_message,chr(0),' ');
4520: WSH_UTIL_CORE.PrintMsg(l_message);
4521: END LOOP;
4522: fnd_msg_pub.delete_msg();
4523: RAISE e_return;
4524: --}
4521: END LOOP;
4522: fnd_msg_pub.delete_msg();
4523: RAISE e_return;
4524: --}
4525: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4526: IF l_debug_on THEN
4527: WSH_DEBUG_SV.logmsg(l_module_name, 'Created MO Header '||TO_CHAR(L_TROHDR_REC.HEADER_ID)||' Sucessfully' );
4528: END IF;
4529: END IF;
4531: -- 90.8 Data should be committed only in case of a concurrent request.
4532: -- Data should not be commited if its ONLINE/From PUBLIC API.
4533: -- In case of Online data is committed from Pick Release form.
4534: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
4535: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
4536: IF l_debug_on THEN
4537: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
4538: END IF;
4539: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
4533: -- In case of Online data is committed from Pick Release form.
4534: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
4535: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
4536: IF l_debug_on THEN
4537: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
4538: END IF;
4539: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
4540: x_return_status => l_return_status);
4541:
4535: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
4536: IF l_debug_on THEN
4537: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
4538: END IF;
4539: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
4540: x_return_status => l_return_status);
4541:
4542: IF l_debug_on THEN
4543: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
4541:
4542: IF l_debug_on THEN
4543: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
4544: END IF;
4545: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4546: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4547: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
4548: RAISE e_return;
4549: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4542: IF l_debug_on THEN
4543: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
4544: END IF;
4545: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4546: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4547: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
4548: RAISE e_return;
4549: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4550: IF l_completion_status = 'NORMAL' THEN
4543: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
4544: END IF;
4545: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4546: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4547: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
4548: RAISE e_return;
4549: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4550: IF l_completion_status = 'NORMAL' THEN
4551: l_completion_status := 'WARNING';
4545: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4546: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4547: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
4548: RAISE e_return;
4549: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
4550: IF l_completion_status = 'NORMAL' THEN
4551: l_completion_status := 'WARNING';
4552: END IF;
4553: END IF;
4575: 'N');
4576:
4577: EXCEPTION
4578: WHEN OTHERS THEN
4579: WSH_UTIL_CORE.PrintMsg('Error occurred in trying to insert WMS rec type in worker table');
4580: RAISE e_return;
4581: END;
4582: END IF; --}
4583:
4606:
4607: EXCEPTION
4608:
4609: WHEN OTHERS THEN
4610: WSH_UTIL_CORE.PrintMsg('Error occurred in trying to insert PICK rec type in worker table');
4611: RAISE e_return;
4612: END; --}
4613:
4614: ELSE --{
4638: WSH_DEBUG_SV.log(l_module_name, 'WSH_PR_CRITERIA.Init_Cursor l_return_status',l_return_status);
4639: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4640: END IF;
4641:
4642: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4643: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4644: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Cursor');
4645: RAISE e_return;
4646: END IF;
4639: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4640: END IF;
4641:
4642: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4643: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4644: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Cursor');
4645: RAISE e_return;
4646: END IF;
4647:
4640: END IF;
4641:
4642: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4643: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4644: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Cursor');
4645: RAISE e_return;
4646: END IF;
4647:
4648: l_tot_worker_records := l_tot_worker_records + NVL(l_worker_records,0);
4669: 'N');
4670:
4671: EXCEPTION
4672: WHEN OTHERS THEN
4673: WSH_UTIL_CORE.PrintMsg('Error occurred in trying to insert DOC rec type in worker table');
4674: RAISE e_return;
4675: END; --}
4676:
4677: END IF; -- l_mode is null --}
4726: x_return_status => l_return_status );
4727: IF l_debug_on THEN
4728: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4729: END IF;
4730: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4731: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4732: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK-SS');
4733: RAISE e_return;
4734: ELSE
4727: IF l_debug_on THEN
4728: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4729: END IF;
4730: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4731: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4732: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK-SS');
4733: RAISE e_return;
4734: ELSE
4735: -- This is required as we do not need to process rest of the code till
4728: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4729: END IF;
4730: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4731: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4732: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK-SS');
4733: RAISE e_return;
4734: ELSE
4735: -- This is required as we do not need to process rest of the code till
4736: -- workers complete
4765: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
4766: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
4767: END IF;
4768: IF l_retcode = 2 THEN
4769: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
4770: RAISE e_return;
4771: ELSIF l_retcode = 1 THEN
4772: G_BACKORDERED := TRUE; -- To set the request status as Warning
4773: ELSIF l_retcode IS NULL THEN -- Online Process
4773: ELSIF l_retcode IS NULL THEN -- Online Process
4774: IF G_ONLINE_PICK_RELEASE_RESULT = 'W' THEN
4775: G_BACKORDERED := TRUE; -- To set the request status as Warning
4776: ELSIF G_ONLINE_PICK_RELEASE_RESULT = 'F' THEN
4777: WSH_UTIL_CORE.PrintMsg('Error in Online Release_batch_sub');
4778: RAISE e_return;
4779: END IF;
4780: END IF;
4781: END IF; --}
4806: x_return_status => l_return_status );
4807: IF l_debug_on THEN
4808: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4809: END IF;
4810: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4811: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4812: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK');
4813: RAISE e_return;
4814: ELSE
4807: IF l_debug_on THEN
4808: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4809: END IF;
4810: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4811: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4812: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK');
4813: RAISE e_return;
4814: ELSE
4815: -- This is required as we do not need to process rest of the code till
4808: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4809: END IF;
4810: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4811: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4812: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK');
4813: RAISE e_return;
4814: ELSE
4815: -- This is required as we do not need to process rest of the code till
4816: -- workers complete
4841: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
4842: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
4843: END IF;
4844: IF l_retcode = 2 THEN
4845: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
4846: RAISE e_return;
4847: ELSIF l_retcode = 1 THEN
4848: G_BACKORDERED := TRUE; -- To set the request status as Warning
4849: ELSIF l_retcode IS NULL THEN -- Online Process
4849: ELSIF l_retcode IS NULL THEN -- Online Process
4850: IF G_ONLINE_PICK_RELEASE_RESULT = 'W' THEN
4851: G_BACKORDERED := TRUE; -- To set the request status as Warning
4852: ELSIF G_ONLINE_PICK_RELEASE_RESULT = 'F' THEN
4853: WSH_UTIL_CORE.PrintMsg('Error in Online Release_batch_sub');
4854: RAISE e_return;
4855: END IF;
4856: END IF;
4857: END IF; --}
4900: x_return_status => l_return_status);
4901: IF l_debug_on THEN
4902: WSH_DEBUG_SV.log(l_module_name,'WSH_USA_INV_PVT.Unassign_Backordered_Details l_return_status' ,l_return_status);
4903: END IF;
4904: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4905: WSH_UTIL_CORE.PrintMsg('Unexpected Error occurred in WSH_USA_INV_PVT.Unassign_Backordered_Details');
4906: RAISE e_return;
4907: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4908: l_errors := l_errors + 1;
4901: IF l_debug_on THEN
4902: WSH_DEBUG_SV.log(l_module_name,'WSH_USA_INV_PVT.Unassign_Backordered_Details l_return_status' ,l_return_status);
4903: END IF;
4904: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4905: WSH_UTIL_CORE.PrintMsg('Unexpected Error occurred in WSH_USA_INV_PVT.Unassign_Backordered_Details');
4906: RAISE e_return;
4907: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4908: l_errors := l_errors + 1;
4909: END IF;
4903: END IF;
4904: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4905: WSH_UTIL_CORE.PrintMsg('Unexpected Error occurred in WSH_USA_INV_PVT.Unassign_Backordered_Details');
4906: RAISE e_return;
4907: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4908: l_errors := l_errors + 1;
4909: END IF;
4910: l_detail_pfetch := c_get_backordered_details%ROWCOUNT;
4911: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
4918: CLOSE c_get_backordered_details;
4919:
4920: -- If there are any Errors encountered, stop processing immediately
4921: IF l_errors > 0 THEN
4922: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_USA_INV_PVT.Unassign_Backordered_Details');
4923: RAISE e_return;
4924: END IF;
4925: END IF; --}
4926:
4932: WSH_DELIVERY_AUTOCREATE.Unassign_Empty_Containers(g_unassigned_delivery_ids,l_return_status);
4933: IF l_debug_on THEN
4934: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.unassign_empty_containers l_return_status',l_return_status);
4935: END IF;
4936: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4937: l_completion_status := 'WARNING';
4938: END IF;
4939: END IF;
4940:
4989: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4990: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
4991: ,l_return_status);
4992: END IF;
4993: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4994: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4995: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
4996: RAISE e_return;
4997: END IF;
4990: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
4991: ,l_return_status);
4992: END IF;
4993: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4994: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4995: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
4996: RAISE e_return;
4997: END IF;
4998:
4991: ,l_return_status);
4992: END IF;
4993: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4994: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4995: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Autocreate_Deliveries');
4996: RAISE e_return;
4997: END IF;
4998:
4999: l_detail_pfetch := c_get_unassigned_details%ROWCOUNT;
5027: p_caller => 'WSH_PICK_RELEASE',
5028: p_organization_id => i, -- Organization_id
5029: x_return_message => l_message,
5030: x_return_status => l_return_status );
5031: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5032: IF l_debug_on THEN
5033: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR OR WARNING OCCURRED WHILE PROCESSING CARRIER SELECTION ( PICK SLIP ) ' );
5034: END IF;
5035: END IF;
5032: IF l_debug_on THEN
5033: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR OR WARNING OCCURRED WHILE PROCESSING CARRIER SELECTION ( PICK SLIP ) ' );
5034: END IF;
5035: END IF;
5036: WSH_UTIL_CORE.add_message(l_return_status);
5037: --}
5038: END IF;
5039:
5040: -- Bug 3714834: If there are more lines to be picked than the pick release batch size
5065: x_msg_data => l_msg_data );
5066: IF l_debug_on THEN
5067: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_FTE_INTEGRATION.Rate_Delivery',l_return_status);
5068: END IF;
5069: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
5070: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5071: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_INTEGRATION.Rate_Delivery');
5072: RAISE e_return;
5073: ELSE
5066: IF l_debug_on THEN
5067: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_FTE_INTEGRATION.Rate_Delivery',l_return_status);
5068: END IF;
5069: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
5070: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5071: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_INTEGRATION.Rate_Delivery');
5072: RAISE e_return;
5073: ELSE
5074: j := l_out_param_rec.failed_delivery_id_list.FIRST;
5067: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_FTE_INTEGRATION.Rate_Delivery',l_return_status);
5068: END IF;
5069: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
5070: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5071: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_INTEGRATION.Rate_Delivery');
5072: RAISE e_return;
5073: ELSE
5074: j := l_out_param_rec.failed_delivery_id_list.FIRST;
5075: WHILE j is not NULL LOOP
5119: x_return_status => l_return_status );
5120: IF l_debug_on THEN
5121: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5122: END IF;
5123: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5124: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5125: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5126: RAISE e_Return;
5127: END IF;
5120: IF l_debug_on THEN
5121: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5122: END IF;
5123: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5124: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5125: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5126: RAISE e_Return;
5127: END IF;
5128: END IF; --}
5121: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5122: END IF;
5123: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5124: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5125: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5126: RAISE e_Return;
5127: END IF;
5128: END IF; --}
5129:
5147: x_return_status => l_return_status );
5148: IF l_debug_on THEN
5149: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5150: END IF;
5151: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5152: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5153: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5154: RAISE e_Return;
5155: END IF;
5148: IF l_debug_on THEN
5149: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5150: END IF;
5151: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5152: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5153: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5154: RAISE e_Return;
5155: END IF;
5156: l_detail_pfetch := c_batch_unplanned_del%ROWCOUNT;
5149: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5150: END IF;
5151: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5152: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5153: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5154: RAISE e_Return;
5155: END IF;
5156: l_detail_pfetch := c_batch_unplanned_del%ROWCOUNT;
5157: END LOOP; --}
5213: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5214: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status'
5215: ,l_return_status);
5216: END IF;
5217: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5218: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5219: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
5220: RAISE e_return;
5221: END IF;
5214: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status'
5215: ,l_return_status);
5216: END IF;
5217: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5218: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5219: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
5220: RAISE e_return;
5221: END IF;
5222:
5215: ,l_return_status);
5216: END IF;
5217: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5218: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5219: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
5220: RAISE e_return;
5221: END IF;
5222:
5223: --bug 7171766
5290: IF l_debug_on THEN
5291: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5292: WSH_DEBUG_SV.log(l_module_name,'Return status from INV_PICK_RELEASE_PUB.Call_Cartonization ', l_return_status);
5293: END IF;
5294: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5295: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5296: WSH_UTIL_CORE.PrintMsg('Error occurred in INV_PICK_RELEASE_PUB.Call_Cartonization');
5297: RAISE e_return;
5298: END IF;
5291: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5292: WSH_DEBUG_SV.log(l_module_name,'Return status from INV_PICK_RELEASE_PUB.Call_Cartonization ', l_return_status);
5293: END IF;
5294: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5295: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5296: WSH_UTIL_CORE.PrintMsg('Error occurred in INV_PICK_RELEASE_PUB.Call_Cartonization');
5297: RAISE e_return;
5298: END IF;
5299:
5292: WSH_DEBUG_SV.log(l_module_name,'Return status from INV_PICK_RELEASE_PUB.Call_Cartonization ', l_return_status);
5293: END IF;
5294: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5295: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5296: WSH_UTIL_CORE.PrintMsg('Error occurred in INV_PICK_RELEASE_PUB.Call_Cartonization');
5297: RAISE e_return;
5298: END IF;
5299:
5300: l_detail_pfetch := c_wms_details%ROWCOUNT;
5348: p_doc_set_id => l_org_info_tbl(crec.organization_id).doc_set_id,
5349: p_batch_name => l_batch_name,
5350: p_order_number => NULL, -- this will be derived in Print_Docs API itself
5351: x_return_status => l_return_status );
5352: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5353: l_completion_status := 'WARNING';
5354: END IF;
5355: END IF;
5356: -- No records detailed, so delete Move Order Header for Organization
5386: IF l_debug_on THEN
5387: WSH_DEBUG_SV.log(l_module_name,'Inv_Move_Order_Pub.Process_Move_Order l_return_status'
5388: ,l_return_status);
5389: END IF;
5390: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5391: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5392: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Process_Move_Order');
5393: FOR i in 1..l_msg_count LOOP
5394: l_message := fnd_msg_pub.get(i,'F');
5387: WSH_DEBUG_SV.log(l_module_name,'Inv_Move_Order_Pub.Process_Move_Order l_return_status'
5388: ,l_return_status);
5389: END IF;
5390: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5391: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5392: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Process_Move_Order');
5393: FOR i in 1..l_msg_count LOOP
5394: l_message := fnd_msg_pub.get(i,'F');
5395: l_message := replace(l_message,chr(0),' ');
5388: ,l_return_status);
5389: END IF;
5390: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5391: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5392: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Process_Move_Order');
5393: FOR i in 1..l_msg_count LOOP
5394: l_message := fnd_msg_pub.get(i,'F');
5395: l_message := replace(l_message,chr(0),' ');
5396: WSH_UTIL_CORE.PrintMsg(l_message);
5392: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Process_Move_Order');
5393: FOR i in 1..l_msg_count LOOP
5394: l_message := fnd_msg_pub.get(i,'F');
5395: l_message := replace(l_message,chr(0),' ');
5396: WSH_UTIL_CORE.PrintMsg(l_message);
5397: END LOOP;
5398: fnd_msg_pub.delete_msg();
5399: RAISE e_return;
5400: END IF;
5408: WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries(g_batch_id,l_return_status);
5409: IF l_debug_on THEN
5410: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries l_return_status',l_return_status);
5411: END IF;
5412: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5413: l_completion_status := 'WARNING';
5414: END IF;
5415:
5416: -- Reset delivery batch id.
5493:
5494: FND_MESSAGE.SET_NAME('WSH','WSH_CHILD_REQ_STATUS');
5495: FND_MESSAGE.SET_TOKEN('REQ_ID', to_char(l_child_req_ids(j)));
5496: FND_MESSAGE.SET_TOKEN('STATUS', l_status);
5497: WSH_UTIL_CORE.PrintMsg(FND_MESSAGE.GET);
5498: j := l_child_req_ids.NEXT(j);
5499: END LOOP;
5500:
5501: IF ( G_BACKORDERED ) THEN
5510: l_completion_status := 'WARNING';
5511: END IF;
5512: END IF; --}
5513:
5514: WSH_UTIL_CORE.PrintMsg('Pick selection is completed');
5515:
5516: -- Set Online Pick Release Result
5517: -- Warning Mesg. for Online
5518: IF (l_completion_status = 'WARNING') THEN
5638: IF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) > 0 THEN
5639: l_act_ap_level := NVL(l_ap_level,0);
5640: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5641: IF G_CONC_REQ = FND_API.G_TRUE THEN
5642: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5643: END IF;
5644: l_act_ap_level := 0;
5645: ELSE
5646: l_act_ap_level := 0;
5783: OR (NVL(l_ap_level,0) > 0 AND WSH_PR_CRITERIA.g_non_picking_flag = 'P') THEN
5784: l_act_ap_level := NVL(l_ap_level,0);
5785: ELSIF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) = 0 THEN
5786: IF G_CONC_REQ = FND_API.G_TRUE THEN
5787: WSH_UTIL_CORE.PrintMsg('** Warning : Autopack Option is No for the organization - Packing action not performed **');
5788: END IF;
5789: l_act_ap_level := 0;
5790: ELSE
5791: l_act_ap_level := 0;
5879: x_return_status => l_return_status );
5880: IF l_debug_on THEN
5881: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
5882: END IF;
5883: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5884: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5885: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PS');
5886: RAISE e_return;
5887: ELSE
5880: IF l_debug_on THEN
5881: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
5882: END IF;
5883: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5884: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5885: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PS');
5886: RAISE e_return;
5887: ELSE
5888: -- After pausing parent process, we need to skip rest of the code
5881: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
5882: END IF;
5883: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5884: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5885: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PS');
5886: RAISE e_return;
5887: ELSE
5888: -- After pausing parent process, we need to skip rest of the code
5889: -- till all workers complete and parent process restarts
5910: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
5911: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
5912: END IF;
5913: IF l_retcode = 2 THEN
5914: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
5915: RAISE e_return;
5916: ELSIF l_retcode IS NULL AND
5917: G_ONLINE_PICK_RELEASE_RESULT = 'F' THEN
5918: WSH_UTIL_CORE.PrintMsg('Error in Online Release_batch_sub');
5914: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
5915: RAISE e_return;
5916: ELSIF l_retcode IS NULL AND
5917: G_ONLINE_PICK_RELEASE_RESULT = 'F' THEN
5918: WSH_UTIL_CORE.PrintMsg('Error in Online Release_batch_sub');
5919: RAISE e_return;
5920: END IF;
5921: --}
5922: END IF;
5924: END IF;
5925: --}
5926: END IF; -- Pack/Ship Grouping
5927:
5928: WSH_UTIL_CORE.PrintDateTime;
5929:
5930: IF ((G_CONC_REQ = FND_API.G_TRUE AND l_completion_status <> 'ERROR') OR
5931: G_ONLINE_PICK_RELEASE_RESULT IN ('S', 'W'))
5932: AND (WSH_PR_CRITERIA.g_autopack_flag = 'Y' OR WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') OR
5983: p_actual_date => NVL(WSH_PR_CRITERIA.g_actual_departure_date, SYSDATE),
5984: p_defer_interface_flag => 'Y',
5985: x_return_status => l_return_status );
5986:
5987: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5988: IF l_debug_on THEN
5989: WSH_DEBUG_SV.log(l_module_name,'Successfully closed stop',l_stops_to_close(i));
5990: END IF;
5991: l_closing_stop_success := l_closing_stop_success + 1;
5988: IF l_debug_on THEN
5989: WSH_DEBUG_SV.log(l_module_name,'Successfully closed stop',l_stops_to_close(i));
5990: END IF;
5991: l_closing_stop_success := l_closing_stop_success + 1;
5992: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5993: IF l_debug_on THEN
5994: WSH_DEBUG_SV.log(l_module_name,'Trip stop ', l_stops_to_close(i) ||' is closed with warnings');
5995: END IF;
5996: l_closing_stop_warning := l_closing_stop_warning + 1;
6025: WSH_DEBUG_SV.log(l_module_name, 'No stops to close');
6026: END IF;
6027: END IF;
6028:
6029: WSH_UTIL_CORE.PrintDateTime;
6030:
6031: -- Submit ITS for Batch
6032: FOR crec in c_defer_interface(p_batch_id) LOOP
6033: --{
6050: IF l_debug_on THEN
6051: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
6052: END IF;
6053: COMMIT;
6054: WSH_UTIL_CORE.PrintMsg('Interface request submitted for stops, request ID: '||to_char(l_request_id));
6055: END IF;
6056: END IF;
6057: --}
6058: END IF;
6083: END IF;
6084: COMMIT;
6085: END LOOP;
6086: CLOSE c_ap_batch;
6087: WSH_UTIL_CORE.PrintDateTime;
6088: --}
6089:
6090: -- Submit Auto Ship Confirm Report
6091: --{
6093: IF l_debug_on THEN
6094: WSH_DEBUG_SV.logmsg(l_module_name, 'Submitting Auto Ship Confirm Report');
6095: WSH_DEBUG_SV.log(l_module_name, 'l_sc_id_tab.COUNT', l_sc_id_tab.COUNT);
6096: END IF;
6097: WSH_UTIL_CORE.PrintDateTime;
6098: FOR i in l_sc_id_tab.FIRST..l_sc_id_tab.LAST
6099: LOOP
6100: l_request_id := FND_REQUEST.Submit_Request (
6101: 'WSH',
6115: END IF;
6116: COMMIT;
6117: END LOOP;
6118: END IF;
6119: WSH_UTIL_CORE.PrintDateTime;
6120: --}
6121:
6122: IF l_mode = 'PS' THEN --{
6123: --set the l_completion_status based on the other programs
6149:
6150: FND_MESSAGE.SET_NAME('WSH','WSH_CHILD_REQ_STATUS');
6151: FND_MESSAGE.SET_TOKEN('REQ_ID', to_char(l_child_req_ids(j)));
6152: FND_MESSAGE.SET_TOKEN('STATUS', l_status);
6153: WSH_UTIL_CORE.PrintMsg(FND_MESSAGE.GET);
6154: j := l_child_req_ids.NEXT(j);
6155: END LOOP;
6156:
6157: IF ( G_BACKORDERED ) THEN
6227: --
6228:
6229: SAVEPOINT S_CALL_FTE_LOAD_TENDER_API_SP;
6230:
6231: IF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
6232: --{
6233: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6234: IF l_debug_on THEN
6235: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender'
6229: SAVEPOINT S_CALL_FTE_LOAD_TENDER_API_SP;
6230:
6231: IF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
6232: --{
6233: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6234: IF l_debug_on THEN
6235: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender'
6236: ,WSH_DEBUG_SV.C_PROC_LEVEL);
6237: END IF;
6231: IF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
6232: --{
6233: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6234: IF l_debug_on THEN
6235: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender'
6236: ,WSH_DEBUG_SV.C_PROC_LEVEL);
6237: END IF;
6238: WSH_UTIL_CORE.Process_stops_for_load_tender (
6239: p_reset_flags => TRUE,
6234: IF l_debug_on THEN
6235: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender'
6236: ,WSH_DEBUG_SV.C_PROC_LEVEL);
6237: END IF;
6238: WSH_UTIL_CORE.Process_stops_for_load_tender (
6239: p_reset_flags => TRUE,
6240: x_return_status => l_return_status );
6241: IF l_debug_on THEN
6242: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6240: x_return_status => l_return_status );
6241: IF l_debug_on THEN
6242: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6243: END IF;
6244: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
6245: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6246: IF G_CONC_REQ = FND_API.G_TRUE THEN
6247: l_completion_status := 'ERROR';
6248: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6241: IF l_debug_on THEN
6242: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6243: END IF;
6244: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
6245: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6246: IF G_CONC_REQ = FND_API.G_TRUE THEN
6247: l_completion_status := 'ERROR';
6248: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6249: errbuf := 'Pick selection is completed with error';
6253: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6254: ROLLBACK TO S_CALL_FTE_LOAD_TENDER_API_SP;
6255: END IF;
6256:
6257: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6258: IF G_CONC_REQ = FND_API.G_TRUE THEN
6259: IF l_completion_status = 'NORMAL' THEN
6260: l_completion_status := 'WARNING';
6261: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
6293: ELSE
6294: ROLLBACK TO s_Release_Batch_sp;
6295: END IF;
6296:
6297: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
6298: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST');
6299: IF get_orgs%ISOPEN THEN
6300: CLOSE get_orgs;
6301: END IF;
6294: ROLLBACK TO s_Release_Batch_sp;
6295: END IF;
6296:
6297: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
6298: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST');
6299: IF get_orgs%ISOPEN THEN
6300: CLOSE get_orgs;
6301: END IF;
6302: IF get_pack_ship_groups%ISOPEN THEN
6367: errbuf := 'Exception occurred in WSH_PICK_LIST';
6368: retcode := '2';
6369: END IF;
6370: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6371: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6372: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6373: IF l_debug_on THEN
6374: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6375: END IF;
6368: retcode := '2';
6369: END IF;
6370: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6371: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6372: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6373: IF l_debug_on THEN
6374: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6375: END IF;
6376: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6370: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6371: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6372: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6373: IF l_debug_on THEN
6374: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6375: END IF;
6376: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6377: x_return_status => l_return_status);
6378: IF l_debug_on THEN
6372: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6373: IF l_debug_on THEN
6374: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6375: END IF;
6376: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6377: x_return_status => l_return_status);
6378: IF l_debug_on THEN
6379: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6380: END IF;
6387: --
6388: WHEN OTHERS THEN
6389: --
6390: ROLLBACK;
6391: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
6392: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST');
6393: IF get_orgs%ISOPEN THEN
6394: CLOSE get_orgs;
6395: END IF;
6388: WHEN OTHERS THEN
6389: --
6390: ROLLBACK;
6391: WSH_UTIL_CORE.PrintMsg('SQLCODE: '||sqlcode||' SQLERRM: '||sqlerrm);
6392: WSH_UTIL_CORE.PrintMsg('Exception occurred in WSH_PICK_LIST');
6393: IF get_orgs%ISOPEN THEN
6394: CLOSE get_orgs;
6395: END IF;
6396: IF get_pack_ship_groups%ISOPEN THEN
6461: errbuf := 'Exception occurred in WSH_PICK_LIST';
6462: retcode := '2';
6463: END IF;
6464: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6465: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6466: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6467: IF l_debug_on THEN
6468: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6469: END IF;
6462: retcode := '2';
6463: END IF;
6464: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6465: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6466: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6467: IF l_debug_on THEN
6468: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6469: END IF;
6470: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6464: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6465: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6466: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6467: IF l_debug_on THEN
6468: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6469: END IF;
6470: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6471: x_return_status => l_return_status);
6472: IF l_debug_on THEN
6466: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6467: IF l_debug_on THEN
6468: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6469: END IF;
6470: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6471: x_return_status => l_return_status);
6472: IF l_debug_on THEN
6473: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6474: END IF;
6604: WSH_NO_FUTURE_SHIPDATE EXCEPTION;
6605: BEGIN
6606: -- Fetch user and login information
6607: --
6608: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
6609: --
6610: IF p_log_level IS NOT NULL THEN -- log level fix
6611: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
6612: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
6607: --
6608: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
6609: --
6610: IF p_log_level IS NOT NULL THEN -- log level fix
6611: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
6612: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
6613: END IF;
6614: --
6615: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6608: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
6609: --
6610: IF p_log_level IS NOT NULL THEN -- log level fix
6611: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
6612: WSH_UTIL_CORE.PrintMsg('p_log_level is ' || to_char(p_log_level));
6613: END IF;
6614: --
6615: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6616: --
6652: l_login_id := FND_GLOBAL.CONC_LOGIN_ID;
6653: l_actual_departure_date := FND_DATE.CANONICAL_TO_DATE(p_actual_departure_date);
6654:
6655: IF (l_actual_departure_date IS NOT NULL) THEN
6656: IF NOT WSH_UTIL_CORE.ValidateActualDepartureDate(p_ship_confirm_rule_id, l_actual_departure_date) THEN
6657: raise WSH_NO_FUTURE_SHIPDATE;
6658: END IF;
6659: END IF;
6660: --
6665: FETCH c_RuleInfo INTO v_RuleInfo;
6666: --
6667: IF c_RuleInfo%NOTFOUND THEN
6668: --
6669: WSH_UTIL_CORE.PrintMsg('Rule ' || p_rule_id || ' does not exist or has expired');
6670: CLOSE c_RuleInfo;
6671: --
6672: IF l_debug_on THEN
6673: wsh_Debug_sv.pop(l_module_name);
6849: --
6850:
6851: WHEN WSH_NO_FUTURE_SHIPDATE THEN
6852:
6853: 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');
6854: l_ret_code := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING','Release_Batch_SRS');
6855: errbuf := 'Pick Selection List Generation SRS completed with warning';
6856: retcode := '1';
6857: IF l_debug_on THEN
6957: -- bug# 6719369 (replenishment project): For dynamic replenishment case, WMS passes the delivery detail ids as well as
6958: -- the picking batch id value. In this case it shoud create a new batch by taking the attribute values from the old batch
6959: -- information.
6960: PROCEDURE Launch_Pick_Release(
6961: p_trip_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6962: p_stop_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6963: p_delivery_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6964: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6965: x_request_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
6958: -- the picking batch id value. In this case it shoud create a new batch by taking the attribute values from the old batch
6959: -- information.
6960: PROCEDURE Launch_Pick_Release(
6961: p_trip_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6962: p_stop_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6963: p_delivery_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6964: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6965: x_request_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
6966: p_auto_pack_ship IN VARCHAR2 DEFAULT NULL,
6959: -- information.
6960: PROCEDURE Launch_Pick_Release(
6961: p_trip_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6962: p_stop_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6963: p_delivery_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6964: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6965: x_request_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
6966: p_auto_pack_ship IN VARCHAR2 DEFAULT NULL,
6967: p_batch_id IN NUMBER DEFAULT NULL, -- bug# 6719369 (replenishment project)
6960: PROCEDURE Launch_Pick_Release(
6961: p_trip_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6962: p_stop_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6963: p_delivery_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6964: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6965: x_request_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
6966: p_auto_pack_ship IN VARCHAR2 DEFAULT NULL,
6967: p_batch_id IN NUMBER DEFAULT NULL, -- bug# 6719369 (replenishment project)
6968: x_return_status OUT NOCOPY VARCHAR2
6961: p_trip_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6962: p_stop_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6963: p_delivery_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6964: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
6965: x_request_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
6966: p_auto_pack_ship IN VARCHAR2 DEFAULT NULL,
6967: p_batch_id IN NUMBER DEFAULT NULL, -- bug# 6719369 (replenishment project)
6968: x_return_status OUT NOCOPY VARCHAR2
6969: ) IS
7136: l_cached_flag VARCHAR2(1);
7137: j NUMBER := 0;
7138:
7139: --OTM R12
7140: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type;
7141: i NUMBER;
7142: l_counter NUMBER;
7143: l_result NUMBER;
7144: l_gc3_is_installed VARCHAR2(1);
7173:
7174: --OTM R12
7175: --include for planning delivery lines will all be
7176: --set to ignore for planning
7177: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
7178:
7179: IF l_gc3_is_installed IS NULL THEN
7180: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
7181: END IF;
7176: --set to ignore for planning
7177: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
7178:
7179: IF l_gc3_is_installed IS NULL THEN
7180: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
7181: END IF;
7182:
7183: IF (p_detail_ids.COUNT > 0
7184: AND p_auto_pack_ship IS NOT NULL
7219: IF l_debug_on THEN
7220: wsh_debug_sv.log(l_module_name,'Return Status After Calling change_ignoreplan_status ',l_return_status);
7221: END IF;
7222:
7223: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7224:
7225: --
7226: IF l_debug_on THEN
7227: WSH_DEBUG_SV.logmsg(l_module_name,'ERROR IN WSH_TP_RELEASE.CHANGE_IGNOREPLAN_STATUS');
7228: END IF;
7229: --
7230: RAISE api_return_fail;
7231:
7232: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7233: l_num_warn := l_num_warn + 1;
7234: END IF;
7235:
7236: END IF;
7291: END IF;
7292: END IF;
7293: ELSE
7294: --Non of pick release entity passed.
7295: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7296: FND_MESSAGE.SET_NAME('WSH','WSH_PR_NULL_IDS');
7297: WSH_UTIL_CORE.Add_Message(x_return_status);
7298: IF l_debug_on THEN
7299: WSH_DEBUG_SV.pop(l_module_name);
7293: ELSE
7294: --Non of pick release entity passed.
7295: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7296: FND_MESSAGE.SET_NAME('WSH','WSH_PR_NULL_IDS');
7297: WSH_UTIL_CORE.Add_Message(x_return_status);
7298: IF l_debug_on THEN
7299: WSH_DEBUG_SV.pop(l_module_name);
7300: END IF;
7301: --
7358: FETCH pick_confirm_required_for_del into l_pickconfirm_required;
7359: CLOSE pick_confirm_required_for_del;
7360:
7361: IF l_pickconfirm_required <> 2 THEN
7362: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7363: -- set warning for org
7364: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7365: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7366: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7362: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7363: -- set warning for org
7364: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7365: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7366: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7367: WSH_UTIL_CORE.Add_Message(x_return_status);
7368: l_num_warn := l_num_warn + 1;
7369: END IF;
7370:
7363: -- set warning for org
7364: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7365: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7366: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7367: WSH_UTIL_CORE.Add_Message(x_return_status);
7368: l_num_warn := l_num_warn + 1;
7369: END IF;
7370:
7371: -- always ship when action is pick,ship or pick,pack,ship
7372: l_ship_confirm_rule_id := l_param_info.ship_confirm_rule_id;
7373: l_del_org_params_cache_tab(j).ship_confirm_rule_id := l_ship_confirm_rule_id;
7374:
7375: IF l_ship_confirm_rule_id IS NULL THEN
7376: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7377: -- set warning for org
7378: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7379: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7380: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7376: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7377: -- set warning for org
7378: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7379: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7380: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7381: WSH_UTIL_CORE.Add_Message(x_return_status);
7382: l_num_warn := l_num_warn + 1;
7383: END IF;
7384:
7377: -- set warning for org
7378: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7379: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7380: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7381: WSH_UTIL_CORE.Add_Message(x_return_status);
7382: l_num_warn := l_num_warn + 1;
7383: END IF;
7384:
7385: IF p_auto_pack_ship = 'PS' THEN
7389: l_autopack_flag := 'Y';
7390: l_del_org_params_cache_tab(j).autopack_flag := l_autopack_flag;
7391:
7392: IF NVL(l_autopack_level,0) = 0 THEN
7393: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7394: -- set warning for org
7395: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7396: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7397: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7393: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_del_org);
7394: -- set warning for org
7395: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7396: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7397: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7398: WSH_UTIL_CORE.Add_Message(x_return_status);
7399: l_num_warn := l_num_warn + 1;
7400: END IF;
7401: END IF;
7394: -- set warning for org
7395: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7396: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7397: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7398: WSH_UTIL_CORE.Add_Message(x_return_status);
7399: l_num_warn := l_num_warn + 1;
7400: END IF;
7401: END IF;
7402: END IF;
7422: IF l_debug_on THEN
7423: wsh_Debug_sv.log(l_module_name, 'dynamic replenishment (WMS), Invalid batch Id', p_batch_id);
7424: WSH_DEBUG_SV.pop(l_module_name);
7425: END IF;
7426: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7427: CLOSE c_batch_info;
7428: RETURN;
7429: --}
7430: END IF;
7636:
7637: FETCH check_detail_for_SC into l_warn_org, l_ship_confirm_rule_id,
7638: l_autocreate_del_flag, l_pickconfirm_required;
7639: EXIT when check_detail_for_SC%NOTFOUND;
7640: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_warn_org);
7641: -- set warning for org
7642: IF l_ship_confirm_rule_id IS NULL THEN
7643: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7644: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7641: -- set warning for org
7642: IF l_ship_confirm_rule_id IS NULL THEN
7643: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7644: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7645: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7646: WSH_UTIL_CORE.Add_Message(x_return_status);
7647: l_num_warn := l_num_warn + 1;
7648: END IF;
7649: IF NVL(l_pickconfirm_required,0) <> 2 THEN
7642: IF l_ship_confirm_rule_id IS NULL THEN
7643: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SC_RULE_FOR_ORG');
7644: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7645: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7646: WSH_UTIL_CORE.Add_Message(x_return_status);
7647: l_num_warn := l_num_warn + 1;
7648: END IF;
7649: IF NVL(l_pickconfirm_required,0) <> 2 THEN
7650: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7648: END IF;
7649: IF NVL(l_pickconfirm_required,0) <> 2 THEN
7650: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7651: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7652: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7653: WSH_UTIL_CORE.Add_Message(x_return_status);
7654: l_num_warn := l_num_warn + 1;
7655: END IF;
7656: IF NVL(l_autocreate_del_flag, 'N') <> 'Y' THEN
7649: IF NVL(l_pickconfirm_required,0) <> 2 THEN
7650: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AUTOPICK_FOR_ORG');
7651: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7652: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7653: WSH_UTIL_CORE.Add_Message(x_return_status);
7654: l_num_warn := l_num_warn + 1;
7655: END IF;
7656: IF NVL(l_autocreate_del_flag, 'N') <> 'Y' THEN
7657: OPEN check_unassigned_dels(l_warn_org, l_batch_id);
7658: FETCH check_unassigned_dels INTO l_assigned;
7659: IF check_unassigned_dels%FOUND THEN
7660: FND_MESSAGE.SET_NAME('WSH','WSH_NO_DELS_FOR_ORG');
7661: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7662: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7663: WSH_UTIL_CORE.Add_Message(x_return_status);
7664: l_num_warn := l_num_warn + 1;
7665: END IF;
7666: CLOSE check_unassigned_dels;
7659: IF check_unassigned_dels%FOUND THEN
7660: FND_MESSAGE.SET_NAME('WSH','WSH_NO_DELS_FOR_ORG');
7661: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7662: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7663: WSH_UTIL_CORE.Add_Message(x_return_status);
7664: l_num_warn := l_num_warn + 1;
7665: END IF;
7666: CLOSE check_unassigned_dels;
7667: END IF;
7675: LOOP
7676: FETCH check_detail_for_AP into l_warn_org;
7677: EXIT when check_detail_for_AP%NOTFOUND;
7678: -- set message for org
7679: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_warn_org);
7680: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7681: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7682: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7683: WSH_UTIL_CORE.Add_Message(x_return_status);
7678: -- set message for org
7679: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_warn_org);
7680: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7681: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7682: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7683: WSH_UTIL_CORE.Add_Message(x_return_status);
7684: l_num_warn := l_num_warn + 1;
7685: END LOOP;
7686: IF check_detail_for_AP%isopen THEN
7679: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_warn_org);
7680: FND_MESSAGE.SET_NAME('WSH','WSH_NO_AP_LEVEL_FOR_ORG');
7681: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
7682: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7683: WSH_UTIL_CORE.Add_Message(x_return_status);
7684: l_num_warn := l_num_warn + 1;
7685: END LOOP;
7686: IF check_detail_for_AP%isopen THEN
7687: CLOSE check_detail_for_AP;
7699: p_log_level => l_log_level,
7700: p_num_workers => 1, -- Always 1
7701: p_commit => 'N');
7702: IF (x_request_ids(l_index) = 0) THEN
7703: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7704: FND_MESSAGE.SET_NAME('WSH','WSH_PR_LAUNCH_FAILED');
7705: FND_MESSAGE.SET_TOKEN('RELEASE_TYPE',l_type);
7706: FND_MESSAGE.SET_TOKEN('NAME',l_name);
7707: WSH_UTIL_CORE.Add_Message(x_return_status);
7703: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7704: FND_MESSAGE.SET_NAME('WSH','WSH_PR_LAUNCH_FAILED');
7705: FND_MESSAGE.SET_TOKEN('RELEASE_TYPE',l_type);
7706: FND_MESSAGE.SET_TOKEN('NAME',l_name);
7707: WSH_UTIL_CORE.Add_Message(x_return_status);
7708: l_count_fail := l_count_fail + 1;
7709: ELSE
7710: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7711: FND_MESSAGE.SET_NAME('WSH','WSH_PR_LAUNCH_SUCCESS');
7706: FND_MESSAGE.SET_TOKEN('NAME',l_name);
7707: WSH_UTIL_CORE.Add_Message(x_return_status);
7708: l_count_fail := l_count_fail + 1;
7709: ELSE
7710: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7711: FND_MESSAGE.SET_NAME('WSH','WSH_PR_LAUNCH_SUCCESS');
7712: --change for Bug#3379553
7713: -- FND_MESSAGE.SET_TOKEN('RELEASE_TYPE',l_type);
7714: -- FND_MESSAGE.SET_TOKEN('NAME',l_name);
7713: -- FND_MESSAGE.SET_TOKEN('RELEASE_TYPE',l_type);
7714: -- FND_MESSAGE.SET_TOKEN('NAME',l_name);
7715: --End of change for Bug#3379553
7716: FND_MESSAGE.SET_TOKEN('REQUEST_ID', to_char(x_request_ids(l_index)));
7717: WSH_UTIL_CORE.Add_Message(x_return_status);
7718: l_count_succ := l_count_succ + 1;
7719: END IF;
7720:
7721: IF l_trip_id IS NOT NULL THEN
7755: --}
7756: END LOOP;
7757:
7758: IF l_count_fail > 0 THEN
7759: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7760: END IF;
7761:
7762:
7763:
7764: -- Summary message
7765: FND_MESSAGE.SET_NAME('WSH','WSH_PR_LAUNCH_SUMMARY');
7766: FND_MESSAGE.SET_TOKEN('SUCCESS',to_char(l_count_succ));
7767: FND_MESSAGE.SET_TOKEN('FAIL',to_char(l_count_fail));
7768: WSH_UTIL_CORE.Add_Message(x_return_status);
7769:
7770: IF ((l_num_warn > 0) and (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
7771:
7772: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7766: FND_MESSAGE.SET_TOKEN('SUCCESS',to_char(l_count_succ));
7767: FND_MESSAGE.SET_TOKEN('FAIL',to_char(l_count_fail));
7768: WSH_UTIL_CORE.Add_Message(x_return_status);
7769:
7770: IF ((l_num_warn > 0) and (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
7771:
7772: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7773: FND_MESSAGE.SET_NAME('WSH','WSH_QS_LAUNCH_SUMMARY');
7774: WSH_UTIL_CORE.Add_Message(x_return_status);
7768: WSH_UTIL_CORE.Add_Message(x_return_status);
7769:
7770: IF ((l_num_warn > 0) and (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
7771:
7772: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7773: FND_MESSAGE.SET_NAME('WSH','WSH_QS_LAUNCH_SUMMARY');
7774: WSH_UTIL_CORE.Add_Message(x_return_status);
7775:
7776: END IF;
7770: IF ((l_num_warn > 0) and (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
7771:
7772: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7773: FND_MESSAGE.SET_NAME('WSH','WSH_QS_LAUNCH_SUMMARY');
7774: WSH_UTIL_CORE.Add_Message(x_return_status);
7775:
7776: END IF;
7777: --
7778: IF l_debug_on THEN
7795: CLOSE c_is_detail_assigned;
7796: END IF;
7797: --
7798:
7799: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7800: FND_MESSAGE.SET_NAME('WSH','WSH_PR_INVALID_DETAIL');
7801: FND_MESSAGE.SET_TOKEN('detail',to_char(l_detail_id));
7802: WSH_UTIL_CORE.Add_Message(x_return_status);
7803: --
7798:
7799: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7800: FND_MESSAGE.SET_NAME('WSH','WSH_PR_INVALID_DETAIL');
7801: FND_MESSAGE.SET_TOKEN('detail',to_char(l_detail_id));
7802: WSH_UTIL_CORE.Add_Message(x_return_status);
7803: --
7804: -- Debug Statements
7805: --
7806: IF l_debug_on THEN
7816: CLOSE c_is_detail_assigned;
7817: END IF;
7818: --
7819:
7820: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7821: FND_MESSAGE.SET_NAME('WSH','WSH_PR_INVALID_ENTITY');
7822: FND_MESSAGE.SET_TOKEN('entity_type',lower(l_type));
7823: IF l_type = 'Trip' THEN
7824: l_entity_id := l_trip_id;
7827: ELSIF l_type = 'Delivery' THEN
7828: l_entity_id := l_delivery_id;
7829: END IF;
7830: FND_MESSAGE.SET_TOKEN('entity_id',l_entity_id);
7831: WSH_UTIL_CORE.Add_Message(x_return_status);
7832: --
7833: -- Debug Statements
7834: --
7835: IF l_debug_on THEN
7845: CLOSE c_is_detail_assigned;
7846: END IF;
7847: --
7848:
7849: WSH_UTIL_CORE.Default_Handler('WSH_PICK_LIST.Launch_Pick_Release');
7850: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7851: IF check_detail_for_SC%ISOPEN THEN
7852: CLOSE check_detail_for_SC;
7853: END IF;
7846: END IF;
7847: --
7848:
7849: WSH_UTIL_CORE.Default_Handler('WSH_PICK_LIST.Launch_Pick_Release');
7850: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7851: IF check_detail_for_SC%ISOPEN THEN
7852: CLOSE check_detail_for_SC;
7853: END IF;
7854: IF check_detail_for_AP%ISOPEN THEN
8283: FND_MESSAGE.SET_NAME('WSH','WSH_NO_CALENDAR_DATE');
8284: FND_MESSAGE.SET_TOKEN('NAME',p_PickRule);
8285: FND_MESSAGE.SET_TOKEN('CALENDAR',p_CalCode);
8286: FND_MESSAGE.SET_TOKEN('WAREHOUSE',v_org_code);
8287: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8288: RAISE e_return;
8289: EXIT;
8290:
8291: --}