The patient's gender (M, F or U) in the selected patient version.
object.Sex
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientVers interface |
string
Display the patient's gender 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
aMessage = aMessage & "On 01/01/2019 the patient's gender was " & aPatientVers.Sex
end if
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Sex can be found in
.