EVOLUTION-MANAGER

Edit File: acl.inc

<?php
/**
 * library/acl.inc
 *
 * Functions wrapping php-GACL's functionality, to create a generic OpenEMR access control system.
 *
 * LICENSE: This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 3
 * of the License, or (at your option) any later version.
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see
 * http://www.gnu.org/licenses/licenses.html#GPL .
 *
 * @package OpenEMR
 * @license http://www.gnu.org/licenses/licenses.html#GPL GNU GPL V3+
 * @author  Brady Miller <brady.g.miller@gmail.com>
 * @author  Rod Roark <rod@sunsetsystems.com>
 * @link    http://www.open-emr.org
 */

// php-GACL access controls are included in OpenEMR. The below
// function will automatically create the path where gacl.class.php
// can be found. Note that this path can be manually set below
// for users who are using an external version of php-GACL.
// Also note that php-GACL access controls can be turned off
// below.

$phpgacl_location = dirname(__FILE__).'/../gacl';

// If using an external version of phpGACL, then uncomment the following
// line and manually place the path below.  IN THIS CASE YOU MUST ALSO
// COMMENT OUT ABOVE $phpgacl_location ASSIGNMENT ABOVE, OR BACKUPS WILL
// NOT RESTORE PROPERLY!
//
//$phpgacl_location = "/var/www/gacl";
//
// If you want to turn off php-GACL, then uncomment the following line.
// IN THIS CASE YOU MUST ALSO COMMENT OUT ABOVE $phpgacl_location ASSIGNMENT(S)
// ABOVE, OR BACKUPS WILL NOT RESTORE PROPERLY!
//
//unset($phpgacl_location);
//

// The following Access Control Objects (ACO) are currently supported.
  // These are the "things to be protected":
  //
  // Section "admin" (Administration):
  //   super       Superuser - can delete patients, encounters, issues
  //   calendar    Calendar Settings
  //   database    Database Reporting
  //   forms       Forms Administration
  //   practice    Practice Settings
  //   superbill   Superbill Codes Administration
  //   users       Users/Groups/Logs Administration
  //   batchcom    Batch Communication Tool
  //   language    Language Interface Tool
  //   drugs       Pharmacy Dispensary
  //   acl         ACL Administration
  //   multipledb  Multipledb
  //   menu        Menu
  //
  // Section "acct" (Accounting):
  //   bill        Billing (write optional)
  //   disc        Allowed to discount prices (in Fee Sheet or Checkout form)
  //   eob         EOB Data Entry
  //   rep         Financial Reporting - my encounters
  //   rep_a       Financial Reporting - anything
  //
  // Section "patients" (Patient Information):
  //   appt        Appointments (write,wsome optional)
  //   demo        Demographics (write,addonly optional)
  //   med         Medical Records and History (write,addonly optional)
  //   trans       Transactions, e.g. referrals (write optional)
  //   docs        Documents (write,addonly optional)
  //   docs_rm     Documents Delete
  //   notes       Patient Notes (write,addonly optional)
  //   sign        Sign Lab Results (write,addonly optional)
  //   reminder    Patient Reminders (write,addonly optional)
  //   alert       Clinical Reminders/Alerts (write,addonly optional)
  //   disclosure  Disclosures (write,addonly optional)
  //   rx          Prescriptions (write,addonly optional)
  //   amendment   Amendments (write,addonly optional)
  //   lab         Lab Results (write,addonly optional)
  //
  // Section "encounters" (Encounter Information):
  //   auth        Authorize - my encounters
  //   auth_a      Authorize - any encounters
  //   coding      Coding - my encounters (write,wsome optional)
  //   coding_a    Coding - any encounters (write,wsome optional)
  //   notes       Notes - my encounters (write,addonly optional)
  //   notes_a     Notes - any encounters (write,addonly optional)
  //   date_a      Fix encounter dates - any encounters
  //   relaxed     Less-private information (write,addonly optional)
  //               (e.g. the Sports Fitness encounter form)
  //
  // Section "squads" applies to sports team use only:
  //   acos in this section define the user-specified list of squads
  //
  // Section "sensitivities" (Sensitivities):
  //   normal     Normal
  //   high       High
  //
  // Section "lists" (Lists):
  //   default    Default List (write,addonly optional)
  //   state      State List (write,addonly optional)
  //   country    Country List (write,addonly optional)
  //   language   Language List (write,addonly optional)
  //   ethrace    Ethnicity-Race List (write,addonly optional)
  //
  // Section "placeholder" (Placeholder):
  //   filler     Placeholder (Maintains empty ACLs)
  //
  // Section "nationnotes" (Nation Notes):
  //   nn_configure     Nation Notes
  //
  // Section "patientportal" (Patient Portal):
  //   portal     Patient Portal
  //
  // Section "menus" (Menus):
  //   modle      Module
  //
  // Section "groups" (Groups):
  //   gadd       View/Add/Update groups
  //   gcalendar  View/Create/Update groups appointment in calendar
  //   glog       Group encounter log
  //   gdlog      Group detailed log of appointment in patient record
  //   gm         Send message from the permanent group therapist to the personal therapist

