28: --
29: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_DLVB_COMMON_ACTIONS';
30: --
31: PROCEDURE Assign_Details (
32: p_detail_tab IN WSH_UTIL_CORE.id_tab_type,
33: p_parent_detail_id IN NUMBER,
34: p_delivery_id IN NUMBER,
35: p_group_api_flag IN VARCHAR2 DEFAULT NULL,
36: x_pack_status OUT NOCOPY VARCHAR2,
35: p_group_api_flag IN VARCHAR2 DEFAULT NULL,
36: x_pack_status OUT NOCOPY VARCHAR2,
37: x_return_status OUT NOCOPY VARCHAR2) IS
38:
39: l_cont_tab WSH_UTIL_CORE.id_tab_type;
40: l_detail_tab WSH_UTIL_CORE.id_tab_type;
41: l_error_tab WSH_UTIL_CORE.id_tab_type;
42:
43: l_det_rec WSH_UTIL_CORE.ID_TAB_TYPE;
36: x_pack_status OUT NOCOPY VARCHAR2,
37: x_return_status OUT NOCOPY VARCHAR2) IS
38:
39: l_cont_tab WSH_UTIL_CORE.id_tab_type;
40: l_detail_tab WSH_UTIL_CORE.id_tab_type;
41: l_error_tab WSH_UTIL_CORE.id_tab_type;
42:
43: l_det_rec WSH_UTIL_CORE.ID_TAB_TYPE;
44:
37: x_return_status OUT NOCOPY VARCHAR2) IS
38:
39: l_cont_tab WSH_UTIL_CORE.id_tab_type;
40: l_detail_tab WSH_UTIL_CORE.id_tab_type;
41: l_error_tab WSH_UTIL_CORE.id_tab_type;
42:
43: l_det_rec WSH_UTIL_CORE.ID_TAB_TYPE;
44:
45: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
39: l_cont_tab WSH_UTIL_CORE.id_tab_type;
40: l_detail_tab WSH_UTIL_CORE.id_tab_type;
41: l_error_tab WSH_UTIL_CORE.id_tab_type;
42:
43: l_det_rec WSH_UTIL_CORE.ID_TAB_TYPE;
44:
45: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
46:
47: l_cont_name VARCHAR2(30);
41: l_error_tab WSH_UTIL_CORE.id_tab_type;
42:
43: l_det_rec WSH_UTIL_CORE.ID_TAB_TYPE;
44:
45: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
46:
47: l_cont_name VARCHAR2(30);
48:
49: l_pack_status VARCHAR2(30);
49: l_pack_status VARCHAR2(30);
50:
51: l_wms_filter_flag VARCHAR2(1) := 'N';
52:
53: l_entity_ids WSH_UTIL_CORE.id_tab_type;
54: --
55: l_has_lines VARCHAR2(1) := 'N';
56: l_dlvy_freight_terms_code VARCHAR2(30);
57: l_fill_status VARCHAR2(1);
136: x_return_status =>x_return_status,
137: p_wms_filter_flag =>l_wms_filter_flag);
138:
139:
140: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
141: IF l_wms_filter_flag = 'Y' THEN
142: FND_MESSAGE.SET_NAME('WSH','WSH_SEPARATE_DET_ERROR');
143: WSH_UTIL_CORE.Add_Message(x_return_status);
144: END IF;
139:
140: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
141: IF l_wms_filter_flag = 'Y' THEN
142: FND_MESSAGE.SET_NAME('WSH','WSH_SEPARATE_DET_ERROR');
143: WSH_UTIL_CORE.Add_Message(x_return_status);
144: END IF;
145: --
146: -- Debug Statements
147: --
172: p_del_detail_tab =>l_detail_tab,
173: x_pack_status =>l_pack_status,
174: x_return_status =>l_return_status);
175:
176: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
177: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
178: l_num_warnings := l_num_warnings + 1;
179: ELSE
180: --
173: x_pack_status =>l_pack_status,
174: x_return_status =>l_return_status);
175:
176: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
177: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
178: l_num_warnings := l_num_warnings + 1;
179: ELSE
180: --
181: -- Debug Statements
186: --
187: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_parent_detail_id);
188: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_ERROR');
189: x_return_status := l_return_status;
190: WSH_UTIL_CORE.Add_Message(l_return_status);
191: --
192: -- Debug Statements
193: --
194: --IF l_debug_on THEN
215: --
216: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_parent_detail_id);
217: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_OVERPACKED');
218: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
219: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
220: WSH_UTIL_CORE.Add_Message(l_return_status);
221: x_pack_status := 'Overpacked';
222:
223: ELSIF l_fill_status = 'U' THEN
216: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_parent_detail_id);
217: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_OVERPACKED');
218: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
219: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
220: WSH_UTIL_CORE.Add_Message(l_return_status);
221: x_pack_status := 'Overpacked';
222:
223: ELSIF l_fill_status = 'U' THEN
224: IF l_debug_on THEN
227: --
228: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_parent_detail_id);
229: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
230: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
231: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
232: WSH_UTIL_CORE.Add_Message(l_return_status);
233: x_pack_status := 'Underpacked';
234: ELSE
235: x_pack_status := 'Success';
228: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_parent_detail_id);
229: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNDERPACKED');
230: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
231: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
232: WSH_UTIL_CORE.Add_Message(l_return_status);
233: x_pack_status := 'Underpacked';
234: ELSE
235: x_pack_status := 'Success';
236: END IF;
255: p_delivery_id =>p_delivery_id,
256: p_cont_ins_id =>NULL,
257: x_return_status =>l_return_status);
258:
259: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
260: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
261: l_num_warnings := l_num_warnings + 1;
262: ELSE
263: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_ASSG_ERROR');
256: p_cont_ins_id =>NULL,
257: x_return_status =>l_return_status);
258:
259: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
260: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
261: l_num_warnings := l_num_warnings + 1;
262: ELSE
263: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_ASSG_ERROR');
264: x_return_status := l_return_status;
261: l_num_warnings := l_num_warnings + 1;
262: ELSE
263: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_ASSG_ERROR');
264: x_return_status := l_return_status;
265: WSH_UTIL_CORE.Add_Message(l_return_status);
266: --
267: -- Debug Statements
268: --
269: --IF l_debug_on THEN
308: p_det_cont_inst_id =>l_cont_tab(i),
309: p_par_cont_inst_id =>p_parent_detail_id,
310: x_return_status =>l_return_status);
311:
312: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
313: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
314: l_num_warnings := l_num_warnings + 1;
315: ELSE
316: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ERROR');
309: p_par_cont_inst_id =>p_parent_detail_id,
310: x_return_status =>l_return_status);
311:
312: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
313: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
314: l_num_warnings := l_num_warnings + 1;
315: ELSE
316: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ERROR');
317: x_return_status := l_return_status;
314: l_num_warnings := l_num_warnings + 1;
315: ELSE
316: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ERROR');
317: x_return_status := l_return_status;
318: WSH_UTIL_CORE.Add_Message(l_return_status);
319: --
320: -- Debug Statements
321: --
322: --IF l_debug_on THEN
357: x_dlvy_has_lines => l_has_lines,
358: x_dlvy_freight_terms_code => l_dlvy_freight_terms_code
359: );
360:
361: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
362: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
363: l_num_warnings := l_num_warnings + 1;
364: ELSE
365: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ERROR');
358: x_dlvy_freight_terms_code => l_dlvy_freight_terms_code
359: );
360:
361: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
362: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
363: l_num_warnings := l_num_warnings + 1;
364: ELSE
365: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ERROR');
366: x_return_status := l_return_status;
363: l_num_warnings := l_num_warnings + 1;
364: ELSE
365: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ERROR');
366: x_return_status := l_return_status;
367: WSH_UTIL_CORE.Add_Message(l_return_status);
368: --
369: -- Debug Statements
370: --
371: --IF l_debug_on THEN
402: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
403: p_entity_type => 'DELIVERY_DETAIL',
404: p_entity_ids => l_entity_ids,
405: x_return_status => l_return_status);
406: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
407: FND_MESSAGE.SET_NAME('WSH','WSH_REPRICE_REQUIRED_ERR');
408: WSH_UTIL_CORE.Add_Message(l_return_status);
409: END IF;
410:
404: p_entity_ids => l_entity_ids,
405: x_return_status => l_return_status);
406: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
407: FND_MESSAGE.SET_NAME('WSH','WSH_REPRICE_REQUIRED_ERR');
408: WSH_UTIL_CORE.Add_Message(l_return_status);
409: END IF;
410:
411: END IF;
412: IF p_delivery_id is NOT NULL THEN
422: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
423: p_entity_type => 'DELIVERY',
424: p_entity_ids => l_entity_ids,
425: x_return_status => l_return_status);
426: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
427: FND_MESSAGE.SET_NAME('WSH','WSH_REPRICE_REQUIRED_ERR');
428: WSH_UTIL_CORE.Add_Message(l_return_status);
429: END IF;
430: END IF;
424: p_entity_ids => l_entity_ids,
425: x_return_status => l_return_status);
426: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
427: FND_MESSAGE.SET_NAME('WSH','WSH_REPRICE_REQUIRED_ERR');
428: WSH_UTIL_CORE.Add_Message(l_return_status);
429: END IF;
430: END IF;
431:
432: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
428: WSH_UTIL_CORE.Add_Message(l_return_status);
429: END IF;
430: END IF;
431:
432: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
433: x_pack_status := 'Warning';
434: x_return_status := l_return_status;
435: --
436: -- Debug Statements
443: raise e_return_excp; -- LPN CONV. rv
444: ELSE
445: IF l_num_warnings > 0 THEN
446: x_pack_status := 'Warning';
447: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
448: ELSE
449: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
450: x_pack_status := 'Success';
451: END IF;
445: IF l_num_warnings > 0 THEN
446: x_pack_status := 'Warning';
447: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
448: ELSE
449: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
450: x_pack_status := 'Success';
451: END IF;
452: --
453: -- Debug Statements
486: --}
487: END IF;
488: --
489: --
490: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
491: x_pack_status := 'Warning';
492: x_return_status := l_return_status;
493: --
494: -- Debug Statements
499: --
500: return;
501: ELSE
502: IF l_num_warnings > 0
503: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
504: x_pack_status := 'Warning';
505: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
506: ELSE
507: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
501: ELSE
502: IF l_num_warnings > 0
503: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
504: x_pack_status := 'Warning';
505: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
506: ELSE
507: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
508: x_pack_status := 'Success';
509: END IF;
503: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
504: x_pack_status := 'Warning';
505: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
506: ELSE
507: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
508: x_pack_status := 'Success';
509: END IF;
510: --
511: -- Debug Statements
521: --
522: -- K LPN CONV. rv
523: --
524: x_pack_status := 'Success';
525: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
526:
527: --
528: -- Debug Statements
529: --
556: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
557: END IF;
558: --
559: --
560: 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
561: x_return_status := l_return_status;
562: END IF;
563: --
564: --}
570: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN_EXCP');
571: END IF;
572: --
573: WHEN Others THEN
574: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Assign_Details');
575: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
576: IF l_debug_on THEN
577: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
578: END IF;
571: END IF;
572: --
573: WHEN Others THEN
574: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Assign_Details');
575: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
576: IF l_debug_on THEN
577: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
578: END IF;
579: --
638: */
639:
640:
641: PROCEDURE Unassign_Details (
642: p_detail_tab IN WSH_UTIL_CORE.id_tab_type,
643: p_parent_detail_flag IN VARCHAR2,
644: p_delivery_flag IN VARCHAR2,
645: p_group_api_flag IN VARCHAR2 DEFAULT NULL,
646: x_return_status OUT NOCOPY VARCHAR2,
654: WHERE delivery_detail_id = v_cont_id
655: AND container_flag = 'Y';
656:
657:
658: l_cont_tab WSH_UTIL_CORE.id_tab_type;
659: l_detail_tab WSH_UTIL_CORE.id_tab_type;
660: l_error_tab WSH_UTIL_CORE.id_tab_type;
661:
662: l_det_rec WSH_UTIL_CORE.ID_TAB_TYPE;
655: AND container_flag = 'Y';
656:
657:
658: l_cont_tab WSH_UTIL_CORE.id_tab_type;
659: l_detail_tab WSH_UTIL_CORE.id_tab_type;
660: l_error_tab WSH_UTIL_CORE.id_tab_type;
661:
662: l_det_rec WSH_UTIL_CORE.ID_TAB_TYPE;
663:
656:
657:
658: l_cont_tab WSH_UTIL_CORE.id_tab_type;
659: l_detail_tab WSH_UTIL_CORE.id_tab_type;
660: l_error_tab WSH_UTIL_CORE.id_tab_type;
661:
662: l_det_rec WSH_UTIL_CORE.ID_TAB_TYPE;
663:
664: l_gross NUMBER;
658: l_cont_tab WSH_UTIL_CORE.id_tab_type;
659: l_detail_tab WSH_UTIL_CORE.id_tab_type;
660: l_error_tab WSH_UTIL_CORE.id_tab_type;
661:
662: l_det_rec WSH_UTIL_CORE.ID_TAB_TYPE;
663:
664: l_gross NUMBER;
665: l_net NUMBER;
666: l_volume NUMBER;
664: l_gross NUMBER;
665: l_net NUMBER;
666: l_volume NUMBER;
667: l_fill NUMBER;
668: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
669:
670: l_min_fill NUMBER;
671:
672: l_pack_status VARCHAR2(30);
729: l_error_tab,
730: x_return_status,
731: l_wms_filter_flag);
732:
733: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
734: IF l_wms_filter_flag = 'Y' THEN
735: FND_MESSAGE.SET_NAME('WSH','WSH_SEPARATE_DET_ERROR');
736: WSH_UTIL_CORE.Add_Message(x_return_status);
737: END IF;
732:
733: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
734: IF l_wms_filter_flag = 'Y' THEN
735: FND_MESSAGE.SET_NAME('WSH','WSH_SEPARATE_DET_ERROR');
736: WSH_UTIL_CORE.Add_Message(x_return_status);
737: END IF;
738: --
739: -- Debug Statements
740: --
768: p_action_prms); -- J-IB-NPARIKH
769:
770: /** Bug 1559785 and 1562917 -- warning is not being passed to the form in a
771: proper way,so add the part for Warning */
772: IF ((x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
773: (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
774: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_UNASSG_ERROR');
775: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
776: WSH_UTIL_CORE.Add_Message(x_return_status);
769:
770: /** Bug 1559785 and 1562917 -- warning is not being passed to the form in a
771: proper way,so add the part for Warning */
772: IF ((x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
773: (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
774: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_UNASSG_ERROR');
775: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
776: WSH_UTIL_CORE.Add_Message(x_return_status);
777: ELSE
771: proper way,so add the part for Warning */
772: IF ((x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
773: (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
774: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_UNASSG_ERROR');
775: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
776: WSH_UTIL_CORE.Add_Message(x_return_status);
777: ELSE
778: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
779: l_num_warnings := l_num_warnings + 1;
772: IF ((x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
773: (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
774: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_UNASSG_ERROR');
775: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
776: WSH_UTIL_CORE.Add_Message(x_return_status);
777: ELSE
778: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
779: l_num_warnings := l_num_warnings + 1;
780: END IF;
774: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_UNASSG_ERROR');
775: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
776: WSH_UTIL_CORE.Add_Message(x_return_status);
777: ELSE
778: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
779: l_num_warnings := l_num_warnings + 1;
780: END IF;
781: l_return_status := x_return_status;
782: END IF;
805: x_return_status);
806:
807: /** Bug 1559785 and 1562917 -- warning is not being passed to the form in a
808: proper way,so add the part for Warning */
809: IF ((x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
810: (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
811: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNASSG_ERROR');
812: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
813: WSH_UTIL_CORE.Add_Message(l_return_status);
806:
807: /** Bug 1559785 and 1562917 -- warning is not being passed to the form in a
808: proper way,so add the part for Warning */
809: IF ((x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
810: (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
811: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNASSG_ERROR');
812: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
813: WSH_UTIL_CORE.Add_Message(l_return_status);
814: ELSE
808: proper way,so add the part for Warning */
809: IF ((x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
810: (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
811: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNASSG_ERROR');
812: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
813: WSH_UTIL_CORE.Add_Message(l_return_status);
814: ELSE
815: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
816: l_num_warnings := l_num_warnings + 1;
809: IF ((x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
810: (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
811: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNASSG_ERROR');
812: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
813: WSH_UTIL_CORE.Add_Message(l_return_status);
814: ELSE
815: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
816: l_num_warnings := l_num_warnings + 1;
817: END IF;
811: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UNASSG_ERROR');
812: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
813: WSH_UTIL_CORE.Add_Message(l_return_status);
814: ELSE
815: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
816: l_num_warnings := l_num_warnings + 1;
817: END IF;
818: l_return_status := x_return_status;
819: END IF;
843: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',x_return_status);
844: END IF;
845: --
846: --
847: IF ((x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
848: (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
849:
850: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
851: l_return_status := x_return_status;
844: END IF;
845: --
846: --
847: IF ((x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
848: (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
849:
850: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
851: l_return_status := x_return_status;
852: END IF;
846: --
847: IF ((x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
848: (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
849:
850: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
851: l_return_status := x_return_status;
852: END IF;
853:
854: ELSE
851: l_return_status := x_return_status;
852: END IF;
853:
854: ELSE
855: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
856: l_num_warnings := l_num_warnings + 1;
857: END IF;
858: l_return_status := x_return_status;
859: END IF;
865: -- K LPN CONV. rv
866: --
867: /** Bug 1559785 and 1562917 -- warning is not being passed to the form in a
868: proper way,so add the part for Warning */
869: IF ((l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
870: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
871: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
872: ELSE
873: IF l_num_warnings > 0 THEN
866: --
867: /** Bug 1559785 and 1562917 -- warning is not being passed to the form in a
868: proper way,so add the part for Warning */
869: IF ((l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
870: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
871: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
872: ELSE
873: IF l_num_warnings > 0 THEN
874: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
867: /** Bug 1559785 and 1562917 -- warning is not being passed to the form in a
868: proper way,so add the part for Warning */
869: IF ((l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) AND
870: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
871: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
872: ELSE
873: IF l_num_warnings > 0 THEN
874: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
875: ELSE
870: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
871: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
872: ELSE
873: IF l_num_warnings > 0 THEN
874: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
875: ELSE
876: x_return_status := l_return_status; -- modified since it can be S or W
877: END IF;
878: END IF;
910: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
911: END IF;
912: --
913: --
914: 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
915: x_return_status := l_return_status;
916: END IF;
917: --
918: --}
924: --
925: -- K LPN CONV. rv
926: --
927: WHEN Others THEN
928: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Unassign_Details');
929: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
930: IF l_debug_on THEN
931: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
932: END IF;
925: -- K LPN CONV. rv
926: --
927: WHEN Others THEN
928: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Unassign_Details');
929: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
930: IF l_debug_on THEN
931: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
932: END IF;
933: --
975: -- this procedure.
976: -------------------------------------------------------------------
977:
978: PROCEDURE Unassign_Details (
979: p_detail_tab IN WSH_UTIL_CORE.id_tab_type,
980: p_parent_detail_flag IN VARCHAR2,
981: p_delivery_flag IN VARCHAR2,
982: p_group_api_flag IN VARCHAR2 DEFAULT NULL,
983: x_return_status OUT NOCOPY VARCHAR2) IS
1038: --
1039: EXCEPTION
1040:
1041: WHEN Others THEN
1042: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Unassign_Details',l_module_name);
1043: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1044: --
1045: -- Debug Statements
1046: --
1039: EXCEPTION
1040:
1041: WHEN Others THEN
1042: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Unassign_Details',l_module_name);
1043: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1044: --
1045: -- Debug Statements
1046: --
1047: IF l_debug_on THEN
1073: */
1074:
1075:
1076: PROCEDURE Auto_Pack_Lines (
1077: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
1078: p_detail_tab IN WSH_UTIL_CORE.id_tab_type,
1079: p_pack_cont_flag IN VARCHAR2,
1080: p_group_api_flag IN VARCHAR2 DEFAULT NULL,
1081: x_cont_inst_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1074:
1075:
1076: PROCEDURE Auto_Pack_Lines (
1077: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
1078: p_detail_tab IN WSH_UTIL_CORE.id_tab_type,
1079: p_pack_cont_flag IN VARCHAR2,
1080: p_group_api_flag IN VARCHAR2 DEFAULT NULL,
1081: x_cont_inst_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1082: x_return_status OUT NOCOPY VARCHAR2) IS
1077: p_group_id_tab IN WSH_UTIL_CORE.id_tab_type,
1078: p_detail_tab IN WSH_UTIL_CORE.id_tab_type,
1079: p_pack_cont_flag IN VARCHAR2,
1080: p_group_api_flag IN VARCHAR2 DEFAULT NULL,
1081: x_cont_inst_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1082: x_return_status OUT NOCOPY VARCHAR2) IS
1083:
1084:
1085: l_cont_tab WSH_UTIL_CORE.id_tab_type;
1081: x_cont_inst_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1082: x_return_status OUT NOCOPY VARCHAR2) IS
1083:
1084:
1085: l_cont_tab WSH_UTIL_CORE.id_tab_type;
1086: l_detail_tab WSH_UTIL_CORE.id_tab_type;
1087: l_error_tab WSH_UTIL_CORE.id_tab_type;
1088:
1089: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1082: x_return_status OUT NOCOPY VARCHAR2) IS
1083:
1084:
1085: l_cont_tab WSH_UTIL_CORE.id_tab_type;
1086: l_detail_tab WSH_UTIL_CORE.id_tab_type;
1087: l_error_tab WSH_UTIL_CORE.id_tab_type;
1088:
1089: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1090:
1083:
1084:
1085: l_cont_tab WSH_UTIL_CORE.id_tab_type;
1086: l_detail_tab WSH_UTIL_CORE.id_tab_type;
1087: l_error_tab WSH_UTIL_CORE.id_tab_type;
1088:
1089: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1090:
1091: l_cont_name VARCHAR2(30);
1085: l_cont_tab WSH_UTIL_CORE.id_tab_type;
1086: l_detail_tab WSH_UTIL_CORE.id_tab_type;
1087: l_error_tab WSH_UTIL_CORE.id_tab_type;
1088:
1089: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1090:
1091: l_cont_name VARCHAR2(30);
1092:
1093: l_cont_info_tab WSH_CONTAINER_ACTIONS.empty_cont_info_tab;
1091: l_cont_name VARCHAR2(30);
1092:
1093: l_cont_info_tab WSH_CONTAINER_ACTIONS.empty_cont_info_tab;
1094:
1095: l_cont_inst_tab WSH_UTIL_CORE.id_tab_type;
1096:
1097: i NUMBER;
1098: cont_cnt NUMBER;
1099: l_wms_filter_flag VARCHAR2(1);
1098: cont_cnt NUMBER;
1099: l_wms_filter_flag VARCHAR2(1);
1100:
1101: /* H projects: pricing integration csun */
1102: l_entity_ids WSH_UTIL_CORE.id_tab_type;
1103: m NUMBER := 0;
1104: mark_reprice_error EXCEPTION;
1105:
1106: -- K LPN CONV. rv
1137: IF NVL(p_group_api_flag, 'N') = 'N' THEN
1138: l_wms_filter_flag := 'Y';
1139: END IF;
1140:
1141: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1142:
1143: IF l_debug_on THEN
1144: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DLVB_COMMON_ACTIONS.SEPARATE_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
1145: END IF;
1152: x_return_status,
1153: l_wms_filter_flag);
1154:
1155:
1156: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1157: IF l_wms_filter_flag = 'Y' THEN
1158: FND_MESSAGE.SET_NAME('WSH','WSH_SEPARATE_DET_ERROR');
1159: WSH_UTIL_CORE.Add_Message(x_return_status);
1160: END IF;
1155:
1156: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1157: IF l_wms_filter_flag = 'Y' THEN
1158: FND_MESSAGE.SET_NAME('WSH','WSH_SEPARATE_DET_ERROR');
1159: WSH_UTIL_CORE.Add_Message(x_return_status);
1160: END IF;
1161: --IF l_debug_on THEN
1162: --WSH_DEBUG_SV.pop(l_module_name);
1163: --END IF;
1165: raise e_return_excp; -- LPN CONV. rv
1166: END IF;
1167:
1168: IF (l_error_tab.count > 0) THEN
1169: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1170: END IF;
1171:
1172:
1173: IF l_detail_tab.count <= 0 AND l_cont_tab.count <= 0 THEN
1170: END IF;
1171:
1172:
1173: IF l_detail_tab.count <= 0 AND l_cont_tab.count <= 0 THEN
1174: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1175: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
1176: WSH_UTIL_CORE.Add_Message(x_return_status);
1177: --IF l_debug_on THEN
1178: --WSH_DEBUG_SV.pop(l_module_name);
1172:
1173: IF l_detail_tab.count <= 0 AND l_cont_tab.count <= 0 THEN
1174: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1175: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_ASSG_NULL');
1176: WSH_UTIL_CORE.Add_Message(x_return_status);
1177: --IF l_debug_on THEN
1178: --WSH_DEBUG_SV.pop(l_module_name);
1179: --END IF;
1180: --return;
1196:
1197: IF l_debug_on THEN
1198: WSH_DEBUG_SV.logmsg(l_module_name,'RETURN_STATUS'||x_return_status);
1199: END IF;
1200: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1201: -- Bug 2847515
1202: l_ret_sts := x_return_status;
1203: END IF;
1204: END IF;
1231: l_cont_tab,
1232: l_cont_inst_tab,
1233: x_return_status);
1234:
1235: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1236: -- Bug 3562797 jckwok
1237: -- Set l_ret_sts to return status of Auto_Pack_Conts. Similar issue
1238: -- (Bug 2847515) was already fixed
1239: -- after call to WSH_CONTAINER_ACTIONS.Auto_Pack_Lines but
1258: WSH_DEBUG_SV.logmsg(l_module_name,'X_RETURN_STATUS'||x_return_status);
1259: WSH_DEBUG_SV.logmsg(l_module_name,'L_RETURN_STATUS'||l_ret_sts);
1260: END IF;
1261:
1262: IF (l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1263: -- Bug 2847515
1264: x_return_status := l_ret_sts;
1265: FND_MESSAGE.SET_NAME('WSH','WSH_SUM_AUTOPACK_ERROR');
1266: WSH_UTIL_CORE.Add_Message(x_return_status);
1262: IF (l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1263: -- Bug 2847515
1264: x_return_status := l_ret_sts;
1265: FND_MESSAGE.SET_NAME('WSH','WSH_SUM_AUTOPACK_ERROR');
1266: WSH_UTIL_CORE.Add_Message(x_return_status);
1267: IF (l_ret_sts = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN --Bug 3562797 jckwok
1268: --IF l_debug_on THEN
1269: --WSH_DEBUG_SV.pop(l_module_name);
1270: --END IF;
1263: -- Bug 2847515
1264: x_return_status := l_ret_sts;
1265: FND_MESSAGE.SET_NAME('WSH','WSH_SUM_AUTOPACK_ERROR');
1266: WSH_UTIL_CORE.Add_Message(x_return_status);
1267: IF (l_ret_sts = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN --Bug 3562797 jckwok
1268: --IF l_debug_on THEN
1269: --WSH_DEBUG_SV.pop(l_module_name);
1270: --END IF;
1271: --return;
1283: x_return_status => l_ret_sts);
1284: IF l_debug_on THEN
1285: WSH_DEBUG_SV.logmsg(l_module_name,'After Mark_Reprice_Required L_RETURN_STATUS:'||l_ret_sts);
1286: END IF;
1287: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1288: raise mark_reprice_error;
1289: END IF;
1290: END IF;
1291: -- Bug 3562797 jckwok
1288: raise mark_reprice_error;
1289: END IF;
1290: END IF;
1291: -- Bug 3562797 jckwok
1292: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1293: --
1294: -- K LPN CONV. rv
1295: --
1296: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
1313: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1314: END IF;
1315: --
1316: --
1317: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1318: --
1319: x_return_status := l_return_status;
1320: --
1321: IF l_debug_on THEN
1323: WSH_DEBUG_SV.pop(l_module_name);
1324: END IF;
1325: --
1326: RETURN;
1327: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1328: l_num_warnings := l_num_warnings + 1;
1329: END IF;
1330: --
1331: --}
1333: --
1334: -- K LPN CONV. rv
1335: --
1336:
1337: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1338: --
1339: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1340: --
1341: END IF;
1335: --
1336:
1337: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1338: --
1339: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1340: --
1341: END IF;
1342:
1343: IF l_debug_on THEN
1371: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1372: END IF;
1373: --
1374: --
1375: 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
1376: x_return_status := l_return_status;
1377: END IF;
1378: --
1379: --}
1391: --
1392: --
1393: WHEN mark_reprice_error THEN
1394: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
1395: WSH_UTIL_CORE.add_message (x_return_status);
1396: x_return_status := l_ret_sts;
1397:
1398: --
1399: -- K LPN CONV. rv
1417: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1418: END IF;
1419: --
1420: --
1421: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1422: x_return_status := l_return_status;
1423: END IF;
1424: --
1425: --}
1435: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
1436: END IF;
1437: --
1438: WHEN Others THEN
1439: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Auto_Pack_Lines');
1440: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1441: IF l_debug_on THEN
1442: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1443: END IF;
1436: END IF;
1437: --
1438: WHEN Others THEN
1439: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Auto_Pack_Lines');
1440: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1441: IF l_debug_on THEN
1442: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1443: END IF;
1444: --
1505: */
1506:
1507:
1508: PROCEDURE Separate_Details (
1509: p_input_tab IN WSH_UTIL_CORE.id_tab_type,
1510: x_cont_inst_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1511: x_detail_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1512: x_error_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1513: x_return_status OUT NOCOPY VARCHAR2,
1506:
1507:
1508: PROCEDURE Separate_Details (
1509: p_input_tab IN WSH_UTIL_CORE.id_tab_type,
1510: x_cont_inst_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1511: x_detail_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1512: x_error_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1513: x_return_status OUT NOCOPY VARCHAR2,
1514: p_wms_filter_flag IN VARCHAR2 DEFAULT 'N') IS
1507:
1508: PROCEDURE Separate_Details (
1509: p_input_tab IN WSH_UTIL_CORE.id_tab_type,
1510: x_cont_inst_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1511: x_detail_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1512: x_error_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1513: x_return_status OUT NOCOPY VARCHAR2,
1514: p_wms_filter_flag IN VARCHAR2 DEFAULT 'N') IS
1515:
1508: PROCEDURE Separate_Details (
1509: p_input_tab IN WSH_UTIL_CORE.id_tab_type,
1510: x_cont_inst_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1511: x_detail_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1512: x_error_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1513: x_return_status OUT NOCOPY VARCHAR2,
1514: p_wms_filter_flag IN VARCHAR2 DEFAULT 'N') IS
1515:
1516: -- bug 1678527: look up wms enabled flag
1530: cont_cnt NUMBER := 0;
1531: err_cnt NUMBER := 0;
1532: wms_cnt NUMBER := 0;
1533:
1534: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1535:
1536: --
1537: l_debug_on BOOLEAN;
1538: --
1568: IF Select_Cont_Flag%NOTFOUND THEN
1569: err_cnt := err_cnt + 1;
1570: x_error_tab(err_cnt) := p_input_tab(i);
1571: CLOSE Select_Cont_Flag;
1572: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1573: END IF;
1574:
1575: IF Select_Cont_Flag%ISOPEN THEN
1576: CLOSE Select_Cont_Flag;
1600:
1601: IF wms_cnt > 0 THEN
1602:
1603: IF wms_cnt = p_input_tab.count THEN
1604: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
1605: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_PACK_NOT_ALLOWED');
1606: WSH_UTIL_CORE.Add_message(l_ret_sts);
1607: ELSE
1608: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_RECORDS_NOT_PACKED');
1602:
1603: IF wms_cnt = p_input_tab.count THEN
1604: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
1605: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_PACK_NOT_ALLOWED');
1606: WSH_UTIL_CORE.Add_message(l_ret_sts);
1607: ELSE
1608: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_RECORDS_NOT_PACKED');
1609: FND_MESSAGE.SET_TOKEN('COUNT', wms_cnt);
1610: WSH_UTIL_CORE.Add_message(l_ret_sts);
1606: WSH_UTIL_CORE.Add_message(l_ret_sts);
1607: ELSE
1608: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_RECORDS_NOT_PACKED');
1609: FND_MESSAGE.SET_TOKEN('COUNT', wms_cnt);
1610: WSH_UTIL_CORE.Add_message(l_ret_sts);
1611: END IF;
1612:
1613: END IF;
1614:
1612:
1613: END IF;
1614:
1615: ELSE
1616: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
1617: FND_MESSAGE.SET_NAME('WSH','WSH_INPUT_TABLE_NULL');
1618: WSH_UTIL_CORE.Add_Message(l_ret_sts);
1619: END IF;
1620:
1614:
1615: ELSE
1616: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_ERROR;
1617: FND_MESSAGE.SET_NAME('WSH','WSH_INPUT_TABLE_NULL');
1618: WSH_UTIL_CORE.Add_Message(l_ret_sts);
1619: END IF;
1620:
1621: x_return_status := l_ret_sts;
1622:
1631: --
1632: EXCEPTION
1633:
1634: WHEN Others THEN
1635: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Separate_Details');
1636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1637:
1638: --
1639: -- Debug Statements
1632: EXCEPTION
1633:
1634: WHEN Others THEN
1635: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Separate_Details');
1636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1637:
1638: --
1639: -- Debug Statements
1640: --
1754: --
1755: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
1756: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
1757: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
1758: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1759: WSH_UTIL_CORE.Add_Message(x_return_status);
1760: --
1761: -- Debug Statements
1762: --
1755: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
1756: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CONTAINER');
1757: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
1758: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1759: WSH_UTIL_CORE.Add_Message(x_return_status);
1760: --
1761: -- Debug Statements
1762: --
1763: IF l_debug_on THEN
1781: --
1782: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
1783: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WV_UOM_NULL');
1784: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
1785: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1786: WSH_UTIL_CORE.Add_Message(x_return_status);
1787: --
1788: -- Debug Statements
1789: --
1782: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
1783: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WV_UOM_NULL');
1784: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
1785: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1786: WSH_UTIL_CORE.Add_Message(x_return_status);
1787: --
1788: -- Debug Statements
1789: --
1790: IF l_debug_on THEN
1818: p_fill_pc_flag => 'Y',
1819: x_cont_fill_pc => fill_pc,
1820: x_return_status => l_ret_sts);
1821:
1822: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1823: --
1824: -- Debug Statements
1825: --
1826: IF l_debug_on THEN
1829: --
1830: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
1831: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
1832: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
1833: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1834: WSH_UTIL_CORE.Add_Message(l_ret_sts);
1835: tmp_gr_wt := 0;
1836: tmp_net_wt := 0;
1837: fill_pc := 0;
1830: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
1831: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
1832: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
1833: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1834: WSH_UTIL_CORE.Add_Message(l_ret_sts);
1835: tmp_gr_wt := 0;
1836: tmp_net_wt := 0;
1837: fill_pc := 0;
1838: END IF;
1855: cont_org_id,
1856: tmp_tare_wt,
1857: l_ret_sts);
1858:
1859: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1860: --
1861: -- Debug Statements
1862: --
1863: IF l_debug_on THEN
1866: --
1867: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
1868: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_TARE_SELF_FAIL');
1869: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
1870: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1871: WSH_UTIL_CORE.Add_Message(l_ret_sts);
1872: tmp_tare_wt := 0;
1873: END IF;
1874:
1867: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(p_container_instance_id);
1868: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_TARE_SELF_FAIL');
1869: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
1870: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1871: WSH_UTIL_CORE.Add_Message(l_ret_sts);
1872: tmp_tare_wt := 0;
1873: END IF;
1874:
1875: --
1884: wsh_wt_uom,
1885: wsh_vol_uom,
1886: l_ret_sts);
1887:
1888: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1889: --
1890: -- Debug Statements
1891: --
1892: IF l_debug_on THEN
1889: --
1890: -- Debug Statements
1891: --
1892: IF l_debug_on THEN
1893: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1894: END IF;
1895: --
1896: l_org_name := WSH_UTIL_CORE.Get_Org_Name(cont_org_id);
1897: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
1892: IF l_debug_on THEN
1893: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1894: END IF;
1895: --
1896: l_org_name := WSH_UTIL_CORE.Get_Org_Name(cont_org_id);
1897: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
1898: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
1899: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1900: WSH_UTIL_CORE.Add_Message(l_ret_sts);
1895: --
1896: l_org_name := WSH_UTIL_CORE.Get_Org_Name(cont_org_id);
1897: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
1898: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
1899: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1900: WSH_UTIL_CORE.Add_Message(l_ret_sts);
1901: wsh_wt_uom := wt_uom;
1902: wsh_vol_uom := vol_uom;
1903: END IF;
1896: l_org_name := WSH_UTIL_CORE.Get_Org_Name(cont_org_id);
1897: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
1898: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
1899: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
1900: WSH_UTIL_CORE.Add_Message(l_ret_sts);
1901: wsh_wt_uom := wt_uom;
1902: wsh_vol_uom := vol_uom;
1903: END IF;
1904:
1998: IF x_avail_vol < 0 THEN
1999: x_avail_vol := 0;
2000: END IF;
2001:
2002: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2003:
2004: --
2005: -- Debug Statements
2006: --
2012: --
2013: EXCEPTION
2014:
2015: WHEN Others THEN
2016: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Calc_Cont_Avail');
2017: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2018:
2019: --
2020: -- Debug Statements
2013: EXCEPTION
2014:
2015: WHEN Others THEN
2016: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Calc_Cont_Avail');
2017: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2018:
2019: --
2020: -- Debug Statements
2021: --
2109: det_org_id;
2110:
2111: IF Get_Detail_Info%NOTFOUND THEN
2112: CLOSE Get_Detail_Info;
2113: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2114: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL_ID');
2115: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
2116: WSH_UTIL_CORE.Add_Message(x_return_status);
2117: --
2112: CLOSE Get_Detail_Info;
2113: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2114: FND_MESSAGE.SET_NAME('WSH','WSH_DET_INVALID_DETAIL_ID');
2115: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
2116: WSH_UTIL_CORE.Add_Message(x_return_status);
2117: --
2118: -- Debug Statements
2119: --
2120: IF l_debug_on THEN
2130:
2131: IF wt_uom IS NULL OR vol_uom IS NULL THEN
2132: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WV_UOM_NULL');
2133: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
2134: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2135: WSH_UTIL_CORE.Add_Message(x_return_status);
2136: --
2137: -- Debug Statements
2138: --
2131: IF wt_uom IS NULL OR vol_uom IS NULL THEN
2132: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WV_UOM_NULL');
2133: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
2134: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2135: WSH_UTIL_CORE.Add_Message(x_return_status);
2136: --
2137: -- Debug Statements
2138: --
2139: IF l_debug_on THEN
2158: x_net_weight => tmp_net_wt,
2159: x_volume => tmp_vol,
2160: x_return_status => l_ret_sts);
2161:
2162: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2163: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_FAILED');
2164: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
2165: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2166: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2161:
2162: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2163: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_FAILED');
2164: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
2165: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2166: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2167: tmp_net_wt := 0;
2168: tmp_vol := 0;
2169: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2162: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2163: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_FAILED');
2164: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_detail_id);
2165: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2166: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2167: tmp_net_wt := 0;
2168: tmp_vol := 0;
2169: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2170: --
2165: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2166: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2167: tmp_net_wt := 0;
2168: tmp_vol := 0;
2169: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2170: --
2171: -- Debug Statements
2172: --
2173: IF l_debug_on THEN
2191: wsh_wt_uom,
2192: wsh_vol_uom,
2193: l_ret_sts);
2194:
2195: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2196: --
2197: -- Debug Statements
2198: --
2199: IF l_debug_on THEN
2196: --
2197: -- Debug Statements
2198: --
2199: IF l_debug_on THEN
2200: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2201: END IF;
2202: --
2203: l_org_name := WSH_UTIL_CORE.Get_Org_Name(det_org_id);
2204: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
2199: IF l_debug_on THEN
2200: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2201: END IF;
2202: --
2203: l_org_name := WSH_UTIL_CORE.Get_Org_Name(det_org_id);
2204: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
2205: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
2206: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2207: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2202: --
2203: l_org_name := WSH_UTIL_CORE.Get_Org_Name(det_org_id);
2204: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
2205: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
2206: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2207: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2208: wsh_wt_uom := wt_uom;
2209: wsh_vol_uom := vol_uom;
2210: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2203: l_org_name := WSH_UTIL_CORE.Get_Org_Name(det_org_id);
2204: FND_MESSAGE.SET_NAME('WSH','WSH_DEFAULT_UOM_ERROR');
2205: FND_MESSAGE.SET_TOKEN('ORG_NAME',l_org_name);
2206: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2207: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2208: wsh_wt_uom := wt_uom;
2209: wsh_vol_uom := vol_uom;
2210: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2211: END IF;
2206: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2207: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2208: wsh_wt_uom := wt_uom;
2209: wsh_vol_uom := vol_uom;
2210: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2211: END IF;
2212:
2213: x_wt_uom := wsh_wt_uom;
2214: x_vol_uom := wsh_vol_uom;
2244:
2245: x_item_wt := nvl(net_wt,0);
2246: x_item_vol := nvl(vol,0);
2247:
2248: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2249:
2250: --
2251: -- Debug Statements
2252: --
2258: --
2259: EXCEPTION
2260:
2261: WHEN Others THEN
2262: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Calc_Item_Total');
2263: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2264:
2265: --
2266: -- Debug Statements
2259: EXCEPTION
2260:
2261: WHEN Others THEN
2262: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Calc_Item_Total');
2263: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2264:
2265: --
2266: -- Debug Statements
2267: --
2299: */
2300:
2301:
2302: PROCEDURE Calculate_Total_Capacities (
2303: p_detail_input_tab IN WSH_UTIL_CORE.id_tab_type,
2304: x_cont_wt_avail OUT NOCOPY NUMBER,
2305: x_cont_vol_avail OUT NOCOPY NUMBER,
2306: x_item_wt_total OUT NOCOPY NUMBER,
2307: x_item_vol_total OUT NOCOPY NUMBER,
2309: x_vol_uom OUT NOCOPY VARCHAR2,
2310: x_return_status OUT NOCOPY VARCHAR2) IS
2311:
2312:
2313: l_cont_tab WSH_UTIL_CORE.id_tab_type;
2314: l_detail_tab WSH_UTIL_CORE.id_tab_type;
2315: l_error_tab WSH_UTIL_CORE.id_tab_type;
2316:
2317: l_avail_wt NUMBER;
2310: x_return_status OUT NOCOPY VARCHAR2) IS
2311:
2312:
2313: l_cont_tab WSH_UTIL_CORE.id_tab_type;
2314: l_detail_tab WSH_UTIL_CORE.id_tab_type;
2315: l_error_tab WSH_UTIL_CORE.id_tab_type;
2316:
2317: l_avail_wt NUMBER;
2318: l_avail_vol NUMBER;
2311:
2312:
2313: l_cont_tab WSH_UTIL_CORE.id_tab_type;
2314: l_detail_tab WSH_UTIL_CORE.id_tab_type;
2315: l_error_tab WSH_UTIL_CORE.id_tab_type;
2316:
2317: l_avail_wt NUMBER;
2318: l_avail_vol NUMBER;
2319: l_item_wt_total NUMBER;
2321:
2322: l_wt_uom VARCHAR2(3);
2323: l_vol_uom VARCHAR2(3);
2324:
2325: l_ret_sts VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2326:
2327: l_cont_name VARCHAR2(30);
2328:
2329: l_return_status VARCHAR2(1);
2359: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_INPUT_TAB.COUNT',p_detail_input_tab.count);
2360: END IF;
2361: --
2362: IF p_detail_input_tab.count <= 0 THEN
2363: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2364: FND_MESSAGE.SET_NAME('WSH','WSH_INPUT_TABLE_NULL');
2365: WSH_UTIL_CORE.Add_Message(x_return_status);
2366: --
2367: -- Debug Statements
2361: --
2362: IF p_detail_input_tab.count <= 0 THEN
2363: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2364: FND_MESSAGE.SET_NAME('WSH','WSH_INPUT_TABLE_NULL');
2365: WSH_UTIL_CORE.Add_Message(x_return_status);
2366: --
2367: -- Debug Statements
2368: --
2369: --IF l_debug_on THEN
2389: x_return_status);
2390:
2391:
2392:
2393: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2394: FND_MESSAGE.SET_NAME('WSH','WSH_SEPARATE_DET_ERROR');
2395: WSH_UTIL_CORE.Add_Message(x_return_status);
2396: --
2397: -- Debug Statements
2391:
2392:
2393: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2394: FND_MESSAGE.SET_NAME('WSH','WSH_SEPARATE_DET_ERROR');
2395: WSH_UTIL_CORE.Add_Message(x_return_status);
2396: --
2397: -- Debug Statements
2398: --
2399: --IF l_debug_on THEN
2422: l_vol_uom,
2423: l_return_status);
2424:
2425:
2426: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2427: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2428: END IF;
2429:
2430: x_cont_wt_avail := nvl(x_cont_wt_avail,0) + nvl(l_avail_wt,0);
2423: l_return_status);
2424:
2425:
2426: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2427: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2428: END IF;
2429:
2430: x_cont_wt_avail := nvl(x_cont_wt_avail,0) + nvl(l_avail_wt,0);
2431: x_cont_vol_avail := nvl(x_cont_vol_avail,0) + nvl(l_avail_vol,0);
2454: l_return_status);
2455:
2456:
2457:
2458: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2459: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2460: END IF;
2461:
2462: x_item_wt_total := nvl(x_item_wt_total,0) + nvl(l_item_wt_total,0);
2455:
2456:
2457:
2458: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2459: l_ret_sts := WSH_UTIL_CORE.G_RET_STS_WARNING;
2460: END IF;
2461:
2462: x_item_wt_total := nvl(x_item_wt_total,0) + nvl(l_item_wt_total,0);
2463: x_item_vol_total := nvl(x_item_vol_total,0) + nvl(l_item_vol_total,0);
2485: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2486: END IF;
2487: --
2488: --
2489: IF l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING)
2490: AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2491: THEN
2492: x_return_status := l_return_status;
2493: END IF;
2486: END IF;
2487: --
2488: --
2489: IF l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING)
2490: AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2491: THEN
2492: x_return_status := l_return_status;
2493: END IF;
2494: --
2500:
2501: x_wt_uom := l_wt_uom;
2502: x_vol_uom := l_vol_uom;
2503:
2504: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2505: FND_MESSAGE.SET_NAME('WSH','WSH_CALC_CAPACITY_WARN');
2506: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2507: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2508: ELSE
2502: x_vol_uom := l_vol_uom;
2503:
2504: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2505: FND_MESSAGE.SET_NAME('WSH','WSH_CALC_CAPACITY_WARN');
2506: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2507: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2508: ELSE
2509: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2510: END IF;
2503:
2504: IF l_ret_sts <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2505: FND_MESSAGE.SET_NAME('WSH','WSH_CALC_CAPACITY_WARN');
2506: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2507: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2508: ELSE
2509: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2510: END IF;
2511:
2505: FND_MESSAGE.SET_NAME('WSH','WSH_CALC_CAPACITY_WARN');
2506: WSH_UTIL_CORE.Add_Message(l_ret_sts);
2507: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2508: ELSE
2509: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2510: END IF;
2511:
2512: --
2513: -- Debug Statements
2543: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2544: END IF;
2545: --
2546: --
2547: 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
2548: x_return_status := l_return_status;
2549: END IF;
2550: --
2551: --}
2557: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_RETURN_EXCP');
2558: END IF;
2559: --
2560: WHEN Others THEN
2561: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Calculate_Total_Capacities');
2562: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2563: IF l_debug_on THEN
2564: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2565: END IF;
2558: END IF;
2559: --
2560: WHEN Others THEN
2561: WSH_UTIL_CORE.Default_Handler('WSH_DLVB_COMMON_ACTIONS.Calculate_Total_Capacities');
2562: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2563: IF l_debug_on THEN
2564: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2565: END IF;
2566: --