ISPatientSharingConsent.IsRescinded

Example

Display IsRescinded for the patient sharing consent.

Dim aPatient
Dim aSharingConsents
Dim aMessage
Dim aPatientSharingConsent
Dim aSharedPartition
Dim i, j 

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

aMessage = "Sharing Consents Count = " & aSharingConsents.Count & vbNewLine

for i = 0 to aSharingConsents.Count - 1
  set aPatientSharingConsent = aSharingConsents.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Patient: " & aPatientSharingConsent.Patient.SurnameFirstName & vbNewLine &_
    "    Valid From: " & aPatientSharingConsent.ValidFrom & vbNewLine &_
    "    Valid To: " & aPatientSharingConsent.ValidTo & vbNewLine &_ 
    "    Enabled: " & aPatientSharingConsent.Enabled & vbNewLine &_
    "    Is Rescinded: " & aPatientSharingConsent.IsRescinded & vbNewLine &_
    "    Password Entered: " & aPatientSharingConsent.PasswordEntered & vbNewLine &_
    "    Shared Partitions Count: " & aPatientSharingConsent.SharedPartitionCount & vbNewLine
    
    for j = 0 to aPatientSharingConsent.SharedPartitionCount - 1
      set aSharedPartition = aPatientSharingConsent.SharedPartition(j)
      aMessage = aMessage &_
        "     -Partition Name: " & aSharedPartition.Name & vbNewLine &_
        "     -ID: " & aSharedPartition.ID & vbNewLine 
    next 'j   
  
  if not aPatientSharingConsent.CaseObj is nothing then
    aMessage = aMessage &_
      "    Case Object: " & aPatientSharingConsent.CaseObj.CaseTitle & vbNewLine
  end if
next 'i

Profile.MsgBox(aMessage)