if (isset($phpgacl_location)) {
    $GLOBALS['phpgacl_location_global'] = $phpgacl_location;
    require_once("$phpgacl_location/gacl.class.php");
    $gacl_object = new gacl();
    //DO NOT CHANGE BELOW VARIABLE
    $section_aro_value = 'users';
    $GLOBALS['section_aro_value_global'] = $section_aro_value;
}

/**
 * Check if a user has a given type or types of access to an access control object.
 *
 * Globals that can use are:
 *  $GLOBALS['phpgacl_location_global']
 *  $GLOBALS['section_aro_value_global']
 *
 * This function will check for access to the given ACO.
 * view    - The user may view but not add or modify entries
 * write   - The user may add or modify the ACO
 * wsome   - The user has limited add/modify access to the ACO
 * addonly - The user may view and add but not modify entries
 *
 * @param string       $section      Category of ACO
 * @param string       $value        Subcategory of ACO
 * @param string       $user         Optional user being checked for access.
 * @param string|array $return_value Type or types of access being requested.
 * @return bool|array  FALSE if access is denied, TRUE if allowed. An
 *                     array() of bools is returned if $return_value is an
 *             array, representing results for each type of access
 *             requested.
 */
function acl_check($section, $value, $user = '', $return_value = '')
{
    if (! $user) {
        $user = $_SESSION['authUser'];
    }

// Superuser always gets access to everything.
    if (($section != 'admin' || $value != 'super') && acl_check('admin', 'super', $user)) {
        return true;
    }

if ($GLOBALS['phpgacl_location_global']) {
      // This will return all pertinent ACL's (including return_values and whether allow/deny)
      // Walk through them to assess for access
        global $gacl_object;
        $acl_results = $gacl_object->acl_query($section, $value, $GLOBALS['section_aro_value_global'], $user, null, null, null, null, null, true);
        if (empty($acl_results)) {
            return false; //deny access
        }
        $access=false; //flag
        $deny=false; //flag
        foreach ($acl_results as $acl_result) {
            if (empty($acl_result['acl_id'])) {
                return false; //deny access, since this happens if no pertinent ACL's are returned
            }
            if (is_array($return_value)) {
                foreach ($return_value as $single_return_value) {
                    if (empty($single_return_value)) {
                        // deal with case if not looking for specific return value
                        if ($acl_result['allow']) {
                            $access=true;
                        } else {
                            $deny=true;
                        }
                    } else { //!empty($single_return_value)
                        // deal with case if looking for specific return value
                        if ($acl_result['return_value'] == $single_return_value) {
                            if ($acl_result['allow']) {
                                $access=true;
                            } else {
                                $deny=true;
                            }
                        }
                    }
                }
            } else { // $return_value is not an array (either empty or with one value)
                if (empty($return_value)) {
                    // deal with case if not looking for specific return value
                    if ($acl_result['allow']) {
                        $access=true;
                    } else {
                        $deny=true;
                    }
                } else { //!empty($return_value)
                    // deal with case if looking for specific return value
                    if ($acl_result['return_value'] == $return_value) {
                        if ($acl_result['allow']) {
                            $access=true;
                        } else {
                            $deny=true;
                        }
                    }
                }
            }
        }

// Now decide whether user has access
      // (Note a denial takes precedence)
        if (!$deny && $access) {
            return true;
        }
        return false;
    }

// If no phpgacl, then apply the old static rules whereby "authorized"
    // users (providers) can do anything, and other users can do most things.
    // If you want custom access control but don't want to mess with phpGACL,
    // then you could customize the code below instead.

if ($user == 'admin') {
        return 'write';
    }
    if ($section == 'admin' && $value == 'super') {
        return 0;
    }
    if ($_SESSION['userauthorized']) {
        return 'write';
    }

if ($section == 'patients') {
        if ($value == 'med') {
            return 1;
        }
        return 'write';
    } else if ($section == 'encounters') {
        if (strpos($value, 'coding') === 0) {
            return 'write';
        }
        if (strpos($value, 'notes') === 0) {
            return 'write';
        }
        if ($value == 'relaxed') {
            return 'write';
        }
    } else if ($section != 'admin') {
        return 'write';
    }

return 0;
}

