ISProblemList.Item

Description

Each of the patient problems within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISProblemList	The `object` always implements the ISProblemList interface
`aIndex`	In, Required	int	The index of the problem

Restriction: This property is readonly.

Return Value

ISPatientProblem

Example

Display the number of the problems within the collection, their codes and descriptions.

Dim aPatient  
Dim aProblemList
Dim aProblem
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aProblemList = aPatient.ProblemList
aMessage = "Problems Count = " & aProblemList.Count

for i = 0 to aProblemList.Count - 1
  set aProblem = aProblemList.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & "Code: " & aProblem.DxCode &_
    " (Description: " & aProblem.DxDescription & ")" 
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Problem List can be found in Clinical > Medical Record > Problems, in Clinical > Clinical Details > Problems or in Patient > Cases > Clinical > Problems.

Version information

Added in v7.8.0