interface/new/new_patient_save.php

   1 <?
   2  include_once("../globals.php");
   3  include_once("$srcdir/sql.inc");
   4  include_once("$srcdir/pid.inc");
   5  include_once("$srcdir/patient.inc");
   6
   7 //here, we lock the patient data table while we find the most recent max PID
   8 //other interfaces can still read the data during this lock, however
   9 sqlStatement("lock tables patient_data read");
  10
  11 $result = sqlQuery("select max(pid)+1 as pid from patient_data");
  12
  13 // TBD: This looks wrong to unlock the table before we have added our
  14 // patient with its newly allocated pid!
  15 //
  16 sqlStatement("unlock tables");
  17 //end table lock
  18 $newpid = 1;
  19
  20 if ($result['pid'] > 1)
  21   $newpid = $result['pid'];
  22
  23 setpid($newpid);
  24
  25 if($pid == NULL) {
  26   $pid = 0;
  27 }
  28
  29 //what do we set for the public pid?
  30 if (isset($_POST["pubpid"]) && ($_POST["pubpid"] != "")) {
  31   $mypubpid = $_POST["pubpid"];
  32 } else {
  33   $mypubpid = $pid;
  34 }
  35
  36 if ($_POST['form_create']) {
  37
  38  $form_fname = ucwords(trim($_POST["fname"]));
  39  $form_lname = ucwords(trim($_POST["lname"]));
  40  $form_mname = ucwords(trim($_POST["mname"]));
  41
  42  newPatientData(
  43   $_POST["db_id"],
  44   $_POST["title"],
  45   $form_fname,
  46   $form_lname,
  47   $form_mname,
  48   "", // sex
  49   "", // dob
  50   "", // street
  51   "", // postal_code
  52   "", // city
  53   "", // state
  54   "", // country_code
  55   "", // ss
  56   "", // occupation
  57   "", // phone_home
  58   "", // phone_biz
  59   "", // phone_contact
  60   "", // status
  61   "", // contact_relationship
  62   "", // referrer
  63   "", // referrerID
  64   "", // email
  65   "", // language
  66   "", // ethnoracial
  67   "", // interpreter
  68   "", // migrantseasonal
  69   "", // family_size
  70   "", // monthly_income
  71   "", // homeless
  72   "", // financial_review
  73   "$mypubpid",
  74   $pid
  75       // providerID
  76       // genericname1
  77       // genericval1
  78       // genericname2
  79       // genericval2
  80       // phone_cell
  81       // hipaa_mail
  82       // hipaa_voice
  83       // squad
  84  );
  85
  86  newEmployerData($pid);
  87  newHistoryData($pid);
  88  newInsuranceData($pid, "primary");
  89  newInsuranceData($pid, "secondary");
  90  newInsuranceData($pid, "tertiary");
  91
  92  // Set referral source separately because we don't want it messed
  93  // with later by newPatientData().
  94  if ($refsource = trim($_POST["refsource"])) {
  95   sqlQuery("UPDATE patient_data SET referral_source = '$refsource' " .
  96    "WHERE pid = '$pid'");
  97  }
  98 }
  99 ?>
 100 <html>
 101 <body>
 102 <script language="Javascript">
 103 <?
 104  if ($alertmsg) {
 105   echo "alert('$alertmsg');\n";
 106  }
 107  if ($GLOBALS['concurrent_layout']) {
 108   echo "window.location='$rootdir/patient_file/summary/demographics.php?" .
 109    "set_pid=$pid&is_new=1';\n";
 110  } else {
 111   echo "window.location='$rootdir/patient_file/patient_file.php?set_pid=$pid';\n";
 112  }
 113 ?>
 114 </script>
 115
 116 </body>
 117 </html>