ISEncounterFilter.OnlySigned

Example

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.OnlySigned = True
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 & vbNewLine &_
    (i + 1) & ") The Patient Name: " & aPatient.SurnameFirstName & vbNewLine &_
    "     The Encounter Date: " & aEncounter.Date & vbNewLine &_
    "     The Encounter is signed: " & aEncounter.IsSigned & vbNewLine & vbNewLine
next      

Profile.MsgBox(aMessage)