How to get the field name from either the exit event or elsewhere for generic auditing

I have a number of similar fields that need to have auditing.
I would like to use  generic code in each, so that maintenence will be low.
How do I obtain the name and value of a field in the Exit Event, or alternatively, how would I do auditing generically.

Thanks !


Sub Exiting(Source As Field)
      Dim s As New notessession
      Dim uiw As New notesuiworkspace
      Dim uidoc As notesuidocument
      Set uidoc=uiw.currentdocument
      
      Dim TStr As String, FldName As String
      
'Check uidoc is in edit mode
      
      uidoc.editmode=True
      
'Ammend Audit Trail
      
      AuditName=uidoc.fieldgettext("AuditName")
      AuditDate=uidoc.fieldgettext("AuditDate")
      AuditDetails=uidoc.fieldgettext("AuditDetails")
      
      AuditName=s.commonusername+Chr(10)+AuditName
      AuditDate="["+Str(Now)+"]"+Chr(10)+AuditDate
      AuditDetails="Fld x chnged to" + Tstr+Chr(10)+AuditDetails
      
      uidoc.fieldsettext "AuditName",AuditName
      uidoc.fieldsettext "AuditDate",AuditDate
      uidoc.fieldsettext "AuditDetails",AuditDetails
      
End SubStart Free Trial