The response code regarding the patient's eligibility for services.
object.ResponseCode
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientEligibility interface |
string
Display the response code regarding the patient's eligibility for services.
Dim aPatient
Dim aPatEligibility
Dim aResponseCode
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
aResponseCode = aPatEligibility.ResponseCode
Profile.MsgBox (aResponseCode)
end if
In Profile Client v8 on User Interface Response Code can be found in
.