ISPatientRecallVisit.AddActionByCareAction

Example

Add the action to the patient's intervention based on the care action template.

Dim aPatient
Dim aCareVisits
Dim aCareVisit
Dim aCarePlan
Dim aRecallVisits
Dim aRecallVisit
Dim aAllRecallVisits
Dim aCareActions
Dim aCareAction
Dim aMessage

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

set aPatient = Profile.SelectPatient
set aAllRecallVisits = aPatient.RecallVisits
set aRecallVisits = aAllRecallVisits.Due 
for each aRecallVisit in aRecallVisits 

  for i = 0 to aCareVisits.Count - 1
    set aCareVisit = aCareVisits.Item(i) 
    set aCareActions = aCareVisit.Actions
    for j =  0 to aCareActions.Count - 1
      set aCareAction = aCareActions.Item(j)
      set aNewRecallAction = aRecallVisit.AddActionByCareAction(aCareAction)
      if not aNewRecallAction is nothing then 
        aNewRecallAction.Description = aNewRecallAction.Description & " (Created by Care Action) "
      end if   
    next      
  next
next

for each aRecallVisit in aRecallVisits
  aMessage = aMessage & "Intervention: " & aRecallVisit.Description & vbNewLine
  set aRecallActions = aRecallVisit.Actions
  for i = 0 to aRecallActions.Count - 1 
    set aRecallAction = aRecallActions.Item(i)
    aMessage = aMessage & "  Action: " & aRecallAction.Description & vbNewLine   
  next
next
   
Profile.MsgBox(aMessage)