Error in ship nameisused procedure