[Home] [Help]
23:
24:
25:
26:
27: g_bad_header_ids wsh_util_core.id_tab_type;
28: g_good_header_ids wsh_util_core.id_tab_type;
29:
30: -- 2467416
31: -- Description:
24:
25:
26:
27: g_bad_header_ids wsh_util_core.id_tab_type;
28: g_good_header_ids wsh_util_core.id_tab_type;
29:
30: -- 2467416
31: -- Description:
32: -- PL/SQL table g_passed_crd_Tab: caches the line_ids that passed Credit Check
36: -- 3481194/3492870 modified logic to hash index on g_passed_crd_tab and g_failed_crd_tab
37: -- to avoid linear scans on pl/sql lists by calling function get_table_index..
38:
39:
40: g_passed_crd_Tab wsh_util_core.id_tab_type;
41: g_failed_crd_Tab wsh_util_core.id_tab_type;
42:
43: PROCEDURE Insert_PR_Header_Holds (
44: p_header_id IN NUMBER,
37: -- to avoid linear scans on pl/sql lists by calling function get_table_index..
38:
39:
40: g_passed_crd_Tab wsh_util_core.id_tab_type;
41: g_failed_crd_Tab wsh_util_core.id_tab_type;
42:
43: PROCEDURE Insert_PR_Header_Holds (
44: p_header_id IN NUMBER,
45: p_status IN VARCHAR2)
83: -- NOTE: For performance reason, there is no debug logic in this API.
84: -----------------------------------------------------------------------------
85: function get_table_index(p_entity_id IN NUMBER,
86: p_alt_index IN NUMBER DEFAULT NULL,
87: x_table IN OUT NOCOPY wsh_util_core.id_tab_type)
88: RETURN NUMBER
89: IS
90: c_hash_base CONSTANT NUMBER := 1;
91: c_hash_size CONSTANT NUMBER := power(2, 25);
455: -- muom
456: WSH_DEBUG_SV.log(l_module_name,'P_FULFILL_BASE',P_FULFILL_BASE);
457: END IF;
458: --
459: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
460:
461: IF p_picked_quantity > p_requested_quantity THEN
462: -- overpick scenario
463: IF ( p_cycle_count_quantity > 0
461: IF p_picked_quantity > p_requested_quantity THEN
462: -- overpick scenario
463: IF ( p_cycle_count_quantity > 0
464: AND p_shipped_quantity > p_requested_quantity - p_cycle_count_quantity) THEN
465: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
466: -- muom
467: IF p_fulfill_base = 'S' THEN
468: fnd_message.set_name('WSH', 'WSH_OVERPICK_SH_QTY2_EXCEED');
469: ELSE
469: ELSE
470: fnd_message.set_name('WSH', 'WSH_OVERPICK_SH_QTY_EXCEED');
471: END IF;
472: fnd_message.set_token('MAX_QTY', (p_requested_quantity - p_cycle_count_quantity));
473: wsh_util_core.add_message(x_return_status);
474: ELSIF (p_shipped_quantity > p_picked_quantity) THEN -- Bug 2111939: Removed the check on tolerance here.
475: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
476: -- muom
477: IF p_fulfill_base = 'S' THEN
471: END IF;
472: fnd_message.set_token('MAX_QTY', (p_requested_quantity - p_cycle_count_quantity));
473: wsh_util_core.add_message(x_return_status);
474: ELSIF (p_shipped_quantity > p_picked_quantity) THEN -- Bug 2111939: Removed the check on tolerance here.
475: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
476: -- muom
477: IF p_fulfill_base = 'S' THEN
478: fnd_message.set_name('WSH', 'WSH_SH_QTY2_ABOVE_PICKED');
479: ELSE
478: fnd_message.set_name('WSH', 'WSH_SH_QTY2_ABOVE_PICKED');
479: ELSE
480: fnd_message.set_name('WSH', 'WSH_SH_QTY_ABOVE_PICKED');
481: END IF;
482: wsh_util_core.add_message(x_return_status);
483: END IF;
484:
485: ELSE
486: -- normal scenario
486: -- normal scenario
487: -- for bug 1305066. When requested_quantity = 0, ie. cancelled line,
488: -- return false
489: IF (p_requested_quantity = 0) THEN
490: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
491: -- muom
492: IF p_fulfill_base = 'S' THEN
493: fnd_message.set_name('WSH', 'WSH_UI_SHIP_QTY2_ABOVE_TOL');
494: ELSE
493: fnd_message.set_name('WSH', 'WSH_UI_SHIP_QTY2_ABOVE_TOL');
494: ELSE
495: fnd_message.set_name('WSH', 'WSH_UI_SHIP_QTY_ABOVE_TOL');
496: END IF;
497: wsh_util_core.add_message(x_return_status);
498: END IF;
499: END IF;
500:
501: --
506: END IF;
507: --
508: exception
509: when others then
510: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
511: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Shipped_Quantity');
512: --
513: -- Debug Statements
514: --
507: --
508: exception
509: when others then
510: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
511: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Shipped_Quantity');
512: --
513: -- Debug Statements
514: --
515: IF l_debug_on THEN
571: -- muom
572: WSH_DEBUG_SV.log(l_module_name,'P_FULFILL_BASE',P_FULFILL_BASE);
573: END IF;
574: --
575: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
576:
577: max_qty_to_bo := p_requested_quantity - NVL(p_shipped_quantity, 0);
578: IF max_qty_to_bo < 0 THEN
579: max_qty_to_bo := 0;
579: max_qty_to_bo := 0;
580: END IF;
581:
582: IF p_cycle_count_quantity > max_qty_to_bo THEN
583: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
584: -- muom
585: IF p_fulfill_base = 'S' THEN
586: fnd_message.set_name('WSH', 'WSH_UI_CYCLE_QTY2_ABOVE_TOL');
587: ELSE
586: fnd_message.set_name('WSH', 'WSH_UI_CYCLE_QTY2_ABOVE_TOL');
587: ELSE
588: fnd_message.set_name('WSH', 'WSH_UI_CYCLE_QTY_ABOVE_TOL');
589: END IF;
590: wsh_util_core.add_message(x_return_status);
591: END IF;
592:
593: --
594: -- Debug Statements
598: END IF;
599: --
600: EXCEPTION
601: WHEN OTHERS THEN
602: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
603: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Cycle_Count_Quantity');
604: --
605: -- Debug Statements
606: --
599: --
600: EXCEPTION
601: WHEN OTHERS THEN
602: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
603: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Cycle_Count_Quantity');
604: --
605: -- Debug Statements
606: --
607: IF l_debug_on THEN
648: others EXCEPTION;
649: --
650: -- RV DEC_QTY
651: l_max_decimal_digits NUMBER := p_max_decimal_digits ;
652: l_max_real_digits CONSTANT NUMBER := WSH_UTIL_CORE.C_MAX_REAL_DIGITS;
653: -- HW OPMCONV - Noneed for OPM variables
654:
655: -- RV DEC_QTY
656: --
683: WSH_DEBUG_SV.log(l_module_name,'P_UOM_CODE',P_UOM_CODE);
684: WSH_DEBUG_SV.log(l_module_name,'P_TOP_MODEL_LINE_ID',P_TOP_MODEL_LINE_ID);
685: END IF;
686: --
687: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
688: /* Bug 2177410, skip validate quantity to avoid error for non-item delivery details */
689:
690: -- BUG 3376504
691: --
695: IF (l_max_decimal_digits IS NULL) THEN
696: --{
697: -- HW OPMCONV - Re-arranged code to avoid branching
698:
699: l_max_decimal_digits := WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS_INV;
700:
701: --}
702: END IF;
703: --
704: -- RV DEC_QTY
705: -- BUG 3376504
706: if p_item_id is not NULL then -- {
707: if ( p_top_model_line_id is not null and p_input_quantity <> trunc ( p_input_quantity ) ) then --{
708: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
709: fnd_message.set_name('WSH', 'WSH_CONFIG_NO_DECIMALS');
710: wsh_util_core.add_message(x_return_status);
711: else
712: --
706: if p_item_id is not NULL then -- {
707: if ( p_top_model_line_id is not null and p_input_quantity <> trunc ( p_input_quantity ) ) then --{
708: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
709: fnd_message.set_name('WSH', 'WSH_CONFIG_NO_DECIMALS');
710: wsh_util_core.add_message(x_return_status);
711: else
712: --
713: -- Debug Statements
714: --
739: -- of decimals are between 5 and 9.
740: -- This should not cause any duplicate messages even when INV starts rounding
741: -- off to 5 digits of decimal.
742: -- HW OPMCOMV - Changed the precision from OPM to INV which is 5
743: IF (p_input_quantity = round(p_input_quantity,WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS_INV)
744: AND x_output_quantity <> round(x_output_quantity,l_max_decimal_digits))
745: THEN
746: --{
747: fnd_message.set_name('INV', 'MAX_DECIMAL_LENGTH');
744: AND x_output_quantity <> round(x_output_quantity,l_max_decimal_digits))
745: THEN
746: --{
747: fnd_message.set_name('INV', 'MAX_DECIMAL_LENGTH');
748: x_return_status := wsh_util_core.g_ret_sts_warning;
749: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
750: --}
751: END IF;
752: x_output_quantity := round(x_output_quantity,l_max_decimal_digits);
745: THEN
746: --{
747: fnd_message.set_name('INV', 'MAX_DECIMAL_LENGTH');
748: x_return_status := wsh_util_core.g_ret_sts_warning;
749: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
750: --}
751: END IF;
752: x_output_quantity := round(x_output_quantity,l_max_decimal_digits);
753: --}
788: END IF;
789: --
790: exception
791: when others then
792: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
793: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity');
794: --
795: -- Debug Statements
796: --
789: --
790: exception
791: when others then
792: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
793: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Decimal_Quantity');
794: --
795: -- Debug Statements
796: --
797: IF l_debug_on THEN
802: end check_decimal_quantity;
803:
804:
805: PROCEDURE check_unassign_from_delivery(
806: p_detail_rows IN wsh_util_core.id_tab_type,
807: x_return_status OUT NOCOPY VARCHAR2) IS
808:
809: cursor check_unassign (detail_id IN NUMBER) is
810: select da.parent_delivery_detail_id , da.delivery_id ,
843: IF l_debug_on THEN
844: WSH_DEBUG_SV.push(l_module_name);
845: END IF;
846: --
847: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
848:
849: IF (p_detail_rows.count = 0) THEN
850: raise others;
851: END IF;
865:
866: IF l_parent_delivery_Detail_id IS NOT NULL THEN
867: if ( l_container_flag IN ('Y', 'C' )) then
868: FND_MESSAGE.SET_NAME('WSH','WSH_PK_DET_UNASSIGN_DEL');
869: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
870: wsh_util_core.add_message(x_return_status);
871:
872: --
873: -- Debug Statements
866: IF l_parent_delivery_Detail_id IS NOT NULL THEN
867: if ( l_container_flag IN ('Y', 'C' )) then
868: FND_MESSAGE.SET_NAME('WSH','WSH_PK_DET_UNASSIGN_DEL');
869: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
870: wsh_util_core.add_message(x_return_status);
871:
872: --
873: -- Debug Statements
874: --
900: WHEN others THEN
901: IF check_unassign%ISOPEN THEN
902: CLOSE check_unassign;
903: END IF;
904: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.CHECK_UNASSIGN_FROM_DELIVERY');
905: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
906:
907: --
908: -- Debug Statements
901: IF check_unassign%ISOPEN THEN
902: CLOSE check_unassign;
903: END IF;
904: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.CHECK_UNASSIGN_FROM_DELIVERY');
905: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
906:
907: --
908: -- Debug Statements
909: --
915: END check_unassign_from_delivery ;
916:
917:
918: PROCEDURE check_assign_del_multi(
919: p_detail_rows IN wsh_util_core.id_tab_type,
920: x_del_params OUT NOCOPY wsh_delivery_autocreate.grp_attr_rec_type,
921: x_return_status OUT NOCOPY VARCHAR2) IS
922:
923: l_del_rows wsh_util_core.id_tab_type;
919: p_detail_rows IN wsh_util_core.id_tab_type,
920: x_del_params OUT NOCOPY wsh_delivery_autocreate.grp_attr_rec_type,
921: x_return_status OUT NOCOPY VARCHAR2) IS
922:
923: l_del_rows wsh_util_core.id_tab_type;
924: l_group_rows wsh_util_core.id_tab_type;
925:
926: l_detail_org_id NUMBER;
927: l_delivery_id NUMBER;
920: x_del_params OUT NOCOPY wsh_delivery_autocreate.grp_attr_rec_type,
921: x_return_status OUT NOCOPY VARCHAR2) IS
922:
923: l_del_rows wsh_util_core.id_tab_type;
924: l_group_rows wsh_util_core.id_tab_type;
925:
926: l_detail_org_id NUMBER;
927: l_delivery_id NUMBER;
928:
935: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
936: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
937: l_action_rec wsh_delivery_autocreate.action_rec_type;
938: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
939: l_matched_entities wsh_util_core.id_tab_type;
940: l_out_rec wsh_delivery_autocreate.out_rec_type;
941: l_generic_flag varchar2(1);
942:
943:
966: IF l_debug_on THEN
967: WSH_DEBUG_SV.push(l_module_name);
968: END IF;
969: --
970: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
971:
972: IF (p_detail_rows.count = 0) THEN
973: raise others;
974: END IF;
984: CLOSE check_assign;
985: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
986: FND_MESSAGE.SET_TOKEN('DET_NAME', p_detail_rows(i));
987: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_id);
988: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
989: wsh_util_core.add_message(x_return_status);
990:
991: --
992: -- Debug Statements
985: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
986: FND_MESSAGE.SET_TOKEN('DET_NAME', p_detail_rows(i));
987: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_id);
988: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
989: wsh_util_core.add_message(x_return_status);
990:
991: --
992: -- Debug Statements
993: --
1049: END IF;
1050: --
1051: -- Bug 2734531 (handle return status correctly)
1052: --
1053: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1054: RAISE assign_error;
1055: END IF;
1056: --
1057: --
1058: --
1059: x_del_params := l_group_tab(l_group_tab.FIRST);
1060:
1061:
1062: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1063: IF l_debug_on THEN
1064: --
1065: WSH_DEBUG_SV.log(l_module_name, 'Done check_assign_del_multi '|| x_return_status);
1066: --
1074: --
1075: EXCEPTION
1076: WHEN assign_error THEN
1077: FND_MESSAGE.SET_NAME('WSH','WSH_DET_GROUP_ERROR');
1078: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1079: wsh_util_core.add_message(x_return_status);
1080: --
1081: -- Debug Statements
1082: --
1075: EXCEPTION
1076: WHEN assign_error THEN
1077: FND_MESSAGE.SET_NAME('WSH','WSH_DET_GROUP_ERROR');
1078: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1079: wsh_util_core.add_message(x_return_status);
1080: --
1081: -- Debug Statements
1082: --
1083: IF l_debug_on THEN
1088: WHEN others THEN
1089: IF check_assign%ISOPEN THEN
1090: CLOSE check_assign;
1091: END IF;
1092: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.CHECK_ASSIGN_DEL_MULTI');
1093: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1094:
1095: --
1096: -- Debug Statements
1089: IF check_assign%ISOPEN THEN
1090: CLOSE check_assign;
1091: END IF;
1092: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.CHECK_ASSIGN_DEL_MULTI');
1093: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1094:
1095: --
1096: -- Debug Statements
1097: --
1223: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1224: WSH_DEBUG_SV.log(l_module_name,'P_INIT_FLAG',P_INIT_FLAG);
1225: END IF;
1226: --
1227: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1228:
1229: IF p_source_code <> 'OE' THEN
1230: --
1231: -- Debug Statements
1468: p_request_id => l_request_id,
1469: p_batch_id => WSH_PICK_LIST.g_batch_id -- Bug: 1729516
1470: );
1471:
1472: IF (l_exception_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1473: --
1474: -- Debug Statements
1475: --
1476: IF l_debug_on THEN
1478: END IF;
1479: --
1480: END IF;
1481: --Bug: 1573703 Return status needs to be set to 'E'
1482: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1483: raise header_hold_error; --bugfix 6263535
1484:
1485: END IF;
1486: END IF;
1500:
1501: l_passed_index := get_table_index(p_entity_id=>l_line_id, x_table=>g_passed_crd_tab);
1502: IF g_passed_crd_Tab.exists(l_passed_index) THEN
1503: l_exists_flag := 'Y';
1504: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1505: END IF;
1506:
1507: IF (l_exists_flag = 'N') THEN
1508: l_failed_index := get_table_index(p_entity_id=>l_line_id, p_alt_index=>l_passed_index, x_table=>g_failed_crd_tab);
1599: p_request_id => l_request_id,
1600: p_batch_id => WSH_PICK_LIST.g_batch_id -- Bug: 1729516
1601: );
1602:
1603: IF (l_exception_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1604: --
1605: -- Debug Statements
1606: --
1607: IF l_debug_on THEN
1609: END IF;
1610: --
1611: END IF;
1612: --Bug: 1573703 Return status needs to be set to 'E'
1613: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1614: -- bug 2882720: set message in case the concurrent program rolls back so that the exception is gone.
1615: IF p_activity_type = 'PICK' THEN
1616: FND_MESSAGE.SET_NAME('WSH','WSH_PICK_LINE_HOLD_ERROR');
1617: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1625: ELSE
1626: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_LINE_HOLD_ERROR');
1627: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1628: END IF;
1629: wsh_util_core.add_message(x_return_status);
1630: -- bug 2882720 change end
1631:
1632: END IF; /* 1729516 */
1633:
1649: EXCEPTION
1650: WHEN header_hold_error THEN
1651: FND_MESSAGE.SET_NAME('WSH','WSH_HEADER_HOLD_ERROR');
1652: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1653: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1654: wsh_util_core.add_message(x_return_status);
1655: --
1656: -- Debug Statements
1657: --
1650: WHEN header_hold_error THEN
1651: FND_MESSAGE.SET_NAME('WSH','WSH_HEADER_HOLD_ERROR');
1652: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1653: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1654: wsh_util_core.add_message(x_return_status);
1655: --
1656: -- Debug Statements
1657: --
1658: IF l_debug_on THEN
1674: ELSE
1675: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_LINE_HOLD_ERROR');
1676: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1677: END IF;
1678: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1679: wsh_util_core.add_message(x_return_status);
1680: --
1681: -- Debug Statements
1682: --
1675: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_LINE_HOLD_ERROR');
1676: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1677: END IF;
1678: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1679: wsh_util_core.add_message(x_return_status);
1680: --
1681: -- Debug Statements
1682: --
1683: IF l_debug_on THEN
1687:
1688: WHEN credit_hold_error THEN
1689: FND_MESSAGE.SET_NAME('WSH','WSH_DET_CREDIT_HOLD_ERROR');
1690: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1691: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1692: wsh_util_core.add_message(x_return_status);
1693: --
1694: -- Debug Statements
1695: --
1688: WHEN credit_hold_error THEN
1689: FND_MESSAGE.SET_NAME('WSH','WSH_DET_CREDIT_HOLD_ERROR');
1690: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
1691: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1692: wsh_util_core.add_message(x_return_status);
1693: --
1694: -- Debug Statements
1695: --
1696: IF l_debug_on THEN
1698: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREDIT_HOLD_ERROR');
1699: END IF;
1700: --
1701: WHEN others THEN
1702: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Credit_Holds');
1703: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1704:
1705: --
1706: -- Debug Statements
1699: END IF;
1700: --
1701: WHEN others THEN
1702: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Check_Credit_Holds');
1703: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1704:
1705: --
1706: -- Debug Statements
1707: --
1870: x_avail_req_quantity := NULL;
1871: x_max_quantity2_allowed := NULL;
1872: x_avail_req_quantity2 := NULL;
1873:
1874: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1875: --
1876: -- Debug Statements
1877: --
1878: IF l_debug_on THEN
1900: x_max_quantity_allowed := NULL;
1901: x_avail_req_quantity := NULL;
1902: x_max_quantity2_allowed := NULL;
1903: x_avail_req_quantity2 := NULL;
1904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1905: --
1906: -- Debug Statements
1907: --
1908: IF l_debug_on THEN
1930: x_max_quantity_allowed := NULL;
1931: x_avail_req_quantity := NULL;
1932: x_max_quantity2_allowed := NULL;
1933: x_avail_req_quantity2 := NULL;
1934: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1935: --
1936: -- Debug Statements
1937: --
1938: IF l_debug_on THEN
2023: -- HW OPMCONV - No need to branch
2024: -- muom
2025: IF NVL(p_quantity_to_pick,0) < 0 and NVL(p_quantity2_to_pick,0) < 0 THEN
2026: x_allowed_flag := 'N';
2027: ELSIF (WSH_UTIL_CORE.Get_Line_Fulfillment_Base('OE',p_order_line_id) = 'S') THEN
2028: IF (p_quantity2_to_pick > l_max_quantity2) THEN
2029: x_allowed_flag := 'N';
2030: ELSE
2031: x_allowed_flag := 'Y';
2044:
2045: -- HW OPMCONV _ Removed print statements
2046: -- HW for debugging purposes, print values
2047:
2048: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2049:
2050:
2051: --
2052: -- Debug Statements
2073: x_avail_req_quantity := NULL;
2074: -- HW Added for OPM
2075: x_max_quantity2_allowed := NULL;
2076: x_avail_req_quantity2 := NULL;
2077: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2078: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_quantity_to_pick');
2079:
2080: --
2081: -- Debug Statements
2074: -- HW Added for OPM
2075: x_max_quantity2_allowed := NULL;
2076: x_avail_req_quantity2 := NULL;
2077: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2078: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_quantity_to_pick');
2079:
2080: --
2081: -- Debug Statements
2082: --
2156: END IF;
2157: --
2158: EXCEPTION
2159: WHEN OTHERS THEN
2160: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2161: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_quantity_to_pick');
2162:
2163: --
2164: -- Debug Statements
2157: --
2158: EXCEPTION
2159: WHEN OTHERS THEN
2160: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2161: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_quantity_to_pick');
2162:
2163: --
2164: -- Debug Statements
2165: --
2187:
2188: -- muom
2189: CURSOR c_check_qty_inside_del (del_id IN NUMBER) IS
2190: select sum(wdd.requested_quantity), wdd.source_code, wdd.source_line_id,
2191: decode(wdd.requested_quantity_uom2,null,'P',WSH_UTIL_CORE.Get_Line_Fulfillment_Base(wdd.source_code,wdd.source_line_id)) fulfill_base
2192: from wsh_delivery_details wdd, wsh_delivery_assignments_v wda
2193: where wdd.delivery_detail_id = wda.delivery_detail_id
2194: and wda.delivery_id is not null
2195: and wda.delivery_id = del_id
2193: where wdd.delivery_detail_id = wda.delivery_detail_id
2194: and wda.delivery_id is not null
2195: and wda.delivery_id = del_id
2196: and wdd.released_status <> 'D'
2197: group by source_line_id, source_code, decode(wdd.requested_quantity_uom2,null,'P',WSH_UTIL_CORE.Get_Line_Fulfillment_Base(wdd.source_code, wdd.source_line_id))
2198: having sum(decode( decode(wdd.requested_quantity_uom2,null,'P',WSH_UTIL_CORE.Get_Line_Fulfillment_Base(wdd.source_code,wdd.source_line_id)),'P',wdd.requested_quantity,'S',wdd.requested_quantity2)) = 0;
2199:
2200:
2201: CURSOR c_source_info IS
2194: and wda.delivery_id is not null
2195: and wda.delivery_id = del_id
2196: and wdd.released_status <> 'D'
2197: group by source_line_id, source_code, decode(wdd.requested_quantity_uom2,null,'P',WSH_UTIL_CORE.Get_Line_Fulfillment_Base(wdd.source_code, wdd.source_line_id))
2198: having sum(decode( decode(wdd.requested_quantity_uom2,null,'P',WSH_UTIL_CORE.Get_Line_Fulfillment_Base(wdd.source_code,wdd.source_line_id)),'P',wdd.requested_quantity,'S',wdd.requested_quantity2)) = 0;
2199:
2200:
2201: CURSOR c_source_info IS
2202: -- muom
2200:
2201: CURSOR c_source_info IS
2202: -- muom
2203: select distinct wdd.source_line_id, wdd.source_code,
2204: decode(wdd.requested_quantity_uom2,null,'P',WSH_UTIL_CORE.Get_Line_Fulfillment_Base(wdd.source_code,wdd.source_line_id)) fulfill_base
2205: from wsh_delivery_details wdd, wsh_delivery_assignments_v wda
2206: where wdd.delivery_detail_id = wda.delivery_detail_id
2207: and wdd.released_status <> 'D'
2208: and wda.delivery_id is not null
2239: --
2240: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2241: END IF;
2242: --
2243: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2244:
2245:
2246: open c_check_qty_inside_del (p_delivery_id);
2247: fetch c_check_qty_inside_del into l_req_qty, l_source_code, l_source_line_id,l_fulfill_base;
2319: --
2320: EXCEPTION
2321:
2322: WHEN req_qty_zero THEN
2323: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2324: FND_MESSAGE.SET_TOKEN('DELIVERY', p_delivery_id);
2325: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', l_source_code);
2326: FND_MESSAGE.SET_TOKEN('SOURCE_LINE', l_source_line_id);
2327: wsh_util_core.add_message(x_return_status);
2323: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2324: FND_MESSAGE.SET_TOKEN('DELIVERY', p_delivery_id);
2325: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', l_source_code);
2326: FND_MESSAGE.SET_TOKEN('SOURCE_LINE', l_source_line_id);
2327: wsh_util_core.add_message(x_return_status);
2328:
2329: --
2330: -- Debug Statements
2331: --
2337: WHEN others THEN
2338: IF c_check_qty_inside_del%ISOPEN THEN
2339: close c_check_qty_inside_del;
2340: END IF;
2341: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2342: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_zero_req_confirm');
2343:
2344: --
2345: -- Debug Statements
2338: IF c_check_qty_inside_del%ISOPEN THEN
2339: close c_check_qty_inside_del;
2340: END IF;
2341: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2342: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.check_zero_req_confirm');
2343:
2344: --
2345: -- Debug Statements
2346: --
2367: p_delivery_detail_id IN NUMBER
2368: , p_delivery_id IN NUMBER
2369: , p_list_type IN VARCHAR2
2370: , x_return_status OUT NOCOPY VARCHAR2
2371: , x_disabled_list OUT NOCOPY WSH_UTIL_CORE.column_tab_type
2372: , x_msg_count OUT NOCOPY NUMBER
2373: , x_msg_data OUT NOCOPY VARCHAR2
2374: , p_caller IN VARCHAR2 -- DEFAULT NULL, --public api changes
2375: )
2884: END IF;
2885: --
2886: EXCEPTION
2887: WHEN e_all_disabled THEN --public api changes
2888: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2889: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
2890: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_detail_id);
2891: wsh_util_core.add_message(x_return_status,l_module_name);
2892: IF l_debug_on THEN
2887: WHEN e_all_disabled THEN --public api changes
2888: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2889: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
2890: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_detail_id);
2891: wsh_util_core.add_message(x_return_status,l_module_name);
2892: IF l_debug_on THEN
2893: -- Nothing is updateable
2894: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
2895: END IF;
2904: ELSE
2905: l_delivery_detail_id := p_delivery_detail_id;
2906: END IF;
2907: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_delivery_detail_id);
2908: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2909: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2910: IF x_msg_count > 1 then
2911: x_msg_data := l_msg_summary || l_msg_details;
2912: ELSE
2905: l_delivery_detail_id := p_delivery_detail_id;
2906: END IF;
2907: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_delivery_detail_id);
2908: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2909: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2910: IF x_msg_count > 1 then
2911: x_msg_data := l_msg_summary || l_msg_details;
2912: ELSE
2913: x_msg_data := l_msg_summary;
2929: ELSE
2930: l_delivery_id := p_delivery_id;
2931: END IF;
2932: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_delivery_id);
2933: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2934: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2935: IF x_msg_count > 1 then
2936: x_msg_data := l_msg_summary || l_msg_details;
2937: ELSE
2930: l_delivery_id := p_delivery_id;
2931: END IF;
2932: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_delivery_id);
2933: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2934: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2935: IF x_msg_count > 1 then
2936: x_msg_data := l_msg_summary || l_msg_details;
2937: ELSE
2938: x_msg_data := l_msg_summary;
2945:
2946: WHEN wsh_inv_list_type THEN
2947: x_return_status := FND_API.G_RET_STS_ERROR;
2948: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
2949: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2950: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2951: IF x_msg_count > 1 then
2952: x_msg_data := l_msg_summary || l_msg_details;
2953: ELSE
2946: WHEN wsh_inv_list_type THEN
2947: x_return_status := FND_API.G_RET_STS_ERROR;
2948: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
2949: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2950: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
2951: IF x_msg_count > 1 then
2952: x_msg_data := l_msg_summary || l_msg_details;
2953: ELSE
2954: x_msg_data := l_msg_summary;
2965: WHEN others THEN
2966: IF (get_delivery_status%ISOPEN) THEN
2967: CLOSE get_delivery_status;
2968: END IF;
2969: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list');
2970: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2971:
2972:
2973: --
2966: IF (get_delivery_status%ISOPEN) THEN
2967: CLOSE get_delivery_status;
2968: END IF;
2969: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list');
2970: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2971:
2972:
2973: --
2974: -- Debug Statements
3373: WSH_DEBUG_SV.log(l_module_name, 'l_max_remaining_quantity before the modification',l_max_remaining_quantity);
3374: WSH_DEBUG_SV.log(l_module_name, 'l_min_remaining_quantity before the modification',l_min_remaining_quantity);
3375: END IF;
3376: --
3377: l_max_remaining_quantity := trunc(l_max_remaining_quantity, wsh_util_core.c_max_decimal_digits_inv);
3378: IF (round(l_min_remaining_quantity,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity) THEN
3379: --{
3380: l_min_remaining_quantity := round(l_min_remaining_quantity + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3381: --}
3374: WSH_DEBUG_SV.log(l_module_name, 'l_min_remaining_quantity before the modification',l_min_remaining_quantity);
3375: END IF;
3376: --
3377: l_max_remaining_quantity := trunc(l_max_remaining_quantity, wsh_util_core.c_max_decimal_digits_inv);
3378: IF (round(l_min_remaining_quantity,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity) THEN
3379: --{
3380: l_min_remaining_quantity := round(l_min_remaining_quantity + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3381: --}
3382: ELSE
3376: --
3377: l_max_remaining_quantity := trunc(l_max_remaining_quantity, wsh_util_core.c_max_decimal_digits_inv);
3378: IF (round(l_min_remaining_quantity,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity) THEN
3379: --{
3380: l_min_remaining_quantity := round(l_min_remaining_quantity + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3381: --}
3382: ELSE
3383: --{
3384: l_min_remaining_quantity := round(l_min_remaining_quantity, wsh_util_core.c_max_decimal_digits_inv);
3380: l_min_remaining_quantity := round(l_min_remaining_quantity + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3381: --}
3382: ELSE
3383: --{
3384: l_min_remaining_quantity := round(l_min_remaining_quantity, wsh_util_core.c_max_decimal_digits_inv);
3385: --}
3386: END IF;
3387: --
3388: IF l_debug_on THEN
3405: WSH_DEBUG_SV.log(l_module_name, 'l_max_remaining_quantity2 before the modification',l_max_remaining_quantity2);
3406: WSH_DEBUG_SV.log(l_module_name, 'l_min_remaining_quantity2 before the modification',l_min_remaining_quantity2);
3407: END IF;
3408: --
3409: l_max_remaining_quantity2 := trunc(l_max_remaining_quantity2, wsh_util_core.c_max_decimal_digits_inv);
3410: IF (round(l_min_remaining_quantity2,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity2) THEN
3411: --{
3412: l_min_remaining_quantity2 := round(l_min_remaining_quantity2 + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3413: --}
3406: WSH_DEBUG_SV.log(l_module_name, 'l_min_remaining_quantity2 before the modification',l_min_remaining_quantity2);
3407: END IF;
3408: --
3409: l_max_remaining_quantity2 := trunc(l_max_remaining_quantity2, wsh_util_core.c_max_decimal_digits_inv);
3410: IF (round(l_min_remaining_quantity2,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity2) THEN
3411: --{
3412: l_min_remaining_quantity2 := round(l_min_remaining_quantity2 + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3413: --}
3414: ELSE
3408: --
3409: l_max_remaining_quantity2 := trunc(l_max_remaining_quantity2, wsh_util_core.c_max_decimal_digits_inv);
3410: IF (round(l_min_remaining_quantity2,wsh_util_core.c_max_decimal_digits_inv) < l_min_remaining_quantity2) THEN
3411: --{
3412: l_min_remaining_quantity2 := round(l_min_remaining_quantity2 + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3413: --}
3414: ELSE
3415: --{
3416: l_min_remaining_quantity2 := round(l_min_remaining_quantity2, wsh_util_core.c_max_decimal_digits_inv);
3412: l_min_remaining_quantity2 := round(l_min_remaining_quantity2 + 0.000005, wsh_util_core.c_max_decimal_digits_inv);
3413: --}
3414: ELSE
3415: --{
3416: l_min_remaining_quantity2 := round(l_min_remaining_quantity2, wsh_util_core.c_max_decimal_digits_inv);
3417: --}
3418: END IF;
3419: --
3420: IF l_debug_on THEN
3473: END IF;
3474:
3475: EXCEPTION
3476: WHEN OTHERS THEN
3477: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3478: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_min_max_tolerance_quantity',
3479: l_module_name);
3480:
3481: x_out_attributes.min_remaining_quantity := 0;
3474:
3475: EXCEPTION
3476: WHEN OTHERS THEN
3477: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3478: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_min_max_tolerance_quantity',
3479: l_module_name);
3480:
3481: x_out_attributes.min_remaining_quantity := 0;
3482: x_out_attributes.max_remaining_quantity := 0;
3521: p_action IN VARCHAR2,
3522: p_caller IN VARCHAR2,
3523: p_deliveryid IN NUMBER DEFAULT null,
3524: x_return_status OUT NOCOPY VARCHAR2,
3525: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
3526: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
3527: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
3528: ) IS
3529:
3522: p_caller IN VARCHAR2,
3523: p_deliveryid IN NUMBER DEFAULT null,
3524: x_return_status OUT NOCOPY VARCHAR2,
3525: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
3526: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
3527: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
3528: ) IS
3529:
3530: cursor det_to_del_cur( p_del_det_id IN NUMBER ) is
3523: p_deliveryid IN NUMBER DEFAULT null,
3524: x_return_status OUT NOCOPY VARCHAR2,
3525: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
3526: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
3527: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
3528: ) IS
3529:
3530: cursor det_to_del_cur( p_del_det_id IN NUMBER ) is
3531: select wnd.organization_id,
3581: l_content_id NUMBER := NULL;
3582:
3583:
3584: l_detail_actions_tab DetailActionsTabType;
3585: l_valid_ids wsh_util_core.id_tab_type;
3586: l_error_ids wsh_util_core.id_tab_type;
3587: l_valid_index_tab wsh_util_core.id_tab_type;
3588: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
3589:
3582:
3583:
3584: l_detail_actions_tab DetailActionsTabType;
3585: l_valid_ids wsh_util_core.id_tab_type;
3586: l_error_ids wsh_util_core.id_tab_type;
3587: l_valid_index_tab wsh_util_core.id_tab_type;
3588: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
3589:
3590: l_pass_section_a VARCHAR2(1):='Y';
3583:
3584: l_detail_actions_tab DetailActionsTabType;
3585: l_valid_ids wsh_util_core.id_tab_type;
3586: l_error_ids wsh_util_core.id_tab_type;
3587: l_valid_index_tab wsh_util_core.id_tab_type;
3588: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
3589:
3590: l_pass_section_a VARCHAR2(1):='Y';
3591: l_organization_id NUMBER;
3655: IF l_debug_on THEN
3656: WSH_DEBUG_SV.log(l_module_name,'Init_Detail_Actions_Tbl x_return_status',x_return_status);
3657: END IF;
3658:
3659: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3660: raise error_in_init_actions;
3661: END IF;
3662:
3663: -- Loop through the given table
3693: x_return_status => l_return_status );
3694: IF l_debug_on THEN
3695: wsh_debug_sv.log(l_module_name, 'Return status after wsh_util_validate.get_org_type', l_return_status);
3696: END IF;
3697: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
3698: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3699: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
3700: raise e_record_ineligible;
3701: exit;
3695: wsh_debug_sv.log(l_module_name, 'Return status after wsh_util_validate.get_org_type', l_return_status);
3696: END IF;
3697: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
3698: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3699: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
3700: raise e_record_ineligible;
3701: exit;
3702: END IF;
3703:
3801: END IF;
3802: --
3803: IF nvl(p_del_detail_rec_tab(j).line_direction,'O') NOT IN ('O','IO') -- Inbound/Drop-ship
3804: AND l_released_status IN ('C','L','P') -- Shipped/Closed
3805: AND l_ship_from_location_id = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
3806: -- Supplier-managed freight (/Buyer-RReq. not recvd)
3807: THEN
3808: --{
3809: /*
3812: l_released_status := 'X';
3813: ELSIF p_action IN ( 'AUTOCREATE-DEL', 'UNASSIGN' )
3814: THEN
3815: --{
3816: IF p_caller like '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX
3817: THEN
3818: --{
3819: l_released_status := 'X';
3820: l_ship_from_location_id := WSH_UTIL_CORE.C_NOTNULL_SF_LOCN_ID;
3816: IF p_caller like '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX
3817: THEN
3818: --{
3819: l_released_status := 'X';
3820: l_ship_from_location_id := WSH_UTIL_CORE.C_NOTNULL_SF_LOCN_ID;
3821: --}
3822: END IF;
3823: --}
3824: END IF;
3861: IF l_debug_on THEN
3862: wsh_debug_sv.log(l_module_name, 'Message Name is', l_detail_actions_tab(k).message_name);
3863: END IF;
3864: FND_MESSAGE.SET_NAME('WSH',l_detail_actions_tab(k).message_name);
3865: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
3866: END IF;
3867: raise e_record_ineligible;
3868: exit;
3869: END IF;
3961: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_VALIDATIONS.Is_Action_Enabled l_return_status',
3962: l_return_status);
3963: END IF;
3964:
3965: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3966: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3967: raise e_record_ineligible;
3968: ELSE
3969: x_valid_ids(x_valid_ids.COUNT + 1) := p_del_detail_rec_tab(j).delivery_detail_id;
3962: l_return_status);
3963: END IF;
3964:
3965: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3966: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3967: raise e_record_ineligible;
3968: ELSE
3969: x_valid_ids(x_valid_ids.COUNT + 1) := p_del_detail_rec_tab(j).delivery_detail_id;
3970: x_valid_index_tab(j) := j;
4011: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_VALIDATIONS.Is_Action_Enabled l_return_status',
4012: l_return_status);
4013: END IF;
4014:
4015: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
4016: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4017: raise e_record_ineligible;
4018: ELSE
4019: x_valid_ids(x_valid_ids.COUNT + 1) := p_del_detail_rec_tab(j).delivery_detail_id;
4012: l_return_status);
4013: END IF;
4014:
4015: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
4016: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4017: raise e_record_ineligible;
4018: ELSE
4019: x_valid_ids(x_valid_ids.COUNT + 1) := p_del_detail_rec_tab(j).delivery_detail_id;
4020: x_valid_index_tab(j) := j;
4072: WSH_DEBUG_SV.log(l_module_name,'WMS_SHIPPING_INTERFACE_GRP.process_delivery_details l_wms_table(1).return_status',
4073: l_wms_table(1).return_status);
4074: END IF;
4075:
4076: 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
4077: raise e_wms_record_ineligible;
4078: END IF;
4079: END IF; -- l_content_id IS NOT NULL
4080: END IF;--l_wms_installed
4092: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_VALIDATIONS.Is_Action_Enabled l_return_status',
4093: l_return_status);
4094: END IF;
4095:
4096: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
4097: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4098: raise e_record_ineligible;
4099: ELSE
4100: IF (p_del_detail_rec_tab(j).source_code = 'WSH' and p_del_detail_rec_tab(j).container_flag = 'N' ) THEN
4093: l_return_status);
4094: END IF;
4095:
4096: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
4097: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4098: raise e_record_ineligible;
4099: ELSE
4100: IF (p_del_detail_rec_tab(j).source_code = 'WSH' and p_del_detail_rec_tab(j).container_flag = 'N' ) THEN
4101: raise e_record_ineligible;
4182: IF nvl(p_caller, FND_API.G_MISS_CHAR) = 'WSH_PUB'
4183: OR p_caller like 'FTE%' THEN
4184: FND_MESSAGE.SET_NAME('WSH', 'WSH_DETAIL_ACTION_INELIGIBLE');
4185: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_del_detail_rec_tab(j).delivery_detail_id);
4186: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('DLVB',p_action));
4187: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4188: END IF;
4189:
4190: WHEN e_wms_record_ineligible THEN
4183: OR p_caller like 'FTE%' THEN
4184: FND_MESSAGE.SET_NAME('WSH', 'WSH_DETAIL_ACTION_INELIGIBLE');
4185: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_del_detail_rec_tab(j).delivery_detail_id);
4186: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('DLVB',p_action));
4187: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4188: END IF;
4189:
4190: WHEN e_wms_record_ineligible THEN
4191: IF det_to_del_cur%ISOPEN THEN
4198: IF nvl(p_caller, FND_API.G_MISS_CHAR) = 'WSH_PUB'
4199: OR p_caller like 'FTE%' THEN
4200: FND_MESSAGE.SET_NAME('WSH', 'WSH_DETAIL_ACTION_INELIGIBLE');
4201: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_del_detail_rec_tab(j).delivery_detail_id);
4202: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('DLVB',p_action));
4203: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4204: END IF;
4205:
4206: WHEN e_tp_record_ineligible THEN
4199: OR p_caller like 'FTE%' THEN
4200: FND_MESSAGE.SET_NAME('WSH', 'WSH_DETAIL_ACTION_INELIGIBLE');
4201: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_del_detail_rec_tab(j).delivery_detail_id);
4202: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('DLVB',p_action));
4203: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4204: END IF;
4205:
4206: WHEN e_tp_record_ineligible THEN
4207: IF det_to_del_cur%ISOPEN THEN
4215: OR p_caller like 'FTE%' THEN
4216: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_ASSIGN_FIRMDEL_ERROR');
4217: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_del_detail_rec_tab(j).delivery_detail_id);
4218: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_deliveryid));
4219: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4220: END IF;
4221:
4222: WHEN others THEN
4223: IF det_to_del_cur%ISOPEN THEN
4228:
4229: END LOOP;
4230:
4231: IF (x_valid_ids.COUNT = 0 ) THEN
4232: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4233: --
4234: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4235: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
4236: wsh_util_core.add_message(x_return_status,l_module_name);
4232: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4233: --
4234: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4235: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
4236: wsh_util_core.add_message(x_return_status,l_module_name);
4237: END IF;
4238: --
4239: ELSIF (x_valid_ids.COUNT = p_del_detail_rec_tab.COUNT) THEN
4240: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4236: wsh_util_core.add_message(x_return_status,l_module_name);
4237: END IF;
4238: --
4239: ELSIF (x_valid_ids.COUNT = p_del_detail_rec_tab.COUNT) THEN
4240: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4241: ELSIF (x_valid_ids.COUNT < p_del_detail_rec_tab.COUNT ) THEN
4242: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4243: --
4244: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4238: --
4239: ELSIF (x_valid_ids.COUNT = p_del_detail_rec_tab.COUNT) THEN
4240: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4241: ELSIF (x_valid_ids.COUNT < p_del_detail_rec_tab.COUNT ) THEN
4242: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4243: --
4244: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4245: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
4246: wsh_util_core.add_message(x_return_status,l_module_name);
4242: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4243: --
4244: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4245: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
4246: wsh_util_core.add_message(x_return_status,l_module_name);
4247: END IF;
4248: --
4249: ELSE
4250: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4246: wsh_util_core.add_message(x_return_status,l_module_name);
4247: END IF;
4248: --
4249: ELSE
4250: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4251: --
4252: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4253: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
4254: wsh_util_core.add_message(x_return_status,l_module_name);
4250: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4251: --
4252: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
4253: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
4254: wsh_util_core.add_message(x_return_status,l_module_name);
4255: END IF;
4256: --
4257: END IF;
4258:
4268: END IF;
4269:
4270: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4272: wsh_util_core.add_message(x_return_status, l_module_name);
4273: IF l_debug_on THEN
4274: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4275: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4276: END IF;
4278: CLOSE c_staged_content;
4279: END IF;
4280:
4281: WHEN OTHERS THEN
4282: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4283: IF l_debug_on THEN
4284: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
4285: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4286: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4692: -- and disables the field contained in p_disabled_list.
4693: -----------------------------------------------------------*/
4694:
4695: PROCEDURE disable_from_list(
4696: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
4697: , p_in_rec IN wsh_glbl_var_strct_grp.delivery_details_rec_type
4698: , x_out_rec IN OUT NOCOPY wsh_glbl_var_strct_grp.delivery_details_rec_type
4699: , x_return_status OUT NOCOPY VARCHAR2
4700: , x_field_name OUT NOCOPY VARCHAR2
4842: NULL;
4843: ELSE
4844: -- invalid name
4845: x_field_name := p_disabled_list(i);
4846: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4847: RETURN;
4848: --
4849: END IF;
4850: END LOOP;
4855: -- included in p_disabled_list and will enable them
4856: -----------------------------------------------------------*/
4857:
4858: PROCEDURE enable_from_list(
4859: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
4860: , p_in_rec IN wsh_glbl_var_strct_grp.delivery_details_rec_type
4861: , x_out_rec IN OUT NOCOPY wsh_glbl_var_strct_grp.delivery_details_rec_type
4862: , x_return_status OUT NOCOPY VARCHAR2
4863: , x_field_name OUT NOCOPY VARCHAR2
5359: NULL;*/
5360: ELSE
5361: -- invalid name
5362: x_field_name := p_disabled_list(i);
5363: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5364: RETURN;
5365: --
5366: END IF;
5367: END LOOP;
5379: , x_msg_data OUT NOCOPY VARCHAR2
5380: , x_delivery_detail_rec OUT NOCOPY wsh_glbl_var_strct_grp.delivery_details_rec_type
5381: )
5382: IS
5383: l_disabled_list WSH_UTIL_CORE.column_tab_type;
5384: l_db_col_rec wsh_glbl_var_strct_grp.delivery_details_rec_type;
5385: l_return_status VARCHAR2(30);
5386: l_field_name VARCHAR2(100);
5387: j NUMBER := 0;
5695: , x_msg_data
5696: , l_caller --public api changes
5697: );
5698: --
5699: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
5700: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5701: THEN
5702: --
5703: IF l_debug_on THEN
5696: , l_caller --public api changes
5697: );
5698: --
5699: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
5700: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
5701: THEN
5702: --
5703: IF l_debug_on THEN
5704: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
5810: p_delivery_detail_rec,
5811: x_delivery_detail_rec,
5812: l_return_status,
5813: l_field_name);
5814: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5815: RAISE e_bad_field;
5816: END IF;
5817: END IF;
5818: ELSE -- list.count > 1 and list(1) <> 'FULL'
5853: l_db_col_rec,
5854: x_delivery_detail_rec,
5855: l_return_status,
5856: l_field_name);
5857: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5858: RAISE e_bad_field;
5859: END IF;
5860: END IF;
5861:
5894: j:=j+1; l_disabled_list(j) := 'SUBINVENTORY';
5895: j:=j+1; l_disabled_list(j) := 'LOCATOR_NAME';
5896: -- muom
5897: IF x_delivery_detail_rec.source_code = 'OE' THEN
5898: l_fulfillment_base := WSH_UTIL_CORE.Get_Line_Fulfillment_Base('OE',x_delivery_detail_rec.source_line_id );
5899: END IF;
5900: if nvl(l_fulfillment_base ,'P' ) <> 'S' THEN
5901: j:=j+1; l_disabled_list(j) := 'PICKED_QUANTITY2';
5902: -- Bug 3382932
6055: x_delivery_detail_rec,
6056: l_return_status,
6057: l_field_name);
6058:
6059: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
6060: RAISE e_bad_field;
6061: END IF;
6062:
6063:
6080: p_out_rec => x_delivery_detail_rec,
6081: p_in_rec => p_in_rec,
6082: x_return_status => l_return_status);
6083: --
6084: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
6085: x_return_status := l_return_status;
6086: END IF;
6087: --
6088: END IF;
6092: END IF;
6093:
6094: EXCEPTION
6095: WHEN e_all_disabled THEN
6096: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6097: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
6098: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_detail_rec.delivery_detail_id);
6099: wsh_util_core.add_message(x_return_status,l_module_name);
6100: IF l_debug_on THEN
6095: WHEN e_all_disabled THEN
6096: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6097: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
6098: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_detail_rec.delivery_detail_id);
6099: wsh_util_core.add_message(x_return_status,l_module_name);
6100: IF l_debug_on THEN
6101: -- Nothing is updateable
6102: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
6103: END IF;
6101: -- Nothing is updateable
6102: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
6103: END IF;
6104: WHEN e_dp_no_entity THEN
6105: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6106: -- the message for this is set in original get_disabled_list
6107: IF l_debug_on THEN
6108: WSH_DEBUG_SV.pop(l_module_name,'e_dp_no_entity');
6109: END IF;
6107: IF l_debug_on THEN
6108: WSH_DEBUG_SV.pop(l_module_name,'e_dp_no_entity');
6109: END IF;
6110: WHEN e_bad_field THEN
6111: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6112: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
6113: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
6114: wsh_util_core.add_message(x_return_status,l_module_name);
6115: IF l_debug_on THEN
6110: WHEN e_bad_field THEN
6111: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6112: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
6113: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
6114: wsh_util_core.add_message(x_return_status,l_module_name);
6115: IF l_debug_on THEN
6116: WSH_DEBUG_SV.log(l_module_name,'Bad field name passed to the list:'
6117: ,l_field_name);
6118: WSH_DEBUG_SV.pop(l_module_name,'e_bad_field');
6118: WSH_DEBUG_SV.pop(l_module_name,'e_bad_field');
6119: END IF;
6120:
6121: WHEN OTHERS THEN
6122: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6123: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list',
6124: l_module_name);
6125: IF l_debug_on THEN
6126: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
6119: END IF;
6120:
6121: WHEN OTHERS THEN
6122: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6123: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list',
6124: l_module_name);
6125: IF l_debug_on THEN
6126: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
6127: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6155: --
6156: WSH_DEBUG_SV.log(l_module_name,'p_action', p_action);
6157: END IF;
6158: --
6159: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6160:
6161: -- OTM R12
6162: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6163:
6158: --
6159: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6160:
6161: -- OTM R12
6162: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6163:
6164: IF (l_gc3_is_installed IS NULL) THEN
6165: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
6166: END IF;
6161: -- OTM R12
6162: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6163:
6164: IF (l_gc3_is_installed IS NULL) THEN
6165: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
6166: END IF;
6167: -- End of OTM R12
6168:
6169: --
6312: x_detail_actions_tab(i).line_direction := 'I';
6313: x_detail_actions_tab(i).released_status := 'L';
6314: x_detail_actions_tab(i).action_not_allowed := p_action;
6315: i := i+1;
6316: x_detail_actions_tab(i).ship_from_location_id := WSH_UTIL_CORE.C_NULL_SF_LOCN_ID;
6317: x_detail_actions_tab(i).action_not_allowed := p_action;
6318: --}
6319: END IF;
6320: -- J-IB-NPARIKH-}
6418: --
6419: -- Lines cannot be included for planning if ship-from location is null
6420: --
6421: i := i+1;
6422: x_detail_actions_tab(i).ship_from_location_id := WSH_UTIL_CORE.C_NULL_SF_LOCN_ID;
6423: x_detail_actions_tab(i).action_not_allowed := p_action;
6424: --bug 3458160
6425: IF l_gc3_is_installed = 'N' THEN
6426: -- 5746444: enforce this condition when OTM is disabled.
6455: WSH_DEBUG_SV.pop(l_module_name);
6456: END IF;
6457: EXCEPTION
6458: WHEN OTHERS THEN
6459: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6460: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Init_Detail_Actions_Tbl', l_module_name);
6461: IF l_debug_on THEN
6462: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
6463: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6456: END IF;
6457: EXCEPTION
6458: WHEN OTHERS THEN
6459: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6460: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.Init_Detail_Actions_Tbl', l_module_name);
6461: IF l_debug_on THEN
6462: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
6463: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6464: END IF;
6542: WSH_DEBUG_SV.log(l_module_name, 'unmark_serial_server ', x_det_rec.unmark_serial_server);
6543: WSH_DEBUG_SV.log(l_module_name, 'unmark_serial_form ', x_det_rec.unmark_serial_form);
6544: END IF;
6545:
6546: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6547:
6548: IF(p_flag = 'SQ') THEN
6549: l_input_quantity := x_det_rec.shipped_quantity;
6550: --added for Bug # 3266333
6561: END IF;
6562: open c_detail_info(x_det_rec.delivery_detail_id);
6563: fetch c_detail_info INTO l_det_source_code, l_det_source_line_id;
6564: close c_detail_info;
6565: l_fulfillment_base := WSH_UTIL_CORE.Get_Line_Fulfillment_Base(l_det_source_code, l_det_source_line_id);
6566: --1.a) if entered, enable backordered quantity and update it as max(requested_quantity - shipped_quantity),0)
6567: --1.b) if null, clear cycle count and secondary quantity
6568: IF(x_det_rec.shipped_quantity IS NOT NULL) THEN
6569: -- muom
6590: p_field_name => l_field_name,
6591: x_return_status => l_return_status );
6592: --
6593:
6594: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6595: RAISE FND_API.G_EXC_ERROR;
6596: END IF;
6597:
6598:
6620: ELSIF(p_flag = 'CCQ') THEN
6621: x_det_rec.cycle_count_quantity := l_quantity;
6622: END IF;
6623:
6624: IF l_return_status <> wsh_util_core.g_ret_sts_success THEN
6625: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6626: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
6627: ELSE
6628: RAISE FND_API.G_EXC_ERROR;
6621: x_det_rec.cycle_count_quantity := l_quantity;
6622: END IF;
6623:
6624: IF l_return_status <> wsh_util_core.g_ret_sts_success THEN
6625: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6626: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
6627: ELSE
6628: RAISE FND_API.G_EXC_ERROR;
6629: END IF;
6622: END IF;
6623:
6624: IF l_return_status <> wsh_util_core.g_ret_sts_success THEN
6625: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6626: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
6627: ELSE
6628: RAISE FND_API.G_EXC_ERROR;
6629: END IF;
6630: END IF;
6650: -- muom
6651: p_fulfill_base => 'P',
6652: x_return_status => l_return_status);
6653:
6654: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6655: RAISE FND_API.G_EXC_ERROR;
6656: END IF;
6657:
6658:
6671: -- muom
6672: p_fulfill_base => 'P',
6673: x_return_status => l_return_status);
6674:
6675: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6676: RAISE FND_API.G_EXC_ERROR;
6677: END IF;
6678: END IF;
6679: END IF;-- }
6697: -- End of Bug 3628620
6698: -- Bug 2828503 : added warning for unmarking of serial_numbers
6699: x_det_rec.unmark_serial_form := 'Y';
6700: fnd_message.set_name('WSH', 'WSH_UI_UNMARK_SERIAL_NUM');
6701: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
6702: l_number_of_warnings := l_number_of_warnings + 1;
6703:
6704: IF x_det_rec.serial_quantity > 0 AND x_det_rec.unmark_serial_server = 'Y' THEN
6705:
6717: IF l_debug_on THEN
6718: wsh_debug_sv.log(l_module_name, 'Return status after Unmark serial', l_return_status);
6719: END IF;
6720:
6721: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6722: RAISE FND_API.G_EXC_ERROR;
6723: END IF;
6724: END IF; -- if serial_quantity > 0
6725:
6741: IF x_det_rec.serial_quantity > 0 THEN
6742: -- Bug 2828503 : added warning for unmarking of serial_numbers
6743: x_det_rec.unmark_serial_form := 'Y';
6744: fnd_message.set_name('WSH', 'WSH_UI_UNMARK_SERIAL_NUM');
6745: wsh_util_core.add_message(wsh_util_core.g_ret_sts_warning);
6746: l_number_of_warnings := l_number_of_warnings + 1;
6747:
6748: IF l_debug_on THEN
6749: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.UNMARK_SERIAL_NUMBER',WSH_DEBUG_SV.C_PROC_LEVEL);
6761: IF l_debug_on THEN
6762: wsh_debug_sv.log(l_module_name, 'Return status after Unmark serial', l_return_status);
6763: END IF;
6764:
6765: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6766: RAISE FND_API.G_EXC_ERROR;
6767: END IF;
6768: END IF; -- if serial_quantity > 0
6769:
6789: WSH_DEBUG_SV.log(l_module_name, 'Output Cycle_Count quantity', x_det_rec.cycle_count_quantity);
6790: END IF;
6791:
6792: IF l_number_of_warnings > 0 THEN
6793: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6794: END IF;
6795:
6796: IF l_debug_on THEN
6797: WSH_DEBUG_SV.log(l_module_name, 'Return status from api ', x_return_status);
6800:
6801: EXCEPTION
6802: WHEN FND_API.G_EXC_ERROR THEN
6803: x_return_status := FND_API.G_RET_STS_ERROR ;
6804: wsh_util_core.add_message(x_return_status, l_module_name);
6805: FND_MSG_PUB.Count_And_Get
6806: (
6807: p_count => x_msg_count,
6808: p_data => x_msg_data,
6813: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6814: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6815: END IF;
6816: --
6817: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6818: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6819: wsh_util_core.add_message(x_return_status, l_module_name);
6820: FND_MSG_PUB.Count_And_Get
6821: (
6814: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
6815: END IF;
6816: --
6817: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6818: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6819: wsh_util_core.add_message(x_return_status, l_module_name);
6820: FND_MSG_PUB.Count_And_Get
6821: (
6822: p_count => x_msg_count,
6815: END IF;
6816: --
6817: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6818: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6819: wsh_util_core.add_message(x_return_status, l_module_name);
6820: FND_MSG_PUB.Count_And_Get
6821: (
6822: p_count => x_msg_count,
6823: p_data => x_msg_data,
6824: p_encoded => FND_API.G_FALSE
6825: );
6826: --
6827: IF l_debug_on THEN
6828: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6829: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6830: END IF;
6831:
6832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6825: );
6826: --
6827: IF l_debug_on THEN
6828: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6829: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6830: END IF;
6831:
6832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6844: END IF;
6845: --
6846: WHEN OTHERS THEN
6847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6848: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.VALIDATE_SHIPPED_CC_QUANTITY');
6849: --
6850: IF l_debug_on THEN
6851: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6852: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6923: WSH_DEBUG_SV.log(l_module_name, 'Organization Id', x_det_rec.organization_id);
6924: WSH_DEBUG_SV.log(l_module_name, 'Inventory Item Id', x_det_rec.inventory_item_id);
6925: END IF;
6926:
6927: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6928: IF(p_flag = 'SQ') THEN
6929: l_input_quantity := x_det_rec.shipped_quantity2;
6930: --added for Bug # 3266333
6931: l_field_name := 'shipped_quantity2';
6951: IF l_debug_on THEN
6952: WSH_DEBUG_SV.logmsg(l_module_name,'Calculate CC2 only in FB=P case',WSH_DEBUG_SV.C_STMT_LEVEL);
6953: END IF;
6954:
6955: IF WSH_UTIL_CORE.Get_Line_Fulfillment_Base(l_det_source_code,
6956: l_det_source_line_id) <>'S' THEN
6957: x_det_rec.cycle_count_quantity2 := WSH_WV_UTILS.convert_uom
6958: (
6959: from_uom => x_det_rec.requested_quantity_uom,
6978: p_field_name => l_field_name,
6979: x_return_status => l_return_status );
6980: --
6981:
6982: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6983: RAISE FND_API.G_EXC_ERROR;
6984: END IF;
6985:
6986: -- HW OPM BUG#:2677054
6995: open c_detail_info(x_det_rec.delivery_detail_id);
6996: fetch c_detail_info INTO l_det_source_code, l_det_source_line_id;
6997: close c_detail_info;
6998:
6999: IF WSH_UTIL_CORE.Get_Line_Fulfillment_Base(l_det_source_code, l_det_source_line_id) = 'S' THEN --{
7000:
7001: IF (p_flag = 'SQ') THEN
7002:
7003: IF l_debug_on THEN
7012: -- muom
7013: p_fulfill_base => 'S',
7014: x_return_status => l_return_status);
7015:
7016: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7017: RAISE FND_API.G_EXC_ERROR;
7018: END IF;
7019: ELSIF(p_flag = 'CCQ') THEN
7020:
7030: -- muom
7031: p_fulfill_base => 'S',
7032: x_return_status => l_return_status);
7033:
7034: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7035: RAISE FND_API.G_EXC_ERROR;
7036: END IF;
7037: END IF;
7038: END IF;
7082: END IF;
7083: --
7084: WHEN OTHERS THEN
7085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7086: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.VALIDATE_SHIPPED_CC_QUANTITY2');
7087: --
7088: IF l_debug_on THEN
7089: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7090: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7117: p_new_table IN wsh_interface.deliverydetailtab,
7118: p_action_code IN VARCHAR2,
7119: p_phase IN NUMBER,
7120: p_caller IN VARCHAR2,
7121: x_changed_id_tab OUT NOCOPY wsh_util_core.id_tab_type,
7122: x_return_status OUT NOCOPY VARCHAR2
7123: ) IS
7124:
7125: l_return_status VARCHAR2(30);
7123: ) IS
7124:
7125: l_return_status VARCHAR2(30);
7126: i NUMBER;
7127: l_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
7128: --
7129: l_debug_on BOOLEAN;
7130: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'COMPARE_DETAIL_ATTRIBUTES';
7131: --
7148: WSH_DEBUG_SV.log(l_module_name,'P_phase',P_PHASE);
7149: WSH_DEBUG_SV.log(l_module_name,'P_caller',P_CALLER);
7150: END IF;
7151:
7152: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7153: l_id_tab.DELETE;
7154:
7155: IF p_old_table.count = p_new_table.count THEN
7156: FOR i in 1..p_old_table.count
7201: END IF;
7202:
7203: EXCEPTION
7204: WHEN others THEN
7205: wsh_util_core.default_handler('WSH_TRIP_UTILITIES.compare_detail_attributes');
7206: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7207: IF l_debug_on THEN
7208: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7209: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7202:
7203: EXCEPTION
7204: WHEN others THEN
7205: wsh_util_core.default_handler('WSH_TRIP_UTILITIES.compare_detail_attributes');
7206: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7207: IF l_debug_on THEN
7208: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7209: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7210: END IF;
7322: wsh_debug_sv.LOG(l_module_name, 'X_QUANTITY', x_quantity);
7323: wsh_debug_sv.LOG(l_module_name, 'X_QUANTITY2', x_quantity2);
7324: END IF;
7325: --
7326: x_return_status := wsh_util_core.g_ret_sts_success;
7327: --
7328: --
7329: -- Check that primary quantity to be split is mandatory and should be
7330: -- positive
7333: THEN
7334: --{
7335: fnd_message.set_name('WSH', 'WSH_REQUIRED_FIELD_NULL');
7336: fnd_message.set_token('FIELD_NAME','x_quantity');
7337: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7338: RAISE FND_API.G_EXC_ERROR;
7339: --}
7340: /* HW BUG 4548713- Removed checking for Qty being 0
7341: ELSIF x_quantity = 0
7342: THEN
7343: --{
7344: --
7345: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
7346: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7347: RAISE FND_API.G_EXC_ERROR;
7348: --}
7349: */
7350: ELSIF x_quantity < 0
7350: ELSIF x_quantity < 0
7351: THEN
7352: --{
7353: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
7354: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7355: RAISE FND_API.G_EXC_ERROR;
7356: --}
7357: END IF;
7358: --
7366: THEN
7367: --{
7368: fnd_message.set_name('WSH', 'WSH_DET_INVALID_DETAIL');
7369: fnd_message.set_token('DETAIL_ID',p_delivery_detail_id);
7370: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7371: RAISE FND_API.G_EXC_ERROR;
7372: --}
7373: END IF;
7374: --
7408: , x_return_status => l_return_status
7409: );
7410:
7411: --
7412: wsh_util_core.api_post_call
7413: (
7414: p_return_status => l_return_status,
7415: x_num_warnings => l_number_of_warnings,
7416: x_num_errors => l_number_of_errors
7429: AND l_item_info.secondary_default_ind in ('F','D','N')
7430: THEN
7431: --{
7432: fnd_message.set_name('WSH', 'WSH_OPM_SEC_QTY_REQD_ERROR');
7433: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7434: RAISE FND_API.G_EXC_ERROR;
7435: --}
7436: -- HW OPMCONV - Changed condition to check for secondary_default_ind
7437: -- HW BUG 4548713 - Added check for x_quantity
7443: --
7444:
7445:
7446: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
7447: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7448: RAISE FND_API.G_EXC_ERROR;
7449: --}
7450: -- HW OPMCONV - Changed condition to check for secondary_default_ind
7451: ELSIF x_quantity2 < 0
7452: AND l_item_info.secondary_default_ind in ('F','D','N')
7453: THEN
7454: --{
7455: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
7456: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7457: RAISE FND_API.G_EXC_ERROR;
7458: --}
7459: END IF;
7460: --
7474: IF lot_csr%NOTFOUND
7475: THEN
7476: --{
7477: --fnd_message.set_name('GMI', 'IC_INVALID_LOT');
7478: --wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7479: RAISE INVALID_LOT;
7480: --}
7481: END IF;
7482: --
7508: (
7509: p_organization_id => l_line_rec.organization_id,
7510: p_inventory_item_id => l_line_rec.inventory_item_id,
7511: p_lot_number => l_lot_num,
7512: p_precision => WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS_INV,
7513: p_quantity => x_quantity,
7514: p_uom1 => l_line_rec.requested_quantity_uom,
7515: p_quantity2 => x_quantity2,
7516: p_uom2 =>l_line_rec.requested_quantity_uom2
7552: );
7553: --
7554: IF ( l_qty2 <= 0 ) THEN
7555: FND_MESSAGE.SET_NAME('wsh','WSH_UPDATE_CANNOT_SPLIT');
7556: wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7557: RAISE FND_API.G_EXC_ERROR;
7558: END IF;
7559: --
7560: IF l_qty2 <> x_quantity2
7562: --{
7563: FND_MESSAGE.SET_NAME('WSH','WSH_OPM_QTY_ERROR');
7564: FND_MESSAGE.SET_TOKEN('QUANTITY2',x_quantity2);
7565: FND_MESSAGE.SET_TOKEN('CONV_QUANTITY2',l_qty2);
7566: --wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7567: --RAISE FND_API.G_EXC_ERROR;
7568: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING, l_module_name);
7569: l_number_of_warnings := NVL(l_number_of_warnings,0) + 1;
7570: --}
7564: FND_MESSAGE.SET_TOKEN('QUANTITY2',x_quantity2);
7565: FND_MESSAGE.SET_TOKEN('CONV_QUANTITY2',l_qty2);
7566: --wsh_util_core.add_message(FND_API.G_RET_STS_ERROR, l_module_name);
7567: --RAISE FND_API.G_EXC_ERROR;
7568: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING, l_module_name);
7569: l_number_of_warnings := NVL(l_number_of_warnings,0) + 1;
7570: --}
7571: END IF;
7572: --
7578: IF l_debug_on THEN
7579: wsh_debug_sv.log(l_module_name, 'Number of warnings', l_number_of_warnings);
7580: END IF;
7581:
7582: RAISE wsh_util_core.g_exc_warning;
7583: END IF;
7584: --
7585: fnd_msg_pub.count_and_get(
7586: p_count => x_msg_count,
7643: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
7644: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7645: END IF;
7646: --
7647: WHEN wsh_util_core.g_exc_warning THEN
7648: x_return_status := wsh_util_core.g_ret_sts_warning;
7649: fnd_msg_pub.count_and_get(
7650: p_count => x_msg_count,
7651: p_data => x_msg_data,
7644: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7645: END IF;
7646: --
7647: WHEN wsh_util_core.g_exc_warning THEN
7648: x_return_status := wsh_util_core.g_ret_sts_warning;
7649: fnd_msg_pub.count_and_get(
7650: p_count => x_msg_count,
7651: p_data => x_msg_data,
7652: p_encoded => fnd_api.g_false);
7651: p_data => x_msg_data,
7652: p_encoded => fnd_api.g_false);
7653: --
7654: IF l_debug_on THEN
7655: wsh_debug_sv.logmsg(l_module_name, 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ', wsh_debug_sv.c_excep_level);
7656: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7657: END IF;
7658: WHEN OTHERS THEN
7659: x_return_status := fnd_api.g_ret_sts_unexp_error;
7652: p_encoded => fnd_api.g_false);
7653: --
7654: IF l_debug_on THEN
7655: wsh_debug_sv.logmsg(l_module_name, 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ', wsh_debug_sv.c_excep_level);
7656: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7657: END IF;
7658: WHEN OTHERS THEN
7659: x_return_status := fnd_api.g_ret_sts_unexp_error;
7660: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.validate_secondary_quantity',l_module_name);
7656: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7657: END IF;
7658: WHEN OTHERS THEN
7659: x_return_status := fnd_api.g_ret_sts_unexp_error;
7660: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.validate_secondary_quantity',l_module_name);
7661: --
7662: fnd_msg_pub.count_and_get(
7663: p_count => x_msg_count,
7664: p_data => x_msg_data,
8915: p_attributes => l_attributes,
8916: x_return_status => l_return_status
8917: );
8918:
8919: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
8920: THEN
8921: x_return_status := l_return_status;
8922: IF l_debug_on THEN
8923: wsh_debug_sv.logmsg(l_module_name,'Error returned by wsh_utilities.process_message',WSH_DEBUG_SV.C_PROC_LEVEL);
8925: wsh_debug_sv.pop(l_module_name);
8926: END IF;
8927: return;
8928: ELSE
8929: x_return_status := wsh_util_core.G_RET_STS_WARNING;
8930: END IF;
8931: END IF;
8932: --
8933: IF l_debug_on THEN
8935: END IF;
8936: --
8937: EXCEPTION
8938: WHEN OTHERS THEN
8939: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8940: --
8941: IF l_debug_on THEN
8942: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8943: END IF;
9023: x_mtl_system_items_rec => l_item_info,
9024: x_return_status => l_return_status
9025: );
9026: --
9027: wsh_util_core.api_post_call
9028: (
9029: p_return_status => l_return_status,
9030: x_num_warnings => l_number_of_warnings,
9031: x_num_errors => l_number_of_errors
9159: x_mtl_system_items_rec => l_item_info,
9160: x_return_status => l_return_status
9161: );
9162: --
9163: wsh_util_core.api_post_call
9164: (
9165: p_return_status => l_return_status,
9166: x_num_warnings => l_number_of_warnings,
9167: x_num_errors => l_number_of_errors