ISProfile.CreateRecallVisitFilter

Example

Display the codes and descriptions of the interventions loaded on the basis of the selected filter and the code and description of their care plans.

Dim aFilter
Dim aSelected
Dim aVisits
Dim aVisit
Dim aPlan
Dim aMessage

aSelected = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _
  "Select patient's case", true)
if not aSelected then exit sub

set aFilter = Profile.CreateRecallVisitFilter
aFilter.CaseId = aCaseId

set aVisits = Profile.LoadRecallVisits(aFilter)

if aVisits.Count = 0 then
  aMessage = "The patient has no interventions"
else
  aMessage = " There is (are) " & aVisits.Count & " intervention(s)."
end if    

for i = 0 to aVisits.Count - 1 
  set aVisit = aVisits.Item(i)
  set aPlan = aVisit.ParentPlan
  aMessage = aMessage & vbNewLine & "The intervention '" & aVisit.Description &_
    "' (" & aVisit.Code & ") of the care plan '" &_
    aPlan.Description & "' (" & aPlan.Code & ")"   
next

Profile.MsgBox(aMessage)