示例#1
0
            }
            foreach ($data as $datum) {
                // Note this will auto-assign the seq value.
                sqlBeginTrans();
                $answer_seq = sqlQuery("SELECT IFNULL(MAX(answer_seq),0) + 1 AS increment FROM procedure_answers WHERE procedure_order_id = ? AND procedure_order_seq = ? AND question_code = ? ", array($formid, $poseq, $qcode));
                sqlStatement("INSERT INTO procedure_answers SET " . "procedure_order_id = ?, " . "procedure_order_seq = ?, " . "question_code = ?, " . "answer_seq = ?, " . "answer = ?", array($formid, $poseq, $qcode, $answer_seq['increment'], strip_escape_custom($datum)));
                sqlCommitTrans();
            }
        }
    }
    $alertmsg = '';
    if ($_POST['bn_xmit']) {
        $hl7 = '';
        $alertmsg = gen_hl7_order($formid, $hl7);
        if (empty($alertmsg)) {
            $alertmsg = send_hl7_order($ppid, $hl7);
        }
        if (empty($alertmsg)) {
            sqlStatement("UPDATE procedure_order SET date_transmitted = NOW() WHERE " . "procedure_order_id = ?", array($formid));
        }
    }
    formHeader("Redirecting....");
    if ($alertmsg) {
        echo "\n<script language='Javascript'>alert('";
        echo addslashes(xl('Transmit failed') . ': ' . $alertmsg);
        echo "')</script>\n";
    }
    formJump();
    formFooter();
    exit;
}
示例#2
0
// Check authorization.
$thisauth = acl_check('patients', 'med');
if (!$thisauth) {
    die(xlt('Not authorized'));
}
$errmsg = '';
// Send selected unsent orders if requested. This does not support downloading
// very well as it will only send the first of those.
if ($_POST['form_xmit']) {
    foreach ($_POST['form_cb'] as $formid) {
        $row = sqlQuery("SELECT lab_id FROM procedure_order WHERE " . "procedure_order_id = ?", array($formid));
        $ppid = intval($row['lab_id']);
        $hl7 = '';
        $errmsg = gen_hl7_order($formid, $hl7);
        if (empty($errmsg)) {
            $errmsg = send_hl7_order($ppid, $hl7);
        }
        if ($errmsg) {
            break;
        }
        sqlStatement("UPDATE procedure_order SET date_transmitted = NOW() WHERE " . "procedure_order_id = ?", array($formid));
    }
}
?>
<html>
<head>
<?php 
html_header_show();
?>

<link rel="stylesheet" href='<?php