1 <!DOCTYPE HTML
PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
3 "http://www.w3.org/TR/html4/loose.dtd">
7 include_once("../../globals.php");
9 include_once("$srcdir/api.inc");
18 <?
html_header_show();?
>
20 <?
include("../../acog_printable_v.css"); ?
>
28 $fres = sqlStatement("select * from form_plist where id=$id");
30 $repdata = sqlFetchArray($fres);
32 $fres=sqlStatement("select * from patient_data where pid=".$_SESSION["pid"]);
36 $patient = sqlFetchArray($fres);
42 <body
<?
echo $top_bg_line;?
>>
44 <table width
="70%" border
="0" cellspacing
="0" cellpadding
="4">
48 <td width
="120" align
="left" valign
="bottom" class="srvCaption">Patient name
:</td
>
50 <td align
="left" valign
="bottom" class="fibody5"><?
echo $patient{'fname'}.' '.$patient{'mname'}.' '.$patient{'lname'}; ?
></td
>
56 <td width
="120" align
="left" valign
="bottom" class="srvCaption">Birth date
: </td
>
58 <td align
="left" valign
="bottom" class="fibody5"><?
echo $patient{'DOB'}; ?
></td
>
64 <td width
="120" align
="left" valign
="bottom" class="srvCaption">ID No
:</td
>
66 <td align
="left" valign
="bottom" class="fibody5"><?
echo $patient{'id'}; ?
></td
>
72 <td width
="120" align
="left" valign
="bottom" class="srvCaption">Date
</td
>
74 <td align
="left" valign
="bottom" class="fibody5"><?
echo date('Y-m-d'); ?
></td
>
80 <div
class="srvChapter">Problem
list </div
>
82 <div style
="border: solid 2px black; background-color:#FFFFFF;">
84 <table width
="100%" border
="0" cellspacing
="0" cellpadding
="2">
88 <td width
="50%" class="ficaption3" id
="bordR">High risk
:</td
>
90 <td width
="50%" class="ficaption3">Family history
:</td
>
96 <td
class="fibody5" id
="bordR"><?
echo $repdata{'pl_high_risk'} ?
> 
;</td
>
98 <td
class="fibody5"><?
echo $repdata{'pl_family_history'} ?
> 
;</td
>
104 <td
class="ficaption3" id
="bordR">Drug
/Latex
/Transfusion
/Allergic reactions
: </td
>
106 <td
class="ficaption3">Current medications
:</td
>
112 <td
class="fibody5" id
="bordR"><?
echo $repdata{'pl_reactions'} ?
> 
;</td
>
114 <td
class="fibody5"><?
echo $repdata{'pl_medications'} ?
> 
;</td
>
124 <div style
="border: solid 2px black; background-color:#FFFFFF;">
126 <table width
="100%" border
="0" cellspacing
="0" cellpadding
="2">
130 <td width
="20" align
="left" valign
="bottom" class="ficaption2" id
="bordR">No
</td
>
132 <td width
="120" align
="center" valign
="bottom" class="ficaption2" id
="bordR">Entry date
</td
>
134 <td align
="center" valign
="bottom" class="ficaption2" id
="bordR">Problem
/Resolution
</td
>
136 <td width
="120" align
="center" valign
="bottom" class="ficaption2" id
="bordR">Onset age
and date
</td
>
138 <td width
="120" align
="center" valign
="bottom" class="ficaption2">Resolution date
</td
>
150 list($pl_ed, $pl_problem, $pl_onset, $pl_rd) = explode('|~', $repdata["pl_problem_${pli}"]);
156 <td align="left" valign="bottom" class="fibody5" id="bordR">${pli}.</td>
158 <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_ed} </td>
160 <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_problem} </td>
162 <td align="left" valign="bottom" class="fibody5" id="bordR">${pl_onset} </td>
164 <td align="left" valign="bottom" class="fibody5">${pl_rd} </td>