ISQuestion.GetAnswerFile

Description

This function returns some information about the file attached to the answer.

Syntax

object.GetAnswerFile(aIndex)

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

Return Value

ISStream

Returns some information about the file attached to the answer.

Example

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

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

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.GetAnswerFileCount <> 0 then 
    for j = 0 to aQuestion.GetAnswerFileCount -1
      set aAnswerFile = aQuestion.GetAnswerFile(j) 
      aMessage = aMessage & vbNewLine & "The size of the attached answer file : " &_
        aAnswerFile.Size & vbNewLine
      next
  end if  
next
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0