ISEncounterFilter.CaseServiceID

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 aCaseServices, aCaseService  
Dim aEncounters, aEncounter
Dim aEncounterFilter
Dim i, j
Dim aMessage

set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCaseServiceFilter
set aCaseServices = Profile.LoadCaseServices(aFilter)

set aEncounterFilter = Profile.CreateEncounterFilter 

aMessage = "Case Services Count = " & aCaseServices.Count & vbNewLine 
  
for i = 0 to aCaseServices.Count - 1
  set aCaseService = aCaseServices.Item(i)
  aEncounterFilter.CaseServiceID = aCaseService.ID

  set aEncounters = aPatient.LoadEncounters(aEncounterFilter)

  aMessage = aMessage & vbNewLIne & (i + 1) & ". " &_
    "Encounters Count for the service " & aCaseService.Id & " is " &_
    aEncounters.Count & vbNewLine

  for j = 0 to aEncounters.Count - 1
    set aEncounter = aEncounters.Item(j)
    aMessage = aMessage & vbNewLine &_
      (i + 1) & "." & (j + 1) & ". The Patient Name: " & aPatient.SurnameFirstName & vbNewLine &_
      "     The Encounter Date: " & aEncounter.Date & vbNewLine &_
      "     The Encounter is signed: " & aEncounter.IsSigned & vbNewLine
  next 'j 
next 'i     

Profile.MsgBox(aMessage)