1:  <PersistentAlias("Iif(ApprovedBy != null AND ApprovedBy > 0, True, False)")> _
   2:  Public Property IsApproved() As Boolean
   3:      Get
   4:          Return Convert.ToBoolean(EvaluateAlias("IsApproved"))
   5:      End Get
   6:      Set(ByVal Approve As Boolean)
   7:          If IsReady() Then
   8:              If Approve Then
   9:                  ApprovedOn = Base.BMSRemote.GetServerDate
  10:                  ApprovedBy = Base.CurrentUser(Session)
  11:              Else
  12:                  ApprovedOn = Nothing
  13:                  ApprovedBy = Nothing
  14:              End If
  15:          End If
  16:      End Set
  17:  End Property