2 include_once("../../globals.php");
3 include_once("$srcdir/api.inc");
4 include_once("$srcdir/forms.inc");
5 include_once("$srcdir/calendar.inc");
6 include_once("$srcdir/lists.inc");
8 $ftitle = 'Problem list';
9 $old = sqlStatement("select form_id, formdir from forms where (form_name='${ftitle}') and (pid=$pid) order by date desc limit 1");
11 $dt = sqlFetchArray($old);
12 $fid = $dt{'form_id'};
13 if ($fid && ($fid != 0) && ($fid != '')){
14 $fdir = $dt{'formdir'};
16 $dt = formFetch($frmn, $fid);
17 $newid = formSubmit($frmn, array_slice($dt,7), $id, $userauthorized);
18 addForm($encounter, $ftitle, $newid, $fdir, $pid, $userauthorized);
20 formJump("${rootdir}/patient_file/encounter/view_form.php?formname=${fdir}&id=${newid}");
25 <!DOCTYPE HTML
PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
26 "http://www.w3.org/TR/html4/loose.dtd">
30 <?php
html_header_show();?
>
31 <link rel
="stylesheet" href
="<?php echo $css_header;?>" type
="text/css">
32 <link rel
="stylesheet" href
="../../acog.css" type
="text/css">
33 <script language
="JavaScript" src
="../../acog.js" type
="text/JavaScript"></script
>
34 <script language
="JavaScript" type
="text/JavaScript">
35 window
.onload
= initialize
;
39 $fres=sqlStatement("select * from patient_data where pid=".$_SESSION["pid"]);
41 $patient = sqlFetchArray($fres);
43 $history = getHistoryData($_SESSION["pid"]);
45 <body
class="body_top">
47 <form action
="<?php echo $rootdir;?>/forms/plist/save.php?mode=new" method
="post" enctype
="multipart/form-data" name
="my_form">
48 <?php
include("../../acog_menu.inc"); ?
>
49 <table width
="70%" border
="0" cellspacing
="0" cellpadding
="4">
51 <td width
="120" align
="left" valign
="bottom" class="srvCaption">Patient name
:</td
>
52 <td align
="left" valign
="bottom"><input name
="pname" type
="text" class="fullin" id
="pname" value
="<?php echo $patient{'fname'}.' '.$patient{'mname'}.' '.$patient{'lname'}; ?>"></td
>
55 <td width
="120" align
="left" valign
="bottom" class="srvCaption">Birth date
: </td
>
56 <td align
="left" valign
="bottom"><input name
="pbdate" type
="text" class="fullin" id
="pbdate" value
="<?php echo $patient{'DOB'}; ?>"></td
>
59 <td width
="120" align
="left" valign
="bottom" class="srvCaption">ID No
:</td
>
60 <td align
="left" valign
="bottom"><input name
="pl_pid" type
="text" class="fullin" id
="pl_pid" value
="<?php echo $patient{'id'}; ?>" readonly
="true"></td
>
63 <td width
="120" align
="left" valign
="bottom" class="srvCaption">Date
</td
>
64 <td align
="left" valign
="bottom"><input name
="pl_date" type
="text" class="fullin" id
="pl_date" value
="<?php echo date('Y-m-d'); ?>"></td
>
67 <div
class="srvChapter">Problem
list <a href
="#" onMouseOver
="toolTip('The Problem List captures problems, allergies, family history, and current medication use.')" onMouseOut
="toolTip();"><img src
="../../pic/mark_q.png" width
="13" height
="13" border
="0"></a
></div
>
68 <div style
="border: solid 2px black; background-color:#FFFFFF;">
69 <table width
="100%" border
="0" cellspacing
="0" cellpadding
="2">
71 <td width
="50%" class="ficaption3" id
="bordR">High risk
:</td
>
72 <td width
="50%" class="ficaption3">Family history
:</td
>
75 <td
class="fibody2" id
="bordR"><textarea name
="pl_high_risk" rows
="6" wrap
="VIRTUAL" class="fullin2" id
="pl_high_risk"><?php
echo $obj{'pl_high_risk'} ?
></textarea
></td
>
76 <td
class="fibody2"><textarea name
="pl_family_history" rows
="6" wrap
="VIRTUAL" class="fullin2" id
="pl_family_history"><?php
77 // ($history['history_mother'] != '' ) ? $tmp[] = "Mother: " . $history['history_mother'] : '';
78 // ($history['history_father'] != '' ) ? $tmp[] = "Father: " . $history['history_father'] : '';
79 // ($history['history_siblings'] != '' ) ? $tmp[] = "Siblings: " . $history['history_siblings'] : '';
80 // ($history['history_spouse'] != '' ) ? $tmp[] = "Spouse: " . $history['history_spouse'] : '';
81 // ($history['history_offspring'] != '') ? $tmp[] = "Offspring: " . $history['history_offspring'] : '';
82 // echo join(', ', $tmp);
84 if ($history['history_mother' ] != '') $tmp[] = "Mother: " . $history['history_mother' ];
85 if ($history['history_father' ] != '') $tmp[] = "Father: " . $history['history_father' ];
86 if ($history['history_siblings' ] != '') $tmp[] = "Siblings: " . $history['history_siblings' ];
87 if ($history['history_spouse' ] != '') $tmp[] = "Spouse: " . $history['history_spouse' ];
88 if ($history['history_offspring'] != '') $tmp[] = "Offspring: " . $history['history_offspring'];
89 if (count($tmp)) echo join(', ', $tmp);
93 <td
class="ficaption3" id
="bordR">Drug
/Latex
/Transfusion
/Allergic reactions
: </td
>
94 <td
class="ficaption3">Current medications
:</td
>
97 <td
class="fibody3" id
="bordR"><textarea name
="pl_reactions" rows
="6" wrap
="VIRTUAL" class="fullin2" id
="pl_reactions"><?php
98 $allergies = ''; $checked = 'checked';
99 if ($result = getListByType($pid, "allergy", "id,title,comments,activity,date", 1, "all", 0)){
100 foreach ($result as $iter) {
101 $al_tmp[] = $iter{"title"}.' ('.$iter{"comments"}.') ';
104 $allergies = join(',', $al_tmp);
108 <td
class="fibody3"><textarea name
="pl_medications" rows
="6" wrap
="VIRTUAL" class="fullin2" id
="pl_medications"><?php
109 if ($result = getListByType($pid, "medication", "id,title,comments,activity,date", 1, "all", 0)){
110 foreach ($result as $iter) {
111 $tmp_med[] = $iter{"title"}.' ('.$iter{"comments"}.') ';
113 echo join(', ', $tmp_med);
120 <div style
="border: solid 2px black; background-color:#FFFFFF;">
121 <table width
="100%" border
="0" cellspacing
="0" cellpadding
="2">
123 <td width
="20" align
="left" valign
="bottom" class="ficaption2" id
="bordR">No
</td
>
124 <td width
="120" align
="center" valign
="bottom" class="ficaption2" id
="bordR">Entry date
</td
>
125 <td align
="center" valign
="bottom" class="ficaption2" id
="bordR">Problem
/Resolution
</td
>
126 <td width
="120" align
="center" valign
="bottom" class="ficaption2" id
="bordR">Onset age
and date
</td
>
127 <td width
="120" align
="center" valign
="bottom" class="ficaption2">Resolution date
</td
>
133 //print $obj["pl_problem_$pli"];
134 list($pl_ed, $pl_problem, $pl_onset, $pl_rd) = explode('|~', $obj["pl_problem_${pli}"]);
137 <td align="left" valign="bottom" class="fibody2" id="bordR">${pli}.</td>
138 <td align="left" valign="bottom" class="fibody2" id="bordR"><input name="pl_ed_${pli}" type="text" class="fullin2" value="${pl_ed}"></td>
139 <td align="left" valign="bottom" class="fibody2" id="bordR"><input name="pl_problem_${pli}" type="text" class="fullin2" value="${pl_problem}"></td>
140 <td align="left" valign="bottom" class="fibody2" id="bordR"><input name="pl_onset_${pli}" type="text" class="fullin2" value="${pl_onset}"></td>
141 <td align="left" valign="bottom" class="fibody2"><input name="pl_rd_${pli}" type="text" class="fullin2" value="${pl_rd}"></td>
149 <table width
="100%" border
="0">
151 <td align
="left" width
="100"> <a href
="javascript:top.restoreSession();document.my_form.submit();" class="link_submit">[Save Data
]</a
> </td
>
152 <td align
="right"> <a href
="<?php echo $GLOBALS['form_exit_url']; ?>" class="link_submit"
153 onclick
="top.restoreSession()">[Don
't Save]</a> </td>