// Get the ACO name/value pairs for a designated section.  Each value
  // is an array (section_value, value, order_value, name, hidden).
  //
function acl_get_section_acos($section)
{
    global $phpgacl_location;
    if ($phpgacl_location) {
        include_once("$phpgacl_location/gacl_api.class.php");
        $gacl = new gacl_api();
        $arr1 = $gacl->get_objects($section, 1, 'ACO');
        $arr = array();
        if (!empty($arr1[$section])) {
            foreach ($arr1[$section] as $value) {
                $odata = $gacl->get_object_data($gacl->get_object_id($section, $value, 'ACO'), 'ACO');
                $arr[$value] = $odata[0];
            }
        }
        return $arr;
    }
    return 0;
}

// Sort squads by their order value.  Used only by acl_get_squads().
function _acl_squad_compare($a, $b)
{
    if ($a[2] == $b[2]) {
      // If order value is the same, sort by squad name.
        if ($a[3] == $b[3]) {
            return 0;
        }
        return ($a[3] < $b[3]) ? -1 : 1;
    }
    return ($a[2] < $b[2]) ? -1 : 1;
}

// Return an array keyed on squad ACO names.
  // This is only applicable for sports team use.
  //
function acl_get_squads()
{
    $squads = acl_get_section_acos('squads');
    uasort($squads, "_acl_squad_compare");
    return $squads;
}

// Return an array keyed on encounter sensitivity level ACO names.
  // Sensitivities are useful when some encounter notes are not
  // medically sensitive (e.g. a physical fitness test), and/or if
  // some will be "for doctor's eyes only" (e.g. STD treatment).
  //
  // When a non-blank sensitivity value exists in the new encounter
  // form, it names an additional ACO required for access to all forms
  // in the encounter.  If you want some encounters to be non-sensitive,
  // then you also need some default nonblank sensitivity for normal
  // encounters, as well as greater encounter notes permissions for
  // those allowed to view non-sensitive encounters.
  //
function acl_get_sensitivities()
{
    return acl_get_section_acos('sensitivities');
}

//
  // Returns true if aco exist
  // Returns false if aco doesn't exist
  //    $section_name = name of section (string)
  //    $aco_name = name of aco (string)
  //
function aco_exist($section_name, $aco_name)
{
    global $phpgacl_location;
    if (isset($phpgacl_location)) {
        include_once("$phpgacl_location/gacl_api.class.php");
        $gacl = new gacl_api();
        $aco_id = $gacl->get_object_id($section_name, $aco_name, 'ACO');
        if ($aco_id) {
            return true;
        }
    }
    return false;
}

//
  // Returns a sorted array of all available Group Titles.
  //
function acl_get_group_title_list()
{
    global $phpgacl_location;
    if (isset($phpgacl_location)) {
        include_once("$phpgacl_location/gacl_api.class.php");
        $gacl = new gacl_api();
        $parent_id = $gacl->get_root_group_id();
        $arr_group_ids = $gacl->get_group_children($parent_id, 'ARO', 'RECURSE');
        $arr_group_titles = array();
        foreach ($arr_group_ids as $value) {
            $arr_group_data = $gacl->get_group_data($value, 'ARO');
            $arr_group_titles[$value] = $arr_group_data[3];
        }
        sort($arr_group_titles);
        return $arr_group_titles;
    }
    return 0;
}

//
  // Returns a sorted array of group Titles that a user belongs to.
  // Returns 0 if does not belong to any group yet.
  //   $user_name = Username, which is login name.
  //
