ISProfile.LoadEncounters

Description

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

Syntax

object.LoadEncounters( [oFilter])

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

Return Value

ISEncounters

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

Example

Display the number of the encounters loaded on the basis of the selected filter and their types.

Dim aPatient
Dim oFilter
Dim aEncounters
Dim aEncounter
Dim aMessage

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

aMessage = "Encounters Count = " & aEncounters.Count
for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
  aMessage = aMessage & vbNewLine & "The type of the encounter is " &_
    aEncounter.TypeDescription
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