|
".__("In House Doctor")." :
|
".freemed_display_selectbox ($int_phys_r, "#phylname#, #phyfname#", "ptdoc")."
|
|
".__("Referring Doctor")." :
|
".freemed_display_selectbox ($ref_phys_r, "#phylname#, #phyfname# (#phypracname#)", "ptrefdoc")."
|
|
".__("Primary Care Physician")." :
|
".freemed_display_selectbox ($all_phys_r, "#phylname#, #phyfname# (#phypracname#)", "ptpcp")."
|
".(($num_other_docs>0) ? "
|
".__("Other Physician")." 1 :
|
".freemed_display_selectbox ($all_phys_r, "#phylname#, #phyfname# (#phypracname#)", "ptphy1")."
|
" : "").
(($num_other_docs>1) ? "
|
".__("Other Physician")." 2 :
|
".freemed_display_selectbox ($all_phys_r, "#phylname#, #phyfname# (#phypracname#)", "ptphy2")."
|
" : "").
(($num_other_docs>2) ? "
|
".__("Other Physician")." 3 :
|
".freemed_display_selectbox ($all_phys_r, "#phylname#, #phyfname# (#phypracname#)", "ptphy3")."
|
" : "").
(($num_other_docs>3) ? "
|
".__("Other Physician 4")." :
|
".freemed_display_selectbox ($all_phys_r, "#phylname#, #phyfname# (#phypracname#)", "ptphy4")."
|
" : "").
"|
".__("Number of Other Physicians")." :
|
".html_form::number_pulldown("num_other_docs", 0, 4)."
".$book->generate_refresh()."
|
");
$book->add_page(
__("Medical"),
array("ptblood", "ptpharmacy"),
html_form::form_table(array(
__("Blood Type") =>
html_form::select_widget(
"ptblood",
array(
"-" => "",
"O",
"O+",
"O-",
"A",
"A+",
"A-",
"B",
"B+",
"B-",
"AB",
"AB+",
"AB-"
)
),
__("Preferred Pharmacy") =>
module_function('pharmacymaintenance',
'widget',
'ptpharmacy'
)
))
);
$book->add_page(
__("Notes"),
array("ptnextofkin"),
html_form::form_table(array(
" " => "".( (($action=="mod") OR ($action=="modform")) ?
__("Modifying") : __("Adding") )." ... ";
$result = $sql->query($query);
if ($action == 'addform') { $pid = $sql->last_record($result); }
if ($action == 'modform') { $pid = $id; }
if ($result) $display_buffer .= __("Done");
else $display_buffer .= __("Error");
$display_buffer .= "
\n";
if ( ($result) AND ($action=="addform") AND (empty($ptid)) )
{
$display_buffer .= "
".__("Adding Patient ID")." ... ";
$pid = $sql->last_record($result);
$patid = PATID_PREFIX.$pid;
$result = $sql->query("UPDATE patient SET ptid='".addslashes($patid)."' ".
"WHERE id='".addslashes($pid)."'");
if ($result) $display_buffer .= __("Done");
else $display_buffer .= __("Error");
$display_buffer .= "
\n";
} elseif (($action=="addform") and (!empty($ptid))) {
// Be sure to calculate PID if ptid is already calculated
$pid = $sql->last_record($result);
}
// If we're dealing with a call-in ...
if (($_REQUEST['ci'] > 0) and ($action == 'addform')) {
// Just in case ...
if (($pid+0) < 1) { $pid = $sql->last_record($result); }
// Move all appointments to proper patient
$display_buffer .= "
".__("Reassigning appointments")." ... ";
$result = $sql->query("UPDATE scheduler SET ".
"caltype = 'pat', calpatient = '".addslashes($pid)."' ".
"WHERE caltype = 'temp' AND calpatient = '".
addslashes($_REQUEST['ci'])."'");
if ($result) $display_buffer .= __("Done");
else $display_buffer .= __("Error");
$display_buffer .= "
\n";
// Remove the call-in appointment entirely
$display_buffer .= "
".__("Removing old temporary patient account")." ... ";
$result = $sql->query("DELETE FROM callin ".
"WHERE id = '".addslashes($_REQUEST['ci'])."'");
if ($result) $display_buffer .= __("Done");
else $display_buffer .= __("Error");
$display_buffer .= "
\n";
}
// Set automatic page refresh to management screen
$refresh = "manage.php?id=".( $action=="addform" ? $pid : $id );
$display_buffer .= "
".__("Manage This Patient")."
";
// Handle breakpoints
if ($action=='addform') { freemed::handler_breakpoint('PatientAdd', array ($pid)); }
if ($action=='modform') { freemed::handler_breakpoint('PatientModify', array ($pid)); }
} // end checking if done
break; // end action add/mod
case "delete":
case "del":
$page_title = __("Archiving Patient");
$display_buffer .= "
".__("Archiving")." ... ";
//$query = "DELETE FROM patient WHERE id='".addslashes($id)."'";
$query = $sql->update_query(
'patient',
array( 'ptarchive' => '1' ),
array( 'id' => $id )
);
$result = $sql->query ($query);
if ($result) { $display_buffer .= __("done")."."; }
else { $display_buffer .= __("ERROR"); }
freemed::handler_breakpoint('PatientDelete', array ($pid));
// Take care of scheduler entries
//$query = "DELETE FROM scheduler WHERE calpatient='".addslashes($id)."'";
//$result = $sql->query ($query);
$display_buffer .= "
";
// TODO: Go through EVERY associated record and delete all things having
// to do with the patient!
// Return to patient selection after deleting a patient
$refresh = "patient.php";
break; // end action delete
case "find":
switch ($criteria) {
case "letter":
$query = "SELECT ptlname,ptfname,ptdob,ptid,id FROM patient ".
"WHERE (UCASE(ptlname) LIKE '".addslashes(strtoupper($f1))."%') ".
" AND ptarchive+0 != '1' ".
freemed::itemlist_conditions(false).
"ORDER BY ptlname, ptfname, ptdob";
$_crit = __("Last Names")." (".prepare($f1).")";
break;
case "contains":
$query = "SELECT ptlname,ptfname,ptdob,ptid,id FROM patient ".
"WHERE (UCASE(".addslashes($f1).") LIKE '%".addslashes(strtoupper($f2))."%') ".
" AND ptarchive+0 != '1' ".
freemed::itemlist_conditions(false).
"ORDER BY ptlname, ptfname, ptdob";
$_crit = __("Searching for")." \"".prepare($f2)."\"";
break;
case "soundex":
$query = "SELECT ptlname,ptfname,ptdob,ptid,id FROM patient ".
"WHERE (soundex(".addslashes($f1).") = soundex('".addslashes($f2)."')) ".
" AND ptarchive+0 != '1' ".
freemed::itemlist_conditions(false).
"ORDER BY ptlname, ptfname, ptdob";
$_crit = "Sounds Like \"".prepare($f2)."\"";
break;
case "smart":
// decide if we're last, first or first last
if (!(strpos($_REQUEST['f1'], ',')===false)) {
// last, first
list ($last, $first) = explode(',', $_REQUEST['f1']);
$last = trim($last);
$first = trim($first);
} else {
// first last
list ($first, $last) = explode(' ', $_REQUEST['f1']);
}
$query = "SELECT ptlname,ptfname,ptdob,ptid,id FROM patient ".
"WHERE (UCASE(ptlname) LIKE '".addslashes(strtoupper($last))."%') ".
" AND (UCASE(ptfname) LIKE '".addslashes(strtoupper($first))."%') ".
" AND ptarchive+0 != '1' ".
freemed::itemlist_conditions(false).
" ORDER BY ptlname, ptfname, ptdob";
$_crit = __("Patient Name")." \"".prepare($_REQUEST['f1'])."\"";
break;
case "all":
$query = "SELECT ptlname,ptfname,ptdob,ptid,id FROM patient ".
" WHERE ptarchive+0 != '1' ".
freemed::itemlist_conditions(false).
"ORDER BY ptlname, ptfname, ptdob";
$_crit = "\"".__("All Patients")."\"";
break;
default:
$_crit = "";
break;
} // end criteria search
$result = $sql->query($query);
// Check to see if there's only one result, and jump to them
// if it's found
if ($result and ($sql->num_rows($result)==1)) {
// Go to beginning
$sql->data_seek($result, 0);
// Grab the data
$_r = $sql->fetch_array($result);
// Form refresh string to pass to template
$refresh = "manage.php?id=".urlencode($_r['id']);
// Reset data so that the display works (in case of no refresh)
$sql->data_seek($result, 0);
} // end checking for single patient jump
$page_title = __("Patients Meeting Criteria")." ".$_crit;
if (strlen($_ref)<5) {
$_ref="main.php";
} // if no ref, then return to home page...
$display_buffer .= freemed_display_itemlist(
$result,
$page_name,
array (
__("Last Name") => "ptlname",
__("First Name") => "ptfname",
__("Date of Birth") => "ptdob",
__("Practice ID") => "ptid"
),
array ("","",""),
"", "", "",
ITEMLIST_MOD|ITEMLIST_VIEW|ITEMLIST_DEL
);
$display_buffer .= "