ISEncounterFilter.DiagnosisID

Description

This filter property is used to load the collection of the encounters by the specified diagnosis ID.

Syntax

object.DiagnosisID

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the encounters loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aFilter  
Dim aEncounters, aEncounter
Dim i, j
Dim aContact
Dim aMessage

set aPatient = Profile.SelectPatient 
set aFilter = Profile.CreateEncounterFilter 
aFilter.PatientId = aPatient.ID 
aFilter.DiagnosisCode = "ASTHMA" 
set aEncounters = aPatient.LoadEncounters(aFilter)

aMessage = "The number of Encounters with the Diagnosis ID = " &_
  aFilter.DiagnosisId & " is " & aEncounters.Count & vbNewLine

for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & "The encounter on " & aEncounter.date & ":"
  if aEncounter.Contacts.Count <> 0 then
    for j = 0 to aEncounter.Contacts.Count -1
      set aContact = aEncounter.Contacts.Item(j)
      aMessage = aMessage & vbNewLine & "    -Contact Subject: " & aContact.Subject & vbNewLine
    next
  end if  
next 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Diagnosis ID cannot be found, but Diagnosis can be found in Clinical > Medical Record > Encounters > Open encounter > Encounter Properties > Diagnosis field.

Version information

Added in v7.8.0