ISCareVisit.Actions

Example

Display the set of actions and their description within the intervention template.

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

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

if aVisits.Count = 0 then
  Profile.MsgBox("There are no care visits!")
  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 Action"
  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)