PHP xl函数代码示例

function showDocument(&$drow)
{
    global $ISSUE_TYPES, $auth_med;
    $docdate = $drow['docdate'];
    echo "<tr class='text docrow' id='" . htmlspecialchars($drow['id'], ENT_QUOTES) . "' title='" . htmlspecialchars(xl('View document'), ENT_QUOTES) . "'>\n";
    // show date
    echo "<td>" . htmlspecialchars(oeFormatShortDate($docdate), ENT_NOQUOTES) . "</td>\n";
    // show associated issue, if any
    echo "<td>";
    if ($auth_med) {
        $irow = sqlQuery("SELECT type, title, begdate " . "FROM lists WHERE " . "id = ? " . "LIMIT 1", array($drow['list_id']));
        if ($irow) {
            $tcode = $irow['type'];
            if ($ISSUE_TYPES[$tcode]) {
                $tcode = $ISSUE_TYPES[$tcode][2];
            }
            echo htmlspecialchars("{$tcode}: " . $irow['title'], ENT_NOQUOTES);
        }
    } else {
        echo "(" . htmlspecialchars(xl('No access'), ENT_NOQUOTES) . ")";
    }
    echo "</td>\n";
    // show document name and category
    echo "<td colspan='3'>" . htmlspecialchars(xl('Document') . ": " . basename($drow['url']) . ' (' . xl_document_category($drow['name']) . ')', ENT_NOQUOTES) . "</td>\n";
    // skip billing and insurance columns
    if (!$GLOBALS['athletic_team']) {
        echo "<td colspan=5>&nbsp;</td>\n";
    }
    echo "</tr>\n";
}

function Forms2_Cardiology_report($pid, $encounter, $cols, $id)
{
    $count = 0;
    $data = formFetch("form_Forms2_Cardiology", $id);
    if ($data) {
        print "<hr><table><tr>";
        foreach ($data as $key => $value) {
            if ($key == "id" || $key == "pid" || $key == "user" || $key == "groupname" || $key == "authorized" || $key == "activity" || $key == "date" || $value == "" || $value == "0000-00-00 00:00:00") {
                continue;
            }
            if ($value == "on") {
                $value = "yes";
            }
            $key = ucwords(str_replace("_", " ", $key));
            $mykey = $key . ": ";
            $myval = stripslashes($value);
            print "<td><span class=bold>" . xl("{$mykey}") . "</span><span class=text>" . xl("{$myval}") . "</span></td>";
            $count++;
            if ($count == $cols) {
                $count = 0;
                print "</tr><tr>\n";
            }
        }
    }
    print "</tr></table><hr>";
}

 function getInterval()
 {
     if (is_null($this->interval) || is_null($this->intervalType)) {
         return null;
     }
     return xl($this->interval) . " x " . " " . xl($this->intervalType->lbl);
 }

function procedure_order_report($pid, $encounter, $cols, $id)
{
    $cols = 1;
    // force always 1 column
    $count = 0;
    $data = sqlQuery("SELECT * " . "FROM procedure_order WHERE " . "procedure_order_id = '{$id}' AND activity = '1'");
    if ($data) {
        print "<table cellpadding='0' cellspacing='0'>\n<tr>\n";
        foreach ($data as $key => $value) {
            if ($key == "procedure_order_id" || $key == "pid" || $key == "user" || $key == "groupname" || $key == "authorized" || $key == "activity" || $key == "date" || $value == "" || $value == "0" || $value == "0.00") {
                continue;
            }
            $key = ucwords(str_replace("_", " ", $key));
            if ($key == "Order Priority") {
                print "<td valign='top'><span class='bold'>" . xl($key) . ": </span><span class='text'>" . generate_display_field(array('data_type' => '1', 'list_id' => 'ord_priority'), $value) . " &nbsp;</span></td>\n";
            } else {
                if ($key == "Order Status") {
                    print "<td valign='top'><span class='bold'>" . xl($key) . ": </span><span class='text'>" . generate_display_field(array('data_type' => '1', 'list_id' => 'ord_status'), $value) . " &nbsp;</span></td>\n";
                } else {
                    print "<td valign='top'><span class='bold'>" . xl($key) . ": </span><span class='text'>{$value} &nbsp;</span></td>\n";
                }
            }
            $count++;
            if ($count == $cols) {
                $count = 0;
                print "</tr>\n<tr>\n";
            }
        }
        print "</tr>\n</table>\n";
    }
}

