PHP newEvent函数代码示例

function setpid($new_pid)
{
    global $pid;
    $_SESSION['pid'] = $new_pid;
    $pid = $new_pid;
    newEvent("view", $_SESSION["authUser"], $_SESSION["authProvider"], 1, $pid);
}

function row_modify($table, $set, $where)
{
    if (sqlQuery("SELECT * FROM {$table} WHERE {$where}")) {
        newEvent("deactivate", $_SESSION['authUser'], $_SESSION['authProvider'], 1, "{$table}: {$where}");
        $query = "UPDATE {$table} SET {$set} WHERE {$where}";
        echo $query . "<br>\n";
        sqlStatement($query);
    }
}

function rhl7LogMsg($msg, $fatal = true)
{
    // global $rhl7_return, $rhl7_segnum;
    $rhl7_return['mssgs'][] = $msg;
    if ($fatal) {
        $rhl7_return['fatal'] = true;
        newEvent("lab-results-error", $_SESSION['authUser'], $_SESSION['authProvider'], 0, $msg);
    }
    return $rhl7_return;
}

function rhl7LogMsg($msg, $fatal = true)
{
    global $rhl7_return;
    if ($fatal) {
        $rhl7_return['mssgs'][] = '*' . $msg;
        $rhl7_return['fatal'] = true;
        newEvent("lab-results-error", $_SESSION['authUser'], $_SESSION['authProvider'], 0, $msg);
    } else {
        $rhl7_return['mssgs'][] = '>' . $msg;
    }
    return $rhl7_return;
}

function row_delete($table, $where)
{
    $tres = sqlStatement("SELECT * FROM {$table} WHERE {$where}");
    $count = 0;
    while ($trow = sqlFetchArray($tres)) {
        $logstring = "";
        foreach ($trow as $key => $value) {
            if (!$value || $value == '0000-00-00 00:00:00') {
                continue;
            }
            if ($logstring) {
                $logstring .= " ";
            }
            $logstring .= $key . "='" . addslashes($value) . "'";
        }
        newEvent("delete", $_SESSION['authUser'], $_SESSION['authProvider'], 1, "{$table}: {$logstring}");
        ++$count;
    }
    if ($count) {
        $query = "DELETE FROM {$table} WHERE {$where}";
        echo $query . "<br>\n";
        sqlStatement($query);
    }
}

