You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
243 lines
8.5 KiB
243 lines
8.5 KiB
2 years ago
|
<?php
|
||
|
|
|
||
|
|
/**
|
||
|
|
* Upload and install a designated code set to the codes table.
|
||
|
|
*
|
||
|
|
* @package OpenEMR
|
||
|
|
* @link http://www.open-emr.org
|
||
|
|
* @author Rod Roark <rod@sunsetsystems.com>
|
||
|
|
* @author Brady Miller <brady.g.miller@gmail.com>
|
||
|
|
* @copyright Copyright (c) 2014 Rod Roark <rod@sunsetsystems.com>
|
||
|
|
* @copyright Copyright (c) 2018 Brady Miller <brady.g.miller@gmail.com>
|
||
|
|
* @license https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3
|
||
|
|
*/
|
||
|
|
|
||
|
|
set_time_limit(0);
|
||
|
|
|
||
|
|
require_once('../globals.php');
|
||
|
|
require_once($GLOBALS['fileroot'] . '/custom/code_types.inc.php');
|
||
|
|
|
||
|
|
use OpenEMR\Common\Acl\AclMain;
|
||
|
|
use OpenEMR\Common\Csrf\CsrfUtils;
|
||
|
|
use OpenEMR\Common\Twig\TwigContainer;
|
||
|
|
use OpenEMR\Core\Header;
|
||
|
|
|
||
|
|
if (!AclMain::aclCheckCore('admin', 'super')) {
|
||
|
|
echo (new TwigContainer(null, $GLOBALS['kernel']))->getTwig()->render('core/unauthorized.html.twig', ['pageTitle' => xl("Install Code Set")]);
|
||
|
|
exit;
|
||
|
|
}
|
||
|
|
|
||
|
|
$form_replace = !empty($_POST['form_replace']);
|
||
|
|
$code_type = empty($_POST['form_code_type']) ? '' : $_POST['form_code_type'];
|
||
|
|
?>
|
||
|
|
<html>
|
||
|
|
|
||
|
|
<head>
|
||
|
|
<title><?php echo xlt('Install Code Set'); ?></title>
|
||
|
|
<?php Header::setupHeader(); ?>
|
||
|
|
|
||
|
|
<style>
|
||
|
|
.dehead {
|
||
|
|
color: var(--black);
|
||
|
|
font-family: sans-serif;
|
||
|
|
font-size: 0.8125rem;
|
||
|
|
font-weight: bold;
|
||
|
|
}
|
||
|
|
.detail {
|
||
|
|
color: var(--black);
|
||
|
|
font-family: sans-serif;
|
||
|
|
font-size: 0.8125rem;
|
||
|
|
font-weight:normal;
|
||
|
|
}
|
||
|
|
</style>
|
||
|
|
|
||
|
|
</head>
|
||
|
|
|
||
|
|
<body class="body_top">
|
||
|
|
|
||
|
|
<?php
|
||
|
|
// Handle uploads.
|
||
|
|
if (!empty($_POST['bn_upload'])) {
|
||
|
|
//verify csrf
|
||
|
|
if (!CsrfUtils::verifyCsrfToken($_POST["csrf_token_form"])) {
|
||
|
|
CsrfUtils::csrfNotVerified();
|
||
|
|
}
|
||
|
|
|
||
|
|
if (empty($code_types[$code_type])) {
|
||
|
|
die(xlt('Code type not yet defined') . ": '" . text($code_type) . "'");
|
||
|
|
}
|
||
|
|
|
||
|
|
$code_type_id = $code_types[$code_type]['id'];
|
||
|
|
$tmp_name = $_FILES['form_file']['tmp_name'];
|
||
|
|
|
||
|
|
$inscount = 0;
|
||
|
|
$repcount = 0;
|
||
|
|
$seen_codes = array();
|
||
|
|
|
||
|
|
if (is_uploaded_file($tmp_name) && $_FILES['form_file']['size']) {
|
||
|
|
$zipin = new ZipArchive();
|
||
|
|
$eres = null;
|
||
|
|
if ($zipin->open($tmp_name) === true) {
|
||
|
|
// Must be a zip archive.
|
||
|
|
for ($i = 0; $i < $zipin->numFiles; ++$i) {
|
||
|
|
$ename = $zipin->getNameIndex($i);
|
||
|
|
// TBD: Expand the following test as other code types are supported.
|
||
|
|
if ($code_type == 'RXCUI' && basename($ename) == 'RXNCONSO.RRF') {
|
||
|
|
$eres = $zipin->getStream($ename);
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
$eres = fopen($tmp_name, 'r');
|
||
|
|
}
|
||
|
|
|
||
|
|
if (empty($eres)) {
|
||
|
|
die(xlt('Unable to locate the data in this file.'));
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($form_replace) {
|
||
|
|
sqlStatement("DELETE FROM codes WHERE code_type = ?", array($code_type_id));
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
// Settings to drastically speed up import with InnoDB
|
||
|
|
sqlStatementNoLog("SET autocommit=0");
|
||
|
|
sqlStatementNoLog("START TRANSACTION");
|
||
|
|
while (($line = fgets($eres)) !== false) {
|
||
|
|
if ($code_type == 'RXCUI') {
|
||
|
|
$a = explode('|', $line);
|
||
|
|
if (count($a) < 18) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($a[17] != '4096') {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($a[11] != 'RXNORM') {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$code = $a[0];
|
||
|
|
if (isset($seen_codes[$code])) {
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
|
||
|
|
$seen_codes[$code] = 1;
|
||
|
|
++$inscount;
|
||
|
|
if (!$form_replace) {
|
||
|
|
$tmp = sqlQuery(
|
||
|
|
"SELECT id FROM codes WHERE code_type = ? AND code = ? LIMIT 1",
|
||
|
|
array($code_type_id, $code)
|
||
|
|
);
|
||
|
|
if ($tmp['id']) {
|
||
|
|
sqlStatementNoLog(
|
||
|
|
"UPDATE codes SET code_text = ? WHERE code_type = ? AND code = ?",
|
||
|
|
array($a[14], $code_type_id, $code)
|
||
|
|
);
|
||
|
|
++$repcount;
|
||
|
|
continue;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
sqlStatementNoLog(
|
||
|
|
"INSERT INTO codes SET code_type = ?, code = ?, code_text = ?, " .
|
||
|
|
"fee = 0, units = 0",
|
||
|
|
array($code_type_id, $code, $a[14])
|
||
|
|
);
|
||
|
|
++$inscount;
|
||
|
|
}
|
||
|
|
|
||
|
|
// TBD: Clone/adapt the above for each new code type.
|
||
|
|
}
|
||
|
|
|
||
|
|
// Settings to drastically speed up import with InnoDB
|
||
|
|
sqlStatementNoLog("COMMIT");
|
||
|
|
sqlStatementNoLog("SET autocommit=1");
|
||
|
|
|
||
|
|
fclose($eres);
|
||
|
|
$zipin->close();
|
||
|
|
}
|
||
|
|
|
||
|
|
echo "<p class='text-success'>" .
|
||
|
|
xlt('LOAD SUCCESSFUL. Codes inserted') . ": " . text($inscount) . ", " .
|
||
|
|
xlt('replaced') . ": " . text($repcount) .
|
||
|
|
"</p>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
?>
|
||
|
|
<div class="container">
|
||
|
|
|
||
|
|
<form method='post' action='load_codes.php' enctype='multipart/form-data'
|
||
|
|
onsubmit='return top.restoreSession()'>
|
||
|
|
|
||
|
|
<input type="hidden" name="csrf_token_form" value="<?php echo attr(CsrfUtils::collectCsrfToken()); ?>" />
|
||
|
|
|
||
|
|
<div class="table-responsive">
|
||
|
|
<table class="table table-bordered">
|
||
|
|
<thead>
|
||
|
|
<tr class="dehead">
|
||
|
|
<th colspan="2" class='text-center'><?php echo xlt('Install Code Set'); ?></th>
|
||
|
|
</tr>
|
||
|
|
</thead>
|
||
|
|
<tbody>
|
||
|
|
<tr>
|
||
|
|
<td>
|
||
|
|
<?php echo xlt('Code Type'); ?>
|
||
|
|
</td>
|
||
|
|
<td>
|
||
|
|
<select name='form_code_type'>
|
||
|
|
<?php
|
||
|
|
foreach (array('RXCUI') as $codetype) {
|
||
|
|
echo " <option value='" . attr($codetype) . "'>" . text($codetype) . "</option>\n";
|
||
|
|
}
|
||
|
|
?>
|
||
|
|
</select>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
<tr>
|
||
|
|
<td class="detail">
|
||
|
|
<?php echo xlt('Source File'); ?>
|
||
|
|
<input type="hidden" name="MAX_FILE_SIZE" value="350000000" />
|
||
|
|
</td>
|
||
|
|
<td class="detail">
|
||
|
|
<input type="file" name="form_file" size="40" />
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
<tr>
|
||
|
|
<td class="detail">
|
||
|
|
<?php echo xlt('Replace entire code set'); ?>
|
||
|
|
</td>
|
||
|
|
<td class="detail">
|
||
|
|
<input type='checkbox' name='form_replace' value='1' checked />
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
<tr class="bg-secondary">
|
||
|
|
<td colspan="2" class="text-center detail">
|
||
|
|
<input type='submit' class='btn btn-primary' name='bn_upload' value='<?php echo xlt('Upload and Install') ?>' />
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
</tbody>
|
||
|
|
</table>
|
||
|
|
</div>
|
||
|
|
<p class='font-weight-bold text-center'>
|
||
|
|
<?php echo xlt('Be patient, some files can take several minutes to process!'); ?>
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<!-- No translation because this text is long and US-specific and quotes other English-only text. -->
|
||
|
|
<p class='text'>
|
||
|
|
<span class="font-weight-bold">RXCUI codes</span> may be downloaded from
|
||
|
|
<a href='https://www.nlm.nih.gov/research/umls/rxnorm/docs/rxnormfiles.html' rel="noopener" target='_blank'>
|
||
|
|
www.nlm.nih.gov/research/umls/rxnorm/docs/rxnormfiles.html</a>.
|
||
|
|
Get the "Current Prescribable Content Monthly Release" zip file, marked "no license required".
|
||
|
|
Then you can upload that file as-is here, or extract the file RXNCONSO.RRF from it and upload just
|
||
|
|
that (zipped or not). You may do the same with the weekly updates, but for those uncheck the
|
||
|
|
"<?php echo xlt('Replace entire code set'); ?>" checkbox above.
|
||
|
|
</p>
|
||
|
|
|
||
|
|
<!-- TBD: Another paragraph of instructions here for each code type. -->
|
||
|
|
</form>
|
||
|
|
</div>
|
||
|
|
</body>
|
||
|
|
</html>
|