242: ||':'||P_OVERRIDE_RETAIN_ATO_RSV);
243: END IF;
244: --
245: IF p_quantity_to_unreserve is null OR
246: p_quantity_to_unreserve = FND_API.G_MISS_NUM THEN
247: goto end_of_loop;
248: END IF;
249:
250: --
435: p_move_order_line_id => l_line_rec.move_order_line_id,
436: x_detail_id => l_rsv_rec.demand_source_line_detail,
437: x_return_status => l_return_status);
438:
439: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
442: RAISE FND_API.G_EXC_ERROR;
443: END IF;
436: x_detail_id => l_rsv_rec.demand_source_line_detail,
437: x_return_status => l_return_status);
438:
439: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
442: RAISE FND_API.G_EXC_ERROR;
443: END IF;
444: END IF;
437: x_return_status => l_return_status);
438:
439: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
442: RAISE FND_API.G_EXC_ERROR;
443: END IF;
444: END IF;
445: --end of X-dock
438:
439: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
440: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
441: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
442: RAISE FND_API.G_EXC_ERROR;
443: END IF;
444: END IF;
445: --end of X-dock
446:
445: --end of X-dock
446:
447: inv_reservation_pub.query_reservation
448: (p_api_version_number => 1.0,
449: p_init_msg_lst => fnd_api.g_true,
450: x_return_status => l_return_status,
451: x_msg_count => l_msg_count,
452: x_msg_data => l_msg_data,
453: p_query_input => l_rsv_rec,
499:
500: END IF;
501:
502: IF ( l_qty2_to_unreserve is NOT NULL OR
503: l_qty2_to_unreserve <> FND_API.G_MISS_NUM ) THEN
504:
505: l_qty2_to_unreserve := WSH_WV_UTILS.convert_uom
506: (
507: item_id => l_line_rec.inventory_item_id
596: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS QUERY STAGED FLAG: ' || L_RETURN_STATUS );
597: END IF;
598: --
599:
600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
597: END IF;
598: --
599:
600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
605:
598: --
599:
600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
605:
606: IF l_debug_on THEN
599:
600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
605:
606: IF l_debug_on THEN
607: WSH_DEBUG_SV.log(l_module_name, 'RES QTY : QTY TO UNRESVRVE : l_staged_flag ; ',
719: END IF;
720:
721: -- HW OPMCONV - NULL Qty2 if they are not presents
722: IF ( ( l_rsv_new_rec.secondary_reservation_quantity = 0 OR
723: l_rsv_new_rec.secondary_reservation_quantity = FND_API.G_MISS_NUM )
724: OR ( l_rsv_new_rec.secondary_detailed_quantity = 0 OR
725: l_rsv_new_rec.secondary_detailed_quantity = FND_API.G_MISS_NUM ) ) THEN
726: l_rsv_new_rec.secondary_reservation_quantity := NULL;
727: l_rsv_new_rec.secondary_detailed_quantity := NULL;
721: -- HW OPMCONV - NULL Qty2 if they are not presents
722: IF ( ( l_rsv_new_rec.secondary_reservation_quantity = 0 OR
723: l_rsv_new_rec.secondary_reservation_quantity = FND_API.G_MISS_NUM )
724: OR ( l_rsv_new_rec.secondary_detailed_quantity = 0 OR
725: l_rsv_new_rec.secondary_detailed_quantity = FND_API.G_MISS_NUM ) ) THEN
726: l_rsv_new_rec.secondary_reservation_quantity := NULL;
727: l_rsv_new_rec.secondary_detailed_quantity := NULL;
728: END IF;
729:
733:
734:
735: inv_reservation_pub.update_reservation
736: (p_api_version_number => 1.0,
737: p_init_msg_lst => fnd_api.g_true,
738: x_return_status => l_return_status,
739: x_msg_count => l_msg_count,
740: x_msg_data => l_msg_data,
741: p_original_rsv_rec => l_rsv_rec,
741: p_original_rsv_rec => l_rsv_rec,
742: p_to_rsv_rec => l_rsv_new_rec,
743: p_original_serial_number => l_dummy_sn, -- no serial contorl
744: p_to_serial_number => l_dummy_sn, -- no serial control
745: p_validation_flag => fnd_api.g_true,
746: -- Bug 5099694
747: p_over_reservation_flag =>3
748: );
749:
757: l_rsv_new_rec.secondary_reservation_quantity ||':'||
758: l_rsv_tbl(I).secondary_detailed_quantity);
759: END IF;
760:
761: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
764: RAISE FND_API.G_EXC_ERROR;
765: END IF;
758: l_rsv_tbl(I).secondary_detailed_quantity);
759: END IF;
760:
761: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
764: RAISE FND_API.G_EXC_ERROR;
765: END IF;
766:
759: END IF;
760:
761: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
764: RAISE FND_API.G_EXC_ERROR;
765: END IF;
766:
767: ELSE
760:
761: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
763: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
764: RAISE FND_API.G_EXC_ERROR;
765: END IF;
766:
767: ELSE
768:
771: END IF;
772:
773: inv_reservation_pub.delete_reservation
774: ( p_api_version_number => 1.0
775: , p_init_msg_lst => fnd_api.g_true
776: , x_return_status => l_return_status
777: , x_msg_count => l_msg_count
778: , x_msg_data => l_msg_data
779: , p_rsv_rec => l_rsv_rec
783: IF l_debug_on THEN
784: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS DELETE REservation 1: ' || L_RETURN_STATUS );
785: END IF;
786:
787: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
789: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
790: RAISE FND_API.G_EXC_ERROR;
791: END IF;
784: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS DELETE REservation 1: ' || L_RETURN_STATUS );
785: END IF;
786:
787: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
789: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
790: RAISE FND_API.G_EXC_ERROR;
791: END IF;
792:
785: END IF;
786:
787: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
789: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
790: RAISE FND_API.G_EXC_ERROR;
791: END IF;
792:
793: END IF;
786:
787: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
789: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
790: RAISE FND_API.G_EXC_ERROR;
791: END IF;
792:
793: END IF;
794:
847: IF l_debug_on THEN
848: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS UPDATE STAGED FLAG: ' || L_RETURN_STATUS );
849: END IF;
850: --
851: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
853: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
848: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS UPDATE STAGED FLAG: ' || L_RETURN_STATUS );
849: END IF;
850: --
851: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
853: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856: END IF; -- Staged Flag
849: END IF;
850: --
851: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
853: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856: END IF; -- Staged Flag
857:
850: --
851: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
853: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856: END IF; -- Staged Flag
857:
858: ELSE -- Non- ATO Item
868: --
869:
870: inv_reservation_pub.delete_reservation
871: (p_api_version_number => 1.0,
872: p_init_msg_lst => fnd_api.g_true,
873: x_return_status => l_return_status,
874: x_msg_count => l_msg_count,
875: x_msg_data => l_msg_data,
876: p_rsv_rec => l_rsv_rec,
881: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS DELETE_RESERVATION: ' || L_RETURN_STATUS );
882: END IF;
883: --
884:
885: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
888: RAISE FND_API.G_EXC_ERROR;
889: END IF;
882: END IF;
883: --
884:
885: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
888: RAISE FND_API.G_EXC_ERROR;
889: END IF;
890: END IF; -- ATO line
883: --
884:
885: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
888: RAISE FND_API.G_EXC_ERROR;
889: END IF;
890: END IF; -- ATO line
891: else -- p_unreserve_mode = 'CYCLE_COUNT'
884:
885: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
886: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
887: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
888: RAISE FND_API.G_EXC_ERROR;
889: END IF;
890: END IF; -- ATO line
891: else -- p_unreserve_mode = 'CYCLE_COUNT'
892: --
896: WSH_DEBUG_SV.log(l_module_name, ' l_rsv_rec.reservation_quantity2: ' || l_rsv_rec.secondary_reservation_quantity );
897: END IF;
898: --
899: IF ( l_rsv_rec.secondary_reservation_quantity = 0 OR
900: l_rsv_rec.secondary_reservation_quantity = FND_API.G_MISS_NUM ) THEN
901: l_rsv_rec.secondary_reservation_quantity := NULL;
902: END IF;
903: -- HW INVCONV - Added Qty2
904: Inv_Pick_Release_Pub.Reserve_Unconfirmed_Quantity(
902: END IF;
903: -- HW INVCONV - Added Qty2
904: Inv_Pick_Release_Pub.Reserve_Unconfirmed_Quantity(
905: p_api_version => 1.0,
906: p_init_msg_list => FND_API.G_FALSE,
907: p_commit => FND_API.G_FALSE,
908: x_return_status => l_reserve_status,
909: x_msg_count => l_reserve_msg_count,
910: x_msg_data => l_reserve_msg_data,
903: -- HW INVCONV - Added Qty2
904: Inv_Pick_Release_Pub.Reserve_Unconfirmed_Quantity(
905: p_api_version => 1.0,
906: p_init_msg_list => FND_API.G_FALSE,
907: p_commit => FND_API.G_FALSE,
908: x_return_status => l_reserve_status,
909: x_msg_count => l_reserve_msg_count,
910: x_msg_data => l_reserve_msg_data,
911: p_missing_quantity => l_rsv_rec.reservation_quantity ,
1040: --
1041:
1042: -- HW OPMCONV - NULL Qty2 if they are not presents
1043: IF ( ( l_rsv_new_rec.secondary_reservation_quantity = 0 OR
1044: l_rsv_new_rec.secondary_reservation_quantity = FND_API.G_MISS_NUM )
1045: OR ( l_rsv_new_rec.secondary_detailed_quantity = 0 OR
1046: l_rsv_new_rec.secondary_detailed_quantity = FND_API.G_MISS_NUM ) ) THEN
1047: l_rsv_new_rec.secondary_reservation_quantity := NULL;
1048: l_rsv_new_rec.secondary_detailed_quantity := NULL;
1042: -- HW OPMCONV - NULL Qty2 if they are not presents
1043: IF ( ( l_rsv_new_rec.secondary_reservation_quantity = 0 OR
1044: l_rsv_new_rec.secondary_reservation_quantity = FND_API.G_MISS_NUM )
1045: OR ( l_rsv_new_rec.secondary_detailed_quantity = 0 OR
1046: l_rsv_new_rec.secondary_detailed_quantity = FND_API.G_MISS_NUM ) ) THEN
1047: l_rsv_new_rec.secondary_reservation_quantity := NULL;
1048: l_rsv_new_rec.secondary_detailed_quantity := NULL;
1049: END IF;
1050:
1050:
1051:
1052: INV_RESERVATION_PUB.transfer_reservation
1053: (p_api_version_number => 1.0,
1054: p_init_msg_lst => fnd_api.g_true,
1055: x_return_status => l_return_status,
1056: x_msg_count => l_msg_count,
1057: x_msg_data => l_msg_data,
1058: p_original_rsv_rec => l_rsv_rec,
1058: p_original_rsv_rec => l_rsv_rec,
1059: p_to_rsv_rec => l_rsv_new_rec,
1060: p_original_serial_number => l_dummy_sn, -- no serial contorl
1061: p_to_serial_number => l_dummy_sn, -- no serial control
1062: p_validation_flag => fnd_api.g_true,
1063: -- Bug 5099694
1064: p_over_reservation_flag =>3,
1065: x_to_reservation_id => l_new_rsv_id
1066: );
1070: WSH_DEBUG_SV.log(l_module_name,'New Rec: reservation id: ', l_new_rsv_id);
1071: END IF;
1072: --
1073:
1074: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1076: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1077: RAISE FND_API.G_EXC_ERROR;
1078: END IF;
1071: END IF;
1072: --
1073:
1074: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1076: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1077: RAISE FND_API.G_EXC_ERROR;
1078: END IF;
1079:
1072: --
1073:
1074: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1076: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1077: RAISE FND_API.G_EXC_ERROR;
1078: END IF;
1079:
1080: --
1073:
1074: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1076: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1077: RAISE FND_API.G_EXC_ERROR;
1078: END IF;
1079:
1080: --
1081: IF l_debug_on THEN
1095: WSH_DEBUG_SV.log(l_module_name,'l_staged_flag: ',l_staged_flag);
1096: END IF;
1097: --
1098:
1099: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1101: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1096: END IF;
1097: --
1098:
1099: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1101: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104:
1097: --
1098:
1099: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1101: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104:
1105: If ( nvl(l_staged_flag, 'N') = 'Y') then -- Staged
1098:
1099: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1101: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104:
1105: If ( nvl(l_staged_flag, 'N') = 'Y') then -- Staged
1106: --
1118: IF l_debug_on THEN
1119: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS UPDATE STAGED FLAG: ' || L_RETURN_STATUS );
1120: END IF;
1121: --
1122: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1119: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS UPDATE STAGED FLAG: ' || L_RETURN_STATUS );
1120: END IF;
1121: --
1122: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1127: End if; -- Staged_flag = Y
1120: END IF;
1121: --
1122: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1127: End if; -- Staged_flag = Y
1128:
1121: --
1122: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1125: RAISE FND_API.G_EXC_ERROR;
1126: END IF;
1127: End if; -- Staged_flag = Y
1128:
1129: ELSE -- (i.e. Not an ATO )
1163: END IF;
1164: --
1165: -- HW OPMCONV - NULL Qty2 if they are not presents
1166: IF ( l_rsv_new_rec.secondary_reservation_quantity = 0 OR
1167: l_rsv_new_rec.secondary_reservation_quantity = FND_API.G_MISS_NUM ) THEN
1168:
1169: l_rsv_new_rec.secondary_reservation_quantity := NULL;
1170:
1171: END IF;
1171: END IF;
1172:
1173: inv_reservation_pub.update_reservation
1174: (p_api_version_number => 1.0,
1175: p_init_msg_lst => fnd_api.g_true,
1176: x_return_status => l_return_status,
1177: x_msg_count => l_msg_count,
1178: x_msg_data => l_msg_data,
1179: p_original_rsv_rec => l_rsv_rec,
1179: p_original_rsv_rec => l_rsv_rec,
1180: p_to_rsv_rec => l_rsv_new_rec,
1181: p_original_serial_number => l_dummy_sn, -- no serial contorl
1182: p_to_serial_number => l_dummy_sn, -- no serial control
1183: p_validation_flag => fnd_api.g_true,
1184: -- Bug 5099694
1185: p_over_reservation_flag =>3
1186: );
1187: --
1188: IF l_debug_on THEN
1189: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS UPDATE_RESERVATION: ' || L_RETURN_STATUS );
1190: END IF;
1191: --
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN -- UnExp Erro
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- STS Error
1195: IF l_msg_data is not null THEN -- msg.data not null
1196: fnd_message.set_encoded(l_msg_data);
1189: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS UPDATE_RESERVATION: ' || L_RETURN_STATUS );
1190: END IF;
1191: --
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN -- UnExp Erro
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- STS Error
1195: IF l_msg_data is not null THEN -- msg.data not null
1196: fnd_message.set_encoded(l_msg_data);
1197: l_buffer := fnd_message.get;
1190: END IF;
1191: --
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN -- UnExp Erro
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1194: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN -- STS Error
1195: IF l_msg_data is not null THEN -- msg.data not null
1196: fnd_message.set_encoded(l_msg_data);
1197: l_buffer := fnd_message.get;
1198: --
1206: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR : '|| L_BUFFER );
1207: END IF;
1208: --
1209: END IF; -- msg.data not null
1210: RAISE FND_API.G_EXC_ERROR;
1211: END IF; -- UnExp Error
1212: END IF; -- (if ATO ..)
1213: else -- p_unreserve_mode = 'CYCLE_COUNT'
1214: --
1219:
1220: END IF;
1221: --
1222:
1223: IF ( l_qty2_to_unreserve = 0 or l_qty2_to_unreserve = FND_API.G_MISS_NUM) THEN
1224: l_qty2_to_unreserve := NULL;
1225: END IF;
1226:
1227: Inv_Pick_Release_Pub.Reserve_Unconfirmed_Quantity(
1225: END IF;
1226:
1227: Inv_Pick_Release_Pub.Reserve_Unconfirmed_Quantity(
1228: p_api_version => 1.0,
1229: p_init_msg_list => FND_API.G_FALSE,
1230: p_commit => FND_API.G_FALSE,
1231: x_return_status => l_reserve_status,
1232: x_msg_count => l_reserve_msg_count,
1233: x_msg_data => l_reserve_msg_data,
1226:
1227: Inv_Pick_Release_Pub.Reserve_Unconfirmed_Quantity(
1228: p_api_version => 1.0,
1229: p_init_msg_list => FND_API.G_FALSE,
1230: p_commit => FND_API.G_FALSE,
1231: x_return_status => l_reserve_status,
1232: x_msg_count => l_reserve_msg_count,
1233: x_msg_data => l_reserve_msg_data,
1234: p_missing_quantity => l_qty_to_unreserve ,
1298: END IF;
1299: --
1300: EXCEPTION
1301: -- bug 2442178: added expected exceptions to appropriately set return status
1302: WHEN FND_API.G_EXC_ERROR THEN
1303: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1304: --
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1302: WHEN FND_API.G_EXC_ERROR THEN
1303: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1304: --
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1307: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1308: END IF;
1309: --
1310: return;
1303: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1304: --
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1307: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1308: END IF;
1309: --
1310: return;
1311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1307: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1308: END IF;
1309: --
1310: return;
1311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1312: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1313: --
1314: IF l_debug_on THEN
1315: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1312: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1313: --
1314: IF l_debug_on THEN
1315: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1316: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1317: END IF;
1318: --
1319: return;
1312: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1313: --
1314: IF l_debug_on THEN
1315: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1316: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1317: END IF;
1318: --
1319: return;
1320:
1781: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1782: IF l_debug_on THEN
1783: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1784: END IF;
1785: raise FND_API.G_EXC_ERROR;
1786: END IF;
1787: END IF;
1788:
1789: ELSIF (p_assignment_type IN ('DD2C', 'C2C')) THEN
1836: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1837: IF l_debug_on THEN
1838: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1839: END IF;
1840: raise FND_API.G_EXC_ERROR;
1841: END IF;
1842: ELSIF (l_delivery2 IS NOT NULL) THEN
1843:
1844: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_delivery2);
1847: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1848: IF l_debug_on THEN
1849: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1850: END IF;
1851: raise FND_API.G_EXC_ERROR;
1852: END IF;
1853: END IF;
1854:
1855: ELSE
1855: ELSE
1856: IF l_debug_on THEN
1857: WSH_DEBUG_SV.log(l_module_name,'Error in wrong assignment_type', p_assignment_type);
1858: END IF;
1859: raise FND_API.G_EXC_ERROR;
1860: END IF;
1861:
1862: IF l_debug_on THEN
1863: WSH_DEBUG_SV.log(l_module_name, 'x_delivery_was_empty', x_delivery_was_empty);
1871: WSH_DEBUG_SV.pop(l_module_name);
1872: END IF;
1873:
1874: EXCEPTION
1875: WHEN FND_API.G_EXC_ERROR THEN
1876: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1877:
1878: IF c_get_gross_weight%ISOPEN THEN
1879: CLOSE c_get_gross_weight;
1976: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1977: IF l_debug_on THEN
1978: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1979: END IF;
1980: raise FND_API.G_EXC_ERROR;
1981: ELSIF (l_is_delivery_empty = 'Y') THEN
1982: l_call_update := 'N';
1983: ELSIF (l_is_delivery_empty = 'N') THEN
1984: IF (p_tms_interface_flag IS NOT NULL) THEN
1992: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
1993: IF l_debug_on THEN
1994: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
1995: END IF;
1996: raise FND_API.G_EXC_ERROR;
1997: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1998: l_num_warnings := l_num_warnings + 1;
1999: END IF;
2000: l_tms_interface_flag := nvl(l_delivery_info.tms_interface_flag, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT);
2036: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2037: IF l_debug_on THEN
2038: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
2039: END IF;
2040: raise FND_API.G_EXC_ERROR;
2041: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2042: l_num_warnings := l_num_warnings + 1;
2043: END IF;
2044: END IF;
2053: WSH_DEBUG_SV.pop(l_module_name);
2054: END IF;
2055:
2056: EXCEPTION
2057: WHEN FND_API.G_EXC_ERROR THEN
2058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2059: --
2060: IF l_debug_on THEN
2061: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2833: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2834: IF l_debug_on THEN
2835: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
2836: END IF;
2837: raise FND_API.G_EXC_ERROR;
2838: END IF;
2839: END IF;
2840: -- End of OTM R12 : assign delivery detail
2841:
3103: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3104: IF l_debug_on THEN
3105: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3106: END IF;
3107: raise FND_API.G_EXC_ERROR;
3108: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3109: l_num_warnings := l_num_warnings + 1;
3110: END IF;
3111: END IF;
3263: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3264: IF l_debug_on THEN
3265: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
3266: END IF;
3267: raise FND_API.G_EXC_ERROR;
3268: END IF;
3269: END IF;
3270: -- End of OTM R12 : assign delivery detail
3271:
3358: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3359: IF l_debug_on THEN
3360: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3361: END IF;
3362: raise FND_API.G_EXC_ERROR;
3363: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3364: l_num_warnings := l_num_warnings + 1;
3365: END IF;
3366: END IF;
3486: --
3487: exception
3488:
3489: -- OTM R12 : assign delivery detail
3490: WHEN FND_API.G_EXC_ERROR then
3491: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3492: --
3493: IF l_debug_on THEN
3494: WSH_DEBUG_SV.pop(l_module_name);
4182: THEN
4183: --{
4184: FND_MESSAGE.SET_NAME('WSH', 'WSH_REQUIRED_FIELD_NULL');
4185: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'x_dlvy_has_lines');
4186: RAISE FND_API.G_EXC_ERROR;
4187: --}
4188: END IF;
4189: -- J-IB-NPARIKH-}
4190: --
4246: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4247: IF l_debug_on THEN
4248: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
4249: END IF;
4250: raise FND_API.G_EXC_ERROR;
4251: END IF;
4252: END IF;
4253: -- End of OTM R12 : assign delivery detail
4254:
4902: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4903: IF l_debug_on THEN
4904: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
4905: END IF;
4906: raise FND_API.G_EXC_ERROR;
4907: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4908: l_num_warnings := l_num_warnings + 1;
4909: END IF;
4910: END IF;
4978: END IF;
4979: --
4980: EXCEPTION
4981: -- J-IB-NPARIKH-{
4982: WHEN FND_API.G_EXC_ERROR THEN
4983: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
4984: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
4985: --
4986: IF l_debug_on
4984: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
4985: --
4986: IF l_debug_on
4987: THEN
4988: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
4989: END IF;
4990: -- J-IB-NPARIKH-}
4991:
4992: WHEN mark_reprice_error THEN
5457: --handle the error approriately to the procedure this code is in
5458: IF l_debug_on THEN
5459: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
5460: END IF;
5461: raise FND_API.G_EXC_ERROR;
5462: END IF;
5463: END IF;
5464: -- End of OTM R12 : assign delivery detail
5465:
6069: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6070: IF l_debug_on THEN
6071: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6072: END IF;
6073: raise FND_API.G_EXC_ERROR;
6074: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6075: l_num_warnings := l_num_warnings + 1;
6076: END IF;
6077:
6233: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6234: IF l_debug_on THEN
6235: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6236: END IF;
6237: raise FND_API.G_EXC_ERROR;
6238: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6239: l_num_warnings := l_num_warnings + 1;
6240: END IF;
6241: END IF;
6460: --
6461: exception
6462:
6463: -- OTM R12 : assign delivery detail
6464: WHEN FND_API.G_EXC_ERROR then
6465: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6466: --
6467: IF l_debug_on THEN
6468: WSH_DEBUG_SV.pop(l_module_name);
7209: --handle the error approriately to the procedure this code is in
7210: IF l_debug_on THEN
7211: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
7212: END IF;
7213: raise FND_API.G_EXC_ERROR;
7214: ELSIF (l_is_delivery_empty = 'Y') THEN
7215: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED;
7216: ELSIF (l_is_delivery_empty = 'N') THEN
7217: IF (l_gross_weight = 0) THEN
8068: END IF;
8069:
8070: EXCEPTION
8071: -- J-IB-NPARIKH-{
8072: WHEN fnd_api.g_exc_error THEN
8073: x_return_status := fnd_api.g_ret_sts_error;
8074: --
8075: -- K LPN CONV. rv
8076: --
8069:
8070: EXCEPTION
8071: -- J-IB-NPARIKH-{
8072: WHEN fnd_api.g_exc_error THEN
8073: x_return_status := fnd_api.g_ret_sts_error;
8074: --
8075: -- K LPN CONV. rv
8076: --
8077: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
8103: -- K LPN CONV. rv
8104: --
8105: --
8106: IF l_debug_on THEN
8107: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
8108: END IF;
8109: --
8110: WHEN fnd_api.g_exc_unexpected_error THEN
8111: x_return_status := fnd_api.g_ret_sts_unexp_error;
8106: IF l_debug_on THEN
8107: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
8108: END IF;
8109: --
8110: WHEN fnd_api.g_exc_unexpected_error THEN
8111: x_return_status := fnd_api.g_ret_sts_unexp_error;
8112: --
8113: --
8114: -- K LPN CONV. rv
8107: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
8108: END IF;
8109: --
8110: WHEN fnd_api.g_exc_unexpected_error THEN
8111: x_return_status := fnd_api.g_ret_sts_unexp_error;
8112: --
8113: --
8114: -- K LPN CONV. rv
8115: --
8139: --
8140: -- K LPN CONV. rv
8141: --
8142: IF l_debug_on THEN
8143: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8144: END IF;
8145: --
8146:
8147: -- J-IB-NPARIKH-}
8936: -- Bug 4455732 : Combining transaction_temp_id and serial_number update into single cursor
8937: -- since single quantity detail can have transaction_temp_id also.
8938: FORALL i IN 1..l_dd_id_tab.count
8939: UPDATE wsh_delivery_details
8940: SET serial_number = decode(l_serial_number_tab(i),FND_API.G_MISS_CHAR,NULL,
8941: NULL,serial_number,l_serial_number_tab(i)) ,
8942: transaction_temp_id = decode(l_transaction_id_tab(i),FND_API.G_MISS_NUM,NULL,
8943: NULL,transaction_temp_id,l_transaction_id_tab(i))
8944: WHERE delivery_detail_id = l_dd_id_tab(i);
8938: FORALL i IN 1..l_dd_id_tab.count
8939: UPDATE wsh_delivery_details
8940: SET serial_number = decode(l_serial_number_tab(i),FND_API.G_MISS_CHAR,NULL,
8941: NULL,serial_number,l_serial_number_tab(i)) ,
8942: transaction_temp_id = decode(l_transaction_id_tab(i),FND_API.G_MISS_NUM,NULL,
8943: NULL,transaction_temp_id,l_transaction_id_tab(i))
8944: WHERE delivery_detail_id = l_dd_id_tab(i);
8945:
8946: END IF; -- end of transaction temp id is not null
9316: l_delivery_details_info.requested_quantity := LEAST(p_old_delivery_detail_rec.requested_quantity, p_quantity_to_split);
9317: l_delivery_details_info.picked_quantity := p_quantity_to_split;
9318: -- HW OPM for OM changes
9319: -- HW OPMCONV. No need to use l_new_pick_qty2
9320: --l_delivery_details_info.picked_quantity2 := nvl(nvl(l_qty2,l_new_pick_qty2),FND_API.G_MISS_NUM);
9321: l_delivery_details_info.picked_quantity2 := nvl(l_qty2,FND_API.G_MISS_NUM);
9322:
9323: END IF;
9324:
9317: l_delivery_details_info.picked_quantity := p_quantity_to_split;
9318: -- HW OPM for OM changes
9319: -- HW OPMCONV. No need to use l_new_pick_qty2
9320: --l_delivery_details_info.picked_quantity2 := nvl(nvl(l_qty2,l_new_pick_qty2),FND_API.G_MISS_NUM);
9321: l_delivery_details_info.picked_quantity2 := nvl(l_qty2,FND_API.G_MISS_NUM);
9322:
9323: END IF;
9324:
9325: IF ( NVL(l_qty2, 0) = 0 OR l_qty2 < 0 ) THEN
9322:
9323: END IF;
9324:
9325: IF ( NVL(l_qty2, 0) = 0 OR l_qty2 < 0 ) THEN
9326: l_delivery_details_info.requested_quantity2 := FND_API.G_MISS_NUM;
9327: ELSE
9328: l_delivery_details_info.requested_quantity2 := l_qty2;
9329: END IF;
9330:
9346: -- p_manual_split is 'Y' only when splitting for staged delivery details during ship confirm
9347: -- Staged delivery details W/V should always be reset back to original W/V
9348: l_new_wv_qty := 0;
9349: ELSE
9350: SELECT NVL(decode(l_split_shipped_qty,FND_API.G_MISS_NUM,null,l_split_shipped_qty),
9351: NVL(decode(l_delivery_details_info.picked_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.picked_quantity),
9352: decode(l_delivery_details_info.requested_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.requested_quantity)))
9353: INTO l_new_wv_qty
9354: FROM dual;
9347: -- Staged delivery details W/V should always be reset back to original W/V
9348: l_new_wv_qty := 0;
9349: ELSE
9350: SELECT NVL(decode(l_split_shipped_qty,FND_API.G_MISS_NUM,null,l_split_shipped_qty),
9351: NVL(decode(l_delivery_details_info.picked_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.picked_quantity),
9352: decode(l_delivery_details_info.requested_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.requested_quantity)))
9353: INTO l_new_wv_qty
9354: FROM dual;
9355: END IF;
9348: l_new_wv_qty := 0;
9349: ELSE
9350: SELECT NVL(decode(l_split_shipped_qty,FND_API.G_MISS_NUM,null,l_split_shipped_qty),
9351: NVL(decode(l_delivery_details_info.picked_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.picked_quantity),
9352: decode(l_delivery_details_info.requested_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.requested_quantity)))
9353: INTO l_new_wv_qty
9354: FROM dual;
9355: END IF;
9356:
9373: END IF;
9374: l_delivery_details_info.weight_uom_code := p_old_delivery_detail_rec.weight_uom_code;
9375: l_delivery_details_info.volume_uom_code := p_old_delivery_detail_rec.volume_uom_code;
9376:
9377: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty,FND_API.G_MISS_NUM);
9378: IF l_debug_on THEN
9379: WSH_DEBUG_SV.log(l_module_name,'l_split_shipped_qty2',l_split_shipped_qty2);
9380: END IF;
9381: IF ( NVL(l_split_shipped_qty2, 0) = 0 ) THEN
9378: IF l_debug_on THEN
9379: WSH_DEBUG_SV.log(l_module_name,'l_split_shipped_qty2',l_split_shipped_qty2);
9380: END IF;
9381: IF ( NVL(l_split_shipped_qty2, 0) = 0 ) THEN
9382: l_delivery_details_info.shipped_quantity2 := FND_API.G_MISS_NUM;
9383: ELSE
9384: l_delivery_details_info.shipped_quantity2 := l_split_shipped_qty2;
9385: END IF;
9386: IF ( NVL(l_qty2, 0) = 0 OR l_qty2 < 0 ) THEN
9383: ELSE
9384: l_delivery_details_info.shipped_quantity2 := l_split_shipped_qty2;
9385: END IF;
9386: IF ( NVL(l_qty2, 0) = 0 OR l_qty2 < 0 ) THEN
9387: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
9388: ELSE
9389: -- Bug 2116595
9390: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
9391: END IF;
9386: IF ( NVL(l_qty2, 0) = 0 OR l_qty2 < 0 ) THEN
9387: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
9388: ELSE
9389: -- Bug 2116595
9390: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
9391: END IF;
9392:
9393: l_delivery_details_info.cycle_count_quantity := nvl(l_split_cc_qty,FND_API.G_MISS_NUM);
9394: -- HW OPMCONV - No need to branch
9389: -- Bug 2116595
9390: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
9391: END IF;
9392:
9393: l_delivery_details_info.cycle_count_quantity := nvl(l_split_cc_qty,FND_API.G_MISS_NUM);
9394: -- HW OPMCONV - No need to branch
9395: -- IF ( p_process_flag = FND_API.G_TRUE ) THEN
9396: l_delivery_details_info.cycle_count_quantity2 := nvl(l_split_cc_qty2,FND_API.G_MISS_NUM);
9397: -- END IF;
9391: END IF;
9392:
9393: l_delivery_details_info.cycle_count_quantity := nvl(l_split_cc_qty,FND_API.G_MISS_NUM);
9394: -- HW OPMCONV - No need to branch
9395: -- IF ( p_process_flag = FND_API.G_TRUE ) THEN
9396: l_delivery_details_info.cycle_count_quantity2 := nvl(l_split_cc_qty2,FND_API.G_MISS_NUM);
9397: -- END IF;
9398:
9399: -- Bug 2116595
9392:
9393: l_delivery_details_info.cycle_count_quantity := nvl(l_split_cc_qty,FND_API.G_MISS_NUM);
9394: -- HW OPMCONV - No need to branch
9395: -- IF ( p_process_flag = FND_API.G_TRUE ) THEN
9396: l_delivery_details_info.cycle_count_quantity2 := nvl(l_split_cc_qty2,FND_API.G_MISS_NUM);
9397: -- END IF;
9398:
9399: -- Bug 2116595
9400: l_delivery_details_info.cancelled_quantity := FND_API.G_MISS_NUM;
9396: l_delivery_details_info.cycle_count_quantity2 := nvl(l_split_cc_qty2,FND_API.G_MISS_NUM);
9397: -- END IF;
9398:
9399: -- Bug 2116595
9400: l_delivery_details_info.cancelled_quantity := FND_API.G_MISS_NUM;
9401: l_delivery_details_info.split_from_detail_id := p_old_delivery_detail_rec.delivery_detail_id;
9402:
9403: l_delivery_details_info.container_flag := p_old_delivery_detail_rec.container_flag;
9404: l_delivery_details_info.master_serial_number := FND_API.G_MISS_CHAR;
9400: l_delivery_details_info.cancelled_quantity := FND_API.G_MISS_NUM;
9401: l_delivery_details_info.split_from_detail_id := p_old_delivery_detail_rec.delivery_detail_id;
9402:
9403: l_delivery_details_info.container_flag := p_old_delivery_detail_rec.container_flag;
9404: l_delivery_details_info.master_serial_number := FND_API.G_MISS_CHAR;
9405: l_delivery_details_info.serial_number := FND_API.G_MISS_CHAR;
9406: l_delivery_details_info.to_serial_number := FND_API.G_MISS_CHAR;
9407: l_delivery_details_info.transaction_temp_id := FND_API.G_MISS_NUM;
9408: l_delivery_details_info.last_update_date := SYSDATE;
9401: l_delivery_details_info.split_from_detail_id := p_old_delivery_detail_rec.delivery_detail_id;
9402:
9403: l_delivery_details_info.container_flag := p_old_delivery_detail_rec.container_flag;
9404: l_delivery_details_info.master_serial_number := FND_API.G_MISS_CHAR;
9405: l_delivery_details_info.serial_number := FND_API.G_MISS_CHAR;
9406: l_delivery_details_info.to_serial_number := FND_API.G_MISS_CHAR;
9407: l_delivery_details_info.transaction_temp_id := FND_API.G_MISS_NUM;
9408: l_delivery_details_info.last_update_date := SYSDATE;
9409: l_delivery_details_info.last_updated_by := FND_GLOBAL.USER_ID;
9402:
9403: l_delivery_details_info.container_flag := p_old_delivery_detail_rec.container_flag;
9404: l_delivery_details_info.master_serial_number := FND_API.G_MISS_CHAR;
9405: l_delivery_details_info.serial_number := FND_API.G_MISS_CHAR;
9406: l_delivery_details_info.to_serial_number := FND_API.G_MISS_CHAR;
9407: l_delivery_details_info.transaction_temp_id := FND_API.G_MISS_NUM;
9408: l_delivery_details_info.last_update_date := SYSDATE;
9409: l_delivery_details_info.last_updated_by := FND_GLOBAL.USER_ID;
9410: l_delivery_details_info.last_update_login := FND_GLOBAL.LOGIN_ID;
9403: l_delivery_details_info.container_flag := p_old_delivery_detail_rec.container_flag;
9404: l_delivery_details_info.master_serial_number := FND_API.G_MISS_CHAR;
9405: l_delivery_details_info.serial_number := FND_API.G_MISS_CHAR;
9406: l_delivery_details_info.to_serial_number := FND_API.G_MISS_CHAR;
9407: l_delivery_details_info.transaction_temp_id := FND_API.G_MISS_NUM;
9408: l_delivery_details_info.last_update_date := SYSDATE;
9409: l_delivery_details_info.last_updated_by := FND_GLOBAL.USER_ID;
9410: l_delivery_details_info.last_update_login := FND_GLOBAL.LOGIN_ID;
9411: -- Bug 2419301
9528: IF l_req_qty_update_index <= l_dd_id_tab.count THEN
9529: -- 12345 HW added qty2
9530: update wsh_delivery_details
9531: set requested_quantity = l_requested_quantity - ((l_req_qty_update_index - 1) * l_delivery_details_info.requested_quantity),
9532: requested_quantity2 = decode(l_delivery_details_info.requested_quantity2, fnd_api.g_miss_num, NULL, l_requested_quantity2 - ((l_req_qty2_update_index - 1) * l_delivery_details_info.requested_quantity2))
9533: where delivery_detail_id = l_dd_id_tab(l_req_qty_update_index);
9534: END IF;
9535: END IF;
9536:
9741: shipped_quantity2 = l_original_shipped_qty2 - GREATEST((l_num_of_split -1) * nvl(l_qty2,0),0),
9742: --shipped_quantity2 = l_original_shipped_qty2 - ((greatest(l_num_of_split -1),0) * p_quantity_to_split),
9743: cycle_count_quantity = l_original_cc_qty,
9744: cycle_count_quantity2 = l_original_cc_qty2,
9745: serial_number = decode(l_updated_delivery_detail_rec.serial_number,FND_API.G_MISS_CHAR,NULL,
9746: NULL,serial_number,l_updated_delivery_detail_rec.serial_number),
9747: to_serial_number = decode(l_updated_delivery_detail_rec.to_serial_number,FND_API.G_MISS_CHAR,NULL,
9748: NULL,to_serial_number,l_updated_delivery_detail_rec.to_serial_number),
9749: transaction_temp_id = decode(l_updated_delivery_detail_rec.transaction_temp_id,FND_API.G_MISS_NUM,NULL,
9743: cycle_count_quantity = l_original_cc_qty,
9744: cycle_count_quantity2 = l_original_cc_qty2,
9745: serial_number = decode(l_updated_delivery_detail_rec.serial_number,FND_API.G_MISS_CHAR,NULL,
9746: NULL,serial_number,l_updated_delivery_detail_rec.serial_number),
9747: to_serial_number = decode(l_updated_delivery_detail_rec.to_serial_number,FND_API.G_MISS_CHAR,NULL,
9748: NULL,to_serial_number,l_updated_delivery_detail_rec.to_serial_number),
9749: transaction_temp_id = decode(l_updated_delivery_detail_rec.transaction_temp_id,FND_API.G_MISS_NUM,NULL,
9750: NULL,transaction_temp_id,l_updated_delivery_detail_rec.transaction_temp_id),
9751: -- J: W/V Changes
9745: serial_number = decode(l_updated_delivery_detail_rec.serial_number,FND_API.G_MISS_CHAR,NULL,
9746: NULL,serial_number,l_updated_delivery_detail_rec.serial_number),
9747: to_serial_number = decode(l_updated_delivery_detail_rec.to_serial_number,FND_API.G_MISS_CHAR,NULL,
9748: NULL,to_serial_number,l_updated_delivery_detail_rec.to_serial_number),
9749: transaction_temp_id = decode(l_updated_delivery_detail_rec.transaction_temp_id,FND_API.G_MISS_NUM,NULL,
9750: NULL,transaction_temp_id,l_updated_delivery_detail_rec.transaction_temp_id),
9751: -- J: W/V Changes
9752: gross_weight = gross_weight - l_total_gross_wt,
9753: net_weight = net_weight - l_total_net_wt,
10501: l_delivery_details_info.requested_quantity := LEAST(p_old_delivery_detail_rec.requested_quantity, p_quantity_to_split);
10502: l_delivery_details_info.picked_quantity := p_quantity_to_split;
10503: -- HW OPM for OM changes
10504: l_delivery_details_info.requested_quantity2 := LEAST(p_old_delivery_detail_rec.requested_quantity2, p_quantity_to_split2);
10505: -- l_delivery_details_info.picked_quantity2 := nvl(NVL(l_qty2,l_new_pick_qty2),FND_API.G_MISS_NUM);
10506: -- HW OPMCONV. No need to use l_new_pick_qty2
10507: l_delivery_details_info.picked_quantity2 := nvl(l_qty2,FND_API.G_MISS_NUM);
10508: END IF;
10509:
10503: -- HW OPM for OM changes
10504: l_delivery_details_info.requested_quantity2 := LEAST(p_old_delivery_detail_rec.requested_quantity2, p_quantity_to_split2);
10505: -- l_delivery_details_info.picked_quantity2 := nvl(NVL(l_qty2,l_new_pick_qty2),FND_API.G_MISS_NUM);
10506: -- HW OPMCONV. No need to use l_new_pick_qty2
10507: l_delivery_details_info.picked_quantity2 := nvl(l_qty2,FND_API.G_MISS_NUM);
10508: END IF;
10509:
10510: IF ( NVL(l_qty2, 0) = 0 OR l_qty2 < 0 ) THEN
10511: l_delivery_details_info.requested_quantity2 := FND_API.G_MISS_NUM;
10507: l_delivery_details_info.picked_quantity2 := nvl(l_qty2,FND_API.G_MISS_NUM);
10508: END IF;
10509:
10510: IF ( NVL(l_qty2, 0) = 0 OR l_qty2 < 0 ) THEN
10511: l_delivery_details_info.requested_quantity2 := FND_API.G_MISS_NUM;
10512: ELSE
10513: l_delivery_details_info.requested_quantity2 := l_qty2;
10514: END IF;
10515: --
10558: l_split_picked_qty2 := least(p_old_delivery_detail_rec.picked_quantity2, l_qty2);
10559: l_split_req_qty2 := least(p_old_delivery_detail_rec.requested_quantity2,l_qty2);
10560: --
10561: --
10562: l_delivery_details_info.requested_quantity := nvl(l_split_req_qty, FND_API.G_MISS_NUM);
10563: l_delivery_details_info.requested_quantity2 := nvl(l_split_req_qty2,FND_API.G_MISS_NUM);
10564: l_delivery_details_info.picked_quantity := nvl(l_split_picked_qty, FND_API.G_MISS_NUM);
10565: l_delivery_details_info.picked_quantity2 := nvl(l_split_picked_qty2,FND_API.G_MISS_NUM);
10566: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty, FND_API.G_MISS_NUM);
10559: l_split_req_qty2 := least(p_old_delivery_detail_rec.requested_quantity2,l_qty2);
10560: --
10561: --
10562: l_delivery_details_info.requested_quantity := nvl(l_split_req_qty, FND_API.G_MISS_NUM);
10563: l_delivery_details_info.requested_quantity2 := nvl(l_split_req_qty2,FND_API.G_MISS_NUM);
10564: l_delivery_details_info.picked_quantity := nvl(l_split_picked_qty, FND_API.G_MISS_NUM);
10565: l_delivery_details_info.picked_quantity2 := nvl(l_split_picked_qty2,FND_API.G_MISS_NUM);
10566: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty, FND_API.G_MISS_NUM);
10567: l_delivery_details_info.shipped_quantity2 := nvl(l_split_shipped_qty2,FND_API.G_MISS_NUM);
10560: --
10561: --
10562: l_delivery_details_info.requested_quantity := nvl(l_split_req_qty, FND_API.G_MISS_NUM);
10563: l_delivery_details_info.requested_quantity2 := nvl(l_split_req_qty2,FND_API.G_MISS_NUM);
10564: l_delivery_details_info.picked_quantity := nvl(l_split_picked_qty, FND_API.G_MISS_NUM);
10565: l_delivery_details_info.picked_quantity2 := nvl(l_split_picked_qty2,FND_API.G_MISS_NUM);
10566: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty, FND_API.G_MISS_NUM);
10567: l_delivery_details_info.shipped_quantity2 := nvl(l_split_shipped_qty2,FND_API.G_MISS_NUM);
10568: l_delivery_details_info.received_quantity := nvl(l_split_recvd_qty, FND_API.G_MISS_NUM);
10561: --
10562: l_delivery_details_info.requested_quantity := nvl(l_split_req_qty, FND_API.G_MISS_NUM);
10563: l_delivery_details_info.requested_quantity2 := nvl(l_split_req_qty2,FND_API.G_MISS_NUM);
10564: l_delivery_details_info.picked_quantity := nvl(l_split_picked_qty, FND_API.G_MISS_NUM);
10565: l_delivery_details_info.picked_quantity2 := nvl(l_split_picked_qty2,FND_API.G_MISS_NUM);
10566: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty, FND_API.G_MISS_NUM);
10567: l_delivery_details_info.shipped_quantity2 := nvl(l_split_shipped_qty2,FND_API.G_MISS_NUM);
10568: l_delivery_details_info.received_quantity := nvl(l_split_recvd_qty, FND_API.G_MISS_NUM);
10569: l_delivery_details_info.received_quantity2 := nvl(l_split_recvd_qty2,FND_API.G_MISS_NUM);
10562: l_delivery_details_info.requested_quantity := nvl(l_split_req_qty, FND_API.G_MISS_NUM);
10563: l_delivery_details_info.requested_quantity2 := nvl(l_split_req_qty2,FND_API.G_MISS_NUM);
10564: l_delivery_details_info.picked_quantity := nvl(l_split_picked_qty, FND_API.G_MISS_NUM);
10565: l_delivery_details_info.picked_quantity2 := nvl(l_split_picked_qty2,FND_API.G_MISS_NUM);
10566: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty, FND_API.G_MISS_NUM);
10567: l_delivery_details_info.shipped_quantity2 := nvl(l_split_shipped_qty2,FND_API.G_MISS_NUM);
10568: l_delivery_details_info.received_quantity := nvl(l_split_recvd_qty, FND_API.G_MISS_NUM);
10569: l_delivery_details_info.received_quantity2 := nvl(l_split_recvd_qty2,FND_API.G_MISS_NUM);
10570: l_delivery_details_info.returned_quantity := nvl(l_split_rtv_qty, FND_API.G_MISS_NUM);
10563: l_delivery_details_info.requested_quantity2 := nvl(l_split_req_qty2,FND_API.G_MISS_NUM);
10564: l_delivery_details_info.picked_quantity := nvl(l_split_picked_qty, FND_API.G_MISS_NUM);
10565: l_delivery_details_info.picked_quantity2 := nvl(l_split_picked_qty2,FND_API.G_MISS_NUM);
10566: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty, FND_API.G_MISS_NUM);
10567: l_delivery_details_info.shipped_quantity2 := nvl(l_split_shipped_qty2,FND_API.G_MISS_NUM);
10568: l_delivery_details_info.received_quantity := nvl(l_split_recvd_qty, FND_API.G_MISS_NUM);
10569: l_delivery_details_info.received_quantity2 := nvl(l_split_recvd_qty2,FND_API.G_MISS_NUM);
10570: l_delivery_details_info.returned_quantity := nvl(l_split_rtv_qty, FND_API.G_MISS_NUM);
10571: l_delivery_details_info.returned_quantity2 := nvl(l_split_rtv_qty2,FND_API.G_MISS_NUM);
10564: l_delivery_details_info.picked_quantity := nvl(l_split_picked_qty, FND_API.G_MISS_NUM);
10565: l_delivery_details_info.picked_quantity2 := nvl(l_split_picked_qty2,FND_API.G_MISS_NUM);
10566: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty, FND_API.G_MISS_NUM);
10567: l_delivery_details_info.shipped_quantity2 := nvl(l_split_shipped_qty2,FND_API.G_MISS_NUM);
10568: l_delivery_details_info.received_quantity := nvl(l_split_recvd_qty, FND_API.G_MISS_NUM);
10569: l_delivery_details_info.received_quantity2 := nvl(l_split_recvd_qty2,FND_API.G_MISS_NUM);
10570: l_delivery_details_info.returned_quantity := nvl(l_split_rtv_qty, FND_API.G_MISS_NUM);
10571: l_delivery_details_info.returned_quantity2 := nvl(l_split_rtv_qty2,FND_API.G_MISS_NUM);
10572: --
10565: l_delivery_details_info.picked_quantity2 := nvl(l_split_picked_qty2,FND_API.G_MISS_NUM);
10566: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty, FND_API.G_MISS_NUM);
10567: l_delivery_details_info.shipped_quantity2 := nvl(l_split_shipped_qty2,FND_API.G_MISS_NUM);
10568: l_delivery_details_info.received_quantity := nvl(l_split_recvd_qty, FND_API.G_MISS_NUM);
10569: l_delivery_details_info.received_quantity2 := nvl(l_split_recvd_qty2,FND_API.G_MISS_NUM);
10570: l_delivery_details_info.returned_quantity := nvl(l_split_rtv_qty, FND_API.G_MISS_NUM);
10571: l_delivery_details_info.returned_quantity2 := nvl(l_split_rtv_qty2,FND_API.G_MISS_NUM);
10572: --
10573: --
10566: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty, FND_API.G_MISS_NUM);
10567: l_delivery_details_info.shipped_quantity2 := nvl(l_split_shipped_qty2,FND_API.G_MISS_NUM);
10568: l_delivery_details_info.received_quantity := nvl(l_split_recvd_qty, FND_API.G_MISS_NUM);
10569: l_delivery_details_info.received_quantity2 := nvl(l_split_recvd_qty2,FND_API.G_MISS_NUM);
10570: l_delivery_details_info.returned_quantity := nvl(l_split_rtv_qty, FND_API.G_MISS_NUM);
10571: l_delivery_details_info.returned_quantity2 := nvl(l_split_rtv_qty2,FND_API.G_MISS_NUM);
10572: --
10573: --
10574: l_original_shipped_qty := GREATEST(
10567: l_delivery_details_info.shipped_quantity2 := nvl(l_split_shipped_qty2,FND_API.G_MISS_NUM);
10568: l_delivery_details_info.received_quantity := nvl(l_split_recvd_qty, FND_API.G_MISS_NUM);
10569: l_delivery_details_info.received_quantity2 := nvl(l_split_recvd_qty2,FND_API.G_MISS_NUM);
10570: l_delivery_details_info.returned_quantity := nvl(l_split_rtv_qty, FND_API.G_MISS_NUM);
10571: l_delivery_details_info.returned_quantity2 := nvl(l_split_rtv_qty2,FND_API.G_MISS_NUM);
10572: --
10573: --
10574: l_original_shipped_qty := GREATEST(
10575: p_old_delivery_detail_rec.shipped_quantity
10673: -- p_manual_split is 'Y' only when splitting for staged delivery details during ship confirm
10674: -- Staged delivery details W/V should always be reset back to original W/V
10675: l_new_wv_qty := 0;
10676: ELSE
10677: SELECT NVL(decode(l_split_recvd_qty,FND_API.G_MISS_NUM,null,l_split_recvd_qty),
10678: NVL(decode(l_split_shipped_qty,FND_API.G_MISS_NUM,null,l_split_shipped_qty),
10679: NVL(decode(l_delivery_details_info.picked_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.picked_quantity),
10680: decode(l_delivery_details_info.requested_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.requested_quantity))))
10681: INTO l_new_wv_qty
10674: -- Staged delivery details W/V should always be reset back to original W/V
10675: l_new_wv_qty := 0;
10676: ELSE
10677: SELECT NVL(decode(l_split_recvd_qty,FND_API.G_MISS_NUM,null,l_split_recvd_qty),
10678: NVL(decode(l_split_shipped_qty,FND_API.G_MISS_NUM,null,l_split_shipped_qty),
10679: NVL(decode(l_delivery_details_info.picked_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.picked_quantity),
10680: decode(l_delivery_details_info.requested_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.requested_quantity))))
10681: INTO l_new_wv_qty
10682: FROM dual;
10675: l_new_wv_qty := 0;
10676: ELSE
10677: SELECT NVL(decode(l_split_recvd_qty,FND_API.G_MISS_NUM,null,l_split_recvd_qty),
10678: NVL(decode(l_split_shipped_qty,FND_API.G_MISS_NUM,null,l_split_shipped_qty),
10679: NVL(decode(l_delivery_details_info.picked_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.picked_quantity),
10680: decode(l_delivery_details_info.requested_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.requested_quantity))))
10681: INTO l_new_wv_qty
10682: FROM dual;
10683: END IF;
10676: ELSE
10677: SELECT NVL(decode(l_split_recvd_qty,FND_API.G_MISS_NUM,null,l_split_recvd_qty),
10678: NVL(decode(l_split_shipped_qty,FND_API.G_MISS_NUM,null,l_split_shipped_qty),
10679: NVL(decode(l_delivery_details_info.picked_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.picked_quantity),
10680: decode(l_delivery_details_info.requested_quantity,FND_API.G_MISS_NUM,null,l_delivery_details_info.requested_quantity))))
10681: INTO l_new_wv_qty
10682: FROM dual;
10683: END IF;
10684:
10702: END IF;
10703: l_delivery_details_info.weight_uom_code := p_old_delivery_detail_rec.weight_uom_code;
10704: l_delivery_details_info.volume_uom_code := p_old_delivery_detail_rec.volume_uom_code;
10705:
10706: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty,FND_API.G_MISS_NUM);
10707: IF ( NVL(l_split_shipped_qty2, 0) = 0 ) THEN
10708: l_delivery_details_info.shipped_quantity2 := FND_API.G_MISS_NUM;
10709: ELSE
10710: l_delivery_details_info.shipped_quantity2 := l_split_shipped_qty2;
10704: l_delivery_details_info.volume_uom_code := p_old_delivery_detail_rec.volume_uom_code;
10705:
10706: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty,FND_API.G_MISS_NUM);
10707: IF ( NVL(l_split_shipped_qty2, 0) = 0 ) THEN
10708: l_delivery_details_info.shipped_quantity2 := FND_API.G_MISS_NUM;
10709: ELSE
10710: l_delivery_details_info.shipped_quantity2 := l_split_shipped_qty2;
10711: END IF;
10712: --
10710: l_delivery_details_info.shipped_quantity2 := l_split_shipped_qty2;
10711: END IF;
10712: --
10713: --
10714: l_delivery_details_info.received_quantity := nvl(l_split_recvd_qty, FND_API.G_MISS_NUM);
10715: l_delivery_details_info.received_quantity2 := nvl(l_split_recvd_qty2,FND_API.G_MISS_NUM);
10716: --
10717: IF ( NVL(l_qty2, 0) = 0 OR l_qty2 < 0 ) THEN
10718: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
10711: END IF;
10712: --
10713: --
10714: l_delivery_details_info.received_quantity := nvl(l_split_recvd_qty, FND_API.G_MISS_NUM);
10715: l_delivery_details_info.received_quantity2 := nvl(l_split_recvd_qty2,FND_API.G_MISS_NUM);
10716: --
10717: IF ( NVL(l_qty2, 0) = 0 OR l_qty2 < 0 ) THEN
10718: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
10719: ELSE
10714: l_delivery_details_info.received_quantity := nvl(l_split_recvd_qty, FND_API.G_MISS_NUM);
10715: l_delivery_details_info.received_quantity2 := nvl(l_split_recvd_qty2,FND_API.G_MISS_NUM);
10716: --
10717: IF ( NVL(l_qty2, 0) = 0 OR l_qty2 < 0 ) THEN
10718: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
10719: ELSE
10720: -- Bug 2116595
10721: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
10722: END IF;
10717: IF ( NVL(l_qty2, 0) = 0 OR l_qty2 < 0 ) THEN
10718: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
10719: ELSE
10720: -- Bug 2116595
10721: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
10722: END IF;
10723:
10724: l_delivery_details_info.cycle_count_quantity := nvl(l_split_cc_qty,FND_API.G_MISS_NUM);
10725: -- HW OPMCONV. No need to fork code
10720: -- Bug 2116595
10721: l_delivery_details_info.cancelled_quantity2 := FND_API.G_MISS_NUM;
10722: END IF;
10723:
10724: l_delivery_details_info.cycle_count_quantity := nvl(l_split_cc_qty,FND_API.G_MISS_NUM);
10725: -- HW OPMCONV. No need to fork code
10726: -- IF ( p_process_flag = FND_API.G_TRUE ) THEN
10727: l_delivery_details_info.cycle_count_quantity2 := nvl(l_split_cc_qty2,FND_API.G_MISS_NUM);
10728: -- END IF;
10722: END IF;
10723:
10724: l_delivery_details_info.cycle_count_quantity := nvl(l_split_cc_qty,FND_API.G_MISS_NUM);
10725: -- HW OPMCONV. No need to fork code
10726: -- IF ( p_process_flag = FND_API.G_TRUE ) THEN
10727: l_delivery_details_info.cycle_count_quantity2 := nvl(l_split_cc_qty2,FND_API.G_MISS_NUM);
10728: -- END IF;
10729:
10730: -- Bug 2116595
10723:
10724: l_delivery_details_info.cycle_count_quantity := nvl(l_split_cc_qty,FND_API.G_MISS_NUM);
10725: -- HW OPMCONV. No need to fork code
10726: -- IF ( p_process_flag = FND_API.G_TRUE ) THEN
10727: l_delivery_details_info.cycle_count_quantity2 := nvl(l_split_cc_qty2,FND_API.G_MISS_NUM);
10728: -- END IF;
10729:
10730: -- Bug 2116595
10731: l_delivery_details_info.cancelled_quantity := FND_API.G_MISS_NUM;
10727: l_delivery_details_info.cycle_count_quantity2 := nvl(l_split_cc_qty2,FND_API.G_MISS_NUM);
10728: -- END IF;
10729:
10730: -- Bug 2116595
10731: l_delivery_details_info.cancelled_quantity := FND_API.G_MISS_NUM;
10732: l_delivery_details_info.split_from_detail_id := p_old_delivery_detail_rec.delivery_detail_id;
10733:
10734: l_delivery_details_info.container_flag := p_old_delivery_detail_rec.container_flag;
10735: l_delivery_details_info.master_serial_number := FND_API.G_MISS_CHAR;
10731: l_delivery_details_info.cancelled_quantity := FND_API.G_MISS_NUM;
10732: l_delivery_details_info.split_from_detail_id := p_old_delivery_detail_rec.delivery_detail_id;
10733:
10734: l_delivery_details_info.container_flag := p_old_delivery_detail_rec.container_flag;
10735: l_delivery_details_info.master_serial_number := FND_API.G_MISS_CHAR;
10736: l_delivery_details_info.serial_number := FND_API.G_MISS_CHAR;
10737: l_delivery_details_info.to_serial_number := FND_API.G_MISS_CHAR;
10738: l_delivery_details_info.transaction_temp_id := FND_API.G_MISS_NUM;
10739: l_delivery_details_info.last_update_date := SYSDATE;
10732: l_delivery_details_info.split_from_detail_id := p_old_delivery_detail_rec.delivery_detail_id;
10733:
10734: l_delivery_details_info.container_flag := p_old_delivery_detail_rec.container_flag;
10735: l_delivery_details_info.master_serial_number := FND_API.G_MISS_CHAR;
10736: l_delivery_details_info.serial_number := FND_API.G_MISS_CHAR;
10737: l_delivery_details_info.to_serial_number := FND_API.G_MISS_CHAR;
10738: l_delivery_details_info.transaction_temp_id := FND_API.G_MISS_NUM;
10739: l_delivery_details_info.last_update_date := SYSDATE;
10740: l_delivery_details_info.last_updated_by := FND_GLOBAL.USER_ID;
10733:
10734: l_delivery_details_info.container_flag := p_old_delivery_detail_rec.container_flag;
10735: l_delivery_details_info.master_serial_number := FND_API.G_MISS_CHAR;
10736: l_delivery_details_info.serial_number := FND_API.G_MISS_CHAR;
10737: l_delivery_details_info.to_serial_number := FND_API.G_MISS_CHAR;
10738: l_delivery_details_info.transaction_temp_id := FND_API.G_MISS_NUM;
10739: l_delivery_details_info.last_update_date := SYSDATE;
10740: l_delivery_details_info.last_updated_by := FND_GLOBAL.USER_ID;
10741: l_delivery_details_info.last_update_login := FND_GLOBAL.LOGIN_ID;
10734: l_delivery_details_info.container_flag := p_old_delivery_detail_rec.container_flag;
10735: l_delivery_details_info.master_serial_number := FND_API.G_MISS_CHAR;
10736: l_delivery_details_info.serial_number := FND_API.G_MISS_CHAR;
10737: l_delivery_details_info.to_serial_number := FND_API.G_MISS_CHAR;
10738: l_delivery_details_info.transaction_temp_id := FND_API.G_MISS_NUM;
10739: l_delivery_details_info.last_update_date := SYSDATE;
10740: l_delivery_details_info.last_updated_by := FND_GLOBAL.USER_ID;
10741: l_delivery_details_info.last_update_login := FND_GLOBAL.LOGIN_ID;
10742: -- Bug 2419301
10925: --returned_quantity = l_original_rtv_qty, -- J-IB-NPARIKH
10926: --returned_quantity2 = l_original_rtv_qty2, -- J-IB-NPARIKH
10927: cycle_count_quantity = l_original_cc_qty,
10928: cycle_count_quantity2 = l_original_cc_qty2,
10929: serial_number = decode(l_updated_delivery_detail_rec.serial_number,FND_API.G_MISS_CHAR,NULL,
10930: NULL,serial_number,l_updated_delivery_detail_rec.serial_number),
10931: to_serial_number = decode(l_updated_delivery_detail_rec.to_serial_number,FND_API.G_MISS_CHAR,NULL,
10932: NULL,to_serial_number,l_updated_delivery_detail_rec.to_serial_number),
10933: transaction_temp_id = decode(l_updated_delivery_detail_rec.transaction_temp_id, FND_API.G_MISS_NUM,NULL,
10927: cycle_count_quantity = l_original_cc_qty,
10928: cycle_count_quantity2 = l_original_cc_qty2,
10929: serial_number = decode(l_updated_delivery_detail_rec.serial_number,FND_API.G_MISS_CHAR,NULL,
10930: NULL,serial_number,l_updated_delivery_detail_rec.serial_number),
10931: to_serial_number = decode(l_updated_delivery_detail_rec.to_serial_number,FND_API.G_MISS_CHAR,NULL,
10932: NULL,to_serial_number,l_updated_delivery_detail_rec.to_serial_number),
10933: transaction_temp_id = decode(l_updated_delivery_detail_rec.transaction_temp_id, FND_API.G_MISS_NUM,NULL,
10934: NULL,transaction_temp_id,l_updated_delivery_detail_rec.transaction_temp_id),
10935: -- J: W/V Changes
10929: serial_number = decode(l_updated_delivery_detail_rec.serial_number,FND_API.G_MISS_CHAR,NULL,
10930: NULL,serial_number,l_updated_delivery_detail_rec.serial_number),
10931: to_serial_number = decode(l_updated_delivery_detail_rec.to_serial_number,FND_API.G_MISS_CHAR,NULL,
10932: NULL,to_serial_number,l_updated_delivery_detail_rec.to_serial_number),
10933: transaction_temp_id = decode(l_updated_delivery_detail_rec.transaction_temp_id, FND_API.G_MISS_NUM,NULL,
10934: NULL,transaction_temp_id,l_updated_delivery_detail_rec.transaction_temp_id),
10935: -- J: W/V Changes
10936: gross_weight = gross_weight - l_total_gross_wt,
10937: net_weight = net_weight - l_total_net_wt,
11153: x_new_delivery_detail_rec.serial_number := x_old_detail_rec.serial_number;
11154: x_new_delivery_detail_rec.to_serial_number := x_old_detail_rec.to_serial_number;
11155: x_new_delivery_detail_rec.transaction_temp_id := x_old_detail_rec.transaction_temp_id;
11156:
11157: x_old_detail_rec.serial_number := FND_API.G_MISS_CHAR;
11158: x_old_detail_rec.to_serial_number := FND_API.G_MISS_CHAR;
11159: x_old_detail_rec.transaction_temp_id := FND_API.G_MISS_NUM;
11160:
11161: ELSIF p_old_shipped_quantity < x_old_detail_rec.shipped_quantity THEN
11154: x_new_delivery_detail_rec.to_serial_number := x_old_detail_rec.to_serial_number;
11155: x_new_delivery_detail_rec.transaction_temp_id := x_old_detail_rec.transaction_temp_id;
11156:
11157: x_old_detail_rec.serial_number := FND_API.G_MISS_CHAR;
11158: x_old_detail_rec.to_serial_number := FND_API.G_MISS_CHAR;
11159: x_old_detail_rec.transaction_temp_id := FND_API.G_MISS_NUM;
11160:
11161: ELSIF p_old_shipped_quantity < x_old_detail_rec.shipped_quantity THEN
11162: -- we are reducing old shipped quantity
11155: x_new_delivery_detail_rec.transaction_temp_id := x_old_detail_rec.transaction_temp_id;
11156:
11157: x_old_detail_rec.serial_number := FND_API.G_MISS_CHAR;
11158: x_old_detail_rec.to_serial_number := FND_API.G_MISS_CHAR;
11159: x_old_detail_rec.transaction_temp_id := FND_API.G_MISS_NUM;
11160:
11161: ELSIF p_old_shipped_quantity < x_old_detail_rec.shipped_quantity THEN
11162: -- we are reducing old shipped quantity
11163:
11191: '0');
11192:
11193: -- compress range of same serial numbers to individual serial number
11194: IF l_old_to_sn = x_old_detail_rec.serial_number THEN
11195: l_old_to_sn := FND_API.G_MISS_CHAR;
11196: END IF;
11197: IF l_new_to_sn = l_new_sn THEN
11198: l_new_to_sn := FND_API.G_MISS_CHAR;
11199: END IF;
11194: IF l_old_to_sn = x_old_detail_rec.serial_number THEN
11195: l_old_to_sn := FND_API.G_MISS_CHAR;
11196: END IF;
11197: IF l_new_to_sn = l_new_sn THEN
11198: l_new_to_sn := FND_API.G_MISS_CHAR;
11199: END IF;
11200:
11201: x_old_detail_rec.to_serial_number := l_old_to_sn;
11202: x_new_delivery_detail_rec.serial_number := l_new_sn;
11253: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',
11254: l_transaction_temp_id);
11255: END IF;
11256: END IF;
11257: x_new_delivery_detail_rec.transaction_temp_id := nvl(l_transaction_temp_id,FND_API.G_MISS_NUM);
11258:
11259: FOR c IN c_sn_ranges(x_old_detail_rec.transaction_temp_id) LOOP
11260:
11261: -- Bug 3782838 : Retain transaction_temp_id for single serial number
12383: IF l_debug_on THEN
12384: WSH_DEBUG_SV.logmsg(l_module_name, 'After calling DELETE_DELIVERY_DETAILS: ' || l_return_status );
12385: END IF;
12386: --
12387: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12389: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12390: RAISE FND_API.G_EXC_ERROR;
12391: END IF;
12384: WSH_DEBUG_SV.logmsg(l_module_name, 'After calling DELETE_DELIVERY_DETAILS: ' || l_return_status );
12385: END IF;
12386: --
12387: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12389: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12390: RAISE FND_API.G_EXC_ERROR;
12391: END IF;
12392:
12385: END IF;
12386: --
12387: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12389: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12390: RAISE FND_API.G_EXC_ERROR;
12391: END IF;
12392:
12393: END LOOP; -- }
12386: --
12387: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12389: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12390: RAISE FND_API.G_EXC_ERROR;
12391: END IF;
12392:
12393: END LOOP; -- }
12394:
12437: END IF;
12438: -- Only Handle Unexpected error
12439: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12440: --
12441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12442: END IF;
12443: -- End of Code for DBI Project
12444: --
12445:
12475: x_return_status => l_return_status);
12476: IF l_debug_on THEN
12477: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
12478: END IF;
12479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12481: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12482: RAISE FND_API.G_EXC_ERROR;
12483: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12476: IF l_debug_on THEN
12477: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
12478: END IF;
12479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12481: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12482: RAISE FND_API.G_EXC_ERROR;
12483: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12484: x_return_status := l_return_status;
12477: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
12478: END IF;
12479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12481: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12482: RAISE FND_API.G_EXC_ERROR;
12483: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12484: x_return_status := l_return_status;
12485: END IF;
12478: END IF;
12479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12481: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12482: RAISE FND_API.G_EXC_ERROR;
12483: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12484: x_return_status := l_return_status;
12485: END IF;
12486:
12516: END IF;
12517: -- Only Handle Unexpected error
12518: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12519: --
12520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12521: END IF;
12522: -- End of Code for DBI Project
12523: --
12524:
12596: END IF;
12597: --
12598: EXCEPTION
12599:
12600: WHEN FND_API.G_EXC_ERROR THEN
12601: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12602:
12603: --
12604: IF l_debug_on THEN
12601: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12602:
12603: --
12604: IF l_debug_on THEN
12605: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12606: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
12607: END IF;
12608: --
12609: return;
12602:
12603: --
12604: IF l_debug_on THEN
12605: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12606: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
12607: END IF;
12608: --
12609: return;
12610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12606: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
12607: END IF;
12608: --
12609: return;
12610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12611: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12612: --
12613: IF l_debug_on THEN
12614: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12611: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12612: --
12613: IF l_debug_on THEN
12614: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12615: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12616: END IF;
12617: --
12618: return;
12611: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12612: --
12613: IF l_debug_on THEN
12614: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12615: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12616: END IF;
12617: --
12618: return;
12619:
12618: return;
12619:
12620:
12621: WHEN OTHERS THEN
12622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12623: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Source_Lines ' );
12624: --
12625: -- Debug Statements
12626: --
12707: p_validate_flag => 'N',
12708: x_return_status => l_return_status
12709: );
12710: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12711: raise FND_API.G_EXC_ERROR;
12712: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12713: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12714: END IF;
12715: END IF; --}
12709: );
12710: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12711: raise FND_API.G_EXC_ERROR;
12712: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12713: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12714: END IF;
12715: END IF; --}
12716:
12717: IF (p_bo_qty > 0) THEN --{
12733: p_quantity2_to_unreserve => p_bo_qty2s,
12734: x_return_status => l_return_status
12735: );
12736: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12737: raise FND_API.G_EXC_ERROR;
12738: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12739: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12740: END IF;
12741: END IF; --}
12735: );
12736: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12737: raise FND_API.G_EXC_ERROR;
12738: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12739: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12740: END IF;
12741: END IF; --}
12742:
12743: IF (p_overpick_qty > 0) THEN --{
12771: x_return_status => l_return_status
12772: );
12773: END IF;
12774: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12775: raise FND_API.G_EXC_ERROR;
12776: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12777: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12778: END IF;
12779: END IF; --}
12773: END IF;
12774: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12775: raise FND_API.G_EXC_ERROR;
12776: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12777: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12778: END IF;
12779: END IF; --}
12780:
12781: IF (p_delete_flag = 'Y') THEN --{
12791: p_delivery_detail_id => p_delivery_detail_id,
12792: p_cancel_flag => 'N',
12793: x_return_status => l_return_status);
12794: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12795: raise FND_API.G_EXC_ERROR;
12796: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12797: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12798: END IF;
12799: END IF; --}
12793: x_return_status => l_return_status);
12794: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12795: raise FND_API.G_EXC_ERROR;
12796: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12797: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12798: END IF;
12799: END IF; --}
12800:
12801: IF l_debug_on THEN
12900: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',p_bo_mode);
12901: END IF;
12902: --
12903:
12904: l_return_status := FND_API.G_RET_STS_SUCCESS;
12905: x_return_status := FND_API.G_RET_STS_SUCCESS;
12906:
12907: -- Store the passed parameter values into local pl/sql tables
12908: FOR i IN p_delivery_details_tab.FIRST .. p_delivery_details_tab.LAST LOOP --{
12901: END IF;
12902: --
12903:
12904: l_return_status := FND_API.G_RET_STS_SUCCESS;
12905: x_return_status := FND_API.G_RET_STS_SUCCESS;
12906:
12907: -- Store the passed parameter values into local pl/sql tables
12908: FOR i IN p_delivery_details_tab.FIRST .. p_delivery_details_tab.LAST LOOP --{
12909: l_detail_ids(i) := p_delivery_details_tab(i).delivery_detail_id;
13047: p_bo_qty2s => l_bo_qty2s(l_cmp_idx),
13048: x_return_status => l_return_status
13049: );
13050: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13051: raise FND_API.G_EXC_ERROR;
13052: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13053: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13054: END IF;
13055:
13049: );
13050: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13051: raise FND_API.G_EXC_ERROR;
13052: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13053: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13054: END IF;
13055:
13056: -- If a delivery detail is partially backordered , unreserve the backordered
13057: -- quantity and later update its requested quantity. This delivery detail should not be
13072: p_bo_qty2s => l_bo_qty2s(l_cmp_idx),
13073: x_return_status => l_return_status
13074: );
13075: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13076: raise FND_API.G_EXC_ERROR;
13077: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13078: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13079: END IF;
13080:
13074: );
13075: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13076: raise FND_API.G_EXC_ERROR;
13077: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13078: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13079: END IF;
13080:
13081: -- HW OPM BUG#:3121616 added qty2s
13082: update wsh_delivery_details
13119: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
13120: END IF;
13121: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13122: -- just pass this return status to caller API
13123: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13124: END IF;
13125: -- End of Code for DBI Project
13126: --
13127:
13184: END IF;
13185: --
13186:
13187: EXCEPTION
13188: WHEN FND_API.G_EXC_ERROR THEN
13189: x_return_status := FND_API.G_RET_STS_ERROR;
13190: --
13191: IF l_debug_on THEN
13192: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occired.',wsh_debug_sv.c_excep_level);
13185: --
13186:
13187: EXCEPTION
13188: WHEN FND_API.G_EXC_ERROR THEN
13189: x_return_status := FND_API.G_RET_STS_ERROR;
13190: --
13191: IF l_debug_on THEN
13192: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occired.',wsh_debug_sv.c_excep_level);
13193: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
13188: WHEN FND_API.G_EXC_ERROR THEN
13189: x_return_status := FND_API.G_RET_STS_ERROR;
13190: --
13191: IF l_debug_on THEN
13192: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occired.',wsh_debug_sv.c_excep_level);
13193: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
13194: END IF;
13195: --
13196:
13189: x_return_status := FND_API.G_RET_STS_ERROR;
13190: --
13191: IF l_debug_on THEN
13192: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occired.',wsh_debug_sv.c_excep_level);
13193: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
13194: END IF;
13195: --
13196:
13197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13193: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
13194: END IF;
13195: --
13196:
13197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13199: --
13200: IF l_debug_on THEN
13201: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
13194: END IF;
13195: --
13196:
13197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13199: --
13200: IF l_debug_on THEN
13201: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
13202: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13199: --
13200: IF l_debug_on THEN
13201: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
13202: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13203: END IF;
13204: --
13205:
13198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13199: --
13200: IF l_debug_on THEN
13201: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
13202: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13203: END IF;
13204: --
13205:
13206: WHEN OTHERS THEN
13203: END IF;
13204: --
13205:
13206: WHEN OTHERS THEN
13207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13208: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details',l_module_name);
13209: --
13210: -- Debug Statements
13211: --
13236: IF l_debug_on THEN
13237: WSH_DEBUG_SV.push(l_module_name);
13238: END IF;
13239:
13240: x_return_status := FND_API.G_RET_STS_SUCCESS;
13241:
13242: FORALL i in p_detail_id_tab.first..p_detail_id_tab.LAST
13243: update wsh_delivery_assignments
13244: set type = 'S'
13257: WSH_DEBUG_SV.pop(l_module_name);
13258: END IF;
13259: EXCEPTION
13260: WHEN OTHERS THEN
13261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13262: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Top_Detail_from_Delivery',l_module_name);
13263: --
13264: -- Debug Statements
13265: --
13306: WSH_DEBUG_SV.push(l_module_name);
13307: WSH_DEBUG_SV.log(l_module_name, 'p_detail_id_tab.count',p_detail_id_tab.count );
13308: END IF;
13309:
13310: x_return_status := FND_API.G_RET_STS_SUCCESS;
13311:
13312: i := p_detail_id_tab.FIRST;
13313:
13314: WHILE i is NOT NULL LOOP
13389:
13390: EXCEPTION
13391:
13392: WHEN OTHERS THEN
13393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13394: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record',l_module_name);
13395: --
13396: -- Debug Statements
13397: --