interface/main/tabs/menu/menu_updates.php

   1 <?php
   2 /**
   3  * Copyright (C) 2016 Kevin Yeh <kevin.y@integralemr.com>
   4  * Copyright (C) 2016 Brady Miller <brady.g.miller@gmail.com>
   5  * Copyright (C) 2017 Rod Roark <rod@sunsetsystems.com>
   6  *
   7  * LICENSE: This program is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU General Public License
   9  * as published by the Free Software Foundation; either version 3
  10  * of the License, or (at your option) any later version.
  11  * This program is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14  * GNU General Public License for more details.
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program. If not, see <http://opensource.org/licenses/gpl-license.php>;.
  17  *
  18  * @package OpenEMR
  19  * @author  Kevin Yeh <kevin.y@integralemr.com>
  20  * @author  Brady Miller <brady.g.miller@gmail.com>
  21  * @author  Rod Roark <rod@sunsetsystems.com>
  22  * @link    http://www.open-emr.org
  23  */
  24
  25 include_once("$srcdir/registry.inc");
  26
  27 $menu_update_map=array();
  28 $menu_update_map["Visit Forms"]="update_visit_forms";
  29 $menu_update_map["Modules"]="update_modules_menu";
  30 $menu_update_map["Create Visit"] = "update_create_visit";
  31
  32 function update_modules_menu(&$menu_list)
  33 {
  34     $module_query = sqlStatement("select mod_directory,mod_name,mod_nick_name,mod_relative_link,type from modules where mod_active = 1 AND sql_run= 1 order by mod_ui_order asc");
  35     if (sqlNumRows($module_query)) {
  36       while ($modulerow = sqlFetchArray($module_query)) {
  37                     $acl_section = strtolower($modulerow['mod_directory']);
  38                     if (!zh_acl_check($_SESSION['authUserID'],$acl_section)) continue;
  39                     $modulePath = "";
  40                     $added              = "";
  41                     if($modulerow['type'] == 0) {
  42                             $modulePath = $GLOBALS['customModDir'];
  43                             $added              = "";
  44                     }
  45                     else{
  46                             $added              = "index";
  47                             $modulePath = $GLOBALS['zendModDir'];
  48                     }
  49
  50                     $relative_link ="/interface/modules/".$modulePath."/".$modulerow['mod_relative_link'].$added;
  51                     $mod_nick_name = $modulerow['mod_nick_name'] ? $modulerow['mod_nick_name'] : $modulerow['mod_name'];
  52           $newEntry=new stdClass();
  53           $newEntry->label=xlt($mod_nick_name);
  54           $newEntry->url=$relative_link;
  55           $newEntry->requirement=0;
  56           $newEntry->target='mod';
  57           array_push($menu_list->children,$newEntry);
  58        }
  59     }
  60 }
  61
  62 // This creates menu entries for all encounter forms.
  63 //
  64 function update_visit_forms(&$menu_list) {
  65   $baseURL = "/interface/patient_file/encounter/load_form.php?formname=";
  66   $menu_list->children = array();
  67   // LBF Visit forms
  68   $lres = sqlStatement("SELECT * FROM list_options " .
  69     "WHERE list_id = 'lbfnames' AND activity = 1 ORDER BY seq, title");
  70   while ($lrow = sqlFetchArray($lres)) {
  71     $option_id = $lrow['option_id']; // should start with LBF
  72     $title = $lrow['title'];
  73     $formURL = $baseURL . urlencode($option_id);
  74     $formEntry = new stdClass();
  75     $formEntry->label = xl_form_title($title);
  76     $formEntry->url = $formURL;
  77     $formEntry->requirement = 2;
  78     $formEntry->target = 'enc';
  79     // Plug in ACO attribute, if any, of this LBF.
  80     $jobj = json_decode($lrow['notes'], true);
  81     if (!empty($jobj['aco'])) {
  82       $tmp = explode('|', $jobj['aco']);
  83       if (!empty($tmp[1])) {
  84         $formEntry->acl_req = array($tmp[0], $tmp[1], 'write', 'addonly');
  85       }
  86     }
  87     array_push($menu_list->children, $formEntry);
  88   }
  89   // Traditional forms
  90   $reg = getRegistered();
  91   if (!empty($reg)) {
  92     foreach ($reg as $entry) {
  93       $option_id = $entry['directory'];
  94       $title = trim($entry['nickname']);
  95       if ($option_id == 'fee_sheet' ) continue;
  96       if ($option_id == 'newpatient') continue;
  97       if (empty($title)) $title = $entry['name'];
  98       $formURL = $baseURL . urlencode($option_id);
  99       $formEntry = new stdClass();
 100       $formEntry->label = xl_form_title($title);
 101       $formEntry->url = $formURL;
 102       $formEntry->requirement = 2;
 103       $formEntry->target = 'enc';
 104       // Plug in ACO attribute, if any, of this form.
 105       $tmp = explode('|', $entry['aco_spec']);
 106       if (!empty($tmp[1])) {
 107         $formEntry->acl_req = array($tmp[0], $tmp[1], 'write', 'addonly');
 108       }
 109       array_push($menu_list->children, $formEntry);
 110     }
 111   }
 112 }
 113
 114 function update_create_visit(&$menu_list) {
 115   $tmp = getRegistryEntryByDirectory('newpatient', 'aco_spec');
 116   if (!empty($tmp['aco_spec'])) {
 117     $tmp = explode('|', $tmp['aco_spec']);
 118     $menu_list->acl_req = array($tmp[0], $tmp[1], 'write', 'addonly');
 119   }
 120 }
 121
 122 function menu_update_entries(&$menu_list)
 123 {
 124     global $menu_update_map;
 125     for($idx=0;$idx<count($menu_list);$idx++)
 126     {
 127
 128         $entry = $menu_list[$idx];
 129         if(!isset($entry->url))
 130         {
 131             if(isset($menu_update_map[$entry->label]))
 132             {
 133                 $menu_update_map[$entry->label]($entry);
 134             }
 135         }
 136         // Translate the labels
 137         $entry->label=xlt($entry->label);
 138         // Recursive update of children
 139         if(isset($entry->children))
 140         {
 141             menu_update_entries($entry->children);
 142         }
 143     }
 144 }
 145
 146 // Permissions check for a particular acl_req array item.
 147 // Elements beyond the 2nd are ACL return values, one of which should be permitted.
 148 //
 149 function menu_acl_check($arr) {
 150   if (isset($arr[2])) {
 151     for ($i = 2; isset($arr[$i]); ++$i) {
 152       if (substr($arr[0], 0, 1) == '!') {
 153         if (!acl_check(substr($arr[0], 1), $arr[1], '', $arr[$i])) return TRUE;
 154       }
 155       else {
 156         if (acl_check($arr[0], $arr[1], '', $arr[$i])) return TRUE;
 157       }
 158     }
 159   }
 160   else {
 161     if (substr($arr[0], 0, 1) == '!') {
 162       if (!acl_check(substr($arr[0], 1), $arr[1])) return TRUE;
 163     }
 164     else {
 165       if (acl_check($arr[0], $arr[1])) return TRUE;
 166     }
 167   }
 168   return FALSE;
 169 }
 170
 171 function menu_apply_restrictions(&$menu_list_src,&$menu_list_updated)
 172 {
 173     for ($idx=0; $idx<count($menu_list_src); $idx++)
 174     {
 175         $srcEntry = $menu_list_src[$idx];
 176         $includeEntry = true;
 177
 178         // If the entry has an ACL Requirements(currently only support loose), then test
 179         if (isset($srcEntry->acl_req))
 180         {
 181             if (is_array($srcEntry->acl_req[0]))
 182             {
 183                 $noneSet = true;
 184                 for ($aclIdx=0; $aclIdx<count($srcEntry->acl_req); $aclIdx++)
 185                 {
 186                     if (menu_acl_check($srcEntry->acl_req[$aclIdx])) {
 187                         $noneSet = false;
 188                     }
 189                 }
 190                 if ($noneSet)
 191                 {
 192                     $includeEntry = false;
 193                 }
 194             }
 195             else
 196             {
 197                 if (!menu_acl_check($srcEntry->acl_req))
 198                 {
 199                     $includeEntry = false;
 200                 }
 201             }
 202         }
 203
 204         // If the entry has loose global setting requirements, check
 205         // Note that global_req is a loose check (if more than 1 global, only 1 needs to pass to show the menu item)
 206         if (isset($srcEntry->global_req))
 207         {
 208             if (is_array($srcEntry->global_req))
 209             {
 210                 $noneSet = true;
 211                 for ($globalIdx=0; $globalIdx<count($srcEntry->global_req); $globalIdx++)
 212                 {
 213                     $curSetting = $srcEntry->global_req[$globalIdx];
 214                     // ! at the start of the string means test the negation
 215                     if (substr($curSetting,0,1) === '!')
 216                     {
 217                         $curSetting = substr($curSetting,1);
 218                         // If the global isn't set at all, or if it is false, then show it
 219                         if (!isset($GLOBALS[$curSetting]) || !$GLOBALS[$curSetting])
 220                         {
 221                             $noneSet = false;
 222                         }
 223                     }
 224                     else
 225                     {
 226                         // If the setting is both set and true, then show it
 227                         if (isset($GLOBALS[$curSetting]) && $GLOBALS[$curSetting])
 228                         {
 229                             $noneSet = false;
 230                         }
 231                     }
 232
 233                 }
 234                 if ($noneSet)
 235                 {
 236                     $includeEntry = false;
 237                 }
 238             }
 239             else
 240             {
 241                 // ! at the start of the string means test the negation
 242                 if (substr($srcEntry->global_req,0,1) === '!')
 243                 {
 244                     $globalSetting=substr($srcEntry->global_req,1);
 245                     // If the setting is both set and true, then skip this entry
 246                     if (isset($GLOBALS[$globalSetting]) && $GLOBALS[$globalSetting])
 247                     {
 248                         $includeEntry = false;
 249                     }
 250                 }
 251                 else
 252                 {
 253                     // If the global isn't set at all, or if it is false then skip the entry
 254                     if (!isset($GLOBALS[$srcEntry->global_req]) || !$GLOBALS[$srcEntry->global_req])
 255                     {
 256                         $includeEntry = false;
 257                     }
 258                 }
 259             }
 260         }
 261
 262         // If the entry has strict global setting requirements, check
 263         // Note that global_req_strict is a strict check (if more than 1 global, they all need to pass to show the menu item)
 264         if (isset($srcEntry->global_req_strict))
 265         {
 266             if (is_array($srcEntry->global_req_strict))
 267             {
 268                 $allSet = true;
 269                 for ($globalIdx=0; $globalIdx<count($srcEntry->global_req_strict); $globalIdx++)
 270                 {
 271                     $curSetting = $srcEntry->global_req_strict[$globalIdx];
 272                     // ! at the start of the string means test the negation
 273                     if (substr($curSetting,0,1) === '!')
 274                     {
 275                         $curSetting = substr($curSetting,1);
 276                         // If the setting is both set and true, then do not show it
 277                         if (isset($GLOBALS[$curSetting]) && $GLOBALS[$curSetting])
 278                         {
 279                             $allSet = false;
 280                         }
 281                     }
 282                     else
 283                     {
 284                         // If the global isn't set at all, or if it is false, then do not show it
 285                         if (!isset($GLOBALS[$curSetting]) || !$GLOBALS[$curSetting])
 286                         {
 287                             $allSet = false;
 288                         }
 289                     }
 290
 291                 }
 292                 if (!$allSet)
 293                 {
 294                     $includeEntry = false;
 295                 }
 296             }
 297             else
 298             {
 299                 // ! at the start of the string means test the negation
 300                 if (substr($srcEntry->global_req_strict,0,1) === '!')
 301                 {
 302                     $globalSetting=substr($srcEntry->global_req_strict,1);
 303                     // If the setting is both set and true, then skip this entry
 304                     if (isset($GLOBALS[$globalSetting]) && $GLOBALS[$globalSetting])
 305                     {
 306                         $includeEntry = false;
 307                     }
 308                 }
 309                 else
 310                 {
 311                     // If the global isn't set at all, or if it is false then skip the entry
 312                     if (!isset($GLOBALS[$srcEntry->global_req_strict]) || !$GLOBALS[$srcEntry->global_req_strict])
 313                     {
 314                         $includeEntry = false;
 315                     }
 316                 }
 317             }
 318         }
 319
 320         if(isset($srcEntry->children))
 321         {
 322             // Iterate through and check the child elements
 323             $checked_children=array();
 324             menu_apply_restrictions($srcEntry->children,$checked_children);
 325             $srcEntry->children=$checked_children;
 326         }
 327
 328         if(!isset($srcEntry->url))
 329         {
 330             // If this is a header only entry, and there are no child elements, then don't include it in the list.
 331             if(count($srcEntry->children)===0)
 332             {
 333                 $includeEntry=false;
 334             }
 335         }
 336         if($includeEntry)
 337         {
 338
 339             array_push($menu_list_updated,$srcEntry);
 340         }
 341     }
 342 }