declare
	v_bool boolean;
begin
	v_bool := MAIN_VALIDATION.CHK_EMP_EMPLOYER_ID;
end;  

PACKAGE BODY main_validation IS
  FUNCTION main_logic (            cur_item  IN VARCHAR2 )             RETURN BOOLEAN IS
/*--------------------------------------------------------------------------------------*/
  BEGIN
      IF cur_item = 'CON_WORK_EMPLOYERS.EMP_EMPLOYER_ID' THEN
          RETURN CHK_EMP_EMPLOYER_ID;
      END IF; 
       RETURN TRUE;
     
  END;


FUNCTION CHK_EMP_EMPLOYER_ID RETURN BOOLEAN IS
 -------------------------------------------------------------------
  v_ret_value              VARCHAR2(500);
  e_application_error      EXCEPTION;  
  v_value                  VARCHAR2(30);
  v_orgbra_branch_code     VARCHAR2(5);
  v_employer_category      VARCHAR2(1);
  v_employer_status        VARCHAR2(2);
  v_stopped_date           DATE;
  
BEGIN
 v_value := '@'||nvl(:TEST_CLIENTD.INSURED_ID,'')||'@';

 IF v_value = '@@' THEN
     CONTR.TMP_ERROR_MESS ('Query', 'Fourth', null, 'Y');
   :TEST_CLIENT.SURNAME               :='';
   :TEST_CLIENT.NAME                  :='';
   :TEST_CLIENT.FATHER_NAME                    :='';
   :TEST_CLIENT.BIRTH_DISTRICT_REGION          :='';
   --return true;
 ELSE
   SELECT SURNAME,    
          NAME,       
          FATHER_NAME,  
          BIRTH_DISTRICT_REGION 
   INTO  :TEST_CLIENT.SURNAME,   
         :TEST_CLIENT.NAME,  
         :TEST_CLIENT.FATHER_NAME,
         :TEST_CLIENT.BIRTH_DISTRICT_REGION 
   FROM   TEST_CLIENT
   WHERE  INSURED_ID = :TEST_CLIENT.INSURED_ID;
  EXEPTION
 WHEN NO_DATA_FOUND THEN
  message('Клиента с таким номером нет');
 return false;
 WHEN OTHERS 
 message('Другая ошибка');
 return false;
  END IF;
  return true;
END;
END;