Ada Code For Upper Partial Repair