ISProfile.CreateEncountersPresentManager

Description

This function creates the encounter present manager.

Syntax

object.CreateEncountersPresentManager(aMemoControl)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aMemoControl`	In, Required	ISRichEdit	The richedit control to show the encounters

Return Value

ISEncountersPresentManager

Returns the created encounter present manager.

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