function acl_get_group_titles($user_name)
{
    global $phpgacl_location, $section_aro_value;
    if (isset($phpgacl_location)) {
        include_once("$phpgacl_location/gacl_api.class.php");
        $gacl = new gacl_api();
        $user_aro_id = $gacl->get_object_id($section_aro_value, $user_name, 'ARO');
        if ($user_aro_id) {
            $arr_group_id = $gacl->get_object_groups($user_aro_id, 'ARO', 'NO_RECURSE');
            if ($arr_group_id) {
                foreach ($arr_group_id as $key => $value) {
                    $arr_group_data = $gacl->get_group_data($value, 'ARO');
                    $arr_group_titles[$key] =  $arr_group_data[3];
                }
                sort($arr_group_titles);
                return $arr_group_titles;
            }
        }
    }
    return 0;
}

//
  // This will place the user aro object into selected group(s)
  // It uses the set_user_aro() function
  //   $username = username (string)
  //   $group = title of group(s) (string or array)
  //
function add_user_aros($username, $group)
{
    $current_user_groups = acl_get_group_titles($username);
    if (!$current_user_groups) {
        $current_user_groups = array();
    }
    if (is_array($group)) {
        foreach ($group as $value) {
            if (!in_array($value, $current_user_groups)) {
                array_push($current_user_groups, $value);
            }
        }
    } else {
        if (!in_array($group, $current_user_groups)) {
            array_push($current_user_groups, $group);
        }
    }
    $user_data = sqlFetchArray(sqlStatement("select * from users where username='" .
    $username . "'"));
    set_user_aro(
        $current_user_groups,
        $username,
        $user_data["fname"],
        $user_data["mname"],
        $user_data["lname"]
    );
    return;
}

//
  // This will remove the user aro object from the selected group(s)
  // It uses the set_user_aro() function
  //   $username = username (string)
  //   $group = title of group(s) (string or array)
  //
function remove_user_aros($username, $group)
{
    $current_user_groups = acl_get_group_titles($username);
    $new_user_groups = array();
    if (is_array($group)) {
        foreach ($current_user_groups as $value) {
            if (!in_array($value, $group)) {
                array_push($new_user_groups, $value);
            }
        }
    } else {
        foreach ($current_user_groups as $value) {
            if ($value != $group) {
                array_push($new_user_groups, $value);
            }
        }
    }
    $user_data = sqlFetchArray(sqlStatement("select * from users where username='" .
    $username . "'"));
    set_user_aro(
        $new_user_groups,
        $username,
        $user_data["fname"],
        $user_data["mname"],
        $user_data["lname"]
    );
    return;
}

//
  // This will either create or edit a user aro object, and then place it
  // in the requested groups. It will not allow removal of the 'admin'
  // user or gacl_protected users from the 'admin' group.
  //   $arr_group_titles = titles of the groups that user will be added to.
  //   $user_name = username, which is login name.
  //   $first_name = first name
  //   $middle_name = middle name
  //   $last_name = last name
  //
