2 include_once("../../globals.php");
4 include_once("$srcdir/forms.inc");
5 include_once("$srcdir/billing.inc");
6 include_once("$srcdir/pnotes.inc");
7 include_once("$srcdir/patient.inc");
8 include_once("$srcdir/report.inc");
10 if (!isset($_GET["viewnum"])) {
13 $N = $_GET["viewnum"];
22 <link rel
=stylesheet href
="<?php echo $css_header;?>" type
="text/css">
26 <body
<?php
echo $top_bg_line;?
> topmargin
=0 rightmargin
=0 leftmargin
=2 bottommargin
=0 marginwidth
=2 marginheight
=0>
28 <a href
="patient_report.php"><font
class="title"><?php
xl('Patient Record Report','e'); ?
></font
><font
class=back
><?php
echo $tback;?
></font
></a
>
30 <a href
="full_report.php?viewnum=6" class=link_submit
>[<?php
xl('Normal View','e'); ?
>]</a
><a href
="full_report.php?viewnum=1" class=link_submit
>[<?php
xl('Expanded View','e'); ?
>]</a
><br
>
37 <font
class=bold
><?php
xl('Patient Data','e'); ?
>:</font
><br
>
39 printRecData($patient_data_array, getRecPatientData ($pid), $N);
42 <font
class=bold
><?php
xl('History Data','e'); ?
>:</font
><br
>
44 printRecData($history_data_array, getRecHistoryData ($pid), $N);
48 <font
class=bold
><?php
xl('Employer Data','e'); ?
>:</font
><br
>
50 printRecData($employer_data_array, getRecEmployerData ($pid), $N);
54 <font
class=bold
><?php
xl('Primary Insurance Data','e'); ?
>:</font
><br
>
56 printRecData($insurance_data_array, getRecInsuranceData ($pid,"primary"), $N);
60 <font
class=bold
><?php
xl('Secondary Insurance Data','e'); ?
>:</font
><br
>
62 printRecData($insurance_data_array, getRecInsuranceData ($pid,"secondary"), $N);
66 <font
class=bold
><?php
xl('Tertiary Insurance Data','e'); ?
>:</font
><br
>
68 printRecData($insurance_data_array, getRecInsuranceData ($pid,"tertiary"), $N);
72 <font
class=bold
><?php
xl('Allergies','e'); ?
>:</font
><br
>
74 printListData($pid, "allergy", "1")
77 <font
class=bold
><?php
xl('Medications','e'); ?
>:</font
><br
>
79 printListData($pid, "medication", "1")
82 <font
class=bold
><?php
xl('Medical Problems','e'); ?
>:</font
><br
>
84 printListData($pid, "medical_problem", "1")
87 <font
class=bold
><?php
xl('Immunizations','e'); ?
>:</font
><br
>
89 $sql = "select if(i1.administered_date,concat(i1.administered_date,' - ',i2.name) ,substring(i1.note,1,20) ) as immunization_data from immunizations i1 left join immunization i2 on i1.immunization_id = i2.id where i1.patient_id = $pid order by administered_date desc";
91 $result = sqlStatement($sql);
93 while ($row=sqlFetchArray($result)){
94 echo "<span class=text> " . $row{'immunization_data'} . "</span><br>\n";
98 <font
class=bold
><?php
xl('Patient Comunication Sent','e'); ?
>:</font
><br
>
100 $sql="SELECT concat( 'Messsage Type: ', batchcom.msg_type, ', Message Subject: ', batchcom.msg_subject, ', Sent on:', batchcom.msg_date_sent ) AS batchcom_data, batchcom.msg_text, concat( users.fname, users.lname ) AS user_name FROM `batchcom` JOIN `users` ON users.id = batchcom.sent_by WHERE batchcom.patient_id='$pid'";
102 $result = sqlStatement($sql);
103 while ($row=sqlFetchArray($result)) {
104 echo "<tr><td><span class=text>".$row{'batchcom_data'}.", By: ".$row{'user_name'}."</td></tr><tr><td>Text:<br> ".$row{'msg_txt'}."</span></td></tr>\n";
108 <font
class=bold
><?php
xl('Patient Notes','e'); ?
>:</font
><br
>
110 printPatientNotes($pid);
114 <font
class=bold
><?php
xl('Billing','e'); ?
>:</font
><br
>
116 printPatientBilling($pid);
120 <font
class=bold
><?php
xl('Transactions','e'); ?
>:</font
><br
>
122 printPatientTransactions($pid);
127 <font
class=bold
><?php
xl('Forms','e'); ?
>:</font
><br
>
129 printPatientForms($pid, $N);