contrib/forms/review_of_systems/FormReviewOfSystems.class.php

   1 <?php
   2
   3
   4
   5
   6 /**
   7  * class Prosthesis
   8  *
   9  */
  10 class FormReviewOfSystems extends ORDataObject
  11 {
  12
  13     /**
  14      *
  15      * @access public
  16      */
  17
  18     /**
  19      *
  20      * @access private
  21      */
  22
  23     var $id;
  24     var $date;
  25     var $pid;
  26     var $activity;
  27     var $date_tetnus_shot;
  28     var $date_pneumonia_shot;
  29     var $date_flu_shot;
  30     var $date_pap_smear;
  31     var $date_mammogram;
  32     var $date_bone_density_scan;
  33     var $abnormal_pap_smear;
  34     var $abnormal_mammogram;
  35     var $date_last_psa;
  36     var $packs_per_day;
  37     var $years_smoked;
  38     var $alcohol_per_week;
  39     var $recreational_drugs;
  40     var $checks;
  41
  42
  43     /**
  44      * Constructor sets all Form attributes to their default value
  45      */
  46
  47     function FormReviewOfSystems($id = "", $_prefix = "")
  48     {
  49         if (is_numeric($id)) {
  50             $this->id = $id;
  51         } else {
  52             $id = "";
  53         }
  54
  55         $this->_table = "form_review_of_systems";
  56         $this->date = date("Y-m-d H:i:s");
  57         $this->activity = 1;
  58         $this->pid = $GLOBALS['pid'];
  59         if ($id != "") {
  60             $this->populate();
  61         }
  62     }
  63
  64     function toString($html = false)
  65     {
  66         $string .= "\n"
  67             ."ID: " . $this->id . "\n";
  68
  69         if ($html) {
  70             return nl2br($string);
  71         } else {
  72             return $string;
  73         }
  74     }
  75
  76     function populate()
  77     {
  78         parent::populate();
  79
  80         $sql = "SELECT name from form_review_of_systems_checks where foreign_id = '" . add_escape_custom($this->id) . "'";
  81         $results = sqlQ($sql);
  82
  83         while ($row = sqlFetchArray($results)) {
  84             $this->checks[] = $row['name'];
  85         }
  86     }
  87
  88     function persist()
  89     {
  90         parent::persist();
  91         if (is_numeric($this->id) and !empty($this->checks)) {
  92             $sql = "delete FROM form_review_of_systems_checks where foreign_id = '" . $this->id . "'";
  93             sqlQuery($sql);
  94             foreach ($this->checks as $check) {
  95                 if (!empty($check)) {
  96                     $sql = "INSERT INTO form_review_of_systems_checks set foreign_id='"  . add_escape_custom($this->id) . "', name = '" . add_escape_custom($check) . "'";
  97                     sqlQuery($sql);
  98                     //echo "$sql<br>";
  99                 }
 100             }
 101         }
 102     }
 103
 104     function set_id($id)
 105     {
 106         if (!empty($id) && is_numeric($id)) {
 107             $this->id = $id;
 108         }
 109     }
 110     function get_id()
 111     {
 112         return $this->id;
 113     }
 114     function set_pid($pid)
 115     {
 116         if (!empty($pid) && is_numeric($pid)) {
 117             $this->pid = $pid;
 118         }
 119     }
 120     function get_pid()
 121     {
 122         return $this->pid;
 123     }
 124     function set_activity($tf)
 125     {
 126         if (!empty($tf) && is_numeric($tf)) {
 127             $this->activity = $tf;
 128         }
 129     }
 130     function get_activity()
 131     {
 132         return $this->activity;
 133     }
 134
 135     function set_date_tetnus_shot($string)
 136     {
 137         $this->date_tetnus_shot = $string;
 138     }
 139     function get_date_tetnus_shot()
 140     {
 141         return $this->date_tetnus_shot;
 142     }
 143
 144     function set_date_pneumonia_shot($string)
 145     {
 146         $this->date_pneumonia_shot = $string;
 147     }
 148     function get_date_pneumonia_shot()
 149     {
 150         return $this->date_pneumonia_shot;
 151     }
 152
 153     function set_date_flu_shot($string)
 154     {
 155         $this->date_flu_shot = $string;
 156     }
 157     function get_date_flu_shot()
 158     {
 159         return $this->date_flu_shot;
 160     }
 161
 162     function set_date_pap_smear($string)
 163     {
 164         $this->date_pap_smear = $string;
 165     }
 166     function get_date_pap_smear()
 167     {
 168         return $this->date_pap_smear;
 169     }
 170
 171     function set_date_mammogram($string)
 172     {
 173         $this->date_mammogram = $string;
 174     }
 175     function get_date_mammogram()
 176     {
 177         return $this->date_mammogram;
 178     }
 179
 180     function set_date_bone_density_scan($string)
 181     {
 182         $this->date_bone_density_scan = $string;
 183     }
 184     function get_date_bone_density_scan()
 185     {
 186         return $this->date_bone_density_scan;
 187     }
 188
 189     function set_abnormal_pap_smear($string)
 190     {
 191         $this->abnormal_pap_smear = $string;
 192     }
 193     function get_abnormal_pap_smear()
 194     {
 195         return $this->abnormal_pap_smear;
 196     }
 197
 198     function set_abnormal_mammogram($string)
 199     {
 200         $this->abnormal_mammogram = $string;
 201     }
 202     function get_abnormal_mammogram()
 203     {
 204         return $this->abnormal_mammogram;
 205     }
 206
 207     function set_date_last_psa($string)
 208     {
 209         $this->date_last_psa = $string;
 210     }
 211     function get_date_last_psa()
 212     {
 213         return $this->date_last_psa;
 214     }
 215
 216     function set_packs_per_day($string)
 217     {
 218         $this->packs_per_day = $string;
 219     }
 220     function get_packs_per_day()
 221     {
 222         return $this->packs_per_day;
 223     }
 224
 225     function set_years_smoked($string)
 226     {
 227         $this->years_smoked = $string;
 228     }
 229     function get_years_smoked()
 230     {
 231         return $this->years_smoked;
 232     }
 233
 234     function set_alcohol_per_week($string)
 235     {
 236         $this->alcohol_per_week = $string;
 237     }
 238     function get_alcohol_per_week()
 239     {
 240         return $this->alcohol_per_week;
 241     }
 242
 243     function set_recreational_drugs($string)
 244     {
 245         $this->recreational_drugs = $string;
 246     }
 247     function get_recreational_drugs()
 248     {
 249         return $this->recreational_drugs;
 250     }
 251
 252     function set_checks($check_array)
 253     {
 254         $this->checks = $check_array;
 255     }
 256
 257     function get_checks()
 258     {
 259         return $this->checks;
 260     }
 261
 262
 263     function _form_layout()
 264     {
 265         $a = array();
 266
 267         //at is array temp
 268         //a is array
 269         //a_bottom is the textually identified rows of a checkbox group
 270
 271         $at[1]['constitutional_fever']  =  "Fever";
 272         $at[1]['constitutional_chills']     =  "Chills";
 273         $at[1]['constitutional_fatigue']    =  "Fatigue";
 274         $at[1]['constitutional_weakness']   =  "Weakness";
 275
 276         $at[2]['constitutional_night_sweats']   =  "Night Sweats";
 277         $at[2]['constitutional__unexplained_weight_loss']   =  "Unexplained Weight Loss";
 278         $at[2]['constitutional_unexplained_weight_gain']    =  "Unexplained Weight Gain";
 279
 280         $a['Constitutional'] = $at;
 281
 282         $at = array();
 283         $a_bottom = array();
 284         $at[1]['heent_changes_in_vision']   =  "Changes in Vision";
 285         $at[1]['heent_light_sensitivity']   =  "Light Sensitivity";
 286         $at[1]['heent_changes_in_hearing']  =  "Changes in Hearing";
 287         $at[1]['heent_ringing_in_ears']     =  "Ringing in Ears";
 288
 289         $at[2]['heent_frequent_nose_bleeds']    =  "Frequent Nose Bleeds";
 290         $at[2]['heent_pain_with_swallowing']    =  "Pain with Swallowing";
 291         $at[2]['heent_difficulty_swallowing']   =  "Difficulty Swallowing";
 292
 293         $a['HEENT'] = $at;
 294
 295         $at = array();
 296         $a_bottom = array();
 297         $at[1]['endocrine_frequent_thirst']     =  "Frequent Thirst";
 298         $at[1]['endocrine_frequent_urination']  =  "Frequent Urination";
 299         $at[1]['endocrine_heat_intolerance']    =  "Heat Intolerance";
 300         $at[1]['endocrine_brittle_hair']    =  "Brittle Hair";
 301
 302         $a['Enodcrine'] = $at;
 303
 304         $at = array();
 305         $a_bottom = array();
 306         $at[1]['respiratory_shortness_of_breath']   =  "Shortness Of Breath";
 307         $at[1]['respiratory_difficulty_breathing']  =  "Difficulty Breathing";
 308         $at[1]['respiratory_wheezing']  =  "Wheezing";
 309         $at[1]['respiratory_coughing_up_blood']     =  "Coughing up Blood";
 310
 311         $a['Respiratory'] = $at;
 312
 313         $at = array();
 314         $a_bottom = array();
 315         $at[1]['cv_chest_pain']     =  "Chest Pain";
 316         $at[1]['cv_palpitations']   =  "Palpitations";
 317         $at[1]['cv_shortness_of_breath_with_exertion']  =  "Shortness of Breath with Exertion";
 318         $at[1]['cv_swelling_in_ankles']     =  "Swelling in Ankles";
 319
 320         $a['CV'] = $at;
 321
 322         $at = array();
 323         $a_bottom = array();
 324         $at[1]['gi_frequent_heartburn']     =  "Frequent Heartburn";
 325         $at[1]['gi_vomiting']   =  "Vomiting";
 326         $at[1]['gi_diarrhea']   =  "Diarrhea";
 327         $at[1]['gi_constipation']   =  "Constipation";
 328
 329         $at[2]['gi_unusually_dark_stools']  =  "Unusually Dark Stools";
 330         $at[2]['gi_vomiting_blood']     =  "Vomiting Blood";
 331
 332         $a['GI'] = $at;
 333
 334         $at = array();
 335         $a_bottom = array();
 336         $at[1]['gu_pain_with_urination']    =  "Pain with Urination";
 337         $at[1]['gu_difficulty_urinating']   =  "Difficulty Urinating";
 338         $at[1]['gu_frequent_nightime_urination']    =  "Frequent Nightime Urination";
 339
 340         $at["Women"]['gu_women_pelvic_pain']    =  "Pelvic Pain";
 341         $at["Women"]['gu_women_leaking_of_urine']   =  "Leaking of Urine";
 342         $at["Women"]['gu_women_nipple_discharge']   =  "Nipple Discharge";
 343         $at["Women"]['gu_women_breast_pain']    =  "Breast Pain";
 344
 345         $at["Men"]['gu_men_difficulty_attaining_erection']  =  "Difficulty Attaining Erection";
 346         $at["Men"]['gu_men_testicular_pain']    =  "Testicular Pain";
 347
 348         $a['GU'] = $at;
 349
 350         $at = array();
 351         $a_bottom = array();
 352         $at[1]['musculoskeletal_pain_in_joints']    =  "Pain in Joints";
 353         $at[1]['musculoskeletal_swollen_joints']    =  "Swollen Joints";
 354         $at[1]['musculoskeletal_muscle_pain']   =  "Muscle Pain";
 355
 356         $a['Musculoskeletal'] = $at;
 357
 358         $at = array();
 359         $a_bottom = array();
 360         $at[1]['skin_rash']     =  "Rash";
 361         $at[1]['skin_hives']    =  "Hives";
 362         $at[1]['skin_changing_moles']   =  "Changing Moles";
 363         $at[1]['skin_sores_wont_heal']  =  "Sores that Won't Heal";
 364
 365         $a['Skin'] = $at;
 366
 367         $at = array();
 368         $a_bottom = array();
 369         $at[1]['neurological_seizures']     =  "Seizures";
 370         $at[1]['neurological_loss_of_conciousness']     =  "Loss of Conciousness";
 371         $at[1]['neurological_speech_difficulty']    =  "Speech Difficulty";
 372         $at[1]['neurological_memory_loss']  =  "Memory Loss";
 373
 374         $at[2]['neurological_numbness']     =  "Numbness";
 375         $at[2]['neurological_confusion']    =  "Confusion";
 376
 377         $a['Neurological'] = $at;
 378
 379         $at = array();
 380         $a_bottom = array();
 381         $at[1]['hematologic_easy_bruising']     =  "Easy Bruising";
 382         $at[1]['hematologic_bleeding_gums']     =  "Bleeding Gums";
 383
 384         $a['Hematologic'] = $at;
 385
 386         $at = array();
 387         $a_bottom = array();
 388         $at["When sexually active,<br> are you active with:"]['sexually_active_men']    =  "Men";
 389         $at["When sexually active,<br> are you active with:"]['sexually_active_women']  =  "Women";
 390         $at["When sexually active,<br> are you active with:"]['sexually_active_both']   =  "Both";
 391
 392         $a['General'] = $at;
 393
 394         return $a;
 395     }
 396 }   // end of Form