function set_user_aro($arr_group_titles, $user_name, $first_name, $middle_name, $last_name)
{
    global $phpgacl_location, $section_aro_value;

if (isset($phpgacl_location)) {
        include_once("$phpgacl_location/gacl_api.class.php");
        $gacl = new gacl_api();

//see if this user is gacl protected (ie. do not allow
      //removal from the Administrators group)
        require_once(dirname(__FILE__).'/user.inc');
        require_once(dirname(__FILE__).'/calendar.inc');
        $userNametoID = getIDfromUser($user_name);
        if (checkUserSetting("gacl_protect", "1", $userNametoID) || $user_name == "admin") {
            $gacl_protect = true;
        } else {
            $gacl_protect = false;
        }

//get array of all available group ID numbers
        $parent_id = $gacl->get_root_group_id();
        $arr_all_group_ids = $gacl->get_group_children($parent_id, 'ARO', 'RECURSE');

//Cycle through ID array to find and process each selected group
      //Create a counter since processing of first hit is unique
        $counter = 0;
        foreach ($arr_all_group_ids as $value) {
            $arr_group_data = $gacl->get_group_data($value, 'ARO');
            if ((empty($arr_group_titles)) ||
            (in_array($arr_group_data[3], $arr_group_titles))) {
                //We have a hit, so need to add group and increment counter
                // because processing of first hit is unique
            //This will also deal with an empty $arr_group_titles array
            // removing user from all groups unless 'admin'
                $counter = $counter + 1;
                //create user full name field
                if ($middle_name) {
                      $full_name = $first_name . " " . $middle_name . " " .  $last_name;
                } else {
                    if ($last_name) {
                              $full_name = $first_name . " " . $last_name;
                    } else {
                          $full_name = $first_name;
                    }
                }

//If this is not the first group to be added, then will skip below
                // and will be added. If this is the first group, then need to
                // go thru several steps before adding the group.
                if ($counter == 1) {
                      //get ID of user ARO object, if it exist
                      $user_aro_id = $gacl->get_object_id($section_aro_value, $user_name, 'ARO');
                    if ($user_aro_id) {
                        //user ARO object already exist, so will edit it
                        $gacl->edit_object($user_aro_id, $section_aro_value, $full_name, $user_name, 10, 0, 'ARO');

//remove all current user ARO object group associations
                        $arr_remove_group_ids = $gacl->get_object_groups($user_aro_id, 'ARO', 'NO_RECURSE');
                        foreach ($arr_remove_group_ids as $value2) {
                            $gacl->del_group_object($value2, $section_aro_value, $user_name, 'ARO');
                        }
                    } else {
                        //user ARO object does not exist, so will create it
                        $gacl->add_object($section_aro_value, $full_name, $user_name, 10, 0, 'ARO');
                    }
                }

//place the user ARO object in the selected group (if group(s) is selected)
                if (!empty($arr_group_titles)) {
                          $gacl->add_group_object($value, $section_aro_value, $user_name, 'ARO');
                }

//
              //Below will not allow 'admin' or gacl_protected user to be removed from 'admin' group
              //
                if ($gacl_protect) {
                    $boolean_admin=0;
                    $admin_id = $gacl->get_object_id($section_aro_value, $user_name, 'ARO');
                    $arr_admin = $gacl->get_object_groups($admin_id, 'ARO', 'NO_RECURSE');
                    foreach ($arr_admin as $value3) {
                        $arr_admin_data = $gacl->get_group_data($value3, 'ARO');
                        if (strcmp($arr_admin_data[2], 'admin') == 0) {
                            $boolean_admin=1;
                        }
                    }
                    if (!$boolean_admin) {
                        foreach ($arr_all_group_ids as $value4) {
                            $arr_temp = $gacl->get_group_data($value4, 'ARO');
                            if ($arr_temp[2] == 'admin') {
                                $gacl->add_group_object($value4, $section_aro_value, $user_name, 'ARO');
                            }
                        }
                    }
                }
            }
        //if array of groups was empty, then we are done, and can break from loop
            if (empty($arr_group_titles)) {
                break;
            }
        }
        return true;
    }
    return false;
}

//
  // Returns true if acl exist
  // Returns false if acl doesn't exist
  //  EITHER $title or $name is required(send FALSE in variable
  //  not being used). If both are sent, then only $title will be
  //  used.
  //  $return_value is required
  //    $title = title of acl (string)
  //    $name = name of acl (string)
  //    $return_value = return value of acl (string)
  //
function acl_exist($title, $name, $return_value)
{
    global $phpgacl_location;
    if (isset($phpgacl_location)) {
        include_once("$phpgacl_location/gacl_api.class.php");
        $gacl = new gacl_api();
        if (!$name) {
            $acl = $gacl->search_acl(false, false, false, false, $title, false, false, false, $return_value);
        } else if (!$title) {
            $group_id = $gacl->get_group_id($name, null, 'ARO');
            if ($group_id) {
                $group_data = $gacl->get_group_data($group_id, 'ARO');
                $acl = $gacl->search_acl(false, false, false, false, $group_data[3], false, false, false, $return_value);
            } else {
                return false;
            }
        } else {
            $acl = $gacl->search_acl(false, false, false, false, $title, false, false, false, $return_value);
        }
        if (!empty($acl)) {
            return true;
        } else {
            return false;
        }
    }
}

//
  // This will add a new acl and group(if group doesn't yet exist)
  // with one aco in it.
  //   $acl_title = title of acl (string)
  //   $acl_name = name of acl (string)
  //   $return_value = return value of acl (string)
  //   $note = description of acl (array)
  //
