Public Function Add( _
   ByVal pIOccurenceCode As OccurenceCode _
) As OccurenceCodeParams