ISPatientRecallPlan.Visits

Example

Display the number of the patient's interventions within the care plan.

Dim aPatient
Dim aRecallPlans
Dim aMessage
Dim aPlan

Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans

if aRecallPlans.Count = 0 then
  Profile.MsgBox("The patient has no care plans!")
  exit sub
end if

for each aPlan in aRecallPlans 
   set aVisits = aPlan.Visits
   aVisitsCount = aVisits.Count
   if aVisitsCount = 0 then 
     aMessage = aMessage & vbNewLine & "There are no interventions in the" &_
       " patient's care plan '" & aPlan.Description & "'"
   else   
     aMessage = aMessage & vbNewLine & "There (is) are " & aVisitsCount &_ 
       " intervention(s) in the patient's care plan '" & aPlan.Description & "'"   
   end if
next

Profile.MsgBox(aMessage)