ISProfile.LoadRecallVisit

Description

This function returns the intervention by ID.

Syntax

object.LoadRecallVisit(aVisitId)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aVisitId`	In, Required	int	ID of the intervention

Return Value

ISPatientRecallVisit

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

Example

Display the code and description of the first intervention.

Dim aFilter
Dim aSelected
Dim aVisits
Dim aVisit
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
  aVisitID = aVisits.Item(0).ID
  set aVisit = Profile.LoadRecallVisit(aVisitID) 
  aMessage = aMessage & vbNewLine & "The first intervention is '" &_ 
    aVisit.Description & "' (" & aVisit.Code & ")" 
end if    
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0