[Home] [Help]
1097: IS
1098: l_api_version NUMBER := 0.9;
1099: L_api_name VARCHAR2(30) := 'Process_LPN_CountRequest';
1100:
1101: l_lpn WMS_CONTAINER_PUB.LPN;
1102: l_expl_tbl WMS_CONTAINER_PUB.WMS_Container_Tbl_Type;
1103: l_item_rec MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE := p_interface_rec;
1104: l_temp_int_id NUMBER;
1105: l_counter NUMBER := 0;
1098: l_api_version NUMBER := 0.9;
1099: L_api_name VARCHAR2(30) := 'Process_LPN_CountRequest';
1100:
1101: l_lpn WMS_CONTAINER_PUB.LPN;
1102: l_expl_tbl WMS_CONTAINER_PUB.WMS_Container_Tbl_Type;
1103: l_item_rec MTL_CCEOI_VAR_PVT.INV_CCEOI_TYPE := p_interface_rec;
1104: l_temp_int_id NUMBER;
1105: l_counter NUMBER := 0;
1106: l_unsched_allowed NUMBER;
1176: -- Validate LPN ID and LPN
1177: IF p_interface_rec.parent_lpn_id IS NOT NULL OR p_interface_rec.parent_lpn IS NOT NULL THEN
1178: l_lpn.lpn_id := p_interface_rec.parent_lpn_id;
1179: l_lpn.license_plate_number := p_interface_rec.parent_lpn;
1180: l_result := WMS_CONTAINER_PUB.Validate_LPN(l_lpn);
1181: IF (l_result = INV_Validate.F) THEN
1182: IF (l_debug = 1) THEN
1183: mdebug('invalid parent lpn id or parent lpn');
1184: END IF;
1260: IF (l_debug = 1) THEN
1261: mdebug('record is a container, exploding contents');
1262: END IF;
1263: -- Record is a container, thus needs to be exploded
1264: WMS_CONTAINER_PUB.Explode_LPN(
1265: p_api_version => 1.0,
1266: p_init_msg_list => fnd_api.g_true,
1267: p_commit => fnd_api.g_true,
1268: x_return_status => x_return_status,
1341:
1342: IF (l_debug = 1) THEN
1343: mdebug('validating new parent lpn: ' || TO_CHAR(l_lpn.lpn_id));
1344: END IF;
1345: l_result := WMS_CONTAINER_PUB.Validate_LPN(l_lpn);
1346: IF (l_result = INV_Validate.F) THEN
1347: IF (l_debug = 1) THEN
1348: mdebug('invalid parent lpn id or parent lpn');
1349: END IF;