ISPatientRecallVisit.PlanCode

Example

Display the code of the care plan the patient's intervention is a part of.

sub main()
   Dim aPatient, aRecallVisits, aMessage
     
   set aPatient = Profile.SelectPatient
   set aRecallVisits = aPatient.RecallVisits
   aMessage = "Due Visits: " & vbNewLine &_  
     GetVisitCollectionInfo(aRecallVisits.Due) & vbNewLine &_
       "Completed Visits: " & vbNewLine &_
     GetVisitCollectionInfo(aRecallVisits.Completed) & vbNewLine

  Profile.MsgBox(aMessage)
end sub

function GetVisitCollectionInfo(aVisits)
  Dim aVisit, aPlan, info

  if aVisits.Count = 0 then
    info = "  There are no interventions"
  else
    info = "  There is (are) " & aVisits.Count & " intervention(s)."
  end if   
   
  for each aVisit in aVisits 
    set aPlan = aVisit.ParentPlan
    info = info & vbNewLine & " The code of the care plan '" & aPlan.Description &_
      "' is " & aPlan.Code     
  next
  
  GetVisitCollectionInfo = info
end function