} else {
$result = $machine_result;
}
$result = MyHTML::getVLNumericResult($result, $machine_type, $factor);
$numerical_result = MyHTML::getNumericalResult($result);
$suppressed = MyHTML::isSuppressed2($numerical_result, $sample_type, $test_date);
switch ($suppressed) {
case 'YES':
// patient suppressed, according to the guidlines at that time
$smiley = "smiley.smile.gif";
$recommendation = MyHTML::getRecommendation($suppressed, $test_date, $sample_type);
break;
case 'NO':
// patient suppressed, according to the guidlines at that time
$smiley = "smiley.sad.gif";
$recommendation = MyHTML::getRecommendation($suppressed, $test_date, $sample_type);
break;
default:
$smiley = "smiley.sad.gif";
$recommendation = "There is No Result Given. The Test Failed the Quality Control Criteria. We advise you send a a new sample.";
break;
}
$location_id = "{$result_obj->lrCategory}{$result_obj->lrEnvelopeNumber}/{$result_obj->lrNumericID}";
$s_arr = explode("/", $result_obj->signaturePATH);
$signature = end($s_arr);
$now_s = strtotime(date("Y-m-d"));
$repeated = !empty($result_obj->repeated) ? 1 : 2;
$rejected = $result_obj->verify_outcome == "Rejected" ? 1 : 2;
$phones_arr = array_unique(explode(",", $result_obj->phone));
$phones = implode(", ", $phones_arr);
?>
