The response message which appears if there are some restrictions on the patient's eligibility for services.
object.ResponseMessage
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientEligibility interface |
string
Display the response message regarding some restrictions on the patient's eligibility for services.
Dim aPatient
Dim aPatEligibility
Dim aResponseMessage
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
aResponseMessage = aPatEligibility.ResponseMessage
Profile.MsgBox (aResponseMessage)
end if
In Profile Client v8 on User Interface Response Message can be found in
.