doFilledBlock();
} else {
doBlock();
}
/* Check for the code of telephone then show telephone icon*/
if (strpos($x, "_telx_") !== FALSE) {
$sx += $hdiv * ($len - 1);
/* Move x pointer to the right */
showPhone();
$sx -= $hdiv * ($len - 1);
/* return pointer */
}
}
// end of else
/* Write the item */
doWrite($v, $len);
}
//endof else
if ($tdcount == 6) {
$sy += $vdiv;
/* Adjust to next row */
$sx = $left_border;
$tdcount = 0;
} else {
$sx += $hdiv * $len;
/* Move to next column */
$tdcount++;
}
}
/* Create the lower boxes for the doctor's sign, etc. */
$sx = 1;
$sx = $left_border;
} else {
$tr_tracker++;
}
}
/* Second group of findings */
$sy += $vdiv;
$sx = $left_border;
while (list($x, $v) = each($lab_TestResultId_2)) {
list($x2, $v2) = each($lab_TestResult_2);
if ($parsed_findings[$v2]) {
doFilledBlock();
} else {
doBlock();
}
doWrite($v);
if ($tr_tracker > 1) {
$tr_tracker = 0;
$sx = $left_border;
$sy += $vdiv;
} else {
$tr_tracker++;
$sx += $hdiv * 9;
}
}
/* Output the image form */
Imagepng($im);
ImageDestroy($im);
?>
