//get filiname with pathpath
  Set filename=$G(%request.Data("FILENAME",1))
  //w "FILENAME="_filename_"<BR/>"
  
  Set stream=##class(%FileBinaryStream).%New()
  Set stream.Filename=filename
  s filename1=filename
  
  //find filename in fullpath
  s i=1
  while ($P( filename1,"/",i)'="") {
    s purefilename=$P( filename1,"/",i)
    s i=i+1
  }
  //try to get extension
  s i=1
  while ($P( purefilename,".",i)'="") {
    s ext=$P( purefilename,".",i)
  
    s i=i+1
  }
  
  //set content type for our response
  //enabledExtensions="jpg,jpeg,bmp,gif,png,pdf,doc,docx"
  SET ContentType=$CASE(ext,"jpeg":"image/jpeg","jpg":"image/jpeg","png":"image/png","gif":"image/gif","png":"image/png","tif":"image/tiff","tiff":"image/tiff","bmp":"image/bmp","pdf":"application/pdf","doc":"application/msword","docx":"application/msword",:"application/octet-stream")
  s %response.ContentType=ContentType
  do %response.SetHeader("Content-Description","File Transfer")
  do stream.OutputToDevice()