[Home] [Help]
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;
126: END IF;
127:
128: IF l_debug_on THEN
129: WSH_DEBUG_SV.push(l_module_name);
125: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
126: END IF;
127:
128: IF l_debug_on THEN
129: WSH_DEBUG_SV.push(l_module_name);
130: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
131: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID ',P_WORKER_ID);
132: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.INIT',WSH_DEBUG_SV.C_PROC_LEVEL);
133: END IF;
126: END IF;
127:
128: IF l_debug_on THEN
129: WSH_DEBUG_SV.push(l_module_name);
130: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
131: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID ',P_WORKER_ID);
132: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.INIT',WSH_DEBUG_SV.C_PROC_LEVEL);
133: END IF;
134:
127:
128: IF l_debug_on THEN
129: WSH_DEBUG_SV.push(l_module_name);
130: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
131: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID ',P_WORKER_ID);
132: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.INIT',WSH_DEBUG_SV.C_PROC_LEVEL);
133: END IF;
134:
135: WSH_PR_CRITERIA.Init( p_batch_id => p_batch_id,
128: IF l_debug_on THEN
129: WSH_DEBUG_SV.push(l_module_name);
130: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
131: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID ',P_WORKER_ID);
132: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.INIT',WSH_DEBUG_SV.C_PROC_LEVEL);
133: END IF;
134:
135: WSH_PR_CRITERIA.Init( p_batch_id => p_batch_id,
136: p_worker_id => p_worker_id,
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;
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');
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;
151: --
152: RETURN; -- back to calling API
153: END IF;
163: WHERE WRS.NAME = 'Pick Slip Report'
164: AND WRS.REPORT_SET_ID = WRSL.REPORT_SET_ID ;
165: --
166: IF l_debug_on THEN
167: WSH_DEBUG_SV.logmsg(l_module_name, 'SEEDED PICK RELEASE DOCUMENT SET IS '||WSH_PICK_LIST.G_SEED_DOC_SET );
168: END IF;
169: --
170: EXCEPTION
171: --
173: --
174: WSH_PICK_LIST.G_SEED_DOC_SET := NULL;
175: --
176: IF l_debug_on THEN
177: WSH_DEBUG_SV.logmsg(l_module_name, 'SEEDED PICK RELEASE DOCUMENT SET NOT FOUND');
178: END IF;
179: --
180: WHEN TOO_MANY_ROWS THEN
181: --
181: --
182: WSH_PICK_LIST.G_SEED_DOC_SET := NULL;
183: --
184: IF l_debug_on THEN
185: WSH_DEBUG_SV.logmsg(l_module_name, 'SEEDED PICK RELEASE DOCUMENT SET HAS > 1 REPORT. IGNORING...');
186: END IF;
187: END; --}
188:
189: -- X-dock, populate the package globals
189: -- X-dock, populate the package globals
190: g_allocation_method := WSH_PR_CRITERIA.g_allocation_method;
191:
192: IF l_debug_on THEN
193: WSH_DEBUG_SV.pop(l_module_name);
194: END IF;
195:
196: EXCEPTION
197: --
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');
204: END IF;
205: --
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');
204: END IF;
205: --
206: END Init_Pick_Release;
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');
204: END IF;
205: --
206: END Init_Pick_Release;
207:
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;
248: END IF;
249:
250: IF l_debug_on THEN
251: WSH_DEBUG_SV.push(l_module_name);
247: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
248: END IF;
249:
250: IF l_debug_on THEN
251: WSH_DEBUG_SV.push(l_module_name);
252: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID ',P_ORGANIZATION_ID);
253: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get',WSH_DEBUG_SV.C_PROC_LEVEL);
254: END IF;
255:
248: END IF;
249:
250: IF l_debug_on THEN
251: WSH_DEBUG_SV.push(l_module_name);
252: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID ',P_ORGANIZATION_ID);
253: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get',WSH_DEBUG_SV.C_PROC_LEVEL);
254: END IF;
255:
256: -- 10. Getting Organization Parameters
249:
250: IF l_debug_on THEN
251: WSH_DEBUG_SV.push(l_module_name);
252: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID ',P_ORGANIZATION_ID);
253: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get',WSH_DEBUG_SV.C_PROC_LEVEL);
254: END IF;
255:
256: -- 10. Getting Organization Parameters
257: WSH_SHIPPING_PARAMS_PVT.Get(
259: x_param_info => l_param_info,
260: x_return_status => x_return_status);
261:
262: IF l_debug_on THEN
263: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling WSH_SHIPPING_PARAMS_PVT.Get',x_return_status);
264: END IF;
265:
266: -- 20. Using NVL function for possible null values
267: l_param_info.PRINT_PICK_SLIP_MODE := NVL(l_param_info.PRINT_PICK_SLIP_MODE, 'E');
277: FETCH get_default_confirm INTO l_default_pickconfirm;
278: CLOSE get_default_confirm;
279:
280: IF l_debug_on THEN
281: WSH_DEBUG_SV.log(l_module_name, 'DEFAULTS FOR ORGANIZATION', P_ORGANIZATION_ID);
282: WSH_DEBUG_SV.log(l_module_name, ' PICK SLIP MODE', L_PARAM_INFO.PRINT_PICK_SLIP_MODE);
283: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', L_PARAM_INFO.AUTODETAIL_PR_FLAG);
284: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', L_DEFAULT_PICKCONFIRM);
285: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DEL', L_PARAM_INFO.AUTOCREATE_DELIVERIES_FLAG);
278: CLOSE get_default_confirm;
279:
280: IF l_debug_on THEN
281: WSH_DEBUG_SV.log(l_module_name, 'DEFAULTS FOR ORGANIZATION', P_ORGANIZATION_ID);
282: WSH_DEBUG_SV.log(l_module_name, ' PICK SLIP MODE', L_PARAM_INFO.PRINT_PICK_SLIP_MODE);
283: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', L_PARAM_INFO.AUTODETAIL_PR_FLAG);
284: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', L_DEFAULT_PICKCONFIRM);
285: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DEL', L_PARAM_INFO.AUTOCREATE_DELIVERIES_FLAG);
286: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', L_PARAM_INFO.DEFAULT_STAGE_SUBINVENTORY);
279:
280: IF l_debug_on THEN
281: WSH_DEBUG_SV.log(l_module_name, 'DEFAULTS FOR ORGANIZATION', P_ORGANIZATION_ID);
282: WSH_DEBUG_SV.log(l_module_name, ' PICK SLIP MODE', L_PARAM_INFO.PRINT_PICK_SLIP_MODE);
283: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', L_PARAM_INFO.AUTODETAIL_PR_FLAG);
284: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', L_DEFAULT_PICKCONFIRM);
285: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DEL', L_PARAM_INFO.AUTOCREATE_DELIVERIES_FLAG);
286: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', L_PARAM_INFO.DEFAULT_STAGE_SUBINVENTORY);
287: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', L_PARAM_INFO.DEFAULT_STAGE_LOCATOR_ID);
280: IF l_debug_on THEN
281: WSH_DEBUG_SV.log(l_module_name, 'DEFAULTS FOR ORGANIZATION', P_ORGANIZATION_ID);
282: WSH_DEBUG_SV.log(l_module_name, ' PICK SLIP MODE', L_PARAM_INFO.PRINT_PICK_SLIP_MODE);
283: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', L_PARAM_INFO.AUTODETAIL_PR_FLAG);
284: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', L_DEFAULT_PICKCONFIRM);
285: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DEL', L_PARAM_INFO.AUTOCREATE_DELIVERIES_FLAG);
286: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', L_PARAM_INFO.DEFAULT_STAGE_SUBINVENTORY);
287: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', L_PARAM_INFO.DEFAULT_STAGE_LOCATOR_ID);
288: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', L_PARAM_INFO.PICK_SEQUENCE_RULE_ID);
281: WSH_DEBUG_SV.log(l_module_name, 'DEFAULTS FOR ORGANIZATION', P_ORGANIZATION_ID);
282: WSH_DEBUG_SV.log(l_module_name, ' PICK SLIP MODE', L_PARAM_INFO.PRINT_PICK_SLIP_MODE);
283: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', L_PARAM_INFO.AUTODETAIL_PR_FLAG);
284: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', L_DEFAULT_PICKCONFIRM);
285: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DEL', L_PARAM_INFO.AUTOCREATE_DELIVERIES_FLAG);
286: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', L_PARAM_INFO.DEFAULT_STAGE_SUBINVENTORY);
287: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', L_PARAM_INFO.DEFAULT_STAGE_LOCATOR_ID);
288: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', L_PARAM_INFO.PICK_SEQUENCE_RULE_ID);
289: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', L_PARAM_INFO.PICK_GROUPING_RULE_ID);
282: WSH_DEBUG_SV.log(l_module_name, ' PICK SLIP MODE', L_PARAM_INFO.PRINT_PICK_SLIP_MODE);
283: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', L_PARAM_INFO.AUTODETAIL_PR_FLAG);
284: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', L_DEFAULT_PICKCONFIRM);
285: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DEL', L_PARAM_INFO.AUTOCREATE_DELIVERIES_FLAG);
286: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', L_PARAM_INFO.DEFAULT_STAGE_SUBINVENTORY);
287: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', L_PARAM_INFO.DEFAULT_STAGE_LOCATOR_ID);
288: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', L_PARAM_INFO.PICK_SEQUENCE_RULE_ID);
289: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', L_PARAM_INFO.PICK_GROUPING_RULE_ID);
290: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', L_PARAM_INFO.ENFORCE_SHIP_SET_AND_SMC);
283: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', L_PARAM_INFO.AUTODETAIL_PR_FLAG);
284: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', L_DEFAULT_PICKCONFIRM);
285: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DEL', L_PARAM_INFO.AUTOCREATE_DELIVERIES_FLAG);
286: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', L_PARAM_INFO.DEFAULT_STAGE_SUBINVENTORY);
287: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', L_PARAM_INFO.DEFAULT_STAGE_LOCATOR_ID);
288: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', L_PARAM_INFO.PICK_SEQUENCE_RULE_ID);
289: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', L_PARAM_INFO.PICK_GROUPING_RULE_ID);
290: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', L_PARAM_INFO.ENFORCE_SHIP_SET_AND_SMC);
291: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', L_PARAM_INFO.PICK_RELEASE_REPORT_SET_ID);
284: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', L_DEFAULT_PICKCONFIRM);
285: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DEL', L_PARAM_INFO.AUTOCREATE_DELIVERIES_FLAG);
286: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', L_PARAM_INFO.DEFAULT_STAGE_SUBINVENTORY);
287: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', L_PARAM_INFO.DEFAULT_STAGE_LOCATOR_ID);
288: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', L_PARAM_INFO.PICK_SEQUENCE_RULE_ID);
289: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', L_PARAM_INFO.PICK_GROUPING_RULE_ID);
290: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', L_PARAM_INFO.ENFORCE_SHIP_SET_AND_SMC);
291: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', L_PARAM_INFO.PICK_RELEASE_REPORT_SET_ID);
292: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', L_PARAM_INFO.TASK_PLANNING_FLAG);
285: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DEL', L_PARAM_INFO.AUTOCREATE_DELIVERIES_FLAG);
286: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', L_PARAM_INFO.DEFAULT_STAGE_SUBINVENTORY);
287: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', L_PARAM_INFO.DEFAULT_STAGE_LOCATOR_ID);
288: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', L_PARAM_INFO.PICK_SEQUENCE_RULE_ID);
289: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', L_PARAM_INFO.PICK_GROUPING_RULE_ID);
290: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', L_PARAM_INFO.ENFORCE_SHIP_SET_AND_SMC);
291: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', L_PARAM_INFO.PICK_RELEASE_REPORT_SET_ID);
292: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', L_PARAM_INFO.TASK_PLANNING_FLAG);
293: WSH_DEBUG_SV.log(l_module_name, ' Use Header Flag', L_PARAM_INFO.AUTOCREATE_DEL_ORDERS_FLAG);
286: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', L_PARAM_INFO.DEFAULT_STAGE_SUBINVENTORY);
287: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', L_PARAM_INFO.DEFAULT_STAGE_LOCATOR_ID);
288: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', L_PARAM_INFO.PICK_SEQUENCE_RULE_ID);
289: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', L_PARAM_INFO.PICK_GROUPING_RULE_ID);
290: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', L_PARAM_INFO.ENFORCE_SHIP_SET_AND_SMC);
291: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', L_PARAM_INFO.PICK_RELEASE_REPORT_SET_ID);
292: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', L_PARAM_INFO.TASK_PLANNING_FLAG);
293: WSH_DEBUG_SV.log(l_module_name, ' Use Header Flag', L_PARAM_INFO.AUTOCREATE_DEL_ORDERS_FLAG);
294: WSH_DEBUG_SV.log(l_module_name, ' Ship Confirm Rule ID', L_PARAM_INFO.SHIP_CONFIRM_RULE_ID);
287: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', L_PARAM_INFO.DEFAULT_STAGE_LOCATOR_ID);
288: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', L_PARAM_INFO.PICK_SEQUENCE_RULE_ID);
289: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', L_PARAM_INFO.PICK_GROUPING_RULE_ID);
290: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', L_PARAM_INFO.ENFORCE_SHIP_SET_AND_SMC);
291: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', L_PARAM_INFO.PICK_RELEASE_REPORT_SET_ID);
292: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', L_PARAM_INFO.TASK_PLANNING_FLAG);
293: WSH_DEBUG_SV.log(l_module_name, ' Use Header Flag', L_PARAM_INFO.AUTOCREATE_DEL_ORDERS_FLAG);
294: WSH_DEBUG_SV.log(l_module_name, ' Ship Confirm Rule ID', L_PARAM_INFO.SHIP_CONFIRM_RULE_ID);
295: WSH_DEBUG_SV.log(l_module_name, ' Append Flag', L_PARAM_INFO.APPENDING_LIMIT);
288: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', L_PARAM_INFO.PICK_SEQUENCE_RULE_ID);
289: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', L_PARAM_INFO.PICK_GROUPING_RULE_ID);
290: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', L_PARAM_INFO.ENFORCE_SHIP_SET_AND_SMC);
291: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', L_PARAM_INFO.PICK_RELEASE_REPORT_SET_ID);
292: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', L_PARAM_INFO.TASK_PLANNING_FLAG);
293: WSH_DEBUG_SV.log(l_module_name, ' Use Header Flag', L_PARAM_INFO.AUTOCREATE_DEL_ORDERS_FLAG);
294: WSH_DEBUG_SV.log(l_module_name, ' Ship Confirm Rule ID', L_PARAM_INFO.SHIP_CONFIRM_RULE_ID);
295: WSH_DEBUG_SV.log(l_module_name, ' Append Flag', L_PARAM_INFO.APPENDING_LIMIT);
296: WSH_DEBUG_SV.log(l_module_name, ' Auto Pack Level ', L_PARAM_INFO.AUTOPACK_LEVEL);
289: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', L_PARAM_INFO.PICK_GROUPING_RULE_ID);
290: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', L_PARAM_INFO.ENFORCE_SHIP_SET_AND_SMC);
291: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', L_PARAM_INFO.PICK_RELEASE_REPORT_SET_ID);
292: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', L_PARAM_INFO.TASK_PLANNING_FLAG);
293: WSH_DEBUG_SV.log(l_module_name, ' Use Header Flag', L_PARAM_INFO.AUTOCREATE_DEL_ORDERS_FLAG);
294: WSH_DEBUG_SV.log(l_module_name, ' Ship Confirm Rule ID', L_PARAM_INFO.SHIP_CONFIRM_RULE_ID);
295: WSH_DEBUG_SV.log(l_module_name, ' Append Flag', L_PARAM_INFO.APPENDING_LIMIT);
296: WSH_DEBUG_SV.log(l_module_name, ' Auto Pack Level ', L_PARAM_INFO.AUTOPACK_LEVEL);
297: WSH_DEBUG_SV.log(l_module_name, ' Auto Apply Routing Rules ', L_PARAM_INFO.AUTO_APPLY_ROUTING_RULES);
290: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', L_PARAM_INFO.ENFORCE_SHIP_SET_AND_SMC);
291: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', L_PARAM_INFO.PICK_RELEASE_REPORT_SET_ID);
292: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', L_PARAM_INFO.TASK_PLANNING_FLAG);
293: WSH_DEBUG_SV.log(l_module_name, ' Use Header Flag', L_PARAM_INFO.AUTOCREATE_DEL_ORDERS_FLAG);
294: WSH_DEBUG_SV.log(l_module_name, ' Ship Confirm Rule ID', L_PARAM_INFO.SHIP_CONFIRM_RULE_ID);
295: WSH_DEBUG_SV.log(l_module_name, ' Append Flag', L_PARAM_INFO.APPENDING_LIMIT);
296: WSH_DEBUG_SV.log(l_module_name, ' Auto Pack Level ', L_PARAM_INFO.AUTOPACK_LEVEL);
297: WSH_DEBUG_SV.log(l_module_name, ' Auto Apply Routing Rules ', L_PARAM_INFO.AUTO_APPLY_ROUTING_RULES);
298: WSH_DEBUG_SV.log(l_module_name, ' Auto Calculate Freight Rates after Delivery Creation '
291: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', L_PARAM_INFO.PICK_RELEASE_REPORT_SET_ID);
292: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', L_PARAM_INFO.TASK_PLANNING_FLAG);
293: WSH_DEBUG_SV.log(l_module_name, ' Use Header Flag', L_PARAM_INFO.AUTOCREATE_DEL_ORDERS_FLAG);
294: WSH_DEBUG_SV.log(l_module_name, ' Ship Confirm Rule ID', L_PARAM_INFO.SHIP_CONFIRM_RULE_ID);
295: WSH_DEBUG_SV.log(l_module_name, ' Append Flag', L_PARAM_INFO.APPENDING_LIMIT);
296: WSH_DEBUG_SV.log(l_module_name, ' Auto Pack Level ', L_PARAM_INFO.AUTOPACK_LEVEL);
297: WSH_DEBUG_SV.log(l_module_name, ' Auto Apply Routing Rules ', L_PARAM_INFO.AUTO_APPLY_ROUTING_RULES);
298: WSH_DEBUG_SV.log(l_module_name, ' Auto Calculate Freight Rates after Delivery Creation '
299: , L_PARAM_INFO.AUTO_CALC_FGT_RATE_CR_DEL);
292: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', L_PARAM_INFO.TASK_PLANNING_FLAG);
293: WSH_DEBUG_SV.log(l_module_name, ' Use Header Flag', L_PARAM_INFO.AUTOCREATE_DEL_ORDERS_FLAG);
294: WSH_DEBUG_SV.log(l_module_name, ' Ship Confirm Rule ID', L_PARAM_INFO.SHIP_CONFIRM_RULE_ID);
295: WSH_DEBUG_SV.log(l_module_name, ' Append Flag', L_PARAM_INFO.APPENDING_LIMIT);
296: WSH_DEBUG_SV.log(l_module_name, ' Auto Pack Level ', L_PARAM_INFO.AUTOPACK_LEVEL);
297: WSH_DEBUG_SV.log(l_module_name, ' Auto Apply Routing Rules ', L_PARAM_INFO.AUTO_APPLY_ROUTING_RULES);
298: WSH_DEBUG_SV.log(l_module_name, ' Auto Calculate Freight Rates after Delivery Creation '
299: , L_PARAM_INFO.AUTO_CALC_FGT_RATE_CR_DEL);
300: --bug# 6689448 (replenishment project)
293: WSH_DEBUG_SV.log(l_module_name, ' Use Header Flag', L_PARAM_INFO.AUTOCREATE_DEL_ORDERS_FLAG);
294: WSH_DEBUG_SV.log(l_module_name, ' Ship Confirm Rule ID', L_PARAM_INFO.SHIP_CONFIRM_RULE_ID);
295: WSH_DEBUG_SV.log(l_module_name, ' Append Flag', L_PARAM_INFO.APPENDING_LIMIT);
296: WSH_DEBUG_SV.log(l_module_name, ' Auto Pack Level ', L_PARAM_INFO.AUTOPACK_LEVEL);
297: WSH_DEBUG_SV.log(l_module_name, ' Auto Apply Routing Rules ', L_PARAM_INFO.AUTO_APPLY_ROUTING_RULES);
298: WSH_DEBUG_SV.log(l_module_name, ' Auto Calculate Freight Rates after Delivery Creation '
299: , L_PARAM_INFO.AUTO_CALC_FGT_RATE_CR_DEL);
300: --bug# 6689448 (replenishment project)
301: WSH_DEBUG_SV.log(l_module_name, 'dynamic replenishment flag', L_PARAM_INFO.DYNAMIC_REPLENISHMENT_FLAG);
294: WSH_DEBUG_SV.log(l_module_name, ' Ship Confirm Rule ID', L_PARAM_INFO.SHIP_CONFIRM_RULE_ID);
295: WSH_DEBUG_SV.log(l_module_name, ' Append Flag', L_PARAM_INFO.APPENDING_LIMIT);
296: WSH_DEBUG_SV.log(l_module_name, ' Auto Pack Level ', L_PARAM_INFO.AUTOPACK_LEVEL);
297: WSH_DEBUG_SV.log(l_module_name, ' Auto Apply Routing Rules ', L_PARAM_INFO.AUTO_APPLY_ROUTING_RULES);
298: WSH_DEBUG_SV.log(l_module_name, ' Auto Calculate Freight Rates after Delivery Creation '
299: , L_PARAM_INFO.AUTO_CALC_FGT_RATE_CR_DEL);
300: --bug# 6689448 (replenishment project)
301: WSH_DEBUG_SV.log(l_module_name, 'dynamic replenishment flag', L_PARAM_INFO.DYNAMIC_REPLENISHMENT_FLAG);
302: END IF;
297: WSH_DEBUG_SV.log(l_module_name, ' Auto Apply Routing Rules ', L_PARAM_INFO.AUTO_APPLY_ROUTING_RULES);
298: WSH_DEBUG_SV.log(l_module_name, ' Auto Calculate Freight Rates after Delivery Creation '
299: , L_PARAM_INFO.AUTO_CALC_FGT_RATE_CR_DEL);
300: --bug# 6689448 (replenishment project)
301: WSH_DEBUG_SV.log(l_module_name, 'dynamic replenishment flag', L_PARAM_INFO.DYNAMIC_REPLENISHMENT_FLAG);
302: END IF;
303:
304: -- 30. Deriving Actual Values
305: x_org_info.autodetail_flag := NVL(WSH_PR_CRITERIA.g_autodetail_flag, l_param_info.autodetail_pr_flag);
318: x_org_info.auto_apply_routing_rules := l_param_info.auto_apply_routing_rules;
319: x_org_info.auto_calc_fgt_rate_cr_del := l_param_info.auto_calc_fgt_rate_cr_del;
320:
321: IF l_debug_on THEN
322: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.CHECK_WMS_ORG',WSH_DEBUG_SV.C_PROC_LEVEL);
323: END IF;
324:
325: x_org_info.wms_org := WSH_UTIL_VALIDATE.CHECK_WMS_ORG(p_organization_id);
326: IF (x_org_info.wms_org = 'Y') THEN
325: x_org_info.wms_org := WSH_UTIL_VALIDATE.CHECK_WMS_ORG(p_organization_id);
326: IF (x_org_info.wms_org = 'Y') THEN
327:
328: IF l_debug_on THEN
329: WSH_DEBUG_SV.logmsg(l_module_name, P_ORGANIZATION_ID || ' IS WMS ENABLED ORGANIZATION' );
330: END IF;
331:
332: --task_planning_flag is default of Release criteria or organization default.
333: x_org_info.task_planning_flag := NVL(WSH_PR_CRITERIA.g_task_planning_flag, NVL(l_param_info.task_planning_flag, 'N'));
378: x_org_info.append_flag := NVL(WSH_PR_CRITERIA.g_append_flag, x_org_info.append_flag);
379: END IF;
380:
381: IF l_debug_on THEN
382: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
383: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
384: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
385: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
386: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
379: END IF;
380:
381: IF l_debug_on THEN
382: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
383: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
384: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
385: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
386: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
387: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
380:
381: IF l_debug_on THEN
382: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
383: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
384: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
385: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
386: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
387: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
388: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
381: IF l_debug_on THEN
382: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
383: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
384: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
385: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
386: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
387: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
388: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
389: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
382: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
383: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
384: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
385: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
386: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
387: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
388: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
389: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
390: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
383: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
384: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
385: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
386: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
387: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
388: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
389: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
390: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
391: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
384: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
385: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
386: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
387: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
388: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
389: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
390: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
391: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
392: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
385: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
386: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
387: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
388: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
389: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
390: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
391: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
392: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
393: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
386: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
387: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
388: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
389: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
390: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
391: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
392: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
393: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
394: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
387: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
388: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
389: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
390: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
391: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
392: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
393: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
394: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
395: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
388: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
389: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
390: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
391: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
392: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
393: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
394: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
395: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
396: --bug# 6689448 (replenishment project)
389: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
390: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
391: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
392: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
393: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
394: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
395: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
396: --bug# 6689448 (replenishment project)
397: WSH_DEBUG_SV.log(l_module_name, ' DYNAMIC REPLENISHMENT FLAG ', X_ORG_INFO.DYNAMIC_REPLENISHMENT_FLAG);
390: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
391: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
392: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
393: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
394: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
395: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
396: --bug# 6689448 (replenishment project)
397: WSH_DEBUG_SV.log(l_module_name, ' DYNAMIC REPLENISHMENT FLAG ', X_ORG_INFO.DYNAMIC_REPLENISHMENT_FLAG);
398: END IF;
391: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
392: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
393: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
394: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
395: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
396: --bug# 6689448 (replenishment project)
397: WSH_DEBUG_SV.log(l_module_name, ' DYNAMIC REPLENISHMENT FLAG ', X_ORG_INFO.DYNAMIC_REPLENISHMENT_FLAG);
398: END IF;
399:
393: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
394: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
395: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
396: --bug# 6689448 (replenishment project)
397: WSH_DEBUG_SV.log(l_module_name, ' DYNAMIC REPLENISHMENT FLAG ', X_ORG_INFO.DYNAMIC_REPLENISHMENT_FLAG);
398: END IF;
399:
400: x_org_info.express_pick_flag := 'N';
401:
400: x_org_info.express_pick_flag := 'N';
401:
402: l_express_pick_profile := NVL(FND_PROFILE.VALUE('WSH_EXPRESS_PICK'), 'N');
403: IF l_debug_on THEN
404: WSH_DEBUG_SV.logmsg(l_module_name,'Profile WSH_EXPRESS_PICK value '||l_express_pick_profile);
405: END IF;
406:
407: -- 40. Express Pickup only if Profile is yes AND Have prior reservation AND Ato Pick Confirm select as Yes.
408: IF l_express_pick_profile = 'Y' THEN
409: IF x_org_info.wms_org = 'N' AND WSH_PR_CRITERIA.g_existing_rsvs_only_flag = 'Y'
410: AND x_org_info.auto_pick_confirm = 'Y' THEN
411: x_org_info.express_pick_flag := 'Y';
412: IF l_debug_on THEN
413: WSH_DEBUG_SV.logmsg(l_module_name,'*** Enabling Express Pick. SMCs will not be picked ***');
414: END IF;
415: ELSE
416: IF l_debug_on THEN
417: WSH_DEBUG_SV.logmsg(l_module_name,'*** Disabling Express Pick ***');
413: WSH_DEBUG_SV.logmsg(l_module_name,'*** Enabling Express Pick. SMCs will not be picked ***');
414: END IF;
415: ELSE
416: IF l_debug_on THEN
417: WSH_DEBUG_SV.logmsg(l_module_name,'*** Disabling Express Pick ***');
418: END IF;
419: END IF;
420: -- Bug 4775539
421: WSH_PR_CRITERIA.g_honor_pick_from := 'Y';
426: -- 50. Check to see if rules need to be initialized for organization
427: IF (l_init_rules = FND_API.G_FALSE OR WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NULL
428: OR WSH_PR_CRITERIA.g_pick_seq_rule_id IS NULL) THEN --{
429: IF l_debug_on THEN
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
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;
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');
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
446: END IF;
447: END IF;
448:
448:
449: END IF; --}
450:
451: IF l_debug_on THEN
452: WSH_DEBUG_SV.pop(l_module_name);
453: END IF;
454:
455:
456: EXCEPTION
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');
467: END IF;
468:
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');
467: END IF;
468:
469: END Get_Org_Params;
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');
467: END IF;
468:
469: END Get_Org_Params;
470:
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;
507: END IF;
508:
509: IF l_debug_on THEN
510: WSH_DEBUG_SV.push(l_module_name);
506: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
507: END IF;
508:
509: IF l_debug_on THEN
510: WSH_DEBUG_SV.push(l_module_name);
511: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
512: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
513: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
514: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
507: END IF;
508:
509: IF l_debug_on THEN
510: WSH_DEBUG_SV.push(l_module_name);
511: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
512: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
513: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
514: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
515: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
508:
509: IF l_debug_on THEN
510: WSH_DEBUG_SV.push(l_module_name);
511: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
512: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
513: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
514: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
515: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
516: END IF;
509: IF l_debug_on THEN
510: WSH_DEBUG_SV.push(l_module_name);
511: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
512: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
513: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
514: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
515: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
516: END IF;
517:
510: WSH_DEBUG_SV.push(l_module_name);
511: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
512: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
513: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
514: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
515: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
516: END IF;
517:
518: IF p_mode IN ('PICK','PICK-SS','PS') THEN
511: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
512: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
513: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
514: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
515: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
516: END IF;
517:
518: IF p_mode IN ('PICK','PICK-SS','PS') THEN
519: --{
518: IF p_mode IN ('PICK','PICK-SS','PS') THEN
519: --{
520: FOR i IN 1..p_num_requests LOOP
521: IF l_debug_on THEN
522: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit FND_REQUEST.Submit_Request',WSH_DEBUG_SV.C_PROC_LEVEL);
523: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
524: END IF;
525: l_request_id := FND_REQUEST.Submit_Request(
526: application => 'WSH',
519: --{
520: FOR i IN 1..p_num_requests LOOP
521: IF l_debug_on THEN
522: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit FND_REQUEST.Submit_Request',WSH_DEBUG_SV.C_PROC_LEVEL);
523: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
524: END IF;
525: l_request_id := FND_REQUEST.Submit_Request(
526: application => 'WSH',
527: program => 'WSHPSGL_SUB',
535: );
536: IF l_request_id = 0 THEN
537: -- If request submission failed, exit with error.
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;
536: IF l_request_id = 0 THEN
537: -- If request submission failed, exit with error.
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
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');
547: END IF;
548: END IF;
549: END LOOP;
550: --}
550: --}
551: END IF;
552:
553: IF l_debug_on THEN
554: WSH_DEBUG_SV.logmsg(l_module_name,'Setting Parent Request to pause');
555: END IF;
556: FND_CONC_GLOBAL.Set_Req_Globals ( Conc_Status => 'PAUSED', Request_Data => p_batch_id ||':'|| p_req_status
557: ||':'|| p_mode );
558:
556: FND_CONC_GLOBAL.Set_Req_Globals ( Conc_Status => 'PAUSED', Request_Data => p_batch_id ||':'|| p_req_status
557: ||':'|| p_mode );
558:
559: IF l_debug_on THEN
560: WSH_DEBUG_SV.pop(l_module_name);
561: END IF;
562:
563: EXCEPTION
564: --
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');
571: END IF;
572:
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');
571: END IF;
572:
573: END Spawn_Workers;
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');
571: END IF;
572:
573: END Spawn_Workers;
574:
626:
627: BEGIN
628: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
629: IF l_debug_on IS NULL THEN
630: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
631: END IF;
632:
633: IF l_debug_on THEN
634: WSH_DEBUG_SV.push(l_module_name);
630: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
631: END IF;
632:
633: IF l_debug_on THEN
634: WSH_DEBUG_SV.push(l_module_name);
635: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
636: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
637: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
638: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
631: END IF;
632:
633: IF l_debug_on THEN
634: WSH_DEBUG_SV.push(l_module_name);
635: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
636: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
637: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
638: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
639: WSH_DEBUG_SV.log(l_module_name,'P_DOC_SET_ID',P_DOC_SET_ID);
632:
633: IF l_debug_on THEN
634: WSH_DEBUG_SV.push(l_module_name);
635: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
636: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
637: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
638: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
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);
633: IF l_debug_on THEN
634: WSH_DEBUG_SV.push(l_module_name);
635: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
636: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
637: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
638: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
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);
634: WSH_DEBUG_SV.push(l_module_name);
635: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
636: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
637: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
638: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
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;
635: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
636: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
637: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
638: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
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;
636: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
637: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
638: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
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:
637: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
638: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
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;
649:
650: IF p_print_ps = 'Y' THEN
651: --{
652: IF l_debug_on THEN
653: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
654: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP REPORT' );
655: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP'
656: ,WSH_DEBUG_SV.C_PROC_LEVEL);
657: END IF;
650: IF p_print_ps = 'Y' THEN
651: --{
652: IF l_debug_on THEN
653: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
654: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP REPORT' );
655: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP'
656: ,WSH_DEBUG_SV.C_PROC_LEVEL);
657: END IF;
658: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip (
651: --{
652: IF l_debug_on THEN
653: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
654: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP REPORT' );
655: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP'
656: ,WSH_DEBUG_SV.C_PROC_LEVEL);
657: END IF;
658: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip (
659: p_report_set_id => WSH_PICK_LIST.G_SEED_DOC_SET,
652: IF l_debug_on THEN
653: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
654: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP REPORT' );
655: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP'
656: ,WSH_DEBUG_SV.C_PROC_LEVEL);
657: END IF;
658: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip (
659: p_report_set_id => WSH_PICK_LIST.G_SEED_DOC_SET,
660: p_organization_id => p_organization_id,
663: p_batch_id => p_batch_id,
664: x_api_status => l_return_status,
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;
674: ELSE
675: IF l_debug_on THEN
676: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP SUCCESSFUL' );
677: END IF;
678: END IF;
679: --}
680: END IF;
686:
687: IF (p_doc_set_id <> -1 ) THEN
688: --{
689: IF l_debug_on THEN
690: WSH_DEBUG_SV.logmsg(l_module_name, '* PRINT DOCUMENT SET AFTER FINISHING PRINTING PICK SLIP REPORTS' );
691: END IF;
692: l_document_info(1).p_report_set_id := p_doc_set_id;
693: l_document_info(1).p_request_id := FND_GLOBAL.CONC_REQUEST_ID;
694: -- bug 2367043: p_move_order range should use l_batch_name, not id.
715: l_document_info(1).p_transaction_type_id := WSH_PR_CRITERIA.g_order_type_id;
716: END IF;
717:
718: IF l_debug_on THEN
719: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_SETS.PRINT_DOCUMENT_SETS'
720: ,WSH_DEBUG_SV.C_PROC_LEVEL);
721: END IF;
722: ---------------------------------------------------------
723: -- For printing the Document Sets for Pick Release ,
716: END IF;
717:
718: IF l_debug_on THEN
719: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_SETS.PRINT_DOCUMENT_SETS'
720: ,WSH_DEBUG_SV.C_PROC_LEVEL);
721: END IF;
722: ---------------------------------------------------------
723: -- For printing the Document Sets for Pick Release ,
724: -- only l_document_info should be passed to the
736: p_delivery_ids => l_null_ids,
737: p_document_param_info => l_document_info,
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;
747: ELSE
748: IF l_debug_on THEN
749: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT DOCUMENT SET SUCCESSFUL ' );
750: END IF;
751: END IF;
752: --}
753: END IF;
754:
755: fnd_msg_pub.delete_msg(); -- Clear Msg Buffer
756:
757: IF l_debug_on THEN
758: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
759: WSH_DEBUG_SV.pop(l_module_name);
760: END IF;
761:
762: EXCEPTION
755: fnd_msg_pub.delete_msg(); -- Clear Msg Buffer
756:
757: IF l_debug_on THEN
758: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
759: WSH_DEBUG_SV.pop(l_module_name);
760: END IF;
761:
762: EXCEPTION
763: WHEN OTHERS THEN
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');
769: END IF;
770: END Print_docs;
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');
769: END IF;
770: END Print_docs;
771:
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');
769: END IF;
770: END Print_docs;
771:
772: -- Start of comments
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;
915: END IF;
916:
917: IF l_debug_on THEN
918: WSH_DEBUG_SV.push(l_module_name);
914: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
915: END IF;
916:
917: IF l_debug_on THEN
918: WSH_DEBUG_SV.push(l_module_name);
919: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
920: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
921: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
922: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
915: END IF;
916:
917: IF l_debug_on THEN
918: WSH_DEBUG_SV.push(l_module_name);
919: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
920: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
921: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
922: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
923: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
916:
917: IF l_debug_on THEN
918: WSH_DEBUG_SV.push(l_module_name);
919: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
920: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
921: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
922: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
923: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
924: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
917: IF l_debug_on THEN
918: WSH_DEBUG_SV.push(l_module_name);
919: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
920: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
921: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
922: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
923: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
924: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
925: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
918: WSH_DEBUG_SV.push(l_module_name);
919: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
920: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
921: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
922: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
923: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
924: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
925: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
926: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
919: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
920: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
921: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
922: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
923: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
924: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
925: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
926: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
927: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
920: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
921: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
922: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
923: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
924: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
925: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
926: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
927: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
928: WSH_DEBUG_SV.log(l_module_name,'P_TO_LOCATOR',P_TO_LOCATOR);
921: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
922: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
923: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
924: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
925: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
926: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
927: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
928: WSH_DEBUG_SV.log(l_module_name,'P_TO_LOCATOR',P_TO_LOCATOR);
929: END IF;
922: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
923: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
924: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
925: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
926: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
927: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
928: WSH_DEBUG_SV.log(l_module_name,'P_TO_LOCATOR',P_TO_LOCATOR);
929: END IF;
930:
923: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
924: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
925: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
926: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
927: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
928: WSH_DEBUG_SV.log(l_module_name,'P_TO_LOCATOR',P_TO_LOCATOR);
929: END IF;
930:
931: -- Clear move order lines tables
924: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
925: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
926: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
927: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
928: WSH_DEBUG_SV.log(l_module_name,'P_TO_LOCATOR',P_TO_LOCATOR);
929: END IF;
930:
931: -- Clear move order lines tables
932: g_trolin_tbl.delete;
947: -- X-dock
948: -- Call to WMS API to process lines for X-dock
949: IF g_allocation_method IN (WSH_PICK_LIST.C_CROSSDOCK_ONLY, WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK) THEN --{
950: IF l_debug_on THEN
951: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
952: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
953: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||'WMS_XDOCK_PEGGING_PUB.PLANNED_CROSS_DOCK',WSH_DEBUG_SV.C_PROC_LEVEL);
954: END IF;
955:
948: -- Call to WMS API to process lines for X-dock
949: IF g_allocation_method IN (WSH_PICK_LIST.C_CROSSDOCK_ONLY, WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK) THEN --{
950: IF l_debug_on THEN
951: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
952: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
953: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||'WMS_XDOCK_PEGGING_PUB.PLANNED_CROSS_DOCK',WSH_DEBUG_SV.C_PROC_LEVEL);
954: END IF;
955:
956: -- Parameters description :
949: IF g_allocation_method IN (WSH_PICK_LIST.C_CROSSDOCK_ONLY, WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK) THEN --{
950: IF l_debug_on THEN
951: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
952: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
953: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||'WMS_XDOCK_PEGGING_PUB.PLANNED_CROSS_DOCK',WSH_DEBUG_SV.C_PROC_LEVEL);
954: END IF;
955:
956: -- Parameters description :
957: -- P_DEL_DETAIL_ID (g_xdock_detail_ids) :contains the list of delivery details which have been
973: x_msg_count => l_msg_count,
974: x_msg_data => l_msg_data
975: );
976: IF l_debug_on THEN
977: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
978: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
979: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
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);
974: x_msg_data => l_msg_data
975: );
976: IF l_debug_on THEN
977: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
978: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
979: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
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;
975: );
976: IF l_debug_on THEN
977: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
978: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
979: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
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:
976: IF l_debug_on THEN
977: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
978: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
979: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
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)
977: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
978: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
979: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
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--{
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
992: RETURN;
993: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1014: l_exception_msg_count := NULL;
1015: l_exception_msg_data := NULL;
1016: l_dummy_exception_id := NULL;
1017: IF l_debug_on THEN
1018: WSH_DEBUG_SV.logmsg(l_module_name,
1019: 'Log exception for Detail, id- '
1020: ||WSH_PR_CRITERIA.release_table(i).delivery_detail_id
1021: || ', ' || l_exception_name);
1022: END IF;
1038: x_msg_data => l_exception_msg_data,
1039: x_exception_id => l_dummy_exception_id);
1040:
1041: IF l_debug_on THEN
1042: WSH_DEBUG_SV.logmsg(l_module_name, 'LOGGED EXCEPTION '||L_DUMMY_EXCEPTION_ID );
1043: END IF;
1044: END IF; --}
1045: END LOOP;
1046: END IF; --}
1057: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
1058: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY)
1059: THEN --{
1060: IF l_debug_on THEN
1061: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1062: END IF;
1063: l_attr_tab.delete;
1064: FOR i in 1.. WSH_PR_CRITERIA.release_table.count LOOP
1065: l_attr_tab(i).entity_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1066: l_attr_tab(i).entity_type := 'DELIVERY_DETAIL';
1067: IF WSH_PR_CRITERIA.release_table(i).released_status = 'S' THEN
1068: -- delivery detail is X-docked, pass flag to ignore this line for grouping
1069: IF l_debug_on THEN
1070: WSH_DEBUG_SV.log(l_module_name,'X-docked Detail id-', WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1071: END IF;
1072: l_attr_tab(i).is_xdocked_flag := 'Y';
1073: END IF;
1074: END LOOP;
1082: x_out_rec => l_out_rec,
1083: x_return_status => l_return_status);
1084:
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
1083: x_return_status => l_return_status);
1084:
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;
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;
1097: END IF;
1098: END IF; --}
1106: --{
1107:
1108: -- Print before the loop
1109: IF l_debug_on THEN
1110: WSH_DEBUG_SV.log(l_module_name, 'ALLOCATION METHOD', g_allocation_method);
1111: END IF;
1112:
1113: --bug 7171766
1114: l_group_match_seq_tbl.delete;
1116: -- Looping through Release Table
1117: FOR i in 1..WSH_PR_CRITERIA.release_table.count LOOP
1118: --{
1119: IF l_debug_on THEN
1120: WSH_DEBUG_SV.log(l_module_name, 'PROCESSING DELIVERY DETAIL', WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1121: END IF;
1122: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1123: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1124: END IF;
1122: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1123: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1124: END IF;
1125: IF l_debug_on THEN
1126: WSH_DEBUG_SV.log(l_module_name, 'Released Status of Detail', WSH_PR_CRITERIA.RELEASE_TABLE(I).RELEASED_STATUS);
1127: END IF;
1128: IF (WSH_PR_CRITERIA.release_table(i).released_status = 'X') THEN
1129: --{
1130: IF l_debug_on THEN
1127: END IF;
1128: IF (WSH_PR_CRITERIA.release_table(i).released_status = 'X') THEN
1129: --{
1130: IF l_debug_on THEN
1131: WSH_DEBUG_SV.logmsg(l_module_name,'IGNORING NON-TRANSACTABLE LINE FOR MOVE ORDER LINE CREATION');
1132: END IF;
1133: l_count_x_relstatus_details := l_count_x_relstatus_details + 1;
1134: l_rel_delivery_detail_id(l_count_x_relstatus_details):= WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1135: --}
1136: -- X-dock, X-dock lines which have been processed above
1137: -- will have released status of S
1138: ELSIF (WSH_PR_CRITERIA.release_table(i).released_status = WSH_DELIVERY_DETAILS_PKG.C_RELEASED_TO_WAREHOUSE) THEN --{
1139: IF l_debug_on THEN
1140: WSH_DEBUG_SV.logmsg(l_module_name,'IGNORING PLANNED X-DOCK LINE FOR MOVE ORDER LINE CREATION');
1141: END IF;
1142: --}
1143: ELSE
1144: --{
1196: --}
1197: End IF;
1198:
1199: IF l_debug_on THEN
1200: WSH_DEBUG_SV.logmsg(l_module_name, 'CARTON GROUPING ID : '||l_group_match_seq_tbl(i).delivery_group_id );
1201: END IF;
1202:
1203: g_trolin_tbl(l_count).carton_grouping_id := l_group_match_seq_tbl(i).delivery_group_id ;
1204:
1211: OPEN get_dd_pup_trip_stop ( p_organization_id, WSH_PR_CRITERIA.release_table(i).delivery_detail_id );
1212: FETCH get_dd_pup_trip_stop INTO l_dd_pup_stop_id;
1213: IF get_dd_pup_trip_stop%NOTFOUND THEN
1214: IF l_debug_on THEN
1215: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY DETAIL '||
1216: WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID|| ' NOT ASSOCIATED TO ANY TRIP' );
1217: END IF;
1218: ELSE
1219: --{
1223: g_trolin_tbl(l_count).to_locator_id := l_Stops_Ids_Tbl(l_dd_pup_stop_id).Staging_Lane_Id;
1224: ELSE
1225: --{
1226: IF l_debug_on THEN
1227: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||
1228: 'WMS_TRIPSTOPS_STAGELANES_PUB.GET_STGLN_FOR_TRIPSTOP',WSH_DEBUG_SV.C_PROC_LEVEL);
1229: END IF;
1230: x_wms_return_status := NULL;
1231: WMS_TRIPSTOPS_STAGELANES_PUB.get_stgln_for_tripstop (
1224: ELSE
1225: --{
1226: IF l_debug_on THEN
1227: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||
1228: 'WMS_TRIPSTOPS_STAGELANES_PUB.GET_STGLN_FOR_TRIPSTOP',WSH_DEBUG_SV.C_PROC_LEVEL);
1229: END IF;
1230: x_wms_return_status := NULL;
1231: WMS_TRIPSTOPS_STAGELANES_PUB.get_stgln_for_tripstop (
1232: p_org_id => p_organization_id,
1236: x_return_status => x_wms_return_status,
1237: x_msg_count => x_wms_msg_count,
1238: x_msg_data => x_wms_msg_data);
1239: IF l_debug_on THEN
1240: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1241: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1242: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
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);
1237: x_msg_count => x_wms_msg_count,
1238: x_msg_data => x_wms_msg_data);
1239: IF l_debug_on THEN
1240: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1241: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1242: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
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);
1238: x_msg_data => x_wms_msg_data);
1239: IF l_debug_on THEN
1240: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1241: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1242: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
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;
1239: IF l_debug_on THEN
1240: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1241: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1242: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
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
1240: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1241: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1242: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
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
1241: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1242: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
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;
1265: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1266: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1267: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1268: IF l_debug_on THEN
1269: WSH_DEBUG_SV.logmsg(l_module_name, 'Line Number '||G_TROLIN_TBL(L_COUNT).LINE_NUMBER||
1270: ' MOVE ORDER SHIP SET '||G_TROLIN_TBL(L_COUNT).SHIP_SET_ID ||
1271: ' MODEL ID '||G_TROLIN_TBL( L_COUNT).SHIP_MODEL_ID || ' MODEL QTY '
1272: ||G_TROLIN_TBL(L_COUNT).MODEL_QUANTITY );
1273: END IF;
1289: IF (WSH_PR_CRITERIA.release_table(i).move_order_line_id IS NOT NULL) THEN
1290: g_trolin_tbl(l_count).line_id := WSH_PR_CRITERIA.release_table(i).move_order_line_id;
1291: -- The quantity for the Backordered line should be the same as the original quantity
1292: IF l_debug_on THEN
1293: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
1294: END IF;
1295: l_temp_trolin_rec := INV_Trolin_Util.Query_Row( p_line_id => g_trolin_tbl(l_count).line_id );
1296: g_trolin_tbl(l_count).quantity := l_temp_trolin_rec.quantity;
1297: g_trolin_tbl(l_count).operation := INV_GLOBALS.G_OPR_UPDATE;
1326: p_organization_id => p_organization_id,
1327: x_return_status => l_wf_rs ) ;
1328:
1329: IF l_debug_on THEN
1330: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1331: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1332: END IF;
1333: --Done Raise Event: Pick To Pod Workflow
1334: END LOOP;
1327: x_return_status => l_wf_rs ) ;
1328:
1329: IF l_debug_on THEN
1330: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1331: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1332: END IF;
1333: --Done Raise Event: Pick To Pod Workflow
1334: END LOOP;
1335:
1334: END LOOP;
1335:
1336: -- Update of wsh_delivery_details where released_status is changed, call DBI API after the update.
1337: IF l_debug_on THEN
1338: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_rel_delivery_detail_id.count);
1339: END IF;
1340: WSH_INTEGRATION.DBI_Update_Detail_Log (
1341: p_delivery_detail_id_tab => l_rel_delivery_detail_id,
1342: p_dml_type => 'UPDATE',
1341: p_delivery_detail_id_tab => l_rel_delivery_detail_id,
1342: p_dml_type => 'UPDATE',
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;
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;
1354: END IF;
1355: IF l_debug_on THEN
1352: END IF;
1353: RETURN;
1354: END IF;
1355: IF l_debug_on THEN
1356: WSH_DEBUG_SV.log(l_module_name,'l_count_x_relstatus_details updated ',l_count_x_relstatus_details);
1357: END IF;
1358: END IF;
1359: --}
1360:
1363: --{
1364: IF p_express_pick_flag = 'N' THEN
1365: --{
1366: IF l_debug_on THEN
1367: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_LINES',
1368: WSH_DEBUG_SV.C_PROC_LEVEL);
1369: WSH_DEBUG_SV.log(l_module_name, 'G_TROLIN_TBL.COUNT',G_TROLIN_TBL.COUNT);
1370: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1371: END IF;
1364: IF p_express_pick_flag = 'N' THEN
1365: --{
1366: IF l_debug_on THEN
1367: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_LINES',
1368: WSH_DEBUG_SV.C_PROC_LEVEL);
1369: WSH_DEBUG_SV.log(l_module_name, 'G_TROLIN_TBL.COUNT',G_TROLIN_TBL.COUNT);
1370: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1371: END IF;
1372: Inv_Move_Order_Pub.Create_Move_Order_Lines
1365: --{
1366: IF l_debug_on THEN
1367: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_LINES',
1368: WSH_DEBUG_SV.C_PROC_LEVEL);
1369: WSH_DEBUG_SV.log(l_module_name, 'G_TROLIN_TBL.COUNT',G_TROLIN_TBL.COUNT);
1370: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1371: END IF;
1372: Inv_Move_Order_Pub.Create_Move_Order_Lines
1373: (
1366: IF l_debug_on THEN
1367: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_LINES',
1368: WSH_DEBUG_SV.C_PROC_LEVEL);
1369: WSH_DEBUG_SV.log(l_module_name, 'G_TROLIN_TBL.COUNT',G_TROLIN_TBL.COUNT);
1370: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1371: END IF;
1372: Inv_Move_Order_Pub.Create_Move_Order_Lines
1373: (
1374: p_api_version_number => l_api_version_number,
1384: x_msg_count => l_msg_count,
1385: x_msg_data => l_msg_data
1386: );
1387: IF l_debug_on THEN
1388: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
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;
1385: x_msg_data => l_msg_data
1386: );
1387: IF l_debug_on THEN
1388: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
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
1386: );
1387: IF l_debug_on THEN
1388: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
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: --{
1387: IF l_debug_on THEN
1388: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
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');
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;
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;
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
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;
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
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);
1428: l_trolin_val_tbl.delete(i);
1429: g_del_detail_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: --}
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');
1445: WSH_DEBUG_SV.log(l_module_name, 'g_del_detail_ids.count', g_del_detail_ids.count);
1446: END IF;
1447: --}
1448: END IF;
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');
1445: WSH_DEBUG_SV.log(l_module_name, 'g_del_detail_ids.count', g_del_detail_ids.count);
1446: END IF;
1447: --}
1448: END IF;
1449: --}
1449: --}
1450: ELSE -- l_express_pick_flag =
1451: --{
1452: IF l_debug_on THEN
1453: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1454: WSH_DEBUG_SV.logmsg(l_module_name,'Express Pick');
1455: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1456: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Inv_Express_Pick_Pub.Pick_Release with COUNT:'||G_TROLIN_TBL.COUNT );
1457: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Inv_Express_Pick_Pub.Pick_Release',WSH_DEBUG_SV.C_PROC_LEVEL);
1450: ELSE -- l_express_pick_flag =
1451: --{
1452: IF l_debug_on THEN
1453: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1454: WSH_DEBUG_SV.logmsg(l_module_name,'Express Pick');
1455: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1456: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Inv_Express_Pick_Pub.Pick_Release with COUNT:'||G_TROLIN_TBL.COUNT );
1457: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Inv_Express_Pick_Pub.Pick_Release',WSH_DEBUG_SV.C_PROC_LEVEL);
1458: END IF;
1451: --{
1452: IF l_debug_on THEN
1453: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1454: WSH_DEBUG_SV.logmsg(l_module_name,'Express Pick');
1455: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1456: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Inv_Express_Pick_Pub.Pick_Release with COUNT:'||G_TROLIN_TBL.COUNT );
1457: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Inv_Express_Pick_Pub.Pick_Release',WSH_DEBUG_SV.C_PROC_LEVEL);
1458: END IF;
1459: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
1452: IF l_debug_on THEN
1453: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1454: WSH_DEBUG_SV.logmsg(l_module_name,'Express Pick');
1455: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1456: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Inv_Express_Pick_Pub.Pick_Release with COUNT:'||G_TROLIN_TBL.COUNT );
1457: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Inv_Express_Pick_Pub.Pick_Release',WSH_DEBUG_SV.C_PROC_LEVEL);
1458: END IF;
1459: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
1460: Inv_Express_Pick_Pub.Pick_Release (
1453: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1454: WSH_DEBUG_SV.logmsg(l_module_name,'Express Pick');
1455: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1456: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Inv_Express_Pick_Pub.Pick_Release with COUNT:'||G_TROLIN_TBL.COUNT );
1457: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Inv_Express_Pick_Pub.Pick_Release',WSH_DEBUG_SV.C_PROC_LEVEL);
1458: END IF;
1459: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
1460: Inv_Express_Pick_Pub.Pick_Release (
1461: p_api_version => l_api_version_number,
1469: x_return_status => l_return_status,
1470: x_msg_count => l_msg_count,
1471: x_msg_data => l_msg_data);
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: --{
1470: x_msg_count => l_msg_count,
1471: x_msg_data => l_msg_data);
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');
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
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');
1517: l_exception_msg_count := NULL;
1518: l_exception_msg_data := NULL;
1519: l_dummy_exception_id := NULL;
1520: IF l_debug_on THEN
1521: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1522: END IF;
1523: WSH_XC_UTIL.Log_Exception(
1524: p_api_version => 1.0,
1525: p_logging_entity => 'SHIPPER',
1535: x_msg_count => l_exception_msg_count,
1536: x_msg_data => l_exception_msg_data,
1537: x_exception_id => l_dummy_exception_id);
1538: IF l_debug_on THEN
1539: WSH_DEBUG_SV.logmsg(l_module_name, 'LOGGED EXCEPTION '||L_DUMMY_EXCEPTION_ID );
1540: END IF;
1541: END LOOP;
1542: --}
1543: END IF;
1568: then INV will pass pick_status 'I' and split_delivery_id null.
1569: */
1570: IF l_debug_on THEN
1571: FOR i IN g_exp_pick_release_stat.FIRST..g_exp_pick_release_stat.LAST LOOP
1572: WSH_DEBUG_SV.logmsg(l_module_name,i||' '||g_exp_pick_release_stat(i).delivery_detail_id||
1573: ' '||g_exp_pick_release_stat(i).pick_status||
1574: ' '||g_exp_pick_release_stat(i).split_delivery_id);
1575: END LOOP;
1576: END IF;
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
1602: SET move_order_line_id = g_trolin_tbl(i).line_id,
1603: released_status = WSH_DELIVERY_DETAILS_PKG.C_RELEASED_TO_WAREHOUSE,
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;
1624: END IF;
1625: --DBI
1632: --p_parameters IN wf_parameter_list_t DEFAULT NULL,
1633: p_organization_id => p_organization_id,
1634: x_return_status => l_wf_rs ) ;
1635: IF l_debug_on THEN
1636: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1637: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1638: END IF;
1639:
1640: OPEN c_get_picked_lines_count( g_del_detail_ids(i) );
1633: p_organization_id => p_organization_id,
1634: x_return_status => l_wf_rs ) ;
1635: IF l_debug_on THEN
1636: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1637: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1638: END IF;
1639:
1640: OPEN c_get_picked_lines_count( g_del_detail_ids(i) );
1641: FETCH c_get_picked_lines_count INTO l_count_picked_lines, l_delv_id ;
1647: p_event => 'oracle.apps.wsh.delivery.pik.pickinitiated' ,
1648: p_organization_id => p_organization_id,
1649: x_return_status => l_wf_rs ) ;
1650: IF l_debug_on THEN
1651: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1652: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1653: END IF;
1654: END IF;
1655: END IF;
1648: p_organization_id => p_organization_id,
1649: x_return_status => l_wf_rs ) ;
1650: IF l_debug_on THEN
1651: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1652: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1653: END IF;
1654: END IF;
1655: END IF;
1656: CLOSE c_get_picked_lines_count;
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;
1668: g_trolin_tbl.delete(i);
1669: l_trolin_val_tbl.delete(i);
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;
1668: g_trolin_tbl.delete(i);
1669: l_trolin_val_tbl.delete(i);
1670: g_del_detail_ids.delete(i);
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;
1683: WHEN others THEN
1684: WSH_UTIL_CORE.PrintMsg('Cannot update delivery detail: ' || WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
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;
1690: END;
1691: i := j;
1691: i := j;
1692: --}
1693: END LOOP;
1694: IF l_debug_on THEN
1695: WSH_DEBUG_SV.log(l_module_name, 'g_trolin_tbl.count', g_trolin_tbl.count);
1696: WSH_DEBUG_SV.log(l_module_name, 'g_del_detail_ids.count', g_del_detail_ids.count);
1697: END IF;
1698:
1699: -- Update of wsh_delivery_details where released_status is changed, call DBI API after the update.
1692: --}
1693: END LOOP;
1694: IF l_debug_on THEN
1695: WSH_DEBUG_SV.log(l_module_name, 'g_trolin_tbl.count', g_trolin_tbl.count);
1696: WSH_DEBUG_SV.log(l_module_name, 'g_del_detail_ids.count', g_del_detail_ids.count);
1697: END IF;
1698:
1699: -- Update of wsh_delivery_details where released_status is changed, call DBI API after the update.
1700: IF l_debug_on THEN
1697: END IF;
1698:
1699: -- Update of wsh_delivery_details where released_status is changed, call DBI API after the update.
1700: IF l_debug_on THEN
1701: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail count',l_detail_tab.count);
1702: END IF;
1703: WSH_INTEGRATION.DBI_Update_Detail_Log (
1704: p_delivery_detail_id_tab => l_detail_tab,
1705: p_dml_type => 'UPDATE',
1704: p_delivery_detail_id_tab => l_detail_tab,
1705: p_dml_type => 'UPDATE',
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');
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;
1717: END IF;
1718: --}
1718: --}
1719: END IF;
1720:
1721: IF l_debug_on THEN
1722: WSH_DEBUG_SV.pop(l_module_name);
1723: END IF;
1724:
1725: EXCEPTION
1726: WHEN OTHERS 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');
1735: END IF;
1736:
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');
1735: END IF;
1736:
1737: END Create_Move_Order_Lines;
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');
1735: END IF;
1736:
1737: END Create_Move_Order_Lines;
1738:
1818:
1819: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1820: IF l_debug_on IS NULL
1821: THEN
1822: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1823: END IF;
1824:
1825: IF l_debug_on THEN
1826: WSH_DEBUG_SV.push(l_module_name);
1822: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1823: END IF;
1824:
1825: IF l_debug_on THEN
1826: WSH_DEBUG_SV.push(l_module_name);
1827: WSH_DEBUG_SV.log(l_module_name,'P_APPEND_FLAG',P_APPEND_FLAG);
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;
1823: END IF;
1824:
1825: IF l_debug_on THEN
1826: WSH_DEBUG_SV.push(l_module_name);
1827: WSH_DEBUG_SV.log(l_module_name,'P_APPEND_FLAG',P_APPEND_FLAG);
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:
1824:
1825: IF l_debug_on THEN
1826: WSH_DEBUG_SV.push(l_module_name);
1827: WSH_DEBUG_SV.log(l_module_name,'P_APPEND_FLAG',P_APPEND_FLAG);
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;
1825: IF l_debug_on THEN
1826: WSH_DEBUG_SV.push(l_module_name);
1827: WSH_DEBUG_SV.log(l_module_name,'P_APPEND_FLAG',P_APPEND_FLAG);
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:
1843: l_cc_line_groups.delete;
1844: l_cc_group_info.delete;
1845: l_cc_failed_records.delete;
1846: IF l_debug_on THEN
1847: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1848: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1849: END IF;
1850: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main (
1851: p_api_version_number => 1.0,
1844: l_cc_group_info.delete;
1845: l_cc_failed_records.delete;
1846: IF l_debug_on THEN
1847: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1848: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1849: END IF;
1850: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main (
1851: p_api_version_number => 1.0,
1852: p_init_msg_list => FND_API.G_FALSE,
1866: x_msg_count => l_msg_count,
1867: x_msg_data => l_msg_data,
1868: x_return_status => l_return_status );
1869: IF l_debug_on THEN
1870: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1871: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
1872: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1873: ,l_cc_validate_result);
1874: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1867: x_msg_data => l_msg_data,
1868: x_return_status => l_return_status );
1869: IF l_debug_on THEN
1870: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1871: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
1872: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1873: ,l_cc_validate_result);
1874: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1875: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1868: x_return_status => l_return_status );
1869: IF l_debug_on THEN
1870: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1871: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
1872: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1873: ,l_cc_validate_result);
1874: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1875: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1876: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1870: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1871: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
1872: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1873: ,l_cc_validate_result);
1874: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1875: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1876: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1877: ,l_cc_failed_records.COUNT);
1878: WSH_DEBUG_SV.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main'
1871: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
1872: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1873: ,l_cc_validate_result);
1874: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1875: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1876: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1877: ,l_cc_failed_records.COUNT);
1878: WSH_DEBUG_SV.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main'
1879: ,l_cc_line_groups.COUNT);
1872: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1873: ,l_cc_validate_result);
1874: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1875: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1876: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1877: ,l_cc_failed_records.COUNT);
1878: WSH_DEBUG_SV.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main'
1879: ,l_cc_line_groups.COUNT);
1880: WSH_DEBUG_SV.log(l_module_name,'group_info count After Calling validate_constraint_main'
1874: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1875: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1876: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1877: ,l_cc_failed_records.COUNT);
1878: WSH_DEBUG_SV.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main'
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;
1876: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1877: ,l_cc_failed_records.COUNT);
1878: WSH_DEBUG_SV.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main'
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: --{
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;
1891: --}
1892: END IF;
1928: END IF;
1929: END LOOP;
1930: --{
1931: IF l_debug_on THEN
1932: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_id_tab_temp.count);
1933: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1934: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1935: END IF;
1936: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries (
1929: END LOOP;
1930: --{
1931: IF l_debug_on THEN
1932: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_id_tab_temp.count);
1933: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1934: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1935: END IF;
1936: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries (
1937: p_delivery_detail_tbl => l_id_tab_temp,
1930: --{
1931: IF l_debug_on THEN
1932: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_id_tab_temp.count);
1933: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1934: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1935: END IF;
1936: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries (
1937: p_delivery_detail_tbl => l_id_tab_temp,
1938: p_append_flag => p_append_flag,
1944: x_unappended_det_tbl => l_unappended_det_tbl,
1945: x_appended_del_tbl => l_tmp_del_tbl,
1946: x_return_status => l_return_status );
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
1945: x_appended_del_tbl => l_tmp_del_tbl,
1946: x_return_status => l_return_status );
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;
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;
1959: END IF;
1960: --}
1973: l_id_tab_temp.delete;
1974: l_id_tab_temp := l_unappended_det_tbl;
1975:
1976: IF l_debug_on THEN
1977: WSH_DEBUG_SV.log(l_module_name,'id_tab_temp count ',l_id_tab_temp.COUNT);
1978: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
1979: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1980: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1981: END IF;
1974: l_id_tab_temp := l_unappended_det_tbl;
1975:
1976: IF l_debug_on THEN
1977: WSH_DEBUG_SV.log(l_module_name,'id_tab_temp count ',l_id_tab_temp.COUNT);
1978: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
1979: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1980: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1981: END IF;
1982: --{
1975:
1976: IF l_debug_on THEN
1977: WSH_DEBUG_SV.log(l_module_name,'id_tab_temp count ',l_id_tab_temp.COUNT);
1978: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
1979: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1980: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1981: END IF;
1982: --{
1983: IF l_id_tab_temp.count > 0 THEN
1976: IF l_debug_on THEN
1977: WSH_DEBUG_SV.log(l_module_name,'id_tab_temp count ',l_id_tab_temp.COUNT);
1978: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
1979: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1980: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1981: END IF;
1982: --{
1983: IF l_id_tab_temp.count > 0 THEN
1984: WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries (
1988: x_del_rows => l_delivery_ids_tbl,
1989: x_grouping_rows => l_grouping_tbl,
1990: x_return_status => l_cc_return_status );
1991: IF l_debug_on THEN
1992: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1993: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_cc_return_status',l_cc_return_status);
1994: END IF;
1995:
1996: -- set the intermediate ship to, ship method to null if group rec from constraint validation
1989: x_grouping_rows => l_grouping_tbl,
1990: x_return_status => l_cc_return_status );
1991: IF l_debug_on THEN
1992: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1993: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_cc_return_status',l_cc_return_status);
1994: END IF;
1995:
1996: -- set the intermediate ship to, ship method to null if group rec from constraint validation
1997: -- has these as 'N'
2006: END LOOP;
2007: END IF;
2008:
2009: IF l_debug_on THEN
2010: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2011: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2012: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2013: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT ',l_grouping_tbl.COUNT);
2014: WSH_DEBUG_SV.log(l_module_name,'l_cc_return_status ',l_cc_return_status);
2007: END IF;
2008:
2009: IF l_debug_on THEN
2010: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2011: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2012: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2013: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT ',l_grouping_tbl.COUNT);
2014: WSH_DEBUG_SV.log(l_module_name,'l_cc_return_status ',l_cc_return_status);
2015: END IF;
2008:
2009: IF l_debug_on THEN
2010: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2011: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2012: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2013: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT ',l_grouping_tbl.COUNT);
2014: WSH_DEBUG_SV.log(l_module_name,'l_cc_return_status ',l_cc_return_status);
2015: END IF;
2016:
2009: IF l_debug_on THEN
2010: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2011: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2012: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2013: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT ',l_grouping_tbl.COUNT);
2014: WSH_DEBUG_SV.log(l_module_name,'l_cc_return_status ',l_cc_return_status);
2015: END IF;
2016:
2017: IF l_cc_upd_dlvy_intmed_ship_to = 'N' OR l_cc_upd_dlvy_ship_method = 'N' THEN
2010: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2011: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2012: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2013: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT ',l_grouping_tbl.COUNT);
2014: WSH_DEBUG_SV.log(l_module_name,'l_cc_return_status ',l_cc_return_status);
2015: END IF;
2016:
2017: IF l_cc_upd_dlvy_intmed_ship_to = 'N' OR l_cc_upd_dlvy_ship_method = 'N' THEN
2018: IF l_delivery_ids_tbl.COUNT > 0 THEN
2083: l_delivery_ids_tbl := l_cc_del_rows;
2084: l_grouping_tbl := l_cc_grouping_rows;
2085:
2086: IF l_debug_on THEN
2087: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT after loop ',l_delivery_ids_tbl.COUNT);
2088: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT after loop',l_grouping_tbl.COUNT);
2089: END IF;
2090: IF l_cc_return_status IS NOT NULL THEN
2091: l_return_status := l_cc_return_status;
2084: l_grouping_tbl := l_cc_grouping_rows;
2085:
2086: IF l_debug_on THEN
2087: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT after loop ',l_delivery_ids_tbl.COUNT);
2088: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT after loop',l_grouping_tbl.COUNT);
2089: END IF;
2090: IF l_cc_return_status IS NOT NULL THEN
2091: l_return_status := l_cc_return_status;
2092: END IF;
2095: ELSE -- validate_status is succese implies no failed lines so call autocreate_del directly
2096: --{
2097: -- deliveryMerge
2098: IF l_debug_on THEN
2099: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2100: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2101: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2102: END IF;
2103: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries(
2096: --{
2097: -- deliveryMerge
2098: IF l_debug_on THEN
2099: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2100: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2101: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2102: END IF;
2103: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries(
2104: p_delivery_detail_tbl => l_del_details_tbl,
2097: -- deliveryMerge
2098: IF l_debug_on THEN
2099: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2100: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2101: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2102: END IF;
2103: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries(
2104: p_delivery_detail_tbl => l_del_details_tbl,
2105: p_append_flag => p_append_flag,
2111: x_unappended_det_tbl => l_unappended_det_tbl,
2112: x_appended_del_tbl => l_appended_del_tbl,
2113: x_return_status => l_return_status);
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
2112: x_appended_del_tbl => l_appended_del_tbl,
2113: x_return_status => l_return_status);
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;
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;
2126: END IF;
2127:
2128: l_del_details_tbl.delete;
2129: l_del_details_tbl := l_unappended_det_tbl;
2130:
2131: IF l_debug_on THEN
2132: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2133: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2134: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2135: END IF;
2136:
2129: l_del_details_tbl := l_unappended_det_tbl;
2130:
2131: IF l_debug_on THEN
2132: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2133: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2134: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2135: END IF;
2136:
2137: IF l_del_details_tbl.count > 0 THEN
2130:
2131: IF l_debug_on THEN
2132: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2133: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2134: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2135: END IF;
2136:
2137: IF l_del_details_tbl.count > 0 THEN
2138: --{
2145: x_return_status => l_return_status
2146: );
2147:
2148: IF l_debug_on THEN
2149: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2150: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_return_status',l_return_status);
2151: END IF;
2152:
2153: -- set the intermediate ship to, ship method to null if group rec from constraint
2146: );
2147:
2148: IF l_debug_on THEN
2149: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2150: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_return_status',l_return_status);
2151: END IF;
2152:
2153: -- set the intermediate ship to, ship method to null if group rec from constraint
2154: -- validation has these as 'N'
2159: l_cc_upd_dlvy_intmed_ship_to := l_cc_group_info(1).upd_dlvy_intmed_ship_to;
2160: l_cc_upd_dlvy_ship_method := l_cc_group_info(1).upd_dlvy_ship_method;
2161:
2162: IF l_debug_on THEN
2163: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2164: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2165: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2166: END IF;
2167:
2160: l_cc_upd_dlvy_ship_method := l_cc_group_info(1).upd_dlvy_ship_method;
2161:
2162: IF l_debug_on THEN
2163: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2164: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2165: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2166: END IF;
2167:
2168: IF l_cc_upd_dlvy_intmed_ship_to = 'N' OR l_cc_upd_dlvy_ship_method = 'N' THEN
2161:
2162: IF l_debug_on THEN
2163: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2164: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2165: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2166: END IF;
2167:
2168: IF l_cc_upd_dlvy_intmed_ship_to = 'N' OR l_cc_upd_dlvy_ship_method = 'N' THEN
2169: IF l_delivery_ids_tbl.COUNT > 0 THEN
2205: ELSE -- fte not installed
2206: --{
2207: -- deliveryMerge
2208: IF l_debug_on THEN
2209: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2210: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2211: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2212: END IF;
2213:
2206: --{
2207: -- deliveryMerge
2208: IF l_debug_on THEN
2209: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2210: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2211: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2212: END IF;
2213:
2214: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries(
2207: -- deliveryMerge
2208: IF l_debug_on THEN
2209: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2210: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2211: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2212: END IF;
2213:
2214: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries(
2215: p_delivery_detail_tbl => l_del_details_tbl,
2223: x_appended_del_tbl => l_appended_del_tbl,
2224: x_return_status => l_return_status);
2225:
2226: IF l_debug_on THEN
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
2224: x_return_status => l_return_status);
2225:
2226: IF l_debug_on THEN
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');
2236: IF l_debug_on THEN
2237: WSH_DEBUG_SV.pop(l_module_name);
2238: END IF;
2239: RETURN;
2240: --}
2241: END IF;
2243: l_del_details_tbl.delete;
2244: l_del_details_tbl := l_unappended_det_tbl;
2245:
2246: IF l_debug_on THEN
2247: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2248: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2249: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2250: END IF;
2251:
2244: l_del_details_tbl := l_unappended_det_tbl;
2245:
2246: IF l_debug_on THEN
2247: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2248: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2249: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2250: END IF;
2251:
2252: IF l_del_details_tbl.count > 0 THEN
2245:
2246: IF l_debug_on THEN
2247: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2248: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2249: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2250: END IF;
2251:
2252: IF l_del_details_tbl.count > 0 THEN
2253: --{
2259: x_grouping_rows => l_grouping_tbl,
2260: x_return_status => l_return_status
2261: );
2262: IF l_debug_on THEN
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)
2260: x_return_status => l_return_status
2261: );
2262: IF l_debug_on THEN
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
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;
2275: END IF;
2276: --}
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
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');
2297: END IF;
2298:
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');
2297: END IF;
2298:
2299: END Autocreate_Deliveries;
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');
2297: END IF;
2298:
2299: END Autocreate_Deliveries;
2300:
2422:
2423: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2424: IF l_debug_on IS NULL
2425: THEN
2426: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2427: END IF;
2428:
2429: l_completion_status := 'NORMAL';
2430:
2428:
2429: l_completion_status := 'NORMAL';
2430:
2431: IF l_debug_on THEN
2432: WSH_DEBUG_SV.push(l_module_name);
2433: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2434: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
2435: WSH_DEBUG_SV.log(l_module_name,'P_MODE',P_MODE);
2436: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
2429: l_completion_status := 'NORMAL';
2430:
2431: IF l_debug_on THEN
2432: WSH_DEBUG_SV.push(l_module_name);
2433: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2434: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
2435: WSH_DEBUG_SV.log(l_module_name,'P_MODE',P_MODE);
2436: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
2437: END IF;
2430:
2431: IF l_debug_on THEN
2432: WSH_DEBUG_SV.push(l_module_name);
2433: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2434: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
2435: WSH_DEBUG_SV.log(l_module_name,'P_MODE',P_MODE);
2436: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
2437: END IF;
2438:
2431: IF l_debug_on THEN
2432: WSH_DEBUG_SV.push(l_module_name);
2433: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2434: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
2435: WSH_DEBUG_SV.log(l_module_name,'P_MODE',P_MODE);
2436: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
2437: END IF;
2438:
2439: -- If worker_id is present, set Global variable as Parallel Pick Release and Parallel Pick Slips
2432: WSH_DEBUG_SV.push(l_module_name);
2433: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2434: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
2435: WSH_DEBUG_SV.log(l_module_name,'P_MODE',P_MODE);
2436: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
2437: END IF;
2438:
2439: -- If worker_id is present, set Global variable as Parallel Pick Release and Parallel Pick Slips
2440: IF p_worker_id IS NOT NULL THEN
2439: -- If worker_id is present, set Global variable as Parallel Pick Release and Parallel Pick Slips
2440: IF p_worker_id IS NOT NULL THEN
2441: WSH_PICK_LIST.G_PICK_REL_PARALLEL := TRUE;
2442: IF l_debug_on THEN
2443: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
2444: END IF;
2445: END IF;
2446:
2447: -- 10. For p_mode = 'PICK' / 'PICK-SS'
2451: IF p_worker_id IS NOT NULL THEN --{
2452: -- 10.10 Calling Init_Pick_Release API to initialize global variables in WSH_PR_CRITERIA package
2453: -- and also set Batch_Id and Seeded Pick Release Document Set
2454: IF l_debug_on THEN
2455: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INIT_PICK_RELEASE',WSH_DEBUG_SV.C_PROC_LEVEL);
2456: END IF;
2457: Init_Pick_Release( p_batch_id => p_batch_id,
2458: p_worker_id => p_worker_id,
2459: x_return_status => l_return_status);
2457: Init_Pick_Release( p_batch_id => p_batch_id,
2458: p_worker_id => p_worker_id,
2459: x_return_status => l_return_status);
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
2503: WSH_PR_CRITERIA.MAX_LINES := 1000;
2504: END IF;
2505:
2506: IF l_debug_on THEN
2507: WSH_DEBUG_SV.logmsg(l_module_name, 'MAX_LINES IS ' || TO_CHAR(WSH_PR_CRITERIA.MAX_LINES));
2508: END IF;
2509:
2510: -- 10.20 Looping thru Organization-Move Order Header Combination
2511: FOR batch_rec IN get_org_mo_hdr(p_batch_id) LOOP
2510: -- 10.20 Looping thru Organization-Move Order Header Combination
2511: FOR batch_rec IN get_org_mo_hdr(p_batch_id) LOOP
2512: --{
2513: IF l_debug_on THEN
2514: WSH_DEBUG_SV.logmsg(l_module_name,'**** Processing Organization '||BATCH_REC.ORGANIZATION_ID||
2515: ' Move Order Header Id '||BATCH_REC.MO_HEADER_ID||' ****');
2516: END IF;
2517:
2518: -- 10.20.10 Clear the Global PL/SQL Tables for printers.
2530:
2531: -- 10.20.20 Getting Organization Parameters
2532: --{
2533: IF l_debug_on THEN
2534: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit GET_ORG_PARAMS',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
2544:
2545: -- 10.20.30 Initialize the cursor to fetch Worker Records
2546: --{
2547: IF l_debug_on THEN
2548: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.GET_WORKER_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2549: END IF;
2550: WSH_PR_CRITERIA.Get_Worker_Records (
2551: p_mode => p_mode,
2552: p_batch_id => p_batch_id,
2563: --{
2564: -- 10.20.40.10 Select a number of order lines at a time
2565: --{
2566: IF l_debug_on THEN
2567: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Get_Lines',WSH_DEBUG_SV.C_PROC_LEVEL);
2568: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2569: END IF;
2570: WSH_PR_CRITERIA.Get_Lines(
2571: p_enforce_ship_set_and_smc => l_org_info.enforce_ship_set_and_smc,
2564: -- 10.20.40.10 Select a number of order lines at a time
2565: --{
2566: IF l_debug_on THEN
2567: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Get_Lines',WSH_DEBUG_SV.C_PROC_LEVEL);
2568: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2569: END IF;
2570: WSH_PR_CRITERIA.Get_Lines(
2571: p_enforce_ship_set_and_smc => l_org_info.enforce_ship_set_and_smc,
2572: p_wms_flag => l_org_info.wms_org,
2574: p_batch_id => p_batch_id,
2575: x_done_flag => l_done_flag,
2576: x_api_status => l_return_status );
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
2575: x_done_flag => l_done_flag,
2576: x_api_status => l_return_status );
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');
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');
2590: END IF;
2591: END IF;
2592: --}
2593:
2599: -- Savepoint to rollback for any error during pick release API
2600: SAVEPOINT BEF_MOVE_ORDER_LINE_CREATE;
2601:
2602: IF l_debug_on THEN
2603: WSH_DEBUG_SV.log(l_module_name, 'l_curr_count',L_CURR_COUNT);
2604: END IF;
2605:
2606: -- 10.20.40.20 Calling Move Order Line API
2607: --{
2605:
2606: -- 10.20.40.20 Calling Move Order Line API
2607: --{
2608: IF l_debug_on THEN
2609: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Create_Move_Order_Lines'
2610: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2611: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2612: END IF;
2613: Create_Move_Order_Lines (
2606: -- 10.20.40.20 Calling Move Order Line API
2607: --{
2608: IF l_debug_on THEN
2609: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Create_Move_Order_Lines'
2610: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2611: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2612: END IF;
2613: Create_Move_Order_Lines (
2614: p_batch_id => p_batch_id,
2607: --{
2608: IF l_debug_on THEN
2609: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Create_Move_Order_Lines'
2610: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2611: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2612: END IF;
2613: Create_Move_Order_Lines (
2614: p_batch_id => p_batch_id,
2615: p_worker_id => p_worker_id,
2624: x_curr_count => l_curr_count,
2625: x_return_status => l_return_status
2626: );
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
2625: x_return_status => l_return_status
2626: );
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');
2636: IF l_completion_status = 'NORMAL' THEN
2637: l_completion_status := 'WARNING';
2638: END IF;
2639: IF l_debug_on THEN
2640: WSH_DEBUG_SV.log(l_Module_name, 'Create_Move_Order_Lines returned with warning');
2641: END IF;
2642: END IF;
2643: --}
2644:
2656: IF ((l_org_info.autocreate_deliveries = 'Y') AND (WSH_PR_CRITERIA.g_trip_id = 0)
2657: AND (WSH_PR_CRITERIA.g_delivery_id = 0) AND (WSH_PR_CRITERIA.release_table.count > 0))THEN
2658: --{
2659: IF l_debug_on THEN
2660: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2661: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
2662: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2663: END IF;
2664: -- Clear delivery detail IDs from table
2657: AND (WSH_PR_CRITERIA.g_delivery_id = 0) AND (WSH_PR_CRITERIA.release_table.count > 0))THEN
2658: --{
2659: IF l_debug_on THEN
2660: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2661: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
2662: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2663: END IF;
2664: -- Clear delivery detail IDs from table
2665: l_del_details_tbl.delete;
2658: --{
2659: IF l_debug_on THEN
2660: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2661: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
2662: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2663: END IF;
2664: -- Clear delivery detail IDs from table
2665: l_del_details_tbl.delete;
2666: -- Populate table with delivery detail IDs
2707: j := g_del_detail_ids.NEXT(j);
2708: END IF;
2709: END IF;
2710: IF l_debug_on THEN
2711: WSH_DEBUG_SV.logmsg(l_module_name,i||' Exp Org DD= '
2712: ||g_exp_pick_release_stat(i).delivery_detail_id|| ' j= '||j
2713: ||' Org DD '||g_del_detail_ids(j)||' Trolin Del '||g_trolin_delivery_ids(j));
2714: END IF;
2715: IF (g_exp_pick_release_stat(i).delivery_detail_id = g_del_detail_ids(j)
2729: END LOOP;
2730: --}
2731: END IF;
2732: IF l_debug_on THEN
2733: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
2734: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2735: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2736: END IF;
2737: Autocreate_Deliveries (
2730: --}
2731: END IF;
2732: IF l_debug_on THEN
2733: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
2734: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2735: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2736: END IF;
2737: Autocreate_Deliveries (
2738: p_append_flag => l_org_info.append_flag,
2731: END IF;
2732: IF l_debug_on THEN
2733: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
2734: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2735: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2736: END IF;
2737: Autocreate_Deliveries (
2738: p_append_flag => l_org_info.append_flag,
2739: p_use_header_flag => l_org_info.use_header_flag,
2740: p_del_details_tbl => l_del_details_tbl,
2741: x_return_status => l_return_status
2742: );
2743: 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)
2741: x_return_status => l_return_status
2742: );
2743: 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
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 );
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);
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');
2777: END IF;
2778: END IF;
2779: END IF;
2780: IF l_debug_on THEN
2781: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
2782: END IF;
2783: COMMIT;
2784: END IF; --}
2785:
2811: l_skip_cartonization := FALSE;
2812: END IF;
2813:
2814: IF l_debug_on THEN
2815: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2816: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODETAIL' );
2817: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2818: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2819: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2812: END IF;
2813:
2814: IF l_debug_on THEN
2815: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2816: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODETAIL' );
2817: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2818: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2819: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2820: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2813:
2814: IF l_debug_on THEN
2815: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2816: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODETAIL' );
2817: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2818: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2819: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2820: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2821: IF l_plan_tasks THEN
2814: IF l_debug_on THEN
2815: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2816: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODETAIL' );
2817: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2818: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2819: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2820: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2821: IF l_plan_tasks THEN
2822: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is TRUE');
2816: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODETAIL' );
2817: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2818: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2819: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2820: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2821: IF l_plan_tasks THEN
2822: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is TRUE');
2823: ELSE
2824: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is FALSE');
2818: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2819: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2820: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2821: IF l_plan_tasks THEN
2822: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is TRUE');
2823: ELSE
2824: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is FALSE');
2825: END IF;
2826: IF l_skip_cartonization THEN
2820: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2821: IF l_plan_tasks THEN
2822: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is TRUE');
2823: ELSE
2824: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is FALSE');
2825: END IF;
2826: IF l_skip_cartonization THEN
2827: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is TRUE');
2828: ELSE
2823: ELSE
2824: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is FALSE');
2825: END IF;
2826: IF l_skip_cartonization THEN
2827: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is TRUE');
2828: ELSE
2829: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is FALSE');
2830: END IF;
2831: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2825: END IF;
2826: IF l_skip_cartonization THEN
2827: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is TRUE');
2828: ELSE
2829: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is FALSE');
2830: END IF;
2831: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2832: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PUB.PICK_RELEASE',
2833: WSH_DEBUG_SV.C_PROC_LEVEL);
2827: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is TRUE');
2828: ELSE
2829: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is FALSE');
2830: END IF;
2831: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2832: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PUB.PICK_RELEASE',
2833: WSH_DEBUG_SV.C_PROC_LEVEL);
2834: END IF;
2835: -- X-dock
2828: ELSE
2829: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is FALSE');
2830: END IF;
2831: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2832: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PUB.PICK_RELEASE',
2833: WSH_DEBUG_SV.C_PROC_LEVEL);
2834: END IF;
2835: -- X-dock
2836: -- add parameters for X-dock
2829: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is FALSE');
2830: END IF;
2831: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2832: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PUB.PICK_RELEASE',
2833: WSH_DEBUG_SV.C_PROC_LEVEL);
2834: END IF;
2835: -- X-dock
2836: -- add parameters for X-dock
2837: -- P_DEL_DETAIL_ID (g_xdock_detail_ids) :contains the list of delivery
2861: x_msg_count => l_msg_count,
2862: x_msg_data => l_msg_data);
2863:
2864: IF l_debug_on THEN
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)
2862: x_msg_data => l_msg_data);
2863:
2864: IF l_debug_on THEN
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
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);
2907: l_exception_msg_count := NULL;
2908: l_exception_msg_data := NULL;
2909: l_dummy_exception_id := NULL;
2910: IF l_debug_on THEN
2911: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION'
2912: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2913: END IF;
2914: wsh_xc_util.log_exception(
2915: p_api_version => 1.0,
2908: l_exception_msg_data := NULL;
2909: l_dummy_exception_id := NULL;
2910: IF l_debug_on THEN
2911: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION'
2912: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2913: END IF;
2914: wsh_xc_util.log_exception(
2915: p_api_version => 1.0,
2916: p_logging_entity => 'SHIPPER',
2926: x_msg_count => l_exception_msg_count,
2927: x_msg_data => l_exception_msg_data,
2928: x_exception_id => l_dummy_exception_id);
2929: IF l_debug_on THEN
2930: WSH_DEBUG_SV.logmsg(l_module_name, 'LOGGED EXCEPTION '||L_DUMMY_EXCEPTION_ID );
2931: END IF;
2932: END LOOP;
2933: --}
2934: END IF;
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 );
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);
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');
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,
2984: 'MOVE ORDER LINE ID: '
2985: || L_PICK_RELEASE_STAT(I).MO_LINE_ID
2986: || ' RELEASE STATUS: '
2987: || L_PICK_RELEASE_STAT(I).RETURN_STATUS
2992: l_counter := g_trolin_tbl.FIRST ;
2993: WHILE l_counter is NOT NULL LOOP
2994: IF (g_trolin_tbl(l_counter).line_id = l_pick_release_stat(i).mo_line_id) THEN
2995: IF l_debug_on THEN
2996: WSH_DEBUG_SV.logmsg(l_module_name, 'REMOVING MOVE ORDER LINE '
2997: ||L_PICK_RELEASE_STAT(I).MO_LINE_ID );
2998: END IF;
2999: g_trolin_tbl.DELETE(l_counter);
3000: END IF;
3006: --}
3007: END IF;
3008: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3009: IF l_debug_on THEN
3010: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
3011: END IF;
3012: COMMIT;
3013: END IF;
3014:
3019: --{
3020: IF (WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.COUNT > 0) THEN
3021: --{
3022: IF l_debug_on THEN
3023: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINTING PICK SLIPS IN IMMEDIATE MODE...' );
3024: END IF;
3025: FOR i in WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.FIRST ..
3026: WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.LAST
3027: LOOP
3025: FOR i in WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.FIRST ..
3026: WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.LAST
3027: LOOP
3028: IF l_debug_on THEN
3029: WSH_DEBUG_SV.logmsg(l_module_name, ' === PRINTING PICK SLIP '
3030: ||WSH_PR_PICK_SLIP_NUMBER.G_PRINT_PS_TABLE ( I ) ||' ===' );
3031: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP',WSH_DEBUG_SV.C_PROC_LEVEL);
3032: END IF;
3033: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip(
3027: LOOP
3028: IF l_debug_on THEN
3029: WSH_DEBUG_SV.logmsg(l_module_name, ' === PRINTING PICK SLIP '
3030: ||WSH_PR_PICK_SLIP_NUMBER.G_PRINT_PS_TABLE ( I ) ||' ===' );
3031: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP',WSH_DEBUG_SV.C_PROC_LEVEL);
3032: END IF;
3033: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip(
3034: p_pick_slip_number => WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table(i),
3035: p_report_set_id => WSH_PICK_LIST.G_SEED_DOC_SET,
3037: p_ps_mode => 'I',
3038: x_api_status => l_return_status,
3039: x_error_message => l_message );
3040: IF l_debug_on THEN
3041: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip l_return_status'
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;
3039: x_error_message => l_message );
3040: IF l_debug_on THEN
3041: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip l_return_status'
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
3052: END LOOP;
3053: --}
3054: ELSE
3055: IF l_debug_on THEN
3056: WSH_DEBUG_SV.logmsg(l_module_name, 'NO PICK SLIPS TO PRINT' );
3057: END IF;
3058: END IF;
3059: WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.DELETE;
3060: --}
3066: -- Need to add this commit for scenarios where Auto Allocate is No and, if number of lines is
3067: -- greater than Pick Release Batch size
3068: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3069: IF l_debug_on THEN
3070: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
3071: END IF;
3072: COMMIT;
3073: END IF;
3074: END IF;
3081: --{
3082: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
3083: --{
3084: IF l_debug_on THEN
3085: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3086: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTO PICK CONFIRM' );
3087: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3088: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3089: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3082: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
3083: --{
3084: IF l_debug_on THEN
3085: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3086: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTO PICK CONFIRM' );
3087: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3088: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3089: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3090: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3083: --{
3084: IF l_debug_on THEN
3085: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3086: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTO PICK CONFIRM' );
3087: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3088: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3089: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3090: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3091: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_WAVE_PICK_CONFIRM_PUB.PICK_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
3084: IF l_debug_on THEN
3085: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3086: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTO PICK CONFIRM' );
3087: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3088: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3089: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3090: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3091: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_WAVE_PICK_CONFIRM_PUB.PICK_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
3092: END IF;
3086: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTO PICK CONFIRM' );
3087: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3088: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3089: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3090: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3091: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_WAVE_PICK_CONFIRM_PUB.PICK_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
3092: END IF;
3093: INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm
3094: (p_api_version_number => l_api_version_number,
3087: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3088: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3089: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3090: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3091: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_WAVE_PICK_CONFIRM_PUB.PICK_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
3092: END IF;
3093: INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm
3094: (p_api_version_number => l_api_version_number,
3095: p_init_msg_list => FND_API.G_TRUE,
3104: x_msg_count => l_msg_count,
3105: x_msg_data => l_msg_data
3106: );
3107: IF l_debug_on THEN
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)
3105: x_msg_data => l_msg_data
3106: );
3107: IF l_debug_on THEN
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
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;
3144:
3145: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
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
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;
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');
3163: END IF;
3164: END IF;
3165: END IF;
3166: IF l_debug_on THEN
3167: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
3168: END IF;
3169: COMMIT;
3170: END IF; --}
3171: --}
3225: --}
3226:
3227: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3228: IF l_debug_on THEN
3229: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
3230: END IF;
3231: COMMIT;
3232: END IF;
3233:
3259: worker_row_locked exception;
3260: PRAGMA EXCEPTION_INIT(worker_row_locked, -54);
3261: BEGIN
3262: IF l_debug_on THEN
3263: WSH_DEBUG_SV.logmsg(l_module_name,'Getting lock for Del '||crec.delivery_id);
3264: END IF;
3265: SELECT 'x'
3266: INTO l_dummy
3267: FROM wsh_pr_workers
3289: --{
3290: IF crec.ap_level > 0 THEN
3291: --{
3292: IF l_debug_on THEN
3293: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_BATCH_PROCESS.Auto_Pack_A_Delivery'
3294: ,WSH_DEBUG_SV.C_PROC_LEVEL);
3295: END IF;
3296: l_del_pack_count := l_del_pack_count + 1;
3297: WSH_BATCH_PROCESS.Auto_Pack_A_Delivery (
3290: IF crec.ap_level > 0 THEN
3291: --{
3292: IF l_debug_on THEN
3293: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_BATCH_PROCESS.Auto_Pack_A_Delivery'
3294: ,WSH_DEBUG_SV.C_PROC_LEVEL);
3295: END IF;
3296: l_del_pack_count := l_del_pack_count + 1;
3297: WSH_BATCH_PROCESS.Auto_Pack_A_Delivery (
3298: p_delivery_id => crec.delivery_id,
3323: --}
3324: END IF;
3325:
3326: IF l_debug_on THEN
3327: WSH_DEBUG_SV.log(l_module_name,'sc_rule_id',crec.sc_rule_id);
3328: END IF;
3329:
3330: IF crec.sc_rule_id IS NOT NULL THEN
3331: --{
3350: END IF;
3351:
3352: --{
3353: IF l_debug_on THEN
3354: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling program unit WSH_BATCH_PROCESS.Ship_Confirm_A_Delivery');
3355: END IF;
3356: WSH_BATCH_PROCESS.Ship_Confirm_A_Delivery (
3357: p_delivery_id => crec.delivery_id,
3358: p_sc_batch_id => crec.pa_sc_batch_id,
3395: --}
3396: END LOOP;
3397:
3398: IF l_debug_on THEN
3399: WSH_DEBUG_SV.log(l_module_name,'l_completion_status ', l_completion_status);
3400: WSH_DEBUG_SV.logmsg(l_module_name,'l_del_pack_count '||l_del_pack_count
3401: ||' l_packed_results_success '||l_packed_results_success
3402: ||' l_del_sc_count '||l_del_sc_count
3403: ||' l_confirmed_results_success '||l_confirmed_results_success);
3396: END LOOP;
3397:
3398: IF l_debug_on THEN
3399: WSH_DEBUG_SV.log(l_module_name,'l_completion_status ', l_completion_status);
3400: WSH_DEBUG_SV.logmsg(l_module_name,'l_del_pack_count '||l_del_pack_count
3401: ||' l_packed_results_success '||l_packed_results_success
3402: ||' l_del_sc_count '||l_del_sc_count
3403: ||' l_confirmed_results_success '||l_confirmed_results_success);
3404: END IF;
3438: END IF;
3439: --}
3440:
3441: IF l_debug_on THEN
3442: WSH_DEBUG_SV.logmsg(l_module_name,'ERRBUF :'||errbuf ||' RETCODE :'||retcode||' l_completion_status :'||l_completion_status);
3443: WSH_DEBUG_SV.pop(l_module_name);
3444: END IF;
3445:
3446: EXCEPTION
3439: --}
3440:
3441: IF l_debug_on THEN
3442: WSH_DEBUG_SV.logmsg(l_module_name,'ERRBUF :'||errbuf ||' RETCODE :'||retcode||' l_completion_status :'||l_completion_status);
3443: WSH_DEBUG_SV.pop(l_module_name);
3444: END IF;
3445:
3446: EXCEPTION
3447: WHEN e_return THEN
3466: retcode := '2';
3467: END IF;
3468: G_ONLINE_PICK_RELEASE_RESULT := 'F';
3469: IF l_debug_on THEN
3470: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN');
3471: END IF;
3472: WHEN OTHERS THEN
3473: --Bug 5355135
3474: IF G_CONC_REQ = FND_API.G_TRUE THEN
3490: retcode := '2';
3491: END IF;
3492: G_ONLINE_PICK_RELEASE_RESULT := 'F';
3493: IF l_debug_on THEN
3494: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
3495: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3496: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3497: END IF;
3498:
3491: END IF;
3492: G_ONLINE_PICK_RELEASE_RESULT := 'F';
3493: IF l_debug_on THEN
3494: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
3495: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3496: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3497: END IF;
3498:
3499: END Release_Batch_Sub;
3492: G_ONLINE_PICK_RELEASE_RESULT := 'F';
3493: IF l_debug_on THEN
3494: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
3495: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3496: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3497: END IF;
3498:
3499: END Release_Batch_Sub;
3500:
4094:
4095: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4096: IF l_debug_on IS NULL
4097: THEN
4098: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4099: END IF;
4100:
4101: IF l_debug_on THEN
4102: WSH_DEBUG_SV.push(l_module_name);
4098: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4099: END IF;
4100:
4101: IF l_debug_on THEN
4102: WSH_DEBUG_SV.push(l_module_name);
4103: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
4104: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
4105: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
4106: END IF;
4099: END IF;
4100:
4101: IF l_debug_on THEN
4102: WSH_DEBUG_SV.push(l_module_name);
4103: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
4104: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
4105: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
4106: END IF;
4107:
4100:
4101: IF l_debug_on THEN
4102: WSH_DEBUG_SV.push(l_module_name);
4103: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
4104: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
4105: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
4106: END IF;
4107:
4108: -- Set Online Pick Release Result
4101: IF l_debug_on THEN
4102: WSH_DEBUG_SV.push(l_module_name);
4103: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
4104: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
4105: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
4106: END IF;
4107:
4108: -- Set Online Pick Release Result
4109: -- 40. Initialized pick release phase to Start.
4119: -- Bug 5222079
4120: -- Clear the pick slip number table
4121: --
4122: IF l_debug_on THEN
4123: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.DELETE_PS_TBL',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
4157: -- Set flag to print cursor information
4158: l_print_cursor_flag := 'Y';
4159:
4160: IF l_debug_on THEN
4161: WSH_DEBUG_SV.log(l_module_name,'l_mode ',l_mode);
4162: END IF;
4163:
4164: IF l_mode IS NULL THEN
4165: IF l_debug_on THEN
4162: END IF;
4163:
4164: IF l_mode IS NULL THEN
4165: IF l_debug_on THEN
4166: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4167: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
4168: WSH_DEBUG_SV.log(l_module_name,'DDs for batch ',l_temp_num);
4169: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4170: END IF;
4164: IF l_mode IS NULL THEN
4165: IF l_debug_on THEN
4166: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4167: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
4168: WSH_DEBUG_SV.log(l_module_name,'DDs for batch ',l_temp_num);
4169: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4170: END IF;
4171: END IF;
4172:
4165: IF l_debug_on THEN
4166: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4167: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
4168: WSH_DEBUG_SV.log(l_module_name,'DDs for batch ',l_temp_num);
4169: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4170: END IF;
4171: END IF;
4172:
4173: -- 60. Calling Init_Pick_Release API to initialize global variables in WSH_PR_CRITERIA package
4172:
4173: -- 60. Calling Init_Pick_Release API to initialize global variables in WSH_PR_CRITERIA package
4174: -- and also set Batch_Id and Seeded Pick Release Document Set
4175: IF l_debug_on THEN
4176: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INIT_PICK_RELEASE',WSH_DEBUG_SV.C_PROC_LEVEL);
4177: END IF;
4178: Init_Pick_Release( p_batch_id => p_batch_id,
4179: p_worker_id => NULL,
4180: x_return_status => l_return_status);
4179: p_worker_id => NULL,
4180: x_return_status => l_return_status);
4181:
4182: IF l_debug_on THEN
4183: WSH_DEBUG_SV.log(l_module_name,'INIT_PICK_RELEASE l_return_status',l_return_status);
4184: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
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;
4181:
4182: IF l_debug_on THEN
4183: WSH_DEBUG_SV.log(l_module_name,'INIT_PICK_RELEASE l_return_status',l_return_status);
4184: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
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
4182: IF l_debug_on THEN
4183: WSH_DEBUG_SV.log(l_module_name,'INIT_PICK_RELEASE l_return_status',l_return_status);
4184: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
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');
4228: CLOSE c_batch_orgs;
4229: END IF; --}
4230:
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;
4240: -- Need to initialize the table , when l_organization_id is not NULL
4241: --Cursor get_orgs is not opened.
4242: l_organization_tab(1) := l_organization_id;
4243: IF l_debug_on THEN
4244: WSH_DEBUG_SV.log(l_module_name, 'Number of Organizations',l_organization_tab.count);
4245: END IF;
4246: END IF;
4247:
4248: -- 80. Sorting for Distinct records of Organizations
4247:
4248: -- 80. Sorting for Distinct records of Organizations
4249: IF l_organization_tab.count > 1 AND l_mode IS NULL THEN --{
4250: IF l_debug_on THEN
4251: WSH_DEBUG_SV.log(l_module_name,'Count is more than 1 : ',l_organization_tab.count);
4252: END IF;
4253: DELETE FROM wsh_tmp;
4254:
4255: FORALL i IN l_organization_tab.FIRST..l_organization_tab.LAST
4259: FETCH c_distinct_organization_id BULK COLLECT INTO l_distinct_organization_tab;
4260: CLOSE c_distinct_organization_id;
4261:
4262: IF l_debug_on THEN
4263: WSH_DEBUG_SV.log(l_module_name,'Distinct Count : ',l_distinct_organization_tab.count);
4264: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4265: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4266: END IF;
4267:
4260: CLOSE c_distinct_organization_id;
4261:
4262: IF l_debug_on THEN
4263: WSH_DEBUG_SV.log(l_module_name,'Distinct Count : ',l_distinct_organization_tab.count);
4264: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4265: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4266: END IF;
4267:
4268:
4261:
4262: IF l_debug_on THEN
4263: WSH_DEBUG_SV.log(l_module_name,'Distinct Count : ',l_distinct_organization_tab.count);
4264: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4265: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4266: END IF;
4267:
4268:
4269: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4269: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4270: -- delivery or print pick slip mode is immediate.
4271:
4272: IF l_debug_on THEN
4273: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4274: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4275: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4276: END IF;
4277: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4270: -- delivery or print pick slip mode is immediate.
4271:
4272: IF l_debug_on THEN
4273: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4274: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4275: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4276: END IF;
4277: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4278: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4271:
4272: IF l_debug_on THEN
4273: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4274: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4275: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4276: END IF;
4277: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4278: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4279: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4282: IF l_psgr_delivery_flag = 'Y' THEN
4283: G_NUM_WORKERS := 1;
4284: G_PICK_REL_PARALLEL := FALSE;
4285: IF l_debug_on THEN
4286: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4287: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4288: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4289: END IF;
4290: ELSE
4283: G_NUM_WORKERS := 1;
4284: G_PICK_REL_PARALLEL := FALSE;
4285: IF l_debug_on THEN
4286: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4287: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4288: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4289: END IF;
4290: ELSE
4291: OPEN c_is_print_ps_mode_I;
4284: G_PICK_REL_PARALLEL := FALSE;
4285: IF l_debug_on THEN
4286: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4287: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4288: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4289: END IF;
4290: ELSE
4291: OPEN c_is_print_ps_mode_I;
4292: FETCH c_is_print_ps_mode_I INTO l_tmp_org_id;
4295: G_PICK_REL_PARALLEL := FALSE;
4296: END IF;
4297: CLOSE c_is_print_ps_mode_I;
4298: IF l_debug_on THEN
4299: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4300: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4301: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4302: END IF;
4303: END IF;
4296: END IF;
4297: CLOSE c_is_print_ps_mode_I;
4298: IF l_debug_on THEN
4299: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4300: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4301: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4302: END IF;
4303: END IF;
4304: ELSE
4297: CLOSE c_is_print_ps_mode_I;
4298: IF l_debug_on THEN
4299: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4300: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4301: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4302: END IF;
4303: END IF;
4304: ELSE
4305: OPEN c_prnt_PS_mode_PS_grp;
4309: G_PICK_REL_PARALLEL := FALSE;
4310: END IF;
4311: CLOSE c_prnt_PS_mode_PS_grp;
4312: IF l_debug_on THEN
4313: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4314: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4315: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4316: END IF;
4317: END IF;
4310: END IF;
4311: CLOSE c_prnt_PS_mode_PS_grp;
4312: IF l_debug_on THEN
4313: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4314: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4315: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4316: END IF;
4317: END IF;
4318:
4311: CLOSE c_prnt_PS_mode_PS_grp;
4312: IF l_debug_on THEN
4313: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4314: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4315: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4316: END IF;
4317: END IF;
4318:
4319: -- END Bug 5247554.
4326:
4327: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4328: -- delivery or print pick slip mode is immediate.
4329: IF l_debug_on THEN
4330: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4331: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4332: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4333: END IF;
4334: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4327: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4328: -- delivery or print pick slip mode is immediate.
4329: IF l_debug_on THEN
4330: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4331: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4332: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4333: END IF;
4334: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4335: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4328: -- delivery or print pick slip mode is immediate.
4329: IF l_debug_on THEN
4330: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4331: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4332: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4333: END IF;
4334: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4335: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4336: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4339: IF l_psgr_delivery_flag = 'Y' THEN
4340: G_NUM_WORKERS := 1;
4341: G_PICK_REL_PARALLEL := FALSE;
4342: IF l_debug_on THEN
4343: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4344: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4345: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4346: END IF;
4347: ELSE
4340: G_NUM_WORKERS := 1;
4341: G_PICK_REL_PARALLEL := FALSE;
4342: IF l_debug_on THEN
4343: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4344: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4345: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4346: END IF;
4347: ELSE
4348: OPEN c_is_print_ps_mode_I_for_org(l_organization_tab(1));
4341: G_PICK_REL_PARALLEL := FALSE;
4342: IF l_debug_on THEN
4343: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4344: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4345: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4346: END IF;
4347: ELSE
4348: OPEN c_is_print_ps_mode_I_for_org(l_organization_tab(1));
4349: FETCH c_is_print_ps_mode_I_for_org INTO l_tmp_org_id;
4352: G_PICK_REL_PARALLEL := FALSE;
4353: END IF;
4354: CLOSE c_is_print_ps_mode_I_for_org;
4355: IF l_debug_on THEN
4356: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4357: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4358: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4359: END IF;
4360: END IF;
4353: END IF;
4354: CLOSE c_is_print_ps_mode_I_for_org;
4355: IF l_debug_on THEN
4356: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4357: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4358: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4359: END IF;
4360: END IF;
4361: ELSE
4354: CLOSE c_is_print_ps_mode_I_for_org;
4355: IF l_debug_on THEN
4356: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4357: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4358: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4359: END IF;
4360: END IF;
4361: ELSE
4362: OPEN c_prnt_PS_mode_PS_grp_for_org(l_organization_tab(1));
4366: G_PICK_REL_PARALLEL := FALSE;
4367: END IF;
4368: CLOSE c_prnt_PS_mode_PS_grp_for_org;
4369: IF l_debug_on THEN
4370: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_use_delivery_ps ',WSH_PR_CRITERIA.g_use_delivery_ps);
4371: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4372: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4373: END IF;
4374: END IF;
4367: END IF;
4368: CLOSE c_prnt_PS_mode_PS_grp_for_org;
4369: IF l_debug_on THEN
4370: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_use_delivery_ps ',WSH_PR_CRITERIA.g_use_delivery_ps);
4371: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4372: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4373: END IF;
4374: END IF;
4375:
4368: CLOSE c_prnt_PS_mode_PS_grp_for_org;
4369: IF l_debug_on THEN
4370: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_use_delivery_ps ',WSH_PR_CRITERIA.g_use_delivery_ps);
4371: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4372: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4373: END IF;
4374: END IF;
4375:
4376: -- END Bug 5247554.
4392: WSH_INV_INTEGRATION_GRP.G_ORGTAB.delete ;
4393: WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB.delete ;
4394:
4395: IF l_debug_on THEN
4396: WSH_DEBUG_SV.logmsg(l_module_name, '********************************************');
4397: WSH_DEBUG_SV.logmsg(l_module_name, 'Processing Org ' || l_organization_id);
4398: END IF;
4399:
4400: IF l_mode IS NULL THEN --{
4393: WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB.delete ;
4394:
4395: IF l_debug_on THEN
4396: WSH_DEBUG_SV.logmsg(l_module_name, '********************************************');
4397: WSH_DEBUG_SV.logmsg(l_module_name, 'Processing Org ' || l_organization_id);
4398: END IF;
4399:
4400: IF l_mode IS NULL THEN --{
4401:
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
4418: IF l_debug_on THEN
4419: WSH_DEBUG_SV.logmsg(l_module_name,'SKIPPING TPW ORGANIZATION (PICKING IS NOT SUPPORTED)');
4415: WSH_DEBUG_SV.log(l_module_name, 'Org Type', L_WAREHOUSE_TYPE );
4416: END IF;
4417: IF l_warehouse_type = 'TPW' THEN
4418: IF l_debug_on THEN
4419: WSH_DEBUG_SV.logmsg(l_module_name,'SKIPPING TPW ORGANIZATION (PICKING IS NOT SUPPORTED)');
4420: END IF;
4421: GOTO next_organization;
4422: END IF;
4423: --}
4432: END IF; --}
4433:
4434: -- 90.4 Getting Organization Parameters
4435: IF l_debug_on THEN
4436: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit GET_ORG_PARAMS',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
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;
4447: END IF;
4448:
4485: l_trohdr_rec.request_number := l_batch_name;
4486:
4487: -- 90.7 Create Move Order Header
4488: IF l_debug_on THEN
4489: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_HEADER',WSH_DEBUG_SV.C_PROC_LEVEL);
4490: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4491: END IF;
4492:
4493: Inv_Move_Order_Pub.Create_Move_Order_Header
4486:
4487: -- 90.7 Create Move Order Header
4488: IF l_debug_on THEN
4489: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_HEADER',WSH_DEBUG_SV.C_PROC_LEVEL);
4490: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4491: END IF;
4492:
4493: Inv_Move_Order_Pub.Create_Move_Order_Header
4494: (
4505: x_msg_data => l_msg_data
4506: );
4507:
4508: IF l_debug_on THEN
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)
4506: );
4507:
4508: IF l_debug_on THEN
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 --{
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;
4530:
4531: -- 90.8 Data should be committed only in case of a concurrent request.
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:
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);
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');
4552: END IF;
4553: END IF;
4554: END IF;
4555: IF l_debug_on THEN
4556: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
4557: END IF;
4558: COMMIT; -- commit for move order header creation
4559: END IF;
4560:
4613:
4614: ELSE --{
4615:
4616: IF l_debug_on THEN
4617: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Cursor',
4618: WSH_DEBUG_SV.C_PROC_LEVEL);
4619: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4620: END IF;
4621:
4614: ELSE --{
4615:
4616: IF l_debug_on THEN
4617: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Cursor',
4618: WSH_DEBUG_SV.C_PROC_LEVEL);
4619: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4620: END IF;
4621:
4622: WSH_PR_CRITERIA.Init_Cursor(
4615:
4616: IF l_debug_on THEN
4617: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Cursor',
4618: WSH_DEBUG_SV.C_PROC_LEVEL);
4619: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4620: END IF;
4621:
4622: WSH_PR_CRITERIA.Init_Cursor(
4623: p_organization_id => l_organization_id,
4634: x_dd_count => l_dd_records,
4635: x_api_status => l_return_status);
4636:
4637: IF l_debug_on THEN
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)
4635: x_api_status => l_return_status);
4636:
4637: IF l_debug_on THEN
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
4698:
4699: -- Print log messages only if request is not resuming from Regular Pick or Pack/Ship Mode
4700: IF NVL(l_mode,'X') NOT IN ('PICK', 'PS') THEN --{
4701: IF l_debug_on THEN
4702: WSH_DEBUG_SV.log(l_module_name,'l_tot_worker_records ',l_tot_worker_records);
4703: WSH_DEBUG_SV.log(l_module_name,'l_tot_smc_records ',l_tot_smc_records);
4704: WSH_DEBUG_SV.log(l_module_name,'l_tot_dd_records ',l_tot_dd_records);
4705: WSH_DEBUG_SV.log(l_module_name,'Run Ship Sets / SMCs in Parallel ',WSH_CUSTOM_PUB.Run_PR_SMC_SS_Parallel);
4706: END IF;
4699: -- Print log messages only if request is not resuming from Regular Pick or Pack/Ship Mode
4700: IF NVL(l_mode,'X') NOT IN ('PICK', 'PS') THEN --{
4701: IF l_debug_on THEN
4702: WSH_DEBUG_SV.log(l_module_name,'l_tot_worker_records ',l_tot_worker_records);
4703: WSH_DEBUG_SV.log(l_module_name,'l_tot_smc_records ',l_tot_smc_records);
4704: WSH_DEBUG_SV.log(l_module_name,'l_tot_dd_records ',l_tot_dd_records);
4705: WSH_DEBUG_SV.log(l_module_name,'Run Ship Sets / SMCs in Parallel ',WSH_CUSTOM_PUB.Run_PR_SMC_SS_Parallel);
4706: END IF;
4707: END IF; --}
4700: IF NVL(l_mode,'X') NOT IN ('PICK', 'PS') THEN --{
4701: IF l_debug_on THEN
4702: WSH_DEBUG_SV.log(l_module_name,'l_tot_worker_records ',l_tot_worker_records);
4703: WSH_DEBUG_SV.log(l_module_name,'l_tot_smc_records ',l_tot_smc_records);
4704: WSH_DEBUG_SV.log(l_module_name,'l_tot_dd_records ',l_tot_dd_records);
4705: WSH_DEBUG_SV.log(l_module_name,'Run Ship Sets / SMCs in Parallel ',WSH_CUSTOM_PUB.Run_PR_SMC_SS_Parallel);
4706: END IF;
4707: END IF; --}
4708:
4701: IF l_debug_on THEN
4702: WSH_DEBUG_SV.log(l_module_name,'l_tot_worker_records ',l_tot_worker_records);
4703: WSH_DEBUG_SV.log(l_module_name,'l_tot_smc_records ',l_tot_smc_records);
4704: WSH_DEBUG_SV.log(l_module_name,'l_tot_dd_records ',l_tot_dd_records);
4705: WSH_DEBUG_SV.log(l_module_name,'Run Ship Sets / SMCs in Parallel ',WSH_CUSTOM_PUB.Run_PR_SMC_SS_Parallel);
4706: END IF;
4707: END IF; --}
4708:
4709: -- 100. Calculate Actual number of worker requests to be spawned
4714: l_num_workers := LEAST(l_tot_smc_records, NVL(g_num_workers,1));
4715:
4716: IF l_num_workers > 1 THEN --{
4717: IF l_debug_on THEN
4718: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Spawn_Workers for PICK-SS', WSH_DEBUG_SV.C_PROC_LEVEL);
4719: END IF;
4720: Spawn_Workers (
4721: p_batch_id => p_batch_id,
4722: p_num_requests => l_num_workers,
4724: p_req_status => 0, -- First time Request Status is success (0)
4725: p_log_level => p_log_level,
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');
4744: G_PICK_REL_PARALLEL := TRUE;
4745: END IF;
4746: IF l_debug_on THEN
4747: IF G_PICK_REL_PARALLEL THEN
4748: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4749: ELSE
4750: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4751: END IF;
4752: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4746: IF l_debug_on THEN
4747: IF G_PICK_REL_PARALLEL THEN
4748: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4749: ELSE
4750: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4751: END IF;
4752: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4753: END IF;
4754: l_retcode := NULL;
4748: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4749: ELSE
4750: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4751: END IF;
4752: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4753: END IF;
4754: l_retcode := NULL;
4755: l_errbuf := NULL;
4756: Release_Batch_Sub (
4760: p_worker_id => NULL,
4761: p_mode => 'PICK-SS',
4762: p_log_level => p_log_level );
4763: IF l_debug_on THEN
4764: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
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
4761: p_mode => 'PICK-SS',
4762: p_log_level => p_log_level );
4763: IF l_debug_on THEN
4764: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
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');
4762: p_log_level => p_log_level );
4763: IF l_debug_on THEN
4764: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
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;
4794:
4795: IF l_num_workers > 1 THEN --{
4796: -- 100.2 Spawn requests for all Items
4797: IF l_debug_on THEN
4798: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Spawn_Workers for PICK', WSH_DEBUG_SV.C_PROC_LEVEL);
4799: END IF;
4800: Spawn_Workers (
4801: p_batch_id => p_batch_id,
4802: p_num_requests => l_num_workers,
4804: p_req_status => NVL(l_retcode,0), -- Current Request Status
4805: p_log_level => p_log_level,
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');
4820: ELSIF l_num_workers = 1 THEN
4821: -- For Single Worker Mode, call Release_Batch_Sub api directly {
4822: IF l_debug_on THEN
4823: IF G_PICK_REL_PARALLEL THEN
4824: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4825: ELSE
4826: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4827: END IF;
4828: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4822: IF l_debug_on THEN
4823: IF G_PICK_REL_PARALLEL THEN
4824: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4825: ELSE
4826: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4827: END IF;
4828: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4829: END IF;
4830: l_retcode := NULL;
4824: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4825: ELSE
4826: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4827: END IF;
4828: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4829: END IF;
4830: l_retcode := NULL;
4831: l_errbuf := NULL;
4832: Release_Batch_Sub (
4836: p_worker_id => NULL,
4837: p_mode => 'PICK',
4838: p_log_level => p_log_level );
4839: IF l_debug_on THEN
4840: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
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
4837: p_mode => 'PICK',
4838: p_log_level => p_log_level );
4839: IF l_debug_on THEN
4840: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
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');
4838: p_log_level => p_log_level );
4839: IF l_debug_on THEN
4840: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
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;
4876: l_pr_batch_size :=50;
4877: END;
4878:
4879: IF l_debug_on THEN
4880: WSH_DEBUG_SV.log(l_module_name,'l_pr_batch_size ',l_pr_batch_size);
4881: END IF;
4882:
4883: IF l_mode IN ('PICK-SS','PICK') THEN --{
4884: -- Unassign Backordered details from Delivery/Container
4890: FETCH c_get_backordered_details BULK COLLECT INTO l_backorder_rec_tbl LIMIT l_pr_batch_size;
4891: l_detail_cfetch := c_get_backordered_details%ROWCOUNT - l_detail_pfetch;
4892: EXIT WHEN (l_detail_cfetch = 0);
4893: IF l_debug_on THEN
4894: WSH_DEBUG_SV.log(l_module_name,'Number of backordered lines ',l_backorder_rec_tbl.COUNT);
4895: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.Unassign_Backordered_Details',WSH_DEBUG_SV.C_PROC_LEVEL);
4896: END IF;
4897: WSH_USA_INV_PVT.Unassign_Backordered_Details(
4898: p_backorder_rec_tbl => l_backorder_rec_tbl,
4891: l_detail_cfetch := c_get_backordered_details%ROWCOUNT - l_detail_pfetch;
4892: EXIT WHEN (l_detail_cfetch = 0);
4893: IF l_debug_on THEN
4894: WSH_DEBUG_SV.log(l_module_name,'Number of backordered lines ',l_backorder_rec_tbl.COUNT);
4895: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.Unassign_Backordered_Details',WSH_DEBUG_SV.C_PROC_LEVEL);
4896: END IF;
4897: WSH_USA_INV_PVT.Unassign_Backordered_Details(
4898: p_backorder_rec_tbl => l_backorder_rec_tbl,
4899: p_org_info_tbl => l_org_info_tbl,
4898: p_backorder_rec_tbl => l_backorder_rec_tbl,
4899: p_org_info_tbl => l_org_info_tbl,
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;
4909: END IF;
4910: l_detail_pfetch := c_get_backordered_details%ROWCOUNT;
4911: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
4912: IF l_debug_on THEN
4913: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
4914: END IF;
4915: COMMIT;
4916: END IF;
4917: END LOOP; --}
4926:
4927: -- Unassign empty containers for deliveries that are unassigned during backodering
4928: IF g_unassigned_delivery_ids.COUNT > 0 THEN
4929: IF l_debug_on THEN
4930: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.unassign_empty_containers',WSH_DEBUG_SV.C_PROC_LEVEL);
4931: END IF;
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);
4930: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.unassign_empty_containers',WSH_DEBUG_SV.C_PROC_LEVEL);
4931: END IF;
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;
4944:
4945: -- Call Autocreate Deliveries for the Batch
4946: -- Loop thru all Organization - Details that are not assigned to any deliveries
4947: IF l_debug_on THEN
4948: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4949: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
4950: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4951: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
4952: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
4945: -- Call Autocreate Deliveries for the Batch
4946: -- Loop thru all Organization - Details that are not assigned to any deliveries
4947: IF l_debug_on THEN
4948: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4949: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
4950: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4951: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
4952: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
4953: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
4946: -- Loop thru all Organization - Details that are not assigned to any deliveries
4947: IF l_debug_on THEN
4948: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4949: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
4950: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4951: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
4952: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
4953: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
4954: END IF;
4947: IF l_debug_on THEN
4948: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4949: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
4950: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4951: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
4952: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
4953: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
4954: END IF;
4955:
4949: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
4950: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
4951: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
4952: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
4953: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
4954: END IF;
4955:
4956: FOR crec in c_batch_orgs(p_batch_id) LOOP --{
4957:
4955:
4956: FOR crec in c_batch_orgs(p_batch_id) LOOP --{
4957:
4958: IF l_debug_on THEN
4959: WSH_DEBUG_SV.logmsg(l_module_name,'Org '||crec.organization_id||' Auto Create Del Flag '
4960: ||l_org_info_tbl(crec.organization_id).autocreate_deliveries
4961: ||' Pick Slip Mode '||l_org_info_tbl(crec.organization_id).print_pick_slip_mode);
4962: END IF;
4963: -- Create deliveries only if Pick Slip Mode is 'End' and Delivery is not Part of Grouping
4974: FETCH c_get_unassigned_details BULK COLLECT INTO l_del_details_tbl LIMIT l_pr_batch_size;
4975: l_detail_cfetch := c_get_unassigned_details%ROWCOUNT - l_detail_pfetch;
4976: EXIT WHEN (l_detail_cfetch = 0);
4977: IF l_debug_on THEN
4978: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
4979: ,WSH_DEBUG_SV.C_PROC_LEVEL);
4980: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4981: END IF;
4982: Autocreate_Deliveries (
4975: l_detail_cfetch := c_get_unassigned_details%ROWCOUNT - l_detail_pfetch;
4976: EXIT WHEN (l_detail_cfetch = 0);
4977: IF l_debug_on THEN
4978: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
4979: ,WSH_DEBUG_SV.C_PROC_LEVEL);
4980: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4981: END IF;
4982: Autocreate_Deliveries (
4983: p_append_flag => l_org_info_tbl(crec.organization_id).append_flag,
4976: EXIT WHEN (l_detail_cfetch = 0);
4977: IF l_debug_on THEN
4978: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
4979: ,WSH_DEBUG_SV.C_PROC_LEVEL);
4980: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4981: END IF;
4982: Autocreate_Deliveries (
4983: p_append_flag => l_org_info_tbl(crec.organization_id).append_flag,
4984: p_use_header_flag => l_org_info_tbl(crec.organization_id).use_header_flag,
4985: p_del_details_tbl => l_del_details_tbl,
4986: x_return_status => l_return_status
4987: );
4988: IF l_debug_on THEN
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)
4986: x_return_status => l_return_status
4987: );
4988: IF l_debug_on THEN
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
5017: -- make sure the table is empty
5018: --
5019: l_del_ids_tab.DELETE;
5020: IF l_debug_on THEN
5021: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.PROCESS_CARRIER_SELECTION',WSH_DEBUG_SV.C_PROC_LEVEL);
5022: END IF;
5023: WSH_NEW_DELIVERY_ACTIONS.PROCESS_CARRIER_SELECTION (
5024: p_delivery_id_tab => l_del_ids_tab,
5025: p_batch_id => p_batch_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;
5036: WSH_UTIL_CORE.add_message(l_return_status);
5037: --}
5051: l_in_param_rec.action := 'RATE';
5052: l_in_param_rec.seq_tender_flag := 'Y';
5053:
5054: IF l_debug_on THEN
5055: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.Rate_Delivery',WSH_DEBUG_SV.C_PROC_LEVEL);
5056: END IF;
5057: WSH_FTE_INTEGRATION.Rate_Delivery (
5058: p_api_version => 1.0,
5059: p_init_msg_list => FND_API.G_FALSE,
5063: x_return_status => l_return_status,
5064: x_msg_count => l_msg_count,
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');
5107:
5108: -- Delivery Merge For Pre-existing / Appended Deliveries
5109: IF g_assigned_del_tbl.COUNT > 0 THEN --{
5110: IF l_debug_on THEN
5111: WSH_DEBUG_SV.log(l_module_name,'g_assigned_del_tbl.COUNT', g_assigned_del_tbl.COUNT);
5112: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
5113: END IF;
5114: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag (
5115: p_delivery_ids => g_assigned_del_tbl,
5108: -- Delivery Merge For Pre-existing / Appended Deliveries
5109: IF g_assigned_del_tbl.COUNT > 0 THEN --{
5110: IF l_debug_on THEN
5111: WSH_DEBUG_SV.log(l_module_name,'g_assigned_del_tbl.COUNT', g_assigned_del_tbl.COUNT);
5112: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
5113: END IF;
5114: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag (
5115: p_delivery_ids => g_assigned_del_tbl,
5116: p_caller => 'WSH_DLMG',
5117: p_force_appending_limit => 'N',
5118: p_call_lcss => 'Y',
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');
5135: FETCH c_batch_unplanned_del BULK COLLECT INTO l_delivery_ids LIMIT l_pr_batch_size;
5136: l_detail_cfetch := c_batch_unplanned_del%ROWCOUNT - l_detail_pfetch;
5137: EXIT WHEN (l_detail_cfetch = 0);
5138: IF l_debug_on THEN
5139: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids.COUNT', l_delivery_ids.COUNT);
5140: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
5141: END IF;
5142: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag (
5143: p_delivery_ids => l_delivery_ids,
5136: l_detail_cfetch := c_batch_unplanned_del%ROWCOUNT - l_detail_pfetch;
5137: EXIT WHEN (l_detail_cfetch = 0);
5138: IF l_debug_on THEN
5139: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids.COUNT', l_delivery_ids.COUNT);
5140: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
5141: END IF;
5142: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag (
5143: p_delivery_ids => l_delivery_ids,
5144: p_caller => 'WSH_DLMG',
5145: p_force_appending_limit => 'N',
5146: p_call_lcss => 'Y',
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');
5157: END LOOP; --}
5158:
5159: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
5160: IF l_debug_on THEN
5161: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
5162: END IF;
5163: COMMIT;
5164: END IF;
5165:
5174: --{
5175: FOR crec IN c_wms_orgs(p_batch_id) LOOP --{
5176: IF l_org_info_tbl(crec.organization_id).auto_pick_confirm = 'Y' THEN
5177: IF l_debug_on THEN
5178: WSH_DEBUG_SV.logmsg(l_module_name,'Skipping Cartonization as Auto Pick Confirm is Yes for Org :'||crec.organization_id);
5179: END IF;
5180: GOTO SKIP_WMS_ORG;
5181: END IF;
5182: l_del_details_tbl.delete;
5195: l_attr_tab(i).entity_type := 'DELIVERY_DETAIL';
5196: END LOOP;
5197: l_action_rec.action := 'MATCH_GROUPS';
5198: IF l_debug_on THEN
5199: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups'
5200: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5201: WSH_DEBUG_SV.log(l_module_name,'l_attr_tab.COUNT ',l_attr_tab.COUNT);
5202: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5203: END IF;
5196: END LOOP;
5197: l_action_rec.action := 'MATCH_GROUPS';
5198: IF l_debug_on THEN
5199: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups'
5200: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5201: WSH_DEBUG_SV.log(l_module_name,'l_attr_tab.COUNT ',l_attr_tab.COUNT);
5202: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5203: END IF;
5204: WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups (
5197: l_action_rec.action := 'MATCH_GROUPS';
5198: IF l_debug_on THEN
5199: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups'
5200: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5201: WSH_DEBUG_SV.log(l_module_name,'l_attr_tab.COUNT ',l_attr_tab.COUNT);
5202: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5203: END IF;
5204: WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups (
5205: p_attr_tab => l_attr_tab,
5198: IF l_debug_on THEN
5199: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups'
5200: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5201: WSH_DEBUG_SV.log(l_module_name,'l_attr_tab.COUNT ',l_attr_tab.COUNT);
5202: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5203: END IF;
5204: WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups (
5205: p_attr_tab => l_attr_tab,
5206: p_action_rec => l_action_rec,
5209: x_matched_entities => l_matched_entities,
5210: x_out_rec => l_out_rec,
5211: x_return_status => l_return_status );
5212: IF l_debug_on THEN
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)
5210: x_out_rec => l_out_rec,
5211: x_return_status => l_return_status );
5212: IF l_debug_on THEN
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
5254: END LOOP;
5255: --bug 7171766 till here
5256:
5257: IF l_debug_on THEN
5258: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.Stamp_Cart_Id'
5259: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5260: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5261: END IF;
5262: INV_MOVE_ORDER_PUB.Stamp_Cart_Id (
5255: --bug 7171766 till here
5256:
5257: IF l_debug_on THEN
5258: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.Stamp_Cart_Id'
5259: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5260: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5261: END IF;
5262: INV_MOVE_ORDER_PUB.Stamp_Cart_Id (
5263: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5256:
5257: IF l_debug_on THEN
5258: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.Stamp_Cart_Id'
5259: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5260: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5261: END IF;
5262: INV_MOVE_ORDER_PUB.Stamp_Cart_Id (
5263: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5264: p_carton_grouping_tbl => l_carton_grouping_tbl,
5263: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5264: p_carton_grouping_tbl => l_carton_grouping_tbl,
5265: p_move_order_line_tbl => l_mo_lines_tbl );
5266: IF l_debug_on THEN
5267: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5268: WSH_DEBUG_SV.logmsg(l_module_name,'Return from program unit INV_MOVE_ORDER_PUB.Stamp_Cart_Id');
5269: END IF;
5270:
5271: -- Call to WMS Cartonize API
5264: p_carton_grouping_tbl => l_carton_grouping_tbl,
5265: p_move_order_line_tbl => l_mo_lines_tbl );
5266: IF l_debug_on THEN
5267: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5268: WSH_DEBUG_SV.logmsg(l_module_name,'Return from program unit INV_MOVE_ORDER_PUB.Stamp_Cart_Id');
5269: END IF;
5270:
5271: -- Call to WMS Cartonize API
5272: IF l_debug_on THEN
5269: END IF;
5270:
5271: -- Call to WMS Cartonize API
5272: IF l_debug_on THEN
5273: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PUB.Call_Cartonization'
5274: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5275: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5276: END IF;
5277: INV_PICK_RELEASE_PUB.Call_Cartonization (
5270:
5271: -- Call to WMS Cartonize API
5272: IF l_debug_on THEN
5273: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PUB.Call_Cartonization'
5274: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5275: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5276: END IF;
5277: INV_PICK_RELEASE_PUB.Call_Cartonization (
5278: p_api_version => 1.0,
5271: -- Call to WMS Cartonize API
5272: IF l_debug_on THEN
5273: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PUB.Call_Cartonization'
5274: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5275: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5276: END IF;
5277: INV_PICK_RELEASE_PUB.Call_Cartonization (
5278: p_api_version => 1.0,
5279: p_init_msg_list => FND_API.G_FALSE,
5287: x_return_status => l_return_status,
5288: x_msg_count => l_msg_count,
5289: x_msg_data => l_msg_data);
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
5288: x_msg_count => l_msg_count,
5289: x_msg_data => l_msg_data);
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');
5303:
5304: -- Release MO Tasks , if Task Planning Flag is not Y
5305: IF l_org_info_tbl(l_organization_id).task_planning_flag <> 'Y' THEN
5306: IF l_debug_on THEN
5307: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PVT.Release_Mo_Tasks'
5308: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5309: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5310: END IF;
5311: INV_PICK_RELEASE_PVT.Release_Mo_Tasks ( p_header_id => crec.mo_header_id );
5304: -- Release MO Tasks , if Task Planning Flag is not Y
5305: IF l_org_info_tbl(l_organization_id).task_planning_flag <> 'Y' THEN
5306: IF l_debug_on THEN
5307: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PVT.Release_Mo_Tasks'
5308: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5309: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5310: END IF;
5311: INV_PICK_RELEASE_PVT.Release_Mo_Tasks ( p_header_id => crec.mo_header_id );
5312: IF l_debug_on THEN
5305: IF l_org_info_tbl(l_organization_id).task_planning_flag <> 'Y' THEN
5306: IF l_debug_on THEN
5307: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PVT.Release_Mo_Tasks'
5308: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5309: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5310: END IF;
5311: INV_PICK_RELEASE_PVT.Release_Mo_Tasks ( p_header_id => crec.mo_header_id );
5312: IF l_debug_on THEN
5313: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5309: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5310: END IF;
5311: INV_PICK_RELEASE_PVT.Release_Mo_Tasks ( p_header_id => crec.mo_header_id );
5312: IF l_debug_on THEN
5313: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5314: WSH_DEBUG_SV.logmsg(l_module_name,'Return from program unit INV_PICK_RELEASE_PVT.Release_Mo_Tasks');
5315: END IF;
5316: END IF;
5317:
5310: END IF;
5311: INV_PICK_RELEASE_PVT.Release_Mo_Tasks ( p_header_id => crec.mo_header_id );
5312: IF l_debug_on THEN
5313: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5314: WSH_DEBUG_SV.logmsg(l_module_name,'Return from program unit INV_PICK_RELEASE_PVT.Release_Mo_Tasks');
5315: END IF;
5316: END IF;
5317:
5318: <
5323:
5324: -- Print Pick Slips / Pick Release Document Set
5325: FOR crec in c_sum_worker(p_batch_id) LOOP --{
5326: IF l_debug_on THEN
5327: WSH_DEBUG_SV.logmsg(l_module_name,'Printing Documents for Organization '||crec.organization_id);
5328: WSH_DEBUG_SV.logmsg(l_module_name, 'TOTAL DETAILED COUNT IS '||crec.tot_detailed);
5329: WSH_DEBUG_SV.logmsg(l_module_name, 'Seeded Pick Slip Document Set '||WSH_PICK_LIST.G_SEED_DOC_SET);
5330: WSH_DEBUG_SV.logmsg(l_module_name, 'Pick Release Document Set '||l_org_info_tbl(crec.organization_id).doc_set_id);
5331: END IF;
5324: -- Print Pick Slips / Pick Release Document Set
5325: FOR crec in c_sum_worker(p_batch_id) LOOP --{
5326: IF l_debug_on THEN
5327: WSH_DEBUG_SV.logmsg(l_module_name,'Printing Documents for Organization '||crec.organization_id);
5328: WSH_DEBUG_SV.logmsg(l_module_name, 'TOTAL DETAILED COUNT IS '||crec.tot_detailed);
5329: WSH_DEBUG_SV.logmsg(l_module_name, 'Seeded Pick Slip Document Set '||WSH_PICK_LIST.G_SEED_DOC_SET);
5330: WSH_DEBUG_SV.logmsg(l_module_name, 'Pick Release Document Set '||l_org_info_tbl(crec.organization_id).doc_set_id);
5331: END IF;
5332: l_print_ps := 'N';
5325: FOR crec in c_sum_worker(p_batch_id) LOOP --{
5326: IF l_debug_on THEN
5327: WSH_DEBUG_SV.logmsg(l_module_name,'Printing Documents for Organization '||crec.organization_id);
5328: WSH_DEBUG_SV.logmsg(l_module_name, 'TOTAL DETAILED COUNT IS '||crec.tot_detailed);
5329: WSH_DEBUG_SV.logmsg(l_module_name, 'Seeded Pick Slip Document Set '||WSH_PICK_LIST.G_SEED_DOC_SET);
5330: WSH_DEBUG_SV.logmsg(l_module_name, 'Pick Release Document Set '||l_org_info_tbl(crec.organization_id).doc_set_id);
5331: END IF;
5332: l_print_ps := 'N';
5333: IF crec.tot_detailed > 0 AND WSH_PICK_LIST.G_SEED_DOC_SET IS NOT NULL AND
5326: IF l_debug_on THEN
5327: WSH_DEBUG_SV.logmsg(l_module_name,'Printing Documents for Organization '||crec.organization_id);
5328: WSH_DEBUG_SV.logmsg(l_module_name, 'TOTAL DETAILED COUNT IS '||crec.tot_detailed);
5329: WSH_DEBUG_SV.logmsg(l_module_name, 'Seeded Pick Slip Document Set '||WSH_PICK_LIST.G_SEED_DOC_SET);
5330: WSH_DEBUG_SV.logmsg(l_module_name, 'Pick Release Document Set '||l_org_info_tbl(crec.organization_id).doc_set_id);
5331: END IF;
5332: l_print_ps := 'N';
5333: IF crec.tot_detailed > 0 AND WSH_PICK_LIST.G_SEED_DOC_SET IS NOT NULL AND
5334: l_org_info_tbl(crec.organization_id).express_pick_flag = 'N' AND
5336: l_print_ps := 'Y';
5337: END IF;
5338: IF (l_print_ps = 'Y') OR (l_org_info_tbl(crec.organization_id).doc_set_id <> -1) THEN
5339: IF l_debug_on THEN
5340: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Print_Docs'
5341: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5342: END IF;
5343: Print_docs (
5344: p_batch_id => p_batch_id,
5337: END IF;
5338: IF (l_print_ps = 'Y') OR (l_org_info_tbl(crec.organization_id).doc_set_id <> -1) THEN
5339: IF l_debug_on THEN
5340: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Print_Docs'
5341: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5342: END IF;
5343: Print_docs (
5344: p_batch_id => p_batch_id,
5345: p_organization_id => crec.organization_id,
5355: END IF;
5356: -- No records detailed, so delete Move Order Header for Organization
5357: IF crec.tot_detailed = 0 THEN --{
5358: IF l_debug_on THEN
5359: WSH_DEBUG_SV.logmsg(l_module_name, 'NO LINES SELECTED FOR ORG ' ||TO_CHAR(crec.organization_id));
5360: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE MOVE ORDER HEADER' );
5361: END IF;
5362: -- Clear move order header/line records
5363: l_trohdr_rec := l_empty_trohdr_rec;
5356: -- No records detailed, so delete Move Order Header for Organization
5357: IF crec.tot_detailed = 0 THEN --{
5358: IF l_debug_on THEN
5359: WSH_DEBUG_SV.logmsg(l_module_name, 'NO LINES SELECTED FOR ORG ' ||TO_CHAR(crec.organization_id));
5360: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE MOVE ORDER HEADER' );
5361: END IF;
5362: -- Clear move order header/line records
5363: l_trohdr_rec := l_empty_trohdr_rec;
5364: l_trohdr_val_rec := l_empty_trohdr_val_rec;
5366: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_DELETE;
5367: l_trolin_tbl.delete;
5368: l_trolin_val_tbl.delete;
5369: IF l_debug_on THEN
5370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.PROCESS_MOVE_ORDER'
5371: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5372: END IF;
5373: Inv_Move_Order_Pub.Process_Move_Order (
5374: p_api_version_number => l_api_version_number,
5367: l_trolin_tbl.delete;
5368: l_trolin_val_tbl.delete;
5369: IF l_debug_on THEN
5370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.PROCESS_MOVE_ORDER'
5371: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5372: END IF;
5373: Inv_Move_Order_Pub.Process_Move_Order (
5374: p_api_version_number => l_api_version_number,
5375: p_init_msg_list => FND_API.G_FALSE,
5383: x_return_status => l_return_status,
5384: x_msg_count => l_msg_count,
5385: x_msg_data => l_msg_data );
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
5402: END LOOP; --}
5403:
5404: -- Delete empty deliveries
5405: IF l_debug_on THEN
5406: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
5407: 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);
5406: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
5407: 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;
5434: -- request for each WMS org where atleast one detail is in replenishment requested status.
5435: FOR crec IN get_replenish_orgs(g_batch_id) LOOP
5436: --{
5437: IF l_debug_on THEN
5438: WSH_DEBUG_SV.log(l_module_name,'Submitting dynamic replenishment conc. request for the org: ',crec.organization_id);
5439: END IF;
5440: l_request_id := FND_REQUEST.Submit_Request(
5441: application => 'WMS',
5442: program => 'WMSDYREPL',
5447: argument3 => l_org_info_tbl(crec.organization_id).task_planning_flag,-- task planning flag
5448: argument4 => l_org_info_tbl(crec.organization_id).pick_seq_rule_id -- pick sequence rule
5449: );
5450: IF l_debug_on THEN
5451: WSH_DEBUG_SV.log(l_module_name,'request Id: ',l_request_id);
5452: END IF;
5453: --}
5454: END LOOP;
5455: --bug# 6689448 (replenishment project): end
5487: ELSIF l_dev_status <> 'NORMAL' THEN
5488: l_errors := l_errors + 1;
5489: END IF;
5490: IF l_debug_on THEN
5491: WSH_DEBUG_SV.logmsg(l_module_name,'Child Request id :' ||l_child_req_ids(j)||' Status :'||l_dev_status);
5492: END IF;
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)));
5532: END IF;
5533: END IF;
5534:
5535: IF l_debug_on THEN
5536: WSH_DEBUG_SV.log(l_module_name,'l_completion_status',l_completion_status);
5537: END IF;
5538:
5539: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
5540: IF l_debug_on THEN
5537: END IF;
5538:
5539: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
5540: IF l_debug_on THEN
5541: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
5542: END IF;
5543: COMMIT;
5544: END IF;
5545:
5552: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5553: AND (l_mode IS NULL OR l_mode IN ('PICK-SS','PICK')) THEN
5554: --{
5555: IF l_debug_on THEN
5556: WSH_DEBUG_SV.log(l_module_name,'NON PICKFLAG',WSH_PR_CRITERIA.g_non_picking_flag);
5557: END IF;
5558: -- this is from Pick Release Form, hence only 1 record
5559: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5560: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5560: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5561: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5562: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5563: IF l_debug_on THEN
5564: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5565: WSH_DEBUG_SV.log(l_module_name,'L_AP_FLAG', l_ap_flag);
5566: WSH_DEBUG_SV.log(l_module_name,'L_SC_RULE', l_sc_rule_id);
5567: END IF;
5568: END IF;
5561: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5562: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5563: IF l_debug_on THEN
5564: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5565: WSH_DEBUG_SV.log(l_module_name,'L_AP_FLAG', l_ap_flag);
5566: WSH_DEBUG_SV.log(l_module_name,'L_SC_RULE', l_sc_rule_id);
5567: END IF;
5568: END IF;
5569:
5562: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5563: IF l_debug_on THEN
5564: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5565: WSH_DEBUG_SV.log(l_module_name,'L_AP_FLAG', l_ap_flag);
5566: WSH_DEBUG_SV.log(l_module_name,'L_SC_RULE', l_sc_rule_id);
5567: END IF;
5568: END IF;
5569:
5570: IF WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') THEN
5582:
5583: l_group_nums := l_group_details_rec_tab.count;
5584:
5585: IF l_debug_on THEN
5586: WSH_DEBUG_SV.log(l_module_name,'l_group_nums', l_group_nums);
5587: END IF;
5588:
5589: IF l_group_nums = 1 THEN
5590: --{
5595: IF NVL(l_ap_level, 0) > 0 THEN
5596: l_ap_flag := 'Y';
5597: END IF;
5598: IF l_debug_on THEN
5599: WSH_DEBUG_SV.log(l_module_name,'l_ap_level', l_ap_level);
5600: END IF;
5601: --}
5602: ELSIF (l_group_nums > 1) THEN
5603: --{
5601: --}
5602: ELSIF (l_group_nums > 1) THEN
5603: --{
5604: IF l_debug_on THEN
5605: WSH_DEBUG_SV.log(l_module_name,'l_group_nums > 1',l_group_nums);
5606: END IF;
5607: -- loop through each group creating child batch.
5608: -- and then pack/ship it.
5609: FOR i in l_group_details_rec_tab.FIRST..l_group_details_rec_tab.LAST LOOP
5613: IF NVL(l_ap_level, 0) > 0 THEN
5614: l_ap_flag := 'Y';
5615: END IF;
5616: IF l_debug_on THEN
5617: WSH_DEBUG_SV.log(l_module_name,'ELSE l_ap_level', l_ap_level);
5618: END IF;
5619: l_del_count := 1;
5620: OPEN get_dels_in_group(p_batch_id, l_sc_rule_id, l_ap_level);
5621: LOOP
5630: IF get_dels_in_group%ISOPEN THEN
5631: CLOSE get_dels_in_group;
5632: END IF;
5633: IF l_debug_on THEN
5634: WSH_DEBUG_SV.log(l_module_name,'BEFORE INSERTING l_ap_level', l_ap_level);
5635: END IF;
5636:
5637: -- Autopack should be set only if Non Pick Flag as 'P' and AP Level is set
5638: IF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) > 0 THEN
5765: --}
5766: END IF;
5767:
5768: IF l_debug_on THEN
5769: WSH_DEBUG_SV.logmsg(l_module_name,'Flags: l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag);
5770: END IF;
5771: -- if only one (sc rules/ap level) group for all pickreleased lines,
5772: -- or picking/packing/shipping through PR form or STF for deliveries,
5773: -- no need to spawn seperate batches. use existing PR batch.
5774: IF (l_group_nums = 1) OR (WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5775: OR (WSH_PR_CRITERIA.g_autopack_flag = 'Y') THEN
5776: --{
5777: IF l_debug_on THEN
5778: WSH_DEBUG_SV.logmsg(l_module_name,'l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5779: END IF;
5780:
5781: -- Autopack should be set only if Non Pick Flag as 'P' or if Pick Release Criteria has Autopack specified
5782: IF (WSH_PR_CRITERIA.g_autopack_flag = 'Y')
5816: CLOSE get_dels_in_batch;
5817: END IF;
5818:
5819: IF l_debug_on THEN
5820: WSH_DEBUG_SV.logmsg(l_module_name,'Flags again: l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5821: END IF;
5822:
5823: -- Bulk Insert
5824: FORALL i in 1..l_ps_delivery_tab.COUNT
5849: END IF;
5850:
5851: IF l_pr_worker_rec_count = 0 THEN
5852: IF l_debug_on THEN
5853: WSH_DEBUG_SV.logmsg(l_module_name,'No eligible records to Pack and Ship');
5854: END IF;
5855: ELSE
5856: IF l_debug_on THEN
5857: WSH_DEBUG_SV.logmsg(l_module_name,'Total number of eligible records to Pack and Ship : '|| l_pr_worker_rec_count);
5853: WSH_DEBUG_SV.logmsg(l_module_name,'No eligible records to Pack and Ship');
5854: END IF;
5855: ELSE
5856: IF l_debug_on THEN
5857: WSH_DEBUG_SV.logmsg(l_module_name,'Total number of eligible records to Pack and Ship : '|| l_pr_worker_rec_count);
5858: END IF;
5859: --{
5860: l_num_workers := LEAST(l_pr_worker_rec_count, NVL(g_num_workers,1));
5861: IF l_num_workers > 1 THEN
5860: l_num_workers := LEAST(l_pr_worker_rec_count, NVL(g_num_workers,1));
5861: IF l_num_workers > 1 THEN
5862: --{
5863: IF l_debug_on THEN
5864: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Spawn_Workers for PS',
5865: WSH_DEBUG_SV.C_PROC_LEVEL);
5866: END IF;
5867: -- If the current status is Warning, pass the value as 1, else pass value as 0
5868: IF ( G_BACKORDERED ) THEN
5861: IF l_num_workers > 1 THEN
5862: --{
5863: IF l_debug_on THEN
5864: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Spawn_Workers for PS',
5865: WSH_DEBUG_SV.C_PROC_LEVEL);
5866: END IF;
5867: -- If the current status is Warning, pass the value as 1, else pass value as 0
5868: IF ( G_BACKORDERED ) THEN
5869: l_retcode := 1;
5877: p_req_status => l_retcode,
5878: p_log_level => p_log_level,
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');
5892: --}
5893: ELSE
5894: --{
5895: IF l_debug_on THEN
5896: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub'
5897: , WSH_DEBUG_SV.C_PROC_LEVEL);
5898: END IF;
5899: l_retcode := NULL;
5900: l_errbuf := NULL;
5893: ELSE
5894: --{
5895: IF l_debug_on THEN
5896: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub'
5897: , WSH_DEBUG_SV.C_PROC_LEVEL);
5898: END IF;
5899: l_retcode := NULL;
5900: l_errbuf := NULL;
5901: Release_Batch_Sub (
5905: p_worker_id => NULL,
5906: p_mode => 'PS',
5907: p_log_level => p_log_level );
5908: IF l_debug_on THEN
5909: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
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
5906: p_mode => 'PS',
5907: p_log_level => p_log_level );
5908: IF l_debug_on THEN
5909: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
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');
5907: p_log_level => p_log_level );
5908: IF l_debug_on THEN
5909: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
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;
5963: END IF;
5964: END LOOP;
5965: CLOSE c_close_trip;
5966: IF l_debug_on THEN
5967: WSH_DEBUG_SV.logmsg(l_module_name,'l_stops_to_close.COUNT '||l_stops_to_close.COUNT);
5968: END IF;
5969: --}
5970:
5971: IF l_stops_to_close.count > 0 THEN
5970:
5971: IF l_stops_to_close.count > 0 THEN
5972: --{
5973: IF l_debug_on THEN
5974: WSH_DEBUG_SV.logmsg(l_module_name, 'Closing stops');
5975: END IF;
5976: FOR i in 1..l_stops_to_close.count LOOP
5977: --{
5978: IF l_debug_on THEN
5975: END IF;
5976: FOR i in 1..l_stops_to_close.count LOOP
5977: --{
5978: IF l_debug_on THEN
5979: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling program unit WSH_BATCH_PROCESS.Close_A_Stop');
5980: END IF;
5981: WSH_BATCH_PROCESS.Close_A_Stop (
5982: p_stop_id => l_stops_to_close(i),
5983: p_actual_date => NVL(WSH_PR_CRITERIA.g_actual_departure_date, SYSDATE),
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;
5992: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5993: IF l_debug_on THEN
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;
5997: WSH_BATCH_PROCESS.log_batch_messages(l_stops_sc_ids(i), NULL , l_stops_to_close(i) ,
5998: l_stop_location_ids(i), NULL);
5997: WSH_BATCH_PROCESS.log_batch_messages(l_stops_sc_ids(i), NULL , l_stops_to_close(i) ,
5998: l_stop_location_ids(i), NULL);
5999: ELSE
6000: IF l_debug_on THEN
6001: WSH_DEBUG_SV.log(l_module_name,'Failed to close stop ', l_stops_to_close(i));
6002: END IF;
6003: l_closing_stop_failure := l_closing_stop_failure + 1;
6004: WSH_BATCH_PROCESS.log_batch_messages(l_stops_sc_ids(i), NULL , l_stops_to_close(i) ,
6005: l_stop_location_ids(i), NULL);
6004: WSH_BATCH_PROCESS.log_batch_messages(l_stops_sc_ids(i), NULL , l_stops_to_close(i) ,
6005: l_stop_location_ids(i), NULL);
6006: END IF;
6007: IF l_debug_on THEN
6008: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
6009: END IF;
6010: COMMIT;
6011: --}
6012: END LOOP;
6011: --}
6012: END LOOP;
6013: --
6014: IF l_debug_on THEN
6015: WSH_DEBUG_SV.logmsg(l_module_name,'Successfully closed '|| l_closing_stop_success
6016: ||' stops' );
6017: WSH_DEBUG_SV.logmsg(l_module_name,'Closed '|| l_closing_stop_warning
6018: ||' stops with warnings' );
6019: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to close '|| l_closing_stop_failure
6013: --
6014: IF l_debug_on THEN
6015: WSH_DEBUG_SV.logmsg(l_module_name,'Successfully closed '|| l_closing_stop_success
6016: ||' stops' );
6017: WSH_DEBUG_SV.logmsg(l_module_name,'Closed '|| l_closing_stop_warning
6018: ||' stops with warnings' );
6019: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to close '|| l_closing_stop_failure
6020: ||' stops');
6021: END IF;
6015: WSH_DEBUG_SV.logmsg(l_module_name,'Successfully closed '|| l_closing_stop_success
6016: ||' stops' );
6017: WSH_DEBUG_SV.logmsg(l_module_name,'Closed '|| l_closing_stop_warning
6018: ||' stops with warnings' );
6019: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to close '|| l_closing_stop_failure
6020: ||' stops');
6021: END IF;
6022: --}
6023: ELSE
6021: END IF;
6022: --}
6023: ELSE
6024: IF l_debug_on THEN
6025: WSH_DEBUG_SV.log(l_module_name, 'No stops to close');
6026: END IF;
6027: END IF;
6028:
6029: WSH_UTIL_CORE.PrintDateTime;
6047: IF l_request_id = 0 THEN
6048: NULL;
6049: ELSE
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;
6078: ,'','','','','','','','','',''
6079: ,'','','','','','','','','',''
6080: ,'','','','','','','','','','' );
6081: IF l_debug_on THEN
6082: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
6083: END IF;
6084: COMMIT;
6085: END LOOP;
6086: CLOSE c_ap_batch;
6090: -- Submit Auto Ship Confirm Report
6091: --{
6092: IF l_sc_id_tab.COUNT > 0 THEN
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
6091: --{
6092: IF l_sc_id_tab.COUNT > 0 THEN
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
6110: ,'','','','','','','','','',''
6111: ,'','','','','','','','','',''
6112: ,'','','','','','','','','','' );
6113: IF l_debug_on THEN
6114: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
6115: END IF;
6116: COMMIT;
6117: END LOOP;
6118: END IF;
6143: ELSIF l_dev_status <> 'NORMAL' THEN
6144: l_errors := l_errors + 1;
6145: END IF;
6146: IF l_debug_on THEN
6147: WSH_DEBUG_SV.logmsg(l_module_name,'Child Request id :' ||l_child_req_ids(j)||' Status :'||l_dev_status);
6148: END IF;
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)));
6180:
6181: -- Call Inventory API to delete pick slip numbers from table as Inventory stores the numbers
6182: -- in physical table in case of Parallel Pick Release mode
6183: IF l_debug_on THEN
6184: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
6185: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.delete_pick_slip_numbers' ,WSH_DEBUG_SV.C_PROC_LEVEL);
6186: END IF;
6187: WSH_PR_PICK_SLIP_NUMBER.Delete_Pick_Slip_Numbers ( p_batch_id => p_batch_id );
6188: IF l_debug_on THEN
6181: -- Call Inventory API to delete pick slip numbers from table as Inventory stores the numbers
6182: -- in physical table in case of Parallel Pick Release mode
6183: IF l_debug_on THEN
6184: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
6185: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.delete_pick_slip_numbers' ,WSH_DEBUG_SV.C_PROC_LEVEL);
6186: END IF;
6187: WSH_PR_PICK_SLIP_NUMBER.Delete_Pick_Slip_Numbers ( p_batch_id => p_batch_id );
6188: IF l_debug_on THEN
6189: WSH_DEBUG_SV.logmsg(l_module_name,'Return from WSH_PR_PICK_SLIP_NUMBER.delete_pick_slip_numbers');
6185: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.delete_pick_slip_numbers' ,WSH_DEBUG_SV.C_PROC_LEVEL);
6186: END IF;
6187: WSH_PR_PICK_SLIP_NUMBER.Delete_Pick_Slip_Numbers ( p_batch_id => p_batch_id );
6188: IF l_debug_on THEN
6189: WSH_DEBUG_SV.logmsg(l_module_name,'Return from WSH_PR_PICK_SLIP_NUMBER.delete_pick_slip_numbers');
6190: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
6191: END IF;
6192: --}
6193:
6186: END IF;
6187: WSH_PR_PICK_SLIP_NUMBER.Delete_Pick_Slip_Numbers ( p_batch_id => p_batch_id );
6188: IF l_debug_on THEN
6189: WSH_DEBUG_SV.logmsg(l_module_name,'Return from WSH_PR_PICK_SLIP_NUMBER.delete_pick_slip_numbers');
6190: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
6191: END IF;
6192: --}
6193:
6194: IF G_CONC_REQ = FND_API.G_TRUE THEN
6204:
6205: -- Call to DCP if profile is turned on.
6206: BEGIN --{
6207: IF l_debug_on THEN
6208: WSH_DEBUG_SV.log(l_module_name, 'l_check_dcp', l_check_dcp);
6209: END IF;
6210: IF NVL(l_check_dcp, -99) IN (1,2) THEN
6211: IF l_debug_on THEN
6212: WSH_DEBUG_SV.LOGMSG(L_MODULE_NAME, 'CALLING DCP ');
6208: WSH_DEBUG_SV.log(l_module_name, 'l_check_dcp', l_check_dcp);
6209: END IF;
6210: IF NVL(l_check_dcp, -99) IN (1,2) THEN
6211: IF l_debug_on THEN
6212: WSH_DEBUG_SV.LOGMSG(L_MODULE_NAME, 'CALLING DCP ');
6213: END IF;
6214: WSH_DCP_PVT.Check_Pick_Release(p_batch_id => p_batch_id);
6215: END IF;
6216: EXCEPTION
6215: END IF;
6216: EXCEPTION
6217: WHEN wsh_dcp_pvt.data_inconsistency_exception THEN
6218: IF l_debug_on THEN
6219: WSH_DEBUG_SV.logmsg(l_module_name,'data_inconsistency_exception');
6220: END IF;
6221: WHEN OTHERS THEN
6222: IF l_debug_on THEN
6223: WSH_DEBUG_SV.logmsg(l_module_name,'When Others');
6219: WSH_DEBUG_SV.logmsg(l_module_name,'data_inconsistency_exception');
6220: END IF;
6221: WHEN OTHERS THEN
6222: IF l_debug_on THEN
6223: WSH_DEBUG_SV.logmsg(l_module_name,'When Others');
6224: END IF;
6225: END; --}
6226:
6227: --
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,
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,
6240: x_return_status => l_return_status );
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);
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
6275: << End_Release_Batch >>
6276:
6277: --
6278: IF l_debug_on THEN
6279: WSH_DEBUG_SV.logmsg(l_module_name,'ERRBUF :'||errbuf ||' RETCODE :'||retcode);
6280: WSH_DEBUG_SV.pop(l_module_name);
6281: END IF;
6282: --
6283:
6276:
6277: --
6278: IF l_debug_on THEN
6279: WSH_DEBUG_SV.logmsg(l_module_name,'ERRBUF :'||errbuf ||' RETCODE :'||retcode);
6280: WSH_DEBUG_SV.pop(l_module_name);
6281: END IF;
6282: --
6283:
6284: EXCEPTION
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
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;
6381: END IF;
6382: END IF;
6383: --
6381: END IF;
6382: END IF;
6383: --
6384: IF l_debug_on THEN
6385: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN');
6386: END IF;
6387: --
6388: WHEN OTHERS THEN
6389: --
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
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;
6475: END IF;
6476: END IF;
6477: --
6475: END IF;
6476: END IF;
6477: --
6478: IF l_debug_on THEN
6479: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured.
6480: Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6481: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6482: END IF;
6483: --
6476: END IF;
6477: --
6478: IF l_debug_on THEN
6479: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured.
6480: Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6481: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6482: END IF;
6483: --
6484: END Release_Batch;
6477: --
6478: IF l_debug_on THEN
6479: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured.
6480: Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6481: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6482: END IF;
6483: --
6484: END Release_Batch;
6485:
6615: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6616: --
6617: IF l_debug_on IS NULL
6618: THEN
6619: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6620: END IF;
6621:
6622: -- Read the Value from REQUEST_DATA. Based on this value, we will know
6623: -- if the Process is restarted after child processes are complete
6633: l_request_data := FND_CONC_GLOBAL.Request_Data;
6634: l_mode := SUBSTR(l_request_data, INSTR(l_request_data,':',1,2)+1, LENGTH(l_request_data));
6635:
6636: IF l_debug_on THEN
6637: WSH_DEBUG_SV.push(l_module_name);
6638: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6639: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6640: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6641: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6634: l_mode := SUBSTR(l_request_data, INSTR(l_request_data,':',1,2)+1, LENGTH(l_request_data));
6635:
6636: IF l_debug_on THEN
6637: WSH_DEBUG_SV.push(l_module_name);
6638: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6639: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6640: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6641: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6642: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6635:
6636: IF l_debug_on THEN
6637: WSH_DEBUG_SV.push(l_module_name);
6638: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6639: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6640: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6641: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6642: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6643: p_ship_confirm_rule_id);
6636: IF l_debug_on THEN
6637: WSH_DEBUG_SV.push(l_module_name);
6638: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6639: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6640: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6641: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6642: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6643: p_ship_confirm_rule_id);
6644: WSH_DEBUG_SV.log(l_module_name,'p_Actual_Departure_date',
6637: WSH_DEBUG_SV.push(l_module_name);
6638: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6639: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6640: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6641: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6642: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6643: p_ship_confirm_rule_id);
6644: WSH_DEBUG_SV.log(l_module_name,'p_Actual_Departure_date',
6645: p_actual_departure_date);
6638: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6639: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6640: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6641: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6642: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6643: p_ship_confirm_rule_id);
6644: WSH_DEBUG_SV.log(l_module_name,'p_Actual_Departure_date',
6645: p_actual_departure_date);
6646: WSH_DEBUG_SV.log(l_module_name,'l_mode',l_mode);
6640: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6641: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6642: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6643: p_ship_confirm_rule_id);
6644: WSH_DEBUG_SV.log(l_module_name,'p_Actual_Departure_date',
6645: p_actual_departure_date);
6646: WSH_DEBUG_SV.log(l_module_name,'l_mode',l_mode);
6647: END IF;
6648:
6642: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6643: p_ship_confirm_rule_id);
6644: WSH_DEBUG_SV.log(l_module_name,'p_Actual_Departure_date',
6645: p_actual_departure_date);
6646: WSH_DEBUG_SV.log(l_module_name,'l_mode',l_mode);
6647: END IF;
6648:
6649: IF l_mode IS NULL THEN --{
6650:
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);
6674: END IF;
6675: --
6676: RETURN;
6677: --
6688: FETCH c_CalCode INTO v_CalCode;
6689: CLOSE c_CalCode;
6690: --
6691: IF l_debug_on THEN
6692: wsh_debug_sv.log(l_module_name, 'Org ID for Rule', v_RuleInfo.organization_id);
6693: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6694: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6695: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6696: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6689: CLOSE c_CalCode;
6690: --
6691: IF l_debug_on THEN
6692: wsh_debug_sv.log(l_module_name, 'Org ID for Rule', v_RuleInfo.organization_id);
6693: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6694: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6695: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6696: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6697: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6690: --
6691: IF l_debug_on THEN
6692: wsh_debug_sv.log(l_module_name, 'Org ID for Rule', v_RuleInfo.organization_id);
6693: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6694: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6695: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6696: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6697: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6698: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6691: IF l_debug_on THEN
6692: wsh_debug_sv.log(l_module_name, 'Org ID for Rule', v_RuleInfo.organization_id);
6693: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6694: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6695: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6696: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6697: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6698: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6699: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6692: wsh_debug_sv.log(l_module_name, 'Org ID for Rule', v_RuleInfo.organization_id);
6693: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6694: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6695: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6696: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6697: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6698: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6699: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6700: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6693: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6694: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6695: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6696: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6697: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6698: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6699: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6700: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6701: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6694: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6695: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6696: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6697: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6698: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6699: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6700: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6701: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6702: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6695: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6696: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6697: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6698: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6699: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6700: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6701: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6702: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6703: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6696: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6697: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6698: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6699: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6700: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6701: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6702: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6703: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6704: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6697: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6698: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6699: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6700: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6701: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6702: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6703: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6704: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6705: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6698: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6699: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6700: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6701: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6702: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6703: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6704: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6705: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6706: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6699: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6700: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6701: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6702: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6703: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6704: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6705: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6706: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6707: wsh_Debug_sv.log(l_module_name, 'Crossdock_Criteria_id', v_RuleInfo.crossdock_criteria_id); --X-dock
6700: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6701: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6702: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6703: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6704: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6705: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6706: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6707: wsh_Debug_sv.log(l_module_name, 'Crossdock_Criteria_id', v_RuleInfo.crossdock_criteria_id); --X-dock
6708: --
6701: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6702: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6703: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6704: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6705: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6706: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6707: wsh_Debug_sv.log(l_module_name, 'Crossdock_Criteria_id', v_RuleInfo.crossdock_criteria_id); --X-dock
6708: --
6709: END IF;
6702: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6703: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6704: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6705: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6706: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6707: wsh_Debug_sv.log(l_module_name, 'Crossdock_Criteria_id', v_RuleInfo.crossdock_criteria_id); --X-dock
6708: --
6709: END IF;
6710: --
6703: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6704: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6705: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6706: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6707: wsh_Debug_sv.log(l_module_name, 'Crossdock_Criteria_id', v_RuleInfo.crossdock_criteria_id); --X-dock
6708: --
6709: END IF;
6710: --
6711: IF v_RuleInfo.sch_start_days IS NOT NULL THEN
6736: l_reqStartDate := NVL(l_reqStartDate, v_RuleInfo.from_requested_date);
6737: l_reqEndDate := NVL(l_reqEndDate, v_RuleInfo.to_requested_date);
6738: --
6739: IF l_debug_on THEN
6740: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship start date', l_schStartDate);
6741: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship end date', l_schEndDate);
6742: wsh_debug_sv.log(l_module_name, 'calc. requested start date', l_reqStartDate);
6743: wsh_debug_sv.log(l_module_name, 'calc. requested end date', l_reqEndDate);
6744: END IF;
6737: l_reqEndDate := NVL(l_reqEndDate, v_RuleInfo.to_requested_date);
6738: --
6739: IF l_debug_on THEN
6740: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship start date', l_schStartDate);
6741: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship end date', l_schEndDate);
6742: wsh_debug_sv.log(l_module_name, 'calc. requested start date', l_reqStartDate);
6743: wsh_debug_sv.log(l_module_name, 'calc. requested end date', l_reqEndDate);
6744: END IF;
6745: --
6738: --
6739: IF l_debug_on THEN
6740: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship start date', l_schStartDate);
6741: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship end date', l_schEndDate);
6742: wsh_debug_sv.log(l_module_name, 'calc. requested start date', l_reqStartDate);
6743: wsh_debug_sv.log(l_module_name, 'calc. requested end date', l_reqEndDate);
6744: END IF;
6745: --
6746: IF l_debug_on THEN
6739: IF l_debug_on THEN
6740: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship start date', l_schStartDate);
6741: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship end date', l_schEndDate);
6742: wsh_debug_sv.log(l_module_name, 'calc. requested start date', l_reqStartDate);
6743: wsh_debug_sv.log(l_module_name, 'calc. requested end date', l_reqEndDate);
6744: END IF;
6745: --
6746: IF l_debug_on THEN
6747: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.INSERT_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
6743: wsh_debug_sv.log(l_module_name, 'calc. requested end date', l_reqEndDate);
6744: END IF;
6745: --
6746: IF l_debug_on THEN
6747: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.INSERT_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
6748: END IF;
6749:
6750: -- bug5117876, insert statement is replace with the following call
6751: WSH_PICKING_BATCHES_PKG.Insert_Row(
6824: p_append_flag => NULL,
6825: p_task_priority => NULL);
6826: --
6827: IF l_debug_on THEN
6828: WSH_DEBUG_SV.log(l_module_name, 'BATCH NAME ', L_BATCH_NAME);
6829: WSH_DEBUG_SV.log(l_module_name, 'BATCH_ID ', L_BATCH_ID);
6830: END IF;
6831: --
6832:
6825: p_task_priority => NULL);
6826: --
6827: IF l_debug_on THEN
6828: WSH_DEBUG_SV.log(l_module_name, 'BATCH NAME ', L_BATCH_NAME);
6829: WSH_DEBUG_SV.log(l_module_name, 'BATCH_ID ', L_BATCH_ID);
6830: END IF;
6831: --
6832:
6833: ELSE
6839: --Pick Release the batch
6840: Release_Batch(errbuf, retcode, l_batch_id,p_log_level, NVL(p_num_workers,1)); -- log level fix
6841: --
6842: IF l_debug_on THEN
6843: WSH_DEBUG_SV.log(l_module_name,'ERRBUF',errbuf);
6844: WSH_DEBUG_SV.log(l_module_name,'RETCODE',retcode);
6845: WSH_DEBUG_SV.pop(l_module_name);
6846: END IF;
6847: --
6840: Release_Batch(errbuf, retcode, l_batch_id,p_log_level, NVL(p_num_workers,1)); -- log level fix
6841: --
6842: IF l_debug_on THEN
6843: WSH_DEBUG_SV.log(l_module_name,'ERRBUF',errbuf);
6844: WSH_DEBUG_SV.log(l_module_name,'RETCODE',retcode);
6845: WSH_DEBUG_SV.pop(l_module_name);
6846: END IF;
6847: --
6848: EXCEPTION
6841: --
6842: IF l_debug_on THEN
6843: WSH_DEBUG_SV.log(l_module_name,'ERRBUF',errbuf);
6844: WSH_DEBUG_SV.log(l_module_name,'RETCODE',retcode);
6845: WSH_DEBUG_SV.pop(l_module_name);
6846: END IF;
6847: --
6848: EXCEPTION
6849: --
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
6858: WSH_DEBUG_SV.pop(l_module_name);
6859: END IF;
6860:
6861: WHEN OTHERS THEN
6862: --
6870: retcode := '2';
6871: END IF;
6872: --
6873: IF l_debug_on THEN
6874: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6875: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6876: END IF;
6877: --
6878: END Release_Batch_SRS;
6871: END IF;
6872: --
6873: IF l_debug_on THEN
6874: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6875: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6876: END IF;
6877: --
6878: END Release_Batch_SRS;
6879:
6909: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6910: --
6911: IF l_debug_on IS NULL
6912: THEN
6913: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6914: END IF;
6915: --
6916: IF l_debug_on THEN
6917: WSH_DEBUG_SV.push(l_module_name);
6913: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6914: END IF;
6915: --
6916: IF l_debug_on THEN
6917: WSH_DEBUG_SV.push(l_module_name);
6918: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
6919: END IF;
6920: --
6921: G_CONC_REQ := FND_API.G_FALSE;
6914: END IF;
6915: --
6916: IF l_debug_on THEN
6917: WSH_DEBUG_SV.push(l_module_name);
6918: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
6919: END IF;
6920: --
6921: G_CONC_REQ := FND_API.G_FALSE;
6922: Release_Batch(l_dummy1,l_dummy2,p_batch_id, p_num_workers => 1);
6924: p_pick_result := G_ONLINE_PICK_RELEASE_RESULT ;
6925: p_pick_skip := G_ONLINE_PICK_RELEASE_SKIP; /*2432800*/
6926: --
6927: IF l_debug_on THEN
6928: WSH_DEBUG_SV.pop(l_module_name);
6929: END IF;
6930: --
6931: END Online_Release;
6932:
7158: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
7159: --
7160: IF l_debug_on IS NULL
7161: THEN
7162: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7163: END IF;
7164: --
7165: IF l_debug_on THEN
7166: WSH_DEBUG_SV.push(l_module_name);
7162: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7163: END IF;
7164: --
7165: IF l_debug_on THEN
7166: WSH_DEBUG_SV.push(l_module_name);
7167: WSH_DEBUG_SV.log(l_module_name,'TRIP_IDS.COUNT',p_trip_ids.count);
7168: WSH_DEBUG_SV.log(l_module_name,'STOP_IDS.COUNT',p_stop_ids.count);
7169: WSH_DEBUG_SV.log(l_module_name,'DELIVERY_IDS.COUNT',p_delivery_ids.count);
7170: WSH_DEBUG_SV.log(l_module_name,'DETAIL_IDS.COUNT',p_detail_ids.count);
7163: END IF;
7164: --
7165: IF l_debug_on THEN
7166: WSH_DEBUG_SV.push(l_module_name);
7167: WSH_DEBUG_SV.log(l_module_name,'TRIP_IDS.COUNT',p_trip_ids.count);
7168: WSH_DEBUG_SV.log(l_module_name,'STOP_IDS.COUNT',p_stop_ids.count);
7169: WSH_DEBUG_SV.log(l_module_name,'DELIVERY_IDS.COUNT',p_delivery_ids.count);
7170: WSH_DEBUG_SV.log(l_module_name,'DETAIL_IDS.COUNT',p_detail_ids.count);
7171: l_log_level := 1;
7164: --
7165: IF l_debug_on THEN
7166: WSH_DEBUG_SV.push(l_module_name);
7167: WSH_DEBUG_SV.log(l_module_name,'TRIP_IDS.COUNT',p_trip_ids.count);
7168: WSH_DEBUG_SV.log(l_module_name,'STOP_IDS.COUNT',p_stop_ids.count);
7169: WSH_DEBUG_SV.log(l_module_name,'DELIVERY_IDS.COUNT',p_delivery_ids.count);
7170: WSH_DEBUG_SV.log(l_module_name,'DETAIL_IDS.COUNT',p_detail_ids.count);
7171: l_log_level := 1;
7172: END IF;
7165: IF l_debug_on THEN
7166: WSH_DEBUG_SV.push(l_module_name);
7167: WSH_DEBUG_SV.log(l_module_name,'TRIP_IDS.COUNT',p_trip_ids.count);
7168: WSH_DEBUG_SV.log(l_module_name,'STOP_IDS.COUNT',p_stop_ids.count);
7169: WSH_DEBUG_SV.log(l_module_name,'DELIVERY_IDS.COUNT',p_delivery_ids.count);
7170: WSH_DEBUG_SV.log(l_module_name,'DETAIL_IDS.COUNT',p_detail_ids.count);
7171: l_log_level := 1;
7172: END IF;
7173:
7166: WSH_DEBUG_SV.push(l_module_name);
7167: WSH_DEBUG_SV.log(l_module_name,'TRIP_IDS.COUNT',p_trip_ids.count);
7168: WSH_DEBUG_SV.log(l_module_name,'STOP_IDS.COUNT',p_stop_ids.count);
7169: WSH_DEBUG_SV.log(l_module_name,'DELIVERY_IDS.COUNT',p_delivery_ids.count);
7170: WSH_DEBUG_SV.log(l_module_name,'DETAIL_IDS.COUNT',p_detail_ids.count);
7171: l_log_level := 1;
7172: END IF;
7173:
7174: --OTM R12
7204:
7205: END LOOP;
7206:
7207: IF l_debug_on THEN
7208: WSH_DEBUG_SV.log(l_module_name,'COUNT FOR THE DETAIL_IDS TO IGNORE PLAN',l_detail_ids.COUNT);
7209: END IF;
7210:
7211: IF (l_detail_ids.COUNT > 0) THEN
7212:
7216: p_action_code => 'IGNORE_PLAN',
7217: x_return_status => l_return_status);
7218:
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:
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:
7286:
7287: END IF;
7288:
7289: IF l_debug_on THEN
7290: WSH_DEBUG_SV.log(l_module_name,'ship_confirm_rule_id',l_param_info.ship_confirm_rule_id);
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);
7300: END IF;
7301: --
7302: ROLLBACK; -- 2746314
7303: RETURN;
7419: FETCH c_batch_info INTO l_batch_rec;
7420: IF c_batch_info%NOTFOUND THEN
7421: --{
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;
7420: IF c_batch_info%NOTFOUND THEN
7421: --{
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;
7430: END IF;
7431: CLOSE c_batch_info;
7432: --
7433: IF l_debug_on THEN
7434: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.INSERT_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
7435: END IF;
7436: --
7437: WSH_PICKING_BATCHES_PKG.Insert_Row(
7438: X_Rowid => l_rowid,
7518: ELSE
7519: --
7520: --
7521: IF l_debug_on THEN
7522: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.INSERT_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
7523: END IF;
7524: --
7525: WSH_PICKING_BATCHES_PKG.Insert_Row(
7526: X_Rowid => l_rowid,
7616: IF sql%notfound then
7617: l_detail_id := p_detail_ids(1); --Bug#: 2870731
7618: IF l_debug_on THEN
7619: for i in 1..p_detail_ids.count loop
7620: WSH_DEBUG_SV.logmsg(l_module_name,'Unreleased delivery_detail -> '||p_detail_ids(i),WSH_DEBUG_SV.C_PROC_LEVEL);
7621: end loop;
7622: END IF;
7623: RAISE INVALID_RELEASED_STATUS;
7624: END IF;
7624: END IF;
7625:
7626: IF l_debug_on THEN
7627: for i in 1..p_detail_ids.count loop
7628: WSH_DEBUG_SV.logmsg(l_module_name,'updating delivery_detail '||p_detail_ids(i) ||' with batch '||l_batch_id,WSH_DEBUG_SV.C_PROC_LEVEL);
7629: end loop;
7630:
7631: END IF;
7632:
7690: END IF;
7691:
7692:
7693: IF l_debug_on THEN
7694: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.SUBMIT_RELEASE_REQUEST',WSH_DEBUG_SV.C_PROC_LEVEL);
7695: END IF;
7696: --Submit request to release batch created.
7697: x_request_ids(l_index) := WSH_PICKING_BATCHES_PKG.Submit_Release_Request(
7698: p_batch_id => l_batch_id,
7723: l_index := p_trip_ids.NEXT(l_index);
7724: l_trip_id := p_trip_ids(l_index);
7725: --
7726: IF l_debug_on THEN
7727: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7728: END IF;
7729: --
7730: l_name := WSH_TRIPS_PVT.Get_Name(l_trip_id);
7731: ELSIF l_stop_id IS NOT NULL THEN
7733: l_index := p_stop_ids.NEXT(l_index);
7734: l_stop_id := p_stop_ids(l_index);
7735: --
7736: IF l_debug_on THEN
7737: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7738: END IF;
7739: --
7740: l_name := WSH_TRIP_STOPS_PVT.Get_Name(l_stop_id);
7741: ELSIF l_delivery_id IS NOT NULL THEN
7743: l_index := p_delivery_ids.NEXT(l_index);
7744: l_delivery_id := p_delivery_ids(l_index);
7745: --
7746: IF l_debug_on THEN
7747: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7748: END IF;
7749: --
7750: l_name := WSH_NEW_DELIVERIES_PVT.Get_Name(l_delivery_id);
7751: ELSE
7775:
7776: END IF;
7777: --
7778: IF l_debug_on THEN
7779: WSH_DEBUG_SV.pop(l_module_name);
7780: END IF;
7781: --
7782: EXCEPTION
7783: --OTM R12
7783: --OTM R12
7784: WHEN api_return_fail THEN
7785: x_return_status := l_return_status;
7786: IF l_debug_on THEN
7787: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
7788: WSH_DEBUG_SV.pop(l_module_name);
7789: END IF;
7790: --END OTM R12
7791:
7784: WHEN api_return_fail THEN
7785: x_return_status := l_return_status;
7786: IF l_debug_on THEN
7787: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
7788: WSH_DEBUG_SV.pop(l_module_name);
7789: END IF;
7790: --END OTM R12
7791:
7792: WHEN INVALID_RELEASED_STATUS THEN
7803: --
7804: -- Debug Statements
7805: --
7806: IF l_debug_on THEN
7807: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_RELEASED_STATUS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7808: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_RELEASED_STATUS');
7809: END IF;
7810: --
7811: return;
7804: -- Debug Statements
7805: --
7806: IF l_debug_on THEN
7807: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_RELEASED_STATUS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7808: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_RELEASED_STATUS');
7809: END IF;
7810: --
7811: return;
7812:
7832: --
7833: -- Debug Statements
7834: --
7835: IF l_debug_on THEN
7836: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_ENTITY_STATUS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7837: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ENTITY_STATUS');
7838: END IF;
7839: --
7840: return;
7833: -- Debug Statements
7834: --
7835: IF l_debug_on THEN
7836: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_ENTITY_STATUS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7837: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ENTITY_STATUS');
7838: END IF;
7839: --
7840: return;
7841:
7866: --
7867: -- Debug Statements
7868: --
7869: IF l_debug_on THEN
7870: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7871: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7872: END IF;
7873: --
7874: END Launch_Pick_Release;
7867: -- Debug Statements
7868: --
7869: IF l_debug_on THEN
7870: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7871: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7872: END IF;
7873: --
7874: END Launch_Pick_Release;
7875:
7958: --
7959: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
7960: --
7961: IF l_debug_on IS NULL THEN
7962: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7963: END IF;
7964: --
7965: IF l_debug_on THEN
7966: WSH_DEBUG_SV.push(l_module_name);
7962: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7963: END IF;
7964: --
7965: IF l_debug_on THEN
7966: WSH_DEBUG_SV.push(l_module_name);
7967: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
7968: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
7969: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
7970: -- HW OPMCONV - Added requested_qty2
7963: END IF;
7964: --
7965: IF l_debug_on THEN
7966: WSH_DEBUG_SV.push(l_module_name);
7967: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
7968: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
7969: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
7970: -- HW OPMCONV - Added requested_qty2
7971: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
7964: --
7965: IF l_debug_on THEN
7966: WSH_DEBUG_SV.push(l_module_name);
7967: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
7968: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
7969: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
7970: -- HW OPMCONV - Added requested_qty2
7971: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
7972: -- Bug 4775539
7965: IF l_debug_on THEN
7966: WSH_DEBUG_SV.push(l_module_name);
7967: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
7968: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
7969: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
7970: -- HW OPMCONV - Added requested_qty2
7971: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
7972: -- Bug 4775539
7973: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
7967: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
7968: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
7969: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
7970: -- HW OPMCONV - Added requested_qty2
7971: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
7972: -- Bug 4775539
7973: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
7974: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
7975: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
7969: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
7970: -- HW OPMCONV - Added requested_qty2
7971: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
7972: -- Bug 4775539
7973: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
7974: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
7975: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
7976: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
7977: END IF;
7970: -- HW OPMCONV - Added requested_qty2
7971: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
7972: -- Bug 4775539
7973: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
7974: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
7975: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
7976: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
7977: END IF;
7978: --
7971: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
7972: -- Bug 4775539
7973: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
7974: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
7975: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
7976: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
7977: END IF;
7978: --
7979: l_demand_exists := FALSE;
7972: -- Bug 4775539
7973: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
7974: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
7975: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
7976: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
7977: END IF;
7978: --
7979: l_demand_exists := FALSE;
7980: l_hash_exists := FALSE;
7992: base => g_hash_base,
7993: hash_size => g_hash_size );
7994:
7995: IF l_debug_on THEN
7996: WSH_DEBUG_SV.logmsg(l_module_name, 'L_HASH_STRING :'||l_hash_string||' , L_HASH_VALUE :'||l_hash_value);
7997: END IF;
7998:
7999: --Scan through global demand table and find out if reservation exists for input header and line.
8000: WHILE NOT l_hash_exists LOOP
8005: (nvl(g_demand_table(l_hash_value).locator_id,-99) = nvl(WSH_PR_CRITERIA.g_from_locator,-99))) THEN
8006: l_demand_exists := TRUE;
8007: --
8008: IF l_debug_on THEN
8009: WSH_DEBUG_SV.logmsg(l_module_name, 'FOUND THE RESERVATION DETAILS' );
8010: WSH_DEBUG_SV.log(l_module_name,'L_HASH_VALUE',L_HASH_VALUE);
8011: END IF;
8012: --
8013: EXIT;
8006: l_demand_exists := TRUE;
8007: --
8008: IF l_debug_on THEN
8009: WSH_DEBUG_SV.logmsg(l_module_name, 'FOUND THE RESERVATION DETAILS' );
8010: WSH_DEBUG_SV.log(l_module_name,'L_HASH_VALUE',L_HASH_VALUE);
8011: END IF;
8012: --
8013: EXIT;
8014: ELSE
8019: ELSE
8020: -- Hash value does not exist, so this is a new hash value
8021: l_hash_exists := TRUE;
8022: IF l_debug_on THEN
8023: WSH_DEBUG_SV.log(l_module_name,'L_HASH_VALUE',L_HASH_VALUE);
8024: END IF;
8025: END IF;
8026: END LOOP;
8027: --
8030: -- Bug 4775539
8031: IF (WSH_PR_CRITERIA.g_existing_rsvs_only_flag = 'Y') THEN
8032: --Get the reservation details for header and line.
8033: IF l_debug_on THEN
8034: WSH_DEBUG_SV.logmsg(l_module_name, 'FETCHING RESERVATION DETAILS' );
8035: END IF;
8036: --
8037: OPEN reservation_quantity(p_demand_source_header_id, p_demand_source_line_id);
8038: FETCH reservation_quantity
8062: WHERE mmtt.move_order_line_id = wdd.move_order_line_id );
8063:
8064: --
8065: IF l_debug_on THEN
8066: WSH_DEBUG_SV.log(l_module_name, 'RESERVATION QUANTITY', l_reservation_quantity );
8067: WSH_DEBUG_SV.log(l_module_name, 'UNALLOCATED QUANTITY', l_unallocated_quantity );
8068: END IF;
8069: --
8070: l_reservation_quantity := l_reservation_quantity - nvl(l_unallocated_quantity, 0);
8063:
8064: --
8065: IF l_debug_on THEN
8066: WSH_DEBUG_SV.log(l_module_name, 'RESERVATION QUANTITY', l_reservation_quantity );
8067: WSH_DEBUG_SV.log(l_module_name, 'UNALLOCATED QUANTITY', l_unallocated_quantity );
8068: END IF;
8069: --
8070: l_reservation_quantity := l_reservation_quantity - nvl(l_unallocated_quantity, 0);
8071: --To Make sure that reservation quantity is NOT less than Zero
8088: END IF;
8089:
8090: --Get the other reservation details for header and line.
8091: IF l_debug_on THEN
8092: WSH_DEBUG_SV.logmsg(l_module_name, 'FETCHING OTHER RESERVATION DETAILS' );
8093: END IF;
8094: --
8095: OPEN discard_reservation_quantity(p_demand_source_header_id, p_demand_source_line_id);
8096: FETCH discard_reservation_quantity
8113: -- HW OPMCONV - Added qty2
8114: g_demand_table(l_hash_value).reserved_quantity2 := l_reservation_quantity2;
8115: --
8116: IF l_debug_on THEN
8117: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE IS '||L_RESERVATION_QUANTITY );
8118: -- HW OPMCONV - print qty2
8119: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE IS '||L_RESERVATION_QUANTITY2 );
8120: END IF;
8121: --
8115: --
8116: IF l_debug_on THEN
8117: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE IS '||L_RESERVATION_QUANTITY );
8118: -- HW OPMCONV - print qty2
8119: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE IS '||L_RESERVATION_QUANTITY2 );
8120: END IF;
8121: --
8122: IF (g_demand_table(l_hash_value).reserved_quantity < 0) THEN
8123: g_demand_table(l_hash_value).reserved_quantity := 0;
8145: g_demand_table(l_hash_value).reserved_quantity2 := g_demand_table(l_hash_value).reserved_quantity2 - p_requested_quantity2;
8146: END IF;
8147: --
8148: IF l_debug_on THEN
8149: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE '||X_RESULT );
8150: -- HW OPMCONV - Print qty2
8151: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE '||X_RESULT2 );
8152: WSH_DEBUG_SV.pop(l_module_name);
8153: END IF;
8147: --
8148: IF l_debug_on THEN
8149: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE '||X_RESULT );
8150: -- HW OPMCONV - Print qty2
8151: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE '||X_RESULT2 );
8152: WSH_DEBUG_SV.pop(l_module_name);
8153: END IF;
8154: --
8155: return;
8148: IF l_debug_on THEN
8149: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE '||X_RESULT );
8150: -- HW OPMCONV - Print qty2
8151: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE '||X_RESULT2 );
8152: WSH_DEBUG_SV.pop(l_module_name);
8153: END IF;
8154: --
8155: return;
8156: --
8212: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8213: --
8214: IF l_debug_on IS NULL
8215: THEN
8216: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8217: END IF;
8218: --
8219: IF l_debug_on THEN
8220: WSH_DEBUG_SV.push(l_module_name);
8216: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8217: END IF;
8218: --
8219: IF l_debug_on THEN
8220: WSH_DEBUG_SV.push(l_module_name);
8221: WSH_DEBUG_SV.log(l_module_name, 'p_orgID', p_orgID);
8222: WSH_DEBUG_SV.log(l_module_name, 'p_calCode', p_calCode);
8223: WSH_DEBUG_SV.log(l_module_name, 'p_Time', p_Time);
8224: WSH_DEBUG_SV.log(l_module_name, 'p_days', p_days);
8217: END IF;
8218: --
8219: IF l_debug_on THEN
8220: WSH_DEBUG_SV.push(l_module_name);
8221: WSH_DEBUG_SV.log(l_module_name, 'p_orgID', p_orgID);
8222: WSH_DEBUG_SV.log(l_module_name, 'p_calCode', p_calCode);
8223: WSH_DEBUG_SV.log(l_module_name, 'p_Time', p_Time);
8224: WSH_DEBUG_SV.log(l_module_name, 'p_days', p_days);
8225: END IF;
8218: --
8219: IF l_debug_on THEN
8220: WSH_DEBUG_SV.push(l_module_name);
8221: WSH_DEBUG_SV.log(l_module_name, 'p_orgID', p_orgID);
8222: WSH_DEBUG_SV.log(l_module_name, 'p_calCode', p_calCode);
8223: WSH_DEBUG_SV.log(l_module_name, 'p_Time', p_Time);
8224: WSH_DEBUG_SV.log(l_module_name, 'p_days', p_days);
8225: END IF;
8226: --
8219: IF l_debug_on THEN
8220: WSH_DEBUG_SV.push(l_module_name);
8221: WSH_DEBUG_SV.log(l_module_name, 'p_orgID', p_orgID);
8222: WSH_DEBUG_SV.log(l_module_name, 'p_calCode', p_calCode);
8223: WSH_DEBUG_SV.log(l_module_name, 'p_Time', p_Time);
8224: WSH_DEBUG_SV.log(l_module_name, 'p_days', p_days);
8225: END IF;
8226: --
8227: v_Hrs := TRUNC(p_Time / 3600);
8220: WSH_DEBUG_SV.push(l_module_name);
8221: WSH_DEBUG_SV.log(l_module_name, 'p_orgID', p_orgID);
8222: WSH_DEBUG_SV.log(l_module_name, 'p_calCode', p_calCode);
8223: WSH_DEBUG_SV.log(l_module_name, 'p_Time', p_Time);
8224: WSH_DEBUG_SV.log(l_module_name, 'p_days', p_days);
8225: END IF;
8226: --
8227: v_Hrs := TRUNC(p_Time / 3600);
8228: v_Min := TRUNC((p_Time - (v_Hrs * 3600))/60);
8229: v_Sec := p_Time - (v_Hrs * 3600) - (v_Min * 60);
8230: v_TimeChar := v_Hrs || ':' || v_Min || ':' || v_Sec;
8231: --
8232: IF l_debug_on THEN
8233: WSH_DEBUG_SV.log(l_module_name, 'v_Hrs', v_Hrs);
8234: WSH_DEBUG_SV.log(l_module_name, 'v_Min', v_Min);
8235: WSH_DEBUG_SV.log(l_module_name, 'v_Sec', v_Sec);
8236: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8237: END IF;
8230: v_TimeChar := v_Hrs || ':' || v_Min || ':' || v_Sec;
8231: --
8232: IF l_debug_on THEN
8233: WSH_DEBUG_SV.log(l_module_name, 'v_Hrs', v_Hrs);
8234: WSH_DEBUG_SV.log(l_module_name, 'v_Min', v_Min);
8235: WSH_DEBUG_SV.log(l_module_name, 'v_Sec', v_Sec);
8236: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8237: END IF;
8238: --
8231: --
8232: IF l_debug_on THEN
8233: WSH_DEBUG_SV.log(l_module_name, 'v_Hrs', v_Hrs);
8234: WSH_DEBUG_SV.log(l_module_name, 'v_Min', v_Min);
8235: WSH_DEBUG_SV.log(l_module_name, 'v_Sec', v_Sec);
8236: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8237: END IF;
8238: --
8239: -- Cannot apply calendar without knowing warehouse.
8232: IF l_debug_on THEN
8233: WSH_DEBUG_SV.log(l_module_name, 'v_Hrs', v_Hrs);
8234: WSH_DEBUG_SV.log(l_module_name, 'v_Min', v_Min);
8235: WSH_DEBUG_SV.log(l_module_name, 'v_Sec', v_Sec);
8236: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8237: END IF;
8238: --
8239: -- Cannot apply calendar without knowing warehouse.
8240: -- So, just perform simple date arithmetic.
8243: v_DateChar := to_char((TRUNC(SYSDATE) + p_Days), 'DD/MM/YYYY') || ' ' || v_TimeChar;
8244: x_Date := to_date(v_DateChar, 'DD/MM/YYYY HH24:MI:SS');
8245: --
8246: IF l_debug_on THEN
8247: wsh_debug_sv.log(l_module_name, 'x_Date', x_Date);
8248: wsh_debug_sv.pop(l_module_name);
8249: END IF;
8250: --
8251: RETURN;
8244: x_Date := to_date(v_DateChar, 'DD/MM/YYYY HH24:MI:SS');
8245: --
8246: IF l_debug_on THEN
8247: wsh_debug_sv.log(l_module_name, 'x_Date', x_Date);
8248: wsh_debug_sv.pop(l_module_name);
8249: END IF;
8250: --
8251: RETURN;
8252: END IF;
8255: v_DateChar := to_char(TRUNC(SYSDATE), 'DD/MM/YYYY') || ' ' || v_TimeChar;
8256: v_Date := to_date(v_DateChar, 'DD/MM/YYYY HH24:MI:SS');
8257: --
8258: IF l_debug_on THEN
8259: wsh_debug_sv.log(l_module_name, 'v_Trials', v_Trials);
8260: wsh_debug_sv.log(l_module_name, 'v_DateChar', v_DateChar);
8261: wsh_debug_sv.log(l_module_name, 'v_Date', v_Date);
8262: END IF;
8263: --
8256: v_Date := to_date(v_DateChar, 'DD/MM/YYYY HH24:MI:SS');
8257: --
8258: IF l_debug_on THEN
8259: wsh_debug_sv.log(l_module_name, 'v_Trials', v_Trials);
8260: wsh_debug_sv.log(l_module_name, 'v_DateChar', v_DateChar);
8261: wsh_debug_sv.log(l_module_name, 'v_Date', v_Date);
8262: END IF;
8263: --
8264: WHILE j < v_Trials LOOP
8257: --
8258: IF l_debug_on THEN
8259: wsh_debug_sv.log(l_module_name, 'v_Trials', v_Trials);
8260: wsh_debug_sv.log(l_module_name, 'v_DateChar', v_DateChar);
8261: wsh_debug_sv.log(l_module_name, 'v_Date', v_Date);
8262: END IF;
8263: --
8264: WHILE j < v_Trials LOOP
8265: --
8300: --
8301: x_Date := v_Date;
8302: --
8303: IF l_debug_on THEN
8304: wsh_debug_sv.log(l_module_name, 'x_Date', x_Date);
8305: wsh_debug_sv.pop(l_module_name);
8306: END IF;
8307: --
8308: END CalcWorkingDay;
8301: x_Date := v_Date;
8302: --
8303: IF l_debug_on THEN
8304: wsh_debug_sv.log(l_module_name, 'x_Date', x_Date);
8305: wsh_debug_sv.pop(l_module_name);
8306: END IF;
8307: --
8308: END CalcWorkingDay;
8309: END WSH_PICK_LIST;