ISQuestion.ID

Description

ID of the question.

Syntax

object.ID

Part	Attribute	Type	Description
`object`	Required	ISQuestion	The `object` always implements the ISQuestion interface

Restriction: This property is readonly.

Return Value

int

Example

Display the number of questions and some information about them, including their IDs.

Dim aPatient 
Dim aQuestions, aQuestion
Dim aMessage
Dim i

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 &_
    "Amend Number: " & aQuestion.AmendNumber & vbNewLine &_
    "Answer: " & aQuestion.Answer & vbNewLine &_
    "Body: " & aQuestion.Body & vbNewLine &_
    "CategoryID: " & aQuestion.CategoryID & vbNewLine &_
    "Date: " & aQuestion.Date & vbNewLine &_
    "ID: " & aQuestion.ID & vbNewLine &_
    "Patient: " & aPatient.SurnameFirstName & vbNewLine &_
    "Status: " & aQuestion.Status & vbNewLine    
next
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Question ID cannot be found, but Questions can be found in Organisation > Work Centre > Work > Patient Items.

Version information

Added in v7.8.0