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; }