ISEncounterFilter.CaseID

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 aPatientId, aCaseId
Dim aSelected
Dim aCase 
Dim i
Dim aMessage

aResult = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _
  "Select Case for search", true)
if not aResult then exit sub

set aFilter = Profile.CreateEncounterFilter
aFilter.PatientId = aPatientId
aFilter.CaseID = aCaseId   

set aEncounters = Profile.LoadEncounters(aFilter)
set aPatient = Nothing

aMessage = "Encounters Count = " & aEncounters.Count & vbNewLine

for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
  
  if aPatient is Nothing then set aPatient = Profile.LoadPatient(aPatientId)
  if aPatient.Id <> aEncounter.PatientId then set aPatient = Profile.LoadPatient(aPatientId)
  set aCase = aEncounter.Get_Case
  
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ") The Name of the Patient: " & aPatient.SurnameFirstName & vbNewLine &_
    "     The Date of the Encounter: " & aEncounter.Date & vbNewLine &_
    "     The Title of the Case: " & aCase.CaseTitle & vbNewLine 
next      

Profile.MsgBox(aMessage)