ISProfile.LoadRecallVisits

Description

This function returns the interventions loaded on the basis of the selected filter.

Syntax

object.LoadRecallVisits(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISRecallVisitFilter	The object that defines conditions for filtering

Return Value

ISPatientRecallVisits

Returns the interventions loaded on the basis of the selected filter.

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)

Note:

In Profile Client v8 on User Interface Interventions can be found in Clinical > Medical Record > Care Plans.

Version information