ISCareStream.Description

Example

Display the description of the clinical pathway associated with the care plan template.

Dim aCarePlan
Dim aStreams, aStream
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

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 & vbNewLine &_
    " - Pathway Description: '" & aStream.Description & "'"         
next
 
Profile.MsgBox (aMessage)