ISEncountersPresentManager.Encounters

Description

The patient's encounters that are displayed in the rich edit.

Syntax

object.Encounters

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

Return Value

ISEncounters

Example

Display the patient's encounters in the rich edit.

sub main
  Dim aManager
  Dim aFilter
               
  Set aManager = Profile.CreateEncountersPresentManager(Controls_("reClinicalNotes"))
  set aFilter = Profile.CreateEncounterFilter
  aFilter.EncounterDateFrom = #01/01/2000#
  aFilter.EncounterDateTo = Now
  aFilter.CumulativeOnly = False
  aFilter.LastCount = 0
  set aManager.Encounters = Form.Patient.LoadEncounters(aFilter)

  aManager.Display
  
end sub

Note: This macro should be executed in any event handler of the form control.

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

Version information

Added in v7.8.0