//.........这里部分代码省略.........
    }
    @fwrite($fp, "AUTH {$phimail_username} {$phimail_password}\n");
    fflush($fp);
    $ret = fgets($fp, 256);
    if ($ret != "OK\n") {
        fwrite($fp, "BYE\n");
        fclose($fp);
        return "{$config_err} 4";
    }
    fwrite($fp, "TO {$recipient}\n");
    fflush($fp);
    $ret = fgets($fp, 256);
    if ($ret != "OK\n") {
        fwrite($fp, "BYE\n");
        fclose($fp);
        return xl("Delivery is not currently permitted to the specified Direct Address.");
    }
    $ret = fgets($fp, 1024);
    //ignore extra server data
    if ($requested_by == "patient") {
        $text_out = xl("Delivery of the attached clinical document was requested by the patient.");
    } else {
        $text_out = xl("A clinical document is attached.");
    }
    $text_len = strlen($text_out);
    fwrite($fp, "TEXT {$text_len}\n");
    fflush($fp);
    $ret = @fgets($fp, 256);
    if ($ret != "BEGIN\n") {
        fwrite($fp, "BYE\n");
        fclose($fp);
        return "{$config_err} 5";
    }
    fwrite($fp, $text_out);
    fflush($fp);
    $ret = @fgets($fp, 256);
    if ($ret != "OK\n") {
        fwrite($fp, "BYE\n");
        fclose($fp);
        return "{$config_err} 6";
    }
    $ccd_out = $ccd->saveXml();
    $ccd_len = strlen($ccd_out);
    fwrite($fp, "CDA {$ccd_len}\n");
    fflush($fp);
    $ret = fgets($fp, 256);
    if ($ret != "BEGIN\n") {
        fwrite($fp, "BYE\n");
        fclose($fp);
        return "{$config_err} 7";
    }
    fwrite($fp, $ccd_out);
    fflush($fp);
    $ret = fgets($fp, 256);
    if ($ret != "OK\n") {
        fwrite($fp, "BYE\n");
        fclose($fp);
        return "{$config_err} 8";
    }
    fwrite($fp, "SEND\n");
    fflush($fp);
    $ret = fgets($fp, 256);
    fwrite($fp, "BYE\n");
    fclose($fp);
    if ($requested_by == "patient") {
        $reqBy = "portal-user";
        $sql = "SELECT id FROM users WHERE username='portal-user'";
        if (($r = sqlStatementNoLog($sql)) === FALSE || ($u = sqlFetchArray($r)) === FALSE) {
            $reqID = 1;
            //default if we don't have a service user
        } else {
            $reqID = $u['id'];
        }
    } else {
        $reqBy = $_SESSION['authUser'];
        $reqID = $_SESSION['authUserID'];
    }
    if (substr($ret, 5) == "ERROR") {
        //log the failure
        newEvent("transmit-ccd", $reqBy, $_SESSION['authProvider'], 0, $ret, $pid);
        return xl("The message could not be sent at this time.");
    }
    /**
     * If we get here, the message was successfully sent and the return
     * value $ret is of the form "QUEUED recipient message-id" which
     * is suitable for logging. 
     */
    $msg_id = explode(" ", trim($ret), 4);
    if ($msg_id[0] != "QUEUED" || !isset($msg_id[2])) {
        //unexpected response
        $ret = "UNEXPECTED RESPONSE: " . $ret;
        newEvent("transmit-ccd", $reqBy, $_SESSION['authProvider'], 0, $ret, $pid);
        return xl("There was a problem sending the message.");
    }
    newEvent("transmit-ccd", $reqBy, $_SESSION['authProvider'], 1, $ret, $pid);
    $adodb = $GLOBALS['adodb']['db'];
    $sql = "INSERT INTO direct_message_log (msg_type,msg_id,sender,recipient,status,status_ts,patient_id,user_id) " . "VALUES ('S', ?, ?, ?, 'S', NOW(), ?, ?)";
    $res = @sqlStatementNoLog($sql, array($msg_id[2], $phimail_username, $recipient, $pid, $reqID));
    return "SUCCESS";
}

<?php

include "functionsClasses.php";
//functionen Includieren
// pr�fen ob Passwort und user name eingebebn wurd und obs richtig ist
if (isset($_POST["userpass"]) and isset($_POST["username"]) and $_POST["username"] != "") {
    session_register("username");
    // Userid in Session speichern
    $_SESSION['username'] = $_POST["username"];
    $name = $_SESSION['username'];
    UserDBConnect();
    if (UserDBCheck_user($_POST["username"], $_POST["userpass"]) == true) {
        //Beim ersten Pageload sind nur die schon vorhandne Events zum anzeigen
        //beim erneuten Pageload neue mit eintragen
        if (isset($POST["beschreibung"]) and isset($POST["jahr"]) and isset($POST["monat"]) and isset($POST["tag"]) and isset($POST["zeit"]) and $_POST["beschreibung"] != "" and $_POST["jahr"] != "" and $_POST["monat"] != "" and $_POST["tag"] != "" and $_POST["zeit"] != "") {
            //Neuen Event eintragen
            newEvent($POST["beschreibung"], $POST["jahr"], $POST["monat"], $POST["tag"], $_POST["zeit"]);
        } else {
            include "home_box.php";
        }
    } else {
        include "error_box.php";
    }
} else {
    //Calendar neu laden
    inOrdnung($name);
}
?>

