ISRecallPlanFilter.CaseID

Example

Display the number of the patient's care plans filtered by the selected case ID.

sub main   
  Dim aPatientId
  Dim aSelected
  Dim aRecallPlans
  Dim aCaseId
  Dim aPatient
  Dim aFilter
  Dim aMessage
  
  aSelected = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _ 
    "Select Patient and Case", true)
  if not aSelected then exit sub  
  
  set aPatient = Profile.LoadPatient(aPatientId)
  set aRecallPlans = aPatient.RecallPlans
  
  set aFilter = Profile.CreateRecallPlanFilter  
  aFilter.PatientId = aPatientId
  aFilter.CaseId = aCaseId
  aFilter.IncludeNonCasePlans = false

  set aRecallPlans = Profile.LoadRecallPlansExt(aFilter)  
   
  aMessage = aMessage & vbNewLine &_
    "The number of the care plans of the selected patient is " &_
    aRecallPlans.Count
    
  Profile.MsgBox(aMessage)  
end sub