The status, which identifies the patient interaction with the practice in the selected patient version.
object.Status
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientVers interface |
Display the patient's status 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 status of the patient was " &_
aPatientVers.Status & ", now the status of the patient is " &_
aPatient.Status
end if
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Patient Status can be found in .