// $FEE_SHEET_COLUMNS should be defined in codes.php.
if (empty($FEE_SHEET_COLUMNS)) {
    $FEE_SHEET_COLUMNS = 2;
}
// Update price level in patient demographics if it's changed.
if (!empty($_POST['pricelevel'])) {
    $fs->updatePriceLevel($_POST['pricelevel']);
}
$current_checksum = $fs->visitChecksum();
// It's important to look for a checksum mismatch even if we're just refreshing
// the display, otherwise the error goes undetected on a refresh-then-save.
if (isset($_POST['form_checksum'])) {
    if ($_POST['form_checksum'] != $current_checksum) {
        $alertmsg = xl('Someone else has just changed this visit. Please cancel this page and try again.');
        $comment = "CHECKSUM ERROR, expecting '{$_POST['form_checksum']}'";
        newEvent("checksum", $_SESSION['authUser'], $_SESSION['authProvider'], 1, $comment, $pid);
    }
}
if (!$alertmsg && ($_POST['bn_save'] || $_POST['bn_save_close'])) {
    $alertmsg = $fs->checkInventory($_POST['prod']);
}
// If Save or Save-and-Close was clicked, save the new and modified billing
// lines; then if no error, redirect to $GLOBALS['form_exit_url'].
//
if (!$alertmsg && ($_POST['bn_save'] || $_POST['bn_save_close'])) {
    $main_provid = 0 + $_POST['ProviderID'];
    $main_supid = 0 + $_POST['SupervisorID'];
    $fs->save($_POST['bill'], $_POST['prod'], $main_provid, $main_supid, $_POST['default_warehouse'], $_POST['bn_save_close']);
    // Note: Taxes are computed at checkout time (in pos_checkout.php which
    // also posts to SL).  Currently taxes with insurance claims make no sense,
    // so for now we'll ignore tax computation in the insurance billing logic.

    }
}
if ($form_step == 7) {
    // create the final compressed tar containing all files
    $form_status .= xl('Backup file has been created. Will now send download.') . "<br />";
    echo nl2br($form_status);
    $cur_dir = getcwd();
    chdir($BACKUP_DIR);
    $file_list = array('.');
    if (!create_tar_archive($TAR_FILE_PATH, '', $file_list)) {
        die(xl("Error: Unable to create downloadable archive"));
    }
    chdir($cur_dir);
    /* To log the backup event */
    if ($GLOBALS['audit_events_backup']) {
        newEvent("backup", $_SESSION['authUser'], $_SESSION['authProvider'], 0, "Backup is completed");
    }
    $auto_continue = true;
}
if ($form_step == 101) {
    echo xl('Select the configuration items to export') . ":";
    echo "<br />&nbsp;<br />\n";
    echo "<input type='checkbox' name='form_cb_services' value='1' />\n";
    echo " " . xl('Services') . "<br />\n";
    echo "<input type='checkbox' name='form_cb_products' value='1' />\n";
    echo " " . xl('Products') . "<br />\n";
    echo "<input type='checkbox' name='form_cb_lists' value='1' />\n";
    echo " " . xl('Lists') . "<br />\n";
    echo "<input type='checkbox' name='form_cb_layouts' value='1' />\n";
    echo " " . xl('Layouts') . "<br />\n";
    echo "<input type='checkbox' name='form_cb_prices' value='1' />\n";

    // If requested, link the issue to a specified encounter.
    if ($thisenc) {
        $query = "INSERT INTO issue_encounter ( " . "pid, list_id, encounter " . ") VALUES ( " . "'{$thispid}', '{$issue}', '{$thisenc}'" . ")";
        sqlStatement($query);
    }
    $tmp_title = $ISSUE_TYPES[$text_type][2] . ": {$form_begin} " . substr($_POST['form_title'], 0, 40);
    // Close this window and redisplay the updated list of issues.
    //
    reload_close($info_msg, $issue, $tmp_title);
} else {
    if ($_POST['form_reconcile']) {
        if ($issue) {
            $query = "UPDATE lists SET " . "reconcilestatus = '" . $_POST['form_reconcilestatus'] . "', " . "reconcilenote = '" . $_POST['form_reconcilenote'] . "', " . "reconciledate = NOW() " . "WHERE id = '{$issue}'";
            sqlStatement($query);
        }
        newEvent('patient-medication-reconcile-update', $_SESSION['user'], $_SESSION['authProvider'], 1, $query);
        if ($GLOBALS['reconcile_in_pnotes']) {
            addPnote($thispid, "{$_SESSION['user']} has reconciled {$_POST['form_title']} with status '{$_POST['form_reconcilestatus']}' and note '{$_POST['form_reconcilenote']}'", 1, 1, 'Pharmacy');
        }
        reload_close($info_msg, $issue, $tmp_title);
    }
}
$irow = array();
if ($issue) {
    $irow = sqlQuery("SELECT * FROM lists WHERE id = {$issue}");
} else {
    if ($thistype) {
        $irow['type'] = $thistype;
    }
}
$type_index = 0;

        if ($noteid) {
            updatePnote($noteid, $note, $_POST['form_note_type'], $_POST['assigned_to']);
        } else {
            $noteid = addPnote($patient_id, $note, $userauthorized, '1', $_POST['form_note_type'], $_POST['assigned_to']);
        }
        if ($docid) {
            setGpRelation(1, $docid, 6, $noteid);
        }
        if ($orderid) {
            setGpRelation(2, $orderid, 6, $noteid);
        }
        $noteid = '';
    } elseif ($mode == "delete") {
        if ($noteid) {
            deletePnote($noteid);
            newEvent("delete", $_SESSION['authUser'], $_SESSION['authProvider'], 1, "pnotes: id " . $noteid);
        }
        $noteid = '';
    }
}
$title = '';
$assigned_to = $_SESSION['authUser'];
if ($noteid) {
    $prow = getPnoteById($noteid, 'title,assigned_to,body');
    $title = $prow['title'];
    $assigned_to = $prow['assigned_to'];
}
// Get the users list.  The "Inactive" test is a kludge, we should create
// a separate column for this.
$ures = sqlStatement("SELECT username, fname, lname FROM users " . "WHERE username != '' AND active = 1 AND " . "( info IS NULL OR info NOT LIKE '%Inactive%' ) " . "ORDER BY lname, fname");
$pres = getPatientData($patient_id, "lname, fname");

