ISPatientSharingConsent.ValidTo

Example

Display the number of the patient sharing consents and some information about them, including the dates which the sharing consents are valid to.

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)