shortenRocheCompoundID function

Shorten Roche compounds identifiers