select
 DOCUMENTS.IDENTITY,
 TEMPLATETYPECODE,
 BRANCHPARENT,
 DOCUMENTS.DOCDATE,
 DOCUMENTS.DOCNUMBER_N,
 DOCUMENTS.DOCNUMBER_C,
 FORMNUMBER, 
 FORMSERIES,
 DOCTYPECODE,
 (if not exists(select * from dba.ACCEPTDOCDISPATCHLIST 
                   where (DOCUMENTCODE = DOCUMENTS.IDENTITY) and
                         (WORKERCODE in (select CHECKCLIENT.WORKERCODE from dba.CHECKCLIENT
                                         where (USERNAME = current user) and (RESTRICTLIST like '%2%')))) then
     '1'
   else 
     if exists(select * from dba.MARKREADACCEPTLIST
               join dba.ACCEPTDOCDISPATCHLIST on (ACCEPTDOCDISPATCHLIST.DOCUMENTCODE = DOCUMENTS.IDENTITY)
               where (MARKREADACCEPTLIST.DOCUMENTCODE = DOCUMENTS.IDENTITY) and (MARKREADACCEPTLIST.USERNAME = current user) and
                     (WORKERCODE in (select CHECKCLIENT.WORKERCODE from dba.CHECKCLIENT
                                     where (CHECKCLIENT.USERNAME = current user) and (CHECKCLIENT.RESTRICTLIST like '%2%')))) then
       '1'
     else
       '2'
     endif endif) as FLAG2,
 SUBSTR(DOCHEADER, 1, 200) as DOCHEADER
from dba.DOCUMENTS

select
 DOCUMENTS.IDENTITY,
 TEMPLATETYPECODE,
 BRANCHPARENT,
 DOCUMENTS.DOCDATE,
 DOCUMENTS.DOCNUMBER_N,
 DOCUMENTS.DOCNUMBER_C,
 FORMNUMBER, 
 FORMSERIES,
 DOCTYPECODE,
 dba.GetFlagForDocument(DOCUMENTS.IDENTITY, DOCUMENTS.DOCSTATE) as FLAG,
 SUBSTR(DOCHEADER, 1, 200) as DOCHEADER
from dba.DOCUMENTS

CREATE FUNCTION "DBA"."GetFlagForDocument"(in nDocumentCode integer, in nDocState integer)
RETURNS char(1)
DETERMINISTIC
BEGIN

 declare cReturn char(1);

 set cReturn = '';

 if nDocState = 2 then

   if not exists(select * from dba.ACCEPTDOCDISPATCHLIST 
                   where (DOCUMENTCODE = nDocumentCode) and
                         (WORKERCODE in (select CHECKCLIENT.WORKERCODE from dba.CHECKCLIENT
                                         where (USERNAME = current user) and (RESTRICTLIST like '%2%')))) then
     set cReturn = '1'
   else 

     if exists(select * from dba.MARKREADACCEPTLIST
               join dba.ACCEPTDOCDISPATCHLIST on (ACCEPTDOCDISPATCHLIST.DOCUMENTCODE = MARKREADACCEPTLIST.DOCUMENTCODE)
               where (MARKREADACCEPTLIST.DOCUMENTCODE = nDocumentCode) and (MARKREADACCEPTLIST.USERNAME = current user) and
                     (WORKERCODE in (select CHECKCLIENT.WORKERCODE from dba.CHECKCLIENT
                                     where (CHECKCLIENT.USERNAME = current user) and (CHECKCLIENT.RESTRICTLIST like '%2%')))) then
       set cReturn = '1'
     else
       set cReturn = '2'
     end if;

   end if;

 end if;

 return cReturn;

END