ISEncounterFilter.ProfilePatientGroupID

Example

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

Dim aGroupFilter, aFilter
Dim aPatientGroups, aPatientGroup
Dim aEncounters, aEncounter
Dim i
Dim aMessage

set aGroupFilter = Profile.CreateProfilePatientGroupFilter
aGroupFilter.PatientGroupType = 3 ' spgtAll 
aGroupFilter.PatientGroupName = "Asthmatics"
set aPatientGroups = Profile.LoadProfilePatientGroupsByFilter(aGroupFilter)

if aPatientGroups.Count = 0 then
  Profile.MsgBox("There is no Patient Group with name " & aGroupFilter.PatientGroupName)
  exit sub
end if

set aPatientGroup = aPatientGroups.Item(0) 'the first group in the list 

set aFilter = Profile.CreateEncounterFilter 
aFilter.ProfilePatientGroupId = aPatientGroup.Id 
aFilter.SortMode = 3 'slsmDTDisplayDescAndID  
set aEncounters = Profile.LoadEncounters(aFilter)

aMessage = "The number of the Encounters for the Patient Group '" &_
  aPatientGroup.Name & "' is " & aEncounters.Count & vbNewLine

for i = 0 to aEncounters.Count - 1
  set aEncounter = aEncounters.Item(i)
 
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ") Patient Name: " &_
    Profile.LoadPatient(aEncounter.PatientId).SurnameFirstName & vbNewLine &_
    "     Encounter Date: " & aEncounter.Date & vbNewLine &_
    "     POS Code: " & aEncounter.PosCode & vbNewLine &_
    "     POS ID: " & aEncounter.PosID & vbNewLine
next      

Profile.MsgBox(aMessage)