ISQuestion.GetUploadedFile

Description

This function returns the file uploaded to the question.

Syntax

object.GetUploadedFile(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISQuestion	The `object` always implements the ISQuestion interface
`aIndex`	In, Required	int	The index of the file uploaded to the question

Return Value

ISStream

Returns the file uploaded to the question.

Example

Display the number of questions and some information about them, including the size of the files uploaded to the questions.

Dim aPatient
Dim aQuestions, aQuestion
Dim aMessage
Dim i, j
Dim aUploadedFile

Set aPatient = Profile.SelectPatient
set aQuestions = Profile.ProfileInternal.LoadQuestionsForPatient(aPatient.ID)
aMessage = "Questions Count = " & aQuestions.Count
for i = 0 to aQuestions.Count - 1
  set aQuestion = aQuestions.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Title: " & aQuestion.Title & vbNewLine &_
    "Amend Date: " & aQuestion.AmendDate & vbNewLine &_
    "Answer: " & aQuestion.Answer & vbNewLine &_
    "Body: " & aQuestion.Body & vbNewLine &_
    "Date: " & aQuestion.Date & vbNewLine &_
    "Patient: " & aPatient.SurnameFirstName & vbNewLine &_
    "Status: " & aQuestion.Status & vbNewLine
  if aQuestion.GetUploadedFileCount <> 0 then 
    for j = 0 to aQuestion.GetUploadedFileCount -1
      set aUploadedFile = aQuestion.GetUploadedFile(j) 
      aMessage = aMessage & vbNewLine & "Size of the uploaded file: " &_
        aUploadedFile.Size & vbNewLine
    next
  end if  
next
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Uploaded Files can be found in Organisation > Work Centre > Work > Patient Items > Question Properties > Question > Uploaded Files.

Version information

Added in v7.8.0