ISPatientSharingConsent.CaseObj

Example

Display the number of the patient sharing consents and some information about them, including the titles of the cases which they are assigned 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)