This function opens the New Encounter view for the selected patient.
object.PatientNewContact
aPatient
Display the patient's new contacts.
Dim aPatient
Set aPatient = Profile.SelectPatient
Profile.PatientNewContact(aPatient)
In Profile Client v8 on User Interface Patient New Contact can be found in
.