Pegando quem chamou

Para saber qual programa ou procedure chamou seu programa utilize o comando abaixo


MESSAGE program-name(1) VIEW-AS ALERT-BOX INFO BUTTONS OK.