<?php
$results = "";
//блок биохимических исследований
$biochemtests = array('792', '791', '821', '806');
$biochemlst = implode(",", $biochemtests);
$biochemistry = get_form_6($ordersid, $biochemtests, $dbh);
//а теперь просто собираем отчет.
$biomat = find_biomat_tests($ordersid, $biochemlst, $dbh);
$head = "\\SetWatermarkText{" . $watermark . "}\n";
$head .= "\\vspace{-10px} \\flushleft \\normalsize Биоматериал: " . $biomat . "\n\n\\vspace{-3px}";
$head .= "\\begin{center} \\large \\textbf{«Онкологический поиск у женщин»} \\end{center}\n\n\\vspace{-0.3cm}";
$head .= $biochemistry . "\n\n";
//исследования проводили...
$end = "\\vspace{0.5cm}\\normalsize Исследования проводили: " . getApprUserTests($ordersid, $biochemlst, $dbh) . "\n\n";
$apprdate = find_apprdate($ordersid, $dbh);
$end .= "\\flushright Дата выдачи: " . $apprdate;
$response = $head . $end;
function form33($orders, $dbh, $crd)
{
$curdate = date("m.d.Y");
$ordersid = "";
$n = count($orders);
for ($i = 1; $i < $n; $i++) {
$ordersid .= $orders[$i];
if ($i != $n - 1) {
$ordersid .= ",";
}
}
$results = "";
$stmt = "select p.panel, o.id from orders o inner join panels p on p.id = o.panelid where o.status in ('O','E') and o.id in (" . $ordersid . ") ";
$result = ibase_query($dbh, $stmt);
while ($row = ibase_fetch_row($result)) {
$restm = "select count(*) from ordtask where ordersid = " . $row[1] . " and apprsts = 'T' ";
$res = ibase_query($dbh, $restm);
$n = ibase_fetch_row($res);
$n = $n[0];
ibase_free_result($res);
if ($n == 1) {
$restm = "select a.analyte, case a.analtype when 3 then replace(r.finalresult,'.',',') else r.finalresult end, u.short, r.charlimits, r.status from results r inner join units u on u.id = r.unit inner join analytes a on a.id = r.analyteid inner join ordtask ord on ord.id = r.ordtaskid where ord.ordersid = " . $row[1] . " and finalresult is not null ";
$res = ibase_query($dbh, $restm);
$row = ibase_fetch_row($res);
$ress = $row[1];
if ($row[4] == "O") {
$ress = "\\textbf{" . $row[1] . "}";
}
$results .= "\\textbf{" . $row[0] . "} & " . $ress . " & " . $row[2] . " \\\\ \n";
$results .= "\\hline" . "\n";
ibase_free_result($res);
} else {
$results .= "\\textbf{" . $row[0] . "} & & \\\\ \n\\hline \n";
$restm = "select a.analyte, case a.analtype when 3 then replace(r.finalresult,'.',',') else r.finalresult end, coalesce(u.short, ' '), coalesce(r.charlimits, ' '), r.status from results r inner join units u on u.id = r.unit inner join analytes a on a.id = r.analyteid inner join ordtask ord on ord.id = r.ordtaskid where ord.ordersid = " . $row[1] . " and finalresult is not null order by a.analyte";
$res = ibase_query($dbh, $restm);
while ($row = ibase_fetch_row($res)) {
$unit = $row[2];
//$unit = str_replace('%','\\%',$row[2]);
//$unit = str_replace('^','\\^{}',$unit);
$charlimits = str_replace('%', '\\%', $row[3]);
$charlimits = str_replace('^', '\\^{}', $charlimits);
$ress = $row[1];
if ($row[4] == "O") {
$ress = "\\textbf{" . $row[1] . "}";
}
$results .= "~ " . $row[0] . " & " . $ress . " & " . $unit . " \\\\ \n";
$results .= "\\hline" . "\n";
}
ibase_free_result($res);
}
}
$user = "";
$restm = "select distinct coalesce(u.fullname, '') from users u inner join results r on r.usernam = u.usernam inner join ordtask o on o.id = r.ordtaskid inner join orders ord on ord.id = o.ordersid where ord.id in (" . $ordersid . ") ";
$res = ibase_query($dbh, $restm);
while ($row = ibase_fetch_row($res)) {
$user .= $row[0];
}
ibase_free_result($res);
$appruser = "";
$restm = "select distinct u.fullname from ordtask o inner join users u on u.usernam = o.appruser where o.ordersid in(" . $ordersid . ")";
$res = ibase_query($dbh, $restm);
while ($row = ibase_fetch_row($res)) {
$appruser .= $row[0];
}
ibase_free_result($res);
$comments = "";
$restm = "select distinct f.comments from foldercomments f inner join orders o on o.folderno = f.folderno where o.id in(" . $ordersid . ") and f.flag = 'Y' order by f.id";
$res = ibase_query($dbh, $restm);
while ($row = ibase_fetch_row($res)) {
$comments .= "\\small \\quad " . $row[0] . "\n\n";
}
ibase_free_result($res);
$biomat = find_biomat($ordersid, $dbh);
$head = "\\vspace{-10px} \\flushleft \\normalsize Биоматериал: " . $biomat . "\n\n\\vspace{3px}";
$head .= "\n\\begin{longtable}[h]{|m{290px}|>{\\centering\\arraybackslash}p{100px}|m{60px}|}\n\\hline\nНазвание испытания & Результат & Единицы измерения \\\\\n\\hline";
$end = "\\end{longtable}\n\\vspace{-15px}\n\\flushleft Интерпретация классов: 0 - антитела не обнаружены; 1 - низкий уровень антител; 2 - средний уровень антител; 3 - высокий уровень антител; 4 и выше - очень высокий уровень антител";
$apprdate = find_apprdate($ordersid, $dbh);
//$end .= $apprdate;
$end .= "\n\\vspace{-4px}\n\\flushleft Комментарии:" . $comments . "\n\\flushleft Исследования проводил: " . $user . " \n\\vspace{-4px}\n\\flushleft Выпускающий врач: " . $appruser . " \n\\newline\n\\flushright Дата выдачи: " . $apprdate;
return $head . $results . $end;
}
function form30($orders, $dbh, $crd)
{
$curdate = date("m.d.Y");
$ordersid = "";
$n = count($orders);
for ($i = 1; $i < $n; $i++) {
$ordersid .= $orders[$i];
if ($i != $n - 1) {
$ordersid .= ",";
}
}
$results = "";
$stmt = "select t.testname, t.id, o.id from ordtask o inner join tests t on t.id = o.testcode inner join orders ord on ord.id = o.ordersid inner join panels p on p.id = ord.panelid where ord.id in (" . $ordersid . ") order by p.priority ";
$result = ibase_query($dbh, $stmt);
while ($row = ibase_fetch_row($result)) {
$restm = "select count(*) from results where ordtaskid = " . $row[2] . " and finalresult is not null and status in ('O','E') and show = 'Y'";
$res = ibase_query($dbh, $restm);
$n = ibase_fetch_row($res);
$n = $n[0];
ibase_free_result($res);
if ($n == 1) {
$restm = "select a.analyte, case a.analtype when 3 then replace(r.finalresult,'.',',') else coalesce(pos.inreport, r.finalresult) end, u.short, r.charlimits, r.status from results r left join units u on u.id = r.unit inner join analytes a on a.id = r.analyteid left join possibleresults pos on pos.analyte = r.analyteid and r.rawresult = pos.result where r.ordtaskid = " . $row[2] . " and finalresult is not null order by a.sorter ";
$res = ibase_query($dbh, $restm);
$row = ibase_fetch_row($res);
$ress = $row[1];
if ($row[4] == "O") {
$ress = "\\textbf{" . $row[1] . "}";
}
$row[0] = str_replace('%', '\\%', $row[0]);
$row[0] = str_replace('β', '$\\beta$', $row[0]);
$results .= "\\textbf{" . $row[0] . "} & " . $ress . " & " . $row[2] . " & " . $row[3] . " \\\\ \n";
$results .= "\\hline" . "\n";
ibase_free_result($res);
} else {
$row[0] = str_replace('%', '\\%', $row[0]);
$row[0] = str_replace('β', '$\\beta$', $row[0]);
$results .= "\\textbf{" . $row[0] . "} & & & \\\\ \n\\hline \n";
$restm = "select a.analyte, case a.analtype when 3 then replace(r.finalresult,'.',',') else coalesce(pos.inreport, r.finalresult) end, coalesce(u.short, ' '), coalesce(r.charlimits, ' '), r.status from results r left join units u on u.id = r.unit inner join analytes a on a.id = r.analyteid left join possibleresults pos on pos.analyte = r.analyteid and pos.result = r.rawresult where r.ordtaskid = " . $row[2] . " and finalresult is not null order by a.sorter";
$res = ibase_query($dbh, $restm);
while ($row = ibase_fetch_row($res)) {
$unit = $row[2];
//$unit = str_replace('%','\\%',$row[2]);
//$unit = str_replace('^','\\^{}',$unit);
$charlimits = str_replace('%', '\\%', $row[3]);
$charlimits = str_replace('^', '\\^{}', $charlimits);
$ress = $row[1];
if ($row[4] == "O") {
$ress = "\\textbf{" . $row[1] . "}";
}
$results .= "~ \\footnotesize " . $row[0] . " & \\footnotesize " . $ress . " & \\footnotesize " . $unit . " & \\footnotesize " . $charlimits . " \\\\ \n";
$results .= "\\hline" . "\n";
}
ibase_free_result($res);
}
}
$user = "";
$restm = "select distinct coalesce(u.fullname, '') from users u inner join results r on r.usernam = u.usernam inner join ordtask o on o.id = r.ordtaskid inner join orders ord on ord.id = o.ordersid where ord.id in (" . $ordersid . ") ";
$res = ibase_query($dbh, $restm);
while ($row = ibase_fetch_row($res)) {
$user .= $row[0];
}
ibase_free_result($res);
$appruser = "";
$restm = "select distinct u.fullname from ordtask o inner join users u on u.usernam = o.appruser where o.ordersid in(" . $ordersid . ")";
$res = ibase_query($dbh, $restm);
while ($row = ibase_fetch_row($res)) {
$appruser .= $row[0] . " ";
}
ibase_free_result($res);
$comments = "";
$restm = "select distinct f.comments from foldercomments f inner join orders o on o.folderno = f.folderno where o.id in(" . $ordersid . ") and f.flag = 'Y' order by f.id";
$res = ibase_query($dbh, $restm);
while ($row = ibase_fetch_row($res)) {
$comments .= "\\small \\quad " . $row[0] . "\n\n";
}
ibase_free_result($res);
$biomat = find_biomat($ordersid, $dbh);
$panelname = find_panel($ordersid, $dbh);
$head = "\\vspace{-10px} \\flushleft \\normalsize Биоматериал: " . $biomat . "\n\n\\vspace{3px}";
$head .= "\n\n\\vspace{1px}";
$head .= "\\begin{center} ";
$head .= "\\textbf{" . $panelname . "}\\end{center} \n\n\\vspace{-5px}";
$head .= "\n\\begin{longtable}[h]{|m{160px}|>{\\centering\\arraybackslash}p{100px}|m{60px}|m{112px}|}\n\\hline\nИсследование & Результат & Единицы \\newline измерения & Референты \\\\\n\\hline";
$apprdate = find_apprdate($ordersid, $dbh);
$comments = str_replace('%', '\\%', $comments);
$end = "\\end{longtable}\n\\vspace{-15px}\n\\flushleft Комментарии:" . $comments . "\n\\vspace{-4px}\n\\flushleft Исследования проводил: " . $user . " \n\\vspace{-4px}\n\\flushleft Выпускающий врач: " . $appruser . " \n\\newline\n\\flushright Дата выдачи: " . $apprdate;
return $head . $results . $end;
}
$results .= micro_triple($ordersid, $dbh);
break;
case 4:
$results .= micro_four($ordersid, $dbh);
break;
default:
$results .= micro_single($ordersid, $dbh);
break;
}
$user = "";
$restm = "select distinct u.fullname from resultsmicro r inner join ordtask o on o.id = r.ordtaskid inner join users u on u.usernam = r.by_user where o.ordersid in (" . $ordersid . ") ";
$res = ibase_query($dbh, $restm);
while ($row = ibase_fetch_row($res)) {
$user .= $row[0];
}
ibase_free_result($res);
$appruser = getApprUser($ordersid, $dbh);
$biomat = find_biomat($ordersid, $dbh);
$panelname = find_panel($ordersid, $dbh);
$head = "\\SetWatermarkText{" . $watermark . "}\n";
$head .= "\\vspace{-10px} \\flushleft \\normalsize Биоматериал: " . $biomat . "\n\n\\vspace{3px}";
$head .= "\\vspace{3px} \\begin{center}\\textbf{" . $panelname . "}\n\n\\vspace{-3px}\\end{center}";
$comments = "";
$restm = "select distinct comments from orders where id in(" . $ordersid . ")";
$res = ibase_query($dbh, $restm);
while ($row = ibase_fetch_row($res)) {
$comments .= "\\small \\quad " . $row[0] . "\n\n";
}
ibase_free_result($res);
$end = "\\end{longtable}\n\\vspace{-15px}\n\\flushleft Комментарии:" . $comments . "\n\\vspace{-4px}\n\\flushleft Исследования проводил: " . $user . " \n\\vspace{-4px}\n\\flushleft Выпускающий врач: " . $appruser . " \n\\newline\n\\flushright Дата выдачи: " . find_apprdate($ordersid, $dbh);
$response = $head . $results . $end;
