The specific date the patient's eligibility for services is assessed for.
object.DateServiceEligibility
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientEligibility interface |
DateTime
Display the date the patient's eligibility for services is assessed for.
Dim aPatient
Dim aPatEligibility
Dim aDateServiceEligibility
Set aPatient = Profile.SelectPatient
set aPatEligibility = Profile.GetLastPatientEligibility(aPatient.ID)
if aPatEligibility is nothing then
Profile.MsgBox ("There is no eligibility for this patient!")
else
aDateServiceEligibility = aPatEligibility.DateServiceEligibility
Profile.MsgBox (aDateServiceEligibility)
end if
In Profile Client v8 on User Interface Date Service Eligibility can be found in
.