ISRecallAction.DTModified

Example

Display some information about the actions linked to the patient's interventions, including the dates and time they were last modified.

Dim aPatient
Dim aRecallPlans, aPlan
Dim aVisits, aVisit
Dim aActions, aAction
Dim i
Dim aMessage
     
Set aPatient = Profile.SelectPatient
set aRecallPlans = aPatient.RecallPlans
   
if aRecallPlans.Count = 0 then
  Profile.MsgBox("The patient has no care plans!")
end if

for each aPlan in aRecallPlans
  aMessage = aMessage & vbNewLine & "PLAN: '" & aPlan.Description & "'"
  set aVisits = aPlan.Visits
  if aVisits.Count = 0 then
    aMessage = aMessage & vbNewLine & "   NO INTERVENTIONS"
  end if
  for each aVisit in aVisits
    set aActions = aVisit.Actions     
    aMessage = aMessage & vbNewLine & "   INTERVENTION: '" &_
      aVisit.Description & "'" & "  (Action Count = " & aActions.Count & ")"

    for i = 0 to aActions.Count - 1 
      set aAction = aActions.Item(i)
      aMessage = aMessage & vbNewLine & "       ACTION: '" & aAction.Description &_
        "'" & vbNewLine & "          Description: " & aAction.Description & vbNewLine &_
        "          ID: " & aAction.ID & vbNewLine &_
        "          Code: " & aAction.Code & vbNewLine &_
        "          Status: " & aAction.Status & vbNewLine &_
        "          Date/Time Modified: " & aAction.DTModified & vbNewLine 
    next  
  next
next
Profile.MsgBox(aMessage)