contrib/forms/assessment_intake/save.php

   1 <?php
   2
   3 include_once("../../globals.php");
   4 include_once("$srcdir/api.inc");
   5 include_once("$srcdir/forms.inc");
   6 foreach ($_POST as $k => $var) {
   7     $_POST[$k] = add_escape_custom($var);
   8     echo "$var\n";
   9 }
  10
  11 if ($encounter == "") {
  12     $encounter = date("Ymd");
  13 }
  14
  15 if ($_GET["mode"] == "new") {
  16     $newid = formSubmit("form_assessment_intake", $_POST, $_GET["id"], $userauthorized);
  17     print 'formSubmitt';  /*debugging */
  18     addForm($encounter, "Assessment and Intake", $newid, "assessment_intake", $pid, $userauthorized);
  19 } elseif ($_GET["mode"] == "update") {
  20     sqlInsert("update form_assessment_intake set pid = {$_SESSION["pid"]},groupname='".$_SESSION["authProvider"]."',user='".$_SESSION["authUser"]."',authorized=$userauthorized,activity=1, date = NOW(),
  21 dcn='".$_POST["dcn"]."',
  22 location='".$_POST["location"]."',
  23 time_in='".$_POST["time_in"]."',
  24 time_out='".$_POST["time_out"]."',
  25 referral_source='".$_POST["referral_source"]."',
  26 new_client_eval='".$_POST["new_client_eval"]."',
  27 readmission='".$_POST["readmission"]."',
  28 consultation='".$_POST["consultation"]."',
  29 copy_sent_to='".$_POST["copy_sent_to"]."',
  30 reason_why='".$_POST["reason_why"]."',
  31 behavior_led_to='".$_POST["behavior_led_to"]."',
  32 school_work='".$_POST["school_work"]."',
  33 personal_relationships='".$_POST["personal_relationships"]."',
  34 fatherc='".$_POST["fatherc"]."',
  35 motherc='".$_POST["motherc"]."',
  36 father_involved='".$_POST["father_involved"]."',
  37 mother_involved='".$_POST["mother_involved"]."',
  38 number_children='".$_POST["number_children"]."',
  39 siblings='".$_POST["siblings"]."',
  40 other_relationships='".$_POST["other_relationships"]."',
  41 social_relationships='".$_POST["social_relationships"]."',
  42 current_symptoms='".$_POST["current_symptoms"]."',
  43 personal_strengths='".$_POST["personal_strengths"]."',
  44 spiritual='".$_POST["spiritual"]."',
  45 legal='".$_POST["legal"]."',
  46 prior_history='".$_POST["prior_history"]."',
  47 number_admitt='".$_POST["number_admitt"]."',
  48 type_admitt='".$_POST["type_admitt"]."',
  49 substance_use='".$_POST["substance_use"]."',
  50 substance_abuse='".$_POST["substance_abuse"]."',
  51 axis1='".$_POST["axis1"]."',
  52 axis2='".$_POST["axis2"]."',
  53 axis3='".$_POST["axis3"]."',
  54 allergies='".$_POST["allergies"]."',
  55 ax4_prob_support_group='".$_POST["ax4_prob_support_group"]."',
  56 ax4_prob_soc_env='".$_POST["ax4_prob_soc_env"]."',
  57 ax4_educational_prob='".$_POST["ax4_educational_prob"]."',
  58 ax4_occ_prob='".$_POST["ax4_occ_prob"]."',
  59 ax4_housing='".$_POST["ax4_housing"]."',
  60 ax4_economic='".$_POST["ax4_economic"]."',
  61 ax4_access_hc='".$_POST["ax4_access_hc"]."',
  62 ax4_legal='".$_POST["ax4_legal"]."',
  63 ax4_other_cb='".$_POST["ax4_other_cb"]."',
  64 ax4_other='".$_POST["ax4_other"]."',
  65 ax5_current='".$_POST["ax5_current"]."',
  66 ax5_past='".$_POST["ax5_past"]."',
  67 risk_suicide_na='".$_POST["risk_suicide_na"]."',
  68 risk_suicide_nk='".$_POST["risk_suicide_nk"]."',
  69 risk_suicide_io='".$_POST["risk_suicide_io"]."',
  70 risk_suicide_plan='".$_POST["risk_suicide_plan"]."',
  71 risk_suicide_iwom='".$_POST["risk_suicide_iwom"]."',
  72 risk_suicide_iwm='".$_POST["risk_suicide_iwm"]."',
  73 risk_homocide_na='".$_POST["risk_homocide_na"]."',
  74 risk_homocide_nk='".$_POST["risk_homocide_nk"]."',
  75 risk_homocide_io='".$_POST["risk_homocide_io"]."',
  76 risk_homocide_plan='".$_POST["risk_homocide_plan"]."',
  77 risk_homocide_iwom='".$_POST["risk_homocide_iwom"]."',
  78 risk_homocide_iwm='".$_POST["risk_homocide_iwm"]."',
  79 risk_compliance_na='".$_POST["risk_compliance_na"]."',
  80 risk_compliance_fc='".$_POST["risk_compliance_fc"]."',
  81 risk_compliance_mc='".$_POST["risk_compliance_mc"]."',
  82 risk_compliance_moc='".$_POST["risk_compliance_moc"]."',
  83 risk_compliance_var='".$_POST["risk_compliance_var"]."',
  84 risk_compliance_no='".$_POST["risk_compliance_no"]."',
  85 risk_substance_na ='".$_POST["risk_substance_na"]."',
  86 risk_substance_none='".$_POST["risk_substance_none"]."',
  87 risk_normal_use='".$_POST["risk_normal_use"]."',
  88 risk_substance_ou='".$_POST["risk_substance_ou"]."',
  89 risk_substance_dp='".$_POST["risk_substance_dp"]."',
  90 risk_substance_ur='".$_POST["risk_substance_ur"]."',
  91 risk_substance_ab='".$_POST["risk_substance_ab"]."',
  92 risk_sexual_na='".$_POST["risk_sexual_na"]."',
  93 risk_sexual_y='".$_POST["risk_sexual_y"]."',
  94 risk_sexual_n='".$_POST["risk_sexual_n"]."',
  95 risk_sexual_ry='".$_POST["risk_sexual_ry"]."',
  96 risk_sexual_rn='".$_POST["risk_sexual_rn"]."',
  97 risk_sexual_cv='".$_POST["risk_sexual_cv"]."',
  98 risk_sexual_cp='".$_POST["risk_sexual_cp"]."',
  99 risk_sexual_b='".$_POST["risk_sexual_b"]."',
 100 risk_sexual_nf='".$_POST["risk_sexual_nf"]."',
 101 risk_neglect_na='".$_POST["risk_neglect_na"]."',
 102 risk_neglect_y='".$_POST["risk_neglect_y"]."',
 103 risk_neglect_n='".$_POST["risk_neglect_n"]."',
 104 risk_neglect_ry='".$_POST["risk_neglect_ry"]."',
 105 risk_neglect_rn='".$_POST["risk_neglect_rn"]."',
 106 risk_neglect_cv='".$_POST["risk_neglect_cv"]."',
 107 risk_neglect_cp='".$_POST["risk_neglect_cp"]."',
 108 risk_neglect_cb='".$_POST["risk_neglect_cb"]."',
 109 risk_neglect_cn='".$_POST["risk_neglect_cn"]."',
 110 risk_exists_c='".$_POST["risk_exists_c"]."',
 111 risk_exists_cn='".$_POST["risk_exists_cn"]."',
 112 risk_exists_s='".$_POST["risk_exists_s"]."',
 113 risk_exists_o='".$_POST["risk_exists_o"]."',
 114 risk_exists_b='".$_POST["risk_exists_b"]."',
 115 risk_community='".$_POST["risk_community"]."',
 116 recommendations_psy_i='".$_POST["recommendations_psy_i"]."',
 117 recommendations_psy_f='".$_POST["recommendations_psy_f"]."',
 118 recommendations_psy_m='".$_POST["recommendations_psy_m"]."',
 119 recommendations_psy_o='".$_POST["recommendations_psy_o"]."',
 120 recommendations_psy_notes='".$_POST["recommendations_psy_notes"]."',
 121 refer_date='".$_POST["refer_date"]."',
 122 parent ='".$_POST["parent"]."',
 123 supervision_level='".$_POST["supervision_level"]."',
 124 supervision_type='".$_POST["supervision_type"]."',
 125 supervision_res='".$_POST["supervision_res"]."',
 126 supervision_services='".$_POST["supervision_services"]."',
 127 support_ps='".$_POST["support_ps"]."',
 128 support_cs='".$_POST["support_cs"]."',
 129 support_sm='".$_POST["support_sm"]."',
 130 support_a='".$_POST["support_a"]."',
 131 support_o='".$_POST["support_o"]."',
 132 support_ol='".$_POST["support_ol"]."',
 133 legal_op='".$_POST["legal_op"]."',
 134 legal_so='".$_POST["legal_so"]."',
 135 legal_sa='".$_POST["legal_sa"]."',
 136 legal_ve='".$_POST["legal_ve"]."',
 137 legal_ad='".$_POST["legal_ad"]."',
 138 legal_adl='".$_POST["legal_adl"]."',
 139 legal_o='".$_POST["legal_o"]."',
 140 legal_ol='".$_POST["legal_ol"]."',
 141 referrals_pepm='".$_POST["referrals_pepm"]."',
 142 referrals_mc='".$_POST["referrals_mc"]."',
 143 referrals_vt='".$_POST["referrals_vt"]."',
 144 referrals_o='".$_POST["referrals_o"]."',
 145 referrals_cu='".$_POST["referrals_cu"]."',
 146 referrals_docs='".$_POST["referrals_docs"]."',
 147 referrals_or='".$_POST["referrals_or"]."' where id=$id");
 148 }
 149
 150 $_SESSION["encounter"] = $encounter;
 151 formHeader("Redirecting....");
 152 formJump();
 153 formFooter();