Checking to see if Valentina database is open RunRev

[william humphrey]

Someone gave me this excellent check routine to see if a database is open in
RunRev:

*
*

*function* CheckDatabase

   *put* Valentina_CacheSize() into var

   *if* var<1 *then*

     *put* false into tOpen

   *else*

      *put* true into tOpen

   *end* *if*

   *return* tOpen

*end* CheckDatabase


But how do I check to see if Valentina Studio has the database open? When
running the database client side if Valentina Studio has it open and then
you try to open it with RunRev you get instant crash so I need a routine to
check in RunRev first to see if another program has my valentina studio open
before I open it with RunRev. The above routine does not work for that.