ISProfilePatientGroup.Owner

Example

Display the number of the patient groups loaded on the basis of the selected filter, their names and owners.

Dim aFilter
Dim aPatientGroups
Dim aPatientGroup
Dim aMessage

Set aFilter = Profile.CreateProfilePatientGroupFilter
aFilter.PatientGroupType = 3 ' spgtAll 
set aPatientGroups = Profile.LoadProfilePatientGroupsByFilter(aFilter)

aMessage = "Patient Groups Count = " & aPatientGroups.Count
for i = 0 to aPatientGroups.Count - 1
  set aPatientGroup = aPatientGroups.Item(i) 
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aPatientGroup.Name
if not aPatientGroup.Owner is nothing then
    aMessage = aMessage & "; the owner of the patient group is " &_ 
      aPatientGroup.Owner.FullName
  end if                               
next      

Profile.MsgBox(aMessage)