this should work - haven't tested though

Code:
Procedure Entering Returns Integer
  Integer iErr
  Forward Get Msg_Entering to iErr
  if (not(iErr)) Send Prompt	
  Procedure_Return iErr
End_Procedure