[Home] [Help]
30: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
31: --
32: IF l_debug_on IS NULL
33: THEN
34: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
35: END IF;
36: --
37: IF l_debug_on THEN
38: WSH_DEBUG_SV.push(l_module_name);
34: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
35: END IF;
36: --
37: IF l_debug_on THEN
38: WSH_DEBUG_SV.push(l_module_name);
39: --
40: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
41: END IF;
42: l_rs := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
36: --
37: IF l_debug_on THEN
38: WSH_DEBUG_SV.push(l_module_name);
39: --
40: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
41: END IF;
42: l_rs := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
43: <
44: FOR l_counter IN p_changed_attributes.FIRST .. p_changed_attributes.LAST LOOP
55:
56: -- pickable lines should have status updated to 'R'.
57: -- non-pickable (non-reservable) lines should have status updated to 'X'.
58: IF l_debug_on THEN
59: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attributes(l_counter).source_line_id);
60: END IF;
61: UPDATE WSH_DELIVERY_DETAILS
62: SET released_status = decode(pickable_flag, 'Y','R', 'X')
63: WHERE source_line_id = p_changed_attributes(l_counter).source_line_id
77: --p_parameters IN wf_parameter_list_t DEFAULT NULL,
78: p_organization_id => l_organization_tab(i),
79: x_return_status => l_wf_rs ) ;
80: IF l_debug_on THEN
81: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
82: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',l_detail_tab(i) );
83: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
84: END IF;
85: END IF;
78: p_organization_id => l_organization_tab(i),
79: x_return_status => l_wf_rs ) ;
80: IF l_debug_on THEN
81: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
82: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',l_detail_tab(i) );
83: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
84: END IF;
85: END IF;
86: END LOOP;
79: x_return_status => l_wf_rs ) ;
80: IF l_debug_on THEN
81: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
82: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',l_detail_tab(i) );
83: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
84: END IF;
85: END IF;
86: END LOOP;
87: --Done Raise Event: Pick To Pod Workflow
90: -- Update of wsh_delivery_details where requested_quantity/released_status
91: -- are changed, call DBI API after the update.
92: -- This API will also check for DBI Installed or not
93: IF l_debug_on THEN
94: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count',l_detail_tab.count);
95: END IF;
96: WSH_INTEGRATION.DBI_Update_Detail_Log
97: (p_delivery_detail_id_tab => l_detail_tab,
98: p_dml_type => 'UPDATE',
98: p_dml_type => 'UPDATE',
99: x_return_status => l_dbi_rs);
100:
101: IF l_debug_on THEN
102: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
103: END IF;
104: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
105: x_return_status := l_dbi_rs;
106: -- just pass this return status to caller API
104: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
105: x_return_status := l_dbi_rs;
106: -- just pass this return status to caller API
107: IF l_debug_on THEN
108: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
109: WSH_DEBUG_SV.pop(l_module_name);
110: END IF;
111: return;
112: END IF;
105: x_return_status := l_dbi_rs;
106: -- just pass this return status to caller API
107: IF l_debug_on THEN
108: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
109: WSH_DEBUG_SV.pop(l_module_name);
110: END IF;
111: return;
112: END IF;
113: END IF;
120: x_return_status := l_rs;
121:
122: --
123: IF l_debug_on THEN
124: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
125: WSH_DEBUG_SV.pop(l_module_name);
126: END IF;
127: --
128: EXCEPTION
121:
122: --
123: IF l_debug_on THEN
124: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
125: WSH_DEBUG_SV.pop(l_module_name);
126: END IF;
127: --
128: EXCEPTION
129: WHEN OTHERS THEN
130: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
131: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.Import_Records',l_module_name);
132: --
133: IF l_debug_on THEN
134: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
135: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
136: END IF;
137: --
138: END Import_Records;
131: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.Import_Records',l_module_name);
132: --
133: IF l_debug_on THEN
134: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
135: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
136: END IF;
137: --
138: END Import_Records;
139:
176: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
177: --
178: IF l_debug_on IS NULL
179: THEN
180: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
181: END IF;
182:
183: -- add the original line also in the l_split_table
184: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
183: -- add the original line also in the l_split_table
184: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
185:
186: IF l_debug_on THEN
187: WSH_DEBUG_SV.logmsg(l_module_name,'Inside sort splits ' );
188: END IF;
189:
190: FOR i in 1..p_split_table.count
191: LOOP
196: p_index_tab(i) := i ;
197: END LOOP;
198:
199: IF l_debug_on THEN
200: WSH_DEBUG_SV.logmsg(l_module_name,'Assigned l_split_table');
201: END IF;
202:
203: l_ref := 1 ;
204: l_exchange := TRUE ;
219: l_exchange := FALSE ;
220: l_cmp := l_ref + 1 ;
221:
222: IF l_debug_on THEN
223: WSH_DEBUG_SV.logmsg(l_module_name,l_split_table(l_cmp ).original_source_line_id || ' : ' || l_split_table(l_ref).original_source_line_id );
224: WSH_DEBUG_SV.logmsg(l_module_name,l_split_table(l_cmp ).source_line_id || ' : ' || l_split_table(l_ref).source_line_id );
225: WSH_DEBUG_SV.logmsg(l_module_name,l_split_table(l_cmp ).date_requested || ' : ' || l_split_table(l_ref).date_requested );
226: END IF;
227:
220: l_cmp := l_ref + 1 ;
221:
222: IF l_debug_on THEN
223: WSH_DEBUG_SV.logmsg(l_module_name,l_split_table(l_cmp ).original_source_line_id || ' : ' || l_split_table(l_ref).original_source_line_id );
224: WSH_DEBUG_SV.logmsg(l_module_name,l_split_table(l_cmp ).source_line_id || ' : ' || l_split_table(l_ref).source_line_id );
225: WSH_DEBUG_SV.logmsg(l_module_name,l_split_table(l_cmp ).date_requested || ' : ' || l_split_table(l_ref).date_requested );
226: END IF;
227:
228: IF l_split_table(l_cmp ).original_source_line_id > l_split_table(l_ref).original_source_line_id
221:
222: IF l_debug_on THEN
223: WSH_DEBUG_SV.logmsg(l_module_name,l_split_table(l_cmp ).original_source_line_id || ' : ' || l_split_table(l_ref).original_source_line_id );
224: WSH_DEBUG_SV.logmsg(l_module_name,l_split_table(l_cmp ).source_line_id || ' : ' || l_split_table(l_ref).source_line_id );
225: WSH_DEBUG_SV.logmsg(l_module_name,l_split_table(l_cmp ).date_requested || ' : ' || l_split_table(l_ref).date_requested );
226: END IF;
227:
228: IF l_split_table(l_cmp ).original_source_line_id > l_split_table(l_ref).original_source_line_id
229: THEN
228: IF l_split_table(l_cmp ).original_source_line_id > l_split_table(l_ref).original_source_line_id
229: THEN
230: l_exchange := TRUE ;
231: IF l_debug_on THEN
232: WSH_DEBUG_SV.logmsg(l_module_name,'exchang = TRUE 1 ' );
233: END IF;
234: ELSIF l_split_table(l_cmp ).original_source_line_id = l_split_table(l_ref).original_source_line_id
235: and nvl( l_split_table(l_cmp ).date_requested , SYSDATE ) < NVL ( l_split_table(l_ref).date_requested , SYSDATE )
236: THEN
234: ELSIF l_split_table(l_cmp ).original_source_line_id = l_split_table(l_ref).original_source_line_id
235: and nvl( l_split_table(l_cmp ).date_requested , SYSDATE ) < NVL ( l_split_table(l_ref).date_requested , SYSDATE )
236: THEN
237: IF l_debug_on THEN
238: WSH_DEBUG_SV.logmsg(l_module_name,'exchang = TRUE 2 ' );
239: END IF;
240:
241: l_exchange := TRUE ;
242: ELSIF l_split_table(l_cmp ).original_source_line_id = l_split_table(l_ref).original_source_line_id
285: EXCEPTION
286: WHEN OTHERS THEN
287: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
288: IF l_debug_on THEN
289: WSH_DEBUG_SV.logmsg(l_module_name,'Exception in sort_splits' );
290: WSH_DEBUG_SV.logmsg(l_module_name, SQLERRM || ' : ' || SQLCODE );
291: END IF;
292:
293: END sort_splits ;
286: WHEN OTHERS THEN
287: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
288: IF l_debug_on THEN
289: WSH_DEBUG_SV.logmsg(l_module_name,'Exception in sort_splits' );
290: WSH_DEBUG_SV.logmsg(l_module_name, SQLERRM || ' : ' || SQLCODE );
291: END IF;
292:
293: END sort_splits ;
294: --
556: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
557: --
558: IF l_debug_on IS NULL
559: THEN
560: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
561: END IF;
562: --
563: IF l_debug_on THEN
564: WSH_DEBUG_SV.push(l_module_name);
560: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
561: END IF;
562: --
563: IF l_debug_on THEN
564: WSH_DEBUG_SV.push(l_module_name);
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
567: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
568: END IF;
562: --
563: IF l_debug_on THEN
564: WSH_DEBUG_SV.push(l_module_name);
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
567: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
568: END IF;
569: --
570: l_rs := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
563: IF l_debug_on THEN
564: WSH_DEBUG_SV.push(l_module_name);
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
567: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
568: END IF;
569: --
570: l_rs := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
571: SAVEPOINT before_splits;
585: IF p_changed_attributes(l_counter).action_flag = 'S' THEN
586:
587: IF p_interface_flag = 'Y' THEN
588: IF l_debug_on THEN
589: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attributes(l_counter).original_source_line_id);
590: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attributes(l_counter).source_line_id);
591: WSH_DEBUG_SV.log(l_module_name,'source_line_set_id',p_changed_attributes(l_counter).source_line_set_id);
592: WSH_DEBUG_SV.log(l_module_name,'shipped_flag',p_changed_attributes(l_counter).shipped_flag);
593: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attributes(l_counter).ordered_quantity);
586:
587: IF p_interface_flag = 'Y' THEN
588: IF l_debug_on THEN
589: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attributes(l_counter).original_source_line_id);
590: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attributes(l_counter).source_line_id);
591: WSH_DEBUG_SV.log(l_module_name,'source_line_set_id',p_changed_attributes(l_counter).source_line_set_id);
592: WSH_DEBUG_SV.log(l_module_name,'shipped_flag',p_changed_attributes(l_counter).shipped_flag);
593: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attributes(l_counter).ordered_quantity);
594: END IF;
587: IF p_interface_flag = 'Y' THEN
588: IF l_debug_on THEN
589: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attributes(l_counter).original_source_line_id);
590: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attributes(l_counter).source_line_id);
591: WSH_DEBUG_SV.log(l_module_name,'source_line_set_id',p_changed_attributes(l_counter).source_line_set_id);
592: WSH_DEBUG_SV.log(l_module_name,'shipped_flag',p_changed_attributes(l_counter).shipped_flag);
593: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attributes(l_counter).ordered_quantity);
594: END IF;
595: END IF;
588: IF l_debug_on THEN
589: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attributes(l_counter).original_source_line_id);
590: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attributes(l_counter).source_line_id);
591: WSH_DEBUG_SV.log(l_module_name,'source_line_set_id',p_changed_attributes(l_counter).source_line_set_id);
592: WSH_DEBUG_SV.log(l_module_name,'shipped_flag',p_changed_attributes(l_counter).shipped_flag);
593: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attributes(l_counter).ordered_quantity);
594: END IF;
595: END IF;
596:
589: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attributes(l_counter).original_source_line_id);
590: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attributes(l_counter).source_line_id);
591: WSH_DEBUG_SV.log(l_module_name,'source_line_set_id',p_changed_attributes(l_counter).source_line_set_id);
592: WSH_DEBUG_SV.log(l_module_name,'shipped_flag',p_changed_attributes(l_counter).shipped_flag);
593: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attributes(l_counter).ordered_quantity);
594: END IF;
595: END IF;
596:
597: l_uom_converted := FALSE;
618: --Bugfix 10135994 added condition for p_interface_flag
619: IF ((c.released_status = 'S') AND (c.move_order_line_id IS NOT NULL) AND (p_interface_flag = 'N')) THEN
620: --{
621: IF l_debug_on THEN
622: WSH_DEBUG_SV.log(l_module_name,'Checking Released to Warehouse line,MOL is--',c.move_order_line_id) ;
623: END IF;
624: -- Keeping the function call separate to avoid extra overhead of calling
625: -- a function for each check, it will be called only when above is
626: -- satisfied
626: -- satisfied
627: IF wsh_usa_inv_pvt.is_mo_type_putaway (c.move_order_line_id) = 'Y' THEN
628: --{
629: IF l_debug_on THEN
630: WSH_DEBUG_SV.log(l_module_name,'DO NOT ALLOW SPLIT FOR PUTAWAY MOL,---',c.move_order_line_id) ;
631: WSH_DEBUG_SV.log(l_module_name,'ORDER NUMBER---',c.source_header_number) ;
632: END IF;
633: --Split API is called for a source line and if any of the details is
634: --in Rel. to warehouse status as described above, the flow needs to
627: IF wsh_usa_inv_pvt.is_mo_type_putaway (c.move_order_line_id) = 'Y' THEN
628: --{
629: IF l_debug_on THEN
630: WSH_DEBUG_SV.log(l_module_name,'DO NOT ALLOW SPLIT FOR PUTAWAY MOL,---',c.move_order_line_id) ;
631: WSH_DEBUG_SV.log(l_module_name,'ORDER NUMBER---',c.source_header_number) ;
632: END IF;
633: --Split API is called for a source line and if any of the details is
634: --in Rel. to warehouse status as described above, the flow needs to
635: --stop
638: WSH_UTIL_CORE.add_message(l_rs,l_module_name);
639: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
640: ROLLBACK to before_splits;
641: IF l_debug_on THEN
642: WSH_DEBUG_SV.logmsg(l_module_name,'RAISE ERROR AS SPLIT IS NOT ALLOWED');
643: WSH_DEBUG_SV.pop(l_module_name);
644: END IF;
645: RETURN;
646: END IF;--}
639: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
640: ROLLBACK to before_splits;
641: IF l_debug_on THEN
642: WSH_DEBUG_SV.logmsg(l_module_name,'RAISE ERROR AS SPLIT IS NOT ALLOWED');
643: WSH_DEBUG_SV.pop(l_module_name);
644: END IF;
645: RETURN;
646: END IF;--}
647: END IF;--}
691: p_changed_attributes(l_counter).original_source_line_id);
692: FETCH c_req_qty INTO l_quantity_to_split,l_quantity_to_split2; -- muom
693: IF c_req_qty%NOTFOUND THEN
694: IF l_debug_on THEN
695: WSH_DEBUG_SV.log(l_module_name,'c_req_qty notfound for line', p_changed_attributes(l_counter).original_source_line_id);
696: END IF;
697: CLOSE c_req_qty;
698: END IF;
699: CLOSE c_req_qty;
698: END IF;
699: CLOSE c_req_qty;
700: IF l_debug_on THEN
701: -- muom
702: WSH_DEBUG_SV.logmsg(l_module_name,'Inside If l_quantity_to_split'||l_quantity_to_split||' l_quantity_to_split2 '||l_quantity_to_split2);
703: END IF;
704: ELSE
705: l_quantity_to_split := WSH_WV_UTILS.Convert_UOM(
706: from_uom => p_changed_attributes(l_counter).order_quantity_uom,
713: IF ( p_changed_attributes(l_counter).ordered_quantity2 is NOT NULL) THEN
714: l_quantity_to_split2 := p_changed_attributes(l_counter).ordered_quantity2;
715: END IF;
716: IF l_debug_on THEN
717: WSH_DEBUG_SV.log(l_module_name,'Inside If l_quantity_to_split2', l_quantity_to_split2);
718: END IF;
719:
720: -- muom
721: IF ((l_fulfillment_base = 'P' AND p_changed_attributes(l_counter).ordered_quantity > 0 AND l_quantity_to_split <= 0) OR
750: -- if requested_quantity = 0, line is overpicked.
751:
752: l_move_order_line_status := 'TRANSFER';
753: IF l_debug_on THEN
754: WSH_DEBUG_SV.log(l_module_name,'Processing Delivery Detail ',c.delivery_detail_id);
755: END IF;
756:
757: -- muom
758: IF (l_fulfillment_base = 'P' and c.requested_quantity <= l_quantity_to_split) OR
762: l_quantity_split := c.requested_quantity;
763: l_quantity_split2 := c.requested_quantity2;
764: --
765: IF l_debug_on THEN
766: WSH_DEBUG_SV.log(l_module_name,'c.requested_quantity',c.requested_quantity);
767: WSH_DEBUG_SV.log(l_module_name,'l_quantity_to_split',l_quantity_to_split);
768: -- HW OPMCONV - Print Qty2
769: WSH_DEBUG_SV.log(l_module_name,'c.requested_quantity2',c.requested_quantity2);
770: WSH_DEBUG_SV.log(l_module_name,'l_quantity_split2',l_quantity_split2);
763: l_quantity_split2 := c.requested_quantity2;
764: --
765: IF l_debug_on THEN
766: WSH_DEBUG_SV.log(l_module_name,'c.requested_quantity',c.requested_quantity);
767: WSH_DEBUG_SV.log(l_module_name,'l_quantity_to_split',l_quantity_to_split);
768: -- HW OPMCONV - Print Qty2
769: WSH_DEBUG_SV.log(l_module_name,'c.requested_quantity2',c.requested_quantity2);
770: WSH_DEBUG_SV.log(l_module_name,'l_quantity_split2',l_quantity_split2);
771: END IF;
765: IF l_debug_on THEN
766: WSH_DEBUG_SV.log(l_module_name,'c.requested_quantity',c.requested_quantity);
767: WSH_DEBUG_SV.log(l_module_name,'l_quantity_to_split',l_quantity_to_split);
768: -- HW OPMCONV - Print Qty2
769: WSH_DEBUG_SV.log(l_module_name,'c.requested_quantity2',c.requested_quantity2);
770: WSH_DEBUG_SV.log(l_module_name,'l_quantity_split2',l_quantity_split2);
771: END IF;
772: --
773: UPDATE WSH_DELIVERY_DETAILS
766: WSH_DEBUG_SV.log(l_module_name,'c.requested_quantity',c.requested_quantity);
767: WSH_DEBUG_SV.log(l_module_name,'l_quantity_to_split',l_quantity_to_split);
768: -- HW OPMCONV - Print Qty2
769: WSH_DEBUG_SV.log(l_module_name,'c.requested_quantity2',c.requested_quantity2);
770: WSH_DEBUG_SV.log(l_module_name,'l_quantity_split2',l_quantity_split2);
771: END IF;
772: --
773: UPDATE WSH_DELIVERY_DETAILS
774: SET source_line_id = p_changed_attributes(l_counter).source_line_id,
797: AND p_changed_attributes(l_counter).top_model_line_id IS NOT NULL
798: AND p_changed_attributes(l_counter).top_model_line_id = p_changed_attributes(l_counter).ato_line_id )
799: THEN
800: IF l_debug_on THEN
801: WSH_DEBUG_SV.logmsg(l_module_name,'Transferring the MO line');
802: END IF;
803: l_move_order_line_status := 'TRANSFER';
804: -- Bug 2939884/2919186
805: -- If the line is in status 'S' we transfer
806: -- the detailed quantity of the move order line
807: -- or the quantity in the delivery detail, which ever is
808: -- greater.
809: IF l_debug_on THEN
810: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling WSH_USA_INV_PVT.get_detailed_quantity');
811: WSH_DEBUG_SV.log(l_module_name,'move_order',c.move_order_line_id);
812: END IF;
813:
814: -- Bug3143426 (included branch for l_res_qty_to_transfer calculation)
807: -- or the quantity in the delivery detail, which ever is
808: -- greater.
809: IF l_debug_on THEN
810: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling WSH_USA_INV_PVT.get_detailed_quantity');
811: WSH_DEBUG_SV.log(l_module_name,'move_order',c.move_order_line_id);
812: END IF;
813:
814: -- Bug3143426 (included branch for l_res_qty_to_transfer calculation)
815: -- HW OPMCONV. Removed forking and Call get_detailed_quantity as a procedure
823: x_return_status => x_return_status);
824:
825: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
826: IF l_debug_on THEN
827: WSH_DEBUG_SV.log(l_module_name,'get_detailed_quantity returned error');
828: EXIT records_loop;
829: END IF;
830: END IF;
831: ELSE
845: -- Cancel the move order line for models always.
846: -- Reason: Otherwise we have to match the detailed quantities of MO lines with that of
847: -- Reservations in case of REMNANT models
848: IF l_debug_on THEN
849: WSH_DEBUG_SV.logmsg(l_module_name,'The line belongs to model (not ATO) and DD status is S. Transfer Move order line');
850: END IF;
851: -- bug # 9410461: Changed value from 'CANCEL' to 'PTOTRANSFER'. It prevents the cancelling of move order lines
852: -- associated to PTO components. Code has been added in the API WSH_USA_INV_PVT.Split_Reservation
853: -- for the value 'PTOTRANSFER'.
864: -- Bug 2129298: since requested_quantity > quantity_to_split > 0,
865: -- we can split the delivery line.
866: --
867: IF l_debug_on THEN
868: WSH_DEBUG_SV.logmsg(l_module_name, 'IN ELSIF IN SPLIT_RECORDS_Int' );
869: END IF;
870: --
871: l_quantity_split := l_quantity_to_split;
872: l_quantity_split2 := l_quantity_to_split2;
917: l_detail_info.parent_delivery_id := c.parent_delivery_id;
918: l_detail_info.wda_type := c.wda_type;
919: -- END K: MDC
920: IF l_debug_on THEN
921: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT IN SPLIT_RECORDS_Int' );
922: END IF;
923: --
924: -- HW OPMCONV. Removed l_process_flag
925: -- Bug 16722851
943: x_return_status => l_rs);
944:
945:
946: IF l_debug_on THEN
947: WSH_DEBUG_SV.log(l_module_name,'l_rs',l_rs);
948: END IF;
949: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
950: EXIT records_loop;
951: END IF;
956: -- new quantity (p_primary_quantity).
957: IF ( c.replenishment_status = 'R' and c.released_status in ('R','B')) THEN
958: --{
959: IF l_debug_on THEN
960: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
961: END IF;
962: WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL(
963: p_delivery_detail_id => l_detail_info.delivery_detail_id,
964: p_primary_quantity => c.requested_quantity - l_quantity_split,
967: x_return_status => x_return_status);
968: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
969: --{
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
972: WSH_DEBUG_SV.pop(l_module_name);
973: END IF;
974: EXIT records_loop;
975: --}
968: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
969: --{
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
972: WSH_DEBUG_SV.pop(l_module_name);
973: END IF;
974: EXIT records_loop;
975: --}
976: END IF;
986: -- bug fix 2187012 fix#1 start
987: --
988: --{
989: IF l_debug_on THEN
990: WSH_DEBUG_SV.log(l_module_name,'RELEASED STATUS',c.released_status);
991: END IF;
992: IF (c.released_status = 'S' ) THEN
993: IF l_debug_on THEN
994: WSH_DEBUG_SV.log(l_module_name,'MOL id ',c.move_order_line_id);
990: WSH_DEBUG_SV.log(l_module_name,'RELEASED STATUS',c.released_status);
991: END IF;
992: IF (c.released_status = 'S' ) THEN
993: IF l_debug_on THEN
994: WSH_DEBUG_SV.log(l_module_name,'MOL id ',c.move_order_line_id);
995: END IF;
996: --X-dock,split
997: -- For rel. to warehouse lines, progressed from X-dock
998: -- validation will be done earlier to stop the flow
1019: -- Update of wsh_delivery_details where requested_quantity/released_status
1020: -- are changed, call DBI API after the update.
1021: -- This API will also check for DBI Installed or not
1022: IF l_debug_on THEN
1023: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API delievery detail id:',c.delivery_detail_id);
1024: END IF;
1025: l_detail_tab(1) := c.delivery_detail_id;
1026: WSH_INTEGRATION.DBI_Update_Detail_Log
1027: (p_delivery_detail_id_tab => l_detail_tab,
1028: p_dml_type => 'UPDATE',
1029: x_return_status => l_dbi_rs);
1030:
1031: IF l_debug_on THEN
1032: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1033: END IF;
1034: --{
1035: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1036: x_return_status := l_dbi_rs;
1036: x_return_status := l_dbi_rs;
1037: ROLLBACK to before_splits;
1038: -- just pass this return status to caller API
1039: IF l_debug_on THEN
1040: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1041: WSH_DEBUG_SV.pop(l_module_name);
1042: END IF;
1043: return;
1044: END IF;
1037: ROLLBACK to before_splits;
1038: -- just pass this return status to caller API
1039: IF l_debug_on THEN
1040: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1041: WSH_DEBUG_SV.pop(l_module_name);
1042: END IF;
1043: return;
1044: END IF;
1045: --}
1077: END IF;
1078: --}
1079: END IF;
1080: IF l_debug_on THEN
1081: WSH_DEBUG_SV.logmsg(l_module_name, 'l_trnfer_reservations:' || l_trnfer_reservations);
1082: END IF;
1083: -- bug # 9410461: end
1084: --
1085: -- update reservations only if this delivery line can have them:
1094: -- Bug 2121426/2129298: transfer reservations only if we have
1095: -- transferred delivery line to the new order line.
1096: --
1097: IF l_debug_on THEN
1098: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATION QUANTITY TO TRANSFER: ' || L_RES_QTY_TO_TRANSFER );
1099: -- HW OPMCONV -Added Qty2
1100: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATION QUANTITY2 TO TRANSFER: ' || L_RES_QTY2_TO_TRANSFER );
1101: END IF;
1102: --
1096: --
1097: IF l_debug_on THEN
1098: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATION QUANTITY TO TRANSFER: ' || L_RES_QTY_TO_TRANSFER );
1099: -- HW OPMCONV -Added Qty2
1100: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATION QUANTITY2 TO TRANSFER: ' || L_RES_QTY2_TO_TRANSFER );
1101: END IF;
1102: --
1103: -- bug 3364238 - added the condition when released_status is 'S' and get_detailed_quantity > 0
1104: --- HW 3530178 added the l_process_flag condition
1116: x_return_status => x_return_status);
1117:
1118: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1119: IF l_debug_on THEN
1120: WSH_DEBUG_SV.log(l_module_name,'get_detailed_quantity returned error');
1121: EXIT records_loop;
1122: END IF;
1123: END IF;
1124: ELSE
1168: -- bug 2121426: pass the correct quantity of reservations to transfer
1169: --
1170: -- bugfix 8780988 Do not transfer the reservation when organization is changed for a split line (manual split)
1171: IF l_debug_on THEN
1172: WSH_DEBUG_SV.logmsg(l_module_name, 'p_changed_attributes(l_counter).ship_from_org_id: ' || p_changed_attributes(l_counter).ship_from_org_id );
1173: WSH_DEBUG_SV.logmsg(l_module_name, 'l_detail_inv_rec.organization_id: ' || l_detail_inv_rec.organization_id );
1174: END IF;
1175:
1176: --bugfix 8976069 added join for 'Y' and 'C'
1169: --
1170: -- bugfix 8780988 Do not transfer the reservation when organization is changed for a split line (manual split)
1171: IF l_debug_on THEN
1172: WSH_DEBUG_SV.logmsg(l_module_name, 'p_changed_attributes(l_counter).ship_from_org_id: ' || p_changed_attributes(l_counter).ship_from_org_id );
1173: WSH_DEBUG_SV.logmsg(l_module_name, 'l_detail_inv_rec.organization_id: ' || l_detail_inv_rec.organization_id );
1174: END IF;
1175:
1176: --bugfix 8976069 added join for 'Y' and 'C'
1177: IF (p_changed_attributes(l_counter).ship_from_org_id <> l_detail_inv_rec.organization_id) and c.released_status in ('Y', 'C') THEN
1186:
1187:
1188: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1189: IF l_debug_on THEN
1190: WSH_DEBUG_SV.logmsg(l_module_name,'unexpected error after WSH_USA_INV_PVT.cancel_staged_reservation ');
1191: END IF;
1192: exit records_loop ;
1193: END IF;
1194:
1194:
1195: ELSE
1196:
1197: IF l_debug_on THEN
1198: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.SPLIT_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
1199: END IF;
1200: --
1201: -- Added parameter p_shipped_flag for bug 10105817
1202: WSH_USA_INV_PVT.Split_Reservation (
1244: /* Reset delivery details with 0 requested quantity to converted quantity from secondary */
1245: IF l_fulfillment_base = 'S' THEN
1246:
1247: IF l_debug_on THEN
1248: WSH_DEBUG_SV.logmsg(l_module_name,'Adjusting Delivery Details with 0 Requested Quantity for line_id '||p_changed_attributes(l_counter).original_source_line_id);
1249: END IF;
1250:
1251: FOR crec in c_zero_req_cur(p_changed_attributes(l_counter).original_source_line_id) LOOP
1252: IF l_debug_on THEN
1249: END IF;
1250:
1251: FOR crec in c_zero_req_cur(p_changed_attributes(l_counter).original_source_line_id) LOOP
1252: IF l_debug_on THEN
1253: WSH_DEBUG_SV.logmsg(l_module_name,'Adjusting Delivery Detail => '||crec.delivery_detail_id);
1254: END IF;
1255: l_update_qty := WSH_WV_UTILS.Convert_UOM(
1256: from_uom => crec.requested_quantity_uom2,
1257: to_uom => crec.requested_quantity_uom,
1265: last_update_login = FND_GLOBAL.LOGIN_ID
1266: where delivery_detail_id = crec.delivery_detail_id;
1267:
1268: IF l_debug_on THEN
1269: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
1270: END IF;
1271:
1272: WSH_WV_UTILS.Detail_Weight_Volume (
1273: p_delivery_detail_id => crec.delivery_detail_id,
1286: IF l_ato_split AND p_source_code = 'OE' THEN
1287:
1288: -- update CTO for newly split order line
1289: IF l_debug_on THEN
1290: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit CTO_WORKFLOW_API_PK.WF_UPDATE_AFTER_INV_UNRESERV',WSH_DEBUG_SV.C_PROC_LEVEL);
1291: END IF;
1292: --
1293: CTO_WORKFLOW_API_PK.wf_update_after_inv_unreserv(
1294: p_order_line_id => p_changed_attributes(l_counter).source_line_id,
1296: x_msg_count => l_msg_count,
1297: x_msg_data => l_msg_data);
1298: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1299: IF l_debug_on THEN
1300: WSH_DEBUG_SV.log(l_module_name,'wf_update_after_inv_unreserv returned error');
1301: END IF;
1302: EXIT records_loop;
1303: END IF;
1304: -- update CTO for original order line
1302: EXIT records_loop;
1303: END IF;
1304: -- update CTO for original order line
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit CTO_WORKFLOW_API_PK.WF_UPDATE_AFTER_INV_UNRESERV',WSH_DEBUG_SV.C_PROC_LEVEL);
1307: END IF;
1308: --
1309: CTO_WORKFLOW_API_PK.wf_update_after_inv_unreserv(
1310: p_order_line_id => p_changed_attributes(l_counter).original_source_line_id,
1312: x_msg_count => l_msg_count,
1313: x_msg_data => l_msg_data);
1314: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1315: IF l_debug_on THEN
1316: WSH_DEBUG_SV.log(l_module_name,'wf_update_after_inv_unreserv returned error');
1317: END IF;
1318: EXIT records_loop;
1319: END IF;
1320:
1358:
1359: FOR i IN 1..p_split_lines.count -1 LOOP --{
1360:
1361: IF l_debug_on THEN
1362: WSH_DEBUG_SV.logmsg(l_module_name,'i = ' || i ) ;
1363: END IF;
1364: l_counter := p_split_lines(i).changed_attributes_index ;
1365:
1366: IF l_debug_on THEN
1363: END IF;
1364: l_counter := p_split_lines(i).changed_attributes_index ;
1365:
1366: IF l_debug_on THEN
1367: WSH_DEBUG_SV.logmsg(l_module_name,'Calculating unstaged reservations for line_id ' || p_changed_attributes(l_counter).source_line_id || ' , action_flag is ' || p_changed_attributes(l_counter).action_flag );
1368: END IF;
1369:
1370: IF p_changed_attributes(l_counter).action_flag = 'S' THEN --{
1371:
1373:
1374: IF l_last_orig_line_id <> p_changed_attributes(l_counter).original_source_line_id THEN --{
1375:
1376: IF l_debug_on THEN
1377: WSH_DEBUG_SV.logmsg(l_module_name,'new line_id ' || p_changed_attributes(l_counter).original_source_line_id);
1378: END IF;
1379: open c_total_requested_quantity ( p_changed_attributes(l_counter).original_source_line_id);
1380: fetch c_total_requested_quantity into l_inventory_item_id , l_requested_quantity_uom , l_total_requested_quantity,
1381: l_total_requested_quantity2,l_organization_id; --bugfix 8780988
1460: -- HW OPMCONV - Added Qty2
1461: l_total_rsv_to_split2(l_counter) := 0 ;
1462: END IF ; --}
1463: IF l_debug_on THEN
1464: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_rsv_to_split ( ' || l_counter || ' ) = ' || l_total_rsv_to_split(l_counter));
1465: -- HW OPMCONV - Print Qty2
1466: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_rsv_to_split2 ( ' || l_counter || ' ) = ' || l_total_rsv_to_split2(l_counter));
1467: END IF;
1468: END IF ; --} Action_flag = 'S'
1462: END IF ; --}
1463: IF l_debug_on THEN
1464: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_rsv_to_split ( ' || l_counter || ' ) = ' || l_total_rsv_to_split(l_counter));
1465: -- HW OPMCONV - Print Qty2
1466: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_rsv_to_split2 ( ' || l_counter || ' ) = ' || l_total_rsv_to_split2(l_counter));
1467: END IF;
1468: END IF ; --} Action_flag = 'S'
1469:
1470: END LOOP ;--}
1474: FOR i IN 1..p_changed_attributes.count LOOP --{
1475:
1476: l_counter := p_changed_attributes.count -i + 1 ;
1477: IF l_debug_on THEN
1478: WSH_DEBUG_SV.logmsg(l_module_name,'Unstg RSV xfr loop : l_counter ' || l_counter );
1479: END IF;
1480:
1481: IF p_changed_attributes(l_counter).action_flag = 'S' THEN --{
1482:
1486: -- HW OPMCONV - Added Qty2
1487: l_total_res_qty2_to_transfer := l_total_rsv_to_split2(l_counter);
1488:
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.logmsg(l_module_name,'Unstg RSV xfr loop : l_counter ' || l_counter || ' : OLID ' || p_changed_attributes(l_counter).original_source_line_id || ' : LID ' || p_changed_attributes(l_counter).source_line_id );
1491: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty_to_transfer ' || l_total_res_qty_to_transfer );
1492: -- HW OPMCONV - Print qty2
1493: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res2_qty_to_transfer ' || l_total_res_qty2_to_transfer );
1494: END IF;
1487: l_total_res_qty2_to_transfer := l_total_rsv_to_split2(l_counter);
1488:
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.logmsg(l_module_name,'Unstg RSV xfr loop : l_counter ' || l_counter || ' : OLID ' || p_changed_attributes(l_counter).original_source_line_id || ' : LID ' || p_changed_attributes(l_counter).source_line_id );
1491: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty_to_transfer ' || l_total_res_qty_to_transfer );
1492: -- HW OPMCONV - Print qty2
1493: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res2_qty_to_transfer ' || l_total_res_qty2_to_transfer );
1494: END IF;
1495:
1489: IF l_debug_on THEN
1490: WSH_DEBUG_SV.logmsg(l_module_name,'Unstg RSV xfr loop : l_counter ' || l_counter || ' : OLID ' || p_changed_attributes(l_counter).original_source_line_id || ' : LID ' || p_changed_attributes(l_counter).source_line_id );
1491: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty_to_transfer ' || l_total_res_qty_to_transfer );
1492: -- HW OPMCONV - Print qty2
1493: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res2_qty_to_transfer ' || l_total_res_qty2_to_transfer );
1494: END IF;
1495:
1496: -- muom Bug 16722851
1497: if ( l_fulfillment_base = 'P' and l_total_res_qty_to_transfer > 0 ) OR ( l_fulfillment_base = 'S' and l_total_res_qty2_to_transfer > 0 ) then --{
1516: x_return_status => x_return_status);
1517:
1518: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1519: IF l_debug_on THEN
1520: WSH_DEBUG_SV.log(l_module_name,'get_detailed_quantity returned error');
1521: EXIT unstaged_rsv_loop;
1522: END IF;
1523: END IF;
1524: ELSE
1572: l_detail_inv_rec.locator_id := c.locator_id;
1573: l_detail_inv_rec.lpn_id := c.lpn_id;
1574:
1575: IF l_debug_on THEN
1576: WSH_DEBUG_SV.logmsg(l_module_name,'TRansfering unstaged reservations : BEfore WSH_USA_INV_PVT.Split_Reservation ');
1577: END IF;
1578: -- HW OPMCONV - Added Qty2
1579: l_res_qty_to_transfer := LEAST ( nvl(c.picked_quantity , c.requested_quantity ) ,
1580: l_total_res_qty_to_transfer );
1583: l_total_res_qty2_to_transfer );
1584:
1585:
1586: IF l_debug_on THEN
1587: WSH_DEBUG_SV.logmsg(l_module_name,'c.picked_quantity ' || c.picked_quantity );
1588: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity ' || c.requested_quantity );
1589: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty_to_transfer ' || l_total_res_qty_to_transfer );
1590: -- HW OPMCONV - Print Qty2
1591: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty2_to_transfer ' || l_total_res_qty2_to_transfer );
1584:
1585:
1586: IF l_debug_on THEN
1587: WSH_DEBUG_SV.logmsg(l_module_name,'c.picked_quantity ' || c.picked_quantity );
1588: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity ' || c.requested_quantity );
1589: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty_to_transfer ' || l_total_res_qty_to_transfer );
1590: -- HW OPMCONV - Print Qty2
1591: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty2_to_transfer ' || l_total_res_qty2_to_transfer );
1592: WSH_DEBUG_SV.logmsg(l_module_name,'c.picked_quantity2 ' || c.picked_quantity2 );
1585:
1586: IF l_debug_on THEN
1587: WSH_DEBUG_SV.logmsg(l_module_name,'c.picked_quantity ' || c.picked_quantity );
1588: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity ' || c.requested_quantity );
1589: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty_to_transfer ' || l_total_res_qty_to_transfer );
1590: -- HW OPMCONV - Print Qty2
1591: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty2_to_transfer ' || l_total_res_qty2_to_transfer );
1592: WSH_DEBUG_SV.logmsg(l_module_name,'c.picked_quantity2 ' || c.picked_quantity2 );
1593: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity2 ' || c.requested_quantity2 );
1587: WSH_DEBUG_SV.logmsg(l_module_name,'c.picked_quantity ' || c.picked_quantity );
1588: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity ' || c.requested_quantity );
1589: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty_to_transfer ' || l_total_res_qty_to_transfer );
1590: -- HW OPMCONV - Print Qty2
1591: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty2_to_transfer ' || l_total_res_qty2_to_transfer );
1592: WSH_DEBUG_SV.logmsg(l_module_name,'c.picked_quantity2 ' || c.picked_quantity2 );
1593: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity2 ' || c.requested_quantity2 );
1594: WSH_DEBUG_SV.logmsg(l_module_name,'l_res_qty_to_transfer = min of above = ' || l_res_qty_to_transfer );
1595: -- HW OPMCONV - Print Qty2
1588: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity ' || c.requested_quantity );
1589: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty_to_transfer ' || l_total_res_qty_to_transfer );
1590: -- HW OPMCONV - Print Qty2
1591: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty2_to_transfer ' || l_total_res_qty2_to_transfer );
1592: WSH_DEBUG_SV.logmsg(l_module_name,'c.picked_quantity2 ' || c.picked_quantity2 );
1593: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity2 ' || c.requested_quantity2 );
1594: WSH_DEBUG_SV.logmsg(l_module_name,'l_res_qty_to_transfer = min of above = ' || l_res_qty_to_transfer );
1595: -- HW OPMCONV - Print Qty2
1596: WSH_DEBUG_SV.logmsg(l_module_name,'l_res_qty2_to_transfer = min of above = ' || l_res_qty2_to_transfer );
1589: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty_to_transfer ' || l_total_res_qty_to_transfer );
1590: -- HW OPMCONV - Print Qty2
1591: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty2_to_transfer ' || l_total_res_qty2_to_transfer );
1592: WSH_DEBUG_SV.logmsg(l_module_name,'c.picked_quantity2 ' || c.picked_quantity2 );
1593: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity2 ' || c.requested_quantity2 );
1594: WSH_DEBUG_SV.logmsg(l_module_name,'l_res_qty_to_transfer = min of above = ' || l_res_qty_to_transfer );
1595: -- HW OPMCONV - Print Qty2
1596: WSH_DEBUG_SV.logmsg(l_module_name,'l_res_qty2_to_transfer = min of above = ' || l_res_qty2_to_transfer );
1597: WSH_DEBUG_SV.logmsg(l_module_name,'released_status = ' || c.released_Status );
1590: -- HW OPMCONV - Print Qty2
1591: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_res_qty2_to_transfer ' || l_total_res_qty2_to_transfer );
1592: WSH_DEBUG_SV.logmsg(l_module_name,'c.picked_quantity2 ' || c.picked_quantity2 );
1593: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity2 ' || c.requested_quantity2 );
1594: WSH_DEBUG_SV.logmsg(l_module_name,'l_res_qty_to_transfer = min of above = ' || l_res_qty_to_transfer );
1595: -- HW OPMCONV - Print Qty2
1596: WSH_DEBUG_SV.logmsg(l_module_name,'l_res_qty2_to_transfer = min of above = ' || l_res_qty2_to_transfer );
1597: WSH_DEBUG_SV.logmsg(l_module_name,'released_status = ' || c.released_Status );
1598: END IF;
1592: WSH_DEBUG_SV.logmsg(l_module_name,'c.picked_quantity2 ' || c.picked_quantity2 );
1593: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity2 ' || c.requested_quantity2 );
1594: WSH_DEBUG_SV.logmsg(l_module_name,'l_res_qty_to_transfer = min of above = ' || l_res_qty_to_transfer );
1595: -- HW OPMCONV - Print Qty2
1596: WSH_DEBUG_SV.logmsg(l_module_name,'l_res_qty2_to_transfer = min of above = ' || l_res_qty2_to_transfer );
1597: WSH_DEBUG_SV.logmsg(l_module_name,'released_status = ' || c.released_Status );
1598: END IF;
1599:
1600: -- Bugfix 8864613 add code to get the direction flag
1593: WSH_DEBUG_SV.logmsg(l_module_name,'c.requested_quantity2 ' || c.requested_quantity2 );
1594: WSH_DEBUG_SV.logmsg(l_module_name,'l_res_qty_to_transfer = min of above = ' || l_res_qty_to_transfer );
1595: -- HW OPMCONV - Print Qty2
1596: WSH_DEBUG_SV.logmsg(l_module_name,'l_res_qty2_to_transfer = min of above = ' || l_res_qty2_to_transfer );
1597: WSH_DEBUG_SV.logmsg(l_module_name,'released_status = ' || c.released_Status );
1598: END IF;
1599:
1600: -- Bugfix 8864613 add code to get the direction flag
1601: l_direction_flag := NULL;
1610: END LOOP;
1611:
1612: --
1613: IF l_debug_on THEN
1614: WSH_DEBUG_SV.logmsg(l_module_name,'l_direction_flag = ' || l_direction_flag );
1615: WSH_DEBUG_SV.logmsg(l_module_name,'p_shipped_flag = '||p_changed_attributes(l_counter).shipped_flag);
1616: END IF;
1617: --
1618: WSH_USA_INV_PVT.Split_Reservation (
1611:
1612: --
1613: IF l_debug_on THEN
1614: WSH_DEBUG_SV.logmsg(l_module_name,'l_direction_flag = ' || l_direction_flag );
1615: WSH_DEBUG_SV.logmsg(l_module_name,'p_shipped_flag = '||p_changed_attributes(l_counter).shipped_flag);
1616: END IF;
1617: --
1618: WSH_USA_INV_PVT.Split_Reservation (
1619: p_delivery_detail_split_rec => l_detail_inv_rec,
1629: x_return_status => l_rs);
1630:
1631: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1632: IF l_debug_on THEN
1633: WSH_DEBUG_SV.logmsg(l_module_name,'unexpected error after WSH_USA_INV_PVT.Split_Reservation ');
1634: END IF;
1635: exit unstaged_rsv_loop ;
1636: END IF;
1637:
1642:
1643: -- muom
1644: IF ( (l_fulfillment_base = 'P' and l_total_res_qty_to_transfer <= 0) OR (l_fulfillment_base = 'S' and l_total_res_qty2_to_transfer <= 0) ) then
1645: IF l_debug_on THEN
1646: WSH_DEBUG_SV.logmsg(l_module_name,'Exiting to next source_line');
1647: END IF;
1648: EXIT ;
1649: END IF ;
1650: END IF; --} c.released_status NOT IN ('Y','C')
1654: END LOOP; --}
1655: --
1656:
1657: IF l_debug_on THEN
1658: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_spare_rsv = ' ||l_total_spare_rsv);
1659: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_spare_rsv2 = ' ||l_total_spare_rsv2);
1660: END IF;
1661: -- bugfix 8780988 delete all the remaining unstaged reservation
1662: -- l_total_spare_rsv is populated only for split and unstaged reservation
1655: --
1656:
1657: IF l_debug_on THEN
1658: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_spare_rsv = ' ||l_total_spare_rsv);
1659: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_spare_rsv2 = ' ||l_total_spare_rsv2);
1660: END IF;
1661: -- bugfix 8780988 delete all the remaining unstaged reservation
1662: -- l_total_spare_rsv is populated only for split and unstaged reservation
1663: -- bugfix 8915868
1693: x_return_status => l_rs);
1694: --
1695: IF l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1696: IF l_debug_on THEN
1697: WSH_DEBUG_SV.logmsg(l_module_name,'unexpected error after WSH_USA_INV_PVT.cancel_nonstaged_reservation');
1698: END IF;
1699: END IF;
1700: --
1701: END LOOP ;
1720:
1721: x_return_status := l_rs;
1722: --
1723: IF l_debug_on THEN
1724: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
1725: WSH_DEBUG_SV.pop(l_module_name);
1726: END IF;
1727: --
1728: EXCEPTION
1721: x_return_status := l_rs;
1722: --
1723: IF l_debug_on THEN
1724: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
1725: WSH_DEBUG_SV.pop(l_module_name);
1726: END IF;
1727: --
1728: EXCEPTION
1729: WHEN OTHERS THEN
1731: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1732: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_ACTIONS_PVT.Split_Records_Int',l_module_name);
1733: --
1734: IF l_debug_on THEN
1735: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1736: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1737: END IF;
1738: --
1739: END Split_Records_Int;
1732: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_ACTIONS_PVT.Split_Records_Int',l_module_name);
1733: --
1734: IF l_debug_on THEN
1735: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1736: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1737: END IF;
1738: --
1739: END Split_Records_Int;
1740:
1761: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1762: --
1763: IF l_debug_on IS NULL
1764: THEN
1765: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1766: END IF;
1767: --
1768: IF l_debug_on THEN
1769: WSH_DEBUG_SV.push(l_module_name);
1765: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1766: END IF;
1767: --
1768: IF l_debug_on THEN
1769: WSH_DEBUG_SV.push(l_module_name);
1770: --
1771: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1772: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
1773: WSH_DEBUG_SV.logmsg(l_module_name,'Inside Split_Records');
1767: --
1768: IF l_debug_on THEN
1769: WSH_DEBUG_SV.push(l_module_name);
1770: --
1771: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1772: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
1773: WSH_DEBUG_SV.logmsg(l_module_name,'Inside Split_Records');
1774: END IF;
1775:
1768: IF l_debug_on THEN
1769: WSH_DEBUG_SV.push(l_module_name);
1770: --
1771: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1772: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
1773: WSH_DEBUG_SV.logmsg(l_module_name,'Inside Split_Records');
1774: END IF;
1775:
1776: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1769: WSH_DEBUG_SV.push(l_module_name);
1770: --
1771: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1772: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
1773: WSH_DEBUG_SV.logmsg(l_module_name,'Inside Split_Records');
1774: END IF;
1775:
1776: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1777:
1782: FOR i in p_changed_attributes.FIRST..p_changed_attributes.LAST --{loop on p_changed_attributes to scan for request_date on update records.
1783: LOOP
1784:
1785: IF l_debug_on THEN
1786: WSH_DEBUG_SV.log(l_module_name,'Index i',i);
1787: END IF;
1788:
1789: IF p_changed_attributes(i).action_flag = 'U' THEN
1790: l_updates_count := l_updates_count + 1 ;
1816: -- Populate the last split record with the smalled orginal source line id
1817: -- and its scheduled date for reference later for setting the direction.
1818:
1819: IF l_debug_on THEN
1820: WSH_DEBUG_SV.logmsg(l_module_name,'Inside Split_Records: split_table.count = ' || l_split_table.count );
1821: END IF;
1822:
1823: if l_split_table.count > 0 then --{ call sort_splits if one or more records
1824: -- because sort_splits also sets the direction_flag
1826: l_split_Table(l_split_table.count ).source_line_id := l_smallest_orig_line_id ;
1827: l_split_Table(l_split_table.count ).date_requested := l_smallest_date ;
1828:
1829: IF l_debug_on THEN
1830: WSH_DEBUG_SV.logmsg(l_module_name,'Before sort splits' );
1831:
1832: WSH_DEBUG_SV.logmsg(l_module_name,'[original source_line AttrIdx date-requested direction_flag]' );
1833: END IF;
1834:
1828:
1829: IF l_debug_on THEN
1830: WSH_DEBUG_SV.logmsg(l_module_name,'Before sort splits' );
1831:
1832: WSH_DEBUG_SV.logmsg(l_module_name,'[original source_line AttrIdx date-requested direction_flag]' );
1833: END IF;
1834:
1835: FOR i in 1..l_split_table.count
1836: LOOP
1834:
1835: FOR i in 1..l_split_table.count
1836: LOOP
1837: IF l_debug_on THEN
1838: WSH_DEBUG_SV.logmsg(l_module_name,'[' || l_split_table(i).original_source_line_id || ' , '
1839: || l_split_table(i).source_line_id || ' , '
1840: || l_split_table(i).changed_Attributes_index || ' , '
1841: || l_split_table(i).date_requested || ' , '
1842: || l_split_table(i).direction_flag || ' ] ' );
1858: END IF;
1859: end if ;
1860:
1861: IF l_debug_on THEN
1862: WSH_DEBUG_SV.logmsg(l_module_name,'[original source_line AttrIdx date-requested direction_flag]');
1863: END IF;
1864:
1865: FOR i in 1..l_split_table.count
1866: LOOP
1864:
1865: FOR i in 1..l_split_table.count
1866: LOOP
1867: IF l_debug_on THEN
1868: WSH_DEBUG_SV.logmsg(l_module_name,'[' || l_split_table(i).original_source_line_id || ' , '
1869: || l_split_table(i).source_line_id || ' , '
1870: || l_split_table(i).changed_Attributes_index || ' , '
1871: || l_split_table(i).date_requested || ' , '
1872: || l_split_table(i).direction_flag || ' ] ' );
1885:
1886: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1887: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1888: IF l_debug_on THEN
1889: WSH_DEBUG_SV.logmsg(l_module_name,' Error in split_records_int ' );
1890: END IF;
1891: END IF;
1892:
1893: END IF ; --} if count > 1
1895: x_return_status := l_return_status ;
1896:
1897: --Debug message added in bug 9265925
1898: IF l_debug_on THEN
1899: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
1900: WSH_DEBUG_SV.pop(l_module_name);
1901: END IF;
1902: --
1903: EXCEPTION
1896:
1897: --Debug message added in bug 9265925
1898: IF l_debug_on THEN
1899: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
1900: WSH_DEBUG_SV.pop(l_module_name);
1901: END IF;
1902: --
1903: EXCEPTION
1904:
1904:
1905: WHEN others THEN
1906: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_ACTIONS_PVT.Split_records ');
1907: IF l_debug_on THEN
1908: WSH_DEBUG_SV.logmsg(l_module_name,SQLCODE || ' : ' || SQLERRM );
1909: END IF;
1910: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1911:
1912: END split_Records ;
1933: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1934: --
1935: IF l_debug_on IS NULL
1936: THEN
1937: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1938: END IF;
1939: --
1940: IF l_debug_on THEN
1941: WSH_DEBUG_SV.push(l_module_name);
1937: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1938: END IF;
1939: --
1940: IF l_debug_on THEN
1941: WSH_DEBUG_SV.push(l_module_name);
1942: --
1943: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1944: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
1945: END IF;
1939: --
1940: IF l_debug_on THEN
1941: WSH_DEBUG_SV.push(l_module_name);
1942: --
1943: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1944: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
1945: END IF;
1946: --
1947: l_rs := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1940: IF l_debug_on THEN
1941: WSH_DEBUG_SV.push(l_module_name);
1942: --
1943: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1944: WSH_DEBUG_SV.log(l_module_name,'P_INTERFACE_FLAG',P_INTERFACE_FLAG);
1945: END IF;
1946: --
1947: l_rs := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1948: <
1962: x_update_allowed => l_update_allowed,
1963: x_return_status => l_rs);
1964:
1965: IF l_debug_on THEN
1966: WSH_DEBUG_SV.log(l_module_name, 'AFTER CALLING WSH_USA_CATEGORIES_PVT.CHECK_ATTRIBUTES: L_RS', L_RS );
1967: WSH_DEBUG_SV.log(l_module_name, 'L_UPDATE_ALLOWED', l_update_allowed);
1968: END IF;
1969:
1970: IF NVL(l_update_allowed, 'N') = 'N' THEN
1963: x_return_status => l_rs);
1964:
1965: IF l_debug_on THEN
1966: WSH_DEBUG_SV.log(l_module_name, 'AFTER CALLING WSH_USA_CATEGORIES_PVT.CHECK_ATTRIBUTES: L_RS', L_RS );
1967: WSH_DEBUG_SV.log(l_module_name, 'L_UPDATE_ALLOWED', l_update_allowed);
1968: END IF;
1969:
1970: IF NVL(l_update_allowed, 'N') = 'N' THEN
1971: -- bug 5387341: to prevent data corruption, we should return
1995: EXIT records_loop;
1996: END IF;
1997: --
1998: IF l_debug_on THEN
1999: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING WSH_USA_ACTIONS_PVT.UPDATE_ATTRIBUTES ' || L_RS );
2000: END IF;
2001: --
2002: END IF; -- l_update_allowed = 'Y'
2003:
2007:
2008: x_return_status := l_rs;
2009: --
2010: IF l_debug_on THEN
2011: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
2012: WSH_DEBUG_SV.pop(l_module_name);
2013: END IF;
2014: --
2015: EXCEPTION
2008: x_return_status := l_rs;
2009: --
2010: IF l_debug_on THEN
2011: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
2012: WSH_DEBUG_SV.pop(l_module_name);
2013: END IF;
2014: --
2015: EXCEPTION
2016: WHEN OTHERS THEN
2017: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2018: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.Update_Records',l_module_name);
2019: --
2020: IF l_debug_on THEN
2021: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2022: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2023: END IF;
2024: --
2025: END Update_Records;
2018: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.Update_Records',l_module_name);
2019: --
2020: IF l_debug_on THEN
2021: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2022: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2023: END IF;
2024: --
2025: END Update_Records;
2026:
2181: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2182: --
2183: IF l_debug_on IS NULL
2184: THEN
2185: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2186: END IF;
2187: --
2188: --
2189: IF l_debug_on THEN
2186: END IF;
2187: --
2188: --
2189: IF l_debug_on THEN
2190: WSH_DEBUG_SV.push(l_module_name);
2191: --
2192: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2193: WSH_DEBUG_SV.log(l_module_name,'p_interface_flag',p_interface_flag);
2194: END IF;
2188: --
2189: IF l_debug_on THEN
2190: WSH_DEBUG_SV.push(l_module_name);
2191: --
2192: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2193: WSH_DEBUG_SV.log(l_module_name,'p_interface_flag',p_interface_flag);
2194: END IF;
2195: --
2196: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2189: IF l_debug_on THEN
2190: WSH_DEBUG_SV.push(l_module_name);
2191: --
2192: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2193: WSH_DEBUG_SV.log(l_module_name,'p_interface_flag',p_interface_flag);
2194: END IF;
2195: --
2196: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2197:
2200: IF l_gc3_is_installed IS NULL THEN
2201: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
2202: END IF;
2203: IF l_debug_on THEN
2204: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed',l_gc3_is_installed);
2205: END IF;
2206: --OTM R12
2207:
2208: SAVEPOINT before_changes;
2281: l_ship_from_location_id, x_return_status);
2282:
2283: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2284: IF l_debug_on THEN
2285: WSH_DEBUG_SV.log(l_module_name,'get_reservable_flag returned error');
2286: END IF;
2287: raise Update_Failed;
2288: END IF;
2289:
2309: l_ship_to_location_id, x_return_status);
2310:
2311: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2312: IF l_debug_on THEN
2313: WSH_DEBUG_SV.log(l_module_name,'GET_LOCATION_ID failed');
2314: END IF;
2315: raise Update_Failed;
2316: END IF;
2317:
2323: l_deliver_to_location_id, x_return_status);
2324:
2325: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2326: IF l_debug_on THEN
2327: WSH_DEBUG_SV.log(l_module_name,'procedure GET_LOCATION_ID failed');
2328: END IF;
2329: raise Update_Failed;
2330: END IF;
2331:
2338: l_intmed_ship_to_location_id, x_return_status);
2339:
2340: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2341: IF l_debug_on THEN
2342: WSH_DEBUG_SV.log(l_module_name,'program GET_LOCATION_ID failed');
2343: END IF;
2344: raise Update_Failed;
2345: END IF;
2346:
2355: l_deliver_to_location_id, x_return_status);
2356:
2357: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2358: IF l_debug_on THEN
2359: WSH_DEBUG_SV.log(l_module_name,'GET_LOCATION_ID failed for ship_to');
2360: END IF;
2361: raise Update_Failed;
2362: END IF;
2363:
2366: IF l_gc3_is_installed = 'Y' THEN
2367: IF ( p_attributes_rec.ship_from_org_id IS NOT NULL AND
2368: p_attributes_rec.ship_from_org_id <> FND_API.G_MISS_NUM) THEN
2369: IF l_debug_on THEN
2370: WSH_DEBUG_SV.log(l_module_name,'Before call to WSH_SHIPPING_PARAMS_PVT.Get to parameter values for Org',
2371: p_attributes_rec.ship_from_org_id );
2372: END IF;
2373: WSH_SHIPPING_PARAMS_PVT.Get(
2374: p_organization_id => p_attributes_rec.ship_from_org_id,
2375: p_client_id => p_attributes_rec.client_id, -- LSP PROJECT.
2376: x_param_info => l_shipping_param_info,
2377: x_return_status => l_return_status);
2378: IF l_debug_on THEN
2379: WSH_DEBUG_SV.log(l_module_name,'After call to WSH_SHIPPING_PARAMS_PVT.Get l_return_status ',l_return_status);
2380: WSH_DEBUG_SV.log(l_module_name,'l_shipping_param_info.otm_enabled ',l_shipping_param_info.otm_enabled);
2381: END IF;
2382:
2383: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2376: x_param_info => l_shipping_param_info,
2377: x_return_status => l_return_status);
2378: IF l_debug_on THEN
2379: WSH_DEBUG_SV.log(l_module_name,'After call to WSH_SHIPPING_PARAMS_PVT.Get l_return_status ',l_return_status);
2380: WSH_DEBUG_SV.log(l_module_name,'l_shipping_param_info.otm_enabled ',l_shipping_param_info.otm_enabled);
2381: END IF;
2382:
2383: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2384: Raise Update_failed;
2419: IF (p_attributes_rec.shipping_method_code IS NOT NULL AND p_attributes_rec.shipping_method_code <> FND_API.G_MISS_CHAR) THEN
2420: l_smc:=p_attributes_rec.shipping_method_code;
2421: END IF;
2422: IF l_debug_on THEN
2423: WSH_DEBUG_SV.log(l_module_name,'l_orgid', l_orgid);
2424: WSH_DEBUG_SV.log(l_module_name,'l_carrierid', l_carrierid);
2425: WSH_DEBUG_SV.log(l_module_name,'l_smc', l_smc);
2426: END IF;
2427:
2420: l_smc:=p_attributes_rec.shipping_method_code;
2421: END IF;
2422: IF l_debug_on THEN
2423: WSH_DEBUG_SV.log(l_module_name,'l_orgid', l_orgid);
2424: WSH_DEBUG_SV.log(l_module_name,'l_carrierid', l_carrierid);
2425: WSH_DEBUG_SV.log(l_module_name,'l_smc', l_smc);
2426: END IF;
2427:
2428: l_wh_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type
2421: END IF;
2422: IF l_debug_on THEN
2423: WSH_DEBUG_SV.log(l_module_name,'l_orgid', l_orgid);
2424: WSH_DEBUG_SV.log(l_module_name,'l_carrierid', l_carrierid);
2425: WSH_DEBUG_SV.log(l_module_name,'l_smc', l_smc);
2426: END IF;
2427:
2428: l_wh_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type
2429: (p_organization_id => l_orgid,
2433: x_return_status => l_return_status
2434: );
2435:
2436: IF l_debug_on THEN
2437: WSH_DEBUG_SV.log(l_module_name,' Get_Warehouse_Type l_wh_type,l_return_status',l_wh_type||l_return_status);
2438: END IF;
2439:
2440: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2441: IF l_debug_on THEN
2438: END IF;
2439:
2440: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2441: IF l_debug_on THEN
2442: WSH_DEBUG_SV.log(l_module_name,'Get_Warehouse_Type failed');
2443: END IF;
2444: raise Update_Failed;
2445: END IF;
2446:
2454: ELSE
2455: l_ignore_for_planning:='Y';
2456: END IF;
2457: IF l_debug_on THEN
2458: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning ',
2459: l_ignore_for_planning );
2460: END IF;
2461: --OTM R12 End
2462: END IF; --}
2464: END IF; --tp_is_installed
2465:
2466: --OTM R12 Start Org-Specific
2467: IF l_debug_on THEN
2468: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning ',
2469: l_ignore_for_planning );
2470: END IF;
2471: --OTM R12 End
2472:
2475: AND p_attributes_rec.shipping_method_code <> FND_API.G_MISS_CHAR) THEN
2476:
2477: l_carrier_rec.ship_method_code := p_attributes_rec.shipping_method_code;
2478: IF l_debug_on THEN
2479: WSH_DEBUG_SV.log(l_module_name,'ship_method_code ',p_attributes_rec.shipping_method_code);
2480: END IF;
2481:
2482: WSH_CARRIERS_GRP.get_carrier_service_mode(
2483: p_carrier_service_inout_rec => l_carrier_rec,
2484: x_return_status => x_return_status);
2485:
2486: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2487: IF l_debug_on THEN
2488: WSH_DEBUG_SV.log(l_module_name,'procedure get_carrier_service_mode failed');
2489: END IF;
2490: raise Update_Failed;
2491: END IF;
2492:
3014: AND (p_attributes_rec.intmed_ship_to_org_id <> FND_API.G_MISS_NUM) THEN
3015: l_mark_reprice_flag := 'Y';
3016: END IF;
3017: IF l_debug_on THEN
3018: WSH_DEBUG_SV.log(l_module_name,'l_mark_reprice_flag',l_mark_reprice_flag);
3019: END IF;
3020:
3021: /* 4410272
3022: FOR cur in c_get_delivery_detail_id LOOP
3038:
3039: -- Added for bug 4410272
3040: --
3041: IF l_debug_on THEN
3042: WSH_DEBUG_SV.log(l_module_name, 'TP Details count', l_tp_details.count);
3043: END IF;
3044: --
3045: -- IF condition added for bug 4410272
3046: IF ( l_tp_details.COUNT > 0 )
3054: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
3055: WSH_INTERFACE.PrintMsg(name=>'WSH_CALC_CONT_DEL_TPDATES',
3056: txt=>'Error in calculating Container/Delivery TP dates ');
3057: IF l_debug_on THEN
3058: WSH_DEBUG_SV.log(l_module_name,'Error in calculating Container/Delivery TP dates ');
3059: END IF;
3060: END IF;
3061: END IF;
3062: --
3064: -- Update of wsh_delivery_details where requested_quantity/released_status
3065: -- are changed, call DBI API after the update.
3066: -- This API will also check for DBI Installed or not
3067: IF l_debug_on THEN
3068: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API delivery details l_details_marked count :',l_details_marked.COUNT);
3069: END IF;
3070: WSH_INTEGRATION.DBI_Update_Detail_Log
3071: (p_delivery_detail_id_tab => l_details_marked,
3072: p_dml_type => 'UPDATE',
3072: p_dml_type => 'UPDATE',
3073: x_return_status => l_dbi_rs);
3074:
3075: IF l_debug_on THEN
3076: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
3077: END IF;
3078: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3079: x_return_status := l_dbi_rs;
3080: ROLLBACK to before_changes;
3079: x_return_status := l_dbi_rs;
3080: ROLLBACK to before_changes;
3081: -- just pass this return status to caller API
3082: IF l_debug_on THEN
3083: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
3084: WSH_DEBUG_SV.pop(l_module_name);
3085: END IF;
3086: return;
3087: END IF;
3080: ROLLBACK to before_changes;
3081: -- just pass this return status to caller API
3082: IF l_debug_on THEN
3083: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
3084: WSH_DEBUG_SV.pop(l_module_name);
3085: END IF;
3086: return;
3087: END IF;
3088: -- End of Code for DBI Project
3088: -- End of Code for DBI Project
3089: --
3090: --
3091: IF l_debug_on THEN
3092: WSH_DEBUG_SV.pop(l_module_name);
3093: END IF;
3094: --
3095: EXCEPTION
3096: WHEN mark_reprice_error then
3098: x_return_status := l_return_status;
3099: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3100: --
3101: IF l_debug_on THEN
3102: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3103: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3104: END IF;
3105: --
3106: WHEN Update_Failed THEN
3099: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3100: --
3101: IF l_debug_on THEN
3102: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3103: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3104: END IF;
3105: --
3106: WHEN Update_Failed THEN
3107: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_LOCATION');
3106: WHEN Update_Failed THEN
3107: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_LOCATION');
3108: --
3109: IF l_debug_on THEN
3110: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_FAILED');
3112: END IF;
3113: --
3114: WHEN others THEN
3107: FND_MESSAGE.Set_Name('WSH', 'WSH_INVALID_LOCATION');
3108: --
3109: IF l_debug_on THEN
3110: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_FAILED');
3112: END IF;
3113: --
3114: WHEN others THEN
3115: IF c_is_reservable%ISOPEN THEN
3120: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3121: wsh_util_core.default_handler('WSH_USA_ACTIONS.Update_Attributes',l_module_name);
3122: --
3123: IF l_debug_on THEN
3124: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3125: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3126: END IF;
3127: --
3128: END Update_Attributes;
3121: wsh_util_core.default_handler('WSH_USA_ACTIONS.Update_Attributes',l_module_name);
3122: --
3123: IF l_debug_on THEN
3124: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3125: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3126: END IF;
3127: --
3128: END Update_Attributes;
3129:
3522: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3523: --
3524: IF l_debug_on IS NULL
3525: THEN
3526: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3527: END IF;
3528: --
3529: IF l_debug_on THEN
3530: WSH_DEBUG_SV.push(l_module_name);
3526: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3527: END IF;
3528: --
3529: IF l_debug_on THEN
3530: WSH_DEBUG_SV.push(l_module_name);
3531: --
3532: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
3533: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
3534: END IF;
3528: --
3529: IF l_debug_on THEN
3530: WSH_DEBUG_SV.push(l_module_name);
3531: --
3532: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
3533: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
3534: END IF;
3535: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3536:
3529: IF l_debug_on THEN
3530: WSH_DEBUG_SV.push(l_module_name);
3531: --
3532: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
3533: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
3534: END IF;
3535: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3536:
3537: --OTM R12, initialize
3552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3553: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
3554: --
3555: IF l_debug_on THEN
3556: WSH_DEBUG_SV.pop(l_module_name);
3557: END IF;
3558: --
3559: RETURN;
3560: END IF;
3598: -- Bug: 1902176. Need to Lock the oe_line (Current Line fetched)
3599: BEGIN -- 1902176: Block to Lock Oe_line REcord and to TRap NO WAIT error
3600: -- 1902176 :Requerying record - FOR UPDATE NOWAIT (locking this record)
3601: IF l_debug_on THEN
3602: WSH_DEBUG_SV.log(l_module_name,'line_id',ln_rec_info.line_id);
3603: END IF;
3604: OPEN C_OE_LINES_REC_LOCK( ln_rec_info.line_id); -- 1902176
3605: FETCH C_OE_LINES_REC_LOCK INTO l_oe_line_id_locked; -- 1902176
3606:
3613: l_ship_from_location_id, l_location_status);
3614:
3615: IF (l_location_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3616: IF l_debug_on THEN
3617: WSH_DEBUG_SV.log(l_module_name,'Failed to get location for line: '||ln_rec_info.line_id||' org:'||ln_rec_info.ship_from_org_id);
3618: END IF;
3619: l_booked_ln_excpn := TRUE;
3620: GOTO start_over;
3621: END IF;
3627: WSH_INTERFACE.PrintMsg(name=>'WSH_DET_NO_LOCATION_FOR_ORG',
3628: txt=>'Failed to get location for line: '||ln_rec_info.line_id||
3629: ' ship to org:'||ln_rec_info.ship_to_org_id);
3630: IF l_debug_on THEN
3631: WSH_DEBUG_SV.log(l_module_name,'Failed to get location for line: '||ln_rec_info.line_id|| ' ship to org:'||ln_rec_info.ship_to_org_id);
3632: END IF;
3633: l_booked_ln_excpn := TRUE;
3634: GOTO start_over;
3635: END IF;
3642: WSH_INTERFACE.PrintMsg(name=>'WSH_DET_NO_LOCATION_FOR_ORG',
3643: txt=> 'Failed to get location for line: '||ln_rec_info.line_id||
3644: ' delivery to org:'||ln_rec_info.deliver_to_org_id);
3645: IF l_debug_on THEN
3646: WSH_DEBUG_SV.log(l_module_name,'Failed to get location for line: '||ln_rec_info.line_id||' delivery to org:'||ln_rec_info.deliver_to_org_id);
3647: END IF;
3648: l_booked_ln_excpn := TRUE;
3649: GOTO start_over;
3650: END IF;
3658: WSH_INTERFACE.PrintMsg(name=>'WSH_DET_NO_LOCATION_FOR_ORG',
3659: txt=> 'Failed to get location for line: '||ln_rec_info.line_id||
3660: ' intermediate ship to org:'||ln_rec_info.intmed_ship_to_org_id);
3661: IF l_debug_on THEN
3662: WSH_DEBUG_SV.log(l_module_name,'Failed to get location for line: '||ln_rec_info.line_id||' intermediate ship to org:'||ln_rec_info.intmed_ship_to_org_id);
3663: END IF;
3664: l_booked_ln_excpn := TRUE;
3665: GOTO start_over;
3666: END IF;
3674: OPEN c_shipping_parameters(ln_rec_info.ship_from_org_id);
3675: FETCH c_shipping_parameters INTO l_ship_parameters;
3676: IF ( c_shipping_parameters%NOTFOUND ) THEN
3677: IF l_debug_on THEN
3678: WSH_DEBUG_SV.log(l_module_name,'Shipping Parameters notfound for warehuse:'||ln_rec_info.ship_from_org_id);
3679: END IF;
3680: WSH_INTERFACE.PrintMsg(txt=>'Shipping Parameters notfound for warehouse:'||ln_rec_info.ship_from_org_id);
3681: END IF;
3682: CLOSE c_shipping_parameters;
3727: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
3728: WSH_INTERFACE.PrintMsg(name=>'WSH_CALC_TP_DATES',
3729: txt=>'Error in calculating TP dates: '||ln_rec_info.order_date_type_code||ln_rec_info.latest_acceptable_date||ln_rec_info.promise_date||ln_rec_info.schedule_arrival_date||ln_rec_info.earliest_acceptable_date||ln_rec_info.earliest_ship_date);
3730: IF l_debug_on THEN
3731: WSH_DEBUG_SV.log(l_module_name,'Error in calculating TP dates: ' ||
3732: ln_rec_info.order_date_type_code ||
3733: ln_rec_info.latest_acceptable_date ||
3734: ln_rec_info.promise_date ||
3735: ln_rec_info.schedule_arrival_date ||
3801: l_delivery_details_info.src_requested_quantity_uom2 := ln_rec_info.ordered_quantity_uom2;
3802: --
3803: -- HW OPMCONV. Removed reference to OPM in the debugging statements
3804: IF l_debug_on THEN
3805: WSH_DEBUG_SV.logmsg(l_module_name, 'LN_REC_INFO.PREFERRED_GRADE IS ' || LN_REC_INFO.PREFERRED_GRADE );
3806: WSH_DEBUG_SV.logmsg(l_module_name, 'LN_REC_INFO.ORDERED_QUANTITY2 IS ' || LN_REC_INFO.ORDERED_QUANTITY2 );
3807: END IF;
3808: --
3809: l_delivery_details_info.cancelled_quantity2:= NULL;
3802: --
3803: -- HW OPMCONV. Removed reference to OPM in the debugging statements
3804: IF l_debug_on THEN
3805: WSH_DEBUG_SV.logmsg(l_module_name, 'LN_REC_INFO.PREFERRED_GRADE IS ' || LN_REC_INFO.PREFERRED_GRADE );
3806: WSH_DEBUG_SV.logmsg(l_module_name, 'LN_REC_INFO.ORDERED_QUANTITY2 IS ' || LN_REC_INFO.ORDERED_QUANTITY2 );
3807: END IF;
3808: --
3809: l_delivery_details_info.cancelled_quantity2:= NULL;
3810: -- odaboval : End of OPM Changes
3815: l_delivery_details_info.date_scheduled := ln_rec_info.date_scheduled;
3816: l_delivery_details_info.load_seq_number := NULL;
3817: IF ln_rec_info.shipping_method_code IS NOT NULL THEN
3818: IF l_debug_on THEN
3819: WSH_DEBUG_SV.logmsg(l_module_name, ' shipping_method_code: ' || ln_rec_info.shipping_method_code );
3820: END IF;
3821:
3822: l_carrier_rec.ship_method_code := ln_rec_info.shipping_method_code;
3823: WSH_CARRIERS_GRP.get_carrier_service_mode(
3824: p_carrier_service_inout_rec => l_carrier_rec,
3825: x_return_status => x_return_status);
3826:
3827: IF l_debug_on THEN
3828: WSH_DEBUG_SV.logmsg(l_module_name, ' shipping_method_code: ' || l_carrier_rec.ship_method_code );
3829: WSH_DEBUG_SV.logmsg(l_module_name, ' generic: ' || l_carrier_rec.generic_flag );
3830: WSH_DEBUG_SV.logmsg(l_module_name, ' service_level: ' || l_carrier_rec.service_level );
3831: WSH_DEBUG_SV.logmsg(l_module_name, ' mode_of_transport: ' || l_carrier_rec.mode_of_transport );
3832: END IF;
3825: x_return_status => x_return_status);
3826:
3827: IF l_debug_on THEN
3828: WSH_DEBUG_SV.logmsg(l_module_name, ' shipping_method_code: ' || l_carrier_rec.ship_method_code );
3829: WSH_DEBUG_SV.logmsg(l_module_name, ' generic: ' || l_carrier_rec.generic_flag );
3830: WSH_DEBUG_SV.logmsg(l_module_name, ' service_level: ' || l_carrier_rec.service_level );
3831: WSH_DEBUG_SV.logmsg(l_module_name, ' mode_of_transport: ' || l_carrier_rec.mode_of_transport );
3832: END IF;
3833: END IF;
3826:
3827: IF l_debug_on THEN
3828: WSH_DEBUG_SV.logmsg(l_module_name, ' shipping_method_code: ' || l_carrier_rec.ship_method_code );
3829: WSH_DEBUG_SV.logmsg(l_module_name, ' generic: ' || l_carrier_rec.generic_flag );
3830: WSH_DEBUG_SV.logmsg(l_module_name, ' service_level: ' || l_carrier_rec.service_level );
3831: WSH_DEBUG_SV.logmsg(l_module_name, ' mode_of_transport: ' || l_carrier_rec.mode_of_transport );
3832: END IF;
3833: END IF;
3834: IF l_carrier_rec.generic_flag = 'Y' THEN
3827: IF l_debug_on THEN
3828: WSH_DEBUG_SV.logmsg(l_module_name, ' shipping_method_code: ' || l_carrier_rec.ship_method_code );
3829: WSH_DEBUG_SV.logmsg(l_module_name, ' generic: ' || l_carrier_rec.generic_flag );
3830: WSH_DEBUG_SV.logmsg(l_module_name, ' service_level: ' || l_carrier_rec.service_level );
3831: WSH_DEBUG_SV.logmsg(l_module_name, ' mode_of_transport: ' || l_carrier_rec.mode_of_transport );
3832: END IF;
3833: END IF;
3834: IF l_carrier_rec.generic_flag = 'Y' THEN
3835: l_delivery_details_info.ship_method_code := NULL;
3942: IF (l_delivery_details_info.source_line_set_id IS NOT NULL) THEN
3943: WSH_INTERFACE.PrintMsg(txt=> 'Source Line Set id -'||l_delivery_details_info.source_line_set_id);
3944: END IF;
3945: IF l_debug_on THEN
3946: WSH_DEBUG_SV.log(l_module_name,'Source Line Set id -'||l_delivery_details_info.source_line_set_id);
3947: END IF;
3948:
3949: WSH_DELIVERY_DETAILS_PKG.Create_Delivery_Details( l_delivery_details_info, dummy_rowid,
3950: DUMMY_DELIVERY_DETAIL_ID,
4023: NULL);
4024: l_item_quantity_uom_tab(1) := l_delivery_details_info.requested_quantity_uom;
4025:
4026: IF l_debug_on THEN
4027: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split',WSH_DEBUG_SV.C_PROC_LEVEL);
4028: END IF;
4029:
4030: WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split(
4031: p_detail_tab => l_delivery_detail_tab,
4032: p_item_quantity_uom_tab => l_item_quantity_uom_tab,
4033: x_return_status => l_return_status);
4034:
4035: IF l_debug_on THEN
4036: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split: ' || l_return_status);
4037: END IF;
4038:
4039: -- we will not fail based on l_return_status here because
4040: -- we do not want to stop the flow
4054: /* Replace process order with update_shipping_interface API for better
4055: performance
4056: */
4057: IF l_debug_on THEN
4058: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit OE_SHIPPING_INTEGRATION_PUB.UPDATE_SHIPPING_INTERFACE',WSH_DEBUG_SV.C_PROC_LEVEL);
4059: END IF;
4060: --
4061: OE_Shipping_Integration_PUB.Update_Shipping_Interface(
4062: p_api_version_number => 1.0,
4070: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) or (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4071: THEN
4072: --
4073: IF l_debug_on THEN
4074: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: OE_SHIPPING_INTEGRATION_PUB.UPDATE_SHIPPING_INTERFACE RETURNED ' || L_RETURN_STATUS );
4075: END IF;
4076: --
4077: WSH_INTERFACE.PrintMsg(name=>'WSH_DET_PROCESS_ORDER_FAILED',
4078: txt=>'Update_Shipping_Interface failed for line:' || ln_rec_info.line_id );
4081: FOR k IN 1 .. l_msg_count LOOP
4082: l_msg_data := OE_MSG_PUB.GET( p_msg_index => k, p_encoded => 'F');
4083: --
4084: IF l_debug_on THEN
4085: WSH_DEBUG_SV.log(l_module_name,'l_msg_data',SUBSTR(l_msg_data,1,200));
4086: END IF;
4087: --
4088: WSH_INTERFACE.PrintMsg(txt=>substr(l_msg_data,1,255));
4089: END LOOP;
4092: GOTO Start_Over;
4093: ELSE
4094: --
4095: IF l_debug_on THEN
4096: WSH_DEBUG_SV.logmsg(l_module_name, 'OE_SHIPPING_INTEGRATION_PUB.UPDATE_SHIPPING_INTERFACE RETURNED ' || L_RETURN_STATUS );
4097: END IF;
4098: --
4099: l_wf_source_header_id := l_delivery_details_info.source_header_id;
4100: l_wf_source_code := l_delivery_details_info.source_code;
4111: END IF;
4112:
4113: --
4114: IF l_debug_on THEN
4115: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_HEADER_ID : ' || L_WF_SOURCE_HEADER_ID );
4116: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4117: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4118: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4119: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_ID : ' || L_WF_CONTACT_ID );
4112:
4113: --
4114: IF l_debug_on THEN
4115: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_HEADER_ID : ' || L_WF_SOURCE_HEADER_ID );
4116: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4117: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4118: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4119: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_ID : ' || L_WF_CONTACT_ID );
4120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF.START_WORKFLOW',WSH_DEBUG_SV.C_PROC_LEVEL);
4113: --
4114: IF l_debug_on THEN
4115: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_HEADER_ID : ' || L_WF_SOURCE_HEADER_ID );
4116: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4117: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4118: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4119: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_ID : ' || L_WF_CONTACT_ID );
4120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF.START_WORKFLOW',WSH_DEBUG_SV.C_PROC_LEVEL);
4121: END IF;
4114: IF l_debug_on THEN
4115: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_HEADER_ID : ' || L_WF_SOURCE_HEADER_ID );
4116: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4117: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4118: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4119: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_ID : ' || L_WF_CONTACT_ID );
4120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF.START_WORKFLOW',WSH_DEBUG_SV.C_PROC_LEVEL);
4121: END IF;
4122: --
4115: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_HEADER_ID : ' || L_WF_SOURCE_HEADER_ID );
4116: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4117: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4118: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4119: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_ID : ' || L_WF_CONTACT_ID );
4120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF.START_WORKFLOW',WSH_DEBUG_SV.C_PROC_LEVEL);
4121: END IF;
4122: --
4123: WSH_WF.Start_Workflow( l_wf_source_header_id, l_wf_source_code,
4116: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4117: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4118: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4119: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_ID : ' || L_WF_CONTACT_ID );
4120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF.START_WORKFLOW',WSH_DEBUG_SV.C_PROC_LEVEL);
4121: END IF;
4122: --
4123: WSH_WF.Start_Workflow( l_wf_source_header_id, l_wf_source_code,
4124: l_wf_order_number, l_wf_contact_type,
4126:
4127: IF (l_result = TRUE) THEN
4128: --
4129: IF l_debug_on THEN
4130: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_WF.START_WORKFLOW : RETURNED TRUE' );
4131: END IF;
4132: --
4133: WSH_INTERFACE.PrintMsg(txt=>'Started workflow for '||l_wf_source_header_id||'-'||l_wf_source_code||'-'||
4134: l_wf_contact_type||'-'||l_wf_contact_id);
4134: l_wf_contact_type||'-'||l_wf_contact_id);
4135: ELSE
4136: --
4137: IF l_debug_on THEN
4138: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_WF.START_WORKFLOW : DID NOT RETURNED TRUE' );
4139: END IF;
4140: --
4141: WSH_INTERFACE.PrintMsg(txt=>'Did not Start workflow for '||l_wf_source_header_id||'-'||l_wf_source_code||'-'||
4142: l_wf_contact_type||'-'||l_wf_contact_id);
4142: l_wf_contact_type||'-'||l_wf_contact_id);
4143: END IF;
4144: --
4145: IF l_debug_on THEN
4146: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING WSH_WF.START_WORKFLOW ' );
4147: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_HEADER_ID : ' || L_WF_SOURCE_HEADER_ID );
4148: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4149: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4150: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4143: END IF;
4144: --
4145: IF l_debug_on THEN
4146: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING WSH_WF.START_WORKFLOW ' );
4147: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_HEADER_ID : ' || L_WF_SOURCE_HEADER_ID );
4148: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4149: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4150: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4151: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_ID : ' || L_WF_CONTACT_ID );
4144: --
4145: IF l_debug_on THEN
4146: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING WSH_WF.START_WORKFLOW ' );
4147: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_HEADER_ID : ' || L_WF_SOURCE_HEADER_ID );
4148: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4149: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4150: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4151: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_ID : ' || L_WF_CONTACT_ID );
4152: END IF;
4145: IF l_debug_on THEN
4146: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING WSH_WF.START_WORKFLOW ' );
4147: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_HEADER_ID : ' || L_WF_SOURCE_HEADER_ID );
4148: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4149: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4150: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4151: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_ID : ' || L_WF_CONTACT_ID );
4152: END IF;
4153: --
4146: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING WSH_WF.START_WORKFLOW ' );
4147: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_HEADER_ID : ' || L_WF_SOURCE_HEADER_ID );
4148: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4149: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4150: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4151: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_ID : ' || L_WF_CONTACT_ID );
4152: END IF;
4153: --
4154: END IF;
4147: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_HEADER_ID : ' || L_WF_SOURCE_HEADER_ID );
4148: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_SOURCE_CODE : ' || L_WF_SOURCE_CODE );
4149: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_ORDER_NUMBER : ' || L_WF_ORDER_NUMBER );
4150: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_TYPE : ' || L_WF_CONTACT_TYPE );
4151: WSH_DEBUG_SV.logmsg(l_module_name, 'L_WF_CONTACT_ID : ' || L_WF_CONTACT_ID );
4152: END IF;
4153: --
4154: END IF;
4155:
4162: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
4163: -- some one else is currently working on this line id
4164: --
4165: IF l_debug_on THEN
4166: WSH_DEBUG_SV.logmsg(l_module_name, 'IN LOCK LINE ID EXCEPTION: WSH_USA_ACTIONS_PVT.IMPORT_DELIVERY_DETAILS' );
4167: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: ' || SQLERRM );
4168: END IF;
4169: --
4170: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.IMPORT_DELIVERY_DETAILS',l_module_name);
4163: -- some one else is currently working on this line id
4164: --
4165: IF l_debug_on THEN
4166: WSH_DEBUG_SV.logmsg(l_module_name, 'IN LOCK LINE ID EXCEPTION: WSH_USA_ACTIONS_PVT.IMPORT_DELIVERY_DETAILS' );
4167: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: ' || SQLERRM );
4168: END IF;
4169: --
4170: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.IMPORT_DELIVERY_DETAILS',l_module_name);
4171: IF C_OE_LINES_REC_LOCK%ISOPEN THEN
4174: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4175: when invalid_org THEN
4176: --
4177: IF l_debug_on THEN
4178: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: INVALID_ORG' );
4179: END IF;
4180: --
4181: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_ORG');
4182: IF C_OE_LINES_REC_LOCK%ISOPEN THEN
4186: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4187: when invalid_cust_site THEN
4188: --
4189: IF l_debug_on THEN
4190: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: INVALID_CUST_SITE' );
4191: END IF;
4192: --
4193: fnd_message.set_name('WSH', 'WSH_DET_NO_LOCATION_FOR_SITE');
4194: IF C_OE_LINES_REC_LOCK%ISOPEN THEN
4198: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4199: when invalid_qty_or_uom THEN
4200: --
4201: IF l_debug_on THEN
4202: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: INVALID_QTY_OR_UOM' );
4203: END IF;
4204: --
4205: fnd_message.set_name('WSH','WSH_QTY_OR_UOM_NOT_VALID');
4206: IF C_OE_LINES_REC_LOCK%ISOPEN THEN
4210: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4211: when process_order_failed THEN
4212: --
4213: IF l_debug_on THEN
4214: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: PROCESS_ORDER_FAILED' );
4215: END IF;
4216: --
4217: fnd_message.set_name('WSH', 'WSH_DET_PROCESS_ORDER_FAILED');
4218: IF C_OE_LINES_REC_LOCK%ISOPEN THEN
4222: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4223: when create_details_failed THEN
4224: --
4225: IF l_debug_on THEN
4226: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION:CREATE_DETAILS_FAILED' );
4227: END IF;
4228: --
4229: fnd_message.set_name('WSH', 'WSH_DET_CREATE_DET_FAILED');
4230: IF C_OE_LINES_REC_LOCK%ISOPEN THEN
4234: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4235: when create_assignments_failed THEN
4236: --
4237: IF l_debug_on THEN
4238: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: CREATE_ASSIGNMENTS_FAILED' );
4239: END IF;
4240: --
4241: fnd_message.set_name('WSH', 'WSH_DET_CREATE_AS_FAILED');
4242: IF C_OE_LINES_REC_LOCK%ISOPEN THEN
4246: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4247: WHEN invalid_ship_set THEN -- bug 2373131
4248: --
4249: IF l_debug_on THEN
4250: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: INVALID SHIP SET' );
4251: END IF;
4252: --
4253: fnd_message.set_name('WSH', 'WSH_INVALID_SET');
4254: fnd_message.set_token('SHIP_SET',l_ship_set_name);
4264:
4265: WHEN OTHERS THEN
4266: --
4267: IF l_debug_on THEN
4268: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: OTHERS ' || SQLERRM );
4269: END IF;
4270: --
4271: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.IMPORT_DELIVERY_DETAILS',l_module_name);
4272: IF C_OE_LINES_REC_LOCK%ISOPEN THEN
4284: CLOSE C_PULL_ONE_LINE;
4285: END IF;
4286: --
4287: IF l_debug_on THEN
4288: WSH_DEBUG_SV.log(l_module_name, 'l_pull_lines_count',l_pull_lines_count);
4289: END IF;
4290:
4291: IF (l_pull_lines_count = 0 and p_source_line_id IS NOT NULL) THEN
4292: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4295: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
4296:
4297:
4298: IF l_debug_on THEN
4299: WSH_DEBUG_SV.logmsg(l_module_name, 'Cursor C_PULL_DELIVERY_DETAIL DID NOT FOUND ANY LINES');
4300: END IF;
4301: END IF;
4302:
4303:
4301: END IF;
4302:
4303:
4304: IF l_debug_on THEN
4305: WSH_DEBUG_SV.pop(l_module_name);
4306: END IF;
4307: --
4308: EXCEPTION
4309: -- 2680026
4309: -- 2680026
4310: when create_details_failed THEN
4311: --
4312: IF l_debug_on THEN
4313: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION:CREATE_DETAILS_FAILED' );
4314: END IF;
4315: --
4316: fnd_message.set_name('WSH', 'WSH_DET_CREATE_DET_FAILED');
4317: IF C_OE_LINES_REC_LOCK%ISOPEN THEN
4339: CLOSE C_PULL_ONE_LINE;
4340: END IF;
4341: --
4342: IF l_debug_on THEN
4343: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4344: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4345: END IF;
4346: --
4347: END Import_Delivery_Details;
4340: END IF;
4341: --
4342: IF l_debug_on THEN
4343: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4344: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4345: END IF;
4346: --
4347: END Import_Delivery_Details;
4348: