ISPatientRecallVisit.DateSeen

Example

Display the date when the status of the patient's intervention changed from 'Still Due' to something else, that is, one of the actions was completed.

sub main()
   Dim aPatient, aRecallVisits, aMessage
     
   set aPatient = Profile.SelectPatient
   set aRecallPlans = aPatient.RecallPlans
   
   for each aPlan in aRecallPlans
     aMessage = aMessage & GetVisitCollectionInfo(aPlan.Visits)
   next

  Profile.MsgBox(aMessage)
end sub

function GetVisitCollectionInfo(aVisits)

  for each aVisit in aVisits 
    set aPlan = aVisit.ParentPlan
    info = info & vbNewLine & "Intervention: " & aVisit.Description & vbNewLine &_
       "DateSeen = " & aVisit.DateSeen & "   " &_
       "DateCompleted = " & aVisit.DateCompleted & "   " &_
       "DateConcl = " & aVisit.DateConcl
  next
  
  GetVisitCollectionInfo = info
end function