function acl_add($acl_title, $acl_name, $return_value, $note)
{
    global $phpgacl_location;
    if (isset($phpgacl_location)) {
        include_once("$phpgacl_location/gacl_api.class.php");
        $gacl = new gacl_api();
        $group_id = $gacl->get_group_id($acl_name, $acl_title, 'ARO');
        if ($group_id) {
            //group already exist, so just create acl
            $gacl->add_acl(
                array("placeholder"=>array("filler")),
                null,
                array($group_id),
                null,
                null,
                1,
                1,
                $return_value,
                $note
            );
        } else {
            //create group, then create acl
            $parent_id = $gacl->get_root_group_id();
            $aro_id = $gacl->add_group($acl_name, $acl_title, $parent_id, 'ARO');
            $gacl->add_acl(
                array("placeholder"=>array("filler")),
                null,
                array($aro_id),
                null,
                null,
                1,
                1,
                $return_value,
                $note
            );
        }
        return;
    }
    return 0;
}

//
  // This will remove acl. It will also remove group(if the group
  // is no longer associated with any acl's).
  //   $acl_title = title of acl (string)
  //   $acl_name = name of acl (string)
  //   $return_value = return value of acl (string)
  //   $note = description of acl (array)
  //
function acl_remove($acl_title, $return_value)
{
    global $phpgacl_location;
    if (isset($phpgacl_location)) {
        include_once("$phpgacl_location/gacl_api.class.php");
        $gacl = new gacl_api();
      //First, delete the acl
        $acl_id=$gacl->search_acl(false, false, false, false, $acl_title, false, false, false, $return_value);
        $gacl->del_acl($acl_id[0]);
      //Then, remove the group(if no more acl's are remaining)
        $acl_search=$gacl->search_acl(false, false, false, false, $acl_title, false, false, false, false);
        if (empty($acl_search)) {
            $group_id=$gacl-> get_group_id(null, $acl_title, 'ARO');
            $gacl->del_group($group_id, true, 'ARO');
        }
        return;
    }
    return 0;
}

//
  // This will place the aco(s) into the selected acl
  //   $acl_title = title of acl (string)
  //   $return_value = return value of acl (string)
  //   $aco_id = id of aco (array)
  //
function acl_add_acos($acl_title, $return_value, $aco_id)
{
    global $phpgacl_location;
    if (isset($phpgacl_location)) {
        include_once("$phpgacl_location/gacl_api.class.php");
        $gacl = new gacl_api();
        $acl_id = $gacl->search_acl(false, false, false, false, $acl_title, false, false, false, $return_value);
        foreach ($aco_id as $value) {
            $aco_data = $gacl->get_object_data($value, 'ACO');
            $aco_section = $aco_data[0][0];
            $aco_name = $aco_data[0][1];
            $gacl->append_acl($acl_id[0], null, null, null, null, array($aco_section=>array($aco_name)));
        }
        return;
    }
    return 0;
}

//
  // This will remove the aco(s) from the selected acl
  //  Note if all aco's are removed, then will place the filler-placeholder
  //  into the acl to avoid complete removal of the acl.
  //   $acl_title = title of acl (string)
  //   $return_value = return value of acl (string)
  //   $aco_id = id of aco (array)
  //
function acl_remove_acos($acl_title, $return_value, $aco_id)
{
    global $phpgacl_location;
    if (isset($phpgacl_location)) {
        include_once("$phpgacl_location/gacl_api.class.php");
        $gacl = new gacl_api();
        $acl_id = $gacl->search_acl(false, false, false, false, $acl_title, false, false, false, $return_value);

// Check to see if removing all acos. If removing all acos then will
      //  ensure the filler-placeholder aco in acl to avoid complete
      //  removal of the acl.
        if (count($aco_id) == acl_count_acos($acl_title, $return_value)) {
            //1-get the filler-placeholder aco id
            $filler_aco_id = $gacl->get_object_id('placeholder', 'filler', 'ACO');
            //2-add filler-placeholder aco
            acl_add_acos($acl_title, $return_value, array($filler_aco_id));
            //3-ensure filler-placeholder aco is not to be deleted
            $safeListaco = remove_element($_POST["selection"], $filler_aco_id);
            //4-prepare to safely delete the acos
            $aco_id = $safeListaco;
        }

foreach ($aco_id as $value) {
            $aco_data = $gacl->get_object_data($value, 'ACO');
            $aco_section = $aco_data[0][0];
            $aco_name = $aco_data[0][1];
            $gacl->shift_acl($acl_id[0], null, null, null, null, array($aco_section=>array($aco_name)));
        }
        return;
    }
    return 0;
}