function soap_report($pid, $encounter, $cols, $id)
{
    $cols = 1;
    // force always 1 column
    $count = 0;
    $data = formFetch("form_soap", $id);
    if ($data) {
        print "<table><tr>";
        foreach ($data as $key => $value) {
            if ($key == "id" || $key == "pid" || $key == "user" || $key == "groupname" || $key == "authorized" || $key == "activity" || $key == "date" || $value == "" || $value == "0000-00-00 00:00:00") {
                continue;
            }
            if ($value == "on") {
                $value = "yes";
            }
            $key = ucwords(str_replace("_", " ", $key));
            print "<td><span class=bold>" . xl($key) . ": </span><span class=text>{$value}</span></td>";
            $count++;
            if ($count == $cols) {
                $count = 0;
                print "</tr><tr>\n";
            }
        }
    }
    print "</tr></table>";
}

function checkCreateCDB()
{
    $globalsres = sqlStatement("SELECT gl_name, gl_index, gl_value FROM globals WHERE gl_name IN \n  ('couchdb_host','couchdb_user','couchdb_pass','couchdb_port','couchdb_dbase','document_storage_method')");
    $options = array();
    while ($globalsrow = sqlFetchArray($globalsres)) {
        $GLOBALS[$globalsrow['gl_name']] = $globalsrow['gl_value'];
    }
    $directory_created = false;
    if ($GLOBALS['document_storage_method'] != 0) {
        // /documents/temp/ folder is required for CouchDB
        if (!is_dir($GLOBALS['OE_SITE_DIR'] . '/documents/temp/')) {
            $directory_created = mkdir($GLOBALS['OE_SITE_DIR'] . '/documents/temp/', 0777, true);
            if (!$directory_created) {
                echo htmlspecialchars(xl("Failed to create temporary folder. CouchDB will not work."), ENT_NOQUOTES);
            }
        }
        $couch = new CouchDB();
        if (!$couch->check_connection()) {
            echo "<script type='text/javascript'>alert('" . addslashes(xl("CouchDB Connection Failed.")) . "');</script>";
            return;
        }
        if ($GLOBALS['couchdb_host'] || $GLOBALS['couchdb_port'] || $GLOBALS['couchdb_dbase']) {
            $couch->createDB($GLOBALS['couchdb_dbase']);
            $couch->createView($GLOBALS['couchdb_dbase']);
        }
    }
    return true;
}

function reviewofs_report($pid, $encounter, $cols, $id)
{
    $count = 0;
    $data = formFetch("form_reviewofs", $id);
    if ($data) {
        print "<table><tr>";
        foreach ($data as $key => $value) {
            if ($key == "id" || $key == "pid" || $key == "user" || $key == "groupname" || $key == "authorized" || $key == "activity" || $key == "date" || $value == "" || $value == "0000-00-00 00:00:00") {
                continue;
            }
            if ($value == "on") {
                $value = "yes";
            }
            $key = ucwords(str_replace("_", " ", $key));
            //modified by BM 07-2009 for internationalization
            if ($key == "Additional Notes") {
                print "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . text($value) . "</span></td>";
            } else {
                print "<td><span class=bold>" . xl($key) . ": </span><span class=text>" . xl($value) . "</span></td>";
            }
            $count++;
            if ($count == $cols) {
                $count = 0;
                print "</tr><tr>\n";
            }
        }
    }
    print "</tr></table>";
}

 private function optInStrategy($email)
 {
     $curl = curl_init('https://reg.open-emr.org/api/registration');
     curl_setopt($curl, CURLOPT_POST, true);
     curl_setopt($curl, CURLOPT_POSTFIELDS, http_build_query(array('email' => $email)));
     curl_setopt($curl, CURLOPT_RETURNTRANSFER, true);
     $responseBodyRaw = curl_exec($curl);
     $responseCode = curl_getinfo($curl, CURLINFO_HTTP_CODE);
     curl_close($curl);
     switch ($responseCode) {
         case 201:
             $responseBodyParsed = json_decode($responseBodyRaw);
             sqlStatement('INSERT INTO product_registration (registration_id, email, opt_out) VALUES (?, ?, ?)', array($responseBodyParsed->productId, $email, false));
             return $responseBodyParsed->productId;
             break;
         case 400:
             throw new InvalidEmailException($email . ' ' . xl("is not a valid email address"));
             break;
         case 409:
             throw new DuplicateRegistrationException(xl("Already registered"));
             break;
         default:
             throw new GenericProductRegistrationException(xl("Server error: try again later"));
     }
 }

