24: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
25: --
26: IF l_debug_on IS NULL
27: THEN
28: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
29: END IF;
30: --
31: IF l_debug_on THEN
32: WSH_DEBUG_SV.push(l_module_name);
28: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
29: END IF;
30: --
31: IF l_debug_on THEN
32: WSH_DEBUG_SV.push(l_module_name);
33: --
34: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
35: END IF;
36: --
30: --
31: IF l_debug_on THEN
32: WSH_DEBUG_SV.push(l_module_name);
33: --
34: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
35: END IF;
36: --
37: select count(*) into l_count
38: from wsh_delivery_details
45: --
46: -- Debug Statements
47: --
48: IF l_debug_on THEN
49: WSH_DEBUG_SV.pop(l_module_name,'RETURN-TRUE');
50: END IF;
51: --
52: return TRUE;
53: else
51: --
52: return TRUE;
53: else
54: IF l_debug_on THEN
55: WSH_DEBUG_SV.pop(l_module_name,'RETURN-TRUE');
56: END IF;
57: return FALSE;
58: end if;
59: END part_of_ship_set;
113: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
114: --
115: IF l_debug_on IS NULL
116: THEN
117: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
118: END IF;
119: --
120: IF l_debug_on THEN
121: WSH_DEBUG_SV.push(l_module_name);
117: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
118: END IF;
119: --
120: IF l_debug_on THEN
121: WSH_DEBUG_SV.push(l_module_name);
122: --
123: WSH_DEBUG_SV.log(l_module_name,'P_SALES_ORDER_ID',P_SALES_ORDER_ID);
124: END IF;
125: --
119: --
120: IF l_debug_on THEN
121: WSH_DEBUG_SV.push(l_module_name);
122: --
123: WSH_DEBUG_SV.log(l_module_name,'P_SALES_ORDER_ID',P_SALES_ORDER_ID);
124: END IF;
125: --
126: open c_reservations ( p_sales_order_id );
127: loop
129: --
130: -- Debug Statements
131: --
132: IF l_debug_on THEN
133: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATIONS FOR SALES_ORDER_ID ' || TO_CHAR ( P_SALES_ORDER_ID ) );
134: WSH_DEBUG_SV.logmsg(l_module_name, '================================================' );
135: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERV_ID : ' || TO_CHAR ( L_RESERVATIONS.RESERV_ID ) );
136: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIP_READY : ' || L_RESERVATIONS.SHIP_READY );
137: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_HEADER_ID ) );
130: -- Debug Statements
131: --
132: IF l_debug_on THEN
133: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATIONS FOR SALES_ORDER_ID ' || TO_CHAR ( P_SALES_ORDER_ID ) );
134: WSH_DEBUG_SV.logmsg(l_module_name, '================================================' );
135: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERV_ID : ' || TO_CHAR ( L_RESERVATIONS.RESERV_ID ) );
136: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIP_READY : ' || L_RESERVATIONS.SHIP_READY );
137: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_HEADER_ID ) );
138: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_LINE_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_LINE_ID ) );
131: --
132: IF l_debug_on THEN
133: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATIONS FOR SALES_ORDER_ID ' || TO_CHAR ( P_SALES_ORDER_ID ) );
134: WSH_DEBUG_SV.logmsg(l_module_name, '================================================' );
135: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERV_ID : ' || TO_CHAR ( L_RESERVATIONS.RESERV_ID ) );
136: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIP_READY : ' || L_RESERVATIONS.SHIP_READY );
137: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_HEADER_ID ) );
138: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_LINE_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_LINE_ID ) );
139: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_DELIVERY: ' || TO_CHAR ( L_RESERVATIONS.DS_DELIVERY ) );
132: IF l_debug_on THEN
133: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATIONS FOR SALES_ORDER_ID ' || TO_CHAR ( P_SALES_ORDER_ID ) );
134: WSH_DEBUG_SV.logmsg(l_module_name, '================================================' );
135: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERV_ID : ' || TO_CHAR ( L_RESERVATIONS.RESERV_ID ) );
136: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIP_READY : ' || L_RESERVATIONS.SHIP_READY );
137: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_HEADER_ID ) );
138: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_LINE_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_LINE_ID ) );
139: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_DELIVERY: ' || TO_CHAR ( L_RESERVATIONS.DS_DELIVERY ) );
140: WSH_DEBUG_SV.logmsg(l_module_name, 'LINE : ' || L_RESERVATIONS.LINE );
133: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATIONS FOR SALES_ORDER_ID ' || TO_CHAR ( P_SALES_ORDER_ID ) );
134: WSH_DEBUG_SV.logmsg(l_module_name, '================================================' );
135: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERV_ID : ' || TO_CHAR ( L_RESERVATIONS.RESERV_ID ) );
136: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIP_READY : ' || L_RESERVATIONS.SHIP_READY );
137: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_HEADER_ID ) );
138: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_LINE_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_LINE_ID ) );
139: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_DELIVERY: ' || TO_CHAR ( L_RESERVATIONS.DS_DELIVERY ) );
140: WSH_DEBUG_SV.logmsg(l_module_name, 'LINE : ' || L_RESERVATIONS.LINE );
141: WSH_DEBUG_SV.logmsg(l_module_name, 'ITEM_ID : ' || TO_CHAR ( L_RESERVATIONS.ITEM_ID ) );
134: WSH_DEBUG_SV.logmsg(l_module_name, '================================================' );
135: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERV_ID : ' || TO_CHAR ( L_RESERVATIONS.RESERV_ID ) );
136: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIP_READY : ' || L_RESERVATIONS.SHIP_READY );
137: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_HEADER_ID ) );
138: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_LINE_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_LINE_ID ) );
139: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_DELIVERY: ' || TO_CHAR ( L_RESERVATIONS.DS_DELIVERY ) );
140: WSH_DEBUG_SV.logmsg(l_module_name, 'LINE : ' || L_RESERVATIONS.LINE );
141: WSH_DEBUG_SV.logmsg(l_module_name, 'ITEM_ID : ' || TO_CHAR ( L_RESERVATIONS.ITEM_ID ) );
142: WSH_DEBUG_SV.logmsg(l_module_name, 'RES_QTY : ' || TO_CHAR ( L_RESERVATIONS.RES_QTY ) );
135: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERV_ID : ' || TO_CHAR ( L_RESERVATIONS.RESERV_ID ) );
136: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIP_READY : ' || L_RESERVATIONS.SHIP_READY );
137: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_HEADER_ID ) );
138: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_LINE_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_LINE_ID ) );
139: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_DELIVERY: ' || TO_CHAR ( L_RESERVATIONS.DS_DELIVERY ) );
140: WSH_DEBUG_SV.logmsg(l_module_name, 'LINE : ' || L_RESERVATIONS.LINE );
141: WSH_DEBUG_SV.logmsg(l_module_name, 'ITEM_ID : ' || TO_CHAR ( L_RESERVATIONS.ITEM_ID ) );
142: WSH_DEBUG_SV.logmsg(l_module_name, 'RES_QTY : ' || TO_CHAR ( L_RESERVATIONS.RES_QTY ) );
143: WSH_DEBUG_SV.logmsg(l_module_name, 'DET_QTY : ' || TO_CHAR ( L_RESERVATIONS.DET_QTY ) );
136: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIP_READY : ' || L_RESERVATIONS.SHIP_READY );
137: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_HEADER_ID ) );
138: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_LINE_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_LINE_ID ) );
139: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_DELIVERY: ' || TO_CHAR ( L_RESERVATIONS.DS_DELIVERY ) );
140: WSH_DEBUG_SV.logmsg(l_module_name, 'LINE : ' || L_RESERVATIONS.LINE );
141: WSH_DEBUG_SV.logmsg(l_module_name, 'ITEM_ID : ' || TO_CHAR ( L_RESERVATIONS.ITEM_ID ) );
142: WSH_DEBUG_SV.logmsg(l_module_name, 'RES_QTY : ' || TO_CHAR ( L_RESERVATIONS.RES_QTY ) );
143: WSH_DEBUG_SV.logmsg(l_module_name, 'DET_QTY : ' || TO_CHAR ( L_RESERVATIONS.DET_QTY ) );
144: WSH_DEBUG_SV.logmsg(l_module_name, 'REQUIRD_D : ' || L_RESERVATIONS.REQUIRD_D );
137: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_HEADER_ID ) );
138: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_LINE_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_LINE_ID ) );
139: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_DELIVERY: ' || TO_CHAR ( L_RESERVATIONS.DS_DELIVERY ) );
140: WSH_DEBUG_SV.logmsg(l_module_name, 'LINE : ' || L_RESERVATIONS.LINE );
141: WSH_DEBUG_SV.logmsg(l_module_name, 'ITEM_ID : ' || TO_CHAR ( L_RESERVATIONS.ITEM_ID ) );
142: WSH_DEBUG_SV.logmsg(l_module_name, 'RES_QTY : ' || TO_CHAR ( L_RESERVATIONS.RES_QTY ) );
143: WSH_DEBUG_SV.logmsg(l_module_name, 'DET_QTY : ' || TO_CHAR ( L_RESERVATIONS.DET_QTY ) );
144: WSH_DEBUG_SV.logmsg(l_module_name, 'REQUIRD_D : ' || L_RESERVATIONS.REQUIRD_D );
145: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_TYPE : ' || TO_CHAR ( L_RESERVATIONS.DS_TYPE ) );
138: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_LINE_ID : ' || TO_CHAR ( L_RESERVATIONS.DS_LINE_ID ) );
139: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_DELIVERY: ' || TO_CHAR ( L_RESERVATIONS.DS_DELIVERY ) );
140: WSH_DEBUG_SV.logmsg(l_module_name, 'LINE : ' || L_RESERVATIONS.LINE );
141: WSH_DEBUG_SV.logmsg(l_module_name, 'ITEM_ID : ' || TO_CHAR ( L_RESERVATIONS.ITEM_ID ) );
142: WSH_DEBUG_SV.logmsg(l_module_name, 'RES_QTY : ' || TO_CHAR ( L_RESERVATIONS.RES_QTY ) );
143: WSH_DEBUG_SV.logmsg(l_module_name, 'DET_QTY : ' || TO_CHAR ( L_RESERVATIONS.DET_QTY ) );
144: WSH_DEBUG_SV.logmsg(l_module_name, 'REQUIRD_D : ' || L_RESERVATIONS.REQUIRD_D );
145: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_TYPE : ' || TO_CHAR ( L_RESERVATIONS.DS_TYPE ) );
146: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG_ID : ' || TO_CHAR ( L_RESERVATIONS.ORG_ID ) );
139: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_DELIVERY: ' || TO_CHAR ( L_RESERVATIONS.DS_DELIVERY ) );
140: WSH_DEBUG_SV.logmsg(l_module_name, 'LINE : ' || L_RESERVATIONS.LINE );
141: WSH_DEBUG_SV.logmsg(l_module_name, 'ITEM_ID : ' || TO_CHAR ( L_RESERVATIONS.ITEM_ID ) );
142: WSH_DEBUG_SV.logmsg(l_module_name, 'RES_QTY : ' || TO_CHAR ( L_RESERVATIONS.RES_QTY ) );
143: WSH_DEBUG_SV.logmsg(l_module_name, 'DET_QTY : ' || TO_CHAR ( L_RESERVATIONS.DET_QTY ) );
144: WSH_DEBUG_SV.logmsg(l_module_name, 'REQUIRD_D : ' || L_RESERVATIONS.REQUIRD_D );
145: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_TYPE : ' || TO_CHAR ( L_RESERVATIONS.DS_TYPE ) );
146: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG_ID : ' || TO_CHAR ( L_RESERVATIONS.ORG_ID ) );
147: WSH_DEBUG_SV.logmsg(l_module_name, 'SUBINV : ' || L_RESERVATIONS.SUBINV );
140: WSH_DEBUG_SV.logmsg(l_module_name, 'LINE : ' || L_RESERVATIONS.LINE );
141: WSH_DEBUG_SV.logmsg(l_module_name, 'ITEM_ID : ' || TO_CHAR ( L_RESERVATIONS.ITEM_ID ) );
142: WSH_DEBUG_SV.logmsg(l_module_name, 'RES_QTY : ' || TO_CHAR ( L_RESERVATIONS.RES_QTY ) );
143: WSH_DEBUG_SV.logmsg(l_module_name, 'DET_QTY : ' || TO_CHAR ( L_RESERVATIONS.DET_QTY ) );
144: WSH_DEBUG_SV.logmsg(l_module_name, 'REQUIRD_D : ' || L_RESERVATIONS.REQUIRD_D );
145: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_TYPE : ' || TO_CHAR ( L_RESERVATIONS.DS_TYPE ) );
146: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG_ID : ' || TO_CHAR ( L_RESERVATIONS.ORG_ID ) );
147: WSH_DEBUG_SV.logmsg(l_module_name, 'SUBINV : ' || L_RESERVATIONS.SUBINV );
148: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.SS_HEADER_ID ) );
141: WSH_DEBUG_SV.logmsg(l_module_name, 'ITEM_ID : ' || TO_CHAR ( L_RESERVATIONS.ITEM_ID ) );
142: WSH_DEBUG_SV.logmsg(l_module_name, 'RES_QTY : ' || TO_CHAR ( L_RESERVATIONS.RES_QTY ) );
143: WSH_DEBUG_SV.logmsg(l_module_name, 'DET_QTY : ' || TO_CHAR ( L_RESERVATIONS.DET_QTY ) );
144: WSH_DEBUG_SV.logmsg(l_module_name, 'REQUIRD_D : ' || L_RESERVATIONS.REQUIRD_D );
145: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_TYPE : ' || TO_CHAR ( L_RESERVATIONS.DS_TYPE ) );
146: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG_ID : ' || TO_CHAR ( L_RESERVATIONS.ORG_ID ) );
147: WSH_DEBUG_SV.logmsg(l_module_name, 'SUBINV : ' || L_RESERVATIONS.SUBINV );
148: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.SS_HEADER_ID ) );
149: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE_DET- ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE_DET ) );
142: WSH_DEBUG_SV.logmsg(l_module_name, 'RES_QTY : ' || TO_CHAR ( L_RESERVATIONS.RES_QTY ) );
143: WSH_DEBUG_SV.logmsg(l_module_name, 'DET_QTY : ' || TO_CHAR ( L_RESERVATIONS.DET_QTY ) );
144: WSH_DEBUG_SV.logmsg(l_module_name, 'REQUIRD_D : ' || L_RESERVATIONS.REQUIRD_D );
145: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_TYPE : ' || TO_CHAR ( L_RESERVATIONS.DS_TYPE ) );
146: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG_ID : ' || TO_CHAR ( L_RESERVATIONS.ORG_ID ) );
147: WSH_DEBUG_SV.logmsg(l_module_name, 'SUBINV : ' || L_RESERVATIONS.SUBINV );
148: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.SS_HEADER_ID ) );
149: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE_DET- ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE_DET ) );
150: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE : ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE ) );
143: WSH_DEBUG_SV.logmsg(l_module_name, 'DET_QTY : ' || TO_CHAR ( L_RESERVATIONS.DET_QTY ) );
144: WSH_DEBUG_SV.logmsg(l_module_name, 'REQUIRD_D : ' || L_RESERVATIONS.REQUIRD_D );
145: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_TYPE : ' || TO_CHAR ( L_RESERVATIONS.DS_TYPE ) );
146: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG_ID : ' || TO_CHAR ( L_RESERVATIONS.ORG_ID ) );
147: WSH_DEBUG_SV.logmsg(l_module_name, 'SUBINV : ' || L_RESERVATIONS.SUBINV );
148: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.SS_HEADER_ID ) );
149: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE_DET- ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE_DET ) );
150: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE : ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE ) );
151: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODET_GRP_ID : ' || TO_CHAR ( L_RESERVATIONS.AUTODET_GRP_ID ) );
144: WSH_DEBUG_SV.logmsg(l_module_name, 'REQUIRD_D : ' || L_RESERVATIONS.REQUIRD_D );
145: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_TYPE : ' || TO_CHAR ( L_RESERVATIONS.DS_TYPE ) );
146: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG_ID : ' || TO_CHAR ( L_RESERVATIONS.ORG_ID ) );
147: WSH_DEBUG_SV.logmsg(l_module_name, 'SUBINV : ' || L_RESERVATIONS.SUBINV );
148: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.SS_HEADER_ID ) );
149: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE_DET- ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE_DET ) );
150: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE : ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE ) );
151: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODET_GRP_ID : ' || TO_CHAR ( L_RESERVATIONS.AUTODET_GRP_ID ) );
152: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODET : ' || TO_CHAR ( L_RESERVATIONS.AUTODET ) );
145: WSH_DEBUG_SV.logmsg(l_module_name, 'DS_TYPE : ' || TO_CHAR ( L_RESERVATIONS.DS_TYPE ) );
146: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG_ID : ' || TO_CHAR ( L_RESERVATIONS.ORG_ID ) );
147: WSH_DEBUG_SV.logmsg(l_module_name, 'SUBINV : ' || L_RESERVATIONS.SUBINV );
148: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.SS_HEADER_ID ) );
149: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE_DET- ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE_DET ) );
150: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE : ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE ) );
151: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODET_GRP_ID : ' || TO_CHAR ( L_RESERVATIONS.AUTODET_GRP_ID ) );
152: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODET : ' || TO_CHAR ( L_RESERVATIONS.AUTODET ) );
153: END IF;
146: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG_ID : ' || TO_CHAR ( L_RESERVATIONS.ORG_ID ) );
147: WSH_DEBUG_SV.logmsg(l_module_name, 'SUBINV : ' || L_RESERVATIONS.SUBINV );
148: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.SS_HEADER_ID ) );
149: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE_DET- ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE_DET ) );
150: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE : ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE ) );
151: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODET_GRP_ID : ' || TO_CHAR ( L_RESERVATIONS.AUTODET_GRP_ID ) );
152: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODET : ' || TO_CHAR ( L_RESERVATIONS.AUTODET ) );
153: END IF;
154:
147: WSH_DEBUG_SV.logmsg(l_module_name, 'SUBINV : ' || L_RESERVATIONS.SUBINV );
148: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.SS_HEADER_ID ) );
149: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE_DET- ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE_DET ) );
150: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE : ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE ) );
151: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODET_GRP_ID : ' || TO_CHAR ( L_RESERVATIONS.AUTODET_GRP_ID ) );
152: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODET : ' || TO_CHAR ( L_RESERVATIONS.AUTODET ) );
153: END IF;
154:
155: EXIT WHEN c_reservations%NOTFOUND;
148: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_HEADER_ID : ' || TO_CHAR ( L_RESERVATIONS.SS_HEADER_ID ) );
149: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE_DET- ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE_DET ) );
150: WSH_DEBUG_SV.logmsg(l_module_name, 'SS_SOURCE_LINE : ' || TO_CHAR ( L_RESERVATIONS.SS_SOURCE_LINE ) );
151: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODET_GRP_ID : ' || TO_CHAR ( L_RESERVATIONS.AUTODET_GRP_ID ) );
152: WSH_DEBUG_SV.logmsg(l_module_name, 'AUTODET : ' || TO_CHAR ( L_RESERVATIONS.AUTODET ) );
153: END IF;
154:
155: EXIT WHEN c_reservations%NOTFOUND;
156: end loop ;
157: --
158: -- Debug Statements
159: --
160: IF l_debug_on THEN
161: WSH_DEBUG_SV.pop(l_module_name);
162: END IF;
163: --
164: end print_reservations ;
165:
219: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
220: --
221: IF l_debug_on IS NULL
222: THEN
223: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
224: END IF;
225: --
226: IF l_debug_on THEN
227: WSH_DEBUG_SV.push(l_module_name);
223: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
224: END IF;
225: --
226: IF l_debug_on THEN
227: WSH_DEBUG_SV.push(l_module_name);
228: --
229: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
230: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
231: END IF;
225: --
226: IF l_debug_on THEN
227: WSH_DEBUG_SV.push(l_module_name);
228: --
229: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
230: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
231: END IF;
232: --
233: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
226: IF l_debug_on THEN
227: WSH_DEBUG_SV.push(l_module_name);
228: --
229: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
230: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
231: END IF;
232: --
233: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
234: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
255: --
256: -- Debug Statements
257: --
258: IF l_debug_on THEN
259: WSH_DEBUG_SV.pop(l_module_name);
260: END IF;
261: --
262: EXCEPTION
263: when NOT_ASSIGNED_TO_DEL_ERROR then
267: --
268: -- Debug Statements
269: --
270: IF l_debug_on THEN
271: WSH_DEBUG_SV.logmsg(l_module_name,'NOT_ASSIGNED_TO_DEL_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
272: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NOT_ASSIGNED_TO_DEL_ERROR');
273: END IF;
274: --
275: when others then
268: -- Debug Statements
269: --
270: IF l_debug_on THEN
271: WSH_DEBUG_SV.logmsg(l_module_name,'NOT_ASSIGNED_TO_DEL_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
272: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NOT_ASSIGNED_TO_DEL_ERROR');
273: END IF;
274: --
275: when others then
276: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
281: --
282: -- Debug Statements
283: --
284: IF l_debug_on THEN
285: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
286: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
287: END IF;
288: --
289: END Get_Line_Total_Shp_Qty;
282: -- Debug Statements
283: --
284: IF l_debug_on THEN
285: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
286: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
287: END IF;
288: --
289: END Get_Line_Total_Shp_Qty;
290:
553: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
554: --
555: IF l_debug_on IS NULL
556: THEN
557: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
558: END IF;
559: --
560: -- Standalone project Changes Start
561: l_standalone_mode := WMS_DEPLOY.wms_deployment_mode;
560: -- Standalone project Changes Start
561: l_standalone_mode := WMS_DEPLOY.wms_deployment_mode;
562: -- Standalone project Changes End
563: IF l_debug_on THEN
564: WSH_DEBUG_SV.push(l_module_name);
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
567: WSH_DEBUG_SV.log(l_module_name,'P_BO_SOURCE',P_BO_SOURCE);
568: WSH_DEBUG_SV.log(l_module_name,'l_standalone_mode',l_standalone_mode);
562: -- Standalone project Changes End
563: IF l_debug_on THEN
564: WSH_DEBUG_SV.push(l_module_name);
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
567: WSH_DEBUG_SV.log(l_module_name,'P_BO_SOURCE',P_BO_SOURCE);
568: WSH_DEBUG_SV.log(l_module_name,'l_standalone_mode',l_standalone_mode);
569: END IF;
570: --
563: IF l_debug_on THEN
564: WSH_DEBUG_SV.push(l_module_name);
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
567: WSH_DEBUG_SV.log(l_module_name,'P_BO_SOURCE',P_BO_SOURCE);
568: WSH_DEBUG_SV.log(l_module_name,'l_standalone_mode',l_standalone_mode);
569: END IF;
570: --
571: SAVEPOINT before_backorder;
564: WSH_DEBUG_SV.push(l_module_name);
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
567: WSH_DEBUG_SV.log(l_module_name,'P_BO_SOURCE',P_BO_SOURCE);
568: WSH_DEBUG_SV.log(l_module_name,'l_standalone_mode',l_standalone_mode);
569: END IF;
570: --
571: SAVEPOINT before_backorder;
572:
590: --
591: -- Debug Statements
592: --
593: IF l_debug_on THEN
594: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
595: END IF;
596: --
597: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_param_rec, l_return_status);
598: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
601: RAISE backorder_error;
602: END IF;
603:
604: IF l_debug_on THEN
605: WSH_DEBUG_SV.logmsg(l_module_name,'Back Order Consolidation Flag is set as '||l_global_param_rec.consolidate_bo_lines, WSH_DEBUG_SV.C_PROC_LEVEL);
606: END IF;
607:
608: IF (l_global_param_rec.consolidate_bo_lines = 'Y' AND p_line_ids.COUNT > 1 ) THEN
609: --{
628: ELSE
629: l_dd_rec_tab(l_dd_rec_tab.count).fulfillment_base := 'P';
630: END IF;
631: IF l_debug_on THEN
632: WSH_DEBUG_SV.logmsg(l_module_name,'** Delivery Detail Id '||p_detail_ids(i)||' Fulfillment Base '||l_dd_rec_tab(l_dd_rec_tab.count).fulfillment_base);
633: END IF;
634: -- end of 3121616
635: END LOOP; --}
636: --
636: --
637: -- Debug Statements
638: --
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details',WSH_DEBUG_SV.C_PROC_LEVEL);
641: END IF;
642: --
643: -- HW OPM BUG#:3121616 Added x_remain_bo_qty2s
644: WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details(
676: l_bo_qty2s(i) := l_cons_dd_rec_tab(i).bo_qty2;
677: -- muom
678: l_fulfillment_base(i) := l_cons_dd_rec_tab(i).fulfillment_base;
679: IF l_debug_on THEN
680: WSH_DEBUG_SV.logmsg(l_module_name,'-- Delivery Detail Id '||l_detail_ids(i)||' Fulfillment Base '||l_fulfillment_base(i));
681: END IF;
682: -- end of 3121616
683: END LOOP; --}
684: IF l_debug_on THEN
681: END IF;
682: -- end of 3121616
683: END LOOP; --}
684: IF l_debug_on THEN
685: WSH_DEBUG_SV.logmsg(l_module_name,'Total No. of delivery details '||p_detail_ids.COUNT,WSH_DEBUG_SV.C_PROC_LEVEL);
686: WSH_DEBUG_SV.logmsg(l_module_name,'No. of delivery details after Consolidation '||l_detail_ids.COUNT,WSH_DEBUG_SV.C_PROC_LEVEL);
687: END IF;
688: END IF; --}, l_global_param_rec.consolidate_bo_lines flag
689: --
682: -- end of 3121616
683: END LOOP; --}
684: IF l_debug_on THEN
685: WSH_DEBUG_SV.logmsg(l_module_name,'Total No. of delivery details '||p_detail_ids.COUNT,WSH_DEBUG_SV.C_PROC_LEVEL);
686: WSH_DEBUG_SV.logmsg(l_module_name,'No. of delivery details after Consolidation '||l_detail_ids.COUNT,WSH_DEBUG_SV.C_PROC_LEVEL);
687: END IF;
688: END IF; --}, l_global_param_rec.consolidate_bo_lines flag
689: --
690:
693: FOR i IN 1 .. l_detail_ids.COUNT
694: LOOP --{ loop thru' for each delivery detail id in l_detail_ids
695: -- muom
696: IF l_debug_on THEN
697: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Detail '||l_detail_ids(i));
698: WSH_DEBUG_SV.logmsg(l_module_name,'l_req_qtys(i) '||l_req_qtys(i)||' l_bo_qtys(i) '||l_bo_qtys(i)||' l_overpick_qtys(i) '||l_overpick_qtys(i));
699: WSH_DEBUG_SV.logmsg(l_module_name,'l_req_qty2s(i) '||l_req_qty2s(i)||' l_bo_qty2s(i) '||l_bo_qty2s(i)||' l_overpick_qty2s(i) '||l_overpick_qty2s(i));
700: END IF;
701: /* Bug 2399729, default l_backorder_all to 'N' */
694: LOOP --{ loop thru' for each delivery detail id in l_detail_ids
695: -- muom
696: IF l_debug_on THEN
697: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Detail '||l_detail_ids(i));
698: WSH_DEBUG_SV.logmsg(l_module_name,'l_req_qtys(i) '||l_req_qtys(i)||' l_bo_qtys(i) '||l_bo_qtys(i)||' l_overpick_qtys(i) '||l_overpick_qtys(i));
699: WSH_DEBUG_SV.logmsg(l_module_name,'l_req_qty2s(i) '||l_req_qty2s(i)||' l_bo_qty2s(i) '||l_bo_qty2s(i)||' l_overpick_qty2s(i) '||l_overpick_qty2s(i));
700: END IF;
701: /* Bug 2399729, default l_backorder_all to 'N' */
702: l_backorder_all := 'N';
695: -- muom
696: IF l_debug_on THEN
697: WSH_DEBUG_SV.logmsg(l_module_name,'Processing Detail '||l_detail_ids(i));
698: WSH_DEBUG_SV.logmsg(l_module_name,'l_req_qtys(i) '||l_req_qtys(i)||' l_bo_qtys(i) '||l_bo_qtys(i)||' l_overpick_qtys(i) '||l_overpick_qtys(i));
699: WSH_DEBUG_SV.logmsg(l_module_name,'l_req_qty2s(i) '||l_req_qty2s(i)||' l_bo_qty2s(i) '||l_bo_qty2s(i)||' l_overpick_qty2s(i) '||l_overpick_qty2s(i));
700: END IF;
701: /* Bug 2399729, default l_backorder_all to 'N' */
702: l_backorder_all := 'N';
703: -- 1. See if the detail is assigned to a delivery .
728: --
729: -- Debug Statements
730: --
731: IF l_debug_on THEN
732: WSH_DEBUG_SV.logmsg(l_module_name, 'l_delivery_id: '||l_delivery_id||' ,l_planned_flag: '||l_planned_flag);
733: WSH_DEBUG_SV.logmsg(l_module_name, 'IN BACKORDER ' || I );
734: END IF;
735: --
736:
729: -- Debug Statements
730: --
731: IF l_debug_on THEN
732: WSH_DEBUG_SV.logmsg(l_module_name, 'l_delivery_id: '||l_delivery_id||' ,l_planned_flag: '||l_planned_flag);
733: WSH_DEBUG_SV.logmsg(l_module_name, 'IN BACKORDER ' || I );
734: END IF;
735: --
736:
737: -- muom: l_fulfillment_base will not be populated if the details are not consolidated
738: IF (NOT l_fulfillment_base.exists(i)) THEN
739: l_fulfillment_base(i) := WSH_UTIL_CORE.Get_Line_Fulfillment_Base(l_source_code, l_source_line_id);
740: END IF;
741: IF l_debug_on THEN
742: WSH_DEBUG_SV.logmsg(l_module_name,'Fulfillment Base is '||l_fulfillment_base(i));
743: END IF;
744:
745:
746: -- bug 1672188: check there is a quantity (normal or overpicked) to backorder.
754: --
755: -- Debug Statements
756: --
757: IF l_debug_on THEN
758: WSH_DEBUG_SV.logmsg(l_module_name, 'CHECKING IF ' || l_bo_qtys ( I ) || ' < ' || l_req_qtys ( I ) );
759: -- muom
760: WSH_DEBUG_SV.logmsg(l_module_name, 'CHECKING IF ' || l_bo_qty2s ( I ) || ' < ' || l_req_qty2s ( I ) );
761: END IF;
762: --
756: --
757: IF l_debug_on THEN
758: WSH_DEBUG_SV.logmsg(l_module_name, 'CHECKING IF ' || l_bo_qtys ( I ) || ' < ' || l_req_qtys ( I ) );
759: -- muom
760: WSH_DEBUG_SV.logmsg(l_module_name, 'CHECKING IF ' || l_bo_qty2s ( I ) || ' < ' || l_req_qty2s ( I ) );
761: END IF;
762: --
763: -- muom
764: IF (l_fulfillment_base(i) = 'P' and (l_bo_qtys(i) > 0) AND (l_bo_qtys(i) < l_req_qtys(i))) OR
771: --
772: -- Debug Statements
773: --
774: IF l_debug_on THEN
775: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
776: END IF;
777: --
778: wsh_delivery_details_actions.split_delivery_details(
779: p_from_detail_id => l_detail_ids(i),
782: x_return_status => l_return_status ,
783: p_req_quantity2 => l_bo_qty2);
784:
785: IF l_debug_on THEN
786: WSH_DEBUG_SV.log(l_module_name,'SPLIT_DELIVERY_DETAILS l_return_status',l_return_status);
787: END IF;
788:
789: /* Bug 2308509 */
790: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
850: l_item_info.lot_control_code := NULL;
851: END IF;
852:
853: IF l_debug_on THEN
854: wsh_debug_sv.LOG(l_module_name, 'l_item_info.lot_divisible_flag', l_item_info.lot_divisible_flag);
855: wsh_debug_sv.LOG(l_module_name, 'l_item_info.lot_control_code', l_item_info.lot_control_code);
856: wsh_debug_sv.LOG(l_module_name, 'l_detail_rec.released_status', l_detail_rec.released_status);
857: END IF;
858: -- check for overpicking
851: END IF;
852:
853: IF l_debug_on THEN
854: wsh_debug_sv.LOG(l_module_name, 'l_item_info.lot_divisible_flag', l_item_info.lot_divisible_flag);
855: wsh_debug_sv.LOG(l_module_name, 'l_item_info.lot_control_code', l_item_info.lot_control_code);
856: wsh_debug_sv.LOG(l_module_name, 'l_detail_rec.released_status', l_detail_rec.released_status);
857: END IF;
858: -- check for overpicking
859: -- muom
852:
853: IF l_debug_on THEN
854: wsh_debug_sv.LOG(l_module_name, 'l_item_info.lot_divisible_flag', l_item_info.lot_divisible_flag);
855: wsh_debug_sv.LOG(l_module_name, 'l_item_info.lot_control_code', l_item_info.lot_control_code);
856: wsh_debug_sv.LOG(l_module_name, 'l_detail_rec.released_status', l_detail_rec.released_status);
857: END IF;
858: -- check for overpicking
859: -- muom
860: IF (l_fulfillment_base(i) = 'P' and l_overpick_qtys(i) > 0) OR
871: IF (l_item_info.lot_divisible_flag = 'N' AND
872: l_item_info.lot_control_code = 2 ) THEN
873: -- muom
874: IF l_debug_on THEN
875: WSH_DEBUG_SV.logmsg(l_module_name, ' *** Item is Lot Indivisible');
876: END IF;
877: IF (l_fulfillment_base(i) = 'P' and l_req_qtys(i) = 0) OR (l_fulfillment_base(i) = 'S' and l_req_qty2s(i) = 0) THEN
878: -- If detail has 0 requested qty (or secondary qty when fulfillment base is secondary), Then
879: -- the following variables need to be set to 0 for the detail to get deleted
914: END IF;
915: END IF;
916: --
917: IF l_debug_on THEN
918: WSH_DEBUG_SV.logmsg(l_module_name, ' *** l_new_picked_quantity '||l_new_picked_quantity||' l_new_picked_quantity2 '||l_new_picked_quantity2);
919: END IF;
920:
921: -- bug 2730685: if a purely overpicked but completely unshipped line is packed,
922: -- it needs to be unpacked so that it can be deleted,
936: --
937: -- Debug Statements
938: --
939: IF l_debug_on THEN
940: WSH_DEBUG_SV.logmsg(l_module_name, ' NEW DD TO UNASSIGN -' || L_BO_DETAIL_ID || ' TO L_UNASSIGN_DDS' );
941: END IF;
942: --
943: l_unassign_dd_flag := 'Y'; --deferred to the end.
944: l_unassign_dds(l_unassign_dds.count + 1 ) := l_bo_detail_id ;
962: /* End of Code added for Bug 2096052*/
963:
964: -- muom
965: IF l_debug_on THEN
966: WSH_DEBUG_SV.logmsg(l_module_name, ' *** l_detail_rec.picked_quantity '||l_detail_rec.picked_quantity||' l_detail_rec.picked_quantity2 '||l_detail_rec.picked_quantity2);
967: END IF;
968: IF ((l_detail_ids(i) = l_bo_detail_id) AND
969: ((l_fulfillment_base(i) = 'P' and l_req_qtys(i) = 0 AND l_detail_rec.picked_quantity = 0) OR -- Bug 2026260
970: (l_fulfillment_base(i) = 'S' and l_req_qty2s(i) = 0 AND l_detail_rec.picked_quantity2 = 0))) THEN
982: p_organization_id => l_detail_rec.organization_id,
983: p_inventory_item_id => l_detail_rec.inventory_item_id,
984: x_return_status => l_return_status);
985: IF l_debug_on THEN
986: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
987: END IF;
988:
989: /* Bug 2308509 */
990: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1003: --
1004: -- Debug Statements
1005: --
1006: IF l_debug_on THEN
1007: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED FLAG = ' || L_RESERVED_FLAG );
1008: END IF;
1009: --
1010: -- wsh_util_core.println('BO Mode = ' || p_bo_mode );
1011: -- HW BUG#:2005977
1018: --
1019: -- Debug Statements
1020: --
1021: IF l_debug_on THEN
1022: WSH_DEBUG_SV.logmsg(l_module_name, 'UNRESERVE ' );
1023: END IF;
1024: --
1025:
1026: IF l_debug_on THEN
1024: --
1025:
1026: IF l_debug_on THEN
1027: -- muom
1028: WSH_DEBUG_SV.logmsg(l_module_name,'OverPick Qty '||l_overpick_qtys(i)|| ' OverPick Qty2 '||l_overpick_qty2s(i));
1029: END IF;
1030:
1031:
1032:
1050: -- will no longer match if the details are consolidated
1051: l_qty2 := l_bo_qty2s(i) + NVL(l_overpick_qty2s(i), 0);
1052:
1053: IF l_debug_on THEN
1054: WSH_DEBUG_SV.LOG(l_module_name, 'item is lot indivisible: l_bo_mode', l_bo_mode);
1055: WSH_DEBUG_SV.LOG(l_module_name, 'l_qty', l_qty);
1056: WSH_DEBUG_SV.LOG(l_module_name, 'l_qty2', l_qty2);
1057: END IF;
1058: --Bug 5525314,If the item is lot indivisible and backorder Qty =0,
1051: l_qty2 := l_bo_qty2s(i) + NVL(l_overpick_qty2s(i), 0);
1052:
1053: IF l_debug_on THEN
1054: WSH_DEBUG_SV.LOG(l_module_name, 'item is lot indivisible: l_bo_mode', l_bo_mode);
1055: WSH_DEBUG_SV.LOG(l_module_name, 'l_qty', l_qty);
1056: WSH_DEBUG_SV.LOG(l_module_name, 'l_qty2', l_qty2);
1057: END IF;
1058: --Bug 5525314,If the item is lot indivisible and backorder Qty =0,
1059: --then over pick Qty should not be unreserved
1052:
1053: IF l_debug_on THEN
1054: WSH_DEBUG_SV.LOG(l_module_name, 'item is lot indivisible: l_bo_mode', l_bo_mode);
1055: WSH_DEBUG_SV.LOG(l_module_name, 'l_qty', l_qty);
1056: WSH_DEBUG_SV.LOG(l_module_name, 'l_qty2', l_qty2);
1057: END IF;
1058: --Bug 5525314,If the item is lot indivisible and backorder Qty =0,
1059: --then over pick Qty should not be unreserved
1060: -- muom
1069: p_override_retain_ato_rsv => 'Y',
1070: x_return_status => l_return_status );
1071:
1072: IF l_debug_on THEN
1073: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1074: END IF;
1075:
1076: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1077: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1099: -- Bug 2824748: Call unreserve_delivery_detail with p_override_retain_ato_rsv 'Y' so that the
1100: -- reservations for unused overpick qty are always removed
1101: IF (l_fulfillment_base(i) = 'P' and l_overpick_qtys(i) > 0) OR (l_fulfillment_base(i) = 'S' and l_overpick_qty2s(i) > 0) THEN
1102: IF l_debug_on THEN
1103: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL FOR OVERPICK QTY',WSH_DEBUG_SV.C_PROC_LEVEL);
1104: END IF;
1105: --
1106: -- HW OPMCONV - Added Qty2
1107:
1136: x_return_status => l_return_status );
1137: END IF;
1138:
1139: IF l_debug_on THEN
1140: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1141: END IF;
1142: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1143: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1144: fnd_message.set_name('WSH', 'WSH_BO_UNRESERVE_ERROR');
1159: END IF; -- l_overpick_qtys(i) > 0
1160:
1161: IF l_debug_on THEN
1162: -- muom
1163: WSH_DEBUG_SV.logmsg(l_module_name,'BackOrder Qty '||l_bo_qtys(i)||' BackOrder Qty2 '||l_bo_qty2s(i));
1164: END IF;
1165:
1166: -- Bug 2824748: Call unreserve_delivery_detail with p_override_retain_ato_rsv 'N' so that the
1167: -- reservations for backorder qty are removed depending on the ATO profile option
1167: -- reservations for backorder qty are removed depending on the ATO profile option
1168: -- muom
1169: IF (l_fulfillment_base(i) = 'P' and l_bo_qtys(i) > 0) OR (l_fulfillment_base(i) = 'S' and l_bo_qty2s(i) > 0) THEN
1170: IF l_debug_on THEN
1171: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL FOR BO QTY',WSH_DEBUG_SV.C_PROC_LEVEL);
1172: END IF;
1173: if (l_fulfillment_base(i) = 'S' and l_overpick_qty2s(i) <=0 and l_overpick_qtys(i)>0 ) then
1174:
1175: wsh_delivery_details_actions.unreserve_delivery_detail(
1188: p_override_retain_ato_rsv => 'N',
1189: x_return_status => l_return_status );
1190: end if;
1191: IF l_debug_on THEN
1192: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1193: END IF;
1194: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1195: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1196: fnd_message.set_name('WSH', 'WSH_BO_UNRESERVE_ERROR');
1219: --
1220: -- Debug Statements
1221: --
1222: IF l_debug_on THEN
1223: WSH_DEBUG_SV.logmsg(l_module_name, 'NOT RESERVED ' );
1224: END IF;
1225: --
1226: END IF; -- l_reserved_flag = Y'
1227:
1235: --
1236: -- Debug Statements
1237: --
1238: IF l_debug_on THEN
1239: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.FETCH_INV_CONTROLS',WSH_DEBUG_SV.C_PROC_LEVEL);
1240: END IF;
1241: --
1242: WSH_DELIVERY_DETAILS_INV.Fetch_Inv_Controls(
1243: p_delivery_detail_id => l_detail_rec.delivery_detail_id,
1247: x_inv_controls_rec => l_inv_controls_rec,
1248: x_return_status => l_return_status);
1249:
1250: IF l_debug_on THEN
1251: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1252: END IF;
1253: /* Bug 2308509 */
1254: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1255: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1263: --
1264: -- Debug Statements
1265: --
1266: IF l_debug_on THEN
1267: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.UNMARK_SERIAL_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
1268: END IF;
1269: --
1270: WSH_DELIVERY_DETAILS_INV.Unmark_Serial_Number(
1271: p_delivery_detail_id => l_detail_rec.delivery_detail_id,
1274: p_transaction_temp_id => l_detail_rec.transaction_temp_id,
1275: x_return_status => l_return_status);
1276: /* Bug 2308509 */
1277: IF l_debug_on THEN
1278: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1279: END IF;
1280: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1281: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1282: wsh_util_core.add_message(l_return_status,l_module_name);
1298: --
1299: -- Debug Statements
1300: --
1301: IF l_debug_on THEN
1302: WSH_DEBUG_SV.logmsg(l_module_name, 'BACKORDER ...' );
1303: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1304: -- 2807093
1305: WSH_DEBUG_SV.log(l_module_name,'Released Status: ', l_detail_rec.released_status);
1306: END IF;
1299: -- Debug Statements
1300: --
1301: IF l_debug_on THEN
1302: WSH_DEBUG_SV.logmsg(l_module_name, 'BACKORDER ...' );
1303: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1304: -- 2807093
1305: WSH_DEBUG_SV.log(l_module_name,'Released Status: ', l_detail_rec.released_status);
1306: END IF;
1307: -- bug 1733849: clear TRACKING_NUMBER when not shipped
1301: IF l_debug_on THEN
1302: WSH_DEBUG_SV.logmsg(l_module_name, 'BACKORDER ...' );
1303: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1304: -- 2807093
1305: WSH_DEBUG_SV.log(l_module_name,'Released Status: ', l_detail_rec.released_status);
1306: END IF;
1307: -- bug 1733849: clear TRACKING_NUMBER when not shipped
1308: -- HW BUG#:1885927 Need to clear lot_number,sublot_number,locator_id,
1309: -- preferred_grade and subinventory if the line is backordered
1403: p_organization_id => l_detail_rec.organization_id,
1404: x_return_status => l_wf_rs ) ;
1405: --Error Handling to be done in WSH_WF_STD.Raise_Event itself
1406: IF l_debug_on THEN
1407: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1408: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ', l_detail_rec.delivery_detail_id );
1409: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1410: END IF;
1411: --Even if raising of event fails the flow continues.
1404: x_return_status => l_wf_rs ) ;
1405: --Error Handling to be done in WSH_WF_STD.Raise_Event itself
1406: IF l_debug_on THEN
1407: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1408: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ', l_detail_rec.delivery_detail_id );
1409: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1410: END IF;
1411: --Even if raising of event fails the flow continues.
1412: --IF (l_wf_rs <>WSH_UTIL_CORE.G_RET_STS_SUCCESS ) then
1405: --Error Handling to be done in WSH_WF_STD.Raise_Event itself
1406: IF l_debug_on THEN
1407: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
1408: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ', l_detail_rec.delivery_detail_id );
1409: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1410: END IF;
1411: --Even if raising of event fails the flow continues.
1412: --IF (l_wf_rs <>WSH_UTIL_CORE.G_RET_STS_SUCCESS ) then
1413: --No Action
1418:
1419: -- Consolidation of BO Delivery Details project
1420: IF (l_global_param_rec.consolidate_bo_lines = 'Y' AND p_line_ids.COUNT > 1) THEN
1421: IF l_debug_on THEN
1422: WSH_DEBUG_SV.logmsg(l_module_name,'Adding the Consolidated BO Qty to the Requested Qty of the BO delivery detail ',WSH_DEBUG_SV.C_PROC_LEVEL);
1423: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail id: '||l_detail_rec.delivery_detail_id, WSH_DEBUG_SV.C_PROC_LEVEL);
1424: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail req qty: '||l_bo_qtys(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1425: -- muom
1426: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail req qty2: '||l_bo_qty2s(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1419: -- Consolidation of BO Delivery Details project
1420: IF (l_global_param_rec.consolidate_bo_lines = 'Y' AND p_line_ids.COUNT > 1) THEN
1421: IF l_debug_on THEN
1422: WSH_DEBUG_SV.logmsg(l_module_name,'Adding the Consolidated BO Qty to the Requested Qty of the BO delivery detail ',WSH_DEBUG_SV.C_PROC_LEVEL);
1423: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail id: '||l_detail_rec.delivery_detail_id, WSH_DEBUG_SV.C_PROC_LEVEL);
1424: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail req qty: '||l_bo_qtys(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1425: -- muom
1426: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail req qty2: '||l_bo_qty2s(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1427: WSH_DEBUG_SV.logmsg(l_module_name,'..Consolidate BO quantity '||l_remain_bo_qtys(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1420: IF (l_global_param_rec.consolidate_bo_lines = 'Y' AND p_line_ids.COUNT > 1) THEN
1421: IF l_debug_on THEN
1422: WSH_DEBUG_SV.logmsg(l_module_name,'Adding the Consolidated BO Qty to the Requested Qty of the BO delivery detail ',WSH_DEBUG_SV.C_PROC_LEVEL);
1423: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail id: '||l_detail_rec.delivery_detail_id, WSH_DEBUG_SV.C_PROC_LEVEL);
1424: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail req qty: '||l_bo_qtys(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1425: -- muom
1426: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail req qty2: '||l_bo_qty2s(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1427: WSH_DEBUG_SV.logmsg(l_module_name,'..Consolidate BO quantity '||l_remain_bo_qtys(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1428: -- HW OPM BUG#:3121616 added qty2s
1422: WSH_DEBUG_SV.logmsg(l_module_name,'Adding the Consolidated BO Qty to the Requested Qty of the BO delivery detail ',WSH_DEBUG_SV.C_PROC_LEVEL);
1423: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail id: '||l_detail_rec.delivery_detail_id, WSH_DEBUG_SV.C_PROC_LEVEL);
1424: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail req qty: '||l_bo_qtys(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1425: -- muom
1426: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail req qty2: '||l_bo_qty2s(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1427: WSH_DEBUG_SV.logmsg(l_module_name,'..Consolidate BO quantity '||l_remain_bo_qtys(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1428: -- HW OPM BUG#:3121616 added qty2s
1429: WSH_DEBUG_SV.logmsg(l_module_name,'..Consolidate BO quantity2 '||l_remain_bo_qty2s(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1430: END IF;
1423: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail id: '||l_detail_rec.delivery_detail_id, WSH_DEBUG_SV.C_PROC_LEVEL);
1424: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail req qty: '||l_bo_qtys(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1425: -- muom
1426: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail req qty2: '||l_bo_qty2s(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1427: WSH_DEBUG_SV.logmsg(l_module_name,'..Consolidate BO quantity '||l_remain_bo_qtys(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1428: -- HW OPM BUG#:3121616 added qty2s
1429: WSH_DEBUG_SV.logmsg(l_module_name,'..Consolidate BO quantity2 '||l_remain_bo_qty2s(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1430: END IF;
1431: -- HW OPM BUG#:3121616 added requested_quantity2
1425: -- muom
1426: WSH_DEBUG_SV.logmsg(l_module_name,'..delivery detail req qty2: '||l_bo_qty2s(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1427: WSH_DEBUG_SV.logmsg(l_module_name,'..Consolidate BO quantity '||l_remain_bo_qtys(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1428: -- HW OPM BUG#:3121616 added qty2s
1429: WSH_DEBUG_SV.logmsg(l_module_name,'..Consolidate BO quantity2 '||l_remain_bo_qty2s(i), WSH_DEBUG_SV.C_PROC_LEVEL);
1430: END IF;
1431: -- HW OPM BUG#:3121616 added requested_quantity2
1432: UPDATE WSH_DELIVERY_DETAILS
1433: SET requested_quantity = requested_quantity + l_remain_bo_qtys(i),
1460: -- Update of wsh_delivery_details where requested_quantity/released_status
1461: -- are changed, call DBI API after the update.
1462: -- This API will also check for DBI Installed or not
1463: IF l_debug_on THEN
1464: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',l_detail_rec.delivery_detail_id);
1465: END IF;
1466: l_detail_tab(1) := l_detail_rec.delivery_detail_id;
1467: WSH_INTEGRATION.DBI_Update_Detail_Log
1468: (p_delivery_detail_id_tab => l_detail_tab,
1469: p_dml_type => 'UPDATE',
1470: x_return_status => l_dbi_rs);
1471:
1472: IF l_debug_on THEN
1473: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1474: END IF;
1475: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1476: x_return_status := l_dbi_rs;
1477: -- just pass this return status to caller API, raise as above
1484:
1485: -- J: W/V Changes
1486: IF l_bo_qtys(i) > 0 Then -- Bug 3547300
1487: IF l_debug_on THEN
1488: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
1489: END IF;
1490: --
1491: WSH_WV_UTILS.Detail_Weight_Volume(
1492: p_delivery_detail_id => l_detail_rec.delivery_detail_id,
1496: x_net_weight => l_split_weight,
1497: x_volume => l_split_volume,
1498: x_return_status => l_return_status);
1499: IF l_debug_on THEN
1500: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1501: END IF;
1502: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1503: wsh_util_core.add_message(l_return_status,l_module_name);
1504: x_return_status := l_return_status;
1529: --{
1530: l_unassign_dds_tmp(1) := l_bo_detail_id;
1531:
1532: IF l_debug_on THEN
1533: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.unassign_unpack_empty_cont',WSH_DEBUG_SV.C_PROC_LEVEL);
1534: END IF;
1535:
1536: -- p_validate_flag is passed as 'N', so that backordering does not fail for planned Deliveries.
1537: WSH_DELIVERY_DETAILS_ACTIONS.unassign_unpack_empty_cont
1544: --
1545: -- Debug Statements
1546: --
1547: IF l_debug_on THEN
1548: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER UNASSIGN AND UNPACK EMPTY CONTAINER '|| L_RETURN_STATUS );
1549: END IF;
1550:
1551: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1552: --{
1580: --
1581: -- Debug Statements
1582: --
1583: IF l_debug_on THEN
1584: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Source_Line',WSH_DEBUG_SV.C_PROC_LEVEL);
1585: END IF;
1586: --
1587: WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Source_Line(
1588: p_Cons_Source_Line_Rec_Tab => l_cons_source_line_rec_tab,
1627: --
1628: -- Debug Statements
1629: --
1630: IF l_debug_on THEN
1631: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.unassign_unpack_empty_cont',WSH_DEBUG_SV.C_PROC_LEVEL);
1632: END IF;
1633: -- p_validate_flag is passed as 'N', so that backordering does not fail for planned Deliveries.
1634: WSH_DELIVERY_DETAILS_ACTIONS.unassign_unpack_empty_cont (
1635: p_ids_tobe_unassigned => l_unassign_dds ,
1640: --
1641: -- Debug Statements
1642: --
1643: IF l_debug_on THEN
1644: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER UNASSIGN AND UNPACK EMPTY CONTAINER '|| L_RETURN_STATUS );
1645: END IF;
1646: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1647: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1648: l_num_warn := l_num_warn + 1;
1656: --
1657: -- Debug Statements
1658: --
1659: IF l_debug_on THEN
1660: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTERFACE.DELETE_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
1661: END IF;
1662: --
1663: WSH_INTERFACE.Delete_Details(
1664: p_details_id => l_delete_dds,
1668: -- Debug Statements
1669: --
1670:
1671: IF l_debug_on THEN
1672: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER DELETING DETAIL '|| L_RETURN_STATUS );
1673: END IF;
1674: --
1675: /* Bug 2308509 */
1676: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1689: --
1690: -- Debug Statements
1691: --
1692: IF l_debug_on THEN
1693: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_SHIP_SET',WSH_DEBUG_SV.C_PROC_LEVEL);
1694: END IF;
1695: --
1696: wsh_delivery_validations.check_ship_set( l_delivery_id, l_valid_flag, l_return_status);
1697: /* Bug 2308509 */
1707:
1708: --
1709: -- K LPN CONV. rv
1710: IF l_debug_on THEN
1711: 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);
1712: END IF;
1713: --
1714: --
1715: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1724: );
1725: --
1726: --
1727: IF l_debug_on THEN
1728: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1729: END IF;
1730: --
1731: --
1732: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1764: --
1765: -- Debug Statements
1766: --
1767: IF l_debug_on THEN
1768: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1769: END IF;
1770: --
1771: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
1772: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1780: --{
1781: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1782: --{
1783: IF l_debug_on THEN
1784: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1785: END IF;
1786:
1787: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
1788: x_return_status => l_return_status);
1787: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
1788: x_return_status => l_return_status);
1789:
1790: IF l_debug_on THEN
1791: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1792: END IF;
1793:
1794: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1795: x_return_status := l_return_status;
1808: --
1809: -- Debug Statements
1810: --
1811: IF l_debug_on THEN
1812: WSH_DEBUG_SV.pop(l_module_name);
1813: END IF;
1814: --
1815: EXCEPTION
1816:
1822: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1823: THEN
1824: --{
1825: IF l_debug_on THEN
1826: 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);
1827: END IF;
1828:
1829: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
1830: (
1834: );
1835: --
1836: --
1837: IF l_debug_on THEN
1838: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1839: END IF;
1840: --
1841: --
1842: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR) AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1848: --
1849: -- K LPN CONV. rv
1850: --
1851: IF l_debug_on THEN
1852: WSH_DEBUG_SV.logmsg(l_module_name,'E_RETURN_EXCP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN_EXCP');
1854: END IF;
1855: --
1856:
1849: -- K LPN CONV. rv
1850: --
1851: IF l_debug_on THEN
1852: WSH_DEBUG_SV.logmsg(l_module_name,'E_RETURN_EXCP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1853: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN_EXCP');
1854: END IF;
1855: --
1856:
1857:
1864: --Bugfix 4070732 {
1865: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1866: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1867: IF l_debug_on THEN
1868: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1869: END IF;
1870:
1871: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1872: x_return_status => l_return_status);
1872: x_return_status => l_return_status);
1873:
1874:
1875: IF l_debug_on THEN
1876: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1877: END IF;
1878:
1879: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1880: x_return_status := l_return_status;
1882: END IF;
1883: END IF;
1884: --}
1885: IF l_debug_on THEN
1886: WSH_DEBUG_SV.logmsg(l_module_name,'BACKORDER_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1887: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:BACKORDER_ERROR');
1888: END IF;
1889: --
1890: RETURN;
1883: END IF;
1884: --}
1885: IF l_debug_on THEN
1886: WSH_DEBUG_SV.logmsg(l_module_name,'BACKORDER_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1887: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:BACKORDER_ERROR');
1888: END IF;
1889: --
1890: RETURN;
1891:
1908: --Bugfix 4070732 {
1909: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1910: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1911: IF l_debug_on THEN
1912: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1913: END IF;
1914:
1915: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1916: x_return_status => l_return_status);
1916: x_return_status => l_return_status);
1917:
1918:
1919: IF l_debug_on THEN
1920: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1921: END IF;
1922:
1923: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1924: x_return_status := l_return_status;
1931: --
1932: -- Debug Statements
1933: --
1934: IF l_debug_on THEN
1935: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_SOURCE_CODE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1936: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_SOURCE_CODE');
1937: END IF;
1938: --
1939: WHEN no_backorder_full THEN
1932: -- Debug Statements
1933: --
1934: IF l_debug_on THEN
1935: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_SOURCE_CODE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1936: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_SOURCE_CODE');
1937: END IF;
1938: --
1939: WHEN no_backorder_full THEN
1940: fnd_message.set_name('WSH','WSH_BKALL_NOT_ALLOW');
1945: --Bugfix 4070732 {
1946: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1947: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1948: IF l_debug_on THEN
1949: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1950: END IF;
1951:
1952: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1953: x_return_status => l_return_status);
1953: x_return_status => l_return_status);
1954:
1955:
1956: IF l_debug_on THEN
1957: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1958: END IF;
1959:
1960: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1961: x_return_status := l_return_status;
1968: --
1969: -- Debug Statements
1970: --
1971: IF l_debug_on THEN
1972: WSH_DEBUG_SV.logmsg(l_module_name,'NO_BACKORDER_FULL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1973: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_BACKORDER_FULL');
1974: END IF;
1975: --
1976: WHEN new_det_wt_vol_failed THEN
1969: -- Debug Statements
1970: --
1971: IF l_debug_on THEN
1972: WSH_DEBUG_SV.logmsg(l_module_name,'NO_BACKORDER_FULL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1973: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_BACKORDER_FULL');
1974: END IF;
1975: --
1976: WHEN new_det_wt_vol_failed THEN
1977: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1985: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1986: THEN
1987: --{
1988: IF l_debug_on THEN
1989: 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);
1990: END IF;
1991:
1992: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
1993: (
1997: );
1998: --
1999: --
2000: IF l_debug_on THEN
2001: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2002: END IF;
2003: --
2004: --
2005: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2014: --Bugfix 4070732 {
2015: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2016: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2017: IF l_debug_on THEN
2018: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2019: END IF;
2020:
2021: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
2022: x_return_status => l_return_status);
2022: x_return_status => l_return_status);
2023:
2024:
2025: IF l_debug_on THEN
2026: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2027: END IF;
2028:
2029: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2030: x_return_status := l_return_status;
2036: --
2037: -- Debug Statements
2038: --
2039: IF l_debug_on THEN
2040: WSH_DEBUG_SV.logmsg(l_module_name,'NEW_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2041: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
2042: END IF;
2043: --
2044: WHEN OTHERS THEN
2037: -- Debug Statements
2038: --
2039: IF l_debug_on THEN
2040: WSH_DEBUG_SV.logmsg(l_module_name,'NEW_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2041: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
2042: END IF;
2043: --
2044: WHEN OTHERS THEN
2045: WSH_UTIL_CORE.Default_Handler('WSH_SHIP_CONFIRM_ACTIONS2.Backorder',l_module_name);
2048: --Bugfix 4070732 {
2049: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2050: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2051: IF l_debug_on THEN
2052: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2053: END IF;
2054:
2055: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
2056: x_return_status => l_return_status);
2056: x_return_status => l_return_status);
2057:
2058:
2059: IF l_debug_on THEN
2060: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2061: END IF;
2062: END IF;
2063: END IF;
2064: --}
2064: --}
2065: --
2066: -- Debug Statements
2067: IF l_debug_on THEN
2068: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2069: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2070: END IF;
2071:
2072: RETURN ;
2065: --
2066: -- Debug Statements
2067: IF l_debug_on THEN
2068: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2069: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2070: END IF;
2071:
2072: RETURN ;
2073:
2105: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2106: --
2107: IF l_debug_on IS NULL
2108: THEN
2109: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2110: END IF;
2111: --
2112: IF l_debug_on THEN
2113: WSH_DEBUG_SV.push(l_module_name);
2109: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2110: END IF;
2111: --
2112: IF l_debug_on THEN
2113: WSH_DEBUG_SV.push(l_module_name);
2114: --
2115: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2116: END IF;
2117: --
2111: --
2112: IF l_debug_on THEN
2113: WSH_DEBUG_SV.push(l_module_name);
2114: --
2115: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2116: END IF;
2117: --
2118: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2119:
2126: END IF;
2127: CLOSE c_exception;
2128:
2129: IF l_debug_on THEN
2130: WSH_DEBUG_SV.log(l_module_name,'x_exception_exist',x_exception_exist);
2131: WSH_DEBUG_SV.log(l_module_name,'x_severity_present',x_severity_present);
2132: END IF;
2133:
2134:
2127: CLOSE c_exception;
2128:
2129: IF l_debug_on THEN
2130: WSH_DEBUG_SV.log(l_module_name,'x_exception_exist',x_exception_exist);
2131: WSH_DEBUG_SV.log(l_module_name,'x_severity_present',x_severity_present);
2132: END IF;
2133:
2134:
2135: --
2135: --
2136: -- Debug Statements
2137: --
2138: IF l_debug_on THEN
2139: WSH_DEBUG_SV.pop(l_module_name);
2140: END IF;
2141: --
2142: EXCEPTION
2143: WHEN others THEN
2144: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2145: WSH_UTIL_CORE.default_handler('WSH_SHIP_CONFIRM_ACTIONS2.check_exception',l_module_name);
2146:
2147: IF l_debug_on THEN
2148: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2149: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2150: END IF;
2151: --
2152: END check_exception;
2145: WSH_UTIL_CORE.default_handler('WSH_SHIP_CONFIRM_ACTIONS2.check_exception',l_module_name);
2146:
2147: IF l_debug_on THEN
2148: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2149: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2150: END IF;
2151: --
2152: END check_exception;
2153:
2189: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2190: --
2191: IF l_debug_on IS NULL
2192: THEN
2193: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2194: END IF;
2195: --
2196: IF l_debug_on THEN
2197: WSH_DEBUG_SV.push(l_module_name);
2193: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2194: END IF;
2195: --
2196: IF l_debug_on THEN
2197: WSH_DEBUG_SV.push(l_module_name);
2198: --
2199: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
2200: WSH_DEBUG_SV.log(l_module_name,'P_BO_SOURCE',P_BO_SOURCE);
2201: END IF;
2195: --
2196: IF l_debug_on THEN
2197: WSH_DEBUG_SV.push(l_module_name);
2198: --
2199: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
2200: WSH_DEBUG_SV.log(l_module_name,'P_BO_SOURCE',P_BO_SOURCE);
2201: END IF;
2202: --
2203:
2196: IF l_debug_on THEN
2197: WSH_DEBUG_SV.push(l_module_name);
2198: --
2199: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
2200: WSH_DEBUG_SV.log(l_module_name,'P_BO_SOURCE',P_BO_SOURCE);
2201: END IF;
2202: --
2203:
2204: --
2204: --
2205: -- Debug Statements
2206: --
2207: IF l_debug_on THEN
2208: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.BackOrder',WSH_DEBUG_SV.C_PROC_LEVEL);
2209: WSH_DEBUG_SV.logmsg(l_module_name,'......with p_line_ids as NULL', WSH_DEBUG_SV.C_PROC_LEVEL);
2210: END IF;
2211: --
2212: Backorder(
2205: -- Debug Statements
2206: --
2207: IF l_debug_on THEN
2208: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.BackOrder',WSH_DEBUG_SV.C_PROC_LEVEL);
2209: WSH_DEBUG_SV.logmsg(l_module_name,'......with p_line_ids as NULL', WSH_DEBUG_SV.C_PROC_LEVEL);
2210: END IF;
2211: --
2212: Backorder(
2213: p_detail_ids => p_detail_ids,
2224: x_cons_flags => l_cons_flags,
2225: x_return_status => x_return_status );
2226:
2227: IF l_debug_on THEN
2228: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '|| x_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
2229: WSH_DEBUG_SV.pop(l_module_name);
2230: END IF;
2231:
2232: END BackOrder;
2225: x_return_status => x_return_status );
2226:
2227: IF l_debug_on THEN
2228: WSH_DEBUG_SV.logmsg(l_module_name,'x_return_status '|| x_return_status, WSH_DEBUG_SV.C_PROC_LEVEL);
2229: WSH_DEBUG_SV.pop(l_module_name);
2230: END IF;
2231:
2232: END BackOrder;
2233: