ISProfile.LoadRecallVisitByGuid

Description

This function returns the intervention by GUID.

Syntax

object.LoadRecallVisitByGuid(aGUID)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aGUID`	In, Required	string	GUID of the intervention

Return Value

ISPatientRecallVisit

Returns the intervention by GUID.

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
  aVisitGUID = aVisits.Item(0).GUID
  set aVisit = Profile.LoadRecallVisitByGuid(aVisitGUID) 
  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.9.2