DECLARE 
  tiff_image_dir VARCHAR2(80) := 'D:\Photo\'; 
  photo_filename VARCHAR2(80); 
BEGIN 
   :System.Message_Level := '25'; 
    photo_filename := tiff_image_dir||(:student.stuid)||'.JPG'; 
  READ_IMAGE_FILE(photo_filename, 'JPEG', 'family.IMG');   ---On Form St and image and database field to null.
 /* IF NOT FORM_SUCCESS THEN
  MESSAGE('This Student does not have a photo on file.');
  END IF;*/
  :SYSTEM.MESSAGE_LEVEL := '0';
END;