ISPatient.ProblemList

Description

All problems, associated with the patient.

Syntax

object.ProblemList

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

Restriction: This property is readonly.

Return Value

ISProblemList

Example

Display the number of problems and list their codes and descriptions.

Dim aPatient  
Dim aProblemList
Dim aProblem
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
  aMessage = aMessage & aProblem.DxCode & ", " & 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