ISCasesFilter.ServicePosCode

Example

Display the number of the cases loaded on the basis of the selected filter, their titles, statuses, linked places of service, the dates and time when these cases were opened.

sub main
  Dim aPOS 
  Dim aFilter
  Dim aCases, aCase
  Dim aServicePOS
  Dim i
  Dim aMessage
  
  Set aPOS = Profile.LoadProviderById(Profile.CurrentPOSId)
  set aFilter = Profile.CreateCasesFilter
  aFilter.Patient = aPatient
  aFilter.ServicePosCode = aPOS.Code
  set aCases = Profile.LoadCases(aFilter)

  aMessage = "Cases Count = " & aCases.Count & vbNewLine 
  
  for i = 0 to aCases.Count -1
    set aCase = aCases.Item(i)
    set aServicePOS = Profile.LoadProvider(aCase.ServicePosCode)
    aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCase.CaseTitle &_ 
      " was opened on " & aCase.OpenedOn & " (Status: " &_ 
      GetStatusDescr(aCase.Status) & ")" & vbNewLine &_ 
      "     -Service POS: " & aServicePOS.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