The patient's street address (physical location) in the selected patient version.
object.StreetAddress
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientVers interface |
Display the patient's street address 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 patient's street address was " &_
aPatientVers.StreetAddress.AsLine & ", now the patient's street address is " &_
aPatient.StreetAddress.AsLine
end if
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Street Address can be found in.