ISRecallVisitFilter.CaseID

Example

Display the number of the interventions filtered by ID of the selected case.

sub main 
  Dim aSelected 
  Dim aPatientId 
  Dim aCaseId
  Dim aFilter
  Dim aVisits
  Dim aMessage
    
  aSelected = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _ 
    "Select Patient and Case", true)
  if not aSelected then exit sub  
  
  set aFilter = Profile.CreateRecallVisitFilter
  
  aFilter.CaseId = aCaseId
  aFilter.DateFrom = #04/03/2018#    
  aFilter.DateTo = #05/05/2019#
  
  set aVisits = Profile.LoadRecallVisits(aFilter)  
  aMessage = aMessage & vbNewLine &_
    "The number of the patient's interventions filtered by ID of the " &_
    "selected case ("  & aFilter.CaseId & ") is " & aVisits.Count
    
  Profile.MsgBox(aMessage)  
end sub