ISCareActions.Item

Description

Each of the actions within the collection.

Syntax

object.Item(Index)

Part	Attribute	Type	Description
`object`	Required	ISCareActions	The `object` always implements the ISCareActions interface
`Index`	In, Required	int	The index of the care action

Restriction: This property is readonly.

Return Value

ISCareAction

Example

Display each of the actions within the collection.

Dim aCarePlan
Dim aMessage
Dim aVisits
Dim aVisit
Dim aActions
Dim aAction

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
  if aActions.Count = 0 then 
    aMessage = aMessage & vbNewLine & "  No Actions!"
  else  
    for j = 0 to aActions.Count - 1    
      set aAction = aActions.Item(j)
      aMessage = aMessage & vbNewLine &_
        "   Action: '" & aAction.Description & "'"
         
    next 'j
  end if
    
next 'i
  
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