Пример #1
0
}
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()) {
Пример #2
0
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':
Пример #3
0
*
* 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;
    }
Пример #4
0
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;
Пример #5
0
* 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':
Пример #6
0
/**
* 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;
}
Пример #7
0
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';
Пример #8
0
/*------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();
Пример #9
0
* 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;