ISQuestion.GetAnswerFileCount

Example

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

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 &_
    "Answer Files Count = " & aQuestion.GetAnswerFileCount & vbNewLine
  if aQuestion.GetAnswerFileCount <> 0 then 
    for j = 0 to aQuestion.GetAnswerFileCount - 1
      aAnswerFileName = aQuestion.GetAnswerFileName(j) 
      aMessage = aMessage & "Attached answer file name: " & aAnswerFileName & vbNewLine
    next
  end if  
next
Profile.MsgBox(aMessage)