8 class FormEvaluation
extends ORDataObject
38 * Constructor sets all Form attributes to their default value
41 function FormEvaluation($id = "", $_prefix = "")
43 if (is_numeric($id)) {
49 $this->_table
= "form_evaluation";
50 $this->date
= date("Y-m-d H:i:s");
51 $this->checks
= array();
53 $this->pid
= $GLOBALS['pid'];
64 $sql = "SELECT name from form_evaluation_checks where foreign_id = '" . add_escape_custom($this->id
) . "'";
65 $results = sqlQ($sql);
67 while ($row = sqlFetchArray($results)) {
68 $this->checks
[] = $row['name'];
72 function toString($html = false)
75 ."ID: " . $this->id
. "\n";
78 return nl2br($string);
85 if (!empty($id) && is_numeric($id)) {
93 function set_pid($pid)
95 if (!empty($pid) && is_numeric($pid)) {
103 function set_activity($tf)
105 if (!empty($tf) && is_numeric($tf)) {
106 $this->activity
= $tf;
109 function get_activity()
111 return $this->activity
;
119 function set_temp($string)
121 $this->temp
= $string;
129 function set_p($string)
139 function set_r($string)
149 function set_bp($string)
159 function set_ht($string)
169 function set_wt($string)
179 function set_bmi($string)
181 $this->bmi
= $string;
189 function set_lmp($string)
191 $this->lmp
= $string;
199 function set_complaint($string)
201 $this->complaint
= $string;
204 function get_complaint()
206 return $this->complaint
;
209 function set_hpi($string)
211 $this->hpi
= $string;
219 function set_eyes_od($string)
221 $this->eyes_od
= $string;
224 function get_eyes_od()
226 return $this->eyes_od
;
229 function set_eyes_os($string)
231 $this->eyes_os
= $string;
234 function get_eyes_os()
236 return $this->eyes_os
;
239 function set_eyes_ou($string)
241 $this->eyes_ou
= $string;
244 function get_eyes_ou()
246 return $this->eyes_ou
;
249 function set_comments($string)
251 $this->comments
= $string;
254 function get_comments()
256 return $this->comments
;
259 function set_assesment($string)
261 $this->assesment
= $string;
264 function get_assesment()
266 return $this->assesment
;
269 function get_checks()
271 return $this->checks
;
274 function set_checks($check_array)
276 $this->checks
= $check_array;
283 if (is_numeric($this->id
) and !empty($this->checks
)) {
284 $sql = "delete FROM form_evaluation_checks where foreign_id = '" . $this->id
. "'";
286 foreach ($this->checks
as $check) {
287 if (!empty($check)) {
288 $sql = "INSERT INTO form_evaluation_checks set foreign_id='" . add_escape_custom($this->id
) . "', name = '" . add_escape_custom($check) . "'";
296 function _form_layout()
302 //a_bottom is the textually identified rows of a checkbox group
304 $at[1]['appearance_normal_development'] = "Normal Developement";
305 $at[1]['appearance_normal_body_habitus'] = "Normal Body Habitus";
306 $at[1]['appearance_well_groomed'] = "Well Groomed";
308 $a['General Appearance'] = $at;
312 $at[1]['eyes_conjunctiva_lids_nl'] = "Conjunctiva and Lids NL";
313 $at[1]['eyes_pupils_iris_nl'] = "Pupils and Iris' NL";
314 $at[1]['eyes_optic_disks_nl'] = "Optic Disks NL";
315 $at[1]['eyes_visual_fields_full_to_confrontation'] = "Visual Fields Full to Confrontation";
317 $at[2]['eyes_extra_occular_movement_intact'] = "Eyes Extra Occular Movement Intact";
318 $at[2]['eyes_with_corrective_lenses'] = "With Corrective Lenses";
319 $at[2]['eyes_without_corrective_lenses'] = "Without Corrective Lenses";
325 $at[1]['ent_external_ears_nose_nl'] = "External Ears and Nose NL";
326 $at[1]['ent_external_auditory_canals_nl'] = "External Auditory Canals NL";
327 $at[1]['ent_tm_nl'] = "TM's NL";
328 $at[1]['ent_hearing_nl_to_confrontation'] = "Hearing NL to confrontation";
334 $at[1]['neck_no_neck_masses'] = "No neck masses";
335 $at[1]['neck_symetrical'] = "Symetrical";
336 $at[1]['neck_trachea_midline'] = "Trachea Midline";
337 $at[1]['neck_thyroid_nl'] = "Thyroid NL";
343 $at[1]['respiratory_nl_effort'] = "NL Effort";
344 $at[1]['respiratory_no_dullness_to_percussion'] = "No Dullness to Percussion";
345 $at[1]['respiratory_no_rhonci_or_rails'] = "No Rhonci or Rails";
346 $at[1]['respiratory_no_weezing'] = "No Wheezing";
348 $a['Respiratory'] = $at;
352 $at[1]['cv_no_lifts_or_thrills'] = "No Lifts or Thrills";
353 $at[1]['cv_pmi_fifth_ic_mc_line'] = "PMI 5th IC MC Line";
354 $at[1]['cv_nl_s1_s2'] = "NL S1/S2";
355 $at[1]['cv_regular_rhythm'] = "Regular Rhythm";
357 $at[2]['cv_carotids_without_bruits'] = "Carotids without bruits";
358 $at[2]['cv_no_jvd'] = "No JVD";
359 $at[2]['cv_no_lower_extremity_edema'] = "No Lower Extremity Edema";
365 $at[1]['gastrointestinal_abdomen_soft_nontender'] = "Abdomen soft, nontender";
366 $at[1]['gastrointestinal_no_fluid'] = "No Fluid";
367 $at[1]['gastrointestinal_no_hepatosplenomegally'] = "No HepatoSplenomegally";
368 $at[1]['gastrointestinal_no_hernia'] = "No Hernia";
369 $at[1]['gastrointestinal_guiac_negative'] = "Guiac Negative";
371 $a['GastroIntestinal'] = $at;
375 $at[1]['gu_male_scrotum_testis_nl'] = "Scrotum and Testis NL";
376 $at[1]['gu_male_penis_nl_without_legions'] = "Penis NL, Without legions";
377 $at[1]['gu_male_prostate_nl'] = "Prostate NL";
378 $at[1]['gu_male_no_penile_disharge'] = "No Penile Discharge";
380 $a['GU (male)'] = $at;
384 $at[1]['gu_female_external_genitalia_nl'] = "External Genitalia NL";
385 $at[1]['gu_female_urethra_nl'] = "Urethra NL";
386 $at[1]['gu_female_bladder_nl'] = "Bladder NL";
387 $at[1]['gu_female_cervix_without_discharge'] = "Cervix without discharge";
389 $at[2]['gu_female_no_cervical_motion_tenderness'] = "No Cervical Motion Tenderness";
390 $at[2]['gu_female_uterus_nl_size'] = "Uterus NL size";
391 $at[2]['gu_female_no_adnexal_masses'] = "No Adnexal Masses";
393 $a['GU (female)'] = $at;
397 $at[1]['lymphatics_no_cervical_nodes_palpable'] = "No Cervical nodes Palpable";
398 $at[1]['lymphatics_no_axillary_nodes_palpable'] = "No Axillary Nodes Palpable";
399 $at[1]['lymphatics_no_inguinal_nodes_palpable'] = "No Inguinal Nodes Palpable";
401 $a['Lymphatics'] = $at;
405 $at[1]['musculoskeletal_gait_normal'] = "Gait Normal";
406 $at[1]['musculoskeletal_nl_symmetry'] = "NL Symmetry";
407 $at[1]['musculoskeletal_nl_tone'] = "NL Tone";
408 $at[1]['musculoskeletal_nl_rom'] = "NL ROM";
410 $at[2]['musculoskeletal_no_instability'] = "No Instability";
411 $at[2]['musculoskeletal_normal_strength_five_five'] = "Normal Strength 5/5";
413 $a['Musculoskeletal'] = $at;
417 $at[1]['neurologic_alert_oriented_xthree'] = "Alert and Oriented x3";
418 $at[1]['neurologic_normal_memory'] = "Normal Memory";
419 $at[1]['neurologic_cn_ii_xii_intact_to_confrontation'] = "CN II-XII Intact to Confrontation";
421 $at[2]['neurologic_reflexes_five_five_bicipital_tendon'] = "Reflexes 5/5 Bicipital Tendon";
422 $at[2]['neurologic_reflexes_five_five_tricipital_tendon'] = "Reflexes 5/5 Tricipital Tendon";
423 $at[2]['neurologic_reflexes_five_five_patellar_tendon'] = "Reflexes 5/5 Patellar Tendon";
425 $at[3]['neurologic_reflexes_five_five_achillies_tendon'] = "Reflexes 5/5 Achillies Tendon";
426 $at[3]['neurologic_toes_downgoing_bilaterally'] = "Toes Downgoing Bilaterally";
427 $at[3]['neurologic_sensation_nl_to_light_touch'] = "Sensation NL to light touch";
429 $at[4]['neurologic_sensation_nl_to_hot_cold'] = "Sensation NL to Hot/Cold";
430 $at[4]['neurologic_sensation_nl_to_one_one_point_discrimination'] = "Sensation NL to 1-1 point discrimination";
431 $at[4]['neurologic_speech_is_appropriate'] = "Speech is appropriate";
433 $a['Neurologic'] = $at;
437 $at[1]['psychiatric_nl_judgement_insight'] = "NL Judgement/Insight";
438 $at[1]['psychiatric_nl_mood'] = "NL Mood";
439 $at[1]['psychiatric_nl_affect'] = "NL Affect";
440 $at[1]['psychiatric_no_suicidal_ideation'] = "No Suicidal Ideation";
441 $at[1]['psychiatric_normal_eye_contact'] = "Normal Eye Contact";
443 $a['Psychiatric'] = $at;