1 <?php
function plist_report( $pid, $encounter, $cols, $id) { ?
>
4 include_once("../../globals.php");
6 include_once("$srcdir/api.inc");
7 $fres = sqlStatement("select * from form_plist where id=$id");
8 $repdata = sqlFetchArray($fres);
9 $fres=sqlStatement("select * from patient_data where pid=".$_SESSION["pid"]);
11 $patient = sqlFetchArray($fres);
14 <table width
="70%" border
="0" cellspacing
="0" cellpadding
="4">
16 <td width
="120" align
="left" valign
="bottom" class="srvCaption">Patient name
:</td
>
17 <td align
="left" valign
="bottom" class="fibody5"><?php
echo $patient{'fname'}.' '.$patient{'mname'}.' '.$patient{'lname'}; ?
></td
>
20 <td width
="120" align
="left" valign
="bottom" class="srvCaption">Birth date
: </td
>
21 <td align
="left" valign
="bottom" class="fibody5"><?php
echo $patient{'DOB'}; ?
></td
>
24 <td width
="120" align
="left" valign
="bottom" class="srvCaption">ID No
:</td
>
25 <td align
="left" valign
="bottom" class="fibody5"><?php
echo $patient{'id'}; ?
></td
>
28 <td width
="120" align
="left" valign
="bottom" class="srvCaption">Date
</td
>
29 <td align
="left" valign
="bottom" class="fibody5"><?php
echo date('Y-m-d'); ?
></td
>
32 <div
class="srvChapter">Problem
list </div
>
33 <div style
="border: solid 2px black; background-color:#FFFFFF;">
34 <table width
="100%" border
="0" cellspacing
="0" cellpadding
="2">
36 <td width
="50%" class="ficaption3" id
="bordR">High risk
:</td
>
37 <td width
="50%" class="ficaption3">Family history
:</td
>
40 <td
class="fibody5" id
="bordR"><?php
echo $repdata{'pl_high_risk'} ?
> 
;</td
>
41 <td
class="fibody5"><?php
echo $repdata{'pl_family_history'} ?
> 
;</td
>
44 <td
class="ficaption3" id
="bordR">Drug
/Latex
/Transfusion
/Allergic reactions
: </td
>
45 <td
class="ficaption3">Current medications
:</td
>
48 <td
class="fibody5" id
="bordR"><?php
echo $repdata{'pl_reactions'} ?
> 
;</td
>
49 <td
class="fibody5"><?php
echo $repdata{'pl_medications'} ?
> 
;</td
>
54 <div style
="background-color:#FFFFFF;">
55 <table width
="100%" border
="0" cellspacing
="0" cellpadding
="2" class="fitable">
57 <td width
="20" align
="left" valign
="bottom" class="ficaption2" id
="bordR">No
</td
>
58 <td width
="120" align
="center" valign
="bottom" class="ficaption2" id
="bordR">Entry date
</td
>
59 <td align
="center" valign
="bottom" class="ficaption2" id
="bordR">Problem
/Resolution
</td
>
60 <td width
="120" align
="center" valign
="bottom" class="ficaption2" id
="bordR">Onset age
and date
</td
>
61 <td width
="120" align
="center" valign
="bottom" class="ficaption2">Resolution date
</td
>
68 list($pl_ed, $pl_problem, $pl_onset, $pl_rd) = explode('|~', $repdata["pl_problem_${pli}"]);
71 <td align="left" valign="bottom" class="fibody5" id="bordR">${pli}.</td>
72 <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_ed} </td>
73 <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_problem} </td>
74 <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_onset} </td>
75 <td align="left" valign="bottom" class="fibody5">${pl_rd} </td>