ISPatientRecallVisit.LinkedAppointments

Example

Display the number of the appointments linked to the patient's intervention.

sub main()
   Dim aPatient, aRecallPlans, 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 aLinkedAppointments = aVisit.LinkedAppointments
    if aLinkedAppointments  is nothing then
    info = info & vbNewLine & " For the intervention '" & aVisit.Description &_
      "' - There are no linked appointments!"
      else
    info = info & vbNewLine & "The number of the appointments " &_
     "linked to the intervention '" & aVisit.Description &_
     "' = " & aLinkedAppointments.Count
      end if         
  next
  GetVisitCollectionInfo = info &  vbNewLine
end function