[Home] [Help]
12: PROCEDURE Get_Details_Snapshot(
13: p_source_code IN VARCHAR2,
14: p_changed_attributes IN ChangedAttributeTabType,
15: p_phase IN NUMBER,
16: x_dd_ids IN OUT NOCOPY wsh_util_core.id_tab_type,
17: x_out_table OUT NOCOPY wsh_interface.deliverydetailtab,
18: x_return_status OUT NOCOPY VARCHAR2);
19:
20: --
48: l_msg_data VARCHAR2(32767);
49: -- K LPN CONV. rv
50: BEGIN
51: -- Bugfix 4070732
52: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null
53: THEN
54: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
55: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
56: END IF;
50: BEGIN
51: -- Bugfix 4070732
52: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null
53: THEN
54: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
55: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
56: END IF;
57: -- End of Code Bugfix 4070732
58: --log level fix
51: -- Bugfix 4070732
52: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null
53: THEN
54: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
55: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
56: END IF;
57: -- End of Code Bugfix 4070732
58: --log level fix
59: IF p_log_level <> FND_API.G_MISS_NUM THEN -- log level fix
56: END IF;
57: -- End of Code Bugfix 4070732
58: --log level fix
59: IF p_log_level <> FND_API.G_MISS_NUM THEN -- log level fix
60: WSH_UTIL_CORE.Set_Log_Level(p_log_level);
61: END IF;
62:
63: --
64: -- Debug Statements
97: p_changed_attributes => p_changed_attributes,
98: x_interface_flag => l_interface_flag,
99: x_return_status => l_rs);
100:
101: IF l_rs NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
102: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
103: IF p_source_code <> 'INV' THEN
104: --
105: -- Debug Statements
98: x_interface_flag => l_interface_flag,
99: x_return_status => l_rs);
100:
101: IF l_rs NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
102: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
103: IF p_source_code <> 'INV' THEN
104: --
105: -- Debug Statements
106: --
112: -- 5870774: Added OKE since there will be cancellations initiated from OKE
113: IF p_source_code NOT IN ('OE','WSH', 'OKE') THEN
114: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_SOURCE_CODE');
115: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
116: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
117: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
118: ROLLBACK TO before_changes;
119: raise invalid_source_code;
120: END IF;
113: IF p_source_code NOT IN ('OE','WSH', 'OKE') THEN
114: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_SOURCE_CODE');
115: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
116: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
117: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
118: ROLLBACK TO before_changes;
119: raise invalid_source_code;
120: END IF;
121:
155: END IF;
156: --
157: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_SOURCE_CODE');
158: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
159: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR);
160: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
161:
162: END IF; -- p_source_code
163: --
156: --
157: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_SOURCE_CODE');
158: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
159: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR);
160: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
161:
162: END IF; -- p_source_code
163: --
164: -- K LPN CONV. rv
180: --
181: IF l_debug_on THEN
182: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
183: END IF;
184: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS
185: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
186: THEN
187: --
188: l_rs := l_return_status;
181: IF l_debug_on THEN
182: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
183: END IF;
184: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS
185: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
186: THEN
187: --
188: l_rs := l_return_status;
189: --
186: THEN
187: --
188: l_rs := l_return_status;
189: --
190: ELSIF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) and l_rs <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
191: --
192: l_rs := l_return_status;
193: --
194: END IF;
199: --
200: -- K LPN CONV. rv
201: --
202:
203: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
204: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
205: --
206: -- Debug Statements
207: --
200: -- K LPN CONV. rv
201: --
202:
203: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
204: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
205: --
206: -- Debug Statements
207: --
208: IF l_debug_on THEN
220:
221: --
222: -- Start code for Bugfix 4070732
223: --
224: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
225: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
226: --{
227: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
228: --{
221: --
222: -- Start code for Bugfix 4070732
223: --
224: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
225: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
226: --{
227: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
228: --{
229: IF l_debug_on THEN
223: --
224: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
225: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
226: --{
227: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
228: --{
229: IF l_debug_on THEN
230: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
231: END IF;
226: --{
227: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
228: --{
229: IF l_debug_on THEN
230: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
231: END IF;
232:
233: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
234: x_return_status => l_return_status);
229: IF l_debug_on THEN
230: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
231: END IF;
232:
233: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
234: x_return_status => l_return_status);
235:
236:
237: IF l_debug_on THEN
237: IF l_debug_on THEN
238: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
239: END IF;
240:
241: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
242: x_return_status := l_return_status;
243: END IF;
244: --}
245: END IF;
243: END IF;
244: --}
245: END IF;
246: --}
247: ELSIF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
248: --{
249: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
250: --{
251: l_reset_flags := TRUE;
245: END IF;
246: --}
247: ELSIF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
248: --{
249: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
250: --{
251: l_reset_flags := TRUE;
252:
253: IF l_debug_on THEN
250: --{
251: l_reset_flags := TRUE;
252:
253: IF l_debug_on THEN
254: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
255: END IF;
256:
257: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
258: x_return_status => l_return_status);
253: IF l_debug_on THEN
254: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
255: END IF;
256:
257: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
258: x_return_status => l_return_status);
259:
260: IF l_debug_on THEN
261: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
260: IF l_debug_on THEN
261: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
262: END IF;
263:
264: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
265: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
266: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
267: x_return_status := l_return_status;
268: END IF;
261: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
262: END IF;
263:
264: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
265: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
266: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
267: x_return_status := l_return_status;
268: END IF;
269:
262: END IF;
263:
264: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
265: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
266: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
267: x_return_status := l_return_status;
268: END IF;
269:
270: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
266: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
267: x_return_status := l_return_status;
268: END IF;
269:
270: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
271: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
272: ) THEN
273: ROLLBACK TO before_changes;
274: END IF;
267: x_return_status := l_return_status;
268: END IF;
269:
270: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
271: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
272: ) THEN
273: ROLLBACK TO before_changes;
274: END IF;
275: --}
312: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
313: END IF;
314: --
315: --
316: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) and x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
317: x_return_status := l_return_status;
318: END IF;
319: --
320: --}
324: --
325: --
326: -- Start code for Bugfix 4070732
327: --
328: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
329: --{
330: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
331: --{
332: IF l_debug_on THEN
326: -- Start code for Bugfix 4070732
327: --
328: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
329: --{
330: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
331: --{
332: IF l_debug_on THEN
333: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
334: END IF;
329: --{
330: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
331: --{
332: IF l_debug_on THEN
333: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
334: END IF;
335:
336: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
337: x_return_status => l_return_status);
332: IF l_debug_on THEN
333: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
334: END IF;
335:
336: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
337: x_return_status => l_return_status);
338:
339:
340: IF l_debug_on THEN
340: IF l_debug_on THEN
341: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
342: END IF;
343:
344: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
345: x_return_status := l_return_status;
346: END IF;
347: --}
348: END IF;
356: END IF;
357: --
358: WHEN others THEN
359: ROLLBACK TO before_changes;
360: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
361: wsh_util_core.default_handler('WSH_INTERFACE.Update_Shipping_Attributes');
362: --
363: -- Start code for Bugfix 4070732
364: --
357: --
358: WHEN others THEN
359: ROLLBACK TO before_changes;
360: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
361: wsh_util_core.default_handler('WSH_INTERFACE.Update_Shipping_Attributes');
362: --
363: -- Start code for Bugfix 4070732
364: --
365: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
361: wsh_util_core.default_handler('WSH_INTERFACE.Update_Shipping_Attributes');
362: --
363: -- Start code for Bugfix 4070732
364: --
365: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
366: --{
367: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
368: --{
369: IF l_debug_on THEN
363: -- Start code for Bugfix 4070732
364: --
365: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
366: --{
367: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
368: --{
369: IF l_debug_on THEN
370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
371: END IF;
366: --{
367: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
368: --{
369: IF l_debug_on THEN
370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
371: END IF;
372:
373: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
374: x_return_status => l_return_status);
369: IF l_debug_on THEN
370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
371: END IF;
372:
373: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
374: x_return_status => l_return_status);
375:
376:
377: IF l_debug_on THEN
377: IF l_debug_on THEN
378: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
379: END IF;
380:
381: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
382: x_return_status := l_return_status;
383: END IF;
384: --}
385: END IF;
477: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
478: WSH_DEBUG_SV.log(l_module_name,'P_SHIPMENT_DATE',P_SHIPMENT_DATE);
479: END IF;
480: --
481: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
482: l_total_qty_in_transit := 0;
483: --
484: -- Debug Statements
485: --
483: --
484: -- Debug Statements
485: --
486: IF l_debug_on THEN
487: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
488: END IF;
489: --
490: wsh_util_core.get_location_id('ORG',p_ship_from_org_id, l_ship_from_location_id, l_location_status, FALSE);
491: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
486: IF l_debug_on THEN
487: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
488: END IF;
489: --
490: wsh_util_core.get_location_id('ORG',p_ship_from_org_id, l_ship_from_location_id, l_location_status, FALSE);
491: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
492: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
493: AND (l_ship_from_location_id IS NULL) THEN
494: x_in_transit_qty := 0 ;
487: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
488: END IF;
489: --
490: wsh_util_core.get_location_id('ORG',p_ship_from_org_id, l_ship_from_location_id, l_location_status, FALSE);
491: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
492: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
493: AND (l_ship_from_location_id IS NULL) THEN
494: x_in_transit_qty := 0 ;
495: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
488: END IF;
489: --
490: wsh_util_core.get_location_id('ORG',p_ship_from_org_id, l_ship_from_location_id, l_location_status, FALSE);
491: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
492: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
493: AND (l_ship_from_location_id IS NULL) THEN
494: x_in_transit_qty := 0 ;
495: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
496: IF l_debug_on THEN
491: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
492: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
493: AND (l_ship_from_location_id IS NULL) THEN
494: x_in_transit_qty := 0 ;
495: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
496: IF l_debug_on THEN
497: WSH_DEBUG_SV.log(l_module_name,'X_INTRANSIT_QTY',
498: x_in_transit_qty);
499: WSH_DEBUG_SV.pop(l_module_name);
506: --
507: -- Debug Statements
508: --
509: IF l_debug_on THEN
510: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
511: END IF;
512: --
513: wsh_util_core.get_location_id('CUSTOMER SITE',p_ship_to_org_id, l_ship_to_location_id, l_location_status,FALSE);
514: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
509: IF l_debug_on THEN
510: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
511: END IF;
512: --
513: wsh_util_core.get_location_id('CUSTOMER SITE',p_ship_to_org_id, l_ship_to_location_id, l_location_status,FALSE);
514: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
515: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
516: AND (l_ship_to_location_id IS NULL) THEN
517: x_in_transit_qty := 0 ;
510: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
511: END IF;
512: --
513: wsh_util_core.get_location_id('CUSTOMER SITE',p_ship_to_org_id, l_ship_to_location_id, l_location_status,FALSE);
514: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
515: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
516: AND (l_ship_to_location_id IS NULL) THEN
517: x_in_transit_qty := 0 ;
518: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
511: END IF;
512: --
513: wsh_util_core.get_location_id('CUSTOMER SITE',p_ship_to_org_id, l_ship_to_location_id, l_location_status,FALSE);
514: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
515: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
516: AND (l_ship_to_location_id IS NULL) THEN
517: x_in_transit_qty := 0 ;
518: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
519: IF l_debug_on THEN
514: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
515: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
516: AND (l_ship_to_location_id IS NULL) THEN
517: x_in_transit_qty := 0 ;
518: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
519: IF l_debug_on THEN
520: WSH_DEBUG_SV.log(l_module_name,'X_INTRANSIT_QTY',
521: x_in_transit_qty);
522: WSH_DEBUG_SV.pop(l_module_name);
574: END IF;
575: --
576: exception
577: when invalid_org then
578: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
579: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_ORG');
580: WSH_UTIL_CORE.add_message (x_return_status);
581: --
582: -- Debug Statements
576: exception
577: when invalid_org then
578: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
579: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_ORG');
580: WSH_UTIL_CORE.add_message (x_return_status);
581: --
582: -- Debug Statements
583: --
584: IF l_debug_on THEN
586: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ORG');
587: END IF;
588: --
589: when invalid_cust_site then
590: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
591: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_SITE');
592: WSH_UTIL_CORE.add_message (x_return_status);
593: --
594: -- Debug Statements
588: --
589: when invalid_cust_site then
590: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
591: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_SITE');
592: WSH_UTIL_CORE.add_message (x_return_status);
593: --
594: -- Debug Statements
595: --
596: IF l_debug_on THEN
598: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_CUST_SITE');
599: END IF;
600: --
601: when others then
602: wsh_util_core.default_handler('WSH_INTERFACE.Get_In_Transit_Qty');
603: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
604: --
605: -- Debug Statements
606: --
599: END IF;
600: --
601: when others then
602: wsh_util_core.default_handler('WSH_INTERFACE.Get_In_Transit_Qty');
603: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
604: --
605: -- Debug Statements
606: --
607: IF l_debug_on THEN
682: END IF;
683: --
684: exception
685: when others then
686: wsh_util_core.default_handler('WSH_INTERFACE.Get_In_Transit_Qty');
687: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
688: --
689: -- Debug Statements
690: --
683: --
684: exception
685: when others then
686: wsh_util_core.default_handler('WSH_INTERFACE.Get_In_Transit_Qty');
687: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
688: --
689: -- Debug Statements
690: --
691: IF l_debug_on THEN
732: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
733: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
734: END IF;
735: --
736: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
737: G_CALL_MODE := 'CONC';
738:
739: IF p_source_line_id = -9999 THEN
740: l_source_line_id := NULL;
753: p_source_line_id => l_source_line_id,
754: p_source_code => p_source_code,
755: x_return_status => l_rs);
756:
757: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
758: l_status := 'NORMAL';
759: errbuf := 'Import Delivery Details is completed successfully';
760: retcode := '0';
761: ELSIF l_rs = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
757: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
758: l_status := 'NORMAL';
759: errbuf := 'Import Delivery Details is completed successfully';
760: retcode := '0';
761: ELSIF l_rs = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
762: l_status := 'WARNING';
763: errbuf := 'Import Delivery Details is completed with warning';
764: retcode := '1';
765: ELSE
850: --
851: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
852: END IF;
853: --
854: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
855:
856: OPEN C_Container;
857: FETCH C_Container INTO l_master_container_item_id, l_detail_container_item_id;
858:
886: --
887: RETURN;
888: --
889: WHEN others THEN
890: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
891: wsh_util_core.default_handler('WSH_INTERFACE.Default_Container');
892:
893: --
894: -- Debug Statements
887: RETURN;
888: --
889: WHEN others THEN
890: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
891: wsh_util_core.default_handler('WSH_INTERFACE.Default_Container');
892:
893: --
894: -- Debug Statements
895: --
1073: -- If p_cancel_delete_flag is 'D' and source_code is WSH, the API will Cancel the delivery details although
1074: -- p_cancel_delete_flag is specified as 'D'
1075:
1076: PROCEDURE Process_Details(
1077: p_details_id IN WSH_UTIL_CORE.Id_Tab_Type,
1078: p_cancel_delete_flag IN VARCHAR2,
1079: x_return_status OUT NOCOPY VARCHAR2) IS
1080:
1081: CURSOR c_assignment(c_detail_id NUMBER) IS
1140: WSH_DELETE_DETAIL_FAILED EXCEPTION;
1141: WSH_UNASSIGN_DETAIL_FAILED EXCEPTION;
1142:
1143: /* H integration: mark WSH lines as cancelled wrudge */
1144: l_cancel_dds WSH_UTIL_CORE.Id_Tab_Type;
1145:
1146: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
1147: -- K LPN CONV. rv
1148: l_lpn_in_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_in_rec_type;
1149: l_lpn_out_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_out_rec_type;
1150: -- K LPN CONV. rv
1151:
1152: -- Bug 5741373
1153: l_move_order_line_ids WSH_UTIL_CORE.Id_Tab_Type;
1154: l_source_line_ids WSH_UTIL_CORE.Id_Tab_Type;
1155: --
1156: l_debug_on BOOLEAN;
1157: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'PROCESS_DETAILS';
1150: -- K LPN CONV. rv
1151:
1152: -- Bug 5741373
1153: l_move_order_line_ids WSH_UTIL_CORE.Id_Tab_Type;
1154: l_source_line_ids WSH_UTIL_CORE.Id_Tab_Type;
1155: --
1156: l_debug_on BOOLEAN;
1157: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'PROCESS_DETAILS';
1158: l_notfound BOOLEAN;
1168: WSH_DEBUG_SV.push(l_module_name);
1169: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1170: WSH_DEBUG_SV.log(l_module_name,'p_cancel_delete_flag',p_cancel_delete_flag);
1171: END IF;
1172: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1173:
1174: FOR i IN 1 .. p_details_id.COUNT
1175: LOOP
1176: OPEN c_assignment(p_details_id(i));
1320: p_unreserve_mode => 'UNRESERVE',
1321: p_override_retain_ato_rsv => 'Y', -- 2747520
1322: x_return_status => l_return_status);
1323:
1324: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1325: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1326: IF l_debug_on THEN
1327: WSH_DEBUG_SV.logmsg(l_module_name, 'UNRESERVE DELIVERY DETAIL '|| P_DETAILS_ID ( I ) || ' FAILED' );
1328: END IF;
1321: p_override_retain_ato_rsv => 'Y', -- 2747520
1322: x_return_status => l_return_status);
1323:
1324: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1325: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1326: IF l_debug_on THEN
1327: WSH_DEBUG_SV.logmsg(l_module_name, 'UNRESERVE DELIVERY DETAIL '|| P_DETAILS_ID ( I ) || ' FAILED' );
1328: END IF;
1329: raise WSH_DEL_RESERVATION_FAILED;
1345: p_detail_id => p_details_id(i),
1346: p_validate_flag => 'N',
1347: x_return_status => l_return_status);
1348:
1349: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1350: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1351:
1352: IF l_debug_on THEN
1353: WSH_DEBUG_SV.logmsg(l_module_name, 'UNASSIGN DETAIL FROM CONTAINER FAILED FOR DD '|| P_DETAILS_ID ( I ));
1346: p_validate_flag => 'N',
1347: x_return_status => l_return_status);
1348:
1349: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1350: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1351:
1352: IF l_debug_on THEN
1353: WSH_DEBUG_SV.logmsg(l_module_name, 'UNASSIGN DETAIL FROM CONTAINER FAILED FOR DD '|| P_DETAILS_ID ( I ));
1354: END IF;
1365: p_detail_id => p_details_id(i),
1366: p_validate_flag => 'N',
1367: x_return_status => l_return_status);
1368:
1369: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1370: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1371:
1372: IF l_debug_on THEN
1373: WSH_DEBUG_SV.logmsg(l_module_name, 'UNASSIGN DETAIL FROM DELIVERY FAILED FOR DD '|| P_DETAILS_ID ( I ));
1366: p_validate_flag => 'N',
1367: x_return_status => l_return_status);
1368:
1369: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1370: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1371:
1372: IF l_debug_on THEN
1373: WSH_DEBUG_SV.logmsg(l_module_name, 'UNASSIGN DETAIL FROM DELIVERY FAILED FOR DD '|| P_DETAILS_ID ( I ));
1374: END IF;
1398:
1399: END IF;
1400: -- End J: W/V Changes
1401:
1402: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1403: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1404:
1405: IF l_debug_on THEN
1406: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE DELIVERY DETAIL '|| P_DETAILS_ID ( I ) || ' FAILED' );
1399: END IF;
1400: -- End J: W/V Changes
1401:
1402: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1403: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1404:
1405: IF l_debug_on THEN
1406: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE DELIVERY DETAIL '|| P_DETAILS_ID ( I ) || ' FAILED' );
1407: END IF;
1511: IF l_debug_on THEN
1512: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1513: END IF;
1514: -- Only Handle Unexpected error
1515: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1516: x_return_status := l_dbi_rs;
1517: -- just pass this Unexpected error to calling API
1518: -- since there is no further code flow in this procedure, no need to RETURN
1519: -- just continue
1545: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1546: END IF;
1547: --
1548: --
1549: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS
1550: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
1551: THEN
1552: --
1553: x_return_status := l_return_status;
1546: END IF;
1547: --
1548: --
1549: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS
1550: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
1551: THEN
1552: --
1553: x_return_status := l_return_status;
1554: --
1551: THEN
1552: --
1553: x_return_status := l_return_status;
1554: --
1555: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1556: AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1557: THEN
1558: --
1559: x_return_status := l_return_status;
1552: --
1553: x_return_status := l_return_status;
1554: --
1555: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1556: AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1557: THEN
1558: --
1559: x_return_status := l_return_status;
1560: --
1571:
1572: EXCEPTION
1573:
1574: WHEN WSH_DELETE_DETAIL_FAILED THEN
1575: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1576: --
1577: -- K LPN CONV. rv
1578: --
1579: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1595: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1596: END IF;
1597: --
1598: --
1599: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1600: x_return_status := l_return_status;
1601: END IF;
1602: --
1603: --}
1617: CLOSE c_details;
1618: END IF;
1619:
1620: WHEN WSH_DEL_RESERVATION_FAILED THEN
1621: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1622: --
1623: -- K LPN CONV. rv
1624: --
1625: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1641: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1642: END IF;
1643: --
1644: --
1645: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1646: x_return_status := l_return_status;
1647: END IF;
1648: --
1649: --}
1663: CLOSE c_details;
1664: END IF;
1665: --
1666: WHEN OTHERS THEN
1667: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1668: wsh_util_core.default_handler('WSH_INTERFACE.PROCESS_DETAILS');
1669: IF l_debug_on THEN
1670: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1671: END IF;
1664: END IF;
1665: --
1666: WHEN OTHERS THEN
1667: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1668: wsh_util_core.default_handler('WSH_INTERFACE.PROCESS_DETAILS');
1669: IF l_debug_on THEN
1670: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1671: END IF;
1672: --
1720: -- to delete the delivery details if source_code is 'OE' and cancel delivery details
1721: -- if source_code is 'WSH'
1722:
1723: PROCEDURE Delete_Details(
1724: p_details_id IN WSH_UTIL_CORE.Id_Tab_Type,
1725: x_return_status OUT NOCOPY VARCHAR2) IS
1726:
1727: l_debug_on BOOLEAN;
1728: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELETE_DETAILS';
1736: IF l_debug_on THEN
1737: WSH_DEBUG_SV.push(l_module_name);
1738: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1739: END IF;
1740: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1741:
1742: process_details(
1743: p_details_id => p_details_id,
1744: p_cancel_delete_flag => 'D',
1749: END IF;
1750:
1751: EXCEPTION
1752: WHEN OTHERS THEN
1753: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1754: wsh_util_core.default_handler('WSH_INTERFACE.DELETE_DETAILS');
1755:
1756: IF l_debug_on THEN
1757: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1750:
1751: EXCEPTION
1752: WHEN OTHERS THEN
1753: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1754: wsh_util_core.default_handler('WSH_INTERFACE.DELETE_DETAILS');
1755:
1756: IF l_debug_on THEN
1757: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1758: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1768: -- This procedure calls private API process_details with p_cancel_delete_flag 'C'
1769: -- to cancel the delivery details
1770:
1771: PROCEDURE Cancel_Details(
1772: p_details_id IN WSH_UTIL_CORE.Id_Tab_Type,
1773: x_return_status OUT NOCOPY VARCHAR2) IS
1774:
1775: l_debug_on BOOLEAN;
1776: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'CANCEL_DETAILS';
1781: l_reset_flags BOOLEAN;
1782:
1783: BEGIN
1784: -- Bugfix 4070732
1785: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null
1786: THEN
1787: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
1788: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
1789: END IF;
1783: BEGIN
1784: -- Bugfix 4070732
1785: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null
1786: THEN
1787: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
1788: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
1789: END IF;
1790: -- End of Code Bugfix 4070732
1791: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1784: -- Bugfix 4070732
1785: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null
1786: THEN
1787: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
1788: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
1789: END IF;
1790: -- End of Code Bugfix 4070732
1791: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1792: IF l_debug_on IS NULL
1796: IF l_debug_on THEN
1797: WSH_DEBUG_SV.push(l_module_name);
1798: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1799: END IF;
1800: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1801:
1802: process_details(
1803: p_details_id => p_details_id,
1804: p_cancel_delete_flag => 'C',
1806:
1807: --
1808: -- Start code for Bugfix 4070732
1809: --
1810: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1811: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
1812: --{
1813: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1814: --{
1807: --
1808: -- Start code for Bugfix 4070732
1809: --
1810: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1811: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
1812: --{
1813: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1814: --{
1815: IF l_debug_on THEN
1809: --
1810: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1811: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
1812: --{
1813: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1814: --{
1815: IF l_debug_on THEN
1816: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1817: END IF;
1812: --{
1813: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1814: --{
1815: IF l_debug_on THEN
1816: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1817: END IF;
1818:
1819: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1820: x_return_status => l_return_status);
1815: IF l_debug_on THEN
1816: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1817: END IF;
1818:
1819: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1820: x_return_status => l_return_status);
1821:
1822:
1823: IF l_debug_on THEN
1823: IF l_debug_on THEN
1824: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1825: END IF;
1826:
1827: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1828: x_return_status := l_return_status;
1829: END IF;
1830: --}
1831: END IF;
1829: END IF;
1830: --}
1831: END IF;
1832: --}
1833: ELSIF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
1834: --{
1835: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1836: --{
1837: l_reset_flags := TRUE;
1831: END IF;
1832: --}
1833: ELSIF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
1834: --{
1835: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1836: --{
1837: l_reset_flags := TRUE;
1838:
1839: IF l_debug_on THEN
1836: --{
1837: l_reset_flags := TRUE;
1838:
1839: IF l_debug_on THEN
1840: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1841: END IF;
1842:
1843: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
1844: x_return_status => l_return_status);
1839: IF l_debug_on THEN
1840: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1841: END IF;
1842:
1843: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
1844: x_return_status => l_return_status);
1845:
1846: IF l_debug_on THEN
1847: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1846: IF l_debug_on THEN
1847: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1848: END IF;
1849:
1850: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1851: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1852: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1853: x_return_status := l_return_status;
1854: END IF;
1847: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1848: END IF;
1849:
1850: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1851: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1852: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1853: x_return_status := l_return_status;
1854: END IF;
1855: --}
1848: END IF;
1849:
1850: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1851: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1852: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1853: x_return_status := l_return_status;
1854: END IF;
1855: --}
1856: END IF;
1864: END IF;
1865:
1866: EXCEPTION
1867: WHEN OTHERS THEN
1868: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1869: wsh_util_core.default_handler('WSH_INTERFACE.CANCEL_DETAILS');
1870: --
1871: -- Start code for Bugfix 4070732
1872: --
1865:
1866: EXCEPTION
1867: WHEN OTHERS THEN
1868: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1869: wsh_util_core.default_handler('WSH_INTERFACE.CANCEL_DETAILS');
1870: --
1871: -- Start code for Bugfix 4070732
1872: --
1873: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1869: wsh_util_core.default_handler('WSH_INTERFACE.CANCEL_DETAILS');
1870: --
1871: -- Start code for Bugfix 4070732
1872: --
1873: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1874: --{
1875: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1876: --{
1877: IF l_debug_on THEN
1871: -- Start code for Bugfix 4070732
1872: --
1873: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1874: --{
1875: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1876: --{
1877: IF l_debug_on THEN
1878: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1879: END IF;
1874: --{
1875: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1876: --{
1877: IF l_debug_on THEN
1878: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1879: END IF;
1880:
1881: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1882: x_return_status => l_return_status);
1877: IF l_debug_on THEN
1878: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1879: END IF;
1880:
1881: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1882: x_return_status => l_return_status);
1883:
1884:
1885: IF l_debug_on THEN
1885: IF l_debug_on THEN
1886: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1887: END IF;
1888:
1889: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1890: x_return_status := l_return_status;
1891: END IF;
1892: --}
1893: END IF;
1951: --
1952: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
1953: END IF;
1954: --
1955: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1956:
1957: OPEN c_details;
1958: FETCH c_details INTO l_detail_rec;
1959:
1962: RAISE get_max_load_qty_failed ;
1963: ELSE
1964:
1965: -- bug # 3259762
1966: l_item_name := WSH_UTIL_CORE.Get_Item_Name(l_detail_rec.inventory_item_id, l_detail_rec.organization_id);
1967: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_detail_rec.organization_id);
1968: --
1969: if l_detail_rec.detail_container_item_id is not null then
1970:
1963: ELSE
1964:
1965: -- bug # 3259762
1966: l_item_name := WSH_UTIL_CORE.Get_Item_Name(l_detail_rec.inventory_item_id, l_detail_rec.organization_id);
1967: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_detail_rec.organization_id);
1968: --
1969: if l_detail_rec.detail_container_item_id is not null then
1970:
1971: l_container_item_id := l_detail_rec.detail_container_item_id ;
2003: END IF;
2004: --
2005: EXCEPTION
2006: WHEN get_max_load_qty_failed THEN
2007: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2008: --
2009: -- Debug Statements
2010: --
2011: IF l_debug_on THEN
2017: --
2018:
2019: --bug # 3259762
2020: WHEN NO_DATA_FOUND THEN
2021: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2022: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONT_LOAD');
2023: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
2024: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
2025: --
2035: --
2036:
2037:
2038: WHEN others THEN
2039: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2040: wsh_util_core.default_handler('WSH_INTERFACE.Get_Max_Load_Qty');
2041:
2042: --
2043: -- Debug Statements
2036:
2037:
2038: WHEN others THEN
2039: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2040: wsh_util_core.default_handler('WSH_INTERFACE.Get_Max_Load_Qty');
2041:
2042: --
2043: -- Debug Statements
2044: --
2097: --
2098: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2099: END IF;
2100: --
2101: l_rs := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2102:
2103: --
2104: -- Debug Statements
2105: --
2126: x_shipped_flag => l_shipped_flag,
2127: x_interface_flag => l_interface_flag,
2128: x_return_status => l_rs);
2129:
2130: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2131: EXIT records_loop;
2132: END IF;
2133:
2134: ELSE
2150: x_shipped_flag => l_shipped_flag,
2151: x_interface_flag => l_interface_flag,
2152: x_return_status => l_rs);
2153:
2154: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2155: EXIT records_loop;
2156: END IF;
2157:
2158: --
2176: IF (p_source_code <> 'INV' and p_source_code <> 'OKE')
2177: AND (l_interface_flag = 'N')
2178: AND (l_confirmed_flag OR l_shipped_flag) THEN
2179: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_ATTR_NOT_ALLOWED');
2180: l_rs := WSH_UTIL_CORE.G_RET_STS_ERROR;
2181: WSH_UTIL_CORE.add_message (l_rs);
2182: END IF;
2183:
2184: x_return_status := l_rs;
2177: AND (l_interface_flag = 'N')
2178: AND (l_confirmed_flag OR l_shipped_flag) THEN
2179: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_ATTR_NOT_ALLOWED');
2180: l_rs := WSH_UTIL_CORE.G_RET_STS_ERROR;
2181: WSH_UTIL_CORE.add_message (l_rs);
2182: END IF;
2183:
2184: x_return_status := l_rs;
2185: x_interface_flag := l_interface_flag;
2192: END IF;
2193: --
2194: EXCEPTION
2195: WHEN others THEN
2196: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2197: wsh_util_core.default_handler('WSH_INTERFACE.Lock_Records');
2198:
2199: --
2200: -- Debug Statements
2193: --
2194: EXCEPTION
2195: WHEN others THEN
2196: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2197: wsh_util_core.default_handler('WSH_INTERFACE.Lock_Records');
2198:
2199: --
2200: -- Debug Statements
2201: --
2218:
2219: RECORD_LOCKED EXCEPTION;
2220: PRAGMA EXCEPTION_INIT(RECORD_LOCKED, -54);
2221:
2222: l_rs VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2223: l_dummy_id NUMBER;
2224: l_del_status_code VARCHAR2(2);
2225: l_det_status_code VARCHAR2(2);
2226: l_ship_set_id NUMBER;
2368: END IF;
2369: --
2370: EXCEPTION
2371: WHEN RECORD_LOCKED THEN
2372: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2373: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
2374: WSH_UTIL_CORE.add_message (x_return_status);
2375: --
2376: -- Debug Statements
2370: EXCEPTION
2371: WHEN RECORD_LOCKED THEN
2372: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2373: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
2374: WSH_UTIL_CORE.add_message (x_return_status);
2375: --
2376: -- Debug Statements
2377: --
2378: IF l_debug_on THEN
2382: --
2383: RETURN;
2384:
2385: WHEN others THEN
2386: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2387: wsh_util_core.default_handler('WSH_INTERFACE.Lock_Delivery_Detail');
2388:
2389: --
2390: -- Debug Statements
2383: RETURN;
2384:
2385: WHEN others THEN
2386: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2387: wsh_util_core.default_handler('WSH_INTERFACE.Lock_Delivery_Detail');
2388:
2389: --
2390: -- Debug Statements
2391: --
2405: x_return_status OUT NOCOPY VARCHAR2
2406: ) IS
2407:
2408: l_counter NUMBER;
2409: l_rs VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2410: l_update_allowed VARCHAR2(1);
2411:
2412: --
2413: l_debug_on BOOLEAN;
2484: END IF;
2485: END IF;
2486:
2487:
2488: IF l_rs NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2489:
2490: IF p_interface_flag = 'N' THEN
2491: --
2492: -- Debug Statements
2515: END IF;
2516: --
2517: END IF;
2518:
2519: IF l_rs NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2520: --
2521: -- Debug Statements
2522: --
2523: IF l_debug_on THEN
2537: p_interface_flag => p_interface_flag,
2538: x_return_status => l_rs);
2539: END IF;
2540:
2541: IF l_rs NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2542: --
2543: -- Debug Statements
2544: --
2545: IF l_debug_on THEN
2583: p_source_code =>p_source_code,
2584: p_action_flag => 'D',
2585: x_return_status => l_rs);
2586:
2587: IF l_rs <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2588: x_return_status := l_rs;
2589: exit;
2590: END IF;
2591: END IF;
2603: END IF;
2604: --
2605: EXCEPTION
2606: WHEN OTHERS THEN
2607: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2608: wsh_util_core.default_handler('WSH_INTERFACE.Process_Records');
2609:
2610: --
2611: -- Debug Statements
2604: --
2605: EXCEPTION
2606: WHEN OTHERS THEN
2607: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2608: wsh_util_core.default_handler('WSH_INTERFACE.Process_Records');
2609:
2610: --
2611: -- Debug Statements
2612: --
2655: --
2656: ELSE
2657: IF name is NOT NULL then
2658: FND_MESSAGE.SET_NAME('WSH', name);
2659: WSH_UTIL_CORE.add_message ('E');
2660: END IF;
2661: END IF;
2662: --
2663: -- Debug Statements
2687: PROCEDURE Get_Details_Snapshot(
2688: p_source_code IN VARCHAR2,
2689: p_changed_attributes IN ChangedAttributeTabType,
2690: p_phase IN NUMBER,
2691: x_dd_ids IN OUT NOCOPY wsh_util_core.id_tab_type,
2692: x_out_table OUT NOCOPY wsh_interface.deliverydetailtab,
2693: x_return_status OUT NOCOPY VARCHAR2) IS
2694:
2695: -- use delivery detail id
2734: AND nvl(wdd.line_direction, 'O') IN ('O', 'IO');
2735: i NUMBER;
2736: l_dd_rec wsh_interface.delivery_detail_rec;
2737: l_dd_tab wsh_interface.deliverydetailtab;
2738: l_dd_ids wsh_util_core.id_tab_type;
2739: l_source_line_id wsh_delivery_details.source_line_id%TYPE;
2740: --
2741: l_debug_on BOOLEAN;
2742: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_DETAILS_SNAPSHOT';
2758: WSH_DEBUG_SV.log(l_module_name,'Changedattribute - count',p_changed_attributes.count);
2759: WSH_DEBUG_SV.log(l_module_name,'Phase',p_phase);
2760: END IF;
2761:
2762: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2763:
2764: l_dd_tab.delete;
2765:
2766: --bug 2769339
2806: END IF;
2807:
2808: EXCEPTION
2809: WHEN others THEN
2810: wsh_util_core.default_handler('WSH_INTERFACE.get_details_snapshot');
2811: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2812: IF l_debug_on THEN
2813: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2814: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2807:
2808: EXCEPTION
2809: WHEN others THEN
2810: wsh_util_core.default_handler('WSH_INTERFACE.get_details_snapshot');
2811: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2812: IF l_debug_on THEN
2813: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2814: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2815: END IF;