DECLARE
	alert_button NUMBER;
	v_main_print_date DATE;
	v_current_record NUMBER;

BEGIN
	v_current_record := :VOUCHER.VOUCHER_REC;
	
-- check for comments
	IF :DELETION_LOG.COMMENTS IS NULL THEN
		MESSAGE('Comments cannot be empty.');
		RAISE FORM_TRIGGER_FAILURE;
	END IF;

-- populate deletion log record
	GO_BLOCK('DELETION_LOG');
	DO_KEY('COMMIT_FORM');

-- delete voucher
  GO_BLOCK('VOUCHER');
  DO_KEY('DELETE_RECORD');
  DO_KEY('COMMIT_FORM');
  
  DECLARE
  	v_record_count NUMBER := 0;
  	v_record_exists BOOLEAN := FALSE;
  BEGIN
    SELECT COUNT(1) INTO v_record_count
    FROM MYAPP.VOUCHER
    WHERE VOUCHER_REC = v_current_record;

    IF v_record_count > 0 THEN
    	v_record_exists := TRUE;
    END IF;

    IF v_record_exists THEN
      -- Handle the case where the record wasn't deleted
      MESSAGE('The record was not deleted.');
      RAISE FORM_TRIGGER_FAILURE;
    ELSE
  	  -- COMMIT AND SHOW MESSAGE
      alert_button := SHOW_ALERT('DELETED_VOUCHER_ALERT');
      IF alert_button = ALERT_BUTTON1 THEN
        -- Close the deletion log canvas
        HIDE_VIEW('DELETION_CAN');
      END IF;
    END IF;
  END;
END;