ISProfile.CreateEncounterFilter

Description

This function creates the filter for loading encounters.

Syntax

object.CreateEncounterFilter()

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

Return Value

ISEncounterFilter

Returns the filter for loading encounters.

Example

Display the number of the encounters and the type description.

Dim aPatient
Dim aFilter
Dim aEncounters
Dim aEncounter
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateEncounterFilter
aFilter.PatientID = aPatient.ID
set aEncounters = Profile.LoadEncounters(aFilter)

aMessage = "Encounters Count = " & aEncounters.Count
for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
  aMessage = aMessage & vbNewLine & aEncounter.TypeDescription
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Encounters can be found in CaseClinical > Encounters.

Version information

Added in v7.8.0