66: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
67: --
68: IF l_debug_on IS NULL
69: THEN
70: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
71: END IF;
72: --
73: IF l_debug_on THEN
74: wsh_debug_sv.push(l_module_name);
70: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
71: END IF;
72: --
73: IF l_debug_on THEN
74: wsh_debug_sv.push(l_module_name);
75: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
76: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
77: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
78: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
71: END IF;
72: --
73: IF l_debug_on THEN
74: wsh_debug_sv.push(l_module_name);
75: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
76: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
77: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
78: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
79: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
72: --
73: IF l_debug_on THEN
74: wsh_debug_sv.push(l_module_name);
75: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
76: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
77: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
78: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
79: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
80: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
73: IF l_debug_on THEN
74: wsh_debug_sv.push(l_module_name);
75: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
76: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
77: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
78: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
79: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
80: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
81: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
74: wsh_debug_sv.push(l_module_name);
75: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
76: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
77: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
78: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
79: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
80: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
81: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
82: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
75: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
76: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
77: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
78: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
79: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
80: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
81: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
82: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
83: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
76: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
77: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
78: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
79: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
80: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
81: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
82: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
83: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
84: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
77: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
78: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
79: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
80: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
81: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
82: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
83: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
84: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
85: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
78: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
79: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
80: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
81: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
82: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
83: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
84: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
85: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
86: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
79: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
80: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
81: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
82: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
83: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
84: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
85: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
86: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
87: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
80: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
81: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
82: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
83: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
84: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
85: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
86: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
87: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
88: wsh_debug_sv.log(l_module_name, 'p_log_level', p_log_level);
81: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
82: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
83: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
84: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
85: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
86: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
87: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
88: wsh_debug_sv.log(l_module_name, 'p_log_level', p_log_level);
89: END IF;
82: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
83: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
84: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
85: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
86: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
87: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
88: wsh_debug_sv.log(l_module_name, 'p_log_level', p_log_level);
89: END IF;
90: --
83: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
84: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
85: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
86: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
87: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
88: wsh_debug_sv.log(l_module_name, 'p_log_level', p_log_level);
89: END IF;
90: --
91:
84: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
85: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
86: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
87: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
88: wsh_debug_sv.log(l_module_name, 'p_log_level', p_log_level);
89: END IF;
90: --
91:
92: --
90: --
91:
92: --
93: IF l_debug_on THEN
94: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling Create_Shipment_Batch', WSH_DEBUG_SV.C_PROC_LEVEL);
95: END IF;
96: --
97:
98: Create_Shipment_Batch (
112: x_return_status => l_return_status );
113:
114: --
115: IF l_debug_on THEN
116: WSH_DEBUG_SV.log(l_module_name, 'Return Status of Create_Shipment_Batch', l_return_status);
117: END IF;
118: --
119:
120: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
138: IF l_return_status in ( WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING )
139: THEN
140: --
141: IF l_debug_on THEN
142: WSH_DEBUG_SV.logmsg(l_module_name, 'Commiting the transaction......');
143: END IF;
144: --
145: COMMIT;
146: ELSE
145: COMMIT;
146: ELSE
147: --
148: IF l_debug_on THEN
149: WSH_DEBUG_SV.logmsg(l_module_name, 'Rolling back the transaction......');
150: END IF;
151: --
152: ROLLBACK;
153: END IF;
153: END IF;
154:
155: --
156: IF l_debug_on THEN
157: WSH_DEBUG_SV.log(l_module_name,'l_completion_status', l_completion_status);
158: WSH_DEBUG_SV.log(l_module_name,'errbuf', errbuf);
159: WSH_DEBUG_SV.log(l_module_name,'retcode', retcode);
160: WSH_DEBUG_SV.pop(l_module_name);
161: END IF;
154:
155: --
156: IF l_debug_on THEN
157: WSH_DEBUG_SV.log(l_module_name,'l_completion_status', l_completion_status);
158: WSH_DEBUG_SV.log(l_module_name,'errbuf', errbuf);
159: WSH_DEBUG_SV.log(l_module_name,'retcode', retcode);
160: WSH_DEBUG_SV.pop(l_module_name);
161: END IF;
162: --
155: --
156: IF l_debug_on THEN
157: WSH_DEBUG_SV.log(l_module_name,'l_completion_status', l_completion_status);
158: WSH_DEBUG_SV.log(l_module_name,'errbuf', errbuf);
159: WSH_DEBUG_SV.log(l_module_name,'retcode', retcode);
160: WSH_DEBUG_SV.pop(l_module_name);
161: END IF;
162: --
163: EXCEPTION
156: IF l_debug_on THEN
157: WSH_DEBUG_SV.log(l_module_name,'l_completion_status', l_completion_status);
158: WSH_DEBUG_SV.log(l_module_name,'errbuf', errbuf);
159: WSH_DEBUG_SV.log(l_module_name,'retcode', retcode);
160: WSH_DEBUG_SV.pop(l_module_name);
161: END IF;
162: --
163: EXCEPTION
164: WHEN OTHERS THEN
166: errbuf := 'Create Shipment Batches Program is completed with unexpected error - ' || SQLCODE;
167: retcode := '2';
168: --
169: IF l_debug_on THEN
170: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
171: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
172: END IF;
173: --
174: END Create_Shipment_Batch;
167: retcode := '2';
168: --
169: IF l_debug_on THEN
170: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
171: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
172: END IF;
173: --
174: END Create_Shipment_Batch;
175: --
323: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
324: --
325: IF l_debug_on IS NULL
326: THEN
327: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
328: END IF;
329: --
330: IF l_debug_on THEN
331: wsh_debug_sv.push(l_module_name);
327: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
328: END IF;
329: --
330: IF l_debug_on THEN
331: wsh_debug_sv.push(l_module_name);
332: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
333: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
334: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
335: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
328: END IF;
329: --
330: IF l_debug_on THEN
331: wsh_debug_sv.push(l_module_name);
332: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
333: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
334: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
335: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
336: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
329: --
330: IF l_debug_on THEN
331: wsh_debug_sv.push(l_module_name);
332: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
333: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
334: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
335: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
336: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
337: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
330: IF l_debug_on THEN
331: wsh_debug_sv.push(l_module_name);
332: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
333: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
334: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
335: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
336: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
337: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
338: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
331: wsh_debug_sv.push(l_module_name);
332: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
333: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
334: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
335: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
336: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
337: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
338: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
339: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
332: wsh_debug_sv.log(l_module_name, 'p_organization_id', p_organization_id);
333: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
334: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
335: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
336: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
337: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
338: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
339: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
340: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
333: wsh_debug_sv.log(l_module_name, 'p_customer_id', p_customer_id);
334: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
335: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
336: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
337: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
338: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
339: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
340: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
341: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
334: wsh_debug_sv.log(l_module_name, 'p_ship_to_location_id', p_ship_to_location_id);
335: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
336: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
337: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
338: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
339: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
340: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
341: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
342: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
335: wsh_debug_sv.log(l_module_name, 'p_transaction_type_id', p_transaction_type_id);
336: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
337: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
338: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
339: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
340: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
341: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
342: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
343: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
336: wsh_debug_sv.log(l_module_name, 'p_from_order_number', p_from_order_number);
337: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
338: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
339: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
340: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
341: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
342: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
343: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
344: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
337: wsh_debug_sv.log(l_module_name, 'p_to_order_number', p_to_order_number);
338: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
339: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
340: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
341: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
342: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
343: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
344: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
345: END IF;
338: wsh_debug_sv.log(l_module_name, 'p_from_request_date', p_from_request_date);
339: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
340: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
341: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
342: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
343: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
344: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
345: END IF;
346: --
339: wsh_debug_sv.log(l_module_name, 'p_to_request_date', p_to_request_date);
340: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
341: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
342: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
343: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
344: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
345: END IF;
346: --
347:
340: wsh_debug_sv.log(l_module_name, 'p_from_schedule_date', p_from_schedule_date);
341: wsh_debug_sv.log(l_module_name, 'p_to_schedule_date', p_to_schedule_date);
342: wsh_debug_sv.log(l_module_name, 'p_shipment_priority', p_shipment_priority);
343: WSH_DEBUG_SV.log(l_module_name, 'p_include_internal_so', p_include_internal_so);
344: WSH_DEBUG_SV.log(l_module_name, 'p_include_lines_with_hold', p_include_lines_with_hold);
345: END IF;
346: --
347:
348: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
353: FETCH c_wh_flag_cur INTO l_dist_flag;
354: CLOSE c_wh_flag_cur;
355:
356: IF l_debug_on THEN --Fulfillment Batch XML Project
357: wsh_debug_sv.log (l_module_name,'WSH: Distributed Source Entity', l_dist_src_entity_profile);
358: wsh_debug_sv.log (l_module_name,'Distributed Flag', l_dist_flag);
359: END IF;
360: /*
361: --Check If organization is TW2 Enabled
354: CLOSE c_wh_flag_cur;
355:
356: IF l_debug_on THEN --Fulfillment Batch XML Project
357: wsh_debug_sv.log (l_module_name,'WSH: Distributed Source Entity', l_dist_src_entity_profile);
358: wsh_debug_sv.log (l_module_name,'Distributed Flag', l_dist_flag);
359: END IF;
360: /*
361: --Check If organization is TW2 Enabled
362: --
360: /*
361: --Check If organization is TW2 Enabled
362: --
363: IF l_debug_on THEN
364: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type', WSH_DEBUG_SV.C_PROC_LEVEL);
365: END IF;
366: --
367: l_wh_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type(
368: p_organization_id => p_organization_id,
368: p_organization_id => p_organization_id,
369: x_return_status => l_return_status );
370: --
371: IF l_debug_on THEN
372: WSH_DEBUG_SV.log(l_module_name, 'l_wh_type,l_return_status',l_wh_type||','||l_return_status);
373: END IF;
374: --
375:
376: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
375:
376: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
377: --
378: IF l_debug_on THEN
379: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type returned error');
380: END IF;
381: --
382: x_return_status := l_return_status;
383: RAISE FND_API.G_EXC_ERROR;
385:
386: IF nvl(l_wh_type, FND_API.G_MISS_CHAR) <> 'TW2' THEN
387: --
388: IF l_debug_on THEN
389: WSH_DEBUG_SV.logmsg(l_module_name, 'Error: Organization is not TW2 Enabled');
390: END IF;
391: --
392: RAISE FND_API.G_EXC_ERROR;
393: END IF;
394: */
395:
396: --
397: IF l_debug_on THEN
398: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling WSH_CUSTOM_PUB.Shipment_Batch_Group_Criteria', WSH_DEBUG_SV.C_PROC_LEVEL);
399: END IF;
400: --
401: WSH_CUSTOM_PUB.Shipment_Batch_Group_Criteria(
402: x_grp_by_invoice_to_site => l_grp_by_inv_site,
410: x_grp_by_within_order => l_grp_by_within_order );
411:
412: --
413: IF l_debug_on THEN
414: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_site ', l_grp_by_inv_site );
415: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_site ', l_grp_by_del_site );
416: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_to_contact ', l_grp_by_ship_contact );
417: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_contact ', l_grp_by_inv_contact );
418: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_contact ', l_grp_by_del_contact );
411:
412: --
413: IF l_debug_on THEN
414: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_site ', l_grp_by_inv_site );
415: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_site ', l_grp_by_del_site );
416: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_to_contact ', l_grp_by_ship_contact );
417: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_contact ', l_grp_by_inv_contact );
418: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_contact ', l_grp_by_del_contact );
419: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_method ', l_grp_by_ship_method );
412: --
413: IF l_debug_on THEN
414: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_site ', l_grp_by_inv_site );
415: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_site ', l_grp_by_del_site );
416: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_to_contact ', l_grp_by_ship_contact );
417: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_contact ', l_grp_by_inv_contact );
418: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_contact ', l_grp_by_del_contact );
419: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_method ', l_grp_by_ship_method );
420: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_freight_terms ', l_grp_by_freight_terms);
413: IF l_debug_on THEN
414: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_site ', l_grp_by_inv_site );
415: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_site ', l_grp_by_del_site );
416: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_to_contact ', l_grp_by_ship_contact );
417: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_contact ', l_grp_by_inv_contact );
418: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_contact ', l_grp_by_del_contact );
419: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_method ', l_grp_by_ship_method );
420: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_freight_terms ', l_grp_by_freight_terms);
421: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_fob_code ', l_grp_by_fob_code );
414: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_site ', l_grp_by_inv_site );
415: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_site ', l_grp_by_del_site );
416: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_to_contact ', l_grp_by_ship_contact );
417: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_contact ', l_grp_by_inv_contact );
418: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_contact ', l_grp_by_del_contact );
419: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_method ', l_grp_by_ship_method );
420: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_freight_terms ', l_grp_by_freight_terms);
421: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_fob_code ', l_grp_by_fob_code );
422: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_within_order ', l_grp_by_within_order );
415: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_site ', l_grp_by_del_site );
416: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_to_contact ', l_grp_by_ship_contact );
417: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_contact ', l_grp_by_inv_contact );
418: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_contact ', l_grp_by_del_contact );
419: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_method ', l_grp_by_ship_method );
420: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_freight_terms ', l_grp_by_freight_terms);
421: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_fob_code ', l_grp_by_fob_code );
422: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_within_order ', l_grp_by_within_order );
423: END IF;
416: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_to_contact ', l_grp_by_ship_contact );
417: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_contact ', l_grp_by_inv_contact );
418: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_contact ', l_grp_by_del_contact );
419: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_method ', l_grp_by_ship_method );
420: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_freight_terms ', l_grp_by_freight_terms);
421: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_fob_code ', l_grp_by_fob_code );
422: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_within_order ', l_grp_by_within_order );
423: END IF;
424: --
417: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_invoice_to_contact ', l_grp_by_inv_contact );
418: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_contact ', l_grp_by_del_contact );
419: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_method ', l_grp_by_ship_method );
420: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_freight_terms ', l_grp_by_freight_terms);
421: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_fob_code ', l_grp_by_fob_code );
422: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_within_order ', l_grp_by_within_order );
423: END IF;
424: --
425:
418: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_deliver_to_contact ', l_grp_by_del_contact );
419: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_ship_method ', l_grp_by_ship_method );
420: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_freight_terms ', l_grp_by_freight_terms);
421: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_fob_code ', l_grp_by_fob_code );
422: WSH_DEBUG_SV.log(l_module_name,'l_grp_by_within_order ', l_grp_by_within_order );
423: END IF;
424: --
425:
426: l_from_request_date := to_date(p_from_request_date,'YYYY/MM/DD HH24:MI:SS');
578: -- } Dynamic Where Clause Ends Here
579:
580: --
581: IF l_debug_on THEN
582: WSH_DEBUG_SV.log(l_module_name, 'Transaction Query', l_dyn_query);
583: END IF;
584: --
585:
586: v_cursorid := DBMS_SQL.Open_Cursor;
586: v_cursorid := DBMS_SQL.Open_Cursor;
587: DBMS_SQL.Parse(v_cursorid, l_dyn_query, DBMS_SQL.v7 );
588: --
589: IF l_debug_on THEN
590: WSH_DEBUG_SV.log(l_module_name, 'Opened and Pasred cursor successfully', v_cursorid);
591: END IF;
592: --
593: --Using Define_Array to fetch in BULK based on l_bulk_count.
594: --Index of PL/SQL table will start from 1.
711: DBMS_SQL.Column_Value(v_cursorid, 18, l_group_id_tbl );
712:
713: --
714: IF l_debug_on THEN
715: WSH_DEBUG_SV.log(l_module_name, 'Fetched successfully', v_ignore);
716: WSH_DEBUG_SV.log(l_module_name, 'Group Id Table Count', l_group_id_tbl.count);
717: WSH_DEBUG_SV.log(l_module_name, 'Group Id for first delivery detail# ' || l_del_detail_tbl(l_del_detail_tbl.first), l_group_id_tbl(l_group_id_tbl.first) );
718: END IF;
719: --
712:
713: --
714: IF l_debug_on THEN
715: WSH_DEBUG_SV.log(l_module_name, 'Fetched successfully', v_ignore);
716: WSH_DEBUG_SV.log(l_module_name, 'Group Id Table Count', l_group_id_tbl.count);
717: WSH_DEBUG_SV.log(l_module_name, 'Group Id for first delivery detail# ' || l_del_detail_tbl(l_del_detail_tbl.first), l_group_id_tbl(l_group_id_tbl.first) );
718: END IF;
719: --
720:
713: --
714: IF l_debug_on THEN
715: WSH_DEBUG_SV.log(l_module_name, 'Fetched successfully', v_ignore);
716: WSH_DEBUG_SV.log(l_module_name, 'Group Id Table Count', l_group_id_tbl.count);
717: WSH_DEBUG_SV.log(l_module_name, 'Group Id for first delivery detail# ' || l_del_detail_tbl(l_del_detail_tbl.first), l_group_id_tbl(l_group_id_tbl.first) );
718: END IF;
719: --
720:
721: --{ Loop through records fetched - Starts
731:
732: --Bug 14620571 - Start
733: IF p_include_lines_with_hold = 'N' THEN
734: IF l_debug_on THEN
735: WSH_DEBUG_SV.logmsg(l_module_name, 'CHECKING FOR CREDIT CHECK/HOLDS' );
736: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_CREDIT_HOLDS',WSH_DEBUG_SV.C_PROC_LEVEL);
737: END IF;
738: --Check for Credit
739: WSH_DETAILS_VALIDATIONS.Check_Credit_Holds(
732: --Bug 14620571 - Start
733: IF p_include_lines_with_hold = 'N' THEN
734: IF l_debug_on THEN
735: WSH_DEBUG_SV.logmsg(l_module_name, 'CHECKING FOR CREDIT CHECK/HOLDS' );
736: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_CREDIT_HOLDS',WSH_DEBUG_SV.C_PROC_LEVEL);
737: END IF;
738: --Check for Credit
739: WSH_DETAILS_VALIDATIONS.Check_Credit_Holds(
740: p_detail_id => l_del_detail_tbl(i),
766: l_dd_line_num_tbl(i) := 0;
767: l_dd_batch_id_tbl(i) := 0;
768: --
769: IF l_debug_on THEN
770: WSH_DEBUG_SV.log(l_module_name, 'Warning: Credit Check failed or Hold exists for detail', l_del_detail_tbl(i) );
771: END IF;
772: --
773: goto skip_record;
774: WHEN RECORD_LOCKED THEN
781: FND_MESSAGE.Set_Token('ENTITY_NAME', l_del_detail_tbl(i));
782: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
783: --
784: IF l_debug_on THEN
785: WSH_DEBUG_SV.log(l_module_name,'Warning: Not able to obtain lock, so skipping delivery detail', l_del_detail_tbl(i) );
786: END IF;
787: --
788: goto skip_record;
789: END;
910: --} Loop through records fetched - Ends
911:
912: --
913: IF l_debug_on THEN
914: WSH_DEBUG_SV.log(l_module_name, 'Group Id for last delivery detail# ' || l_del_detail_tbl(l_del_detail_tbl.last), l_group_id_tbl(l_group_id_tbl.last) );
915: WSH_DEBUG_SV.log(l_module_name, 'No. of lines fetched', l_del_detail_tbl.count);
916: WSH_DEBUG_SV.log(l_module_name, 'No. of batches created', l_shipment_batch_tbl.count);
917: END IF;
918: --
911:
912: --
913: IF l_debug_on THEN
914: WSH_DEBUG_SV.log(l_module_name, 'Group Id for last delivery detail# ' || l_del_detail_tbl(l_del_detail_tbl.last), l_group_id_tbl(l_group_id_tbl.last) );
915: WSH_DEBUG_SV.log(l_module_name, 'No. of lines fetched', l_del_detail_tbl.count);
916: WSH_DEBUG_SV.log(l_module_name, 'No. of batches created', l_shipment_batch_tbl.count);
917: END IF;
918: --
919: IF l_update_flag THEN
912: --
913: IF l_debug_on THEN
914: WSH_DEBUG_SV.log(l_module_name, 'Group Id for last delivery detail# ' || l_del_detail_tbl(l_del_detail_tbl.last), l_group_id_tbl(l_group_id_tbl.last) );
915: WSH_DEBUG_SV.log(l_module_name, 'No. of lines fetched', l_del_detail_tbl.count);
916: WSH_DEBUG_SV.log(l_module_name, 'No. of batches created', l_shipment_batch_tbl.count);
917: END IF;
918: --
919: IF l_update_flag THEN
920: FORALL i in l_rowid_tbl.first..l_rowid_tbl.last
935: l_upd_count := sql%rowcount;
936:
937: --
938: IF l_debug_on THEN
939: WSH_DEBUG_SV.log(l_module_name, 'No. of delivery details updated', l_upd_count);
940: END IF;
941: --
942: END IF;
943:
944: --Raise Business Event --Fulfillment Batch XML Project --Start
945: IF (l_dist_src_entity_profile = 'B') AND (NVL(l_dist_flag, '!') = 'Y') THEN
946:
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.logmsg(l_module_name, 'Raising Business Event for Batch');
949: END IF;
950:
951: FOR i IN 1..l_raise_batch_tbl.COUNT LOOP
952:
950:
951: FOR i IN 1..l_raise_batch_tbl.COUNT LOOP
952:
953: IF l_debug_on THEN
954: wsh_debug_sv.log (l_module_name, 'Batch Id ' , l_raise_batch_tbl(i));
955: END IF;
956:
957: -- Initializing the Transactions_History Record for BATCH.
958:
967: l_txns_history_rec.event_name := 'oracle.apps.wsh.batch.bsro';
968:
969: SELECT to_char(WSH_DOCUMENT_NUMBER_S.nextval) INTO l_txns_history_rec.document_number FROM dual;
970: IF l_debug_on THEN
971: wsh_debug_sv.log(l_module_name, 'DOCUMENT_NUMBER',l_txns_history_rec.document_number);
972: END IF;
973:
974: WSH_EXTERNAL_INTERFACE_SV.RAISE_EVENT(l_txns_history_rec, NULL, l_be_return_status);
975:
973:
974: WSH_EXTERNAL_INTERFACE_SV.RAISE_EVENT(l_txns_history_rec, NULL, l_be_return_status);
975:
976: IF l_debug_on THEN
977: WSH_DEBUG_SV.log(l_module_name, 'Return Status of Raise Business Event', l_be_return_status);
978: END IF;
979: IF (l_be_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
980: raise wsh_raise_event_error;
981: END IF;
1017: -- Closing Dynamic Cursor
1018: IF DBMS_SQL.Is_Open(v_cursorid) THEN
1019: --
1020: IF l_debug_on THEN
1021: WSH_DEBUG_SV.logmsg(l_module_name, 'Closing cursor');
1022: END IF;
1023: --
1024: DBMS_SQL.Close_Cursor(v_cursorid);
1025: v_cursorid := null;
1026: END IF;
1027:
1028: --
1029: IF l_debug_on THEN
1030: WSH_DEBUG_SV.log(l_module_name, 'Total No. of shipment batches created', l_batch_tbl.count);
1031: WSH_DEBUG_SV.logmsg(l_module_name, '----------------------------------------------');
1032: ELSIF nvl(FND_GLOBAL.Conc_Request_Id, 0) > 0 THEN
1033: FND_FILE.put_line(FND_FILE.LOG, 'Total No. of shipment batches created => ' || l_batch_tbl.count);
1034: FND_FILE.put_line(FND_FILE.LOG, '----------------------------------------------');
1027:
1028: --
1029: IF l_debug_on THEN
1030: WSH_DEBUG_SV.log(l_module_name, 'Total No. of shipment batches created', l_batch_tbl.count);
1031: WSH_DEBUG_SV.logmsg(l_module_name, '----------------------------------------------');
1032: ELSIF nvl(FND_GLOBAL.Conc_Request_Id, 0) > 0 THEN
1033: FND_FILE.put_line(FND_FILE.LOG, 'Total No. of shipment batches created => ' || l_batch_tbl.count);
1034: FND_FILE.put_line(FND_FILE.LOG, '----------------------------------------------');
1035: END IF;
1042: IF l_batch_tbl.count > 0 THEN
1043: FOR i in l_batch_tbl.first..l_batch_tbl.last
1044: LOOP
1045: IF l_debug_on THEN
1046: WSH_DEBUG_SV.logmsg(l_module_name, i || '. Shipment Batch Id => ' || l_batch_tbl(i));
1047: ELSIF nvl(FND_GLOBAL.Conc_Request_Id, 0) > 0 THEN
1048: FND_FILE.put_line(FND_FILE.LOG, i || '. Shipment Batch Id => ' || l_batch_tbl(i));
1049: END IF;
1050: END LOOP;
1053: --
1054:
1055: --
1056: IF l_debug_on THEN
1057: WSH_DEBUG_SV.logmsg(l_module_name, '----------------------------------------------');
1058: WSH_DEBUG_SV.pop(l_module_name);
1059: ELSIF nvl(FND_GLOBAL.Conc_Request_Id, 0) > 0 THEN
1060: FND_FILE.put_line(FND_FILE.LOG, '----------------------------------------------');
1061: END IF;
1054:
1055: --
1056: IF l_debug_on THEN
1057: WSH_DEBUG_SV.logmsg(l_module_name, '----------------------------------------------');
1058: WSH_DEBUG_SV.pop(l_module_name);
1059: ELSIF nvl(FND_GLOBAL.Conc_Request_Id, 0) > 0 THEN
1060: FND_FILE.put_line(FND_FILE.LOG, '----------------------------------------------');
1061: END IF;
1062: --
1065: when FND_API.G_EXC_ERROR then
1066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1067: --
1068: IF l_debug_on THEN
1069: wsh_debug_sv.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1070: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
1071: END IF;
1072: --
1073: WHEN wsh_raise_event_error THEN --Fulfillment Batch XML Project
1066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1067: --
1068: IF l_debug_on THEN
1069: wsh_debug_sv.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1070: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
1071: END IF;
1072: --
1073: WHEN wsh_raise_event_error THEN --Fulfillment Batch XML Project
1074: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1072: --
1073: WHEN wsh_raise_event_error THEN --Fulfillment Batch XML Project
1074: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1075: IF l_debug_on THEN
1076: wsh_debug_sv.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1077: wsh_debug_sv.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
1078: END IF;
1079: WHEN OTHERS THEN
1080: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1073: WHEN wsh_raise_event_error THEN --Fulfillment Batch XML Project
1074: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1075: IF l_debug_on THEN
1076: wsh_debug_sv.logmsg(l_module_name,'wsh_raise_event_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1077: wsh_debug_sv.pop(l_module_name,'EXCEPTION:wsh_raise_event_error');
1078: END IF;
1079: WHEN OTHERS THEN
1080: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1081: --
1079: WHEN OTHERS THEN
1080: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1081: --
1082: IF l_debug_on THEN
1083: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1084: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1085: END IF;
1086: --
1087: END Create_Shipment_Batch;
1080: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1081: --
1082: IF l_debug_on THEN
1083: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1084: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1085: END IF;
1086: --
1087: END Create_Shipment_Batch;
1088: --
1150: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1151: --
1152: IF l_debug_on IS NULL
1153: THEN
1154: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1155: END IF;
1156: --
1157: IF l_debug_on THEN
1158: WSH_DEBUG_SV.push(l_module_name);
1154: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1155: END IF;
1156: --
1157: IF l_debug_on THEN
1158: WSH_DEBUG_SV.push(l_module_name);
1159: --
1160: WSH_DEBUG_SV.log(l_module_name, 'p_document_number', p_document_number);
1161: WSH_DEBUG_SV.log(l_module_name, 'p_line_number', p_line_number);
1162: WSH_DEBUG_SV.log(l_module_name, 'p_cancel_quantity', p_cancel_quantity);
1156: --
1157: IF l_debug_on THEN
1158: WSH_DEBUG_SV.push(l_module_name);
1159: --
1160: WSH_DEBUG_SV.log(l_module_name, 'p_document_number', p_document_number);
1161: WSH_DEBUG_SV.log(l_module_name, 'p_line_number', p_line_number);
1162: WSH_DEBUG_SV.log(l_module_name, 'p_cancel_quantity', p_cancel_quantity);
1163: END IF;
1164: --
1157: IF l_debug_on THEN
1158: WSH_DEBUG_SV.push(l_module_name);
1159: --
1160: WSH_DEBUG_SV.log(l_module_name, 'p_document_number', p_document_number);
1161: WSH_DEBUG_SV.log(l_module_name, 'p_line_number', p_line_number);
1162: WSH_DEBUG_SV.log(l_module_name, 'p_cancel_quantity', p_cancel_quantity);
1163: END IF;
1164: --
1165: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1158: WSH_DEBUG_SV.push(l_module_name);
1159: --
1160: WSH_DEBUG_SV.log(l_module_name, 'p_document_number', p_document_number);
1161: WSH_DEBUG_SV.log(l_module_name, 'p_line_number', p_line_number);
1162: WSH_DEBUG_SV.log(l_module_name, 'p_cancel_quantity', p_cancel_quantity);
1163: END IF;
1164: --
1165: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1166: l_pending_cancel_qty := p_cancel_quantity;
1176: l_cancel_quantity := l_pending_cancel_qty;
1177: l_pending_cancel_qty := 0;
1178: --
1179: IF l_debug_on THEN
1180: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details', WSH_DEBUG_SV.C_PROC_LEVEL);
1181: END IF;
1182: --
1183:
1184: WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details (
1188: x_return_status => l_return_status );
1189:
1190: --
1191: IF l_debug_on THEN
1192: WSH_DEBUG_SV.log(l_module_name, 'Return Status of WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details', l_return_status);
1193: END IF;
1194: --
1195:
1196: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1210:
1211: IF l_pending_cancel_qty > 0 THEN
1212: --
1213: IF l_debug_on THEN
1214: WSH_DEBUG_SV.logmsg(l_module_name, 'Cancel Quantity ' || p_cancel_quantity || ' is greater than open quantity ' || l_avlb_quantity);
1215: END IF;
1216: --
1217: RAISE FND_API.G_EXC_ERROR;
1218: END IF;
1218: END IF;
1219:
1220: --
1221: IF l_debug_on THEN
1222: WSH_DEBUG_SV.log(l_module_name, 'Unassign delivery detail count', l_unassign_detail_tab.count);
1223: END IF;
1224: --
1225: IF l_unassign_detail_tab.count > 0 THEN
1226: FORALL i in l_unassign_detail_tab.first..l_unassign_detail_tab.last
1238: where delivery_detail_id = l_unassign_detail_tab(i);
1239:
1240: --
1241: IF l_debug_on THEN
1242: WSH_DEBUG_SV.log(l_module_name, 'No. of delivery details Unassigned from Shipment Batch', sql%rowcount);
1243: END IF;
1244: --
1245: END IF;
1246:
1245: END IF;
1246:
1247: --
1248: IF l_debug_on THEN
1249: WSH_DEBUG_SV.log(l_module_name, 'Return Status', x_return_status);
1250: WSH_DEBUG_SV.pop(l_module_name);
1251: END IF;
1252: --
1253: EXCEPTION
1246:
1247: --
1248: IF l_debug_on THEN
1249: WSH_DEBUG_SV.log(l_module_name, 'Return Status', x_return_status);
1250: WSH_DEBUG_SV.pop(l_module_name);
1251: END IF;
1252: --
1253: EXCEPTION
1254: WHEN RECORD_LOCKED THEN
1254: WHEN RECORD_LOCKED THEN
1255: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1256: --
1257: IF l_debug_on THEN
1258: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1259: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
1260: END IF;
1261: --
1262:
1255: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1256: --
1257: IF l_debug_on THEN
1258: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1259: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
1260: END IF;
1261: --
1262:
1263: WHEN FND_API.G_EXC_ERROR THEN
1265: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1266: END IF;
1267: --
1268: IF l_debug_on THEN
1269: WSH_DEBUG_SV.logmsg(l_module_name,'Rolling back the transactions');
1270: END IF;
1271: --
1272: rollback;
1273: IF l_debug_on THEN
1270: END IF;
1271: --
1272: rollback;
1273: IF l_debug_on THEN
1274: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured while spliting line');
1275: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1276: END IF;
1277: WHEN others THEN
1278: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1271: --
1272: rollback;
1273: IF l_debug_on THEN
1274: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occured while spliting line');
1275: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1276: END IF;
1277: WHEN others THEN
1278: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1279: --
1277: WHEN others THEN
1278: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1279: --
1280: IF l_debug_on THEN
1281: WSH_DEBUG_SV.logmsg(l_module_name,'Rolling back the transactions');
1282: END IF;
1283: --
1284: rollback;
1285: IF l_debug_on THEN
1282: END IF;
1283: --
1284: rollback;
1285: IF l_debug_on THEN
1286: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1287: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1288: END IF;
1289: END Cancel_Line;
1290:
1283: --
1284: rollback;
1285: IF l_debug_on THEN
1286: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1287: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1288: END IF;
1289: END Cancel_Line;
1290:
1291: END WSH_SHIPMENT_BATCH_PKG;