ISCareStreams.Count

Description

The number of the clinical pathways within the collection.

Syntax

object.Count

Part	Attribute	Type	Description
`object`	Required	ISCareStreams	The `object` always implements the ISCareStreams interface

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the clinical pathways within the collection.

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 & "'"         
next
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Pathways can be found in Maintain > Care Plans > Open Plan > Plan > Plan Pathways.

Version information

Added in v7.8.0