contrib/forms/evaluation/FormEvaluation.class.php

   1 <?php
   2
   3
   4 /**
   5  * class FormEvaluation
   6  *
   7  */
   8 class FormEvaluation extends ORDataObject {
   9
  10         /**
  11          *
  12          * @access private
  13          */
  14
  15         var $id;
  16         var $temp;
  17         var $p;
  18         var $r;
  19         var $bp;
  20         var $ht;
  21         var $wt;
  22         var $bmi;
  23         var $lmp;
  24         var $complaint;
  25         var $hpi;
  26         var $eyes_od;
  27         var $eyes_os;
  28         var $eyes_ou;
  29         var $comments;
  30         var $assesment;
  31         var $pid;
  32         var $activity;
  33         var $date;
  34         var $checks;
  35
  36         /**
  37          * Constructor sets all Form attributes to their default value
  38          */
  39
  40         function FormEvaluation($id= "", $_prefix = "") {
  41                 if (is_numeric($id)) {
  42                         $this->id = $id;
  43                 }
  44                 else {
  45                         $id = "";
  46                 }
  47
  48                 $this->_table = "form_evaluation";
  49                 $this->date = date("Y-m-d H:i:s");
  50                 $this->checks = array();
  51                 $this->activity = 1;
  52                 $this->pid = $GLOBALS['pid'];
  53
  54                 if ($id != "") {
  55                         $this->populate();
  56                 }
  57         }
  58
  59         function populate() {
  60                 parent::populate();
  61
  62                 $sql = "SELECT name from form_evaluation_checks where foreign_id = '" . add_escape_custom($this->id) . "'";
  63                 $results = sqlQ($sql);
  64
  65                 while ($row = sqlFetchArray($results)) {
  66                         $this->checks[] = $row['name'];
  67                 }
  68
  69         }
  70
  71         function toString($html = false) {
  72                 $string .= "\n"
  73                         ."ID: " . $this->id . "\n";
  74
  75                 if ($html) {
  76                         return nl2br($string);
  77                 }
  78                 else {
  79                         return $string;
  80                 }
  81         }
  82         function set_id($id) {
  83                 if (!empty($id) && is_numeric($id)) {
  84                         $this->id = $id;
  85                 }
  86         }
  87         function get_id() {
  88                 return $this->id;
  89         }
  90         function set_pid($pid) {
  91                 if (!empty($pid) && is_numeric($pid)) {
  92                         $this->pid = $pid;
  93                 }
  94         }
  95         function get_pid() {
  96                 return $this->pid;
  97         }
  98         function set_activity($tf) {
  99                 if (!empty($tf) && is_numeric($tf)) {
 100                         $this->activity = $tf;
 101                 }
 102         }
 103         function get_activity() {
 104                 return $this->activity;
 105         }
 106
 107         function get_date() {
 108                 return $this->date;
 109         }
 110
 111         function set_temp($string) {
 112                 $this->temp = $string;
 113         }
 114
 115         function get_temp() {
 116                 return $this->temp;
 117         }
 118
 119         function set_p($string) {
 120                 $this->p = $string;
 121         }
 122
 123         function get_p() {
 124                 return $this->p;
 125         }
 126
 127         function set_r($string) {
 128                 $this->r = $string;
 129         }
 130
 131         function get_r() {
 132                 return $this->r;
 133         }
 134
 135         function set_bp($string) {
 136                 $this->bp = $string;
 137         }
 138
 139         function get_bp() {
 140                 return $this->bp;
 141         }
 142
 143         function set_ht($string) {
 144                 $this->ht = $string;
 145         }
 146
 147         function get_ht() {
 148                 return $this->ht;
 149         }
 150
 151         function set_wt($string) {
 152                 $this->wt = $string;
 153         }
 154
 155         function get_wt() {
 156                 return $this->wt;
 157         }
 158
 159         function set_bmi($string) {
 160                 $this->bmi = $string;
 161         }
 162
 163         function get_bmi() {
 164                 return $this->bmi;
 165         }
 166
 167         function set_lmp($string) {
 168                 $this->lmp = $string;
 169         }
 170
 171         function get_lmp() {
 172                 return $this->lmp;
 173         }
 174
 175         function set_complaint($string) {
 176                 $this->complaint = $string;
 177         }
 178
 179         function get_complaint() {
 180                 return $this->complaint;
 181         }
 182
 183         function set_hpi($string) {
 184                 $this->hpi = $string;
 185         }
 186
 187         function get_hpi() {
 188                 return $this->hpi;
 189         }
 190
 191         function set_eyes_od($string) {
 192                 $this->eyes_od = $string;
 193         }
 194
 195         function get_eyes_od() {
 196                 return $this->eyes_od;
 197         }
 198
 199         function set_eyes_os($string) {
 200                 $this->eyes_os = $string;
 201         }
 202
 203         function get_eyes_os() {
 204                 return $this->eyes_os;
 205         }
 206
 207         function set_eyes_ou($string) {
 208                 $this->eyes_ou = $string;
 209         }
 210
 211         function get_eyes_ou() {
 212                 return $this->eyes_ou;
 213         }
 214
 215         function set_comments($string) {
 216                 $this->comments = $string;
 217         }
 218
 219         function get_comments() {
 220                 return $this->comments;
 221         }
 222
 223         function set_assesment($string) {
 224                 $this->assesment = $string;
 225         }
 226
 227         function get_assesment() {
 228                 return $this->assesment;
 229         }
 230
 231         function get_checks() {
 232                 return $this->checks;
 233         }
 234
 235         function set_checks($check_array) {
 236                 $this->checks = $check_array;
 237         }
 238
 239         function persist() {
 240
 241                 parent::persist();
 242                 if (is_numeric($this->id) and !empty($this->checks)) {
 243                         $sql = "delete FROM form_evaluation_checks where foreign_id = '" . $this->id . "'";
 244                         sqlQuery($sql);
 245                         foreach ($this->checks as $check) {
 246                                 if (!empty($check)) {
 247                                         $sql = "INSERT INTO form_evaluation_checks set foreign_id='"  . add_escape_custom($this->id) . "', name = '" . add_escape_custom($check) . "'";
 248                                         sqlQuery($sql);
 249                                         //echo "$sql<br>";
 250                                 }
 251                         }
 252                 }
 253
 254         }
 255
 256         function _form_layout() {
 257                 $a = array();
 258
 259                 //at is array temp
 260                 //a is array
 261                 //a_bottom is the textually identified rows of a checkbox group
 262
 263                 $at[1]['appearance_normal_development']         =  "Normal Developement";
 264         $at[1]['appearance_normal_body_habitus']        =  "Normal Body Habitus";
 265         $at[1]['appearance_well_groomed']       =  "Well Groomed";
 266
 267         $a['General Appearance'] = $at;
 268
 269         $at = array();
 270         $a_bottom = array();
 271         $at[1]['eyes_conjunctiva_lids_nl']      =  "Conjunctiva and Lids NL";
 272         $at[1]['eyes_pupils_iris_nl']   =  "Pupils and Iris' NL";
 273         $at[1]['eyes_optic_disks_nl']   =  "Optic Disks NL";
 274         $at[1]['eyes_visual_fields_full_to_confrontation']      =  "Visual Fields Full to Confrontation";
 275
 276         $at[2]['eyes_extra_occular_movement_intact']    =  "Eyes Extra Occular Movement Intact";
 277         $at[2]['eyes_with_corrective_lenses']   =  "With Corrective Lenses";
 278         $at[2]['eyes_without_corrective_lenses']        =  "Without Corrective Lenses";
 279
 280         $a['Eyes'] = $at;
 281
 282         $at = array();
 283         $a_bottom = array();
 284         $at[1]['ent_external_ears_nose_nl']     =  "External Ears and Nose NL";
 285         $at[1]['ent_external_auditory_canals_nl']       =  "External Auditory Canals NL";
 286         $at[1]['ent_tm_nl']     =  "TM's NL";
 287         $at[1]['ent_hearing_nl_to_confrontation']       =  "Hearing NL to confrontation";
 288
 289         $a['ENT'] = $at;
 290
 291         $at = array();
 292         $a_bottom = array();
 293         $at[1]['neck_no_neck_masses']   =  "No neck masses";
 294         $at[1]['neck_symetrical']       =  "Symetrical";
 295         $at[1]['neck_trachea_midline']  =  "Trachea Midline";
 296         $at[1]['neck_thyroid_nl']       =  "Thyroid NL";
 297
 298         $a['Neck'] = $at;
 299
 300         $at = array();
 301         $a_bottom = array();
 302         $at[1]['respiratory_nl_effort']         =  "NL Effort";
 303         $at[1]['respiratory_no_dullness_to_percussion']         =  "No Dullness to Percussion";
 304         $at[1]['respiratory_no_rhonci_or_rails']        =  "No Rhonci or Rails";
 305         $at[1]['respiratory_no_weezing']        =  "No Wheezing";
 306
 307         $a['Respiratory'] = $at;
 308
 309         $at = array();
 310         $a_bottom = array();
 311         $at[1]['cv_no_lifts_or_thrills']        =  "No Lifts or Thrills";
 312         $at[1]['cv_pmi_fifth_ic_mc_line']       =  "PMI 5th IC MC Line";
 313         $at[1]['cv_nl_s1_s2']   =  "NL S1/S2";
 314         $at[1]['cv_regular_rhythm']     =  "Regular Rhythm";
 315
 316         $at[2]['cv_carotids_without_bruits']    =  "Carotids without bruits";
 317         $at[2]['cv_no_jvd']                                     =  "No JVD";
 318         $at[2]['cv_no_lower_extremity_edema']   =  "No Lower Extremity Edema";
 319
 320         $a['CV'] = $at;
 321
 322         $at = array();
 323         $a_bottom = array();
 324         $at[1]['gastrointestinal_abdomen_soft_nontender']       =  "Abdomen soft, nontender";
 325         $at[1]['gastrointestinal_no_fluid']     =  "No Fluid";
 326         $at[1]['gastrointestinal_no_hepatosplenomegally']       =  "No HepatoSplenomegally";
 327         $at[1]['gastrointestinal_no_hernia']    =  "No Hernia";
 328         $at[1]['gastrointestinal_guiac_negative']       =  "Guiac Negative";
 329
 330         $a['GastroIntestinal'] = $at;
 331
 332         $at = array();
 333         $a_bottom = array();
 334         $at[1]['gu_male_scrotum_testis_nl']     =  "Scrotum and Testis NL";
 335         $at[1]['gu_male_penis_nl_without_legions']      =  "Penis NL, Without legions";
 336         $at[1]['gu_male_prostate_nl']   =  "Prostate NL";
 337         $at[1]['gu_male_no_penile_disharge']    =  "No Penile Discharge";
 338
 339         $a['GU (male)'] = $at;
 340
 341         $at = array();
 342         $a_bottom = array();
 343         $at[1]['gu_female_external_genitalia_nl']       =  "External Genitalia NL";
 344         $at[1]['gu_female_urethra_nl']  =  "Urethra NL";
 345         $at[1]['gu_female_bladder_nl']  =  "Bladder NL";
 346         $at[1]['gu_female_cervix_without_discharge']    =  "Cervix without discharge";
 347
 348         $at[2]['gu_female_no_cervical_motion_tenderness']       =  "No Cervical Motion Tenderness";
 349         $at[2]['gu_female_uterus_nl_size']      =  "Uterus NL size";
 350         $at[2]['gu_female_no_adnexal_masses']   =  "No Adnexal Masses";
 351
 352         $a['GU (female)'] = $at;
 353
 354         $at = array();
 355         $a_bottom = array();
 356         $at[1]['lymphatics_no_cervical_nodes_palpable']         =  "No Cervical nodes Palpable";
 357         $at[1]['lymphatics_no_axillary_nodes_palpable']         =  "No Axillary Nodes Palpable";
 358         $at[1]['lymphatics_no_inguinal_nodes_palpable']         =  "No Inguinal Nodes Palpable";
 359
 360         $a['Lymphatics'] = $at;
 361
 362         $at = array();
 363         $a_bottom = array();
 364         $at[1]['musculoskeletal_gait_normal']   =  "Gait Normal";
 365         $at[1]['musculoskeletal_nl_symmetry']   =  "NL Symmetry";
 366         $at[1]['musculoskeletal_nl_tone']       =  "NL Tone";
 367         $at[1]['musculoskeletal_nl_rom']        =  "NL ROM";
 368
 369         $at[2]['musculoskeletal_no_instability']        =  "No Instability";
 370         $at[2]['musculoskeletal_normal_strength_five_five']     =  "Normal Strength 5/5";
 371
 372         $a['Musculoskeletal'] = $at;
 373
 374         $at = array();
 375         $a_bottom = array();
 376         $at[1]['neurologic_alert_oriented_xthree']      =  "Alert and Oriented x3";
 377         $at[1]['neurologic_normal_memory']      =  "Normal Memory";
 378         $at[1]['neurologic_cn_ii_xii_intact_to_confrontation']  =  "CN II-XII Intact to Confrontation";
 379
 380         $at[2]['neurologic_reflexes_five_five_bicipital_tendon']        =  "Reflexes 5/5 Bicipital Tendon";
 381         $at[2]['neurologic_reflexes_five_five_tricipital_tendon']       =  "Reflexes 5/5 Tricipital Tendon";
 382         $at[2]['neurologic_reflexes_five_five_patellar_tendon']         =  "Reflexes 5/5 Patellar Tendon";
 383
 384         $at[3]['neurologic_reflexes_five_five_achillies_tendon']        =  "Reflexes 5/5 Achillies Tendon";
 385         $at[3]['neurologic_toes_downgoing_bilaterally']         =  "Toes Downgoing Bilaterally";
 386         $at[3]['neurologic_sensation_nl_to_light_touch']        =  "Sensation NL to light touch";
 387
 388         $at[4]['neurologic_sensation_nl_to_hot_cold']   =  "Sensation NL to Hot/Cold";
 389         $at[4]['neurologic_sensation_nl_to_one_one_point_discrimination']       =  "Sensation NL to 1-1 point discrimination";
 390         $at[4]['neurologic_speech_is_appropriate']      =  "Speech is appropriate";
 391
 392         $a['Neurologic'] = $at;
 393
 394         $at = array();
 395         $a_bottom = array();
 396         $at[1]['psychiatric_nl_judgement_insight']      =  "NL Judgement/Insight";
 397         $at[1]['psychiatric_nl_mood']   =  "NL Mood";
 398         $at[1]['psychiatric_nl_affect']         =  "NL Affect";
 399         $at[1]['psychiatric_no_suicidal_ideation']      =  "No Suicidal Ideation";
 400         $at[1]['psychiatric_normal_eye_contact']        =  "Normal Eye Contact";
 401
 402         $a['Psychiatric'] = $at;
 403
 404
 405                 return $a;
 406         }
 407
 408
 409 }       // end of Form
 410 ?>