This function returns the number of the appointments that the selected patient did not attend.
object.GetDNACount(aPatient, aFromDate)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientUtils interface |
|
aPatient |
In, Required | The patient |
|
aFromDate |
In, Required | DateTime |
The date the appointment state is being checked
from |
int
Display the number of the appointments that the selected patient did not attend.
Dim aPatient
Dim aFromDate
Dim aDNACount
Dim aMessage
Set aPatient = Profile.SelectPatient
aFromDate = #01/01/2014#
aDNACount = Profile.PatientUtils.GetDNACount(aPatient, aFromDate)
aMessage = "The number of DNA for " & aPatient.SurNameFirstName & " is " & aDNACount
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface DNA can be found in
.