242: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
243: --
244: IF l_debug_on IS NULL THEN
245: --{
246: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
247: --}
248: END IF;
249: --
250: SAVEPOINT PICKING_BATCH_GRP;
254: -- Debug Statements
255: --
256: IF l_debug_on THEN
257: --{
258: wsh_debug_sv.push(l_module_name);
259: --
260: wsh_debug_sv.LOG(l_module_name, 'P_API_VERSION_NUMBER', p_api_version_number);
261: wsh_debug_sv.LOG(l_module_name, 'P_INIT_MSG_LIST', p_init_msg_list);
262: wsh_debug_sv.LOG(l_module_name, 'P_COMMIT', p_commit);
256: IF l_debug_on THEN
257: --{
258: wsh_debug_sv.push(l_module_name);
259: --
260: wsh_debug_sv.LOG(l_module_name, 'P_API_VERSION_NUMBER', p_api_version_number);
261: wsh_debug_sv.LOG(l_module_name, 'P_INIT_MSG_LIST', p_init_msg_list);
262: wsh_debug_sv.LOG(l_module_name, 'P_COMMIT', p_commit);
263: --}
264: END IF;
257: --{
258: wsh_debug_sv.push(l_module_name);
259: --
260: wsh_debug_sv.LOG(l_module_name, 'P_API_VERSION_NUMBER', p_api_version_number);
261: wsh_debug_sv.LOG(l_module_name, 'P_INIT_MSG_LIST', p_init_msg_list);
262: wsh_debug_sv.LOG(l_module_name, 'P_COMMIT', p_commit);
263: --}
264: END IF;
265:
258: wsh_debug_sv.push(l_module_name);
259: --
260: wsh_debug_sv.LOG(l_module_name, 'P_API_VERSION_NUMBER', p_api_version_number);
261: wsh_debug_sv.LOG(l_module_name, 'P_INIT_MSG_LIST', p_init_msg_list);
262: wsh_debug_sv.LOG(l_module_name, 'P_COMMIT', p_commit);
263: --}
264: END IF;
265:
266: IF NOT fnd_api.compatible_api_call(
289: -- Debug Statements
290: --
291: IF l_debug_on THEN
292: --{
293: wsh_debug_sv.log(l_module_name,'PROCESSING THE RULE INFORMATION'|| ' P_RULE_ID : ' || TO_CHAR( l_rule_id ) || ' P_RULE_NAME: '|| l_rule_name);
294: --}
295: END IF;
296: --
297: IF ( l_rule_id is NOT NULL AND l_rule_id <> FND_API.G_MISS_NUM ) OR ( l_rule_name is NOT NULL AND l_rule_name <> FND_API.G_MISS_CHAR ) THEN
311: -- Debug Statements
312: --
313: IF l_debug_on THEN
314: --{
315: WSH_DEBUG_SV.logmsg(l_module_name, 'FETCHING PICKING RULE INFO FOR THE GIVEN RULE ID AND RULE NAME' );
316: --}
317: END IF;
318: --
319: -- fetch Picking Rule Information for the given picking Rule Id
367: -- Debug Statements
368: --
369: IF l_debug_on THEN
370: --{
371: WSH_DEBUG_SV.logmsg(l_module_name, 'P_RULE_ID : ' || TO_CHAR( p_rule_id ) || 'P_RULE_NAME: '|| p_rule_name || ' DOES NOT EXIST.');
372: --}
373: END IF;
374: --
375: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
378: wsh_util_core.add_message(x_return_status);
379: CLOSE Get_Picking_Rule_Info;
380: IF l_debug_on THEN
381: --{
382: WSH_DEBUG_SV.pop(l_module_name);
383: --}
384: END IF;
385: --
386: return;
445: END IF;
446: IF ( ( l_batch_in_rec.client_Id IS NOT NULL) OR ( l_batch_in_rec.client_code IS NOT NULL) ) THEN
447: --{
448: IF l_debug_on THEN
449: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_DEPLOY.GET_CLIENT_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
450: END IF;
451: wms_deploy.get_client_details(
452: x_client_id => l_batch_in_rec.client_Id,
453: x_client_code => l_batch_in_rec.client_code,
453: x_client_code => l_batch_in_rec.client_code,
454: x_client_name => l_client_name,
455: x_return_status => l_return_status);
456: IF l_debug_on THEN
457: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
458: END IF;
459: --
460: wsh_util_core.api_post_call(
461: p_return_status => l_return_status,
495: --{
496:
497: IF l_debug_on THEN
498: --{
499: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_ORG',WSH_DEBUG_SV.C_PROC_LEVEL);
500: --}
501: END IF;
502: WSH_UTIL_VALIDATE.Validate_Org(
503: p_Org_id => l_batch_in_rec.Organization_Id,
505: x_return_status => l_return_status);
506:
507: IF l_debug_on THEN
508: --{
509: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
510: --}
511: END IF;
512: --
513: wsh_util_core.api_post_call(
521:
522: -- Bug# 3480908 - start - Checking whether the org is a WMS org
523: IF l_debug_on THEN
524: --{
525: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.Check_Wms_Org',WSH_DEBUG_SV.C_PROC_LEVEL);
526: --}
527: END IF;
528: l_is_WMS_org := WSH_UTIL_VALIDATE.Check_Wms_Org(
529: p_organization_id => l_batch_grp_rec.Organization_Id);
529: p_organization_id => l_batch_grp_rec.Organization_Id);
530:
531: IF l_debug_on THEN
532: --{
533: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
534: --}
535: END IF;
536: --
537: wsh_util_core.api_post_call(
569: IF ( l_batch_in_rec.Document_Set_Id IS NOT NULL) OR ( l_batch_in_rec.Document_Set_name IS NOT NULL) THEN
570: --{
571: IF l_debug_on THEN
572: --{
573: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_REPORT_SET',WSH_DEBUG_SV.C_PROC_LEVEL);
574: --}
575: END IF;
576: WSH_UTIL_VALIDATE.Validate_Report_Set(
577: p_report_set_id => l_batch_in_rec.Document_Set_Id,
579: x_return_status => l_return_status);
580:
581: IF l_debug_on THEN
582: --{
583: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
584: --}
585: END IF;
586: --
587: wsh_util_core.api_post_call(
617: IF ( l_batch_in_rec.Ship_Method_Code IS NOT NULL) OR ( l_batch_in_rec.Ship_Method_Name IS NOT NULL) THEN
618: --{
619: IF l_debug_on THEN
620: --{
621: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_SHIP_METHOD',WSH_DEBUG_SV.C_PROC_LEVEL);
622: --}
623: END IF;
624: WSH_UTIL_VALIDATE.Validate_Ship_Method(
625: p_ship_method_code => l_batch_in_rec.Ship_Method_Code,
627: x_return_status => l_return_status);
628:
629: IF l_debug_on THEN
630: --{
631: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
632: --}
633: END IF;
634: --
635: wsh_util_core.api_post_call(
665: IF ( ( l_batch_in_rec.Customer_Id IS NOT NULL) OR ( l_batch_in_rec.Customer_Number IS NOT NULL) ) THEN
666: --{
667: IF l_debug_on THEN
668: --{
669: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_CUSTOMER',WSH_DEBUG_SV.C_PROC_LEVEL);
670: --}
671: END IF;
672: WSH_UTIL_VALIDATE.Validate_Customer(
673: p_Customer_id => l_batch_in_rec.Customer_Id,
675: x_return_status => l_return_status);
676:
677: IF l_debug_on THEN
678: --{
679: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
680: --}
681: END IF;
682: --
683: wsh_util_core.api_post_call(
849: IF ( ( l_batch_in_rec.Ship_To_Location_Id IS NOT NULL) OR ( l_batch_in_rec.Ship_To_Location_code IS NOT NULL ) ) THEN
850: --{
851: IF l_debug_on THEN
852: --{
853: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_LOCATION',WSH_DEBUG_SV.C_PROC_LEVEL);
854: --}
855: END IF;
856: WSH_UTIL_VALIDATE.Validate_Location(
857: p_location_id => l_batch_in_rec.Ship_To_Location_Id,
860: p_isWshLocation => TRUE);
861:
862: IF l_debug_on THEN
863: --{
864: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
865: --}
866: END IF;
867: --
868: wsh_util_core.api_post_call(
901: IF ( ( l_batch_in_rec.Ship_From_Location_Id IS NOT NULL) OR ( l_batch_in_rec.Ship_From_Location_code IS NOT NULL ) ) THEN
902: --{
903: IF l_debug_on THEN
904: --{
905: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_LOCATION',WSH_DEBUG_SV.C_PROC_LEVEL);
906: --}
907: END IF;
908: WSH_UTIL_VALIDATE.Validate_Location(
909: p_location_id => l_batch_in_rec.Ship_From_Location_Id,
912: p_isWshLocation => TRUE);
913:
914: IF l_debug_on THEN
915: --{
916: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
917: --}
918: END IF;
919: --
920: wsh_util_core.api_post_call(
955: IF ( ( l_batch_in_rec.Trip_Id IS NOT NULL ) OR ( l_batch_in_rec.Trip_Name IS NOT NULL ) ) THEN
956: --{
957: IF l_debug_on THEN
958: --{
959: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_TRIP_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
960: --}
961: END IF;
962: WSH_UTIL_VALIDATE.Validate_Trip_Name(
963: p_trip_id => l_batch_in_rec.Trip_Id,
965: x_return_status => l_return_status);
966:
967: IF l_debug_on THEN
968: --{
969: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
970: --}
971: END IF;
972: --
973: wsh_util_core.api_post_call(
1004: IF ( ( l_batch_in_rec.Delivery_Id IS NOT NULL) OR ( l_batch_in_rec.Delivery_Name IS NOT NULL ) ) THEN
1005: --{
1006: IF l_debug_on THEN
1007: --{
1008: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_DELIVERY_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1009: --}
1010: END IF;
1011: WSH_UTIL_VALIDATE.Validate_Delivery_Name(
1012: p_delivery_id => l_batch_in_rec.Delivery_Id,
1014: x_return_status => l_return_status);
1015:
1016: IF l_debug_on THEN
1017: --{
1018: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1019: --}
1020: END IF;
1021: --
1022: wsh_util_core.api_post_call(
1066: IF ( ( l_batch_in_rec.Trip_Stop_Id IS NOT NULL ) OR ( l_batch_in_rec.trip_stop_location_id IS NOT NULL ) ) THEN
1067: --{
1068: IF l_debug_on THEN
1069: --{
1070: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_STOP_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1071: --}
1072: END IF;
1073: WSH_UTIL_VALIDATE.Validate_Stop_Name(
1074: p_stop_id => l_batch_in_rec.Trip_Stop_Id,
1078: x_return_status => l_return_status);
1079:
1080: IF l_debug_on THEN
1081: --{
1082: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1083: --}
1084: END IF;
1085: --
1086: wsh_util_core.api_post_call(
1120: IF ( ( l_batch_in_rec.pick_grouping_rule_Id IS NOT NULL) OR ( l_batch_in_rec.pick_grouping_rule_Name IS NOT NULL ) ) THEN
1121: --{
1122: IF l_debug_on THEN
1123: --{
1124: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_PICK_GROUP_RULE_NAMe',WSH_DEBUG_SV.C_PROC_LEVEL);
1125: --}
1126: END IF;
1127: WSH_UTIL_VALIDATE.Validate_Pick_Group_Rule_Name(
1128: p_pick_grouping_rule_id => l_batch_in_rec.pick_grouping_rule_Id,
1130: x_return_status => l_return_status);
1131:
1132: IF l_debug_on THEN
1133: --{
1134: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1135: --}
1136: END IF;
1137: --
1138: wsh_util_core.api_post_call(
1169: IF ( ( l_batch_in_rec.pick_sequence_rule_Id IS NOT NULL) OR ( l_batch_in_rec.pick_sequence_rule_Name IS NOT NULL ) ) THEN
1170: --{
1171: IF l_debug_on THEN
1172: --{
1173: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_PICK_SEQ_RULE_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1174: --}
1175: END IF;
1176: WSH_UTIL_VALIDATE.Validate_Pick_Seq_Rule_Name(
1177: p_pick_sequence_rule_id => l_batch_in_rec.pick_sequence_rule_Id,
1179: x_return_status => l_return_status);
1180:
1181: IF l_debug_on THEN
1182: --{
1183: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1184: --}
1185: END IF;
1186: --
1187: wsh_util_core.api_post_call(
1255: IF ( ( l_batch_in_rec.ship_confirm_rule_Id IS NOT NULL) OR ( l_batch_in_rec.ship_confirm_rule_Name IS NOT NULL ) ) THEN
1256: --{
1257: IF l_debug_on THEN
1258: --{
1259: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_SHIP_CON_RULE_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1260: --}
1261: END IF;
1262: WSH_UTIL_VALIDATE.Validate_Ship_Con_Rule_Name(
1263: p_ship_confirm_rule_id => l_batch_in_rec.ship_confirm_rule_Id,
1265: x_return_status => l_return_status);
1266:
1267: IF l_debug_on THEN
1268: --{
1269: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1270: --}
1271: END IF;
1272: --
1273: wsh_util_core.api_post_call(
1301: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1302: wsh_util_core.add_message(x_return_status);
1303: --
1304: IF l_debug_on THEN
1305: wsh_debug_sv.logmsg(l_module_name, 'Error - WSH_NO_ACTUAL_DEP_DATE');
1306: wsh_debug_sv.pop(l_module_name);
1307: END IF;
1308: --
1309: RETURN;
1302: wsh_util_core.add_message(x_return_status);
1303: --
1304: IF l_debug_on THEN
1305: wsh_debug_sv.logmsg(l_module_name, 'Error - WSH_NO_ACTUAL_DEP_DATE');
1306: wsh_debug_sv.pop(l_module_name);
1307: END IF;
1308: --
1309: RETURN;
1310: --
1354: IF ( ( l_batch_in_rec.Carrier_Id IS NOT NULL ) OR ( l_batch_in_rec.Carrier_Name IS NOT NULL ) ) THEN
1355: --{
1356: IF l_debug_on THEN
1357: --{
1358: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.VALIDATE_CARRIER',WSH_DEBUG_SV.C_PROC_LEVEL);
1359: --}
1360: END IF;
1361: WSH_UTIL_VALIDATE.Validate_Carrier(
1362: x_Carrier_id => l_batch_in_rec.Carrier_Id,
1364: x_return_status => l_return_status);
1365:
1366: IF l_debug_on THEN
1367: --{
1368: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1369: --}
1370: END IF;
1371: --
1372: wsh_util_core.api_post_call(
2266: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2267: wsh_util_core.add_message(x_return_status);
2268: --
2269: IF l_debug_on THEN
2270: WSH_DEBUG_SV.pop(l_module_name);
2271: END IF;
2272: --
2273: return;
2274: --}
2285: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2286: wsh_util_core.add_message(x_return_status, l_module_name);
2287: --
2288: IF l_debug_on THEN
2289: wsh_debug_sv.pop(l_module_name);
2290: END IF;
2291: --
2292: RETURN;
2293: --}
2299: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_APPEND_ORGANIZATION');
2300: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2301: wsh_util_core.add_message(x_return_status);
2302: IF l_debug_on THEN
2303: WSH_DEBUG_SV.pop(l_module_name);
2304: END IF;
2305: return;
2306: END IF;
2307:
2310: x_param_info => l_param_info,
2311: x_return_status => l_return_status);
2312:
2313: IF l_debug_on THEN
2314: wsh_debug_sv.logmsg(l_module_name, 'Return status from WSH_SHIPPING_PARAMS_PVT.Get is :'||l_return_status );
2315: END IF;
2316:
2317: wsh_util_core.api_post_call(
2318: p_return_status => l_return_status,
2326: FND_MESSAGE.SET_NAME('ORGANIZATION_NAME', WSH_UTIL_CORE.Get_Org_Name(l_batch_grp_rec.organization_id));
2327: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2328: wsh_util_core.add_message(x_return_status);
2329: IF l_debug_on THEN
2330: WSH_DEBUG_SV.pop(l_module_name);
2331: END IF;
2332: return;
2333: END IF;
2334:
2336: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_APPEND_AUTOCREATE_DEL');
2337: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2338: wsh_util_core.add_message(x_return_status);
2339: IF l_debug_on THEN
2340: WSH_DEBUG_SV.pop(l_module_name);
2341: END IF;
2342: return;
2343: END IF;
2344:
2346: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_APPEND_AC_DEL_CRITERIA');
2347: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2348: wsh_util_core.add_message(x_return_status);
2349: IF l_debug_on THEN
2350: WSH_DEBUG_SV.pop(l_module_name);
2351: END IF;
2352: return;
2353: END IF;
2354:
2356: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_APPEND_AUTO_PICK');
2357: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2358: wsh_util_core.add_message(x_return_status);
2359: IF l_debug_on THEN
2360: WSH_DEBUG_SV.pop(l_module_name);
2361: END IF;
2362: return;
2363: END IF;
2364:
2366: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_APPEND_AUTO_SHIP');
2367: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2368: wsh_util_core.add_message(x_return_status);
2369: IF l_debug_on THEN
2370: WSH_DEBUG_SV.pop(l_module_name);
2371: END IF;
2372: return;
2373: END IF;
2374:
2376: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_APPEND_AUTO_PACK');
2377: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2378: wsh_util_core.add_message(x_return_status);
2379: IF l_debug_on THEN
2380: WSH_DEBUG_SV.pop(l_module_name);
2381: END IF;
2382: return;
2383: END IF;
2384:
2387: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'APPEND_FLAG');
2388: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2389: wsh_util_core.add_message(x_return_status);
2390: IF l_debug_on THEN
2391: WSH_DEBUG_SV.pop(l_module_name);
2392: END IF;
2393: return;
2394: END IF;
2395: -- Bug 3463315 End of Append_Flag validation
2405: FND_MESSAGE.SET_NAME('WSH','WSH_ORG_SHIPFROM_NOT_COMP');
2406: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2407: wsh_util_core.add_message(x_return_status);
2408: IF l_debug_on THEN
2409: WSH_DEBUG_SV.pop(l_module_name);
2410: END IF;
2411: return;
2412: END IF;
2413: ELSIF l_batch_grp_rec.Organization_Id IS NOT NULL THEN
2435: FND_MESSAGE.SET_NAME('WSH','WSH_PR_NO_WAREHOUSE');
2436: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2437: wsh_util_core.add_message(x_return_status);
2438: IF l_debug_on THEN
2439: WSH_DEBUG_SV.pop(l_module_name);
2440: END IF;
2441: RETURN;
2442: ELSE --}{
2443: -- Warning if warehouse specified and others null
2514: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ALLOCATION_METHOD');
2515: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2516: wsh_util_core.add_message(x_return_status);
2517: IF l_debug_on THEN
2518: WSH_DEBUG_SV.pop(l_module_name);
2519: END IF;
2520: RETURN;
2521: ELSIF l_batch_grp_rec.crossdock_criteria_id IS NOT NULL AND
2522: l_batch_grp_rec.allocation_method IN (WSH_PICK_LIST.C_CROSSDOCK_ONLY,
2529: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_XDOCK_CRITERION');
2530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2531: wsh_util_core.add_message(x_return_status);
2532: IF l_debug_on THEN
2533: WSH_DEBUG_SV.pop(l_module_name);
2534: END IF;
2535: RETURN;
2536: END IF;
2537: ELSIF (l_batch_grp_rec.crossdock_criteria_id IS NOT NULL AND
2539: FND_MESSAGE.SET_NAME('WSH','WSH_XDOCK_INVALID_ALLOCMETHOD');
2540: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2541: wsh_util_core.add_message(x_return_status);
2542: IF l_debug_on THEN
2543: WSH_DEBUG_SV.pop(l_module_name);
2544: END IF;
2545: RETURN;
2546: -- Bug#7168917: Dynamic_replenish_flag value should not be 'Yes' when
2547: -- allocation method is 'Cross Dock Only' OR 'Prioritize Inventory'.
2551: FND_MESSAGE.SET_TOKEN('ATTRIBUTE', 'DYNAMIC_REPLENISHMENT_FLAG');
2552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2553: wsh_util_core.add_message(x_return_status);
2554: IF l_debug_on THEN
2555: WSH_DEBUG_SV.pop(l_module_name);
2556: END IF;
2557: RETURN;
2558: END IF;
2559: -- Bug #7505524:begin
2565: FND_MESSAGE.SET_NAME('WSH','WSH_XDOCK_INVALID_ALLOCMETHOD');
2566: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2567: wsh_util_core.add_message(x_return_status);
2568: IF l_debug_on THEN
2569: WSH_DEBUG_SV.pop(l_module_name);
2570: END IF;
2571: RETURN;
2572: END IF;
2573: -- End of ECO 4634966
2578: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ALLOCATION_METHOD');
2579: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2580: wsh_util_core.add_message(x_return_status);
2581: IF l_debug_on THEN
2582: WSH_DEBUG_SV.pop(l_module_name);
2583: END IF;
2584: RETURN;
2585: END IF;
2586: --}
2594: -- Calling the Private API to Create the Batch
2595:
2596: IF l_debug_on THEN
2597: --{
2598: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.INSERT_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
2599: --}
2600: END IF;
2601: --
2602: WSH_PICKING_BATCHES_PKG.Insert_Row(
2685: );
2686:
2687: IF l_debug_on THEN
2688: --{
2689: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2690: --}
2691: END IF;
2692: --
2693: wsh_util_core.api_post_call(
2713: );
2714:
2715: IF l_debug_on THEN
2716: --{
2717: WSH_DEBUG_SV.pop(l_module_name);
2718: --}
2719: END IF;
2720: --
2721: EXCEPTION
2731: );
2732:
2733: IF l_debug_on THEN
2734: --{
2735: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2736: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2737: --}
2738: END IF;
2739: --
2732:
2733: IF l_debug_on THEN
2734: --{
2735: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2736: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2737: --}
2738: END IF;
2739: --
2740:
2752: );
2753:
2754: IF l_debug_on THEN
2755: --{
2756: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_PUB_CONSOL_DEL_PR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2757: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_PUB_CONSOL_DEL_PR');
2758: --}
2759: END IF;
2760: --
2753:
2754: IF l_debug_on THEN
2755: --{
2756: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_PUB_CONSOL_DEL_PR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2757: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_PUB_CONSOL_DEL_PR');
2758: --}
2759: END IF;
2760: --
2761:
2772: --
2773:
2774: IF l_debug_on THEN
2775: --{
2776: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2777: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2778: --}
2779: END IF;
2780: WHEN OTHERS THEN
2773:
2774: IF l_debug_on THEN
2775: --{
2776: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2777: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2778: --}
2779: END IF;
2780: WHEN OTHERS THEN
2781: ROLLBACK TO PICKING_BATCH_GRP;
2789: );
2790:
2791: IF l_debug_on THEN
2792: --{
2793: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2794: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2795: --}
2796: END IF;
2797: --
2790:
2791: IF l_debug_on THEN
2792: --{
2793: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2794: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2795: --}
2796: END IF;
2797: --
2798: END Create_Batch;
2883: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2884: --
2885: IF l_debug_on IS NULL THEN
2886: --{
2887: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2888: --}
2889: END IF;
2890: --
2891: SAVEPOINT PICKING_BATCH_GRP;
2895: -- Debug Statements
2896: --
2897: IF l_debug_on THEN
2898: --{
2899: wsh_debug_sv.push(l_module_name);
2900: --
2901: wsh_debug_sv.LOG(l_module_name, 'P_API_VERSION_NUMER', p_api_version_number);
2902: wsh_debug_sv.LOG(l_module_name, 'P_INIT_MSG_LIST', p_init_msg_list);
2903: wsh_debug_sv.LOG(l_module_name, 'P_COMMIT', p_commit);
2897: IF l_debug_on THEN
2898: --{
2899: wsh_debug_sv.push(l_module_name);
2900: --
2901: wsh_debug_sv.LOG(l_module_name, 'P_API_VERSION_NUMER', p_api_version_number);
2902: wsh_debug_sv.LOG(l_module_name, 'P_INIT_MSG_LIST', p_init_msg_list);
2903: wsh_debug_sv.LOG(l_module_name, 'P_COMMIT', p_commit);
2904: --wsh_debug_sv.LOG(l_module_name, 'P_NUM_WORKERS', p_num_workers); -- Bug # 7505524.
2905: --}
2898: --{
2899: wsh_debug_sv.push(l_module_name);
2900: --
2901: wsh_debug_sv.LOG(l_module_name, 'P_API_VERSION_NUMER', p_api_version_number);
2902: wsh_debug_sv.LOG(l_module_name, 'P_INIT_MSG_LIST', p_init_msg_list);
2903: wsh_debug_sv.LOG(l_module_name, 'P_COMMIT', p_commit);
2904: --wsh_debug_sv.LOG(l_module_name, 'P_NUM_WORKERS', p_num_workers); -- Bug # 7505524.
2905: --}
2906: END IF;
2899: wsh_debug_sv.push(l_module_name);
2900: --
2901: wsh_debug_sv.LOG(l_module_name, 'P_API_VERSION_NUMER', p_api_version_number);
2902: wsh_debug_sv.LOG(l_module_name, 'P_INIT_MSG_LIST', p_init_msg_list);
2903: wsh_debug_sv.LOG(l_module_name, 'P_COMMIT', p_commit);
2904: --wsh_debug_sv.LOG(l_module_name, 'P_NUM_WORKERS', p_num_workers); -- Bug # 7505524.
2905: --}
2906: END IF;
2907:
2900: --
2901: wsh_debug_sv.LOG(l_module_name, 'P_API_VERSION_NUMER', p_api_version_number);
2902: wsh_debug_sv.LOG(l_module_name, 'P_INIT_MSG_LIST', p_init_msg_list);
2903: wsh_debug_sv.LOG(l_module_name, 'P_COMMIT', p_commit);
2904: --wsh_debug_sv.LOG(l_module_name, 'P_NUM_WORKERS', p_num_workers); -- Bug # 7505524.
2905: --}
2906: END IF;
2907:
2908: IF NOT fnd_api.compatible_api_call(
2950: x_return_status => l_return_status);
2951:
2952: IF l_debug_on THEN
2953: --{
2954: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2955: --}
2956: END IF;
2957: --
2958: wsh_util_core.api_post_call(
2996: x_return_status => l_return_status);
2997:
2998: IF l_debug_on THEN
2999: --{
3000: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3001: --}
3002: END IF;
3003: --
3004: wsh_util_core.api_post_call(
3019: l_num_workers := NVL(FND_PROFILE.Value('WSH_PR_NUM_WORKERS'), 1);
3020:
3021: IF l_debug_on THEN
3022: --{
3023: WSH_DEBUG_SV.log(l_module_name,'l_num_workers',l_num_workers);
3024: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.SUBMIT_RELEASE_REQUEST',WSH_DEBUG_SV.C_PROC_LEVEL);
3025: --}
3026: END IF;
3027: --
3020:
3021: IF l_debug_on THEN
3022: --{
3023: WSH_DEBUG_SV.log(l_module_name,'l_num_workers',l_num_workers);
3024: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.SUBMIT_RELEASE_REQUEST',WSH_DEBUG_SV.C_PROC_LEVEL);
3025: --}
3026: END IF;
3027: --
3028: x_request_id := WSH_PICKING_BATCHES_PKG.Submit_Release_Request(
3030: p_log_level => l_log_level,
3031: p_num_workers => l_num_workers); -- bug # 7505524
3032: IF l_debug_on THEN
3033: --{
3034: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3035: --}
3036: END IF;
3037: --
3038: wsh_util_core.api_post_call(
3054:
3055: ELSE
3056: IF l_debug_on THEN
3057: --{
3058: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.ONLINE_RELEASE',WSH_DEBUG_SV.C_PROC_LEVEL);
3059: --}
3060: END IF;
3061: --
3062: WSH_PICK_LIST.Online_Release(
3066: p_pick_skip => l_pick_skip);
3067:
3068: IF l_debug_on THEN
3069: --{
3070: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3071: --}
3072: END IF;
3073: --
3074: wsh_util_core.api_post_call(
3118:
3119:
3120: IF l_debug_on THEN
3121: --{
3122: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3123: --}
3124: END IF;
3125: --
3126: wsh_util_core.api_post_call(
3144: );
3145:
3146: IF l_debug_on THEN
3147: --{
3148: WSH_DEBUG_SV.pop(l_module_name);
3149: --}
3150: END IF;
3151: --
3152: EXCEPTION
3162: );
3163:
3164: IF l_debug_on THEN
3165: --{
3166: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3167: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3168: --}
3169: END IF;
3170: --
3163:
3164: IF l_debug_on THEN
3165: --{
3166: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3167: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3168: --}
3169: END IF;
3170: --
3171:
3182: --
3183:
3184: IF l_debug_on THEN
3185: --{
3186: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3187: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3188: --}
3189: END IF;
3190: WHEN OTHERS THEN
3183:
3184: IF l_debug_on THEN
3185: --{
3186: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3187: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3188: --}
3189: END IF;
3190: WHEN OTHERS THEN
3191: ROLLBACK TO PICKING_BATCH_GRP;
3199: );
3200:
3201: IF l_debug_on THEN
3202: --{
3203: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3204: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3205: --}
3206: END IF;
3207: --
3200:
3201: IF l_debug_on THEN
3202: --{
3203: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3204: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3205: --}
3206: END IF;
3207: --
3208: END Release_Batch;
3291: --
3292: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3293: --
3294: IF l_debug_on IS NULL THEN
3295: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3296: END IF;
3297: --
3298: savepoint create_batch;
3299: IF l_debug_on THEN
3296: END IF;
3297: --
3298: savepoint create_batch;
3299: IF l_debug_on THEN
3300: WSH_DEBUG_SV.push(l_module_name);
3301: l_log_level := 1;
3302: wsh_debug_sv.LOG(l_module_name, 'p_release_mode', p_release_mode);
3303: wsh_debug_sv.LOG(l_module_name, 'p_pick_wave_header_id', p_pick_wave_header_id);
3304: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_GRP.Create_Batch',WSH_DEBUG_SV.C_PROC_LEVEL);
3298: savepoint create_batch;
3299: IF l_debug_on THEN
3300: WSH_DEBUG_SV.push(l_module_name);
3301: l_log_level := 1;
3302: wsh_debug_sv.LOG(l_module_name, 'p_release_mode', p_release_mode);
3303: wsh_debug_sv.LOG(l_module_name, 'p_pick_wave_header_id', p_pick_wave_header_id);
3304: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_GRP.Create_Batch',WSH_DEBUG_SV.C_PROC_LEVEL);
3305: END IF;
3306: --pass delivery detail id as -1 as dd's are getting updated with batch id.
3299: IF l_debug_on THEN
3300: WSH_DEBUG_SV.push(l_module_name);
3301: l_log_level := 1;
3302: wsh_debug_sv.LOG(l_module_name, 'p_release_mode', p_release_mode);
3303: wsh_debug_sv.LOG(l_module_name, 'p_pick_wave_header_id', p_pick_wave_header_id);
3304: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_GRP.Create_Batch',WSH_DEBUG_SV.C_PROC_LEVEL);
3305: END IF;
3306: --pass delivery detail id as -1 as dd's are getting updated with batch id.
3307: l_batch_rec := p_batch_rec;
3300: WSH_DEBUG_SV.push(l_module_name);
3301: l_log_level := 1;
3302: wsh_debug_sv.LOG(l_module_name, 'p_release_mode', p_release_mode);
3303: wsh_debug_sv.LOG(l_module_name, 'p_pick_wave_header_id', p_pick_wave_header_id);
3304: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_GRP.Create_Batch',WSH_DEBUG_SV.C_PROC_LEVEL);
3305: END IF;
3306: --pass delivery detail id as -1 as dd's are getting updated with batch id.
3307: l_batch_rec := p_batch_rec;
3308: l_batch_rec.Delivery_Detail_Id := -1;
3314: x_msg_count => x_msg_count,
3315: x_msg_data => x_msg_data
3316: );
3317: IF l_debug_on THEN
3318: wsh_debug_sv.LOG(l_module_name, 'WSH_PICKING_BATCHES_GRP.Create_Batch return status', l_return_status);
3319: wsh_debug_sv.LOG(l_module_name, 'l_batch_id', l_batch_id);
3320: END IF;
3321: --
3322: IF NVL(l_batch_id,0) = 0 OR l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3315: x_msg_data => x_msg_data
3316: );
3317: IF l_debug_on THEN
3318: wsh_debug_sv.LOG(l_module_name, 'WSH_PICKING_BATCHES_GRP.Create_Batch return status', l_return_status);
3319: wsh_debug_sv.LOG(l_module_name, 'l_batch_id', l_batch_id);
3320: END IF;
3321: --
3322: IF NVL(l_batch_id,0) = 0 OR l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3323: --{
3329: --}
3330: END IF;
3331: x_batch_id := NULL;
3332: IF l_debug_on THEN
3333: WSH_DEBUG_SV.pop(l_module_name);
3334: END IF;
3335: RETURN;
3336: --}
3337: END IF;
3361: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
3362: l_num_errors := l_num_errors + 1;
3363: --
3364: IF l_debug_on THEN
3365: WSH_DEBUG_SV.log(l_module_name,'Unable to obtain lock on the Delivery Detail Id',l_dd_tbl(i));
3366: END IF;
3367: --
3368: WHEN others THEN
3369: rollback to lock_delivery_detail_loop;
3380: last_update_login = fnd_global.login_id
3381: WHERE delivery_detail_id = l_dd_upd_tbl(i);
3382: l_tot_upd_dds := l_tot_upd_dds + sql%rowcount;
3383: IF l_debug_on THEN
3384: wsh_debug_sv.LOG(l_module_name, 'SQl updated',sql%rowcount);
3385: END IF;
3386: --}
3387: END LOOP;
3388: --
3388: --
3389: CLOSE c_get_dds_for_wave;
3390: --
3391: IF l_debug_on THEN
3392: wsh_debug_sv.LOG(l_module_name, 'Total number of delivery details selected',l_tot_fetch);
3393: wsh_debug_sv.LOG(l_module_name, 'Total number of delivery details selected after locking',l_tot_upd_dds);
3394: END IF;
3395: IF l_tot_fetch = 0 THEN
3396: --{
3389: CLOSE c_get_dds_for_wave;
3390: --
3391: IF l_debug_on THEN
3392: wsh_debug_sv.LOG(l_module_name, 'Total number of delivery details selected',l_tot_fetch);
3393: wsh_debug_sv.LOG(l_module_name, 'Total number of delivery details selected after locking',l_tot_upd_dds);
3394: END IF;
3395: IF l_tot_fetch = 0 THEN
3396: --{
3397: IF l_debug_on THEN
3394: END IF;
3395: IF l_tot_fetch = 0 THEN
3396: --{
3397: IF l_debug_on THEN
3398: wsh_debug_sv.LOG(l_module_name, 'There are no eligible delivery lines for the pick release',l_tot_fetch);
3399: END IF;
3400: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3401: RETURN;
3402: --}
3403: END IF;
3404: IF l_tot_upd_dds < l_tot_fetch THEN
3405: --{
3406: IF l_debug_on THEN
3407: wsh_debug_sv.LOG(l_module_name, 'Number of delivery detail lines failed while locking',l_tot_fetch-l_tot_upd_dds);
3408: END IF;
3409: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3410: --}
3411: END IF;
3414: -- Call the pick release code only if there are one or more pick release eligible delivery lines.
3415: IF (l_tot_upd_dds > 0) THEN
3416: --{
3417: IF l_debug_on THEN
3418: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PUB.RELEASE_BATCH',WSH_DEBUG_SV.C_PROC_LEVEL);
3419: END IF;
3420: --
3421: WSH_PICKING_BATCHES_GRP.release_batch(
3422: p_api_version_number => 1.1,
3427: x_msg_count => x_msg_count,
3428: x_msg_data => x_msg_data,
3429: x_request_id => l_request_id);
3430: IF l_debug_on THEN
3431: wsh_debug_sv.LOG(l_module_name, 'WSH_PICKING_BATCHES_GRP.release_batch return status:', l_return_status);
3432: wsh_debug_sv.LOG(l_module_name, 'pick release concurrent req.id:',l_request_id);
3433: END IF;
3434: IF ((l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING))
3435: AND ( p_release_mode='ONLINE' OR nvl(l_request_id,0) = 0 )) THEN
3428: x_msg_data => x_msg_data,
3429: x_request_id => l_request_id);
3430: IF l_debug_on THEN
3431: wsh_debug_sv.LOG(l_module_name, 'WSH_PICKING_BATCHES_GRP.release_batch return status:', l_return_status);
3432: wsh_debug_sv.LOG(l_module_name, 'pick release concurrent req.id:',l_request_id);
3433: END IF;
3434: IF ((l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING))
3435: AND ( p_release_mode='ONLINE' OR nvl(l_request_id,0) = 0 )) THEN
3436: --{
3450: --}
3451: END IF;
3452: --
3453: IF l_debug_on THEN
3454: WSH_DEBUG_SV.pop(l_module_name);
3455: END IF;
3456:
3457: EXCEPTION
3458: WHEN Others THEN
3465: --
3466: -- Debug Statements
3467: --
3468: IF l_debug_on THEN
3469: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3470: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3471: END IF;
3472: --
3473: END release_wms_wave;
3466: -- Debug Statements
3467: --
3468: IF l_debug_on THEN
3469: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3470: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3471: END IF;
3472: --
3473: END release_wms_wave;
3474: