ISEncounterFilter.ActivityID

Example

Display the number of the encounters loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aService, aServiceDescription
Dim aFilter
Dim aEncounters, aEncounter
Dim i
Dim aMessage

set aPatient = Profile.SelectPatient
set aService = Profile.LoadService("CON") 
set aFilter = Profile.CreateEncounterFilter 
aFilter.PatientId = aPatient.Id
aFilter.ActivityId = aService.Id 
set aEncounters = Profile.LoadEncounters(aFilter)

aMessage = "The number of the Encounters for " & aPatient.SurnameFirstName &_
  " is " & aEncounters.Count & vbNewLine

for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
 
  if aEncounter.ServiceID > 0 then
    set aService = Profile.LoadServiceById(aEncounter.ServiceID)
    aServiceDescription = aService.Description & " (" & aService.Code & ")"
  else
    aServiceDescription = " - "
  end if     
 
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ") Encounter Date: " & aEncounter.Date & vbNewLine &_
    "     Service Description: " & aServiceDescription & vbNewLine &_
    "     Service ID: " & aEncounter.ServiceID & vbNewLine &_
    "     Service Code: " & aEncounter.ServiceCode & vbNewLine     
next      

Profile.MsgBox(aMessage)