include_once "{$srcdir}/pnotes.inc";
include_once "{$srcdir}/transactions.inc";
include_once "{$srcdir}/lists.inc";
include_once "{$srcdir}/patient.inc";
include_once "{$srcdir}/options.inc.php";
// The number of authorizations to display in the quick view:
// MAR 20041008 the full authorizations screen sucks... no links to the patient charts
// increase to a high number to make the mini frame more useful.
$N = 50;
$atemp = sqlQuery("SELECT see_auth FROM users WHERE username = ?", array($_SESSION['authUser']));
$see_auth = $atemp['see_auth'];
$imauthorized = $_SESSION['userauthorized'] || $see_auth > 2;
// This authorizes everything for the specified patient.
if (isset($_GET["mode"]) && $_GET["mode"] == "authorize" && $imauthorized) {
    $retVal = getProviderId($_SESSION['authUser']);
    newEvent("authorize", $_SESSION["authUser"], $_SESSION["authProvider"], 1, $_GET["pid"]);
    sqlStatement("update billing set authorized=1 where pid=?", array($_GET["pid"]));
    sqlStatement("update forms set authorized=1 where pid=?", array($_GET["pid"]));
    sqlStatement("update pnotes set authorized=1 where pid=?", array($_GET["pid"]));
    sqlStatement("update transactions set authorized=1 where pid=?", array($_GET["pid"]));
}
?>
<html>
<head>
<?php 
html_header_show();
?>
<link rel='stylesheet' href="<?php 
echo $css_header;
?>
" type="text/css">

    if (isset($_GET['action'])) {
        switch ($_GET['action']) {
            case 'loadEvents':
                loadEvents($mysqli);
                break;
            case 'deleteEvent':
                deleteEvent($mysqli);
                break;
            case 'editEvent':
                editEvent($mysqli);
                break;
            case 'getUserName':
                getUserName();
                break;
            case 'newEvent':
                newEvent($mysqli);
                break;
            default:
                printError("Invalid Action Request");
                break;
        }
    }
}
function loadEvents($db)
{
    //make sure the request was sent properly
    if (!(isset($_GET['month']) && isset($_GET['year']))) {
        printError("Invalid Request");
    }
    $username = $_SESSION['username'];
    $month = $_GET['month'];

 function transmitCCD($data = array())
 {
     $ccd = $data['ccd'];
     $recipient = $data['recipient'];
     $requested_by = $data['requested_by'];
     $xml_type = $data['xml_type'];
     if (UserService::valid($data[0]) == 'existingpatient') {
         try {
             $_SESSION['authProvider'] = 1;
             global $pid;
             //get patient name in Last_First format (used for CCDA filename) and
             //First Last for the message text.
             $patientData = getPatientPID(array("pid" => $pid));
             if (empty($patientData[0]['lname'])) {
                 $att_filename = "";
                 $patientName2 = "";
             } else {
                 //spaces are the argument delimiter for the phiMail API calls and must be removed
                 $extension = $xml_type == 'CCDA' ? 'xml' : strtolower($xml_type);
                 $att_filename = " " . str_replace(" ", "_", $xml_type . "_" . $patientData[0]['lname'] . "_" . $patientData[0]['fname']) . "." . $extension;
                 $patientName2 = $patientData[0]['fname'] . " " . $patientData[0]['lname'];
             }
             $config_err = xl("Direct messaging is currently unavailable.") . " EC:";
             if ($GLOBALS['phimail_enable'] == false) {
                 return "{$config_err} 1";
             }
             $fp = phimail_connect($err);
             if ($fp === false) {
                 return "{$config_err} {$err}";
             }
             $phimail_username = $GLOBALS['phimail_username'];
             $phimail_password = $GLOBALS['phimail_password'];
             $ret = phimail_write_expect_OK($fp, "AUTH {$phimail_username} {$phimail_password}\n");
             if ($ret !== TRUE) {
                 return "{$config_err} 4";
             }
             $ret = phimail_write_expect_OK($fp, "TO {$recipient}\n");
             if ($ret !== TRUE) {
                 return xl("Delivery is not allowed to the specified Direct Address.");
             }
             $ret = fgets($fp, 1024);
             //ignore extra server data
             if ($requested_by == "patient") {
                 $text_out = xl("Delivery of the attached clinical document was requested by the patient") . ($patientName2 == "" ? "." : ", " . $patientName2 . ".");
             } else {
                 $text_out = xl("A clinical document is attached") . ($patientName2 == "" ? "." : " " . xl("for patient") . " " . $patientName2 . ".");
             }
             $text_len = strlen($text_out);
             phimail_write($fp, "TEXT {$text_len}\n");
             $ret = @fgets($fp, 256);
             if ($ret != "BEGIN\n") {
                 phimail_close($fp);
                 return "{$config_err} 5";
             }
             $ret = phimail_write_expect_OK($fp, $text_out);
             if ($ret !== TRUE) {
                 return "{$config_err} 6";
             }
             if (in_array($xml_type, array('CCR', 'CCDA', 'CDA'))) {
                 $ccd = simplexml_load_string($ccd);
                 $ccd_out = $ccd->saveXml();
                 $ccd_len = strlen($ccd_out);
                 phimail_write($fp, "ADD " . ($xml_type == "CCR" ? $xml_type . ' ' : "CDA ") . $ccd_len . $att_filename . "\n");
                 //phimail_write($fp,"ADD " . (isset($xml_type) ? $xml_type . ' ' : "CDA ") . $ccd_len . $att_filename . "\n");
             } else {
                 if (strtolower($xml_type) == 'html' || strtolower($xml_type) == 'pdf') {
                     $ccd_out = base64_decode($ccd);
                     $message_length = strlen($ccd_out);
                     $add_type = strtolower($xml_type) == 'html' ? 'TEXT' : 'RAW';
                     phimail_write($fp, "ADD " . $add_type . " " . $message_length . "" . $att_filename . "\n");
                 }
             }
             $ret = fgets($fp, 256);
             if ($ret != "BEGIN\n") {
                 phimail_close($fp);
                 return "{$config_err} 7";
             }
             $ret = phimail_write_expect_OK($fp, $ccd_out);
             if ($ret !== TRUE) {
                 return "{$config_err} 8";
             }
             phimail_write($fp, "SEND\n");
             $ret = fgets($fp, 256);
             phimail_close($fp);
             if ($requested_by == "patient") {
                 $reqBy = "portal-user";
                 $sql = "SELECT id FROM users WHERE username='portal-user'";
                 if (($r = sqlStatement($sql)) === FALSE || ($u = sqlFetchArray($r)) === FALSE) {
                     $reqID = 1;
                     //default if we don't have a service user
                 } else {
                     $reqID = $u['id'];
                 }
             } else {
                 $reqBy = $_SESSION['authUser'];
                 $reqID = $_SESSION['authUserID'];
             }
             if (substr($ret, 5) == "ERROR") {
                 //log the failure
                 newEvent("transmit-ccd", $reqBy, $_SESSION['authProvider'], 0, $ret, $pid);
//.........这里部分代码省略.........

function verify_user_gacl_group($user)
{
    global $phpgacl_location;
    if (isset($phpgacl_location)) {
        if (acl_get_group_titles($user) == 0) {
            newEvent('login', $user, $provider, 0, "failure: {$ip}. user not in any phpGACL groups. (bad username?)");
            return false;
        }
    }
    return true;
}