/**
 * Display the patient reminder widget.
 *
 * @param  integer  $patient_id  pid of selected patient
 * @param  string   $dateTarget  target date (format Y-m-d H:i:s). If blank then will test with current date as target.
 */
function patient_reminder_widget($patient_id, $dateTarget = '')
{
    // Set date to current if not set
    $dateTarget = $dateTarget ? $dateTarget : date('Y-m-d H:i:s');
    // Update reminders for patient
    update_reminders($dateTarget, $patient_id);
    // Fetch the active reminders
    $listReminders = fetch_reminders($patient_id);
    if (empty($listReminders)) {
        // No reminders to show.
        echo htmlspecialchars(xl('No active patient reminders.'), ENT_NOQUOTES);
        return;
    }
    echo "<table cellpadding='0' cellspacing='0'>";
    foreach ($listReminders as $reminder) {
        echo "<tr><td style='padding:0 1em 0 1em;'><span class='small'>";
        // show reminder label
        echo generate_display_field(array('data_type' => '1', 'list_id' => 'rule_action_category'), $reminder['category']) . ": " . generate_display_field(array('data_type' => '1', 'list_id' => 'rule_action'), $reminder['item']);
        echo "</span></td><td style='padding:0 1em 0 1em;'><span class='small'>";
        // show reminder due status
        echo generate_display_field(array('data_type' => '1', 'list_id' => 'rule_reminder_due_opt'), $reminder['due_status']);
        echo "</span></td><td style='padding:0 1em 0 1em;'><span class='small'>";
        // show reminder sent date
        if (empty($reminder['date_sent'])) {
            echo htmlspecialchars(xl('Reminder Not Sent Yet'), ENT_NOQUOTES);
        } else {
            echo htmlspecialchars(xl('Reminder Sent On') . ": " . $reminder['date_sent'], ENT_NOQUOTES);
        }
        echo "</span></td></tr>";
    }
    echo "</table>";
}

function endDoctor(&$docrow)
{
    global $grand_total_charges, $grand_total_copays, $grand_total_encounters;
    if (!$docrow['docname']) {
        return;
    }
    echo " <tr class='report_totals'>\n";
    echo "  <td colspan='5'>\n";
    echo "   &nbsp;" . xl('Totals for', '', '', ' ') . $docrow['docname'] . "\n";
    echo "  </td>\n";
    echo "  <td align='right'>\n";
    echo "   &nbsp;" . $docrow['encounters'] . "&nbsp;\n";
    echo "  </td>\n";
    echo "  <td align='right'>\n";
    echo "   &nbsp;";
    bucks($docrow['charges']);
    echo "&nbsp;\n";
    echo "  </td>\n";
    echo "  <td align='right'>\n";
    echo "   &nbsp;";
    bucks($docrow['copays']);
    echo "&nbsp;\n";
    echo "  </td>\n";
    echo "  <td colspan='2'>\n";
    echo "   &nbsp;\n";
    echo "  </td>\n";
    echo " </tr>\n";
    $grand_total_charges += $docrow['charges'];
    $grand_total_copays += $docrow['copays'];
    $grand_total_encounters += $docrow['encounters'];
    $docrow['charges'] = 0;
    $docrow['copays'] = 0;
    $docrow['encounters'] = 0;
}

 function getType()
 {
     if ($this->type == "min") {
         return xl("Min");
     } else {
         return xl("Max");
     }
 }

