The number of the patient's completed interventions.
object.Completed
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientRecallVisitsSet interface |
Display the number of the patient's completed interventions.
sub main
Dim aPatient
Dim aRecallVisitsSet
Dim aCompletedVisits
Dim aMessage
Set aPatient = Profile.SelectPatient
set aRecallVisitsSet = aPatient.RecallVisits
set aCompletedVisits = aRecallVisitsSet.Completed
aMessage = "The number of the patient's completed interventions is " &_
aCompletedVisits.Count
Profile.MsgBox(aMessage)
end sub
In Profile Client v8 on User Interface Completed can be found in
or .