/* tr-d-clg.p - Delete trigger for call-log */
TRIGGER PROCEDURE FOR DELETE OF call-log.

/* Include commons */
{common.i}

/* Delete related records */
FOR EACH call-event OF call-log EXCLUSIVE-LOCK:
  DELETE call-event.
END.
FOR EACH call-browse OF call-log EXCLUSIVE-LOCK:
  DELETE call-browse.
END.
FOR EACH dev-request-call OF call-log EXCLUSIVE-LOCK:
  DELETE dev-request-call.
END.

RETURN.