ISPatientRecallVisit.IsDeleted

Example

Display IsDeleted for the patient's intervention.

sub main()
  Dim aPatient  
  Dim aRecallPlans, aPlan 
  Dim 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)
  Dim aVisit
  Dim aPlan
  
  for each aVisit in aVisits 
    set aPlan = aVisit.ParentPlan
    info = info & vbNewLine & "Intervention: " & aVisit.Description & vbNewLine &_
      "DateSeen = " & aVisit.DateSeen & vbNewLine &_
      "DateCompleted = " & aVisit.DateCompleted & vbNewLine &_
      "DateConcluded = " & aVisit.DateConcl & vbNewLine &_
      "Date/Time Modified = " & aVisit.DTModified & vbNewLine &_
      "Is Deleted = " & aVisit.IsDeleted & vbNewLine
  next
  
  GetVisitCollectionInfo = info
end function