ISProfilePatientGroup.PrivateTo

Example

Display the number of the patient's groups loaded on the basis of the selected filter, the name, privacy role name and privacy person name for each of them.

Dim aFilter
Dim aPatientGroups
Dim aPatientGroup
Dim aMessage
Dim aPrivateToProv

Set aFilter = Profile.CreateProfilePatientGroupFilter
aFilter.PatientGroupType = 3 'All
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 & aPatientGroup.Name & vbTab & aPatientGroup.Privacy
  set aPrivateToProv = aPatientGroup.PrivateTo 
  if not aPrivateToProv is nothing then
    aMessage = aMessage & vbTab & aPrivateToProv.FullName
  else
    aMessage = aMessage & vbTab & "  -  "     
  end if
next 

Profile.MsgBox(aMessage)