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