ch between documents--close the current document and open 
     the passed document. */
  @call vcds-&gt;VCD_viewerOD::MSG_MVD_CLOSE_DOCUMENT();
  if ( 0 == @call vcds-&gt;VCD_viewerOD::MSG_MVD_OPEN_DOCUMENT( &vcds-&gt;VCD_documentInfo )) {
    @send vcds-&gt;VCD_viewerOD::MSG_VD_CLOSE(GeodeGetCodeProcessHandle(), VCS_CLOSED );
  }
}

/* VLR_CLOSE  void (optr optrUI) */
void _pascal TVClose( optr optrUI ) {
  /* Close the current document and discard UI */
  @call optrUI::MSG_MVD_CLOSE_DOCUMENT();
  @call o