This function loads the list of patient's encounters displayed in the rich edit.
object.SetEncounterList
aList
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISEncountersPresentManager interface |
|
aList |
In, Required | The list of encounters |
Display the patient's encounters in the rich edit.
sub main
Dim aManager
Dim aFilter
Dim aEncounters, aEncounter
Dim aList
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 aEncounters = Form.Patient.LoadEncounters(aFilter)
set aList = Profile.CreateList
for each aEncounter in aEncounters
if aEncounter.BlockFromPatientAccess then aList.Add(aEncounter)
next
aManager.SetEncounterList(aList)
aManager.Display
end sub In Profile Client v8 on User Interface Encounters can be found in .