$results .= "\\textbf{" . $row[0] . "} & & & \\\\ \n\\hline \n";
while ($row = ibase_fetch_row($res)) {
$unit = $row[2];
if (strlen($row[3]) <= 200) {
$remarks = str_replace('%', '\\%', $row[3]);
$remarks = str_replace('^', '\\^{}', $remarks);
} else {
$remarks = '';
}
$finalresult = str_replace('%', '\\%', $row[1]);
$finalresult = str_replace('^', '\\^{}', $finalresult);
$row[0] = str_replace('^', '\\^{}', $row[0]);
//$row[1] = str_replace('^', '\\^{}', $row[1]);
$rres = $row[1];
//$rres = str_replace('E+', '*10\\^{}', $rres) ;
$rres = normalizeExp($rres);
if ($row[4] == 'O') {
$rres = "\\textbf{ " . $rres . "} \$\\star\$ ";
}
//у биоценоза есть заключение, котороые было бы неплохо рисовать на несколько колонок.
if ($row[0] != "заключение") {
$results .= "\\quad \\small " . $row[0] . " & " . $rres . " & \\small " . $unit . " & \\small " . $remarks . " \\\\ \n ";
} else {
$results .= $row[0] . " & \\multicolumn{3}{|p{10cm}|}{" . $rres . "}\\\\ \n";
}
$results .= "\\hline " . "\n";
}
ibase_free_result($res);
}
}
$user = getUserEnterResults($ordersid, $dbh);
$a9 = "\\textbf{" . $a9 . "}";
$intflag = true;
}
$a7 = find_result(" o.ordersid in (" . $ordersid . ") and r.analyteid = 3089", $dbh);
$s7 = find_status(" o.ordersid in (" . $ordersid . ") and r.analyteid = 3089", $dbh);
if ($s7 == 'O') {
$a7 = "\\textbf{" . $a7 . "}";
$intflag = true;
}
$a5 = find_result(" o.ordersid in (" . $ordersid . ") and r.analyteid = 3084", $dbh);
$s5 = find_status(" o.ordersid in (" . $ordersid . ") and r.analyteid = 3084", $dbh);
if ($s5 == 'O') {
$a5 = "\\textbf{" . $a5 . "}";
$intflag = true;
}
$r9 = find_result(" o.ordersid in (" . $ordersid . ") and r.analyteid = 3088", $dbh);
$r7 = find_result(" o.ordersid in (" . $ordersid . ") and r.analyteid = 3087", $dbh);
$r5 = find_result(" o.ordersid in (" . $ordersid . ") and r.analyteid = 3086", $dbh);
$epit = find_result(" o.ordersid in (" . $ordersid . ") and r.analyteid = 3091", $dbh);
$logs = find_result(" o.ordersid in (" . $ordersid . ") and r.analyteid = 3093", $dbh);
$defs = find_result(" o.ordersid in (" . $ordersid . ") and r.analyteid = 3092", $dbh);
$epit = str_replace('*10^', 'E+', $epit);
$head = "\\SetWatermarkText{" . $watermark . "}\n";
$head .= "\\vspace{5px} \\begin{center}" . $tests . "\\end{center} \n \\vspace{-12px}\n\\begin{longtable}[h]{|m{125px}|m{70px}|p{50px}|>{\\centering }p{55px}|>{\\centering\\arraybackslash}p{65px}|m{70px}|}\n\\hline\nФилогенетическая группа & Кач. & \\footnotesize Кол-во эпит. клеток & {lg ВПЧ/\$10^5\$ клеток} & \$\\sum lg\$ ВПЧ/\$10^5\$ клеток & Клиническая значимость \\\\\n\\hline\nА5/А6 (51 и 56 типы) & " . $a5 . " & {\\multirow{3}{2cm}{ " . normalizeExp($epit) . " }} & \${" . $r5 . "}\$ & {\\multirow{3}{2cm}{ " . $logs . " }} & {\\multirow{3}{2cm}{ " . $defs . " }} \\\\\n\\cline{1-2} \\cline{4-4} \nA9 (16,31,33,35,52,58 типы) & " . $a9 . " & & \${" . $r9 . "}\$ & & \\\\\n\\cline{1-2} \\cline{4-4} \nА7 (18,39,45,59 типы) & " . $a7 . "& & \${" . $r7 . "}\$ & & \\\\\n\\hline\n";
$apprdate = find_apprdate($ordersid, $dbh);
$interpr = "\n\\flushleft \\textbf {Интерпертация клинической значимости :}\n\\vspace{-4px}\n\\flushleft Повышенная - клинически значимая, повышенная. Высокая вероятность наличия дисплазии.\n\\vspace{-4px}\n\\flushleft Малозначимая - клинически малозначимая.\n\\vspace{-4px}\n\\flushleft Значимая - клинически значима. Нельзя исключить дисплазию, существует риск развития дисплазии.";
if ($intflag != true) {
$interpr = "";
}
$end = "\\end{longtable}\n\\vspace{-15px} " . $interpr . "\n\\flushleft Комментарии:" . $comments . "\n\\vspace{-4px}\n\\flushleft Исследования проводил: " . $user . " \n\\vspace{-4px}\n\\flushleft Выпускающий врач: " . $appruser . " \n\\newline\n\\flushright Дата выдачи: " . $apprdate;
$response = $head . $results . $end;
