declare
  my_ole OLEOBJ;
  dummy number;
begin
forms_ole.activate_server('SCAN');
my_ole := forms_ole.get_interface_pointer('SCAN');
if Imaging_DImgScan.ScannerAvailable(my_ole) <> 0 then
	   --dummy := Imaging_DImgScan.ShowSelectScanner(my_ole);

	dummy := Imaging_DImgScan.StartScan(my_ole);
else
   message('No Scanner Detected, Please Contact The Administrator !!!');
   message('No Scanner Detected, Please Contact The Administrator !!!');
end if;
end;