function OutSurgery($ADBF, $ACase, $ASurgery, $AService)
{
$vSMOList = locGetSMOList();
$vDocSeries = trim(str_replace('-', ' ', $ACase['doc_series']));
$vSpacePos = strpos($vDocSeries, ' ');
if ($vSpacePos === false) {
$vSerLeft = substr($vDocSeries, 0, 2);
$vSerRight = substr($vDocSeries, 2);
} else {
$vSerLeft = substr($vDocSeries, 0, $vSpacePos);
$vSerRight = substr($vDocSeries, $vSpacePos + 1);
}
$vBornDate = $ACase['born_date'];
if (empty($vBornDate)) {
$vBornDate = '0000-00-00';
}
$vBornDate = explode('-', $vBornDate);
if ($vBornDate[0] == '0000') {
$vBornDate[0] = '1901';
}
if ($vBornDate[1] == '00') {
$vBornDate[1] = '01';
}
if ($vBornDate[2] == '00') {
$vBornDate[2] = '01';
}
$vBornDate = implode('-', $vBornDate);
$vSurgeryDate = $ASurgery['date'];
// Trace(@$ACase['insurance_company_id'].'=->'.@$vSMOList[$ACase['insurance_company_id']]);
$vFirstDoctorId = $ACase['first_doctor_id'];
$CurrDoctorId = $ASurgery['user_id'];
$vRecord = array(FormatName($ACase['last_name']), FormatName($ACase['first_name']), FormatName($ACase['patr_name']), Date2DBF($vBornDate), $ACase['is_male'] ? 'м' : 'ж', 'э', strtoupper($ACase['polis_series']), strtoupper($ACase['polis_number']), '', '', $ACase['addr_reg_street'], '', '', $ACase['addr_reg_num'], $ACase['addr_reg_subnum'], $ACase['addr_reg_apartment'], 'аТрОт', CalcAge($vBornDate, $vSurgeryDate) >= 18 ? 'в' : 'д', Date2DBF($vSurgeryDate), Date2DBF($vSurgeryDate), '1', str_replace(' ', '', $ACase['diagnosis_mkb']), false, '', $ACase['doc_type_id'], $vSerLeft, $vSerRight, $ACase['doc_number'], FormatAddress(@$ACase['addr_reg_street'], @$ACase['addr_reg_num'], @$ACase['addr_reg_subnum'], @$ACase['addr_reg_apartment']), @$ACase['id'], 1, 0, 23, 'тр.' . @$ACase['id'], 118, 118, str_replace(' ', '', $ACase['diagnosis_mkb']), '', '', 16, 31, 31, 29, 1, 1, getUserEisCode($CurrDoctorId), getUserEisCode($vFirstDoctorId), '1', '1', 0, 0, 0, 0, 3, 5, 5, 0, 2, 0, 0, 0, 0);
$vOutRecord = array();
foreach ($vRecord as $vField) {
$vOutRecord[] = iconv('UTF-8', 'CP866', $vField);
}
dbase_add_record($ADBF, $vOutRecord);
}
function FormatShortName($ALast, $AFirst, $APatr)
{
$vTmp = explode(' ', FormatName($ALast, $AFirst, $APatr));
$vResult = '';
foreach ($vTmp as $vWord) {
if ($vResult === '') {
$vResult = $vWord . ' ';
} else {
$vResult .= $vWord[0] . '.';
}
}
return $vResult;
}
