[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);
324: x_org_info.auto_apply_routing_rules := l_param_info.auto_apply_routing_rules;
325: x_org_info.auto_calc_fgt_rate_cr_del := l_param_info.auto_calc_fgt_rate_cr_del;
326:
327: IF l_debug_on THEN
328: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.CHECK_WMS_ORG',WSH_DEBUG_SV.C_PROC_LEVEL);
329: END IF;
330:
331: x_org_info.wms_org := WSH_UTIL_VALIDATE.CHECK_WMS_ORG(p_organization_id);
332: IF (x_org_info.wms_org = 'Y') THEN
331: x_org_info.wms_org := WSH_UTIL_VALIDATE.CHECK_WMS_ORG(p_organization_id);
332: IF (x_org_info.wms_org = 'Y') THEN
333:
334: IF l_debug_on THEN
335: WSH_DEBUG_SV.logmsg(l_module_name, P_ORGANIZATION_ID || ' IS WMS ENABLED ORGANIZATION' );
336: END IF;
337:
338: --task_planning_flag is default of Release criteria or organization default.
339: x_org_info.task_planning_flag := NVL(WSH_PR_CRITERIA.g_task_planning_flag, NVL(l_param_info.task_planning_flag, 'N'));
384: x_org_info.append_flag := NVL(WSH_PR_CRITERIA.g_append_flag, x_org_info.append_flag);
385: END IF;
386:
387: IF l_debug_on THEN
388: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
389: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
390: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
391: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
392: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
385: END IF;
386:
387: IF l_debug_on THEN
388: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
389: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
390: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
391: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
392: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
393: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
386:
387: IF l_debug_on THEN
388: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
389: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
390: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
391: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
392: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
393: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
394: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
387: IF l_debug_on THEN
388: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
389: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
390: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
391: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
392: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
393: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
394: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
395: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
388: WSH_DEBUG_SV.log(l_module_name, 'ACTUAL PARAMETERS THAT WILL BE USED');
389: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
390: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
391: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
392: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
393: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
394: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
395: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
396: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
389: WSH_DEBUG_SV.log(l_module_name, ' AUTO DETAIL', X_ORG_INFO.AUTODETAIL_FLAG);
390: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
391: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
392: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
393: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
394: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
395: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
396: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
397: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
390: WSH_DEBUG_SV.log(l_module_name, ' AUTO PICK CONFIRM', X_ORG_INFO.AUTO_PICK_CONFIRM);
391: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
392: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
393: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
394: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
395: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
396: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
397: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
398: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
391: WSH_DEBUG_SV.log(l_module_name, ' AUTOCREATE DELIVERIES', X_ORG_INFO.AUTOCREATE_DELIVERIES);
392: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
393: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
394: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
395: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
396: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
397: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
398: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
399: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
392: WSH_DEBUG_SV.log(l_module_name, ' STAGING SUBINVENTORY', X_ORG_INFO.TO_SUBINVENTORY);
393: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
394: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
395: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
396: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
397: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
398: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
399: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
400: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
393: WSH_DEBUG_SV.log(l_module_name, ' STAGING LOCATOR ID', X_ORG_INFO.TO_LOCATOR);
394: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
395: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
396: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
397: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
398: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
399: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
400: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
401: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
394: WSH_DEBUG_SV.log(l_module_name, ' PICK SEQ RULE ID', X_ORG_INFO.PICK_SEQ_RULE_ID);
395: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
396: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
397: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
398: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
399: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
400: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
401: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
402: --bug# 6689448 (replenishment project)
395: WSH_DEBUG_SV.log(l_module_name, ' PICK GROUPING RULE ID', X_ORG_INFO.PICK_GROUPING_RULE_ID);
396: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
397: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
398: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
399: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
400: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
401: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
402: --bug# 6689448 (replenishment project)
403: WSH_DEBUG_SV.log(l_module_name, ' DYNAMIC REPLENISHMENT FLAG ', X_ORG_INFO.DYNAMIC_REPLENISHMENT_FLAG);
396: WSH_DEBUG_SV.log(l_module_name, ' ENFORCE SHIP SET AND SMC', X_ORG_INFO.ENFORCE_SHIP_SET_AND_SMC);
397: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
398: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
399: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
400: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
401: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
402: --bug# 6689448 (replenishment project)
403: WSH_DEBUG_SV.log(l_module_name, ' DYNAMIC REPLENISHMENT FLAG ', X_ORG_INFO.DYNAMIC_REPLENISHMENT_FLAG);
404: END IF;
397: WSH_DEBUG_SV.log(l_module_name, ' PICK RELEASE DOCUMENT SET ID', X_ORG_INFO.DOC_SET_ID);
398: WSH_DEBUG_SV.log(l_module_name, ' TASK PLANNING FLAG', X_ORG_INFO.TASK_PLANNING_FLAG);
399: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
400: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
401: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
402: --bug# 6689448 (replenishment project)
403: WSH_DEBUG_SV.log(l_module_name, ' DYNAMIC REPLENISHMENT FLAG ', X_ORG_INFO.DYNAMIC_REPLENISHMENT_FLAG);
404: END IF;
405:
399: WSH_DEBUG_SV.log(l_module_name, ' USE HEADER FLAG', X_ORG_INFO.USE_HEADER_FLAG);
400: WSH_DEBUG_SV.log(l_module_name, ' APPEND FLAG', X_ORG_INFO.APPEND_FLAG);
401: WSH_DEBUG_SV.log(l_module_name, ' AUTO PACK LEVEL ', X_ORG_INFO.AUTOPACK_LEVEL);
402: --bug# 6689448 (replenishment project)
403: WSH_DEBUG_SV.log(l_module_name, ' DYNAMIC REPLENISHMENT FLAG ', X_ORG_INFO.DYNAMIC_REPLENISHMENT_FLAG);
404: END IF;
405:
406: x_org_info.express_pick_flag := 'N';
407:
406: x_org_info.express_pick_flag := 'N';
407:
408: l_express_pick_profile := NVL(FND_PROFILE.VALUE('WSH_EXPRESS_PICK'), 'N');
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.logmsg(l_module_name,'Profile WSH_EXPRESS_PICK value '||l_express_pick_profile);
411: END IF;
412:
413: -- 40. Express Pickup only if Profile is yes AND Have prior reservation AND Ato Pick Confirm select as Yes.
414: IF l_express_pick_profile = 'Y' THEN
415: IF x_org_info.wms_org = 'N' AND WSH_PR_CRITERIA.g_existing_rsvs_only_flag = 'Y'
416: AND x_org_info.auto_pick_confirm = 'Y' THEN
417: x_org_info.express_pick_flag := 'Y';
418: IF l_debug_on THEN
419: WSH_DEBUG_SV.logmsg(l_module_name,'*** Enabling Express Pick. SMCs will not be picked ***');
420: END IF;
421: ELSE
422: IF l_debug_on THEN
423: WSH_DEBUG_SV.logmsg(l_module_name,'*** Disabling Express Pick ***');
419: WSH_DEBUG_SV.logmsg(l_module_name,'*** Enabling Express Pick. SMCs will not be picked ***');
420: END IF;
421: ELSE
422: IF l_debug_on THEN
423: WSH_DEBUG_SV.logmsg(l_module_name,'*** Disabling Express Pick ***');
424: END IF;
425: END IF;
426: -- Bug 4775539
427: WSH_PR_CRITERIA.g_honor_pick_from := 'Y';
432: -- 50. Check to see if rules need to be initialized for organization
433: IF (l_init_rules = FND_API.G_FALSE OR WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NULL
434: OR WSH_PR_CRITERIA.g_pick_seq_rule_id IS NULL) THEN --{
435: IF l_debug_on THEN
436: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Rules',WSH_DEBUG_SV.C_PROC_LEVEL);
437: END IF;
438:
439: WSH_PR_CRITERIA.Init_Rules(x_org_info.pick_seq_rule_id, x_org_info.pick_grouping_rule_id, x_return_status);
440: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
439: WSH_PR_CRITERIA.Init_Rules(x_org_info.pick_seq_rule_id, x_org_info.pick_grouping_rule_id, x_return_status);
440: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
441:
442: IF l_debug_on THEN
443: WSH_DEBUG_SV.logmsg(l_module_name, 'INITIALIZATION OF RULES SUCESSFUL');
444: END IF;
445:
446: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
447: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Rules');
446: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
447: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Init_Rules');
448:
449: IF l_debug_on THEN
450: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INIT_RULES');
451: RETURN; -- back to calling API
452: END IF;
453: END IF;
454:
454:
455: END IF; --}
456:
457: IF l_debug_on THEN
458: WSH_DEBUG_SV.pop(l_module_name);
459: END IF;
460:
461:
462: EXCEPTION
466: CLOSE get_default_confirm;
467: END IF;
468: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
469: IF l_debug_on THEN
470: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
471: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
472: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
473: END IF;
474:
467: END IF;
468: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
469: IF l_debug_on THEN
470: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
471: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
472: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
473: END IF;
474:
475: END Get_Org_Params;
468: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
469: IF l_debug_on THEN
470: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
471: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
472: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
473: END IF;
474:
475: END Get_Org_Params;
476:
508: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
509:
510: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
511: IF l_debug_on IS NULL THEN
512: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
513: END IF;
514:
515: IF l_debug_on THEN
516: WSH_DEBUG_SV.push(l_module_name);
512: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
513: END IF;
514:
515: IF l_debug_on THEN
516: WSH_DEBUG_SV.push(l_module_name);
517: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
518: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
519: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
520: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
513: END IF;
514:
515: IF l_debug_on THEN
516: WSH_DEBUG_SV.push(l_module_name);
517: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
518: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
519: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
520: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
521: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
514:
515: IF l_debug_on THEN
516: WSH_DEBUG_SV.push(l_module_name);
517: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
518: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
519: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
520: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
521: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
522: END IF;
515: IF l_debug_on THEN
516: WSH_DEBUG_SV.push(l_module_name);
517: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
518: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
519: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
520: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
521: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
522: END IF;
523:
516: WSH_DEBUG_SV.push(l_module_name);
517: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
518: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
519: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
520: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
521: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
522: END IF;
523:
524: IF p_mode IN ('PICK','PICK-SS','PS') THEN
517: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID ',P_BATCH_ID);
518: WSH_DEBUG_SV.log(l_module_name,'P_NUM_REQUESTS ',P_NUM_REQUESTS);
519: WSH_DEBUG_SV.log(l_module_name,'P_MODE ',P_MODE);
520: WSH_DEBUG_SV.log(l_module_name,'P_REQ_STATUS ',P_REQ_STATUS);
521: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
522: END IF;
523:
524: IF p_mode IN ('PICK','PICK-SS','PS') THEN
525: --{
524: IF p_mode IN ('PICK','PICK-SS','PS') THEN
525: --{
526: FOR i IN 1..p_num_requests LOOP
527: IF l_debug_on THEN
528: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit FND_REQUEST.Submit_Request',WSH_DEBUG_SV.C_PROC_LEVEL);
529: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
530: END IF;
531: l_request_id := FND_REQUEST.Submit_Request(
532: application => 'WSH',
525: --{
526: FOR i IN 1..p_num_requests LOOP
527: IF l_debug_on THEN
528: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit FND_REQUEST.Submit_Request',WSH_DEBUG_SV.C_PROC_LEVEL);
529: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
530: END IF;
531: l_request_id := FND_REQUEST.Submit_Request(
532: application => 'WSH',
533: program => 'WSHPSGL_SUB',
541: );
542: IF l_request_id = 0 THEN
543: -- If request submission failed, exit with error.
544: IF l_debug_on THEN
545: WSH_DEBUG_SV.logmsg(l_module_name,'Request submission failed for Worker '||i);
546: WSH_DEBUG_SV.pop(l_module_name);
547: END IF;
548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
549: RETURN;
542: IF l_request_id = 0 THEN
543: -- If request submission failed, exit with error.
544: IF l_debug_on THEN
545: WSH_DEBUG_SV.logmsg(l_module_name,'Request submission failed for Worker '||i);
546: WSH_DEBUG_SV.pop(l_module_name);
547: END IF;
548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
549: RETURN;
550: ELSE
548: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
549: RETURN;
550: ELSE
551: IF l_debug_on THEN
552: WSH_DEBUG_SV.logmsg(l_module_name,'Request '||l_request_id||' submitted successfully');
553: END IF;
554: END IF;
555: END LOOP;
556: --}
556: --}
557: END IF;
558:
559: IF l_debug_on THEN
560: WSH_DEBUG_SV.logmsg(l_module_name,'Setting Parent Request to pause');
561: END IF;
562: FND_CONC_GLOBAL.Set_Req_Globals ( Conc_Status => 'PAUSED', Request_Data => p_batch_id ||':'|| p_req_status
563: ||':'|| p_mode );
564:
562: FND_CONC_GLOBAL.Set_Req_Globals ( Conc_Status => 'PAUSED', Request_Data => p_batch_id ||':'|| p_req_status
563: ||':'|| p_mode );
564:
565: IF l_debug_on THEN
566: WSH_DEBUG_SV.pop(l_module_name);
567: END IF;
568:
569: EXCEPTION
570: --
570: --
571: WHEN OTHERS THEN
572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
573: IF l_debug_on THEN
574: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
575: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
577: END IF;
578:
571: WHEN OTHERS THEN
572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
573: IF l_debug_on THEN
574: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
575: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
577: END IF;
578:
579: END Spawn_Workers;
572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
573: IF l_debug_on THEN
574: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
575: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
577: END IF;
578:
579: END Spawn_Workers;
580:
632:
633: BEGIN
634: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
635: IF l_debug_on IS NULL THEN
636: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
637: END IF;
638:
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.push(l_module_name);
636: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
637: END IF;
638:
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.push(l_module_name);
641: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
642: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
643: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
644: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
637: END IF;
638:
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.push(l_module_name);
641: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
642: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
643: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
644: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
645: WSH_DEBUG_SV.log(l_module_name,'P_DOC_SET_ID',P_DOC_SET_ID);
638:
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.push(l_module_name);
641: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
642: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
643: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
644: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
645: WSH_DEBUG_SV.log(l_module_name,'P_DOC_SET_ID',P_DOC_SET_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_NAME',P_BATCH_NAME);
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.push(l_module_name);
641: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
642: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
643: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
644: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
645: WSH_DEBUG_SV.log(l_module_name,'P_DOC_SET_ID',P_DOC_SET_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_NAME',P_BATCH_NAME);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_NUMBER',P_ORDER_NUMBER);
640: WSH_DEBUG_SV.push(l_module_name);
641: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
642: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
643: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
644: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
645: WSH_DEBUG_SV.log(l_module_name,'P_DOC_SET_ID',P_DOC_SET_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_NAME',P_BATCH_NAME);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_NUMBER',P_ORDER_NUMBER);
648: END IF;
641: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
642: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
643: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
644: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
645: WSH_DEBUG_SV.log(l_module_name,'P_DOC_SET_ID',P_DOC_SET_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_NAME',P_BATCH_NAME);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_NUMBER',P_ORDER_NUMBER);
648: END IF;
649: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
642: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
643: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
644: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
645: WSH_DEBUG_SV.log(l_module_name,'P_DOC_SET_ID',P_DOC_SET_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_NAME',P_BATCH_NAME);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_NUMBER',P_ORDER_NUMBER);
648: END IF;
649: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
650:
643: WSH_DEBUG_SV.log(l_module_name,'P_PRINT_PS',P_PRINT_PS);
644: WSH_DEBUG_SV.log(l_module_name,'P_PS_MODE',P_PS_MODE);
645: WSH_DEBUG_SV.log(l_module_name,'P_DOC_SET_ID',P_DOC_SET_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_NAME',P_BATCH_NAME);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_NUMBER',P_ORDER_NUMBER);
648: END IF;
649: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
650:
651: WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.delete;
654: WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.COUNT+1).printer_name := crec.printer_name;
655: WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.COUNT).conc_program_name := crec.conc_program_name;
656: --
657: IF l_debug_on THEN
658: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling Print_Document_sets for crec.printer_name ' || crec.printer_name );
659: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling Print_Document_sets for crec.conc_program_name ' || crec.conc_program_name );
660: END IF ;
661: --
662: END LOOP;
655: WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.COUNT).conc_program_name := crec.conc_program_name;
656: --
657: IF l_debug_on THEN
658: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling Print_Document_sets for crec.printer_name ' || crec.printer_name );
659: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling Print_Document_sets for crec.conc_program_name ' || crec.conc_program_name );
660: END IF ;
661: --
662: END LOOP;
663:
663:
664: IF p_print_ps = 'Y' THEN
665: --{
666: IF l_debug_on THEN
667: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
668: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP REPORT' );
669: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP'
670: ,WSH_DEBUG_SV.C_PROC_LEVEL);
671: END IF;
664: IF p_print_ps = 'Y' THEN
665: --{
666: IF l_debug_on THEN
667: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
668: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP REPORT' );
669: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP'
670: ,WSH_DEBUG_SV.C_PROC_LEVEL);
671: END IF;
672: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip (
665: --{
666: IF l_debug_on THEN
667: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
668: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP REPORT' );
669: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP'
670: ,WSH_DEBUG_SV.C_PROC_LEVEL);
671: END IF;
672: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip (
673: p_report_set_id => WSH_PICK_LIST.G_SEED_DOC_SET,
666: IF l_debug_on THEN
667: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
668: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP REPORT' );
669: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP'
670: ,WSH_DEBUG_SV.C_PROC_LEVEL);
671: END IF;
672: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip (
673: p_report_set_id => WSH_PICK_LIST.G_SEED_DOC_SET,
674: p_organization_id => p_organization_id,
677: p_batch_id => p_batch_id,
678: x_api_status => l_return_status,
679: x_error_message => l_message );
680: IF l_debug_on THEN
681: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
682: END IF;
683: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
684: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
685: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Report(s)');
686: WSH_UTIL_CORE.PrintMsg(l_message);
687: x_return_status := l_return_status;
688: ELSE
689: IF l_debug_on THEN
690: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT PICK SLIP SUCCESSFUL' );
691: END IF;
692: END IF;
693: --}
694: END IF;
700:
701: IF (p_doc_set_id <> -1 ) THEN
702: --{
703: IF l_debug_on THEN
704: WSH_DEBUG_SV.logmsg(l_module_name, '* PRINT DOCUMENT SET AFTER FINISHING PRINTING PICK SLIP REPORTS' );
705: END IF;
706: l_document_info(1).p_report_set_id := p_doc_set_id;
707: l_document_info(1).p_request_id := FND_GLOBAL.CONC_REQUEST_ID;
708: -- bug 2367043: p_move_order range should use l_batch_name, not id.
729: l_document_info(1).p_transaction_type_id := WSH_PR_CRITERIA.g_order_type_id;
730: END IF;
731:
732: IF l_debug_on THEN
733: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_SETS.PRINT_DOCUMENT_SETS'
734: ,WSH_DEBUG_SV.C_PROC_LEVEL);
735: END IF;
736: ---------------------------------------------------------
737: -- For printing the Document Sets for Pick Release ,
730: END IF;
731:
732: IF l_debug_on THEN
733: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_SETS.PRINT_DOCUMENT_SETS'
734: ,WSH_DEBUG_SV.C_PROC_LEVEL);
735: END IF;
736: ---------------------------------------------------------
737: -- For printing the Document Sets for Pick Release ,
738: -- only l_document_info should be passed to the
750: p_delivery_ids => l_null_ids,
751: p_document_param_info => l_document_info,
752: x_return_status => l_return_status );
753: IF l_debug_on THEN
754: WSH_DEBUG_SV.logmsg(l_module_name, '* END PRINT DOCUMENT SET ' );
755: END IF;
756: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
757: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
758: WSH_UTIL_CORE.PrintMsg('Warning: Cannot Print Document Set, when count=0 ');
759: WSH_UTIL_CORE.PrintMsg(l_message);
760: x_return_status := l_return_status;
761: ELSE
762: IF l_debug_on THEN
763: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINT DOCUMENT SET SUCCESSFUL ' );
764: END IF;
765: END IF;
766: --}
767: END IF;
768:
769: fnd_msg_pub.delete_msg(); -- Clear Msg Buffer
770:
771: IF l_debug_on THEN
772: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
773: WSH_DEBUG_SV.pop(l_module_name);
774: END IF;
775:
776: EXCEPTION
769: fnd_msg_pub.delete_msg(); -- Clear Msg Buffer
770:
771: IF l_debug_on THEN
772: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '||x_return_status);
773: WSH_DEBUG_SV.pop(l_module_name);
774: END IF;
775:
776: EXCEPTION
777: WHEN OTHERS THEN
776: EXCEPTION
777: WHEN OTHERS THEN
778: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
779: IF l_debug_on THEN
780: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
781: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
782: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
783: END IF;
784: END Print_docs;
777: WHEN OTHERS THEN
778: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
779: IF l_debug_on THEN
780: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
781: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
782: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
783: END IF;
784: END Print_docs;
785:
778: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
779: IF l_debug_on THEN
780: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
781: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
782: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
783: END IF;
784: END Print_docs;
785:
786: -- Start of comments
927: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
928:
929: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
930: IF l_debug_on IS NULL THEN
931: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
932: END IF;
933:
934: l_standalone_mode := WMS_DEPLOY.wms_deployment_mode; -- Standalone project Changes Start
935:
933:
934: l_standalone_mode := WMS_DEPLOY.wms_deployment_mode; -- Standalone project Changes Start
935:
936: IF l_debug_on THEN
937: WSH_DEBUG_SV.push(l_module_name);
938: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
939: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
940: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
941: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
934: l_standalone_mode := WMS_DEPLOY.wms_deployment_mode; -- Standalone project Changes Start
935:
936: IF l_debug_on THEN
937: WSH_DEBUG_SV.push(l_module_name);
938: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
939: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
940: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
941: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
942: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
935:
936: IF l_debug_on THEN
937: WSH_DEBUG_SV.push(l_module_name);
938: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
939: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
940: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
941: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
942: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
943: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
936: IF l_debug_on THEN
937: WSH_DEBUG_SV.push(l_module_name);
938: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
939: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
940: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
941: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
942: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
943: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
944: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
937: WSH_DEBUG_SV.push(l_module_name);
938: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
939: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
940: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
941: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
942: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
943: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
944: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
945: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
938: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
939: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
940: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
941: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
942: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
943: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
944: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
945: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
946: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
939: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
940: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
941: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
942: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
943: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
944: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
945: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
946: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
947: WSH_DEBUG_SV.log(l_module_name,'P_TO_LOCATOR',P_TO_LOCATOR);
940: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
941: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
942: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
943: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
944: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
945: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
946: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
947: WSH_DEBUG_SV.log(l_module_name,'P_TO_LOCATOR',P_TO_LOCATOR);
948: WSH_DEBUG_SV.log(l_module_name,'l_standalone_mode',l_standalone_mode);
941: WSH_DEBUG_SV.log(l_module_name,'P_MO_HEADER_ID',P_MO_HEADER_ID);
942: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
943: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
944: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
945: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
946: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
947: WSH_DEBUG_SV.log(l_module_name,'P_TO_LOCATOR',P_TO_LOCATOR);
948: WSH_DEBUG_SV.log(l_module_name,'l_standalone_mode',l_standalone_mode);
949: END IF;
942: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
943: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
944: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
945: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
946: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
947: WSH_DEBUG_SV.log(l_module_name,'P_TO_LOCATOR',P_TO_LOCATOR);
948: WSH_DEBUG_SV.log(l_module_name,'l_standalone_mode',l_standalone_mode);
949: END IF;
950:
943: WSH_DEBUG_SV.log(l_module_name,'P_AUTO_PICK_CONFIRM',P_AUTO_PICK_CONFIRM);
944: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
945: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
946: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
947: WSH_DEBUG_SV.log(l_module_name,'P_TO_LOCATOR',P_TO_LOCATOR);
948: WSH_DEBUG_SV.log(l_module_name,'l_standalone_mode',l_standalone_mode);
949: END IF;
950:
951: -- Clear move order lines tables
944: WSH_DEBUG_SV.log(l_module_name,'P_EXPRESS_PICK_FLAG',P_EXPRESS_PICK_FLAG);
945: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SLIP_GROUPING_RULE',P_PICK_SLIP_GROUPING_RULE);
946: WSH_DEBUG_SV.log(l_module_name,'P_TO_SUBINVENTORY',P_TO_SUBINVENTORY);
947: WSH_DEBUG_SV.log(l_module_name,'P_TO_LOCATOR',P_TO_LOCATOR);
948: WSH_DEBUG_SV.log(l_module_name,'l_standalone_mode',l_standalone_mode);
949: END IF;
950:
951: -- Clear move order lines tables
952: g_trolin_tbl.delete;
967: -- X-dock
968: -- Call to WMS API to process lines for X-dock
969: IF g_allocation_method IN (WSH_PICK_LIST.C_CROSSDOCK_ONLY, WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK) THEN --{
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
972: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
973: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||'WMS_XDOCK_PEGGING_PUB.PLANNED_CROSS_DOCK',WSH_DEBUG_SV.C_PROC_LEVEL);
974: END IF;
975:
968: -- Call to WMS API to process lines for X-dock
969: IF g_allocation_method IN (WSH_PICK_LIST.C_CROSSDOCK_ONLY, WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK) THEN --{
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
972: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
973: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||'WMS_XDOCK_PEGGING_PUB.PLANNED_CROSS_DOCK',WSH_DEBUG_SV.C_PROC_LEVEL);
974: END IF;
975:
976: -- Parameters description :
969: IF g_allocation_method IN (WSH_PICK_LIST.C_CROSSDOCK_ONLY, WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK) THEN --{
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
972: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
973: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||'WMS_XDOCK_PEGGING_PUB.PLANNED_CROSS_DOCK',WSH_DEBUG_SV.C_PROC_LEVEL);
974: END IF;
975:
976: -- Parameters description :
977: -- P_DEL_DETAIL_ID (g_xdock_detail_ids) :contains the list of delivery details which have been
993: x_msg_count => l_msg_count,
994: x_msg_data => l_msg_data
995: );
996: IF l_debug_on THEN
997: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
998: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
999: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
1000: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DELIVERY_IDS Table Count',g_xdock_delivery_ids.count);
1001: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DETAIL_IDS Table Count',g_xdock_detail_ids.count);
994: x_msg_data => l_msg_data
995: );
996: IF l_debug_on THEN
997: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
998: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
999: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
1000: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DELIVERY_IDS Table Count',g_xdock_delivery_ids.count);
1001: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DETAIL_IDS Table Count',g_xdock_detail_ids.count);
1002: END IF;
995: );
996: IF l_debug_on THEN
997: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
998: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
999: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
1000: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DELIVERY_IDS Table Count',g_xdock_delivery_ids.count);
1001: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DETAIL_IDS Table Count',g_xdock_detail_ids.count);
1002: END IF;
1003:
996: IF l_debug_on THEN
997: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
998: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
999: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
1000: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DELIVERY_IDS Table Count',g_xdock_delivery_ids.count);
1001: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DETAIL_IDS Table Count',g_xdock_detail_ids.count);
1002: END IF;
1003:
1004: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
997: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
998: WSH_DEBUG_SV.log(l_module_name,'After Calling WMS API-Planned_Cross_Dock',l_return_status);
999: WSH_DEBUG_SV.log(l_module_name,'Release Table Count',wsh_pr_criteria.release_table.count);
1000: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DELIVERY_IDS Table Count',g_xdock_delivery_ids.count);
1001: WSH_DEBUG_SV.log(l_module_name,'G_XDOCK_DETAIL_IDS Table Count',g_xdock_detail_ids.count);
1002: END IF;
1003:
1004: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1005: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN--{
1005: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN--{
1006: x_return_status := l_return_status;
1007: WSH_UTIL_CORE.PrintMsg('Error occurred in WMS API Planned_Cross_Dock');
1008: IF l_debug_on THEN
1009: WSH_DEBUG_SV.pop(l_module_name);
1010: END IF;
1011: -- the parent API handles the errors raised from create_move_order_lines
1012: RETURN;
1013: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1034: l_exception_msg_count := NULL;
1035: l_exception_msg_data := NULL;
1036: l_dummy_exception_id := NULL;
1037: IF l_debug_on THEN
1038: WSH_DEBUG_SV.logmsg(l_module_name,
1039: 'Log exception for Detail, id- '
1040: ||WSH_PR_CRITERIA.release_table(i).delivery_detail_id
1041: || ', ' || l_exception_name);
1042: END IF;
1058: x_msg_data => l_exception_msg_data,
1059: x_exception_id => l_dummy_exception_id);
1060:
1061: IF l_debug_on THEN
1062: WSH_DEBUG_SV.logmsg(l_module_name, 'LOGGED EXCEPTION '||L_DUMMY_EXCEPTION_ID );
1063: END IF;
1064: END IF; --}
1065: END LOOP;
1066: END IF; --}
1077: WSH_PICK_LIST.C_PRIORITIZE_CROSSDOCK,
1078: WSH_PICK_LIST.C_PRIORITIZE_INVENTORY)
1079: THEN --{
1080: IF l_debug_on THEN
1081: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1082: END IF;
1083: l_attr_tab.delete;
1084: FOR i in 1.. WSH_PR_CRITERIA.release_table.count LOOP
1085: l_attr_tab(i).entity_id := WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1086: l_attr_tab(i).entity_type := 'DELIVERY_DETAIL';
1087: IF WSH_PR_CRITERIA.release_table(i).released_status = 'S' THEN
1088: -- delivery detail is X-docked, pass flag to ignore this line for grouping
1089: IF l_debug_on THEN
1090: WSH_DEBUG_SV.log(l_module_name,'X-docked Detail id-', WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1091: END IF;
1092: l_attr_tab(i).is_xdocked_flag := 'Y';
1093: END IF;
1094: END LOOP;
1108: x_out_rec => l_out_rec,
1109: x_return_status => l_return_status);
1110:
1111: IF l_debug_on THEN
1112: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1113: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status',l_return_status);
1114: END IF;
1115: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1116: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1109: x_return_status => l_return_status);
1110:
1111: IF l_debug_on THEN
1112: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1113: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status',l_return_status);
1114: END IF;
1115: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1116: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1117: x_return_status := l_return_status;
1116: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1117: x_return_status := l_return_status;
1118: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
1119: IF l_debug_on THEN
1120: WSH_DEBUG_SV.pop(l_module_name);
1121: END IF;
1122: RETURN;
1123: END IF;
1124: END IF; --}
1132: --{
1133:
1134: -- Print before the loop
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.log(l_module_name, 'ALLOCATION METHOD', g_allocation_method);
1137: END IF;
1138:
1139: --bug 7171766
1140: l_group_match_seq_tbl.delete;
1142: -- Looping through Release Table
1143: FOR i in 1..WSH_PR_CRITERIA.release_table.count LOOP
1144: --{
1145: IF l_debug_on THEN
1146: WSH_DEBUG_SV.log(l_module_name, 'PROCESSING DELIVERY DETAIL', WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1147: END IF;
1148: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1149: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1150: END IF;
1148: IF (nvl(g_order_number, 0) <> WSH_PR_CRITERIA.release_table(i).source_header_number) THEN
1149: g_order_number := WSH_PR_CRITERIA.release_table(i).source_header_number;
1150: END IF;
1151: IF l_debug_on THEN
1152: WSH_DEBUG_SV.log(l_module_name, 'Released Status of Detail', WSH_PR_CRITERIA.RELEASE_TABLE(I).RELEASED_STATUS);
1153: END IF;
1154: IF (WSH_PR_CRITERIA.release_table(i).released_status = 'X') THEN
1155: --{
1156: IF l_debug_on THEN
1153: END IF;
1154: IF (WSH_PR_CRITERIA.release_table(i).released_status = 'X') THEN
1155: --{
1156: IF l_debug_on THEN
1157: WSH_DEBUG_SV.logmsg(l_module_name,'IGNORING NON-TRANSACTABLE LINE FOR MOVE ORDER LINE CREATION');
1158: END IF;
1159: l_count_x_relstatus_details := l_count_x_relstatus_details + 1;
1160: l_rel_delivery_detail_id(l_count_x_relstatus_details):= WSH_PR_CRITERIA.release_table(i).delivery_detail_id;
1161: --}
1162: -- X-dock, X-dock lines which have been processed above
1163: -- will have released status of S
1164: ELSIF (WSH_PR_CRITERIA.release_table(i).released_status = WSH_DELIVERY_DETAILS_PKG.C_RELEASED_TO_WAREHOUSE) THEN --{
1165: IF l_debug_on THEN
1166: WSH_DEBUG_SV.logmsg(l_module_name,'IGNORING PLANNED X-DOCK LINE FOR MOVE ORDER LINE CREATION');
1167: END IF;
1168: --}
1169: ELSE
1170: --{
1217: g_trolin_tbl(l_count).to_subinventory_code := p_to_subinventory;
1218: g_trolin_tbl(l_count).to_locator_id := p_to_locator;
1219: --
1220: IF l_debug_on THEN
1221: WSH_DEBUG_SV.logmsg(l_module_name, 'DD id : '||g_del_detail_ids(l_count) );
1222: WSH_DEBUG_SV.logmsg(l_module_name, 'from sub : '||g_trolin_tbl(l_count).from_subinventory_code );
1223: WSH_DEBUG_SV.logmsg(l_module_name, 'from loc : '||g_trolin_tbl(l_count).from_locator_id );
1224: WSH_DEBUG_SV.logmsg(l_module_name, 'rev : '||g_trolin_tbl(l_count).revision );
1225: WSH_DEBUG_SV.logmsg(l_module_name, 'lot : '||g_trolin_tbl(l_count).lot_number );
1218: g_trolin_tbl(l_count).to_locator_id := p_to_locator;
1219: --
1220: IF l_debug_on THEN
1221: WSH_DEBUG_SV.logmsg(l_module_name, 'DD id : '||g_del_detail_ids(l_count) );
1222: WSH_DEBUG_SV.logmsg(l_module_name, 'from sub : '||g_trolin_tbl(l_count).from_subinventory_code );
1223: WSH_DEBUG_SV.logmsg(l_module_name, 'from loc : '||g_trolin_tbl(l_count).from_locator_id );
1224: WSH_DEBUG_SV.logmsg(l_module_name, 'rev : '||g_trolin_tbl(l_count).revision );
1225: WSH_DEBUG_SV.logmsg(l_module_name, 'lot : '||g_trolin_tbl(l_count).lot_number );
1226: END IF;
1219: --
1220: IF l_debug_on THEN
1221: WSH_DEBUG_SV.logmsg(l_module_name, 'DD id : '||g_del_detail_ids(l_count) );
1222: WSH_DEBUG_SV.logmsg(l_module_name, 'from sub : '||g_trolin_tbl(l_count).from_subinventory_code );
1223: WSH_DEBUG_SV.logmsg(l_module_name, 'from loc : '||g_trolin_tbl(l_count).from_locator_id );
1224: WSH_DEBUG_SV.logmsg(l_module_name, 'rev : '||g_trolin_tbl(l_count).revision );
1225: WSH_DEBUG_SV.logmsg(l_module_name, 'lot : '||g_trolin_tbl(l_count).lot_number );
1226: END IF;
1227: --- Standalone project Changes: end
1220: IF l_debug_on THEN
1221: WSH_DEBUG_SV.logmsg(l_module_name, 'DD id : '||g_del_detail_ids(l_count) );
1222: WSH_DEBUG_SV.logmsg(l_module_name, 'from sub : '||g_trolin_tbl(l_count).from_subinventory_code );
1223: WSH_DEBUG_SV.logmsg(l_module_name, 'from loc : '||g_trolin_tbl(l_count).from_locator_id );
1224: WSH_DEBUG_SV.logmsg(l_module_name, 'rev : '||g_trolin_tbl(l_count).revision );
1225: WSH_DEBUG_SV.logmsg(l_module_name, 'lot : '||g_trolin_tbl(l_count).lot_number );
1226: END IF;
1227: --- Standalone project Changes: end
1228:
1221: WSH_DEBUG_SV.logmsg(l_module_name, 'DD id : '||g_del_detail_ids(l_count) );
1222: WSH_DEBUG_SV.logmsg(l_module_name, 'from sub : '||g_trolin_tbl(l_count).from_subinventory_code );
1223: WSH_DEBUG_SV.logmsg(l_module_name, 'from loc : '||g_trolin_tbl(l_count).from_locator_id );
1224: WSH_DEBUG_SV.logmsg(l_module_name, 'rev : '||g_trolin_tbl(l_count).revision );
1225: WSH_DEBUG_SV.logmsg(l_module_name, 'lot : '||g_trolin_tbl(l_count).lot_number );
1226: END IF;
1227: --- Standalone project Changes: end
1228:
1229: -- If p_num_workers in Release_Batch api is 1 and WMS Org, then populate Carton Grouping Ids for the lines
1257: --}
1258: End IF;
1259:
1260: IF l_debug_on THEN
1261: WSH_DEBUG_SV.logmsg(l_module_name, 'CARTON GROUPING ID : '||l_group_match_seq_tbl(i).delivery_group_id );
1262: END IF;
1263:
1264: g_trolin_tbl(l_count).carton_grouping_id := l_group_match_seq_tbl(i).delivery_group_id ;
1265:
1272: OPEN get_dd_pup_trip_stop ( p_organization_id, WSH_PR_CRITERIA.release_table(i).delivery_detail_id );
1273: FETCH get_dd_pup_trip_stop INTO l_dd_pup_stop_id;
1274: IF get_dd_pup_trip_stop%NOTFOUND THEN
1275: IF l_debug_on THEN
1276: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY DETAIL '||
1277: WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID|| ' NOT ASSOCIATED TO ANY TRIP' );
1278: END IF;
1279: ELSE
1280: --{
1284: g_trolin_tbl(l_count).to_locator_id := l_Stops_Ids_Tbl(l_dd_pup_stop_id).Staging_Lane_Id;
1285: ELSE
1286: --{
1287: IF l_debug_on THEN
1288: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||
1289: 'WMS_TRIPSTOPS_STAGELANES_PUB.GET_STGLN_FOR_TRIPSTOP',WSH_DEBUG_SV.C_PROC_LEVEL);
1290: END IF;
1291: x_wms_return_status := NULL;
1292: WMS_TRIPSTOPS_STAGELANES_PUB.get_stgln_for_tripstop (
1285: ELSE
1286: --{
1287: IF l_debug_on THEN
1288: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit '||
1289: 'WMS_TRIPSTOPS_STAGELANES_PUB.GET_STGLN_FOR_TRIPSTOP',WSH_DEBUG_SV.C_PROC_LEVEL);
1290: END IF;
1291: x_wms_return_status := NULL;
1292: WMS_TRIPSTOPS_STAGELANES_PUB.get_stgln_for_tripstop (
1293: p_org_id => p_organization_id,
1297: x_return_status => x_wms_return_status,
1298: x_msg_count => x_wms_msg_count,
1299: x_msg_data => x_wms_msg_data);
1300: IF l_debug_on THEN
1301: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1302: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1303: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
1304: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RETN. STATUS :' || X_WMS_RETURN_STATUS);
1305: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. LN ID :' || X_WMS_STG_LN_ID);
1298: x_msg_count => x_wms_msg_count,
1299: x_msg_data => x_wms_msg_data);
1300: IF l_debug_on THEN
1301: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1302: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1303: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
1304: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RETN. STATUS :' || X_WMS_RETURN_STATUS);
1305: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. LN ID :' || X_WMS_STG_LN_ID);
1306: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. SUB :' || X_WMS_SUB_CODE);
1299: x_msg_data => x_wms_msg_data);
1300: IF l_debug_on THEN
1301: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1302: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1303: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
1304: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RETN. STATUS :' || X_WMS_RETURN_STATUS);
1305: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. LN ID :' || X_WMS_STG_LN_ID);
1306: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. SUB :' || X_WMS_SUB_CODE);
1307: END IF;
1300: IF l_debug_on THEN
1301: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1302: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1303: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
1304: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RETN. STATUS :' || X_WMS_RETURN_STATUS);
1305: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. LN ID :' || X_WMS_STG_LN_ID);
1306: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. SUB :' || X_WMS_SUB_CODE);
1307: END IF;
1308: IF ( x_wms_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1301: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RELATED VARIABLES ');
1302: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1303: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
1304: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RETN. STATUS :' || X_WMS_RETURN_STATUS);
1305: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. LN ID :' || X_WMS_STG_LN_ID);
1306: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. SUB :' || X_WMS_SUB_CODE);
1307: END IF;
1308: IF ( x_wms_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1309: -- AND x_wms_sub_code IS NOT NULL) THEN
1302: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - DD ID :'||WSH_PR_CRITERIA.RELEASE_TABLE(I).DELIVERY_DETAIL_ID);
1303: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - PUP-STOPID :' || L_DD_PUP_STOP_ID);
1304: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - RETN. STATUS :' || X_WMS_RETURN_STATUS);
1305: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. LN ID :' || X_WMS_STG_LN_ID);
1306: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS - STG. SUB :' || X_WMS_SUB_CODE);
1307: END IF;
1308: IF ( x_wms_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1309: -- AND x_wms_sub_code IS NOT NULL) THEN
1310: g_trolin_tbl(l_count).to_subinventory_code := x_wms_sub_code;
1326: g_trolin_tbl(l_count).ship_set_id := WSH_PR_CRITERIA.release_table(i).ship_set_id;
1327: g_trolin_tbl(l_count).ship_model_id := WSH_PR_CRITERIA.release_table(i).top_model_line_id;
1328: g_trolin_tbl(l_count).model_quantity := WSH_PR_CRITERIA.release_table(i).top_model_quantity;
1329: IF l_debug_on THEN
1330: WSH_DEBUG_SV.logmsg(l_module_name, 'Line Number '||G_TROLIN_TBL(L_COUNT).LINE_NUMBER||
1331: ' MOVE ORDER SHIP SET '||G_TROLIN_TBL(L_COUNT).SHIP_SET_ID ||
1332: ' MODEL ID '||G_TROLIN_TBL( L_COUNT).SHIP_MODEL_ID || ' MODEL QTY '
1333: ||G_TROLIN_TBL(L_COUNT).MODEL_QUANTITY );
1334: END IF;
1350: IF (WSH_PR_CRITERIA.release_table(i).move_order_line_id IS NOT NULL) THEN
1351: g_trolin_tbl(l_count).line_id := WSH_PR_CRITERIA.release_table(i).move_order_line_id;
1352: -- The quantity for the Backordered line should be the same as the original quantity
1353: IF l_debug_on THEN
1354: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
1355: END IF;
1356: l_temp_trolin_rec := INV_Trolin_Util.Query_Row( p_line_id => g_trolin_tbl(l_count).line_id );
1357: g_trolin_tbl(l_count).quantity := l_temp_trolin_rec.quantity;
1358: g_trolin_tbl(l_count).operation := INV_GLOBALS.G_OPR_UPDATE;
1387: p_organization_id => p_organization_id,
1388: x_return_status => l_wf_rs ) ;
1389:
1390: IF l_debug_on THEN
1391: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1392: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1393: END IF;
1394: --Done Raise Event: Pick To Pod Workflow
1395: END LOOP;
1388: x_return_status => l_wf_rs ) ;
1389:
1390: IF l_debug_on THEN
1391: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1392: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1393: END IF;
1394: --Done Raise Event: Pick To Pod Workflow
1395: END LOOP;
1396:
1395: END LOOP;
1396:
1397: -- Update of wsh_delivery_details where released_status is changed, call DBI API after the update.
1398: IF l_debug_on THEN
1399: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_rel_delivery_detail_id.count);
1400: END IF;
1401: WSH_INTEGRATION.DBI_Update_Detail_Log (
1402: p_delivery_detail_id_tab => l_rel_delivery_detail_id,
1403: p_dml_type => 'UPDATE',
1402: p_delivery_detail_id_tab => l_rel_delivery_detail_id,
1403: p_dml_type => 'UPDATE',
1404: x_return_status => l_dbi_rs );
1405: IF l_debug_on THEN
1406: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1407: END IF;
1408: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1409: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1410: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1408: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1409: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1410: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.pop(l_module_name);
1413: END IF;
1414: RETURN;
1415: END IF;
1416: IF l_debug_on THEN
1413: END IF;
1414: RETURN;
1415: END IF;
1416: IF l_debug_on THEN
1417: WSH_DEBUG_SV.log(l_module_name,'l_count_x_relstatus_details updated ',l_count_x_relstatus_details);
1418: END IF;
1419: END IF;
1420: --}
1421:
1424: --{
1425: IF p_express_pick_flag = 'N' THEN
1426: --{
1427: IF l_debug_on THEN
1428: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_LINES',
1429: WSH_DEBUG_SV.C_PROC_LEVEL);
1430: WSH_DEBUG_SV.log(l_module_name, 'G_TROLIN_TBL.COUNT',G_TROLIN_TBL.COUNT);
1431: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1432: END IF;
1425: IF p_express_pick_flag = 'N' THEN
1426: --{
1427: IF l_debug_on THEN
1428: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_LINES',
1429: WSH_DEBUG_SV.C_PROC_LEVEL);
1430: WSH_DEBUG_SV.log(l_module_name, 'G_TROLIN_TBL.COUNT',G_TROLIN_TBL.COUNT);
1431: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1432: END IF;
1433: Inv_Move_Order_Pub.Create_Move_Order_Lines
1426: --{
1427: IF l_debug_on THEN
1428: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_LINES',
1429: WSH_DEBUG_SV.C_PROC_LEVEL);
1430: WSH_DEBUG_SV.log(l_module_name, 'G_TROLIN_TBL.COUNT',G_TROLIN_TBL.COUNT);
1431: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1432: END IF;
1433: Inv_Move_Order_Pub.Create_Move_Order_Lines
1434: (
1427: IF l_debug_on THEN
1428: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_LINES',
1429: WSH_DEBUG_SV.C_PROC_LEVEL);
1430: WSH_DEBUG_SV.log(l_module_name, 'G_TROLIN_TBL.COUNT',G_TROLIN_TBL.COUNT);
1431: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1432: END IF;
1433: Inv_Move_Order_Pub.Create_Move_Order_Lines
1434: (
1435: p_api_version_number => l_api_version_number,
1445: x_msg_count => l_msg_count,
1446: x_msg_data => l_msg_data
1447: );
1448: IF l_debug_on THEN
1449: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1450: WSH_DEBUG_SV.log(l_module_name, 'Return status from INV API', l_return_status);
1451: WSH_DEBUG_SV.log(l_module_name, 'l_msg_count', l_msg_count);
1452: WSH_DEBUG_SV.log(l_module_name, 'l_msg_data', l_msg_data);
1453: END IF;
1446: x_msg_data => l_msg_data
1447: );
1448: IF l_debug_on THEN
1449: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1450: WSH_DEBUG_SV.log(l_module_name, 'Return status from INV API', l_return_status);
1451: WSH_DEBUG_SV.log(l_module_name, 'l_msg_count', l_msg_count);
1452: WSH_DEBUG_SV.log(l_module_name, 'l_msg_data', l_msg_data);
1453: END IF;
1454: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1447: );
1448: IF l_debug_on THEN
1449: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1450: WSH_DEBUG_SV.log(l_module_name, 'Return status from INV API', l_return_status);
1451: WSH_DEBUG_SV.log(l_module_name, 'l_msg_count', l_msg_count);
1452: WSH_DEBUG_SV.log(l_module_name, 'l_msg_data', l_msg_data);
1453: END IF;
1454: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1455: --{
1448: IF l_debug_on THEN
1449: WSH_DEBUG_SV.log(l_module_name, 'Current Time is ',SYSDATE);
1450: WSH_DEBUG_SV.log(l_module_name, 'Return status from INV API', l_return_status);
1451: WSH_DEBUG_SV.log(l_module_name, 'l_msg_count', l_msg_count);
1452: WSH_DEBUG_SV.log(l_module_name, 'l_msg_data', l_msg_data);
1453: END IF;
1454: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1455: --{
1456: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Move_Order_Pub.Create_Move_Order_Lines');
1464: --{
1465: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Move_Order_Pub.Create_Move_Order_Lines. Exiting');
1466: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1467: IF l_debug_on THEN
1468: WSH_DEBUG_SV.pop(l_module_name);
1469: END IF;
1470: RETURN;
1471: --}
1472: ELSE
1473: --{
1474: WSH_UTIL_CORE.PrintMsg('Create Move Order Lines Partially Successful');
1475: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1476: IF l_debug_on THEN
1477: WSH_DEBUG_SV.logmsg(l_module_name, 'Create Move Order Lines Partially Successful');
1478: WSH_DEBUG_SV.logmsg(l_module_name, 'Remove lines that errored out in INV');
1479: END IF;
1480: -- Bug 2522935 : Error in MO line creation for Ship Sets causes Released to Warehouse lines
1481: -- Delete all the Lines which had the return status as error from Inventory's Move Order Line API
1474: WSH_UTIL_CORE.PrintMsg('Create Move Order Lines Partially Successful');
1475: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1476: IF l_debug_on THEN
1477: WSH_DEBUG_SV.logmsg(l_module_name, 'Create Move Order Lines Partially Successful');
1478: WSH_DEBUG_SV.logmsg(l_module_name, 'Remove lines that errored out in INV');
1479: END IF;
1480: -- Bug 2522935 : Error in MO line creation for Ship Sets causes Released to Warehouse lines
1481: -- Delete all the Lines which had the return status as error from Inventory's Move Order Line API
1482: FOR i in 1..g_trolin_tbl.count LOOP
1482: FOR i in 1..g_trolin_tbl.count LOOP
1483: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1484: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1485: IF l_debug_on THEN
1486: WSH_DEBUG_SV.log(l_module_name, 'Deleting line', g_trolin_tbl(i).line_id);
1487: END IF;
1488: g_trolin_tbl.delete(i);
1489: l_trolin_val_tbl.delete(i);
1490: g_del_detail_ids.delete(i);
1492: END IF;
1493: END LOOP;
1494: WSH_UTIL_CORE.PrintMsg('After deleting lines, Trolin Table count '||g_del_detail_ids.count);
1495: IF l_debug_on THEN
1496: WSH_DEBUG_SV.log(l_module_name, 'g_del_detail_ids.count', g_del_detail_ids.count);
1497: END IF;
1498: --}
1499: END IF;
1500: --}
1501: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1502: --{
1503: G_ONLINE_PICK_RELEASE_PHASE := 'MOVE_ORDER_LINES';
1504: IF l_debug_on THEN
1505: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED MO LINES SUCESSFULLY');
1506: WSH_DEBUG_SV.log(l_module_name, 'g_del_detail_ids.count', g_del_detail_ids.count);
1507: END IF;
1508: --}
1509: END IF;
1502: --{
1503: G_ONLINE_PICK_RELEASE_PHASE := 'MOVE_ORDER_LINES';
1504: IF l_debug_on THEN
1505: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATED MO LINES SUCESSFULLY');
1506: WSH_DEBUG_SV.log(l_module_name, 'g_del_detail_ids.count', g_del_detail_ids.count);
1507: END IF;
1508: --}
1509: END IF;
1510: --}
1510: --}
1511: ELSE -- l_express_pick_flag =
1512: --{
1513: IF l_debug_on THEN
1514: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1515: WSH_DEBUG_SV.logmsg(l_module_name,'Express Pick');
1516: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1517: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Inv_Express_Pick_Pub.Pick_Release with COUNT:'||G_TROLIN_TBL.COUNT );
1518: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Inv_Express_Pick_Pub.Pick_Release',WSH_DEBUG_SV.C_PROC_LEVEL);
1511: ELSE -- l_express_pick_flag =
1512: --{
1513: IF l_debug_on THEN
1514: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1515: WSH_DEBUG_SV.logmsg(l_module_name,'Express Pick');
1516: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1517: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Inv_Express_Pick_Pub.Pick_Release with COUNT:'||G_TROLIN_TBL.COUNT );
1518: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Inv_Express_Pick_Pub.Pick_Release',WSH_DEBUG_SV.C_PROC_LEVEL);
1519: END IF;
1512: --{
1513: IF l_debug_on THEN
1514: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1515: WSH_DEBUG_SV.logmsg(l_module_name,'Express Pick');
1516: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1517: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Inv_Express_Pick_Pub.Pick_Release with COUNT:'||G_TROLIN_TBL.COUNT );
1518: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Inv_Express_Pick_Pub.Pick_Release',WSH_DEBUG_SV.C_PROC_LEVEL);
1519: END IF;
1520: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
1513: IF l_debug_on THEN
1514: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1515: WSH_DEBUG_SV.logmsg(l_module_name,'Express Pick');
1516: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1517: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Inv_Express_Pick_Pub.Pick_Release with COUNT:'||G_TROLIN_TBL.COUNT );
1518: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Inv_Express_Pick_Pub.Pick_Release',WSH_DEBUG_SV.C_PROC_LEVEL);
1519: END IF;
1520: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
1521: Inv_Express_Pick_Pub.Pick_Release (
1514: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1515: WSH_DEBUG_SV.logmsg(l_module_name,'Express Pick');
1516: WSH_DEBUG_SV.logmsg(l_module_name,'============');
1517: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Inv_Express_Pick_Pub.Pick_Release with COUNT:'||G_TROLIN_TBL.COUNT );
1518: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Inv_Express_Pick_Pub.Pick_Release',WSH_DEBUG_SV.C_PROC_LEVEL);
1519: END IF;
1520: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
1521: Inv_Express_Pick_Pub.Pick_Release (
1522: p_api_version => l_api_version_number,
1530: x_return_status => l_return_status,
1531: x_msg_count => l_msg_count,
1532: x_msg_data => l_msg_data);
1533: IF l_debug_on THEN
1534: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1535: WSH_DEBUG_SV.log(l_module_name,'Inv_Express_Pick_Pub.Pick_Release l_return_status',l_return_status);
1536: END IF;
1537: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1538: --{
1531: x_msg_count => l_msg_count,
1532: x_msg_data => l_msg_data);
1533: IF l_debug_on THEN
1534: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1535: WSH_DEBUG_SV.log(l_module_name,'Inv_Express_Pick_Pub.Pick_Release l_return_status',l_return_status);
1536: END IF;
1537: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1538: --{
1539: WSH_UTIL_CORE.PrintMsg('Error occurred in Inv_Express_Pick_Pub.Pick_Release');
1550: --{
1551: WSH_UTIL_CORE.PrintMsg('Unexpected error from Inv_Express_Pick_Pub.Pick_Release. Exiting');
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1553: IF l_debug_on THEN
1554: WSH_DEBUG_SV.pop(l_module_name);
1555: END IF;
1556: RETURN;
1557: --}
1558: ELSE
1564: IF (l_request_id <> -1 OR G_BATCH_ID IS NOT NULL ) THEN
1565: --{
1566: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count LOOP
1567: IF l_debug_on THEN
1568: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1569: END IF;
1570: l_item_name := WSH_UTIL_CORE.Get_Item_Name(WSH_PR_CRITERIA.release_table(i).inventory_item_id,
1571: WSH_PR_CRITERIA.release_table(i).organization_id);
1572: FND_MESSAGE.SET_NAME('WSH','WSH_INV_EXPECTED_ERROR');
1578: l_exception_msg_count := NULL;
1579: l_exception_msg_data := NULL;
1580: l_dummy_exception_id := NULL;
1581: IF l_debug_on THEN
1582: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1583: END IF;
1584: WSH_XC_UTIL.Log_Exception(
1585: p_api_version => 1.0,
1586: p_logging_entity => 'SHIPPER',
1596: x_msg_count => l_exception_msg_count,
1597: x_msg_data => l_exception_msg_data,
1598: x_exception_id => l_dummy_exception_id);
1599: IF l_debug_on THEN
1600: WSH_DEBUG_SV.logmsg(l_module_name, 'LOGGED EXCEPTION '||L_DUMMY_EXCEPTION_ID );
1601: END IF;
1602: END LOOP;
1603: --}
1604: END IF;
1629: then INV will pass pick_status 'I' and split_delivery_id null.
1630: */
1631: IF l_debug_on THEN
1632: FOR i IN g_exp_pick_release_stat.FIRST..g_exp_pick_release_stat.LAST LOOP
1633: WSH_DEBUG_SV.logmsg(l_module_name,i||' '||g_exp_pick_release_stat(i).delivery_detail_id||
1634: ' '||g_exp_pick_release_stat(i).pick_status||
1635: ' '||g_exp_pick_release_stat(i).split_delivery_id);
1636: END LOOP;
1637: END IF;
1656: j := g_trolin_tbl.NEXT(i);
1657: BEGIN
1658: IF (g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1659: IF l_debug_on THEN
1660: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE WITH TROLIN.LINE_ID ' || G_TROLIN_TBL(I).LINE_ID );
1661: END IF;
1662: UPDATE wsh_delivery_details
1663: SET move_order_line_id = g_trolin_tbl(i).line_id,
1664: released_status = WSH_DELIVERY_DETAILS_PKG.C_RELEASED_TO_WAREHOUSE,
1678: IF (l_txn_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1679: x_return_status := l_txn_return_status;
1680: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DD_TXNS_PVT.create_dd_txn_from_dd');
1681: IF l_debug_on THEN
1682: WSH_DEBUG_SV.pop(l_module_name);
1683: END IF;
1684: RETURN;
1685: END IF;
1686: --DBI
1693: --p_parameters IN wf_parameter_list_t DEFAULT NULL,
1694: p_organization_id => p_organization_id,
1695: x_return_status => l_wf_rs ) ;
1696: IF l_debug_on THEN
1697: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1698: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1699: END IF;
1700:
1701: OPEN c_get_picked_lines_count( g_del_detail_ids(i) );
1694: p_organization_id => p_organization_id,
1695: x_return_status => l_wf_rs ) ;
1696: IF l_debug_on THEN
1697: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1698: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1699: END IF;
1700:
1701: OPEN c_get_picked_lines_count( g_del_detail_ids(i) );
1702: FETCH c_get_picked_lines_count INTO l_count_picked_lines, l_delv_id ;
1708: p_event => 'oracle.apps.wsh.delivery.pik.pickinitiated' ,
1709: p_organization_id => p_organization_id,
1710: x_return_status => l_wf_rs ) ;
1711: IF l_debug_on THEN
1712: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1713: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1714: END IF;
1715: END IF;
1716: END IF;
1709: p_organization_id => p_organization_id,
1710: x_return_status => l_wf_rs ) ;
1711: IF l_debug_on THEN
1712: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1713: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1714: END IF;
1715: END IF;
1716: END IF;
1717: CLOSE c_get_picked_lines_count;
1722: -- Bug 5645615: Delete all the lines with return status error.
1723: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1724: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1725: IF l_debug_on THEN
1726: WSH_DEBUG_SV.log(l_module_name, 'Deleting trolin line', g_trolin_tbl(i).line_id);
1727: WSH_DEBUG_SV.log(l_module_name, 'Deleting detail line', g_del_detail_ids(i));
1728: END IF;
1729: g_trolin_tbl.delete(i);
1730: l_trolin_val_tbl.delete(i);
1723: IF g_trolin_tbl(i).return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1724: WSH_UTIL_CORE.PrintMsg('Delete Line '||g_trolin_tbl(i).line_id);
1725: IF l_debug_on THEN
1726: WSH_DEBUG_SV.log(l_module_name, 'Deleting trolin line', g_trolin_tbl(i).line_id);
1727: WSH_DEBUG_SV.log(l_module_name, 'Deleting detail line', g_del_detail_ids(i));
1728: END IF;
1729: g_trolin_tbl.delete(i);
1730: l_trolin_val_tbl.delete(i);
1731: g_del_detail_ids.delete(i);
1737: WHEN no_data_found THEN
1738: WSH_UTIL_CORE.PrintMsg('Delivery detail line not found: '|| WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1739: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1740: IF l_debug_on THEN
1741: WSH_DEBUG_SV.pop(l_module_name);
1742: END IF;
1743: RETURN;
1744: WHEN others THEN
1745: WSH_UTIL_CORE.PrintMsg('Cannot update delivery detail: ' || WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1744: WHEN others THEN
1745: WSH_UTIL_CORE.PrintMsg('Cannot update delivery detail: ' || WSH_PR_CRITERIA.release_table(i).delivery_detail_id);
1746: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1747: IF l_debug_on THEN
1748: WSH_DEBUG_SV.pop(l_module_name);
1749: END IF;
1750: RETURN;
1751: END;
1752: i := j;
1752: i := j;
1753: --}
1754: END LOOP;
1755: IF l_debug_on THEN
1756: WSH_DEBUG_SV.log(l_module_name, 'g_trolin_tbl.count', g_trolin_tbl.count);
1757: WSH_DEBUG_SV.log(l_module_name, 'g_del_detail_ids.count', g_del_detail_ids.count);
1758: END IF;
1759:
1760: -- Update of wsh_delivery_details where released_status is changed, call DBI API after the update.
1753: --}
1754: END LOOP;
1755: IF l_debug_on THEN
1756: WSH_DEBUG_SV.log(l_module_name, 'g_trolin_tbl.count', g_trolin_tbl.count);
1757: WSH_DEBUG_SV.log(l_module_name, 'g_del_detail_ids.count', g_del_detail_ids.count);
1758: END IF;
1759:
1760: -- Update of wsh_delivery_details where released_status is changed, call DBI API after the update.
1761: IF l_debug_on THEN
1758: END IF;
1759:
1760: -- Update of wsh_delivery_details where released_status is changed, call DBI API after the update.
1761: IF l_debug_on THEN
1762: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail count',l_detail_tab.count);
1763: END IF;
1764: WSH_INTEGRATION.DBI_Update_Detail_Log (
1765: p_delivery_detail_id_tab => l_detail_tab,
1766: p_dml_type => 'UPDATE',
1765: p_delivery_detail_id_tab => l_detail_tab,
1766: p_dml_type => 'UPDATE',
1767: x_return_status => l_dbi_rs );
1768: IF l_debug_on THEN
1769: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1770: END IF;
1771: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1773: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1771: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1773: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_INTEGRATION.DBI_Update_Detail_Log');
1774: IF l_debug_on THEN
1775: WSH_DEBUG_SV.pop(l_module_name);
1776: END IF;
1777: RETURN;
1778: END IF;
1779: --}
1779: --}
1780: END IF;
1781:
1782: IF l_debug_on THEN
1783: WSH_DEBUG_SV.pop(l_module_name);
1784: END IF;
1785:
1786: EXCEPTION
1787: WHEN OTHERS THEN
1789: CLOSE get_dd_pup_trip_stop;
1790: END IF;
1791: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1792: IF l_debug_on THEN
1793: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
1794: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1795: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1796: END IF;
1797:
1790: END IF;
1791: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1792: IF l_debug_on THEN
1793: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
1794: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1795: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1796: END IF;
1797:
1798: END Create_Move_Order_Lines;
1791: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1792: IF l_debug_on THEN
1793: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
1794: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1795: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1796: END IF;
1797:
1798: END Create_Move_Order_Lines;
1799:
1879:
1880: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1881: IF l_debug_on IS NULL
1882: THEN
1883: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1884: END IF;
1885:
1886: IF l_debug_on THEN
1887: WSH_DEBUG_SV.push(l_module_name);
1883: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1884: END IF;
1885:
1886: IF l_debug_on THEN
1887: WSH_DEBUG_SV.push(l_module_name);
1888: WSH_DEBUG_SV.log(l_module_name,'P_APPEND_FLAG',P_APPEND_FLAG);
1889: WSH_DEBUG_SV.log(l_module_name,'P_USE_HEADER_FLAG',P_USE_HEADER_FLAG);
1890: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAILS_TBL.COUNT',P_DEL_DETAILS_TBL.COUNT);
1891: END IF;
1884: END IF;
1885:
1886: IF l_debug_on THEN
1887: WSH_DEBUG_SV.push(l_module_name);
1888: WSH_DEBUG_SV.log(l_module_name,'P_APPEND_FLAG',P_APPEND_FLAG);
1889: WSH_DEBUG_SV.log(l_module_name,'P_USE_HEADER_FLAG',P_USE_HEADER_FLAG);
1890: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAILS_TBL.COUNT',P_DEL_DETAILS_TBL.COUNT);
1891: END IF;
1892:
1885:
1886: IF l_debug_on THEN
1887: WSH_DEBUG_SV.push(l_module_name);
1888: WSH_DEBUG_SV.log(l_module_name,'P_APPEND_FLAG',P_APPEND_FLAG);
1889: WSH_DEBUG_SV.log(l_module_name,'P_USE_HEADER_FLAG',P_USE_HEADER_FLAG);
1890: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAILS_TBL.COUNT',P_DEL_DETAILS_TBL.COUNT);
1891: END IF;
1892:
1893: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1886: IF l_debug_on THEN
1887: WSH_DEBUG_SV.push(l_module_name);
1888: WSH_DEBUG_SV.log(l_module_name,'P_APPEND_FLAG',P_APPEND_FLAG);
1889: WSH_DEBUG_SV.log(l_module_name,'P_USE_HEADER_FLAG',P_USE_HEADER_FLAG);
1890: WSH_DEBUG_SV.log(l_module_name,'P_DEL_DETAILS_TBL.COUNT',P_DEL_DETAILS_TBL.COUNT);
1891: END IF;
1892:
1893: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1894:
1904: l_cc_line_groups.delete;
1905: l_cc_group_info.delete;
1906: l_cc_failed_records.delete;
1907: IF l_debug_on THEN
1908: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1909: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1910: END IF;
1911: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main (
1912: p_api_version_number => 1.0,
1905: l_cc_group_info.delete;
1906: l_cc_failed_records.delete;
1907: IF l_debug_on THEN
1908: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1909: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1910: END IF;
1911: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main (
1912: p_api_version_number => 1.0,
1913: p_init_msg_list => FND_API.G_FALSE,
1927: x_msg_count => l_msg_count,
1928: x_msg_data => l_msg_data,
1929: x_return_status => l_return_status );
1930: IF l_debug_on THEN
1931: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1932: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
1933: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1934: ,l_cc_validate_result);
1935: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1928: x_msg_data => l_msg_data,
1929: x_return_status => l_return_status );
1930: IF l_debug_on THEN
1931: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1932: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
1933: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1934: ,l_cc_validate_result);
1935: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1936: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1929: x_return_status => l_return_status );
1930: IF l_debug_on THEN
1931: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1932: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
1933: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1934: ,l_cc_validate_result);
1935: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1936: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1937: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1931: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1932: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
1933: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1934: ,l_cc_validate_result);
1935: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1936: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1937: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1938: ,l_cc_failed_records.COUNT);
1939: WSH_DEBUG_SV.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main'
1932: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
1933: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1934: ,l_cc_validate_result);
1935: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1936: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1937: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1938: ,l_cc_failed_records.COUNT);
1939: WSH_DEBUG_SV.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main'
1940: ,l_cc_line_groups.COUNT);
1933: WSH_DEBUG_SV.log(l_module_name,'validate_result After Calling validate_constraint_main'
1934: ,l_cc_validate_result);
1935: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1936: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1937: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1938: ,l_cc_failed_records.COUNT);
1939: WSH_DEBUG_SV.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main'
1940: ,l_cc_line_groups.COUNT);
1941: WSH_DEBUG_SV.log(l_module_name,'group_info count After Calling validate_constraint_main'
1935: WSH_DEBUG_SV.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
1936: WSH_DEBUG_SV.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
1937: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1938: ,l_cc_failed_records.COUNT);
1939: WSH_DEBUG_SV.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main'
1940: ,l_cc_line_groups.COUNT);
1941: WSH_DEBUG_SV.log(l_module_name,'group_info count After Calling validate_constraint_main'
1942: ,l_cc_group_info.COUNT);
1943: END IF;
1937: WSH_DEBUG_SV.log(l_module_name,'fail_ids count After Calling validate_constraint_main'
1938: ,l_cc_failed_records.COUNT);
1939: WSH_DEBUG_SV.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main'
1940: ,l_cc_line_groups.COUNT);
1941: WSH_DEBUG_SV.log(l_module_name,'group_info count After Calling validate_constraint_main'
1942: ,l_cc_group_info.COUNT);
1943: END IF;
1944: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1945: --{
1945: --{
1946: x_return_status := l_return_status;
1947: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main');
1948: IF l_debug_on THEN
1949: WSH_DEBUG_SV.pop(l_module_name);
1950: END IF;
1951: RETURN;
1952: --}
1953: END IF;
1989: END IF;
1990: END LOOP;
1991: --{
1992: IF l_debug_on THEN
1993: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_id_tab_temp.count);
1994: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1995: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1996: END IF;
1997: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries (
1990: END LOOP;
1991: --{
1992: IF l_debug_on THEN
1993: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_id_tab_temp.count);
1994: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1995: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1996: END IF;
1997: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries (
1998: p_delivery_detail_tbl => l_id_tab_temp,
1991: --{
1992: IF l_debug_on THEN
1993: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_id_tab_temp.count);
1994: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1995: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1996: END IF;
1997: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries (
1998: p_delivery_detail_tbl => l_id_tab_temp,
1999: p_append_flag => p_append_flag,
2005: x_unappended_det_tbl => l_unappended_det_tbl,
2006: x_appended_del_tbl => l_tmp_del_tbl,
2007: x_return_status => l_return_status );
2008: IF l_debug_on THEN
2009: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2010: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
2011: END IF;
2012: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2013: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2006: x_appended_del_tbl => l_tmp_del_tbl,
2007: x_return_status => l_return_status );
2008: IF l_debug_on THEN
2009: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2010: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
2011: END IF;
2012: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2013: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2014: x_return_status := l_return_status;
2013: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2014: x_return_status := l_return_status;
2015: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2016: IF l_debug_on THEN
2017: WSH_DEBUG_SV.pop(l_module_name);
2018: END IF;
2019: RETURN;
2020: END IF;
2021: --}
2034: l_id_tab_temp.delete;
2035: l_id_tab_temp := l_unappended_det_tbl;
2036:
2037: IF l_debug_on THEN
2038: WSH_DEBUG_SV.log(l_module_name,'id_tab_temp count ',l_id_tab_temp.COUNT);
2039: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2040: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2041: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2042: END IF;
2035: l_id_tab_temp := l_unappended_det_tbl;
2036:
2037: IF l_debug_on THEN
2038: WSH_DEBUG_SV.log(l_module_name,'id_tab_temp count ',l_id_tab_temp.COUNT);
2039: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2040: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2041: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2042: END IF;
2043: --{
2036:
2037: IF l_debug_on THEN
2038: WSH_DEBUG_SV.log(l_module_name,'id_tab_temp count ',l_id_tab_temp.COUNT);
2039: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2040: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2041: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2042: END IF;
2043: --{
2044: IF l_id_tab_temp.count > 0 THEN
2037: IF l_debug_on THEN
2038: WSH_DEBUG_SV.log(l_module_name,'id_tab_temp count ',l_id_tab_temp.COUNT);
2039: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2040: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2041: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2042: END IF;
2043: --{
2044: IF l_id_tab_temp.count > 0 THEN
2045: WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries (
2049: x_del_rows => l_delivery_ids_tbl,
2050: x_grouping_rows => l_grouping_tbl,
2051: x_return_status => l_cc_return_status );
2052: IF l_debug_on THEN
2053: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2054: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_cc_return_status',l_cc_return_status);
2055: END IF;
2056:
2057: -- set the intermediate ship to, ship method to null if group rec from constraint validation
2050: x_grouping_rows => l_grouping_tbl,
2051: x_return_status => l_cc_return_status );
2052: IF l_debug_on THEN
2053: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2054: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_cc_return_status',l_cc_return_status);
2055: END IF;
2056:
2057: -- set the intermediate ship to, ship method to null if group rec from constraint validation
2058: -- has these as 'N'
2067: END LOOP;
2068: END IF;
2069:
2070: IF l_debug_on THEN
2071: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2072: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2073: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2074: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT ',l_grouping_tbl.COUNT);
2075: WSH_DEBUG_SV.log(l_module_name,'l_cc_return_status ',l_cc_return_status);
2068: END IF;
2069:
2070: IF l_debug_on THEN
2071: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2072: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2073: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2074: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT ',l_grouping_tbl.COUNT);
2075: WSH_DEBUG_SV.log(l_module_name,'l_cc_return_status ',l_cc_return_status);
2076: END IF;
2069:
2070: IF l_debug_on THEN
2071: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2072: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2073: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2074: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT ',l_grouping_tbl.COUNT);
2075: WSH_DEBUG_SV.log(l_module_name,'l_cc_return_status ',l_cc_return_status);
2076: END IF;
2077:
2070: IF l_debug_on THEN
2071: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2072: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2073: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2074: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT ',l_grouping_tbl.COUNT);
2075: WSH_DEBUG_SV.log(l_module_name,'l_cc_return_status ',l_cc_return_status);
2076: END IF;
2077:
2078: IF l_cc_upd_dlvy_intmed_ship_to = 'N' OR l_cc_upd_dlvy_ship_method = 'N' THEN
2071: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2072: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2073: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2074: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT ',l_grouping_tbl.COUNT);
2075: WSH_DEBUG_SV.log(l_module_name,'l_cc_return_status ',l_cc_return_status);
2076: END IF;
2077:
2078: IF l_cc_upd_dlvy_intmed_ship_to = 'N' OR l_cc_upd_dlvy_ship_method = 'N' THEN
2079: IF l_delivery_ids_tbl.COUNT > 0 THEN
2144: l_delivery_ids_tbl := l_cc_del_rows;
2145: l_grouping_tbl := l_cc_grouping_rows;
2146:
2147: IF l_debug_on THEN
2148: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT after loop ',l_delivery_ids_tbl.COUNT);
2149: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT after loop',l_grouping_tbl.COUNT);
2150: END IF;
2151: IF l_cc_return_status IS NOT NULL THEN
2152: l_return_status := l_cc_return_status;
2145: l_grouping_tbl := l_cc_grouping_rows;
2146:
2147: IF l_debug_on THEN
2148: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT after loop ',l_delivery_ids_tbl.COUNT);
2149: WSH_DEBUG_SV.log(l_module_name,'l_grouping_tbl.COUNT after loop',l_grouping_tbl.COUNT);
2150: END IF;
2151: IF l_cc_return_status IS NOT NULL THEN
2152: l_return_status := l_cc_return_status;
2153: END IF;
2156: ELSE -- validate_status is succese implies no failed lines so call autocreate_del directly
2157: --{
2158: -- deliveryMerge
2159: IF l_debug_on THEN
2160: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2161: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2162: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2163: END IF;
2164: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries(
2157: --{
2158: -- deliveryMerge
2159: IF l_debug_on THEN
2160: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2161: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2162: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2163: END IF;
2164: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries(
2165: p_delivery_detail_tbl => l_del_details_tbl,
2158: -- deliveryMerge
2159: IF l_debug_on THEN
2160: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2161: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2162: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2163: END IF;
2164: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries(
2165: p_delivery_detail_tbl => l_del_details_tbl,
2166: p_append_flag => p_append_flag,
2172: x_unappended_det_tbl => l_unappended_det_tbl,
2173: x_appended_del_tbl => l_appended_del_tbl,
2174: x_return_status => l_return_status);
2175: IF l_debug_on THEN
2176: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2177: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is',l_return_status );
2178: END IF;
2179: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2180: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2173: x_appended_del_tbl => l_appended_del_tbl,
2174: x_return_status => l_return_status);
2175: IF l_debug_on THEN
2176: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2177: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is',l_return_status );
2178: END IF;
2179: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2180: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2181: x_return_status := l_return_status;
2180: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2181: x_return_status := l_return_status;
2182: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2183: IF l_debug_on THEN
2184: WSH_DEBUG_SV.pop(l_module_name);
2185: END IF;
2186: RETURN;
2187: END IF;
2188:
2189: l_del_details_tbl.delete;
2190: l_del_details_tbl := l_unappended_det_tbl;
2191:
2192: IF l_debug_on THEN
2193: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2194: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2195: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2196: END IF;
2197:
2190: l_del_details_tbl := l_unappended_det_tbl;
2191:
2192: IF l_debug_on THEN
2193: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2194: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2195: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2196: END IF;
2197:
2198: IF l_del_details_tbl.count > 0 THEN
2191:
2192: IF l_debug_on THEN
2193: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2194: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2195: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2196: END IF;
2197:
2198: IF l_del_details_tbl.count > 0 THEN
2199: --{
2206: x_return_status => l_return_status
2207: );
2208:
2209: IF l_debug_on THEN
2210: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2211: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_return_status',l_return_status);
2212: END IF;
2213:
2214: -- set the intermediate ship to, ship method to null if group rec from constraint
2207: );
2208:
2209: IF l_debug_on THEN
2210: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2211: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_return_status',l_return_status);
2212: END IF;
2213:
2214: -- set the intermediate ship to, ship method to null if group rec from constraint
2215: -- validation has these as 'N'
2220: l_cc_upd_dlvy_intmed_ship_to := l_cc_group_info(1).upd_dlvy_intmed_ship_to;
2221: l_cc_upd_dlvy_ship_method := l_cc_group_info(1).upd_dlvy_ship_method;
2222:
2223: IF l_debug_on THEN
2224: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2225: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2226: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2227: END IF;
2228:
2221: l_cc_upd_dlvy_ship_method := l_cc_group_info(1).upd_dlvy_ship_method;
2222:
2223: IF l_debug_on THEN
2224: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2225: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2226: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2227: END IF;
2228:
2229: IF l_cc_upd_dlvy_intmed_ship_to = 'N' OR l_cc_upd_dlvy_ship_method = 'N' THEN
2222:
2223: IF l_debug_on THEN
2224: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_intmed_ship_to ',l_cc_upd_dlvy_intmed_ship_to);
2225: WSH_DEBUG_SV.log(l_module_name,'l_cc_upd_dlvy_ship_method ',l_cc_upd_dlvy_ship_method);
2226: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids_tbl.COUNT ',l_delivery_ids_tbl.COUNT);
2227: END IF;
2228:
2229: IF l_cc_upd_dlvy_intmed_ship_to = 'N' OR l_cc_upd_dlvy_ship_method = 'N' THEN
2230: IF l_delivery_ids_tbl.COUNT > 0 THEN
2266: ELSE -- fte not installed
2267: --{
2268: -- deliveryMerge
2269: IF l_debug_on THEN
2270: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2271: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2272: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2273: END IF;
2274:
2267: --{
2268: -- deliveryMerge
2269: IF l_debug_on THEN
2270: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2271: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2272: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2273: END IF;
2274:
2275: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries(
2268: -- deliveryMerge
2269: IF l_debug_on THEN
2270: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2271: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2272: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2273: END IF;
2274:
2275: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries(
2276: p_delivery_detail_tbl => l_del_details_tbl,
2284: x_appended_del_tbl => l_appended_del_tbl,
2285: x_return_status => l_return_status);
2286:
2287: IF l_debug_on THEN
2288: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2289: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
2290: END IF;
2291:
2292: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
2285: x_return_status => l_return_status);
2286:
2287: IF l_debug_on THEN
2288: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2289: WSH_DEBUG_SV.log(l_module_name,'Return status from Append_to_Deliveries is: ',l_return_status );
2290: END IF;
2291:
2292: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
2293: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2294: --{
2295: x_return_status := l_return_status;
2296: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries');
2297: IF l_debug_on THEN
2298: WSH_DEBUG_SV.pop(l_module_name);
2299: END IF;
2300: RETURN;
2301: --}
2302: END IF;
2304: l_del_details_tbl.delete;
2305: l_del_details_tbl := l_unappended_det_tbl;
2306:
2307: IF l_debug_on THEN
2308: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2309: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2310: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2311: END IF;
2312:
2305: l_del_details_tbl := l_unappended_det_tbl;
2306:
2307: IF l_debug_on THEN
2308: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2309: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2310: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2311: END IF;
2312:
2313: IF l_del_details_tbl.count > 0 THEN
2306:
2307: IF l_debug_on THEN
2308: WSH_DEBUG_SV.log(l_module_name,'det. tab count: '|| l_del_details_tbl.count);
2309: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
2310: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2311: END IF;
2312:
2313: IF l_del_details_tbl.count > 0 THEN
2314: --{
2320: x_grouping_rows => l_grouping_tbl,
2321: x_return_status => l_return_status
2322: );
2323: IF l_debug_on THEN
2324: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_return_status',l_return_status);
2325: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2326: END IF;
2327:
2328: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2321: x_return_status => l_return_status
2322: );
2323: IF l_debug_on THEN
2324: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries l_return_status',l_return_status);
2325: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2326: END IF;
2327:
2328: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2329: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2329: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2330: x_return_status := l_return_status;
2331: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_DELIVERY_AUTOCREATE.Autocreate_Deliveries');
2332: IF l_debug_on THEN
2333: WSH_DEBUG_SV.pop(l_module_name);
2334: END IF;
2335: RETURN;
2336: END IF;
2337: --}
2344: WSH_UTIL_CORE.printMsg('No eligible lines to autocreate deliveries');
2345: END IF;
2346:
2347: IF l_debug_on THEN
2348: WSH_DEBUG_SV.pop(l_module_name);
2349: END IF;
2350:
2351: EXCEPTION
2352: WHEN OTHERS THEN
2351: EXCEPTION
2352: WHEN OTHERS THEN
2353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2354: IF l_debug_on THEN
2355: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
2356: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2357: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2358: END IF;
2359:
2352: WHEN OTHERS THEN
2353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2354: IF l_debug_on THEN
2355: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
2356: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2357: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2358: END IF;
2359:
2360: END Autocreate_Deliveries;
2353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2354: IF l_debug_on THEN
2355: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
2356: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2357: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2358: END IF;
2359:
2360: END Autocreate_Deliveries;
2361:
2484:
2485: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2486: IF l_debug_on IS NULL
2487: THEN
2488: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2489: END IF;
2490:
2491: l_completion_status := 'NORMAL';
2492:
2490:
2491: l_completion_status := 'NORMAL';
2492:
2493: IF l_debug_on THEN
2494: WSH_DEBUG_SV.push(l_module_name);
2495: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2496: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
2497: WSH_DEBUG_SV.log(l_module_name,'P_MODE',P_MODE);
2498: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
2491: l_completion_status := 'NORMAL';
2492:
2493: IF l_debug_on THEN
2494: WSH_DEBUG_SV.push(l_module_name);
2495: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2496: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
2497: WSH_DEBUG_SV.log(l_module_name,'P_MODE',P_MODE);
2498: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
2499: END IF;
2492:
2493: IF l_debug_on THEN
2494: WSH_DEBUG_SV.push(l_module_name);
2495: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2496: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
2497: WSH_DEBUG_SV.log(l_module_name,'P_MODE',P_MODE);
2498: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
2499: END IF;
2500:
2493: IF l_debug_on THEN
2494: WSH_DEBUG_SV.push(l_module_name);
2495: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2496: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
2497: WSH_DEBUG_SV.log(l_module_name,'P_MODE',P_MODE);
2498: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
2499: END IF;
2500:
2501: -- If worker_id is present, set Global variable as Parallel Pick Release and Parallel Pick Slips
2494: WSH_DEBUG_SV.push(l_module_name);
2495: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2496: WSH_DEBUG_SV.log(l_module_name,'P_WORKER_ID',P_WORKER_ID);
2497: WSH_DEBUG_SV.log(l_module_name,'P_MODE',P_MODE);
2498: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
2499: END IF;
2500:
2501: -- If worker_id is present, set Global variable as Parallel Pick Release and Parallel Pick Slips
2502: IF p_worker_id IS NOT NULL THEN
2501: -- If worker_id is present, set Global variable as Parallel Pick Release and Parallel Pick Slips
2502: IF p_worker_id IS NOT NULL THEN
2503: WSH_PICK_LIST.G_PICK_REL_PARALLEL := TRUE;
2504: IF l_debug_on THEN
2505: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
2506: END IF;
2507: END IF;
2508:
2509: -- 10. For p_mode = 'PICK' / 'PICK-SS'
2513: IF p_worker_id IS NOT NULL THEN --{
2514: -- 10.10 Calling Init_Pick_Release API to initialize global variables in WSH_PR_CRITERIA package
2515: -- and also set Batch_Id and Seeded Pick Release Document Set
2516: IF l_debug_on THEN
2517: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INIT_PICK_RELEASE',WSH_DEBUG_SV.C_PROC_LEVEL);
2518: END IF;
2519: Init_Pick_Release( p_batch_id => p_batch_id,
2520: p_worker_id => p_worker_id,
2521: x_return_status => l_return_status);
2519: Init_Pick_Release( p_batch_id => p_batch_id,
2520: p_worker_id => p_worker_id,
2521: x_return_status => l_return_status);
2522: IF l_debug_on THEN
2523: WSH_DEBUG_SV.log(l_module_name,'INIT_PICK_RELEASE l_return_status',l_return_status);
2524: END IF;
2525:
2526: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2527: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2565: WSH_PR_CRITERIA.MAX_LINES := 1000;
2566: END IF;
2567:
2568: IF l_debug_on THEN
2569: WSH_DEBUG_SV.logmsg(l_module_name, 'MAX_LINES IS ' || TO_CHAR(WSH_PR_CRITERIA.MAX_LINES));
2570: END IF;
2571:
2572: -- 10.20 Looping thru Organization-Move Order Header Combination
2573: FOR batch_rec IN get_org_mo_hdr(p_batch_id) LOOP
2572: -- 10.20 Looping thru Organization-Move Order Header Combination
2573: FOR batch_rec IN get_org_mo_hdr(p_batch_id) LOOP
2574: --{
2575: IF l_debug_on THEN
2576: WSH_DEBUG_SV.logmsg(l_module_name,'**** Processing Organization '||BATCH_REC.ORGANIZATION_ID||
2577: ' Move Order Header Id '||BATCH_REC.MO_HEADER_ID||' ****');
2578: END IF;
2579:
2580: -- 10.20.10 Clear the Global PL/SQL Tables for printers.
2592:
2593: -- 10.20.20 Getting Organization Parameters
2594: --{
2595: IF l_debug_on THEN
2596: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit GET_ORG_PARAMS',WSH_DEBUG_SV.C_PROC_LEVEL);
2597: END IF;
2598: Get_Org_Params( p_organization_id => batch_rec.organization_id,
2599: x_org_info => l_org_info,
2600: x_return_status => l_return_status);
2606:
2607: -- 10.20.30 Initialize the cursor to fetch Worker Records
2608: --{
2609: IF l_debug_on THEN
2610: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.GET_WORKER_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2611: END IF;
2612: WSH_PR_CRITERIA.Get_Worker_Records (
2613: p_mode => p_mode,
2614: p_batch_id => p_batch_id,
2625: --{
2626: -- 10.20.40.10 Select a number of order lines at a time
2627: --{
2628: IF l_debug_on THEN
2629: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Get_Lines',WSH_DEBUG_SV.C_PROC_LEVEL);
2630: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2631: END IF;
2632: WSH_PR_CRITERIA.Get_Lines(
2633: p_enforce_ship_set_and_smc => l_org_info.enforce_ship_set_and_smc,
2626: -- 10.20.40.10 Select a number of order lines at a time
2627: --{
2628: IF l_debug_on THEN
2629: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Get_Lines',WSH_DEBUG_SV.C_PROC_LEVEL);
2630: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2631: END IF;
2632: WSH_PR_CRITERIA.Get_Lines(
2633: p_enforce_ship_set_and_smc => l_org_info.enforce_ship_set_and_smc,
2634: p_wms_flag => l_org_info.wms_org,
2636: p_batch_id => p_batch_id,
2637: x_done_flag => l_done_flag,
2638: x_api_status => l_return_status );
2639: IF l_debug_on THEN
2640: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2641: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2642: END IF;
2643: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2644: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2637: x_done_flag => l_done_flag,
2638: x_api_status => l_return_status );
2639: IF l_debug_on THEN
2640: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2641: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.Get_Lines l_return_status',l_return_status);
2642: END IF;
2643: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2644: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2645: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PR_CRITERIA.Get_Lines');
2647: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2648: G_ONLINE_PICK_RELEASE_SKIP := 'Y';
2649: l_completion_status := 'WARNING';
2650: IF l_debug_on THEN
2651: WSH_DEBUG_SV.log(l_Module_name, 'WSH_PR_CRITERIA.Get_Lines returned with warning');
2652: END IF;
2653: END IF;
2654: --}
2655:
2661: -- Savepoint to rollback for any error during pick release API
2662: SAVEPOINT BEF_MOVE_ORDER_LINE_CREATE;
2663:
2664: IF l_debug_on THEN
2665: WSH_DEBUG_SV.log(l_module_name, 'l_curr_count',L_CURR_COUNT);
2666: END IF;
2667:
2668: -- 10.20.40.20 Calling Move Order Line API
2669: --{
2667:
2668: -- 10.20.40.20 Calling Move Order Line API
2669: --{
2670: IF l_debug_on THEN
2671: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Create_Move_Order_Lines'
2672: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2673: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2674: END IF;
2675: Create_Move_Order_Lines (
2668: -- 10.20.40.20 Calling Move Order Line API
2669: --{
2670: IF l_debug_on THEN
2671: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Create_Move_Order_Lines'
2672: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2673: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2674: END IF;
2675: Create_Move_Order_Lines (
2676: p_batch_id => p_batch_id,
2669: --{
2670: IF l_debug_on THEN
2671: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Create_Move_Order_Lines'
2672: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2673: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2674: END IF;
2675: Create_Move_Order_Lines (
2676: p_batch_id => p_batch_id,
2677: p_worker_id => p_worker_id,
2687: x_curr_count => l_curr_count,
2688: x_return_status => l_return_status
2689: );
2690: IF l_debug_on THEN
2691: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2692: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Create_Move_Order_Lines l_return_status' ,l_return_status);
2693: END IF;
2694: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2695: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2688: x_return_status => l_return_status
2689: );
2690: IF l_debug_on THEN
2691: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2692: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Create_Move_Order_Lines l_return_status' ,l_return_status);
2693: END IF;
2694: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2695: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2696: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_PICK_LIST.Create_Move_Order_Lines');
2699: IF l_completion_status = 'NORMAL' THEN
2700: l_completion_status := 'WARNING';
2701: END IF;
2702: IF l_debug_on THEN
2703: WSH_DEBUG_SV.log(l_Module_name, 'Create_Move_Order_Lines returned with warning');
2704: END IF;
2705: END IF;
2706: --}
2707:
2721: AND (WSH_PR_CRITERIA.g_delivery_id = 0) AND (WSH_PR_CRITERIA.release_table.count > 0)
2722: AND l_continue_create_del = 'Y' )THEN
2723: --{
2724: IF l_debug_on THEN
2725: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2726: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
2727: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2728: END IF;
2729: -- Clear delivery detail IDs from table
2722: AND l_continue_create_del = 'Y' )THEN
2723: --{
2724: IF l_debug_on THEN
2725: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2726: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
2727: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2728: END IF;
2729: -- Clear delivery detail IDs from table
2730: l_del_details_tbl.delete;
2723: --{
2724: IF l_debug_on THEN
2725: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2726: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
2727: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
2728: END IF;
2729: -- Clear delivery detail IDs from table
2730: l_del_details_tbl.delete;
2731: -- Populate table with delivery detail IDs
2772: j := g_del_detail_ids.NEXT(j);
2773: END IF;
2774: END IF;
2775: IF l_debug_on THEN
2776: WSH_DEBUG_SV.logmsg(l_module_name,i||' Exp Org DD= '
2777: ||g_exp_pick_release_stat(i).delivery_detail_id|| ' j= '||j
2778: ||' Org DD '||g_del_detail_ids(j)||' Trolin Del '||g_trolin_delivery_ids(j));
2779: END IF;
2780: IF (g_exp_pick_release_stat(i).delivery_detail_id = g_del_detail_ids(j)
2794: END LOOP;
2795: --}
2796: END IF;
2797: IF l_debug_on THEN
2798: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
2799: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2800: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2801: END IF;
2802: Autocreate_Deliveries (
2795: --}
2796: END IF;
2797: IF l_debug_on THEN
2798: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
2799: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2800: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2801: END IF;
2802: Autocreate_Deliveries (
2803: p_append_flag => l_org_info.append_flag,
2796: END IF;
2797: IF l_debug_on THEN
2798: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
2799: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2800: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2801: END IF;
2802: Autocreate_Deliveries (
2803: p_append_flag => l_org_info.append_flag,
2804: p_use_header_flag => l_org_info.use_header_flag,
2805: p_del_details_tbl => l_del_details_tbl,
2806: x_return_status => l_return_status
2807: );
2808: IF l_debug_on THEN
2809: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2810: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
2811: ,l_return_status);
2812: END IF;
2813: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2806: x_return_status => l_return_status
2807: );
2808: IF l_debug_on THEN
2809: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2810: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
2811: ,l_return_status);
2812: END IF;
2813: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2814: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2832: -- Call FTE Load Tender and Issue Commit for Concurrent Express Pick Release
2833: IF l_org_info.express_pick_flag = 'Y' AND ( G_CONC_REQ = FND_API.G_TRUE ) THEN --{
2834: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2835: IF l_debug_on THEN
2836: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2837: END IF;
2838: WSH_UTIL_CORE.Process_stops_for_load_tender (
2839: p_reset_flags => FALSE,
2840: x_return_status => l_return_status );
2838: WSH_UTIL_CORE.Process_stops_for_load_tender (
2839: p_reset_flags => FALSE,
2840: x_return_status => l_return_status );
2841: IF l_debug_on THEN
2842: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2843: END IF;
2844: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
2845: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2846: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
2851: END IF;
2852: END IF;
2853: END IF;
2854: IF l_debug_on THEN
2855: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
2856: END IF;
2857: COMMIT;
2858: END IF; --}
2859:
2885: l_skip_cartonization := FALSE;
2886: END IF;
2887:
2888: IF l_debug_on THEN
2889: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2890: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODETAIL' );
2891: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2892: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2893: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2886: END IF;
2887:
2888: IF l_debug_on THEN
2889: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2890: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODETAIL' );
2891: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2892: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2893: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2894: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2887:
2888: IF l_debug_on THEN
2889: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2890: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODETAIL' );
2891: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2892: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2893: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2894: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2895: IF l_plan_tasks THEN
2888: IF l_debug_on THEN
2889: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2890: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODETAIL' );
2891: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2892: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2893: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2894: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2895: IF l_plan_tasks THEN
2896: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is TRUE');
2890: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODETAIL' );
2891: WSH_DEBUG_SV.logmsg(l_module_name, '==========' );
2892: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2893: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2894: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2895: IF l_plan_tasks THEN
2896: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is TRUE');
2897: ELSE
2898: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is FALSE');
2892: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
2893: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
2894: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2895: IF l_plan_tasks THEN
2896: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is TRUE');
2897: ELSE
2898: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is FALSE');
2899: END IF;
2900: IF l_skip_cartonization THEN
2894: WSH_DEBUG_SV.log(l_module_name, 'l_auto_pick_confirm_num',l_auto_pick_confirm_num);
2895: IF l_plan_tasks THEN
2896: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is TRUE');
2897: ELSE
2898: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is FALSE');
2899: END IF;
2900: IF l_skip_cartonization THEN
2901: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is TRUE');
2902: ELSE
2897: ELSE
2898: WSH_DEBUG_SV.logmsg(l_module_name, 'l_plan_tasks is FALSE');
2899: END IF;
2900: IF l_skip_cartonization THEN
2901: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is TRUE');
2902: ELSE
2903: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is FALSE');
2904: END IF;
2905: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2899: END IF;
2900: IF l_skip_cartonization THEN
2901: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is TRUE');
2902: ELSE
2903: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is FALSE');
2904: END IF;
2905: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2906: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PUB.PICK_RELEASE',
2907: WSH_DEBUG_SV.C_PROC_LEVEL);
2901: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is TRUE');
2902: ELSE
2903: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is FALSE');
2904: END IF;
2905: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2906: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PUB.PICK_RELEASE',
2907: WSH_DEBUG_SV.C_PROC_LEVEL);
2908: END IF;
2909: -- X-dock
2902: ELSE
2903: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is FALSE');
2904: END IF;
2905: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2906: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PUB.PICK_RELEASE',
2907: WSH_DEBUG_SV.C_PROC_LEVEL);
2908: END IF;
2909: -- X-dock
2910: -- add parameters for X-dock
2903: WSH_DEBUG_SV.logmsg(l_module_name, 'l_skip_cartonization is FALSE');
2904: END IF;
2905: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2906: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_RELEASE_PUB.PICK_RELEASE',
2907: WSH_DEBUG_SV.C_PROC_LEVEL);
2908: END IF;
2909: -- X-dock
2910: -- add parameters for X-dock
2911: -- P_DEL_DETAIL_ID (g_xdock_detail_ids) :contains the list of delivery
2935: x_msg_count => l_msg_count,
2936: x_msg_data => l_msg_data);
2937:
2938: IF l_debug_on THEN
2939: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2940: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Release_Pub.Pick_Release l_return_status',
2941: l_return_status);
2942: END IF;
2943: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2936: x_msg_data => l_msg_data);
2937:
2938: IF l_debug_on THEN
2939: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
2940: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Release_Pub.Pick_Release l_return_status',
2941: l_return_status);
2942: END IF;
2943: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
2944: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2966: --{
2967: FOR i in 1 .. WSH_PR_CRITERIA.release_table.count
2968: LOOP
2969: IF l_debug_on THEN
2970: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2971: END IF;
2972: l_item_name := WSH_UTIL_CORE.Get_Item_Name(
2973: WSH_PR_CRITERIA.release_table(i).inventory_item_id,
2974: WSH_PR_CRITERIA.release_table(i).organization_id);
2981: l_exception_msg_count := NULL;
2982: l_exception_msg_data := NULL;
2983: l_dummy_exception_id := NULL;
2984: IF l_debug_on THEN
2985: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION'
2986: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2987: END IF;
2988: wsh_xc_util.log_exception(
2989: p_api_version => 1.0,
2982: l_exception_msg_data := NULL;
2983: l_dummy_exception_id := NULL;
2984: IF l_debug_on THEN
2985: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION'
2986: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2987: END IF;
2988: wsh_xc_util.log_exception(
2989: p_api_version => 1.0,
2990: p_logging_entity => 'SHIPPER',
3000: x_msg_count => l_exception_msg_count,
3001: x_msg_data => l_exception_msg_data,
3002: x_exception_id => l_dummy_exception_id);
3003: IF l_debug_on THEN
3004: WSH_DEBUG_SV.logmsg(l_module_name, 'LOGGED EXCEPTION '||L_DUMMY_EXCEPTION_ID );
3005: END IF;
3006: END LOOP;
3007: --}
3008: END IF;
3027: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3028: --{
3029: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3030: IF l_debug_on THEN
3031: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3032: END IF;
3033: WSH_UTIL_CORE.Process_stops_for_load_tender(
3034: p_reset_flags => FALSE,
3035: x_return_status => l_tmp_rel_status );
3033: WSH_UTIL_CORE.Process_stops_for_load_tender(
3034: p_reset_flags => FALSE,
3035: x_return_status => l_tmp_rel_status );
3036: IF l_debug_on THEN
3037: WSH_DEBUG_SV.log(l_module_name,'l_tmp_rel_status',l_tmp_rel_status);
3038: END IF;
3039: IF (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3040: OR (l_tmp_rel_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3041: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3053: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3054: --{
3055: FOR i in 1..l_pick_release_stat.count LOOP
3056: IF l_debug_on THEN
3057: WSH_DEBUG_SV.logmsg(l_module_name,
3058: 'MOVE ORDER LINE ID: '
3059: || L_PICK_RELEASE_STAT(I).MO_LINE_ID
3060: || ' RELEASE STATUS: '
3061: || L_PICK_RELEASE_STAT(I).RETURN_STATUS
3066: l_counter := g_trolin_tbl.FIRST ;
3067: WHILE l_counter is NOT NULL LOOP
3068: IF (g_trolin_tbl(l_counter).line_id = l_pick_release_stat(i).mo_line_id) THEN
3069: IF l_debug_on THEN
3070: WSH_DEBUG_SV.logmsg(l_module_name, 'REMOVING MOVE ORDER LINE '
3071: ||L_PICK_RELEASE_STAT(I).MO_LINE_ID );
3072: END IF;
3073: g_trolin_tbl.DELETE(l_counter);
3074: END IF;
3080: --}
3081: END IF;
3082: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3083: IF l_debug_on THEN
3084: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
3085: END IF;
3086: COMMIT;
3087: END IF;
3088:
3093: --{
3094: IF (WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.COUNT > 0) THEN
3095: --{
3096: IF l_debug_on THEN
3097: WSH_DEBUG_SV.logmsg(l_module_name, 'PRINTING PICK SLIPS IN IMMEDIATE MODE...' );
3098: END IF;
3099: FOR i in WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.FIRST ..
3100: WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.LAST
3101: LOOP
3099: FOR i in WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.FIRST ..
3100: WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.LAST
3101: LOOP
3102: IF l_debug_on THEN
3103: WSH_DEBUG_SV.logmsg(l_module_name, ' === PRINTING PICK SLIP '
3104: ||WSH_PR_PICK_SLIP_NUMBER.G_PRINT_PS_TABLE ( I ) ||' ===' );
3105: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP',WSH_DEBUG_SV.C_PROC_LEVEL);
3106: END IF;
3107: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip(
3101: LOOP
3102: IF l_debug_on THEN
3103: WSH_DEBUG_SV.logmsg(l_module_name, ' === PRINTING PICK SLIP '
3104: ||WSH_PR_PICK_SLIP_NUMBER.G_PRINT_PS_TABLE ( I ) ||' ===' );
3105: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.PRINT_PICK_SLIP',WSH_DEBUG_SV.C_PROC_LEVEL);
3106: END IF;
3107: WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip(
3108: p_pick_slip_number => WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table(i),
3109: p_report_set_id => WSH_PICK_LIST.G_SEED_DOC_SET,
3111: p_ps_mode => 'I',
3112: x_api_status => l_return_status,
3113: x_error_message => l_message );
3114: IF l_debug_on THEN
3115: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip l_return_status'
3116: ,l_return_status);
3117: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip l_message'
3118: ,l_message);
3119: END IF;
3113: x_error_message => l_message );
3114: IF l_debug_on THEN
3115: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip l_return_status'
3116: ,l_return_status);
3117: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_PICK_SLIP_NUMBER.Print_Pick_Slip l_message'
3118: ,l_message);
3119: END IF;
3120: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3121: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3126: END LOOP;
3127: --}
3128: ELSE
3129: IF l_debug_on THEN
3130: WSH_DEBUG_SV.logmsg(l_module_name, 'NO PICK SLIPS TO PRINT' );
3131: END IF;
3132: END IF;
3133: WSH_PR_PICK_SLIP_NUMBER.g_print_ps_table.DELETE;
3134: --}
3140: -- Need to add this commit for scenarios where Auto Allocate is No and, if number of lines is
3141: -- greater than Pick Release Batch size
3142: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3143: IF l_debug_on THEN
3144: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
3145: END IF;
3146: COMMIT;
3147: END IF;
3148: END IF;
3155: --{
3156: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
3157: --{
3158: IF l_debug_on THEN
3159: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3160: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTO PICK CONFIRM' );
3161: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3162: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3163: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3156: WSH_PICK_LIST.G_AUTO_PICK_CONFIRM := 'Y';
3157: --{
3158: IF l_debug_on THEN
3159: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3160: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTO PICK CONFIRM' );
3161: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3162: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3163: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3164: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3157: --{
3158: IF l_debug_on THEN
3159: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3160: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTO PICK CONFIRM' );
3161: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3162: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3163: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3164: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_WAVE_PICK_CONFIRM_PUB.PICK_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
3158: IF l_debug_on THEN
3159: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3160: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTO PICK CONFIRM' );
3161: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3162: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3163: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3164: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_WAVE_PICK_CONFIRM_PUB.PICK_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
3166: END IF;
3160: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTO PICK CONFIRM' );
3161: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3162: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3163: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3164: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_WAVE_PICK_CONFIRM_PUB.PICK_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
3166: END IF;
3167: INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm
3168: (p_api_version_number => l_api_version_number,
3161: WSH_DEBUG_SV.logmsg(l_module_name, '=================' );
3162: WSH_DEBUG_SV.logmsg(l_module_name, 'G_TROLIN_TBL.COUNT '||G_TROLIN_TBL.COUNT
3163: ||' G_ALLOCATION_METHOD :'||G_ALLOCATION_METHOD);
3164: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_PICK_WAVE_PICK_CONFIRM_PUB.PICK_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
3166: END IF;
3167: INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm
3168: (p_api_version_number => l_api_version_number,
3169: p_init_msg_list => FND_API.G_TRUE,
3178: x_msg_count => l_msg_count,
3179: x_msg_data => l_msg_data
3180: );
3181: IF l_debug_on THEN
3182: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3183: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm l_return_status',l_return_status);
3184: END IF;
3185: --}
3186: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3179: x_msg_data => l_msg_data
3180: );
3181: IF l_debug_on THEN
3182: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3183: WSH_DEBUG_SV.log(l_module_name,'INV_Pick_Wave_Pick_Confirm_PUB.Pick_Confirm l_return_status',l_return_status);
3184: END IF;
3185: --}
3186: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3187: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3211: END IF;
3212: --}
3213: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3214: IF l_debug_on THEN
3215: WSH_DEBUG_SV.logmsg(l_module_name, 'PICK CONFIRM SUCESSFUL' );
3216: END IF;
3217: END IF;
3218:
3219: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3219: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3220: --{
3221: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3222: IF l_debug_on THEN
3223: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3224: END IF;
3225: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
3226: x_return_status => l_return_status );
3227: IF l_debug_on THEN
3224: END IF;
3225: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
3226: x_return_status => l_return_status );
3227: IF l_debug_on THEN
3228: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3229: END IF;
3230: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
3231: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3232: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
3237: END IF;
3238: END IF;
3239: END IF;
3240: IF l_debug_on THEN
3241: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
3242: END IF;
3243: COMMIT;
3244: END IF; --}
3245: --}
3274: AND organization_id = batch_rec.organization_id
3275: AND type = 'DOC';
3276: --
3277: IF l_debug_on THEN
3278: WSH_DEBUG_SV.log(l_module_name, 'No of rows updated for type DOC with detailed_count ' || l_total_detailed_count, sql%rowcount);
3279: END IF;
3280: --
3281: END IF;
3282: --}
3314: --}
3315:
3316: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
3317: IF l_debug_on THEN
3318: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
3319: END IF;
3320: COMMIT;
3321: END IF;
3322: -- } Next Org MO Worker
3346: worker_row_locked exception;
3347: PRAGMA EXCEPTION_INIT(worker_row_locked, -54);
3348: BEGIN
3349: IF l_debug_on THEN
3350: WSH_DEBUG_SV.logmsg(l_module_name,'Getting lock for Del '||crec.delivery_id);
3351: END IF;
3352: -- Bug # 9369504 : Added rowid in the where clause.
3353: SELECT 'x'
3354: INTO l_dummy
3373: --{
3374: IF crec.ap_level > 0 THEN
3375: --{
3376: IF l_debug_on THEN
3377: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_BATCH_PROCESS.Auto_Pack_A_Delivery'
3378: ,WSH_DEBUG_SV.C_PROC_LEVEL);
3379: END IF;
3380: l_del_pack_count := l_del_pack_count + 1;
3381: WSH_BATCH_PROCESS.Auto_Pack_A_Delivery (
3374: IF crec.ap_level > 0 THEN
3375: --{
3376: IF l_debug_on THEN
3377: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_BATCH_PROCESS.Auto_Pack_A_Delivery'
3378: ,WSH_DEBUG_SV.C_PROC_LEVEL);
3379: END IF;
3380: l_del_pack_count := l_del_pack_count + 1;
3381: WSH_BATCH_PROCESS.Auto_Pack_A_Delivery (
3382: p_delivery_id => crec.delivery_id,
3407: --}
3408: END IF;
3409:
3410: IF l_debug_on THEN
3411: WSH_DEBUG_SV.log(l_module_name,'sc_rule_id',crec.sc_rule_id);
3412: END IF;
3413:
3414: IF crec.sc_rule_id IS NOT NULL THEN
3415: --{
3434: END IF;
3435:
3436: --{
3437: IF l_debug_on THEN
3438: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling program unit WSH_BATCH_PROCESS.Ship_Confirm_A_Delivery');
3439: END IF;
3440: WSH_BATCH_PROCESS.Ship_Confirm_A_Delivery (
3441: p_delivery_id => crec.delivery_id,
3442: p_sc_batch_id => crec.pa_sc_batch_id,
3479: --}
3480: END LOOP;
3481:
3482: IF l_debug_on THEN
3483: WSH_DEBUG_SV.log(l_module_name,'l_completion_status ', l_completion_status);
3484: WSH_DEBUG_SV.logmsg(l_module_name,'l_del_pack_count '||l_del_pack_count
3485: ||' l_packed_results_success '||l_packed_results_success
3486: ||' l_del_sc_count '||l_del_sc_count
3487: ||' l_confirmed_results_success '||l_confirmed_results_success);
3480: END LOOP;
3481:
3482: IF l_debug_on THEN
3483: WSH_DEBUG_SV.log(l_module_name,'l_completion_status ', l_completion_status);
3484: WSH_DEBUG_SV.logmsg(l_module_name,'l_del_pack_count '||l_del_pack_count
3485: ||' l_packed_results_success '||l_packed_results_success
3486: ||' l_del_sc_count '||l_del_sc_count
3487: ||' l_confirmed_results_success '||l_confirmed_results_success);
3488: END IF;
3522: END IF;
3523: --}
3524:
3525: IF l_debug_on THEN
3526: WSH_DEBUG_SV.logmsg(l_module_name,'ERRBUF :'||errbuf ||' RETCODE :'||retcode||' l_completion_status :'||l_completion_status);
3527: WSH_DEBUG_SV.pop(l_module_name);
3528: END IF;
3529:
3530: EXCEPTION
3523: --}
3524:
3525: IF l_debug_on THEN
3526: WSH_DEBUG_SV.logmsg(l_module_name,'ERRBUF :'||errbuf ||' RETCODE :'||retcode||' l_completion_status :'||l_completion_status);
3527: WSH_DEBUG_SV.pop(l_module_name);
3528: END IF;
3529:
3530: EXCEPTION
3531: WHEN e_return THEN
3550: retcode := '2';
3551: END IF;
3552: G_ONLINE_PICK_RELEASE_RESULT := 'F';
3553: IF l_debug_on THEN
3554: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN');
3555: END IF;
3556: WHEN OTHERS THEN
3557: --Bug 5355135
3558: IF G_CONC_REQ = FND_API.G_TRUE THEN
3574: retcode := '2';
3575: END IF;
3576: G_ONLINE_PICK_RELEASE_RESULT := 'F';
3577: IF l_debug_on THEN
3578: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
3579: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3581: END IF;
3582:
3575: END IF;
3576: G_ONLINE_PICK_RELEASE_RESULT := 'F';
3577: IF l_debug_on THEN
3578: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
3579: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3581: END IF;
3582:
3583: END Release_Batch_Sub;
3576: G_ONLINE_PICK_RELEASE_RESULT := 'F';
3577: IF l_debug_on THEN
3578: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '
3579: || SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3581: END IF;
3582:
3583: END Release_Batch_Sub;
3584:
4186:
4187: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4188: IF l_debug_on IS NULL
4189: THEN
4190: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4191: END IF;
4192:
4193: IF l_debug_on THEN
4194: WSH_DEBUG_SV.push(l_module_name);
4190: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4191: END IF;
4192:
4193: IF l_debug_on THEN
4194: WSH_DEBUG_SV.push(l_module_name);
4195: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
4196: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
4197: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
4198: END IF;
4191: END IF;
4192:
4193: IF l_debug_on THEN
4194: WSH_DEBUG_SV.push(l_module_name);
4195: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
4196: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
4197: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
4198: END IF;
4199:
4192:
4193: IF l_debug_on THEN
4194: WSH_DEBUG_SV.push(l_module_name);
4195: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
4196: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
4197: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
4198: END IF;
4199:
4200: -- Set Online Pick Release Result
4193: IF l_debug_on THEN
4194: WSH_DEBUG_SV.push(l_module_name);
4195: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
4196: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
4197: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
4198: END IF;
4199:
4200: -- Set Online Pick Release Result
4201: -- 40. Initialized pick release phase to Start.
4211: -- Bug 5222079
4212: -- Clear the pick slip number table
4213: --
4214: IF l_debug_on THEN
4215: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_PICK_SLIP_NUMBER.DELETE_PS_TBL',WSH_DEBUG_SV.C_PROC_LEVEL);
4216: END IF;
4217: --
4218: WSH_PR_PICK_SLIP_NUMBER.Delete_ps_tbl (x_api_status => l_return_status,
4219: x_error_message => l_message);
4249: -- Set flag to print cursor information
4250: l_print_cursor_flag := 'Y';
4251:
4252: IF l_debug_on THEN
4253: WSH_DEBUG_SV.log(l_module_name,'l_mode ',l_mode);
4254: END IF;
4255:
4256: IF l_mode IS NULL THEN
4257: IF l_debug_on THEN
4254: END IF;
4255:
4256: IF l_mode IS NULL THEN
4257: IF l_debug_on THEN
4258: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4259: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
4260: WSH_DEBUG_SV.log(l_module_name,'DDs for batch ',l_temp_num);
4261: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4262: END IF;
4256: IF l_mode IS NULL THEN
4257: IF l_debug_on THEN
4258: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4259: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
4260: WSH_DEBUG_SV.log(l_module_name,'DDs for batch ',l_temp_num);
4261: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4262: END IF;
4263: END IF;
4264:
4257: IF l_debug_on THEN
4258: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4259: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
4260: WSH_DEBUG_SV.log(l_module_name,'DDs for batch ',l_temp_num);
4261: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4262: END IF;
4263: END IF;
4264:
4265: -- 60. Calling Init_Pick_Release API to initialize global variables in WSH_PR_CRITERIA package
4264:
4265: -- 60. Calling Init_Pick_Release API to initialize global variables in WSH_PR_CRITERIA package
4266: -- and also set Batch_Id and Seeded Pick Release Document Set
4267: IF l_debug_on THEN
4268: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INIT_PICK_RELEASE',WSH_DEBUG_SV.C_PROC_LEVEL);
4269: END IF;
4270: Init_Pick_Release( p_batch_id => p_batch_id,
4271: p_worker_id => NULL,
4272: x_return_status => l_return_status);
4271: p_worker_id => NULL,
4272: x_return_status => l_return_status);
4273:
4274: IF l_debug_on THEN
4275: WSH_DEBUG_SV.log(l_module_name,'INIT_PICK_RELEASE l_return_status',l_return_status);
4276: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
4277: WSH_DEBUG_SV.log(l_module_name,'DDs for batch ',l_temp_num);
4278: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4279: END IF;
4273:
4274: IF l_debug_on THEN
4275: WSH_DEBUG_SV.log(l_module_name,'INIT_PICK_RELEASE l_return_status',l_return_status);
4276: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
4277: WSH_DEBUG_SV.log(l_module_name,'DDs for batch ',l_temp_num);
4278: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4279: END IF;
4280:
4281: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4274: IF l_debug_on THEN
4275: WSH_DEBUG_SV.log(l_module_name,'INIT_PICK_RELEASE l_return_status',l_return_status);
4276: select count(*) into l_temp_num from wsh_Delivery_details where batch_id = p_batch_id;
4277: WSH_DEBUG_SV.log(l_module_name,'DDs for batch ',l_temp_num);
4278: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4279: END IF;
4280:
4281: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4282: WSH_UTIL_CORE.PrintMsg('Error occurred in Init_Pick_Release');
4320: CLOSE c_batch_orgs;
4321: END IF; --}
4322:
4323: IF l_debug_on THEN
4324: WSH_DEBUG_SV.log(l_module_name, 'Number of Organizations',l_organization_tab.count);
4325: END IF;
4326: IF l_organization_tab.COUNT = 0 THEN
4327: WSH_UTIL_CORE.PrintMsg('No organization found. Cannot Pick Release.');
4328: RAISE e_return;
4332: -- Need to initialize the table , when l_organization_id is not NULL
4333: --Cursor get_orgs is not opened.
4334: l_organization_tab(1) := l_organization_id;
4335: IF l_debug_on THEN
4336: WSH_DEBUG_SV.log(l_module_name, 'Number of Organizations',l_organization_tab.count);
4337: END IF;
4338: END IF;
4339:
4340: -- 80. Sorting for Distinct records of Organizations
4339:
4340: -- 80. Sorting for Distinct records of Organizations
4341: IF l_organization_tab.count > 1 AND l_mode IS NULL THEN --{
4342: IF l_debug_on THEN
4343: WSH_DEBUG_SV.log(l_module_name,'Count is more than 1 : ',l_organization_tab.count);
4344: END IF;
4345: DELETE FROM wsh_tmp;
4346:
4347: FORALL i IN l_organization_tab.FIRST..l_organization_tab.LAST
4351: FETCH c_distinct_organization_id BULK COLLECT INTO l_distinct_organization_tab;
4352: CLOSE c_distinct_organization_id;
4353:
4354: IF l_debug_on THEN
4355: WSH_DEBUG_SV.log(l_module_name,'Distinct Count : ',l_distinct_organization_tab.count);
4356: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4357: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4358: END IF;
4359:
4352: CLOSE c_distinct_organization_id;
4353:
4354: IF l_debug_on THEN
4355: WSH_DEBUG_SV.log(l_module_name,'Distinct Count : ',l_distinct_organization_tab.count);
4356: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4357: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4358: END IF;
4359:
4360:
4353:
4354: IF l_debug_on THEN
4355: WSH_DEBUG_SV.log(l_module_name,'Distinct Count : ',l_distinct_organization_tab.count);
4356: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4357: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4358: END IF;
4359:
4360:
4361: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4361: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4362: -- delivery or print pick slip mode is immediate.
4363:
4364: IF l_debug_on THEN
4365: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4366: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4367: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4368: END IF;
4369: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4362: -- delivery or print pick slip mode is immediate.
4363:
4364: IF l_debug_on THEN
4365: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4366: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4367: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4368: END IF;
4369: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4370: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4363:
4364: IF l_debug_on THEN
4365: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4366: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4367: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4368: END IF;
4369: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4370: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4371: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4374: IF l_psgr_delivery_flag = 'Y' THEN
4375: G_NUM_WORKERS := 1;
4376: G_PICK_REL_PARALLEL := FALSE;
4377: IF l_debug_on THEN
4378: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4379: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4380: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4381: END IF;
4382: ELSE
4375: G_NUM_WORKERS := 1;
4376: G_PICK_REL_PARALLEL := FALSE;
4377: IF l_debug_on THEN
4378: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4379: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4380: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4381: END IF;
4382: ELSE
4383: OPEN c_is_print_ps_mode_I;
4376: G_PICK_REL_PARALLEL := FALSE;
4377: IF l_debug_on THEN
4378: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4379: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4380: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4381: END IF;
4382: ELSE
4383: OPEN c_is_print_ps_mode_I;
4384: FETCH c_is_print_ps_mode_I INTO l_tmp_org_id;
4387: G_PICK_REL_PARALLEL := FALSE;
4388: END IF;
4389: CLOSE c_is_print_ps_mode_I;
4390: IF l_debug_on THEN
4391: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4392: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4393: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4394: END IF;
4395: END IF;
4388: END IF;
4389: CLOSE c_is_print_ps_mode_I;
4390: IF l_debug_on THEN
4391: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4392: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4393: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4394: END IF;
4395: END IF;
4396: ELSE
4389: CLOSE c_is_print_ps_mode_I;
4390: IF l_debug_on THEN
4391: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4392: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4393: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4394: END IF;
4395: END IF;
4396: ELSE
4397: OPEN c_prnt_PS_mode_PS_grp;
4401: G_PICK_REL_PARALLEL := FALSE;
4402: END IF;
4403: CLOSE c_prnt_PS_mode_PS_grp;
4404: IF l_debug_on THEN
4405: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4406: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4407: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4408: END IF;
4409: END IF;
4402: END IF;
4403: CLOSE c_prnt_PS_mode_PS_grp;
4404: IF l_debug_on THEN
4405: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4406: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4407: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4408: END IF;
4409: END IF;
4410:
4403: CLOSE c_prnt_PS_mode_PS_grp;
4404: IF l_debug_on THEN
4405: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag',l_psgr_delivery_flag);
4406: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4407: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4408: END IF;
4409: END IF;
4410:
4411: -- END Bug 5247554.
4418:
4419: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4420: -- delivery or print pick slip mode is immediate.
4421: IF l_debug_on THEN
4422: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4423: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4424: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4425: END IF;
4426: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4419: -- Bug 5247554: Force the number of workers to be 1 if the pick slip grouping criteria includes
4420: -- delivery or print pick slip mode is immediate.
4421: IF l_debug_on THEN
4422: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4423: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4424: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4425: END IF;
4426: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4427: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4420: -- delivery or print pick slip mode is immediate.
4421: IF l_debug_on THEN
4422: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_pick_grouping_rule_id ',WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4423: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4424: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4425: END IF;
4426: IF WSH_PR_CRITERIA.g_pick_grouping_rule_id IS NOT NULL THEN
4427: OPEN c_is_psgr_del(WSH_PR_CRITERIA.g_pick_grouping_rule_id);
4428: FETCH c_is_psgr_del INTO l_psgr_delivery_flag;
4431: IF l_psgr_delivery_flag = 'Y' THEN
4432: G_NUM_WORKERS := 1;
4433: G_PICK_REL_PARALLEL := FALSE;
4434: IF l_debug_on THEN
4435: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4436: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4437: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4438: END IF;
4439: ELSE
4432: G_NUM_WORKERS := 1;
4433: G_PICK_REL_PARALLEL := FALSE;
4434: IF l_debug_on THEN
4435: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4436: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4437: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4438: END IF;
4439: ELSE
4440: OPEN c_is_print_ps_mode_I_for_org(l_organization_tab(1));
4433: G_PICK_REL_PARALLEL := FALSE;
4434: IF l_debug_on THEN
4435: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4436: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4437: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4438: END IF;
4439: ELSE
4440: OPEN c_is_print_ps_mode_I_for_org(l_organization_tab(1));
4441: FETCH c_is_print_ps_mode_I_for_org INTO l_tmp_org_id;
4444: G_PICK_REL_PARALLEL := FALSE;
4445: END IF;
4446: CLOSE c_is_print_ps_mode_I_for_org;
4447: IF l_debug_on THEN
4448: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4449: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4450: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4451: END IF;
4452: END IF;
4445: END IF;
4446: CLOSE c_is_print_ps_mode_I_for_org;
4447: IF l_debug_on THEN
4448: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4449: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4450: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4451: END IF;
4452: END IF;
4453: ELSE
4446: CLOSE c_is_print_ps_mode_I_for_org;
4447: IF l_debug_on THEN
4448: WSH_DEBUG_SV.log(l_module_name,'l_psgr_delivery_flag ',l_psgr_delivery_flag);
4449: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4450: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4451: END IF;
4452: END IF;
4453: ELSE
4454: OPEN c_prnt_PS_mode_PS_grp_for_org(l_organization_tab(1));
4458: G_PICK_REL_PARALLEL := FALSE;
4459: END IF;
4460: CLOSE c_prnt_PS_mode_PS_grp_for_org;
4461: IF l_debug_on THEN
4462: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_use_delivery_ps ',WSH_PR_CRITERIA.g_use_delivery_ps);
4463: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4464: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4465: END IF;
4466: END IF;
4459: END IF;
4460: CLOSE c_prnt_PS_mode_PS_grp_for_org;
4461: IF l_debug_on THEN
4462: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_use_delivery_ps ',WSH_PR_CRITERIA.g_use_delivery_ps);
4463: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4464: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4465: END IF;
4466: END IF;
4467:
4460: CLOSE c_prnt_PS_mode_PS_grp_for_org;
4461: IF l_debug_on THEN
4462: WSH_DEBUG_SV.log(l_module_name,'WSH_PR_CRITERIA.g_use_delivery_ps ',WSH_PR_CRITERIA.g_use_delivery_ps);
4463: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4464: WSH_DEBUG_SV.log(l_module_name,'G_NUM_WORKERS ',G_NUM_WORKERS);
4465: END IF;
4466: END IF;
4467:
4468: -- END Bug 5247554.
4484: WSH_INV_INTEGRATION_GRP.G_ORGTAB.delete ;
4485: WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB.delete ;
4486:
4487: IF l_debug_on THEN
4488: WSH_DEBUG_SV.logmsg(l_module_name, '********************************************');
4489: WSH_DEBUG_SV.logmsg(l_module_name, 'Processing Org ' || l_organization_id);
4490: END IF;
4491:
4492: IF l_mode IS NULL THEN --{
4485: WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB.delete ;
4486:
4487: IF l_debug_on THEN
4488: WSH_DEBUG_SV.logmsg(l_module_name, '********************************************');
4489: WSH_DEBUG_SV.logmsg(l_module_name, 'Processing Org ' || l_organization_id);
4490: END IF;
4491:
4492: IF l_mode IS NULL THEN --{
4493:
4503: p_event_key => NULL,
4504: x_return_status => l_return_status);
4505: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN --{
4506: IF l_debug_on THEN
4507: WSH_DEBUG_SV.log(l_module_name, 'Org Type', L_WAREHOUSE_TYPE );
4508: END IF;
4509:
4510: --- TPW - Distributed Organization Changes
4511: --IF l_warehouse_type = 'TPW' THEN
4510: --- TPW - Distributed Organization Changes
4511: --IF l_warehouse_type = 'TPW' THEN
4512: IF l_warehouse_type in ( 'TPW', 'TW2' ) THEN
4513: IF l_debug_on THEN
4514: WSH_DEBUG_SV.logmsg(l_module_name,'SKIPPING TPW ORGANIZATION (PICKING IS NOT SUPPORTED)');
4515: END IF;
4516: GOTO next_organization;
4517: END IF;
4518: --}
4527: END IF; --}
4528:
4529: -- 90.4 Getting Organization Parameters
4530: IF l_debug_on THEN
4531: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit GET_ORG_PARAMS',WSH_DEBUG_SV.C_PROC_LEVEL);
4532: END IF;
4533: Get_Org_Params ( p_organization_id => l_organization_id,
4534: x_org_info => l_org_info,
4535: x_return_status => l_return_status);
4535: x_return_status => l_return_status);
4536: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4537: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4538: IF l_debug_on THEN
4539: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in Get_Org_Params');
4540: END IF;
4541: RAISE e_return;
4542: END IF;
4543:
4580: l_trohdr_rec.request_number := l_batch_name;
4581:
4582: -- 90.7 Create Move Order Header
4583: IF l_debug_on THEN
4584: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_HEADER',WSH_DEBUG_SV.C_PROC_LEVEL);
4585: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4586: END IF;
4587:
4588: Inv_Move_Order_Pub.Create_Move_Order_Header
4581:
4582: -- 90.7 Create Move Order Header
4583: IF l_debug_on THEN
4584: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.CREATE_MOVE_ORDER_HEADER',WSH_DEBUG_SV.C_PROC_LEVEL);
4585: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4586: END IF;
4587:
4588: Inv_Move_Order_Pub.Create_Move_Order_Header
4589: (
4600: x_msg_data => l_msg_data
4601: );
4602:
4603: IF l_debug_on THEN
4604: WSH_DEBUG_SV.log(l_module_name,'Inv_Move_Order_Pub.Create_Move_Order_Header l_return_status',l_return_status);
4605: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4606: END IF;
4607:
4608: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4601: );
4602:
4603: IF l_debug_on THEN
4604: WSH_DEBUG_SV.log(l_module_name,'Inv_Move_Order_Pub.Create_Move_Order_Header l_return_status',l_return_status);
4605: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4606: END IF;
4607:
4608: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4609: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN --{
4618: RAISE e_return;
4619: --}
4620: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4621: IF l_debug_on THEN
4622: WSH_DEBUG_SV.logmsg(l_module_name, 'Created MO Header '||TO_CHAR(L_TROHDR_REC.HEADER_ID)||' Sucessfully' );
4623: END IF;
4624: END IF;
4625:
4626: -- 90.8 Data should be committed only in case of a concurrent request.
4628: -- In case of Online data is committed from Pick Release form.
4629: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
4630: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
4631: IF l_debug_on THEN
4632: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
4633: END IF;
4634: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
4635: x_return_status => l_return_status);
4636:
4634: WSH_UTIL_CORE.Process_stops_for_load_tender ( p_reset_flags => FALSE,
4635: x_return_status => l_return_status);
4636:
4637: IF l_debug_on THEN
4638: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
4639: END IF;
4640: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
4641: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4642: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_UTIL_CORE.Process_stops_for_load_tender');
4647: END IF;
4648: END IF;
4649: END IF;
4650: IF l_debug_on THEN
4651: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
4652: END IF;
4653: COMMIT; -- commit for move order header creation
4654: END IF;
4655:
4708:
4709: ELSE --{
4710:
4711: IF l_debug_on THEN
4712: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Cursor',
4713: WSH_DEBUG_SV.C_PROC_LEVEL);
4714: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4715: END IF;
4716:
4709: ELSE --{
4710:
4711: IF l_debug_on THEN
4712: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Cursor',
4713: WSH_DEBUG_SV.C_PROC_LEVEL);
4714: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4715: END IF;
4716:
4717: WSH_PR_CRITERIA.Init_Cursor(
4710:
4711: IF l_debug_on THEN
4712: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PR_CRITERIA.Init_Cursor',
4713: WSH_DEBUG_SV.C_PROC_LEVEL);
4714: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4715: END IF;
4716:
4717: WSH_PR_CRITERIA.Init_Cursor(
4718: p_organization_id => l_organization_id,
4729: x_dd_count => l_dd_records,
4730: x_api_status => l_return_status);
4731:
4732: IF l_debug_on THEN
4733: WSH_DEBUG_SV.log(l_module_name, 'WSH_PR_CRITERIA.Init_Cursor l_return_status',l_return_status);
4734: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4735: END IF;
4736:
4737: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4730: x_api_status => l_return_status);
4731:
4732: IF l_debug_on THEN
4733: WSH_DEBUG_SV.log(l_module_name, 'WSH_PR_CRITERIA.Init_Cursor l_return_status',l_return_status);
4734: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4735: END IF;
4736:
4737: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4738: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4793:
4794: -- Print log messages only if request is not resuming from Regular Pick or Pack/Ship Mode
4795: IF NVL(l_mode,'X') NOT IN ('PICK', 'PS') THEN --{
4796: IF l_debug_on THEN
4797: WSH_DEBUG_SV.log(l_module_name,'l_tot_worker_records ',l_tot_worker_records);
4798: WSH_DEBUG_SV.log(l_module_name,'l_tot_smc_records ',l_tot_smc_records);
4799: WSH_DEBUG_SV.log(l_module_name,'l_tot_dd_records ',l_tot_dd_records);
4800: WSH_DEBUG_SV.log(l_module_name,'Run Ship Sets / SMCs in Parallel ',WSH_CUSTOM_PUB.Run_PR_SMC_SS_Parallel);
4801: END IF;
4794: -- Print log messages only if request is not resuming from Regular Pick or Pack/Ship Mode
4795: IF NVL(l_mode,'X') NOT IN ('PICK', 'PS') THEN --{
4796: IF l_debug_on THEN
4797: WSH_DEBUG_SV.log(l_module_name,'l_tot_worker_records ',l_tot_worker_records);
4798: WSH_DEBUG_SV.log(l_module_name,'l_tot_smc_records ',l_tot_smc_records);
4799: WSH_DEBUG_SV.log(l_module_name,'l_tot_dd_records ',l_tot_dd_records);
4800: WSH_DEBUG_SV.log(l_module_name,'Run Ship Sets / SMCs in Parallel ',WSH_CUSTOM_PUB.Run_PR_SMC_SS_Parallel);
4801: END IF;
4802: END IF; --}
4795: IF NVL(l_mode,'X') NOT IN ('PICK', 'PS') THEN --{
4796: IF l_debug_on THEN
4797: WSH_DEBUG_SV.log(l_module_name,'l_tot_worker_records ',l_tot_worker_records);
4798: WSH_DEBUG_SV.log(l_module_name,'l_tot_smc_records ',l_tot_smc_records);
4799: WSH_DEBUG_SV.log(l_module_name,'l_tot_dd_records ',l_tot_dd_records);
4800: WSH_DEBUG_SV.log(l_module_name,'Run Ship Sets / SMCs in Parallel ',WSH_CUSTOM_PUB.Run_PR_SMC_SS_Parallel);
4801: END IF;
4802: END IF; --}
4803:
4796: IF l_debug_on THEN
4797: WSH_DEBUG_SV.log(l_module_name,'l_tot_worker_records ',l_tot_worker_records);
4798: WSH_DEBUG_SV.log(l_module_name,'l_tot_smc_records ',l_tot_smc_records);
4799: WSH_DEBUG_SV.log(l_module_name,'l_tot_dd_records ',l_tot_dd_records);
4800: WSH_DEBUG_SV.log(l_module_name,'Run Ship Sets / SMCs in Parallel ',WSH_CUSTOM_PUB.Run_PR_SMC_SS_Parallel);
4801: END IF;
4802: END IF; --}
4803:
4804: -- 100. Calculate Actual number of worker requests to be spawned
4809: l_num_workers := LEAST(l_tot_smc_records, NVL(g_num_workers,1));
4810:
4811: IF l_num_workers > 1 THEN --{
4812: IF l_debug_on THEN
4813: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Spawn_Workers for PICK-SS', WSH_DEBUG_SV.C_PROC_LEVEL);
4814: END IF;
4815: Spawn_Workers (
4816: p_batch_id => p_batch_id,
4817: p_num_requests => l_num_workers,
4819: p_req_status => 0, -- First time Request Status is success (0)
4820: p_log_level => p_log_level,
4821: x_return_status => l_return_status );
4822: IF l_debug_on THEN
4823: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4824: END IF;
4825: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4826: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4827: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK-SS');
4839: G_PICK_REL_PARALLEL := TRUE;
4840: END IF;
4841: IF l_debug_on THEN
4842: IF G_PICK_REL_PARALLEL THEN
4843: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4844: ELSE
4845: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4846: END IF;
4847: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4841: IF l_debug_on THEN
4842: IF G_PICK_REL_PARALLEL THEN
4843: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4844: ELSE
4845: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4846: END IF;
4847: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4848: END IF;
4849: l_retcode := NULL;
4843: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4844: ELSE
4845: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4846: END IF;
4847: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4848: END IF;
4849: l_retcode := NULL;
4850: l_errbuf := NULL;
4851: Release_Batch_Sub (
4855: p_worker_id => NULL,
4856: p_mode => 'PICK-SS',
4857: p_log_level => p_log_level );
4858: IF l_debug_on THEN
4859: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
4860: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
4861: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
4862: END IF;
4863: IF l_retcode = 2 THEN
4856: p_mode => 'PICK-SS',
4857: p_log_level => p_log_level );
4858: IF l_debug_on THEN
4859: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
4860: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
4861: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
4862: END IF;
4863: IF l_retcode = 2 THEN
4864: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
4857: p_log_level => p_log_level );
4858: IF l_debug_on THEN
4859: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
4860: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
4861: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
4862: END IF;
4863: IF l_retcode = 2 THEN
4864: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
4865: RAISE e_return;
4889:
4890: IF l_num_workers > 1 THEN --{
4891: -- 100.2 Spawn requests for all Items
4892: IF l_debug_on THEN
4893: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Spawn_Workers for PICK', WSH_DEBUG_SV.C_PROC_LEVEL);
4894: END IF;
4895: Spawn_Workers (
4896: p_batch_id => p_batch_id,
4897: p_num_requests => l_num_workers,
4899: p_req_status => NVL(l_retcode,0), -- Current Request Status
4900: p_log_level => p_log_level,
4901: x_return_status => l_return_status );
4902: IF l_debug_on THEN
4903: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
4904: END IF;
4905: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4906: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4907: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PICK');
4915: ELSIF l_num_workers = 1 THEN
4916: -- For Single Worker Mode, call Release_Batch_Sub api directly {
4917: IF l_debug_on THEN
4918: IF G_PICK_REL_PARALLEL THEN
4919: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4920: ELSE
4921: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4922: END IF;
4923: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4917: IF l_debug_on THEN
4918: IF G_PICK_REL_PARALLEL THEN
4919: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4920: ELSE
4921: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4922: END IF;
4923: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4924: END IF;
4925: l_retcode := NULL;
4919: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Parallel ');
4920: ELSE
4921: WSH_DEBUG_SV.logmsg(l_module_name,'Pick Release Mode is Single Worker Mode ');
4922: END IF;
4923: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub', WSH_DEBUG_SV.C_PROC_LEVEL);
4924: END IF;
4925: l_retcode := NULL;
4926: l_errbuf := NULL;
4927: Release_Batch_Sub (
4931: p_worker_id => NULL,
4932: p_mode => 'PICK',
4933: p_log_level => p_log_level );
4934: IF l_debug_on THEN
4935: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
4936: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
4937: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
4938: END IF;
4939: IF l_retcode = 2 THEN
4932: p_mode => 'PICK',
4933: p_log_level => p_log_level );
4934: IF l_debug_on THEN
4935: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
4936: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
4937: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
4938: END IF;
4939: IF l_retcode = 2 THEN
4940: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
4933: p_log_level => p_log_level );
4934: IF l_debug_on THEN
4935: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
4936: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
4937: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
4938: END IF;
4939: IF l_retcode = 2 THEN
4940: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
4941: RAISE e_return;
4971: l_pr_batch_size :=50;
4972: END;
4973:
4974: IF l_debug_on THEN
4975: WSH_DEBUG_SV.log(l_module_name,'l_pr_batch_size ',l_pr_batch_size);
4976: END IF;
4977:
4978: IF l_mode IN ('PICK-SS','PICK') THEN --{
4979: -- Unassign Backordered details from Delivery/Container
4985: FETCH c_get_backordered_details BULK COLLECT INTO l_backorder_rec_tbl LIMIT l_pr_batch_size;
4986: l_detail_cfetch := c_get_backordered_details%ROWCOUNT - l_detail_pfetch;
4987: EXIT WHEN (l_detail_cfetch = 0);
4988: IF l_debug_on THEN
4989: WSH_DEBUG_SV.log(l_module_name,'Number of backordered lines ',l_backorder_rec_tbl.COUNT);
4990: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.Unassign_Backordered_Details',WSH_DEBUG_SV.C_PROC_LEVEL);
4991: END IF;
4992: WSH_USA_INV_PVT.Unassign_Backordered_Details(
4993: p_backorder_rec_tbl => l_backorder_rec_tbl,
4986: l_detail_cfetch := c_get_backordered_details%ROWCOUNT - l_detail_pfetch;
4987: EXIT WHEN (l_detail_cfetch = 0);
4988: IF l_debug_on THEN
4989: WSH_DEBUG_SV.log(l_module_name,'Number of backordered lines ',l_backorder_rec_tbl.COUNT);
4990: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.Unassign_Backordered_Details',WSH_DEBUG_SV.C_PROC_LEVEL);
4991: END IF;
4992: WSH_USA_INV_PVT.Unassign_Backordered_Details(
4993: p_backorder_rec_tbl => l_backorder_rec_tbl,
4994: p_org_info_tbl => l_org_info_tbl,
4993: p_backorder_rec_tbl => l_backorder_rec_tbl,
4994: p_org_info_tbl => l_org_info_tbl,
4995: x_return_status => l_return_status);
4996: IF l_debug_on THEN
4997: WSH_DEBUG_SV.log(l_module_name,'WSH_USA_INV_PVT.Unassign_Backordered_Details l_return_status' ,l_return_status);
4998: END IF;
4999: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5000: WSH_UTIL_CORE.PrintMsg('Unexpected Error occurred in WSH_USA_INV_PVT.Unassign_Backordered_Details');
5001: RAISE e_return;
5004: END IF;
5005: l_detail_pfetch := c_get_backordered_details%ROWCOUNT;
5006: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
5007: IF l_debug_on THEN
5008: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
5009: END IF;
5010: COMMIT;
5011: END IF;
5012: END LOOP; --}
5021:
5022: -- Unassign empty containers for deliveries that are unassigned during backodering
5023: IF g_unassigned_delivery_ids.COUNT > 0 AND (l_mode IS NULL OR l_mode IN ('PICK-SS','PICK')) THEN --WMS High Vol Support, Added AND cond
5024: IF l_debug_on THEN
5025: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.unassign_empty_containers',WSH_DEBUG_SV.C_PROC_LEVEL);
5026: END IF;
5027: WSH_DELIVERY_AUTOCREATE.Unassign_Empty_Containers(g_unassigned_delivery_ids,l_return_status);
5028: IF l_debug_on THEN
5029: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.unassign_empty_containers l_return_status',l_return_status);
5025: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.unassign_empty_containers',WSH_DEBUG_SV.C_PROC_LEVEL);
5026: END IF;
5027: WSH_DELIVERY_AUTOCREATE.Unassign_Empty_Containers(g_unassigned_delivery_ids,l_return_status);
5028: IF l_debug_on THEN
5029: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.unassign_empty_containers l_return_status',l_return_status);
5030: END IF;
5031: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5032: l_completion_status := 'WARNING';
5033: END IF;
5039: IF l_mode IS NULL OR l_mode IN ('PICK-SS','PICK') THEN --{ --WMS High Vol Support, Added IF condition
5040: -- Call Autocreate Deliveries for the Batch
5041: -- Loop thru all Organization - Details that are not assigned to any deliveries
5042: IF l_debug_on THEN
5043: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5044: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
5045: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5046: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
5047: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
5040: -- Call Autocreate Deliveries for the Batch
5041: -- Loop thru all Organization - Details that are not assigned to any deliveries
5042: IF l_debug_on THEN
5043: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5044: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
5045: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5046: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
5047: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
5048: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
5041: -- Loop thru all Organization - Details that are not assigned to any deliveries
5042: IF l_debug_on THEN
5043: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5044: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
5045: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5046: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
5047: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
5048: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
5049: END IF;
5042: IF l_debug_on THEN
5043: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5044: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
5045: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5046: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
5047: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
5048: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
5049: END IF;
5050:
5044: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTOCREATE DELIVERY' );
5045: WSH_DEBUG_SV.logmsg(l_module_name, '===================' );
5046: WSH_DEBUG_SV.logmsg(l_module_name,'Trip '||WSH_PR_CRITERIA.g_trip_id||
5047: ' Del '||WSH_PR_CRITERIA.g_delivery_id);
5048: WSH_DEBUG_SV.logmsg(l_module_name,'Del Pick Slip Grouping '||WSH_PR_CRITERIA.g_use_delivery_ps);
5049: END IF;
5050:
5051: FOR crec in c_batch_orgs(p_batch_id) LOOP --{
5052:
5050:
5051: FOR crec in c_batch_orgs(p_batch_id) LOOP --{
5052:
5053: IF l_debug_on THEN
5054: WSH_DEBUG_SV.logmsg(l_module_name,'Org '||crec.organization_id||' Auto Create Del Flag '
5055: ||l_org_info_tbl(crec.organization_id).autocreate_deliveries
5056: ||' Pick Slip Mode '||l_org_info_tbl(crec.organization_id).print_pick_slip_mode);
5057: END IF;
5058: -- Create deliveries only if Pick Slip Mode is 'End' and Delivery is not Part of Grouping
5069: FETCH c_get_unassigned_details BULK COLLECT INTO l_del_details_tbl LIMIT l_pr_batch_size;
5070: l_detail_cfetch := c_get_unassigned_details%ROWCOUNT - l_detail_pfetch;
5071: EXIT WHEN (l_detail_cfetch = 0);
5072: IF l_debug_on THEN
5073: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
5074: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5075: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5076: END IF;
5077: Autocreate_Deliveries (
5070: l_detail_cfetch := c_get_unassigned_details%ROWCOUNT - l_detail_pfetch;
5071: EXIT WHEN (l_detail_cfetch = 0);
5072: IF l_debug_on THEN
5073: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
5074: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5075: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5076: END IF;
5077: Autocreate_Deliveries (
5078: p_append_flag => l_org_info_tbl(crec.organization_id).append_flag,
5071: EXIT WHEN (l_detail_cfetch = 0);
5072: IF l_debug_on THEN
5073: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Autocreate_Deliveries'
5074: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5075: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5076: END IF;
5077: Autocreate_Deliveries (
5078: p_append_flag => l_org_info_tbl(crec.organization_id).append_flag,
5079: p_use_header_flag => l_org_info_tbl(crec.organization_id).use_header_flag,
5080: p_del_details_tbl => l_del_details_tbl,
5081: x_return_status => l_return_status
5082: );
5083: IF l_debug_on THEN
5084: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5085: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
5086: ,l_return_status);
5087: END IF;
5088: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5081: x_return_status => l_return_status
5082: );
5083: IF l_debug_on THEN
5084: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5085: WSH_DEBUG_SV.log(l_module_name,'WSH_PICK_LIST.Autocreate_Deliveries l_return_status'
5086: ,l_return_status);
5087: END IF;
5088: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5089: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5119: -- make sure the table is empty
5120: --
5121: l_del_ids_tab.DELETE;
5122: IF l_debug_on THEN
5123: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.PROCESS_CARRIER_SELECTION',WSH_DEBUG_SV.C_PROC_LEVEL);
5124: END IF;
5125: WSH_NEW_DELIVERY_ACTIONS.PROCESS_CARRIER_SELECTION (
5126: p_delivery_id_tab => l_del_ids_tab,
5127: p_batch_id => p_batch_id,
5131: x_return_message => l_message,
5132: x_return_status => l_return_status );
5133: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5134: IF l_debug_on THEN
5135: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR OR WARNING OCCURRED WHILE PROCESSING CARRIER SELECTION ( PICK SLIP ) ' );
5136: END IF;
5137: END IF;
5138: WSH_UTIL_CORE.add_message(l_return_status);
5139: --}
5153: l_in_param_rec.action := 'RATE';
5154: l_in_param_rec.seq_tender_flag := 'Y';
5155:
5156: IF l_debug_on THEN
5157: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.Rate_Delivery',WSH_DEBUG_SV.C_PROC_LEVEL);
5158: END IF;
5159: WSH_FTE_INTEGRATION.Rate_Delivery (
5160: p_api_version => 1.0,
5161: p_init_msg_list => FND_API.G_FALSE,
5165: x_return_status => l_return_status,
5166: x_msg_count => l_msg_count,
5167: x_msg_data => l_msg_data );
5168: IF l_debug_on THEN
5169: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_FTE_INTEGRATION.Rate_Delivery',l_return_status);
5170: END IF;
5171: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN --{
5172: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5173: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_FTE_INTEGRATION.Rate_Delivery');
5210:
5211: -- Delivery Merge For Pre-existing / Appended Deliveries
5212: IF g_assigned_del_tbl.COUNT > 0 AND (l_mode IS NULL OR l_mode IN ('PICK-SS','PICK')) THEN --{ --WMS High Vol Support, Added AND cond
5213: IF l_debug_on THEN
5214: WSH_DEBUG_SV.log(l_module_name,'g_assigned_del_tbl.COUNT', g_assigned_del_tbl.COUNT);
5215: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
5216: END IF;
5217: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag (
5218: p_delivery_ids => g_assigned_del_tbl,
5211: -- Delivery Merge For Pre-existing / Appended Deliveries
5212: IF g_assigned_del_tbl.COUNT > 0 AND (l_mode IS NULL OR l_mode IN ('PICK-SS','PICK')) THEN --{ --WMS High Vol Support, Added AND cond
5213: IF l_debug_on THEN
5214: WSH_DEBUG_SV.log(l_module_name,'g_assigned_del_tbl.COUNT', g_assigned_del_tbl.COUNT);
5215: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
5216: END IF;
5217: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag (
5218: p_delivery_ids => g_assigned_del_tbl,
5219: p_caller => 'WSH_DLMG',
5220: p_force_appending_limit => 'N',
5221: p_call_lcss => 'Y',
5222: x_return_status => l_return_status );
5223: IF l_debug_on THEN
5224: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5225: END IF;
5226: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5227: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5228: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5239: FETCH c_batch_unplanned_del BULK COLLECT INTO l_delivery_ids LIMIT l_pr_batch_size;
5240: l_detail_cfetch := c_batch_unplanned_del%ROWCOUNT - l_detail_pfetch;
5241: EXIT WHEN (l_detail_cfetch = 0);
5242: IF l_debug_on THEN
5243: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids.COUNT', l_delivery_ids.COUNT);
5244: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
5245: END IF;
5246: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag (
5247: p_delivery_ids => l_delivery_ids,
5240: l_detail_cfetch := c_batch_unplanned_del%ROWCOUNT - l_detail_pfetch;
5241: EXIT WHEN (l_detail_cfetch = 0);
5242: IF l_debug_on THEN
5243: WSH_DEBUG_SV.log(l_module_name,'l_delivery_ids.COUNT', l_delivery_ids.COUNT);
5244: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
5245: END IF;
5246: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag (
5247: p_delivery_ids => l_delivery_ids,
5248: p_caller => 'WSH_DLMG',
5249: p_force_appending_limit => 'N',
5250: p_call_lcss => 'Y',
5251: x_return_status => l_return_status );
5252: IF l_debug_on THEN
5253: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
5254: END IF;
5255: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5256: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5257: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag');
5262: END IF; --} --WMS High Vol Support
5263:
5264: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
5265: IF l_debug_on THEN
5266: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
5267: END IF;
5268: COMMIT;
5269: END IF;
5270:
5280: IF l_mode IN ('PICK-SS','PICK') THEN --{ --WMS High Vol Support, Added IF cond
5281: FOR crec IN c_wms_orgs(p_batch_id) LOOP --{
5282: IF l_org_info_tbl(crec.organization_id).auto_pick_confirm = 'Y' THEN
5283: IF l_debug_on THEN
5284: WSH_DEBUG_SV.logmsg(l_module_name,'Skipping Cartonization as Auto Pick Confirm is Yes for Org :'||crec.organization_id);
5285: END IF;
5286: GOTO SKIP_WMS_ORG;
5287: END IF;
5288: l_del_details_tbl.delete;
5304: l_action_rec.action := 'MATCH_GROUPS';
5305: l_action_rec.group_by_header_flag := l_org_info_tbl(crec.organization_id).use_header_flag ; --bug 8623544
5306:
5307: IF l_debug_on THEN
5308: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups'
5309: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5310: WSH_DEBUG_SV.log(l_module_name,'l_attr_tab.COUNT ',l_attr_tab.COUNT);
5311: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5312: END IF;
5305: l_action_rec.group_by_header_flag := l_org_info_tbl(crec.organization_id).use_header_flag ; --bug 8623544
5306:
5307: IF l_debug_on THEN
5308: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups'
5309: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5310: WSH_DEBUG_SV.log(l_module_name,'l_attr_tab.COUNT ',l_attr_tab.COUNT);
5311: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5312: END IF;
5313: WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups (
5306:
5307: IF l_debug_on THEN
5308: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups'
5309: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5310: WSH_DEBUG_SV.log(l_module_name,'l_attr_tab.COUNT ',l_attr_tab.COUNT);
5311: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5312: END IF;
5313: WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups (
5314: p_attr_tab => l_attr_tab,
5307: IF l_debug_on THEN
5308: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups'
5309: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5310: WSH_DEBUG_SV.log(l_module_name,'l_attr_tab.COUNT ',l_attr_tab.COUNT);
5311: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5312: END IF;
5313: WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups (
5314: p_attr_tab => l_attr_tab,
5315: p_action_rec => l_action_rec,
5318: x_matched_entities => l_matched_entities,
5319: x_out_rec => l_out_rec,
5320: x_return_status => l_return_status );
5321: IF l_debug_on THEN
5322: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5323: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status'
5324: ,l_return_status);
5325: END IF;
5326: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5319: x_out_rec => l_out_rec,
5320: x_return_status => l_return_status );
5321: IF l_debug_on THEN
5322: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5323: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups l_return_status'
5324: ,l_return_status);
5325: END IF;
5326: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5327: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5363: END LOOP;
5364: --bug 7171766 till here
5365:
5366: IF l_debug_on THEN
5367: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.Stamp_Cart_Id'
5368: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5369: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5370: END IF;
5371: INV_MOVE_ORDER_PUB.Stamp_Cart_Id (
5364: --bug 7171766 till here
5365:
5366: IF l_debug_on THEN
5367: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.Stamp_Cart_Id'
5368: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5369: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5370: END IF;
5371: INV_MOVE_ORDER_PUB.Stamp_Cart_Id (
5372: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5365:
5366: IF l_debug_on THEN
5367: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.Stamp_Cart_Id'
5368: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5369: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5370: END IF;
5371: INV_MOVE_ORDER_PUB.Stamp_Cart_Id (
5372: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5373: p_carton_grouping_tbl => l_carton_grouping_tbl,
5372: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5373: p_carton_grouping_tbl => l_carton_grouping_tbl,
5374: p_move_order_line_tbl => l_mo_lines_tbl );
5375: IF l_debug_on THEN
5376: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5377: WSH_DEBUG_SV.logmsg(l_module_name,'Return from program unit INV_MOVE_ORDER_PUB.Stamp_Cart_Id');
5378: END IF;
5379:
5380: <
5373: p_carton_grouping_tbl => l_carton_grouping_tbl,
5374: p_move_order_line_tbl => l_mo_lines_tbl );
5375: IF l_debug_on THEN
5376: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5377: WSH_DEBUG_SV.logmsg(l_module_name,'Return from program unit INV_MOVE_ORDER_PUB.Stamp_Cart_Id');
5378: END IF;
5379:
5380: <
5381: NULL;
5393:
5394: l_org_complete := 'Y';
5395: IF l_org_info_tbl(v_wms_org_rec.organization_id).auto_pick_confirm = 'Y' THEN
5396: IF l_debug_on THEN
5397: WSH_DEBUG_SV.logmsg(l_module_name,'Skipping Find_Matching_Groups as Auto Pick Confirm is Yes for Org :'||v_wms_org_rec.organization_id);
5398: END IF;
5399: GOTO SKIP_WMS_POSTALLOC;
5400: END IF;
5401:
5400: END IF;
5401:
5402: -- Call to WMS Cartonize API
5403: IF l_debug_on THEN
5404: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_POST_ALLOCATION.launch'
5405: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5406: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5407: END IF;
5408: WMS_POST_ALLOCATION.launch (
5401:
5402: -- Call to WMS Cartonize API
5403: IF l_debug_on THEN
5404: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_POST_ALLOCATION.launch'
5405: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5406: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5407: END IF;
5408: WMS_POST_ALLOCATION.launch (
5409: p_organization_id => v_wms_org_rec.organization_id,
5402: -- Call to WMS Cartonize API
5403: IF l_debug_on THEN
5404: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_POST_ALLOCATION.launch'
5405: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5406: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5407: END IF;
5408: WMS_POST_ALLOCATION.launch (
5409: p_organization_id => v_wms_org_rec.organization_id,
5410: p_mo_header_id => v_wms_org_rec.mo_header_id,
5418: p_plan_tasks => l_org_info_tbl(l_organization_id).task_planning_flag,
5419: x_return_status => l_return_status,
5420: x_org_complete => l_org_complete);
5421: IF l_debug_on THEN
5422: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5423: WSH_DEBUG_SV.log(l_module_name,'Return status from WMS_POST_ALLOCATION.launch ', l_return_status);
5424: END IF;
5425: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5426: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5419: x_return_status => l_return_status,
5420: x_org_complete => l_org_complete);
5421: IF l_debug_on THEN
5422: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
5423: WSH_DEBUG_SV.log(l_module_name,'Return status from WMS_POST_ALLOCATION.launch ', l_return_status);
5424: END IF;
5425: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5426: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5427: WSH_UTIL_CORE.PrintMsg('Error occurred in WMS_POST_ALLOCATION.launch');
5457:
5458: -- Print Pick Slips / Pick Release Document Set
5459: FOR crec in c_sum_worker(p_batch_id) LOOP --{
5460: IF l_debug_on THEN
5461: WSH_DEBUG_SV.logmsg(l_module_name,'Printing Documents for Organization '||crec.organization_id);
5462: WSH_DEBUG_SV.logmsg(l_module_name, 'TOTAL DETAILED COUNT IS '||crec.tot_detailed);
5463: WSH_DEBUG_SV.logmsg(l_module_name, 'Seeded Pick Slip Document Set '||WSH_PICK_LIST.G_SEED_DOC_SET);
5464: WSH_DEBUG_SV.logmsg(l_module_name, 'Pick Release Document Set '||l_org_info_tbl(crec.organization_id).doc_set_id);
5465: END IF;
5458: -- Print Pick Slips / Pick Release Document Set
5459: FOR crec in c_sum_worker(p_batch_id) LOOP --{
5460: IF l_debug_on THEN
5461: WSH_DEBUG_SV.logmsg(l_module_name,'Printing Documents for Organization '||crec.organization_id);
5462: WSH_DEBUG_SV.logmsg(l_module_name, 'TOTAL DETAILED COUNT IS '||crec.tot_detailed);
5463: WSH_DEBUG_SV.logmsg(l_module_name, 'Seeded Pick Slip Document Set '||WSH_PICK_LIST.G_SEED_DOC_SET);
5464: WSH_DEBUG_SV.logmsg(l_module_name, 'Pick Release Document Set '||l_org_info_tbl(crec.organization_id).doc_set_id);
5465: END IF;
5466: l_print_ps := 'N';
5459: FOR crec in c_sum_worker(p_batch_id) LOOP --{
5460: IF l_debug_on THEN
5461: WSH_DEBUG_SV.logmsg(l_module_name,'Printing Documents for Organization '||crec.organization_id);
5462: WSH_DEBUG_SV.logmsg(l_module_name, 'TOTAL DETAILED COUNT IS '||crec.tot_detailed);
5463: WSH_DEBUG_SV.logmsg(l_module_name, 'Seeded Pick Slip Document Set '||WSH_PICK_LIST.G_SEED_DOC_SET);
5464: WSH_DEBUG_SV.logmsg(l_module_name, 'Pick Release Document Set '||l_org_info_tbl(crec.organization_id).doc_set_id);
5465: END IF;
5466: l_print_ps := 'N';
5467: IF crec.tot_detailed > 0 AND WSH_PICK_LIST.G_SEED_DOC_SET IS NOT NULL AND
5460: IF l_debug_on THEN
5461: WSH_DEBUG_SV.logmsg(l_module_name,'Printing Documents for Organization '||crec.organization_id);
5462: WSH_DEBUG_SV.logmsg(l_module_name, 'TOTAL DETAILED COUNT IS '||crec.tot_detailed);
5463: WSH_DEBUG_SV.logmsg(l_module_name, 'Seeded Pick Slip Document Set '||WSH_PICK_LIST.G_SEED_DOC_SET);
5464: WSH_DEBUG_SV.logmsg(l_module_name, 'Pick Release Document Set '||l_org_info_tbl(crec.organization_id).doc_set_id);
5465: END IF;
5466: l_print_ps := 'N';
5467: IF crec.tot_detailed > 0 AND WSH_PICK_LIST.G_SEED_DOC_SET IS NOT NULL AND
5468: l_org_info_tbl(crec.organization_id).express_pick_flag = 'N' AND
5470: l_print_ps := 'Y';
5471: END IF;
5472: IF (l_print_ps = 'Y') OR (l_org_info_tbl(crec.organization_id).doc_set_id <> -1) THEN
5473: IF l_debug_on THEN
5474: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Print_Docs'
5475: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5476: END IF;
5477: Print_docs (
5478: p_batch_id => p_batch_id,
5471: END IF;
5472: IF (l_print_ps = 'Y') OR (l_org_info_tbl(crec.organization_id).doc_set_id <> -1) THEN
5473: IF l_debug_on THEN
5474: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICK_LIST.Print_Docs'
5475: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5476: END IF;
5477: Print_docs (
5478: p_batch_id => p_batch_id,
5479: p_organization_id => crec.organization_id,
5489: END IF;
5490: -- No records detailed, so delete Move Order Header for Organization
5491: IF crec.tot_detailed = 0 THEN --{
5492: IF l_debug_on THEN
5493: WSH_DEBUG_SV.logmsg(l_module_name, 'NO LINES SELECTED FOR ORG ' ||TO_CHAR(crec.organization_id));
5494: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE MOVE ORDER HEADER' );
5495: END IF;
5496: -- Clear move order header/line records
5497: l_trohdr_rec := l_empty_trohdr_rec;
5490: -- No records detailed, so delete Move Order Header for Organization
5491: IF crec.tot_detailed = 0 THEN --{
5492: IF l_debug_on THEN
5493: WSH_DEBUG_SV.logmsg(l_module_name, 'NO LINES SELECTED FOR ORG ' ||TO_CHAR(crec.organization_id));
5494: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE MOVE ORDER HEADER' );
5495: END IF;
5496: -- Clear move order header/line records
5497: l_trohdr_rec := l_empty_trohdr_rec;
5498: l_trohdr_val_rec := l_empty_trohdr_val_rec;
5500: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_DELETE;
5501: l_trolin_tbl.delete;
5502: l_trolin_val_tbl.delete;
5503: IF l_debug_on THEN
5504: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.PROCESS_MOVE_ORDER'
5505: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5506: END IF;
5507: Inv_Move_Order_Pub.Process_Move_Order (
5508: p_api_version_number => l_api_version_number,
5501: l_trolin_tbl.delete;
5502: l_trolin_val_tbl.delete;
5503: IF l_debug_on THEN
5504: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.PROCESS_MOVE_ORDER'
5505: ,WSH_DEBUG_SV.C_PROC_LEVEL);
5506: END IF;
5507: Inv_Move_Order_Pub.Process_Move_Order (
5508: p_api_version_number => l_api_version_number,
5509: p_init_msg_list => FND_API.G_FALSE,
5517: x_return_status => l_return_status,
5518: x_msg_count => l_msg_count,
5519: x_msg_data => l_msg_data );
5520: IF l_debug_on THEN
5521: WSH_DEBUG_SV.log(l_module_name,'Inv_Move_Order_Pub.Process_Move_Order l_return_status'
5522: ,l_return_status);
5523: END IF;
5524: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5525: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5536: END LOOP; --}
5537:
5538: -- Delete empty deliveries
5539: IF l_debug_on THEN
5540: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
5541: END IF;
5542: WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries(g_batch_id,l_return_status);
5543: IF l_debug_on THEN
5544: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries l_return_status',l_return_status);
5540: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries' ,WSH_DEBUG_SV.C_PROC_LEVEL);
5541: END IF;
5542: WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries(g_batch_id,l_return_status);
5543: IF l_debug_on THEN
5544: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_AUTOCREATE.Delete_Empty_Deliveries l_return_status',l_return_status);
5545: END IF;
5546: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5547: l_completion_status := 'WARNING';
5548: END IF;
5568: -- request for each WMS org where atleast one detail is in replenishment requested status.
5569: FOR crec IN get_replenish_orgs(g_batch_id) LOOP
5570: --{
5571: IF l_debug_on THEN
5572: WSH_DEBUG_SV.log(l_module_name,'Submitting dynamic replenishment conc. request for the org: ',crec.organization_id);
5573: END IF;
5574: l_request_id := FND_REQUEST.Submit_Request(
5575: application => 'WMS',
5576: program => 'WMSDYREPL',
5581: argument3 => l_org_info_tbl(crec.organization_id).task_planning_flag,-- task planning flag
5582: argument4 => l_org_info_tbl(crec.organization_id).pick_seq_rule_id -- pick sequence rule
5583: );
5584: IF l_debug_on THEN
5585: WSH_DEBUG_SV.log(l_module_name,'request Id: ',l_request_id);
5586: END IF;
5587: --}
5588: END LOOP;
5589: --bug# 6689448 (replenishment project): end
5621: ELSIF l_dev_status <> 'NORMAL' THEN
5622: l_errors := l_errors + 1;
5623: END IF;
5624: IF l_debug_on THEN
5625: WSH_DEBUG_SV.logmsg(l_module_name,'Child Request id :' ||l_child_req_ids(j)||' Status :'||l_dev_status);
5626: END IF;
5627:
5628: FND_MESSAGE.SET_NAME('WSH','WSH_CHILD_REQ_STATUS');
5629: FND_MESSAGE.SET_TOKEN('REQ_ID', to_char(l_child_req_ids(j)));
5666: END IF;
5667: END IF;
5668:
5669: IF l_debug_on THEN
5670: WSH_DEBUG_SV.log(l_module_name,'l_completion_status',l_completion_status);
5671: END IF;
5672:
5673: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
5674: IF l_debug_on THEN
5671: END IF;
5672:
5673: IF ( G_CONC_REQ = FND_API.G_TRUE ) THEN
5674: IF l_debug_on THEN
5675: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
5676: END IF;
5677: COMMIT;
5678: END IF;
5679:
5686: WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5687: AND (l_mode IS NULL OR l_mode IN ('PICK-SS','PICK')) THEN
5688: --{
5689: IF l_debug_on THEN
5690: WSH_DEBUG_SV.log(l_module_name,'NON PICKFLAG',WSH_PR_CRITERIA.g_non_picking_flag);
5691: END IF;
5692: -- this is from Pick Release Form, hence only 1 record
5693: IF WSH_PR_CRITERIA.g_non_picking_flag IS NULL THEN
5694: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5694: l_ap_level := WSH_PR_CRITERIA.g_autopack_level;
5695: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5696: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5697: IF l_debug_on THEN
5698: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5699: WSH_DEBUG_SV.log(l_module_name,'L_AP_FLAG', l_ap_flag);
5700: WSH_DEBUG_SV.log(l_module_name,'L_SC_RULE', l_sc_rule_id);
5701: END IF;
5702: END IF;
5695: l_ap_flag := WSH_PR_CRITERIA.g_autopack_flag;
5696: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5697: IF l_debug_on THEN
5698: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5699: WSH_DEBUG_SV.log(l_module_name,'L_AP_FLAG', l_ap_flag);
5700: WSH_DEBUG_SV.log(l_module_name,'L_SC_RULE', l_sc_rule_id);
5701: END IF;
5702: END IF;
5703:
5696: l_sc_rule_id := WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id;
5697: IF l_debug_on THEN
5698: WSH_DEBUG_SV.log(l_module_name,'L_AP_LEVEL', l_ap_level);
5699: WSH_DEBUG_SV.log(l_module_name,'L_AP_FLAG', l_ap_flag);
5700: WSH_DEBUG_SV.log(l_module_name,'L_SC_RULE', l_sc_rule_id);
5701: END IF;
5702: END IF;
5703:
5704: IF WSH_PR_CRITERIA.g_non_picking_flag in ('P', 'S') THEN
5716:
5717: l_group_nums := l_group_details_rec_tab.count;
5718:
5719: IF l_debug_on THEN
5720: WSH_DEBUG_SV.log(l_module_name,'l_group_nums', l_group_nums);
5721: END IF;
5722:
5723: IF l_group_nums = 1 THEN
5724: --{
5729: IF NVL(l_ap_level, 0) > 0 THEN
5730: l_ap_flag := 'Y';
5731: END IF;
5732: IF l_debug_on THEN
5733: WSH_DEBUG_SV.log(l_module_name,'l_ap_level', l_ap_level);
5734: END IF;
5735: --}
5736: ELSIF (l_group_nums > 1) THEN
5737: --{
5735: --}
5736: ELSIF (l_group_nums > 1) THEN
5737: --{
5738: IF l_debug_on THEN
5739: WSH_DEBUG_SV.log(l_module_name,'l_group_nums > 1',l_group_nums);
5740: END IF;
5741: -- loop through each group creating child batch.
5742: -- and then pack/ship it.
5743: FOR i in l_group_details_rec_tab.FIRST..l_group_details_rec_tab.LAST LOOP
5747: IF NVL(l_ap_level, 0) > 0 THEN
5748: l_ap_flag := 'Y';
5749: END IF;
5750: IF l_debug_on THEN
5751: WSH_DEBUG_SV.log(l_module_name,'ELSE l_ap_level', l_ap_level);
5752: END IF;
5753: l_del_count := 1;
5754: OPEN get_dels_in_group(p_batch_id, l_sc_rule_id, l_ap_level);
5755: LOOP
5764: IF get_dels_in_group%ISOPEN THEN
5765: CLOSE get_dels_in_group;
5766: END IF;
5767: IF l_debug_on THEN
5768: WSH_DEBUG_SV.log(l_module_name,'BEFORE INSERTING l_ap_level', l_ap_level);
5769: END IF;
5770:
5771: -- Autopack should be set only if Non Pick Flag as 'P' and AP Level is set
5772: IF WSH_PR_CRITERIA.g_non_picking_flag = 'P' AND NVL(l_ap_level,0) > 0 THEN
5900: --}
5901: END IF;
5902:
5903: IF l_debug_on THEN
5904: WSH_DEBUG_SV.logmsg(l_module_name,'Flags: l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag);
5905: END IF;
5906: -- if only one (sc rules/ap level) group for all pickreleased lines,
5907: -- or picking/packing/shipping through PR form or STF for deliveries,
5908: -- no need to spawn seperate batches. use existing PR batch.
5909: IF (l_group_nums = 1) OR (WSH_PR_CRITERIA.g_auto_ship_confirm_rule_id IS NOT NULL)
5910: OR (WSH_PR_CRITERIA.g_autopack_flag = 'Y') THEN
5911: --{
5912: IF l_debug_on THEN
5913: WSH_DEBUG_SV.logmsg(l_module_name,'l_ap_level='||l_ap_level||', Autopack flag='||WSH_PR_CRITERIA.g_autopack_flag||l_group_nums);
5914: END IF;
5915:
5916: -- Autopack should be set only if Non Pick Flag as 'P' or if Pick Release Criteria has Autopack specified
5917: IF (WSH_PR_CRITERIA.g_autopack_flag = 'Y')
5951: CLOSE get_dels_in_batch;
5952: END IF;
5953:
5954: IF l_debug_on THEN
5955: 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);
5956: END IF;
5957:
5958: -- Bulk Insert
5959: FORALL i in 1..l_ps_delivery_tab.COUNT
5984: END IF;
5985:
5986: IF l_pr_worker_rec_count = 0 THEN
5987: IF l_debug_on THEN
5988: WSH_DEBUG_SV.logmsg(l_module_name,'No eligible records to Pack and Ship');
5989: END IF;
5990: ELSE
5991: IF l_debug_on THEN
5992: WSH_DEBUG_SV.logmsg(l_module_name,'Total number of eligible records to Pack and Ship : '|| l_pr_worker_rec_count);
5988: WSH_DEBUG_SV.logmsg(l_module_name,'No eligible records to Pack and Ship');
5989: END IF;
5990: ELSE
5991: IF l_debug_on THEN
5992: WSH_DEBUG_SV.logmsg(l_module_name,'Total number of eligible records to Pack and Ship : '|| l_pr_worker_rec_count);
5993: END IF;
5994: --{
5995: l_num_workers := LEAST(l_pr_worker_rec_count, NVL(g_num_workers,1));
5996: IF l_num_workers > 1 THEN
5995: l_num_workers := LEAST(l_pr_worker_rec_count, NVL(g_num_workers,1));
5996: IF l_num_workers > 1 THEN
5997: --{
5998: IF l_debug_on THEN
5999: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Spawn_Workers for PS',
6000: WSH_DEBUG_SV.C_PROC_LEVEL);
6001: END IF;
6002: -- If the current status is Warning, pass the value as 1, else pass value as 0
6003: IF ( G_BACKORDERED ) THEN
5996: IF l_num_workers > 1 THEN
5997: --{
5998: IF l_debug_on THEN
5999: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Spawn_Workers for PS',
6000: WSH_DEBUG_SV.C_PROC_LEVEL);
6001: END IF;
6002: -- If the current status is Warning, pass the value as 1, else pass value as 0
6003: IF ( G_BACKORDERED ) THEN
6004: l_retcode := 1;
6012: p_req_status => l_retcode,
6013: p_log_level => p_log_level,
6014: x_return_status => l_return_status );
6015: IF l_debug_on THEN
6016: WSH_DEBUG_SV.log(l_module_name, 'Spawn_Workers l_return_status',l_return_status);
6017: END IF;
6018: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
6019: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6020: WSH_UTIL_CORE.PrintMsg('Error occurred in Spawn_Workers for PS');
6027: --}
6028: ELSE
6029: --{
6030: IF l_debug_on THEN
6031: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub'
6032: , WSH_DEBUG_SV.C_PROC_LEVEL);
6033: END IF;
6034: l_retcode := NULL;
6035: l_errbuf := NULL;
6028: ELSE
6029: --{
6030: IF l_debug_on THEN
6031: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Release_Batch_Sub'
6032: , WSH_DEBUG_SV.C_PROC_LEVEL);
6033: END IF;
6034: l_retcode := NULL;
6035: l_errbuf := NULL;
6036: Release_Batch_Sub (
6040: p_worker_id => NULL,
6041: p_mode => 'PS',
6042: p_log_level => p_log_level );
6043: IF l_debug_on THEN
6044: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
6045: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
6046: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
6047: END IF;
6048: IF l_retcode = 2 THEN
6041: p_mode => 'PS',
6042: p_log_level => p_log_level );
6043: IF l_debug_on THEN
6044: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
6045: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
6046: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
6047: END IF;
6048: IF l_retcode = 2 THEN
6049: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
6042: p_log_level => p_log_level );
6043: IF l_debug_on THEN
6044: WSH_DEBUG_SV.logmsg(l_module_name, 'Return from Release_Batch_Sub');
6045: WSH_DEBUG_SV.log(l_module_name, 'retcode',l_retcode);
6046: WSH_DEBUG_SV.log(l_module_name, 'errbuf',l_errbuf);
6047: END IF;
6048: IF l_retcode = 2 THEN
6049: WSH_UTIL_CORE.PrintMsg('Error occurred in Release_Batch_Sub');
6050: RAISE e_return;
6098: END IF;
6099: END LOOP;
6100: CLOSE c_close_trip;
6101: IF l_debug_on THEN
6102: WSH_DEBUG_SV.logmsg(l_module_name,'l_stops_to_close.COUNT '||l_stops_to_close.COUNT);
6103: END IF;
6104: --}
6105:
6106: IF l_stops_to_close.count > 0 THEN
6105:
6106: IF l_stops_to_close.count > 0 THEN
6107: --{
6108: IF l_debug_on THEN
6109: WSH_DEBUG_SV.logmsg(l_module_name, 'Closing stops');
6110: END IF;
6111: FOR i in 1..l_stops_to_close.count LOOP
6112: --{
6113: IF l_debug_on THEN
6110: END IF;
6111: FOR i in 1..l_stops_to_close.count LOOP
6112: --{
6113: IF l_debug_on THEN
6114: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling program unit WSH_BATCH_PROCESS.Close_A_Stop');
6115: END IF;
6116: WSH_BATCH_PROCESS.Close_A_Stop (
6117: p_stop_id => l_stops_to_close(i),
6118: p_actual_date => NVL(WSH_PR_CRITERIA.g_actual_departure_date, SYSDATE),
6120: x_return_status => l_return_status );
6121:
6122: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6123: IF l_debug_on THEN
6124: WSH_DEBUG_SV.log(l_module_name,'Successfully closed stop',l_stops_to_close(i));
6125: END IF;
6126: l_closing_stop_success := l_closing_stop_success + 1;
6127: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6128: IF l_debug_on THEN
6125: END IF;
6126: l_closing_stop_success := l_closing_stop_success + 1;
6127: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6128: IF l_debug_on THEN
6129: WSH_DEBUG_SV.log(l_module_name,'Trip stop ', l_stops_to_close(i) ||' is closed with warnings');
6130: END IF;
6131: l_closing_stop_warning := l_closing_stop_warning + 1;
6132: WSH_BATCH_PROCESS.log_batch_messages(l_stops_sc_ids(i), NULL , l_stops_to_close(i) ,
6133: l_stop_location_ids(i), NULL);
6132: WSH_BATCH_PROCESS.log_batch_messages(l_stops_sc_ids(i), NULL , l_stops_to_close(i) ,
6133: l_stop_location_ids(i), NULL);
6134: ELSE
6135: IF l_debug_on THEN
6136: WSH_DEBUG_SV.log(l_module_name,'Failed to close stop ', l_stops_to_close(i));
6137: END IF;
6138: l_closing_stop_failure := l_closing_stop_failure + 1;
6139: WSH_BATCH_PROCESS.log_batch_messages(l_stops_sc_ids(i), NULL , l_stops_to_close(i) ,
6140: l_stop_location_ids(i), NULL);
6139: WSH_BATCH_PROCESS.log_batch_messages(l_stops_sc_ids(i), NULL , l_stops_to_close(i) ,
6140: l_stop_location_ids(i), NULL);
6141: END IF;
6142: IF l_debug_on THEN
6143: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
6144: END IF;
6145: COMMIT;
6146: --}
6147: END LOOP;
6146: --}
6147: END LOOP;
6148: --
6149: IF l_debug_on THEN
6150: WSH_DEBUG_SV.logmsg(l_module_name,'Successfully closed '|| l_closing_stop_success
6151: ||' stops' );
6152: WSH_DEBUG_SV.logmsg(l_module_name,'Closed '|| l_closing_stop_warning
6153: ||' stops with warnings' );
6154: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to close '|| l_closing_stop_failure
6148: --
6149: IF l_debug_on THEN
6150: WSH_DEBUG_SV.logmsg(l_module_name,'Successfully closed '|| l_closing_stop_success
6151: ||' stops' );
6152: WSH_DEBUG_SV.logmsg(l_module_name,'Closed '|| l_closing_stop_warning
6153: ||' stops with warnings' );
6154: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to close '|| l_closing_stop_failure
6155: ||' stops');
6156: END IF;
6150: WSH_DEBUG_SV.logmsg(l_module_name,'Successfully closed '|| l_closing_stop_success
6151: ||' stops' );
6152: WSH_DEBUG_SV.logmsg(l_module_name,'Closed '|| l_closing_stop_warning
6153: ||' stops with warnings' );
6154: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to close '|| l_closing_stop_failure
6155: ||' stops');
6156: END IF;
6157: --}
6158: ELSE
6156: END IF;
6157: --}
6158: ELSE
6159: IF l_debug_on THEN
6160: WSH_DEBUG_SV.log(l_module_name, 'No stops to close');
6161: END IF;
6162: END IF;
6163:
6164: WSH_UTIL_CORE.PrintDateTime;
6182: IF l_request_id = 0 THEN
6183: NULL;
6184: ELSE
6185: IF l_debug_on THEN
6186: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
6187: END IF;
6188: COMMIT;
6189: WSH_UTIL_CORE.PrintMsg('Interface request submitted for stops, request ID: '||to_char(l_request_id));
6190: END IF;
6213: ,'','','','','','','','','',''
6214: ,'','','','','','','','','',''
6215: ,'','','','','','','','','','' );
6216: IF l_debug_on THEN
6217: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
6218: END IF;
6219: COMMIT;
6220: END LOOP;
6221: CLOSE c_ap_batch;
6225: -- Submit Auto Ship Confirm Report
6226: --{
6227: IF l_sc_id_tab.COUNT > 0 THEN
6228: IF l_debug_on THEN
6229: WSH_DEBUG_SV.logmsg(l_module_name, 'Submitting Auto Ship Confirm Report');
6230: WSH_DEBUG_SV.log(l_module_name, 'l_sc_id_tab.COUNT', l_sc_id_tab.COUNT);
6231: END IF;
6232: WSH_UTIL_CORE.PrintDateTime;
6233: FOR i in l_sc_id_tab.FIRST..l_sc_id_tab.LAST
6226: --{
6227: IF l_sc_id_tab.COUNT > 0 THEN
6228: IF l_debug_on THEN
6229: WSH_DEBUG_SV.logmsg(l_module_name, 'Submitting Auto Ship Confirm Report');
6230: WSH_DEBUG_SV.log(l_module_name, 'l_sc_id_tab.COUNT', l_sc_id_tab.COUNT);
6231: END IF;
6232: WSH_UTIL_CORE.PrintDateTime;
6233: FOR i in l_sc_id_tab.FIRST..l_sc_id_tab.LAST
6234: LOOP
6245: ,'','','','','','','','','',''
6246: ,'','','','','','','','','',''
6247: ,'','','','','','','','','','' );
6248: IF l_debug_on THEN
6249: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting...');
6250: END IF;
6251: COMMIT;
6252: END LOOP;
6253: END IF;
6278: ELSIF l_dev_status <> 'NORMAL' THEN
6279: l_errors := l_errors + 1;
6280: END IF;
6281: IF l_debug_on THEN
6282: WSH_DEBUG_SV.logmsg(l_module_name,'Child Request id :' ||l_child_req_ids(j)||' Status :'||l_dev_status);
6283: END IF;
6284:
6285: FND_MESSAGE.SET_NAME('WSH','WSH_CHILD_REQ_STATUS');
6286: FND_MESSAGE.SET_TOKEN('REQ_ID', to_char(l_child_req_ids(j)));
6315:
6316: -- Call Inventory API to delete pick slip numbers from table as Inventory stores the numbers
6317: -- in physical table in case of Parallel Pick Release mode
6318: IF l_debug_on THEN
6319: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
6320: 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);
6321: END IF;
6322: WSH_PR_PICK_SLIP_NUMBER.Delete_Pick_Slip_Numbers ( p_batch_id => p_batch_id );
6323: IF l_debug_on THEN
6316: -- Call Inventory API to delete pick slip numbers from table as Inventory stores the numbers
6317: -- in physical table in case of Parallel Pick Release mode
6318: IF l_debug_on THEN
6319: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
6320: 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);
6321: END IF;
6322: WSH_PR_PICK_SLIP_NUMBER.Delete_Pick_Slip_Numbers ( p_batch_id => p_batch_id );
6323: IF l_debug_on THEN
6324: WSH_DEBUG_SV.logmsg(l_module_name,'Return from WSH_PR_PICK_SLIP_NUMBER.delete_pick_slip_numbers');
6320: 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);
6321: END IF;
6322: WSH_PR_PICK_SLIP_NUMBER.Delete_Pick_Slip_Numbers ( p_batch_id => p_batch_id );
6323: IF l_debug_on THEN
6324: WSH_DEBUG_SV.logmsg(l_module_name,'Return from WSH_PR_PICK_SLIP_NUMBER.delete_pick_slip_numbers');
6325: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
6326: END IF;
6327: --}
6328:
6321: END IF;
6322: WSH_PR_PICK_SLIP_NUMBER.Delete_Pick_Slip_Numbers ( p_batch_id => p_batch_id );
6323: IF l_debug_on THEN
6324: WSH_DEBUG_SV.logmsg(l_module_name,'Return from WSH_PR_PICK_SLIP_NUMBER.delete_pick_slip_numbers');
6325: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
6326: END IF;
6327: --}
6328:
6329: IF G_CONC_REQ = FND_API.G_TRUE THEN
6339:
6340: -- Call to DCP if profile is turned on.
6341: BEGIN --{
6342: IF l_debug_on THEN
6343: WSH_DEBUG_SV.log(l_module_name, 'l_check_dcp', l_check_dcp);
6344: END IF;
6345: IF NVL(l_check_dcp, -99) IN (1,2) THEN
6346: IF l_debug_on THEN
6347: WSH_DEBUG_SV.LOGMSG(L_MODULE_NAME, 'CALLING DCP ');
6343: WSH_DEBUG_SV.log(l_module_name, 'l_check_dcp', l_check_dcp);
6344: END IF;
6345: IF NVL(l_check_dcp, -99) IN (1,2) THEN
6346: IF l_debug_on THEN
6347: WSH_DEBUG_SV.LOGMSG(L_MODULE_NAME, 'CALLING DCP ');
6348: END IF;
6349: WSH_DCP_PVT.Check_Pick_Release(p_batch_id => p_batch_id);
6350: END IF;
6351: EXCEPTION
6350: END IF;
6351: EXCEPTION
6352: WHEN wsh_dcp_pvt.data_inconsistency_exception THEN
6353: IF l_debug_on THEN
6354: WSH_DEBUG_SV.logmsg(l_module_name,'data_inconsistency_exception');
6355: END IF;
6356: WHEN OTHERS THEN
6357: IF l_debug_on THEN
6358: WSH_DEBUG_SV.logmsg(l_module_name,'When Others');
6354: WSH_DEBUG_SV.logmsg(l_module_name,'data_inconsistency_exception');
6355: END IF;
6356: WHEN OTHERS THEN
6357: IF l_debug_on THEN
6358: WSH_DEBUG_SV.logmsg(l_module_name,'When Others');
6359: END IF;
6360: END; --}
6361:
6362: --
6366: IF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
6367: --{
6368: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6369: IF l_debug_on THEN
6370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender'
6371: ,WSH_DEBUG_SV.C_PROC_LEVEL);
6372: END IF;
6373: WSH_UTIL_CORE.Process_stops_for_load_tender (
6374: p_reset_flags => TRUE,
6367: --{
6368: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6369: IF l_debug_on THEN
6370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender'
6371: ,WSH_DEBUG_SV.C_PROC_LEVEL);
6372: END IF;
6373: WSH_UTIL_CORE.Process_stops_for_load_tender (
6374: p_reset_flags => TRUE,
6375: x_return_status => l_return_status );
6373: WSH_UTIL_CORE.Process_stops_for_load_tender (
6374: p_reset_flags => TRUE,
6375: x_return_status => l_return_status );
6376: IF l_debug_on THEN
6377: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6378: END IF;
6379: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
6380: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6381: IF G_CONC_REQ = FND_API.G_TRUE THEN
6410: << End_Release_Batch >>
6411:
6412: --
6413: IF l_debug_on THEN
6414: WSH_DEBUG_SV.logmsg(l_module_name,'ERRBUF :'||errbuf ||' RETCODE :'||retcode);
6415: WSH_DEBUG_SV.pop(l_module_name);
6416: END IF;
6417: --
6418:
6411:
6412: --
6413: IF l_debug_on THEN
6414: WSH_DEBUG_SV.logmsg(l_module_name,'ERRBUF :'||errbuf ||' RETCODE :'||retcode);
6415: WSH_DEBUG_SV.pop(l_module_name);
6416: END IF;
6417: --
6418:
6419: EXCEPTION
6505: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6506: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6507: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6508: IF l_debug_on THEN
6509: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6510: END IF;
6511: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6512: x_return_status => l_return_status);
6513: IF l_debug_on THEN
6510: END IF;
6511: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6512: x_return_status => l_return_status);
6513: IF l_debug_on THEN
6514: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6515: END IF;
6516: END IF;
6517: END IF;
6518: --
6516: END IF;
6517: END IF;
6518: --
6519: IF l_debug_on THEN
6520: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN');
6521: END IF;
6522: --
6523: WHEN OTHERS THEN
6524: --
6599: G_ONLINE_PICK_RELEASE_RESULT := 'F';
6600: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
6601: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
6602: IF l_debug_on THEN
6603: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
6604: END IF;
6605: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6606: x_return_status => l_return_status);
6607: IF l_debug_on THEN
6604: END IF;
6605: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
6606: x_return_status => l_return_status);
6607: IF l_debug_on THEN
6608: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6609: END IF;
6610: END IF;
6611: END IF;
6612: --
6610: END IF;
6611: END IF;
6612: --
6613: IF l_debug_on THEN
6614: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured.
6615: Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6616: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6617: END IF;
6618: --
6611: END IF;
6612: --
6613: IF l_debug_on THEN
6614: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured.
6615: Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6616: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6617: END IF;
6618: --
6619: END Release_Batch;
6612: --
6613: IF l_debug_on THEN
6614: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured.
6615: Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6616: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6617: END IF;
6618: --
6619: END Release_Batch;
6620:
6754: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6755: --
6756: IF l_debug_on IS NULL
6757: THEN
6758: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6759: END IF;
6760:
6761: -- Read the Value from REQUEST_DATA. Based on this value, we will know
6762: -- if the Process is restarted after child processes are complete
6772: l_request_data := FND_CONC_GLOBAL.Request_Data;
6773: l_mode := SUBSTR(l_request_data, INSTR(l_request_data,':',1,2)+1, LENGTH(l_request_data));
6774:
6775: IF l_debug_on THEN
6776: WSH_DEBUG_SV.push(l_module_name);
6777: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6778: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6779: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6780: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6773: l_mode := SUBSTR(l_request_data, INSTR(l_request_data,':',1,2)+1, LENGTH(l_request_data));
6774:
6775: IF l_debug_on THEN
6776: WSH_DEBUG_SV.push(l_module_name);
6777: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6778: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6779: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6780: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6781: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6774:
6775: IF l_debug_on THEN
6776: WSH_DEBUG_SV.push(l_module_name);
6777: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6778: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6779: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6780: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6781: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6782: p_ship_confirm_rule_id);
6775: IF l_debug_on THEN
6776: WSH_DEBUG_SV.push(l_module_name);
6777: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6778: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6779: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6780: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6781: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6782: p_ship_confirm_rule_id);
6783: WSH_DEBUG_SV.log(l_module_name,'p_Actual_Departure_date',
6776: WSH_DEBUG_SV.push(l_module_name);
6777: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6778: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6779: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6780: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6781: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6782: p_ship_confirm_rule_id);
6783: WSH_DEBUG_SV.log(l_module_name,'p_Actual_Departure_date',
6784: p_actual_departure_date);
6777: WSH_DEBUG_SV.log(l_module_name,'P_RULE_ID',P_RULE_ID);
6778: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_PREFIX',P_BATCH_PREFIX);
6779: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6780: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6781: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6782: p_ship_confirm_rule_id);
6783: WSH_DEBUG_SV.log(l_module_name,'p_Actual_Departure_date',
6784: p_actual_departure_date);
6785: WSH_DEBUG_SV.log(l_module_name,'l_mode',l_mode);
6779: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
6780: WSH_DEBUG_SV.log(l_module_name,'P_NUM_WORKERS',P_NUM_WORKERS);
6781: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6782: p_ship_confirm_rule_id);
6783: WSH_DEBUG_SV.log(l_module_name,'p_Actual_Departure_date',
6784: p_actual_departure_date);
6785: WSH_DEBUG_SV.log(l_module_name,'l_mode',l_mode);
6786: END IF;
6787:
6781: WSH_DEBUG_SV.log(l_module_name,'p_Ship_confirm_rule_id',
6782: p_ship_confirm_rule_id);
6783: WSH_DEBUG_SV.log(l_module_name,'p_Actual_Departure_date',
6784: p_actual_departure_date);
6785: WSH_DEBUG_SV.log(l_module_name,'l_mode',l_mode);
6786: END IF;
6787:
6788: IF l_mode IS NULL THEN --{
6789:
6808: WSH_UTIL_CORE.PrintMsg('Rule ' || p_rule_id || ' does not exist or has expired');
6809: CLOSE c_RuleInfo;
6810: --
6811: IF l_debug_on THEN
6812: wsh_Debug_sv.pop(l_module_name);
6813: END IF;
6814: --
6815: RETURN;
6816: --
6827: FETCH c_CalCode INTO v_CalCode;
6828: CLOSE c_CalCode;
6829: --
6830: IF l_debug_on THEN
6831: wsh_debug_sv.log(l_module_name, 'Org ID for Rule', v_RuleInfo.organization_id);
6832: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6833: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6834: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6835: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6828: CLOSE c_CalCode;
6829: --
6830: IF l_debug_on THEN
6831: wsh_debug_sv.log(l_module_name, 'Org ID for Rule', v_RuleInfo.organization_id);
6832: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6833: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6834: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6835: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6836: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6829: --
6830: IF l_debug_on THEN
6831: wsh_debug_sv.log(l_module_name, 'Org ID for Rule', v_RuleInfo.organization_id);
6832: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6833: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6834: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6835: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6836: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6837: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6830: IF l_debug_on THEN
6831: wsh_debug_sv.log(l_module_name, 'Org ID for Rule', v_RuleInfo.organization_id);
6832: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6833: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6834: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6835: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6836: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6837: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6838: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6831: wsh_debug_sv.log(l_module_name, 'Org ID for Rule', v_RuleInfo.organization_id);
6832: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6833: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6834: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6835: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6836: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6837: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6838: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6839: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6832: wsh_debug_sv.log(l_module_name, 'v_calCode', v_CalCode);
6833: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6834: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6835: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6836: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6837: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6838: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6839: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6840: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6833: wsh_debug_sv.log(l_module_name, 'sch_start_days', v_RuleInfo.sch_start_days);
6834: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6835: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6836: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6837: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6838: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6839: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6840: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6841: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6834: wsh_debug_sv.log(l_module_name, 'sch_start_hours', v_RuleInfo.sch_start_hours);
6835: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6836: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6837: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6838: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6839: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6840: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6841: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6842: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6835: wsh_debug_sv.log(l_module_name, 'sch_end_days', v_RuleInfo.sch_end_days);
6836: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6837: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6838: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6839: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6840: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6841: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6842: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6843: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6836: wsh_debug_sv.log(l_module_name, 'sch_end_hours', v_RuleInfo.sch_end_hours);
6837: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6838: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6839: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6840: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6841: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6842: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6843: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6844: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6837: wsh_debug_sv.log(l_module_name, 'req_start_days', v_RuleInfo.req_start_days);
6838: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6839: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6840: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6841: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6842: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6843: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6844: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6845: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6838: wsh_debug_sv.log(l_module_name, 'req_start_hours', v_RuleInfo.req_start_hours);
6839: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6840: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6841: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6842: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6843: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6844: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6845: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6846: wsh_Debug_sv.log(l_module_name, 'Crossdock_Criteria_id', v_RuleInfo.crossdock_criteria_id); --X-dock
6839: wsh_debug_sv.log(l_module_name, 'req_end_days', v_RuleInfo.req_end_days);
6840: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6841: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6842: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6843: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6844: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6845: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6846: wsh_Debug_sv.log(l_module_name, 'Crossdock_Criteria_id', v_RuleInfo.crossdock_criteria_id); --X-dock
6847: wsh_Debug_sv.log(l_module_name, 'Dynamic_Replenishment_Flag', v_RuleInfo.dynamic_replenishment_flag); --Bug 10306215
6840: wsh_debug_sv.log(l_module_name, 'req_end_hours', v_RuleInfo.req_end_hours);
6841: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6842: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6843: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6844: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6845: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6846: wsh_Debug_sv.log(l_module_name, 'Crossdock_Criteria_id', v_RuleInfo.crossdock_criteria_id); --X-dock
6847: wsh_Debug_sv.log(l_module_name, 'Dynamic_Replenishment_Flag', v_RuleInfo.dynamic_replenishment_flag); --Bug 10306215
6848: --
6841: wsh_Debug_sv.log(l_module_name, 'from_scheduled_ship_date', v_RuleInfo.from_scheduled_ship_date);
6842: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6843: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6844: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6845: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6846: wsh_Debug_sv.log(l_module_name, 'Crossdock_Criteria_id', v_RuleInfo.crossdock_criteria_id); --X-dock
6847: wsh_Debug_sv.log(l_module_name, 'Dynamic_Replenishment_Flag', v_RuleInfo.dynamic_replenishment_flag); --Bug 10306215
6848: --
6849: END IF;
6842: wsh_Debug_sv.log(l_module_name, 'to_scheduled_ship_date', v_RuleInfo.to_scheduled_ship_date);
6843: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6844: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6845: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6846: wsh_Debug_sv.log(l_module_name, 'Crossdock_Criteria_id', v_RuleInfo.crossdock_criteria_id); --X-dock
6847: wsh_Debug_sv.log(l_module_name, 'Dynamic_Replenishment_Flag', v_RuleInfo.dynamic_replenishment_flag); --Bug 10306215
6848: --
6849: END IF;
6850: --
6843: wsh_Debug_sv.log(l_module_name, 'from_requested_date', v_RuleInfo.from_requested_date);
6844: wsh_Debug_sv.log(l_module_name, 'to_requested_date', v_RuleInfo.to_requested_date);
6845: wsh_Debug_sv.log(l_module_name, 'Allocation_Method', v_RuleInfo.allocation_method); -- X-dock
6846: wsh_Debug_sv.log(l_module_name, 'Crossdock_Criteria_id', v_RuleInfo.crossdock_criteria_id); --X-dock
6847: wsh_Debug_sv.log(l_module_name, 'Dynamic_Replenishment_Flag', v_RuleInfo.dynamic_replenishment_flag); --Bug 10306215
6848: --
6849: END IF;
6850: --
6851: IF v_RuleInfo.sch_start_days IS NOT NULL THEN
6876: l_reqStartDate := NVL(l_reqStartDate, v_RuleInfo.from_requested_date);
6877: l_reqEndDate := NVL(l_reqEndDate, v_RuleInfo.to_requested_date);
6878: --
6879: IF l_debug_on THEN
6880: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship start date', l_schStartDate);
6881: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship end date', l_schEndDate);
6882: wsh_debug_sv.log(l_module_name, 'calc. requested start date', l_reqStartDate);
6883: wsh_debug_sv.log(l_module_name, 'calc. requested end date', l_reqEndDate);
6884: END IF;
6877: l_reqEndDate := NVL(l_reqEndDate, v_RuleInfo.to_requested_date);
6878: --
6879: IF l_debug_on THEN
6880: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship start date', l_schStartDate);
6881: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship end date', l_schEndDate);
6882: wsh_debug_sv.log(l_module_name, 'calc. requested start date', l_reqStartDate);
6883: wsh_debug_sv.log(l_module_name, 'calc. requested end date', l_reqEndDate);
6884: END IF;
6885: --
6878: --
6879: IF l_debug_on THEN
6880: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship start date', l_schStartDate);
6881: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship end date', l_schEndDate);
6882: wsh_debug_sv.log(l_module_name, 'calc. requested start date', l_reqStartDate);
6883: wsh_debug_sv.log(l_module_name, 'calc. requested end date', l_reqEndDate);
6884: END IF;
6885: --
6886: IF l_debug_on THEN
6879: IF l_debug_on THEN
6880: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship start date', l_schStartDate);
6881: wsh_debug_sv.log(l_module_name, 'calc. scheduled ship end date', l_schEndDate);
6882: wsh_debug_sv.log(l_module_name, 'calc. requested start date', l_reqStartDate);
6883: wsh_debug_sv.log(l_module_name, 'calc. requested end date', l_reqEndDate);
6884: END IF;
6885: --
6886: IF l_debug_on THEN
6887: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.INSERT_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
6883: wsh_debug_sv.log(l_module_name, 'calc. requested end date', l_reqEndDate);
6884: END IF;
6885: --
6886: IF l_debug_on THEN
6887: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.INSERT_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
6888: END IF;
6889:
6890: -- bug5117876, insert statement is replace with the following call
6891: WSH_PICKING_BATCHES_PKG.Insert_Row(
6966: p_client_id => v_RuleInfo.CLIENT_ID, -- LSP PROJECT
6967: p_dynamic_replenishment_flag => v_RuleInfo.DYNAMIC_REPLENISHMENT_FLAG); --Bug 10306215
6968: --
6969: IF l_debug_on THEN
6970: WSH_DEBUG_SV.log(l_module_name, 'BATCH NAME ', L_BATCH_NAME);
6971: WSH_DEBUG_SV.log(l_module_name, 'BATCH_ID ', L_BATCH_ID);
6972: END IF;
6973: --
6974:
6967: p_dynamic_replenishment_flag => v_RuleInfo.DYNAMIC_REPLENISHMENT_FLAG); --Bug 10306215
6968: --
6969: IF l_debug_on THEN
6970: WSH_DEBUG_SV.log(l_module_name, 'BATCH NAME ', L_BATCH_NAME);
6971: WSH_DEBUG_SV.log(l_module_name, 'BATCH_ID ', L_BATCH_ID);
6972: END IF;
6973: --
6974:
6975: ELSE
6981: --Pick Release the batch
6982: Release_Batch(errbuf, retcode, l_batch_id,p_log_level, NVL(p_num_workers,1)); -- log level fix
6983: --
6984: IF l_debug_on THEN
6985: WSH_DEBUG_SV.log(l_module_name,'ERRBUF',errbuf);
6986: WSH_DEBUG_SV.log(l_module_name,'RETCODE',retcode);
6987: WSH_DEBUG_SV.pop(l_module_name);
6988: END IF;
6989: --
6982: Release_Batch(errbuf, retcode, l_batch_id,p_log_level, NVL(p_num_workers,1)); -- log level fix
6983: --
6984: IF l_debug_on THEN
6985: WSH_DEBUG_SV.log(l_module_name,'ERRBUF',errbuf);
6986: WSH_DEBUG_SV.log(l_module_name,'RETCODE',retcode);
6987: WSH_DEBUG_SV.pop(l_module_name);
6988: END IF;
6989: --
6990: EXCEPTION
6983: --
6984: IF l_debug_on THEN
6985: WSH_DEBUG_SV.log(l_module_name,'ERRBUF',errbuf);
6986: WSH_DEBUG_SV.log(l_module_name,'RETCODE',retcode);
6987: WSH_DEBUG_SV.pop(l_module_name);
6988: END IF;
6989: --
6990: EXCEPTION
6991: --
6996: l_ret_code := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING','Release_Batch_SRS');
6997: errbuf := 'Pick Selection List Generation SRS completed with warning';
6998: retcode := '1';
6999: IF l_debug_on THEN
7000: WSH_DEBUG_SV.pop(l_module_name);
7001: END IF;
7002:
7003: WHEN OTHERS THEN
7004: --
7012: retcode := '2';
7013: END IF;
7014: --
7015: IF l_debug_on THEN
7016: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7017: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7018: END IF;
7019: --
7020: END Release_Batch_SRS;
7013: END IF;
7014: --
7015: IF l_debug_on THEN
7016: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7017: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7018: END IF;
7019: --
7020: END Release_Batch_SRS;
7021:
7051: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
7052: --
7053: IF l_debug_on IS NULL
7054: THEN
7055: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7056: END IF;
7057: --
7058: IF l_debug_on THEN
7059: WSH_DEBUG_SV.push(l_module_name);
7055: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7056: END IF;
7057: --
7058: IF l_debug_on THEN
7059: WSH_DEBUG_SV.push(l_module_name);
7060: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
7061: END IF;
7062: --
7063: G_CONC_REQ := FND_API.G_FALSE;
7056: END IF;
7057: --
7058: IF l_debug_on THEN
7059: WSH_DEBUG_SV.push(l_module_name);
7060: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
7061: END IF;
7062: --
7063: G_CONC_REQ := FND_API.G_FALSE;
7064: Release_Batch(l_dummy1,l_dummy2,p_batch_id, p_num_workers => 1);
7066: p_pick_result := G_ONLINE_PICK_RELEASE_RESULT ;
7067: p_pick_skip := G_ONLINE_PICK_RELEASE_SKIP; /*2432800*/
7068: --
7069: IF l_debug_on THEN
7070: WSH_DEBUG_SV.pop(l_module_name);
7071: END IF;
7072: --
7073: END Online_Release;
7074:
7301: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
7302: --
7303: IF l_debug_on IS NULL
7304: THEN
7305: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7306: END IF;
7307: --
7308: IF l_debug_on THEN
7309: WSH_DEBUG_SV.push(l_module_name);
7305: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7306: END IF;
7307: --
7308: IF l_debug_on THEN
7309: WSH_DEBUG_SV.push(l_module_name);
7310: WSH_DEBUG_SV.log(l_module_name,'TRIP_IDS.COUNT',p_trip_ids.count);
7311: WSH_DEBUG_SV.log(l_module_name,'STOP_IDS.COUNT',p_stop_ids.count);
7312: WSH_DEBUG_SV.log(l_module_name,'DELIVERY_IDS.COUNT',p_delivery_ids.count);
7313: WSH_DEBUG_SV.log(l_module_name,'DETAIL_IDS.COUNT',p_detail_ids.count);
7306: END IF;
7307: --
7308: IF l_debug_on THEN
7309: WSH_DEBUG_SV.push(l_module_name);
7310: WSH_DEBUG_SV.log(l_module_name,'TRIP_IDS.COUNT',p_trip_ids.count);
7311: WSH_DEBUG_SV.log(l_module_name,'STOP_IDS.COUNT',p_stop_ids.count);
7312: WSH_DEBUG_SV.log(l_module_name,'DELIVERY_IDS.COUNT',p_delivery_ids.count);
7313: WSH_DEBUG_SV.log(l_module_name,'DETAIL_IDS.COUNT',p_detail_ids.count);
7314: l_log_level := 1;
7307: --
7308: IF l_debug_on THEN
7309: WSH_DEBUG_SV.push(l_module_name);
7310: WSH_DEBUG_SV.log(l_module_name,'TRIP_IDS.COUNT',p_trip_ids.count);
7311: WSH_DEBUG_SV.log(l_module_name,'STOP_IDS.COUNT',p_stop_ids.count);
7312: WSH_DEBUG_SV.log(l_module_name,'DELIVERY_IDS.COUNT',p_delivery_ids.count);
7313: WSH_DEBUG_SV.log(l_module_name,'DETAIL_IDS.COUNT',p_detail_ids.count);
7314: l_log_level := 1;
7315: END IF;
7308: IF l_debug_on THEN
7309: WSH_DEBUG_SV.push(l_module_name);
7310: WSH_DEBUG_SV.log(l_module_name,'TRIP_IDS.COUNT',p_trip_ids.count);
7311: WSH_DEBUG_SV.log(l_module_name,'STOP_IDS.COUNT',p_stop_ids.count);
7312: WSH_DEBUG_SV.log(l_module_name,'DELIVERY_IDS.COUNT',p_delivery_ids.count);
7313: WSH_DEBUG_SV.log(l_module_name,'DETAIL_IDS.COUNT',p_detail_ids.count);
7314: l_log_level := 1;
7315: END IF;
7316:
7309: WSH_DEBUG_SV.push(l_module_name);
7310: WSH_DEBUG_SV.log(l_module_name,'TRIP_IDS.COUNT',p_trip_ids.count);
7311: WSH_DEBUG_SV.log(l_module_name,'STOP_IDS.COUNT',p_stop_ids.count);
7312: WSH_DEBUG_SV.log(l_module_name,'DELIVERY_IDS.COUNT',p_delivery_ids.count);
7313: WSH_DEBUG_SV.log(l_module_name,'DETAIL_IDS.COUNT',p_detail_ids.count);
7314: l_log_level := 1;
7315: END IF;
7316:
7317: --OTM R12
7347:
7348: END LOOP;
7349:
7350: IF l_debug_on THEN
7351: WSH_DEBUG_SV.log(l_module_name,'COUNT FOR THE DETAIL_IDS TO IGNORE PLAN',l_detail_ids.COUNT);
7352: END IF;
7353:
7354: IF (l_detail_ids.COUNT > 0) THEN
7355:
7359: p_action_code => 'IGNORE_PLAN',
7360: x_return_status => l_return_status);
7361:
7362: IF l_debug_on THEN
7363: wsh_debug_sv.log(l_module_name,'Return Status After Calling change_ignoreplan_status ',l_return_status);
7364: END IF;
7365:
7366: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7367:
7366: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7367:
7368: --
7369: IF l_debug_on THEN
7370: WSH_DEBUG_SV.logmsg(l_module_name,'ERROR IN WSH_TP_RELEASE.CHANGE_IGNOREPLAN_STATUS');
7371: END IF;
7372: --
7373: RAISE api_return_fail;
7374:
7429:
7430: END IF;
7431:
7432: IF l_debug_on THEN
7433: WSH_DEBUG_SV.log(l_module_name,'ship_confirm_rule_id',l_param_info.ship_confirm_rule_id);
7434: END IF;
7435: END IF;
7436: ELSE
7437: --Non of pick release entity passed.
7438: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7439: FND_MESSAGE.SET_NAME('WSH','WSH_PR_NULL_IDS');
7440: WSH_UTIL_CORE.Add_Message(x_return_status);
7441: IF l_debug_on THEN
7442: WSH_DEBUG_SV.pop(l_module_name);
7443: END IF;
7444: --
7445: ROLLBACK; -- 2746314
7446: RETURN;
7562: FETCH c_batch_info INTO l_batch_rec;
7563: IF c_batch_info%NOTFOUND THEN
7564: --{
7565: IF l_debug_on THEN
7566: wsh_Debug_sv.log(l_module_name, 'dynamic replenishment (WMS), Invalid batch Id', p_batch_id);
7567: WSH_DEBUG_SV.pop(l_module_name);
7568: END IF;
7569: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7570: CLOSE c_batch_info;
7563: IF c_batch_info%NOTFOUND THEN
7564: --{
7565: IF l_debug_on THEN
7566: wsh_Debug_sv.log(l_module_name, 'dynamic replenishment (WMS), Invalid batch Id', p_batch_id);
7567: WSH_DEBUG_SV.pop(l_module_name);
7568: END IF;
7569: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7570: CLOSE c_batch_info;
7571: RETURN;
7573: END IF;
7574: CLOSE c_batch_info;
7575: --
7576: IF l_debug_on THEN
7577: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.INSERT_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
7578: END IF;
7579: --
7580: WSH_PICKING_BATCHES_PKG.Insert_Row(
7581: X_Rowid => l_rowid,
7663: ELSE
7664: --
7665: --
7666: IF l_debug_on THEN
7667: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.INSERT_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
7668: END IF;
7669: --
7670: WSH_PICKING_BATCHES_PKG.Insert_Row(
7671: X_Rowid => l_rowid,
7762: IF sql%notfound then
7763: l_detail_id := p_detail_ids(1); --Bug#: 2870731
7764: IF l_debug_on THEN
7765: for i in 1..p_detail_ids.count loop
7766: WSH_DEBUG_SV.logmsg(l_module_name,'Unreleased delivery_detail -> '||p_detail_ids(i),WSH_DEBUG_SV.C_PROC_LEVEL);
7767: end loop;
7768: END IF;
7769: RAISE INVALID_RELEASED_STATUS;
7770: END IF;
7770: END IF;
7771:
7772: IF l_debug_on THEN
7773: for i in 1..p_detail_ids.count loop
7774: 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);
7775: end loop;
7776:
7777: END IF;
7778:
7836: END IF;
7837:
7838:
7839: IF l_debug_on THEN
7840: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.SUBMIT_RELEASE_REQUEST',WSH_DEBUG_SV.C_PROC_LEVEL);
7841: END IF;
7842: --Submit request to release batch created.
7843: x_request_ids(l_index) := WSH_PICKING_BATCHES_PKG.Submit_Release_Request(
7844: p_batch_id => l_batch_id,
7869: l_index := p_trip_ids.NEXT(l_index);
7870: l_trip_id := p_trip_ids(l_index);
7871: --
7872: IF l_debug_on THEN
7873: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7874: END IF;
7875: --
7876: l_name := WSH_TRIPS_PVT.Get_Name(l_trip_id);
7877: ELSIF l_stop_id IS NOT NULL THEN
7879: l_index := p_stop_ids.NEXT(l_index);
7880: l_stop_id := p_stop_ids(l_index);
7881: --
7882: IF l_debug_on THEN
7883: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7884: END IF;
7885: --
7886: l_name := WSH_TRIP_STOPS_PVT.Get_Name(l_stop_id);
7887: ELSIF l_delivery_id IS NOT NULL THEN
7889: l_index := p_delivery_ids.NEXT(l_index);
7890: l_delivery_id := p_delivery_ids(l_index);
7891: --
7892: IF l_debug_on THEN
7893: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7894: END IF;
7895: --
7896: l_name := WSH_NEW_DELIVERIES_PVT.Get_Name(l_delivery_id);
7897: ELSE
7921:
7922: END IF;
7923: --
7924: IF l_debug_on THEN
7925: WSH_DEBUG_SV.pop(l_module_name);
7926: END IF;
7927: --
7928: EXCEPTION
7929: --OTM R12
7929: --OTM R12
7930: WHEN api_return_fail THEN
7931: x_return_status := l_return_status;
7932: IF l_debug_on THEN
7933: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
7934: WSH_DEBUG_SV.pop(l_module_name);
7935: END IF;
7936: --END OTM R12
7937:
7930: WHEN api_return_fail THEN
7931: x_return_status := l_return_status;
7932: IF l_debug_on THEN
7933: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
7934: WSH_DEBUG_SV.pop(l_module_name);
7935: END IF;
7936: --END OTM R12
7937:
7938: WHEN INVALID_RELEASED_STATUS THEN
7949: --
7950: -- Debug Statements
7951: --
7952: IF l_debug_on THEN
7953: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_RELEASED_STATUS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7954: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_RELEASED_STATUS');
7955: END IF;
7956: --
7957: return;
7950: -- Debug Statements
7951: --
7952: IF l_debug_on THEN
7953: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_RELEASED_STATUS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7954: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_RELEASED_STATUS');
7955: END IF;
7956: --
7957: return;
7958:
7978: --
7979: -- Debug Statements
7980: --
7981: IF l_debug_on THEN
7982: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_ENTITY_STATUS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7983: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ENTITY_STATUS');
7984: END IF;
7985: --
7986: return;
7979: -- Debug Statements
7980: --
7981: IF l_debug_on THEN
7982: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_ENTITY_STATUS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7983: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ENTITY_STATUS');
7984: END IF;
7985: --
7986: return;
7987:
8012: --
8013: -- Debug Statements
8014: --
8015: IF l_debug_on THEN
8016: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8017: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8018: END IF;
8019: --
8020: END Launch_Pick_Release;
8013: -- Debug Statements
8014: --
8015: IF l_debug_on THEN
8016: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8017: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8018: END IF;
8019: --
8020: END Launch_Pick_Release;
8021:
8120: --
8121: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8122: --
8123: IF l_debug_on IS NULL THEN
8124: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8125: END IF;
8126: --
8127: IF l_debug_on THEN
8128: WSH_DEBUG_SV.push(l_module_name);
8124: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8125: END IF;
8126: --
8127: IF l_debug_on THEN
8128: WSH_DEBUG_SV.push(l_module_name);
8129: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
8130: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8131: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8132: -- HW OPMCONV - Added requested_qty2
8125: END IF;
8126: --
8127: IF l_debug_on THEN
8128: WSH_DEBUG_SV.push(l_module_name);
8129: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
8130: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8131: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8132: -- HW OPMCONV - Added requested_qty2
8133: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8126: --
8127: IF l_debug_on THEN
8128: WSH_DEBUG_SV.push(l_module_name);
8129: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
8130: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8131: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8132: -- HW OPMCONV - Added requested_qty2
8133: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8134: -- Bug 4775539
8127: IF l_debug_on THEN
8128: WSH_DEBUG_SV.push(l_module_name);
8129: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
8130: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8131: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8132: -- HW OPMCONV - Added requested_qty2
8133: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8134: -- Bug 4775539
8135: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8129: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
8130: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8131: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8132: -- HW OPMCONV - Added requested_qty2
8133: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8134: -- Bug 4775539
8135: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8136: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8137: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8131: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8132: -- HW OPMCONV - Added requested_qty2
8133: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8134: -- Bug 4775539
8135: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8136: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8137: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8138: -- muom
8139: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY2',P_SRC_REQUESTED_QUANTITY2);
8132: -- HW OPMCONV - Added requested_qty2
8133: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8134: -- Bug 4775539
8135: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8136: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8137: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8138: -- muom
8139: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY2',P_SRC_REQUESTED_QUANTITY2);
8140: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
8133: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8134: -- Bug 4775539
8135: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8136: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8137: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8138: -- muom
8139: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY2',P_SRC_REQUESTED_QUANTITY2);
8140: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
8141: END IF;
8135: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8136: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8137: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8138: -- muom
8139: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY2',P_SRC_REQUESTED_QUANTITY2);
8140: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
8141: END IF;
8142: --
8143: l_demand_exists := FALSE;
8136: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8137: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8138: -- muom
8139: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY2',P_SRC_REQUESTED_QUANTITY2);
8140: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
8141: END IF;
8142: --
8143: l_demand_exists := FALSE;
8144: l_hash_exists := FALSE;
8164: base => g_hash_base,
8165: hash_size => g_hash_size );
8166:
8167: IF l_debug_on THEN
8168: WSH_DEBUG_SV.logmsg(l_module_name, 'L_HASH_STRING :'||l_hash_string||' , L_HASH_VALUE :'||l_hash_value);
8169: END IF;
8170:
8171: --Scan through global demand table and find out if reservation exists for input header and line.
8172: WHILE NOT l_hash_exists LOOP
8177: (nvl(g_demand_table(l_hash_value).locator_id,-99) = nvl(WSH_PR_CRITERIA.g_from_locator,-99))) THEN
8178: l_demand_exists := TRUE;
8179: --
8180: IF l_debug_on THEN
8181: WSH_DEBUG_SV.logmsg(l_module_name, 'FOUND THE RESERVATION DETAILS' );
8182: WSH_DEBUG_SV.log(l_module_name,'L_HASH_VALUE',L_HASH_VALUE);
8183: END IF;
8184: --
8185: EXIT;
8178: l_demand_exists := TRUE;
8179: --
8180: IF l_debug_on THEN
8181: WSH_DEBUG_SV.logmsg(l_module_name, 'FOUND THE RESERVATION DETAILS' );
8182: WSH_DEBUG_SV.log(l_module_name,'L_HASH_VALUE',L_HASH_VALUE);
8183: END IF;
8184: --
8185: EXIT;
8186: ELSE
8191: ELSE
8192: -- Hash value does not exist, so this is a new hash value
8193: l_hash_exists := TRUE;
8194: IF l_debug_on THEN
8195: WSH_DEBUG_SV.log(l_module_name,'L_HASH_VALUE',L_HASH_VALUE);
8196: END IF;
8197: END IF;
8198: END LOOP;
8199: --
8202: -- Bug 4775539
8203: IF (WSH_PR_CRITERIA.g_existing_rsvs_only_flag = 'Y') THEN
8204: --Get the reservation details for header and line.
8205: IF l_debug_on THEN
8206: WSH_DEBUG_SV.logmsg(l_module_name, 'FETCHING RESERVATION DETAILS' );
8207: END IF;
8208: --
8209: OPEN reservation_quantity(p_demand_source_header_id, p_demand_source_line_id);
8210: FETCH reservation_quantity
8239:
8240: --
8241: IF l_debug_on THEN
8242: -- muom
8243: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATION QUANTITY '||l_reservation_quantity||' RESERVATION QUANTITY2 '||l_reservation_quantity2 );
8244: WSH_DEBUG_SV.logmsg(l_module_name, 'UNALLOCATED QUANTITY '||l_unallocated_quantity||' UNALLOCATED QUANTITY2 '||l_unallocated_quantity2 );
8245: END IF;
8246: --
8247: l_reservation_quantity := l_reservation_quantity - nvl(l_unallocated_quantity, 0);
8240: --
8241: IF l_debug_on THEN
8242: -- muom
8243: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATION QUANTITY '||l_reservation_quantity||' RESERVATION QUANTITY2 '||l_reservation_quantity2 );
8244: WSH_DEBUG_SV.logmsg(l_module_name, 'UNALLOCATED QUANTITY '||l_unallocated_quantity||' UNALLOCATED QUANTITY2 '||l_unallocated_quantity2 );
8245: END IF;
8246: --
8247: l_reservation_quantity := l_reservation_quantity - nvl(l_unallocated_quantity, 0);
8248: --To Make sure that reservation quantity is NOT less than Zero
8271: -- muom
8272: l_total_requested_quantity2 := p_src_requested_quantity2;
8273:
8274: IF l_debug_on THEN --Bugfix 8557457
8275: WSH_DEBUG_SV.logmsg(l_module_name,'L_TOTAL_REQUESTED_QUANTITY '||l_total_requested_quantity);
8276: END IF;
8277:
8278:
8279: --Get the other reservation details for header and line.
8277:
8278:
8279: --Get the other reservation details for header and line.
8280: IF l_debug_on THEN
8281: WSH_DEBUG_SV.logmsg(l_module_name, 'FETCHING OTHER RESERVATION DETAILS' );
8282: END IF;
8283: --
8284: OPEN discard_reservation_quantity(p_demand_source_header_id, p_demand_source_line_id);
8285: FETCH discard_reservation_quantity
8305: -- HW OPMCONV - Added qty2
8306: g_demand_table(l_hash_value).reserved_quantity2 := l_reservation_quantity2;
8307: --
8308: IF l_debug_on THEN
8309: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE IS '||L_RESERVATION_QUANTITY );
8310: -- HW OPMCONV - print qty2
8311: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE IS '||L_RESERVATION_QUANTITY2 );
8312: END IF;
8313: --
8307: --
8308: IF l_debug_on THEN
8309: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE IS '||L_RESERVATION_QUANTITY );
8310: -- HW OPMCONV - print qty2
8311: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE IS '||L_RESERVATION_QUANTITY2 );
8312: END IF;
8313: --
8314: IF (g_demand_table(l_hash_value).reserved_quantity < 0) THEN
8315: g_demand_table(l_hash_value).reserved_quantity := 0;
8342: END IF;
8343: --
8344: IF l_debug_on THEN
8345: -- muom
8346: WSH_DEBUG_SV.logmsg(l_module_name, 'FULFILL BASE IS '||X_FULFILL_BASE );
8347: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE '||X_RESULT );
8348: -- HW OPMCONV - Print qty2
8349: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE '||X_RESULT2 );
8350: WSH_DEBUG_SV.pop(l_module_name);
8343: --
8344: IF l_debug_on THEN
8345: -- muom
8346: WSH_DEBUG_SV.logmsg(l_module_name, 'FULFILL BASE IS '||X_FULFILL_BASE );
8347: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE '||X_RESULT );
8348: -- HW OPMCONV - Print qty2
8349: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE '||X_RESULT2 );
8350: WSH_DEBUG_SV.pop(l_module_name);
8351: END IF;
8345: -- muom
8346: WSH_DEBUG_SV.logmsg(l_module_name, 'FULFILL BASE IS '||X_FULFILL_BASE );
8347: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE '||X_RESULT );
8348: -- HW OPMCONV - Print qty2
8349: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE '||X_RESULT2 );
8350: WSH_DEBUG_SV.pop(l_module_name);
8351: END IF;
8352: --
8353: return;
8346: WSH_DEBUG_SV.logmsg(l_module_name, 'FULFILL BASE IS '||X_FULFILL_BASE );
8347: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE '||X_RESULT );
8348: -- HW OPMCONV - Print qty2
8349: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE '||X_RESULT2 );
8350: WSH_DEBUG_SV.pop(l_module_name);
8351: END IF;
8352: --
8353: return;
8354: --
8413: --
8414: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8415: --
8416: IF l_debug_on IS NULL THEN
8417: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8418: END IF;
8419: --
8420: IF l_debug_on THEN
8421: WSH_DEBUG_SV.push(l_module_name);
8417: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8418: END IF;
8419: --
8420: IF l_debug_on THEN
8421: WSH_DEBUG_SV.push(l_module_name);
8422: WSH_DEBUG_SV.log(l_module_name,'muom: P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
8423: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8424: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8425: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8418: END IF;
8419: --
8420: IF l_debug_on THEN
8421: WSH_DEBUG_SV.push(l_module_name);
8422: WSH_DEBUG_SV.log(l_module_name,'muom: P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
8423: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8424: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8425: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8426: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8419: --
8420: IF l_debug_on THEN
8421: WSH_DEBUG_SV.push(l_module_name);
8422: WSH_DEBUG_SV.log(l_module_name,'muom: P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
8423: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8424: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8425: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8426: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8427: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8420: IF l_debug_on THEN
8421: WSH_DEBUG_SV.push(l_module_name);
8422: WSH_DEBUG_SV.log(l_module_name,'muom: P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
8423: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8424: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8425: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8426: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8427: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8428: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8421: WSH_DEBUG_SV.push(l_module_name);
8422: WSH_DEBUG_SV.log(l_module_name,'muom: P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
8423: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8424: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8425: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8426: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8427: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8428: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8429: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
8422: WSH_DEBUG_SV.log(l_module_name,'muom: P_DEMAND_SOURCE_HEADER_ID',P_DEMAND_SOURCE_HEADER_ID);
8423: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8424: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8425: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8426: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8427: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8428: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8429: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
8430: END IF;
8423: WSH_DEBUG_SV.log(l_module_name,'P_DEMAND_SOURCE_LINE_ID',P_DEMAND_SOURCE_LINE_ID);
8424: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8425: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8426: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8427: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8428: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8429: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
8430: END IF;
8431: --
8424: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
8425: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8426: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8427: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8428: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8429: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
8430: END IF;
8431: --
8432: l_demand_source_header_id := p_demand_source_header_id;
8425: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
8426: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
8427: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY_UOM',P_SRC_REQUESTED_QUANTITY_UOM);
8428: WSH_DEBUG_SV.log(l_module_name,'P_SRC_REQUESTED_QUANTITY',P_SRC_REQUESTED_QUANTITY);
8429: WSH_DEBUG_SV.log(l_module_name,'P_INV_ITEM_ID',P_INV_ITEM_ID);
8430: END IF;
8431: --
8432: l_demand_source_header_id := p_demand_source_header_id;
8433: l_demand_source_line_id := p_demand_source_line_id;
8456: X_RESULT := l_result;
8457: X_RESULT2 := l_result2;
8458: --
8459: IF l_debug_on THEN
8460: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE '||l_result );
8461: -- HW OPMCONV - Print qty2
8462: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE '||l_result2 );
8463: WSH_DEBUG_SV.pop(l_module_name);
8464: END IF;
8458: --
8459: IF l_debug_on THEN
8460: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE '||l_result );
8461: -- HW OPMCONV - Print qty2
8462: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE '||l_result2 );
8463: WSH_DEBUG_SV.pop(l_module_name);
8464: END IF;
8465: --
8466: return;
8459: IF l_debug_on THEN
8460: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY AVAILABLE '||l_result );
8461: -- HW OPMCONV - Print qty2
8462: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED QTY2 AVAILABLE '||l_result2 );
8463: WSH_DEBUG_SV.pop(l_module_name);
8464: END IF;
8465: --
8466: return;
8467: --
8527: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8528: --
8529: IF l_debug_on IS NULL
8530: THEN
8531: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8532: END IF;
8533: --
8534: IF l_debug_on THEN
8535: WSH_DEBUG_SV.push(l_module_name);
8531: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8532: END IF;
8533: --
8534: IF l_debug_on THEN
8535: WSH_DEBUG_SV.push(l_module_name);
8536: WSH_DEBUG_SV.log(l_module_name, 'p_orgID', p_orgID);
8537: WSH_DEBUG_SV.log(l_module_name, 'p_calCode', p_calCode);
8538: WSH_DEBUG_SV.log(l_module_name, 'p_Time', p_Time);
8539: WSH_DEBUG_SV.log(l_module_name, 'p_days', p_days);
8532: END IF;
8533: --
8534: IF l_debug_on THEN
8535: WSH_DEBUG_SV.push(l_module_name);
8536: WSH_DEBUG_SV.log(l_module_name, 'p_orgID', p_orgID);
8537: WSH_DEBUG_SV.log(l_module_name, 'p_calCode', p_calCode);
8538: WSH_DEBUG_SV.log(l_module_name, 'p_Time', p_Time);
8539: WSH_DEBUG_SV.log(l_module_name, 'p_days', p_days);
8540: END IF;
8533: --
8534: IF l_debug_on THEN
8535: WSH_DEBUG_SV.push(l_module_name);
8536: WSH_DEBUG_SV.log(l_module_name, 'p_orgID', p_orgID);
8537: WSH_DEBUG_SV.log(l_module_name, 'p_calCode', p_calCode);
8538: WSH_DEBUG_SV.log(l_module_name, 'p_Time', p_Time);
8539: WSH_DEBUG_SV.log(l_module_name, 'p_days', p_days);
8540: END IF;
8541: --
8534: IF l_debug_on THEN
8535: WSH_DEBUG_SV.push(l_module_name);
8536: WSH_DEBUG_SV.log(l_module_name, 'p_orgID', p_orgID);
8537: WSH_DEBUG_SV.log(l_module_name, 'p_calCode', p_calCode);
8538: WSH_DEBUG_SV.log(l_module_name, 'p_Time', p_Time);
8539: WSH_DEBUG_SV.log(l_module_name, 'p_days', p_days);
8540: END IF;
8541: --
8542: v_Hrs := TRUNC(p_Time / 3600);
8535: WSH_DEBUG_SV.push(l_module_name);
8536: WSH_DEBUG_SV.log(l_module_name, 'p_orgID', p_orgID);
8537: WSH_DEBUG_SV.log(l_module_name, 'p_calCode', p_calCode);
8538: WSH_DEBUG_SV.log(l_module_name, 'p_Time', p_Time);
8539: WSH_DEBUG_SV.log(l_module_name, 'p_days', p_days);
8540: END IF;
8541: --
8542: v_Hrs := TRUNC(p_Time / 3600);
8543: v_Min := TRUNC((p_Time - (v_Hrs * 3600))/60);
8549: l_client_timezone := fnd_timezones.get_client_timezone_code;
8550: l_client_time := fnd_timezone_pub.adjust_datetime (sysdate,l_server_timezone,l_client_timezone);
8551: --
8552: IF l_debug_on THEN
8553: WSH_DEBUG_SV.log(l_module_name, 'v_Hrs', v_Hrs);
8554: WSH_DEBUG_SV.log(l_module_name, 'v_Min', v_Min);
8555: WSH_DEBUG_SV.log(l_module_name, 'v_Sec', v_Sec);
8556: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8557: wsh_debug_sv.log(l_module_name, 'l_server_timezone', l_server_timezone);
8550: l_client_time := fnd_timezone_pub.adjust_datetime (sysdate,l_server_timezone,l_client_timezone);
8551: --
8552: IF l_debug_on THEN
8553: WSH_DEBUG_SV.log(l_module_name, 'v_Hrs', v_Hrs);
8554: WSH_DEBUG_SV.log(l_module_name, 'v_Min', v_Min);
8555: WSH_DEBUG_SV.log(l_module_name, 'v_Sec', v_Sec);
8556: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8557: wsh_debug_sv.log(l_module_name, 'l_server_timezone', l_server_timezone);
8558: wsh_debug_sv.log(l_module_name, 'l_client_timezoene', l_client_timezone);
8551: --
8552: IF l_debug_on THEN
8553: WSH_DEBUG_SV.log(l_module_name, 'v_Hrs', v_Hrs);
8554: WSH_DEBUG_SV.log(l_module_name, 'v_Min', v_Min);
8555: WSH_DEBUG_SV.log(l_module_name, 'v_Sec', v_Sec);
8556: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8557: wsh_debug_sv.log(l_module_name, 'l_server_timezone', l_server_timezone);
8558: wsh_debug_sv.log(l_module_name, 'l_client_timezoene', l_client_timezone);
8559: wsh_debug_sv.log(l_module_name, 'sysdate', sysdate);
8552: IF l_debug_on THEN
8553: WSH_DEBUG_SV.log(l_module_name, 'v_Hrs', v_Hrs);
8554: WSH_DEBUG_SV.log(l_module_name, 'v_Min', v_Min);
8555: WSH_DEBUG_SV.log(l_module_name, 'v_Sec', v_Sec);
8556: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8557: wsh_debug_sv.log(l_module_name, 'l_server_timezone', l_server_timezone);
8558: wsh_debug_sv.log(l_module_name, 'l_client_timezoene', l_client_timezone);
8559: wsh_debug_sv.log(l_module_name, 'sysdate', sysdate);
8560: wsh_debug_sv.log(l_module_name, 'l_client_time', l_client_time);
8553: WSH_DEBUG_SV.log(l_module_name, 'v_Hrs', v_Hrs);
8554: WSH_DEBUG_SV.log(l_module_name, 'v_Min', v_Min);
8555: WSH_DEBUG_SV.log(l_module_name, 'v_Sec', v_Sec);
8556: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8557: wsh_debug_sv.log(l_module_name, 'l_server_timezone', l_server_timezone);
8558: wsh_debug_sv.log(l_module_name, 'l_client_timezoene', l_client_timezone);
8559: wsh_debug_sv.log(l_module_name, 'sysdate', sysdate);
8560: wsh_debug_sv.log(l_module_name, 'l_client_time', l_client_time);
8561: END IF;
8554: WSH_DEBUG_SV.log(l_module_name, 'v_Min', v_Min);
8555: WSH_DEBUG_SV.log(l_module_name, 'v_Sec', v_Sec);
8556: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8557: wsh_debug_sv.log(l_module_name, 'l_server_timezone', l_server_timezone);
8558: wsh_debug_sv.log(l_module_name, 'l_client_timezoene', l_client_timezone);
8559: wsh_debug_sv.log(l_module_name, 'sysdate', sysdate);
8560: wsh_debug_sv.log(l_module_name, 'l_client_time', l_client_time);
8561: END IF;
8562: --
8555: WSH_DEBUG_SV.log(l_module_name, 'v_Sec', v_Sec);
8556: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8557: wsh_debug_sv.log(l_module_name, 'l_server_timezone', l_server_timezone);
8558: wsh_debug_sv.log(l_module_name, 'l_client_timezoene', l_client_timezone);
8559: wsh_debug_sv.log(l_module_name, 'sysdate', sysdate);
8560: wsh_debug_sv.log(l_module_name, 'l_client_time', l_client_time);
8561: END IF;
8562: --
8563: -- Cannot apply calendar without knowing warehouse.
8556: WSH_DEBUG_SV.log(l_module_name, 'v_TimeChar', v_TimeChar);
8557: wsh_debug_sv.log(l_module_name, 'l_server_timezone', l_server_timezone);
8558: wsh_debug_sv.log(l_module_name, 'l_client_timezoene', l_client_timezone);
8559: wsh_debug_sv.log(l_module_name, 'sysdate', sysdate);
8560: wsh_debug_sv.log(l_module_name, 'l_client_time', l_client_time);
8561: END IF;
8562: --
8563: -- Cannot apply calendar without knowing warehouse.
8564: -- So, just perform simple date arithmetic.
8570: x_Date := fnd_timezone_pub.adjust_datetime (v_Date,l_client_timezone, l_server_timezone);
8571:
8572: --
8573: IF l_debug_on THEN
8574: wsh_debug_sv.log(l_module_name, 'x_Date', x_Date);
8575: wsh_debug_sv.pop(l_module_name);
8576: END IF;
8577: --
8578: RETURN;
8571:
8572: --
8573: IF l_debug_on THEN
8574: wsh_debug_sv.log(l_module_name, 'x_Date', x_Date);
8575: wsh_debug_sv.pop(l_module_name);
8576: END IF;
8577: --
8578: RETURN;
8579: END IF;
8583: v_DateChar := to_char(TRUNC(l_client_time), 'DD/MM/YYYY') || ' ' || v_TimeChar;
8584: v_Date := to_date(v_DateChar, 'DD/MM/YYYY HH24:MI:SS');
8585: --
8586: IF l_debug_on THEN
8587: wsh_debug_sv.log(l_module_name, 'v_Trials', v_Trials);
8588: wsh_debug_sv.log(l_module_name, 'v_DateChar', v_DateChar);
8589: wsh_debug_sv.log(l_module_name, 'v_Date', v_Date);
8590: END IF;
8591: --
8584: v_Date := to_date(v_DateChar, 'DD/MM/YYYY HH24:MI:SS');
8585: --
8586: IF l_debug_on THEN
8587: wsh_debug_sv.log(l_module_name, 'v_Trials', v_Trials);
8588: wsh_debug_sv.log(l_module_name, 'v_DateChar', v_DateChar);
8589: wsh_debug_sv.log(l_module_name, 'v_Date', v_Date);
8590: END IF;
8591: --
8592: WHILE j < v_Trials LOOP
8585: --
8586: IF l_debug_on THEN
8587: wsh_debug_sv.log(l_module_name, 'v_Trials', v_Trials);
8588: wsh_debug_sv.log(l_module_name, 'v_DateChar', v_DateChar);
8589: wsh_debug_sv.log(l_module_name, 'v_Date', v_Date);
8590: END IF;
8591: --
8592: WHILE j < v_Trials LOOP
8593: --
8629: --BUG# 13655114
8630: x_Date := fnd_timezone_pub.adjust_datetime (v_Date,l_client_timezone, l_server_timezone);
8631: --
8632: IF l_debug_on THEN
8633: wsh_debug_sv.log(l_module_name, 'x_Date', x_Date);
8634: wsh_debug_sv.pop(l_module_name);
8635: END IF;
8636: --
8637: END CalcWorkingDay;
8630: x_Date := fnd_timezone_pub.adjust_datetime (v_Date,l_client_timezone, l_server_timezone);
8631: --
8632: IF l_debug_on THEN
8633: wsh_debug_sv.log(l_module_name, 'x_Date', x_Date);
8634: wsh_debug_sv.pop(l_module_name);
8635: END IF;
8636: --
8637: END CalcWorkingDay;
8638: END WSH_PICK_LIST;