This filter property defines if the conjunction or disjunction operation should be applied to load the collection of the encounters by the creation date and the date of modification.
object.OperationBtwnCreatedAndModifiedDates
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISEncounterFilter interface |
Display the number of the encounters loaded on the basis of the selected filter and some information about them.
Dim aPatient
Dim aFilter
Dim aEncounter, aEncounters
Dim i
Dim aMessage
set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateEncounterFilter
aFilter.PatientId = aPatient.Id
aFilter.OperationBtwnCreatedAndModifiedDates = 1 ' seodOr
aFilter.CreatedDateFrom = #01/01/2019 11:00:00#
aFilter.CreatedDateTo = #30/01/2020 12:00:00#
aFilter.ModifiedDateFrom = #01/01/2019 11:00:00#
aFilter.ModifiedDateTo = #30/01/2020 12:00:00#
set aEncounters = aPatient.LoadEncounters(aFilter)
aMessage = "Encounters Count = " & aEncounters.Count & vbNewLine
for i = 0 to aEncounters.Count - 1
set aEncounter = aEncounters.Item(i)
aMessage = aMessage & (i + 1) & ") " & aEncounter.DateCreated & vbNewLine &_
aPatient.SurnameFirstName & vbNewLine & vbNewLine
next
Profile.MsgBox(aMessage)In Profile Client v8 on User Interface Created and Modified Dates can be found in .