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