' $Calendar.UID = 0
' Set $e = $Calendar.$Date.$EID
' If ! $e
'  Set $e = $Schedule.Calendar.$Date.$EID
'  $Shared = 1
' EndIf

' If $e.Private and ($ID != $Login.ID)
'  $PrivateDenied = 1
' Elif $Schedule.OW
'  $Contains = $Groups.$GID.Users.Contains $Login.ID
'  If $Shared and ($e.UID != $Login.ID)
'   $SharedDenied = 1
'  Elif ! $Shared and $ID and ($ID != $Login.ID)
'   $Denied = 1
'  Elif ! $Shared and ! $ID and (! $Login or ! $Contains )
'   $Denied = 1
'  EndIf
' EndIf