ISEncountersPresentManager.LoadEncountersPlus

Description

This function loads the patient's encounters displayed in the rich edit.

Syntax

object.LoadEncountersPlus pFilter

Part Attribute Type Description
object Required
ISEncountersPresentManager
The object always implements the ISEncountersPresentManager interface
pFilter In, Required
ISEncounterFilter
The object that defines conditions for filtering

Example

Display the patient's encounters in the rich edit.

sub main
  Dim aManager
  Dim aDate
  Dim aNextDate
  Dim aFilter
               
  Set aManager = Profile.CreateEncountersPresentManager(Controls_("reClinicalNotes"))
  aDate = Form.Controls_("edtDate").AsVariant  
  aNextDate = DateAdd("yyyy", 1, aDate) 
  set aFilter = Profile.CreateEncounterFilter
  aFilter.PatientId = Form.PatientId  
  aFilter.EncounterDateFrom = aDate
  aFilter.EncounterDateTo = aNextDate
  aManager.LoadEncountersPlus(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.

See also

Version information

Added in v7.11.0
Parent topic: ISEncountersPresentManager