ISCaseService.Role

Example

Display the number of the case sub-referrals loaded on the basis of the selected filter and some information about them, including the privacy roles.

Dim aFilter
Dim aCaseServices
Dim aCaseService
Dim aMessage
Dim i

Set aFilter = Profile.CreateCaseServiceFilter
aFilter.PosID = Profile.CurrentPOSId 
set aCaseServices = Profile.LoadCaseServices(aFilter)

aMessage = "Case Sub-Referrals Count = " & aCaseServices.Count
for i = 0 to aCaseServices.Count - 1
  set aCaseService = aCaseServices.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Reason: " & aCaseService.Reason & vbNewLine &_
    "Comment: " & aCaseService.Comment & vbNewLine &_
    "Opened: " & aCaseService.Opened & vbNewLine &_
    "Closed: " & aCaseService.Closed & vbNewLine &_
    "Pos Code: " & aCaseService.PosCode & vbNewLine &_             
    "Subreferral Status: " & aCaseService.SubreferralStatus & vbNewLine 

  if not aCaseService.Role is nothing then
    aMessage = aMessage & "Role: " & aCaseService.Role.RoleName 
  end if  
 
next  
Profile.MsgBox(aMessage)