From ea88eaa3a355ec30c9a31607839cbbaa4e4c675a Mon Sep 17 00:00:00 2001
From: sunsetsystems <sunsetsystems>
Date: Fri, 1 Oct 2010 22:24:10 +0000
Subject: [PATCH] added optional visit-level referral source

---
 interface/forms/newpatient/common.php | 18 +++++++++++++++++-
 interface/forms/newpatient/save.php   |  5 ++++-
 library/globals.inc.php               |  7 +++++++
 sql/3_2_0-to-4_0_0_upgrade.sql        |  4 ++++
 sql/database.sql                      |  1 +
 version.php                           |  2 +-
 6 files changed, 34 insertions(+), 3 deletions(-)

diff --git a/interface/forms/newpatient/common.php b/interface/forms/newpatient/common.php
index 3621a0820..a869a4f73 100644
--- a/interface/forms/newpatient/common.php
+++ b/interface/forms/newpatient/common.php
@@ -1,4 +1,11 @@
 <?php
+// This program is free software; you can redistribute it and/or
+// modify it under the terms of the GNU General Public License
+// as published by the Free Software Foundation; either version 2
+// of the License, or (at your option) any later version.
+
+require_once("$srcdir/options.inc.php");
+
 $months = array("01","02","03","04","05","06","07","08","09","10","11","12");
 $days = array("01","02","03","04","05","06","07","08","09","10","11","12","13","14",
   "15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31");
@@ -230,6 +237,15 @@ if ($fres) {
 ?>
     </tr>
 
+    <tr<?php if (!$GLOBALS['gbl_visit_referral_source']) echo " style='visibility:hidden;'"; ?>>
+     <td class='bold' nowrap><?php xl('Referral Source','e'); ?>:</td>
+     <td class='text'>
+<?php
+  echo generate_select_list('form_referral_source', 'refsource', $viewmode ? $result['referral_source'] : '', '');
+?>
+     </td>
+    </tr>
+
     <tr>
      <td class='bold' nowrap><?php xl('Date of Service:','e'); ?></td>
      <td class='text' nowrap>
@@ -243,7 +259,7 @@ if ($fres) {
      </td>
     </tr>
 
-    <tr>
+    <tr<?php if ($GLOBALS['ippf_specific']) echo " style='visibility:hidden;'"; ?>>
      <td class='bold' nowrap><?php xl('Onset/hosp. date:','e'); ?></td>
      <td class='text' nowrap>
       <input type='text' size='10' name='form_onset_date' id='form_onset_date'
diff --git a/interface/forms/newpatient/save.php b/interface/forms/newpatient/save.php
index a51dd2dc2..de0415b82 100644
--- a/interface/forms/newpatient/save.php
+++ b/interface/forms/newpatient/save.php
@@ -28,6 +28,7 @@ $pc_catid    = $_POST['pc_catid'];
 $facility_id = $_POST['facility_id'];
 $reason      = $_POST['reason'];
 $mode        = $_POST['mode'];
+$referral_source = $_POST['form_referral_source'];
 
 if ($GLOBALS['concurrent_layout'])
   $normalurl = "$rootdir/patient_file/encounter/encounter_top.php";
@@ -48,6 +49,7 @@ if ($mode == 'new')
       "pc_catid = '$pc_catid', " .
       "facility_id = '$facility_id', " .
       "sensitivity = '$sensitivity', " .
+      "referral_source = '$referral_source', " .
       "pid = '$pid', " .
       "encounter = '$encounter', " .
       "provider_id = '$provider_id'"),
@@ -70,7 +72,8 @@ else if ($mode == 'update')
     "reason = '$reason', " .
     "pc_catid = '$pc_catid', " .
     "facility_id = '$facility_id', " .
-    "sensitivity = '$sensitivity' " .
+    "sensitivity = '$sensitivity', " .
+    "referral_source = '$referral_source' " .
     "WHERE id = '$id'");
 }
 else {
diff --git a/library/globals.inc.php b/library/globals.inc.php
index 4f91c3ffc..fbde04379 100644
--- a/library/globals.inc.php
+++ b/library/globals.inc.php
@@ -434,6 +434,13 @@ $GLOBALS_METADATA = array(
       xl('Discounts at checkout time are entered as money amounts, as opposed to percentage.')
     ),
 
+    'gbl_visit_referral_source' => array(
+      xl('Referral Source for Encounters'),
+      'bool',                           // data type
+      '0',                              // default = false
+      xl('A referral source may be specified for each visit.')
+    ),
+
     'gbl_mask_patient_id' => array(
       xl('Mask for Patient IDs'),
       'text',                           // data type
diff --git a/sql/3_2_0-to-4_0_0_upgrade.sql b/sql/3_2_0-to-4_0_0_upgrade.sql
index d1345c5fd..e77988340 100644
--- a/sql/3_2_0-to-4_0_0_upgrade.sql
+++ b/sql/3_2_0-to-4_0_0_upgrade.sql
@@ -785,3 +785,7 @@ ALTER TABLE lists
   ADD injury_grade varchar(31) NOT NULL DEFAULT '';
 #EndIf
 
+#IfMissingColumn form_encounter referral_source
+ALTER TABLE form_encounter ADD referral_source varchar(31) NOT NULL DEFAULT '';
+#EndIf
+
diff --git a/sql/database.sql b/sql/database.sql
index 123229c65..55df4462e 100644
--- a/sql/database.sql
+++ b/sql/database.sql
@@ -505,6 +505,7 @@ CREATE TABLE `form_encounter` (
   `provider_id` INT(11) DEFAULT '0' COMMENT 'default and main provider for this visit',
   `supervisor_id` INT(11) DEFAULT '0' COMMENT 'supervising provider, if any, for this visit',
   `invoice_refno` varchar(31) NOT NULL DEFAULT '',
+  `referral_source` varchar(31) NOT NULL DEFAULT '',
   PRIMARY KEY  (`id`),
   KEY `pid` (`pid`)
 ) ENGINE=MyISAM AUTO_INCREMENT=1 ;
diff --git a/version.php b/version.php
index 8085df743..ddec5cb1c 100644
--- a/version.php
+++ b/version.php
@@ -11,5 +11,5 @@ $v_tag   = '-dev'; // minor revision number, should be empty for production rele
 // Database version identifier, this is to be incremented whenever there
 // is a database change in the course of development.  It is used
 // internally to determine when a database upgrade is needed.
-$v_database = 1;
+$v_database = 2;
 ?>
-- 
2.11.4.GIT