library/registry.inc

   1 <?php
   2
   3 //these are the functions used to access the forms registry database
   4 //
   5
   6
   7 function registerForm($directory, $sql_run = 0, $unpackaged = 1, $state = 0)
   8 {
   9     $check = sqlQuery("select state from registry where directory=?", array($directory));
  10     if ($check == false) {
  11         $lines = @file($GLOBALS['srcdir'] . "/../interface/forms/$directory/info.txt");
  12         if ($lines) {
  13             $name = $lines[0];
  14             $category = $category ?? ($lines[1] ?? 'Miscellaneous');
  15         } else {
  16             $name = $directory;
  17             $category = "Miscellaneous";
  18         }
  19
  20         return sqlInsert("insert into registry set
  21                         name=?,
  22                         state=?,
  23                         directory=?,
  24                         sql_run=?,
  25             unpackaged=?,
  26             category=?,
  27                         date=NOW()
  28                 ", array($name, $state, $directory, $sql_run, $unpackaged, $category));
  29     }
  30
  31     return false;
  32 }
  33
  34 function updateRegistered($id, $mod)
  35 {
  36     return sqlInsert("update registry set $mod, date=NOW() where id=?", array($id));
  37 }
  38
  39 /**
  40  * @param string $state
  41  * @param string $limit
  42  * @param string $offset
  43  * @param string $encounterType all|patient|therapy_group
  44  */
  45 function getRegistered($state = "1", $limit = "unlimited", $offset = "0", $encounterType = 'all')
  46 {
  47     $sql = "select * from registry where state like ? ";
  48     if ($encounterType !== 'all') {
  49         switch ($encounterType) {
  50             case 'patient':
  51                 $sql .= 'AND patient_encounter = 1 ';
  52                 break;
  53             case 'therapy_group':
  54                 $sql .= 'AND therapy_group_encounter = 1 ';
  55                 break;
  56         }
  57     }
  58     $sql .= "order by priority, name ";
  59     if ($limit != "unlimited") {
  60         $sql .= " limit " . escape_limit($limit) . ", " . escape_limit($offset);
  61     }
  62
  63     $res = sqlStatement($sql, array($state));
  64     if ($res) {
  65         for ($iter = 0; $row = sqlFetchArray($res); $iter++) {
  66             $all[$iter] = $row;
  67         }
  68     } else {
  69         return false;
  70     }
  71
  72     return $all;
  73 }
  74
  75 function getRegistryEntry($id, $cols = "*")
  76 {
  77     $sql = "select " . escape_sql_column_name(process_cols_escape($cols), array('registry')) . " from registry where id=?";
  78     return sqlQuery($sql, array($id));
  79 }
  80
  81 function getRegistryEntryByDirectory($directory, $cols = "*")
  82 {
  83     $sql = "select " . escape_sql_column_name(process_cols_escape($cols), array('registry')) . " from registry where directory = ?";
  84     return sqlQuery($sql, $directory);
  85 }
  86
  87 function installSQL($dir)
  88 {
  89     $sqltext = $dir . "/table.sql";
  90     if ($sqlarray = @file($sqltext)) {
  91         $sql = implode("", $sqlarray);
  92         //echo "<br />$sql<br /><br />";
  93         $sqla = explode(";", $sql);
  94         foreach ($sqla as $sqlq) {
  95             if (strlen($sqlq) > 5) {
  96                 sqlStatement(rtrim("$sqlq"));
  97             }
  98         }
  99
 100         return true;
 101     } else {
 102         return false;
 103     }
 104 }
 105
 106
 107 /*
 108  * is a form registered
 109  *  (optional - and active)
 110  * in the database?
 111  *
 112  * NOTE - sometimes the Name of a form has a line-break at the end, thus this function might be better
 113  *
 114  *  INPUT =   directory => form directory
 115  *            state => 0=inactive / 1=active
 116  *  OUTPUT = true or false
 117  */
 118 function isRegistered($directory, $state = 1)
 119 {
 120     $sql = "select id from registry where directory=? and state=?";
 121     $result = sqlQuery($sql, array($directory, $state));
 122     if (!empty($result['id'])) {
 123         return true;
 124     }
 125
 126     return false;
 127 }
 128
 129 function getTherapyGroupCategories()
 130 {
 131     return array('');
 132 }
 133
 134 // This gets an array including both standard and LBF visit form types,
 135 // one row per form type, sorted by category, priority, is lbf, name.
 136 //
 137 function getFormsByCategory($state = '1', $lbfonly = false)
 138 {
 139     global $attendant_type;
 140     $all = array();
 141     if (!$lbfonly) {
 142         // First get the traditional form types from the registry table.
 143         $sql = "SELECT category, nickname, name, state, directory, id, sql_run, " .
 144             "unpackaged, date, priority, aco_spec FROM registry WHERE ";
 145         if (($attendant_type ?? 'pid') == 'pid') {
 146             $sql .= "patient_encounter = 1 AND ";
 147         } else {
 148             $sql .= "therapy_group_encounter = 1 AND ";
 149         }
 150         $sql .= "state LIKE ? ORDER BY category, priority, name";
 151         $res = sqlStatement($sql, array($state));
 152         if ($res) {
 153             while ($row = sqlFetchArray($res)) {
 154                 // Flag this entry as not LBF
 155                 $row['LBF'] = false;
 156                 $all[] = $row;
 157             }
 158         }
 159     }
 160
 161     // Merge LBF form types into the registry array of form types.
 162     // Note that the mapping value is used as the category name.
 163     $lres = sqlStatement(
 164         "SELECT * FROM layout_group_properties " .
 165         "WHERE grp_form_id LIKE 'LBF%' AND grp_group_id = '' AND grp_activity = 1 " .
 166         "ORDER BY grp_mapping, grp_seq, grp_title"
 167     );
 168     while ($lrow = sqlFetchArray($lres)) {
 169         $rrow = array();
 170         $rrow['category']  = $lrow['grp_mapping'] ? $lrow['grp_mapping'] : 'Clinical';
 171         $rrow['name']      = $lrow['grp_title'];
 172         $rrow['nickname']  = $lrow['grp_title'];
 173         $rrow['directory'] = $lrow['grp_form_id']; // should start with LBF
 174         $rrow['priority']  = $lrow['grp_seq'];
 175         $rrow['aco_spec']  = $lrow['grp_aco_spec'];
 176         $rrow['LBF']       = true; // Flag this form as LBF
 177         $all[] = $rrow;
 178     }
 179
 180     // Sort by category, priority, is lbf, name.
 181     usort($all, function ($a, $b) {
 182         // Anonymous functions supported as of PHP 5.3. Yay!
 183         if ($a['category'] == $b['category']) {
 184             if ($a['priority'] == $b['priority']) {
 185                 if ($a['LBF'] == $b['LBF']) {
 186                     $name1 = $a['nickname'] ? $a['nickname'] : $a['name'];
 187                     $name2 = $b['nickname'] ? $b['nickname'] : $b['name'];
 188                     if ($name1 == $name2) {
 189                         return 0;
 190                     }
 191                     return $name1 < $name2 ? -1 : 1;
 192                 } else {
 193                     // Sort LBF with the same priority after standard forms
 194                     return $b['LBF'] ? -1 : 1;
 195                 }
 196             }
 197             return $a['priority'] < $b['priority'] ? -1 : 1;
 198         }
 199         return $a['category'] < $b['category'] ? -1 : 1;
 200     });
 201     return $all;
 202 }