//
  // This will return the number of aco objects
  //  in a specified acl.
  //   $acl_title = title of acl (string)
  //   $return_value = return value of acl (string)
  //
function acl_count_acos($acl_title, $return_value)
{
    global $phpgacl_location;
    if (isset($phpgacl_location)) {
        include_once("$phpgacl_location/gacl_api.class.php");
        $gacl = new gacl_api();
        $acl_id = $gacl->search_acl(false, false, false, false, $acl_title, false, false, false, $return_value);
        $acl_data = $gacl->get_acl($acl_id[0]);
        $aco_count = 0;
        foreach ($acl_data['aco'] as $key => $value) {
            $aco_count = $aco_count + count($acl_data['aco'][$key]);
        }
        return $aco_count;
    }
    return 0;
}

//
  // Function to remove an element from an array
  //
function remove_element($arr, $val)
{
    $arr2 = array();
    foreach ($arr as $value) {
        if ($value != $val) {
            array_push($arr2, $value);
        }
    }
    return $arr2;
}
  /**
  * Checks ACL
  *
  * Same Functionality in the Zend Module
  * for ACL Check in Zend
  * Path openemr/interface/modules/zend_modules/module/Application/src/Application/Model/ApplicationTable
  * Function Name zAclCheck
  *
  * @param String $user_id Auth user Id
  * $param String $section_identifier ACL Section id
  * @return boolean
  */
function zh_acl_check($user_id, $section_identifier)
{
    $sql_user_acl = " SELECT
                        COUNT(allowed) AS count
                      FROM
                        module_acl_user_settings AS usr_settings
                        LEFT JOIN module_acl_sections AS acl_sections
                            ON usr_settings.section_id = acl_sections.`section_id`
                      WHERE
                          acl_sections.section_identifier = ? AND usr_settings.user_id = ? AND usr_settings.allowed = ?";
    $sql_user_group = " SELECT
                          gagp.id AS group_id
                        FROM
                          gacl_aro AS garo
                          LEFT JOIN `gacl_groups_aro_map` AS gamp
                            ON garo.id = gamp.aro_id
                          LEFT JOIN `gacl_aro_groups` AS gagp
                            ON gagp.id = gamp.group_id
                          RIGHT JOIN `users_secure` usr
                            ON usr. username =  garo.value
                        WHERE
                          garo.section_value = ? AND usr. id = ?";
    $res_groups     = sqlStatement($sql_user_group, array('users',$user_id));

// Prepare the group queries with the placemakers and binding array for the IN part
    $groups_sql_param = array();
    $groupPlacemakers = "";
    $firstFlag = true;
    while ($row = sqlFetchArray($res_groups)) {
        array_push($groups_sql_param, $row['group_id']);
        if ($firstFlag) {
            $groupPlacemakers = "?";
            $firstFlag = false;
        } else {
            $groupPlacemakers .= ",?";
        }
    }
    $sql_group_acl_base  = " SELECT
                        COUNT(allowed) AS count
                      FROM
                        module_acl_group_settings AS group_settings
                        LEFT JOIN module_acl_sections AS  acl_sections
                          ON group_settings.section_id = acl_sections.section_id
                      WHERE
                        group_settings.group_id IN (".$groupPlacemakers.") AND acl_sections.`section_identifier` = ? ";

$sql_group_acl_allowed = $sql_group_acl_base . " AND group_settings.allowed = '1'";

// Complete the group queries sql binding array
    array_push($groups_sql_param, $section_identifier);

$count_group_allowed    = 0;
    $count_user_allowed     = 0;

$res_user_allowed       = sqlQuery($sql_user_acl, array($section_identifier,$user_id,1));
    $count_user_allowed     = $res_user_allowed['count'];

$res_group_allowed      = sqlQuery($sql_group_acl_allowed, $groups_sql_param);
    $count_group_allowed    = $res_group_allowed['count'];

if ($count_user_allowed > 0) {
        return true;
    } elseif ($count_group_allowed > 0) {
        return true;
    } else {
        return false;
    }
}

