[Home] [Help]
67: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
68: --
69: IF l_debug_on IS NULL
70: THEN
71: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
72: END IF;
73: --
74: IF l_debug_on THEN
75: WSH_DEBUG_SV.push(l_module_name);
71: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
72: END IF;
73: --
74: IF l_debug_on THEN
75: WSH_DEBUG_SV.push(l_module_name);
76: --
77: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
78: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
79:
73: --
74: IF l_debug_on THEN
75: WSH_DEBUG_SV.push(l_module_name);
76: --
77: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
78: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
79:
80: WSH_DEBUG_SV.log(l_module_name,'COUNT OF P_CHANGED_ATTR Table',p_changed_attributes.COUNT);
81:
74: IF l_debug_on THEN
75: WSH_DEBUG_SV.push(l_module_name);
76: --
77: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
78: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
79:
80: WSH_DEBUG_SV.log(l_module_name,'COUNT OF P_CHANGED_ATTR Table',p_changed_attributes.COUNT);
81:
82: END IF;
76: --
77: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
78: WSH_DEBUG_SV.log(l_module_name,'P_LOG_LEVEL',P_LOG_LEVEL);
79:
80: WSH_DEBUG_SV.log(l_module_name,'COUNT OF P_CHANGED_ATTR Table',p_changed_attributes.COUNT);
81:
82: END IF;
83: --
84: l_rs := FND_API.G_RET_STS_SUCCESS;
87: --
88: -- Debug Statements
89: --
90: IF l_debug_on THEN
91: WSH_DEBUG_SV.logmsg(l_module_name, 'INSIDE WSH_INTERFACE.UPDATE_SHIPPING_ATTRIBUTES' );
92: END IF;
93: --
94:
95: Lock_Records(
104: --
105: -- Debug Statements
106: --
107: IF l_debug_on THEN
108: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING WSH_INTERFACE.LOCK_RECORDS BEFORE PROCESS_RECORDS ' || L_RS );
109: END IF;
110: --
111: Process_Records(
112: p_source_code => p_source_code,
116: --
117: -- Debug Statements
118: --
119: IF l_debug_on THEN
120: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING WSH_INTERFACE.PROCESS_RECORDS ' || L_RS );
121: END IF;
122: --
123:
124: ELSIF (p_source_code = 'INV') THEN
126: --
127: -- Debug Statements
128: --
129: IF l_debug_on THEN
130: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.UPDATE_INVENTORY_INFO',WSH_DEBUG_SV.C_PROC_LEVEL);
131: END IF;
132: --
133: WSH_USA_INV_PVT.Update_Inventory_Info(
134: p_changed_attributes => p_changed_attributes,
139: --
140: -- Debug Statements
141: --
142: IF l_debug_on THEN
143: WSH_DEBUG_SV.logmsg(l_module_name, 'INVALID SOURCE CODE ' );
144: END IF;
145: --
146: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_SOURCE_CODE');
147: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
155: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
156: THEN
157: --{
158: IF l_debug_on THEN
159: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
160: END IF;
161:
162: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
163: (
167: );
168: --
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
194: --
195: -- Debug Statements
196: --
197: IF l_debug_on THEN
198: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_INTERFACE.PROCESS_RECORDS / UPDATE_INVENTORY_INFO' );
199: END IF;
200: --
201: ROLLBACK TO before_changes;
202:
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);
223: x_return_status => l_return_status);
224:
225:
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;
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);
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);
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,
272: --
273: -- Debug Statements
274: --
275: IF l_debug_on THEN
276: WSH_DEBUG_SV.pop(l_module_name);
277: END IF;
278: --
279: EXCEPTION
280: -- J IB --jckwok
285: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
286: THEN
287: --{
288: IF l_debug_on THEN
289: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
290: END IF;
291:
292: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
293: (
297: );
298: --
299: --
300: IF l_debug_on THEN
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
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);
326: x_return_status => l_return_status);
327:
328:
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;
340: --
341: -- End of Code Bugfix 4070732
342: --
343: IF l_debug_on THEN
344: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_SOURCE_CODE');
345: END IF;
346: --
347: WHEN others THEN
348: ROLLBACK TO before_changes;
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);
364: x_return_status => l_return_status);
365:
366:
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;
381: --
382: -- Debug Statements
383: --
384: IF l_debug_on THEN
385: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
386: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
387: END IF;
388: --
389: END Update_Shipping_Attributes;
382: -- Debug Statements
383: --
384: IF l_debug_on THEN
385: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
386: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
387: END IF;
388: --
389: END Update_Shipping_Attributes;
390:
450: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
451: --
452: IF l_debug_on IS NULL
453: THEN
454: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
455: END IF;
456: --
457: IF l_debug_on THEN
458: WSH_DEBUG_SV.push(l_module_name);
454: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
455: END IF;
456: --
457: IF l_debug_on THEN
458: WSH_DEBUG_SV.push(l_module_name);
459: --
460: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
461: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
462: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
456: --
457: IF l_debug_on THEN
458: WSH_DEBUG_SV.push(l_module_name);
459: --
460: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
461: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
462: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
463: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
464: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
457: IF l_debug_on THEN
458: WSH_DEBUG_SV.push(l_module_name);
459: --
460: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
461: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
462: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
463: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
464: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
465: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
458: WSH_DEBUG_SV.push(l_module_name);
459: --
460: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
461: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
462: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
463: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
464: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
465: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
466: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
459: --
460: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
461: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
462: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
463: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
464: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
465: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
466: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
467: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
460: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
461: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
462: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
463: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
464: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
465: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
466: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
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);
461: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
462: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
463: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
464: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
465: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
466: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
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;
462: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
463: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
464: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
465: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
466: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
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: --
463: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
464: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
465: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
466: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
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;
464: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
465: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
466: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
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: --
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
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);
490: END IF;
491: RETURN;
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);
490: END IF;
491: RETURN;
492: ELSE
493: raise INVALID_ORG;
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
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);
513: END IF;
514: RETURN;
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);
513: END IF;
514: RETURN;
515: ELSE
516: raise invalid_cust_site;
559: --
560: -- Debug Statements
561: --
562: IF l_debug_on THEN
563: WSH_DEBUG_SV.pop(l_module_name);
564: END IF;
565: --
566: exception
567: when invalid_org then
571: --
572: -- Debug Statements
573: --
574: IF l_debug_on THEN
575: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_ORG exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ORG');
577: END IF;
578: --
579: when invalid_cust_site then
572: -- Debug Statements
573: --
574: IF l_debug_on THEN
575: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_ORG exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
583: --
584: -- Debug Statements
585: --
586: IF l_debug_on THEN
587: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_CUST_SITE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
588: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_CUST_SITE');
589: END IF;
590: --
591: when others then
584: -- Debug Statements
585: --
586: IF l_debug_on THEN
587: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_CUST_SITE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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');
594: --
595: -- Debug Statements
596: --
597: IF l_debug_on THEN
598: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
600: END IF;
601: --
602: end Get_In_Transit_Qty;
595: -- Debug Statements
596: --
597: IF l_debug_on THEN
598: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
600: END IF;
601: --
602: end Get_In_Transit_Qty;
603:
632: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
633: --
634: IF l_debug_on IS NULL
635: THEN
636: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
637: END IF;
638: --
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.push(l_module_name);
636: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
637: END IF;
638: --
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.push(l_module_name);
641: --
642: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
643: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
644: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
638: --
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.push(l_module_name);
641: --
642: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
643: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
644: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
645: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.push(l_module_name);
641: --
642: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
643: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
644: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
645: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
640: WSH_DEBUG_SV.push(l_module_name);
641: --
642: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
643: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
644: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
645: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
648: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
641: --
642: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
643: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
644: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
645: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
648: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
649: END IF;
642: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
643: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
644: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
645: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
648: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
649: END IF;
650: --
643: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
644: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
645: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
648: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
649: END IF;
650: --
651: l_seq_num:=NULL;
644: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
645: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
646: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
647: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
648: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
649: END IF;
650: --
651: l_seq_num:=NULL;
652: l_shipment_date:=NULL;
667: --
668: -- Debug Statements
669: --
670: IF l_debug_on THEN
671: WSH_DEBUG_SV.pop(l_module_name);
672: END IF;
673: --
674: exception
675: when others then
678: --
679: -- Debug Statements
680: --
681: IF l_debug_on THEN
682: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
683: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
684: END IF;
685: --
686: end Get_In_Transit_Qty;
679: -- Debug Statements
680: --
681: IF l_debug_on THEN
682: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
683: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
684: END IF;
685: --
686: end Get_In_Transit_Qty;
687:
712: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
713: --
714: IF l_debug_on IS NULL
715: THEN
716: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
717: END IF;
718: --
719: IF l_debug_on THEN
720: WSH_DEBUG_SV.push(l_module_name);
716: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
717: END IF;
718: --
719: IF l_debug_on THEN
720: WSH_DEBUG_SV.push(l_module_name);
721: --
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;
718: --
719: IF l_debug_on THEN
720: WSH_DEBUG_SV.push(l_module_name);
721: --
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;
719: IF l_debug_on THEN
720: WSH_DEBUG_SV.push(l_module_name);
721: --
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';
735: --
736: -- Debug Statements
737: --
738: IF l_debug_on THEN
739: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_ACTIONS_PVT.IMPORT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
740: END IF;
741: --
742: WSH_USA_ACTIONS_PVT.Import_Delivery_Details(
743: p_source_line_id => l_source_line_id,
763: --
764: -- Debug Statements
765: --
766: IF l_debug_on THEN
767: WSH_DEBUG_SV.pop(l_module_name);
768: END IF;
769: --
770: EXCEPTION
771: WHEN OTHERS THEN
772: --
773: -- Debug Statements
774: --
775: IF l_debug_on THEN
776: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTERFACE.PRINTMSG',WSH_DEBUG_SV.C_PROC_LEVEL);
777: END IF;
778: --
779: WSH_INTERFACE.PrintMsg('Import Delivery Details failed with unexpected error ' || SQLCODE);
780: --
780: --
781: -- Debug Statements
782: --
783: IF l_debug_on THEN
784: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTERFACE.PRINTMSG',WSH_DEBUG_SV.C_PROC_LEVEL);
785: END IF;
786: --
787: WSH_INTERFACE.PrintMsg('The unexpected error is ' || SQLERRM);
788: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
792: --
793: -- Debug Statements
794: --
795: IF l_debug_on THEN
796: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
797: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
798: END IF;
799: --
800: END IMPORT_DELIVERY_DETAILS;
793: -- Debug Statements
794: --
795: IF l_debug_on THEN
796: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
797: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
798: END IF;
799: --
800: END IMPORT_DELIVERY_DETAILS;
801:
831: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
832: --
833: IF l_debug_on IS NULL
834: THEN
835: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
836: END IF;
837: --
838: IF l_debug_on THEN
839: WSH_DEBUG_SV.push(l_module_name);
835: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
836: END IF;
837: --
838: IF l_debug_on THEN
839: WSH_DEBUG_SV.push(l_module_name);
840: --
841: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
842: END IF;
843: --
837: --
838: IF l_debug_on THEN
839: WSH_DEBUG_SV.push(l_module_name);
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:
860: --
861: -- Debug Statements
862: --
863: IF l_debug_on THEN
864: WSH_DEBUG_SV.pop(l_module_name);
865: END IF;
866: --
867: EXCEPTION
868: WHEN no_container THEN
869: --
870: -- Debug Statements
871: --
872: IF l_debug_on THEN
873: WSH_DEBUG_SV.logmsg(l_module_name,'NO_CONTAINER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
874: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_CONTAINER');
875: END IF;
876: --
877: RETURN;
870: -- Debug Statements
871: --
872: IF l_debug_on THEN
873: WSH_DEBUG_SV.logmsg(l_module_name,'NO_CONTAINER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
874: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_CONTAINER');
875: END IF;
876: --
877: RETURN;
878: --
883: --
884: -- Debug Statements
885: --
886: IF l_debug_on THEN
887: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
888: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
889: END IF;
890: --
891: END Default_Container;
884: -- Debug Statements
885: --
886: IF l_debug_on THEN
887: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
888: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
889: END IF;
890: --
891: END Default_Container;
892:
910: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
911: --
912: IF l_debug_on IS NULL
913: THEN
914: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
915: END IF;
916: --
917: IF l_debug_on THEN
918: WSH_DEBUG_SV.push(l_module_name);
914: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
915: END IF;
916: --
917: IF l_debug_on THEN
918: WSH_DEBUG_SV.push(l_module_name);
919: WSH_DEBUG_SV.log(l_module_name,'SOURCE_CODE',p_old_delivery_detail_info.source_code);
920: WSH_DEBUG_SV.log(l_module_name,'SOURCE_HEADER_ID',p_old_delivery_detail_info.source_header_id);
921: END IF;
922: --
915: END IF;
916: --
917: IF l_debug_on THEN
918: WSH_DEBUG_SV.push(l_module_name);
919: WSH_DEBUG_SV.log(l_module_name,'SOURCE_CODE',p_old_delivery_detail_info.source_code);
920: WSH_DEBUG_SV.log(l_module_name,'SOURCE_HEADER_ID',p_old_delivery_detail_info.source_header_id);
921: END IF;
922: --
923: x_new_delivery_detail_info.source_code := p_old_delivery_detail_info.source_code;
916: --
917: IF l_debug_on THEN
918: WSH_DEBUG_SV.push(l_module_name);
919: WSH_DEBUG_SV.log(l_module_name,'SOURCE_CODE',p_old_delivery_detail_info.source_code);
920: WSH_DEBUG_SV.log(l_module_name,'SOURCE_HEADER_ID',p_old_delivery_detail_info.source_header_id);
921: END IF;
922: --
923: x_new_delivery_detail_info.source_code := p_old_delivery_detail_info.source_code;
924: x_new_delivery_detail_info.source_header_id := p_old_delivery_detail_info.source_header_id;
1046: --
1047: -- Debug Statements
1048: --
1049: IF l_debug_on THEN
1050: WSH_DEBUG_SV.pop(l_module_name);
1051: END IF;
1052: --
1053: END Populate_Detail_Info;
1054:
1151:
1152: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1153: IF l_debug_on IS NULL
1154: THEN
1155: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1156: END IF;
1157: IF l_debug_on THEN
1158: WSH_DEBUG_SV.push(l_module_name);
1159: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1154: THEN
1155: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1156: END IF;
1157: IF l_debug_on THEN
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;
1155: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1156: END IF;
1157: IF l_debug_on THEN
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:
1156: END IF;
1157: IF l_debug_on THEN
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
1174: CLOSE c_details;
1175:
1176: IF (l_notfound) THEN
1177: IF l_debug_on THEN
1178: WSH_DEBUG_SV.logmsg(l_module_name, 'NO ASSIGNMENT RECORDS ARE FOUND' );
1179: END IF;
1180: GOTO loop_end; -- maybe already deleted.
1181: END IF;
1182:
1194: l_msg := FND_MESSAGE.GET;
1195: l_exception_location_id := l_detail_rec.ship_from_location_id;
1196:
1197: IF l_debug_on THEN
1198: WSH_DEBUG_SV.logmsg(l_module_name,'Line is packed.',WSH_DEBUG_SV.C_PROC_LEVEL);
1199: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1200: END IF;
1201:
1202: wsh_xc_util.log_exception(
1195: l_exception_location_id := l_detail_rec.ship_from_location_id;
1196:
1197: IF l_debug_on THEN
1198: WSH_DEBUG_SV.logmsg(l_module_name,'Line is packed.',WSH_DEBUG_SV.C_PROC_LEVEL);
1199: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1200: END IF;
1201:
1202: wsh_xc_util.log_exception(
1203: p_api_version => 1.0,
1223: -- the exception will alert the user that the container needs updating.
1224: -- continue flow, regardless of log_exception's return status
1225:
1226: IF l_debug_on THEN
1227: WSH_DEBUG_SV.logmsg(l_module_name,'l_exception_return_status=' || l_exception_return_status,WSH_DEBUG_SV.C_PROC_LEVEL);
1228: END IF;
1229:
1230: ELSIF (l_assign_rec.delivery_id IS NOT NULL) THEN
1231: -- if delivery line is assigned to delivery and delivery is planned,
1242: l_msg := FND_MESSAGE.GET;
1243: l_exception_location_id := l_detail_rec.ship_from_location_id;
1244:
1245: IF l_debug_on THEN
1246: WSH_DEBUG_SV.logmsg(l_module_name,'Line is in planned delivery.',WSH_DEBUG_SV.C_PROC_LEVEL);
1247: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1248: END IF;
1249:
1250: wsh_xc_util.log_exception(
1243: l_exception_location_id := l_detail_rec.ship_from_location_id;
1244:
1245: IF l_debug_on THEN
1246: WSH_DEBUG_SV.logmsg(l_module_name,'Line is in planned delivery.',WSH_DEBUG_SV.C_PROC_LEVEL);
1247: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1248: END IF;
1249:
1250: wsh_xc_util.log_exception(
1251: p_api_version => 1.0,
1267: -- the exception will alert the user that the container needs updating.
1268: -- continue flow, regardless of log_exception's return status
1269:
1270: IF l_debug_on THEN
1271: WSH_DEBUG_SV.logmsg(l_module_name,'l_exception_return_status=' || l_exception_return_status,WSH_DEBUG_SV.C_PROC_LEVEL);
1272: END IF;
1273: END IF;
1274: END IF;
1275:
1277:
1278: IF l_detail_rec.move_order_line_id IS NOT NULL AND
1279: l_detail_rec.released_status = 'S' THEN
1280: IF l_debug_on THEN
1281: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
1282: END IF;
1283:
1284: -- Added for bug 5741373
1285: l_move_order_line_ids(l_move_order_line_ids.count+1) := l_detail_rec.move_order_line_id;
1291: l_trolin_tbl(l_trolin_table_id).OPERATION := INV_GLOBALS.G_OPR_DELETE;
1292: l_trolin_old_tbl(l_trolin_table_id) := l_trolin_tbl(l_trolin_table_id);
1293:
1294: IF l_debug_on THEN
1295: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE MOVE ORDER LINE '||L_TROLIN_REC.LINE_ID );
1296: END IF;
1297: END IF;
1298:
1299: -- HW OPMCONV - Removed branching
1298:
1299: -- HW OPMCONV - Removed branching
1300:
1301: IF l_debug_on THEN
1302: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
1303: END IF;
1304:
1305: -- HW OPMCONV - Added Qty2
1306: WSH_DELIVERY_DETAILS_ACTIONS.Unreserve_delivery_detail(
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;
1320: END IF;
1321:
1327: ELSE
1328: -- J: W/V Changes
1329: IF (l_assign_rec.parent_delivery_detail_id IS NOT NULL) THEN
1330: IF l_debug_on THEN
1331: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
1332: END IF;
1333:
1334: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Detail_from_Cont(
1335: p_detail_id => p_details_id(i),
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;
1345: raise WSH_UNASSIGN_DETAIL_FAILED;
1346: END IF;
1347: END IF;
1347: END IF;
1348:
1349: IF (l_assign_rec.delivery_id IS NOT NULL) THEN
1350: IF l_debug_on THEN
1351: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
1352: END IF;
1353:
1354: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Detail_from_Delivery(
1355: p_detail_id => p_details_id(i),
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;
1365: raise WSH_UNASSIGN_DETAIL_FAILED;
1366: END IF;
1367: END IF;
1367: END IF;
1368:
1369: IF (p_cancel_delete_flag = 'C') THEN
1370: IF l_debug_on THEN
1371: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS to CANCEL',WSH_DEBUG_SV.C_PROC_LEVEL);
1372: END IF;
1373:
1374: WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details(
1375: p_delivery_detail_id => p_details_id(i),
1377: x_return_status => l_return_status );
1378:
1379: ELSE -- delete details
1380: IF l_debug_on THEN
1381: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS to DELETE',WSH_DEBUG_SV.C_PROC_LEVEL);
1382: END IF;
1383:
1384: WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details(
1385: p_delivery_detail_id => p_details_id(i),
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;
1398: raise WSH_DELETE_DETAIL_FAILED;
1399: END IF;
1400:
1420: FOR i in 1..l_move_order_line_ids.count
1421: LOOP
1422: --{
1423: IF l_debug_on THEN
1424: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.Cancel_Move_Order_Line',WSH_DEBUG_SV.C_PROC_LEVEL);
1425: WSH_DEBUG_SV.log(l_module_name, 'Move Order Line ID', l_move_order_line_ids(i));
1426: WSH_DEBUG_SV.log(l_module_name, 'Source Line ID', l_source_line_ids(i));
1427: END IF;
1428: --
1421: LOOP
1422: --{
1423: IF l_debug_on THEN
1424: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.Cancel_Move_Order_Line',WSH_DEBUG_SV.C_PROC_LEVEL);
1425: WSH_DEBUG_SV.log(l_module_name, 'Move Order Line ID', l_move_order_line_ids(i));
1426: WSH_DEBUG_SV.log(l_module_name, 'Source Line ID', l_source_line_ids(i));
1427: END IF;
1428: --
1429: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
1422: --{
1423: IF l_debug_on THEN
1424: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.Cancel_Move_Order_Line',WSH_DEBUG_SV.C_PROC_LEVEL);
1425: WSH_DEBUG_SV.log(l_module_name, 'Move Order Line ID', l_move_order_line_ids(i));
1426: WSH_DEBUG_SV.log(l_module_name, 'Source Line ID', l_source_line_ids(i));
1427: END IF;
1428: --
1429: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
1430: x_return_status => l_return_status,
1434: p_delete_reservations => 'Y',
1435: p_txn_source_line_id => l_source_line_ids(i) );
1436: --
1437: IF l_debug_on THEN
1438: WSH_DEBUG_SV.logmsg(l_module_name, 'RETURN_STATUS FROM Cancel_Move_Order_line IS '||L_RETURN_STATUS );
1439: END IF;
1440:
1441: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1442: --{
1445: --{
1446: l_message := FND_MSG_PUB.Get(j, 'F');
1447: l_message := replace(l_message, chr(0), ' ');
1448: IF l_debug_on THEN
1449: WSH_DEBUG_SV.logmsg(l_module_name, L_MESSAGE );
1450: END IF;
1451: --}
1452: END LOOP;
1453: RAISE Process_Move_Order_Failed;
1490: -- Update of wsh_delivery_details where requested_quantity/released_status
1491: -- are changed, call DBI API after the update.
1492: -- DBI API will check if DBI is installed
1493: IF l_debug_on THEN
1494: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_cancel_dds.count);
1495: END IF;
1496: WSH_INTEGRATION.DBI_Update_Detail_Log
1497: (p_delivery_detail_id_tab => l_cancel_dds,
1498: p_dml_type => 'UPDATE',
1498: p_dml_type => 'UPDATE',
1499: x_return_status => l_dbi_rs);
1500:
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;
1519: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1520: THEN
1521: --{
1522: IF l_debug_on THEN
1523: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
1524: END IF;
1525:
1526: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
1527: (
1531: );
1532: --
1533: --
1534: IF l_debug_on THEN
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
1555: -- K LPN CONV. rv
1556: --
1557:
1558: IF l_debug_on THEN
1559: WSH_DEBUG_SV.pop(l_module_name);
1560: END IF;
1561:
1562: EXCEPTION
1563:
1569: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1570: THEN
1571: --{
1572: IF l_debug_on THEN
1573: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
1574: END IF;
1575:
1576: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
1577: (
1581: );
1582: --
1583: --
1584: IF l_debug_on THEN
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
1596: -- K LPN CONV. rv
1597: --
1598:
1599: IF l_debug_on THEN
1600: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DELETE_DETAIL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1601: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DELETE_DETAIL_FAILED');
1602: END IF;
1603: IF c_assignment%ISOPEN THEN
1604: CLOSE c_assignment;
1597: --
1598:
1599: IF l_debug_on THEN
1600: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DELETE_DETAIL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1601: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DELETE_DETAIL_FAILED');
1602: END IF;
1603: IF c_assignment%ISOPEN THEN
1604: CLOSE c_assignment;
1605: END IF;
1615: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1616: THEN
1617: --{
1618: IF l_debug_on THEN
1619: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
1620: END IF;
1621:
1622: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
1623: (
1627: );
1628: --
1629: --
1630: IF l_debug_on THEN
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
1642: -- K LPN CONV. rv
1643: --
1644:
1645: IF l_debug_on THEN
1646: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DEL_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DEL_RESERVATION_FAILED');
1648: END IF;
1649: IF c_assignment%ISOPEN THEN
1650: CLOSE c_assignment;
1643: --
1644:
1645: IF l_debug_on THEN
1646: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DEL_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DEL_RESERVATION_FAILED');
1648: END IF;
1649: IF c_assignment%ISOPEN THEN
1650: CLOSE c_assignment;
1651: END IF;
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: --
1663: -- K LPN CONV. rv
1664: --
1665: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1666: THEN
1667: --{
1668: IF l_debug_on THEN
1669: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
1670: END IF;
1671:
1672: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
1673: (
1677: );
1678: --
1679: --
1680: IF l_debug_on THEN
1681: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1682: END IF;
1683: --
1684: --
1685: --}
1688: -- K LPN CONV. rv
1689: --
1690:
1691: IF l_debug_on THEN
1692: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1693: END IF;
1694: IF c_assignment%ISOPEN THEN
1695: CLOSE c_assignment;
1696: END IF;
1720: BEGIN
1721: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1722: IF l_debug_on IS NULL
1723: THEN
1724: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1725: END IF;
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);
1723: THEN
1724: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1725: END IF;
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:
1724: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1725: END IF;
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(
1734: p_cancel_delete_flag => 'D',
1735: x_return_status => x_return_status);
1736:
1737: IF l_debug_on THEN
1738: WSH_DEBUG_SV.pop(l_module_name);
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);
1748: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1749: END IF;
1750:
1751: END Delete_Details;
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');
1749: END IF;
1750:
1751: END Delete_Details;
1752:
1780: -- End of Code Bugfix 4070732
1781: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1782: IF l_debug_on IS NULL
1783: THEN
1784: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1785: END IF;
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);
1783: THEN
1784: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1785: END IF;
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:
1784: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1785: END IF;
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(
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);
1810: x_return_status => l_return_status);
1811:
1812:
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;
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);
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);
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,
1849: --
1850: -- End of Code Bugfix 4070732
1851: --
1852: IF l_debug_on THEN
1853: WSH_DEBUG_SV.pop(l_module_name);
1854: END IF;
1855:
1856: EXCEPTION
1857: WHEN OTHERS 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;
1870:
1871: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1872: x_return_status => l_return_status);
1872: x_return_status => l_return_status);
1873:
1874:
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;
1887: -- End of Code Bugfix 4070732
1888: --
1889:
1890: IF l_debug_on THEN
1891: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1892: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1893: END IF;
1894:
1895: END Cancel_Details;
1888: --
1889:
1890: IF l_debug_on THEN
1891: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1892: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1893: END IF;
1894:
1895: END Cancel_Details;
1896:
1932: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1933: --
1934: IF l_debug_on IS NULL
1935: THEN
1936: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1937: END IF;
1938: --
1939: IF l_debug_on THEN
1940: WSH_DEBUG_SV.push(l_module_name);
1936: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1937: END IF;
1938: --
1939: IF l_debug_on THEN
1940: WSH_DEBUG_SV.push(l_module_name);
1941: --
1942: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
1943: END IF;
1944: --
1938: --
1939: IF l_debug_on THEN
1940: WSH_DEBUG_SV.push(l_module_name);
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:
1988: --
1989: -- Debug Statements
1990: --
1991: IF l_debug_on THEN
1992: WSH_DEBUG_SV.pop(l_module_name);
1993: END IF;
1994: --
1995: EXCEPTION
1996: WHEN get_max_load_qty_failed THEN
1998: --
1999: -- Debug Statements
2000: --
2001: IF l_debug_on THEN
2002: WSH_DEBUG_SV.logmsg(l_module_name,'GET_MAX_LOAD_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2003: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:GET_MAX_LOAD_QTY_FAILED');
2004: END IF;
2005: --
2006: RETURN;
1999: -- Debug Statements
2000: --
2001: IF l_debug_on THEN
2002: WSH_DEBUG_SV.logmsg(l_module_name,'GET_MAX_LOAD_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2003: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:GET_MAX_LOAD_QTY_FAILED');
2004: END IF;
2005: --
2006: RETURN;
2007: --
2015: --
2016: -- Debug Statements
2017: --
2018: IF l_debug_on THEN
2019: WSH_DEBUG_SV.logmsg(l_module_name,'The item ' || l_item_name || ' does not have a preferred container load relationship in the organization '|| l_org_name ,WSH_DEBUG_SV.C_EXCEP_LEVEL);
2020: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2021: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
2022: END IF;
2023: --
2016: -- Debug Statements
2017: --
2018: IF l_debug_on THEN
2019: WSH_DEBUG_SV.logmsg(l_module_name,'The item ' || l_item_name || ' does not have a preferred container load relationship in the organization '|| l_org_name ,WSH_DEBUG_SV.C_EXCEP_LEVEL);
2020: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2021: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
2022: END IF;
2023: --
2024: RETURN;
2017: --
2018: IF l_debug_on THEN
2019: WSH_DEBUG_SV.logmsg(l_module_name,'The item ' || l_item_name || ' does not have a preferred container load relationship in the organization '|| l_org_name ,WSH_DEBUG_SV.C_EXCEP_LEVEL);
2020: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2021: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
2022: END IF;
2023: --
2024: RETURN;
2025: --
2032: --
2033: -- Debug Statements
2034: --
2035: IF l_debug_on THEN
2036: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2037: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2038: END IF;
2039: --
2040: END Get_Max_Load_Qty;
2033: -- Debug Statements
2034: --
2035: IF l_debug_on THEN
2036: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2037: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2038: END IF;
2039: --
2040: END Get_Max_Load_Qty;
2041:
2091: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2092: --
2093: IF l_debug_on IS NULL
2094: THEN
2095: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2096: END IF;
2097: --
2098: IF l_debug_on THEN
2099: WSH_DEBUG_SV.push(l_module_name);
2095: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2096: END IF;
2097: --
2098: IF l_debug_on THEN
2099: WSH_DEBUG_SV.push(l_module_name);
2100: --
2101: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2102: END IF;
2103: --
2097: --
2098: IF l_debug_on THEN
2099: WSH_DEBUG_SV.push(l_module_name);
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: --
2109: IF l_debug_on THEN
2110: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_INTERFACE.LOCK_RECORDS ' );
2111: END IF;
2112: --
2113: --Standalone project
2114: l_standalone_mode := WMS_DEPLOY.Wms_Deployment_Mode;
2113: --Standalone project
2114: l_standalone_mode := WMS_DEPLOY.Wms_Deployment_Mode;
2115: --
2116: IF l_debug_on THEN
2117: WSH_DEBUG_SV.log(l_module_name, 'l_standalone_mode', l_standalone_mode );
2118: END IF;
2119: --
2120: --
2121: <
2192: --
2193: -- Debug Statements
2194: --
2195: IF l_debug_on THEN
2196: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER LOCKING DELIVERY DETAILS ' );
2197: END IF;
2198: --
2199:
2200: END LOOP; -- source_line_loop
2236: END IF;
2237:
2238: --
2239: IF l_debug_on THEN
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
2255: --
2256: -- Debug Statements
2257: --
2258: IF l_debug_on THEN
2259: WSH_DEBUG_SV.pop(l_module_name);
2260: END IF;
2261: --
2262: EXCEPTION
2263: WHEN others THEN
2267: --
2268: -- Debug Statements
2269: --
2270: IF l_debug_on THEN
2271: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2272: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2273: END IF;
2274: --
2275: END Lock_Records;
2268: -- Debug Statements
2269: --
2270: IF l_debug_on THEN
2271: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2272: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2273: END IF;
2274: --
2275: END Lock_Records;
2276:
2325: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2326: --
2327: IF l_debug_on IS NULL
2328: THEN
2329: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2330: END IF;
2331: --
2332: IF l_debug_on THEN
2333: WSH_DEBUG_SV.push(l_module_name);
2329: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2330: END IF;
2331: --
2332: IF l_debug_on THEN
2333: WSH_DEBUG_SV.push(l_module_name);
2334: --
2335: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2336: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2337: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2331: --
2332: IF l_debug_on THEN
2333: WSH_DEBUG_SV.push(l_module_name);
2334: --
2335: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2336: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2337: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2338: WSH_DEBUG_SV.log(l_module_name,'X_SHIPPED_FLAG',X_SHIPPED_FLAG);
2339: WSH_DEBUG_SV.log(l_module_name,'X_INTERFACE_FLAG',X_INTERFACE_FLAG);
2332: IF l_debug_on THEN
2333: WSH_DEBUG_SV.push(l_module_name);
2334: --
2335: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2336: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2337: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2338: WSH_DEBUG_SV.log(l_module_name,'X_SHIPPED_FLAG',X_SHIPPED_FLAG);
2339: WSH_DEBUG_SV.log(l_module_name,'X_INTERFACE_FLAG',X_INTERFACE_FLAG);
2340: END IF;
2333: WSH_DEBUG_SV.push(l_module_name);
2334: --
2335: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2336: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2337: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2338: WSH_DEBUG_SV.log(l_module_name,'X_SHIPPED_FLAG',X_SHIPPED_FLAG);
2339: WSH_DEBUG_SV.log(l_module_name,'X_INTERFACE_FLAG',X_INTERFACE_FLAG);
2340: END IF;
2341: --
2334: --
2335: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2336: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2337: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2338: WSH_DEBUG_SV.log(l_module_name,'X_SHIPPED_FLAG',X_SHIPPED_FLAG);
2339: WSH_DEBUG_SV.log(l_module_name,'X_INTERFACE_FLAG',X_INTERFACE_FLAG);
2340: END IF;
2341: --
2342: -- Bug 2684221: Lock the delivery only if source_code is not 'INV'
2335: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2336: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2337: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2338: WSH_DEBUG_SV.log(l_module_name,'X_SHIPPED_FLAG',X_SHIPPED_FLAG);
2339: WSH_DEBUG_SV.log(l_module_name,'X_INTERFACE_FLAG',X_INTERFACE_FLAG);
2340: END IF;
2341: --
2342: -- Bug 2684221: Lock the delivery only if source_code is not 'INV'
2343: IF l_debug_on THEN
2340: END IF;
2341: --
2342: -- Bug 2684221: Lock the delivery only if source_code is not 'INV'
2343: IF l_debug_on THEN
2344: WSH_DEBUG_SV.logmsg(l_module_name, 'BEFORE LOCKING DELIVERY DETAILS ' );
2345: END IF;
2346:
2347: SELECT wdd.oe_interfaced_flag,
2348: wdd.released_status,
2366: END IF;
2367:
2368: IF (p_source_code = 'INV') THEN
2369: IF l_debug_on THEN
2370: WSH_DEBUG_SV.logmsg(l_module_name, 'SOURCE CODE IS INV ' );
2371: WSH_DEBUG_SV.logmsg(l_module_name, 'Do not Lock the Delivery if source_code is INV');
2372: END IF;
2373: -- Do not Lock the Delivery if source_code is 'INV'
2374: IF (l_dummy_id IS NOT NULL) THEN
2367:
2368: IF (p_source_code = 'INV') THEN
2369: IF l_debug_on THEN
2370: WSH_DEBUG_SV.logmsg(l_module_name, 'SOURCE CODE IS INV ' );
2371: WSH_DEBUG_SV.logmsg(l_module_name, 'Do not Lock the Delivery if source_code is INV');
2372: END IF;
2373: -- Do not Lock the Delivery if source_code is 'INV'
2374: IF (l_dummy_id IS NOT NULL) THEN
2375: SELECT wnd.status_code
2381: END IF;
2382: ELSE
2383: -- Lock the Delivery if source_code is other than 'INV'
2384: IF l_debug_on THEN
2385: WSH_DEBUG_SV.logmsg(l_module_name, 'SOURCE CODE IS NOT INV ' );
2386: WSH_DEBUG_SV.logmsg(l_module_name, 'Lock the Delivery if source_code is not INV');
2387: END IF;
2388: IF (l_dummy_id IS NOT NULL) THEN
2389: SELECT wnd.status_code
2382: ELSE
2383: -- Lock the Delivery if source_code is other than 'INV'
2384: IF l_debug_on THEN
2385: WSH_DEBUG_SV.logmsg(l_module_name, 'SOURCE CODE IS NOT INV ' );
2386: WSH_DEBUG_SV.logmsg(l_module_name, 'Lock the Delivery if source_code is not INV');
2387: END IF;
2388: IF (l_dummy_id IS NOT NULL) THEN
2389: SELECT wnd.status_code
2390: INTO l_del_status_code
2431: --
2432: -- Debug Statements
2433: --
2434: IF l_debug_on THEN
2435: WSH_DEBUG_SV.pop(l_module_name);
2436: END IF;
2437: --
2438: EXCEPTION
2439: WHEN RECORD_LOCKED THEN
2443: --
2444: -- Debug Statements
2445: --
2446: IF l_debug_on THEN
2447: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2448: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
2449: END IF;
2450: --
2451: RETURN;
2444: -- Debug Statements
2445: --
2446: IF l_debug_on THEN
2447: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2448: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
2449: END IF;
2450: --
2451: RETURN;
2452:
2457: --
2458: -- Debug Statements
2459: --
2460: IF l_debug_on THEN
2461: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2462: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2463: END IF;
2464: --
2465: END Lock_Delivery_Detail;
2458: -- Debug Statements
2459: --
2460: IF l_debug_on THEN
2461: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2462: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2463: END IF;
2464: --
2465: END Lock_Delivery_Detail;
2466:
2491: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2492: --
2493: IF l_debug_on IS NULL
2494: THEN
2495: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2496: END IF;
2497: --
2498: IF l_debug_on THEN
2499: WSH_DEBUG_SV.push(l_module_name);
2495: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2496: END IF;
2497: --
2498: IF l_debug_on THEN
2499: WSH_DEBUG_SV.push(l_module_name);
2500: --
2501: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2502: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
2503: END IF;
2497: --
2498: IF l_debug_on THEN
2499: WSH_DEBUG_SV.push(l_module_name);
2500: --
2501: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2502: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
2503: END IF;
2504: --
2505: --
2498: IF l_debug_on THEN
2499: WSH_DEBUG_SV.push(l_module_name);
2500: --
2501: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2502: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
2503: END IF;
2504: --
2505: --
2506: -- Debug Statements
2505: --
2506: -- Debug Statements
2507: --
2508: IF l_debug_on THEN
2509: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_INTERFACE.PROCESS_RECORDS' );
2510: END IF;
2511: --
2512:
2513: --
2513: --
2514: -- Debug Statements
2515: --
2516: IF l_debug_on THEN
2517: WSH_DEBUG_SV.logmsg(l_module_name, 'CHECKING CODE RELEASE LEVEL' );
2518: END IF;
2519: --
2520: IF WSH_CODE_CONTROL.Get_Code_Release_Level >= '110508' then
2521: /* H integration: 940/945 bug 2312168 wrudge
2526: --
2527: -- Debug Statements
2528: --
2529: IF l_debug_on THEN
2530: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING WSH_DELIVERY_UTIL.CHECK_UPDATES_ALLOWED' );
2531: END IF;
2532: --
2533: --
2534: -- Debug Statements
2533: --
2534: -- Debug Statements
2535: --
2536: IF l_debug_on THEN
2537: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_UTIL.CHECK_UPDATES_ALLOWED',WSH_DEBUG_SV.C_PROC_LEVEL);
2538: END IF;
2539: --
2540: WSH_DELIVERY_UTIL.Check_Updates_Allowed(
2541: p_changed_attributes => p_changed_attributes,
2545: --
2546: -- Debug Statements
2547: --
2548: IF l_debug_on THEN
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
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;
2558: --
2559: WSH_DELIVERY_DETAILS_UTILITIES.Check_Updates_Allowed(
2560: p_changed_attributes => p_changed_attributes,
2562: x_update_allowed => l_update_allowed,
2563: x_return_status => l_rs);
2564: --
2565: IF l_debug_on THEN
2566: WSH_DEBUG_SV.log(l_module_name, 'After Calling WSH_DELIVERY_DETAILS_UTILITIES.Check_Updates_Allowed', l_rs);
2567: END IF;
2568: --
2569: END IF;
2570: -- TPW - Distributed Organization Changes - End
2578: --
2579: -- Debug Statements
2580: --
2581: IF l_debug_on THEN
2582: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING WSH_USA_ACTIONS_PVT.IMPORT_RECORDS' );
2583: END IF;
2584: --
2585: --
2586: -- Debug Statements
2585: --
2586: -- Debug Statements
2587: --
2588: IF l_debug_on THEN
2589: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_ACTIONS_PVT.IMPORT_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2590: END IF;
2591: --
2592: WSH_USA_ACTIONS_PVT.Import_Records(
2593: p_source_code => p_source_code,
2597: --
2598: -- Debug Statements
2599: --
2600: IF l_debug_on THEN
2601: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING WSH_USA_ACTIONS_PVT.IMPORT_RECORDS '|| L_RS );
2602: END IF;
2603: --
2604: END IF;
2605:
2607: --
2608: -- Debug Statements
2609: --
2610: IF l_debug_on THEN
2611: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING WSH_USA_ACTIONS_PVT.SPLIT_RECORDS' );
2612: END IF;
2613: --
2614: --
2615: -- Debug Statements
2614: --
2615: -- Debug Statements
2616: --
2617: IF l_debug_on THEN
2618: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_ACTIONS_PVT.SPLIT_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2619: END IF;
2620: --
2621: WSH_USA_ACTIONS_PVT.Split_Records(
2622: p_source_code => p_source_code,
2629: --
2630: -- Debug Statements
2631: --
2632: IF l_debug_on THEN
2633: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING WSH_USA_ACTIONS_PVT.UPDATE_RECORDS' );
2634: END IF;
2635: --
2636: --
2637: -- Debug Statements
2636: --
2637: -- Debug Statements
2638: --
2639: IF l_debug_on THEN
2640: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_ACTIONS_PVT.UPDATE_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2641: END IF;
2642: --
2643: WSH_USA_ACTIONS_PVT.Update_Records(
2644: p_source_code => p_source_code,
2654: --
2655: -- Debug Statements
2656: --
2657: IF l_debug_on THEN
2658: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING WSH_USA_QUANTITY_PVT.UPDATE_ORDERED_QUANTITY' );
2659: END IF;
2660: --
2661: --
2662: -- Debug Statements
2661: --
2662: -- Debug Statements
2663: --
2664: IF l_debug_on THEN
2665: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_QUANTITY_PVT.UPDATE_ORDERED_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
2666: END IF;
2667: --
2668: WSH_USA_QUANTITY_PVT.Update_Ordered_Quantity(
2669: p_changed_attribute =>p_changed_attributes(l_counter),
2685: --
2686: -- Debug Statements
2687: --
2688: IF l_debug_on THEN
2689: WSH_DEBUG_SV.pop(l_module_name);
2690: END IF;
2691: --
2692: EXCEPTION
2693: WHEN OTHERS THEN
2697: --
2698: -- Debug Statements
2699: --
2700: IF l_debug_on THEN
2701: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2702: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2703: END IF;
2704: --
2705: END Process_Records;
2698: -- Debug Statements
2699: --
2700: IF l_debug_on THEN
2701: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2702: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2703: END IF;
2704: --
2705: END Process_Records;
2706:
2721: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2722: --
2723: IF l_debug_on IS NULL
2724: THEN
2725: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2726: END IF;
2727: --
2728: IF l_debug_on THEN
2729: WSH_DEBUG_SV.push(l_module_name);
2725: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2726: END IF;
2727: --
2728: IF l_debug_on THEN
2729: WSH_DEBUG_SV.push(l_module_name);
2730: --
2731: WSH_DEBUG_SV.log(l_module_name,'TXT',TXT);
2732: WSH_DEBUG_SV.log(l_module_name,'NAME',NAME);
2733: END IF;
2727: --
2728: IF l_debug_on THEN
2729: WSH_DEBUG_SV.push(l_module_name);
2730: --
2731: WSH_DEBUG_SV.log(l_module_name,'TXT',TXT);
2732: WSH_DEBUG_SV.log(l_module_name,'NAME',NAME);
2733: END IF;
2734: --
2735: IF ( g_call_mode = 'CONC' ) THEN
2728: IF l_debug_on THEN
2729: WSH_DEBUG_SV.push(l_module_name);
2730: --
2731: WSH_DEBUG_SV.log(l_module_name,'TXT',TXT);
2732: WSH_DEBUG_SV.log(l_module_name,'NAME',NAME);
2733: END IF;
2734: --
2735: IF ( g_call_mode = 'CONC' ) THEN
2736: --
2736: --
2737: -- Debug Statements
2738: --
2739: IF l_debug_on THEN
2740: WSH_DEBUG_SV.logmsg(l_module_name, TXT );
2741: END IF;
2742: --
2743: ELSE
2744: IF name is NOT NULL then
2749: --
2750: -- Debug Statements
2751: --
2752: IF l_debug_on THEN
2753: WSH_DEBUG_SV.pop(l_module_name);
2754: END IF;
2755: --
2756: END PRINTMSG;
2757:
2834: --
2835: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2836: --
2837: IF l_debug_on IS NULL THEN
2838: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2839: END IF;
2840: --
2841: IF l_debug_on THEN
2842: WSH_DEBUG_SV.push(l_module_name);
2838: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2839: END IF;
2840: --
2841: IF l_debug_on THEN
2842: WSH_DEBUG_SV.push(l_module_name);
2843: --
2844: WSH_DEBUG_SV.log(l_module_name,'source code',p_source_code);
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);
2840: --
2841: IF l_debug_on THEN
2842: WSH_DEBUG_SV.push(l_module_name);
2843: --
2844: WSH_DEBUG_SV.log(l_module_name,'source code',p_source_code);
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:
2841: IF l_debug_on THEN
2842: WSH_DEBUG_SV.push(l_module_name);
2843: --
2844: WSH_DEBUG_SV.log(l_module_name,'source code',p_source_code);
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;
2842: WSH_DEBUG_SV.push(l_module_name);
2843: --
2844: WSH_DEBUG_SV.log(l_module_name,'source code',p_source_code);
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:
2877: END IF;
2878: l_dd_tab(l_dd_tab.count + 1) := l_dd_rec;
2879: l_dd_ids(l_dd_ids.count + 1) := l_dd_rec.delivery_detail_id;
2880: IF l_debug_on THEN
2881: WSH_DEBUG_SV.log(l_module_name,'l_dd_rec.delivery_detail_id',l_dd_rec.delivery_detail_id);
2882: END IF;
2883: END LOOP;
2884:
2885: x_dd_ids := l_dd_ids;
2888: END IF;
2889:
2890:
2891: IF l_debug_on THEN
2892: WSH_DEBUG_SV.pop(l_module_name);
2893: END IF;
2894:
2895: EXCEPTION
2896: WHEN others THEN
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;
2903:
2904:
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;
2903:
2904:
2905: END Get_Details_Snapshot;