ISProblemList.Count

Description

The number of the patient problems within the collection.

Syntax

object.Count

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

Restriction: This property is readonly.

Return Value

int

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