STORE 0 TO MPHONE
store str(phone,12,0) to mphone
STORE LTRIM(MPHONE) TO MPHONE
STORE RTRIM(MPHONE) TO MPHONE
if phone > 9999999
 store '(' + substr(mphone,1,3) + ') ' + substr(mphone,4,3) + '-' + substr(mphone,7,4) to mphone
else
 store substr(mphone,1,3) + ' - ' + substr(mphone,4,4) to mphone
endif
STORE MPHONE + SPACE(30) TO MPHONE
STORE SUBSTR(MPHONE,1,15) TO MPHONE