interface/forms/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 if( $result['sex'] == 'Male' )
  78   $strGender = 'patient';
  79 else
  80   $strGender = 'patiente';
  81 // create the inroductie form
  82 if( $obj_bav['introductie'] != '' )
  83   $obj['introductie'] = $obj_bav['introductie'];
  84 else
  85   $obj['introductie'] = "Sinds $m_strEventDate  zien wij uw bovengenoemde $strGender voor diagnostiek en behandeladvies op onze polikliniek psychiatrie. Onze dank voor uw verwijzing.";
  86
  87
  88 // Reden van aanmelding
  89 if( $obj_bav['reden_van_aanmelding'] != '' )
  90   $obj['reden_van_aanmelding'] = $obj_bav['reden_van_aanmelding'];
  91 elseif( $obj_iv['reden_van_aanmelding'] != '' )
  92   $obj['reden_van_aanmelding'] = $obj_iv['reden_van_aanmelding'];
  93 else
  94   $obj['reden_van_aanmelding'] = '';
  95
  96 // Anamnese
  97 if( $obj_bav['anamnese'] != '' )
  98   $obj['anamnese'] = $obj_bav['anamnese'];
  99 elseif( $obj_iv['klachten_probleemgebieden'] != '' )
 100   $obj['anamnese'] = $obj_iv['klachten_probleemgebieden'];
 101 else
 102   $obj['anamnese'] = '';
 103
 104 // Psychiatrisch onderzoek
 105 if( $obj_bav['psychiatrisch_onderzoek'] != '' )
 106   $obj['psychiatrisch_onderzoek'] = $obj_bav['psychiatrisch_onderzoek'];
 107 elseif( $obj_po['psychiatrisch_onderzoek'] != '' )
 108   $obj['psychiatrisch_onderzoek'] = $obj_po['psychiatrisch_onderzoek'];
 109 else
 110   $obj['psychiatrisch_onderzoek'] = '';
 111
 112 // Beschrijvend conclusie
 113 if( $obj_bav['beschrijvend_conclusie'] != '' )
 114   $obj['beschrijvend_conclusie'] = $obj_bav['beschrijvend_conclusie'];
 115 elseif( $obj_po['beschrijvende_conclusie'] != '' )
 116   $obj['beschrijvend_conclusie'] = $obj_po['beschrijvende_conclusie'];
 117 else
 118   $obj['beschrijvend_conclusie'] = '';
 119
 120 // Advies/beleid
 121 if( $obj_bav['advies_beleid'] != '' )
 122   $obj['advies_beleid'] = $obj_bav['advies_beleid'];
 123 elseif( $obj_po['behandelvoorstel'] != '' )
 124   $obj['advies_beleid'] = $obj_po['behandelvoorstel'];
 125 else
 126   $obj['advies_beleid'] = '';
 127
 128
 129 ?>
 130
 131 <html>
 132 <head>
 133     <link rel=stylesheet href="<?echo $css_header;?>" type="text/css">
 134     <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
 135 </head>
 136
 137
 138
 139 <body <?echo $top_bg_line;?> topmargin=0 rightmargin=0 leftmargin=2 bottommargin=0 marginwidth=2 marginheight=0>
 140
 141 <style type="text/css">@import url(../../../library/dynarch_calendar.css);</style>
 142
 143 <style type="text/css">
 144  body       { font-family:sans-serif; font-size:10pt; font-weight:normal }
 145   .dehead    { color:#000000; font-family:sans-serif; font-size:10pt; font-weight:bold;
 146                 padding-left:3px; padding-right:3px; }
 147                  .detail    { color:#000000; font-family:sans-serif; font-size:10pt; font-weight:normal;
 148                                padding-left:3px; padding-right:3px; }
 149 </style>
 150
 151 <style type="text/css">@import url(../../../library/dynarch_calendar.css);</style>
 152 <script type="text/javascript" src="../../../library/dialog.js"></script>
 153 <script type="text/javascript" src="../../../library/textformat.js"></script>
 154 <script type="text/javascript" src="../../../library/dynarch_calendar.js"></script>
 155 <script type="text/javascript" src="../../../library/dynarch_calendar_en.js"></script>
 156 <script type="text/javascript" src="../../../library/dynarch_calendar_setup.js"></script>
 157
 158 <script type="text/javascript" src="../../../library/js/jquery121.js"></script>
 159
 160 <?php
 161
 162 if( $vectAutosaveBAV['id'] )
 163   $brief_aan_verwijzer_id = $vectAutosaveBAV['id'];
 164 else
 165   $brief_aan_verwijzer_id = "0";
 166
 167 ?>
 168 <script type="text/javascript">
 169 $(document).ready(function(){
 170         autosave();
 171                         });
 172
 173 function delete_autosave( )
 174 {
 175   if( confirm('Are you sure you want to completely remove this form?') )
 176   {
 177     $.ajax(
 178             {
 179               type: "POST",
 180               url: "../../forms/brief_aan_verwijzer/delete_autosave.php",
 181               data: "id=" + <?php echo $brief_aan_verwijzer_id ?>
 182                         ,
 183                                 cache: false,
 184                                 success: function( message )
 185                 {
 186                      $("#timestamp").empty().append(message);
 187                 }
 188             });
 189     return true;
 190
 191   } else
 192   {
 193     return false;
 194   }
 195
 196 }
 197
 198 function autosave( )
 199 {
 200   var t = setTimeout("autosave()", 20000);
 201
 202   var a_introductie = $("#introductie").val();
 203   var a_reden_van_aanmelding = $("#reden_van_aanmelding").val();
 204   var a_anamnese = $("#anamnese").val();
 205   var a_psychiatrisch_onderzoek = $("#psychiatrisch_onderzoek").val();
 206   var a_beschrijvend_conclusie = $("#beschrijvend_conclusie").val();
 207   var a_advies_beleid = $("#advies_beleid").val();
 208
 209   if( a_introductie.length > 0 || a_reden_van_aanmelding.length > 0 )
 210   {
 211     $.ajax(
 212             {
 213               type: "POST",
 214               url: "../../forms/brief_aan_verwijzer/autosave.php",
 215               data: "id=" + <?php echo $brief_aan_verwijzer_id ?> +
 216                         "&introductie=" + $("#introductie").val() +
 217                         "&reden_van_aanmelding=" + a_reden_van_aanmelding +
 218                         "&anamnese=" + a_anamnese +
 219                         "&psychiatrisch_onderzoek=" + a_psychiatrisch_onderzoek +
 220                         "&beschrijvend_conclusie=" + a_beschrijvend_conclusie +
 221                         "&advies_beleid=" + a_advies_beleid
 222                         ,
 223                                 cache: false,
 224                                 success: function( message )
 225                 {
 226                                         $("#timestamp").empty().append(message);
 227                 }
 228             });
 229   }
 230
 231 }
 232
 233 </script>
 234
 235 <div id="overDiv" style="position:absolute; visibility:hidden; z-index:1000;"></div>
 236 <form method=post action="<?echo $rootdir;?>/forms/brief_aan_verwijzer/save.php?mode=new&saveid=<?php echo $brief_aan_verwijzer_id; ?>" name="my_form">
 237 <span class="title">BRIEF AAN VERWIJZER</span><br><br>
 238
 239 <br><span class=text>Introductie</span><br>
 240 <textarea cols=80 rows=3 wrap=virtual name="introductie" id="introductie"><?php echo stripslashes($obj{"introductie"});?></textarea><br>
 241
 242 <br><span class=text>Reden van aanmelding</span><br>
 243 <textarea cols=80 rows=5 wrap=virtual name="reden_van_aanmelding" id="reden_van_aanmelding"><?php echo stripslashes($obj{"reden_van_aanmelding"});?></textarea><br>
 244 <br><span class=text>Anamnese:</span><br>
 245 <textarea cols=80 rows=5 wrap=virtual name="anamnese" id="anamnese"><?php echo stripslashes($obj{"anamnese"});?></textarea><br>
 246 <br><span class=text>Psychiatrisch onderzoek:</span><br>
 247 <textarea cols=80 rows=5 wrap=virtual name="psychiatrisch_onderzoek" id="psychiatrisch_onderzoek"><?php echo stripslashes($obj{"psychiatrisch_onderzoek"});?></textarea><br>
 248 <br><span class=text>Beschrijvend conclusie:</span><br>
 249 <textarea cols=80 rows=5 wrap=virtual name="beschrijvend_conclusie" id="beschrijvend_conclusie"><?php echo stripslashes($obj{"beschrijvend_conclusie"});?></textarea><br>
 250 <br><span class=text>Advies/beleid</span><br>
 251 <textarea cols=80 rows=5 wrap=virtual name="advies_beleid" id="advies_beleid"><?php echo stripslashes($obj{"advies_beleid"});?></textarea><br>
 252
 253 <table><tr>
 254
 255 <?php
 256 // here we fill in the header above with patient name etc ? ??? - move above
 257
 258 ?>
 259 </tr></table>
 260
 261 <br><br><span style="margin: 5px; border: 1px solid green; font-size: 0.8em; padding: 3px;">add note here ???</span>
 262
 263 <br><br>
 264 <a href="javascript:document.my_form.submit();" class="link_submit">[<?php xl('Save','e'); ?>]</a>
 265 <br>
 266 <a href="<?echo "$rootdir/patient_file/encounter/$returnurl";?>" class="link_submit" onclick="delete_autosave();top.restoreSession()">[<?php xl('Don\'t Save','e'); ?>]</a>
 267 </form>
 268
 269
 270 <div id="timestamp"></div>
 271
 272 <?php
 273 formFooter();
 274 ?>