[Home] [Help]
2: /* $Header: INVPWSHB.pls 120.15.12010000.2 2008/07/29 13:44:04 ptkumar ship $ */
3:
4: G_Debug BOOLEAN := TRUE;
5:
6: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
7: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
8: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
9: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
10: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
3:
4: G_Debug BOOLEAN := TRUE;
5:
6: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
7: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
8: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
9: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
10: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
11:
4: G_Debug BOOLEAN := TRUE;
5:
6: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
7: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
8: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
9: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
10: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
11:
12: --Inline branching
5:
6: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
7: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
8: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
9: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
10: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
11:
12: --Inline branching
13: g_wms_current_release_level NUMBER := wms_control.g_current_release_level;
6: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
7: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
8: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
9: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
10: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
11:
12: --Inline branching
13: g_wms_current_release_level NUMBER := wms_control.g_current_release_level;
14: g_inv_current_release_level NUMBER := inv_control.g_current_release_level;
52:
53: l_details VARCHAR2(4000);
54:
55: BEGIN
56: x_return_status := FND_API.g_ret_sts_success;
57:
58: IF l_debug = 1 THEN
59: debug('Start of validate_ship_method','VALIDATE_SHIP_METHOD');
60: END IF;
98: l_entity_table(1).p_entity_id := p_delivery_id;
99: l_entity_table(1).p_shipmethod_code := p_shipmethod_code;
100:
101: wsh_fte_comp_constraint_grp.validate_constraint(p_api_version_number => 1.0,
102: p_init_msg_list => FND_API.G_TRUE,
103: p_entity_tab => l_entity_table,
104: x_msg_count => l_msg_count,
105: x_msg_data => l_msg_data,
106: x_return_status => l_return_status);
111: END IF;
112:
113: --treating warnings as errors also
114: IF l_return_status <> WSH_UTIL_CORE.g_ret_sts_success THEN
115: l_return_status := FND_API.g_ret_sts_error;
116: wsh_util_core.get_messages(
117: p_init_msg_list => 'Y',
118: x_summary => l_msg_data,
119: x_details => l_details,
134: WHEN OTHERS THEN
135: IF l_debug=1 THEN
136: debug('Unexpected error!', 'VALIDATE_SHIP_METHOD');
137: END IF;
138: x_return_status := FND_API.g_ret_sts_unexp_error;
139: END VALIDATE_SHIP_METHOD;
140: --
141:
142: FUNCTION GET_SHIPMETHOD_MEANING(p_ship_method_code IN VARCHAR2)
499: IF l_return_status IN (G_RET_STS_ERROR, G_RET_STS_UNEXP_ERROR) THEN
500: debug('wsh_integration.set_inv_pc_attributes failed'
501: || ' with status: ' || l_return_status,'GET_DELIVERY_LINE_SERIAL_INFO');
502: --check where to handle this error
503: RAISE fnd_api.g_exc_unexpected_error;
504: END IF;
505:
506: l_detail_attributes(1).action_flag := 'U';
507: l_detail_attributes(1).delivery_detail_id :=
522: IF l_return_status IN (G_RET_STS_ERROR, G_RET_STS_UNEXP_ERROR) THEN
523: debug('wsh_interface.update_shipping_attributes failed'
524: || ' with status: ' || l_return_status,'GET_DELIVERY_LINE_SERIAL_INFO');
525: --check where to handle this error
526: RAISE fnd_api.g_exc_unexpected_error;
527: END IF;
528: ELSE
529: select count(*)
530: into l_num_serial_record
665: WHERE wda.delivery_detail_id = wdd.delivery_detail_id
666: AND wdd.lpn_id IS NOT NULL;
667:
668: BEGIN
669: x_return_status := FND_API.G_RET_STS_SUCCESS;
670: IF (l_debug = 1) THEN
671: debug('Entering the new return_to_stock ','wshtxn');
672: END IF;
673:
769: x_out_rows => l_out_rows,
770: x_return_status => l_return_status
771: );
772:
773: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
774: IF (l_debug = 1) THEN
775: DEBUG('return error from shipping Backorder', 'INV_RETURN_TO_STOCK');
776: END IF;
777: RAISE fnd_api.g_exc_error;
773: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
774: IF (l_debug = 1) THEN
775: DEBUG('return error from shipping Backorder', 'INV_RETURN_TO_STOCK');
776: END IF;
777: RAISE fnd_api.g_exc_error;
778: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
779: IF (l_debug = 1) THEN
780: DEBUG('return error from shipping Backorder', 'INV_RETURN_TO_STOCK');
781: END IF;
774: IF (l_debug = 1) THEN
775: DEBUG('return error from shipping Backorder', 'INV_RETURN_TO_STOCK');
776: END IF;
777: RAISE fnd_api.g_exc_error;
778: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
779: IF (l_debug = 1) THEN
780: DEBUG('return error from shipping Backorder', 'INV_RETURN_TO_STOCK');
781: END IF;
782: RAISE fnd_api.g_exc_unexpected_error;
778: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
779: IF (l_debug = 1) THEN
780: DEBUG('return error from shipping Backorder', 'INV_RETURN_TO_STOCK');
781: END IF;
782: RAISE fnd_api.g_exc_unexpected_error;
783: ELSIF l_return_status = fnd_api.g_ret_sts_success THEN
784: COMMIT;
785: END IF;
786:
779: IF (l_debug = 1) THEN
780: DEBUG('return error from shipping Backorder', 'INV_RETURN_TO_STOCK');
781: END IF;
782: RAISE fnd_api.g_exc_unexpected_error;
783: ELSIF l_return_status = fnd_api.g_ret_sts_success THEN
784: COMMIT;
785: END IF;
786:
787:
794: END IF;
795:
796: WMS_CONTAINER_PVT.Modify_LPNs(
797: p_api_version => 1.0
798: , p_init_msg_list => fnd_api.g_true
799: , p_commit => fnd_api.g_false
800: , x_return_status => l_return_status
801: , x_msg_count => x_msg_count
802: , x_msg_data => x_msg_data
795:
796: WMS_CONTAINER_PVT.Modify_LPNs(
797: p_api_version => 1.0
798: , p_init_msg_list => fnd_api.g_true
799: , p_commit => fnd_api.g_false
800: , x_return_status => l_return_status
801: , x_msg_count => x_msg_count
802: , x_msg_data => x_msg_data
803: , p_caller => 'WMS_SHIPPING'
802: , x_msg_data => x_msg_data
803: , p_caller => 'WMS_SHIPPING'
804: , p_lpn_table => l_lpn_tbl
805: );
806: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
807: IF (l_debug = 1) THEN
808: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'INV_RETURN_TO_STOCK');
809: END IF;
810: RAISE fnd_api.g_exc_error;
806: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
807: IF (l_debug = 1) THEN
808: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'INV_RETURN_TO_STOCK');
809: END IF;
810: RAISE fnd_api.g_exc_error;
811: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
812: IF (l_debug = 1) THEN
813: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'INV_RETURN_TO_STOCK');
814: END IF;
807: IF (l_debug = 1) THEN
808: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'INV_RETURN_TO_STOCK');
809: END IF;
810: RAISE fnd_api.g_exc_error;
811: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
812: IF (l_debug = 1) THEN
813: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'INV_RETURN_TO_STOCK');
814: END IF;
815: RAISE fnd_api.g_exc_unexpected_error;
811: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
812: IF (l_debug = 1) THEN
813: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'INV_RETURN_TO_STOCK');
814: END IF;
815: RAISE fnd_api.g_exc_unexpected_error;
816: ELSIF l_return_status = fnd_api.g_ret_sts_success THEN
817: null;
818: END IF;
819: EXCEPTION
812: IF (l_debug = 1) THEN
813: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'INV_RETURN_TO_STOCK');
814: END IF;
815: RAISE fnd_api.g_exc_unexpected_error;
816: ELSIF l_return_status = fnd_api.g_ret_sts_success THEN
817: null;
818: END IF;
819: EXCEPTION
820: WHEN FND_API.G_EXC_ERROR THEN
816: ELSIF l_return_status = fnd_api.g_ret_sts_success THEN
817: null;
818: END IF;
819: EXCEPTION
820: WHEN FND_API.G_EXC_ERROR THEN
821: x_return_status := FND_API.G_RET_STS_ERROR;
822: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
823: , p_data => x_msg_data);
824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
817: null;
818: END IF;
819: EXCEPTION
820: WHEN FND_API.G_EXC_ERROR THEN
821: x_return_status := FND_API.G_RET_STS_ERROR;
822: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
823: , p_data => x_msg_data);
824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
820: WHEN FND_API.G_EXC_ERROR THEN
821: x_return_status := FND_API.G_RET_STS_ERROR;
822: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
823: , p_data => x_msg_data);
824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
826: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
827: , p_data => x_msg_data);
828: WHEN OTHERS THEN
821: x_return_status := FND_API.G_RET_STS_ERROR;
822: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
823: , p_data => x_msg_data);
824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
826: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
827: , p_data => x_msg_data);
828: WHEN OTHERS THEN
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
826: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
827: , p_data => x_msg_data);
828: WHEN OTHERS THEN
829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
830: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
831: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INV_RETURN_TO_STOCK');
832: END IF;
833: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
874: IF l_debug = 1 THEN
875: debug('wsh_delivery_details_pub.update_shipping_attributes failed'
876: || ' with status: ' || x_return_status, 'INV_DELAY_SHIPMENT');
877: END IF;
878: RAISE fnd_api.g_exc_unexpected_error;
879: END IF;
880:
881: EXCEPTION
882: WHEN fnd_api.g_exc_unexpected_error THEN
878: RAISE fnd_api.g_exc_unexpected_error;
879: END IF;
880:
881: EXCEPTION
882: WHEN fnd_api.g_exc_unexpected_error THEN
883: wsh_util_core.get_messages
884: (p_init_msg_list => 'Y',
885: x_summary => x_msg_data,
886: x_details => l_details,
896: p_shipped_quantity IN NUMBER,
897: x_return_status OUT NOCOPY VARCHAR2,
898: x_msg_data OUT NOCOPY VARCHAR2,
899: x_msg_count OUT NOCOPY NUMBER,
900: p_commit_flag IN VARCHAR2 DEFAULT FND_API.g_true,
901: p_relieve_rsv IN VARCHAR2 DEFAULT 'Y')
902: IS
903: cursor delivery_line(p_delivery_detail_id NUMBER) is
904: select dd.delivery_detail_id, dd.requested_quantity, dd.picked_quantity
946: l_bo_mode VARCHAR2(10);
947:
948: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
949: BEGIN
950: x_return_status := fnd_api.g_ret_sts_success;
951:
952: --this cursor only returns 1 record because delivery_line_id is an
953: --unique key
954:
1069: END IF;
1070:
1071: WSH_DELIVERY_DETAILS_PUB.split_line
1072: (p_api_version => 1.0,
1073: p_init_msg_list => fnd_api.g_false,
1074: p_commit => p_commit_flag,
1075: x_return_status => l_return_status,
1076: x_msg_count => l_msg_count,
1077: x_msg_data => l_msg_data,
1079: x_new_detail_id => l_bo_delivery_detail_id,
1080: x_split_quantity => l_backorder_quantities_table(1),
1081: x_split_quantity2 => l_dummy_num_var);
1082:
1083: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1084: IF l_debug = 1 THEN
1085: debug('WSH_DELIVERY_DETAILS_PUB.split_line failed',
1086: 'INV_LINE_RETURN_TO_STOCK');
1087: END IF;
1085: debug('WSH_DELIVERY_DETAILS_PUB.split_line failed',
1086: 'INV_LINE_RETURN_TO_STOCK');
1087: END IF;
1088:
1089: RAISE fnd_api.g_exc_unexpected_error;
1090: END IF;
1091:
1092: l_detail_attributes(1).delivery_detail_id :=
1093: l_delivery_details_id_table(1);
1094: l_detail_attributes(1).shipped_quantity := p_shipped_quantity;
1095:
1096: wsh_delivery_details_pub.update_shipping_attributes
1097: (p_api_version_number => 1.0,
1098: p_init_msg_list => fnd_api.g_false,
1099: p_commit => p_commit_flag,
1100: x_return_status => l_return_status,
1101: x_msg_count => l_msg_count,
1102: x_msg_data => l_msg_data,
1102: x_msg_data => l_msg_data,
1103: p_changed_attributes => l_detail_attributes,
1104: p_source_code => 'OE');
1105:
1106: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1107: IF l_debug = 1 THEN
1108: debug('wsh_delivery_details_pub.update_shipping_attributesfailed',
1109: 'INV_LINE_RETURN_TO_STOCK');
1110: END IF;
1108: debug('wsh_delivery_details_pub.update_shipping_attributesfailed',
1109: 'INV_LINE_RETURN_TO_STOCK');
1110: END IF;
1111:
1112: RAISE fnd_api.g_exc_unexpected_error;
1113: END IF;
1114:
1115: l_delivery_details_id_table(1) := l_bo_delivery_detail_id;
1116: END IF;
1149: x_out_rows => l_out_rows,
1150: x_return_status => l_return_status);
1151:
1152:
1153: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1154: IF l_debug = 1 THEN
1155: debug('wsh_ship_confirm_actions2.backorder failed',
1156: 'INV_LINE_RETURN_TO_STOCK');
1157: END IF;
1155: debug('wsh_ship_confirm_actions2.backorder failed',
1156: 'INV_LINE_RETURN_TO_STOCK');
1157: END IF;
1158:
1159: RAISE fnd_api.g_exc_unexpected_error;
1160: END IF;
1161:
1162: IF p_commit_flag = fnd_api.g_true THEN
1163: IF l_debug = 1 THEN
1158:
1159: RAISE fnd_api.g_exc_unexpected_error;
1160: END IF;
1161:
1162: IF p_commit_flag = fnd_api.g_true THEN
1163: IF l_debug = 1 THEN
1164: debug('Successful, so commit everything','INV_LINE_RETURN_TO_STOCK');
1165: END IF;
1166: commit;
1165: END IF;
1166: commit;
1167: END IF;
1168: EXCEPTION
1169: WHEN FND_API.G_EXC_ERROR THEN
1170: x_return_status := FND_API.G_RET_STS_ERROR;
1171: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1172: , p_data => x_msg_data);
1173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1166: commit;
1167: END IF;
1168: EXCEPTION
1169: WHEN FND_API.G_EXC_ERROR THEN
1170: x_return_status := FND_API.G_RET_STS_ERROR;
1171: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1172: , p_data => x_msg_data);
1173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1169: WHEN FND_API.G_EXC_ERROR THEN
1170: x_return_status := FND_API.G_RET_STS_ERROR;
1171: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1172: , p_data => x_msg_data);
1173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1175: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1176: , p_data => x_msg_data);
1177: WHEN OTHERS THEN
1170: x_return_status := FND_API.G_RET_STS_ERROR;
1171: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1172: , p_data => x_msg_data);
1173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1175: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1176: , p_data => x_msg_data);
1177: WHEN OTHERS THEN
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1175: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1176: , p_data => x_msg_data);
1177: WHEN OTHERS THEN
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1179: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1180: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INV_LINE_RETURN_TO_STOCK');
1181: END IF;
1182: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1194: p_sec_shipped_quantity IN NUMBER,
1195: x_return_status OUT NOCOPY VARCHAR2,
1196: x_msg_data OUT NOCOPY VARCHAR2,
1197: x_msg_count OUT NOCOPY NUMBER,
1198: p_commit_flag IN VARCHAR2 DEFAULT FND_API.g_true,
1199: p_relieve_rsv IN VARCHAR2 DEFAULT 'Y')
1200: IS
1201:
1202: /* Change the cursor to pick up secondary picked and requested quantities */
1249: l_msg_data VARCHAR2(2000);
1250:
1251: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1252: BEGIN
1253: x_return_status := fnd_api.g_ret_sts_success;
1254:
1255: --this cursor only returns 1 record because delivery_line_id is an
1256: --unique key
1257: OPEN delivery_line(p_delivery_line_id);
1344: END IF;
1345:
1346: WSH_DELIVERY_DETAILS_PUB.split_line
1347: (p_api_version => 1.0,
1348: p_init_msg_list => fnd_api.g_false,
1349: p_commit => p_commit_flag,
1350: x_return_status => l_return_status,
1351: x_msg_count => l_msg_count,
1352: x_msg_data => l_msg_data,
1354: x_new_detail_id => l_bo_delivery_detail_id,
1355: x_split_quantity => l_backorder_quantities_table(1),
1356: x_split_quantity2 => l_sec_bck_qtys_table(1));
1357:
1358: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1359: IF l_debug = 1 THEN
1360: debug('WSH_DELIVERY_DETAILS_PUB.split_line failed',
1361: 'INV_LINE_RETURN_TO_STOCK');
1362: END IF;
1360: debug('WSH_DELIVERY_DETAILS_PUB.split_line failed',
1361: 'INV_LINE_RETURN_TO_STOCK');
1362: END IF;
1363:
1364: RAISE fnd_api.g_exc_unexpected_error;
1365: END IF;
1366:
1367: l_detail_attributes(1).delivery_detail_id :=
1368: l_delivery_details_id_table(1);
1372: l_detail_attributes(1).shipped_quantity2 := p_sec_shipped_quantity;
1373:
1374: wsh_delivery_details_pub.update_shipping_attributes
1375: (p_api_version_number => 1.0,
1376: p_init_msg_list => fnd_api.g_false,
1377: p_commit => p_commit_flag,
1378: x_return_status => l_return_status,
1379: x_msg_count => l_msg_count,
1380: x_msg_data => l_msg_data,
1380: x_msg_data => l_msg_data,
1381: p_changed_attributes => l_detail_attributes,
1382: p_source_code => 'OE');
1383:
1384: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1385: IF l_debug = 1 THEN
1386: debug('wsh_delivery_details_pub.update_shipping_attributesfailed',
1387: 'INV_LINE_RETURN_TO_STOCK');
1388: END IF;
1386: debug('wsh_delivery_details_pub.update_shipping_attributesfailed',
1387: 'INV_LINE_RETURN_TO_STOCK');
1388: END IF;
1389:
1390: RAISE fnd_api.g_exc_unexpected_error;
1391: END IF;
1392:
1393: l_delivery_details_id_table(1) := l_bo_delivery_detail_id;
1394: END IF;
1416: x_out_rows => l_out_rows,
1417: x_return_status => l_return_status);
1418:
1419:
1420: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1421: IF l_debug = 1 THEN
1422: debug('wsh_ship_confirm_actions2.backorder failed',
1423: 'INV_LINE_RETURN_TO_STOCK');
1424: END IF;
1422: debug('wsh_ship_confirm_actions2.backorder failed',
1423: 'INV_LINE_RETURN_TO_STOCK');
1424: END IF;
1425:
1426: RAISE fnd_api.g_exc_unexpected_error;
1427: END IF;
1428:
1429: IF p_commit_flag = fnd_api.g_true THEN
1430: IF l_debug = 1 THEN
1425:
1426: RAISE fnd_api.g_exc_unexpected_error;
1427: END IF;
1428:
1429: IF p_commit_flag = fnd_api.g_true THEN
1430: IF l_debug = 1 THEN
1431: debug('Successful, so commit everything','INV_LINE_RETURN_TO_STOCK');
1432: END IF;
1433: commit;
1432: END IF;
1433: commit;
1434: END IF;
1435: EXCEPTION
1436: WHEN FND_API.G_EXC_ERROR THEN
1437: x_return_status := FND_API.G_RET_STS_ERROR;
1438: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1439: , p_data => x_msg_data);
1440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1433: commit;
1434: END IF;
1435: EXCEPTION
1436: WHEN FND_API.G_EXC_ERROR THEN
1437: x_return_status := FND_API.G_RET_STS_ERROR;
1438: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1439: , p_data => x_msg_data);
1440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1436: WHEN FND_API.G_EXC_ERROR THEN
1437: x_return_status := FND_API.G_RET_STS_ERROR;
1438: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1439: , p_data => x_msg_data);
1440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1443: , p_data => x_msg_data);
1444: WHEN OTHERS THEN
1437: x_return_status := FND_API.G_RET_STS_ERROR;
1438: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1439: , p_data => x_msg_data);
1440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1443: , p_data => x_msg_data);
1444: WHEN OTHERS THEN
1445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1443: , p_data => x_msg_data);
1444: WHEN OTHERS THEN
1445: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1446: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1447: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'INV_LINE_RETURN_TO_STOCK');
1448: END IF;
1449: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1482: IF l_debug = 1 THEN
1483: debug('wsh_delivery_details_pub.update_shipping_attributes failed'
1484: || ' with status: ' || x_return_status, 'INV_REPORT_MISSING_QTY');
1485: END IF;
1486: RAISE fnd_api.g_exc_unexpected_error;
1487: END IF;
1488:
1489: EXCEPTION
1490: WHEN fnd_api.g_exc_unexpected_error THEN
1486: RAISE fnd_api.g_exc_unexpected_error;
1487: END IF;
1488:
1489: EXCEPTION
1490: WHEN fnd_api.g_exc_unexpected_error THEN
1491: wsh_util_core.get_messages
1492: (p_init_msg_list => 'Y',
1493: x_summary => x_msg_data,
1494: x_details => l_details,
1545: IF l_debug = 1 THEN
1546: debug('wsh_delivery_details_pub.update_shipping_attributes failed'
1547: || ' with status: ' || x_return_status, 'INV_REPORT_MISSING_QTY');
1548: END IF;
1549: RAISE fnd_api.g_exc_unexpected_error;
1550: END IF;
1551:
1552: EXCEPTION
1553: WHEN fnd_api.g_exc_unexpected_error THEN
1549: RAISE fnd_api.g_exc_unexpected_error;
1550: END IF;
1551:
1552: EXCEPTION
1553: WHEN fnd_api.g_exc_unexpected_error THEN
1554: wsh_util_core.get_messages
1555: (p_init_msg_list => 'Y',
1556: x_summary => x_msg_data,
1557: x_details => l_details,
1663: IF l_debug = 1 THEN
1664: debug('wsh_delivery_details_pub.update_shipping_attributes failed'
1665: || ' with status: ' || x_return_status, 'SUBMIT_DELIVERY_LINE');
1666: END IF;
1667: RAISE fnd_api.g_exc_unexpected_error;
1668: END IF;
1669: EXCEPTION
1670: WHEN fnd_api.g_exc_unexpected_error THEN
1671: wsh_util_core.get_messages
1666: END IF;
1667: RAISE fnd_api.g_exc_unexpected_error;
1668: END IF;
1669: EXCEPTION
1670: WHEN fnd_api.g_exc_unexpected_error THEN
1671: wsh_util_core.get_messages
1672: (p_init_msg_list => 'Y',
1673: x_summary => x_msg_data,
1674: x_details => l_details,
1797: IF l_debug = 1 THEN
1798: debug('wsh_delivery_details_pub.update_shipping_attributes failed'
1799: || ' with status: ' || x_return_status, 'SUBMIT_DELIVERY_LINE');
1800: END IF;
1801: RAISE fnd_api.g_exc_unexpected_error;
1802: END IF;
1803: EXCEPTION
1804: WHEN fnd_api.g_exc_unexpected_error THEN
1805: wsh_util_core.get_messages
1800: END IF;
1801: RAISE fnd_api.g_exc_unexpected_error;
1802: END IF;
1803: EXCEPTION
1804: WHEN fnd_api.g_exc_unexpected_error THEN
1805: wsh_util_core.get_messages
1806: (p_init_msg_list => 'Y',
1807: x_summary => x_msg_data,
1808: x_details => l_details,
2190: loop
2191: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Detail_from_Delivery(
2192: l_delivery_detail_id.delivery_detail_id,
2193: l_return_status);
2194: exit when l_return_status<>FND_API.G_RET_STS_SUCCESS;
2195: end loop;
2196: x_return_Status := l_return_status;
2197: END UNASSIGN_DELIVERY_LINES;
2198:
2323: x_return_status => x_return_status,
2324: x_msg_count => l_msg_count,
2325: x_msg_data => x_error_msg);
2326:
2327: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
2328: RAISE fnd_api.g_exc_error;
2329: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2330: RAISE fnd_api.g_exc_unexpected_error;
2331: END IF;
2324: x_msg_count => l_msg_count,
2325: x_msg_data => x_error_msg);
2326:
2327: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
2328: RAISE fnd_api.g_exc_error;
2329: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2330: RAISE fnd_api.g_exc_unexpected_error;
2331: END IF;
2332:
2325: x_msg_data => x_error_msg);
2326:
2327: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
2328: RAISE fnd_api.g_exc_error;
2329: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2330: RAISE fnd_api.g_exc_unexpected_error;
2331: END IF;
2332:
2333: IF l_allow_shipping <> 'Y' THEN
2326:
2327: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
2328: RAISE fnd_api.g_exc_error;
2329: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
2330: RAISE fnd_api.g_exc_unexpected_error;
2331: END IF;
2332:
2333: IF l_allow_shipping <> 'Y' THEN
2334: x_error_code := 6; -- Delivery is a part of consol delivery
2341: x_msg_count => l_msg_count,
2342: x_msg_data => x_error_msg,
2343: p_organization_id => l_organization_id);
2344:
2345: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2346: RAISE FND_API.G_EXC_ERROR;
2347: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2349: END IF;
2342: x_msg_data => x_error_msg,
2343: p_organization_id => l_organization_id);
2344:
2345: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2346: RAISE FND_API.G_EXC_ERROR;
2347: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2349: END IF;
2350:
2343: p_organization_id => l_organization_id);
2344:
2345: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2346: RAISE FND_API.G_EXC_ERROR;
2347: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2349: END IF;
2350:
2351: IF (NOT l_wms_org_flag AND g_inv_current_release_level >= g_j_release_level)
2344:
2345: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2346: RAISE FND_API.G_EXC_ERROR;
2347: ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2349: END IF;
2350:
2351: IF (NOT l_wms_org_flag AND g_inv_current_release_level >= g_j_release_level)
2352: OR (l_wms_org_flag AND g_wms_current_release_level >= g_j_release_level) THEN
2357: l_delivery_id_tab(1) := p_delivery_id;
2358:
2359: wsh_interface_ext_grp.Delivery_Action
2360: (p_api_version_number => 1.0,
2361: p_init_msg_list => fnd_api.g_false,
2362: p_commit => fnd_api.g_false,
2363: p_action_prms => l_action_prms,
2364: p_delivery_id_tab => l_delivery_id_tab,
2365: x_delivery_out_rec => l_delivery_out_rec,
2358:
2359: wsh_interface_ext_grp.Delivery_Action
2360: (p_api_version_number => 1.0,
2361: p_init_msg_list => fnd_api.g_false,
2362: p_commit => fnd_api.g_false,
2363: p_action_prms => l_action_prms,
2364: p_delivery_id_tab => l_delivery_id_tab,
2365: x_delivery_out_rec => l_delivery_out_rec,
2366: x_return_status => l_return_status,
2402: incomplete_delivery EXCEPTION;
2403:
2404: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2405: BEGIN
2406: x_return_status := FND_API.G_RET_STS_SUCCESS;
2407: x_ret_code := 0;
2408: fnd_msg_pub.initialize;
2409:
2410: IF l_debug=1 THEN
2422: FND_MESSAGE.SET_TOKEN('SHIP_SET_NAME', l_ship_set);
2423: FND_MSG_PUB.ADD;
2424: RAISE unspec_ship_set_exists;
2425: ELSIF x_return_status = 'U' THEN
2426: RAISE fnd_api.g_exc_unexpected_error;
2427: END IF;
2428:
2429: INV_SHIPPING_TRANSACTION_PUB.CHECK_COMPLETE_DELVIERY(
2430: p_delivery_id => p_delivery_id,
2440: ELSIF x_return_status = 'U' THEN
2441: IF l_debug = 1 THEN
2442: debug('check_complete_deliery failed with status U','CONFIRM_DELIVERY');
2443: END IF;
2444: RAISE fnd_api.g_exc_unexpected_error;
2445: END IF;
2446:
2447: WMS_SHIPPING_TRANSACTION_PUB.SHIP_CONFIRM_ALL(
2448: p_delivery_id => p_delivery_id,
2476: x_msg_count => x_msg_count);
2477: END IF;
2478:
2479: IF x_return_status not in ('S','W') THEN
2480: RAISE fnd_api.g_exc_unexpected_error;
2481: END IF;
2482:
2483: EXCEPTION
2484: WHEN unspec_ship_set_exists THEN
2481: END IF;
2482:
2483: EXCEPTION
2484: WHEN unspec_ship_set_exists THEN
2485: x_return_status := fnd_api.g_ret_sts_error;
2486: x_ret_code := 1;
2487:
2488: -- Get message count and data
2489: fnd_msg_pub.count_and_get
2491: , p_data => x_msg_data
2492: );
2493:
2494: WHEN incomplete_delivery THEN
2495: x_return_status := fnd_api.g_ret_sts_error;
2496: x_ret_code := 2;
2497:
2498: -- Get message count and data
2499: fnd_msg_pub.count_and_get
2501: , p_data => x_msg_data
2502: );
2503:
2504: WHEN OTHERS THEN
2505: x_return_status := fnd_api.g_ret_sts_unexp_error;
2506:
2507: END CONFIRM_DELIVERY;
2508:
2509:
2530: INV_SHIPPING_TRANSACTION_PUB.UNASSIGN_DELIVERY_LINES(
2531: p_delivery_id => p_delivery_id,
2532: x_return_Status => x_return_status,
2533: x_error_msg => l_error_msg);
2534: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2535: RAISE unassign_lines_exc;
2536: END IF;
2537:
2538: WMS_SHIPPING_TRANSACTION_PUB.SHIP_CONFIRM_ALL(
2554: debug('Return status after SHIP_CONFIRM_ALL :' || x_return_status ,'UNASSIGN_LINES_AND_CONFIRM ');
2555: END IF;
2556:
2557: IF x_return_status not in ('S','W') THEN
2558: RAISE fnd_api.g_exc_unexpected_error;
2559: END IF;
2560:
2561: EXCEPTION
2562: WHEN unassign_lines_exc THEN
2559: END IF;
2560:
2561: EXCEPTION
2562: WHEN unassign_lines_exc THEN
2563: x_return_status := fnd_api.g_ret_sts_error;
2564:
2565: WHEN OTHERS THEN
2566: x_return_status := fnd_api.g_ret_sts_unexp_error;
2567:
2562: WHEN unassign_lines_exc THEN
2563: x_return_status := fnd_api.g_ret_sts_error;
2564:
2565: WHEN OTHERS THEN
2566: x_return_status := fnd_api.g_ret_sts_unexp_error;
2567:
2568: -- Get message count and data
2569: fnd_msg_pub.count_and_get
2570: ( p_count => x_msg_count
2628: p_req_quantity => l_delay_quantity,
2629: x_new_detail_id => l_new_delivery_line_id,
2630: x_return_status => l_return_status
2631: );
2632: if l_return_status <> fnd_api.g_ret_sts_success THEN
2633: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2634: end if;
2635:
2636: select transaction_temp_id
2629: x_new_detail_id => l_new_delivery_line_id,
2630: x_return_status => l_return_status
2631: );
2632: if l_return_status <> fnd_api.g_ret_sts_success THEN
2633: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2634: end if;
2635:
2636: select transaction_temp_id
2637: into l_new_transaction_temp_id
2674: debug('wsh_integration.set_inv_pc_attributes failed'
2675: || ' with status: ' || l_return_status,'INV_SPLIT_DELIVERY_LINE');
2676: END IF;
2677: --check where to handle this error
2678: RAISE fnd_api.g_exc_unexpected_error;
2679: END IF;
2680:
2681: l_detail_attributes(1).shipped_quantity := 0;
2682: l_detail_attributes(1).delivery_detail_id := l_new_delivery_line_id;
2692: debug('wsh_interface.update_shipping_attributes failed'
2693: || ' with status: ' || l_return_status,'INV_SPLIT_DELIVERY_LINE');
2694: END IF;
2695: --check where to handle this error
2696: RAISE fnd_api.g_exc_unexpected_error;
2697: END IF;
2698:
2699: x_return_status := FND_API.G_RET_STS_SUCCESS;
2700: x_new_delivery_detail_id := l_new_delivery_line_id;
2695: --check where to handle this error
2696: RAISE fnd_api.g_exc_unexpected_error;
2697: END IF;
2698:
2699: x_return_status := FND_API.G_RET_STS_SUCCESS;
2700: x_new_delivery_detail_id := l_new_delivery_line_id;
2701: x_new_transaction_temp_id := l_new_transaction_temp_id;
2702: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2703: EXCEPTION
2700: x_new_delivery_detail_id := l_new_delivery_line_id;
2701: x_new_transaction_temp_id := l_new_transaction_temp_id;
2702: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2703: EXCEPTION
2704: WHEN FND_API.G_EXC_ERROR THEN
2705: x_return_status := FND_API.G_RET_STS_ERROR;
2706: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2707: END INV_SPLIT_DELIVERY_LINE;
2708:
2701: x_new_transaction_temp_id := l_new_transaction_temp_id;
2702: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2703: EXCEPTION
2704: WHEN FND_API.G_EXC_ERROR THEN
2705: x_return_status := FND_API.G_RET_STS_ERROR;
2706: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2707: END INV_SPLIT_DELIVERY_LINE;
2708:
2709: /**
2795: );
2796: END IF;
2797:
2798:
2799: if l_return_status <> fnd_api.g_ret_sts_success THEN
2800: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2801: end if;
2802:
2803: select transaction_temp_id
2796: END IF;
2797:
2798:
2799: if l_return_status <> fnd_api.g_ret_sts_success THEN
2800: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2801: end if;
2802:
2803: select transaction_temp_id
2804: into l_new_transaction_temp_id
2841: debug('wsh_integration.set_inv_pc_attributes failed'
2842: || ' with status: ' || l_return_status,'INV_SPLIT_DELIVERY_LINE');
2843: END IF;
2844: --check where to handle this error
2845: RAISE fnd_api.g_exc_unexpected_error;
2846: END IF;
2847:
2848: l_detail_attributes(1).shipped_quantity := 0;
2849: l_detail_attributes(1).delivery_detail_id := l_new_delivery_line_id;
2859: debug('wsh_interface.update_shipping_attributes failed'
2860: || ' with status: ' || l_return_status,'INV_SPLIT_DELIVERY_LINE');
2861: END IF;
2862: --check where to handle this error
2863: RAISE fnd_api.g_exc_unexpected_error;
2864: END IF;
2865:
2866: x_return_status := FND_API.G_RET_STS_SUCCESS;
2867: x_new_delivery_detail_id := l_new_delivery_line_id;
2862: --check where to handle this error
2863: RAISE fnd_api.g_exc_unexpected_error;
2864: END IF;
2865:
2866: x_return_status := FND_API.G_RET_STS_SUCCESS;
2867: x_new_delivery_detail_id := l_new_delivery_line_id;
2868: x_new_transaction_temp_id := l_new_transaction_temp_id;
2869: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2870: EXCEPTION
2867: x_new_delivery_detail_id := l_new_delivery_line_id;
2868: x_new_transaction_temp_id := l_new_transaction_temp_id;
2869: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2870: EXCEPTION
2871: WHEN FND_API.G_EXC_ERROR THEN
2872: x_return_status := FND_API.G_RET_STS_ERROR;
2873: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2874: END INV_SPLIT_DELIVERY_LINE;
2875:
2868: x_new_transaction_temp_id := l_new_transaction_temp_id;
2869: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2870: EXCEPTION
2871: WHEN FND_API.G_EXC_ERROR THEN
2872: x_return_status := FND_API.G_RET_STS_ERROR;
2873: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2874: END INV_SPLIT_DELIVERY_LINE;
2875:
2876: PROCEDURE INV_PROCESS_SERIALS(
2897: From wsh_delivery_details_ob_grp_v
2898: where transaction_temp_id = l_transaction_temp_id
2899: And delivery_detail_id = l_delivery_detail_id);
2900: end if;
2901: x_return_status := FND_API.G_RET_STS_SUCCESS;
2902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2903:
2904: EXCEPTION
2905: when FND_API.G_EXC_ERROR THEN
2901: x_return_status := FND_API.G_RET_STS_SUCCESS;
2902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2903:
2904: EXCEPTION
2905: when FND_API.G_EXC_ERROR THEN
2906: x_return_status := FND_API.G_RET_STS_ERROR;
2907: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2908: when others then
2909: x_return_status := FND_API.G_RET_STS_ERROR;
2902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2903:
2904: EXCEPTION
2905: when FND_API.G_EXC_ERROR THEN
2906: x_return_status := FND_API.G_RET_STS_ERROR;
2907: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2908: when others then
2909: x_return_status := FND_API.G_RET_STS_ERROR;
2910: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2905: when FND_API.G_EXC_ERROR THEN
2906: x_return_status := FND_API.G_RET_STS_ERROR;
2907: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2908: when others then
2909: x_return_status := FND_API.G_RET_STS_ERROR;
2910: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2911: END INV_PROCESS_SERIALS;
2912:
2913:
2918: x_msg_count OUT nocopy NUMBER) IS
2919: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
2920: l_shipping_params WSH_SHIPPING_PARAMS_GRP.Global_Params_Rec;
2921: BEGIN
2922: x_return_status := FND_API.G_RET_STS_SUCCESS;
2923:
2924: --Changed to call Shipping's API because they
2925: --moved a few columns from wsh_shipping_parameters
2926: --to a new table called wsh_global_parameters in patchset J.
2939: debug('Enforce ship Y/N : ' || x_enforce_ship, 'get_enforce_ship');
2940: END IF;
2941: EXCEPTION
2942: WHEN others THEN
2943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2944: x_enforce_ship := 'N';
2945: END get_enforce_ship;
2946:
2947: /** This procedure gets the enforce_ship_method parameter from shipping
2965: debug('p_enforce_shipmethod : ' || p_enforce_shipmethod, 'get_shipmethod_details');
2966: debug('p_trip_id : ' || p_trip_id, 'get_shipmethod_details');
2967: END IF;
2968:
2969: x_return_status := FND_API.G_RET_STS_SUCCESS;
2970:
2971: IF p_enforce_shipmethod is NULL THEN
2972: SELECT enforce_ship_method
2973: INTO p_enforce_shipmethod