ISCareActions.Count

Description

The number of the actions within the intervention template.

Syntax

object.Count

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the actions within the intervention template.

Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit
Dim aActions

Set aCarePlan = Profile.LoadCarePlanByCode ("FOB") 
set aVisits = aCarePlan.Visits

if aVisits.Count = 0 then
  Profile.MsgBox ("NO INTERVENTIONS!")
  exit sub
end if  
 
for i = 0 to aVisits.Count - 1
  set aVisit = aVisits.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Intervention: '" & aVisit.Description & "'" 

  set aActions = aVisit.Actions
  aMessage = aMessage & vbNewLine & "The number of the actions" &_
    " within the intervention template = " & aActions.Count
  
next 
  
Profile.MsgBox (aMessage)

Note:

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

Version information

Added in v7.8.0