How to query if a database has been opened in Simvision with tcl command?

For example, in tcl console, we can run
database open nc_waves
to open a database, but how if I want to achieve the following in tcl console,
1) check if there's an existing opened database;
2) if yes, close that database;
3) open another database.