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: -- p_source_code should only be 'INV' or 'OE', else raise error. -- jckwok
112: -- 5870774: Added OKE since there will be cancellations initiated from OKE
127: --
128: -- Debug Statements
129: --
130: IF l_debug_on THEN
131: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING WSH_INTERFACE.PROCESS_RECORDS ' || L_RS );
132: END IF;
133: --
134:
135: ELSIF (p_source_code = 'INV') THEN
137: --
138: -- Debug Statements
139: --
140: IF l_debug_on THEN
141: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.UPDATE_INVENTORY_INFO',WSH_DEBUG_SV.C_PROC_LEVEL);
142: END IF;
143: --
144: WSH_USA_INV_PVT.Update_Inventory_Info(
145: p_changed_attributes => p_changed_attributes,
150: --
151: -- Debug Statements
152: --
153: IF l_debug_on THEN
154: WSH_DEBUG_SV.logmsg(l_module_name, 'INVALID SOURCE CODE ' );
155: END IF;
156: --
157: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_SOURCE_CODE');
158: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
166: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
167: THEN
168: --{
169: IF l_debug_on THEN
170: 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);
171: END IF;
172:
173: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
174: (
178: );
179: --
180: --
181: IF l_debug_on THEN
182: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
183: END IF;
184: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS
185: AND l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
186: THEN
205: --
206: -- Debug Statements
207: --
208: IF l_debug_on THEN
209: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_INTERFACE.PROCESS_RECORDS / UPDATE_INVENTORY_INFO' );
210: END IF;
211: --
212: ROLLBACK TO before_changes;
213:
226: --{
227: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
228: --{
229: IF l_debug_on THEN
230: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
231: END IF;
232:
233: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
234: x_return_status => l_return_status);
234: x_return_status => l_return_status);
235:
236:
237: IF l_debug_on THEN
238: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
239: END IF;
240:
241: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
242: x_return_status := l_return_status;
250: --{
251: l_reset_flags := TRUE;
252:
253: IF l_debug_on THEN
254: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
255: END IF;
256:
257: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
258: x_return_status => l_return_status);
257: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
258: x_return_status => l_return_status);
259:
260: IF l_debug_on THEN
261: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
262: END IF;
263:
264: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
265: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
283: --
284: -- Debug Statements
285: --
286: IF l_debug_on THEN
287: WSH_DEBUG_SV.pop(l_module_name);
288: END IF;
289: --
290: EXCEPTION
291: -- J IB --jckwok
296: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
297: THEN
298: --{
299: IF l_debug_on THEN
300: 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);
301: END IF;
302:
303: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
304: (
308: );
309: --
310: --
311: IF l_debug_on THEN
312: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
313: END IF;
314: --
315: --
316: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) and x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
329: --{
330: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
331: --{
332: IF l_debug_on THEN
333: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
334: END IF;
335:
336: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
337: x_return_status => l_return_status);
337: x_return_status => l_return_status);
338:
339:
340: IF l_debug_on THEN
341: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
342: END IF;
343:
344: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
345: x_return_status := l_return_status;
351: --
352: -- End of Code Bugfix 4070732
353: --
354: IF l_debug_on THEN
355: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_SOURCE_CODE');
356: END IF;
357: --
358: WHEN others THEN
359: ROLLBACK TO before_changes;
366: --{
367: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
368: --{
369: IF l_debug_on THEN
370: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
371: END IF;
372:
373: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
374: x_return_status => l_return_status);
374: x_return_status => l_return_status);
375:
376:
377: IF l_debug_on THEN
378: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
379: END IF;
380:
381: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
382: x_return_status := l_return_status;
391: --
392: -- Debug Statements
393: --
394: IF l_debug_on THEN
395: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
396: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
397: END IF;
398: --
399: END Update_Shipping_Attributes;
392: -- Debug Statements
393: --
394: IF l_debug_on THEN
395: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
396: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
397: END IF;
398: --
399: END Update_Shipping_Attributes;
400:
460: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
461: --
462: IF l_debug_on IS NULL
463: THEN
464: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
465: END IF;
466: --
467: IF l_debug_on THEN
468: WSH_DEBUG_SV.push(l_module_name);
464: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
465: END IF;
466: --
467: IF l_debug_on THEN
468: WSH_DEBUG_SV.push(l_module_name);
469: --
470: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
471: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
472: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
466: --
467: IF l_debug_on THEN
468: WSH_DEBUG_SV.push(l_module_name);
469: --
470: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
471: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
472: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
473: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
474: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
467: IF l_debug_on THEN
468: WSH_DEBUG_SV.push(l_module_name);
469: --
470: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
471: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
472: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
473: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
474: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
475: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
468: WSH_DEBUG_SV.push(l_module_name);
469: --
470: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
471: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
472: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
473: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
474: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
475: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
476: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
469: --
470: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
471: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
472: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
473: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
474: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
475: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
476: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
477: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
470: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
471: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
472: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
473: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
474: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
475: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
476: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
477: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
478: WSH_DEBUG_SV.log(l_module_name,'P_SHIPMENT_DATE',P_SHIPMENT_DATE);
471: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
472: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
473: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
474: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
475: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
476: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
477: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
478: WSH_DEBUG_SV.log(l_module_name,'P_SHIPMENT_DATE',P_SHIPMENT_DATE);
479: END IF;
472: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
473: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
474: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
475: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
476: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
477: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
478: WSH_DEBUG_SV.log(l_module_name,'P_SHIPMENT_DATE',P_SHIPMENT_DATE);
479: END IF;
480: --
473: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
474: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
475: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
476: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
477: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
478: WSH_DEBUG_SV.log(l_module_name,'P_SHIPMENT_DATE',P_SHIPMENT_DATE);
479: END IF;
480: --
481: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
474: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
475: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
476: WSH_DEBUG_SV.log(l_module_name,'P_CUST_PRODUCTION_SEQ_NUM',P_CUST_PRODUCTION_SEQ_NUM);
477: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
478: WSH_DEBUG_SV.log(l_module_name,'P_SHIPMENT_DATE',P_SHIPMENT_DATE);
479: END IF;
480: --
481: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
482: l_total_qty_in_transit := 0;
483: --
484: -- Debug Statements
485: --
486: IF l_debug_on THEN
487: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
488: END IF;
489: --
490: wsh_util_core.get_location_id('ORG',p_ship_from_org_id, l_ship_from_location_id, l_location_status, FALSE);
491: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
493: AND (l_ship_from_location_id IS NULL) THEN
494: x_in_transit_qty := 0 ;
495: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
496: IF l_debug_on THEN
497: WSH_DEBUG_SV.log(l_module_name,'X_INTRANSIT_QTY',
498: x_in_transit_qty);
499: WSH_DEBUG_SV.pop(l_module_name);
500: END IF;
501: RETURN;
495: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
496: IF l_debug_on THEN
497: WSH_DEBUG_SV.log(l_module_name,'X_INTRANSIT_QTY',
498: x_in_transit_qty);
499: WSH_DEBUG_SV.pop(l_module_name);
500: END IF;
501: RETURN;
502: ELSE
503: raise INVALID_ORG;
506: --
507: -- Debug Statements
508: --
509: IF l_debug_on THEN
510: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_LOCATION_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
511: END IF;
512: --
513: wsh_util_core.get_location_id('CUSTOMER SITE',p_ship_to_org_id, l_ship_to_location_id, l_location_status,FALSE);
514: if (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) then
516: AND (l_ship_to_location_id IS NULL) THEN
517: x_in_transit_qty := 0 ;
518: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
519: IF l_debug_on THEN
520: WSH_DEBUG_SV.log(l_module_name,'X_INTRANSIT_QTY',
521: x_in_transit_qty);
522: WSH_DEBUG_SV.pop(l_module_name);
523: END IF;
524: RETURN;
518: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
519: IF l_debug_on THEN
520: WSH_DEBUG_SV.log(l_module_name,'X_INTRANSIT_QTY',
521: x_in_transit_qty);
522: WSH_DEBUG_SV.pop(l_module_name);
523: END IF;
524: RETURN;
525: ELSE
526: raise invalid_cust_site;
569: --
570: -- Debug Statements
571: --
572: IF l_debug_on THEN
573: WSH_DEBUG_SV.pop(l_module_name);
574: END IF;
575: --
576: exception
577: when invalid_org then
581: --
582: -- Debug Statements
583: --
584: IF l_debug_on THEN
585: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_ORG exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
586: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ORG');
587: END IF;
588: --
589: when invalid_cust_site then
582: -- Debug Statements
583: --
584: IF l_debug_on THEN
585: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_ORG exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
586: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_ORG');
587: END IF;
588: --
589: when invalid_cust_site then
590: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
593: --
594: -- Debug Statements
595: --
596: IF l_debug_on THEN
597: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_CUST_SITE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
598: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_CUST_SITE');
599: END IF;
600: --
601: when others then
594: -- Debug Statements
595: --
596: IF l_debug_on THEN
597: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_CUST_SITE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
598: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_CUST_SITE');
599: END IF;
600: --
601: when others then
602: wsh_util_core.default_handler('WSH_INTERFACE.Get_In_Transit_Qty');
604: --
605: -- Debug Statements
606: --
607: IF l_debug_on THEN
608: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
609: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
610: END IF;
611: --
612: end Get_In_Transit_Qty;
605: -- Debug Statements
606: --
607: IF l_debug_on THEN
608: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
609: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
610: END IF;
611: --
612: end Get_In_Transit_Qty;
613:
642: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
643: --
644: IF l_debug_on IS NULL
645: THEN
646: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
647: END IF;
648: --
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.push(l_module_name);
646: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
647: END IF;
648: --
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.push(l_module_name);
651: --
652: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
653: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
654: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
648: --
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.push(l_module_name);
651: --
652: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
653: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
654: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
655: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
656: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.push(l_module_name);
651: --
652: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
653: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
654: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
655: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
656: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
657: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
650: WSH_DEBUG_SV.push(l_module_name);
651: --
652: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
653: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
654: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
655: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
656: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
657: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
658: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
651: --
652: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
653: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
654: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
655: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
656: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
657: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
658: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
659: END IF;
652: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
653: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
654: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
655: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
656: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
657: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
658: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
659: END IF;
660: --
653: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
654: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
655: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
656: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
657: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
658: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
659: END IF;
660: --
661: l_seq_num:=NULL;
654: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TO_ORG_ID',P_SHIP_TO_ORG_ID);
655: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_ORG_ID',P_SHIP_FROM_ORG_ID);
656: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
657: WSH_DEBUG_SV.log(l_module_name,'P_ORDER_HEADER_ID',P_ORDER_HEADER_ID);
658: WSH_DEBUG_SV.log(l_module_name,'P_SCHEDULE_GENERATION_DATE',P_SCHEDULE_GENERATION_DATE);
659: END IF;
660: --
661: l_seq_num:=NULL;
662: l_shipment_date:=NULL;
677: --
678: -- Debug Statements
679: --
680: IF l_debug_on THEN
681: WSH_DEBUG_SV.pop(l_module_name);
682: END IF;
683: --
684: exception
685: when others then
688: --
689: -- Debug Statements
690: --
691: IF l_debug_on THEN
692: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
693: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
694: END IF;
695: --
696: end Get_In_Transit_Qty;
689: -- Debug Statements
690: --
691: IF l_debug_on THEN
692: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
693: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
694: END IF;
695: --
696: end Get_In_Transit_Qty;
697:
722: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
723: --
724: IF l_debug_on IS NULL
725: THEN
726: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
727: END IF;
728: --
729: IF l_debug_on THEN
730: WSH_DEBUG_SV.push(l_module_name);
726: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
727: END IF;
728: --
729: IF l_debug_on THEN
730: WSH_DEBUG_SV.push(l_module_name);
731: --
732: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
733: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
734: END IF;
728: --
729: IF l_debug_on THEN
730: WSH_DEBUG_SV.push(l_module_name);
731: --
732: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
733: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
734: END IF;
735: --
736: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
729: IF l_debug_on THEN
730: WSH_DEBUG_SV.push(l_module_name);
731: --
732: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
733: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
734: END IF;
735: --
736: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
737: G_CALL_MODE := 'CONC';
745: --
746: -- Debug Statements
747: --
748: IF l_debug_on THEN
749: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_ACTIONS_PVT.IMPORT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
750: END IF;
751: --
752: WSH_USA_ACTIONS_PVT.Import_Delivery_Details(
753: p_source_line_id => l_source_line_id,
773: --
774: -- Debug Statements
775: --
776: IF l_debug_on THEN
777: WSH_DEBUG_SV.pop(l_module_name);
778: END IF;
779: --
780: EXCEPTION
781: WHEN OTHERS THEN
782: --
783: -- Debug Statements
784: --
785: IF l_debug_on THEN
786: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTERFACE.PRINTMSG',WSH_DEBUG_SV.C_PROC_LEVEL);
787: END IF;
788: --
789: WSH_INTERFACE.PrintMsg('Import Delivery Details failed with unexpected error ' || SQLCODE);
790: --
790: --
791: -- Debug Statements
792: --
793: IF l_debug_on THEN
794: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTERFACE.PRINTMSG',WSH_DEBUG_SV.C_PROC_LEVEL);
795: END IF;
796: --
797: WSH_INTERFACE.PrintMsg('The unexpected error is ' || SQLERRM);
798: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','');
802: --
803: -- Debug Statements
804: --
805: IF l_debug_on THEN
806: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
807: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
808: END IF;
809: --
810: END IMPORT_DELIVERY_DETAILS;
803: -- Debug Statements
804: --
805: IF l_debug_on THEN
806: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
807: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
808: END IF;
809: --
810: END IMPORT_DELIVERY_DETAILS;
811:
841: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
842: --
843: IF l_debug_on IS NULL
844: THEN
845: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
846: END IF;
847: --
848: IF l_debug_on THEN
849: WSH_DEBUG_SV.push(l_module_name);
845: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
846: END IF;
847: --
848: IF l_debug_on THEN
849: WSH_DEBUG_SV.push(l_module_name);
850: --
851: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
852: END IF;
853: --
847: --
848: IF l_debug_on THEN
849: WSH_DEBUG_SV.push(l_module_name);
850: --
851: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
852: END IF;
853: --
854: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
855:
870: --
871: -- Debug Statements
872: --
873: IF l_debug_on THEN
874: WSH_DEBUG_SV.pop(l_module_name);
875: END IF;
876: --
877: EXCEPTION
878: WHEN no_container THEN
879: --
880: -- Debug Statements
881: --
882: IF l_debug_on THEN
883: WSH_DEBUG_SV.logmsg(l_module_name,'NO_CONTAINER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
884: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_CONTAINER');
885: END IF;
886: --
887: RETURN;
880: -- Debug Statements
881: --
882: IF l_debug_on THEN
883: WSH_DEBUG_SV.logmsg(l_module_name,'NO_CONTAINER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
884: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_CONTAINER');
885: END IF;
886: --
887: RETURN;
888: --
893: --
894: -- Debug Statements
895: --
896: IF l_debug_on THEN
897: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
898: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
899: END IF;
900: --
901: END Default_Container;
894: -- Debug Statements
895: --
896: IF l_debug_on THEN
897: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
898: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
899: END IF;
900: --
901: END Default_Container;
902:
920: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
921: --
922: IF l_debug_on IS NULL
923: THEN
924: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
925: END IF;
926: --
927: IF l_debug_on THEN
928: WSH_DEBUG_SV.push(l_module_name);
924: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
925: END IF;
926: --
927: IF l_debug_on THEN
928: WSH_DEBUG_SV.push(l_module_name);
929: WSH_DEBUG_SV.log(l_module_name,'SOURCE_CODE',p_old_delivery_detail_info.source_code);
930: WSH_DEBUG_SV.log(l_module_name,'SOURCE_HEADER_ID',p_old_delivery_detail_info.source_header_id);
931: END IF;
932: --
925: END IF;
926: --
927: IF l_debug_on THEN
928: WSH_DEBUG_SV.push(l_module_name);
929: WSH_DEBUG_SV.log(l_module_name,'SOURCE_CODE',p_old_delivery_detail_info.source_code);
930: WSH_DEBUG_SV.log(l_module_name,'SOURCE_HEADER_ID',p_old_delivery_detail_info.source_header_id);
931: END IF;
932: --
933: x_new_delivery_detail_info.source_code := p_old_delivery_detail_info.source_code;
926: --
927: IF l_debug_on THEN
928: WSH_DEBUG_SV.push(l_module_name);
929: WSH_DEBUG_SV.log(l_module_name,'SOURCE_CODE',p_old_delivery_detail_info.source_code);
930: WSH_DEBUG_SV.log(l_module_name,'SOURCE_HEADER_ID',p_old_delivery_detail_info.source_header_id);
931: END IF;
932: --
933: x_new_delivery_detail_info.source_code := p_old_delivery_detail_info.source_code;
934: x_new_delivery_detail_info.source_header_id := p_old_delivery_detail_info.source_header_id;
1056: --
1057: -- Debug Statements
1058: --
1059: IF l_debug_on THEN
1060: WSH_DEBUG_SV.pop(l_module_name);
1061: END IF;
1062: --
1063: END Populate_Detail_Info;
1064:
1161:
1162: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1163: IF l_debug_on IS NULL
1164: THEN
1165: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1166: END IF;
1167: IF l_debug_on THEN
1168: WSH_DEBUG_SV.push(l_module_name);
1169: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1164: THEN
1165: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1166: END IF;
1167: IF l_debug_on THEN
1168: WSH_DEBUG_SV.push(l_module_name);
1169: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1170: WSH_DEBUG_SV.log(l_module_name,'p_cancel_delete_flag',p_cancel_delete_flag);
1171: END IF;
1172: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1165: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1166: END IF;
1167: IF l_debug_on THEN
1168: WSH_DEBUG_SV.push(l_module_name);
1169: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1170: WSH_DEBUG_SV.log(l_module_name,'p_cancel_delete_flag',p_cancel_delete_flag);
1171: END IF;
1172: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1173:
1166: END IF;
1167: IF l_debug_on THEN
1168: WSH_DEBUG_SV.push(l_module_name);
1169: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1170: WSH_DEBUG_SV.log(l_module_name,'p_cancel_delete_flag',p_cancel_delete_flag);
1171: END IF;
1172: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1173:
1174: FOR i IN 1 .. p_details_id.COUNT
1184: CLOSE c_details;
1185:
1186: IF (l_notfound) THEN
1187: IF l_debug_on THEN
1188: WSH_DEBUG_SV.logmsg(l_module_name, 'NO ASSIGNMENT RECORDS ARE FOUND' );
1189: END IF;
1190: GOTO loop_end; -- maybe already deleted.
1191: END IF;
1192:
1204: l_msg := FND_MESSAGE.GET;
1205: l_exception_location_id := l_detail_rec.ship_from_location_id;
1206:
1207: IF l_debug_on THEN
1208: WSH_DEBUG_SV.logmsg(l_module_name,'Line is packed.',WSH_DEBUG_SV.C_PROC_LEVEL);
1209: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1210: END IF;
1211:
1212: wsh_xc_util.log_exception(
1205: l_exception_location_id := l_detail_rec.ship_from_location_id;
1206:
1207: IF l_debug_on THEN
1208: WSH_DEBUG_SV.logmsg(l_module_name,'Line is packed.',WSH_DEBUG_SV.C_PROC_LEVEL);
1209: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1210: END IF;
1211:
1212: wsh_xc_util.log_exception(
1213: p_api_version => 1.0,
1233: -- the exception will alert the user that the container needs updating.
1234: -- continue flow, regardless of log_exception's return status
1235:
1236: IF l_debug_on THEN
1237: WSH_DEBUG_SV.logmsg(l_module_name,'l_exception_return_status=' || l_exception_return_status,WSH_DEBUG_SV.C_PROC_LEVEL);
1238: END IF;
1239:
1240: ELSIF (l_assign_rec.delivery_id IS NOT NULL) THEN
1241: -- if delivery line is assigned to delivery and delivery is planned,
1252: l_msg := FND_MESSAGE.GET;
1253: l_exception_location_id := l_detail_rec.ship_from_location_id;
1254:
1255: IF l_debug_on THEN
1256: WSH_DEBUG_SV.logmsg(l_module_name,'Line is in planned delivery.',WSH_DEBUG_SV.C_PROC_LEVEL);
1257: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1258: END IF;
1259:
1260: wsh_xc_util.log_exception(
1253: l_exception_location_id := l_detail_rec.ship_from_location_id;
1254:
1255: IF l_debug_on THEN
1256: WSH_DEBUG_SV.logmsg(l_module_name,'Line is in planned delivery.',WSH_DEBUG_SV.C_PROC_LEVEL);
1257: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1258: END IF;
1259:
1260: wsh_xc_util.log_exception(
1261: p_api_version => 1.0,
1277: -- the exception will alert the user that the container needs updating.
1278: -- continue flow, regardless of log_exception's return status
1279:
1280: IF l_debug_on THEN
1281: WSH_DEBUG_SV.logmsg(l_module_name,'l_exception_return_status=' || l_exception_return_status,WSH_DEBUG_SV.C_PROC_LEVEL);
1282: END IF;
1283: END IF;
1284: END IF;
1285:
1287:
1288: IF l_detail_rec.move_order_line_id IS NOT NULL AND
1289: l_detail_rec.released_status = 'S' THEN
1290: IF l_debug_on THEN
1291: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
1292: END IF;
1293:
1294: -- Added for bug 5741373
1295: l_move_order_line_ids(l_move_order_line_ids.count+1) := l_detail_rec.move_order_line_id;
1301: l_trolin_tbl(l_trolin_table_id).OPERATION := INV_GLOBALS.G_OPR_DELETE;
1302: l_trolin_old_tbl(l_trolin_table_id) := l_trolin_tbl(l_trolin_table_id);
1303:
1304: IF l_debug_on THEN
1305: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE MOVE ORDER LINE '||L_TROLIN_REC.LINE_ID );
1306: END IF;
1307: END IF;
1308:
1309: -- HW OPMCONV - Removed branching
1308:
1309: -- HW OPMCONV - Removed branching
1310:
1311: IF l_debug_on THEN
1312: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
1313: END IF;
1314:
1315: -- HW OPMCONV - Added Qty2
1316: WSH_DELIVERY_DETAILS_ACTIONS.Unreserve_delivery_detail(
1323:
1324: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1325: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1326: IF l_debug_on THEN
1327: WSH_DEBUG_SV.logmsg(l_module_name, 'UNRESERVE DELIVERY DETAIL '|| P_DETAILS_ID ( I ) || ' FAILED' );
1328: END IF;
1329: raise WSH_DEL_RESERVATION_FAILED;
1330: END IF;
1331:
1337: ELSE
1338: -- J: W/V Changes
1339: IF (l_assign_rec.parent_delivery_detail_id IS NOT NULL) THEN
1340: IF l_debug_on THEN
1341: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
1342: END IF;
1343:
1344: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Detail_from_Cont(
1345: p_detail_id => p_details_id(i),
1349: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1350: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1351:
1352: IF l_debug_on THEN
1353: WSH_DEBUG_SV.logmsg(l_module_name, 'UNASSIGN DETAIL FROM CONTAINER FAILED FOR DD '|| P_DETAILS_ID ( I ));
1354: END IF;
1355: raise WSH_UNASSIGN_DETAIL_FAILED;
1356: END IF;
1357: END IF;
1357: END IF;
1358:
1359: IF (l_assign_rec.delivery_id IS NOT NULL) THEN
1360: IF l_debug_on THEN
1361: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
1362: END IF;
1363:
1364: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Detail_from_Delivery(
1365: p_detail_id => p_details_id(i),
1369: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1370: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1371:
1372: IF l_debug_on THEN
1373: WSH_DEBUG_SV.logmsg(l_module_name, 'UNASSIGN DETAIL FROM DELIVERY FAILED FOR DD '|| P_DETAILS_ID ( I ));
1374: END IF;
1375: raise WSH_UNASSIGN_DETAIL_FAILED;
1376: END IF;
1377: END IF;
1377: END IF;
1378:
1379: IF (p_cancel_delete_flag = 'C') THEN
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 CANCEL',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),
1387: x_return_status => l_return_status );
1388:
1389: ELSE -- delete details
1390: IF l_debug_on THEN
1391: 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);
1392: END IF;
1393:
1394: WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details(
1395: p_delivery_detail_id => p_details_id(i),
1402: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1403: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1404:
1405: IF l_debug_on THEN
1406: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE DELIVERY DETAIL '|| P_DETAILS_ID ( I ) || ' FAILED' );
1407: END IF;
1408: raise WSH_DELETE_DETAIL_FAILED;
1409: END IF;
1410:
1430: FOR i in 1..l_move_order_line_ids.count
1431: LOOP
1432: --{
1433: IF l_debug_on THEN
1434: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.Cancel_Move_Order_Line',WSH_DEBUG_SV.C_PROC_LEVEL);
1435: WSH_DEBUG_SV.log(l_module_name, 'Move Order Line ID', l_move_order_line_ids(i));
1436: WSH_DEBUG_SV.log(l_module_name, 'Source Line ID', l_source_line_ids(i));
1437: END IF;
1438: --
1431: LOOP
1432: --{
1433: IF l_debug_on THEN
1434: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.Cancel_Move_Order_Line',WSH_DEBUG_SV.C_PROC_LEVEL);
1435: WSH_DEBUG_SV.log(l_module_name, 'Move Order Line ID', l_move_order_line_ids(i));
1436: WSH_DEBUG_SV.log(l_module_name, 'Source Line ID', l_source_line_ids(i));
1437: END IF;
1438: --
1439: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
1432: --{
1433: IF l_debug_on THEN
1434: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.Cancel_Move_Order_Line',WSH_DEBUG_SV.C_PROC_LEVEL);
1435: WSH_DEBUG_SV.log(l_module_name, 'Move Order Line ID', l_move_order_line_ids(i));
1436: WSH_DEBUG_SV.log(l_module_name, 'Source Line ID', l_source_line_ids(i));
1437: END IF;
1438: --
1439: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
1440: x_return_status => l_return_status,
1444: p_delete_reservations => 'Y',
1445: p_txn_source_line_id => l_source_line_ids(i) );
1446: --
1447: IF l_debug_on THEN
1448: WSH_DEBUG_SV.logmsg(l_module_name, 'RETURN_STATUS FROM Cancel_Move_Order_line IS '||L_RETURN_STATUS );
1449: END IF;
1450:
1451: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1452: --{
1455: --{
1456: l_message := FND_MSG_PUB.Get(j, 'F');
1457: l_message := replace(l_message, chr(0), ' ');
1458: IF l_debug_on THEN
1459: WSH_DEBUG_SV.logmsg(l_module_name, L_MESSAGE );
1460: END IF;
1461: --}
1462: END LOOP;
1463: RAISE Process_Move_Order_Failed;
1500: -- Update of wsh_delivery_details where requested_quantity/released_status
1501: -- are changed, call DBI API after the update.
1502: -- DBI API will check if DBI is installed
1503: IF l_debug_on THEN
1504: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_cancel_dds.count);
1505: END IF;
1506: WSH_INTEGRATION.DBI_Update_Detail_Log
1507: (p_delivery_detail_id_tab => l_cancel_dds,
1508: p_dml_type => 'UPDATE',
1508: p_dml_type => 'UPDATE',
1509: x_return_status => l_dbi_rs);
1510:
1511: IF l_debug_on THEN
1512: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1513: END IF;
1514: -- Only Handle Unexpected error
1515: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1516: x_return_status := l_dbi_rs;
1529: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1530: THEN
1531: --{
1532: IF l_debug_on THEN
1533: 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);
1534: END IF;
1535:
1536: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
1537: (
1541: );
1542: --
1543: --
1544: IF l_debug_on THEN
1545: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1546: END IF;
1547: --
1548: --
1549: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS
1565: -- K LPN CONV. rv
1566: --
1567:
1568: IF l_debug_on THEN
1569: WSH_DEBUG_SV.pop(l_module_name);
1570: END IF;
1571:
1572: EXCEPTION
1573:
1579: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1580: THEN
1581: --{
1582: IF l_debug_on THEN
1583: 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);
1584: END IF;
1585:
1586: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
1587: (
1591: );
1592: --
1593: --
1594: IF l_debug_on THEN
1595: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1596: END IF;
1597: --
1598: --
1599: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1606: -- K LPN CONV. rv
1607: --
1608:
1609: IF l_debug_on THEN
1610: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DELETE_DETAIL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1611: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DELETE_DETAIL_FAILED');
1612: END IF;
1613: IF c_assignment%ISOPEN THEN
1614: CLOSE c_assignment;
1607: --
1608:
1609: IF l_debug_on THEN
1610: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DELETE_DETAIL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1611: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DELETE_DETAIL_FAILED');
1612: END IF;
1613: IF c_assignment%ISOPEN THEN
1614: CLOSE c_assignment;
1615: END IF;
1625: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1626: THEN
1627: --{
1628: IF l_debug_on THEN
1629: 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);
1630: END IF;
1631:
1632: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
1633: (
1637: );
1638: --
1639: --
1640: IF l_debug_on THEN
1641: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1642: END IF;
1643: --
1644: --
1645: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1652: -- K LPN CONV. rv
1653: --
1654:
1655: IF l_debug_on THEN
1656: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DEL_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1657: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DEL_RESERVATION_FAILED');
1658: END IF;
1659: IF c_assignment%ISOPEN THEN
1660: CLOSE c_assignment;
1653: --
1654:
1655: IF l_debug_on THEN
1656: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DEL_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1657: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DEL_RESERVATION_FAILED');
1658: END IF;
1659: IF c_assignment%ISOPEN THEN
1660: CLOSE c_assignment;
1661: END IF;
1666: WHEN OTHERS THEN
1667: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1668: wsh_util_core.default_handler('WSH_INTERFACE.PROCESS_DETAILS');
1669: IF l_debug_on THEN
1670: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1671: END IF;
1672: --
1673: -- K LPN CONV. rv
1674: --
1675: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1676: THEN
1677: --{
1678: IF l_debug_on THEN
1679: 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);
1680: END IF;
1681:
1682: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
1683: (
1687: );
1688: --
1689: --
1690: IF l_debug_on THEN
1691: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1692: END IF;
1693: --
1694: --
1695: --}
1698: -- K LPN CONV. rv
1699: --
1700:
1701: IF l_debug_on THEN
1702: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1703: END IF;
1704: IF c_assignment%ISOPEN THEN
1705: CLOSE c_assignment;
1706: END IF;
1730: BEGIN
1731: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1732: IF l_debug_on IS NULL
1733: THEN
1734: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1735: END IF;
1736: IF l_debug_on THEN
1737: WSH_DEBUG_SV.push(l_module_name);
1738: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1733: THEN
1734: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1735: END IF;
1736: IF l_debug_on THEN
1737: WSH_DEBUG_SV.push(l_module_name);
1738: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1739: END IF;
1740: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1741:
1734: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1735: END IF;
1736: IF l_debug_on THEN
1737: WSH_DEBUG_SV.push(l_module_name);
1738: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1739: END IF;
1740: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1741:
1742: process_details(
1744: p_cancel_delete_flag => 'D',
1745: x_return_status => x_return_status);
1746:
1747: IF l_debug_on THEN
1748: WSH_DEBUG_SV.pop(l_module_name);
1749: END IF;
1750:
1751: EXCEPTION
1752: WHEN OTHERS THEN
1753: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1754: wsh_util_core.default_handler('WSH_INTERFACE.DELETE_DETAILS');
1755:
1756: IF l_debug_on THEN
1757: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1758: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1759: END IF;
1760:
1761: END Delete_Details;
1754: wsh_util_core.default_handler('WSH_INTERFACE.DELETE_DETAILS');
1755:
1756: IF l_debug_on THEN
1757: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1758: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1759: END IF;
1760:
1761: END Delete_Details;
1762:
1790: -- End of Code Bugfix 4070732
1791: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1792: IF l_debug_on IS NULL
1793: THEN
1794: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1795: END IF;
1796: IF l_debug_on THEN
1797: WSH_DEBUG_SV.push(l_module_name);
1798: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1793: THEN
1794: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1795: END IF;
1796: IF l_debug_on THEN
1797: WSH_DEBUG_SV.push(l_module_name);
1798: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1799: END IF;
1800: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1801:
1794: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1795: END IF;
1796: IF l_debug_on THEN
1797: WSH_DEBUG_SV.push(l_module_name);
1798: WSH_DEBUG_SV.log(l_module_name,'COUNT of Details',p_details_id.count);
1799: END IF;
1800: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1801:
1802: process_details(
1812: --{
1813: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1814: --{
1815: IF l_debug_on THEN
1816: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1817: END IF;
1818:
1819: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1820: x_return_status => l_return_status);
1820: x_return_status => l_return_status);
1821:
1822:
1823: IF l_debug_on THEN
1824: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1825: END IF;
1826:
1827: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1828: x_return_status := l_return_status;
1836: --{
1837: l_reset_flags := TRUE;
1838:
1839: IF l_debug_on THEN
1840: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1841: END IF;
1842:
1843: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
1844: x_return_status => l_return_status);
1843: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
1844: x_return_status => l_return_status);
1845:
1846: IF l_debug_on THEN
1847: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1848: END IF;
1849:
1850: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1851: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1859: --
1860: -- End of Code Bugfix 4070732
1861: --
1862: IF l_debug_on THEN
1863: WSH_DEBUG_SV.pop(l_module_name);
1864: END IF;
1865:
1866: EXCEPTION
1867: WHEN OTHERS THEN
1874: --{
1875: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1876: --{
1877: IF l_debug_on THEN
1878: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1879: END IF;
1880:
1881: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1882: x_return_status => l_return_status);
1882: x_return_status => l_return_status);
1883:
1884:
1885: IF l_debug_on THEN
1886: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1887: END IF;
1888:
1889: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1890: x_return_status := l_return_status;
1897: -- End of Code Bugfix 4070732
1898: --
1899:
1900: IF l_debug_on THEN
1901: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1902: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1903: END IF;
1904:
1905: END Cancel_Details;
1898: --
1899:
1900: IF l_debug_on THEN
1901: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1902: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1903: END IF;
1904:
1905: END Cancel_Details;
1906:
1942: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1943: --
1944: IF l_debug_on IS NULL
1945: THEN
1946: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1947: END IF;
1948: --
1949: IF l_debug_on THEN
1950: WSH_DEBUG_SV.push(l_module_name);
1946: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1947: END IF;
1948: --
1949: IF l_debug_on THEN
1950: WSH_DEBUG_SV.push(l_module_name);
1951: --
1952: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
1953: END IF;
1954: --
1948: --
1949: IF l_debug_on THEN
1950: WSH_DEBUG_SV.push(l_module_name);
1951: --
1952: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
1953: END IF;
1954: --
1955: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1956:
1998: --
1999: -- Debug Statements
2000: --
2001: IF l_debug_on THEN
2002: WSH_DEBUG_SV.pop(l_module_name);
2003: END IF;
2004: --
2005: EXCEPTION
2006: WHEN get_max_load_qty_failed THEN
2008: --
2009: -- Debug Statements
2010: --
2011: IF l_debug_on THEN
2012: WSH_DEBUG_SV.logmsg(l_module_name,'GET_MAX_LOAD_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2013: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:GET_MAX_LOAD_QTY_FAILED');
2014: END IF;
2015: --
2016: RETURN;
2009: -- Debug Statements
2010: --
2011: IF l_debug_on THEN
2012: WSH_DEBUG_SV.logmsg(l_module_name,'GET_MAX_LOAD_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2013: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:GET_MAX_LOAD_QTY_FAILED');
2014: END IF;
2015: --
2016: RETURN;
2017: --
2025: --
2026: -- Debug Statements
2027: --
2028: IF l_debug_on THEN
2029: 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);
2030: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2031: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
2032: END IF;
2033: --
2026: -- Debug Statements
2027: --
2028: IF l_debug_on THEN
2029: 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);
2030: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2031: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
2032: END IF;
2033: --
2034: RETURN;
2027: --
2028: IF l_debug_on THEN
2029: 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);
2030: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2031: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
2032: END IF;
2033: --
2034: RETURN;
2035: --
2042: --
2043: -- Debug Statements
2044: --
2045: IF l_debug_on THEN
2046: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2047: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2048: END IF;
2049: --
2050: END Get_Max_Load_Qty;
2043: -- Debug Statements
2044: --
2045: IF l_debug_on THEN
2046: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2047: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2048: END IF;
2049: --
2050: END Get_Max_Load_Qty;
2051:
2088: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2089: --
2090: IF l_debug_on IS NULL
2091: THEN
2092: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2093: END IF;
2094: --
2095: IF l_debug_on THEN
2096: WSH_DEBUG_SV.push(l_module_name);
2092: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2093: END IF;
2094: --
2095: IF l_debug_on THEN
2096: WSH_DEBUG_SV.push(l_module_name);
2097: --
2098: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2099: END IF;
2100: --
2094: --
2095: IF l_debug_on THEN
2096: WSH_DEBUG_SV.push(l_module_name);
2097: --
2098: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2099: END IF;
2100: --
2101: l_rs := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2102:
2103: --
2104: -- Debug Statements
2105: --
2106: IF l_debug_on THEN
2107: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_INTERFACE.LOCK_RECORDS ' );
2108: END IF;
2109: --
2110: <
2111: FOR l_counter IN p_changed_attributes.FIRST .. p_changed_attributes.LAST LOOP
2158: --
2159: -- Debug Statements
2160: --
2161: IF l_debug_on THEN
2162: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER LOCKING DELIVERY DETAILS ' );
2163: END IF;
2164: --
2165:
2166: END LOOP; -- source_line_loop
2187: --
2188: -- Debug Statements
2189: --
2190: IF l_debug_on THEN
2191: WSH_DEBUG_SV.pop(l_module_name);
2192: END IF;
2193: --
2194: EXCEPTION
2195: WHEN others THEN
2199: --
2200: -- Debug Statements
2201: --
2202: IF l_debug_on THEN
2203: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2204: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2205: END IF;
2206: --
2207: END Lock_Records;
2200: -- Debug Statements
2201: --
2202: IF l_debug_on THEN
2203: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2204: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2205: END IF;
2206: --
2207: END Lock_Records;
2208:
2257: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2258: --
2259: IF l_debug_on IS NULL
2260: THEN
2261: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2262: END IF;
2263: --
2264: IF l_debug_on THEN
2265: WSH_DEBUG_SV.push(l_module_name);
2261: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2262: END IF;
2263: --
2264: IF l_debug_on THEN
2265: WSH_DEBUG_SV.push(l_module_name);
2266: --
2267: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2268: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2269: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2263: --
2264: IF l_debug_on THEN
2265: WSH_DEBUG_SV.push(l_module_name);
2266: --
2267: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2268: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2269: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2270: WSH_DEBUG_SV.log(l_module_name,'X_SHIPPED_FLAG',X_SHIPPED_FLAG);
2271: WSH_DEBUG_SV.log(l_module_name,'X_INTERFACE_FLAG',X_INTERFACE_FLAG);
2264: IF l_debug_on THEN
2265: WSH_DEBUG_SV.push(l_module_name);
2266: --
2267: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2268: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2269: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2270: WSH_DEBUG_SV.log(l_module_name,'X_SHIPPED_FLAG',X_SHIPPED_FLAG);
2271: WSH_DEBUG_SV.log(l_module_name,'X_INTERFACE_FLAG',X_INTERFACE_FLAG);
2272: END IF;
2265: WSH_DEBUG_SV.push(l_module_name);
2266: --
2267: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2268: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2269: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2270: WSH_DEBUG_SV.log(l_module_name,'X_SHIPPED_FLAG',X_SHIPPED_FLAG);
2271: WSH_DEBUG_SV.log(l_module_name,'X_INTERFACE_FLAG',X_INTERFACE_FLAG);
2272: END IF;
2273: --
2266: --
2267: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2268: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2269: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2270: WSH_DEBUG_SV.log(l_module_name,'X_SHIPPED_FLAG',X_SHIPPED_FLAG);
2271: WSH_DEBUG_SV.log(l_module_name,'X_INTERFACE_FLAG',X_INTERFACE_FLAG);
2272: END IF;
2273: --
2274: -- Bug 2684221: Lock the delivery only if source_code is not 'INV'
2267: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2268: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2269: WSH_DEBUG_SV.log(l_module_name,'X_CONFIRMED_FLAG',X_CONFIRMED_FLAG);
2270: WSH_DEBUG_SV.log(l_module_name,'X_SHIPPED_FLAG',X_SHIPPED_FLAG);
2271: WSH_DEBUG_SV.log(l_module_name,'X_INTERFACE_FLAG',X_INTERFACE_FLAG);
2272: END IF;
2273: --
2274: -- Bug 2684221: Lock the delivery only if source_code is not 'INV'
2275: IF l_debug_on THEN
2272: END IF;
2273: --
2274: -- Bug 2684221: Lock the delivery only if source_code is not 'INV'
2275: IF l_debug_on THEN
2276: WSH_DEBUG_SV.logmsg(l_module_name, 'BEFORE LOCKING DELIVERY DETAILS ' );
2277: END IF;
2278:
2279: SELECT wdd.oe_interfaced_flag,
2280: wdd.released_status,
2298: END IF;
2299:
2300: IF (p_source_code = 'INV') THEN
2301: IF l_debug_on THEN
2302: WSH_DEBUG_SV.logmsg(l_module_name, 'SOURCE CODE IS INV ' );
2303: WSH_DEBUG_SV.logmsg(l_module_name, 'Do not Lock the Delivery if source_code is INV');
2304: END IF;
2305: -- Do not Lock the Delivery if source_code is 'INV'
2306: IF (l_dummy_id IS NOT NULL) THEN
2299:
2300: IF (p_source_code = 'INV') THEN
2301: IF l_debug_on THEN
2302: WSH_DEBUG_SV.logmsg(l_module_name, 'SOURCE CODE IS INV ' );
2303: WSH_DEBUG_SV.logmsg(l_module_name, 'Do not Lock the Delivery if source_code is INV');
2304: END IF;
2305: -- Do not Lock the Delivery if source_code is 'INV'
2306: IF (l_dummy_id IS NOT NULL) THEN
2307: SELECT wnd.status_code
2313: END IF;
2314: ELSE
2315: -- Lock the Delivery if source_code is other than 'INV'
2316: IF l_debug_on THEN
2317: WSH_DEBUG_SV.logmsg(l_module_name, 'SOURCE CODE IS NOT INV ' );
2318: WSH_DEBUG_SV.logmsg(l_module_name, 'Lock the Delivery if source_code is not INV');
2319: END IF;
2320: IF (l_dummy_id IS NOT NULL) THEN
2321: SELECT wnd.status_code
2314: ELSE
2315: -- Lock the Delivery if source_code is other than 'INV'
2316: IF l_debug_on THEN
2317: WSH_DEBUG_SV.logmsg(l_module_name, 'SOURCE CODE IS NOT INV ' );
2318: WSH_DEBUG_SV.logmsg(l_module_name, 'Lock the Delivery if source_code is not INV');
2319: END IF;
2320: IF (l_dummy_id IS NOT NULL) THEN
2321: SELECT wnd.status_code
2322: INTO l_del_status_code
2363: --
2364: -- Debug Statements
2365: --
2366: IF l_debug_on THEN
2367: WSH_DEBUG_SV.pop(l_module_name);
2368: END IF;
2369: --
2370: EXCEPTION
2371: WHEN RECORD_LOCKED THEN
2375: --
2376: -- Debug Statements
2377: --
2378: IF l_debug_on THEN
2379: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2380: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
2381: END IF;
2382: --
2383: RETURN;
2376: -- Debug Statements
2377: --
2378: IF l_debug_on THEN
2379: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2380: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
2381: END IF;
2382: --
2383: RETURN;
2384:
2389: --
2390: -- Debug Statements
2391: --
2392: IF l_debug_on THEN
2393: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2394: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2395: END IF;
2396: --
2397: END Lock_Delivery_Detail;
2390: -- Debug Statements
2391: --
2392: IF l_debug_on THEN
2393: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2394: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2395: END IF;
2396: --
2397: END Lock_Delivery_Detail;
2398:
2423: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2424: --
2425: IF l_debug_on IS NULL
2426: THEN
2427: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2428: END IF;
2429: --
2430: IF l_debug_on THEN
2431: WSH_DEBUG_SV.push(l_module_name);
2427: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2428: END IF;
2429: --
2430: IF l_debug_on THEN
2431: WSH_DEBUG_SV.push(l_module_name);
2432: --
2433: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2434: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
2435: END IF;
2429: --
2430: IF l_debug_on THEN
2431: WSH_DEBUG_SV.push(l_module_name);
2432: --
2433: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2434: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
2435: END IF;
2436: --
2437: --
2430: IF l_debug_on THEN
2431: WSH_DEBUG_SV.push(l_module_name);
2432: --
2433: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2434: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
2435: END IF;
2436: --
2437: --
2438: -- Debug Statements
2437: --
2438: -- Debug Statements
2439: --
2440: IF l_debug_on THEN
2441: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_INTERFACE.PROCESS_RECORDS' );
2442: END IF;
2443: --
2444:
2445: --
2445: --
2446: -- Debug Statements
2447: --
2448: IF l_debug_on THEN
2449: WSH_DEBUG_SV.logmsg(l_module_name, 'CHECKING CODE RELEASE LEVEL' );
2450: END IF;
2451: --
2452: IF WSH_CODE_CONTROL.Get_Code_Release_Level >= '110508' then
2453: /* H integration: 940/945 bug 2312168 wrudge
2458: --
2459: -- Debug Statements
2460: --
2461: IF l_debug_on THEN
2462: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING WSH_DELIVERY_UTIL.CHECK_UPDATES_ALLOWED' );
2463: END IF;
2464: --
2465: --
2466: -- Debug Statements
2465: --
2466: -- Debug Statements
2467: --
2468: IF l_debug_on THEN
2469: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_UTIL.CHECK_UPDATES_ALLOWED',WSH_DEBUG_SV.C_PROC_LEVEL);
2470: END IF;
2471: --
2472: WSH_DELIVERY_UTIL.Check_Updates_Allowed(
2473: p_changed_attributes => p_changed_attributes,
2477: --
2478: -- Debug Statements
2479: --
2480: IF l_debug_on THEN
2481: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING CHECK_UPDATES_ALLOWED ' || L_RS );
2482: END IF;
2483: --
2484: END IF;
2485: END IF;
2491: --
2492: -- Debug Statements
2493: --
2494: IF l_debug_on THEN
2495: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING WSH_USA_ACTIONS_PVT.IMPORT_RECORDS' );
2496: END IF;
2497: --
2498: --
2499: -- Debug Statements
2498: --
2499: -- Debug Statements
2500: --
2501: IF l_debug_on THEN
2502: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_ACTIONS_PVT.IMPORT_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2503: END IF;
2504: --
2505: WSH_USA_ACTIONS_PVT.Import_Records(
2506: p_source_code => p_source_code,
2510: --
2511: -- Debug Statements
2512: --
2513: IF l_debug_on THEN
2514: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING WSH_USA_ACTIONS_PVT.IMPORT_RECORDS '|| L_RS );
2515: END IF;
2516: --
2517: END IF;
2518:
2520: --
2521: -- Debug Statements
2522: --
2523: IF l_debug_on THEN
2524: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING WSH_USA_ACTIONS_PVT.SPLIT_RECORDS' );
2525: END IF;
2526: --
2527: --
2528: -- Debug Statements
2527: --
2528: -- Debug Statements
2529: --
2530: IF l_debug_on THEN
2531: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_ACTIONS_PVT.SPLIT_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2532: END IF;
2533: --
2534: WSH_USA_ACTIONS_PVT.Split_Records(
2535: p_source_code => p_source_code,
2542: --
2543: -- Debug Statements
2544: --
2545: IF l_debug_on THEN
2546: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING WSH_USA_ACTIONS_PVT.UPDATE_RECORDS' );
2547: END IF;
2548: --
2549: --
2550: -- Debug Statements
2549: --
2550: -- Debug Statements
2551: --
2552: IF l_debug_on THEN
2553: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_ACTIONS_PVT.UPDATE_RECORDS',WSH_DEBUG_SV.C_PROC_LEVEL);
2554: END IF;
2555: --
2556: WSH_USA_ACTIONS_PVT.Update_Records(
2557: p_source_code => p_source_code,
2567: --
2568: -- Debug Statements
2569: --
2570: IF l_debug_on THEN
2571: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING WSH_USA_QUANTITY_PVT.UPDATE_ORDERED_QUANTITY' );
2572: END IF;
2573: --
2574: --
2575: -- Debug Statements
2574: --
2575: -- Debug Statements
2576: --
2577: IF l_debug_on THEN
2578: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_QUANTITY_PVT.UPDATE_ORDERED_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
2579: END IF;
2580: --
2581: WSH_USA_QUANTITY_PVT.Update_Ordered_Quantity(
2582: p_changed_attribute =>p_changed_attributes(l_counter),
2598: --
2599: -- Debug Statements
2600: --
2601: IF l_debug_on THEN
2602: WSH_DEBUG_SV.pop(l_module_name);
2603: END IF;
2604: --
2605: EXCEPTION
2606: WHEN OTHERS THEN
2610: --
2611: -- Debug Statements
2612: --
2613: IF l_debug_on THEN
2614: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2615: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2616: END IF;
2617: --
2618: END Process_Records;
2611: -- Debug Statements
2612: --
2613: IF l_debug_on THEN
2614: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2615: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2616: END IF;
2617: --
2618: END Process_Records;
2619:
2634: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2635: --
2636: IF l_debug_on IS NULL
2637: THEN
2638: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2639: END IF;
2640: --
2641: IF l_debug_on THEN
2642: WSH_DEBUG_SV.push(l_module_name);
2638: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2639: END IF;
2640: --
2641: IF l_debug_on THEN
2642: WSH_DEBUG_SV.push(l_module_name);
2643: --
2644: WSH_DEBUG_SV.log(l_module_name,'TXT',TXT);
2645: WSH_DEBUG_SV.log(l_module_name,'NAME',NAME);
2646: END IF;
2640: --
2641: IF l_debug_on THEN
2642: WSH_DEBUG_SV.push(l_module_name);
2643: --
2644: WSH_DEBUG_SV.log(l_module_name,'TXT',TXT);
2645: WSH_DEBUG_SV.log(l_module_name,'NAME',NAME);
2646: END IF;
2647: --
2648: IF ( g_call_mode = 'CONC' ) THEN
2641: IF l_debug_on THEN
2642: WSH_DEBUG_SV.push(l_module_name);
2643: --
2644: WSH_DEBUG_SV.log(l_module_name,'TXT',TXT);
2645: WSH_DEBUG_SV.log(l_module_name,'NAME',NAME);
2646: END IF;
2647: --
2648: IF ( g_call_mode = 'CONC' ) THEN
2649: --
2649: --
2650: -- Debug Statements
2651: --
2652: IF l_debug_on THEN
2653: WSH_DEBUG_SV.logmsg(l_module_name, TXT );
2654: END IF;
2655: --
2656: ELSE
2657: IF name is NOT NULL then
2662: --
2663: -- Debug Statements
2664: --
2665: IF l_debug_on THEN
2666: WSH_DEBUG_SV.pop(l_module_name);
2667: END IF;
2668: --
2669: END PRINTMSG;
2670:
2747: --
2748: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2749: --
2750: IF l_debug_on IS NULL THEN
2751: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2752: END IF;
2753: --
2754: IF l_debug_on THEN
2755: WSH_DEBUG_SV.push(l_module_name);
2751: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2752: END IF;
2753: --
2754: IF l_debug_on THEN
2755: WSH_DEBUG_SV.push(l_module_name);
2756: --
2757: WSH_DEBUG_SV.log(l_module_name,'source code',p_source_code);
2758: WSH_DEBUG_SV.log(l_module_name,'Changedattribute - count',p_changed_attributes.count);
2759: WSH_DEBUG_SV.log(l_module_name,'Phase',p_phase);
2753: --
2754: IF l_debug_on THEN
2755: WSH_DEBUG_SV.push(l_module_name);
2756: --
2757: WSH_DEBUG_SV.log(l_module_name,'source code',p_source_code);
2758: WSH_DEBUG_SV.log(l_module_name,'Changedattribute - count',p_changed_attributes.count);
2759: WSH_DEBUG_SV.log(l_module_name,'Phase',p_phase);
2760: END IF;
2761:
2754: IF l_debug_on THEN
2755: WSH_DEBUG_SV.push(l_module_name);
2756: --
2757: WSH_DEBUG_SV.log(l_module_name,'source code',p_source_code);
2758: WSH_DEBUG_SV.log(l_module_name,'Changedattribute - count',p_changed_attributes.count);
2759: WSH_DEBUG_SV.log(l_module_name,'Phase',p_phase);
2760: END IF;
2761:
2762: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2755: WSH_DEBUG_SV.push(l_module_name);
2756: --
2757: WSH_DEBUG_SV.log(l_module_name,'source code',p_source_code);
2758: WSH_DEBUG_SV.log(l_module_name,'Changedattribute - count',p_changed_attributes.count);
2759: WSH_DEBUG_SV.log(l_module_name,'Phase',p_phase);
2760: END IF;
2761:
2762: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2763:
2790: END IF;
2791: l_dd_tab(l_dd_tab.count + 1) := l_dd_rec;
2792: l_dd_ids(l_dd_ids.count + 1) := l_dd_rec.delivery_detail_id;
2793: IF l_debug_on THEN
2794: WSH_DEBUG_SV.log(l_module_name,'l_dd_rec.delivery_detail_id',l_dd_rec.delivery_detail_id);
2795: END IF;
2796: END LOOP;
2797:
2798: x_dd_ids := l_dd_ids;
2801: END IF;
2802:
2803:
2804: IF l_debug_on THEN
2805: WSH_DEBUG_SV.pop(l_module_name);
2806: END IF;
2807:
2808: EXCEPTION
2809: WHEN others THEN
2809: WHEN others THEN
2810: wsh_util_core.default_handler('WSH_INTERFACE.get_details_snapshot');
2811: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2812: IF l_debug_on THEN
2813: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2814: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2815: END IF;
2816:
2817:
2810: wsh_util_core.default_handler('WSH_INTERFACE.get_details_snapshot');
2811: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2812: IF l_debug_on THEN
2813: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2814: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2815: END IF;
2816:
2817:
2818: END Get_Details_Snapshot;