ISProfile.LoadDiagnoses

Description

This function returns the diagnoses loaded on the basis of the selected filter.

Syntax

object.LoadDiagnoses(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISProblemDiagnosisFilter	The object that defines conditions for filtering

Return Value

ISDiagnosisList

Returns the diagnoses loaded on the basis of the selected filter.

Example

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

Dim aPatient
Dim aFilter
Dim aDiagnoses
Dim aDiagnosis
Dim aMessage

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 & aDiagnosis.HospitalName & vbNewLine & " (" &_
    aDiagnosis.DxCode & ") " & "The description of the diagnosis: " &_
    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