contrib/forms/psychiatrySet/brief_aan_verwijzer/new.php

   1 <?php
   2 ////////////////////////////////////////////////////////////////////
   3 // Form:        brief_aan_verwijzer
   4 // Package:     letter to verwijzer - Dutch specific form
   5 // Created by:  Larry Lart
   6 // Version:     1.0 - 30-03-2008
   7 ////////////////////////////////////////////////////////////////////
   8
   9 include_once("../../globals.php");
  10 include_once("$srcdir/api.inc");
  11 include_once("$srcdir/patient.inc");
  12
  13 formHeader("Form: brief_aan_verwijzer");
  14 $returnurl = $GLOBALS['concurrent_layout'] ? 'encounter_top.php' : 'patient_encounter.php';
  15
  16 $result = getPatientData($pid, "fname,lname,pid,pubpid,phone_home,sex,pharmacy_id,DOB,DATE_FORMAT(DOB,'%Y%m%d') as DOB_YMD");
  17 $provider_results = sqlQuery("select * from users where username='" . $_SESSION{"authUser"} . "'");
  18
  19 ////////////////////////////////////////////////////////////////////
  20 // Function:    getPatientDateOfLastEncounter
  21 function getPatientDateOfLastEncounter( $nPid )
  22 {
  23   // get date of last encounter no codes
  24   $strEventDate = sqlQuery("SELECT MAX(pc_eventDate) AS max
  25                   FROM openemr_postcalendar_events
  26                   WHERE pc_pid = $nPid
  27                   AND pc_apptstatus = '@'
  28                   AND pc_eventDate >= '2007-01-01'");
  29
  30   // now check if there was a previous encounter
  31   if( $strEventDate['max'] != "" )
  32     return( $strEventDate['max'] );
  33   else
  34     return( "00-00-0000" );
  35 }
  36
  37 $m_strEventDate = getPatientDateOfLastEncounter( $result['pid'] );
  38
  39 // get last saved id for intakeverslag
  40 $vectIntakeverslagQuery = sqlQuery( "SELECT id FROM form_intakeverslag
  41                             WHERE pid = ".$_SESSION["pid"].
  42                             " AND groupname='".$_SESSION["authProvider"].
  43                             "' AND user='".$_SESSION["authUser"]."' AND
  44                             authorized=$userauthorized AND activity=1
  45                             AND autosave_flag=0
  46                             ORDER by id DESC limit 1" );
  47
  48 // get autosave id for Psychiatrisch Onderzoek
  49 $vectPO = sqlQuery( "SELECT id FROM form_psychiatrisch_onderzoek
  50                             WHERE pid = ".$_SESSION["pid"].
  51                             " AND groupname='".$_SESSION["authProvider"].
  52                             "' AND user='".$_SESSION["authUser"]."' AND
  53                             authorized=$userauthorized AND activity=1
  54                             AND autosave_flag=0
  55                             ORDER by id DESC limit 1" );
  56
  57 // get autosave id for Psychiatrisch Onderzoek
  58 $vectAutosaveBAV = sqlQuery( "SELECT id, autosave_flag, autosave_datetime FROM form_brief_aan_verwijzer
  59                             WHERE pid = ".$_SESSION["pid"].
  60                             " AND groupname='".$_SESSION["authProvider"].
  61                             "' AND user='".$_SESSION["authUser"]."' AND
  62                             authorized=$userauthorized AND activity=1
  63                             AND autosave_flag=1
  64                             ORDER by id DESC limit 1" );
  65
  66 //fetch data from INTAKE-VERSLAG
  67 $obj_iv = formFetch( "form_intakeverslag", $vectIntakeverslagQuery['id'] );
  68 // fetch data from PSYCHIATRISCH ONDERZOEK
  69 $obj_po = formFetch( "form_psychiatrisch_onderzoek", $vectPO['id'] );
  70 // fetch data from brief_aan_verwijzer
  71 $obj_bav = formFetch( "form_brief_aan_verwijzer", $vectAutosaveBAV['id'] );
  72
  73 /////////////////
  74 // here we mix the data
  75
  76 // Introductie - local
  77 // create the inroductie form
  78 if( $obj_bav['introductie'] != '' )
  79   $obj['introductie'] = $obj_bav['introductie'];
  80 else
  81   $obj['introductie'] = xl("Since","",""," ") . $m_strEventDate . xl("we have seen your above patient for evaluation and treatment at our outpatient psychiatry clinic. Thank you for this referral.",""," ");
  82
  83 // Reden van aanmelding
  84 if( $obj_bav['reden_van_aanmelding'] != '' )
  85   $obj['reden_van_aanmelding'] = $obj_bav['reden_van_aanmelding'];
  86 elseif( $obj_iv['reden_van_aanmelding'] != '' )
  87   $obj['reden_van_aanmelding'] = $obj_iv['reden_van_aanmelding'];
  88 else
  89   $obj['reden_van_aanmelding'] = '';
  90
  91 // Anamnese
  92 if( $obj_bav['anamnese'] != '' )
  93   $obj['anamnese'] = $obj_bav['anamnese'];
  94 elseif( $obj_iv['klachten_probleemgebieden'] != '' )
  95   $obj['anamnese'] = $obj_iv['klachten_probleemgebieden'];
  96 else
  97   $obj['anamnese'] = '';
  98
  99 // Psychiatrisch onderzoek
 100 if( $obj_bav['psychiatrisch_onderzoek'] != '' )
 101   $obj['psychiatrisch_onderzoek'] = $obj_bav['psychiatrisch_onderzoek'];
 102 elseif( $obj_po['psychiatrisch_onderzoek'] != '' )
 103   $obj['psychiatrisch_onderzoek'] = $obj_po['psychiatrisch_onderzoek'];
 104 else
 105   $obj['psychiatrisch_onderzoek'] = '';
 106
 107 // Beschrijvend conclusie
 108 if( $obj_bav['beschrijvend_conclusie'] != '' )
 109   $obj['beschrijvend_conclusie'] = $obj_bav['beschrijvend_conclusie'];
 110 elseif( $obj_po['beschrijvende_conclusie'] != '' )
 111   $obj['beschrijvend_conclusie'] = $obj_po['beschrijvende_conclusie'];
 112 else
 113   $obj['beschrijvend_conclusie'] = '';
 114
 115 // Advies/beleid
 116 if( $obj_bav['advies_beleid'] != '' )
 117   $obj['advies_beleid'] = $obj_bav['advies_beleid'];
 118 elseif( $obj_po['behandelvoorstel'] != '' )
 119   $obj['advies_beleid'] = $obj_po['behandelvoorstel'];
 120 else
 121   $obj['advies_beleid'] = '';
 122
 123
 124 ?>
 125
 126 <html>
 127 <head>
 128     <link rel=stylesheet href="<?php echo $css_header;?>" type="text/css">
 129 </head>
 130
 131
 132
 133 <body <?php echo $top_bg_line;?> topmargin=0 rightmargin=0 leftmargin=2 bottommargin=0 marginwidth=2 marginheight=0>
 134
 135 <style type="text/css">@import url(../../../library/dynarch_calendar.css);</style>
 136
 137 <style type="text/css">
 138  body       { font-family:sans-serif; font-size:10pt; font-weight:normal }
 139   .dehead    { color:#000000; font-family:sans-serif; font-size:10pt; font-weight:bold;
 140                 padding-left:3px; padding-right:3px; }
 141                  .detail    { color:#000000; font-family:sans-serif; font-size:10pt; font-weight:normal;
 142                                padding-left:3px; padding-right:3px; }
 143 </style>
 144
 145 <style type="text/css">@import url(../../../library/dynarch_calendar.css);</style>
 146 <script type="text/javascript" src="../../../library/dialog.js"></script>
 147 <script type="text/javascript" src="../../../library/textformat.js"></script>
 148 <script type="text/javascript" src="../../../library/dynarch_calendar.js"></script>
 149 <script type="text/javascript" src="../../../library/dynarch_calendar_en.js"></script>
 150 <script type="text/javascript" src="../../../library/dynarch_calendar_setup.js"></script>
 151
 152 <script type="text/javascript" src="../../../library/js/jquery121.js"></script>
 153
 154 <?php
 155
 156 if( $vectAutosaveBAV['id'] )
 157   $brief_aan_verwijzer_id = $vectAutosaveBAV['id'];
 158 else
 159   $brief_aan_verwijzer_id = "0";
 160
 161 ?>
 162 <script type="text/javascript">
 163 $(document).ready(function(){
 164         autosave();
 165                         });
 166
 167 function delete_autosave( )
 168 {
 169   if( confirm("<?php xl('Are you sure you want to completely remove this form?','e'); ?>") )
 170   {
 171     $.ajax(
 172             {
 173               type: "POST",
 174               url: "../../forms/brief_aan_verwijzer/delete_autosave.php",
 175               data: "id=" + <?php echo $brief_aan_verwijzer_id ?>
 176                         ,
 177                                 cache: false,
 178                                 success: function( message )
 179                 {
 180                      $("#timestamp").empty().append(message);
 181                 }
 182             });
 183     return true;
 184
 185   } else
 186   {
 187     return false;
 188   }
 189
 190 }
 191
 192 function autosave( )
 193 {
 194   var t = setTimeout("autosave()", 20000);
 195
 196   var a_introductie = $("#introductie").val();
 197   var a_reden_van_aanmelding = $("#reden_van_aanmelding").val();
 198   var a_anamnese = $("#anamnese").val();
 199   var a_psychiatrisch_onderzoek = $("#psychiatrisch_onderzoek").val();
 200   var a_beschrijvend_conclusie = $("#beschrijvend_conclusie").val();
 201   var a_advies_beleid = $("#advies_beleid").val();
 202
 203   if( a_introductie.length > 0 || a_reden_van_aanmelding.length > 0 )
 204   {
 205     $.ajax(
 206             {
 207               type: "POST",
 208               url: "../../forms/brief_aan_verwijzer/autosave.php",
 209               data: "id=" + <?php echo $brief_aan_verwijzer_id ?> +
 210                         "&introductie=" + $("#introductie").val() +
 211                         "&reden_van_aanmelding=" + a_reden_van_aanmelding +
 212                         "&anamnese=" + a_anamnese +
 213                         "&psychiatrisch_onderzoek=" + a_psychiatrisch_onderzoek +
 214                         "&beschrijvend_conclusie=" + a_beschrijvend_conclusie +
 215                         "&advies_beleid=" + a_advies_beleid
 216                         ,
 217                                 cache: false,
 218                                 success: function( message )
 219                 {
 220                                         $("#timestamp").empty().append(message);
 221                 }
 222             });
 223   }
 224
 225 }
 226
 227 </script>
 228
 229 <div id="overDiv" style="position:absolute; visibility:hidden; z-index:1000;"></div>
 230 <form method=post action="<?php echo $rootdir;?>/forms/brief_aan_verwijzer/save.php?mode=new&saveid=<?php echo $brief_aan_verwijzer_id; ?>" name="my_form">
 231 <span class="title"><?php xl('Psychiatric Brief Letter','e'); ?></span><br><br>
 232
 233 <br><span class=text><?php xl('Introduction','e'); ?></span><br>
 234 <textarea cols=80 rows=3 wrap=virtual name="introductie" id="introductie"><?php echo stripslashes($obj{"introductie"});?></textarea><br>
 235
 236 <br><span class=text><?php xl('Reason for Visit','e'); ?></span><br>
 237 <textarea cols=80 rows=5 wrap=virtual name="reden_van_aanmelding" id="reden_van_aanmelding"><?php echo stripslashes($obj{"reden_van_aanmelding"});?></textarea><br>
 238 <br><span class=text><?php xl('History','e'); ?></span><br>
 239 <textarea cols=80 rows=5 wrap=virtual name="anamnese" id="anamnese"><?php echo stripslashes($obj{"anamnese"});?></textarea><br>
 240 <br><span class=text><?php xl('Psychiatric Examination','e'); ?></span><br>
 241 <textarea cols=80 rows=5 wrap=virtual name="psychiatrisch_onderzoek" id="psychiatrisch_onderzoek"><?php echo stripslashes($obj{"psychiatrisch_onderzoek"});?></textarea><br>
 242 <br><span class=text><?php xl('Conclusions','e'); ?></span><br>
 243 <textarea cols=80 rows=5 wrap=virtual name="beschrijvend_conclusie" id="beschrijvend_conclusie"><?php echo stripslashes($obj{"beschrijvend_conclusie"});?></textarea><br>
 244 <br><span class=text><?php xl('Treatment Plan','e'); ?></span><br>
 245 <textarea cols=80 rows=5 wrap=virtual name="advies_beleid" id="advies_beleid"><?php echo stripslashes($obj{"advies_beleid"});?></textarea><br>
 246
 247 <table><tr>
 248
 249 <?php
 250 // here we fill in the header above with patient name etc ? ??? - move above
 251
 252 ?>
 253 </tr></table>
 254
 255 <br><br>
 256 <a href="javascript:document.my_form.submit();" class="link_submit">[<?php xl('Save','e'); ?>]</a>
 257 <br>
 258 <a href="<?php echo "$rootdir/patient_file/encounter/$returnurl";?>" class="link_submit" onclick="delete_autosave();top.restoreSession()">[<?php xl('Don\'t Save','e'); ?>]</a>
 259 </form>
 260
 261
 262 <div id="timestamp"></div>
 263
 264 <?php
 265 formFooter();
 266 ?>