This function returns the intervention of the patient by intervention ID.
object.LoadRecallVisit(aVisitId)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
|
aVisitId |
In, Required | int |
ID of the intervention |
Display description of the patient's intervention returned by the selected intervention ID.
Dim aPatient
Dim aRecallVisits
Dim aRecallVisit
Dim aVisitId
Set aPatient = Profile.SelectPatient
set aRecallVisits = aPatient.RecallVisits.Due
if aRecallVisits.Count = 0 then
Profile.MsgBox ("This patient has no due interventions!")
else
aVisitId = aRecallVisits.Item(0).ID
set aRecallVisit = aPatient.LoadRecallVisit(aVisitId)
Profile.MsgBox ("The first due intervention of the patient is ' " &_
aRecallVisit.Description & "'")
end if
In Profile Client v8 on User Interface Interventions can be found in
.