How many program's will call the procedure msgi_send_one ?
you could set THIS-PROCEDURE
RIAVTE-DATA = 'FALSE' or 'TRUE' in the calling program and check for the
SOURCE-PROCEDURE
RIAVTE-DATA value in called program but i'd always prefer passing parameter values.......