The result code which is automatically calculated on the basis of the response code regarding the patient's eligibility for services. Returns 0 if the patient is eligible for services.
object.ResultCode
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientEligibility interface |
int
Display the result code regarding the patient's eligibility for services.
Dim aPatient
Dim aPatEligibility
Dim aResultCode
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
aResultCode = aPatEligibility.ResultCode
Profile.MsgBox (aResultCode)
end if
In Profile Client v8 on User Interface Result Code cannot be found, Response Code can be found in
.