ISCaseService.FromProviderID

Description

ID of the provider who made the sub-referral.

Syntax

object.FromProviderID

Part	Attribute	Type	Description
`object`	Required	ISCaseService	The `object` always implements the ISCaseService interface

Return Value

int

Example

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

Dim aFilter
Dim aCaseServices
Dim aCaseService
Dim aMessage
Dim i
Dim aShortCode 
Dim aProvider

Set aShortCode = Profile.LoadShortCodeByCodeType("CC", 56) 'sscCaseOutcome 
set aFilter = Profile.CreateCaseServiceFilter
aFilter.OutcomeID = aShortCode.ID 
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 &_
    "Source Ref: " & aCaseService.SourceRef & vbNewLine &_
    "Subreferral Status: " & aCaseService.SubreferralStatus & vbNewLine 
    
  if aCaseService.ProviderID <> 0 then
    set aProvider = Profile.LoadProviderById(aCaseService.FromProviderID)
    aMessage = aMessage & "From Provider: " &_
      aProvider.FullName & vbNewLine 
  end if
next
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface From Provider ID cannot be found, but From Provider can be found in Organisation > Work Centre > Work > Cases > Edit Case > Administrative > Case Sub-Referrals > Open Case Sub-Referrals > From Provider.

Version information

Added in v7.8.0