Стол справок Online

[insert_php] //print date(“H:i:s – d.m.Y”);

print “

Поиск пациента,

находящегося на лечении в стационаре
Городской клинической больницы № 13, по фамилии

“;

$zaprosfio=$_POST[‘zaprosfio’];
$verh_tabl=”


Результаты поиска пациента "$zaprosfio":

“;
$searchfile = “./onl/data.txt”;

if (is_file($searchfile)){
clearstatcache();
$data_faila = filemtime($searchfile)+10800;
$my_file_info1=date(“d.m.Y в H:i”,$data_faila);
$filepoiska1 = @fopen ($searchfile, “r”); // открываем файл
$skolko_v_base=0;
while (!@feof($filepoiska1)){
$read = @fgets($filepoiska1, 400);
$skolko_v_base=++$skolko_v_base;
}//Конец цикла while
@fclose($filepoiska1);
$skolko_v_base=$skolko_v_base-1;

print “

(Последнее обновление базы “.$my_file_info1.”; пациентов в базе – “.$skolko_v_base.”)

“;
}//END OF if (is_file(“$searchfile”))
else{
$skolko_v_base = 0;
}

if ($skolko_v_base!=0){
print”

Введите фамилию:

“;}
else {print”

База пациентов временно недоступна!
Пожалуйста зайдите позже.

“; exit;}

if (isset($zaprosfio))
{
$zaprosfio = substr(trim ($zaprosfio),0,29); //Отсекаем, если длина длина строки больше 30 символов

if (($zaprosfio==NULL) OR (@mb_eregi (“[^а-яА-Я]”, $zaprosfio))){
print (“

Введены неверные символы !
Повторите ввод.

“);
exit;
}

$dlinastroki = strlen ($zaprosfio);
$zaprosfio=htmlspecialchars(stripslashes($zaprosfio));

$vsego=0;
print $verh_tabl;
////////////////
$filepoiska = @fopen ($searchfile, “r”);

while (!@feof($filepoiska)) {
$read = @fgets($filepoiska, 400);
list ($fio,$otdel,$palata,$sostoyanie,$temperatura,$ves,$rost) = @spliti (‘;’,$read);

list ($f_f,$i_i,$o_o) = @spliti (‘ ‘,$fio);
$dlina_f = strlen ($f_f);

$fio1=$fio;

if($dlina_f==$dlinastroki){
$fio1 = substr($fio1,0,$dlinastroki);
}

//print “f_f=”.iconv(‘cp1251’, ‘UTF-8’, $f_f).”
“;
//”zaprosfio=”.mb_strtoupper($zaprosfio).”
“.

//if (strcasecmp($zaprosfio,$f_f)==0) {
if (mb_strtoupper($zaprosfio)==mb_strtoupper(iconv(‘cp1251’, ‘UTF-8’, $f_f))) {
print (”

“);
$vsego = ++$vsego;
}
}//END WHILE
////////////////
print (“

ФИО (дата рождения) – полОтделениеПалатаСостояниеВес, рост (для новорожденных)
“.iconv(“cp1251”, “UTF-8″, $fio).”“.iconv(“cp1251”, “UTF-8″, $otdel).”“.iconv(“cp1251”, “UTF-8″, $palata).”“.iconv(“cp1251”, “UTF-8″, $sostoyanie).”“);
if (trim($ves)!=””){print (iconv(“cp1251”, “UTF-8″, $ves).” гр., “.iconv(“cp1251”, “UTF-8″, $rost).” см”);}
print (“

“);

if ($vsego==0){
print(“

По Вашему запросу ничего не найдено.

“);
}
else {
print (“

Найдено пациентов – $vsego.

“);
}
}//END isset($zaprosfio)

[/insert_php]

Внимание! В связи с необходимостью получения от пациента согласия на размещение о нем информации в “Столе справок” больницы (а также в данном сервисе), поиск пациентов по фамилии осуществляется с учетом вышеуказанного условия.

Вводить в форму необходимо только русские буквы.
Поиск регистронезависимый, т.е. фразы Иванов, иванов, ИвАнОв для поиска идентичны.
Вводить необходимо только фамилию (полностью).
Поисковая база пациентов обновляется каждые 6 часов в автоматическом режиме.

Яндекс.Метрика

Индекс цитирования