The patient's sexual orientation, returned as ID.
object.SexualOrientation
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
int
Display the patient's sexual orientation ID.
Dim aPatient
Dim aSexualOrientation
Set aPatient = Profile.SelectPatient
aSexualOrientation = aPatient.SexualOrientation
Profile.MsgBox (aSexualOrientation)
In Profile Client v8 on User Interface Sexual Orientation can be found in
.