The balance of the patient for 60 days in the selected patient version.
object.Balance60days
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatientVers interface |
Decimal
Display the balance of the patient for 60 days 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 balance for 60 days was " &_
aPatientVers.Balance60days & ", now the patient's balance for 60 days is " &_
aPatient.Balance60days
end if
Profile.MsgBox(aMessage) In Profile Client v8 on User Interface Balance 60 days can be found in .