This function opens the Review Encounters window for the selected patient.
object.PatientReviewContacts aPatient
Display the patient's contacts.
Dim aPatient
Set aPatient = Profile.SelectPatient
Profile.PatientReviewContacts(aPatient)
In Profile Client v8 on User Interface Contacts can be found in
.