You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
450 lines
12 KiB
450 lines
12 KiB
<?php |
|
|
|
/** |
|
* class FormEvaluation |
|
* |
|
* @package OpenEMR |
|
* @link http://www.open-emr.org |
|
* @author Brady Miller <brady.g.miller@gmail.com> |
|
* @author Daniel Ehrlich <daniel.ehrlich1@gmail.com> |
|
* @copyright Copyright (c) 2018 Brady Miller <brady.g.miller@gmail.com> |
|
* @copyright Copyright (c) 2018 Daniel Ehrlich <daniel.ehrlich1@gmail.com> |
|
* @license https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3 |
|
*/ |
|
|
|
use OpenEMR\Common\ORDataObject\ORDataObject; |
|
|
|
class FormEvaluation extends ORDataObject |
|
{ |
|
/** |
|
* |
|
* @access private |
|
*/ |
|
|
|
var $id; |
|
var $temp; |
|
var $p; |
|
var $r; |
|
var $bp; |
|
var $ht; |
|
var $wt; |
|
var $bmi; |
|
var $lmp; |
|
var $complaint; |
|
var $hpi; |
|
var $eyes_od; |
|
var $eyes_os; |
|
var $eyes_ou; |
|
var $comments; |
|
var $assesment; |
|
var $pid; |
|
var $activity; |
|
var $date; |
|
var $checks; |
|
|
|
/** |
|
* Constructor sets all Form attributes to their default value |
|
*/ |
|
|
|
function __construct($id = "", $_prefix = "") |
|
{ |
|
parent::__construct(); |
|
|
|
if (is_numeric($id)) { |
|
$this->id = $id; |
|
} else { |
|
$id = ""; |
|
} |
|
|
|
$this->_table = "form_evaluation"; |
|
$this->date = date("Y-m-d H:i:s"); |
|
$this->checks = array(); |
|
$this->activity = 1; |
|
$this->pid = $GLOBALS['pid']; |
|
|
|
if ($id != "") { |
|
$this->populate(); |
|
} |
|
} |
|
|
|
function populate() |
|
{ |
|
parent::populate(); |
|
|
|
$sql = "SELECT name from form_evaluation_checks where foreign_id = ?"; |
|
$results = sqlQ($sql, array($this->id)); |
|
|
|
while ($row = sqlFetchArray($results)) { |
|
$this->checks[] = $row['name']; |
|
} |
|
} |
|
|
|
/** |
|
* @param bool $html |
|
* @return string |
|
*/ |
|
function toString($html = false) |
|
{ |
|
$string = "\n" . "ID: " . $this->id . "\n"; |
|
|
|
if ($html) { |
|
return nl2br($string); |
|
} else { |
|
return $string; |
|
} |
|
} |
|
function set_id($id) |
|
{ |
|
if (!empty($id) && is_numeric($id)) { |
|
$this->id = $id; |
|
} |
|
} |
|
function get_id() |
|
{ |
|
return $this->id; |
|
} |
|
function set_pid($pid) |
|
{ |
|
if (!empty($pid) && is_numeric($pid)) { |
|
$this->pid = $pid; |
|
} |
|
} |
|
function get_pid() |
|
{ |
|
return $this->pid; |
|
} |
|
function set_activity($tf) |
|
{ |
|
if (!empty($tf) && is_numeric($tf)) { |
|
$this->activity = $tf; |
|
} |
|
} |
|
function get_activity() |
|
{ |
|
return $this->activity; |
|
} |
|
|
|
function get_date() |
|
{ |
|
return $this->date; |
|
} |
|
|
|
function set_temp($string) |
|
{ |
|
$this->temp = $string; |
|
} |
|
|
|
function get_temp() |
|
{ |
|
return $this->temp; |
|
} |
|
|
|
function set_p($string) |
|
{ |
|
$this->p = $string; |
|
} |
|
|
|
function get_p() |
|
{ |
|
return $this->p; |
|
} |
|
|
|
function set_r($string) |
|
{ |
|
$this->r = $string; |
|
} |
|
|
|
function get_r() |
|
{ |
|
return $this->r; |
|
} |
|
|
|
function set_bp($string) |
|
{ |
|
$this->bp = $string; |
|
} |
|
|
|
function get_bp() |
|
{ |
|
return $this->bp; |
|
} |
|
|
|
function set_ht($string) |
|
{ |
|
$this->ht = $string; |
|
} |
|
|
|
function get_ht() |
|
{ |
|
return $this->ht; |
|
} |
|
|
|
function set_wt($string) |
|
{ |
|
$this->wt = $string; |
|
} |
|
|
|
function get_wt() |
|
{ |
|
return $this->wt; |
|
} |
|
|
|
function set_bmi($string) |
|
{ |
|
$this->bmi = $string; |
|
} |
|
|
|
function get_bmi() |
|
{ |
|
return $this->bmi; |
|
} |
|
|
|
function set_lmp($string) |
|
{ |
|
$this->lmp = $string; |
|
} |
|
|
|
function get_lmp() |
|
{ |
|
return $this->lmp; |
|
} |
|
|
|
function set_complaint($string) |
|
{ |
|
$this->complaint = $string; |
|
} |
|
|
|
function get_complaint() |
|
{ |
|
return $this->complaint; |
|
} |
|
|
|
function set_hpi($string) |
|
{ |
|
$this->hpi = $string; |
|
} |
|
|
|
function get_hpi() |
|
{ |
|
|
|
return $this->hpi; |
|
} |
|
|
|
function set_eyes_od($string) |
|
{ |
|
$this->eyes_od = $string; |
|
} |
|
|
|
function get_eyes_od() |
|
{ |
|
return $this->eyes_od; |
|
} |
|
|
|
function set_eyes_os($string) |
|
{ |
|
$this->eyes_os = $string; |
|
} |
|
|
|
function get_eyes_os() |
|
{ |
|
return $this->eyes_os; |
|
} |
|
|
|
function set_eyes_ou($string) |
|
{ |
|
$this->eyes_ou = $string; |
|
} |
|
|
|
function get_eyes_ou() |
|
{ |
|
return $this->eyes_ou; |
|
} |
|
|
|
function set_comments($string) |
|
{ |
|
$this->comments = $string; |
|
} |
|
|
|
function get_comments() |
|
{ |
|
return $this->comments; |
|
} |
|
|
|
function set_assesment($string) |
|
{ |
|
$this->assesment = $string; |
|
} |
|
|
|
function get_assesment() |
|
{ |
|
return $this->assesment; |
|
} |
|
|
|
function get_checks() |
|
{ |
|
return $this->checks; |
|
} |
|
|
|
function set_checks($check_array) |
|
{ |
|
$this->checks = $check_array; |
|
} |
|
|
|
function persist() |
|
{ |
|
|
|
parent::persist(); |
|
if (is_numeric($this->id) and !empty($this->checks)) { |
|
$sql = "delete FROM form_evaluation_checks WHERE foreign_id = ?"; |
|
sqlQuery($sql, array($this->id)); |
|
foreach ($this->checks as $check) { |
|
if (!empty($check)) { |
|
$sql = "INSERT INTO form_evaluation_checks set foreign_id= ?, name = ?"; |
|
sqlQuery($sql, array($this->id, $check)); |
|
//echo "$sql<br />"; |
|
} |
|
} |
|
} |
|
} |
|
|
|
function _form_layout() |
|
{ |
|
$a = array(); |
|
|
|
//at is array temp |
|
//a is array |
|
//a_bottom is the textually identified rows of a checkbox group, removed from code since not used yet |
|
|
|
$at[1]['appearance_normal_development'] = "Normal Developement"; |
|
$at[1]['appearance_normal_body_habitus'] = "Normal Body Habitus"; |
|
$at[1]['appearance_well_groomed'] = "Well Groomed"; |
|
|
|
$a['General Appearance'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['eyes_conjunctiva_lids_nl'] = "Conjunctiva and Lids NL"; |
|
$at[1]['eyes_pupils_iris_nl'] = "Pupils and Iris' NL"; |
|
$at[1]['eyes_optic_disks_nl'] = "Optic Disks NL"; |
|
$at[1]['eyes_visual_fields_full_to_confrontation'] = "Visual Fields Full to Confrontation"; |
|
|
|
$at[2]['eyes_extra_occular_movement_intact'] = "Eyes Extra Occular Movement Intact"; |
|
$at[2]['eyes_with_corrective_lenses'] = "With Corrective Lenses"; |
|
$at[2]['eyes_without_corrective_lenses'] = "Without Corrective Lenses"; |
|
|
|
$a['Eyes'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['ent_external_ears_nose_nl'] = "External Ears and Nose NL"; |
|
$at[1]['ent_external_auditory_canals_nl'] = "External Auditory Canals NL"; |
|
$at[1]['ent_tm_nl'] = "TM's NL"; |
|
$at[1]['ent_hearing_nl_to_confrontation'] = "Hearing NL to confrontation"; |
|
|
|
$a['ENT'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['neck_no_neck_masses'] = "No neck masses"; |
|
$at[1]['neck_symetrical'] = "Symetrical"; |
|
$at[1]['neck_trachea_midline'] = "Trachea Midline"; |
|
$at[1]['neck_thyroid_nl'] = "Thyroid NL"; |
|
|
|
$a['Neck'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['respiratory_nl_effort'] = "NL Effort"; |
|
$at[1]['respiratory_no_dullness_to_percussion'] = "No Dullness to Percussion"; |
|
$at[1]['respiratory_no_rhonci_or_rails'] = "No Rhonci or Rails"; |
|
$at[1]['respiratory_no_weezing'] = "No Wheezing"; |
|
|
|
$a['Respiratory'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['cv_no_lifts_or_thrills'] = "No Lifts or Thrills"; |
|
$at[1]['cv_pmi_fifth_ic_mc_line'] = "PMI 5th IC MC Line"; |
|
$at[1]['cv_nl_s1_s2'] = "NL S1/S2"; |
|
$at[1]['cv_regular_rhythm'] = "Regular Rhythm"; |
|
|
|
$at[2]['cv_carotids_without_bruits'] = "Carotids without bruits"; |
|
$at[2]['cv_no_jvd'] = "No JVD"; |
|
$at[2]['cv_no_lower_extremity_edema'] = "No Lower Extremity Edema"; |
|
|
|
$a['CV'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['gastrointestinal_abdomen_soft_nontender'] = "Abdomen soft, nontender"; |
|
$at[1]['gastrointestinal_no_fluid'] = "No Fluid"; |
|
$at[1]['gastrointestinal_no_hepatosplenomegally'] = "No HepatoSplenomegally"; |
|
$at[1]['gastrointestinal_no_hernia'] = "No Hernia"; |
|
$at[1]['gastrointestinal_guiac_negative'] = "Guiac Negative"; |
|
|
|
$a['GastroIntestinal'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['gu_male_scrotum_testis_nl'] = "Scrotum and Testis NL"; |
|
$at[1]['gu_male_penis_nl_without_legions'] = "Penis NL, Without legions"; |
|
$at[1]['gu_male_prostate_nl'] = "Prostate NL"; |
|
$at[1]['gu_male_no_penile_disharge'] = "No Penile Discharge"; |
|
|
|
$a['GU (male)'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['gu_female_external_genitalia_nl'] = "External Genitalia NL"; |
|
$at[1]['gu_female_urethra_nl'] = "Urethra NL"; |
|
$at[1]['gu_female_bladder_nl'] = "Bladder NL"; |
|
$at[1]['gu_female_cervix_without_discharge'] = "Cervix without discharge"; |
|
|
|
$at[2]['gu_female_no_cervical_motion_tenderness'] = "No Cervical Motion Tenderness"; |
|
$at[2]['gu_female_uterus_nl_size'] = "Uterus NL size"; |
|
$at[2]['gu_female_no_adnexal_masses'] = "No Adnexal Masses"; |
|
|
|
$a['GU (female)'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['lymphatics_no_cervical_nodes_palpable'] = "No Cervical nodes Palpable"; |
|
$at[1]['lymphatics_no_axillary_nodes_palpable'] = "No Axillary Nodes Palpable"; |
|
$at[1]['lymphatics_no_inguinal_nodes_palpable'] = "No Inguinal Nodes Palpable"; |
|
|
|
$a['Lymphatics'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['musculoskeletal_gait_normal'] = "Gait Normal"; |
|
$at[1]['musculoskeletal_nl_symmetry'] = "NL Symmetry"; |
|
$at[1]['musculoskeletal_nl_tone'] = "NL Tone"; |
|
$at[1]['musculoskeletal_nl_rom'] = "NL ROM"; |
|
|
|
$at[2]['musculoskeletal_no_instability'] = "No Instability"; |
|
$at[2]['musculoskeletal_normal_strength_five_five'] = "Normal Strength 5/5"; |
|
|
|
$a['Musculoskeletal'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['neurologic_alert_oriented_xthree'] = "Alert and Oriented x3"; |
|
$at[1]['neurologic_normal_memory'] = "Normal Memory"; |
|
$at[1]['neurologic_cn_ii_xii_intact_to_confrontation'] = "CN II-XII Intact to Confrontation"; |
|
|
|
$at[2]['neurologic_reflexes_five_five_bicipital_tendon'] = "Reflexes 5/5 Bicipital Tendon"; |
|
$at[2]['neurologic_reflexes_five_five_tricipital_tendon'] = "Reflexes 5/5 Tricipital Tendon"; |
|
$at[2]['neurologic_reflexes_five_five_patellar_tendon'] = "Reflexes 5/5 Patellar Tendon"; |
|
|
|
$at[3]['neurologic_reflexes_five_five_achillies_tendon'] = "Reflexes 5/5 Achillies Tendon"; |
|
$at[3]['neurologic_toes_downgoing_bilaterally'] = "Toes Downgoing Bilaterally"; |
|
$at[3]['neurologic_sensation_nl_to_light_touch'] = "Sensation NL to light touch"; |
|
|
|
$at[4]['neurologic_sensation_nl_to_hot_cold'] = "Sensation NL to Hot/Cold"; |
|
$at[4]['neurologic_sensation_nl_to_one_one_point_discrimination'] = "Sensation NL to 1-1 point discrimination"; |
|
$at[4]['neurologic_speech_is_appropriate'] = "Speech is appropriate"; |
|
|
|
$a['Neurologic'] = $at; |
|
|
|
$at = array(); |
|
$at[1]['psychiatric_nl_judgement_insight'] = "NL Judgement/Insight"; |
|
$at[1]['psychiatric_nl_mood'] = "NL Mood"; |
|
$at[1]['psychiatric_nl_affect'] = "NL Affect"; |
|
$at[1]['psychiatric_no_suicidal_ideation'] = "No Suicidal Ideation"; |
|
$at[1]['psychiatric_normal_eye_contact'] = "Normal Eye Contact"; |
|
|
|
$a['Psychiatric'] = $at; |
|
|
|
|
|
return $a; |
|
} |
|
} // end of Form
|
|
|