A pathway for a care plan template. A pathway is a defined set of interventions.
object.Streams
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISCarePlan interface |
Display the number of the pathways for a care plan template and their description.
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 = "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 & aStream.Description & vbNewLine
next
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Streams can be found in
.