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: --
144: END IF;
145: --
146: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_SOURCE_CODE');
147: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
148: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR);
149: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
150:
151: END IF; -- p_source_code
152: --
145: --
146: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_SOURCE_CODE');
147: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
148: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR);
149: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
150:
151: END IF; -- p_source_code
152: --
153: -- K LPN CONV. rv
169: --
170: IF l_debug_on THEN
171: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
172: END IF;
173: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS
174: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
175: THEN
176: --
177: l_rs := l_return_status;
170: IF l_debug_on THEN
171: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
172: END IF;
173: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS
174: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
175: THEN
176: --
177: l_rs := l_return_status;
178: --
175: THEN
176: --
177: l_rs := l_return_status;
178: --
179: 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
180: --
181: l_rs := l_return_status;
182: --
183: END IF;
188: --
189: -- K LPN CONV. rv
190: --
191:
192: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
193: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
194: --
195: -- Debug Statements
196: --
189: -- K LPN CONV. rv
190: --
191:
192: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
193: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
194: --
195: -- Debug Statements
196: --
197: IF l_debug_on THEN
209:
210: --
211: -- Start code for Bugfix 4070732
212: --
213: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
214: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
215: --{
216: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
217: --{
210: --
211: -- Start code for Bugfix 4070732
212: --
213: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
214: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
215: --{
216: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
217: --{
218: IF l_debug_on THEN
212: --
213: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
214: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
215: --{
216: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
217: --{
218: IF l_debug_on THEN
219: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
220: END IF;
215: --{
216: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
217: --{
218: IF l_debug_on THEN
219: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
220: END IF;
221:
222: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
223: x_return_status => l_return_status);
218: IF l_debug_on THEN
219: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
220: END IF;
221:
222: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
223: x_return_status => l_return_status);
224:
225:
226: IF l_debug_on THEN
226: IF l_debug_on THEN
227: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
228: END IF;
229:
230: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
231: x_return_status := l_return_status;
232: END IF;
233: --}
234: END IF;
232: END IF;
233: --}
234: END IF;
235: --}
236: ELSIF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
237: --{
238: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
239: --{
240: l_reset_flags := TRUE;
234: END IF;
235: --}
236: ELSIF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
237: --{
238: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
239: --{
240: l_reset_flags := TRUE;
241:
242: IF l_debug_on THEN
239: --{
240: l_reset_flags := TRUE;
241:
242: IF l_debug_on THEN
243: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
244: END IF;
245:
246: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
247: x_return_status => l_return_status);
242: IF l_debug_on THEN
243: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
244: END IF;
245:
246: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
247: x_return_status => l_return_status);
248:
249: IF l_debug_on THEN
250: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
249: IF l_debug_on THEN
250: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
251: END IF;
252:
253: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
254: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
255: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
256: x_return_status := l_return_status;
257: END IF;
250: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
251: END IF;
252:
253: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
254: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
255: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
256: x_return_status := l_return_status;
257: END IF;
258:
251: END IF;
252:
253: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
254: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
255: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
256: x_return_status := l_return_status;
257: END IF;
258:
259: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
255: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
256: x_return_status := l_return_status;
257: END IF;
258:
259: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
260: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
261: ) THEN
262: ROLLBACK TO before_changes;
263: END IF;
256: x_return_status := l_return_status;
257: END IF;
258:
259: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
260: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
261: ) THEN
262: ROLLBACK TO before_changes;
263: END IF;
264: --}
301: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
302: END IF;
303: --
304: --
305: 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
306: x_return_status := l_return_status;
307: END IF;
308: --
309: --}
313: --
314: --
315: -- Start code for Bugfix 4070732
316: --
317: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
318: --{
319: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
320: --{
321: IF l_debug_on THEN
315: -- Start code for Bugfix 4070732
316: --
317: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
318: --{
319: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
320: --{
321: IF l_debug_on THEN
322: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
323: END IF;
318: --{
319: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
320: --{
321: IF l_debug_on THEN
322: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
323: END IF;
324:
325: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
326: x_return_status => l_return_status);
321: IF l_debug_on THEN
322: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
323: END IF;
324:
325: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
326: x_return_status => l_return_status);
327:
328:
329: IF l_debug_on THEN
329: IF l_debug_on THEN
330: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
331: END IF;
332:
333: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
334: x_return_status := l_return_status;
335: END IF;
336: --}
337: END IF;
345: END IF;
346: --
347: WHEN others THEN
348: ROLLBACK TO before_changes;
349: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
350: wsh_util_core.default_handler('WSH_INTERFACE.Update_Shipping_Attributes');
351: --
352: --
353: -- Start code for Bugfix 4070732
346: --
347: WHEN others THEN
348: ROLLBACK TO before_changes;
349: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
350: wsh_util_core.default_handler('WSH_INTERFACE.Update_Shipping_Attributes');
351: --
352: --
353: -- Start code for Bugfix 4070732
354: --
351: --
352: --
353: -- Start code for Bugfix 4070732
354: --
355: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
356: --{
357: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
358: --{
359: IF l_debug_on THEN
353: -- Start code for Bugfix 4070732
354: --
355: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
356: --{
357: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
358: --{
359: IF l_debug_on THEN
360: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
361: END IF;
356: --{
357: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
358: --{
359: IF l_debug_on THEN
360: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
361: END IF;
362:
363: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
364: x_return_status => l_return_status);
359: IF l_debug_on THEN
360: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
361: END IF;
362:
363: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
364: x_return_status => l_return_status);
365:
366:
367: IF l_debug_on THEN
367: IF l_debug_on THEN
368: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
369: END IF;
370:
371: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
372: x_return_status := l_return_status;
373: END IF;
374: --}
375: END IF;
467: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
468: WSH_DEBUG_SV.log(l_module_name,'P_SHIPMENT_DATE',P_SHIPMENT_DATE);
469: END IF;
470: --
471: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
472: l_total_qty_in_transit := 0;
473: --
474: -- Debug Statements
475: --
473: --
474: -- Debug Statements
475: --
476: IF l_debug_on THEN
477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
478: END IF;
479: --
480: wsh_util_core.get_location_id('ORG',p_ship_from_org_id, l_ship_from_location_id, l_location_status, FALSE);
481: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
476: IF l_debug_on THEN
477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
478: END IF;
479: --
480: wsh_util_core.get_location_id('ORG',p_ship_from_org_id, l_ship_from_location_id, l_location_status, FALSE);
481: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
482: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
483: AND (l_ship_from_location_id IS NULL) THEN
484: x_in_transit_qty := 0 ;
477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
478: END IF;
479: --
480: wsh_util_core.get_location_id('ORG',p_ship_from_org_id, l_ship_from_location_id, l_location_status, FALSE);
481: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
482: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
483: AND (l_ship_from_location_id IS NULL) THEN
484: x_in_transit_qty := 0 ;
485: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
478: END IF;
479: --
480: wsh_util_core.get_location_id('ORG',p_ship_from_org_id, l_ship_from_location_id, l_location_status, FALSE);
481: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
482: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
483: AND (l_ship_from_location_id IS NULL) THEN
484: x_in_transit_qty := 0 ;
485: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
486: IF l_debug_on THEN
481: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
482: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
483: AND (l_ship_from_location_id IS NULL) THEN
484: x_in_transit_qty := 0 ;
485: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
486: IF l_debug_on THEN
487: WSH_DEBUG_SV.log(l_module_name,'X_INTRANSIT_QTY',
488: x_in_transit_qty);
489: WSH_DEBUG_SV.pop(l_module_name);
496: --
497: -- Debug Statements
498: --
499: IF l_debug_on THEN
500: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
501: END IF;
502: --
503: wsh_util_core.get_location_id('CUSTOMER SITE',p_ship_to_org_id, l_ship_to_location_id, l_location_status,FALSE);
504: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
499: IF l_debug_on THEN
500: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
501: END IF;
502: --
503: wsh_util_core.get_location_id('CUSTOMER SITE',p_ship_to_org_id, l_ship_to_location_id, l_location_status,FALSE);
504: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
505: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
506: AND (l_ship_to_location_id IS NULL) THEN
507: x_in_transit_qty := 0 ;
500: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
501: END IF;
502: --
503: wsh_util_core.get_location_id('CUSTOMER SITE',p_ship_to_org_id, l_ship_to_location_id, l_location_status,FALSE);
504: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
505: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
506: AND (l_ship_to_location_id IS NULL) THEN
507: x_in_transit_qty := 0 ;
508: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
501: END IF;
502: --
503: wsh_util_core.get_location_id('CUSTOMER SITE',p_ship_to_org_id, l_ship_to_location_id, l_location_status,FALSE);
504: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
505: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
506: AND (l_ship_to_location_id IS NULL) THEN
507: x_in_transit_qty := 0 ;
508: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
509: IF l_debug_on THEN
504: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
505: IF (l_location_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
506: AND (l_ship_to_location_id IS NULL) THEN
507: x_in_transit_qty := 0 ;
508: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
509: IF l_debug_on THEN
510: WSH_DEBUG_SV.log(l_module_name,'X_INTRANSIT_QTY',
511: x_in_transit_qty);
512: WSH_DEBUG_SV.pop(l_module_name);
564: END IF;
565: --
566: exception
567: when invalid_org then
568: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
569: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_ORG');
570: WSH_UTIL_CORE.add_message (x_return_status);
571: --
572: -- Debug Statements
566: exception
567: when invalid_org then
568: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
569: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_ORG');
570: WSH_UTIL_CORE.add_message (x_return_status);
571: --
572: -- Debug Statements
573: --
574: IF l_debug_on THEN
576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ORG');
577: END IF;
578: --
579: when invalid_cust_site then
580: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
581: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_SITE');
582: WSH_UTIL_CORE.add_message (x_return_status);
583: --
584: -- Debug Statements
578: --
579: when invalid_cust_site then
580: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
581: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_SITE');
582: WSH_UTIL_CORE.add_message (x_return_status);
583: --
584: -- Debug Statements
585: --
586: IF l_debug_on THEN
588: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_CUST_SITE');
589: END IF;
590: --
591: when others then
592: wsh_util_core.default_handler('WSH_INTERFACE.Get_In_Transit_Qty');
593: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
594: --
595: -- Debug Statements
596: --
589: END IF;
590: --
591: when others then
592: wsh_util_core.default_handler('WSH_INTERFACE.Get_In_Transit_Qty');
593: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
594: --
595: -- Debug Statements
596: --
597: IF l_debug_on THEN
672: END IF;
673: --
674: exception
675: when others then
676: wsh_util_core.default_handler('WSH_INTERFACE.Get_In_Transit_Qty');
677: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
678: --
679: -- Debug Statements
680: --
673: --
674: exception
675: when others then
676: wsh_util_core.default_handler('WSH_INTERFACE.Get_In_Transit_Qty');
677: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
678: --
679: -- Debug Statements
680: --
681: IF l_debug_on THEN
722: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
723: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
724: END IF;
725: --
726: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
727: G_CALL_MODE := 'CONC';
728:
729: IF p_source_line_id = -9999 THEN
730: l_source_line_id := NULL;
743: p_source_line_id => l_source_line_id,
744: p_source_code => p_source_code,
745: x_return_status => l_rs);
746:
747: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
748: l_status := 'NORMAL';
749: errbuf := 'Import Delivery Details is completed successfully';
750: retcode := '0';
751: ELSIF l_rs = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
747: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
748: l_status := 'NORMAL';
749: errbuf := 'Import Delivery Details is completed successfully';
750: retcode := '0';
751: ELSIF l_rs = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
752: l_status := 'WARNING';
753: errbuf := 'Import Delivery Details is completed with warning';
754: retcode := '1';
755: ELSE
840: --
841: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
842: END IF;
843: --
844: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
845:
846: OPEN C_Container;
847: FETCH C_Container INTO l_master_container_item_id, l_detail_container_item_id;
848:
876: --
877: RETURN;
878: --
879: WHEN others THEN
880: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
881: wsh_util_core.default_handler('WSH_INTERFACE.Default_Container');
882:
883: --
884: -- Debug Statements
877: RETURN;
878: --
879: WHEN others THEN
880: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
881: wsh_util_core.default_handler('WSH_INTERFACE.Default_Container');
882:
883: --
884: -- Debug Statements
885: --
1063: -- If p_cancel_delete_flag is 'D' and source_code is WSH, the API will Cancel the delivery details although
1064: -- p_cancel_delete_flag is specified as 'D'
1065:
1066: PROCEDURE Process_Details(
1067: p_details_id IN WSH_UTIL_CORE.Id_Tab_Type,
1068: p_cancel_delete_flag IN VARCHAR2,
1069: x_return_status OUT NOCOPY VARCHAR2) IS
1070:
1071: CURSOR c_assignment(c_detail_id NUMBER) IS
1130: WSH_DELETE_DETAIL_FAILED EXCEPTION;
1131: WSH_UNASSIGN_DETAIL_FAILED EXCEPTION;
1132:
1133: /* H integration: mark WSH lines as cancelled wrudge */
1134: l_cancel_dds WSH_UTIL_CORE.Id_Tab_Type;
1135:
1136: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
1137: -- K LPN CONV. rv
1138: l_lpn_in_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_in_rec_type;
1139: l_lpn_out_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_out_rec_type;
1140: -- K LPN CONV. rv
1141:
1142: -- Bug 5741373
1143: l_move_order_line_ids WSH_UTIL_CORE.Id_Tab_Type;
1144: l_source_line_ids WSH_UTIL_CORE.Id_Tab_Type;
1145: --
1146: l_debug_on BOOLEAN;
1147: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'PROCESS_DETAILS';
1140: -- K LPN CONV. rv
1141:
1142: -- Bug 5741373
1143: l_move_order_line_ids WSH_UTIL_CORE.Id_Tab_Type;
1144: l_source_line_ids WSH_UTIL_CORE.Id_Tab_Type;
1145: --
1146: l_debug_on BOOLEAN;
1147: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'PROCESS_DETAILS';
1148: l_notfound BOOLEAN;
1158: WSH_DEBUG_SV.push(l_module_name);
1159: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1160: WSH_DEBUG_SV.log(l_module_name,'p_cancel_delete_flag',p_cancel_delete_flag);
1161: END IF;
1162: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1163:
1164: FOR i IN 1 .. p_details_id.COUNT
1165: LOOP
1166: OPEN c_assignment(p_details_id(i));
1310: p_unreserve_mode => 'UNRESERVE',
1311: p_override_retain_ato_rsv => 'Y', -- 2747520
1312: x_return_status => l_return_status);
1313:
1314: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1315: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1316: IF l_debug_on THEN
1317: WSH_DEBUG_SV.logmsg(l_module_name, 'UNRESERVE DELIVERY DETAIL '|| P_DETAILS_ID ( I ) || ' FAILED' );
1318: END IF;
1311: p_override_retain_ato_rsv => 'Y', -- 2747520
1312: x_return_status => l_return_status);
1313:
1314: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1315: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1316: IF l_debug_on THEN
1317: WSH_DEBUG_SV.logmsg(l_module_name, 'UNRESERVE DELIVERY DETAIL '|| P_DETAILS_ID ( I ) || ' FAILED' );
1318: END IF;
1319: raise WSH_DEL_RESERVATION_FAILED;
1335: p_detail_id => p_details_id(i),
1336: p_validate_flag => 'N',
1337: x_return_status => l_return_status);
1338:
1339: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1340: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1341:
1342: IF l_debug_on THEN
1343: WSH_DEBUG_SV.logmsg(l_module_name, 'UNASSIGN DETAIL FROM CONTAINER FAILED FOR DD '|| P_DETAILS_ID ( I ));
1336: p_validate_flag => 'N',
1337: x_return_status => l_return_status);
1338:
1339: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1340: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1341:
1342: IF l_debug_on THEN
1343: WSH_DEBUG_SV.logmsg(l_module_name, 'UNASSIGN DETAIL FROM CONTAINER FAILED FOR DD '|| P_DETAILS_ID ( I ));
1344: END IF;
1355: p_detail_id => p_details_id(i),
1356: p_validate_flag => 'N',
1357: x_return_status => l_return_status);
1358:
1359: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1360: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1361:
1362: IF l_debug_on THEN
1363: WSH_DEBUG_SV.logmsg(l_module_name, 'UNASSIGN DETAIL FROM DELIVERY FAILED FOR DD '|| P_DETAILS_ID ( I ));
1356: p_validate_flag => 'N',
1357: x_return_status => l_return_status);
1358:
1359: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1360: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1361:
1362: IF l_debug_on THEN
1363: WSH_DEBUG_SV.logmsg(l_module_name, 'UNASSIGN DETAIL FROM DELIVERY FAILED FOR DD '|| P_DETAILS_ID ( I ));
1364: END IF;
1388:
1389: END IF;
1390: -- End J: W/V Changes
1391:
1392: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1393: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1394:
1395: IF l_debug_on THEN
1396: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE DELIVERY DETAIL '|| P_DETAILS_ID ( I ) || ' FAILED' );
1389: END IF;
1390: -- End J: W/V Changes
1391:
1392: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1393: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1394:
1395: IF l_debug_on THEN
1396: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE DELIVERY DETAIL '|| P_DETAILS_ID ( I ) || ' FAILED' );
1397: END IF;
1501: IF l_debug_on THEN
1502: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1503: END IF;
1504: -- Only Handle Unexpected error
1505: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1506: x_return_status := l_dbi_rs;
1507: -- just pass this Unexpected error to calling API
1508: -- since there is no further code flow in this procedure, no need to RETURN
1509: -- just continue
1535: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1536: END IF;
1537: --
1538: --
1539: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS
1540: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
1541: THEN
1542: --
1543: x_return_status := l_return_status;
1536: END IF;
1537: --
1538: --
1539: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS
1540: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
1541: THEN
1542: --
1543: x_return_status := l_return_status;
1544: --
1541: THEN
1542: --
1543: x_return_status := l_return_status;
1544: --
1545: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1546: AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1547: THEN
1548: --
1549: x_return_status := l_return_status;
1542: --
1543: x_return_status := l_return_status;
1544: --
1545: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1546: AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1547: THEN
1548: --
1549: x_return_status := l_return_status;
1550: --
1561:
1562: EXCEPTION
1563:
1564: WHEN WSH_DELETE_DETAIL_FAILED THEN
1565: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1566: --
1567: -- K LPN CONV. rv
1568: --
1569: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1585: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1586: END IF;
1587: --
1588: --
1589: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1590: x_return_status := l_return_status;
1591: END IF;
1592: --
1593: --}
1607: CLOSE c_details;
1608: END IF;
1609:
1610: WHEN WSH_DEL_RESERVATION_FAILED THEN
1611: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1612: --
1613: -- K LPN CONV. rv
1614: --
1615: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1631: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1632: END IF;
1633: --
1634: --
1635: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1636: x_return_status := l_return_status;
1637: END IF;
1638: --
1639: --}
1653: CLOSE c_details;
1654: END IF;
1655: --
1656: WHEN OTHERS THEN
1657: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1658: wsh_util_core.default_handler('WSH_INTERFACE.PROCESS_DETAILS');
1659: IF l_debug_on THEN
1660: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1661: END IF;
1654: END IF;
1655: --
1656: WHEN OTHERS THEN
1657: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1658: wsh_util_core.default_handler('WSH_INTERFACE.PROCESS_DETAILS');
1659: IF l_debug_on THEN
1660: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1661: END IF;
1662: --
1710: -- to delete the delivery details if source_code is 'OE' and cancel delivery details
1711: -- if source_code is 'WSH'
1712:
1713: PROCEDURE Delete_Details(
1714: p_details_id IN WSH_UTIL_CORE.Id_Tab_Type,
1715: x_return_status OUT NOCOPY VARCHAR2) IS
1716:
1717: l_debug_on BOOLEAN;
1718: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELETE_DETAILS';
1726: IF l_debug_on THEN
1727: WSH_DEBUG_SV.push(l_module_name);
1728: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1729: END IF;
1730: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1731:
1732: process_details(
1733: p_details_id => p_details_id,
1734: p_cancel_delete_flag => 'D',
1739: END IF;
1740:
1741: EXCEPTION
1742: WHEN OTHERS THEN
1743: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1744: wsh_util_core.default_handler('WSH_INTERFACE.DELETE_DETAILS');
1745:
1746: IF l_debug_on THEN
1747: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1740:
1741: EXCEPTION
1742: WHEN OTHERS THEN
1743: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1744: wsh_util_core.default_handler('WSH_INTERFACE.DELETE_DETAILS');
1745:
1746: IF l_debug_on THEN
1747: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1748: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1758: -- This procedure calls private API process_details with p_cancel_delete_flag 'C'
1759: -- to cancel the delivery details
1760:
1761: PROCEDURE Cancel_Details(
1762: p_details_id IN WSH_UTIL_CORE.Id_Tab_Type,
1763: x_return_status OUT NOCOPY VARCHAR2) IS
1764:
1765: l_debug_on BOOLEAN;
1766: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'CANCEL_DETAILS';
1771: l_reset_flags BOOLEAN;
1772:
1773: BEGIN
1774: -- Bugfix 4070732
1775: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null
1776: THEN
1777: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
1778: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
1779: END IF;
1773: BEGIN
1774: -- Bugfix 4070732
1775: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null
1776: THEN
1777: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
1778: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
1779: END IF;
1780: -- End of Code Bugfix 4070732
1781: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1774: -- Bugfix 4070732
1775: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null
1776: THEN
1777: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
1778: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
1779: END IF;
1780: -- End of Code Bugfix 4070732
1781: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1782: IF l_debug_on IS NULL
1786: IF l_debug_on THEN
1787: WSH_DEBUG_SV.push(l_module_name);
1788: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1789: END IF;
1790: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1791:
1792: process_details(
1793: p_details_id => p_details_id,
1794: p_cancel_delete_flag => 'C',
1796:
1797: --
1798: -- Start code for Bugfix 4070732
1799: --
1800: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1801: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
1802: --{
1803: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1804: --{
1797: --
1798: -- Start code for Bugfix 4070732
1799: --
1800: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1801: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
1802: --{
1803: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1804: --{
1805: IF l_debug_on THEN
1799: --
1800: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1801: AND UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
1802: --{
1803: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1804: --{
1805: IF l_debug_on THEN
1806: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1807: END IF;
1802: --{
1803: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1804: --{
1805: IF l_debug_on THEN
1806: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1807: END IF;
1808:
1809: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1810: x_return_status => l_return_status);
1805: IF l_debug_on THEN
1806: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1807: END IF;
1808:
1809: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1810: x_return_status => l_return_status);
1811:
1812:
1813: IF l_debug_on THEN
1813: IF l_debug_on THEN
1814: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1815: END IF;
1816:
1817: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1818: x_return_status := l_return_status;
1819: END IF;
1820: --}
1821: END IF;
1819: END IF;
1820: --}
1821: END IF;
1822: --}
1823: ELSIF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
1824: --{
1825: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1826: --{
1827: l_reset_flags := TRUE;
1821: END IF;
1822: --}
1823: ELSIF UPPER(WSH_UTIL_CORE.G_START_OF_SESSION_API) = UPPER(l_api_session_name) THEN
1824: --{
1825: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1826: --{
1827: l_reset_flags := TRUE;
1828:
1829: IF l_debug_on THEN
1826: --{
1827: l_reset_flags := TRUE;
1828:
1829: IF l_debug_on THEN
1830: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1831: END IF;
1832:
1833: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
1834: x_return_status => l_return_status);
1829: IF l_debug_on THEN
1830: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1831: END IF;
1832:
1833: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
1834: x_return_status => l_return_status);
1835:
1836: IF l_debug_on THEN
1837: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1836: IF l_debug_on THEN
1837: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1838: END IF;
1839:
1840: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1841: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1842: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1843: x_return_status := l_return_status;
1844: END IF;
1837: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1838: END IF;
1839:
1840: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1841: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1842: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1843: x_return_status := l_return_status;
1844: END IF;
1845: --}
1838: END IF;
1839:
1840: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1841: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1842: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1843: x_return_status := l_return_status;
1844: END IF;
1845: --}
1846: END IF;
1854: END IF;
1855:
1856: EXCEPTION
1857: WHEN OTHERS THEN
1858: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1859: wsh_util_core.default_handler('WSH_INTERFACE.CANCEL_DETAILS');
1860: --
1861: -- Start code for Bugfix 4070732
1862: --
1855:
1856: EXCEPTION
1857: WHEN OTHERS THEN
1858: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1859: wsh_util_core.default_handler('WSH_INTERFACE.CANCEL_DETAILS');
1860: --
1861: -- Start code for Bugfix 4070732
1862: --
1863: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1859: wsh_util_core.default_handler('WSH_INTERFACE.CANCEL_DETAILS');
1860: --
1861: -- Start code for Bugfix 4070732
1862: --
1863: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1864: --{
1865: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1866: --{
1867: IF l_debug_on THEN
1861: -- Start code for Bugfix 4070732
1862: --
1863: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1864: --{
1865: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1866: --{
1867: IF l_debug_on THEN
1868: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1869: END IF;
1864: --{
1865: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1866: --{
1867: IF l_debug_on THEN
1868: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1869: END IF;
1870:
1871: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1872: x_return_status => l_return_status);
1867: IF l_debug_on THEN
1868: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1869: END IF;
1870:
1871: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1872: x_return_status => l_return_status);
1873:
1874:
1875: IF l_debug_on THEN
1875: IF l_debug_on THEN
1876: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1877: END IF;
1878:
1879: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1880: x_return_status := l_return_status;
1881: END IF;
1882: --}
1883: END IF;
1941: --
1942: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
1943: END IF;
1944: --
1945: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1946:
1947: OPEN c_details;
1948: FETCH c_details INTO l_detail_rec;
1949:
1952: RAISE get_max_load_qty_failed ;
1953: ELSE
1954:
1955: -- bug # 3259762
1956: l_item_name := WSH_UTIL_CORE.Get_Item_Name(l_detail_rec.inventory_item_id, l_detail_rec.organization_id);
1957: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_detail_rec.organization_id);
1958: --
1959: if l_detail_rec.detail_container_item_id is not null then
1960:
1953: ELSE
1954:
1955: -- bug # 3259762
1956: l_item_name := WSH_UTIL_CORE.Get_Item_Name(l_detail_rec.inventory_item_id, l_detail_rec.organization_id);
1957: l_org_name := WSH_UTIL_CORE.Get_Org_Name(l_detail_rec.organization_id);
1958: --
1959: if l_detail_rec.detail_container_item_id is not null then
1960:
1961: l_container_item_id := l_detail_rec.detail_container_item_id ;
1993: END IF;
1994: --
1995: EXCEPTION
1996: WHEN get_max_load_qty_failed THEN
1997: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1998: --
1999: -- Debug Statements
2000: --
2001: IF l_debug_on THEN
2007: --
2008:
2009: --bug # 3259762
2010: WHEN NO_DATA_FOUND THEN
2011: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2012: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONT_LOAD');
2013: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_item_name);
2014: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
2015: --
2025: --
2026:
2027:
2028: WHEN others THEN
2029: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2030: wsh_util_core.default_handler('WSH_INTERFACE.Get_Max_Load_Qty');
2031:
2032: --
2033: -- Debug Statements
2026:
2027:
2028: WHEN others THEN
2029: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2030: wsh_util_core.default_handler('WSH_INTERFACE.Get_Max_Load_Qty');
2031:
2032: --
2033: -- Debug Statements
2034: --
2100: --
2101: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2102: END IF;
2103: --
2104: l_rs := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2105:
2106: --
2107: -- Debug Statements
2108: --
2137: x_shipped_flag => l_shipped_flag,
2138: x_interface_flag => l_interface_flag,
2139: x_return_status => l_rs);
2140:
2141: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2142: EXIT records_loop;
2143: END IF;
2144: --
2145: --
2176: x_shipped_flag => l_shipped_flag,
2177: x_interface_flag => l_interface_flag,
2178: x_return_status => l_rs);
2179:
2180: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2181: EXIT records_loop;
2182: END IF;
2183: --
2184: -- LSP PROJECT : Populate local table if client info is there on dd.
2212: AND (l_confirmed_flag OR l_shipped_flag)
2213: --Standalone project
2214: AND nvl(l_standalone_mode, 'I') = 'I' THEN
2215: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_ATTR_NOT_ALLOWED');
2216: l_rs := WSH_UTIL_CORE.G_RET_STS_ERROR;
2217: WSH_UTIL_CORE.add_message (l_rs);
2218: END IF;
2219:
2220: --Standalone project - Start
2213: --Standalone project
2214: AND nvl(l_standalone_mode, 'I') = 'I' THEN
2215: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_ATTR_NOT_ALLOWED');
2216: l_rs := WSH_UTIL_CORE.G_RET_STS_ERROR;
2217: WSH_UTIL_CORE.add_message (l_rs);
2218: END IF;
2219:
2220: --Standalone project - Start
2221: -- LSP PROJECT : In case of LSP mode, request can come from both LSP orders as well as
2240: WSH_DEBUG_SV.log(l_module_name, 'Return Status', l_rs );
2241: END IF;
2242: --
2243:
2244: IF l_rs <> WSH_UTIl_CORE.G_RET_STS_SUCCESS THEN
2245: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_ATTR_NOT_ALLOWED');
2246: l_rs := WSH_UTIL_CORE.G_RET_STS_ERROR;
2247: WSH_UTIL_CORE.add_message (l_rs);
2248: END IF;
2242: --
2243:
2244: IF l_rs <> WSH_UTIl_CORE.G_RET_STS_SUCCESS THEN
2245: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_ATTR_NOT_ALLOWED');
2246: l_rs := WSH_UTIL_CORE.G_RET_STS_ERROR;
2247: WSH_UTIL_CORE.add_message (l_rs);
2248: END IF;
2249: END IF;
2250: --Standalone project - End
2243:
2244: IF l_rs <> WSH_UTIl_CORE.G_RET_STS_SUCCESS THEN
2245: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_ATTR_NOT_ALLOWED');
2246: l_rs := WSH_UTIL_CORE.G_RET_STS_ERROR;
2247: WSH_UTIL_CORE.add_message (l_rs);
2248: END IF;
2249: END IF;
2250: --Standalone project - End
2251:
2260: END IF;
2261: --
2262: EXCEPTION
2263: WHEN others THEN
2264: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2265: wsh_util_core.default_handler('WSH_INTERFACE.Lock_Records');
2266:
2267: --
2268: -- Debug Statements
2261: --
2262: EXCEPTION
2263: WHEN others THEN
2264: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2265: wsh_util_core.default_handler('WSH_INTERFACE.Lock_Records');
2266:
2267: --
2268: -- Debug Statements
2269: --
2286:
2287: RECORD_LOCKED EXCEPTION;
2288: PRAGMA EXCEPTION_INIT(RECORD_LOCKED, -54);
2289:
2290: l_rs VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2291: l_dummy_id NUMBER;
2292: l_del_status_code VARCHAR2(2);
2293: l_det_status_code VARCHAR2(2);
2294: l_ship_set_id NUMBER;
2436: END IF;
2437: --
2438: EXCEPTION
2439: WHEN RECORD_LOCKED THEN
2440: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2441: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
2442: WSH_UTIL_CORE.add_message (x_return_status);
2443: --
2444: -- Debug Statements
2438: EXCEPTION
2439: WHEN RECORD_LOCKED THEN
2440: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2441: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
2442: WSH_UTIL_CORE.add_message (x_return_status);
2443: --
2444: -- Debug Statements
2445: --
2446: IF l_debug_on THEN
2450: --
2451: RETURN;
2452:
2453: WHEN others THEN
2454: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2455: wsh_util_core.default_handler('WSH_INTERFACE.Lock_Delivery_Detail');
2456:
2457: --
2458: -- Debug Statements
2451: RETURN;
2452:
2453: WHEN others THEN
2454: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2455: wsh_util_core.default_handler('WSH_INTERFACE.Lock_Delivery_Detail');
2456:
2457: --
2458: -- Debug Statements
2459: --
2473: x_return_status OUT NOCOPY VARCHAR2
2474: ) IS
2475:
2476: l_counter NUMBER;
2477: l_rs VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2478: l_update_allowed VARCHAR2(1);
2479:
2480: --
2481: l_debug_on BOOLEAN;
2549: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING CHECK_UPDATES_ALLOWED ' || L_RS );
2550: END IF;
2551: --
2552: -- TPW - Distributed Organization Changes - Start
2553: IF l_rs NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2554: --
2555: IF l_debug_on THEN
2556: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_UTILITIES.Check_Updates_Allowed',WSH_DEBUG_SV.C_PROC_LEVEL);
2557: END IF;
2571: END IF;
2572: END IF;
2573:
2574:
2575: IF l_rs NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2576:
2577: IF p_interface_flag = 'N' THEN
2578: --
2579: -- Debug Statements
2602: END IF;
2603: --
2604: END IF;
2605:
2606: IF l_rs NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2607: --
2608: -- Debug Statements
2609: --
2610: IF l_debug_on THEN
2624: p_interface_flag => p_interface_flag,
2625: x_return_status => l_rs);
2626: END IF;
2627:
2628: IF l_rs NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2629: --
2630: -- Debug Statements
2631: --
2632: IF l_debug_on THEN
2670: p_source_code =>p_source_code,
2671: p_action_flag => 'D',
2672: x_return_status => l_rs);
2673:
2674: IF l_rs <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2675: x_return_status := l_rs;
2676: exit;
2677: END IF;
2678: END IF;
2690: END IF;
2691: --
2692: EXCEPTION
2693: WHEN OTHERS THEN
2694: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2695: wsh_util_core.default_handler('WSH_INTERFACE.Process_Records');
2696:
2697: --
2698: -- Debug Statements
2691: --
2692: EXCEPTION
2693: WHEN OTHERS THEN
2694: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2695: wsh_util_core.default_handler('WSH_INTERFACE.Process_Records');
2696:
2697: --
2698: -- Debug Statements
2699: --
2742: --
2743: ELSE
2744: IF name is NOT NULL then
2745: FND_MESSAGE.SET_NAME('WSH', name);
2746: WSH_UTIL_CORE.add_message ('E');
2747: END IF;
2748: END IF;
2749: --
2750: -- Debug Statements
2774: PROCEDURE Get_Details_Snapshot(
2775: p_source_code IN VARCHAR2,
2776: p_changed_attributes IN ChangedAttributeTabType,
2777: p_phase IN NUMBER,
2778: x_dd_ids IN OUT NOCOPY wsh_util_core.id_tab_type,
2779: x_out_table OUT NOCOPY wsh_interface.deliverydetailtab,
2780: x_return_status OUT NOCOPY VARCHAR2) IS
2781:
2782: -- use delivery detail id
2821: AND nvl(wdd.line_direction, 'O') IN ('O', 'IO');
2822: i NUMBER;
2823: l_dd_rec wsh_interface.delivery_detail_rec;
2824: l_dd_tab wsh_interface.deliverydetailtab;
2825: l_dd_ids wsh_util_core.id_tab_type;
2826: l_source_line_id wsh_delivery_details.source_line_id%TYPE;
2827: --
2828: l_debug_on BOOLEAN;
2829: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_DETAILS_SNAPSHOT';
2845: WSH_DEBUG_SV.log(l_module_name,'Changedattribute - count',p_changed_attributes.count);
2846: WSH_DEBUG_SV.log(l_module_name,'Phase',p_phase);
2847: END IF;
2848:
2849: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2850:
2851: l_dd_tab.delete;
2852:
2853: --bug 2769339
2893: END IF;
2894:
2895: EXCEPTION
2896: WHEN others THEN
2897: wsh_util_core.default_handler('WSH_INTERFACE.get_details_snapshot');
2898: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2899: IF l_debug_on THEN
2900: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2901: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2894:
2895: EXCEPTION
2896: WHEN others THEN
2897: wsh_util_core.default_handler('WSH_INTERFACE.get_details_snapshot');
2898: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2899: IF l_debug_on THEN
2900: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2901: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2902: END IF;