interface/main/left_nav.php

   1 <?php
   2  // Copyright (C) 2006-2010 Rod Roark <rod@sunsetsystems.com>
   3  //
   4  // This program is free software; you can redistribute it and/or
   5  // modify it under the terms of the GNU General Public License
   6  // as published by the Free Software Foundation; either version 2
   7  // of the License, or (at your option) any later version.
   8
   9  // This provides the left navigation frame when $GLOBALS['concurrent_layout']
  10  // is true.  Following are notes as to what else was changed for this feature:
  11  //
  12  // * interface/main/main_screen.php: the top-level frameset.
  13  // * interface/main/finder/patient_select.php: loads stuff when a new patient
  14  //   is selected.
  15  // * interface/patient_file/summary/demographics.php: this is the first frame
  16  //   loaded when a new patient is chosen, and in turn sets the current pid and
  17  //   then loads the initial bottom frame.
  18  // * interface/patient_file/summary/demographics_full.php: added support for
  19  //   setting a new pid, needed for going to demographics from billing.
  20  // * interface/patient_file/summary/demographics_save.php: redisplay
  21  //   demographics.php and not the frameset.
  22  // * interface/patient_file/summary/summary_bottom.php: new frameset for the
  23  //   summary, prescriptions and notes for a selected patient, cloned from
  24  //   patient_summary.php.
  25  // * interface/patient_file/encounter/encounter_bottom.php: new frameset for
  26  //   the selected encounter, mosting coding/billing stuff, cloned from
  27  //   patient_encounter.php.  This will also self-load the superbill pages
  28  //   as requested.
  29  // * interface/usergroup/user_info.php: removed Back link.
  30  // * interface/usergroup/admin_frameset.php: new frameset for Admin pages,
  31  //   cloned from usergroup.php.
  32  // * interface/main/onotes/office_comments.php: removed Back link target.
  33  // * interface/main/onotes/office_comments_full.php: changed Back link.
  34  // * interface/billing/billing_report.php: removed Back link; added logic
  35  //   to properly go to demographics or to an encounter when requested.
  36  // * interface/new/new.php: removed Back link and revised form target.
  37  // * interface/new/new_patient_save.php: modified to load the demographics
  38  //   page to the current frame instead of loading a new frameset.
  39  // * interface/patient_file/history/history.php: target change.
  40  // * interface/patient_file/history/history_full.php: target changes.
  41  // * interface/patient_file/history/history_save.php: target change.
  42  // * interface/patient_file/history/encounters.php: link/target changes.
  43  // * interface/patient_file/encounter/encounter_top.php: another new frameset
  44  //   cloned from patient_encounter.php.
  45  // * interface/patient_file/encounter/forms.php: link target removal.
  46  // * interface/patient_file/encounter/new_form.php: target change.
  47  // * interface/forms/newpatient/new.php, view.php, save.php: link/target
  48  //   changes.
  49  // * interface/patient_file/summary/immunizations.php: removed back link.
  50  // * interface/patient_file/summary/pnotes.php: changed link targets.
  51  // * interface/patient_file/summary/pnotes_full.php: changed back link and
  52  //   added set_pid logic.
  53  // * interface/patient_file/transaction/transactions.php: various changes.
  54  // * interface/patient_file/transaction/add_transaction.php: new return js.
  55  // * interface/patient_file/encounter/superbill_codes.php: target and link
  56  //   changes.
  57  // * interface/patient_file/encounter/superbill_custom_full.php: target and
  58  //   link changes.
  59  // * interface/patient_file/encounter/diagnosis.php: target changes.
  60  // * interface/patient_file/encounter/diagnosis_full.php: target and link
  61  //   changes.
  62  // * interface/main/authorizations/authorizations.php: link and target changes.
  63  // * library/api.inc: url change.
  64  // * interface/patient_file/summary/rx_frameset.php: new frameset.
  65  // * interface/patient_file/summary/rx_left.php: new for prescriptions.
  66  // * all encounter forms: remove all instances of "target=Main" and change
  67  //   all instances of "patient_encounter.php" to "encounter_top.php".
  68
  69  // Our find_patient form, when submitted, invokes patient_select.php in the
  70  // upper frame. When the patient is selected, demographics.php is invoked
  71  // with the set_pid parameter, which establishes the new session pid and also
  72  // calls the setPatient() function (below).  In this case demographics.php
  73  // will also load the summary frameset into the bottom frame, invoking our
  74  // loadFrame() and setRadio() functions.
  75  //
  76  // Similarly, we have the concept of selecting an encounter from the
  77  // Encounters list, and then having that "stick" until some other encounter
  78  // or a new encounter is chosen.  We also have a navigation item for creating
  79  // a new encounter.  interface/patient_file/encounter/encounter_top.php
  80  // supports set_encounter to establish an encounter.
  81  //
  82  // TBD: Include active_pid and/or active_encounter in relevant submitted
  83  // form data, and add logic to the save routines to make sure they match
  84  // the corresponding session values.
  85
  86  include_once("../globals.php");
  87  include_once($GLOBALS['fileroot']."/library/acl.inc");
  88  include_once($GLOBALS['fileroot']."/custom/code_types.inc.php");
  89  include_once($GLOBALS['fileroot']."/library/patient.inc");
  90
  91  // This array defines the list of primary documents that may be
  92  // chosen.  Each element value is an array of 3 values:
  93  //
  94  // * Name to appear in the navigation table
  95  // * Usage: 0 = global, 1 = patient-specific, 2 = encounter-specific
  96  // * The URL relative to the interface directory
  97  //
  98
  99  $primary_docs = array(
 100   'ros' => array(xl('Roster')    , 0, 'reports/players_report.php?embed=1'),
 101   'cal' => array(xl('Calendar')  , 0, 'main/main_info.php'),
 102   'msg' => array(xl('Messages')  , 0, 'main/messages/messages.php'),
 103   'pwd' => array(xl('Password')  , 0, 'usergroup/user_info.php'),
 104   'adm' => array(xl('Admin')     , 0, 'usergroup/admin_frameset.php'),
 105   'rep' => array(xl('Reports')   , 0, 'reports/index.php'),
 106   'ono' => array(xl('Ofc Notes') , 0, 'main/onotes/office_comments.php'),
 107   'fax' => array(xl('Fax/Scan')  , 0, 'fax/faxq.php'),
 108   'adb' => array(xl('Addr Bk')   , 0, 'usergroup/addrbook_list.php'),
 109   'ort' => array(xl('Proc Cat')  , 0, 'orders/types.php'),
 110   'orb' => array(xl('Proc Bat')  , 0, 'orders/orders_results.php?batch=1'),
 111   'cht' => array(xl('Chart Trk') , 0, '../custom/chart_tracker.php'),
 112   'imp' => array(xl('Import')    , 0, '../custom/import.php'),
 113   'bil' => array(xl('Billing')   , 0, 'billing/billing_report.php'),
 114   'sup' => array(xl('Superbill') , 0, 'patient_file/encounter/superbill_custom_full.php'),
 115   'aun' => array(xl('Authorizations'), 0, 'main/authorizations/authorizations.php'),
 116   'new' => array(xl('New Pt')    , 0, 'new/new.php'),
 117   'dem' => array(xl('Patient')   , 1,  "patient_file/summary/demographics.php"),
 118   'his' => array(xl('History')   , 1, 'patient_file/history/history.php'),
 119   'ens' => array(xl('Visit History'), 1, 'patient_file/history/encounters.php'),
 120   'nen' => array(xl('Create Visit'), 1, 'forms/newpatient/new.php?autoloaded=1&calenc='),
 121   'pre' => array(xl('Rx')        , 1, 'patient_file/summary/rx_frameset.php'),
 122   'iss' => array(xl('Issues')    , 1, 'patient_file/summary/stats_full.php?active=all'),
 123   'imm' => array(xl('Immunize')  , 1, 'patient_file/summary/immunizations.php'),
 124   'doc' => array(xl('Documents') , 1, '../controller.php?document&list&patient_id={PID}'),
 125   'orp' => array(xl('Proc Pending Rev'), 1, 'orders/orders_results.php?review=1'),
 126   'orr' => array(xl('Proc Res')  , 1, 'orders/orders_results.php'),
 127   'prp' => array(xl('Pt Report') , 1, 'patient_file/report/patient_report.php'),
 128   'pno' => array(xl('Pt Notes')  , 1, 'patient_file/summary/pnotes.php'),
 129   'tra' => array(xl('Transact')  , 1, 'patient_file/transaction/transactions.php'),
 130   'sum' => array(xl('Summary')   , 1, 'patient_file/summary/summary_bottom.php'),
 131   'enc' => array(xl('Encounter') , 2, 'patient_file/encounter/encounter_top.php'),
 132  );
 133  $primary_docs['npa']=array(xl('Payments')   , 0, 'billing/new_payment.php');
 134  if ($GLOBALS['use_charges_panel'] || $GLOBALS['concurrent_layout'] == 2) {
 135   $primary_docs['cod'] = array(xl('Charges'), 2, 'patient_file/encounter/encounter_bottom.php');
 136  }
 137
 138  // This section decides which navigation items will not appear.
 139
 140  $disallowed = array();
 141
 142  $disallowed['adm'] = !(acl_check('admin', 'calendar') ||
 143   acl_check('admin', 'database') || acl_check('admin', 'forms') ||
 144   acl_check('admin', 'practice') || acl_check('admin', 'users') ||
 145   acl_check('admin', 'acl')      || acl_check('admin', 'super') ||
 146   acl_check('admin', 'superbill'));
 147
 148  $disallowed['bil'] = !(acl_check('acct', 'rep') || acl_check('acct', 'eob') ||
 149   acl_check('acct', 'bill'));
 150
 151  $tmp = acl_check('patients', 'demo');
 152  $disallowed['new'] = !($tmp == 'write' || $tmp == 'addonly');
 153
 154  $disallowed['fax'] = !($GLOBALS['enable_hylafax'] || $GLOBALS['enable_scanner']);
 155
 156  $disallowed['ros'] = !$GLOBALS['athletic_team'];
 157
 158  $disallowed['iss'] = !((acl_check('encounters', 'notes') == 'write' ||
 159   acl_check('encounters', 'notes_a') == 'write') &&
 160   acl_check('patients', 'med') == 'write');
 161
 162  $disallowed['imp'] = $disallowed['new'] ||
 163   !is_readable("$webserver_root/custom/import.php");
 164
 165  $disallowed['cht'] = !is_readable("$webserver_root/custom/chart_tracker.php");
 166
 167  $disallowed['pre'] = !(acl_check('patients', 'med'));
 168
 169  // Helper functions for treeview generation.
 170  function genTreeLink($frame, $name, $title, $mono=false) {
 171   global $primary_docs, $disallowed;
 172   if (empty($disallowed[$name])) {
 173    $id = $name . $primary_docs[$name][1];
 174    echo "<li><a href='' id='$id' onclick=\"";
 175    if ($mono) {
 176     if ($frame == 'RTop')
 177      echo "forceSpec(true,false);";
 178     else
 179      echo "forceSpec(false,true);";
 180    }
 181    echo "return loadFrame2('$id','$frame','" .
 182         $primary_docs[$name][2] . "')\">" . $title . "</a></li>";
 183   }
 184  }
 185  function genMiscLink($frame, $name, $level, $title, $url, $mono=false) {
 186   global $disallowed;
 187   if (empty($disallowed[$name])) {
 188    $id = $name . $level;
 189    echo "<li><a href='' id='$id' onclick=\"";
 190    if ($mono) {
 191     if ($frame == 'RTop')
 192      echo "forceSpec(true,false);";
 193     else
 194      echo "forceSpec(false,true);";
 195    }
 196    echo "return loadFrame2('$id','$frame','" .
 197         $url . "')\">" . $title . "</a></li>";
 198   }
 199  }
 200  function genPopLink($title, $url, $linkid='') {
 201   echo "<li><a href='' ";
 202   if ($linkid) echo "id='$linkid' ";
 203   echo "onclick=\"return repPopup('$url')\"" .
 204        ">" . $title . "</a></li>";
 205  }
 206  function genDualLink($topname, $botname, $title) {
 207   global $primary_docs, $disallowed;
 208   if (empty($disallowed[$topname]) && empty($disallowed[$botname])) {
 209    $topid = $topname . $primary_docs[$topname][1];
 210    $botid = $botname . $primary_docs[$botname][1];
 211    echo "<li><a href='' id='$topid' " .
 212         "onclick=\"return loadFrameDual('$topid','$botid','" .
 213         $primary_docs[$topname][2] . "','" .
 214         $primary_docs[$botname][2] . "')\">" . $title . "</a></li>";
 215   }
 216  }
 217
 218 function genPopupsList($style='') {
 219   global $disallowed, $webserver_root;
 220 ?>
 221 <select name='popups' onchange='selpopup(this)' style='background-color:transparent;font-size:9pt;<?php echo $style; ?>'>
 222  <option value=''><?php xl('Popups','e'); ?></option>
 223 <?php if (!$disallowed['iss']) { ?>
 224  <option value='../patient_file/problem_encounter.php'><?php xl('Issues','e'); ?></option>
 225 <?php } ?>
 226 <?php if (!$GLOBALS['ippf_specific']) { ?>
 227  <option value='../../custom/export_xml.php'><?php xl('Export','e'); ?></option>
 228  <option value='../../custom/import_xml.php'><?php xl('Import','e'); ?></option>
 229 <?php } ?>
 230 <?php if ($GLOBALS['athletic_team']) { ?>
 231  <option value='../reports/players_report.php'><?php xl('Roster','e'); ?></option>
 232 <?php } ;
 233  if (!$GLOBALS['disable_calendar']) { ?>
 234  <option value='../reports/appointments_report.php?patient=<?php echo $pid ?>'><?php xl('Appts','e'); ?></option>
 235 <?php } ;
 236  if (file_exists("$webserver_root/custom/refer.php")) { ?>
 237  <option value='../../custom/refer.php'><?php xl('Refer','e'); ?></option>
 238 <?php } ?>
 239 <?php // if (file_exists("$webserver_root/custom/fee_sheet_codes.php")) { ?>
 240  <option value='../patient_file/printed_fee_sheet.php?fill=1'><?php xl('Superbill','e'); ?></option>
 241 <?php // } ?>
 242 <?php if ($GLOBALS['inhouse_pharmacy']) { ?>
 243  <option value='../patient_file/front_payment.php'><?php xl('Prepay','e'); ?></option>
 244  <option value='../patient_file/pos_checkout.php'><?php xl('Checkout','e'); ?></option>
 245 <?php } else { ?>
 246  <option value='../patient_file/front_payment.php'><?php xl('Payment','e'); ?></option>
 247 <?php } ?>
 248 <?php if (is_dir($GLOBALS['OE_SITE_DIR'] . "/letter_templates")) { ?>
 249  <option value='../patient_file/letter.php'><?php xl('Letter','e'); ?></option>
 250 <?php } ?>
 251 </select>
 252 <?php
 253 }
 254
 255 ?>
 256 <html>
 257 <head>
 258 <title>Navigation</title>
 259 <link rel="stylesheet" href="<?php echo $css_header;?>" type="text/css">
 260
 261 <style type="text/css">
 262  body {
 263   font-size:8pt;
 264   font-weight:normal;
 265   padding: 5px 3px 5px 3px;
 266  }
 267  .smalltext {
 268   font-family:sans-serif;
 269   font-size:8pt;
 270   font-weight:normal;
 271  }
 272  a.navitem, a.navitem:visited {
 273   color:#0000ff;
 274   font-family:sans-serif;
 275   font-size:8pt;
 276   font-weight:bold;
 277  }
 278 .inputtext {
 279  font-size:9pt;
 280  font-weight:normal;
 281  border-style:solid;
 282  border-width:1px;
 283  padding-left:2px;
 284  padding-right:2px;
 285  border-color: #000000;
 286  background-color:transparent;
 287 }
 288
 289 #navigation ul {
 290  background-color:transparent;
 291 }
 292 </style>
 293
 294 <link rel="stylesheet" href="../../library/js/jquery.treeview-1.3/jquery.treeview.css" />
 295 <script src="../../library/js/jquery-1.2.2.min.js" type="text/javascript"></script>
 296 <script src="../../library/js/jquery.treeview-1.3/jquery.treeview.min.js" type="text/javascript"></script>
 297
 298 <script type="text/javascript" src="../../library/dialog.js"></script>
 299
 300 <script language='JavaScript'>
 301
 302  // Master values for current pid and encounter.
 303  var active_pid = 0;
 304  var active_encounter = 0;
 305
 306  // Current selections in the top and bottom frames.
 307  var topName = '';
 308  var botName = '';
 309
 310  // Expand and/or collapse frames in response to checkbox clicks.
 311  // fnum indicates which checkbox was clicked (1=left, 2=right).
 312  function toggleFrame(fnum) {
 313   var f = document.forms[0];
 314   var fset = top.document.getElementById('fsright');
 315   if (!f.cb_top.checked && !f.cb_bot.checked) {
 316    if (fnum == 1) f.cb_bot.checked = true;
 317    else f.cb_top.checked = true;
 318   }
 319   var rows = f.cb_top.checked ? '*' :  '0';
 320   rows += f.cb_bot.checked ? ',*' : ',0';
 321   fset.rows = rows;
 322   fset.rows = rows;
 323  }
 324
 325  // Load the specified url into the specified frame (RTop or RBot).
 326  // The URL provided must be relative to interface.
 327  function loadFrame(fname, frame, url) {
 328   top.restoreSession();
 329   var i = url.indexOf('{PID}');
 330   if (i >= 0) url = url.substring(0,i) + active_pid + url.substring(i+5);
 331   top.frames[frame].location = '<?php echo "$web_root/interface/" ?>' + url;
 332   if (frame == 'RTop') topName = fname; else botName = fname;
 333  }
 334
 335  // Load the specified url into a frame to be determined, with the specified
 336  // frame as the default; the url must be relative to interface.
 337  function loadFrame2(fname, frame, url) {
 338   var usage = fname.substring(3);
 339   if (active_pid == 0 && usage > '0') {
 340    alert('<?php xl('You must first select or add a patient.','e') ?>');
 341    return false;
 342   }
 343   if (active_encounter == 0 && usage > '1') {
 344    alert('<?php xl('You must first select or create an encounter.','e') ?>');
 345    return false;
 346   }
 347   var f = document.forms[0];
 348   top.restoreSession();
 349   var i = url.indexOf('{PID}');
 350   if (i >= 0) url = url.substring(0,i) + active_pid + url.substring(i+5);
 351   if(f.sel_frame)
 352    {
 353           var fi = f.sel_frame.selectedIndex;
 354           if (fi == 1) frame = 'RTop'; else if (fi == 2) frame = 'RBot';
 355    }
 356   if (!f.cb_bot.checked) frame = 'RTop'; else if (!f.cb_top.checked) frame = 'RBot';
 357   top.frames[frame].location = '<?php echo "$web_root/interface/" ?>' + url;
 358   if (frame == 'RTop') topName = fname; else botName = fname;
 359   return false;
 360  }
 361
 362  // Make sure the the top and bottom frames are open or closed, as specified.
 363  function forceSpec(istop, isbot) {
 364   var f = document.forms[0];
 365   if (f.cb_top.checked != istop) {
 366    f.cb_top.checked = istop;
 367    toggleFrame(1);
 368   }
 369   if (f.cb_bot.checked != isbot) {
 370    f.cb_bot.checked = isbot;
 371    toggleFrame(2);
 372   }
 373  }
 374
 375  // Make sure both frames are open.
 376  function forceDual() {
 377   forceSpec(true, true);
 378  }
 379
 380  // Load the specified url into a frame to be determined, with the specified
 381  // frame as the default; the url must be relative to interface.
 382  function loadFrameDual(tname, bname, topurl, boturl) {
 383   var topusage = tname.substring(3);
 384   var botusage = bname.substring(3);
 385   if (active_pid == 0 && (topusage > '0' || botusage > '0')) {
 386    alert('<?php xl('You must first select or add a patient.','e') ?>');
 387    return false;
 388   }
 389   if (active_encounter == 0 && (topusage > '1' || botusage > '1')) {
 390    alert('<?php xl('You must first select or create an encounter.','e') ?>');
 391    return false;
 392   }
 393   var f = document.forms[0];
 394   forceDual();
 395   top.restoreSession();
 396   var i = topurl.indexOf('{PID}');
 397   if (i >= 0) topurl = topurl.substring(0,i) + active_pid + topurl.substring(i+5);
 398   i = boturl.indexOf('{PID}');
 399   if (i >= 0) boturl = boturl.substring(0,i) + active_pid + boturl.substring(i+5);
 400   top.frames.RTop.location = '<?php echo "$web_root/interface/" ?>' + topurl;
 401   top.frames.RBot.location = '<?php echo "$web_root/interface/" ?>' + boturl;
 402   topName = tname;
 403   botName = bname;
 404   return false;
 405  }
 406
 407  // Select a designated radio button. raname may be either the radio button
 408  // array name (rb_top or rb_bot), or the frame name (RTop or RBot).
 409  // You should call this if you directly load a document that does not
 410  // correspond to the current radio button setting.
 411  function setRadio(raname, rbid) {
 412 <?php if ($GLOBALS['concurrent_layout'] != 2) { ?>
 413   var f = document.forms[0];
 414   if (raname == 'RTop') raname = 'rb_top';
 415   if (raname == 'RBot') raname = 'rb_bot';
 416   for (var i = 0; i < f[raname].length; ++i) {
 417    if (f[raname][i].value.substring(0,3) == rbid) {
 418     f[raname][i].checked = true;
 419     return true;
 420    }
 421   }
 422 <?php } ?>
 423   return false;
 424  }
 425
 426  // Set disabled/enabled state of radio buttons and associated labels
 427  // depending on whether there is an active patient or encounter.
 428  function syncRadios() {
 429   var f = document.forms[0];
 430 <?php if ($GLOBALS['concurrent_layout'] == 2) { ?>
 431   var nlinks = document.links.length;
 432   for (var i = 0; i < nlinks; ++i) {
 433    var lnk = document.links[i];
 434    if (lnk.id.length != 4) continue;
 435    var usage = lnk.id.substring(3);
 436    if (usage == '1' || usage == '2') {
 437     var da = false;
 438     if (active_pid == 0) da = true;
 439     if (active_encounter == 0 && usage > '1') da = true;
 440     lnk.style.color = da ? '#888888' : '#0000ff';
 441    }
 442   }
 443 <?php } else { ?>
 444   for (var i = 0; i < f.rb_top.length; ++i) {
 445    var da = false;
 446    var rb1 = f.rb_top[i];
 447    var rb2 = f.rb_bot[i];
 448    var rbid = rb1.value.substring(0,3);
 449    var usage = rb1.value.substring(3);
 450    if (active_pid == 0 && usage > '0') da = true;
 451    if (active_encounter == 0 && usage > '1') da = true;
 452    // daemon_frame can also set special label colors, so don't mess with
 453    // them unless we have to.
 454    if (rb1.disabled != da) {
 455     rb1.disabled = da;
 456     rb2.disabled = da;
 457     document.getElementById('lbl_' + rbid).style.color = da ? '#888888' : '#000000';
 458    }
 459   }
 460 <?php } ?>
 461   f.popups.disabled = (active_pid == 0);
 462  }
 463
 464 function goHome() {
 465     top.frames['RTop'].location='<?php echo $GLOBALS['default_top_pane']?>';
 466     top.frames['RBot'].location='messages/messages.php';
 467 }
 468
 469  // Reference to the search.php window.
 470  var my_window;
 471
 472  // Open the search.php window.
 473  function initFilter() {
 474     my_window = window.open("../../custom/search.php", "mywindow","status=1");
 475  }
 476
 477  // This is called by the search.php (Filter) window.
 478  function processFilter(fieldString, serviceCode) {
 479   var f = document.forms[0];
 480   document.getElementById('searchFields').value = fieldString;
 481   f.search_service_code.value = serviceCode;
 482   findPatient("Filter");
 483   f.search_service_code.value = '';
 484   my_window.close();
 485  }
 486
 487  // Process the click to find a patient by name, id, ssn or dob.
 488  function findPatient(findby) {
 489   var f = document.forms[0];
 490   if (! f.cb_top.checked) {
 491    f.cb_top.checked = true;
 492    toggleFrame(1);
 493   }
 494   f.findBy.value = findby;
 495   setRadio('rb_top', 'dem');
 496   top.restoreSession();
 497   document.find_patient.submit();
 498  }
 499
 500  // Helper function to set the contents of a div.
 501  function setSomeContent(id, content, doc) {
 502   if (doc.getElementById) {
 503    var x = doc.getElementById(id);
 504    x.innerHTML = '';
 505    x.innerHTML = content;
 506   }
 507   else if (doc.all) {
 508    var x = doc.all[id];
 509    x.innerHTML = content;
 510   }
 511  }
 512  function setDivContent(id, content) {
 513   setSomeContent(id, content, document);
 514  }
 515  function setTitleContent(id, content) {
 516   setSomeContent(id, content, parent.Title.document);
 517  }
 518
 519  // This is called automatically when a new patient is set, to make sure
 520  // there are no patient-specific documents showing stale data.  If a frame
 521  // was just loaded with data for the correct patient, its name is passed so
 522  // that it will not be zapped.  At this point the new server-side pid is not
 523  // assumed to be set, so this function will only load global data.
 524  function reloadPatient(frname) {
 525   var f = document.forms[0];
 526   if (topName.length > 3 && topName.substring(3) > '0' && frname != 'RTop') {
 527    loadFrame('cal0','RTop', '<?php echo $primary_docs['cal'][2]; ?>');
 528    setRadio('rb_top', 'cal');
 529   }
 530   if (botName.length > 3 && botName.substring(3) > '0' && frname != 'RBot') {
 531    loadFrame('ens0','RBot', '<?php echo $primary_docs['ens'][2]; ?>');
 532    setRadio('rb_bot', 'ens');
 533   }
 534  }
 535
 536  // Reload encounter-specific frames, excluding a specified frame.  At this
 537  // point the new server-side encounter ID may not be set and loading the same
 538  // document for the new encounter will not work, so load patient info instead.
 539  function reloadEncounter(frname) {
 540   var f = document.forms[0];
 541   if (topName.length > 3 && topName.substring(3) > '1' && frname != 'RTop') {
 542    loadFrame('dem1','RTop', '<?php echo $primary_docs['dem'][2]; ?>');
 543    setRadio('rb_top', 'dem');
 544   }
 545   if (botName.length > 3 && botName.substring(3) > '1' && frname != 'RBot') {
 546    loadFrame('ens1','RBot', '<?php echo $primary_docs['ens'][2]; ?>');
 547    setRadio('rb_bot', 'ens');
 548   }
 549  }
 550
 551  // Call this to announce that the patient has changed.  You must call this
 552  // if you change the session PID, so that the navigation frame will show the
 553  // correct patient and so that the other frame will be reloaded if it contains
 554  // patient-specific information from the previous patient.  frname is the name
 555  // of the frame that the call came from, so we know to only reload content
 556  // from the *other* frame if it is patient-specific.
 557  function setPatient(pname, pid, pubpid, frname, str_dob) {
 558   var str = '<a href=\'javascript:;\' onclick="parent.left_nav.loadCurrentPatientFromTitle()" title="PID = ' + pid + '"><b>' + pname + ' (' + pubpid + ')<br /></b></a>';
 559   setDivContent('current_patient', str);
 560   setTitleContent('current_patient', str + str_dob);
 561   if (pid == active_pid) return;
 562   setDivContent('current_encounter', '<b><?php xl('None','e'); ?></b>');
 563   active_pid = pid;
 564   active_encounter = 0;
 565   if (frname) reloadPatient(frname);
 566   syncRadios();
 567   $(parent.Title.document.getElementById('current_patient_block')).show();
 568   var encounter_block = $(parent.Title.document.getElementById('current_encounter_block'));
 569   $(encounter_block).hide();
 570
 571   // zero out the encounter frame, replace it with the encounter list frame
 572   var f = document.forms[0];
 573   if ( f.cb_top.checked && f.cb_bot.checked ) {
 574       var encounter_frame = getEncounterTargetFrame('enc');
 575       if ( encounter_frame != undefined )  {
 576           loadFrame('ens0',encounter_frame, '<?php echo $primary_docs['ens'][2]; ?>');
 577           setRadio(encounter_frame, 'ens');
 578       }
 579    }
 580   }
 581  function setPatientEncounter(EncounterIdArray,EncounterDateArray,CalendarCategoryArray) {
 582  //This function lists all encounters of the patient.
 583  //This function writes the drop down in the top frame.
 584  //It is called when a new patient is create/selected from the search menu.
 585   var str = '<Select class="text" id="EncounterHistory" onchange="toencounter(this.options[this.selectedIndex].value)">';
 586   str+='<option value=""><?php echo htmlspecialchars( xl('Encounter History'), ENT_QUOTES) ?></option>';
 587   str+='<option value="New Encounter"><?php echo htmlspecialchars( xl('New Encounter'), ENT_QUOTES) ?></option>';
 588   str+='<option value="Past Encounter List"><?php echo htmlspecialchars( xl('Past Encounter List'), ENT_QUOTES) ?></option>';
 589   for(CountEncounter=0;CountEncounter<EncounterDateArray.length;CountEncounter++)
 590    {
 591     str+='<option value="'+EncounterIdArray[CountEncounter]+'~'+EncounterDateArray[CountEncounter]+'">'+EncounterDateArray[CountEncounter]+'-'+CalendarCategoryArray[CountEncounter]+'</option>';
 592    }
 593   str+='</Select>';
 594   $(parent.Title.document.getElementById('past_encounter_block')).show();
 595   top.window.parent.Title.document.getElementById('past_encounter').innerHTML=str;
 596  }
 597
 598 function loadCurrentPatientFromTitle() {
 599     top.frames['RTop'].location='../patient_file/summary/demographics.php';
 600 }
 601
 602 function getEncounterTargetFrame( name ) {
 603     var bias = <?php echo $primary_docs[ 'enc'  ][ 1 ]?>;
 604     var f = document.forms[0];
 605     var r = 'RTop';
 606     if (f.cb_top.checked && f.cb_bot.checked) {
 607         if ( bias == 2 ) {
 608             r = 'RBot';
 609         } else {
 610             r = 'RTop';
 611         }
 612     } else {
 613         if ( f.cb_top.checked ) {
 614             r = 'RTop';
 615         } else if ( f.cb_bot.checked )  {
 616             r = 'RBot';
 617         }
 618     }
 619     return r;
 620 }
 621
 622  // Call this to announce that the encounter has changed.  You must call this
 623  // if you change the session encounter, so that the navigation frame will
 624  // show the correct encounter and so that the other frame will be reloaded if
 625  // it contains encounter-specific information from the previous encounter.
 626  // frname is the name of the frame that the call came from, so we know to only
 627  // reload encounter-specific content from the *other* frame.
 628  function setEncounter(edate, eid, frname) {
 629   if (eid == active_encounter) return;
 630   if (!eid) edate = '<?php xl('None','e'); ?>';
 631   var str = '<b>' + edate + '</b>';
 632   setDivContent('current_encounter', str);
 633   active_encounter = eid;
 634   reloadEncounter(frname);
 635   syncRadios();
 636   var encounter_block = $(parent.Title.document.getElementById('current_encounter_block'));
 637   var encounter = $(parent.Title.document.getElementById('current_encounter'));
 638   var estr = '<a href=\'javascript:;\' onclick="parent.left_nav.loadCurrentEncounterFromTitle()"><b>' + edate + ' (' + eid + ')</b></a>';
 639   encounter.html( estr );
 640   encounter_block.show();
 641  }
 642
 643  function loadCurrentEncounterFromTitle() {
 644       top.frames[ parent.left_nav.getEncounterTargetFrame('enc') ].location='../patient_file/encounter/encounter_top.php';
 645  }
 646
 647  // You must call this if you delete the active patient (or if for any other
 648  // reason you "close" the active patient without opening a new one), so that
 649  // the appearance of the navigation frame will be correct and so that any
 650  // stale content will be reloaded.
 651  function clearPatient() {
 652   if (active_pid == 0) return;
 653   var f = document.forms[0];
 654   active_pid = 0;
 655   active_encounter = 0;
 656   setDivContent('current_patient', '<b><?php xl('None','e'); ?></b>');
 657   setTitleContent('current_patient', '<b><?php xl('None','e'); ?></b>');
 658   top.window.parent.Title.document.getElementById('past_encounter').innerHTML='';
 659   top.window.parent.Title.document.getElementById('current_encounter').innerHTML="<b><?php echo htmlspecialchars( xl('None'), ENT_QUOTES) ?></b>";
 660   reloadPatient('');
 661   syncRadios();
 662  }
 663
 664  // You must call this if you delete the active encounter (or if for any other
 665  // reason you "close" the active encounter without opening a new one), so that
 666  // the appearance of the navigation frame will be correct and so that any
 667  // stale content will be reloaded.
 668  function clearEncounter() {
 669   if (active_encounter == 0) return;
 670   top.window.parent.Title.document.getElementById('current_encounter').innerHTML="<b><?php echo htmlspecialchars( xl('None'), ENT_QUOTES) ?></b>";
 671   active_encounter = 0;
 672   reloadEncounter('');
 673   syncRadios();
 674  }
 675 function removeOptionSelected(EncounterId)
 676 {//Removes an item from the Encounter drop down.
 677         var elSel = top.window.parent.Title.document.getElementById('EncounterHistory');
 678         var i;
 679         for (i = elSel.length - 1; i>=2; i--) {
 680          EncounterHistoryValue=elSel.options[i].value;
 681          EncounterHistoryValueArray=EncounterHistoryValue.split('~');
 682                 if (EncounterHistoryValueArray[0]==EncounterId) {
 683                         elSel.remove(i);
 684                 }
 685         }
 686 }
 687
 688  // You can call this to make sure the session pid is what we expect.
 689  function pidSanityCheck(pid) {
 690   if (pid != active_pid) {
 691    alert('Session patient ID is ' + pid + ', expecting ' + active_pid +
 692     '. This session is unstable and should be abandoned. Do not use ' +
 693     'OpenEMR in multiple browser windows!');
 694    return false;
 695   }
 696   return true;
 697  }
 698
 699  // You can call this to make sure the session encounter is what we expect.
 700  function encounterSanityCheck(eid) {
 701   if (eid != active_encounter) {
 702    alert('Session encounter ID is ' + eid + ', expecting ' + active_encounter +
 703     '. This session is unstable and should be abandoned. Do not use ' +
 704     'OpenEMR in multiple browser windows!');
 705    return false;
 706   }
 707   return true;
 708  }
 709
 710  // Pop up a report.
 711  function repPopup(aurl) {
 712   top.restoreSession();
 713   window.open('<?php echo "$web_root/interface/reports/" ?>' + aurl, '_blank', 'width=750,height=550,resizable=1,scrollbars=1');
 714   return false;
 715  }
 716
 717  // This is invoked to pop up some window when a popup item is selected.
 718  function selpopup(selobj) {
 719   var i = selobj.selectedIndex;
 720   var opt = selobj.options[i];
 721   if (i > 0) {
 722    var width  = 750;
 723    var height = 550;
 724    if (opt.text == 'Export' || opt.text == 'Import') {
 725     width  = 500;
 726     height = 400;
 727    }
 728    else if (opt.text == 'Refer') {
 729     width  = 700;
 730     height = 500;
 731    }
 732    dlgopen(opt.value, '_blank', width, height);
 733   }
 734   selobj.selectedIndex = 0;
 735  }
 736
 737  // Treeview activation stuff:
 738  $(document).ready(function(){
 739   $("#navigation").treeview({
 740    animated: "fast",
 741    collapsed: true,
 742    unique: <?php echo $GLOBALS['athletic_team'] ? 'false' : 'true' ?>,
 743    toggle: function() {
 744     window.console && console.log("%o was toggled", this);
 745    }
 746   });
 747  });
 748
 749 </script>
 750
 751 </head>
 752
 753 <body class="body_nav">
 754
 755 <form method='post' name='find_patient' target='RTop'
 756  action='<?php echo $rootdir ?>/main/finder/patient_select.php'>
 757
 758 <?php if ($GLOBALS['concurrent_layout'] == 2) { ?>
 759
 760 <center>
 761 <select name='sel_frame' style='background-color:transparent;font-size:9pt;width:<?php echo $GLOBALS['athletic_team'] ? 47 : 100; ?>%;'>
 762  <option value='0'><?php xl('Default','e'); ?></option>
 763  <option value='1'><?php xl('Top','e'); ?></option>
 764  <option value='2'><?php xl('Bottom','e'); ?></option>
 765 </select>
 766 <?php if ($GLOBALS['athletic_team']) genPopupsList('width:47%'); ?>
 767 </center>
 768
 769 <table cellpadding='0' cellspacing='0' border='0' width='100%'>
 770  <tr>
 771   <td class='smalltext' nowrap>
 772    <input type='checkbox' name='cb_top' onclick='toggleFrame(1)' checked />
 773    <b><?php xl('Top','e') ?></b>
 774   </td>
 775   <td class='smalltext' align='right' nowrap>
 776    <b><?php xl('Bot','e') ?></b>
 777    <input type='checkbox' name='cb_bot' onclick='toggleFrame(2)' <?php if (empty($GLOBALS['athletic_team'])) echo 'checked '; ?>/>
 778   </td>
 779  </tr>
 780 </table>
 781
 782 <?php if ($GLOBALS['athletic_team']) { // Tree menu for athletic teams ?>
 783
 784 <ul id="navigation">
 785   <li class="open"><span><?php xl('Patient/Client','e') ?></span>
 786     <ul>
 787       <li class="open"><span><?php xl('Demographics','e') ?></span>
 788         <ul>
 789           <?php genTreeLink('RTop','new',($GLOBALS['full_new_patient_form'] ? xl('New/Search') : xl('New'))); ?>
 790           <?php genTreeLink('RTop','dem',xl('Current')); ?>
 791         </ul>
 792       </li>
 793       <li class="open"><span><?php xl('Medical Records','e') ?></span>
 794         <ul>
 795           <?php // genPopLink (xl('Team Roster'),'players_report.php'); ?>
 796
 797           <?php genTreeLink('RTop','ros',xl('Weekly Exposures'),true); ?>
 798           <?php genMiscLink('RTop','ros','0',xl('Team Roster'),'reports/old_players_report.php?embed=1',true); ?>
 799           <?php if (!$GLOBALS['disable_calendar']) genTreeLink('RTop','cal',xl('Calendar'),true); ?>
 800
 801           <?php genDualLink('nen','ens',xl('New Consultation')); // with ens on bottom ?>
 802
 803           <?php // genDualLink('enc','ens','Current Consultation'); // with ens on bottom ?>
 804           <?php genTreeLink('RTop','enc',xl('Current Consultation')); // encounter_top will itself load ens on bottom ?>
 805
 806           <?php // genDualLink('dem','ens',xl('Previous Consultations')); // with dem on top ?>
 807           <?php genTreeLink('RBot','ens',xl('Previous Consultations'),true); ?>
 808           <?php genDualLink('his','ens',xl('Prev Med/Surg Hx')); // with ens on bottom ?>
 809
 810           <?php // genTreeLink('RBot','nen',xl('New Allergy')); // nen with Allergy in chief complaint ?>
 811           <?php genPopLink(xl('New Allergy'),'../patient_file/summary/add_edit_issue.php?thistype=allergy','xxx1'); ?>
 812
 813           <?php genTreeLink('RTop','iss',xl('View/Edit Allergies')); // somehow emphasizing allergies...? ?>
 814           <?php genDualLink('iss','ens',xl('Problems/Issues')); // with ens on bottom ?>
 815           <?php genDualLink('tra','ens',xl('Transactions/Referrals')); // new transaction form on top and tra list on bottom (or ens if no tra) ?>
 816           <?php if (!$GLOBALS['disable_immunizations']) genDualLink('his','imm',xl('Immunizations')); // imm on bottom, his on top ?>
 817           <?php if (acl_check('patients', 'med') && !$GLOBALS['disable_prescriptions']) genDualLink('his','pre',xl('Prescriptions')); // pre on bottom, his on top ?>
 818           <?php genTreeLink('RTop','doc',xl('Document/Imaging Store'),true); ?>
 819           <?php genTreeLink('RTop','prp',xl('Patient Printed Report')); ?>
 820           <?php genDualLink('dem','pno',xl('Additional Notes')); // with dem on top ?>
 821           <li><a href='' onClick="return repPopup('../patient_file/letter.php')" id='prp1'>Letter</a></li>
 822           <?php genPopLink(xl('Address Book'),'../usergroup/addrbook_list.php?popup=1'); ?>
 823          </ul>
 824       </li>
 825     </ul>
 826   </li>
 827   <li class="open"><span><?php xl('Reports','e') ?></span>
 828     <ul>
 829       <li class="open"><span><?php xl('Athletic/Injury','e') ?></span>
 830         <ul>
 831           <?php genTreeLink('RTop','prp',xl('Patient Printed Report')); // also appears above ?>
 832           <?php genPopLink(xl('Games/Events Missed'),'absences_report.php'); ?>
 833           <?php genPopLink(xl('Injury Surveillance'),'football_injury_report.php'); ?>
 834           <?php genPopLink(xl('Team Injury Overview'),'injury_overview_report.php'); ?>
 835         </ul>
 836       </li>
 837       <li><span><?php xl('Patient/Client','e') ?></span>
 838         <ul>
 839           <?php genPopLink(xl('List'),'patient_list.php'); ?>
 840           <?php if (acl_check('patients', 'med') && !$GLOBALS['disable_prescriptions']) genPopLink(xl('Prescriptions'),'prescriptions_report.php'); ?>
 841           <?php genPopLink(xl('Referrals'),'referrals_report.php'); ?>
 842         </ul>
 843       </li>
 844       <li><span><?php xl('Visits','e') ?></span>
 845         <ul>
 846           <?php if (!$GLOBALS['disable_calendar']) genPopLink(xl('Appointments'),'appointments_report.php'); ?>
 847           <?php genPopLink(xl('Encounters'),'encounters_report.php'); ?>
 848           <?php if (!$GLOBALS['disable_calendar']) genPopLink(xl('Appt-Enc'),'appt_encounter_report.php'); ?>
 849         </ul>
 850       </li>
 851       <li><span><?php xl('General','e') ?></span>
 852         <ul>
 853           <?php genPopLink(xl('Services'),'services_by_category.php'); ?>
 854           <?php if ($GLOBALS['inhouse_pharmacy']) genPopLink(xl('Inventory'),'inventory_list.php'); ?>
 855           <?php if ($GLOBALS['inhouse_pharmacy']) genPopLink(xl('Destroyed'),'destroyed_drugs_report.php'); ?>
 856         </ul>
 857       </li>
 858     </ul>
 859   </li>
 860   <li><span><?php xl('Fees','e') ?></span>
 861     <ul>
 862       <?php genMiscLink('RBot','cod','2',xl('Fee Sheet'),'patient_file/encounter/load_form.php?formname=fee_sheet'); ?>
 863       <?php genMiscLink('RBot','bil','1',xl('Checkout'),'patient_file/pos_checkout.php?framed=1'); ?>
 864     </ul>
 865   </li>
 866   <?php if ($GLOBALS['inhouse_pharmacy'] && acl_check('admin', 'drugs')) genMiscLink('RTop','adm','0',xl('Inventory'),'drugs/drug_inventory.php'); ?>
 867   <li><span><?php xl('Administration','e') ?></span>
 868     <ul>
 869       <?php if (acl_check('admin', 'super'    )) genMiscLink('RTop','adm','0',xl('Globals'),'super/edit_globals.php'); ?>
 870       <?php if (acl_check('admin', 'users'    )) genMiscLink('RTop','adm','0',xl('Facilities'),'usergroup/facilities.php'); ?>
 871       <?php if (acl_check('admin', 'users'    )) genMiscLink('RTop','adm','0',xl('Users'),'usergroup/usergroup_admin.php'); ?>
 872       <?php genTreeLink('RTop','pwd','Users Password Change'); ?>
 873       <?php if (acl_check('admin', 'practice' )) genMiscLink('RTop','adm','0',xl('Practice'),'../controller.php?practice_settings'); ?>
 874       <?php if (acl_check('admin', 'superbill')) genTreeLink('RTop','sup',xl('Services')); ?>
 875       <?php if (acl_check('admin', 'super'    )) genMiscLink('RTop','adm','0',xl('Layouts'),'super/edit_layout.php'); ?>
 876       <?php if (acl_check('admin', 'super'    )) genMiscLink('RTop','adm','0',xl('Lists'),'super/edit_list.php'); ?>
 877       <?php if (acl_check('admin', 'acl'      )) genMiscLink('RTop','adm','0',xl('ACL'),'usergroup/adminacl.php'); ?>
 878       <?php if ( ($GLOBALS['include_de_identification']) && (acl_check('admin', 'super'    )) ) genMiscLink('RTop','adm','0',xl('De Identification'),'de_identification_forms/de_identification_screen1.php'); ?>
 879       <?php if ( ($GLOBALS['include_de_identification']) && (acl_check('admin', 'super'    )) ) genMiscLink('RTop','adm','0',xl('Re Identification'),'de_identification_forms/re_identification_input_screen.php'); ?>
 880       <li><span><?php xl('Other','e') ?></span>
 881         <ul>
 882           <?php if (acl_check('admin', 'forms'   )) genMiscLink('RTop','adm','0',xl('Forms'),'forms_admin/forms_admin.php'); ?>
 883           <?php if (acl_check('admin', 'calendar') && !$GLOBALS['disable_calendar']) genMiscLink('RTop','adm','0',xl('Calendar'),'main/calendar/index.php?module=PostCalendar&type=admin&func=modifyconfig'); ?>
 884           <?php if (acl_check('admin', 'users'   )) genMiscLink('RTop','adm','0',xl('Logs'),'logview/logview.php'); ?>
 885           <?php if ( (!$GLOBALS['disable_phpmyadmin_link']) && (acl_check('admin', 'database')) ) genMiscLink('RTop','adm','0',xl('Database'),'../phpmyadmin/index.php'); ?>
 886           <?php if (acl_check('admin', 'super'   )) genMiscLink('RTop','adm','0',xl('Files'),'super/manage_site_files.php'); ?>
 887           <?php if (acl_check('admin', 'super'   )) genMiscLink('RTop','adm','0',xl('Backup'),'main/backup.php'); ?>
 888           <?php if (acl_check('admin', 'users'   )) genMiscLink('RTop','adm','0',xl('Certificates'),'usergroup/ssl_certificates_admin.php'); ?>
 889         </ul>
 890       </li>
 891     </ul>
 892   </li>
 893   <li><span><?php xl('Miscellaneous','e') ?></span>
 894     <ul>
 895       <?php genTreeLink('RBot','aun',xl('Authorizations')); ?>
 896       <?php genTreeLink('RTop','fax',xl('Fax/Scan')); ?>
 897       <?php genTreeLink('RTop','adb',xl('Addr Book')); ?>
 898       <?php genTreeLink('RTop','ono',xl('Ofc Notes')); ?>
 899       <?php genMiscLink('RTop','adm','0',xl('BatchCom'),'batchcom/batchcom.php'); ?>
 900     </ul>
 901   </li>
 902 </ul>
 903
 904 <?php } else { // not athletic team ?>
 905
 906 <ul id="navigation">
 907   <?php if (!$GLOBALS['disable_calendar'] && !$GLOBALS['ippf_specific']) genTreeLink('RTop','cal',xl('Calendar')); ?>
 908   <?php genTreeLink('RBot','msg',xl('Messages')); ?>
 909   <li class="open"><span><?php xl('Patient/Client','e') ?></span>
 910     <ul>
 911           <?php genTreeLink('RTop','new',($GLOBALS['full_new_patient_form'] ? xl('New/Search') : xl('New'))); ?>
 912           <?php genTreeLink('RTop','dem',xl('Summary')); ?>
 913       <li class="open"><span><?php xl('Visits','e') ?></span>
 914         <ul>
 915           <?php if ($GLOBALS['ippf_specific'] && !$GLOBALS['disable_calendar']) genTreeLink('RTop','cal',xl('Calendar')); ?>
 916           <?php genTreeLink('RBot','nen',xl('Create Visit')); ?>
 917           <?php genTreeLink('RBot','enc',xl('Current')); ?>
 918           <?php genTreeLink('RBot','ens',xl('Visit History')); ?>
 919         </ul>
 920       </li>
 921       <li><span><?php xl('Visit Forms','e') ?></span>
 922         <ul>
 923 <?php
 924 // Generate the items for visit forms, both traditional and LBF.
 925 //
 926 $lres = sqlStatement("SELECT * FROM list_options " .
 927   "WHERE list_id = 'lbfnames' ORDER BY seq, title");
 928 if (sqlNumRows($lres)) {
 929   while ($lrow = sqlFetchArray($lres)) {
 930     $option_id = $lrow['option_id']; // should start with LBF
 931     $title = $lrow['title'];
 932     genMiscLink('RBot','cod','2',xl_form_title($title),
 933       "patient_file/encounter/load_form.php?formname=$option_id");
 934   }
 935 }
 936 include_once("$srcdir/registry.inc");
 937 $reg = getRegistered();
 938 if (!empty($reg)) {
 939   foreach ($reg as $entry) {
 940     $option_id = $entry['directory'];
 941           $title = trim($entry['nickname']);
 942     if ($option_id == 'fee_sheet' ) continue;
 943     if ($option_id == 'newpatient') continue;
 944           if (empty($title)) $title = $entry['name'];
 945     genMiscLink('RBot','cod','2',xl_form_title($title),
 946       "patient_file/encounter/load_form.php?formname=" .
 947       urlencode($option_id));
 948   }
 949 }
 950 ?>
 951         </ul>
 952       </li>
 953         </ul>
 954       </li>
 955   <li><span><?php xl('Fees','e') ?></span>
 956     <ul>
 957       <?php genMiscLink('RBot','cod','2',xl('Fee Sheet'),'patient_file/encounter/load_form.php?formname=fee_sheet'); ?>
 958       <?php if ($GLOBALS['use_charges_panel']) genTreeLink('RBot','cod',xl('Charges')); ?>
 959       <?php genMiscLink('RBot','bil','1',xl('Checkout'),'patient_file/pos_checkout.php?framed=1'); ?>
 960       <?php if (! $GLOBALS['simplified_demographics']) genTreeLink('RTop','bil',xl('Billing')); ?>
 961           <?php genTreeLink('RTop','npa',xl('Payments'),false,2);?>
 962     </ul>
 963   </li>
 964   <?php // if ($GLOBALS['inhouse_pharmacy'] && acl_check('admin', 'drugs')) genMiscLink('RTop','adm','0',xl('Inventory'),'drugs/drug_inventory.php'); ?>
 965 <?php if ($GLOBALS['inhouse_pharmacy'] && acl_check('admin', 'drugs')) { ?>
 966   <li><span><?php xl('Inventory','e') ?></span>
 967     <ul>
 968       <?php genMiscLink('RTop','adm','0',xl('Management'),'drugs/drug_inventory.php'); ?>
 969       <?php genPopLink(xl('Destroyed'),'destroyed_drugs_report.php'); ?>
 970     </ul>
 971   </li>
 972 <?php } ?>
 973   <li><span><?php xl('Procedures','e') ?></span>
 974     <ul>
 975       <?php genTreeLink('RTop','ort',xl('Configuration')); ?>
 976       <?php genTreeLink('RTop','orp',xl('Pending Review')); ?>
 977       <?php genTreeLink('RTop','orr',xl('Patient Results')); ?>
 978       <?php genTreeLink('RTop','orb',xl('Batch Results')); ?>
 979     </ul>
 980   </li>
 981   <?php if (!$disallowed['adm']) { ?>
 982   <li><span><?php xl('Administration','e') ?></span>
 983     <ul>
 984       <?php if (acl_check('admin', 'super'    )) genMiscLink('RTop','adm','0',xl('Globals'),'super/edit_globals.php'); ?>
 985       <?php if (acl_check('admin', 'users'    )) genMiscLink('RTop','adm','0',xl('Facilities'),'usergroup/facilities.php'); ?>
 986       <?php if (acl_check('admin', 'users'    )) genMiscLink('RTop','adm','0',xl('Users'),'usergroup/usergroup_admin.php'); ?>
 987       <?php if (acl_check('admin', 'practice' )) genTreeLink('RTop','adb',xl('Addr Book')); ?>
 988       <?php
 989           // Changed the target URL from practice settings -> Practice Settings - Pharmacy... Dec 09,09 .. Visolve ... This replaces empty frame with Pharmacy window
 990           if (acl_check('admin', 'practice' )) genMiscLink('RTop','adm','0',xl('Practice'),'../controller.php?practice_settings&pharmacy&action=list'); ?>
 991       <?php if (acl_check('admin', 'superbill')) genTreeLink('RTop','sup',xl('Services')); ?>
 992       <?php if (acl_check('admin', 'super'    )) genMiscLink('RTop','adm','0',xl('Layouts'),'super/edit_layout.php'); ?>
 993       <?php if (acl_check('admin', 'super'    )) genMiscLink('RTop','adm','0',xl('Lists'),'super/edit_list.php'); ?>
 994       <?php if (acl_check('admin', 'acl'      )) genMiscLink('RTop','adm','0',xl('ACL'),'usergroup/adminacl.php'); ?>
 995       <?php if (acl_check('admin', 'super'    )) genMiscLink('RTop','adm','0',xl('Files'),'super/manage_site_files.php'); ?>
 996       <?php if (acl_check('admin', 'super'    )) genMiscLink('RTop','adm','0',xl('Backup'),'main/backup.php'); ?>
 997       <?php if ( ($GLOBALS['include_de_identification']) && (acl_check('admin', 'super'    )) ) genMiscLink('RTop','adm','0',xl('De Identification'),'de_identification_forms/de_identification_screen1.php'); ?>
 998           <?php if ( ($GLOBALS['include_de_identification']) && (acl_check('admin', 'super'    )) ) genMiscLink('RTop','adm','0',xl('Re Identification'),'de_identification_forms/re_identification_input_screen.php'); ?>
 999       <?php if (acl_check('admin', 'super') && !empty($GLOBALS['code_types']['IPPF'])) genMiscLink('RTop','adm','0',xl('Export'),'main/ippf_export.php'); ?>
1000       <li><span><?php xl('Other','e') ?></span>
1001         <ul>
1002           <?php if (acl_check('admin', 'language')) genMiscLink('RTop','adm','0',xl('Language'),'language/language.php'); ?>
1003           <?php if (acl_check('admin', 'forms'   )) genMiscLink('RTop','adm','0',xl('Forms'),'forms_admin/forms_admin.php'); ?>
1004           <?php if (acl_check('admin', 'calendar') && !$GLOBALS['disable_calendar']) genMiscLink('RTop','adm','0',xl('Calendar'),'main/calendar/index.php?module=PostCalendar&type=admin&func=modifyconfig'); ?>
1005           <?php if (acl_check('admin', 'users'   )) genMiscLink('RTop','adm','0',xl('Logs'),'logview/logview.php'); ?>
1006           <?php if ( (!$GLOBALS['disable_phpmyadmin_link']) && (acl_check('admin', 'database')) ) genMiscLink('RTop','adm','0',xl('Database'),'../phpmyadmin/index.php'); ?>
1007           <?php if (acl_check('admin', 'users'   )) genMiscLink('RTop','adm','0',xl('Certificates'),'usergroup/ssl_certificates_admin.php'); ?>
1008         </ul>
1009       </li>
1010     </ul>
1011   </li>
1012   <?php } ?>
1013   <li><span><?php xl('Reports','e') ?></span>
1014     <ul>
1015       <li><span><?php xl('Clients','e') ?></span>
1016         <ul>
1017           <?php genMiscLink('RTop','rep','0',xl('List'),'reports/patient_list.php'); ?>
1018           <?php if (acl_check('patients', 'med') && !$GLOBALS['disable_prescriptions']) genMiscLink('RTop','rep','0',xl('Rx'),'reports/prescriptions_report.php'); ?>
1019           <?php genMiscLink('RTop','rep','0',xl('Referrals'),'reports/referrals_report.php'); ?>
1020         </ul>
1021       </li>
1022       <li class="open"><span><?php xl('Visits','e') ?></span>
1023         <ul>
1024           <?php if (!$GLOBALS['disable_calendar']) genMiscLink('RTop','rep','0',xl('Appointments'),'reports/appointments_report.php'); ?>
1025           <?php  genMiscLink('RTop','rep','0',xl('Encounters'),'reports/encounters_report.php'); ?>
1026           <?php if (!$GLOBALS['disable_calendar']) genMiscLink('RTop','rep','0',xl('Appt-Enc'),'reports/appt_encounter_report.php'); ?>
1027 <?php if (empty($GLOBALS['code_types']['IPPF'])) { ?>
1028           <?php genMiscLink('RTop','rep','0',xl('Superbill'),'reports/custom_report_range.php'); ?>
1029 <?php } ?>
1030           <?php  genMiscLink('RTop','rep','0',xl('Eligibility'),'reports/edi_270.php'); ?>
1031           <?php  genMiscLink('RTop','rep','0',xl('Eligibility Response'),'reports/edi_271.php'); ?>
1032
1033
1034           <?php if (!$GLOBALS['disable_chart_tracker']) genMiscLink('RTop','rep','0',xl('Chart Activity'),'reports/chart_location_activity.php'); ?>
1035           <?php if (!$GLOBALS['disable_chart_tracker']) genMiscLink('RTop','rep','0',xl('Charts Out'),'reports/charts_checked_out.php'); ?>
1036           <?php genMiscLink('RTop','rep','0',xl('Services'), 'reports/services_by_category.php'); ?>
1037           <?php genMiscLink('RTop','rep','0',xl('Syndromic Surveillance'),'reports/non_reported.php'); ?>
1038         </ul>
1039       </li>
1040 <?php if (acl_check('acct', 'rep_a')) { ?>
1041       <li><span><?php xl('Financial','e') ?></span>
1042         <ul>
1043           <?php genMiscLink('RTop','rep','0',xl('Sales'),'reports/sales_by_item.php'); ?>
1044           <?php genMiscLink('RTop','rep','0',xl('Cash Rec'), 'billing/sl_receipts_report.php'); ?>
1045           <?php genMiscLink('RTop','rep','0',xl('Front Rec'), 'reports/front_receipts_report.php'); ?>
1046           <?php genMiscLink('RTop','rep','0',xl('Pmt Method'), 'reports/receipts_by_method_report.php'); ?>
1047           <?php genMiscLink('RTop','rep','0',xl('Collections'), 'reports/collections_report.php'); ?>
1048         </ul>
1049       </li>
1050 <?php } ?>
1051 <?php if ($GLOBALS['inhouse_pharmacy']) { ?>
1052       <li><span><?php xl('Inventory','e') ?></span>
1053         <ul>
1054           <?php genMiscLink('RTop','rep','0',xl('List'),'reports/inventory_list.php'); ?>
1055           <?php genMiscLink('RTop','rep','0',xl('Activity'),'reports/inventory_activity.php'); ?>
1056           <?php genMiscLink('RTop','rep','0',xl('Transactions'),'reports/inventory_transactions.php'); ?>
1057         </ul>
1058       </li>
1059 <?php } ?>
1060       <li><span><?php xl('Procedures','e') ?></span>
1061         <ul>
1062           <?php genPopLink(xl('Pending Res'),'../orders/pending_orders.php'); ?>
1063           <?php if (!empty($GLOBALS['code_types']['IPPF'])) genPopLink(xl('Pending F/U'),'../orders/pending_followup.php'); ?>
1064           <?php genPopLink(xl('Statistics'),'../orders/procedure_stats.php'); ?>
1065         </ul>
1066       </li>
1067 <?php if (! $GLOBALS['simplified_demographics']) { ?>
1068       <li><span><?php xl('Insurance','e') ?></span>
1069         <ul>
1070           <?php genMiscLink('RTop','rep','0',xl('Distribution'),'reports/insurance_allocation_report.php'); ?>
1071           <?php genMiscLink('RTop','rep','0',xl('Indigents'),'billing/indigent_patients_report.php'); ?>
1072           <?php genMiscLink('RTop','rep','0',xl('Unique SP'),'reports/unique_seen_patients_report.php'); ?>
1073         </ul>
1074       </li>
1075 <?php } ?>
1076 <?php if (!empty($GLOBALS['code_types']['IPPF'])) { ?>
1077       <li><span><?php xl('Statistics','e') ?></span>
1078         <ul>
1079           <?php genPopLink(xl('IPPF Stats'),'ippf_statistics.php?t=i'); ?>
1080           <?php genPopLink(xl('GCAC Stats'),'ippf_statistics.php?t=g'); ?>
1081           <?php genPopLink(xl('MA Stats'),'ippf_statistics.php?t=m'); ?>
1082           <?php genPopLink(xl('CYP'),'ippf_cyp_report.php'); ?>
1083           <?php genPopLink(xl('Daily Record'),'ippf_daily.php'); ?>
1084         </ul>
1085       </li>
1086 <?php } // end ippf-specific ?>
1087       <li><span><?php xl('Blank Forms','e') ?></span>
1088         <ul>
1089           <?php genPopLink(xl('Demographics'),'../patient_file/summary/demographics_print.php'); ?>
1090           <?php genPopLink(xl('Fee Sheet'),'../patient_file/printed_fee_sheet.php'); ?>
1091           <?php genPopLink(xl('Referral'),'../patient_file/transaction/print_referral.php'); ?>
1092 <?php
1093   $lres = sqlStatement("SELECT * FROM list_options " .
1094   "WHERE list_id = 'lbfnames' ORDER BY seq, title");
1095   while ($lrow = sqlFetchArray($lres)) {
1096     $option_id = $lrow['option_id']; // should start with LBF
1097     $title = $lrow['title'];
1098     genPopLink($title, "../forms/LBF/printable.php?formname=$option_id");
1099   }
1100 ?>
1101         </ul>
1102       </li>
1103       <?php // genTreeLink('RTop','rep','Other'); ?>
1104     </ul>
1105   </li>
1106   <li><span><?php xl('Miscellaneous','e') ?></span>
1107     <ul>
1108       <?php genTreeLink('RBot','aun',xl('Authorizations')); ?>
1109       <?php genTreeLink('RTop','fax',xl('Fax/Scan')); ?>
1110       <?php genTreeLink('RTop','adb',xl('Addr Book')); ?>
1111       <?php genTreeLink('RTop','ort',xl('Order Catalog')); ?>
1112       <?php if (!$GLOBALS['disable_chart_tracker']) genTreeLink('RTop','cht',xl('Chart Tracker')); ?>
1113       <?php genTreeLink('RTop','ono',xl('Ofc Notes')); ?>
1114       <?php genMiscLink('RTop','adm','0',xl('BatchCom'),'batchcom/batchcom.php'); ?>
1115       <?php genTreeLink('RTop','pwd',xl('Password')); ?>
1116     </ul>
1117   </li>
1118 </ul>
1119
1120 <?php } // end not athletic team ?>
1121
1122 <?php } else { // end ($GLOBALS['concurrent_layout'] == 2) ?>
1123
1124 <table cellpadding='0' cellspacing='0' border='0'>
1125  <tr>
1126   <td colspan='3'>
1127    <table cellpadding='0' cellspacing='0' border='0' width='100%'>
1128     <tr>
1129      <td class='smalltext' nowrap>
1130       <input type='checkbox' name='cb_top' onclick='toggleFrame(1)' checked /><b><?php xl('Top','e') ?></b>
1131      </td>
1132      <td class='smalltext' align='right' nowrap>
1133       <b><?php xl('Bot','e') ?></b><input type='checkbox' name='cb_bot' onclick='toggleFrame(2)' checked />
1134      </td>
1135     </tr>
1136    </table>
1137   </td>
1138  </tr>
1139 <?php
1140  // Builds the table of radio buttons and their labels.  Radio button values
1141  // are comprised of the 3-character document id and the 1-digit usage type,
1142  // so that JavaScript can easily access this information.
1143  $default_top_rbid = $GLOBALS['athletic_team'] ? 'ros' : 'cal';
1144  foreach ($primary_docs as $key => $varr) {
1145   if (!empty($disallowed[$key])) continue;
1146   $label = $varr[0];
1147   $usage = $varr[1];
1148   $url   = $varr[2];
1149   echo " <tr>\n";
1150   echo "  <td class='smalltext'><input type='radio' name='rb_top' value='$key$usage' " .
1151        "onclick=\"loadFrame('$key$usage','RTop','$url')\"";
1152   if ($key == $default_top_rbid) echo " checked";
1153   echo " /></td>\n";
1154   echo "  <td class='smalltext' id='lbl_$key'>$label</td>\n";
1155   echo "  <td class='smalltext'><input type='radio' name='rb_bot' value='$key$usage' " .
1156        "onclick=\"loadFrame('$key$usage','RBot','$url')\"";
1157   if ($key == 'msg') echo " checked";
1158   echo " /></td>\n";
1159   echo " </tr>\n";
1160  }
1161 ?>
1162 </table>
1163
1164 <?php } ?>
1165
1166 <br /><hr />
1167
1168 <?php
1169  // To use RelayHealth, see comments and parameters in includes/config.php.
1170  if (!empty($GLOBALS['ssi']['rh'])) {
1171   include_once("../../library/ssi.inc");
1172   echo getRelayHealthLink() ."<br /><hr />\n";
1173  }
1174 ?>
1175
1176 <div id='current_patient' style = 'display:none'>
1177 <b><?php xl('None','e'); ?></b>
1178 </div>
1179
1180 <div id='current_encounter' style = 'display:none'>
1181 <b><?php xl('None','e'); ?></b>
1182 </div>
1183
1184 <?php if (!$GLOBALS['athletic_team']) genPopupsList(); ?>
1185
1186 <hr />
1187
1188 <table cellpadding='0' cellspacing='0' border='0'>
1189  <tr>
1190   <td class='smalltext'><?php xl('Find','e') ?>:&nbsp;</td>
1191   <td class='smalltext' colspan='2'>
1192    <input type="entry" size="7" name="patient" class='inputtext' style='width:65px;' />
1193   </td>
1194  </tr>
1195  <tr>
1196   <td class='smalltext'><?php xl('by','e') ?>:</td>
1197   <td class='smalltext'>
1198    <a href="javascript:findPatient('Last');" class="navitem"><?php xl('Name','e'); ?></a>
1199   </td>
1200   <td class='smalltext' align='right'>
1201    <a href="javascript:findPatient('ID');"   class="navitem"><?php xl('ID','e'); ?></a>
1202   </td>
1203  </tr>
1204  <tr>
1205   <td class='smalltext'>&nbsp;</td>
1206   <td class='smalltext'>
1207    <a href="javascript:findPatient('SSN');"  class="navitem"><?php xl('SSN','e'); ?></a>
1208   </td>
1209   <td class='smalltext' align='right'>
1210    <a href="javascript:findPatient('DOB');"  class="navitem"><?php xl('DOB','e'); ?></a>
1211   </td>
1212  </tr>
1213
1214  <tr>
1215   <td class='smalltext'>&nbsp;</td>
1216   <td class='smalltext'>
1217    <a href="javascript:findPatient('Any');"  class="navitem"><?php xl('Any', 'e'); ?></a>
1218   </td>
1219   <td class='smalltext' align='right'>
1220    <a href="javascript:initFilter();"  class="navitem"><?php xl('Filter', 'e'); ?></a>
1221   </td>
1222  </tr>
1223
1224 </table>
1225
1226 <hr />
1227 <?php if (!empty($GLOBALS['online_support_link'])) { ?>
1228 <a href='<?php echo $GLOBALS["online_support_link"]; ?>' target="_blank" id="support_link" class='css_button' onClick="top.restoreSession()"><span><?php xl('Online Support','e'); ?></span></a>
1229 <?php } ?>
1230
1231 <input type='hidden' name='findBy' value='Last' />
1232 <input type="hidden" name="searchFields" id="searchFields"/>
1233 <input type="hidden" name="search_service_code" value='' />
1234
1235 </form>
1236
1237 <script language='JavaScript'>
1238 syncRadios();
1239 </script>
1240
1241 </body>
1242 </html>