ISCasesFilter.LeadProviderID

Example

Display the number of the cases loaded on the basis of the selected filter, their titles, statuses, responsible clinicians, the dates and time when they were opened.

sub main
  Dim aProvider 
  Dim aFilter
  Dim aCases, aCase
  Dim i
  Dim aMessage
  
  Set aProvider = Profile.LoadProvider("MM")
  
  if aProvider.ID = 0 then
    Profile.MsgBox("There is no provider with the specified code")
    exit sub
  end if  
  
  set aFilter = Profile.CreateCasesFilter
  aFilter.LeadProviderID = aProvider.ID
  set aCases = Profile.LoadCases(aFilter)

  aMessage = "Cases Count = " & 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 & " (Status: " &_ 
      GetStatusDescr(aCase.Status) & ")" & vbNewLine &_ 
      "     -Lead Provider: " &  aCase.LeadProvider.FullName  
  next      

  Profile.MsgBox(aMessage) 
end sub

function GetStatusDescr(aStatus)
  Dim aResult

  Select Case aStatus
    Case 0
      aResult = "Unknown"
    Case 1
      aResult = "Open"
    Case 2
      aResult = "In Progress"
    Case 3
      aResult = "On Hold"
    Case 4
      aResult = "Closed"           
  End Select
  
  GetStatusDescr = aResult
end function