ISRecallPlanFilter.IncludeNonCasePlans

Example

Display the number of the patient's care plans that are not linked to any care plan.

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 = true

  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