CREATE TABLE DOCS_COMP_DOCUMENTS
(
  DOC_ID            VARCHAR2(10),
  DOC_NAME          VARCHAR2(100),
  DOC_SCANNED_COPY  LONG RAW,
  FILE_NAME	    VARCHAR2(50),
  FILE_EXTENSION    VARCHAR2(3)
)

ALTER TABLE DOCS_COMP_DOCUMENTS ADD (
  PRIMARY KEY (DOC_ID));

CREATE OR REPLACE PROCEDURE Get_File_Name_Extension (p_path IN VARCHAR2,
                                                      p_filename OUT VARCHAR2,
                                                      p_extension OUT VARCHAR2)
IS
 v_path VARCHAR2(200);
 v_last_slash_position NUMBER;
 v_file_name VARCHAR2(30);
 v_extension VARCHAR2(4);
BEGIN
 v_path := p_path;
 v_last_slash_position := INSTR(v_path, '\', -1) + 1;
 v_file_name := SUBSTR(v_path, v_last_slash_position);
 v_extension := SUBSTR(v_path, -3);
 p_filename := upper(v_file_name);
 p_extension := upper(v_extension);
END;

PROCEDURE Charge_photo 
IS

  LC$Img	Varchar2(100);  
  LN$But	Number ;
  pl_id ParamList; 
  pl_name VARCHAR2(20) := 'list_params'; 

BEGIN

	 -- Parameter list for filter --
	 pl_id := Get_Parameter_List(pl_name);
	 If NOT Id_Null(pl_id) THEN 
	 	  Destroy_Parameter_List( pl_id ) ;
	 End if ;
	 pl_id := Create_Parameter_List(pl_name); 
	 Add_Parameter(pl_id,'P_FILTRE',TEXT_PARAMETER,'*.gif,*.jpg');
	 Add_Parameter(pl_id,'P_POSY',TEXT_PARAMETER,'1');  


	 -- Selected image name --
	 :global.get_file_name := '' ;

   call_form( 'get_file_name', NO_HIDE, DO_REPLACE, QUERY_ONLY, pl_id ) ;
   if not form_success Then
   	 message('pb appel get_file_name');
   end if ;

	 If :GLOBAL.get_file_name is not null Then
	   -- reading the picture in the image item --
     LC$Img := :GLOBAL.get_file_name ;
     Go_block( 'IMAGES' );	--	Block name where image item resides
     Read_Image_File(LC$Img, 'ANY', 'IMAGES.IMAGES');	--	Give the blco and image item name

     Go_item( 'IMAGES.ID' );	--	Go to a specific field after loading the image
	 Else
	 	 Raise form_trigger_failure ;
   End if ;

END;