}
require_once $root_path . 'include/inc_front_chain_lang.php';
//$db->debug=true;
if (!isset($saveok)) {
$saveok = false;
}
if (!isset($mode)) {
$mode = '';
}
if (!isset($non_grouped)) {
$non_grouped = false;
}
require_once $root_path . 'include/care_api_classes/class_template.php';
$tp_obj = new Template($root_path, $template_path, $template_theme);
require_once $root_path . 'include/care_api_classes/class_drg.php';
$DRG_obj = new DRG($pn);
$toggle = 0;
$thisfile = basename($_SERVER['PHP_SELF']);
if (isset($mode)) {
/* Prepare the common data */
$_POST['history'] = "Create " . date('Y-m-d H:i:s') . " " . $_SESSION['sess_user_name'] . "\n";
//$_POST['modify_id']=$_SESSION['sess_user_name'];
$_POST['create_id'] = $_SESSION['sess_user_name'];
$_POST['create_time'] = date('YmdHis');
switch ($mode) {
case 'save':
$DRG_obj->useInternalDRGCodes();
// Set the core variables
$DRG_obj->setDataArray($_POST);
// transfer the data
if ($DRG_obj->insertDataFromInternalArray()) {
require './roots.php';
require $root_path . 'include/inc_environment_global.php';
/*
CARE2X Integrated Information System Deployment 2.1 - 2004-10-02 for Hospitals and Health Care Organizations and Services
Copyright (C) 2002,2003,2004,2005 Elpidio Latorilla & Intellin.org
GNU GPL. For details read file "copy_notice.txt".
*/
define('CATEGORY_NAME_FULL', 1);
// 1= the category names are to be displayed in full, 0 = only short codes are displayed
define('LOCALIZATION_NAME_FULL', 1);
// 1= the localization names are to be displayed in full, 0 = only short codes are displayed
define('LANG_FILE', 'drg.php');
require_once 'drg_inc_local_user.php';
require_once $root_path . 'include/inc_front_chain_lang.php';
require_once $root_path . 'include/care_api_classes/class_drg.php';
$DRG_obj = new DRG($pn);
// Create a drg object
//$db->debug=1;
$toggle = 0;
$thisfile = basename($_SERVER['PHP_SELF']);
if (isset($mode) && !empty($mode)) {
$saved_header = "location:{$thisfile}?sid={$sid}&lang={$lang}&pn={$pn}&edit={$edit}&ln={$ln}&fn={$fn}&bd={$bd}&opnr={$opnr}&group_nr={$group_nr}&dept_nr={$dept_nr}&dept_nr={$dept_nr}&oprm={$oprm}&y={$y}&m={$m}&d={$d}&display={$display}&newsave=1";
}
switch ($mode) {
case 'delete':
if ($DRG_obj->deleteProcedure($itemx)) {
header($saved_header);
exit;
}
break;
case 'update_stat':
*
* See the file "copy_notice.txt" for the licence notice
*/
if (!$pn) {
header("location:" . $root_path . "language/" . $lang . "/lang_" . $lang . "_invalid-access-warning.php?mode=close");
exit;
}
if (!isset($saveok)) {
$saveok = false;
}
define('LANG_FILE', 'drg.php');
require_once 'drg_inc_local_user.php';
//$db->debug=true;
require_once $root_path . 'include/inc_front_chain_lang.php';
require_once $root_path . 'include/care_api_classes/class_drg.php';
$DRG_obj = new DRG($pn, $dept_nr);
if ($saveok) {
switch ($target) {
case "drg_intern":
$openerfile = "drg-ops-intern.php";
break;
case "diagnosis":
$openerfile = "drg-icd10.php";
break;
case "procedure":
$openerfile = "drg-ops301.php";
break;
default:
header("location:" . $root_path . "language/" . $lang . "/lang_" . $lang . "_invalid-access-warning.php?mode=close");
exit;
}
error_reporting(E_COMPILE_ERROR | E_ERROR | E_CORE_ERROR);
require './roots.php';
require $root_path . 'include/inc_environment_global.php';
/**
* CARE2X Integrated Hospital Information System beta 2.0.1 - 2004-07-04
* GNU General Public License
* Copyright 2002,2003,2004,2005 Elpidio Latorilla
* elpidio@care2x.org,
*
* See the file "copy_notice.txt" for the licence notice
*/
$thisfile = basename($_SERVER['PHP_SELF']);
# Create DRG object
require_once $root_path . 'include/care_api_classes/class_drg.php';
$obj = new DRG();
//$db->debug=1;
if (!isset($mode)) {
$mode = 'show';
}
require './include/init_show.php';
if ($parent_admit) {
# Get the DRG records data of this encounter
$drg_obj =& $obj->encDRGList($_SESSION['sess_en']);
} else {
# Get all DRG records of this person
$drg_obj =& $obj->pidDRGList($_SESSION['sess_pid']);
}
$rows = $obj->LastRecordCount();
//echo $obj->getLastQuery();
$subtitle = $LDDRG;
* CARE2X Integrated Hospital Information System Deployment 2.1 - 2004-10-02
* GNU General Public License
* Copyright 2002,2003,2004,2005 Elpidio Latorilla
* elpidio@care2x.org,
*
* See the file "copy_notice.txt" for the licence notice
*/
define('CATEGORY_NAME_FULL', 1);
// 1= the category names are to be displayed in full, 0 = only short codes are displayed
define('LOCALIZATION_NAME_FULL', 1);
// 1= the localization names are to be displayed in full, 0 = only short codes are displayed
define('LANG_FILE', 'drg.php');
require_once 'drg_inc_local_user.php';
require_once $root_path . 'include/inc_front_chain_lang.php';
require_once $root_path . 'include/care_api_classes/class_drg.php';
$DRG_obj = new DRG($pn);
// Create a drg object
//$db->debug=1;
$toggle = 0;
$thisfile = basename($_SERVER['PHP_SELF']);
if (isset($mode) && !empty($mode)) {
$saved_header = "location:{$thisfile}?sid={$sid}&lang={$lang}&pn={$pn}&edit={$edit}&ln={$ln}&fn={$fn}&bd={$bd}&opnr={$opnr}&group_nr={$group_nr}&dept_nr={$dept_nr}&oprm={$oprm}&y={$y}&m={$m}&d={$d}&display={$display}&newsave=1";
}
switch ($mode) {
case 'delete':
if ($DRG_obj->deleteDiagnosis($itemx)) {
header($saved_header);
exit;
}
break;
case 'update_stat':
/**
* CARE2X Integrated Hospital Information System Deployment 2.1 - 2004-10-02
* GNU General Public License
* Copyright 2002,2003,2004,2005 Elpidio Latorilla
* elpidio@care2x.org,
*
* See the file "copy_notice.txt" for the licence notice
*/
$lang_tables[] = 'prompt.php';
define('LANG_FILE', 'drg.php');
require_once 'drg_inc_local_user.php';
require_once $root_path . 'include/inc_front_chain_lang.php';
/* Load the date formatter */
require_once $root_path . 'include/inc_date_format_functions.php';
require_once $root_path . 'include/care_api_classes/class_drg.php';
$enc_obj = new DRG($pn);
//$db->debug=true;
if (isset($mode) && $mode == 'save_group' && isset($group_nr) && $group_nr) {
$enc_obj->groupNonGroupedItems($group_nr);
header("location:{$thisfile}?sid={$sid}&lang={$lang}&saveok=1&pn={$pn}&opnr={$opnr}&group_nr={$group_nr}&edit={$edit}&is_discharged={$is_discharged}&ln={$ln}&fn={$fn}&dept_nr={$dept_nr}&oprm={$oprm}&display={$display}");
exit;
}
$toggle = 0;
$thisfile = basename($_SERVER['PHP_SELF']);
if (isset($mode) && $mode == 'delete' && $item) {
$buf = $enc_obj->ungroupDiagnoses($group_nr);
$buf2 = $enc_obj->ungroupProcedures($group_nr);
$enc_obj->deleteEncounterDRGGroup($item);
header("location:{$thisfile}?sid={$sid}&lang={$lang}&pn={$pn}&opnr={$opnr}&group_nr=0&edit={$edit}&is_discharged={$is_discharged}&ln={$ln}&fn={$fn}&dept_nr={$dept_nr}&oprm={$oprm}&display={$display}");
exit;
}
if ($saveok) {
?>
<script language="javascript" >
window.opener.parent.location.href='<?php
echo "drg-composite-start.php?sid={$sid}&lang={$lang}&pn={$pn}&opnr={$opnr}&edit=1&ln={$ln}&fn={$fn}&bd={$bd}&group_nr={$group_nr}&dept_nr={$dept_nr}&oprm={$oprm}&y={$y}&m={$m}&d={$d}&display=composite&newsave=1";
?>
';
window.close();
</script>
<?php
exit;
}
require_once $root_path . 'include/care_api_classes/class_drg.php';
$DRG_obj = new DRG($pn);
// Create a drg object
$toggle = 0;
$thisfile = 'drg-related-codes.php';
if ($mode == 'save') {
$save_related = 1;
# Save first the related diagnosis codes
$target = 'icd10';
$element = 'icd_code';
$element_related = 'related_icd';
$itemselector = 'icd';
$hidselector = 'icd_px';
$lastindex = $last_icd_index;
$noheader = true;
# Disable the redirect
include $root_path . 'include/inc_drg_entry_save.php';
/*------end------*/
require_once $root_path . 'include/care_api_classes/class_drg.php';
# Bug patch 2003-06-19
if (is_object($DRG_obj)) {
unset($DRG_obj);
}
$multiple_save = true;
$saveok = 0;
if (!isset($group_nr)) {
$group_nr = 0;
}
if (!isset($opnr)) {
$opnr = 0;
}
# Bug patch 2003-06-19
$DRG_obj = new DRG($pn);
// Create a drg object
# Prepare the common data
$data['encounter_nr'] = $pn;
$data['date'] = date('Y-m-d H:i:s');
$data['op_nr'] = $opnr;
$data['group_nr'] = $group_nr;
$data['category_nr'] = 99;
// This is a dummy entry to force the new entries to appear below the current entries in the table
$data['history'] = "Create " . date('Y-m-d H:i:s') . " " . $_SESSION['sess_user_name'] . "\n";
$data['modify_id'] = $_SESSION['sess_user_name'];
$data['create_id'] = $_SESSION['sess_user_name'];
$data['create_time'] = date('YmdHis');
switch ($element) {
case 'icd_code':
$data['code_version'] = $DRG_obj->ICDVersion();
* GNU General Public License
* Copyright 2002,2003,2004,2005 Elpidio Latorilla
* elpidio@care2x.org,
*
* See the file "copy_notice.txt" for the licence notice
*/
define('LANG_FILE', 'drg.php');
require_once 'drg_inc_local_user.php';
//$db->debug=1;
require_once $root_path . 'include/inc_front_chain_lang.php';
if (!isset($pn) || !$pn) {
header("location:../language/" . $lang . "/lang_" . $lang . "_invalid-access-warning.php?mode=close");
exit;
}
require_once $root_path . 'include/care_api_classes/class_drg.php';
$drg_obj = new DRG($pn);
if ($saveok) {
?>
<script language="javascript" >
window.opener.location.replace('drg-ops-intern.php?sid=<?php
echo "{$sid}&lang={$lang}&pn={$pn}&opnr={$opnr}&group_nr={$group_nr}&edit={$edit}&ln={$ln}&fn={$fn}&bd={$bd}&dept_nr={$dept_nr}&oprm={$oprm}&y={$y}&m={$m}&d={$d}&display=composite&newsave=1";
?>
');
//window.opener.parent.INTERN.location.reload();
window.close();
</script>
<?php
exit;
}
//$db->debug=true;
$toggle = 0;