ISCareStream.Visits

Example

Display the number of the interventions that are part of the clinical pathway.

Dim aCarePlan
Dim aStreams, aStream
Dim i
Dim aInterventions
Dim aMessage

Set aCarePlan = Profile.LoadCarePlanByCode ("FOB") 

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

set aStreams = aCarePlan.Streams  
aMessage = aMessage & "The care plan template """ & aCarePlan.Description &_    
  """ has " & aStreams.Count & " pathway(s):" & vbNewLine

for i = 0 to aStreams.Count - 1
  set aStream = aStreams.Item(i)

  aMessage = aMessage &_
    " - Pathway: '" & aStream.Description & "'" & vbNewLine
       
  set aInterventions = aStream.Visits
  if aInterventions.Count = 0 then
    aMessage = aMessage & _
      "    No interventions that are part of the clinical pathway!" & vbNewLine
  else
    aMessage = aMessage &_
      "   The number of the interventions that are part " &_
      " of the clinical pathway = " & aInterventions.Count & vbNewLine 
  end if         
next
Profile.MsgBox (aMessage)