function psychiatrisch_onderzoek_report($pid, $encounter, $cols, $id)
{
    $count = 0;
    $data = formFetch("form_psychiatrisch_onderzoek", $id);
    if ($data) {
        print "<table>";
        foreach ($data as $key => $value) {
            // here we check for current ???? what ? session ?
            if ($key == "id" || $key == "pid" || $key == "user" || $key == "groupname" || $key == "authorized" || $key == "activity" || $key == "date" || $value == "" || $value == "0000-00-00 00:00:00") {
                continue;
            }
            // larry :: ??? - is this for check box or select or what ?
            if ($value == "on") {
                $value = "yes";
            }
            // Datum onderzoek
            if ($key == "datum_onderzoek") {
                print "<tr><td><span class=bold>" . xl('Examination Date') . ": </span><span class=text>" . nl2br(stripslashes($value)) . "</span></td></tr>";
            }
            // Reden van aanmelding
            if ($key == "reden_van_aanmelding") {
                print "<tr><td><span class=bold>" . xl('Reason for Visit') . ": </span><span class=text>" . nl2br(stripslashes($value)) . "</span></td></tr>";
            }
            // Conclusie van intake
            if ($key == "conclusie_van_intake") {
                print "<tr><td><span class=bold>" . xl('Intake Conclusion') . ": </span><span class=text>" . nl2br(stripslashes($value)) . "</span></td></tr>";
            }
            // Medicatie
            if ($key == "medicatie") {
                print "<tr><td><span class=bold>" . xl('Medications') . ": </span><span class=text>" . nl2br(stripslashes($value)) . "</span></td></tr>";
            }
            // Anamnese
            if ($key == "anamnese") {
                print "<tr><td><span class=bold>" . xl('History') . ": </span><span class=text>" . nl2br(stripslashes($value)) . "</span></td></tr>";
            }
            // Psychiatrisch onderzoek i.e.z.
            if ($key == "psychiatrisch_onderzoek") {
                print "<tr><td><span class=bold>" . xl('Psychiatric Examination') . ": </span><span class=text>" . nl2br(stripslashes($value)) . "</span></td></tr>";
            }
            // Beschrijvende conclusie
            if ($key == "beschrijvende_conclusie") {
                print "<tr><td><span class=bold>" . xl('Conclusions') . ": </span><span class=text>" . nl2br(stripslashes($value)) . "</span></td></tr>";
            }
            // Behandelvoorstel
            if ($key == "behandelvoorstel") {
                print "<tr><td><span class=bold>" . xl('Treatment Plan') . ": </span><span class=text>" . nl2br(stripslashes($value)) . "</span></td></tr>";
            }
            // increment records counter
            $count++;
            // check if not at the end close/open new row
            if ($count == $cols) {
                $count = 0;
                print "</tr><tr>\n";
            }
        }
    }
    print "</tr></table>";
}

function is_clinic($code)
{
    global $bcodes;
    $i = strpos($code, ':');
    if ($i) {
        $code = substr($code, 0, $i);
    }
    return $bcodes['CPT4'][xl('Lab')][$code] || $bcodes['CPT4'][xl('Immunizations')][$code] || $bcodes['HCPCS'][xl('Therapeutic Injections')][$code];
}

function hsc_private_xl_or_warn($key)
{
    if (function_exists('xl')) {
        return xl($key);
    } else {
        trigger_error('Translation via xl() was requested, but the xl()' . ' function is not defined, yet.', E_USER_WARNING);
        return $key;
    }
}

 function getRequirements()
 {
     $requirements .= xl("Completed") . ": ";
     $requirements .= $this->completed ? xl("Yes") : xl("No");
     $requirements .= " | ";
     $requirements .= xl("Frequency") . ": ";
     $requirements .= $this->decodeComparator($this->frequencyComparator) . " " . $this->frequency . " ";
     return $requirements;
 }