DECLARE
  Cursor c_p IS
  SELECT printed_date from document where
  Doc_type_no = 8
  AND assess_no = :assess_no
  AND doc_State_no = 2
  and tax_payeR_no = :assess.tax_payeR_no;
 
BEGIN

  OPEN c_p;
  FETCH c_p INTO :date_printed;
  CLOSE C_p;
END;

    next_record;
  END LOOP;
  go_record(1);
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    NULL;
  WHEN OTHERS THEN
    CGTE$OTHER_EXCEPTIONS;
END;

  OPEN c_p;
  FETCH c_p INTO :date_printed;
  CLOSE C_p;

  IF :date_printed IS NOT NULL THEN
    OPEN c_p;
    FETCH c_p INTO :date_printed;
    CLOSE C_p;
  END IF;

CREATE OR REPLACE FUNCTION fun_print_date (par_report_id IN NUMBER)
RETURN DATE
IS
  l_printed_date DATE;
BEGIN
  SELECT printed_date
    INTO l_printed_date
    FROM document
    WHERE report_identifier = par_report_id;
    
  RETURN (l_printed_date);
  
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    RETURN (sysdate);
END;