[Home] [Help]
17:
18:
19:
20:
21: g_bad_header_ids wsh_util_core.id_tab_type;
22: g_good_header_ids wsh_util_core.id_tab_type;
23:
24: -- 2467416
25: -- Description:
18:
19:
20:
21: g_bad_header_ids wsh_util_core.id_tab_type;
22: g_good_header_ids wsh_util_core.id_tab_type;
23:
24: -- 2467416
25: -- Description:
26: -- PL/SQL table g_passed_crd_Tab: caches the line_ids that passed Credit Check
30: -- 3481194/3492870 modified logic to hash index on g_passed_crd_tab and g_failed_crd_tab
31: -- to avoid linear scans on pl/sql lists by calling function get_table_index..
32:
33:
34: g_passed_crd_Tab wsh_util_core.id_tab_type;
35: g_failed_crd_Tab wsh_util_core.id_tab_type;
36:
37: PROCEDURE Insert_PR_Header_Holds (
38: p_header_id IN NUMBER,
31: -- to avoid linear scans on pl/sql lists by calling function get_table_index..
32:
33:
34: g_passed_crd_Tab wsh_util_core.id_tab_type;
35: g_failed_crd_Tab wsh_util_core.id_tab_type;
36:
37: PROCEDURE Insert_PR_Header_Holds (
38: p_header_id IN NUMBER,
39: p_status IN VARCHAR2)
77: -- NOTE: For performance reason, there is no debug logic in this API.
78: -----------------------------------------------------------------------------
79: function get_table_index(p_entity_id IN NUMBER,
80: p_alt_index IN NUMBER DEFAULT NULL,
81: x_table IN OUT NOCOPY wsh_util_core.id_tab_type)
82: RETURN NUMBER
83: IS
84: c_hash_base CONSTANT NUMBER := 1;
85: c_hash_size CONSTANT NUMBER := power(2, 25);
444: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
445: WSH_DEBUG_SV.log(l_module_name,'P_CYCLE_COUNT_QUANTITY',P_CYCLE_COUNT_QUANTITY);
446: END IF;
447: --
448: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
449:
450: IF p_picked_quantity > p_requested_quantity THEN
451: -- overpick scenario
452: IF ( p_cycle_count_quantity > 0
450: IF p_picked_quantity > p_requested_quantity THEN
451: -- overpick scenario
452: IF ( p_cycle_count_quantity > 0
453: AND p_shipped_quantity > p_requested_quantity - p_cycle_count_quantity) THEN
454: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
455: fnd_message.set_name('WSH', 'WSH_OVERPICK_SH_QTY_EXCEED');
456: fnd_message.set_token('MAX_QTY', (p_requested_quantity - p_cycle_count_quantity));
457: wsh_util_core.add_message(x_return_status);
458: ELSIF (p_shipped_quantity > p_picked_quantity) THEN -- Bug 2111939: Removed the check on tolerance here.
453: AND p_shipped_quantity > p_requested_quantity - p_cycle_count_quantity) THEN
454: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
455: fnd_message.set_name('WSH', 'WSH_OVERPICK_SH_QTY_EXCEED');
456: fnd_message.set_token('MAX_QTY', (p_requested_quantity - p_cycle_count_quantity));
457: wsh_util_core.add_message(x_return_status);
458: ELSIF (p_shipped_quantity > p_picked_quantity) THEN -- Bug 2111939: Removed the check on tolerance here.
459: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
460: fnd_message.set_name('WSH', 'WSH_SH_QTY_ABOVE_PICKED');
461: wsh_util_core.add_message(x_return_status);
455: fnd_message.set_name('WSH', 'WSH_OVERPICK_SH_QTY_EXCEED');
456: fnd_message.set_token('MAX_QTY', (p_requested_quantity - p_cycle_count_quantity));
457: wsh_util_core.add_message(x_return_status);
458: ELSIF (p_shipped_quantity > p_picked_quantity) THEN -- Bug 2111939: Removed the check on tolerance here.
459: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
460: fnd_message.set_name('WSH', 'WSH_SH_QTY_ABOVE_PICKED');
461: wsh_util_core.add_message(x_return_status);
462: END IF;
463:
457: wsh_util_core.add_message(x_return_status);
458: ELSIF (p_shipped_quantity > p_picked_quantity) THEN -- Bug 2111939: Removed the check on tolerance here.
459: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
460: fnd_message.set_name('WSH', 'WSH_SH_QTY_ABOVE_PICKED');
461: wsh_util_core.add_message(x_return_status);
462: END IF;
463:
464: ELSE
465: -- normal scenario
465: -- normal scenario
466: -- for bug 1305066. When requested_quantity = 0, ie. cancelled line,
467: -- return false
468: IF (p_requested_quantity = 0) THEN
469: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
470: fnd_message.set_name('WSH', 'WSH_UI_SHIP_QTY_ABOVE_TOL');
471: wsh_util_core.add_message(x_return_status);
472: END IF;
473: END IF;
467: -- return false
468: IF (p_requested_quantity = 0) THEN
469: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
470: fnd_message.set_name('WSH', 'WSH_UI_SHIP_QTY_ABOVE_TOL');
471: wsh_util_core.add_message(x_return_status);
472: END IF;
473: END IF;
474:
475: --
480: END IF;
481: --
482: exception
483: when others then
484: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
485: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Shipped_Quantity');
486: --
487: -- Debug Statements
488: --
481: --
482: exception
483: when others then
484: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
485: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Shipped_Quantity');
486: --
487: -- Debug Statements
488: --
489: IF l_debug_on THEN
540: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
541: WSH_DEBUG_SV.log(l_module_name,'P_CYCLE_COUNT_QUANTITY',P_CYCLE_COUNT_QUANTITY);
542: END IF;
543: --
544: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
545:
546: max_qty_to_bo := p_requested_quantity - NVL(p_shipped_quantity, 0);
547: IF max_qty_to_bo < 0 THEN
548: max_qty_to_bo := 0;
548: max_qty_to_bo := 0;
549: END IF;
550:
551: IF p_cycle_count_quantity > max_qty_to_bo THEN
552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
553: fnd_message.set_name('WSH', 'WSH_UI_CYCLE_QTY_ABOVE_TOL');
554: wsh_util_core.add_message(x_return_status);
555: END IF;
556:
550:
551: IF p_cycle_count_quantity > max_qty_to_bo THEN
552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
553: fnd_message.set_name('WSH', 'WSH_UI_CYCLE_QTY_ABOVE_TOL');
554: wsh_util_core.add_message(x_return_status);
555: END IF;
556:
557: --
558: -- Debug Statements
562: END IF;
563: --
564: EXCEPTION
565: WHEN OTHERS THEN
566: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
567: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Cycle_Count_Quantity');
568: --
569: -- Debug Statements
570: --
563: --
564: EXCEPTION
565: WHEN OTHERS THEN
566: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
567: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Cycle_Count_Quantity');
568: --
569: -- Debug Statements
570: --
571: IF l_debug_on THEN
612: others EXCEPTION;
613: --
614: -- RV DEC_QTY
615: l_max_decimal_digits NUMBER := p_max_decimal_digits ;
616: l_max_real_digits CONSTANT NUMBER := WSH_UTIL_CORE.C_MAX_REAL_DIGITS;
617: -- HW OPMCONV - Noneed for OPM variables
618:
619: -- RV DEC_QTY
620: --
643: WSH_DEBUG_SV.log(l_module_name,'P_UOM_CODE',P_UOM_CODE);
644: WSH_DEBUG_SV.log(l_module_name,'P_TOP_MODEL_LINE_ID',P_TOP_MODEL_LINE_ID);
645: END IF;
646: --
647: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
648: /* Bug 2177410, skip validate quantity to avoid error for non-item delivery details */
649:
650: -- BUG 3376504
651: --
655: IF (l_max_decimal_digits IS NULL) THEN
656: --{
657: -- HW OPMCONV - Re-arranged code to avoid branching
658:
659: l_max_decimal_digits := WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS_INV;
660:
661: --}
662: END IF;
663: --
664: -- RV DEC_QTY
665: -- BUG 3376504
666: if p_item_id is not NULL then -- {
667: if ( p_top_model_line_id is not null and p_input_quantity <> trunc ( p_input_quantity ) ) then --{
668: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
669: fnd_message.set_name('WSH', 'WSH_CONFIG_NO_DECIMALS');
670: wsh_util_core.add_message(x_return_status);
671: else
672: --
666: if p_item_id is not NULL then -- {
667: if ( p_top_model_line_id is not null and p_input_quantity <> trunc ( p_input_quantity ) ) then --{
668: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
669: fnd_message.set_name('WSH', 'WSH_CONFIG_NO_DECIMALS');
670: wsh_util_core.add_message(x_return_status);
671: else
672: --
673: -- Debug Statements
674: --
699: -- of decimals are between 5 and 9.
700: -- This should not cause any duplicate messages even when INV starts rounding
701: -- off to 5 digits of decimal.
702: -- HW OPMCOMV - Changed the precision from OPM to INV which is 5
703: IF (p_input_quantity = round(p_input_quantity,WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS_INV)
704: AND x_output_quantity <> round(x_output_quantity,l_max_decimal_digits))
705: THEN
706: --{
707: fnd_message.set_name('INV', 'MAX_DECIMAL_LENGTH');
704: AND x_output_quantity <> round(x_output_quantity,l_max_decimal_digits))
705: THEN
706: --{
707: fnd_message.set_name('INV', 'MAX_DECIMAL_LENGTH');
708: x_return_status := wsh_util_core.g_ret_sts_warning;
709: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
710: --}
711: END IF;
712: x_output_quantity := round(x_output_quantity,l_max_decimal_digits);
705: THEN
706: --{
707: fnd_message.set_name('INV', 'MAX_DECIMAL_LENGTH');
708: x_return_status := wsh_util_core.g_ret_sts_warning;
709: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
710: --}
711: END IF;
712: x_output_quantity := round(x_output_quantity,l_max_decimal_digits);
713: --}
748: END IF;
749: --
750: exception
751: when others then
752: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
753: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity');
754: --
755: -- Debug Statements
756: --
749: --
750: exception
751: when others then
752: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
753: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity');
754: --
755: -- Debug Statements
756: --
757: IF l_debug_on THEN
762: end check_decimal_quantity;
763:
764:
765: PROCEDURE check_unassign_from_delivery(
766: p_detail_rows IN wsh_util_core.id_tab_type,
767: x_return_status OUT NOCOPY VARCHAR2) IS
768:
769: cursor check_unassign (detail_id IN NUMBER) is
770: select da.parent_delivery_detail_id , da.delivery_id ,
803: IF l_debug_on THEN
804: WSH_DEBUG_SV.push(l_module_name);
805: END IF;
806: --
807: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
808:
809: IF (p_detail_rows.count = 0) THEN
810: raise others;
811: END IF;
825:
826: IF l_parent_delivery_Detail_id IS NOT NULL THEN
827: if ( l_container_flag IN ('Y', 'C' )) then
828: FND_MESSAGE.SET_NAME('WSH','WSH_PK_DET_UNASSIGN_DEL');
829: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
830: wsh_util_core.add_message(x_return_status);
831:
832: --
833: -- Debug Statements
826: IF l_parent_delivery_Detail_id IS NOT NULL THEN
827: if ( l_container_flag IN ('Y', 'C' )) then
828: FND_MESSAGE.SET_NAME('WSH','WSH_PK_DET_UNASSIGN_DEL');
829: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
830: wsh_util_core.add_message(x_return_status);
831:
832: --
833: -- Debug Statements
834: --
860: WHEN others THEN
861: IF check_unassign%ISOPEN THEN
862: CLOSE check_unassign;
863: END IF;
864: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.CHECK_UNASSIGN_FROM_DELIVERY');
865: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
866:
867: --
868: -- Debug Statements
861: IF check_unassign%ISOPEN THEN
862: CLOSE check_unassign;
863: END IF;
864: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.CHECK_UNASSIGN_FROM_DELIVERY');
865: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
866:
867: --
868: -- Debug Statements
869: --
875: END check_unassign_from_delivery ;
876:
877:
878: PROCEDURE check_assign_del_multi(
879: p_detail_rows IN wsh_util_core.id_tab_type,
880: x_del_params OUT NOCOPY wsh_delivery_autocreate.grp_attr_rec_type,
881: x_return_status OUT NOCOPY VARCHAR2) IS
882:
883: l_del_rows wsh_util_core.id_tab_type;
879: p_detail_rows IN wsh_util_core.id_tab_type,
880: x_del_params OUT NOCOPY wsh_delivery_autocreate.grp_attr_rec_type,
881: x_return_status OUT NOCOPY VARCHAR2) IS
882:
883: l_del_rows wsh_util_core.id_tab_type;
884: l_group_rows wsh_util_core.id_tab_type;
885:
886: l_detail_org_id NUMBER;
887: l_delivery_id NUMBER;
880: x_del_params OUT NOCOPY wsh_delivery_autocreate.grp_attr_rec_type,
881: x_return_status OUT NOCOPY VARCHAR2) IS
882:
883: l_del_rows wsh_util_core.id_tab_type;
884: l_group_rows wsh_util_core.id_tab_type;
885:
886: l_detail_org_id NUMBER;
887: l_delivery_id NUMBER;
888:
895: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
896: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
897: l_action_rec wsh_delivery_autocreate.action_rec_type;
898: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
899: l_matched_entities wsh_util_core.id_tab_type;
900: l_out_rec wsh_delivery_autocreate.out_rec_type;
901: l_generic_flag varchar2(1);
902:
903:
926: IF l_debug_on THEN
927: WSH_DEBUG_SV.push(l_module_name);
928: END IF;
929: --
930: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
931:
932: IF (p_detail_rows.count = 0) THEN
933: raise others;
934: END IF;
944: CLOSE check_assign;
945: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
946: FND_MESSAGE.SET_TOKEN('DET_NAME', p_detail_rows(i));
947: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_id);
948: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
949: wsh_util_core.add_message(x_return_status);
950:
951: --
952: -- Debug Statements
945: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
946: FND_MESSAGE.SET_TOKEN('DET_NAME', p_detail_rows(i));
947: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_id);
948: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
949: wsh_util_core.add_message(x_return_status);
950:
951: --
952: -- Debug Statements
953: --
1009: END IF;
1010: --
1011: -- Bug 2734531 (handle return status correctly)
1012: --
1013: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1014: RAISE assign_error;
1015: END IF;
1016: --
1017: --
1018: --
1019: x_del_params := l_group_tab(l_group_tab.FIRST);
1020:
1021:
1022: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1023: IF l_debug_on THEN
1024: --
1025: WSH_DEBUG_SV.log(l_module_name, 'Done check_assign_del_multi '|| x_return_status);
1026: --
1034: --
1035: EXCEPTION
1036: WHEN assign_error THEN
1037: FND_MESSAGE.SET_NAME('WSH','WSH_DET_GROUP_ERROR');
1038: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1039: wsh_util_core.add_message(x_return_status);
1040: --
1041: -- Debug Statements
1042: --
1035: EXCEPTION
1036: WHEN assign_error THEN
1037: FND_MESSAGE.SET_NAME('WSH','WSH_DET_GROUP_ERROR');
1038: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1039: wsh_util_core.add_message(x_return_status);
1040: --
1041: -- Debug Statements
1042: --
1043: IF l_debug_on THEN
1048: WHEN others THEN
1049: IF check_assign%ISOPEN THEN
1050: CLOSE check_assign;
1051: END IF;
1052: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.CHECK_ASSIGN_DEL_MULTI');
1053: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1054:
1055: --
1056: -- Debug Statements
1049: IF check_assign%ISOPEN THEN
1050: CLOSE check_assign;
1051: END IF;
1052: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.CHECK_ASSIGN_DEL_MULTI');
1053: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1054:
1055: --
1056: -- Debug Statements
1057: --
1179: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1180: WSH_DEBUG_SV.log(l_module_name,'P_INIT_FLAG',P_INIT_FLAG);
1181: END IF;
1182: --
1183: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1184:
1185: IF p_source_code <> 'OE' THEN
1186: --
1187: -- Debug Statements
1414: p_request_id => l_request_id,
1415: p_batch_id => WSH_PICK_LIST.g_batch_id -- Bug: 1729516
1416: );
1417:
1418: IF (l_exception_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1419: --
1420: -- Debug Statements
1421: --
1422: IF l_debug_on THEN
1424: END IF;
1425: --
1426: END IF;
1427: --Bug: 1573703 Return status needs to be set to 'E'
1428: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1429: raise header_hold_error; --bugfix 6263535
1430:
1431: END IF;
1432: END IF;
1446:
1447: l_passed_index := get_table_index(p_entity_id=>l_line_id, x_table=>g_passed_crd_tab);
1448: IF g_passed_crd_Tab.exists(l_passed_index) THEN
1449: l_exists_flag := 'Y';
1450: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1451: END IF;
1452:
1453: IF (l_exists_flag = 'N') THEN
1454: l_failed_index := get_table_index(p_entity_id=>l_line_id, p_alt_index=>l_passed_index, x_table=>g_failed_crd_tab);
1538: p_request_id => l_request_id,
1539: p_batch_id => WSH_PICK_LIST.g_batch_id -- Bug: 1729516
1540: );
1541:
1542: IF (l_exception_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1543: --
1544: -- Debug Statements
1545: --
1546: IF l_debug_on THEN
1548: END IF;
1549: --
1550: END IF;
1551: --Bug: 1573703 Return status needs to be set to 'E'
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1553: -- bug 2882720: set message in case the concurrent program rolls back so that the exception is gone.
1554: IF p_activity_type = 'PICK' THEN
1555: FND_MESSAGE.SET_NAME('WSH','WSH_PICK_LINE_HOLD_ERROR');
1556: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1560: ELSE
1561: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_LINE_HOLD_ERROR');
1562: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1563: END IF;
1564: wsh_util_core.add_message(x_return_status);
1565: -- bug 2882720 change end
1566:
1567: END IF; /* 1729516 */
1568:
1584: EXCEPTION
1585: WHEN header_hold_error THEN
1586: FND_MESSAGE.SET_NAME('WSH','WSH_HEADER_HOLD_ERROR');
1587: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1588: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1589: wsh_util_core.add_message(x_return_status);
1590: --
1591: -- Debug Statements
1592: --
1585: WHEN header_hold_error THEN
1586: FND_MESSAGE.SET_NAME('WSH','WSH_HEADER_HOLD_ERROR');
1587: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1588: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1589: wsh_util_core.add_message(x_return_status);
1590: --
1591: -- Debug Statements
1592: --
1593: IF l_debug_on THEN
1605: ELSE
1606: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_LINE_HOLD_ERROR');
1607: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1608: END IF;
1609: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1610: wsh_util_core.add_message(x_return_status);
1611: --
1612: -- Debug Statements
1613: --
1606: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_LINE_HOLD_ERROR');
1607: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1608: END IF;
1609: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1610: wsh_util_core.add_message(x_return_status);
1611: --
1612: -- Debug Statements
1613: --
1614: IF l_debug_on THEN
1618:
1619: WHEN credit_hold_error THEN
1620: FND_MESSAGE.SET_NAME('WSH','WSH_DET_CREDIT_HOLD_ERROR');
1621: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1622: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1623: wsh_util_core.add_message(x_return_status);
1624: --
1625: -- Debug Statements
1626: --
1619: WHEN credit_hold_error THEN
1620: FND_MESSAGE.SET_NAME('WSH','WSH_DET_CREDIT_HOLD_ERROR');
1621: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1622: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1623: wsh_util_core.add_message(x_return_status);
1624: --
1625: -- Debug Statements
1626: --
1627: IF l_debug_on THEN
1629: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREDIT_HOLD_ERROR');
1630: END IF;
1631: --
1632: WHEN others THEN
1633: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Credit_Holds');
1634: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1635:
1636: --
1637: -- Debug Statements
1630: END IF;
1631: --
1632: WHEN others THEN
1633: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Credit_Holds');
1634: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1635:
1636: --
1637: -- Debug Statements
1638: --
1801: x_avail_req_quantity := NULL;
1802: x_max_quantity2_allowed := NULL;
1803: x_avail_req_quantity2 := NULL;
1804:
1805: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1806: --
1807: -- Debug Statements
1808: --
1809: IF l_debug_on THEN
1831: x_max_quantity_allowed := NULL;
1832: x_avail_req_quantity := NULL;
1833: x_max_quantity2_allowed := NULL;
1834: x_avail_req_quantity2 := NULL;
1835: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1836: --
1837: -- Debug Statements
1838: --
1839: IF l_debug_on THEN
1861: x_max_quantity_allowed := NULL;
1862: x_avail_req_quantity := NULL;
1863: x_max_quantity2_allowed := NULL;
1864: x_avail_req_quantity2 := NULL;
1865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1866: --
1867: -- Debug Statements
1868: --
1869: IF l_debug_on THEN
1974:
1975: -- HW OPMCONV _ Removed print statements
1976: -- HW for debugging purposes, print values
1977:
1978: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1979:
1980:
1981: --
1982: -- Debug Statements
2003: x_avail_req_quantity := NULL;
2004: -- HW Added for OPM
2005: x_max_quantity2_allowed := NULL;
2006: x_avail_req_quantity2 := NULL;
2007: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2008: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_quantity_to_pick');
2009:
2010: --
2011: -- Debug Statements
2004: -- HW Added for OPM
2005: x_max_quantity2_allowed := NULL;
2006: x_avail_req_quantity2 := NULL;
2007: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2008: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_quantity_to_pick');
2009:
2010: --
2011: -- Debug Statements
2012: --
2086: END IF;
2087: --
2088: EXCEPTION
2089: WHEN OTHERS THEN
2090: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2091: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_quantity_to_pick');
2092:
2093: --
2094: -- Debug Statements
2087: --
2088: EXCEPTION
2089: WHEN OTHERS THEN
2090: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2091: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_quantity_to_pick');
2092:
2093: --
2094: -- Debug Statements
2095: --
2162: --
2163: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2164: END IF;
2165: --
2166: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2167:
2168: open c_check_qty_inside_del (p_delivery_id);
2169: fetch c_check_qty_inside_del into l_req_qty, l_source_code, l_source_line_id;
2170: IF c_check_qty_inside_del%FOUND THEN
2209: --
2210: EXCEPTION
2211:
2212: WHEN req_qty_zero THEN
2213: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2214: FND_MESSAGE.SET_TOKEN('DELIVERY', p_delivery_id);
2215: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', l_source_code);
2216: FND_MESSAGE.SET_TOKEN('SOURCE_LINE', l_source_line_id);
2217: wsh_util_core.add_message(x_return_status);
2213: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2214: FND_MESSAGE.SET_TOKEN('DELIVERY', p_delivery_id);
2215: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', l_source_code);
2216: FND_MESSAGE.SET_TOKEN('SOURCE_LINE', l_source_line_id);
2217: wsh_util_core.add_message(x_return_status);
2218:
2219: --
2220: -- Debug Statements
2221: --
2227: WHEN others THEN
2228: IF c_check_qty_inside_del%ISOPEN THEN
2229: close c_check_qty_inside_del;
2230: END IF;
2231: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2232: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_zero_req_confirm');
2233:
2234: --
2235: -- Debug Statements
2228: IF c_check_qty_inside_del%ISOPEN THEN
2229: close c_check_qty_inside_del;
2230: END IF;
2231: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2232: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_zero_req_confirm');
2233:
2234: --
2235: -- Debug Statements
2236: --
2257: p_delivery_detail_id IN NUMBER
2258: , p_delivery_id IN NUMBER
2259: , p_list_type IN VARCHAR2
2260: , x_return_status OUT NOCOPY VARCHAR2
2261: , x_disabled_list OUT NOCOPY WSH_UTIL_CORE.column_tab_type
2262: , x_msg_count OUT NOCOPY NUMBER
2263: , x_msg_data OUT NOCOPY VARCHAR2
2264: , p_caller IN VARCHAR2 -- DEFAULT NULL, --public api changes
2265: )
2767: END IF;
2768: --
2769: EXCEPTION
2770: WHEN e_all_disabled THEN --public api changes
2771: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2772: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
2773: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_detail_id);
2774: wsh_util_core.add_message(x_return_status,l_module_name);
2775: IF l_debug_on THEN
2770: WHEN e_all_disabled THEN --public api changes
2771: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2772: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
2773: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_detail_id);
2774: wsh_util_core.add_message(x_return_status,l_module_name);
2775: IF l_debug_on THEN
2776: -- Nothing is updateable
2777: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
2778: END IF;
2787: ELSE
2788: l_delivery_detail_id := p_delivery_detail_id;
2789: END IF;
2790: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_delivery_detail_id);
2791: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2792: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2793: IF x_msg_count > 1 then
2794: x_msg_data := l_msg_summary || l_msg_details;
2795: ELSE
2788: l_delivery_detail_id := p_delivery_detail_id;
2789: END IF;
2790: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_delivery_detail_id);
2791: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2792: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2793: IF x_msg_count > 1 then
2794: x_msg_data := l_msg_summary || l_msg_details;
2795: ELSE
2796: x_msg_data := l_msg_summary;
2812: ELSE
2813: l_delivery_id := p_delivery_id;
2814: END IF;
2815: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_delivery_id);
2816: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2817: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2818: IF x_msg_count > 1 then
2819: x_msg_data := l_msg_summary || l_msg_details;
2820: ELSE
2813: l_delivery_id := p_delivery_id;
2814: END IF;
2815: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_delivery_id);
2816: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2817: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2818: IF x_msg_count > 1 then
2819: x_msg_data := l_msg_summary || l_msg_details;
2820: ELSE
2821: x_msg_data := l_msg_summary;
2828:
2829: WHEN wsh_inv_list_type THEN
2830: x_return_status := FND_API.G_RET_STS_ERROR;
2831: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
2832: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2833: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2834: IF x_msg_count > 1 then
2835: x_msg_data := l_msg_summary || l_msg_details;
2836: ELSE
2829: WHEN wsh_inv_list_type THEN
2830: x_return_status := FND_API.G_RET_STS_ERROR;
2831: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
2832: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2833: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2834: IF x_msg_count > 1 then
2835: x_msg_data := l_msg_summary || l_msg_details;
2836: ELSE
2837: x_msg_data := l_msg_summary;
2848: WHEN others THEN
2849: IF (get_delivery_status%ISOPEN) THEN
2850: CLOSE get_delivery_status;
2851: END IF;
2852: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list');
2853: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2854:
2855:
2856: --
2849: IF (get_delivery_status%ISOPEN) THEN
2850: CLOSE get_delivery_status;
2851: END IF;
2852: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list');
2853: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2854:
2855:
2856: --
2857: -- Debug Statements
3250: WSH_DEBUG_SV.log(l_module_name, 'l_max_remaining_quantity before the modification',l_max_remaining_quantity);
3251: WSH_DEBUG_SV.log(l_module_name, 'l_min_remaining_quantity before the modification',l_min_remaining_quantity);
3252: END IF;
3253: --
3254: l_max_remaining_quantity := trunc(l_max_remaining_quantity, wsh_util_core.c_max_decimal_digits_inv);
3255: IF (round(l_min_remaining_quantity,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity) THEN
3256: --{
3257: l_min_remaining_quantity := round(l_min_remaining_quantity + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3258: --}
3251: WSH_DEBUG_SV.log(l_module_name, 'l_min_remaining_quantity before the modification',l_min_remaining_quantity);
3252: END IF;
3253: --
3254: l_max_remaining_quantity := trunc(l_max_remaining_quantity, wsh_util_core.c_max_decimal_digits_inv);
3255: IF (round(l_min_remaining_quantity,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity) THEN
3256: --{
3257: l_min_remaining_quantity := round(l_min_remaining_quantity + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3258: --}
3259: ELSE
3253: --
3254: l_max_remaining_quantity := trunc(l_max_remaining_quantity, wsh_util_core.c_max_decimal_digits_inv);
3255: IF (round(l_min_remaining_quantity,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity) THEN
3256: --{
3257: l_min_remaining_quantity := round(l_min_remaining_quantity + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3258: --}
3259: ELSE
3260: --{
3261: l_min_remaining_quantity := round(l_min_remaining_quantity, wsh_util_core.c_max_decimal_digits_inv);
3257: l_min_remaining_quantity := round(l_min_remaining_quantity + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3258: --}
3259: ELSE
3260: --{
3261: l_min_remaining_quantity := round(l_min_remaining_quantity, wsh_util_core.c_max_decimal_digits_inv);
3262: --}
3263: END IF;
3264: --
3265: IF l_debug_on THEN
3282: WSH_DEBUG_SV.log(l_module_name, 'l_max_remaining_quantity2 before the modification',l_max_remaining_quantity2);
3283: WSH_DEBUG_SV.log(l_module_name, 'l_min_remaining_quantity2 before the modification',l_min_remaining_quantity2);
3284: END IF;
3285: --
3286: l_max_remaining_quantity2 := trunc(l_max_remaining_quantity2, wsh_util_core.c_max_decimal_digits_inv);
3287: IF (round(l_min_remaining_quantity2,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity2) THEN
3288: --{
3289: l_min_remaining_quantity2 := round(l_min_remaining_quantity2 + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3290: --}
3283: WSH_DEBUG_SV.log(l_module_name, 'l_min_remaining_quantity2 before the modification',l_min_remaining_quantity2);
3284: END IF;
3285: --
3286: l_max_remaining_quantity2 := trunc(l_max_remaining_quantity2, wsh_util_core.c_max_decimal_digits_inv);
3287: IF (round(l_min_remaining_quantity2,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity2) THEN
3288: --{
3289: l_min_remaining_quantity2 := round(l_min_remaining_quantity2 + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3290: --}
3291: ELSE
3285: --
3286: l_max_remaining_quantity2 := trunc(l_max_remaining_quantity2, wsh_util_core.c_max_decimal_digits_inv);
3287: IF (round(l_min_remaining_quantity2,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity2) THEN
3288: --{
3289: l_min_remaining_quantity2 := round(l_min_remaining_quantity2 + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3290: --}
3291: ELSE
3292: --{
3293: l_min_remaining_quantity2 := round(l_min_remaining_quantity2, wsh_util_core.c_max_decimal_digits_inv);
3289: l_min_remaining_quantity2 := round(l_min_remaining_quantity2 + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3290: --}
3291: ELSE
3292: --{
3293: l_min_remaining_quantity2 := round(l_min_remaining_quantity2, wsh_util_core.c_max_decimal_digits_inv);
3294: --}
3295: END IF;
3296: --
3297: IF l_debug_on THEN
3350: END IF;
3351:
3352: EXCEPTION
3353: WHEN OTHERS THEN
3354: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3355: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_min_max_tolerance_quantity',
3356: l_module_name);
3357:
3358: x_out_attributes.min_remaining_quantity := 0;
3351:
3352: EXCEPTION
3353: WHEN OTHERS THEN
3354: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3355: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_min_max_tolerance_quantity',
3356: l_module_name);
3357:
3358: x_out_attributes.min_remaining_quantity := 0;
3359: x_out_attributes.max_remaining_quantity := 0;
3398: p_action IN VARCHAR2,
3399: p_caller IN VARCHAR2,
3400: p_deliveryid IN NUMBER DEFAULT null,
3401: x_return_status OUT NOCOPY VARCHAR2,
3402: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
3403: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
3404: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
3405: ) IS
3406:
3399: p_caller IN VARCHAR2,
3400: p_deliveryid IN NUMBER DEFAULT null,
3401: x_return_status OUT NOCOPY VARCHAR2,
3402: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
3403: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
3404: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
3405: ) IS
3406:
3407: cursor det_to_del_cur( p_del_det_id IN NUMBER ) is
3400: p_deliveryid IN NUMBER DEFAULT null,
3401: x_return_status OUT NOCOPY VARCHAR2,
3402: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
3403: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
3404: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
3405: ) IS
3406:
3407: cursor det_to_del_cur( p_del_det_id IN NUMBER ) is
3408: select wnd.organization_id,
3449: l_content_id NUMBER := NULL;
3450:
3451:
3452: l_detail_actions_tab DetailActionsTabType;
3453: l_valid_ids wsh_util_core.id_tab_type;
3454: l_error_ids wsh_util_core.id_tab_type;
3455: l_valid_index_tab wsh_util_core.id_tab_type;
3456: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
3457:
3450:
3451:
3452: l_detail_actions_tab DetailActionsTabType;
3453: l_valid_ids wsh_util_core.id_tab_type;
3454: l_error_ids wsh_util_core.id_tab_type;
3455: l_valid_index_tab wsh_util_core.id_tab_type;
3456: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
3457:
3458: l_pass_section_a VARCHAR2(1):='Y';
3451:
3452: l_detail_actions_tab DetailActionsTabType;
3453: l_valid_ids wsh_util_core.id_tab_type;
3454: l_error_ids wsh_util_core.id_tab_type;
3455: l_valid_index_tab wsh_util_core.id_tab_type;
3456: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
3457:
3458: l_pass_section_a VARCHAR2(1):='Y';
3459: l_organization_id NUMBER;
3523: IF l_debug_on THEN
3524: WSH_DEBUG_SV.log(l_module_name,'Init_Detail_Actions_Tbl x_return_status',x_return_status);
3525: END IF;
3526:
3527: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3528: raise error_in_init_actions;
3529: END IF;
3530:
3531: -- Loop through the given table
3561: x_return_status => l_return_status );
3562: IF l_debug_on THEN
3563: wsh_debug_sv.log(l_module_name, 'Return status after wsh_util_validate.get_org_type', l_return_status);
3564: END IF;
3565: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
3566: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3567: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
3568: raise e_record_ineligible;
3569: exit;
3563: wsh_debug_sv.log(l_module_name, 'Return status after wsh_util_validate.get_org_type', l_return_status);
3564: END IF;
3565: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
3566: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3567: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
3568: raise e_record_ineligible;
3569: exit;
3570: END IF;
3571:
3668: END IF;
3669: --
3670: IF nvl(p_del_detail_rec_tab(j).line_direction,'O') NOT IN ('O','IO') -- Inbound/Drop-ship
3671: AND l_released_status IN ('C','L','P') -- Shipped/Closed
3672: AND l_ship_from_location_id = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
3673: -- Supplier-managed freight (/Buyer-RReq. not recvd)
3674: THEN
3675: --{
3676: /*
3679: l_released_status := 'X';
3680: ELSIF p_action IN ( 'AUTOCREATE-DEL', 'UNASSIGN' )
3681: THEN
3682: --{
3683: IF p_caller like '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX
3684: THEN
3685: --{
3686: l_released_status := 'X';
3687: l_ship_from_location_id := WSH_UTIL_CORE.C_NOTNULL_SF_LOCN_ID;
3683: IF p_caller like '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX
3684: THEN
3685: --{
3686: l_released_status := 'X';
3687: l_ship_from_location_id := WSH_UTIL_CORE.C_NOTNULL_SF_LOCN_ID;
3688: --}
3689: END IF;
3690: --}
3691: END IF;
3728: IF l_debug_on THEN
3729: wsh_debug_sv.log(l_module_name, 'Message Name is', l_detail_actions_tab(k).message_name);
3730: END IF;
3731: FND_MESSAGE.SET_NAME('WSH',l_detail_actions_tab(k).message_name);
3732: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
3733: END IF;
3734: raise e_record_ineligible;
3735: exit;
3736: END IF;
3799: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_VALIDATIONS.Is_Action_Enabled l_return_status',
3800: l_return_status);
3801: END IF;
3802:
3803: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3804: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3805: raise e_record_ineligible;
3806: ELSE
3807: x_valid_ids(x_valid_ids.COUNT + 1) := p_del_detail_rec_tab(j).delivery_detail_id;
3800: l_return_status);
3801: END IF;
3802:
3803: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3804: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3805: raise e_record_ineligible;
3806: ELSE
3807: x_valid_ids(x_valid_ids.COUNT + 1) := p_del_detail_rec_tab(j).delivery_detail_id;
3808: x_valid_index_tab(j) := j;
3838: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_VALIDATIONS.Is_Action_Enabled l_return_status',
3839: l_return_status);
3840: END IF;
3841:
3842: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3843: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3844: raise e_record_ineligible;
3845: ELSE
3846: x_valid_ids(x_valid_ids.COUNT + 1) := p_del_detail_rec_tab(j).delivery_detail_id;
3839: l_return_status);
3840: END IF;
3841:
3842: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3843: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3844: raise e_record_ineligible;
3845: ELSE
3846: x_valid_ids(x_valid_ids.COUNT + 1) := p_del_detail_rec_tab(j).delivery_detail_id;
3847: x_valid_index_tab(j) := j;
3899: WSH_DEBUG_SV.log(l_module_name,'WMS_SHIPPING_INTERFACE_GRP.process_delivery_details l_wms_table(1).return_status',
3900: l_wms_table(1).return_status);
3901: END IF;
3902:
3903: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS OR l_wms_table(1).return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3904: raise e_wms_record_ineligible;
3905: END IF;
3906: END IF; -- l_content_id IS NOT NULL
3907: END IF;--l_wms_installed
3919: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_VALIDATIONS.Is_Action_Enabled l_return_status',
3920: l_return_status);
3921: END IF;
3922:
3923: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3924: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3925: raise e_record_ineligible;
3926: ELSE
3927: IF (p_del_detail_rec_tab(j).source_code = 'WSH' and p_del_detail_rec_tab(j).container_flag = 'N' ) THEN
3920: l_return_status);
3921: END IF;
3922:
3923: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3924: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3925: raise e_record_ineligible;
3926: ELSE
3927: IF (p_del_detail_rec_tab(j).source_code = 'WSH' and p_del_detail_rec_tab(j).container_flag = 'N' ) THEN
3928: raise e_record_ineligible;
4007: IF nvl(p_caller, FND_API.G_MISS_CHAR) = 'WSH_PUB'
4008: OR p_caller like 'FTE%' THEN
4009: FND_MESSAGE.SET_NAME('WSH', 'WSH_DETAIL_ACTION_INELIGIBLE');
4010: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_del_detail_rec_tab(j).delivery_detail_id);
4011: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('DLVB',p_action));
4012: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4013: END IF;
4014:
4015: WHEN e_wms_record_ineligible THEN
4008: OR p_caller like 'FTE%' THEN
4009: FND_MESSAGE.SET_NAME('WSH', 'WSH_DETAIL_ACTION_INELIGIBLE');
4010: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_del_detail_rec_tab(j).delivery_detail_id);
4011: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('DLVB',p_action));
4012: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4013: END IF;
4014:
4015: WHEN e_wms_record_ineligible THEN
4016: IF det_to_del_cur%ISOPEN THEN
4023: IF nvl(p_caller, FND_API.G_MISS_CHAR) = 'WSH_PUB'
4024: OR p_caller like 'FTE%' THEN
4025: FND_MESSAGE.SET_NAME('WSH', 'WSH_DETAIL_ACTION_INELIGIBLE');
4026: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_del_detail_rec_tab(j).delivery_detail_id);
4027: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('DLVB',p_action));
4028: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4029: END IF;
4030:
4031: WHEN e_tp_record_ineligible THEN
4024: OR p_caller like 'FTE%' THEN
4025: FND_MESSAGE.SET_NAME('WSH', 'WSH_DETAIL_ACTION_INELIGIBLE');
4026: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_del_detail_rec_tab(j).delivery_detail_id);
4027: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('DLVB',p_action));
4028: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4029: END IF;
4030:
4031: WHEN e_tp_record_ineligible THEN
4032: IF det_to_del_cur%ISOPEN THEN
4040: OR p_caller like 'FTE%' THEN
4041: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_ASSIGN_FIRMDEL_ERROR');
4042: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_del_detail_rec_tab(j).delivery_detail_id);
4043: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_deliveryid));
4044: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4045: END IF;
4046:
4047: WHEN others THEN
4048: IF det_to_del_cur%ISOPEN THEN
4053:
4054: END LOOP;
4055:
4056: IF (x_valid_ids.COUNT = 0 ) THEN
4057: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4058: --
4059: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4060: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
4061: wsh_util_core.add_message(x_return_status,l_module_name);
4057: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4058: --
4059: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4060: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
4061: wsh_util_core.add_message(x_return_status,l_module_name);
4062: END IF;
4063: --
4064: ELSIF (x_valid_ids.COUNT = p_del_detail_rec_tab.COUNT) THEN
4065: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4061: wsh_util_core.add_message(x_return_status,l_module_name);
4062: END IF;
4063: --
4064: ELSIF (x_valid_ids.COUNT = p_del_detail_rec_tab.COUNT) THEN
4065: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4066: ELSIF (x_valid_ids.COUNT < p_del_detail_rec_tab.COUNT ) THEN
4067: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4068: --
4069: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4063: --
4064: ELSIF (x_valid_ids.COUNT = p_del_detail_rec_tab.COUNT) THEN
4065: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4066: ELSIF (x_valid_ids.COUNT < p_del_detail_rec_tab.COUNT ) THEN
4067: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4068: --
4069: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4070: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
4071: wsh_util_core.add_message(x_return_status,l_module_name);
4067: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4068: --
4069: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4070: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
4071: wsh_util_core.add_message(x_return_status,l_module_name);
4072: END IF;
4073: --
4074: ELSE
4075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4071: wsh_util_core.add_message(x_return_status,l_module_name);
4072: END IF;
4073: --
4074: ELSE
4075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4076: --
4077: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4078: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
4079: wsh_util_core.add_message(x_return_status,l_module_name);
4075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4076: --
4077: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4078: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
4079: wsh_util_core.add_message(x_return_status,l_module_name);
4080: END IF;
4081: --
4082: END IF;
4083:
4093: END IF;
4094:
4095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4097: wsh_util_core.add_message(x_return_status, l_module_name);
4098: IF l_debug_on THEN
4099: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4100: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4101: END IF;
4103: CLOSE c_staged_content;
4104: END IF;
4105:
4106: WHEN OTHERS THEN
4107: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4108: IF l_debug_on THEN
4109: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
4110: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4517: -- and disables the field contained in p_disabled_list.
4518: -----------------------------------------------------------*/
4519:
4520: PROCEDURE disable_from_list(
4521: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
4522: , p_in_rec IN wsh_glbl_var_strct_grp.delivery_details_rec_type
4523: , x_out_rec IN OUT NOCOPY wsh_glbl_var_strct_grp.delivery_details_rec_type
4524: , x_return_status OUT NOCOPY VARCHAR2
4525: , x_field_name OUT NOCOPY VARCHAR2
4667: NULL;
4668: ELSE
4669: -- invalid name
4670: x_field_name := p_disabled_list(i);
4671: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4672: RETURN;
4673: --
4674: END IF;
4675: END LOOP;
4680: -- included in p_disabled_list and will enable them
4681: -----------------------------------------------------------*/
4682:
4683: PROCEDURE enable_from_list(
4684: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
4685: , p_in_rec IN wsh_glbl_var_strct_grp.delivery_details_rec_type
4686: , x_out_rec IN OUT NOCOPY wsh_glbl_var_strct_grp.delivery_details_rec_type
4687: , x_return_status OUT NOCOPY VARCHAR2
4688: , x_field_name OUT NOCOPY VARCHAR2
5172: NULL;*/
5173: ELSE
5174: -- invalid name
5175: x_field_name := p_disabled_list(i);
5176: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5177: RETURN;
5178: --
5179: END IF;
5180: END LOOP;
5192: , x_msg_data OUT NOCOPY VARCHAR2
5193: , x_delivery_detail_rec OUT NOCOPY wsh_glbl_var_strct_grp.delivery_details_rec_type
5194: )
5195: IS
5196: l_disabled_list WSH_UTIL_CORE.column_tab_type;
5197: l_db_col_rec wsh_glbl_var_strct_grp.delivery_details_rec_type;
5198: l_return_status VARCHAR2(30);
5199: l_field_name VARCHAR2(100);
5200: j NUMBER := 0;
5491: , x_msg_data
5492: , l_caller --public api changes
5493: );
5494: --
5495: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
5496: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5497: THEN
5498: --
5499: IF l_debug_on THEN
5492: , l_caller --public api changes
5493: );
5494: --
5495: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
5496: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5497: THEN
5498: --
5499: IF l_debug_on THEN
5500: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
5606: p_delivery_detail_rec,
5607: x_delivery_detail_rec,
5608: l_return_status,
5609: l_field_name);
5610: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5611: RAISE e_bad_field;
5612: END IF;
5613: END IF;
5614: ELSE -- list.count > 1 and list(1) <> 'FULL'
5649: l_db_col_rec,
5650: x_delivery_detail_rec,
5651: l_return_status,
5652: l_field_name);
5653: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5654: RAISE e_bad_field;
5655: END IF;
5656: END IF;
5657:
5805: x_delivery_detail_rec,
5806: l_return_status,
5807: l_field_name);
5808:
5809: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5810: RAISE e_bad_field;
5811: END IF;
5812:
5813:
5830: p_out_rec => x_delivery_detail_rec,
5831: p_in_rec => p_in_rec,
5832: x_return_status => l_return_status);
5833: --
5834: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5835: x_return_status := l_return_status;
5836: END IF;
5837: --
5838: END IF;
5842: END IF;
5843:
5844: EXCEPTION
5845: WHEN e_all_disabled THEN
5846: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5847: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
5848: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_detail_rec.delivery_detail_id);
5849: wsh_util_core.add_message(x_return_status,l_module_name);
5850: IF l_debug_on THEN
5845: WHEN e_all_disabled THEN
5846: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5847: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
5848: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_detail_rec.delivery_detail_id);
5849: wsh_util_core.add_message(x_return_status,l_module_name);
5850: IF l_debug_on THEN
5851: -- Nothing is updateable
5852: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
5853: END IF;
5851: -- Nothing is updateable
5852: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
5853: END IF;
5854: WHEN e_dp_no_entity THEN
5855: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5856: -- the message for this is set in original get_disabled_list
5857: IF l_debug_on THEN
5858: WSH_DEBUG_SV.pop(l_module_name,'e_dp_no_entity');
5859: END IF;
5857: IF l_debug_on THEN
5858: WSH_DEBUG_SV.pop(l_module_name,'e_dp_no_entity');
5859: END IF;
5860: WHEN e_bad_field THEN
5861: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5862: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
5863: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
5864: wsh_util_core.add_message(x_return_status,l_module_name);
5865: IF l_debug_on THEN
5860: WHEN e_bad_field THEN
5861: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5862: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
5863: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
5864: wsh_util_core.add_message(x_return_status,l_module_name);
5865: IF l_debug_on THEN
5866: WSH_DEBUG_SV.log(l_module_name,'Bad field name passed to the list:'
5867: ,l_field_name);
5868: WSH_DEBUG_SV.pop(l_module_name,'e_bad_field');
5868: WSH_DEBUG_SV.pop(l_module_name,'e_bad_field');
5869: END IF;
5870:
5871: WHEN OTHERS THEN
5872: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5873: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list',
5874: l_module_name);
5875: IF l_debug_on THEN
5876: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
5869: END IF;
5870:
5871: WHEN OTHERS THEN
5872: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5873: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list',
5874: l_module_name);
5875: IF l_debug_on THEN
5876: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
5877: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5905: --
5906: WSH_DEBUG_SV.log(l_module_name,'p_action', p_action);
5907: END IF;
5908: --
5909: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5910:
5911: -- OTM R12
5912: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
5913:
5908: --
5909: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5910:
5911: -- OTM R12
5912: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
5913:
5914: IF (l_gc3_is_installed IS NULL) THEN
5915: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
5916: END IF;
5911: -- OTM R12
5912: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
5913:
5914: IF (l_gc3_is_installed IS NULL) THEN
5915: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
5916: END IF;
5917: -- End of OTM R12
5918:
5919: --
6062: x_detail_actions_tab(i).line_direction := 'I';
6063: x_detail_actions_tab(i).released_status := 'L';
6064: x_detail_actions_tab(i).action_not_allowed := p_action;
6065: i := i+1;
6066: x_detail_actions_tab(i).ship_from_location_id := WSH_UTIL_CORE.C_NULL_SF_LOCN_ID;
6067: x_detail_actions_tab(i).action_not_allowed := p_action;
6068: --}
6069: END IF;
6070: -- J-IB-NPARIKH-}
6168: --
6169: -- Lines cannot be included for planning if ship-from location is null
6170: --
6171: i := i+1;
6172: x_detail_actions_tab(i).ship_from_location_id := WSH_UTIL_CORE.C_NULL_SF_LOCN_ID;
6173: x_detail_actions_tab(i).action_not_allowed := p_action;
6174: --bug 3458160
6175: IF l_gc3_is_installed = 'N' THEN
6176: -- 5746444: enforce this condition when OTM is disabled.
6205: WSH_DEBUG_SV.pop(l_module_name);
6206: END IF;
6207: EXCEPTION
6208: WHEN OTHERS THEN
6209: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6210: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Init_Detail_Actions_Tbl', l_module_name);
6211: IF l_debug_on THEN
6212: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
6213: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6206: END IF;
6207: EXCEPTION
6208: WHEN OTHERS THEN
6209: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6210: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Init_Detail_Actions_Tbl', l_module_name);
6211: IF l_debug_on THEN
6212: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
6213: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6214: END IF;
6284: WSH_DEBUG_SV.log(l_module_name, 'unmark_serial_server ', x_det_rec.unmark_serial_server);
6285: WSH_DEBUG_SV.log(l_module_name, 'unmark_serial_form ', x_det_rec.unmark_serial_form);
6286: END IF;
6287:
6288: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6289:
6290: IF(p_flag = 'SQ') THEN
6291: l_input_quantity := x_det_rec.shipped_quantity;
6292: --added for Bug # 3266333
6324: p_field_name => l_field_name,
6325: x_return_status => l_return_status );
6326: --
6327:
6328: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6329: RAISE FND_API.G_EXC_ERROR;
6330: END IF;
6331:
6332:
6355: ELSIF(p_flag = 'CCQ') THEN
6356: x_det_rec.cycle_count_quantity := l_quantity;
6357: END IF;
6358:
6359: IF l_return_status <> wsh_util_core.g_ret_sts_success THEN
6360: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6361: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
6362: ELSE
6363: RAISE FND_API.G_EXC_ERROR;
6356: x_det_rec.cycle_count_quantity := l_quantity;
6357: END IF;
6358:
6359: IF l_return_status <> wsh_util_core.g_ret_sts_success THEN
6360: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6361: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
6362: ELSE
6363: RAISE FND_API.G_EXC_ERROR;
6364: END IF;
6357: END IF;
6358:
6359: IF l_return_status <> wsh_util_core.g_ret_sts_success THEN
6360: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6361: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
6362: ELSE
6363: RAISE FND_API.G_EXC_ERROR;
6364: END IF;
6365: END IF;
6381: p_shipped_quantity => NVL(l_quantity, 0),
6382: p_cycle_count_quantity => NVL(x_det_rec.cycle_count_quantity, 0),
6383: x_return_status => l_return_status);
6384:
6385: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6386: RAISE FND_API.G_EXC_ERROR;
6387: END IF;
6388:
6389:
6400: p_shipped_quantity => NVL(x_det_rec.shipped_quantity, 0),
6401: p_cycle_count_quantity => NVL(l_quantity, 0),
6402: x_return_status => l_return_status);
6403:
6404: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6405: RAISE FND_API.G_EXC_ERROR;
6406: END IF;
6407: END IF;
6408:
6425: -- End of Bug 3628620
6426: -- Bug 2828503 : added warning for unmarking of serial_numbers
6427: x_det_rec.unmark_serial_form := 'Y';
6428: fnd_message.set_name('WSH', 'WSH_UI_UNMARK_SERIAL_NUM');
6429: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
6430: l_number_of_warnings := l_number_of_warnings + 1;
6431:
6432: IF x_det_rec.serial_quantity > 0 AND x_det_rec.unmark_serial_server = 'Y' THEN
6433:
6445: IF l_debug_on THEN
6446: wsh_debug_sv.log(l_module_name, 'Return status after Unmark serial', l_return_status);
6447: END IF;
6448:
6449: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6450: RAISE FND_API.G_EXC_ERROR;
6451: END IF;
6452: END IF; -- if serial_quantity > 0
6453:
6469: IF x_det_rec.serial_quantity > 0 THEN
6470: -- Bug 2828503 : added warning for unmarking of serial_numbers
6471: x_det_rec.unmark_serial_form := 'Y';
6472: fnd_message.set_name('WSH', 'WSH_UI_UNMARK_SERIAL_NUM');
6473: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
6474: l_number_of_warnings := l_number_of_warnings + 1;
6475:
6476: IF l_debug_on THEN
6477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.UNMARK_SERIAL_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
6489: IF l_debug_on THEN
6490: wsh_debug_sv.log(l_module_name, 'Return status after Unmark serial', l_return_status);
6491: END IF;
6492:
6493: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6494: RAISE FND_API.G_EXC_ERROR;
6495: END IF;
6496: END IF; -- if serial_quantity > 0
6497:
6517: WSH_DEBUG_SV.log(l_module_name, 'Output Cycle_Count quantity', x_det_rec.cycle_count_quantity);
6518: END IF;
6519:
6520: IF l_number_of_warnings > 0 THEN
6521: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6522: END IF;
6523:
6524: IF l_debug_on THEN
6525: WSH_DEBUG_SV.log(l_module_name, 'Return status from api ', x_return_status);
6528:
6529: EXCEPTION
6530: WHEN FND_API.G_EXC_ERROR THEN
6531: x_return_status := FND_API.G_RET_STS_ERROR ;
6532: wsh_util_core.add_message(x_return_status, l_module_name);
6533: FND_MSG_PUB.Count_And_Get
6534: (
6535: p_count => x_msg_count,
6536: p_data => x_msg_data,
6541: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6542: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6543: END IF;
6544: --
6545: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6546: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6547: wsh_util_core.add_message(x_return_status, l_module_name);
6548: FND_MSG_PUB.Count_And_Get
6549: (
6542: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6543: END IF;
6544: --
6545: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6546: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6547: wsh_util_core.add_message(x_return_status, l_module_name);
6548: FND_MSG_PUB.Count_And_Get
6549: (
6550: p_count => x_msg_count,
6543: END IF;
6544: --
6545: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6546: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6547: wsh_util_core.add_message(x_return_status, l_module_name);
6548: FND_MSG_PUB.Count_And_Get
6549: (
6550: p_count => x_msg_count,
6551: p_data => x_msg_data,
6552: p_encoded => FND_API.G_FALSE
6553: );
6554: --
6555: IF l_debug_on THEN
6556: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6557: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6558: END IF;
6559:
6560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6553: );
6554: --
6555: IF l_debug_on THEN
6556: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6557: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6558: END IF;
6559:
6560: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6572: END IF;
6573: --
6574: WHEN OTHERS THEN
6575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6576: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.VALIDATE_SHIPPED_CC_QUANTITY');
6577: --
6578: IF l_debug_on THEN
6579: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6647: WSH_DEBUG_SV.log(l_module_name, 'Organization Id', x_det_rec.organization_id);
6648: WSH_DEBUG_SV.log(l_module_name, 'Inventory Item Id', x_det_rec.inventory_item_id);
6649: END IF;
6650:
6651: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6652: IF(p_flag = 'SQ') THEN
6653: l_input_quantity := x_det_rec.shipped_quantity2;
6654: --added for Bug # 3266333
6655: l_field_name := 'shipped_quantity2';
6693: p_field_name => l_field_name,
6694: x_return_status => l_return_status );
6695: --
6696:
6697: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6698: RAISE FND_API.G_EXC_ERROR;
6699: END IF;
6700:
6701: -- HW OPM BUG#:2677054
6724: p_shipped_quantity => NVL(l_quantity, 0),
6725: p_cycle_count_quantity => NVL(x_det_rec.cycle_count_quantity2, 0),
6726: x_return_status => l_return_status);
6727:
6728: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6729: RAISE FND_API.G_EXC_ERROR;
6730: END IF;
6731: ELSIF(p_flag = 'CCQ') THEN
6732:
6740: p_shipped_quantity => NVL(x_det_rec.shipped_quantity2, 0),
6741: p_cycle_count_quantity => NVL(l_quantity, 0),
6742: x_return_status => l_return_status);
6743:
6744: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6745: RAISE FND_API.G_EXC_ERROR;
6746: END IF;
6747: END IF;
6748: */
6792: END IF;
6793: --
6794: WHEN OTHERS THEN
6795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6796: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.VALIDATE_SHIPPED_CC_QUANTITY2');
6797: --
6798: IF l_debug_on THEN
6799: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6800: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6827: p_new_table IN wsh_interface.deliverydetailtab,
6828: p_action_code IN VARCHAR2,
6829: p_phase IN NUMBER,
6830: p_caller IN VARCHAR2,
6831: x_changed_id_tab OUT NOCOPY wsh_util_core.id_tab_type,
6832: x_return_status OUT NOCOPY VARCHAR2
6833: ) IS
6834:
6835: l_return_status VARCHAR2(30);
6833: ) IS
6834:
6835: l_return_status VARCHAR2(30);
6836: i NUMBER;
6837: l_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6838: --
6839: l_debug_on BOOLEAN;
6840: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'COMPARE_DETAIL_ATTRIBUTES';
6841: --
6858: WSH_DEBUG_SV.log(l_module_name,'P_phase',P_PHASE);
6859: WSH_DEBUG_SV.log(l_module_name,'P_caller',P_CALLER);
6860: END IF;
6861:
6862: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6863: l_id_tab.DELETE;
6864:
6865: IF p_old_table.count = p_new_table.count THEN
6866: FOR i in 1..p_old_table.count
6911: END IF;
6912:
6913: EXCEPTION
6914: WHEN others THEN
6915: wsh_util_core.default_handler('WSH_TRIP_UTILITIES.compare_detail_attributes');
6916: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6917: IF l_debug_on THEN
6918: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6919: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6912:
6913: EXCEPTION
6914: WHEN others THEN
6915: wsh_util_core.default_handler('WSH_TRIP_UTILITIES.compare_detail_attributes');
6916: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6917: IF l_debug_on THEN
6918: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6919: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6920: END IF;
7032: wsh_debug_sv.LOG(l_module_name, 'X_QUANTITY', x_quantity);
7033: wsh_debug_sv.LOG(l_module_name, 'X_QUANTITY2', x_quantity2);
7034: END IF;
7035: --
7036: x_return_status := wsh_util_core.g_ret_sts_success;
7037: --
7038: --
7039: -- Check that primary quantity to be split is mandatory and should be
7040: -- positive
7043: THEN
7044: --{
7045: fnd_message.set_name('WSH', 'WSH_REQUIRED_FIELD_NULL');
7046: fnd_message.set_token('FIELD_NAME','x_quantity');
7047: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7048: RAISE FND_API.G_EXC_ERROR;
7049: --}
7050: /* HW BUG 4548713- Removed checking for Qty being 0
7051: ELSIF x_quantity = 0
7052: THEN
7053: --{
7054: --
7055: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
7056: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7057: RAISE FND_API.G_EXC_ERROR;
7058: --}
7059: */
7060: ELSIF x_quantity < 0
7060: ELSIF x_quantity < 0
7061: THEN
7062: --{
7063: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
7064: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7065: RAISE FND_API.G_EXC_ERROR;
7066: --}
7067: END IF;
7068: --
7076: THEN
7077: --{
7078: fnd_message.set_name('WSH', 'WSH_DET_INVALID_DETAIL');
7079: fnd_message.set_token('DETAIL_ID',p_delivery_detail_id);
7080: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7081: RAISE FND_API.G_EXC_ERROR;
7082: --}
7083: END IF;
7084: --
7118: , x_return_status => l_return_status
7119: );
7120:
7121: --
7122: wsh_util_core.api_post_call
7123: (
7124: p_return_status => l_return_status,
7125: x_num_warnings => l_number_of_warnings,
7126: x_num_errors => l_number_of_errors
7139: AND l_item_info.secondary_default_ind in ('F','D','N')
7140: THEN
7141: --{
7142: fnd_message.set_name('WSH', 'WSH_OPM_SEC_QTY_REQD_ERROR');
7143: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7144: RAISE FND_API.G_EXC_ERROR;
7145: --}
7146: -- HW OPMCONV - Changed condition to check for secondary_default_ind
7147: -- HW BUG 4548713 - Added check for x_quantity
7153: --
7154:
7155:
7156: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
7157: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7158: RAISE FND_API.G_EXC_ERROR;
7159: --}
7160: -- HW OPMCONV - Changed condition to check for secondary_default_ind
7161: ELSIF x_quantity2 < 0
7162: AND l_item_info.secondary_default_ind in ('F','D','N')
7163: THEN
7164: --{
7165: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
7166: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7167: RAISE FND_API.G_EXC_ERROR;
7168: --}
7169: END IF;
7170: --
7184: IF lot_csr%NOTFOUND
7185: THEN
7186: --{
7187: --fnd_message.set_name('GMI', 'IC_INVALID_LOT');
7188: --wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7189: RAISE INVALID_LOT;
7190: --}
7191: END IF;
7192: --
7218: (
7219: p_organization_id => l_line_rec.organization_id,
7220: p_inventory_item_id => l_line_rec.inventory_item_id,
7221: p_lot_number => l_lot_num,
7222: p_precision => WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS_INV,
7223: p_quantity => x_quantity,
7224: p_uom1 => l_line_rec.requested_quantity_uom,
7225: p_quantity2 => x_quantity2,
7226: p_uom2 =>l_line_rec.requested_quantity_uom2
7262: );
7263: --
7264: IF ( l_qty2 <= 0 ) THEN
7265: FND_MESSAGE.SET_NAME('wsh','WSH_UPDATE_CANNOT_SPLIT');
7266: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7267: RAISE FND_API.G_EXC_ERROR;
7268: END IF;
7269: --
7270: IF l_qty2 <> x_quantity2
7272: --{
7273: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_QTY_ERROR');
7274: FND_MESSAGE.SET_TOKEN('QUANTITY2',x_quantity2);
7275: FND_MESSAGE.SET_TOKEN('CONV_QUANTITY2',l_qty2);
7276: --wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7277: --RAISE FND_API.G_EXC_ERROR;
7278: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING, l_module_name);
7279: l_number_of_warnings := NVL(l_number_of_warnings,0) + 1;
7280: --}
7274: FND_MESSAGE.SET_TOKEN('QUANTITY2',x_quantity2);
7275: FND_MESSAGE.SET_TOKEN('CONV_QUANTITY2',l_qty2);
7276: --wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7277: --RAISE FND_API.G_EXC_ERROR;
7278: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING, l_module_name);
7279: l_number_of_warnings := NVL(l_number_of_warnings,0) + 1;
7280: --}
7281: END IF;
7282: --
7288: IF l_debug_on THEN
7289: wsh_debug_sv.log(l_module_name, 'Number of warnings', l_number_of_warnings);
7290: END IF;
7291:
7292: RAISE wsh_util_core.g_exc_warning;
7293: END IF;
7294: --
7295: fnd_msg_pub.count_and_get(
7296: p_count => x_msg_count,
7353: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
7354: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7355: END IF;
7356: --
7357: WHEN wsh_util_core.g_exc_warning THEN
7358: x_return_status := wsh_util_core.g_ret_sts_warning;
7359: fnd_msg_pub.count_and_get(
7360: p_count => x_msg_count,
7361: p_data => x_msg_data,
7354: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7355: END IF;
7356: --
7357: WHEN wsh_util_core.g_exc_warning THEN
7358: x_return_status := wsh_util_core.g_ret_sts_warning;
7359: fnd_msg_pub.count_and_get(
7360: p_count => x_msg_count,
7361: p_data => x_msg_data,
7362: p_encoded => fnd_api.g_false);
7361: p_data => x_msg_data,
7362: p_encoded => fnd_api.g_false);
7363: --
7364: IF l_debug_on THEN
7365: wsh_debug_sv.logmsg(l_module_name, 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ', wsh_debug_sv.c_excep_level);
7366: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7367: END IF;
7368: WHEN OTHERS THEN
7369: x_return_status := fnd_api.g_ret_sts_unexp_error;
7362: p_encoded => fnd_api.g_false);
7363: --
7364: IF l_debug_on THEN
7365: wsh_debug_sv.logmsg(l_module_name, 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ', wsh_debug_sv.c_excep_level);
7366: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7367: END IF;
7368: WHEN OTHERS THEN
7369: x_return_status := fnd_api.g_ret_sts_unexp_error;
7370: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.validate_secondary_quantity',l_module_name);
7366: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7367: END IF;
7368: WHEN OTHERS THEN
7369: x_return_status := fnd_api.g_ret_sts_unexp_error;
7370: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.validate_secondary_quantity',l_module_name);
7371: --
7372: fnd_msg_pub.count_and_get(
7373: p_count => x_msg_count,
7374: p_data => x_msg_data,
8625: p_attributes => l_attributes,
8626: x_return_status => l_return_status
8627: );
8628:
8629: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8630: THEN
8631: x_return_status := l_return_status;
8632: IF l_debug_on THEN
8633: wsh_debug_sv.logmsg(l_module_name,'Error returned by wsh_utilities.process_message',WSH_DEBUG_SV.C_PROC_LEVEL);
8635: wsh_debug_sv.pop(l_module_name);
8636: END IF;
8637: return;
8638: ELSE
8639: x_return_status := wsh_util_core.G_RET_STS_WARNING;
8640: END IF;
8641: END IF;
8642: --
8643: IF l_debug_on THEN
8645: END IF;
8646: --
8647: EXCEPTION
8648: WHEN OTHERS THEN
8649: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8650: --
8651: IF l_debug_on THEN
8652: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8653: END IF;
8726: x_mtl_system_items_rec => l_item_info,
8727: x_return_status => l_return_status
8728: );
8729: --
8730: wsh_util_core.api_post_call
8731: (
8732: p_return_status => l_return_status,
8733: x_num_warnings => l_number_of_warnings,
8734: x_num_errors => l_number_of_errors
8854: x_mtl_system_items_rec => l_item_info,
8855: x_return_status => l_return_status
8856: );
8857: --
8858: wsh_util_core.api_post_call
8859: (
8860: p_return_status => l_return_status,
8861: x_num_warnings => l_number_of_warnings,
8862: x_num_errors => l_number_of_errors