ISPatient.LoadSharingConsents

Example

Display the number of the patient's sharing consents and the names of the partitions in each sharing consent.

Dim aPatient 
Dim aaConsents
Dim aConsent
Dim aPartition
Dim aMessage

Set aPatient = Profile.SelectPatient
set aConsents = aPatient.LoadSharingConsents 

aMessage = "Sharing Consents count = " & aConsents.Count

for i = 0 to aConsents.Count - 1
  set aConsent = aConsents.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Consent has " & aConsent.SharedPartitionCount & " Shared Partition(s): "
  for j = 0 to aConsent.SharedPartitionCount - 1
    set aPartition = aConsent.SharedPartition(j)
    aMessage = aMessage & aPartition.Name & " (" & aPartition.Code & "); "       
  next   
next
  
Profile.MsgBox(aMessage)