ISCareStream.PlanID

Example

Display ID of the care plan the clinical pathway is linked to.

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: '" & aStream.Description & "'" & vbNewLine &_
    "    ID of the plan the pathway is linked to = " & aStream.PlanID        
next
Profile.MsgBox (aMessage)