The privacy role that is used to restrict access to the Administrative segment of the case.
object.Role_Admin
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISCase interface |
Display the number of the cases loaded on the basis of the selected filter, their titles, privacy roles, the dates and time when they were opened.
Dim aPatient
Dim aFilter
Dim aCases, aCase
Dim i
Dim aMessage
Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCasesFilter
aFilter.Patient = aPatient
set aCases = Profile.LoadCases(aFilter)
aMessage = "The number of the cases for " & aPatient.SurnameFirstName &_
" = " & aCases.Count
for i = 0 to aCases.Count -1
set aCase = aCases.Item(i)
aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCase.CaseTitle &_
" was opened on " & aCase.OpenedOn
if not aCase.Role_Admin is nothing then
aMessage = aMessage & " (Administrative role: " &_
aCase.Role_Admin.RoleName & ")"
end if
next
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Role_Admin can be found in .