ISQuestion.GetUploadedFileName

Description

This function returns the name of the file uploaded to the question.

Syntax

object.GetUploadedFileName(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

string

Returns the name of the file uploaded to the question.

Example

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

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

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 &_
    "Uploaded Files Count = " & aQuestion.GetUploadedFileCount & vbNewLine
  if aQuestion.GetUploadedFileCount <> 0 then 
    for j = 0 to aQuestion.GetUploadedFileCount -1
      aUploadedFileName = aQuestion.GetUploadedFileName(j)
      aMessage = aMessage & "Uploaded File Name: " & aUploadedFileName & vbNewLine 
    next
  end if  
next
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0