From 6e060c45962e4c573038c74957b9fd167f8d8e5d Mon Sep 17 00:00:00 2001
From: Rod Roark <rod@sunsetsystems.com>
Date: Wed, 16 Apr 2014 13:34:36 -0700
Subject: [PATCH] Option for showing description instead of codes in LBF
 Billing Code fields, and some related fixes.

---
 interface/forms/LBF/new.php                        | 66 +++++++++++++--------
 .../patient_file/encounter/find_code_popup.php     | 17 ++++--
 interface/super/edit_layout.php                    |  1 +
 library/options.inc.php                            | 68 ++++++++++++++++++----
 4 files changed, 113 insertions(+), 39 deletions(-)

diff --git a/interface/forms/LBF/new.php b/interface/forms/LBF/new.php
index f88b60bef..895c697db 100644
--- a/interface/forms/LBF/new.php
+++ b/interface/forms/LBF/new.php
@@ -195,27 +195,27 @@ div.section {
 <script type="text/javascript" src="../../../library/dynarch_calendar_setup.js"></script>
 
 <script language="JavaScript">
-$(document).ready(function(){
-// fancy box
-    if(window.enable_modals){
-	enable_modals();
-	}
-	if(window.tabbify){
+$(document).ready(function() {
+  // fancy box
+  if (window.enable_modals) {
+    enable_modals();
+  }
+  if(window.tabbify){
     tabbify();
-	}
-    // special size for
-	$(".iframe_medium").fancybox( {
-		'overlayOpacity' : 0.0,
-		'showCloseButton' : true,
-		'frameHeight' : 580,
-		'frameWidth' : 900
-	});
-	
-	$(function(){
-		// add drag and drop functionality to fancybox
-		$("#fancy_outer").easydrag();
-	});
+  }
+  // special size for
+  $(".iframe_medium").fancybox({
+    'overlayOpacity' : 0.0,
+    'showCloseButton' : true,
+    'frameHeight' : 580,
+    'frameWidth' : 900
+  });
+  $(function() {
+    // add drag and drop functionality to fancybox
+    $("#fancy_outer").easydrag();
+  });
 });
+
 var mypcc = '<?php echo $GLOBALS['phone_country_code'] ?>';
 
 // Supports customizable forms.
@@ -229,28 +229,48 @@ function divclick(cb, divid) {
  return true;
 }
 
+// The ID of the input element to receive a found code.
+var current_sel_name = '';
+
 // This is for callback by the find-code popup.
 // Appends to or erases the current list of related codes.
 function set_related(codetype, code, selector, codedesc) {
- var frc = document.getElementById('form_related_code');
+ var f = document.forms[0];
+ // frc will be the input element containing the codes.
+ // frcd, if set, will be the input element containing their descriptions.
+ var frc = f[current_sel_name];
+ var frcd;
+ var matches = current_sel_name.match(/^(.*)__desc$/);
+ if (matches) {
+  frcd = frc;
+  frc  = f[matches[1]];
+ }
  var s = frc.value;
+ var sd = frcd ? frcd.value : s;
  if (code) {
   if (codetype != 'PROD') {
    if (s.indexOf(codetype + ':') == 0 || s.indexOf(';' + codetype + ':') > 0) {
     return '<?php echo xl('A code of this type is already selected. Erase the field first if you need to replace it.') ?>';
    }
   }     
-  if (s.length > 0) s += ';';
-  s += codetype + ':' + code;
+  if (s.length > 0) {
+   s  += ';';
+   sd += ';';
+  }
+  s  += codetype + ':' + code;
+  sd += codedesc;
  } else {
-  s = '';
+  s  = '';
+  sd = '';
  }
  frc.value = s;
+ if (frcd) frcd.value = sd;
  return '';
 }
 
 // This invokes the find-code popup.
 function sel_related(elem, codetype) {
+ current_sel_name = elem.name;
  var url = '<?php echo $rootdir ?>/patient_file/encounter/find_code_popup.php';
  if (codetype) url += '?codetype=' + codetype;
  dlgopen(url, '_blank', 500, 400);
diff --git a/interface/patient_file/encounter/find_code_popup.php b/interface/patient_file/encounter/find_code_popup.php
index 713acdd63..e592fa340 100644
--- a/interface/patient_file/encounter/find_code_popup.php
+++ b/interface/patient_file/encounter/find_code_popup.php
@@ -54,14 +54,21 @@ td { font-size:10pt; }
 
  // Standard function
  function selcode(codetype, code, selector, codedesc) {
-  if (opener.closed || ! opener.set_related)
+  if (opener.closed || ! opener.set_related) {
    alert('<?php echo xls('The destination form was closed; I cannot act on your selection.'); ?>');
-  else
-   opener.set_related(codetype, code, selector, codedesc);
-  window.close();
-  return false;
+  }
+  else {
+   var msg = opener.set_related(codetype, code, selector, codedesc);
+   if (msg) alert(msg);
+   window.close();
+   return false;
+  }
  }
 
+ // TBD: The following function is not necessary. See
+ // interface/forms/LBF/new.php for an alternative method that does not require it.
+ // Rod 2014-04-15
+
  // Standard function with additional parameter to select which
  // element on the target page to place the selected code into.
  function selcode_target(codetype, code, selector, codedesc, target_element) {
diff --git a/interface/super/edit_layout.php b/interface/super/edit_layout.php
index 766939f3c..9f1145201 100644
--- a/interface/super/edit_layout.php
+++ b/interface/super/edit_layout.php
@@ -517,6 +517,7 @@ function writeFieldLine($linedata) {
         ", U = " . xla('Capitalize all') .
         ", V = " . xla('Vendor') .
         ", 1 = " . xla('Write Once') . 
+        ", 2 = " . xla('Billing Code Descriptions') . 
             "'>";
     echo "<input type='text' name='fld[$fld_line_no][edit_options]' value='" .
          htmlspecialchars($linedata['edit_options'], ENT_QUOTES) . "' size='3' maxlength='36' class='optin' />";
diff --git a/library/options.inc.php b/library/options.inc.php
index bdb1d4b36..70d1c26a7 100644
--- a/library/options.inc.php
+++ b/library/options.inc.php
@@ -30,6 +30,7 @@
 // U = Capitalize all letters (text fields)
 // V = Vendor types only (address book)
 // 1 = Write Once (not editable when not empty) (text fields)
+// 2 = Show descriptions instead of codes for billing code input
 
 require_once("formdata.inc.php");
 require_once("formatting.inc.php");
@@ -427,22 +428,67 @@ function generate_form_field($frow, $currvalue) {
     echo "</select>";
   }
 
-  // a billing code
+  // A billing code. If description matches an existing code type then that type is used.
   else if ($data_type == 15) {
     $fldlength = htmlspecialchars( $frow['fld_length'], ENT_QUOTES);
     $maxlength = $frow['max_length'];
     $string_maxlength = "";
     // if max_length is set to zero, then do not set a maxlength
     if ($maxlength) $string_maxlength = "maxlength='".attr($maxlength)."'";
-    echo "<input type='text'" .
-      " name='form_$field_id_esc'" .
-      " id='form_related_code'" .
-      " size='$fldlength'" .
-      " $string_maxlength" .
-      " title='$description'" .
-      " value='$currescaped'" .
-      " onclick='sel_related(this)' readonly" .
-      " />";
+    //
+    if (strpos($frow['edit_options'], '2') !== FALSE && substr($frow['form_id'], 0, 3) == 'LBF') {
+      // Option "2" generates a hidden input for the codes, and a matching visible field
+      // displaying their descriptions. First step is computing the description string.
+      $currdescstring = '';
+      if (!empty($currvalue)) {
+        $relcodes = explode(';', $currvalue);
+        foreach ($relcodes as $codestring) {
+          if ($codestring === '') continue;
+          list($codetype, $code) = explode(':', $codestring);
+          $query = "SELECT c.code_text FROM codes AS c, code_types AS ct WHERE " .
+            "ct.ct_key = '$codetype' AND " .
+            "c.code_type = ct.ct_id AND " .
+            "c.code = '$code' AND c.active = 1 " .
+            "ORDER BY c.id LIMIT 1";
+          $nrow = sqlQuery($query);
+          if ($currdescstring !== '') $currdescstring .= '; ';
+          if (!empty($nrow['code_text'])) {
+            $currdescstring .= $nrow['code_text'];
+          }
+          else {
+            $currdescstring .= $codestring;
+          }
+        }
+      }
+      $currdescstring = htmlspecialchars($currdescstring, ENT_QUOTES);
+      //
+      echo "<input type='text'" .
+        " name='form_$field_id_esc'" .
+        " id='form_related_code'" .
+        " size='$fldlength'" .
+        " value='$currescaped'" .
+        " style='display:none'" .
+        " readonly />";
+      // Extra readonly input field for optional display of code description(s).
+      echo "<input type='text'" .
+        " name='form_$field_id_esc" . "__desc'" .
+        " size='$fldlength'" .
+        " title='$description'" .
+        " value='$currdescstring'" .
+        " onclick='sel_related(this,\"$codetype\")'" .
+        " readonly />";
+    }
+    else {
+      echo "<input type='text'" .
+        " name='form_$field_id_esc'" .
+        " id='form_related_code'" .
+        " size='$fldlength'" .
+        " $string_maxlength" .
+        " title='$description'" .
+        " value='$currescaped'" .
+        " onclick='sel_related(this,\"$codetype\")'" .
+        " readonly />";
+    }
   }
 
   // insurance company list
@@ -2772,4 +2818,4 @@ function getSmokeCodes()
       }
      return $smoking_codes_arr;
 }
-?>
+?>
\ No newline at end of file
-- 
2.11.4.GIT