The patient's surname in the selected patient version. Profile does not permit null surnames.
object.SurName
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientVers interface |
string
Display the patient's surname in the selected patient version.
Dim aPatient
Dim aPatientVers
Dim aMessage
Set aPatient = Profile.SelectPatient
set aPatientVers = aPatient.VersionOnDate(#01/01/2019#)
if aPatientVers is nothing then
aMessage = "There are no patient versions for this date!"
else
aMessage = aMessage & vbNewLine &_
"On 01/01/2019 the surname of the patient was " &_
aPatientVers.SurName & ", now the surname of the patient is " &_
aPatient.SurName
end if
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Surname can be found in
.