}
}
}
$rhtml .= "<td><span class='text'>" . ($iter['code_type'] == 'COPAY' ? text(oeFormatMoney($iter['code'])) : text($iter['code']));
if ($iter['modifier']) {
$rhtml .= ":" . text($iter['modifier']);
}
$rhtml .= "</span><span style='font-size:8pt;'>{$justify}</span></td>\n";
$rhtml .= '<td align="right"><span style="font-size:8pt;"> ';
if ($iter['id'] && $iter['fee'] > 0) {
$rhtml .= text(oeFormatMoney($iter['fee']));
}
$rhtml .= "</span></td>\n";
$rhtml .= '<td><span style="font-size:8pt;"> ';
if ($iter['id']) {
$rhtml .= getProviderName(empty($iter['provider_id']) ? text($iter['enc_provider_id']) : text($iter['provider_id']));
}
$rhtml .= "</span></td>\n";
$rhtml .= '<td><span style="font-size:8pt;"> ';
if ($GLOBALS['display_units_in_billing'] != 0) {
if ($iter['id']) {
$rhtml .= xlt("Units") . ":" . text($iter["units"]);
}
}
$rhtml .= "</span></td>\n";
$rhtml .= '<td width=100> <span style="font-size:8pt;">';
if ($iter['id']) {
$rhtml .= text(oeFormatSDFT(strtotime($iter["date"])));
}
$rhtml .= "</span></td>\n";
# This error message is generated if the authorized check box is not checked
margin-top:10px;
}
</style>
<?php
$hide = 1;
require_once "{$incdir}/patient_file/encounter/new_form.php";
?>
<div id="encounter_forms">
<?php
$dateres = getEncounterDateByEncounter($encounter);
$encounter_date = date("Y-m-d", strtotime($dateres["date"]));
$providerIDres = getProviderIdOfEncounter($encounter);
$providerNameRes = getProviderName($providerIDres);
?>
<div class='encounter-summary-container'>
<div class='encounter-summary-column'>
<div>
<span class="title"><?php
echo oeFormatShortDate($encounter_date) . " " . xl("Encounter");
?>
</span>
<?php
$auth_notes_a = acl_check('encounters', 'notes_a');
$auth_notes = acl_check('encounters', 'notes');
$auth_relaxed = acl_check('encounters', 'relaxed');
if (is_numeric($pid)) {
// Check for no access to the patient's squad.
/**
* This function makes and stores a document that we want to deliver.
*/
function make_document($task)
{
global $providerNAME;
global $encounter;
/**
* We want to store the current PDF version of this task.
*/
$query = "SELECT * FROM users WHERE id=?";
$to_data = sqlQuery($query, array($task['TO_ID']));
$from_data = sqlQuery($query, array($task['FROM_ID']));
$sql = "SELECT * FROM facility ORDER BY billing_location DESC LIMIT 1";
$facility_data = sqlQuery($sql);
$query = "SELECT * FROM patient_data where pid=?";
$patientData = sqlQuery($query, array($task['PATIENT_ID']));
$from_fax = preg_replace("/[^0-9]/", "", $facility_data['fax']);
$from_name = $from_data['fname'] . " " . $from_data['lname'];
if ($from_data['suffix']) {
$from_name .= ", " . $from_data['suffix'];
}
$from_fac = $from_facility['name'];
$to_fax = preg_replace("/[^0-9]/", "", $to_data['fax']);
$to_name = $to_data['fname'] . " " . $to_data['lname'];
if ($to_data['suffix']) {
$to_name .= ", " . $to_data['suffix'];
}
$pt_name = $patientData['fname'] . ' ' . $patientData['lname'];
$encounter = $task['ENC_ID'];
$query = "select form_encounter.date as encounter_date,form_eye_mag.id as form_id,form_encounter.*, form_eye_mag.* \n from form_eye_mag ,forms,form_encounter \n where \n form_encounter.encounter =? and \n form_encounter.encounter = forms.encounter and \n form_eye_mag.id=forms.form_id and\n forms.deleted != '1' and \n form_eye_mag.pid=? ";
$encounter_data = sqlQuery($query, array($encounter, $task['PATIENT_ID']));
@extract($encounter_data);
$providerID = getProviderIdOfEncounter($encounter);
$providerNAME = getProviderName($providerID);
$dated = new DateTime($encounter_date);
$dated = $dated->format('Y/m/d');
$visit_date = oeFormatShortDate($dated);
//$visit_date = $encounter_date;
$pid = $task['PATIENT_ID'];
$PDF_OUTPUT = '1';
$filepath = $GLOBALS['oer_config']['documents']['repository'] . $task['PATIENT_ID'];
//so far we make A "Report", one per encounter, and "Faxes", as many as we need per encounter.
//So delete any prior report if that is what we are doing. and replace it.
//If it is a fax, can we check to see if the report is already here, and if it is add it, or do we have to
// always remake it? For now, REMAKE IT...
if ($task['DOC_TYPE'] == 'Fax') {
$category_name = "Communication";
//Faxes are stored in the Documents->Communication category. Do we need to translate this?
//$category_name = xl('Communication');
$query = "select id from categories where name =?";
$ID = sqlQuery($query, array($category_name));
$category_id = $ID['id'];
$filename = "Fax_" . $encounter . "_" . $to_data['lname'] . ".pdf";
while (file_exists($filepath . '/' . $filename)) {
$count++;
$filename = "FAX_" . $encounter . "_" . $to_data['lname'] . "_" . $count . ".pdf";
}
} else {
$category_name = "Encounters";
$query = "select id from categories where name =?";
$ID = sqlQuery($query, array($category_name));
$category_id = $ID['id'];
$filename = "Report_" . $encounter . ".pdf";
foreach (glob($filepath . '/' . $filename) as $file) {
unlink($file);
//maybe shorten to just unlink($filepath.'/'.$filename); - well this does test to see if it is there
}
$sql = "DELETE from categories_to_documents where document_id IN (SELECT id from documents where documents.url like ?)";
sqlQuery($sql, array("%" . $filename));
$sql = "DELETE from documents where documents.url like ?";
sqlQuery($sql, array("%" . $filename));
}
$pdf = new HTML2PDF($GLOBALS['pdf_layout'], $GLOBALS['pdf_size'], $GLOBALS['pdf_language'], true, 'UTF-8', array($GLOBALS['pdf_left_margin'], $GLOBALS['pdf_top_margin'], $GLOBALS['pdf_right_margin'], $GLOBALS['pdf_bottom_margin']), $_SESSION['language_direction'] == 'rtl' ? true : false);
ob_start();
?>
<html>
<head>
<TITLE><?php
echo xlt('Taskman: Documents in openEMR');
?>
</TITLE>
<style>
.wrapper {
margin:20px;
}
.col1 {
font-weight:bold;
width:100px;
padding:10px;
text-align:right;
}
.col2 {
width:375px;
padding:10px;
}
</style>
<link rel="stylesheet" href="<?php
echo $webserver_root;
?>
/interface/themes/style_pdf.css" type="text/css">
</head>
<body>
<?php
if ($task['DOC_TYPE'] == 'Fax') {
?>
<div class='wrapper'>
<?php
echo report_header($task['PATIENT_ID'], 'PDF');
?>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<hr />
<table>
<tr>
<td class='col1'><?php
echo xlt('From');
?>
:</td>
<td class='col2'>
<?php
echo text($from_name);
?>
<br />
</td>
</tr>
<tr>
<td class='col1'><?php
echo xlt('Address');
?>
:</td>
<td class='col2'>
<?php
if ($from_data['name']) {
echo text($from_data['name']) . "<br />";
}
?>
<?php
echo text($from_data['street']);
?>
<br />
<?php
echo text($from_data['city']);
?>
, <?php
echo text($from_data['state']) . " " . text($from_data['zip']);
?>
<br />
</td>
</tr>
<tr>
<td class='col1'>
<?php
echo xlt('Phone');
?>
:
</td>
<td class='col2'>
<?php
echo text($from_data['phonew1']);
?>
</td>
</tr>
<tr>
<td class='col1'>
<?php
echo xlt('Fax');
?>
:
</td>
<td class='col2'><?php
echo text($from_data['fax']);
?>
<br />
</td>
</tr>
<tr>
<td class='col1'><?php
echo xlt('To');
?>
:</td>
<td class='col2'><?php
echo text($to_name);
?>
</td>
</tr>
<tr>
<td class='col1'><?php
echo xlt('Address');
?>
:</td>
<td class='col2'>
<?php
echo text($to_data['street']) . "<br />\n\t\t\t\t \t\t\t" . text($to_data['city']) . ", " . text($to_data['state']) . " " . text($to_data['zip']);
?>
<br />
</td>
</tr>
<tr>
<td class='col1'>
<?php
echo xlt('Phone');
?>
:
</td>
<td class='col2'>
<?php
echo text($to_data['phonew1']);
?>
</td>
</tr>
<tr>
<td class='col1'>
<?php
echo xlt('Fax');
?>
:
</td>
<td class='col2'>
<?php
echo text($to_data['fax']);
?>
</td>
</tr>
<tr><td colspan="2"><br /><hr /></td></tr>
<tr>
<td class='col1'>
<?php
echo xlt('Comments');
?>
:
</td>
<td class='col2'><?php
echo xlt('Report of visit');
?>
: <?php
echo text($pt_name);
?>
on <?php
echo $visit_date;
?>
</td>
</tr>
</table>
</div>
<?php
echo '<page></page><div style="page-break-after:always; clear:both"></div>';
}
// If the doc_id does exit, why remake it?
// We could just add another attachment, stopping here at the coversheet, and adding the doc_name that we sent...
// No. We actually need a physical copy of what we sent, since the report itself can be overwritten. Keep it legal.
// Unless the Report.pdf can be merged with the cover sheet. Until then, just redo it all.
echo narrative($pid, $encounter, $task['DOC_TYPE'], $form_id);
?>
</body>
</html>
<?php
global $web_root, $webserver_root;
$content = ob_get_clean();
// Fix a nasty html2pdf bug - it ignores document root!
$i = 0;
$wrlen = strlen($web_root);
$wsrlen = strlen($webserver_root);
while (true) {
$i = stripos($content, " src='/", $i + 1);
if ($i === false) {
break;
}
if (substr($content, $i + 6, $wrlen) === $web_root && substr($content, $i + 6, $wsrlen) !== $webserver_root) {
$content = substr($content, 0, $i + 6) . $webserver_root . substr($content, $i + 6 + $wrlen);
}
}
$pdf->writeHTML($content, false);
$temp_filename = '/tmp/' . $filename;
$content_pdf = $pdf->Output($temp_filename, 'F');
$type = "application/pdf";
$size = filesize($temp_filename);
$return = addNewDocument($filename, $type, $temp_filename, 0, $size, $task['FROM_ID'], $task['PATIENT_ID'], $category_id);
$task['DOC_ID'] = $return['doc_id'];
$task['DOC_url'] = $filepath . '/' . $filename;
$sql = "UPDATE documents set encounter_id=? where id=?";
//link it to this encounter
sqlQuery($sql, array($encounter, $task['DOC_ID']));
return $task;
}
$form_id = $res[2];
$formres = getFormNameByFormdirAndFormid($res[1], $form_id);
$dateres = getEncounterDateByEncounter($form_encounter);
$formId = getFormIdByFormdirAndFormid($res[1], $form_id);
if ($res[1] == 'newpatient') {
echo "<div class='text encounter'>\n";
echo "<h1>" . xl($formres["form_name"]) . "</h1>";
} else {
echo "<div class='text encounter_form'>";
echo "<h1>" . xl_form_title($formres["form_name"]) . "</h1>";
}
// show the encounter's date
echo "(" . oeFormatSDFT(strtotime($dateres["date"])) . ") ";
if ($res[1] == 'newpatient') {
// display the provider info
echo ' ' . xl('Provider') . ': ' . text(getProviderName(getProviderIdOfEncounter($form_encounter)));
}
echo "<br>\n";
// call the report function for the form
?>
<div name="search_div" id="search_div_<?php
echo attr($form_id);
?>
_<?php
echo attr($res[1]);
?>
" class="report_search_div class_<?php
echo attr($res[1]);
?>
">
}
}
}
$rhtml .= "<td><span class='text'>" . ($iter['code_type'] == 'COPAY' ? oeFormatMoney($iter['code']) : $iter['code']);
if ($iter['modifier']) {
$rhtml .= ":" . $iter['modifier'];
}
$rhtml .= "</span><span style='font-size:8pt;'>{$justify}</span></td>\n";
$rhtml .= '<td align="right"><span style="font-size:8pt;"> ';
if ($iter['id'] && $iter['fee'] > 0) {
$rhtml .= oeFormatMoney($iter['fee']);
}
$rhtml .= "</span></td>\n";
$rhtml .= '<td><span style="font-size:8pt;"> ';
if ($iter['id']) {
$rhtml .= getProviderName(empty($iter['provider_id']) ? $iter['enc_provider_id'] : $iter['provider_id']);
}
$rhtml .= "</span></td>\n";
$rhtml .= '<td width=100> <span style="font-size:8pt;">';
if ($iter['id']) {
$rhtml .= oeFormatSDFT(strtotime($iter["date"]));
}
$rhtml .= "</span></td>\n";
if ($iter['id'] && $iter['authorized'] != 1) {
$rhtml .= "<td><span class=alert>" . xl("Note: This code was not entered by an authorized user. Only authorized codes may be uploaded to the Open Medical Billing Network for processing. If you wish to upload these codes, please select an authorized user here.") . "</span></td>\n";
} else {
$rhtml .= "<td></td>\n";
}
if ($iter['id'] && $last_encounter_id != $this_encounter_id) {
$tmpbpr = $iter['bill_process'];
if ($tmpbpr == '0' && $iter['billed']) {
*/
if (!$pid) {
$pid = $_SESSION['pid'];
}
$userauthorized = $_SESSION['userauthorized'];
if ($encounter == "") {
$encounter = date("Ymd");
}
$form_id = $_REQUEST['form_id'];
$zone = $_REQUEST['zone'];
$providerID = findProvider($pid, $encounter);
if ($providerID == '0') {
$providerID = $userauthorized;
}
//who is the default provider?
$providerNAME = getProviderName($providerID);
// The form is submitted to be updated or saved in some way.
// Give each instance of a form a uniqueID. If the form has no owner, update DB with this uniqueID.
// If the DB shows a uniqueID ie. an owner, and the save request uniqueID does not = the uniqueID in the DB,
// ask if the new user wishes to take ownership?
// If yes, any other's attempt to save fields/form are denied and the return code says you are not the owner...
if ($_REQUEST['unlock'] == '1') {
// we are releasing the form, by closing the page or clicking on ACTIVE FORM, so unlock it.
// if it's locked and they own it ($REQUEST[LOCKEDBY] == LOCKEDBY), they can unlock it
$query = "SELECT LOCKED,LOCKEDBY,LOCKEDDATE from " . $table_name . " WHERE ID=?";
$lock = sqlQuery($query, array($form_id));
if ($lock['LOCKED'] > '' && $_REQUEST['LOCKEDBY'] == $lock['LOCKEDBY']) {
$query = "update " . $table_name . " set LOCKED='',LOCKEDBY='' where id=?";
sqlQuery($query, array($form_id));
}
exit;
/**
* This prints a header for documents. Keeps the brand uniform...
* @param string $pid patient_id
* @param string $direction, options "web" or anything else. Web provides apache-friendly url links.
* @return outputs directly to screen
*/
function report_header($pid, $direction = 'shell')
{
global $form_name;
global $encounter;
global $visit_date;
/*******************************************************************
$titleres = getPatientData($pid, "fname,lname,providerID");
$sql = "SELECT * FROM facility ORDER BY billing_location DESC LIMIT 1";
*******************************************************************/
//$titleres = getPatientData($pid, "fname,lname,providerID,DATE_FORMAT(DOB,'%m/%d/%Y') as DOB_TS");
$titleres = getPatientData($pid, "fname,lname,providerID,DOB");
if ($_SESSION['pc_facility']) {
$sql = "select * from facility where id=?";
$facility = sqlQuery($sql, array($_SESSION['pc_facility']));
} else {
$sql = "SELECT * FROM facility ORDER BY billing_location DESC LIMIT 1";
$facility = sqlQuery($sql);
}
$DOB = oeFormatShortDate($titleres['DOB']);
/******************************************************************/
ob_start();
// Use logo if it exists as 'practice_logo.gif' in the site dir
// old code used the global custom dir which is no longer a valid
?>
<table style="width:100%;">
<tr>
<td style='width:150px;text-align:top;'>
<?php
if ($direction == "web") {
global $OE_SITE_DIR;
$practice_logo = $GLOBALS['webroot'] . "/sites/default/images/practice_logo.gif";
if (file_exists($OE_SITE_DIR . "/images/practice_logo.gif")) {
echo "<img src='{$practice_logo}' align='left' style='width:150px;margin:0px 10px;'><br />\n";
}
} else {
global $OE_SITE_DIR;
$practice_logo = "{$OE_SITE_DIR}/images/practice_logo.gif";
if (file_exists($practice_logo)) {
echo "<img src='{$practice_logo}' align='left' style='width:100px;margin:0px 10px;'><br />\n";
}
}
?>
</td>
<td style='width:40%;'>
<em style="font-weight:bold;font-size:1.4em;"><?php
echo text($facility['name']);
?>
</em><br />
<?php
echo text($facility['street']);
?>
<br />
<?php
echo text($facility['city']);
?>
, <?php
echo text($facility['state']);
?>
<?php
echo text($facility['postal_code']);
?>
<br />
<?php
echo xlt('Phone') . ': ' . text($facility['phone']);
?>
<br />
<?php
echo xlt('Fax') . ': ' . text($facility['fax']);
?>
<br />
<br clear='all' />
<?php
$visit = getEncounterDateByEncounter($encounter);
$visit_date = $visit['date'];
?>
</td>
<td>
<em style="font-weight:bold;font-size:1.4em;"><?php
echo text($titleres['fname']) . " " . text($titleres['lname']);
?>
</em><br />
<b style="font-weight:bold;"><?php
echo xlt('DOB');
?>
:</b> <?php
echo text($DOB);
?>
<br />
<b style="font-weight:bold;"><?php
echo xlt('Generated on');
?>
:</b> <?php
echo oeFormatShortDate();
?>
<br />
<b><?php
echo xlt('Visit Date');
?>
:</b> <?php
echo oeFormatSDFT(strtotime($visit_date));
?>
<br />
<b><?php
echo xlt('Provider') . ':</b> ' . text(getProviderName(getProviderIdOfEncounter($encounter))) . '<br />';
?>
</td>
</tr>
</table>
<?php
$output = ob_get_contents();
ob_end_clean();
return $output;
}
function create_statement($stmt) {
if (! $stmt['pid']) return ""; // get out if no data
#minimum_amount_to _print
if ($stmt[amount] <= ($GLOBALS['minimum_amount_to_print']) && $GLOBALS['use_statement_print_exclusion']) return "";
// These are your clinics return address, contact etc. Edit them.
// TBD: read this from the facility table
// Facility (service location)
$atres = sqlStatement("select f.name,f.street,f.city,f.state,f.postal_code from facility f " .
" left join users u on f.id=u.facility_id " .
" left join billing b on b.provider_id=u.id and b.pid = '".$stmt['pid']."' " .
" where service_location=1");
$row = sqlFetchArray($atres);
// Facility (service location)
$clinic_name = "{$row['name']}";
$clinic_addr = "{$row['street']}";
$clinic_csz = "{$row['city']}, {$row['state']}, {$row['postal_code']}";
// Billing location
$remit_name = $clinic_name;
$remit_addr = $clinic_addr;
$remit_csz = $clinic_csz;
// Contacts
$atres = sqlStatement("select f.attn,f.phone from facility f " .
" left join users u on f.id=u.facility_id " .
" left join billing b on b.provider_id=u.id and b.pid = '".$stmt['pid']."' " .
" where billing_location=1");
$row = sqlFetchArray($atres);
$billing_contact = "{$row['attn']}";
$billing_phone = "{$row['phone']}";
// dunning message setup
// insurance has paid something
// $stmt['age'] how old is the invoice
// $stmt['dun_count'] number of statements run
// $stmt['level_closed'] <= 3 insurance 4 = patient
if ($GLOBALS['use_dunning_message']) {
if ($stmt['ins_paid'] != 0 || $stmt['level_closed'] == 4) {
// do collection messages
switch ($stmt{'age'}) {
case $stmt{'age'} <= $GLOBALS['first_dun_msg_set']:
$dun_message = $GLOBALS['first_dun_msg_text'];
break;
case $stmt{'age'} <= $GLOBALS['second_dun_msg_set']:
$dun_message = $GLOBALS['second_dun_msg_text'];
break;
case $stmt{'age'} <= $GLOBALS['third_dun_msg_set']:
$dun_message = $GLOBALS['third_dun_msg_text'];
break;
case $stmt{'age'} <= $GLOBALS['fourth_dun_msg_set']:
$dun_message = $GLOBALS['fourth_dun_msg_text'];
break;
case $stmt{'age'} >= $GLOBALS['fifth_dun_msg_set']:
$dun_message = $GLOBALS['fifth_dun_msg_text'];
break;
}
}
}
// Text only labels
$label_addressee = xl('ADDRESSEE');
$label_remitto = xl('REMIT TO');
$label_chartnum = xl('Chart Number');
$label_insinfo = xl('Insurance information on file');
$label_totaldue = xl('Total amount due');
$label_payby = xl('If paying by');
$label_cards = xl('VISA/MC/Discovery/HSA');
$label_cardnum = xl('Card');
$label_expiry = xl('Exp');
$label_sign = xl('Signature');
$label_retpay = xl('Return above part with your payment');
$label_pgbrk = xl('STATEMENT SUMMARY');
$label_visit = xl('Visit Date');
$label_desc = xl('Description');
$label_amt = xl('Amount');
// This is the text for the top part of the page, up to but not
// including the detail lines. Some examples of variable fields are:
// %s = string with no minimum width
// %9s = right-justified string of 9 characters padded with spaces
// %-25s = left-justified string of 25 characters padded with spaces
// Note that "\n" is a line feed (new line) character.
// reformatted to handle i8n by tony
$out = "\n\n";
$providerNAME = getProviderName($stmt['providerID']);
$out .= sprintf("%-30s %s %-s\n",$clinic_name,$stmt['patient'],$stmt['today']);
$out .= sprintf("%-30s %s: %-s\n",$providerNAME,$label_chartnum,$stmt['pid']);
$out .= sprintf("%-30s %s\n",$clinic_addr,$label_insinfo);
$out .= sprintf("%-30s %-s: %-s\n",$clinic_csz,$label_totaldue,$stmt['amount']);
$out .= "\n";
$out .= sprintf(" %-30s %-s\n",$label_addressee,$label_remitto);
$out .= sprintf(" %-30s %s\n",$stmt['to'][0],$remit_name);
$out .= sprintf(" %-30s %s\n",$stmt['to'][1],$remit_addr);
$out .= sprintf(" %-30s %s\n",$stmt['to'][2],$remit_csz);
if($stmt['to'][3]!='')//to avoid double blank lines the if condition is put.
$out .= sprintf(" %-32s\n",$stmt['to'][3]);
$out .= sprintf("_________________________________________________________________\n");
$out .= "\n";
$out .= sprintf("%-32s\n",$label_payby.' '.$label_cards);
$out .= "\n";
$out .= sprintf("%s_____________________ %s______ %s___________________%s\n\n",
$label_cardnum,$label_expiry,$label_sign);
$out .= sprintf("-----------------------------------------------------------------\n");
$out .= sprintf("%-20s %s\n",null,$label_retpay);
$out .= "\n";
$out .= sprintf("_______________________ %s _______________________\n",$label_pgbrk);
$out .= "\n";
$out .= sprintf("%-11s %-46s %s\n",$label_visit,$label_desc,$label_amt);
$out .= "\n";
// This must be set to the number of lines generated above.
//
$count = 25;
$num_ages = 4;
$aging = array();
for ($age_index = 0; $age_index < $num_ages; ++$age_index) {
$aging[$age_index] = 0.00;
}
$todays_time = strtotime(date('Y-m-d'));
// This generates the detail lines. Again, note that the values must
// be specified in the order used.
//
foreach ($stmt['lines'] as $line) {
if ($GLOBALS['use_custom_statement']) {
$description = substr($line['desc'],0,30);
}
else {
$description = $line['desc'];
}
$tmp = substr($description, 0, 14);
if ($tmp == 'Procedure 9920' || $tmp == 'Procedure 9921' || $tmp == 'Procedure 9200' || $tmp == 'Procedure 9201')
$description = str_replace("Procedure",xl('Office Visit').":",$description);
//92002-14 are Eye Office Visit Codes
$dos = $line['dos'];
ksort($line['detail']);
# Compute the aging bucket index and accumulate into that bucket.
#
$age_in_days = (int) (($todays_time - strtotime($dos)) / (60 * 60 * 24));
$age_index = (int) (($age_in_days - 1) / 30);
$age_index = max(0, min($num_ages - 1, $age_index));
$aging[$age_index] += $line['amount'] - $line['paid'];
foreach ($line['detail'] as $dkey => $ddata) {
$ddate = substr($dkey, 0, 10);
if (preg_match('/^(\d\d\d\d)(\d\d)(\d\d)\s*$/', $ddate, $matches)) {
$ddate = $matches[1] . '-' . $matches[2] . '-' . $matches[3];
}
$amount = '';
if ($ddata['pmt']) {
$amount = sprintf("%.2f", 0 - $ddata['pmt']);
$desc = xl('Paid') .' '. oeFormatShortDate($ddate) .': '. $ddata['src'].' '. $ddata['pmt_method'].' '. $ddata['insurance_company'];
} else if ($ddata['rsn']) {
if ($ddata['chg']) {
$amount = sprintf("%.2f", $ddata['chg']);
$desc = xl('Adj') .' '. oeFormatShortDate($ddate) .': ' . $ddata['rsn'].' '.$ddata['pmt_method'].' '. $ddata['insurance_company'];
} else {
$desc = xl('Note') .' '. oeFormatShortDate($ddate) .': '. $ddata['rsn'].' '.$ddata['pmt_method'].' '. $ddata['insurance_company'];
}
} else if ($ddata['chg'] < 0) {
$amount = sprintf("%.2f", $ddata['chg']);
$desc = xl('Patient Payment');
} else {
$amount = sprintf("%.2f", $ddata['chg']);
$desc = $description;
}
$out .= sprintf("%-10s %-45s%8s\n", oeFormatShortDate($dos), $desc, $amount);
$dos = '';
++$count;
}
}
// This generates blank lines until we are at line 42.
//
while ($count++ < 42) $out .= "\n";
# Generate the string of aging text. This will look like:
# Current xxx.xx / 31-60 x.xx / 61-90 x.xx / Over-90 xxx.xx
# ....+....1....+....2....+....3....+....4....+....5....+....6....+
#
$ageline = xl('Current') .' ' . sprintf("%.2f", $aging[0]);
for ($age_index = 1; $age_index < ($num_ages - 1); ++$age_index) {
$ageline .= ' / ' . ($age_index * 30 + 1) . '-' . ($age_index * 30 + 30) .
sprintf(" %.2f", $aging[$age_index]);
}
// Fixed text labels
$label_ptname = xl('Name');
$label_today = xl('Date');
$label_due = xl('Amount Due');
$label_thanks = xl('Thank you for choosing');
$label_call = xl('Please call if any of the above information is incorrect.');
$label_prompt = xl('We appreciate prompt payment of balances due.');
$label_dept = xl('Billing Department');
$label_bill_phone = (!empty($GLOBALS['billing_phone_number']) ? $GLOBALS['billing_phone_number'] : $billing_phone );
$label_appointments = xl('Future Appointments').':';
// This is the bottom portion of the page.
$out .= "\n";
if(strlen($stmt['bill_note']) !=0 && $GLOBALS['statement_bill_note_print']) {
$out .= sprintf("%-46s\n",$stmt['bill_note']);
}
if ($GLOBALS['use_dunning_message']) {
$out .= sprintf("%-46s\n",$dun_message);
}
$out .= "\n";
$out .= sprintf("%-s: %-25s %-s: %-14s %-s: %8s\n",$label_ptname,$stmt['patient'],
$label_today,oeFormatShortDate($stmt['today']),$label_due,$stmt['amount']);
$out .= sprintf("__________________________________________________________________\n");
$out .= "\n";
$out .= sprintf("%-s\n",$label_call);
$out .= sprintf("%-s\n",$label_prompt);
$out .= "\n";
$out .= sprintf("%-s\n",$billing_contact);
$out .= sprintf(" %-s %-25s\n",$label_dept,$label_bill_phone);
if($GLOBALS['statement_message_to_patient']) {
$out .= "\n";
$statement_message = $GLOBALS['statement_msg_text'];
$out .= sprintf("%-40s\n",$statement_message);
}
if($GLOBALS['show_aging_on_custom_statement']) {
# code for ageing
$ageline .= ' / ' . xl('Over') . '-' . ($age_index * 30) .
sprintf(" %.2f", $aging[$age_index]);
$out .= "\n" . $ageline . "\n\n";
}
if($GLOBALS['number_appointments_on_statement']!=0) {
$out .= "\n";
$num_appts = $GLOBALS['number_appointments_on_statement'];
$next_day = mktime(0,0,0,date('m'),date('d')+1,date('Y'));
# add one day to date so it will not get todays appointment
$current_date2 = date('Y-m-d', $next_day);
$events = fetchNextXAppts($current_date2,$stmt['pid'],$num_appts);
$j=0;
$out .= sprintf("%-s\n",$label_appointments);
#loop to add the appointments
for ($x = 1; $x <= $num_appts; $x++) {
$next_appoint_date = oeFormatShortDate($events[$j]['pc_eventDate']);
$next_appoint_time = substr($events[$j]['pc_startTime'],0,5);
if(strlen(umname) != 0 ) {
$next_appoint_provider = $events[$j]['ufname'] . ' ' . $events[$j]['umname'] . ' ' . $events[$j]['ulname'];
}
else
{
$next_appoint_provider = $events[$j]['ufname'] . ' ' . $events[$j]['ulname'];
}
if(strlen($next_appoint_time) != 0) {
$label_plsnote[$j] = xlt('Date') . ': ' . text($next_appoint_date) . ' ' . xlt('Time') . ' ' . text($next_appoint_time) . ' ' . xlt('Provider') . ' ' . text($next_appoint_provider);
$out .= sprintf("%-s\n",$label_plsnote[$j]);
}
$j++;
}
}
$out .= "\014"; // this is a form feed
return $out;
}
function narrative($pid, $encounter, $cols, $form_id, $choice = 'full')
{
global $form_folder;
global $PDF_OUTPUT;
global $OE_SITE_DIR;
global $formres;
global $dateres;
global $printable;
//if $cols == 'Fax', we are here from taskman, making a fax and this a one page short form - leave out PMSFH, prescriptions
//and any clinical area that is blank.
$query = "select form_encounter.date as encounter_date,form_eye_mag.id as form_id,form_encounter.*, form_eye_mag.*\n from form_eye_mag ,forms,form_encounter\n where\n form_encounter.encounter =? and\n form_encounter.encounter = forms.encounter and\n form_eye_mag.id=forms.form_id and\n forms.deleted != '1' and\n form_eye_mag.pid=? ";
$encounter_data = sqlQuery($query, array($encounter, $pid));
@extract($encounter_data);
$providerID = getProviderIdOfEncounter($encounter);
$providerNAME = getProviderName($providerID);
$dated = new DateTime($encounter_date);
$dated = $dated->format('Y/m/d');
$visit_date = oeFormatShortDate($dated);
?>
<link rel="stylesheet" href="<?php
echo attr($css_header);
?>
" type="text/css">
<link rel="stylesheet" href="../../forms/<?php
echo attr($form_folder);
?>
/css/report.css" type="text/css">
<style>
<?php
if ($PDF_OUTPUT) {
?>
.mot {
text-align: center;
width:3mm;
height:3mm;
}
<?php
} else {
?>
.mot {
text-align: center;
width:5mm;
height:5mm;
}
<?php
}
?>
</style>
<div>
<?php
if ($cols == 'Fax' || $cols == 'Report') {
echo report_header($pid, 'PDF');
}
if ($PDF_OUTPUT) {
$titleres = getPatientData($pid, "fname,lname,providerID,DATE_FORMAT(DOB,'%m/%d/%Y') as DOB_TS");
if ($_SESSION['pc_facility']) {
$sql = "select * from facility where id=" . $_SESSION['pc_facility'];
} else {
$sql = "SELECT * FROM facility ORDER BY billing_location DESC LIMIT 1";
}
$facility = sqlQuery($sql);
}
if ($choice !== 'TEXT') {
?>
<?php
}
?>
<table class="report_exam_group">
<tr>
<td style="text-align:left;padding:1px;vertical-align:top;max-width:720px;">
<table style="padding:5px;width:700px;">
<tr>
<td colspan="1" style="text-align: justify;text-justify: inter-word;width:100%;">
<b><?php
echo xlt('Chief Complaint');
?>
:</b> <?php
echo text($CC1);
?>
<br /><br />
<b><?php
echo xlt('HPI');
?>
:</b>
<?php
echo $HPI1;
?>
<br />
<div style="padding-left:20px;">
<?php
if ($TIMING1) {
echo "<i>" . xlt('Timing');
?>
:</i> <?php
echo text($TIMING1) . "<br />";
}
if ($CONTEXT1) {
echo "<i>" . xlt('Context');
?>
:</i> <?php
echo text($CONTEXT1) . "<br />";
}
if ($SEVERITY1) {
echo "<i>" . xlt('Severity');
?>
:</i> <?php
echo text($SEVERITY1) . "<br />";
}
if ($MODIFY1) {
echo "<i>" . xlt('Modifying');
?>
:</i> <?php
echo text($MODIFY1) . "<br />";
}
if ($ASSOCIATED1) {
echo "<i>" . xlt('Associated');
?>
:</i> <?php
echo text($ASSOCIATED1) . "<br />";
}
if ($LOCATION1) {
echo "<i>" . xlt('Location');
?>
:</i> <?php
echo text($LOCATION1) . "<br />";
}
if ($QUALITY1) {
echo "<i>" . xlt('Quality');
?>
:</i> <?php
echo text($QUALITY1) . "<br />";
}
if ($DURATION1) {
echo "<i>" . xlt('Duration');
?>
:</i> <?php
echo text($DURATION1) . "<br />";
}
?>
<?php
if ($CC2) {
echo "\n ";
echo "<b>" . xlt('Chief Complaint 2');
?>
:</b> <?php
echo text($CC2);
?>
<br />
<b><?php
echo xlt('HPI');
?>
:</b>
<?php
echo text($HPI2);
?>
<br />
<div style="padding-left:10px;">
<?php
if ($TIMING2) {
echo "<i>" . xlt('Timing');
?>
:</i> <?php
echo text($TIMING2) . "<br />";
}
if ($CONTEXT2) {
echo "<i>" . xlt('Context');
?>
:</i> <?php
echo text($CONTEXT2) . "<br />";
}
if ($SEVERITY2) {
echo "<i>" . xlt('Severity');
?>
:</i> <?php
echo text($SEVERITY2) . "<br />";
}
if ($MODIFY2) {
echo "<i>" . xlt('Modifying');
?>
:</i> <?php
echo text($MODIFY2) . "<br />";
}
if ($ASSOCIATED2) {
echo "<i>" . xlt('Associated');
?>
:</i> <?php
echo text($ASSOCIATED2) . "<br />";
}
if ($LOCATION2) {
echo "<i>" . xlt('Location');
?>
:</i> <?php
echo text($LOCATION2) . "<br />";
}
if ($QUALITY2) {
echo "<i>" . xlt('Quality');
?>
:</i> <?php
echo text($QUALITY2) . "<br />";
}
if ($DURATION2) {
echo "<i>" . xlt('Duration');
?>
:</i> <?php
echo text($DURATION2) . "<br />";
}
?>
</div>
<?php
}
if ($CC3) {
?>
<?php
echo "<b>" . xlt('Chief Complaint 3');
?>
:</b> <?php
echo text($CC3);
?>
<br />
<?php
echo xlt('HPI');
?>
<?php
echo text($HPI3);
?>
<br />
<div style="padding-left:10px;">
<?php
if ($TIMING3) {
echo "<i>" . xlt('Timing');
?>
:</i> <?php
echo text($TIMING3) . "<br />";
}
if ($CONTEXT3) {
echo "<i>" . xlt('Context');
?>
:</i> <?php
echo text($CONTEXT3) . "<br />";
}
if ($SEVERITY3) {
echo "<i>" . xlt('Severity');
?>
:</i> <?php
echo text($SEVERITY3) . "<br />";
}
if ($MODIFY3) {
echo "<i>" . xlt('Modifying');
?>
:</i> <?php
echo text($MODIFY3) . "<br />";
}
if ($ASSOCIATED3) {
echo "<i>" . xlt('Associated');
?>
:</i> <?php
echo text($ASSOCIATED3) . "<br />";
}
if ($LOCATION3) {
echo "<i>" . xlt('Location');
?>
:</i> <?php
echo text($LOCATION3) . "<br />";
}
if ($QUALITY3) {
echo "<i>" . xlt('Quality');
?>
:</i> <?php
echo text($QUALITY3) . "<br />";
}
if ($DURATION3) {
echo "<i>" . xlt('Duration');
?>
:</i> <?php
echo text($DURATION3) . "<br />";
}
?>
</div>
<?php
}
?>
<?php
if ($CHRONIC1 && $cols != 'Fax') {
?>
<b><?php
echo xlt('Chronic or Inactive Problems');
?>
:</b> <br />
<?php
echo text($CHRONIC1) . "<br />";
if ($CHRONIC2) {
echo " " . $CHRONIC2 . "<br />";
}
if ($CHRONIC3) {
echo " " . $CHRONIC3 . "<br />";
}
}
?>
</div>
</td>
</tr>
</table>
</td>
<td style="width:220px;padding:1px;vertical-align:top;">
<?php
//get patient photo
//no idea if this works for couchDB people
$sql = "SELECT * FROM documents,categories,categories_to_documents WHERE\n documents.id=categories_to_documents.document_id and\n categories.id=categories_to_documents.category_id and\n categories.name='Patient Photograph' and\n documents.foreign_id=?";
$doc = sqlQuery($sql, array($pid));
$document_id = $doc['document_id'];
if (is_numeric($document_id)) {
$d = new Document($document_id);
$fname = basename($d->get_url());
$couch_docid = $d->get_couch_docid();
$couch_revid = $d->get_couch_revid();
$url_file = $d->get_url_filepath();
if ($couch_docid && $couch_revid) {
$url_file = $d->get_couch_url($pid, $encounter);
}
// Collect filename and path
$from_all = explode("/", $url_file);
$from_filename = array_pop($from_all);
$from_pathname_array = array();
for ($i = 0; $i < $d->get_path_depth(); $i++) {
$from_pathname_array[] = array_pop($from_all);
}
$from_pathname_array = array_reverse($from_pathname_array);
$from_pathname = implode("/", $from_pathname_array);
if ($couch_docid && $couch_revid) {
$from_file = $GLOBALS['OE_SITE_DIR'] . '/documents/temp/' . $from_filename;
} else {
$from_file = $GLOBALS["fileroot"] . "/sites/" . $_SESSION['site_id'] . '/documents/' . $from_pathname . '/' . $from_filename;
}
if ($PDF_OUTPUT) {
echo "<img src='" . $from_file . "' style='width:220px;'>";
} else {
$filetoshow = $GLOBALS['webroot'] . "/controller.php?document&retrieve&patient_id={$pid}&document_id=" . $doc['document_id'] . "&as_file=false&blahblah=" . rand();
echo "<img src='" . $filetoshow . "' style='width:220px;'>";
}
}
?>
</td>
</tr>
</table>
<?php
if ($choice !== 'TEXT') {
//exclude all of this from displaying on the summary mouseover by default
?>
<hr style="width:50%;text-align:center;" />
<table style="margin:1 auto;" class="report_exam_group">
<tr>
<td style="width:680px;text-align:center;margin:1 auto;">
<?php
$PMSFH = build_PMSFH($pid);
if ($cols != 'Fax') {
show_PMSFH_report($PMSFH);
}
$count_rx = '0';
$query = "select * from form_eye_mag_wearing where PID=? and FORM_ID=? and ENCOUNTER=? ORDER BY RX_NUMBER";
$wear = sqlStatement($query, array($pid, $form_id, $encounter));
while ($wearing = sqlFetchArray($wear)) {
$count_rx++;
${"display_W_{$count_rx}"} = '';
${"ODSPH_{$count_rx}"} = $wearing['ODSPH'];
${"ODCYL_{$count_rx}"} = $wearing['ODCYL'];
${"ODAXIS_{$count_rx}"} = $wearing['ODAXIS'];
${"OSSPH_{$count_rx}"} = $wearing['OSSPH'];
${"OSCYL_{$count_rx}"} = $wearing['OSCYL'];
${"OSAXIS_{$count_rx}"} = $wearing['OSAXIS'];
${"ODMIDADD_{$count_rx}"} = $wearing['ODMIDADD'];
${"OSMIDADD_{$count_rx}"} = $wearing['OSMIDADD'];
${"ODADD_{$count_rx}"} = $wearing['ODADD'];
${"OSADD_{$count_rx}"} = $wearing['OSADD'];
${"ODVA_{$count_rx}"} = $wearing['ODVA'];
${"OSVA_{$count_rx}"} = $wearing['OSVA'];
${"ODNEARVA_{$count_rx}"} = $wearing['ODNEARVA'];
${"OSNEARVA_{$count_rx}"} = $wearing['OSNEARVA'];
${"ODPRISM_{$count_rx}"} = $wearing['ODPRISM'];
${"OSPRISM_{$count_rx}"} = $wearing['OSPRISM'];
${"COMMENTS_{$count_rx}"} = $wearing['COMMENTS'];
${"W_{$count_rx}"} = '1';
${"RX_TYPE_{$count_rx}"} = $wearing['RX_TYPE'];
}
?>
</td>
</tr>
</table>
<table class="borderShadow" >
<tr style="font-size:10px;">
<!-- Start of the Vision box -->
<td class="report_vitals">
<b class="underline"><?php
echo xlt('Visual Acuities');
?>
</b>
<table id="Additional_VA" cellspacing="2" style="text-align:center;font-size:1.0em;">
<tr style="font-weight:bold;">
<td style="text-align:center;"></td>
<td style="width:50px;text-align:center;text-decoration:underline;"><?php
echo xlt('OD');
?>
</td>
<td style="width:50px;text-align:center;text-decoration:underline;"><?php
echo xlt('OS');
?>
</td>
</tr>
<?php
if ($SCODVA || $SCOSVA) {
?>
<tr>
<td><?php
echo xlt('sc{{without correction}}');
?>
</td>
<td><?php
echo text($SCODVA);
?>
</td>
<td><?php
echo text($SCOSVA);
?>
</td>
</tr>
<?php
}
if ($ODVA_1 || $OSVA_1) {
?>
<tr>
<td><?php
echo xlt('cc{{with correction}}');
?>
</td>
<td><?php
echo text($ODVA_1);
?>
</td>
<td><?php
echo text($OSVA_1);
?>
</td>
</tr>
<?php
}
if ($ARODVA || $AROSVA) {
?>
<tr>
<td><?php
echo xlt('AR{{autorefraction}}');
?>
</td>
<td><?php
echo text($ARODVA);
?>
</td>
<td><?php
echo text($AROSVA);
?>
</td>
</tr>
<?php
}
if ($MRODVA || $MROSVA) {
?>
<tr>
<td><?php
echo xlt('MR{{Manifest Refraction}}');
?>
</td>
<td><?php
echo text($MRODVA);
?>
</td>
<td><?php
echo text($MROSVA);
?>
</td>
</tr>
<?php
}
if ($CRODVA || $CROSVA) {
?>
<tr>
<td><?php
echo xlt('CR{{Cycloplegic Refraction}}');
?>
</td>
<td><?php
echo text($CRODVA);
?>
</td>
<td><?php
echo text($CROSVA);
?>
</td>
</tr>
<?php
}
if ($PHODVA || $PHOSVA) {
?>
<tr>
<td><?php
echo xlt('PH{{Pinhole Vision}}');
?>
</td>
<td><?php
echo text($PHODVA);
?>
</td>
<td><?php
echo text($PHOSVA);
?>
</td>
</tr>
<?php
}
if ($CTLODVA || $CTLOSVA) {
?>
<tr>
<td><?php
echo xlt('CTL{{Contact Lens Vision}}');
?>
</td>
<td><?php
echo text($CTLODVA);
?>
</td>
<td><?php
echo text($CTLOSVA);
?>
</td>
</tr>
<?php
}
if ($SCNEARODVA || $SCNEAROSVA) {
?>
<tr>
<td><?php
echo xlt('scNear{{without correction near}}');
?>
</td>
<td><?php
echo text($SCNEARODVA);
?>
</td>
<td><?php
echo text($SCNEAROSVA);
?>
</td>
</tr>
<?php
}
if ($ODNEARVA_1 || $WNEAROSVA_1) {
?>
<tr>
<td><?php
echo xlt('ccNear{{with correction at near}}');
?>
</td>
<td><?php
echo text($ODNEARVA_1);
?>
</td>
<td><?php
echo text($OSNEARVA_1);
?>
</td>
</tr>
<?php
}
if ($ARNEARODVA || $ARNEAROSVA) {
?>
<tr>
<td><?php
echo xlt('ARNear{{Auto-refraction near acuity}}');
?>
</td>
<td><?php
echo text($ARNEARODVA);
?>
</td>
<td><?php
echo text($ARNEAROSVA);
?>
</td>
</tr>
<?php
}
if ($MRNEARODVA || $MRNEAROSVA) {
?>
<tr>
<td><?php
echo xlt('MRNear{{Manifest Near Acuity}}');
?>
</td>
<td><?php
echo text($MRNEARODVA);
?>
</td>
<td><?php
echo text($MRNEAROSVA);
?>
</td>
</tr>
<?php
}
if ($PAMODVA || $PAMOSVA) {
?>
<tr>
<td><?php
echo xlt('PAM{{Potential Acuity Meter}}');
?>
</td>
<td><?php
echo text($PAMODVA);
?>
</td>
<td><?php
echo text($PAMOSVA);
?>
</td>
</tr>
<?php
}
if ($GLAREODVA || $GLAREOSVA) {
?>
<tr>
<td><?php
echo xlt('Glare{{Acuity under Glare conditions}}');
?>
</td>
<td><?php
echo text($GLAREODVA);
?>
</td>
<td><?php
echo text($GLAREOSVA);
?>
</td>
</tr>
<?php
}
if ($CONTRASTODVA || $CONTRASTOSVA) {
?>
<tr>
<td><?php
echo xlt('Contrast{{Constrast Visual Acuity}}');
?>
</td>
<td><?php
echo text($CONTRASTODVA);
?>
</td>
<td><?php
echo text($CONTRASTOSVA);
?>
</td>
</tr>
<?php
}
?>
</table>
</td>
<!-- START OF THE PRESSURE BOX -->
<td class="report_vitals">
<b class="underline"><?php
echo xlt('Intraocular Pressures');
?>
</b>
<table cellspacing="2" style="margin:2;text-align:center;font-size:1.0em;">
<tr style="font-weight:bold;">
<td style="text-align:center;"></td>
<td style="text-align:center;text-decoration:underline;"><?php
echo xlt('OD');
?>
</td>
<td style="text-align:center;text-decoration:underline;"><?php
echo xlt('OS');
?>
</td>
</tr>
<?php
if ($ODIOPAP || $OSIOPAP) {
echo "<tr><td style='text-align:right;padding-right:10px;'>" . xlt('App{{Applanation abbreviation}}') . ":</td><td style='text-align:center;'>" . text($ODIOPAP) . "</td><td style='width:75px;text-align:center;'>" . text($OSIOPAP) . "</td></tr>";
}
if ($ODIOPTPN || $OSIOPTPN) {
echo "<tr><td style='text-align:right;padding-right:10px;'>" . xlt('Tpn{{Tonopen abbreviation}}') . ":</td><td style='text-align:center;'>" . text($ODIOPTPN) . "</td><td style='width:75px;text-align:center;'>" . text($OSIOPTPN) . "</td></tr>";
}
if ($ODIOPFTN || $OSIOPFTN) {
echo "<tr><td style='text-align:right;padding-right:10px;'>" . xlt('FTN{{Finger Tension abbreviation}}') . ":</td><td style='text-align:center;'>" . text($ODIOPFTN) . "</td><td style='width:75px;text-align:center;'>" . text($OSIOPFTN) . "</td></tr>";
}
?>
<tr>
<td colspan="3" style="text-align:center;">
@ <?php
echo text($IOPTIME);
?>
</td>
</tr>
</table>
</td>
<!-- START OF THE FIELDS BOX -->
<?php
// if the VF zone is checked, display it
// if ODVF1 = 1 (true boolean) the value="0" checked="true"
for ($z = 1; $z < 5; $z++) {
$ODzone = "ODVF" . $z;
if (${$ODzone} == '1') {
$ODVF[$z] = '<i class="fa fa-square fa-5">X</i>';
if ($PDF_OUTPUT) {
$ODVF[$z] = 'X';
}
$bad++;
} else {
$ODVF[$z] = '<i class="fa fa-square-o fa-5"></i>';
if ($PDF_OUTPUT) {
$ODVF[$z] = 'O';
}
}
$OSzone = "OSVF" . $z;
if (${$OSzone} == "1") {
$OSVF[$z] = '<i class="fa fa-square fa-5">X</i>';
if ($PDF_OUTPUT) {
$OSVF[$z] = 'X';
}
$bad++;
} else {
$OSVF[$z] = '<i class="fa fa-square-o fa-5"></i>';
if ($PDF_OUTPUT) {
$OSVF[$z] = 'O';
}
}
}
?>
<?php
if ($bad < '1') {
?>
<td class="report_vitals">
<b class="underline"><?php
echo xlt('Fields{{visual fields}}');
?>
</b>
<?php
echo "<br /><br /> Full to CF OU <br /><br /><br />";
} else {
?>
<td class="report_vitals">
<b class="underline"><?php
echo xlt('Fields{{visual fields}}');
?>
</b>
<table style="font-size:1.0em;text-align:center;">
<tr style="font-weight:bold;">
<td style="width:0.5in;text-align:center;text-decoration:underline;" colspan="2"><b><?php
echo xlt('OD');
?>
</b>
<br />
<br />
</td>
<td style="width:0.1in;"> </td>
<td style="width:0.5in;text-align:center;text-decoration:underline;" colspan="2"><b><?php
echo xlt('OS');
?>
</b>
<br />
<br />
</td>
</tr>
<tr>
<td style="border-right:1pt solid black;border-bottom:1pt solid black;text-align:center;">
<?php
echo $ODVF['1'];
?>
</td>
<td style="border-left:1pt solid black;border-bottom:1pt solid black;text-align:center;">
<?php
echo $ODVF['2'];
?>
</td>
<td></td>
<td style="border-right:1pt solid black;border-bottom:1pt solid black;text-align:center;">
<?php
echo $OSVF['1'];
?>
</td>
<td style="border-left:1pt solid black;border-bottom:1pt solid black;text-align:center;">
<?php
echo $OSVF['2'];
?>
</td>
</tr>
<tr>
<td style="border-right:1pt solid black;border-top:1pt solid black;text-align:center;">
<?php
echo $ODVF['3'];
?>
</td>
<td style="border-left:1pt solid black;border-top:1pt solid black;text-align:center;">
<?php
echo $ODVF['4'];
?>
</td>
<td></td>
<td style="border-right:1pt solid black;border-top:1pt solid black;text-align:center;">
<?php
echo $OSVF['3'];
?>
</td>
<td style="border-left:1pt solid black;border-top:1pt solid black;text-align:center;">
<?php
echo $OSVF['4'];
?>
</td>
</tr>
</table>
<?php
}
?>
</td>
<!-- START OF THE MOTILITY BOX -->
<td class="report_vitals">
<b class="underline"><?php
echo xlt('Motility');
?>
</b>
<?php
if ($MOTILITYNORMAL == 'on') {
echo "<br /><br /> " . xlt('D&V Full OU{{Ductions and Versions full both eyes}}') . " <br /><br />";
} else {
if ($PDF_OUTPUT) {
$background = "url(" . $GLOBALS["fileroot"] . "/interface/forms/" . $form_folder . "/images/eom.jpg)";
} else {
$background = "url(../../forms/" . $form_folder . "/images/eom.bmp)";
}
$zone = array("MOTILITY_RRSO", "MOTILITY_RS", "MOTILITY_RLSO", "MOTILITY_RR", "MOTILITY_R0", "MOTILITY_RL", "MOTILITY_RRIO", "MOTILITY_RI", "MOTILITY_RLIO", "MOTILITY_LRSO", "MOTILITY_LS", "MOTILITY_LLSO", "MOTILITY_LR", "MOTILITY_L0", "MOTILITY_LL", "MOTILITY_LRIO", "MOTILITY_LI", "MOTILITY_LLIO");
for ($i = 0; $i < count($zone); ++$i) {
${$zone}[$i] >= '1' ? ${$zone}[$i] = "-" . ${$zone}[$i] : (${$zone}[$i] = '');
}
?>
<table style="font-size:1.0em;">
<tr style="font-weight:bold;">
<td style="text-align:center;text-decoration:underline;"><?php
echo xlt('OD');
?>
</td>
<td style="text-align:center;text-decoration:underline;"><?php
echo xlt('OS');
?>
</td>
</tr>
<tr>
<td style="font-weight:600;">
<table style="background: <?php
echo $background;
?>
no-repeat center center;filter: progid:DXImageTransform.Microsoft.Alpha(opacity=50); -moz-opacity: 0.5; -webkit-opacity: 0.5; opacity:1.0;padding-bottom:5px;">
<tr>
<td class="mot"><?php
echo $MOTILITY_RRSO;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_RS;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_RLSO;
?>
</td>
</tr>
<tr>
<td class="mot"><?php
echo $MOTILITY_RR;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_R0;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_RL;
?>
</td>
</tr>
<tr>
<td class="mot"><?php
echo $MOTILITY_RRIO;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_RI;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_RLIO;
?>
</td>
</tr>
</table>
</td>
<td style="text-align:center;font-weight:600;padding-left:20px;">
<table style="background: <?php
echo $background;
?>
no-repeat center center;filter: progid:DXImageTransform.Microsoft.Alpha(opacity=50) -moz-opacity: 0.5; -webkit-opacity: 1.0; opacity:0.5; padding:1px;">
<tr>
<td class="mot"><?php
echo $MOTILITY_LRSO;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_LS;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_LLSO;
?>
</td>
</tr>
<tr>
<td class="mot"><?php
echo $MOTILITY_LR;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_L0;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_LL;
?>
</td>
</tr>
<tr>
<td class="mot"><?php
echo $MOTILITY_LLIO;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_LI;
?>
</td>
<td class="mot"><?php
echo $MOTILITY_LLIO;
?>
</td>
</tr>
</table>
</td>
</tr>
</table>
<?php
}
?>
</td>
<?php
if ($PUPIL_NORMAL == '1' || $ODPUPILSIZE1 || $OSPUPILSIZE1) {
?>
<td class="report_vitals" style="border-right:0px;">
<?php
if ($PUPIL_NORMAL == '1' && (!$ODPUPILSIZE1 || !$OSPUPILSIZE1)) {
?>
<b class="underline"><?php
echo xlt('Pupils');
?>
</b>
<?php
echo xlt('Round and Reactive') . "<br />";
}
if ($ODPUPILSIZE1 || $OSPUPILSIZE1) {
?>
<table cellspacing="0" style="margin:1px;text-align:center;font-size:9px;">
<tr>
<!-- start of the Pupils box -->
<td>
<b class="underline"><?php
echo xlt('Pupils');
?>
</b>
<table style="font-size: 8px;text-align:middle;">
<tr>
<th>
</th>
<th style="padding: 2px 5px;"><?php
echo xlt('size');
?>
(<?php
echo xlt('mm{{millimeters}}');
?>
)
</th>
<th style="padding: 2px;"><?php
echo xlt('react{{reactivity}}');
?>
</th>
<th style="padding: 2px;"><?php
echo xlt('APD{{afferent pupillary defect}}');
?>
</th>
</tr>
<tr>
<td><b><?php
echo xlt('OD');
?>
</b>
</td>
<td style="border-right:1pt solid black;border-bottom:1pt solid black;text-align:center;">
<?php
echo text($ODPUPILSIZE1);
?>
-->
<?php
echo text($ODPUPILSIZE2);
?>
</td>
<td style="text-align:center;border-left:1pt solid black;border-right:1pt solid black;border-bottom:1pt solid black;">
<?php
echo text($ODPUPILREACTIVITY);
?>
</td>
<td style="text-align:center;border-bottom:1pt solid black;">
<?php
echo text($ODAPD);
?>
</td>
</tr>
<tr>
<td><b><?php
echo xlt('OS');
?>
</b>
</td>
<td style="border-right:1pt solid black;border-top:1pt solid black;text-align:center;">
<?php
echo text($OSPUPILSIZE1);
?>
-->
<?php
echo text($OSPUPILSIZE2);
?>
</td>
<td style="text-align:center;border-left:1pt solid black;border-right:1pt solid black;border-top:1pt solid black;">
<?php
echo text($OSPUPILREACTIVITY);
?>
</td>
<td style="text-align:center;border-top:1pt solid black;">
<?php
echo text($OSAPD);
?>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<?php
}
}
?>
</tr>
</table>
<?php
if ($DIMODPUPILSIZE1 || $DIMOSPUPILSIZE1 || $PUPIL_COMMENTS || $AMSLEROD || $AMSLEROS) {
?>
<!-- start of slide down pupils_panel -->
<br />
<table class='borderShadow' style="margin:1px;text-align:center;font-size:9px;">
<tr>
<td>
<b class="underline"><?php
echo xlt('Pupils');
?>
: <?php
echo xlt('Dim');
?>
</b>
<table style="report_vitals" style="font-size: 8px;text-align:middle;">
<tr >
<th></th>
<th style="padding: 2px;text-align:center;" ><?php
echo xlt('size');
?>
(<?php
echo xlt('mm{{millimeters}}');
?>
)
</th>
</tr>
<tr>
<td><b><?php
echo xlt('OD');
?>
</b>
</td>
<td style="text-align:bottom;border-bottom:1pt solid black;padding-left:0.1in;">
<?php
echo text($DIMODPUPILSIZE1);
?>
-->
<?php
echo text($DIMODPUPILSIZE2);
?>
</td>
</tr>
<tr>
<td ><b><?php
echo xlt('OS');
?>
</b>
</td>
<td style="border-top:1pt solid black;padding-left:0.1in;">
<?php
echo text($DIMOSPUPILSIZE1);
?>
-->
<?php
echo text($DIMOSPUPILSIZE2);
?>
</td>
</tr>
<tr><td colspan="2" style="padding-left:2px;text-align:bottom;">
<?php
echo text($PUPIL_COMMENTS);
?>
</td>
</tr>
</table>
</td>
<!-- end of slide down pupils_panel -->
<!-- START OF THE AMSLER BOX -->
<?php
if ($AMSLEROD || $AMSLEROS) {
?>
<td class="report_vitals" style="border-right:0px;border-left:1pt solid black;">
<b class="underline"><?php
echo xlt('Amsler');
?>
</b>
<?php
if (!$AMSLEROD) {
$AMSLEROD = "0";
}
if (!$AMSLEROS) {
$AMSLEROS = "0";
}
?>
<table style="font-size:1.0em;">
<tr style="font-weight:bold;">
<td style="text-align:center;text-decoration:underline;"><?php
echo xlt('OD');
?>
</td>
<td></td>
<td style="text-align:center;text-decoration:underline;"><?php
echo xlt('OS');
?>
</td>
</tr>
<tr>
<td style="text-align:center;">
<img src="../../forms/<?php
echo $form_folder;
?>
/images/Amsler_<?php
echo attr($AMSLEROD);
?>
.jpg" id="AmslerOD" style="margin:0.05in;height:0.5in;width:0.6in;" />
<br />
<small><?php
echo text($AMSLEROD);
?>
/5</small>
</td>
<td></td>
<td style="text-align:center;">
<img src="../../forms/<?php
echo $form_folder;
?>
/images/Amsler_<?php
echo attr($AMSLEROS);
?>
.jpg" id="AmslerOS" style="margin:0.05in;height:0.5in;width:0.6in;" />
<br /><small><?php
echo text($AMSLEROS);
?>
/5</small>
</td>
</tr>
</table>
</td>
<?php
}
?>
</tr>
</table>
<?php
}
if ($cols != 'Fax') {
if ($ODVA || $OSVA || $ARODSPH || $AROSSPH || $MRODSPH || $MROSSPH || $CRODSPH || $CROSSPH || $CTLODSPH || $CTLOSSPH) {
?>
<!-- start of the refraction boxes -->
<br />
<table class="refraction_tables">
<tr>
<td colspan="9" style="text-align:left;text-decoration:underline;font-weight:bold;"><?php
echo xlt('Refractive States');
?>
</td>
</tr>
<tr style="text-align:center;padding:5px;text-decoration:underline;">
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('Type') . $count_rx;
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('Eye');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('Sph{{Sphere}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('Cyl{{Cylinder}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('Axis{{Axis of a glasses prescription}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('Prism');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('Acuity');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('Mid{{Middle Distance Add}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('ADD{{Near Add}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('Acuity');
?>
</td>
</tr>
<?php
//$count_rx++;
for ($i = 1; $i <= $count_rx; $i++) {
if (${"RX_TYPE_{$i}"} == "0") {
$RX_TYPE = '';
} else {
if (${"RX_TYPE_{$i}"} == "1") {
$RX_TYPE = xlt('Bifocals');
} else {
if (${"RX_TYPE_{$i}"} == "2") {
$RX_TYPE = xlt('Trifocals');
} else {
if (${"RX_TYPE_{$i}"} == "3") {
$RX_TYPE = xlt('Progressive');
}
}
}
}
/*
Note html2pdf does not like the last field of a table to be blank.
If it is it will squish the lines together.
Work around: if the field is blank, then replace it with a "-" else echo it.
aka echo (text($field))?:"-");
*/
?>
<tr>
<td style="font-weight:600;font-size:0.7em;text-align:right;"><?php
echo xlt('Current RX') . " #" . $i . ": ";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('OD{{right eye}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"ODSPH_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"ODCYL_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"ODAXIS_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"ODPRISM_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"ODVA_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"ODMIDADD_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"ODADD_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"ODNEARVA_{$i}"}) ?: "-";
?>
</td>
</tr>
<tr>
<td style="font-weight:600;font-size:0.7em;text-align:right;"><?php
echo $RX_TYPE;
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('OS{{left eye}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"OSSPH_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"OSCYL_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"OSAXIS_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"OSPRISM_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"OSVA_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"OSMIDADD_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"OSADD_{$i}"}) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text(${"OSNEARVA_{$i}"}) ?: "-";
?>
</td>
</tr>
<?php
if (${"COMMENTS_{$i}"}) {
?>
<tr>
<td></td>
<td colspan="2"><?php
echo xlt('Comments');
?>
:</td>
<td colspan="7"><?php
echo text(${"COMMENTS_{$i}"});
?>
</td>
</tr>
<?php
}
}
if ($ARODSPH || $AROSSPH) {
?>
<tr style="border-bottom:1pt solid black;">
<td style="font-weight:600;font-size:0.7em;text-align:right;"><?php
echo xlt('Auto Refraction');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('OD{{right eye}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($ARODSPH) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($ARODCYL) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($ARODAXIS) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($ARODPRISM) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($ARODVA) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;">-</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($ARODADD) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($ARNEARODVA) ?: "-";
?>
</td>
</tr>
<tr>
<td> </td>
<td style="font-weight:400;font-size:1.0em;text-align:right;"><?php
echo xlt('OS{{left eye}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($AROSSPH) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($AROSCYL) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($AROSAXIS) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($AROSPRISM) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($AROSVA) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;">-</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($AROSADD) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($ARNEAROSVA) ?: "-";
?>
</td>
</tr>
<?php
if (${"COMMENTS_{$i}"}) {
?>
<tr>
<td></td><td></td>
<td>Comments:</td>
<td colspan="7"><?php
echo text(${"COMMENTS_{$i}"});
?>
</td>
</tr>
<?php
}
}
if ($MRODSPH || $MROSSPH) {
?>
<tr>
<td style="font-weight:600;font-size:0.7em;text-align:right;"><?php
echo xlt('Manifest (Dry) Refraction');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('OD{{right eye}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MRODSPH) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MRODCYL) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MRODAXIS) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MRODPRISM) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MRODVA) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;">-</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MRODADD) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MRNEARODVA) ?: "-";
?>
</td>
</tr>
<tr></tr>
<tr>
<td></td>
<td style="font-weight:400;font-size:1.0em;text-align:right;"><?php
echo xlt('OS{{left eye}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MROSSPH) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MROSCYL) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MROSAXIS) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MROSPRISM) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MROSVA) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;">-</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MROSADD) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($MRNEAROSVA) ?: "-";
?>
</td>
</tr>
<?php
}
if ($CRODSPH || $CROSSPH) {
?>
<tr>
<td style="font-weight:600;font-size:0.8em;text-align:right;"><?php
echo xlt('Cycloplegic (Wet) Refraction');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('OD{{right eye}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CRODSPH) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CRODCYL) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CRODAXIS) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CRODPRISM) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CRODVA) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;">-</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CRODADD) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CRNEARODVA) ?: "-";
?>
</td>
</tr>
<tr>
<td></td>
<td style="font-weight:400;font-size:1.0em;text-align:right;"><?php
echo xlt('OS{{left eye}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CROSSPH) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CROSCYL) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CROSAXIS) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CROSPRISM) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CROSVA) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;">-</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CROSADD) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CRNEAROSVA) ?: "-";
?>
</td>
</tr>
<?php
}
if ($CTLODSPH || $CTLOSSPH) {
?>
<tr style="text-align:center;padding:5px;text-decoration:underline;">
<td></td>
<td><?php
echo xlt('Eye');
?>
</td>
<td><?php
echo xlt('Sph{{Sphere}}');
?>
</td>
<td><?php
echo xlt('Cyl{{Cylinder}}');
?>
</td>
<td><?php
echo xlt('Axis{{Axis of a glasses prescription}}');
?>
</td>
<td><?php
echo xlt('BC{{Base Curve}}');
?>
</td>
<td><?php
echo xlt('Diam{{Diameter}}');
?>
</td>
<td><?php
echo xlt('ADD');
?>
</td>
<td><?php
echo xlt('Acuity');
?>
</td>
</tr>
<tr>
<td style="font-weight:600;font-size:0.8em;text-align:right;"><?php
echo xlt('Contact Lens');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('OD{{right eye}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLODSPH) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLODCYL) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLODAXIS) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLODBC) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLODDIAM) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLODADD) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLODVA) ?: "-";
?>
</td>
</tr>
<tr style="font-size:0.6em;">
<td></td>
<td></td>
<td colspan="3" style="font-weight:400;font-size:1.0em;text-align:left;"><?php
echo xlt('Brand');
?>
:<?php
echo text($CTLBRANDOD) ?: "-";
?>
</td>
<td colspan="3" style="font-weight:400;font-size:1.0em;text-align:left;"><?php
echo xlt('by{{made by/manufacturer}}');
?>
<?php
echo text($CTLMANUFACTUREROD) ?: "-";
?>
</td>
<td colspan="3" style="font-weight:400;font-size:1.0em;text-align:left;"><?php
echo xlt('via{{shipped by/supplier}}');
?>
<?php
echo text($CTLSUPPLIEROD) ?: "-";
?>
</td>
</tr>
<tr>
<td></td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo xlt('OS{{left eye}}');
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLOSSPH) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLOSCYL) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLOSAXIS) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLOSBC) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLOSDIAM) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo text($CTLOSADD) ?: "-";
?>
</td>
<td style="font-weight:400;font-size:1.0em;text-align:center;"><?php
echo $CTLOSVA ?: "-";
?>
</td>
</tr>
<tr style="font-size:0.6em;">
<td></td>
<td></td>
<td colspan="3" style="font-weight:400;font-size:1.0em;text-align:left;"><?php
echo xlt('Brand');
?>
: <?php
echo text($CTLBRANDOS) ?: "-";
?>
</td>
<td colspan="3" style="font-weight:400;font-size:1.0em;text-align:left;"><?php
echo xlt('by{{made by/manufacturer}}');
?>
<?php
echo text($CTLMANUFACTUREROS) ?: "-";
?>
</td>
<td colspan="3" style="font-weight:400;font-size:1.0em;text-align:left;"><?php
echo xlt('via{{shipped by/supplier}}');
?>
<?php
echo text($CTLSUPPLIEROS) ?: "-";
?>
</td>
</tr>
<?php
}
?>
</table>
<?php
}
?>
<br />
<?php
if ($GLAREODVA || $CONTRASTODVA || $ODK1 || $ODK2 || $LIODVA || $PAMODBA) {
?>
<table>
<tr>
<td id="LayerVision_ADDITIONAL" class="refraction <?php
echo $display_Add;
?>
" style="padding:10px;font-size:0.9em;">
<table id="Additional" style="padding:5;font-size:1.0em;">
<tr><td colspan="9" style="text-align:left;text-decoration:underline;font-weight:bold;"><?php
echo xlt('Additional Data Points');
?>
</td></tr>
<tr><td></td>
<td><?php
echo xlt('PH{{Pinhole}}');
?>
</td>
<td><?php
echo xlt('PAM{{Potential Acuity Meter}}');
?>
</td>
<td><?php
echo xlt('LI{{Laser Interferometry}}');
?>
</td>
<td><?php
echo xlt('BAT{{Brightness Acuity Testing}}');
?>
</td>
<td><?php
echo xlt('K1{{Keratometry 1}}');
?>
</td>
<td><?php
echo xlt('K2{{Keratometry 2}}');
?>
</td>
<td><?php
echo xlt('Axis{{Axis of a glasses prescription}}');
?>
</td>
</tr>
<tr><td><b><?php
echo xlt('OD{{right eye}}');
?>
:</b></td>
<td><?php
echo text($PHODVA);
?>
</td>
<td><?php
echo text($PAMODVA);
?>
</td>
<td><?php
echo text($LIODVA);
?>
</td>
<td><?php
echo text($GLAREODVA);
?>
</td>
<td><?php
echo text($ODK1);
?>
</td>
<td><?php
echo text($ODK2);
?>
</td>
<td><?php
echo text($ODK2AXIS);
?>
</td>
</tr>
<tr>
<td><b><?php
echo xlt('OS{{left eye}}');
?>
:</b></td>
<td><?php
echo text($PHOSVA);
?>
</td>
<td><?php
echo text($PAMOSVA);
?>
</td>
<td><?php
echo text($LIOSVA);
?>
</td>
<td><?php
echo text($GLAREOSVA);
?>
</td>
<td><?php
echo text($OSK1);
?>
</td>
<td><?php
echo text($OSK2);
?>
</td>
<td><?php
echo text($OSK2AXIS);
?>
</td>
</tr>
<tr><td> </td></tr>
<tr>
<td></td>
<td><?php
echo xlt('AxLength{{axial Length}}');
?>
</td>
<td><?php
echo xlt('ACD{{anterior chamber depth}}');
?>
</td>
<td><?php
echo xlt('PD{{pupillary distance}}');
?>
</td>
<td><?php
echo xlt('LT{{lens thickness}}');
?>
</td>
<td><?php
echo xlt('W2W{{white-to-white}}');
?>
</td>
<td><?php
echo xlt('ECL{{equivalent contact lens power at the corneal level}}');
?>
</td>
<!-- <td><?php
echo xlt('pend');
?>
</td> -->
</tr>
<tr><td><b><?php
echo xlt('OD{{right eye}}');
?>
:</b></td>
<td><?php
echo text($ODAXIALLENGTH);
?>
</td>
<td><?php
echo text($ODACD);
?>
</td>
<td><?php
echo text($ODPDMeasured);
?>
</td>
<td><?php
echo text($ODLT);
?>
</td>
<td><?php
echo text($ODW2W);
?>
</td>
<td><?php
echo text($ODECL);
?>
</td>
<!-- <td><input type=text id="pend" name="pend" value="<?php
echo text($pend);
?>
"></td> -->
</tr>
<tr>
<td><b><?php
echo xlt('OS{{left eye}}');
?>
:</b></td>
<td><?php
echo text($OSAXIALLENGTH);
?>
</td>
<td><?php
echo text($OSACD);
?>
</td>
<td><?php
echo text($OSPDMeasured);
?>
</td>
<td><?php
echo text($OSLT);
?>
</td>
<td><?php
echo text($OSW2W);
?>
</td>
<td><?php
echo text($OSECL);
?>
</td>
<!-- <td><input type=text id="pend" name="pend" value="<?php
echo text($pend);
?>
"></td> -->
</tr>
</table>
</td>
</tr>
</table>
<?php
}
}
?>
<!-- end of the refraction boxes -->
<!-- start of external exam -->
<div class="report_exam_group">
<table>
<tr>
<td style="text-align:left;vertical-align:top;">
<b class="underline"><?php
echo xlt('External Exam');
?>
:</b>
<table class="report_section">
<tr>
<td class="bold" style="text-align:right;padding-right:10px;text-decoration:underline;max-width:150px;"><?php
echo xlt('Right');
?>
</td>
<td style="width:100px;"></td>
<td class="bold" style="text-align:left;padding-left:10px;text-decoration:underline;max-width:150px;"><?php
echo xlt('Left');
?>
</td>
</tr>
<tr>
<td class="report_text right"><?php
echo text($RBROW);
?>
</td>
<td class="middle"><?php
echo xlt('Brow');
?>
</td>
<td class="report_text left"><?php
echo text($LBROW);
?>
</td>
</tr>
<tr>
<td class="report_text right ">
<?php
echo text($RUL);
?>
</td>
<td class="middle"><?php
echo xlt('Upper Lids');
?>
</td>
<td class="report_text left"><?php
echo text($LUL);
?>
</td>
</tr>
<tr>
<td class="report_text right "><?php
echo text($RLL);
?>
</td>
<td class="middle"><?php
echo xlt('Lower Lids');
?>
</td>
<td class="report_text left"><?php
echo text($LLL);
?>
</td>
</tr>
<tr>
<td class="report_text right "><?php
echo text($RMCT);
?>
</td>
<td class="middle"><?php
echo xlt('Medial Canthi');
?>
</td>
<td class="report_text left"><?php
echo text($LMCT);
?>
</td>
</tr>
<?php
if ($RADNEXA || $LADNEXA) {
?>
<tr>
<td class="report_text right"><?php
echo text($RADNEXA);
?>
</td>
<td class="middle"><?php
echo xlt('Adnexa');
?>
</td>
<td class="report_text left"><?php
echo text($LADNEXA);
?>
</td>
</tr>
<?php
}
if ($EXT_COMMENTS) {
?>
<tr>
<td colspan="3">
<b><?php
echo xlt('Comments');
?>
:</b>
<span style="height:3.0em;">
<?php
echo text($EXT_COMMENTS);
?>
</span>
</td>
</tr>
<?php
}
?>
</table>
</td>
<td style="text-align:center;padding:1px;vertical-align:middle;">
<?php
display_draw_image("EXT", $encounter, $pid);
?>
</td>
</tr>
</table>
</div>
<!-- end of external exam -->
<div class="report_exam_group">
<?php
if ($OSCONJ || $ODCONJ || $ODCORNEA || $OSCORNEA || $ODAC || $OSAC || $ODLENS || $OSLENS || $ODIRIS || $OSIRIS) {
?>
<!-- start of Anterior Segment exam -->
<table>
<tr>
<td style="text-align:left;padding:1px;vertical-align:top;">
<b class="underline"><?php
echo xlt('Anterior Segment');
?>
:</b>
<table class="report_section">
<tr>
<td class="bold" style="text-align:right;padding-right:10px;text-decoration:underline;max-width:200px;"><?php
echo xlt('Right');
?>
</td>
<td style="width:100px;"></td>
<td class="bold" style="text-align:left;padding-left:10px;text-decoration:underline;max-width:200px;"><?php
echo xlt('Left');
?>
</td>
</tr>
<tr>
<td class="report_text right"><?php
echo text($ODCONJ);
?>
</td>
<td class="middle"><?php
echo xlt('Conj{{Conjunctiva}}');
?>
</td>
<td class="report_text left"><?php
echo text($OSCONJ);
?>
</td>
</tr>
<tr>
<td class="report_text right "><?php
echo text($ODCORNEA);
?>
</td>
<td class="middle"><?php
echo xlt('Cornea');
?>
</td>
<td class="report_text left"><?php
echo text($OSCORNEA);
?>
</td>
</tr>
<tr>
<td class="report_text right "><?php
echo text($ODAC);
?>
</td>
<td class="middle"><?php
echo xlt('A/C{{anterior chamber}}');
?>
</td>
<td class="report_text left"><?php
echo text($OSAC);
?>
</td>
</tr>
<tr>
<td class="report_text right "><?php
echo text($ODLENS);
?>
</td>
<td class="middle"><?php
echo xlt('Lens');
?>
</td>
<td class="report_text left"><?php
echo text($OSLENS);
?>
</td>
</tr>
<tr>
<td class="report_text right"><?php
echo text($ODIRIS);
?>
</td>
<td class="middle"><?php
echo xlt('Iris');
?>
</td>
<td class="report_text left"><?php
echo text($OSIRIS);
?>
</td>
</tr>
<?php
if ($ODGONIO || $OSDGONIO) {
?>
<tr>
<td class="report_text right" style="width:100px;"><?php
echo text($ODGONIO);
?>
</td>
<td class="middle"><?php
echo xlt('Gonioscopy');
?>
</td>
<td class="report_text left" style="width:100px;"><?php
echo text($OSGONIO);
?>
</td>
</tr>
<?php
}
if ($ODKTHICKNESS || $OSKTHICKNESS) {
?>
<tr>
<td class="report_text right"><?php
echo text($ODKTHICKNESS);
?>
</td>
<td class="middle" title="<?php
echo xla('Pachymetry');
?>
"><?php
echo xlt('Pachymetry');
?>
</td>
<td class="report_text left"><?php
echo text($OSKTHICKNESS);
?>
</td>
</tr>
<?php
}
if ($ODSCHIRMER1 || $OSSCHIRMER1) {
?>
<tr>
<td class="report_text right"><?php
echo text($ODSCHIRMER1);
?>
</td>
<td class="middle" title="<?php
echo xla('Schirmers I (w/o anesthesia)');
?>
"><?php
echo xlt('Schirmers I');
?>
</td>
<td class="report_text left"><?php
echo text($OSSCHIRMER1);
?>
</td>
</tr>
<?php
}
if ($ODSCHIRMER2 || $OSSCHIRMER2) {
?>
<tr>
<td class="report_text right"><?php
echo text($ODSCHIRMER2);
?>
</td>
<td class="middle" title="<?php
echo xla('Schirmers II (w/ anesthesia)');
?>
"><?php
echo xlt('Schirmers II');
?>
</td>
<td class="report_text left"><?php
echo text($OSSCHIRMER2);
?>
</td>
</tr>
<?php
}
if ($ODTBUT || $OSTBUT) {
?>
<tr>
<td class="report_text right"><?php
echo text($ODTBUT);
?>
</td>
<td class="middle" title="<?php
echo xla('Tear Break Up Time');
?>
"><?php
echo xlt('TBUT');
?>
</td>
<td class="report_text left"><?php
echo text($OSTBUT);
?>
</td>
</tr>
<?php
}
if ($ANTSEG_COMMENTS) {
?>
<tr>
<td colspan="2">
<b><?php
echo xlt('Comments');
?>
:</b>
<span style="height:3.0em;">
<?php
echo text($ANTSEG_COMMENTS);
?>
</span>
</td>
</tr>
<?php
}
?>
</table>
</td>
<td style="text-align:center;padding:1px;vertical-align:middle;">
<?php
display_draw_image("ANTSEG", $encounter, $pid);
?>
</td>
</tr>
</table>
<!-- end of Anterior Segment exam -->
<?php
}
?>
</div>
<div class="report_exam_group">
<!-- start of Other exam -->
<?php
if ($RLF || $LLF || $RMRD || $LMRD || $RVFISSURE || $LVFISSURE || $RCAROTID || $LCAROTID || $RTEMPART || $LTEMPART || $RCNV || $LCNV || $RCNVII || $LCNVII || $HERTELBASE || $ODCOLOR || $OSCOLOR || $ODREDDESAT || $OSREDDESAT || $ODCOINS || $OSCOINS || $ODNPA || $OSNPA || $NPA || $NPC || $STEREOPSIS || $DACCDIST || $DACCNEAR || $CACCDIST || $CACCNEAR || $VERTFUSAMPS) {
?>
<table>
<tr>
<td style="text-align:left;vertical-align:top;padding:1px;">
<b><u><?php
echo xlt('Additional Findings');
?>
:</u></b>
<?php
if ($ACT == 'on' and $MOTILITYNORMAL == 'on') {
?>
<span id="ACTNORMAL_CHECK" name="ACTNORMAL_CHECK">
<?php
echo xlt('Orthophoric');
?>
</span>
<?php
}
?>
<table class="report_section">
<tr>
<td class="bold" style="text-align:right;padding-right:10px;text-decoration:underline;max-width:200px;"><?php
echo xlt('Right');
?>
</td>
<td style="width:100px;"></td>
<td class="bold" style="text-align:left;padding-left:10px;text-decoration:underline;max-width:200px;"><?php
echo xlt('Left');
?>
</td>
</tr>
<?php
if ($RLF || $LLF) {
?>
<tr>
<td class="report_text right" style=""><?php
echo text($RLF);
?>
</td>
<td class="middle" style="width:100px;"><?php
echo xlt('Levator Function');
?>
</td>
<td class="report_text left" style=""><?php
echo text($LLF);
?>
</td>
</tr>
<?php
}
if ($RMRD || $LMRD) {
?>
<tr>
<td class="report_text right"><?php
echo text($RMRD);
?>
</td>
<td class="middle" title="<?php
echo xla('Marginal Reflex Distance');
?>
"><?php
echo xlt('MRD{{marginal reflex distance}}');
?>
</td>
<td class="report_text left"><?php
echo text($LMRD);
?>
</td>
</tr>
<?php
}
if ($RVFISSURE || $LVFISSURE) {
?>
<tr>
<td class="report_text right"><?php
echo text($RVFISSURE);
?>
</td>
<td class="middle" title="<?php
echo xla('Vertical Fissure: central height between lid margins');
?>
"><?php
echo xlt('Vert Fissure{{vertical fissure}}');
?>
</td>
<td class="report_text left"><?php
echo text($LVFISSURE);
?>
</td>
</tr>
<?php
}
if ($RCAROTID || $LCAROTID) {
?>
<tr>
<td class="report_text right"><?php
echo text($RCAROTID);
?>
</td>
<td class="middle" title="<?php
echo xla('Any carotid bruits appreciated?');
?>
"><?php
echo xlt('Carotid{{carotid arteries}}');
?>
</td>
<td class="report_text left"><?php
echo text($LCAROTID);
?>
</td>
</tr>
<?php
}
if ($RTEMPART || $LTEMPART) {
?>
<tr>
<td class="report_text right"><?php
echo text($RTEMPART);
?>
</td>
<td class="middle" title="<?php
echo xla('Temporal Arteries');
?>
"><?php
echo xlt('Temp. Art.{{temporal arteries}}');
?>
</td>
<td class="report_text left"><?php
echo text($LTEMPART);
?>
</td>
</tr>
<?php
}
if ($RCNV || $LCNV) {
?>
<tr>
<td class="report_text right"><?php
echo text($RCNV);
?>
</td>
<td class="middle" title="<?php
echo xla('Cranial Nerve 5: Trigeminal Nerve');
?>
"><?php
echo xlt('CN V{{cranial nerve five}}');
?>
</td>
<td class="report_text left"><?php
echo text($LCNV);
?>
</td>
</tr>
<?php
}
if ($RCNVII || $LCNVII) {
?>
<tr>
<td class="report_text right"><?php
echo text($RCNVII);
?>
</td>
<td class="middle" title="<?php
echo xla('Cranial Nerve 7: Facial Nerve');
?>
"><?php
echo xlt('CN VII{{cranial nerve seven}}');
?>
</td>
<td class="report_text left"><?php
echo text($LCNVII);
?>
</td>
</tr>
<?php
}
if ($HERTELBASE) {
?>
<tr>
<td colspan="3" style="text-align:center;padding-top:15px;">
<b style="font-weight:bold;padding-bottom:5px;">
<?php
echo xlt('Hertel Exophthalmometry');
?>
</b>
<br />
<?php
if ($HERTELBASE) {
?>
<b style="border:1pt solid black;width:30px;text-align:center;padding:0 5;">
<?php
echo text($ODHERTEL);
?>
</b>
<b class="fa fa-minus">--</b>
<b style="border:1pt solid black;width:40px;text-align:center;padding:0 5;">
<?php
echo text($HERTELBASE);
?>
</b>
<b class="fa fa-minus">--</b>
<b style="border:1pt solid black;width:30px;text-align:center;padding:0 5;">
<?php
echo text($OSHERTEL);
?>
</b>
<?php
}
?>
</td>
</tr>
<?php
}
if ($ODCOLOR || $OSCOLOR || $ODREDDESAT || $OSREDDESAT || $ODCOINS || $OSCOINS || $ODNPA || $OSNPA || $NPA || $NPC || $STEREOPSIS) {
?>
<!-- start of NEURO exam -->
<?php
if ($ODCOLOR or $OSCOLOR) {
?>
<tr>
<td class="report_text right"><?php
echo text($ODCOLOR);
?>
</td>
<td class="middle"><?php
echo xlt('Color Vision');
?>
</td>
<td class="report_text left"><?php
echo text($OSCOLOR);
?>
</td>
</tr>
<?php
}
if ($ODREDDESAT or $OSREDDESAT) {
?>
<tr>
<td class="report_text right"><?php
echo text($ODREDDESAT);
?>
</td>
<td class="middle"><span title="<?php
xla('Variation in red color discrimination between the eyes (eg. OD=100, OS=75)');
?>
"><?php
echo xlt('Red Desaturation');
?>
</span></td>
<td class="report_text left"><?php
echo text($OSREDDESAT);
?>
</td>
</tr><?php
}
if ($ODCOINS or $OSCOINS) {
?>
<tr>
<td class="report_text right"><?php
echo text($ODCOINS);
?>
</td>
<td class="middle"><span title="<?php
echo xla('Variation in white (muscle) light brightness discrimination between the eyes (eg. OD=$1.00, OS=$0.75)');
?>
"><?php
echo xlt('Coins');
?>
</span></td>
<td class="report_text left"><?php
echo text($OSCOINS);
?>
</td>
</tr>
<?php
}
if ($ODNPA or $OSNPA) {
?>
<tr>
<td class="report_text right"><?php
echo text($ODNPA);
?>
</td>
<td class="middle"><span title="<?php
echo xla('Near Point of Accomodation');
?>
"><?php
echo xlt('NPA{{near point of accomodation}}');
?>
</span></td>
<td class="report_text left"><?php
echo text($OSNPA);
?>
</td>
</tr>
<?php
}
if ($ODNPC or $OSNPC) {
?>
<tr>
<td class="right" style="font-weight:600;"><?php
echo xlt('NPC{{near point of convergence}}');
?>
: </td>
<td class="center" colspan="2" ><?php
echo text($NPC);
?>
</td>
</tr>
<?php
}
if ($DACCDIST or $DACCNEAR or $CACCDIST or $CACCNEAR or $VERTFUSAMPS) {
?>
<tr style="text-decoration:underline;">
<td></td>
<td class="middle"><?php
echo xlt('Distance');
?>
</td>
<td class="middle"> <?php
echo xlt('Near');
?>
</td>
</tr>
<?php
}
if ($DACCDIST or $DACCNEAR) {
?>
<tr>
<td class="right" style="font-weight:600;"><?php
echo xlt('Divergence Amps');
?>
: </td>
<td class="center"><?php
echo text($DACCDIST);
?>
</td>
<td class="center"><?php
echo text($DACCNEAR);
?>
</td>
</tr>
<?php
}
if ($CACCDIST or $CACCNEAR) {
?>
<tr>
<td class="right" style="font-weight:600;"><?php
echo xlt('Convergence Amps');
?>
: </td>
<td class="center"><?php
echo text($CACCDIST);
?>
</td>
<td class="center"><?php
echo text($CACCNEAR);
?>
</td>
</tr>
<?php
}
if ($VERTFUSAMPS) {
?>
<tr>
<td class="right" style="font-weight:600;">
<?php
echo xlt('Vert Fusional Amps');
?>
:
</td>
<td colspan="2" class="center">
<?php
echo text($VERTFUSAMPS);
?>
<br />
</td>
</tr>
<?php
}
if ($STEREOPSIS) {
?>
<tr>
<td class="right" style="font-weight:600;"><?php
echo xlt('Stereopsis');
?>
: </td>
<td class="center" colspan="2"><?php
echo text($STEREOPSIS);
?>
</td>
</tr>
<?php
}
}
?>
</table>
</td>
<td style="text-align:center;padding:1px;vertical-align:middle;">
<?php
display_draw_image("NEURO", $encounter, $pid);
?>
</td>
</tr>
</table>
<?php
}
?>
<!-- end of Other exam -->
</div>
<div class="report_exam_group">
<!-- start of the Retina exam -->
<?php
if ($ODDISC || $OSDISC || $ODCUP || $ODMACULA || $ODVESSELS || $ODPERIPH) {
?>
<table>
<tr>
<td style="text-align:left;padding:1px;vertical-align:top;">
<b><u><?php
echo xlt('Retina');
?>
:</u></b>
<table class="report_section">
<tr>
<td class="bold" style="text-align:right;text-decoration:underline;max-width:150px;"><?php
echo xlt('Right');
?>
</td>
<td style="width:100px;"></td>
<td class="bold" style="text-align:left;text-decoration:underline;max-width:150px;"><?php
echo xlt('Left');
?>
</td>
</tr>
<tr>
<td class="report_text right"><?php
echo text($ODDISC);
?>
</td>
<td class="middle"><?php
echo xlt('Disc');
?>
</td>
<td class="report_text left"><?php
echo text($OSDISC);
?>
</td>
</tr>
<tr>
<td class="report_text right"><?php
echo text($ODCUP);
?>
</td>
<td class="middle"><?php
echo xlt('Cup');
?>
</td>
<td class="report_text left"><?php
echo text($OSCUP);
?>
</td>
</tr>
<tr>
<td class="report_text right"><?php
echo text($ODMACULA);
?>
</td>
<td class="middle"><?php
echo xlt('Macula');
?>
</td>
<td class="report_text left"><?php
echo text($OSMACULA);
?>
</td>
</tr>
<tr>
<td class="report_text right"><?php
echo text($ODVESSELS);
?>
</td>
<td class="middle"><?php
echo xlt('Vessels');
?>
</td>
<td class="report_text left"><?php
echo text($OSVESSELS);
?>
</td>
</tr>
<?php
if ($ODPERIPH || $OSPERIPH) {
?>
<tr>
<td class="report_text right"><?php
echo text($ODPERIPH);
?>
</td>
<td class="middle"><?php
echo xlt('Periph{{periphery}}');
?>
</td>
<td class="report_text left"><?php
echo text($OSPERIPH);
?>
</td>
</tr>
<?php
}
if ($ODCMT || $OSCMT) {
?>
<tr>
<td class="report_text right"> <?php
echo text($ODCMT);
?>
</td>
<td class="middle"><?php
echo xlt('Central Macular Thickness');
?>
</td>
<td class="report_text left" > <?php
echo text($OSCMT);
?>
</td>
</tr>
<?php
}
?>
<?php
if ($RETINA_COMMENTS) {
?>
<tr>
<td colspan="2" class="report_text left">
<b><?php
echo xlt('Comments');
?>
:</b>
<span style="height:3.0em;">
<?php
echo text($RETINA_COMMENTS);
?>
</span>
</td>
</tr>
<?php
}
?>
</table>
</td>
<td style="text-align:center;padding:1px;vertical-align:middle;">
<?php
display_draw_image("RETINA", $encounter, $pid);
?>
</td>
</tr>
</table>
<?php
}
?>
<!-- end of Retina exam -->
</div>
<?php
if ($ACT != 'on') {
?>
<table style="text-align:center;font-size:0.7em;">
<tr>
<td colspan=3 style="">
<table>
<tr style="text-align:left;height:16px;vertical-align:middle;width:880px;">
<td>
<span id="ACTTRIGGER" name="ACTTRIGGER" style="text-decoration:underline;padding-left:2px;">
<?php
echo xlt('Alternate Cover Test');
?>
:
</span>
</td>
</tr>
<tr>
<?php
if ($ACT5SCDIST) {
?>
<td style="text-align:center;"> <!-- scDIST -->
<table cellpadding="0"
style="position:relative;text-align:center;font-size:1.2em;margin: 7 5 10 5;">
<tr>
<td id="ACT_tab_SCDIST" name="ACT_tab_SCDIST" class="ACT_deselected"> <?php
echo xlt('sc Distance{{without correction distance}}');
?>
</td>
</tr>
<tr>
<td colspan="4" style="text-align:center;font-size:0.9em;">
<table>
<tr>
<td style="text-align:center;"><?php
echo xlt('R{{right}}');
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT1SCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT2SCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT3SCDIST);
?>
</td>
<td style="text-align:center;"><?php
echo xlt('L{{left}}');
?>
</td>
</tr>
<tr>
<td style="text-align:right;"><i class="fa fa-reply rotate-left"></i></td>
<td class="ACT"><?php
echo report_ACT($ACT4SCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT5SCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT6SCDIST);
?>
</td>
<td><i class="fa fa-share rotate-right"></i></td>
</tr>
<tr>
<td class="ACT"><?php
echo report_ACT($ACT10SCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT7SCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT8SCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT9SCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT11SCDIST);
?>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<?php
}
if ($ACT5CCDIST) {
?>
<td style="text-align:center;"> <!-- ccDIST -->
<table cellpadding="0" style="position:relative;text-align:center;font-size:1.5em;margin: 7 5 10 5;border-collapse: separate;">
<tr>
<td class="ACT_deselected"> <?php
echo xlt('cc Distance{{with correction at distance}}');
?>
</td>
</tr>
<tr>
<td colspan="4" style="text-align:center;font-size:0.8em;">
<table>
<tr>
<td style="text-align:center;"><?php
echo xlt('R{{right}}');
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT1CCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT2CCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT3CCDIST);
?>
</td>
<td style="text-align:center;"><?php
echo xlt('L{{left}}');
?>
</td>
</tr>
<tr>
<td style="text-align:right;"><i class="fa fa-reply rotate-left"></i></td>
<td class="ACT"><?php
echo report_ACT($ACT4CCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT5CCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT6CCDIST);
?>
</td>
<td><i class="fa fa-share rotate-right"></i></td>
</tr>
<tr>
<td class="ACT"><?php
echo report_ACT($ACT10CCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT7CCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT8CCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT9CCDIST);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT11CCDIST);
?>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<?php
}
if ($ACT5SCNEAR) {
?>
<td style="text-align:center;"> <!-- scNEAR -->
<table cellpadding="0" style="position:relative;text-align:center;font-size:1.5em;margin: 7 5 10 5;border-collapse: separate;">
<tr>
<td class="ACT_deselected"> <?php
echo xlt('sc Near{{without correction near}}');
?>
</td>
</tr>
<tr>
<td colspan="4" style="text-align:center;font-size:0.8em;">
<table>
<tr>
<td style="text-align:center;"><?php
echo xlt('R{{right}}');
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT1SCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT2SCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT3SCNEAR);
?>
</td>
<td style="text-align:center;"><?php
echo xlt('L{{left}}');
?>
</td>
</tr>
<tr>
<td style="text-align:right;"><i class="fa fa-reply rotate-left"></i></td>
<td class="ACT"><?php
echo report_ACT($ACT4SCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT5SCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT6SCNEAR);
?>
</td>
<td><i class="fa fa-share rotate-right"></i></td>
</tr>
<tr>
<td class="ACT"><?php
echo report_ACT($ACT10SCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT7SCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT8SCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT9SCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT11SCNEAR);
?>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<?php
}
if ($ACT5CCNEAR) {
?>
<td style="text-align:center;"> <!-- ccNEAR -->
<table cellpadding="0" style="position:relative;text-align:center;font-size:1.5em;margin: 7 5 10 5;border-collapse: separate;">
<tr>
<td class="ACT_deselected"> <?php
echo xlt('cc Near{{with correction at Near}}');
?>
</td>
</tr>
<tr>
<td colspan="4" style="text-align:center;font-size:1.0em;">
<table>
<tr>
<td style="text-align:center;"><?php
echo xlt('R{{right}}');
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT1CCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT2CCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT3CCNEAR);
?>
</td>
<td style="text-align:center;"><?php
echo xlt('L{{left}}');
?>
</td>
</tr>
<tr>
<td style="text-align:right;"><i class="fa fa-reply rotate-left"></i></td>
<td class="ACT"><?php
echo report_ACT($ACT4CCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT5CCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT6CCNEAR);
?>
</td>
<td><i class="fa fa-share rotate-right"></i></td>
</tr>
<tr>
<td class="ACT"><?php
echo report_ACT($ACT10CCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT7CCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT8CCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT9CCNEAR);
?>
</td>
<td class="ACT"><?php
echo report_ACT($ACT11CCNEAR);
?>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<?php
}
?>
</tr>
</table>
<?php
if ($NEURO_COMMENTS) {
?>
<table>
<tr>
<td colspan="2">
<b><?php
echo xlt('Comments');
?>
:</b><br />
<span style="height:3.0em;">
<?php
echo report_ACT($NEURO_COMMENTS);
?>
</span>
<br /><br />
</td>
</tr>
</table>
<?php
}
?>
</td>
</tr>
</table>
<?php
}
}
//end choice !== 'TEXT' -- include this in summary mouseover report.
?>
<!-- start of IMPPLAN exam -->
<table class="report_exam_group">
<tr>
<td style="text-align:left;padding:1px;vertical-align:top;width:480px;">
<b><u><?php
echo xlt('Impression/Plan');
?>
:</u></b>
<table style="">
<tr>
<td style="padding:5px;text-align: left;text-align:justify;width:475px;">
<?php
/**
* Retrieve and Display the IMPPLAN_items for the Impression/Plan zone.
*/
$query = "select * from form_" . $form_folder . "_impplan where form_id=? and pid=? order by IMPPLAN_order ASC";
$result = sqlStatement($query, array($form_id, $pid));
$i = '0';
$order = array("\r\n", "\n", "\r", "\v", "\f", "…", "\\u2028", "\\u2029");
$replace = "<br />";
// echo '<ol>';
while ($ip_list = sqlFetchArray($result)) {
$newdata = array('form_id' => $ip_list['form_id'], 'pid' => $ip_list['pid'], 'title' => $ip_list['title'], 'code' => $ip_list['code'], 'codetype' => $ip_list['codetype'], 'codetext' => $ip_list['codetext'], 'plan' => str_replace($order, $replace, $ip_list['plan']), 'IMPPLAN_order' => $ip_list['IMPPLAN_order']);
$IMPPLAN_items[$i] = $newdata;
$i++;
}
//for ($i=0; $i < count($IMPPLAN_item); $i++) {
foreach ($IMPPLAN_items as $item) {
echo $item['IMPPLAN_order'] + 1 . '. <b>' . text($item['title']) . '</b><br />';
echo '<div style="padding-left:15px;">';
$pattern = '/Code/';
if (preg_match($pattern, $item['code'])) {
$item['code'] = '';
}
if ($item['codetext'] > '') {
echo $item['codetext'] . "<br />";
} else {
if ($item['code'] > '') {
if ($item['codetype'] > '') {
$item['code'] = $item['codetype'] . ": " . $item['code'];
}
echo $item['code'] . "<br />";
}
}
echo $item['plan'] . "</div><br />";
}
if ($PLAN && $PLAN != '0') {
?>
<b><?php
echo xlt('Orders') . "/" . xlt('Next Visit');
?>
:</b>
<br />
<div style="padding-left:15px;padding-bottom:10px;width:400px;">
<?php
$PLAN_items = explode('|', $PLAN);
foreach ($PLAN_items as $item) {
echo $item . "<br />";
}
if ($PLAN2) {
echo $PLAN2 . "<br />";
}
?>
</div>
<?php
}
?>
</td>
</tr>
</table>
</td>
<td style="text-align:center;vertical-align:bottom;padding:1px;">
<?php
display_draw_image("IMPPLAN", $encounter, $pid);
if ($PDF_OUTPUT) {
//display a stored optional electronic sig for this providerID, ie the patient's Doc not the tech
$from_file = $GLOBALS["webserver_root"] . "/interface/forms/" . $form_folder . "/images/sign_" . $providerID . ".jpg";
if (file_exists($from_file)) {
echo "<img style='width:50mm;' src='{$from_file}'><hr style='width:40mm;' />" . text($providerNAME) . "<br />\n <i style='font-size:9px;'>" . xlt('electronically signed on') . " " . oeFormatShortDate() . "</i>";
}
?>
<br />
<span style="border-top:1pt solid black;padding-left:50px;"><?php
echo text($providerNAME);
?>
</span>
<?php
} else {
$signature = $GLOBALS["webserver_root"] . "/interface/forms/" . $form_folder . "/images/sign_" . $providerID . ".jpg";
if (file_exists($signature)) {
echo "<img src='" . $GLOBALS['web_root'] . "/interface/forms/" . $form_folder . "/images/sign_" . $providerID . ".jpg' style='width:30mm; height:6mm;bottom:1px;' height='10' />";
}
}
?>
</td>
</tr>
</table>
</div>
<?php
return;
}
