ISCareAction.Code

Example

Display the code of the care action 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 ("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 & vbNewLine &_
       "    Action Code: " & aAction.Code
         
    next 'j
  end if
    
next 'i
  
Profile.MsgBox (aMessage)