define('LANG_FILE', 'aufnahme.php');
//define('NO_2LEVEL_CHK',1);
//define('NO_CHAIN',TRUE);
$local_user = '******';
require_once $root_path . 'include/inc_front_chain_lang.php';
require_once $root_path . 'include/inc_date_format_functions.php';
require_once $root_path . 'include/care_api_classes/class_encounter.php';
include_once $root_path . 'include/inc_t1ps_ar2uni.php';
# Get the encouter data
$enc_obj = new Encounter($enc);
if ($enc_obj->loadEncounterData()) {
$encounter = $enc_obj->getLoadedEncounterData();
//extract($encounter);
}
# Fetch insurance and encounter classes
$encounter_class = $enc_obj->getEncounterClassInfo($encounter['encounter_class_nr']);
$insurance_class = $enc_obj->getInsuranceClassInfo($encounter['insurance_class_nr']);
# Resolve the encounter class name
if (isset(${$encounter_class}['LD_var']) && !empty(${$encounter_class}['LD_var'])) {
$eclass = ${$encounter_class}['LD_var'];
} else {
$eclass = $encounter_class['name'];
}
# Resolve the insurance class name
if (isset(${$insurance_class}['LD_var']) && !empty(${$insurance_class}['LD_var'])) {
$insclass = ${$insurance_class}['LD_var'];
} else {
$insclass = $insurance_class['name'];
}
# Get ward or department infos
if ($encounter['encounter_class_nr'] == 1) {
}
$encounter_obj->loadEncounterData();
if ($encounter_obj->is_loaded) {
$row =& $encounter_obj->encounter;
//load data
//while(list($x,$v)=each($row)) $$x=$v;
extract($row);
# Set edit mode
if (!$is_discharged) {
$edit = true;
} else {
$edit = false;
}
# Fetch insurance and encounter classes
$insurance_class =& $encounter_obj->getInsuranceClassInfo($insurance_class_nr);
$encounter_class =& $encounter_obj->getEncounterClassInfo($encounter_class_nr);
//if($data_obj=&$person_obj->getAllInfoObject($pid))
$list = 'title,name_first,name_last,name_2,name_3,name_middle,name_maiden,name_others,date_birth,
sex,addr_str,addr_str_nr,addr_zip,addr_citytown_nr,photo_filename';
$person_obj->setPID($pid);
if ($row =& $person_obj->getValueByList($list)) {
//while(list($x,$v)=each($row)) $$x=$v;
extract($row);
}
$addr_citytown_name = $person_obj->CityTownName($addr_citytown_nr);
$encoder = $encounter_obj->RecordModifierID();
# Get current encounter to check if current encounter is this encounter nr
$current_encounter = $person_obj->CurrentEncounter($pid);
# Get the overall status
if ($stat =& $encounter_obj->AllStatus($encounter_nr)) {
$enc_status = $stat->FetchRow();