// This generates an HTML options list for all ACOs.
  // The caller inserts this between <select> and </select> tags.
  //
function gen_aco_html_options($default = '')
{
    $acoArray = gen_aco_array();
    $s = '';
    foreach ($acoArray as $section => $acos_array) {
        $s .= "<optgroup label='" . xla($section) . "'>\n";
        foreach ($acos_array as $aco_array) {
            $s .= "<option value='" . attr($aco_array['value']) . "'";
            if ($aco_array['value'] == $default) {
                $s .= ' selected';
            }
            $s .= ">" . xlt($aco_array['name']) . "</option>";
        }
        $s .= "</optgroup>";
    }
    return $s;
}

// Returns array of all ACOs
function gen_aco_array()
{
    global $phpgacl_location;
    require_once("$phpgacl_location/gacl_api.class.php");
    $acoArray = array();
    $gacl = new gacl_api();
    // collect and sort all aco objects
    $list_aco_objects = $gacl->get_objects(null, 0, 'ACO');
    ksort($list_aco_objects);
    foreach ($list_aco_objects as $seckey => $dummy) {
        if (empty($dummy)) {
            continue;
        }
        asort($list_aco_objects[$seckey]);
        $aco_section_data = $gacl->get_section_data($seckey, 'ACO');
        $aco_section_title = $aco_section_data[3];
        foreach ($list_aco_objects[$seckey] as $acokey) {
            $aco_id = $gacl->get_object_id($seckey, $acokey, 'ACO');
            $aco_data = $gacl->get_object_data($aco_id, 'ACO');
            $aco_title = $aco_data[0][3];
            $optkey = "$seckey|$acokey";
            $acoArray[$aco_section_title][$aco_id]['name'] = $aco_title;
            $acoArray[$aco_section_title][$aco_id]['value'] = $optkey;
        }
    }
    return $acoArray;
}

// Permissions check for an ACO in "section|aco" format.
  // Note $return_value may be an array of return values.
  //
function acl_check_aco_spec($aco_spec, $user = '', $return_value = '')
{
    if (empty($aco_spec)) {
        return true;
    }
    $tmp = explode('|', $aco_spec);
    if (!is_array($return_value)) {
        $return_value = array($return_value);
    }
    foreach ($return_value as $rv) {
        if (acl_check($tmp[0], $tmp[1], $user, $rv)) {
            return true;
        }
    }
    return false;
}

// Permissions check for a specified encounter form type.
  // Note $return_value may be an array of return values.
  //
function acl_check_form($formdir, $user = '', $return_value = '')
{
    require_once(dirname(__FILE__) . '/registry.inc');
    $tmp = getRegistryEntryByDirectory($formdir, 'aco_spec');
    return acl_check_aco_spec($tmp['aco_spec'], $user, $return_value);
}

// Permissions check for a specified issue type.
  // Note $return_value may be an array of return values.
  //
function acl_check_issue($type, $user = '', $return_value = '')
{
    require_once(dirname(__FILE__) . '/lists.inc');
    global $ISSUE_TYPES;
    if (empty($ISSUE_TYPES[$type][5])) {
        return true;
    }
    return acl_check_aco_spec($ISSUE_TYPES[$type][5], $user, $return_value);
}

// Permissions check for a specified document category name.
  // Note $return_value may be an array of return values.
  //
function acl_check_cat_name($catname, $user = '', $return_value = '')
{
    $tmp = sqlQuery(
        "SELECT aco_spec FROM categories WHERE name = ? ORDER BY id LIMIT 1",
        array($catname)
    );
    if (empty($tmp['aco_spec'])) {
        return true;
    }
    return acl_check_aco_spec($tmp['aco_spec'], $user, $return_value);
}

//Fetches aco for given postcalendar category
function fetchPostCalendarCategoryACO($pc_catid)
{
    $aco = sqlQuery(
        "SELECT aco_spec FROM openemr_postcalendar_categories WHERE pc_catid = ? LIMIT 1",
        array($pc_catid)
    );
    return $aco['aco_spec'];
}