ISCarePlan.Visits

Example

Display the number of the interventions that are a part of the selected care plan template and their code description.

Dim aCarePlan
Dim aVisits, aVisit 
Dim i
Dim aMessage

Set aCarePlan = Profile.LoadCarePlanByCode ("FLU") 

if aCarePlan is nothing then 
  Profile.MsgBox ("There is no care plan with this code")
  exit sub   
end if

aMessage = aMessage & vbNewLine & "The care plan template """ &_ 
  aCarePlan.Description &"""" 

set aVisits = aCarePlan.Visits

if aVisits.Count = 0 then
  aMessage = aMessage & vbNewLine & "There are no visits"
else
  aMessage = aMessage & " has " & aVisits.Count & " visit(s):"
  for i = 0 to aVisits.Count - 1
    set aVisit = aVisits.Item(i)
    aMessage = aMessage & vbNewLine & aVisit.Description   
  next
end if       
Profile.MsgBox (aMessage)