ISPatientEncounters.Recent

Example

Display the number of the patient's encounters for the last year, their dates and contacts.

Dim aPatient
Dim aEncounters
Dim aEncounter
Dim aContact
Dim aMessage

Set aPatient = Profile.SelectPatient 
set aEncounters = aPatient.Encounters.Recent

aMessage = "Encounters Count = " & aEncounters.Count

for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
  aMessage = aMessage & vbNewLine & aEncounter.date
  if aEncounter.Contacts.Count <> 0 then
    for each aContact in aEncounter.Contacts
      aMessage = aMessage & vbNewLine & "    -Contact Subject: " & aContact.Subject
    next
  end if  
next 
Profile.MsgBox(aMessage)