ISDiagnosisList.Item

Description

Each of the diagnoses within the collection.

Syntax

object.Item(aIndex)

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

Restriction: This property is readonly.

Return Value

ISPatientProblem

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