Ada Code For Scaling And Root Planing