function CF_QID_IMAGE return Char is

  l_file_exists BOOLEAN;
  l_file_len    NUMBER;
  l_blocksize   BINARY_INTEGER;
image_link varchar2(50);

begin 

SELECT J.MEANING into image_link
FROM PDADEV.JLS_LOOKUP J
where J.CODE = 'QIM'
and   J.ENABLED = '1';

--image_link := image_link||'R'||to_char(Q_1.QIDNO)||'.gif'
--return (image_link||'Q'||to_char(:QIDNO)||'.gif');
--exception when others then return null;
--end;

--BEGIN

  utl_file.fgetattr(
    location    => image_link,
    filename    => 'Q'||to_char(:QIDNO)||'.GIF',
    fexists     => l_file_exists,
    file_length => l_file_len,
    block_size  => l_blocksize);
  IF l_file_exists THEN
  	dbms_output.put_line('File found.');
    return (image_link||'Q'||to_char(:QIDNO)||'.GIF');
  ELSE
  	dbms_output.put_line('File not found.');
    return (image_link||'Q00000000000.GIF');
  END IF;
END;