ISPatient.LoadEncounters

Description

This function returns the collection of the patient's encounters on the basis of the selected filter.

Syntax

object.LoadEncounters( [oFilter])

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`oFilter`	In, Optional	ISEncounterFilter	The object that defines conditions for filtering

Return Value

ISEncounters

Returns the collection of the patient's encounters on the basis of the selected filter.

Example

Display the number and the date of the patient's encounters loaded on the basis of the selected filter.

Dim aPatient  
Dim aEncounters
Dim aEncounter
Dim aFilter
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateEncounterFilter
aFilter.ProviderCode = "MM"
set aEncounters = aPatient.LoadEncounters(aFilter) 
aMessage = "Encounters Count = " & aEncounters.Count

for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
  aMessage = aMessage & vbNewLine & aEncounter.Date 
next
  
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0