Function setPeriImplantBleeding

Set/clear a tooth's Mombelli modified sulcus Bleeding Index grade on one surface on the active chart. Silent no-op unless the tooth is an implant (toothSelection === "implant") — see setSurfaceGrade for the guard.