ISDiagnosisList.Count

Description

The number of the diagnoses within the collection.

Syntax

object.Count

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the diagnoses loaded on the basis of the selected filter, their codes and descriptions.

Dim aPatient
Dim aFilter
Dim aDiagnoses, aDiagnosis
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateProblemDiagnosisFilter
aFilter.PatientId = aPatient.Id
set aDiagnoses = Profile.LoadDiagnoses(aFilter)

aMessage = "Diagnoses Count = " & aDiagnoses.Count
for i = 0 to aDiagnoses.Count - 1
  set aDiagnosis = aDiagnoses.Item(i)
  aMessage = aMessage & vbNewLine & "Code: " & aDiagnosis.DxCode &_ 
    "; Description: " & aDiagnosis.DxDescription
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Diagnoses can be found in Clinical > Medical Record > Problems.

Version information

Added in v7.8.0