Key := @UserAccess( @DbName );

CanDelete:= @If(@Subset( @Subset( Key ; 3 ) ; -1) = "1" ; "WithDelete" ; "" );

CurrentAccessLevel := @If(
						@Subset( Key ; 1 ) = "1" ; "Depositor" ;
						@Subset( Key ; 1 ) = "2" ; "Reader" ;
						@Subset( Key ; 1 ) = "3" ; "Author" ;
						@Subset( Key ; 1 ) = "4" ; "Editor" ;
						@Subset( Key ; 1 ) = "5" ; "Designer" ;
						@Subset( Key ; 1 ) = "6" ; "Manager" ;
						"Unknown"
                                          );

CurrentAccessLevel + CanDelete