PageRenderTime 125ms CodeModel.GetById 39ms RepoModel.GetById 1ms app.codeStats 2ms

/interface/forms/eye_mag/php/eye_mag_functions.php

https://bitbucket.org/openemr/openemr
PHP | 6325 lines | 5381 code | 387 blank | 557 comment | 699 complexity | 195694ffba08fbf97a66268381143798 MD5 | raw file
Possible License(s): Apache-2.0, AGPL-1.0, GPL-2.0, LGPL-3.0, BSD-3-Clause, Unlicense, MPL-2.0, GPL-3.0, LGPL-2.1 
    

  1. <?php
    2. 

  2. 

  3. /**
    4. 

  4.  * forms/eye_mag/php/eye_mag_functions.php
    5. 

  5.  *
    6. 

  6.  * Functions which extend clinical forms
    7. 

  7.  *
    8. 

  8.  * @package   OpenEMR
    9. 

  9.  * @link      https://www.open-emr.org
    10. 

  10.  * @author    Ray Magauran <rmagauran@gmail.com>
    11. 

  11.  * @copyright Copyright (c) 2016- Raymond Magauran <rmagauran@gmail.com>
    12. 

  12.  * @license   https://github.com/openemr/openemr/blob/master/LICENSE GNU General Public License 3
    13. 

  13.  */
    14. 

  14. 

  15. $form_folder = "eye_mag";
    16. 

  16. require_once(dirname(__FILE__) . "/../../../../custom/code_types.inc.php");
    17. 

  17. require_once(dirname(__FILE__) . "/../../../../library/options.inc.php");
    18. 

  18. global $PMSFH;
    19. 

  19. 

  20.     use OpenEMR\Common\Acl\AclMain;
    21. 

  21.     use OpenEMR\Services\FacilityService;
    22. 

  22. 

  23.     $facilityService = new FacilityService();
    24. 

  24. 

  25. /**
    26. 

  26.  *  This function returns HTML old record selector widget when needed (4 input values)
    27. 

  27.  *
    28. 

  28.  * @param string $zone options ALL,EXT,ANTSEG,RETINA,NEURO, DRAW_PRIORS_$zone
    29. 

  29.  * @param string $visit_date Future functionality to limit result set. UTC DATE Formatted
    30. 

  30.  * @param string $pid value = patient id
    31. 

  31.  * @param string $type options text(default) image
    32. 

  32.  * @return string returns the HTML old record/image selector widget for the desired zone and type
    33. 

  33.  */
    34. 

  34. function priors_select($zone, $orig_id, $id_to_show, $pid, $type = 'text')
    35. 

  35. {
    36. 

  36.     global $priors;
    37. 

  37.     global $form_id;
    38. 

  38.     global $earlier;
    39. 

  39. 

  40.     if ($type == "canvas") {
    41. 

  41.         $zone = $zone . "_canvas";
    42. 

  42.     }
    43. 

  43. 

  44.     $tables = array('form_eye_hpi','form_eye_ros','form_eye_vitals',
    45. 

  45.                 'form_eye_acuity','form_eye_refraction','form_eye_biometrics',
    46. 

  46.                 'form_eye_external', 'form_eye_antseg','form_eye_postseg',
    47. 

  47.                 'form_eye_neuro','form_eye_locking');
    48. 

  48.     $output_return = "<span id='" . attr($zone) . "_prefix_oldies' name='" . attr($zone) . "_prefix_oldies' class='oldies_prefix'>";
    49. 

  49.     $selected = '';
    50. 

  50.     $current = '';
    51. 

  51.     if (!$priors) { //we have to build it
    52. 

  52.         $query = "select form_encounter.date as encounter_date,form_eye_base.id as form_id, form_eye_base.*
    53. 

  53.                     from form_eye_base,forms,form_encounter
    54. 

  54.                     where
    55. 

  55.                     form_encounter.encounter = forms.encounter and
    56. 

  56.                     form_eye_base.id=forms.form_id and
    57. 

  57.                     forms.deleted != '1' and
    58. 

  58.                     forms.pid =form_eye_base.pid and
    59. 

  59.                     forms.formdir='eye_mag' and form_eye_base.pid=? ORDER BY encounter_date DESC LIMIT 20";
    60. 

  60.                     // Unlike the obj data(PMSFH,Clinical,IMPPLAN etc), this data is static.
    61. 

  61.                     // It only needs to be passed once to the client side.
    62. 

  62.         $result     = sqlStatement($query, array($pid));
    63. 

  63.         $counter    = sqlNumRows($result);
    64. 

  64.         $priors     = array();
    65. 

  65.         if ($counter < 2) {
    66. 

  66.             return;
    67. 

  67.         }
    68. 

  68. 

  69.         $i = "0";
    70. 

  70.         while ($prior = sqlFetchArray($result)) {
    71. 

  71.             $dated = new DateTime($prior['encounter_date']);
    72. 

  72.             $dated = $dated->format('Y-m-d');
    73. 

  73.             $oeexam_date = oeFormatShortDate($dated);
    74. 

  74.             foreach ($tables as $table) {
    75. 

  75.                 $sql = "SELECT * from " . $table . " WHERE id=?";
    76. 

  76.                 $sub_data = sqlStatement($sql, array($prior['id']));
    77. 

  77.                 $data = sqlFetchArray($sub_data);
    78. 

  78.                 if ($data) {
    79. 

  79.                     $prior = array_merge($prior, $data);
    80. 

  80.                 }
    81. 

  81.             }
    82. 

  82.             $priors[$i] = $prior;
    83. 

  83.             $priors[$i]['encounter_date'] = $oeexam_date;
    84. 

  84. 

  85.             if (($i > 0) && ($prior['PLAN'])) {
    86. 

  86.                 //this plan is a todo list for next visit, which is $i-1 actually
    87. 

  87.                 $j = $i - 1;
    88. 

  88.                 $priors[$j]['TODO'] = array();
    89. 

  89.                 $priors[$j]['TODO'] = $prior['PLAN'];
    90. 

  90.             }
    91. 

  91. 

  92.             $selected = '';
    93. 

  93.             $priors[$i]['visit_date'] = $oeexam_date;
    94. 

  94.             $priors[$i]['exam_date'] = $oeexam_date;
    95. 

  95.             if ($id_to_show == $prior['form_id']) {
    96. 

  96.                 $selected = 'selected="selected"';
    97. 

  97.                 $current = $i;
    98. 

  98.             }
    99. 

  99. 

  100.             $output .= "<option value='" . attr($prior['id']) . "' " . attr($selected) . ">" . text($oeexam_date) . "</option>";
    101. 

  101.             $selected = '';
    102. 

  102.             $i++;
    103. 

  103.         }
    104. 

  104.     } else {
    105. 

  105.         //priors[] exists, containing the visits data AND the priors[earlier] field at the end, so iterate through all but the last one.
    106. 

  106.         //$visit_count = count($priors) - 1;
    107. 

  107.         for ($i = 0; $i < count($priors); $i++) {
    108. 

  108.             if ($form_id == $priors[$i]['id']) {
    109. 

  109.                 $selected = 'selected=selected';
    110. 

  110.                 $current = $i;
    111. 

  111.             } else {
    112. 

  112.                 $selected = '';
    113. 

  113.             }
    114. 

  114. 

  115.             $output .= "<option value='" . attr($priors[$i]['id']) . "' " . attr($selected) . ">" . text($priors[$i]['exam_date']) . "</option>";
    116. 

  116.         }
    117. 

  117.     }
    118. 

  118. 

  119.     $i--;
    120. 

  120.     if ($current < $i) {
    121. 

  121.         $earlier = $current + 1;
    122. 

  122.     } else {
    123. 

  123.         $earlier = $current;
    124. 

  124.     }
    125. 

  125. 

  126.     if ($current > '0') {
    127. 

  127.         $later   = ($current - 1);
    128. 

  128.     } else {
    129. 

  129.         $later   = "0";
    130. 

  130.     }
    131. 

  131. 

  132. 

  133.     //current visit =[0]
    134. 

  134.     if (!$priors[$current]['PLAN']) {
    135. 

  135.         $priors[$current]['PLAN'] = array();
    136. 

  136.         $query = "SELECT * from form_eye_mag_orders where form_id=?";
    137. 

  137.         $orders = sqlStatement($query, array($priors[$earlier]['id']));
    138. 

  138.         while ($row = sqlFetchArray($orders)) {
    139. 

  139.             $priors[$current]["PLAN"][] = $row;
    140. 

  140.             $priors[$later]["TODO"][] = $row;
    141. 

  141.         }
    142. 

  142.     }
    143. 

  143.     if ($id_to_show != $orig_id) {
    144. 

  144.         $output_return .= '
    145. 

  145.                 <span title="' . xla($zone) . ': ' . xla("Copy these values into current visit.") . '
    146. 

  146.                 ' . xla("Updated fields will be purple.") . '"
    147. 

    148. 

  148.                     id="COPY_' . attr($zone) . '"
    149. 

  149.                     name="COPY_' . attr($zone) . '"
    150. 

  150.                     value="' . attr($id_to_show) . '" onclick=\'$("#COPY_SECTION").val("' . attr($zone) . '-' . attr($id_to_show) . '").trigger("change");\'>
    151. 

  151.                     <i class="fa fa-paste fa-lg"></i>
    152. 

  152.                 </span>
    153. 

  153.                 &nbsp;&nbsp;';
    154. 

  154.     }
    155. 

  155. 

  156.     $output_return .= '
    157. 

  157.         <span onclick=\'$("#PRIOR_' . attr($zone) . '").val("' . attr($priors[$i][id]) . '").trigger("change");\'
    158. 

  158.                 id="PRIORS_' . attr($zone) . '_earliest"
    159. 

  159.                 name="PRIORS_' . attr($zone) . '_earliest"
    160. 

  160.                 class="fa fa-fast-backward fa-sm PRIORS"
    161. 

  161.                 title="' . attr($zone) . ': ' . attr($priors[$i]['encounter_date']) . '">
    162. 

  162.         </span>
    163. 

  163.         &nbsp;
    164. 

  164.         <span onclick=\'$("#PRIOR_' . attr($zone) . '").val("' . attr($priors[$earlier][id]) . '").trigger("change");\'
    165. 

  165.                 id="PRIORS_' . attr($zone) . '_minus_one"
    166. 

  166.                 name="PRIORS_' . attr($zone) . '_minus_one"
    167. 

  167.                 class="fa fa-step-backward fa-sm PRIORS"
    168. 

  168.                 title="' . attr($zone) . ': ' . attr($priors[$earlier]['encounter_date']) . '">
    169. 

  169.         </span>&nbsp;&nbsp;
    170. 

  170.         <select name="PRIOR_' . attr($zone) . '"
    171. 

  171.                 id="PRIOR_' . attr($zone) . '"
    172. 

  172.                 style="padding:0 0;font-size:1.2em;"
    173. 

  173.                 class="PRIORS">
    174. 

  174.                 ' . $output . '
    175. 

  175.         </select>
    176. 

  176.                   &nbsp;
    177. 

  177.         <span onclick=\'$("#PRIOR_' . attr($zone) . '").val("' . attr($priors[$later][id]) . '").trigger("change");\'
    178. 

  178.                 id="PRIORS_' . attr($zone) . '_plus_one"
    179. 

  179.                 name="PRIORS_' . attr($zone) . '_plus_one"
    180. 

  180.                 class="fa  fa-step-forward PRIORS"
    181. 

  181.                 title="' . attr($zone) . ': ' . attr($priors[$later]['encounter_date']) . '">
    182. 

  182.         </span>&nbsp;&nbsp;
    183. 

  183.         <span onclick=\'$("#PRIOR_' . attr($zone) . '").val("' . attr($priors[0][id]) . '").trigger("change");\'
    184. 

  184.                 id="PRIORS_' . attr($zone) . '_latest"
    185. 

  185.                 name="PRIORS_' . attr($zone) . '_latest"
    186. 

  186.                 class="fa  fa-fast-forward PRIORS"
    187. 

  187.                 title="' . attr($zone) . ': ' . attr($priors[0]['encounter_date']) . '"> &nbsp;
    188. 

  188.         </span>
    189. 

  189.     </span>';
    190. 

  190.     return $output_return;
    191. 

  191. }
    192. 

  192. 

  193. /**
    194. 

  194.  *  This function returns ZONE specific HTML for a PRIOR record (3 input values)
    195. 

  195.  *
    196. 

  196.  *  This is where the magic of displaying the old records happens.
    197. 

  197.  *  Each section is a duplicate of the base html except the values are from a prior visit,
    198. 

  198.  *    the background and background-color are different, and the input fields are disabled.
    199. 

  199.  *
    200. 

  200.  * @param string $zone options ALL,EXT,ANTSEG,RETINA,NEURO. DRAW_PRIORS_$zone and IMPPLAN to do.
    201. 

  201.  * @param string $visit_date. Future functionality to limit result set. UTC DATE Formatted
    202. 

  202.  * @param string $pid value = patient id
    203. 

  203.  * @return outputs the ZONE specific HTML for a prior record + "priors_select" widget for the desired zone
    204. 

  204.  */
    205. 

  205. function display_PRIOR_section($zone, $orig_id, $id_to_show, $pid, $report = '0')
    206. 

  206. {
    207. 

  207.     global $form_folder;
    208. 

  208. 

  209.     $query  = "SELECT * FROM form_eye_mag_prefs
    210. 

  210.                 where PEZONE='PREFS' AND id=?
    211. 

  211.                 ORDER BY ZONE_ORDER,ordering";
    212. 

    213. 

  213.     $result = sqlStatement($query, array($_SESSION['authUserID']));
    214. 

  214.     while ($prefs = sqlFetchArray($result)) {
    215. 

  215.         ${$prefs['LOCATION']} = $prefs['GOVALUE'];
    216. 

  216.     }
    217. 

  217. 

  218.      $query = "SELECT  *
    219. 

  219.                from form_eye_base,
    220. 

  220.                 form_eye_hpi,form_eye_ros,form_eye_vitals,
    221. 

  221.                 form_eye_acuity,form_eye_refraction,form_eye_biometrics,
    222. 

  222.                 form_eye_external, form_eye_antseg,form_eye_postseg,
    223. 

  223.                 form_eye_neuro,form_eye_locking
    224. 

  224.               where
    225. 

  225.                     form_eye_base.id=form_eye_hpi.id and
    226. 

  226.                     form_eye_base.id=form_eye_ros.id and
    227. 

  227.                     form_eye_base.id=form_eye_vitals.id and
    228. 

  228.                     form_eye_base.id=form_eye_acuity.id and
    229. 

  229.                     form_eye_base.id=form_eye_refraction.id and
    230. 

  230.                     form_eye_base.id=form_eye_biometrics.id and
    231. 

  231.                     form_eye_base.id=form_eye_external.id and
    232. 

  232.                     form_eye_base.id=form_eye_antseg.id and
    233. 

  233.                     form_eye_base.id=form_eye_postseg.id and
    234. 

  234.                     form_eye_base.id=form_eye_neuro.id and
    235. 

  235.                     form_eye_base.id=form_eye_locking.id and
    236. 

  236.                     form_eye_base.pid =? and
    237. 

  237.                     form_eye_base.id=?";
    238. 

  238.     $result = sqlQuery($query, array($pid,$id_to_show));
    239. 

  239.     @extract($result);
    240. 

  240.     ob_start();
    241. 

  241.     if ($zone == "REFRACTIONS") {
    242. 

  242.         //TODO maybe just sql _refraction+acuity
    243. 

  243.         display_refractive_data($result);
    244. 

  244.     } elseif ($zone == "EXT") {
    245. 

  245.         if ($report == '0') {
    246. 

  246.             $output = priors_select($zone, $orig_id, $id_to_show, $pid);
    247. 

  247.         }
    248. 

  248.         ?>
    249. 

  249.         <input disabled type="hidden" id="PRIORS_<?php echo attr($zone); ?>_prefix" name="PRIORS_<?php echo attr($zone); ?>_prefix" value="">
    250. 

  250.         <span class="closeButton float-right fas fa-times" id="Close_PRIORS_<?php echo attr($zone); ?>" name="Close_PRIORS_<?php echo attr($zone); ?>"></span>
    251. 

  251.             <div name="prior_selector">
    252. 

  252.                     <?php
    253. 

  253.                     echo $output;//prior visit selector - already sanitized
    254. 

  254.                     ?>
    255. 

  255.             </div>
    256. 

  256.                 <span style="font-weight:bold;">
    257. 

  257.                     <?php
    258. 

  258.                     if ($report == '0') {
    259. 

  259.                         echo xlt('Prior Exam');
    260. 

  260.                     } else {
    261. 

  261.                         echo xlt($zone);
    262. 

  262.                     } ?>: </span>
    263. 

  263.                 <br />
    264. 

  264.                 <div id="PRIORS_EXT_left_1">
    265. 

  265.                     <table>
    266. 

  266.                         <?php
    267. 

  267.                             list($imaging,$episode) = display($pid, $encounter, "EXT");
    268. 

  268.                             echo $episode;
    269. 

  269.                         ?>
    270. 

  270.                     </table>
    271. 

  271.                     <table>
    272. 

  272.                         <tr>
    273. 

  273.                             <td></td><td><?php echo xlt('R'); ?></td><td><?php echo xlt('L{{left}}'); ?></td>
    274. 

  274.                         </tr>
    275. 

  275.                         <tr>
    276. 

  276.                             <td class="right"><?php echo xlt('Lev Fn{{levator function}}'); ?></td>
    277. 

  277.                             <td><input disabled  type="text" size="1" name="PRIOR_RLF" id="PRIOR_RLF" value="<?php echo attr($RLF); ?>"></td>
    278. 

  278.                             <td><input disabled  type="text" size="1" name="PRIOR_LLF" id="PRIOR_LLF" value="<?php echo attr($LLF); ?>"></td>
    279. 

  279.                         </tr>
    280. 

  280.                         <tr>
    281. 

  281.                             <td class="right"><?php echo xlt('MRD{{marginal reflex distance}}'); ?></td>
    282. 

  282.                             <td><input disabled type="text" size="1" name="PRIOR_RMRD" id="PRIOR_RMRD" value="<?php echo attr($RMRD); ?>"></td>
    283. 

  283.                             <td><input disabled type="text" size="1" name="PRIOR_LMRD" id="PRIOR_LMRD" value="<?php echo attr($LMRD); ?>"></td>
    284. 

  284.                         </tr>
    285. 

  285.                         <tr>
    286. 

  286.                             <td class="right"><?php echo xlt('Vert Fissure{{vertical fissure height}}'); ?></td>
    287. 

  287.                             <td><input disabled type="text" size="1" name="PRIOR_RVFISSURE" id="PRIOR_RVFISSURE" value="<?php echo attr($RVFISSURE); ?>"></td>
    288. 

  288.                             <td><input disabled type="text" size="1" name="PRIOR_LVFISSURE" id="PRIOR_LVFISSURE" value="<?php echo attr($LVFISSURE); ?>"></td>
    289. 

  289.                         </tr>
    290. 

  290.                           <tr>
    291. 

  291.                             <td class="right"><?php echo xlt('Carotid Bruit'); ?></td>
    292. 

  292.                             <td><input  disabled type="text"  name="PRIOR_RCAROTID" id="PRIOR_RCAROTID" value="<?php echo attr($RCAROTID); ?>"></td>
    293. 

  293.                             <td><input  disabled type="text"  name="PRIOR_LCAROTID" id="PRIOR_LCAROTID" value="<?php echo attr($LCAROTID); ?>"></td>
    294. 

  294.                         </tr>
    295. 

  295.                         <tr>
    296. 

  296.                             <td class="right"><?php echo xlt('Temporal Art.{{Temporal Artery}}'); ?></td>
    297. 

  297.                             <td><input  disabled type="text" size="1" name="PRIOR_RTEMPART" id="PRIOR_RTEMPART" value="<?php echo attr($RTEMPART); ?>"></td>
    298. 

  298.                             <td><input  disabled type="text" size="1" name="PRIOR_LTEMPART" id="PRIOR_LTEMPART" value="<?php echo attr($LTEMPART); ?>"></td>
    299. 

  299.                         </tr>
    300. 

  300.                         <tr>
    301. 

  301.                             <td class="right"><?php echo xlt('CN V{{cranial nerve five}}'); ?></td>
    302. 

  302.                             <td><input  disabled type="text" size="1" name="PRIOR_RCNV" id="PRIOR_RCNV" value="<?php echo attr($RCNV); ?>"></td>
    303. 

  303.                             <td><input  disabled type="text" size="1" name="PRIOR_LCNV" id="PRIOR_LCNV" value="<?php echo attr($LCNV); ?>"></td>
    304. 

  304.                         </tr>
    305. 

  305.                         <tr>
    306. 

  306.                             <td class="right"><?php echo xlt('CN VII{{cranial nerve seven}}'); ?></td>
    307. 

  307.                             <td><input disabled type="text" size="1" name="PRIOR_RCNVII" id="PRIOR_RCNVII" value="<?php echo attr($RCNVII); ?>"></td>
    308. 

  308.                             <td><input disabled type="text" size="1" name="PRIOR_LCNVII" id="PRIOR_LCNVII" value="<?php echo attr($LCNVII); ?>"></td>
    309. 

  309.                         </tr>
    310. 

  310.                         <tr><td colspan=3 class="underline"><?php echo xlt('Hertel Exophthalmometry'); ?></td></tr>
    311. 

  311.                         <tr class="center">
    312. 

  312.                             <td>
    313. 

  313.                                 <input disabled type=text size=1 id="PRIOR_ODHERTEL" name="PRIOR_ODHERTEL" value="<?php echo attr($ODHERTEL); ?>">
    314. 

  314.                                 <i class="fa fa-minus"></i>
    315. 

  315.                             </td>
    316. 

  316.                             <td>
    317. 

  317.                                 <input disabled type=text size=3  id="PRIOR_HERTELBASE" name="PRIOR_HERTELBASE" value="<?php echo attr($HERTELBASE); ?>">
    318. 

  318.                                 <i class="fa fa-minus"></i>
    319. 

  319.                             </td>
    320. 

  320.                             <td>
    321. 

  321.                                 <input disabled type=text size=1  id="PRIOR_OSHERTEL" name="PRIOR_OSHERTEL" value="<?php echo attr($OSHERTEL); ?>">
    322. 

  322.                             </td>
    323. 

  323.                         </tr>
    324. 

  324.                         <tr><td>&nbsp;</td></tr>
    325. 

  325.                     </table>
    326. 

  326.                 </div>
    327. 

  327. 

  328.             <?php ($EXT_VIEW == 1) ? ($display_EXT_view = "wide_textarea") : ($display_EXT_view = "narrow_textarea");?>
    329. 

  329.             <?php ($display_EXT_view == "wide_textarea") ? ($marker = "fa-minus-square-o") : ($marker = "fa-plus-square-o");?>
    330. 

  330.             <div id="PRIOR_EXT_text_list" name="PRIOR_EXT_text_list" class="borderShadow PRIORS <?php echo attr($display_EXT_view); ?>" >
    331. 

  331.                 <span class="top_right fa <?php echo attr($marker); ?>" name="PRIOR_EXT_text_view" id="PRIOR_EXT_text_view"></span>
    332. 

  332.                 <table cellspacing="0" cellpadding="0" >
    333. 

  333.                     <tr>
    334. 

  334.                         <th><?php echo xlt('Right'); ?></th><td style="width:100px;"></td><th><?php echo xlt('Left'); ?> </th>
    335. 

  335.                     </tr>
    336. 

  336.                     <tr>
    337. 

  337.                         <td><textarea disabled name="PRIOR_RBROW" id="PRIOR_RBROW" class="right EXT"><?php echo text($RBROW); ?></textarea></td>
    338. 

  338.                         <td class="ident"><?php echo xlt('Brow'); ?></td>
    339. 

  339.                         <td><textarea disabled name="PRIOR_LBROW" id="PRIOR_LBROW" class=""><?php echo text($LBROW); ?></textarea></td>
    340. 

  340.                     </tr>
    341. 

  341.                     <tr>
    342. 

  342.                         <td><textarea disabled name="PRIOR_RUL" id="PRIOR_RUL" class="right"><?php echo text($RUL); ?></textarea></td>
    343. 

  343.                         <td class="ident"><?php echo xlt('Upper Lids'); ?></td>
    344. 

  344.                         <td><textarea disabled name="PRIOR_LUL" id="PRIOR_LUL" class=""><?php echo text($LUL); ?></textarea></td>
    345. 

  345.                     </tr>
    346. 

  346.                     <tr>
    347. 

  347.                         <td><textarea disabled name="PRIOR_RLL" id="PRIOR_RLL" class="right"><?php echo text($RLL); ?></textarea></td>
    348. 

  348.                         <td class="ident"><?php echo xlt('Lower Lids'); ?></td>
    349. 

  349.                         <td><textarea disabled name="PRIOR_LLL" id="PRIOR_LLL" class=""><?php echo text($LLL); ?></textarea></td>
    350. 

  350.                     </tr>
    351. 

  351.                     <tr>
    352. 

  352.                         <td><textarea disabled name="PRIOR_RMCT" id="PRIOR_RMCT" class="right"><?php echo text($RMCT); ?></textarea></td>
    353. 

  353.                         <td class="ident"><?php echo xlt('Medial Canthi'); ?></td>
    354. 

  354.                         <td><textarea disabled name="PRIOR_LMCT" id="PRIOR_LMCT" class=""><?php echo text($LMCT); ?></textarea></td>
    355. 

  355.                     </tr>
    356. 

  356.                      <tr>
    357. 

  357.                         <td><textarea disabled name="PRIOR_RADNEXA" id="PRIOR_RADNEXA" class="right"><?php echo text($RADNEXA); ?></textarea></td>
    358. 

  358.                         <td class="ident"><?php echo xlt('Adnexa'); ?></td>
    359. 

  359.                         <td><textarea disabled name="PRIOR_LADNEXA" id="PRIOR_LADNEXA" class=""><?php echo text($LADNEXA); ?></textarea></td>
    360. 

  360.                     </tr>
    361. 

  361.                 </table>
    362. 

  362.             </div>
    363. 

  363.             <br />
    364. 

  364.             <div class="QP_lengthen">
    365. 

  365.                 <span style="font-weight:bold;"><?php echo xlt('Comments'); ?>:</span>
    366. 

  366.                 <br />
    367. 

  367.                 <textarea disabled id="PRIOR_EXT_COMMENTS" name="PRIOR_EXT_COMMENTS"><?php echo text($EXT_COMMENTS); ?></textarea>
    368. 

  368.             </div>
    369. 

  369. 

  370.             <?php
    371. 

  371.     } elseif ($zone == "ANTSEG") {
    372. 

  372.         if ($report == '0') {
    373. 

  373.             $output = priors_select($zone, $orig_id, $id_to_show, $pid);
    374. 

  374.         }
    375. 

  375.         ?>
    376. 

  376.         <input disabled type="hidden" id="PRIORS_<?php echo attr($zone); ?>_prefix" name="PRIORS_<?php echo attr($zone); ?>_prefix" value="">
    377. 

  377.         <span class="closeButton float-right fas fa-times" id="Close_PRIORS_<?php echo attr($zone); ?>" name="Close_PRIORS_<?php echo attr($zone); ?>"></span>
    378. 

  378.         <div name="prior_selector">
    379. 

  379.                 <?php
    380. 

  380.                 echo $output;
    381. 

  381.                 ?>
    382. 

  382.         </div>
    383. 

  383. 

  384.         <span style="font-weight:bold;"> <?php echo xlt('Prior Exam'); ?>:</span>
    385. 

  385.         <br />
    386. 

  386.         <div class="text_clinical" id="PRIORS_ANTSEG_left_1">
    387. 

  387.             <table>
    388. 

  388.                 <?php
    389. 

  389.                     list($imaging,$episode) = display($pid, $encounter, "ANTSEG");
    390. 

  390.                     echo $episode;
    391. 

  391.                 ?>
    392. 

  392.             </table>
    393. 

  393.             <table>
    394. 

  394.                 <tr >
    395. 

  395.                     <td></td><td><?php echo xlt('R{{right}}'); ?></td><td><?php echo xlt('L{{left}}'); ?></td>
    396. 

  396.                 </tr>
    397. 

  397.                 <tr>
    398. 

  398.                     <td class="right" ><?php echo xlt('Gonio{{Gonioscopy abbreviation}}'); ?></td>
    399. 

  399.                     <td><input disabled  type="text" name="PRIOR_ODGONIO" id="PRIOR_ODGONIO" value="<?php echo attr($ODGONIO); ?>"></td>
    400. 

  400.                     <td><input disabled  type="text" name="PRIOR_OSGONIO" id="PRIOR_OSGONIO" value="<?php echo attr($OSGONIO); ?>"></td>
    401. 

  401.                 </tr>
    402. 

  402.                 <tr>
    403. 

  403.                     <td class="right" ><?php echo xlt('Pachymetry'); ?></td>
    404. 

  404.                     <td><input disabled type="text" name="PRIOR_ODKTHICKNESS" id="PRIOR_ODKTHICKNESS" value="<?php echo attr($ODKTHICKNESS); ?>"></td>
    405. 

  405.                     <td><input disabled type="text" name="PRIOR_OSKTHICKNESS" id="PRIOR_OSKTHICKNESS" value="<?php echo attr($OSKTHICKNESS); ?>"></td>
    406. 

  406.                 </tr>
    407. 

  407.                 <tr>
    408. 

  408.                     <td class="right" title="<?php echo xla('Schirmers I (w/o anesthesia)'); ?>"><?php echo xlt('Schirmer I'); ?></td>
    409. 

  409.                     <td><input disabled type="text" name="PRIOR_ODSCHIRMER1" id="PRIOR_ODSCHIRMER1" value="<?php echo attr($ODSCHIRMER1); ?>"></td>
    410. 

  410.                     <td><input disabled type="text" name="PRIOR_OSSCHRIMER2" id="PRIOR_OSSCHIRMER1" value="<?php echo attr($OSSCHIRMER1); ?>"></td>
    411. 

  411.                 </tr>
    412. 

  412.                 <tr>
    413. 

  413.                     <td class="right" title="<?php echo xla('Schirmers II (w/ anesthesia)'); ?>"><?php echo xlt('Schirmer II'); ?></td>
    414. 

  414.                     <td><input disabled type="text" name="PRIOR_ODSCHIRMER2" id="PRIOR_ODSCHIRMER2" value="<?php echo attr($ODSCHIRMER2); ?>"></td>
    415. 

  415.                     <td><input disabled type="text" name="PRIOR_OSSCHRIMER2" id="PRIOR_OSSCHIRMER2" value="<?php echo attr($OSSCHIRMER2); ?>"></td>
    416. 

  416.                 </tr>
    417. 

  417.                 <tr>
    418. 

  418.                     <td class="right" title="<?php echo xla('Tear Break Up Time'); ?>"><?php echo xlt('TBUT{{tear breakup time}}'); ?></td>
    419. 

  419.                     <td><input disabled type="text" name="PRIOR_ODTBUT" id="PRIOR_ODTBUT" value="<?php echo attr($ODTBUT); ?>"></td>
    420. 

  420.                     <td><input disabled type="text" name="PRIOR_OSTBUT" id="PRIOR_OSTBUT" value="<?php echo attr($OSTBUT); ?>"></td>
    421. 

  421.                 </tr>
    422. 

  422.                 <tr>
    423. 

  423.                   <td colspan="3" rowspan="4" id="PRIORS_dil_box" nowrap="">
    424. 

  424.                     <br />
    425. 

  425.                     <?php
    426. 

  426.                     // This is going to be based off a list in the near future
    427. 

  427.                     // to allow for end-user customization
    428. 

  428.                     ?>
    429. 

  429.                     <span id="PRIORS_dil_listbox_title"><?php echo xlt('Dilation'); ?>:</span>
    430. 

  430.                       <span id="PRIORS_dil_meds" class="float-right"><?php
    431. 

  431.                         if ($DIL_MEDS) {
    432. 

  432.                             echo text($DIL_MEDS);
    433. 

  433.                         }
    434. 

  434.                         ?></span>
    435. 

  435.                     <br />
    436. 

  436.                     <table id="PRIORS_dil_listbox">
    437. 

  437.                       <tr>
    438. 

  438.                         <td>
    439. 

  439.                             <input disabled type="checkbox" class="dil_drug" id="PRIORS_CycloMydril" name="PRIORS_CYCLOMYDRIL" value="Cyclomydril" <?php
    440. 

  440.                             if ($CYCLOMYDRIL == 'Cyclomydril') {
    441. 

  441.                                 echo "checked='checked'";
    442. 

  442.                             } ?> />
    443. 

  443.                             <label for="CycloMydril" class="input-helper input-helper--checkbox"><?php echo text('CycloMydril'); ?></label>
    444. 

  444.                         </td>
    445. 

  445.                         <td>
    446. 

  446.                             <input disabled type="checkbox" class="dil_drug" id="PRIORS_Tropicamide" name="PRIORS_TROPICAMIDE" value="Tropicamide 2.5%" <?php
    447. 

  447.                             if ($TROPICAMIDE == 'Tropicamide 2.5%') {
    448. 

  448.                                 echo "checked='checked'";
    449. 

  449.                             } ?> />
    450. 

  450.                             <label for="Tropicamide" class="input-helper input-helper--checkbox"><?php echo text('Tropic 2.5%'); ?></label>
    451. 

  451.                         </td>
    452. 

  452.                       </tr>
    453. 

  453.                       <tr>
    454. 

  454.                         <td>
    455. 

  455.                             <input disabled type="checkbox" class="dil_drug" id="PRIORS_Neo25" name="PRIORS_NEO25" value="Neosynephrine 2.5%"  <?php
    456. 

  456.                             if ($NEO25 == 'Neosynephrine 2.5%') {
    457. 

  457.                                 echo "checked='checked'";
    458. 

  458.                             } ?> />
    459. 

  459.                             <label for="Neo25" class="input-helper input-helper--checkbox"><?php echo text('Neo 2.5%'); ?></label>
    460. 

  460.                         </td>
    461. 

  461.                         <td>
    462. 

  462.                             <input disabled type="checkbox" class="dil_drug" id="PRIORS_Neo10" name="PRIORS_NEO10" value="Neosynephrine 10%"  <?php
    463. 

  463.                             if ($NEO10 == 'Neosynephrine 10%') {
    464. 

  464.                                 echo "checked='checked'";
    465. 

  465.                             } ?> />
    466. 

  466.                             <label for="Neo10" class="input-helper input-helper--checkbox"><?php echo text('Neo 10%'); ?></label>
    467. 

  467.                         </td>
    468. 

  468.                       </tr>
    469. 

  469.                       <tr>
    470. 

  470.                         <td>
    471. 

  471.                             <input disabled type="checkbox" class="dil_drug" id="PRIORS_Cyclogyl" style="left:150px;" name="PRIORS_CYCLOGYL" value="Cyclopentolate 1%"  <?php
    472. 

  472.                             if ($CYCLOGYL == 'Cyclopentolate 1%') {
    473. 

  473.                                 echo "checked='checked'";
    474. 

  474.                             } ?> />
    475. 

  475.                             <label for="Cyclogyl" class="input-helper input-helper--checkbox"><?php echo text('Cyclo 1%'); ?></label>
    476. 

  476.                         </td>
    477. 

  477.                         <td>
    478. 

  478.                             <input disabled type="checkbox" class="dil_drug" id="PRIORS_Atropine" name="PRIORS_ATROPINE" value="Atropine 1%"  <?php
    479. 

  479.                             if ($ATROPINE == 'Atropine 1%') {
    480. 

  480.                                 echo "checked='checked'";
    481. 

  481.                             } ?> />
    482. 

  482.                             <label for="Atropine" class="input-helper input-helper--checkbox"><?php echo text('Atropine 1%'); ?></label>
    483. 

  483.                         </td>
    484. 

  484.                       </tr>
    485. 

  485.                     </table>
    486. 

  486.                   </td>
    487. 

  487.                 </tr>
    488. 

  488.             </table>
    489. 

  489.         </div>
    490. 

  490.         <?php ($ANTSEG_VIEW == '1') ? ($display_ANTSEG_view = "wide_textarea") : ($display_ANTSEG_view = "narrow_textarea");?>
    491. 

  491.         <?php ($display_ANTSEG_view == "wide_textarea") ? ($marker = "fa-minus-square-o") : ($marker = "fa-plus-square-o");?>
    492. 

  492.         <div id="PRIOR_ANTSEG_text_list"  name="PRIOR_ANTSEG_text_list" class="borderShadow PRIORS <?php echo attr($display_ANTSEG_view); ?>" >
    493. 

  493.                 <span class="top_right fa <?php echo attr($marker); ?>" name="PRIOR_ANTSEG_text_view" id="PRIOR_ANTSEG_text_view"></span>
    494. 

  494.                 <table>
    495. 

  495.                     <tr>
    496. 

  496.                         <th><?php echo xlt('OD{{right eye}}'); ?></th><th></th><th><?php echo xlt('OS{{left eye}}'); ?></th></td>
    497. 

  497.                     </tr>
    498. 

  498.                     <tr>
    499. 

  499.                         <td><textarea disabled name="PRIOR_ODCONJ" id="PRIOR_ODCONJ" class="right"><?php echo text($ODCONJ); ?></textarea></td>
    500. 

  500.                         <td class="ident"><?php echo xlt('Conj{{Conjunctiva}}'); ?> / <?php echo xlt('Sclera'); ?></td>
    501. 

  501.                         <td><textarea disabled name="PRIOR_OSCONJ" id="PRIOR_OSCONJ" class=""><?php echo text($OSCONJ); ?></textarea></td>
    502. 

  502.                     </tr>
    503. 

  503.                     <tr>
    504. 

  504.                         <td><textarea disabled name="PRIOR_ODCORNEA" id="PRIOR_ODCORNEA" class="right"><?php echo text($ODCORNEA); ?></textarea></td>
    505. 

  505.                         <td class="ident"><?php echo xlt('Cornea'); ?></td>
    506. 

  506.                         <td><textarea disabled name="PRIOR_OSCORNEA" id="PRIOR_OSCORNEA" class=""><?php echo text($OSCORNEA); ?></textarea></td>
    507. 

  507.                     </tr>
    508. 

  508.                     <tr>
    509. 

  509.                         <td><textarea disabled name="PRIOR_ODAC" id="PRIOR_ODAC" class="right"><?php echo text($ODAC); ?></textarea></td>
    510. 

  510.                         <td class="ident"><?php echo xlt('A/C{{anterior chamber}}'); ?></td>
    511. 

  511.                         <td><textarea disabled name="PRIOR_OSAC" id="PRIOR_OSAC" class=""><?php echo text($OSAC); ?></textarea></td>
    512. 

  512.                     </tr>
    513. 

  513.                     <tr>
    514. 

  514.                         <td><textarea disabled name="PRIOR_ODLENS" id="PRIOR_ODLENS" class=" right"><?php echo text($ODLENS); ?></textarea></td>
    515. 

  515.                         <td class="ident" ><?php echo xlt('Lens'); ?></td>
    516. 

  516.                         <td><textarea disabled name="PRIOR_OSLENS" id="PRIOR_OSLENS" class=""><?php echo text($OSLENS); ?></textarea></td>
    517. 

  517.                     </tr>
    518. 

  518.                     <tr>
    519. 

  519.                         <td><textarea disabled name="PRIOR_ODIRIS" id="PRIOR_ODIRIS" class="right"><?php echo text($ODIRIS); ?></textarea></td>
    520. 

  520.                         <td class="ident"><?php echo xlt('Iris'); ?></td>
    521. 

  521.                         <td><textarea disabled name="PRIOR_OSIRIS" id="PRIOR_OSIRIS" class=""><?php echo text($OSIRIS); ?></textarea></td>
    522. 

  522.                     </tr>
    523. 

  523.                 </table>
    524. 

  524.         </div>
    525. 

  525.         <br />
    526. 

  526.         <div class="QP_lengthen">
    527. 

  527.             <span style="font-weight:bold;"><?php echo xlt('Comments'); ?>:</span>
    528. 

  528.             <br />
    529. 

  529.             <textarea disabled id="PRIOR_ANTSEG_COMMENTS" name="PRIOR_ANTSEG_COMMENTS"><?php echo text($ANTSEG_COMMENTS); ?></textarea>
    530. 

  530.         </div>
    531. 

  531. 

  532.         <?php
    533. 

  533.     } elseif ($zone == "RETINA") {
    534. 

  534.         if ($report == '0') {
    535. 

  535.             $output = priors_select($zone, $orig_id, $id_to_show, $pid);
    536. 

  536.         }
    537. 

  537.         ?>
    538. 

  538.         <input disabled type="hidden" id="PRIORS_<?php echo attr($zone); ?>_prefix" name="PRIORS_<?php echo attr($zone); ?>_prefix" value="">
    539. 

  539.         <span class="closeButton float-right fas fa-times" id="Close_PRIORS_<?php echo attr($zone); ?>" name="Close_PRIORS_<?php echo attr($zone); ?>"></span>
    540. 

  540.         <div name="prior_selector">
    541. 

  541.                 <?php
    542. 

  542.                 echo $output;
    543. 

  543.                 ?>
    544. 

  544.         </div>
    545. 

  545.         <span style="font-weight:bold;"><?php echo xlt('Prior Exam'); ?>:</span>
    546. 

  546.         <br />
    547. 

  547.         <div id="PRIORS_RETINA_left_1" class="text_clinical">
    548. 

  548.             <table>
    549. 

  549.                 <?php
    550. 

  550.                 list($imaging,$episode) = display($pid, $encounter, "POSTSEG");
    551. 

  551.                 echo $episode;
    552. 

  552.                 ?>
    553. 

  553.             </table>
    554. 

  554.             <br />
    555. 

  555.             <table>
    556. 

  556.                 <tr class="bold">
    557. 

  557.                     <td></td>
    558. 

  558.                     <td><?php echo xlt('OD{{right eye}}'); ?> </td><td><?php echo xlt('OS{{left eye}}'); ?> </td>
    559. 

  559.                 </tr>
    560. 

  560.                 <tr>
    561. 

  561.                     <td class="bold right"><?php echo xlt('C/D Ratio{{cup to disc ration}}'); ?>:</td>
    562. 

  562.                     <td>
    563. 

  563.                         <input type="text" disabled name="PRIOR_ODCUP" size="4" id="PRIOR_ODCUP" value="<?php echo attr($ODCUP); ?>">
    564. 

  564.                     </td>
    565. 

  565.                     <td>
    566. 

  566.                         <input type="text" disabled name="PRIOR_OSCUP" size="4" id="PRIOR_OSCUP" value="<?php echo attr($OSCUP); ?>">
    567. 

  567.                     </td>
    568. 

  568.                 </tr>
    569. 

  569. 

  570.                 <tr>
    571. 

  571.                     <td class="bold right">
    572. 

  572.                         <?php echo xlt('CMT{{Central Macular Thickness}}'); ?>:</td>
    573. 

  573.                     <td>
    574. 

  574.                         <input type="text" disabled name="PRIOR_ODCMT" size="4" id="PRIOR_ODCMT" value="<?php echo attr($ODCMT); ?>">
    575. 

  575.                     </td>
    576. 

  576.                     <td>
    577. 

  577.                         <input type="text" disabled name="PRIOR_OSCMT" size="4" id="PRIOR_OSCMT" value="<?php echo attr($OSCMT); ?>">
    578. 

  578.                     </td>
    579. 

  579.                 </tr>
    580. 

  580.             </table>
    581. 

  581.             <br />
    582. 

  582.             <table>
    583. 

  583.                 <?php
    584. 

  584.                 list($imaging,$episode) = display($pid, $encounter, "NEURO");
    585. 

  585.                 echo $episode;
    586. 

  586.                 ?>
    587. 

  587.             </table>
    588. 

  588.         </div>
    589. 

  589. 

  590.         <?php ($RETINA_VIEW == 1) ? ($display_RETINA_view = "wide_textarea") : ($display_RETINA_view = "narrow_textarea");?>
    591. 

  591.         <?php ($display_RETINA_view == "wide_textarea") ? ($marker = "fa-minus-square-o") : ($marker = "fa-plus-square-o");?>
    592. 

  592.         <div>
    593. 

  593.             <div id="PRIOR_RETINA_text_list" name="PRIOR_RETINA_text_list" class="borderShadow PRIORS <?php echo attr($display_RETINA_view); ?>">
    594. 

  594.                     <span class="top_right fa <?php echo attr($marker); ?>" name="PRIOR_RETINA_text_view" id="PRIOR_RETINA_text_view"></span>
    595. 

  595.                     <table cellspacing="0" cellpadding="0">
    596. 

  596.                         <tr>
    597. 

  597.                             <th><?php echo xlt('OD{{right eye}}'); ?></th><td style="width:100px;"></td><th><?php echo xlt('OS{{left eye}}'); ?></th></td>
    598. 

  598.                         </tr>
    599. 

  599.                         <tr>
    600. 

  600.                             <td><textarea disabled name="PRIOR_ODDISC" id="PRIOR_ODDISC" class="right"><?php echo text($ODDISC); ?></textarea></td>
    601. 

  601.                             <td style="text-align:center;font-size:0.9em;"><?php echo xlt('Disc'); ?></td>
    602. 

  602.                             <td><textarea disabled name="PRIOR_OSDISC" id="PRIOR_OSDISC"><?php echo text($OSDISC); ?></textarea></td>
    603. 

  603.                         </tr>
    604. 

  604.                         <tr>
    605. 

  605.                             <td><textarea disabled name="ODMACULA" id="ODMACULA" class="right"><?php echo text($ODMACULA); ?></textarea></td>
    606. 

  606.                             <td style="text-align:center;font-size:0.9em;"><?php echo xlt('Macula'); ?></td>
    607. 

  607.                             <td><textarea disabled name="PRIOR_OSMACULA" id="PRIOR_OSMACULA"><?php echo text($OSMACULA); ?></textarea></td>
    608. 

  608.                         </tr>
    609. 

  609.                         <tr>
    610. 

  610.                             <td><textarea disabled name="PRIOR_ODVESSELS" id="PRIOR_ODVESSELS" class="right"><?php echo text($ODVESSELS); ?></textarea></td>
    611. 

  611.                             <td style="text-align:center;font-size:0.9em;"><?php echo xlt('Vessels'); ?></td>
    612. 

  612.                             <td><textarea disabled name="PRIOR_OSVESSELS" id="PRIOR_OSVESSELS"><?php echo text($OSVESSELS); ?></textarea></td>
    613. 

  613.                         </tr>
    614. 

  614.                         <tr>
    615. 

  615.                             <td><textarea name="PRIOR_ODVITREOUS" id="PRIOR_ODVITREOUS" class="right"><?php echo text($ODVITREOUS); ?></textarea></td>
    616. 

  616.                             <td style="text-align:center;font-size:0.9em;" ><?php echo xlt('Vitreous'); ?></td>
    617. 

  617.                             <td><textarea name="PRIOR_OSVITREOUS" id="PRIOR_OSVITREOUS"><?php echo text($OSVITREOUS); ?></textarea></td>
    618. 

  618.                         </tr>
    619. 

  619.                         <tr>
    620. 

  620.                             <td><textarea disabled name="PRIOR_ODPERIPH" id="PRIOR_ODPERIPH" class="right"><?php echo text($ODPERIPH); ?></textarea></td>
    621. 

  621.                             <td style="text-align:center;font-size:0.9em;" class=""><?php echo xlt('Periph'); ?></td>
    622. 

  622.                             <td><textarea disabled name="PRIOR_OSPERIPH" id="PRIOR_OSPERIPH"><?php echo text($OSPERIPH); ?></textarea></td>
    623. 

  623.                         </tr>
    624. 

  624.                     </table>
    625. 

  625.             </div>
    626. 

  626.         </div>
    627. 

  627.         <br />
    628. 

  628.         <br />
    629. 

  629.         <div class="QP_lengthen">
    630. 

  630.             <SPAN style="font-weight:bold;"><?php echo xlt('Comments'); ?>:</SPAN>
    631. 

  631.             <br />
    632. 

  632.             <textarea disabled id="PRIOR_RETINA_COMMENTS" name="PRIOR_RETINA_COMMENTS" style="width:4.0in;height:3.0em;"><?php echo text($RETINA_COMMENTS); ?></textarea>
    633. 

  633.         </div>
    634. 

  634.         <?php
    635. 

  635.     } elseif ($zone == "NEURO") {
    636. 

  636.         if ($report == '0') {
    637. 

  637.             $output = priors_select($zone, $orig_id, $id_to_show, $pid);
    638. 

  638.         }
    639. 

  639.         ?>
    640. 

  640.         <input disabled type="hidden" id="PRIORS_<?php echo attr($zone); ?>_prefix" name="PRIORS_<?php echo attr($zone); ?>_prefix" value="">
    641. 

  641.         <span class="closeButton float-right fas fa-times" id="Close_PRIORS_<?php echo attr($zone); ?>" name="Close_PRIORS_<?php echo attr($zone); ?>"></span>
    642. 

  642.         <div name="prior_selector">
    643. 

  643.                 <?php
    644. 

  644.                 echo $output;
    645. 

  645.                 ?>
    646. 

  646.         </div>
    647. 

  647.         <span style="font-weight:bold;"><?php echo xlt('Prior Exam'); ?>:</span>
    648. 

  648.         <br />
    649. 

  649.         <div style="float:left;margin-top:0.8em;font-size:0.8em;">
    650. 

  650.             <div id="PRIOR_NEURO_text_list" class="borderShadow PRIORS" style="border:1pt solid black;float:left;width:195px;padding:10px;text-align:center;margin:2 2;font-weight:bold;">
    651. 

  651.                 <table style="font-size:1.0em;font-weight:600;">
    652. 

  652.                     <tr>
    653. 

  653.                         <td></td><td style="text-align:center;"><?php echo xlt('OD{{right eye}}'); ?></td><td style="text-align:center;"><?php echo xlt('OS{{left eye}}'); ?></td></tr>
    654. 

  654.                     <tr>
    655. 

  655.                         <td class="right">
    656. 

  656.                             <?php echo xlt('Color'); ?>:
    657. 

  657.                         </td>
    658. 

  658.                         <td>
    659. 

  659.                             <input disabled type="text" id="PRIOR_ODCOLOR" name="PRIOR_ODCOLOR" value="<?php
    660. 

  660.                             if ($ODCOLOR) {
    661. 

  661.                                 echo  attr($ODCOLOR);
    662. 

  662.                             } else {
    663. 

  663.                                 echo "   /   ";
    664. 

  664.                             } ?>"/>
    665. 

  665.                         </td>
    666. 

  666.                         <td>
    667. 

  667.                             <input disabled type="text" id="PRIOR_OSCOLOR" name="PRIOR_OSCOLOR" value="<?php
    668. 

  668.                             if ($OSCOLOR) {
    669. 

  669.                                 echo  attr($OSCOLOR);
    670. 

  670.                             } else {
    671. 

  671.                                 echo "   /   ";
    672. 

  672.                             } ?>"/>
    673. 

  673.                         </td>
    674. 

  674.                         <td style="text-align:bottom;">
    675. 

  675.                                                &nbsp;<span title="<?php echo xla('Insert normals - 11/11'); ?>" class="fa fa-reply"></span>
    676. 

  676.                                             </td>
    677. 

  677.                                         </tr>
    678. 

  678.                     <tr>
    679. 

  679.                         <td class="right" style="white-space: nowrap;font-size:0.9em;">
    680. 

  680.                             <span title="<?php echo xla('Variation in red color discrimination between the eyes (eg. OD=100, OS=75)'); ?>"><?php echo xlt('Red Desat{{red desaturation}}'); ?>:</span>
    681. 

  681.                         </td>
    682. 

  682.                         <td>
    683. 

  683.                             <input disabled type="text" size="6" name="PRIOR_ODREDDESAT" id="PRIOR_ODREDDESAT" value="<?php echo attr($ODREDDESAT); ?>"/>
    684. 

  684.                         </td>
    685. 

  685.                         <td>
    686. 

  686.                             <input disabled type="text" size="6" name="PRIOR_OSREDDESAT" id="PRIOR_OSREDDESAT" value="<?php echo attr($OSREDDESAT); ?>"/>
    687. 

  687.                         </td>
    688. 

  688.                         <td>&nbsp;
    689. 

  689.                             <span id="" class="fa fa-reply" name="" title="<?php echo xla('Insert normals - 100/100'); ?>"></span>
    690. 

  690.                         </td>
    691. 

  691.                     </tr>
    692. 

  692.                     <tr>
    693. 

  693.                         <td class="right" style="white-space: nowrap;font-size:0.9em;">
    694. 

  694.                             <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>
    695. 

  695.                         </td>
    696. 

  696.                         <td>
    697. 

  697.                             <input disabled type="text" size="6" name="PRIOR_ODCOINS" id="PRIOR_ODCOINS" value="<?php echo attr($ODCOINS); ?>"/>
    698. 

  698.                         </td>
    699. 

  699.                         <td>
    700. 

  700.                             <input disabled type="text" size="6" name="PRIOR_OSCOINS" id="PRIOR_OSCOINS" value="<?php echo attr($OSCOINS); ?>"/>
    701. 

  701.                         </td>
    702. 

  702.                         <td>&nbsp;
    703. 

  703.                             <span id="" class="fa fa-reply" name="" title="<?php echo xla('Insert normals - 100/100'); ?>"></span>
    704. 

  704.                          </td>
    705. 

  705.                     </tr>
    706. 

  706.                 </table>
    707. 

  707.             </div>
    708. 

  708.             <div class="borderShadow" style="position: relative;
    709. 

    710. 

  710. float: right;
    711. 

  711. 

  712. text-align: center;
    713. 

  713. 

  714. width: 260px;
    715. 

  715. 

  716. z-index: 1;
    717. 

  717. 

  718. margin: 2px 0 2px 2px;">
    719. 

  719.                 <span class="closeButton fa fa-th" id="PRIOR_Close_ACTMAIN" name="PRIOR_Close_ACTMAIN"></span>
    720. 

  720.                 <table class="ACT_top bold">
    721. 

  721.                     <tr style="text-align:left;height:26px;vertical-align:middle;width:180px;">
    722. 

  722.                         <td >
    723. 

  723.                             <span id="PRIOR_ACTTRIGGER" name="PRIOR_ACTTRIGGER" style="text-decoration:underline;"><?php echo ('Alternate Cover Test'); ?>:</span>
    724. 

  724.                         </td>
    725. 

  725.                         <td>
    726. 

  726.                             <span id="PRIOR_ACTNORMAL_CHECK" name="PRIOR_ACTNORMAL_CHECK">
    727. 

  727.                             <label for="PRIOR_ACT" class="input-helper input-helper--checkbox"><?php echo xlt('Ortho'); ?></label>
    728. 

  728.                             <input disabled type="checkbox" name="PRIOR_ACT" id="PRIOR_ACT" checked="<?php
    729. 

  729.                             if ($ACT == '1') {
    730. 

  730.                                 echo "checked";
    731. 

  731.                             } ?>"></span>
    732. 

  732.                         </td>
    733. 

  733.                     </tr>
    734. 

  734.                     <tr>
    735. 

  735.                         <td colspan="2" style="text-align:center;">
    736. 

  736.                             <br />
    737. 

  737.                             <div id="PRIOR_ACTMAIN" name="PRIOR_ACTMAIN" class="ACT_TEXT nodisplay" style="position:relative;z-index:1;margin 10 auto;">
    738. 

  738.                                <table cellpadding="0" style="position:relative;margin: 7 5 19 5;">
    739. 

  739.                                     <tr>
    740. 

  740.                                         <td id="PRIOR_ACT_tab_SCDIST" name="PRIOR_ACT_tab_SCDIST" class="ACT_selected"> <?php echo xlt('scDist{{ACT without Correction Distance}}'); ?> </td>
    741. 

  741.                                         <td id="PRIOR_ACT_tab_CCDIST" name="PRIOR_ACT_tab_CCDIST" class="ACT_deselected"> <?php echo xlt('ccDist{{ACT with Correction Distance}}'); ?> </td>
    742. 

  742.                                         <td id="PRIOR_ACT_tab_SCNEAR" name="PRIOR_ACT_tab_SCNEAR" class="ACT_deselected"> <?php echo xlt('scNear{{ACT without Correction Near}}'); ?> </td>
    743. 

  743.                                         <td id="PRIOR_ACT_tab_CCNEAR" name="PRIOR_ACT_tab_CCNEAR" class="ACT_deselected"> <?php echo xlt('ccNear{{ACT with Correction Near}}'); ?> </td>
    744. 

  744.                                     </tr>
    745. 

  745.                                     <tr>
    746. 

  746.                                         <td colspan="4" style="text-align:center;font-size:0.8em;">
    747. 

  747.                                             <div id="PRIOR_ACT_SCDIST" name="PRIOR_ACT_SCDIST" class="ACT_box">
    748. 

  748.                                                 <br />
    749. 

  749.                                                 <table>
    750. 

  750.                                                     <tr>
    751. 

  751.                                                         <td class="text-center"><?php echo xlt('R{{right}}'); ?></td>
    752. 

  752.                                                         <td style="border-right:1pt solid black;border-bottom:1pt solid black;text-align:right;">
    753. 

  753.                                                         <textarea disabled id="PRIOR_ACT1SCDIST" name="PRIOR_ACT1SCDIST" class="ACT"><?php echo text($ACT1SCDIST); ?></textarea></td>
    754. 

  754.                                                         <td style="border:1pt solid black;border-top:0pt;text-align:center;">
    755. 

  755.                                                         <textarea disabled id="PRIOR_ACT2SCDIST"  name="PRIOR_ACT2SCDIST"class="ACT"><?php echo text($ACT2SCDIST); ?></textarea></td>
    756. 

  756.                                                         <td style="border-left:1pt solid black;border-bottom:1pt solid black;text-align:left;">
    757. 

  757.                                                         <textarea disabled id="PRIOR_ACT3SCDIST"  name="PRIOR_ACT3SCDIST" class="ACT"><?php echo text($ACT3SCDIST); ?></textarea></td>
    758. 

  758.                                                         <td class="text-center"><?php echo xlt('L{{left}}'); ?></td>
    759. 

  759.                                                     </tr>
    760. 

  760.                                                     <tr>
    761. 

  761.                                                         <td class="text-center"><i class="fa fa-reply rotate-left"></i></td>
    762. 

  762.                                                         <td style="border:1pt solid black;border-left:0pt;text-align:right;">
    763. 

  763.                                                         <textarea disabled id="PRIOR_ACT4SCDIST" name="PRIOR_ACT4SCDIST" class="ACT"><?php echo text($ACT4SCDIST); ?></textarea></td>
    764. 

  764.                                                         <td style="border:1pt solid black;text-align:center;">
    765. 

  765.                                                         <textarea disabled id="PRIOR_ACT5SCDIST" name="PRIOR_ACT5SCDIST" class="ACT"><?php echo text($ACT5SCDIST); ?></textarea></td>
    766. 

  766.                                                         <td style="border:1pt solid black;border-right:0pt;text-align:left;">
    767. 

  767.                                                         <textarea disabled id="PRIOR_ACT6SCDIST" name="PRIOR_ACT6SCDIST" class="ACT"><?php echo text($ACT6SCDIST); ?></textarea></td>
    768. 

  768.                                                         <td class="text-center"><i class="fa fa-reply flip-left"></i></td>
    769. 

  769.                                                     </tr>
    770. 

  770.                                                     <tr>
    771. 

  771.                                                         <td style="border:0; border-top:2pt solid black;border-right:2pt solid black;text-align:right;">
    772. 

  772.                                                             <textarea disabled id="PRIOR_ACT10SCDIST" name="PRIOR_ACT10SCDIST" class="ACT"><?php echo text($ACT10SCDIST); ?></textarea></td>
    773. 

  773.                                                         <td style="border-right:1pt solid black;border-top:1pt solid black;text-align:right;">
    774. 

  774.                                                             <textarea disabled id="PRIOR_ACT7SCDIST" name="PRIOR_ACT7SCDIST" class="ACT"><?php echo text($ACT7SCDIST); ?></textarea></td>
    775. 

  775.                                                         <td style="border:1pt solid black;border-bottom:0pt;text-align:center;">
    776. 

  776.                                                             <textarea disabled id="PRIOR_ACT8SCDIST" name="PRIOR_ACT8SCDIST" class="ACT"><?php echo text($ACT8SCDIST); ?></textarea></td>
    777. 

  777.                                                         <td style="border-left:1pt solid black;border-top:1pt solid black;text-align:left;">
    778. 

  778.                                                             <textarea disabled id="PRIOR_ACT9SCDIST" name="PRIOR_ACT9SCDIST" class="ACT"><?php echo text($ACT9SCDIST); ?></textarea></td>
    779. 

  779.                                                         <td style="border:0; border-top:2pt solid black;border-left:2pt solid black;text-align:left;vertical-align:middle;">
    780. 

  780.                                                             <textarea disabled id="PRIOR_ACT11SCDIST" name="PRIOR_ACT11SCDIST" class="ACT"><?php echo text($ACT11SCDIST); ?></textarea>
    781. 

  781.                                                         </td>
    782. 

  782.                                                     </tr>
    783. 

  783.                                                 </table>
    784. 

  784.                                                 <br />
    785. 

  785.                                             </div>
    786. 

  786.                                             <div id="PRIOR_ACT_CCDIST" name="PRIOR_ACT_CCDIST" class="nodisplay ACT_box">
    787. 

  787.                                                 <br />
    788. 

  788.                                                 <table>
    789. 

  789.                                                    <tr>
    790. 

  790.                                                         <td class="text-center"><?php echo xlt('R{{right}}'); ?></td>
    791. 

  791.                                                         <td style="border-right:1pt solid black;border-bottom:1pt solid black;text-align:right;">
    792. 

  792.                                                         <textarea disabled id="PRIOR_ACT1CCDIST" name="PRIOR_ACT1CCDIST" class="ACT"><?php echo text($ACT1CCDIST); ?></textarea></td>
    793. 

  793.                                                         <td style="border:1pt solid black;border-top:0pt;text-align:center;">
    794. 

  794.                                                         <textarea disabled id="PRIOR_ACT2CCDIST"  name="PRIOR_ACT2CCDIST"class="ACT"><?php echo text($ACT2CCDIST); ?></textarea></td>
    795. 

  795.                                                         <td style="border-left:1pt solid black;border-bottom:1pt solid black;text-align:left;">
    796. 

  796.                                                         <textarea disabled id="PRIOR_ACT3CCDIST"  name="PRIOR_ACT3CCDIST" class="ACT"><?php echo text($ACT3CCDIST); ?></textarea></td>
    797. 

  797.                                                         <td class="text-center"><?php echo xlt('L{{left}}'); ?></td>
    798. 

  798.                                                     </tr>
    799. 

  799.                                                     <tr>
    800. 

  800.                                                         <td class="text-center"><i class="fa fa-reply rotate-left"></i></td>
    801. 

  801.                                                         <td style="border:1pt solid black;border-left:0pt;text-align:right;">
    802. 

  802.                                                         <textarea disabled id="PRIOR_ACT4CCDIST" name="PRIOR_ACT4CCDIST" class="ACT"><?php echo text($ACT4CCDIST); ?></textarea></td>
    803. 

  803.                                                         <td style="border:1pt solid black;text-align:center;">
    804. 

  804.                                                         <textarea disabled id="PRIOR_ACT5CCDIST" name="PRIOR_ACT5CCDIST" class="ACT"><?php echo text($ACT5CCDIST); ?></textarea></td>
    805. 

  805.                                                         <td class="text-center">
    806. 

  806.                                                         <textarea disabled id="PRIOR_ACT6CCDIST" name="PRIOR_ACT6CCDIST" class="ACT"><?php echo text($ACT6CCDIST); ?></textarea></td>
    807. 

  807.                                                         <td><i class="fa fa-reply flip-left"></i></td>
    808. 

  808.                                                     </tr>
    809. 

  809.                                                     <tr>
    810. 

  810.                                                         <td style="border:0; border-top:2pt solid black;border-right:2pt solid black;text-align:right;">
    811. 

  811.                                                             <textarea disabled id="PRIOR_ACT10CCDIST" name="PRIOR_ACT10CCDIST" class="ACT"><?php echo text($ACT10CCDIST); ?></textarea></td>
    812. 

  812.                                                         <td style="border-right:1pt solid black;border-top:1pt solid black;text-align:right;">
    813. 

  813.                                                             <textarea disabled id="PRIOR_ACT7CCDIST" name="PRIOR_ACT7CCDIST" class="ACT"><?php echo text($ACT7CCDIST); ?></textarea></td>
    814. 

  814.                                                         <td style="border:1pt solid black;border-bottom:0pt;text-align:center;">
    815. 

  815.                                                             <textarea disabled id="PRIOR_ACT8CCDIST" name="PRIOR_ACT8CCDIST" class="ACT"><?php echo text($ACT8CCDIST); ?></textarea></td>
    816. 

  816.                                                         <td style="border-left:1pt solid black;border-top:1pt solid black;text-align:left;">
    817. 

  817.                                                             <textarea disabled id="PRIOR_ACT9CCDIST" name="PRIOR_ACT9CCDIST" class="ACT"><?php echo text($ACT9CCDIST); ?></textarea></td>
    818. 

  818.                                                         <td style="border:0; border-top:2pt solid black;border-left:2pt solid black;text-align:left;vertical-align:middle;">
    819. 

  819.                                                             <textarea disabled id="PRIOR_ACT11CCDIST" name="PRIOR_ACT11CCDIST" class="ACT"><?php echo text($ACT11CCDIST); ?></textarea></td>
    820. 

  820.                                                     </tr>
    821. 

  821.                                                 </table>
    822. 

  822.                                                 <br />
    823. 

  823.                                             </div>
    824. 

  824.                                             <div id="PRIOR_ACT_SCNEAR" name="PRIOR_ACT_SCNEAR" class="nodisplay ACT_box">
    825. 

  825.                                                 <br />
    826. 

  826.                                                 <table>
    827. 

  827.                                                     <tr>
    828. 

  828.                                                         <td class="text-center"><?php echo xlt('R{{right}}'); ?></td>
    829. 

  829.                                                         <td style="border-right:1pt solid black;border-bottom:1pt solid black;text-align:right;">
    830. 

  830.                                                         <textarea disabled id="PRIOR_ACT1SCNEAR" name="PRIOR_ACT1SCNEAR" class="ACT"><?php echo text($ACT1SCNEAR); ?></textarea></td>
    831. 

  831.                                                         <td style="border:1pt solid black;border-top:0pt;text-align:center;">
    832. 

  832.                                                         <textarea disabled id="PRIOR_ACT2SCNEAR"  name="PRIOR_ACT2SCNEAR"class="ACT"><?php echo text($ACT2SCNEAR); ?></textarea></td>
    833. 

  833.                                                         <td style="border-left:1pt solid black;border-bottom:1pt solid black;text-align:left;">
    834. 

  834.                                                         <textarea disabled id="PRIOR_ACT3SCNEAR"  name="PRIOR_ACT3SCNEAR" class="ACT"><?php echo text($ACT3SCNEAR); ?></textarea></td>
    835. 

  835.                                                         <td style="text-align:center;"><?php echo xlt('L{{left}}'); ?></td>
    836. 

  836.                                                     </tr>
    837. 

  837.                                                     <tr>
    838. 

  838.                                                         <td class="text-center"><i class="fa fa-reply rotate-left"></i></td>
    839. 

  839.                                                         <td style="border:1pt solid black;border-left:0pt;text-align:right;">
    840. 

  840.                                                         <textarea disabled id="PRIOR_ACT4SCNEAR" name="PRIOR_ACT4SCNEAR" class="ACT"><?php echo text($ACT4SCNEAR); ?></textarea></td>
    841. 

  841.                                                         <td style="border:1pt solid black;text-align:center;">
    842. 

  842.                                                         <textarea disabled id="PRIOR_ACT5SCNEAR" name="PRIOR_ACT5SCNEAR" class="ACT"><?php echo text($ACT5SCNEAR); ?></textarea></td>
    843. 

  843.                                                         <td style="border:1pt solid black;border-right:0pt;text-align:left;">
    844. 

  844.                                                         <textarea disabled id="PRIOR_ACT6SCNEAR" name="PRIOR_ACT6SCNEAR" class="ACT"><?php echo text($ACT6SCNEAR); ?></textarea></td>
    845. 

  845.                                                         <td class="text-center"><i class="fa fa-reply flip-left"></i></td>
    846. 

  846.                                                     </tr>
    847. 

  847.                                                     <tr>
    848. 

  848.                                                         <td style="border:0; border-top:2pt solid black;border-right:2pt solid black;text-align:right;">
    849. 

  849.                                                             <textarea disabled id="PRIOR_ACT10SCNEAR" name="PRIOR_ACT10SCNEAR" class="ACT"><?php echo text($ACT10SCNEAR); ?></textarea></td>
    850. 

  850.                                                         <td style="border-right:1pt solid black;border-top:1pt solid black;text-align:right;">
    851. 

  851.                                                             <textarea disabled id="PRIOR_ACT7SCNEAR" name="PRIOR_ACT7SCNEAR" class="ACT"><?php echo text($ACT7SCNEAR); ?></textarea></td>
    852. 

  852.                                                         <td style="border:1pt solid black;border-bottom:0pt;text-align:center;">
    853. 

  853.                                                             <textarea disabled id="PRIOR_ACT8SCNEAR" name="PRIOR_ACT8SCNEAR" class="ACT"><?php echo text($ACT8SCNEAR); ?></textarea></td>
    854. 

  854.                                                         <td style="border-left:1pt solid black;border-top:1pt solid black;text-align:left;">
    855. 

  855.                                                             <textarea disabled id="PRIOR_ACT9SCNEAR" name="PRIOR_ACT9SCNEAR" class="ACT"><?php echo text($ACT9SCNEAR); ?></textarea></td>
    856. 

  856.                                                         <td style="border:0; border-top:2pt solid black;border-left:2pt solid black;text-align:left;vertical-align:middle;">
    857. 

  857.                                                             <textarea disabled id="PRIOR_ACT11SCNEAR" name="PRIOR_ACT11SCNEAR" class="ACT"><?php echo text($ACT11SCNEAR); ?></textarea>
    858. 

  858.                                                         </td>
    859. 

  859.                                                     </tr>
    860. 

  860.                                                 </table>
    861. 

  861.                                                 <br />
    862. 

  862.                                             </div>
    863. 

  863.                                             <div id="PRIOR_ACT_CCNEAR" name="PRIOR_ACT_CCNEAR" class="nodisplay ACT_box">
    864. 

  864.                                                 <br />
    865. 

  865.                                                 <table>
    866. 

  866.                                                     <tr>
    867. 

  867.                                                         <td class="text-center"><?php echo xlt('R{{right}}'); ?></td>
    868. 

  868.                                                         <td style="border-right:1pt solid black;border-bottom:1pt solid black;text-align:right;">
    869. 

  869.                                                         <textarea disabled id="PRIOR_ACT1CCNEAR" name="PRIOR_ACT1CCNEAR" class="ACT"><?php echo text($ACT1CCNEAR); ?></textarea></td>
    870. 

  870.                                                         <td style="border:1pt solid black;border-top:0pt;text-align:center;">
    871. 

  871.                                                         <textarea disabled id="PRIOR_ACT2CCNEAR"  name="PRIOR_ACT2CCNEAR"class="ACT"><?php echo text($ACT2CCNEAR); ?></textarea></td>
    872. 

  872.                                                         <td style="border-left:1pt solid black;border-bottom:1pt solid black;text-align:left;">
    873. 

  873.                                                         <textarea disabled id="PRIOR_ACT3CCNEAR"  name="PRIOR_ACT3CCNEAR" class="ACT"><?php echo text($ACT3CCNEAR); ?></textarea></td>
    874. 

  874.                                                         <td class="text-center"><?php echo xlt('L{{left}}'); ?></td>
    875. 

  875.                                                     </tr>
    876. 

  876.                                                     <tr>
    877. 

  877.                                                         <td class="text-center"><i class="fa fa-reply rotate-left"></i></td>
    878. 

  878.                                                         <td style="border:1pt solid black;border-left:0pt;text-align:right;">
    879. 

  879.                                                         <textarea disabled id="PRIOR_ACT4CCNEAR" name="PRIOR_ACT4CCNEAR" class="ACT"><?php echo text($ACT4CCNEAR); ?></textarea></td>
    880. 

  880.                                                         <td style="border:1pt solid black;text-align:center;">
    881. 

  881.                                                         <textarea disabled id="PRIOR_ACT5CCNEAR" name="PRIOR_ACT5CCNEAR" class="ACT"><?php echo text($ACT5CCNEAR); ?></textarea></td>
    882. 

  882.                                                         <td style="border:1pt solid black;border-right:0pt;text-align:left;">
    883. 

  883.                                                         <textarea disabled id="PRIOR_ACT6CCNEAR" name="PRIOR_ACT6CCNEAR" class="ACT"><?php echo text($ACT6CCNEAR); ?></textarea></td>
    884. 

  884.                                                         <td class="text-center"><i class="fa fa-reply flip-left"></i></td>
    885. 

  885.                                                     </tr>
    886. 

  886.                                                     <tr>
    887. 

  887.                                                         <td style="border:0; border-top:2pt solid black;border-right:2pt solid black;text-align:right;">
    888. 

  888.                                                             <textarea disabled id="PRIOR_ACT10CCNEAR" name="PRIOR_ACT10CCNEAR" class="ACT"><?php echo text($ACT10CCNEAR); ?></textarea></td>
    889. 

  889.                                                         <td style="border-right:1pt solid black;border-top:1pt solid black;text-align:right;">
    890. 

  890.                                                             <textarea disabled id="PRIOR_ACT7CCNEAR" name="PRIOR_ACT7CCNEAR" class="ACT"><?php echo text($ACT7CCNEAR); ?></textarea></td>
    891. 

  891.                                                         <td style="border:1pt solid black;border-bottom:0pt;text-align:center;">
    892. 

  892.                                                             <textarea disabled id="PRIOR_ACT8CCNEAR" name="PRIOR_ACT8CCNEAR" class="ACT"><?php echo text($ACT8CCNEAR); ?></textarea></td>
    893. 

  893.                                                         <td style="border-left:1pt solid black;border-top:1pt solid black;text-align:left;">
    894. 

  894.                                                             <textarea disabled id="PRIOR_ACT9CCNEAR" name="PRIOR_ACT9CCNEAR" class="ACT"><?php echo text($ACT9CCNEAR); ?></textarea></td>
    895. 

  895.                                                         <td style="border:0; border-top:2pt solid black;border-left:2pt solid black;text-align:left;vertical-align:middle;">
    896. 

  896.                                                             <textarea disabled id="PRIOR_ACT11CCNEAR" name="PRIOR_ACT11CCNEAR" class="ACT"><?php echo text($ACT11CCNEAR); ?></textarea>
    897. 

  897.                                                         </td>
    898. 

  898.                                                     </tr>
    899. 

  899.                                                 </table>
    900. 

  900.                                                <br />
    901. 

  901.                                             </div>
    902. 

  902.                                         </td>
    903. 

  903.                                     </tr>
    904. 

  904.                                </table>
    905. 

  905.                             </div>
    906. 

  906.                         </td>
    907. 

  907.                     </tr>
    908. 

  908.                 </table>
    909. 

  909.                 <br />
    910. 

  910.                 <div id="PRIOR_NPCNPA" name="PRIOR_NPCNPA">
    911. 

  911.                     <table style="position:relative;float:left;text-align:center;margin: 4 2;width:100%;font-size:1.0em;padding:4px;">
    912. 

  912.                         <tr style="">
    913. 

  913.                             <td style="width:50%;"></td>
    914. 

  914.                             <td style="font-weight:bold;"><?php echo xlt('OD{{right eye}}'); ?></td>
    915. 

  915.                             <td style="font-weight:bold;"><?php echo xlt('OS{{left eye}}'); ?></td>
    916. 

  916.                         </tr>
    917. 

  917.                         <tr>
    918. 

  918.                             <td class="right"><span title="<?php echo xla('Near Point of Accomodation'); ?>"><?php echo xlt('NPA{{near point of accomodation}}'); ?>:</span></td>
    919. 

  919.                             <td><input disabled type="text" id="PRIOR_ODNPA" style="width:70%;" name="PRIOR_ODNPA" value="<?php echo attr($ODNPA); ?>"></td>
    920. 

  920.                             <td><input disabled type="text" id="PRIOR_OSNPA" style="width:70%;" name="PRIOR_OSNPA" value="<?php echo attr($OSNPA); ?>"></td>
    921. 

  921.                         </tr>
    922. 

  922.                         <tr>
    923. 

  923.                             <td class="right"><span title="<?php echo xla('Near Point of Convergence'); ?>"><?php echo xlt('NPC{{near point of convergence}}'); ?>:</span></td>
    924. 

  924.                             <td colspan="2" ><input disabled type="text" style="width:85%;" id="PRIOR_NPC" name="PRIOR_NPC" value="<?php echo attr($NPC); ?>">
    925. 

  925.                             </td>
    926. 

  926.                         </tr>
    927. 

  927.                          <tr>
    928. 

  928.                             <td class="right">
    929. 

  929.                                 <?php echo xlt('Stereopsis'); ?>:
    930. 

  930.                             </td>
    931. 

  931.                             <td colspan="2">
    932. 

  932.                                 <input disabled type="text" style="width:85%;" name="PRIOR_STEREOPSIS" id="PRIOR_STEREOPSIS" value="<?php echo attr($STEREOPSIS); ?>">
    933. 

  933.                             </td>
    934. 

  934.                         </tr>
    935. 

  935.                         <tr>
    936. 

  936.                             <td colspan="3">&nbsp;</td>
    937. 

  937.                         </tr>
    938. 

  938.                         <tr><td class="bold underline"><?php echo xlt('Amplitudes'); ?>:</td>
    939. 

  939.                             <td ><?php echo xlt('Distance'); ?></td>
    940. 

  940.                             <td><?php echo xlt('Near'); ?></td>
    941. 

  941.                         </tr>
    942. 

  942.                         <tr>
    943. 

  943.                             <td style="text-align:right;"><?php echo xlt('Divergence'); ?>:</td>
    944. 

  944.                             <td><input disabled type="text" id="PRIOR_DACCDIST" name="PRIOR_DACCDIST" value="<?php echo attr($DACCDIST); ?>"></td>
    945. 

  945.                             <td><input disabled type="text" id="PRIOR_DACCNEAR" name="PRIOR_DACCNEAR" value="<?php echo attr($DACCNEAR); ?>"></td></tr>
    946. 

  946.                         <tr>
    947. 

  947.                             <td style="text-align:right;"><?php echo xlt('Convergence'); ?>:</td>
    948. 

  948.                             <td><input disabled type="text" id="PRIOR_CACCDIST" name="PRIOR_CACCDIST" value="<?php echo attr($CACCDIST); ?>"></td>
    949. 

  949.                             <td><input disabled type="text" id="PRIOR_CACCNEAR" name="PRIOR_CACCNEAR" value="<?php echo attr($CACCNEAR); ?>"></td></tr>
    950. 

  950.                         </tr>
    951. 

  951.                          <tr>
    952. 

  952.                             <td class="right">
    953. 

  953.                                 <?php echo xlt('Vertical Fusional'); ?>:
    954. 

  954.                             </td>
    955. 

  955.                             <td colspan="2">
    956. 

  956.                                 <input disabled type="text" style="width:90%;" name="PRIOR_VERTFUSAMPS" id="PRIOR_VERTFUSAMPS" value="<?php echo attr($VERTFUSAMPS); ?>">
    957. 

  957.                                 <br />
    958. 

  958.                             </td>
    959. 

  959.                         </tr>
    960. 

  960.                     </table>
    961. 

  961.                 </div>
    962. 

  962. 

  963.             </div>
    964. 

  964.                 <?php
    965. 

  965.                 $hash_tag = '<i class="fa fa-minus"></i>';
    966. 

  966.                 if ($MOTILITY_RS > '0') {
    967. 

  967.                     $PRIOR_MOTILITYNORMAL = '';
    968. 

  968.                     for ($index = 1; $index <= $MOTILITY_RS; ++$index) {
    969. 

  969.                         $here = "PRIOR_MOTILITY_RS_" . $index;
    970. 

  970.                         $$here = $hash_tag;
    971. 

  971.                     }
    972. 

  972.                 }
    973. 

  973. 

  974.                 if ($MOTILITY_RI > '0') {
    975. 

  975.                     $PRIOR_MOTILITYNORMAL = '';
    976. 

  976.                     for ($index = 1; $index <= $MOTILITY_RI; ++$index) {
    977. 

  977.                         $here = "PRIOR_MOTILITY_RI_" . $index;
    978. 

  978.                         $$here = $hash_tag;
    979. 

  979.                     }
    980. 

  980.                 }
    981. 

  981. 

  982.                 if ($MOTILITY_LS > '0') {
    983. 

  983.                     $PRIOR_MOTILITYNORMAL = '';
    984. 

  984.                     for ($index = 1; $index <= $MOTILITY_LS; ++$index) {
    985. 

  985.                         $here = "PRIOR_MOTILITY_LS_" . $index;
    986. 

  986.                         $$here = $hash_tag;
    987. 

  987.                     }
    988. 

  988.                 }
    989. 

  989. 

  990.                 if ($MOTILITY_LI > '0') {
    991. 

  991.                     $PRIOR_MOTILITYNORMAL = '';
    992. 

  992.                     for ($index = 1; $index <= $MOTILITY_LI; ++$index) {
    993. 

  993.                         $here = "PRIOR_MOTILITY_LI_" . $index;
    994. 

  994.                         $$here = $hash_tag;
    995. 

  995.                     }
    996. 

  996.                 }
    997. 

  997. 

  998.                 if ($MOTILITY_RRSO > '0') {
    999. 

  999.                     $PRIOR_MOTILITYNORMAL = '';
    1000. 

  1000.                     for ($index = 1; $index <= $MOTILITY_RRSO; ++$index) {
    1001. 

  1001.                         $here = "PRIOR_MOTILITY_RRSO_" . $index;
    1002. 

  1002.                         $$here = $hash_tag;
    1003. 

  1003.                     }
    1004. 

  1004.                 }
    1005. 

  1005. 

  1006.                 if ($MOTILITY_LRSO > '0') {
    1007. 

  1007.                     $PRIOR_MOTILITYNORMAL = '';
    1008. 

  1008.                     for ($index = 1; $index <= $MOTILITY_LRSO; ++$index) {
    1009. 

  1009.                         $here = "PRIOR_MOTILITY_LRSO_" . $index;
    1010. 

  1010.                         $$here = $hash_tag;
    1011. 

  1011.                     }
    1012. 

  1012.                 }
    1013. 

  1013. 

  1014.                 if ($MOTILITY_RLIO > '0') {
    1015. 

  1015.                     $PRIOR_MOTILITYNORMAL = '';
    1016. 

  1016.                     for ($index = 1; $index <= $MOTILITY_RLIO; ++$index) {
    1017. 

  1017.                         $here = "PRIOR_MOTILITY_RLIO_" . $index;
    1018. 

  1018.                         $$here = $hash_tag;
    1019. 

  1019.                     }
    1020. 

  1020.                 }
    1021. 

  1021. 

  1022.                 if ($MOTILITY_LLIO > '0') {
    1023. 

  1023.                     $PRIOR_MOTILITYNORMAL = '';
    1024. 

  1024.                     for ($index = 1; $index <= $MOTILITY_LLIO; ++$index) {
    1025. 

  1025.                         $here = "PRIOR_MOTILITY_LLIO_" . $index;
    1026. 

  1026.                         $$here = $hash_tag;
    1027. 

  1027.                     }
    1028. 

  1028.                 }
    1029. 

  1029. 

  1030.                 if ($MOTILITY_RLSO > '0') {
    1031. 

  1031.                     $PRIOR_MOTILITYNORMAL = '';
    1032. 

  1032.                     for ($index = 1; $index <= $MOTILITY_RLSO; ++$index) {
    1033. 

  1033.                         $here = "PRIOR_MOTILITY_RLSO_" . $index;
    1034. 

  1034.                         $$here = $hash_tag;
    1035. 

  1035.                     }
    1036. 

  1036.                 }
    1037. 

  1037. 

  1038.                 if ($MOTILITY_LLSO > '0') {
    1039. 

  1039.                     $PRIOR_MOTILITYNORMAL = '';
    1040. 

  1040.                     for ($index = 1; $index <= $MOTILITY_LLSO; ++$index) {
    1041. 

  1041.                         $here = "PRIOR_MOTILITY_LLSO_" . $index;
    1042. 

  1042.                         $$here = $hash_tag;
    1043. 

  1043.                     }
    1044. 

  1044.                 }
    1045. 

  1045. 

  1046.                 if ($MOTILITY_RRIO > '0') {
    1047. 

  1047.                     $PRIOR_MOTILITYNORMAL = '';
    1048. 

  1048.                     for ($index = 1; $index <= $MOTILITY_RRIO; ++$index) {
    1049. 

  1049.                         $here = "PRIOR_MOTILITY_RRIO_" . $index;
    1050. 

  1050.                         $$here = $hash_tag;
    1051. 

  1051.                     }
    1052. 

  1052.                 }
    1053. 

  1053. 

  1054.                 if ($MOTILITY_LRIO > '0') {
    1055. 

  1055.                     $PRIOR_MOTILITYNORMAL = '';
    1056. 

  1056.                     for ($index = 1; $index <= $MOTILITY_LRIO; ++$index) {
    1057. 

  1057.                         $here = "PRIOR_MOTILITY_LRIO_" . $index;
    1058. 

  1058.                         $$here = $hash_tag;
    1059. 

  1059.                     }
    1060. 

  1060.                 }
    1061. 

  1061. 

  1062. 

  1063.                 $hash_tag = '<i class="fa fa-minus rotate-left"></i>';
    1064. 

  1064.                 if ($MOTILITY_LR > '0') {
    1065. 

  1065.                     $PRIOR_MOTILITYNORMAL = '';
    1066. 

  1066.                     for ($index = 1; $index <= $MOTILITY_LR; ++$index) {
    1067. 

  1067.                         $here = "PRIOR_MOTILITY_LR_" . $index;
    1068. 

  1068.                         $$here = $hash_tag;
    1069. 

  1069.                     }
    1070. 

  1070.                 }
    1071. 

  1071. 

  1072.                 if ($MOTILITY_LL > '0') {
    1073. 

  1073.                     $PRIOR_MOTILITYNORMAL = '';
    1074. 

  1074.                     for ($index = 1; $index <= $MOTILITY_LL; ++$index) {
    1075. 

  1075.                         $here = "PRIOR_MOTILITY_LL_" . $index;
    1076. 

  1076.                         $$here = $hash_tag;
    1077. 

  1077.                     }
    1078. 

  1078.                 }
    1079. 

  1079. 

  1080.                 if ($MOTILITY_RR > '0') {
    1081. 

  1081.                     $PRIOR_MOTILITYNORMAL = '';
    1082. 

  1082.                     for ($index = 1; $index <= $MOTILITY_RR; ++$index) {
    1083. 

  1083.                         $here = "PRIOR_MOTILITY_RR_" . $index;
    1084. 

  1084.                         $$here = $hash_tag;
    1085. 

  1085.                     }
    1086. 

  1086.                 }
    1087. 

  1087. 

  1088.                 if ($MOTILITY_RL > '0') {
    1089. 

  1089.                     $PRIOR_MOTILITYNORMAL = '';
    1090. 

  1090.                     for ($index = 1; $index <= $MOTILITY_RL; ++$index) {
    1091. 

  1091.                         $here = "PRIOR_MOTILITY_RL_" . $index;
    1092. 

  1092.                         $$here = $hash_tag;
    1093. 

  1093.                     }
    1094. 

  1094.                 }
    1095. 

  1095.                 ?>
    1096. 

  1096.             <div id="PRIOR_NEURO_MOTILITY" class="text_clinical borderShadow"
    1097. 

  1097.                 style="float:left;font-size:0.9em;margin:2 2;padding: 0 10;font-weight:bold;height:134px;width:195px;">
    1098. 

  1098.                 <div>
    1099. 

  1099.                     <table style="width:100%;margin:0 0 1 0;">
    1100. 

  1100.                         <tr>
    1101. 

  1101.                             <td style="width:40%;font-size:0.9em;margin:0 auto;font-weight:bold;"><?php echo xlt('Motility'); ?>:</td>
    1102. 

  1102.                             <td style="font-size:0.9em;vertical-align:middle;text-align:right;top:0.0in;right:0.1in;height:30px;">
    1103. 

  1103.                                 <label for="PRIOR_MOTILITYNORMAL" class="input-helper input-helper--checkbox"><?php echo xlt('Normal'); ?></label>
    1104. 

  1104.                                 <input disabled id="PRIOR_MOTILITYNORMAL" name="PRIOR_MOTILITYNORMAL" type="checkbox" value="1" <?php
    1105. 

  1105.                                 if ($MOTILITYNORMAL > '0') {
    1106. 

  1106.                                     echo "checked";
    1107. 

  1107.                                 } ?> disabled>
    1108. 

  1108.                             </td>
    1109. 

  1109.                         </tr>
    1110. 

  1110.                     </table>
    1111. 

  1111.                 </div>
    1112. 

  1112.                 <input disabled type="hidden" name="PRIOR_MOTILITY_RS"  id="PRIOR_MOTILITY_RS" value="<?php echo attr($MOTILITY_RS); ?>">
    1113. 

  1113.                 <input disabled type="hidden" name="PRIOR_MOTILITY_RI"  id="PRIOR_MOTILITY_RI" value="<?php echo attr($MOTILITY_RI); ?>">
    1114. 

  1114.                 <input disabled type="hidden" name="PRIOR_MOTILITY_RR"  id="PRIOR_MOTILITY_RR" value="<?php echo attr($MOTILITY_RR); ?>">
    1115. 

  1115.                 <input disabled type="hidden" name="PRIOR_MOTILITY_RL"  id="PRIOR_MOTILITY_RL" value="<?php echo attr($MOTILITY_RL); ?>">
    1116. 

  1116.                 <input disabled type="hidden" name="PRIOR_MOTILITY_LS"  id="PRIOR_MOTILITY_LS" value="<?php echo attr($MOTILITY_LS); ?>">
    1117. 

  1117.                 <input disabled type="hidden" name="PRIOR_MOTILITY_LI"  id="PRIOR_MOTILITY_LI" value="<?php echo attr($MOTILITY_LI); ?>">
    1118. 

  1118.                 <input disabled type="hidden" name="PRIOR_MOTILITY_LR"  id="PRIOR_MOTILITY_LR" value="<?php echo attr($MOTILITY_LR); ?>">
    1119. 

  1119.                 <input disabled type="hidden" name="PRIOR_MOTILITY_LL"  id="PRIOR_MOTILITY_LL" value="<?php echo attr($MOTILITY_LL); ?>">
    1120. 

  1120.                 <input disabled type="hidden" name="PRIOR_MOTILITY_RRSO"  id="PRIOR_MOTILITY_RRSO" value="<?php echo attr($MOTILITY_RRSO); ?>">
    1121. 

  1121.                 <input disabled type="hidden" name="PRIOR_MOTILITY_RLSO"  id="PRIOR_MOTILITY_RLSO" value="<?php echo attr($MOTILITY_RLSO); ?>">
    1122. 

  1122.                 <input disabled type="hidden" name="PRIOR_MOTILITY_RRIO"  id="PRIOR_MOTILITY_RRIO" value="<?php echo attr($MOTILITY_RRIO); ?>">
    1123. 

  1123.                 <input disabled type="hidden" name="PRIOR_MOTILITY_RLIO"  id="PRIOR_MOTILITY_RLIO" value="<?php echo attr($MOTILITY_RLIO); ?>">
    1124. 

  1124. 

  1125.                 <input disabled type="hidden" name="PRIOR_MOTILITY_LRSO"  id="PRIOR_MOTILITY_LRSO" value="<?php echo attr($MOTILITY_LRSO); ?>">
    1126. 

  1126.                 <input disabled type="hidden" name="PRIOR_MOTILITY_LLSO"  id="PRIOR_MOTILITY_LLSO" value="<?php echo attr($MOTILITY_LLSO); ?>">
    1127. 

  1127.                 <input disabled type="hidden" name="PRIOR_MOTILITY_LRIO"  id="PRIOR_MOTILITY_LRIO" value="<?php echo attr($MOTILITY_LRIO); ?>">
    1128. 

  1128.                 <input disabled type="hidden" name="PRIOR_MOTILITY_LLIO"  id="PRIOR_MOTILITY_LLIO" value="<?php echo attr($MOTILITY_LLIO); ?>">
    1129. 

  1129. 

  1130.                 <div style="float:left;left:0.4in;text-decoration:underline;"><?php echo xlt('OD{{right eye}}'); ?></div>
    1131. 

  1131.                 <div style="float:right;right:0.4in;text-decoration:underline;"><?php echo xlt('OS{{left eye}}'); ?></div><br />
    1132. 

  1132.                 <div class="divTable" style="background: url(../../forms/<?php echo $form_folder; ?>/images/eom.bmp) no-repeat center center;background-size: 90% 75%;height:0.77in;width:0.71in;padding:1px;margin:6 1 1 2;">
    1133. 

  1133.                     <div class="divRow">
    1134. 

  1134.                         <div class="divCell">&nbsp;</div>
    1135. 

  1135.                     </div>
    1136. 

  1136.                     <div class="divRow">
    1137. 

  1137.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RRSO_4; ?></div>
    1138. 

  1138.                         <div class="divCell">&nbsp;</div>
    1139. 

  1139.                         <div class="divCell">&nbsp;</div>
    1140. 

  1140.                         <div class="divCell">&nbsp;</div>
    1141. 

  1141.                         <div class="divCell" name="PRIOR_MOTILITY_RS_4_3" id="PRIOR_MOTILITY_RS_4_3">&nbsp;</div>
    1142. 

  1142.                         <div class="divCell" name="PRIOR_MOTILITY_RS_4_1" id="PRIOR_MOTILITY_RS_4_1">&nbsp;</div>
    1143. 

  1143.                         <div class="divCell" name="PRIOR_MOTILITY_RS_4" id="PRIOR_MOTILITY_RS_4"><?php echo $PRIOR_MOTILITY_RS_4; ?></div>
    1144. 

  1144.                         <div class="divCell" name="PRIOR_MOTILITY_RS_4_2" id="PRIOR_MOTILITY_RS_4_2">&nbsp;</div>
    1145. 

  1145.                         <div class="divCell" name="PRIOR_MOTILITY_RS_4_4" id="PRIOR_MOTILITY_RS_4_4">&nbsp;</div>
    1146. 

  1146.                         <div class="divCell">&nbsp;</div>
    1147. 

  1147.                         <div class="divCell">&nbsp;</div>
    1148. 

  1148.                         <div class="divCell">&nbsp;</div>
    1149. 

  1149.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RLSO_4; ?></div>
    1150. 

  1150.                     </div>
    1151. 

  1151.                     <div class="divRow">
    1152. 

  1152.                         <div class="divCell">&nbsp;</div>
    1153. 

  1153.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RRSO_3; ?></div>
    1154. 

  1154.                         <div class="divCell">&nbsp;</div>
    1155. 

  1155.                         <div class="divCell">&nbsp;</div>
    1156. 

  1156.                         <div class="divCell">&nbsp;</div>
    1157. 

  1157.                         <div class="divCell" name="PRIOR_MOTILITY_RS_3_1" id="PRIOR_MOTILITY_RS_3_1">&nbsp;</div>
    1158. 

  1158.                         <div class="divCell" name="PRIOR_MOTILITY_RS_3" id="PRIOR_MOTILITY_RS_3"><?php echo $PRIOR_MOTILITY_RS_3; ?></div>
    1159. 

  1159.                         <div class="divCell" name="PRIOR_MOTILITY_RS_3_2" id="PRIOR_MOTILITY_RS_3_2">&nbsp;</div>
    1160. 

  1160.                         <div class="divCell">&nbsp;</div>
    1161. 

  1161.                         <div class="divCell">&nbsp;</div>
    1162. 

  1162.                         <div class="divCell">&nbsp;</div>
    1163. 

  1163.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RLSO_3; ?></div>
    1164. 

  1164.                         <div class="divCell">&nbsp;</div>
    1165. 

  1165.                     </div>
    1166. 

  1166.                     <div class="divRow">
    1167. 

  1167.                         <div class="divCell">&nbsp;</div>
    1168. 

  1168.                         <div class="divCell">&nbsp;</div>
    1169. 

  1169.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RRSO_2; ?></div>
    1170. 

  1170.                         <div class="divCell">&nbsp;</div>
    1171. 

  1171.                         <div class="divCell">&nbsp;</div>
    1172. 

  1172.                         <div class="divCell" name="PRIOR_MOTILITY_RS_2_1" id="PRIOR_MOTILITY_RS_2_1">&nbsp;</div>
    1173. 

  1173.                         <div class="divCell" name="PRIOR_MOTILITY_RS_2" id="PRIOR_MOTILITY_RS_2"><?php echo $PRIOR_MOTILITY_RS_2; ?></div>
    1174. 

  1174.                         <div class="divCell" name="PRIOR_MOTILITY_RS_2_2" id="PRIOR_MOTILITY_RS_2_2">&nbsp;</div>
    1175. 

  1175.                         <div class="divCell">&nbsp;</div>
    1176. 

  1176.                         <div class="divCell">&nbsp;</div>
    1177. 

  1177.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RLSO_2; ?></div>
    1178. 

  1178.                         <div class="divCell">&nbsp;</div>
    1179. 

  1179.                         <div class="divCell">&nbsp;</div>
    1180. 

  1180.                     </div>
    1181. 

  1181.                     <div class="divRow">
    1182. 

  1182.                         <div class="divCell">&nbsp;</div>
    1183. 

  1183.                         <div class="divCell">&nbsp;</div>
    1184. 

  1184.                         <div class="divCell">&nbsp;</div>
    1185. 

  1185.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RRSO_1; ?></div>
    1186. 

  1186.                         <div class="divCell">&nbsp;</div>
    1187. 

  1187.                         <div class="divCell" name="PRIOR_MOTILITY_RS_1_1" id="PRIOR_MOTILITY_RS_1_1">&nbsp;</div>
    1188. 

  1188.                         <div class="divCell" name="PRIOR_MOTILITY_RS_1" id="PRIOR_MOTILITY_RS_1"><?php echo $PRIOR_MOTILITY_RS_1; ?></div>
    1189. 

  1189.                         <div class="divCell" name="PRIOR_MOTILITY_RS_1_2" id="PRIOR_MOTILITY_RS_1_2">&nbsp;</div>
    1190. 

  1190.                         <div class="divCell">&nbsp;</div>
    1191. 

  1191.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RLSO_1; ?></div>
    1192. 

  1192.                         <div class="divCell">&nbsp;</div>
    1193. 

  1193.                         <div class="divCell">&nbsp;</div>
    1194. 

  1194.                         <div class="divCell">&nbsp;</div>
    1195. 

  1195.                     </div>
    1196. 

  1196.                     <div class="divRow">
    1197. 

  1197.                         <div class="divCell">&nbsp;</div>
    1198. 

  1198.                         <div class="divCell">&nbsp;</div>
    1199. 

  1199.                         <div class="divCell">&nbsp;</div>
    1200. 

  1200.                         <div class="divCell">&nbsp;</div>
    1201. 

  1201.                         <div class="divCell">&nbsp;</div>
    1202. 

  1202.                         <div class="divCell" name="PRIOR_MOTILITY_RS_0_1" id="PRIOR_MOTILITY_RS_0_1">&nbsp;</div>
    1203. 

  1203.                         <div class="divCell" name="PRIOR_MOTILITY_RS_0" id="PRIOR_MOTILITY_RS_0">&nbsp;</div>
    1204. 

  1204.                         <div class="divCell" name="PRIOR_MOTILITY_RS_0_1" id="PRIOR_MOTILITY_RS_0_1">&nbsp;</div>
    1205. 

  1205.                         <div class="divCell">&nbsp;</div>
    1206. 

  1206.                         <div class="divCell">&nbsp;</div>
    1207. 

  1207.                         <div class="divCell">&nbsp;</div>
    1208. 

  1208.                         <div class="divCell">&nbsp;</div>
    1209. 

  1209.                         <div class="divCell">&nbsp;</div>
    1210. 

  1210.                     </div>
    1211. 

  1211.                     <div class="divMiddleRow">
    1212. 

  1212.                         <div class="divCell">&nbsp;</div>
    1213. 

  1213.                         <div class="divCell" name="PRIOR_MOTILITY_RR_4" id="PRIOR_MOTILITY_RR_4"><?php echo $PRIOR_MOTILITY_RR_4; ?></div>
    1214. 

  1214.                         <div class="divCell" name="PRIOR_MOTILITY_RR_3" id="PRIOR_MOTILITY_RR_3"><?php echo $PRIOR_MOTILITY_RR_3; ?></div>
    1215. 

  1215.                         <div class="divCell" name="PRIOR_MOTILITY_RR_2" id="PRIOR_MOTILITY_RR_2"><?php echo $PRIOR_MOTILITY_RR_2; ?></div>
    1216. 

  1216.                         <div class="divCell" name="PRIOR_MOTILITY_RR_1" id="PRIOR_MOTILITY_RR_1"><?php echo $PRIOR_MOTILITY_RR_1; ?></div>
    1217. 

  1217.                         <div class="divCell" name="PRIOR_MOTILITY_RR_0" id="PRIOR_MOTILITY_RR_0">&nbsp;</div>
    1218. 

  1218.                         <div class="divCell" name="PRIOR_MOTILITY_R0" id="PRIOR_MOTILITY_R0">&nbsp;</div>
    1219. 

  1219.                         <div class="divCell" name="PRIOR_MOTILITY_RL_0" id="PRIOR_MOTILITY_RL_0">&nbsp;</div>
    1220. 

  1220.                         <div class="divCell" name="PRIOR_MOTILITY_RL_1" id="PRIOR_MOTILITY_RL_1"><?php echo $PRIOR_MOTILITY_RL_1; ?></div>
    1221. 

  1221.                         <div class="divCell" name="PRIOR_MOTILITY_RL_2" id="PRIOR_MOTILITY_RL_2"><?php echo $PRIOR_MOTILITY_RL_2; ?></div>
    1222. 

  1222.                         <div class="divCell" name="PRIOR_MOTILITY_RL_3" id="PRIOR_MOTILITY_RL_3"><?php echo $PRIOR_MOTILITY_RL_3; ?></div>
    1223. 

  1223.                         <div class="divCell" name="PRIOR_MOTILITY_RL_4" id="PRIOR_MOTILITY_RL_4"><?php echo $PRIOR_MOTILITY_RL_4; ?></div>
    1224. 

  1224.                         <div class="divCell">&nbsp;</div>
    1225. 

  1225.                     </div>
    1226. 

  1226.                     <div class="divRow">
    1227. 

  1227.                         <div class="divCell">&nbsp;</div>
    1228. 

  1228.                         <div class="divCell">&nbsp;</div>
    1229. 

  1229.                         <div class="divCell">&nbsp;</div>
    1230. 

  1230.                         <div class="divCell">&nbsp;</div>
    1231. 

  1231.                         <div class="divCell">&nbsp;</div>
    1232. 

  1232.                         <div class="divCell" name="PRIOR_MOTILITY_RI_0_1" id="PRIOR_MOTILITY_RI_0_1">&nbsp;</div>
    1233. 

  1233.                         <div class="divCell" id="PRIOR_MOTILITY_RI_0" name="PRIOR_MOTILITY_RI_0">&nbsp;</div>
    1234. 

  1234.                         <div class="divCell" name="PRIOR_MOTILITY_RI_0_2" id="PRIOR_MOTILITY_RI_0_2">&nbsp;</div>
    1235. 

  1235.                         <div class="divCell">&nbsp;</div>
    1236. 

  1236.                         <div class="divCell">&nbsp;</div>
    1237. 

  1237.                         <div class="divCell">&nbsp;</div>
    1238. 

  1238.                         <div class="divCell">&nbsp;</div>
    1239. 

  1239.                         <div class="divCell">&nbsp;</div>
    1240. 

  1240.                     </div>
    1241. 

  1241.                     <div class="divRow">
    1242. 

  1242.                         <div class="divCell">&nbsp;</div>
    1243. 

  1243.                         <div class="divCell">&nbsp;</div>
    1244. 

  1244.                         <div class="divCell">&nbsp;</div>
    1245. 

  1245.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RRIO_1; ?></div>
    1246. 

  1246.                         <div class="divCell">&nbsp;</div>
    1247. 

  1247.                         <div class="divCell" name="PRIOR_MOTILITY_RI_1_1" id="PRIOR_MOTILITY_RI_1_1">&nbsp;</div>
    1248. 

  1248.                         <div class="divCell" id="PRIOR_MOTILITY_RI_1" name="PRIOR_MOTILITY_RI_1"><?php echo $PRIOR_MOTILITY_RI_1; ?></div>
    1249. 

  1249.                         <div class="divCell" name="PRIOR_MOTILITY_RI_1_2" id="PRIOR_MOTILITY_RI_1_2">&nbsp;</div>
    1250. 

  1250.                         <div class="divCell">&nbsp;</div>
    1251. 

  1251.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RLIO_1; ?></div>
    1252. 

  1252.                         <div class="divCell">&nbsp;</div>
    1253. 

  1253.                         <div class="divCell">&nbsp;</div>
    1254. 

  1254.                         <div class="divCell">&nbsp;</div>
    1255. 

  1255.                     </div>
    1256. 

  1256.                     <div class="divRow">
    1257. 

  1257.                         <div class="divCell">&nbsp;</div>
    1258. 

  1258.                         <div class="divCell">&nbsp;</div>
    1259. 

  1259.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RRIO_2; ?></div>
    1260. 

  1260.                         <div class="divCell">&nbsp;</div>
    1261. 

  1261.                         <div class="divCell">&nbsp;</div>
    1262. 

  1262.                         <div class="divCell" name="PRIOR_MOTILITY_RI_2_1" id="PRIOR_MOTILITY_RI_2_1">&nbsp;</div>
    1263. 

  1263.                         <div class="divCell" id="PRIOR_MOTILITY_RI_2" name="PRIOR_MOTILITY_RI_2"><?php echo $PRIOR_MOTILITY_RI_2; ?></div>
    1264. 

  1264.                         <div class="divCell" name="PRIOR_MOTILITY_RI_2_2" id="PRIOR_MOTILITY_RI_2_2">&nbsp;</div>
    1265. 

  1265.                         <div class="divCell">&nbsp;</div>
    1266. 

  1266.                         <div class="divCell">&nbsp;</div>
    1267. 

  1267.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RLIO_2; ?></div>
    1268. 

  1268.                         <div class="divCell">&nbsp;</div>
    1269. 

  1269.                         <div class="divCell">&nbsp;</div>
    1270. 

  1270.                     </div>
    1271. 

  1271.                     <div class="divRow">
    1272. 

  1272.                         <div class="divCell">&nbsp;</div>
    1273. 

  1273.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RRIO_3; ?></div>
    1274. 

  1274.                         <div class="divCell">&nbsp;</div>
    1275. 

  1275.                         <div class="divCell" name="PRIOR_MOTILITY_RI_3_5" id="PRIOR_MOTILITY_RI_3_5">&nbsp;</div>
    1276. 

  1276.                         <div class="divCell" name="PRIOR_MOTILITY_RI_3_3" id="PRIOR_MOTILITY_RI_3_3">&nbsp;</div>
    1277. 

  1277.                         <div class="divCell" name="PRIOR_MOTILITY_RI_3_1" id="PRIOR_MOTILITY_RI_3_1">&nbsp;</div>
    1278. 

  1278.                         <div class="divCell" id="PRIOR_MOTILITY_RI_3" name="PRIOR_MOTILITY_RI_3"><?php echo $PRIOR_MOTILITY_RI_3; ?></div>
    1279. 

  1279.                         <div class="divCell" name="PRIOR_MOTILITY_RI_3_2" id="PRIOR_MOTILITY_RI_3_2">&nbsp;</div>
    1280. 

  1280.                         <div class="divCell" name="PRIOR_MOTILITY_RI_3_4" id="PRIOR_MOTILITY_RI_3_4">&nbsp;</div>
    1281. 

  1281.                         <div class="divCell" name="PRIOR_MOTILITY_RI_3_6" id="PRIOR_MOTILITY_RI_3_6">&nbsp;</div>
    1282. 

  1282.                         <div class="divCell">&nbsp;</div>
    1283. 

  1283.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RLIO_3; ?></div>
    1284. 

  1284.                         <div class="divCell"></div>
    1285. 

  1285.                     </div>
    1286. 

  1286.                     <div class="divRow">
    1287. 

  1287.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RRIO_4; ?></div>
    1288. 

  1288.                         <div class="divCell">&nbsp;</div>
    1289. 

  1289.                         <div class="divCell">&nbsp;</div>
    1290. 

  1290.                         <div class="divCell" name="PRIOR_MOTILITY_RI_4_5" id="PRIOR_MOTILITY_RI_4_5">&nbsp;</div>
    1291. 

  1291.                         <div class="divCell" name="PRIOR_MOTILITY_RI_4_3" id="PRIOR_MOTILITY_RI_4_3">&nbsp;</div>
    1292. 

  1292.                         <div class="divCell" name="PRIOR_MOTILITY_RI_4_1" id="PRIOR_MOTILITY_RI_4_1">&nbsp;</div>
    1293. 

  1293.                         <div class="divCell" id="PRIOR_MOTILITY_RI_4" name="PRIOR_MOTILITY_RI_4"><?php echo $PRIOR_MOTILITY_RI_4; ?></div>
    1294. 

  1294.                         <div class="divCell" name="PRIOR_MOTILITY_RI_4_2" id="PRIOR_MOTILITY_RI_4_2">&nbsp;</div>
    1295. 

  1295.                         <div class="divCell" name="PRIOR_MOTILITY_RI_4_4" id="PRIOR_MOTILITY_RI_4_4">&nbsp;</div>
    1296. 

  1296.                         <div class="divCell" name="PRIOR_MOTILITY_RI_4_6" id="PRIOR_MOTILITY_RI_4_6">&nbsp;</div>
    1297. 

  1297.                         <div class="divCell">&nbsp;</div>
    1298. 

  1298.                         <div class="divCell">&nbsp;</div>
    1299. 

  1299.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_RLIO_4; ?></div>
    1300. 

  1300.                     </div>
    1301. 

  1301.                     <div class="divRow">
    1302. 

  1302.                         <div class="divCell">&nbsp;</div>
    1303. 

  1303.                     </div>
    1304. 

  1304.                 </div>
    1305. 

  1305.                 <div class="divTable" style="float:right;background: url(../../forms/<?php echo $form_folder; ?>/images/eom.bmp) no-repeat center center;background-size: 90% 75%;height:0.77in;width:0.71in;padding:1px;margin:6 2 0 0;">
    1306. 

  1306.                     <div class="divRow">
    1307. 

  1307.                         <div class="divCell">&nbsp;</div>
    1308. 

  1308.                     </div>
    1309. 

  1309.                     <div class="divRow">
    1310. 

  1310.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LRSO_4; ?></div>
    1311. 

  1311.                         <div class="divCell">&nbsp;</div>
    1312. 

  1312.                         <div class="divCell">&nbsp;</div>
    1313. 

  1313.                         <div class="divCell">&nbsp;</div>
    1314. 

  1314.                         <div class="divCell" name="PRIOR_MOTILITY_LS_4_3" id="PRIOR_MOTILITY_LS_4_3">&nbsp;</div>
    1315. 

  1315.                         <div class="divCell" name="PRIOR_MOTILITY_LS_4_1" id="PRIOR_MOTILITY_LS_4_1">&nbsp;</div>
    1316. 

  1316.                         <div class="divCell" name="PRIOR_MOTILITY_LS_4" id="PRIOR_MOTILITY_LS_4"><?php echo $PRIOR_MOTILITY_LS_4; ?></div>
    1317. 

  1317.                         <div class="divCell" name="PRIOR_MOTILITY_LS_4_2" id="PRIOR_MOTILITY_LS_4_2">&nbsp;</div>
    1318. 

  1318.                         <div class="divCell" name="PRIOR_MOTILITY_LS_4_4" id="PRIOR_MOTILITY_LS_4_4">&nbsp;</div>
    1319. 

  1319.                         <div class="divCell">&nbsp;</div>
    1320. 

  1320.                         <div class="divCell">&nbsp;</div>
    1321. 

  1321.                         <div class="divCell">&nbsp;</div>
    1322. 

  1322.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LLSO_4; ?></div>
    1323. 

  1323.                     </div>
    1324. 

  1324.                     <div class="divRow">
    1325. 

  1325.                         <div class="divCell">&nbsp;</div>
    1326. 

  1326.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LRSO_3; ?></div>
    1327. 

  1327.                         <div class="divCell">&nbsp;</div>
    1328. 

  1328.                         <div class="divCell">&nbsp;</div>
    1329. 

  1329.                         <div class="divCell">&nbsp;</div>
    1330. 

  1330.                         <div class="divCell" name="PRIOR_MOTILITY_LS_3_1" id="PRIOR_MOTILITY_LS_3_1">&nbsp;</div>
    1331. 

  1331.                         <div class="divCell" name="PRIOR_MOTILITY_LS_3" id="PRIOR_MOTILITY_LS_3"><?php echo $PRIOR_MOTILITY_LS_3; ?></div>
    1332. 

  1332.                         <div class="divCell" name="PRIOR_MOTILITY_LS_3_2" id="PRIOR_MOTILITY_LS_3_2">&nbsp;</div>
    1333. 

  1333.                         <div class="divCell">&nbsp;</div>
    1334. 

  1334.                         <div class="divCell">&nbsp;</div>
    1335. 

  1335.                         <div class="divCell">&nbsp;</div>
    1336. 

  1336.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LLSO_3; ?></div>
    1337. 

  1337.                         <div class="divCell">&nbsp;</div>
    1338. 

  1338.                     </div>
    1339. 

  1339.                     <div class="divRow">
    1340. 

  1340.                         <div class="divCell">&nbsp;</div>
    1341. 

  1341.                         <div class="divCell">&nbsp;</div>
    1342. 

  1342.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LRSO_2; ?></div>
    1343. 

  1343.                         <div class="divCell">&nbsp;</div>
    1344. 

  1344.                         <div class="divCell">&nbsp;</div>
    1345. 

  1345.                         <div class="divCell" name="PRIOR_MOTILITY_LS_2_1" id="PRIOR_MOTILITY_LS_2_1">&nbsp;</div>
    1346. 

  1346.                         <div class="divCell" name="PRIOR_MOTILITY_LS_2" id="PRIOR_MOTILITY_LS_2"><?php echo $PRIOR_MOTILITY_LS_2; ?></div>
    1347. 

  1347.                         <div class="divCell" name="PRIOR_MOTILITY_LS_2_2" id="PRIOR_MOTILITY_LS_2_2">&nbsp;</div>
    1348. 

  1348.                         <div class="divCell">&nbsp;</div>
    1349. 

  1349.                         <div class="divCell">&nbsp;</div>
    1350. 

  1350.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LLSO_2; ?></div>
    1351. 

  1351.                         <div class="divCell">&nbsp;</div>
    1352. 

  1352.                         <div class="divCell">&nbsp;</div>
    1353. 

  1353.                     </div>
    1354. 

  1354.                     <div class="divRow">
    1355. 

  1355.                         <div class="divCell">&nbsp;</div>
    1356. 

  1356.                         <div class="divCell">&nbsp;</div>
    1357. 

  1357.                         <div class="divCell">&nbsp;</div>
    1358. 

  1358.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LRSO_1; ?></div>
    1359. 

  1359.                         <div class="divCell">&nbsp;</div>
    1360. 

  1360.                         <div class="divCell" name="PRIOR_MOTILITY_LS_1_1" id="PRIOR_MOTILITY_LS_1_1">&nbsp;</div>
    1361. 

  1361.                         <div class="divCell" name="PRIOR_MOTILITY_LS_1" id="PRIOR_MOTILITY_LS_1"><?php echo $PRIOR_MOTILITY_LS_1; ?></div>
    1362. 

  1362.                         <div class="divCell" name="PRIOR_MOTILITY_LS_1_2" id="PRIOR_MOTILITY_LS_1_2">&nbsp;</div>
    1363. 

  1363.                         <div class="divCell">&nbsp;</div>
    1364. 

  1364.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LLSO_1; ?></div>
    1365. 

  1365.                         <div class="divCell">&nbsp;</div>
    1366. 

  1366.                         <div class="divCell">&nbsp;</div>
    1367. 

  1367.                         <div class="divCell">&nbsp;</div>
    1368. 

  1368.                     </div>
    1369. 

  1369.                     <div class="divRow">
    1370. 

  1370.                         <div class="divCell">&nbsp;</div>
    1371. 

  1371.                         <div class="divCell">&nbsp;</div>
    1372. 

  1372.                         <div class="divCell">&nbsp;</div>
    1373. 

  1373.                         <div class="divCell">&nbsp;</div>
    1374. 

  1374.                         <div class="divCell">&nbsp;</div>
    1375. 

  1375.                         <div class="divCell" name="PRIOR_MOTILITY_LS_0_1" id="PRIOR_MOTILITY_LS_0_1">&nbsp;</div>
    1376. 

  1376.                         <div class="divCell" name="PRIOR_MOTILITY_LS_0" id="PRIOR_MOTILITY_LS_0">&nbsp;</div>
    1377. 

  1377.                         <div class="divCell" name="PRIOR_MOTILITY_LS_0_1" id="PRIOR_MOTILITY_LS_0_1">&nbsp;</div>
    1378. 

  1378.                         <div class="divCell">&nbsp;</div>
    1379. 

  1379.                         <div class="divCell">&nbsp;</div>
    1380. 

  1380.                         <div class="divCell">&nbsp;</div>
    1381. 

  1381.                         <div class="divCell">&nbsp;</div>
    1382. 

  1382.                         <div class="divCell">&nbsp;</div>
    1383. 

  1383.                     </div>
    1384. 

  1384.                     <div class="divMiddleRow">
    1385. 

  1385.                         <div class="divCell">&nbsp;</div>
    1386. 

  1386.                         <div class="divCell" name="PRIOR_MOTILITY_LR_4" id="PRIOR_MOTILITY_LR_4"><?php echo $PRIOR_MOTILITY_LR_4; ?></div>
    1387. 

  1387.                         <div class="divCell" name="PRIOR_MOTILITY_LR_3" id="PRIOR_MOTILITY_LR_3"><?php echo $PRIOR_MOTILITY_LR_3; ?></div>
    1388. 

  1388.                         <div class="divCell" name="PRIOR_MOTILITY_LR_2" id="PRIOR_MOTILITY_LR_2"><?php echo $PRIOR_MOTILITY_LR_2; ?></div>
    1389. 

  1389.                         <div class="divCell" name="PRIOR_MOTILITY_LR_1" id="PRIOR_MOTILITY_LR_1"><?php echo $PRIOR_MOTILITY_LR_1; ?></div>
    1390. 

  1390.                         <div class="divCell" name="PRIOR_MOTILITY_LR_0" id="PRIOR_MOTILITY_LR_0">&nbsp;</div>
    1391. 

  1391.                         <div class="divCell" name="PRIOR_MOTILITY_L0" id="PRIOR_MOTILITY_L0">&nbsp;</div>
    1392. 

  1392.                         <div class="divCell" name="PRIOR_MOTILITY_LL_0" id="PRIOR_MOTILITY_LL_0">&nbsp;</div>
    1393. 

  1393.                         <div class="divCell" name="PRIOR_MOTILITY_LL_1" id="PRIOR_MOTILITY_LL_1"><?php echo $PRIOR_MOTILITY_LL_1; ?></div>
    1394. 

  1394.                         <div class="divCell" name="PRIOR_MOTILITY_LL_2" id="PRIOR_MOTILITY_LL_2"><?php echo $PRIOR_MOTILITY_LL_2; ?></div>
    1395. 

  1395.                         <div class="divCell" name="PRIOR_MOTILITY_LL_3" id="PRIOR_MOTILITY_LL_3"><?php echo $PRIOR_MOTILITY_LL_3; ?></div>
    1396. 

  1396.                         <div class="divCell" name="PRIOR_MOTILITY_LL_4" id="PRIOR_MOTILITY_LL_4"><?php echo $PRIOR_MOTILITY_LL_4; ?></div>
    1397. 

  1397.                         <div class="divCell">&nbsp;</div>
    1398. 

  1398.                     </div>
    1399. 

  1399.                     <div class="divRow">
    1400. 

  1400.                         <div class="divCell">&nbsp;</div>
    1401. 

  1401.                         <div class="divCell" name="PRIOR_MOTILITY_LR_4_1" id="PRIOR_MOTILITY_LR_4_1">&nbsp;</div>
    1402. 

  1402.                         <div class="divCell" name="PRIOR_MOTILITY_LR_3_1" id="PRIOR_MOTILITY_LR_3_1">&nbsp;</div>
    1403. 

  1403.                         <div class="divCell" name="PRIOR_MOTILITY_LR_2_1" id="PRIOR_MOTILITY_LR_2_1">&nbsp;</div>
    1404. 

  1404.                         <div class="divCell" name="PRIOR_MOTILITY_RO_I_1" id="PRIOR_MOTILITY_RO_I_1">&nbsp;</div>
    1405. 

  1405.                         <div class="divCell">&nbsp;</div>
    1406. 

  1406.                         <div class="divCell" id="PRIOR_MOTILITY_LI_0" name="PRIOR_MOTILITY_LI_0">&nbsp;</div>
    1407. 

  1407.                         <div class="divCell">&nbsp;</div>
    1408. 

  1408.                         <div class="divCell" name="PRIOR_MOTILITY_LO_I_1" id="PRIOR_MOTILITY_LO_I_1">&nbsp;</div>
    1409. 

  1409.                         <div class="divCell" name="PRIOR_MOTILITY_LL_2_2" id="PRIOR_MOTILITY_LL_2_2">&nbsp;</div>
    1410. 

  1410.                         <div class="divCell" name="PRIOR_MOTILITY_LL_3_2" id="PRIOR_MOTILITY_LL_3_2">&nbsp;</div>
    1411. 

  1411.                         <div class="divCell" name="PRIOR_MOTILITY_LL_4_2" id="PRIOR_MOTILITY_LL_4_2">&nbsp;</div>
    1412. 

  1412.                         <div class="divCell">&nbsp;</div>
    1413. 

  1413.                     </div>
    1414. 

  1414.                      <div class="divRow">
    1415. 

  1415.                         <div class="divCell">&nbsp;</div>
    1416. 

  1416.                         <div class="divCell" name="PRIOR_MOTILITY_LR_4_3" id="PRIOR_MOTILITY_LR_4_3">&nbsp;</div>
    1417. 

  1417.                         <div class="divCell" name="PRIOR_MOTILITY_LR_3_3" id="PRIOR_MOTILITY_LR_3_3">&nbsp;</div>
    1418. 

  1418.                         <div class="divCell" name="PRIOR_MOTILITY_RO_I_2" id="PRIOR_MOTILITY_RO_I_2"><?php echo $PRIOR_MOTILITY_LRIO_1; ?></div>
    1419. 

  1419.                         <div class="divCell">&nbsp;</div>
    1420. 

  1420.                         <div class="divCell">&nbsp;</div>
    1421. 

  1421.                         <div class="divCell" id="PRIOR_MOTILITY_LI_1" name="PRIOR_MOTILITY_LI_1"><?php echo $PRIOR_MOTILITY_LI_1; ?></div>
    1422. 

  1422.                         <div class="divCell">&nbsp;</div>
    1423. 

  1423.                         <div class="divCell">&nbsp;</div>
    1424. 

  1424.                         <div class="divCell" name="PRIOR_MOTILITY_LO_I_2" id="PRIOR_MOTILITY_LO_I_2"><?php echo $PRIOR_MOTILITY_LLIO_1; ?></div>
    1425. 

  1425.                         <div class="divCell" name="PRIOR_MOTILITY_LL_3_4" id="PRIOR_MOTILITY_LL_3_4">&nbsp;</div>
    1426. 

  1426.                         <div class="divCell" name="PRIOR_MOTILITY_LL_4_4" id="PRIOR_MOTILITY_LL_4_4">&nbsp;</div>
    1427. 

  1427.                         <div class="divCell">&nbsp;</div>
    1428. 

  1428.                     </div>
    1429. 

  1429.                     <div class="divRow">
    1430. 

  1430.                         <div class="divCell" name="PRIOR_MOTILITY_RO_I_3_1" id="PRIOR_MOTILITY_RO_I_3_1">&nbsp;</div>
    1431. 

  1431.                         <div class="divCell" name="PRIOR_MOTILITY_RO_I_3" id="PRIOR_MOTILITY_RO_I_3">&nbsp;</div>
    1432. 

  1432.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LRIO_2; ?></div>
    1433. 

  1433.                         <div class="divCell">&nbsp;</div>
    1434. 

  1434.                         <div class="divCell">&nbsp;</div>
    1435. 

  1435.                         <div class="divCell" name="PRIOR_MOTILITY_LI_2_1" id="PRIOR_MOTILITY_LI_2_1">&nbsp;</div>
    1436. 

  1436.                         <div class="divCell" id="PRIOR_MOTILITY_LI_2" name="PRIOR_MOTILITY_LI_2"><?php echo $PRIOR_MOTILITY_LI_2; ?></div>
    1437. 

  1437.                         <div class="divCell" name="PRIOR_MOTILITY_LI_2_2" id="PRIOR_MOTILITY_LI_2_2">&nbsp;</div>
    1438. 

  1438.                         <div class="divCell">&nbsp;</div>
    1439. 

  1439.                         <div class="divCell">&nbsp;</div>
    1440. 

  1440.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LLIO_2; ?></div>
    1441. 

  1441.                         <div class="divCell" name="PRIOR_MOTILITY_LO_I_2" id="PRIOR_MOTILITY_RO_I_2">&nbsp;</div>
    1442. 

  1442.                         <div class="divCell" name="PRIOR_MOTILITY_LO_I_3_1" id="PRIOR_MOTILITY_LO_I_3_1">&nbsp;</div>
    1443. 

  1443.                         </div>
    1444. 

  1444.                     <div class="divRow">
    1445. 

  1445.                         <div class="divCell" name="PRIOR_MOTILITY_LO_I_3" id="PRIOR_MOTILITY_RO_I_3">&nbsp;</div>
    1446. 

  1446.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LRIO_3; ?></div>
    1447. 

  1447.                         <div class="divCell">&nbsp;</div>
    1448. 

  1448.                         <div class="divCell" name="PRIOR_MOTILITY_LI_3_5" id="PRIOR_MOTILITY_LI_3_5">&nbsp;</div>
    1449. 

  1449.                         <div class="divCell" name="PRIOR_MOTILITY_LI_3_3" id="PRIOR_MOTILITY_LI_3_3">&nbsp;</div>
    1450. 

  1450.                         <div class="divCell" name="PRIOR_MOTILITY_LI_3_1" id="PRIOR_MOTILITY_LI_3_1">&nbsp;</div>
    1451. 

  1451.                         <div class="divCell" name="PRIOR_MOTILITY_LI_3"   id="PRIOR_MOTILITY_LI_3"><?php echo $PRIOR_MOTILITY_LI_3; ?></div>
    1452. 

  1452.                         <div class="divCell" name="PRIOR_MOTILITY_LI_3_2" id="PRIOR_MOTILITY_LI_3_2">&nbsp;</div>
    1453. 

  1453.                         <div class="divCell" name="PRIOR_MOTILITY_LI_3_4" id="PRIOR_MOTILITY_LI_3_4">&nbsp;</div>
    1454. 

  1454.                         <div class="divCell" name="PRIOR_MOTILITY_LI_3_6" id="PRIOR_MOTILITY_LI_3_6">&nbsp;</div>
    1455. 

  1455.                         <div class="divCell">&nbsp;</div>
    1456. 

  1456.                         <div class="divCell"><?php echo $PRIOR_MOTILITY_LLIO_3; ?></div>
    1457. 

  1457.                         <div class="divCell" name="PRIOR_MOTILITY_LO_I_3" id="PRIOR_MOTILITY_LO_I_3">&nbsp;</div>
    1458. 

  1458. 

  1459.                     </div>
    1460. 

  1460.                     <div class="divRow">
    1461. 

  1461.                         <div class="divCell" name="PRIOR_MOTILITY_RO_I_4" id="PRIOR_MOTILITY_RO_I_4"><?php echo $PRIOR_MOTILITY_LRIO_4; ?></div>
    1462. 

  1462.                         <div class="divCell">&nbsp;</div>
    1463. 

  1463.                         <div class="divCell">&nbsp;</div>
    1464. 

  1464.                         <div class="divCell" name="PRIOR_MOTILITY_LI_4_5" id="PRIOR_MOTILITY_LI_4_5">&nbsp;</div>
    1465. 

  1465.                         <div class="divCell" name="PRIOR_MOTILITY_LI_4_3" id="PRIOR_MOTILITY_LI_4_3">&nbsp;</div>
    1466. 

  1466.                         <div class="divCell" name="PRIOR_MOTILITY_LI_4_1" id="PRIOR_MOTILITY_LI_4_1">&nbsp;</div>
    1467. 

  1467.                         <div class="divCell" id="PRIOR_MOTILITY_LI_4" name="PRIOR_MOTILITY_LI_4"><?php echo $PRIOR_MOTILITY_LI_4; ?></div>
    1468. 

  1468.                         <div class="divCell" name="PRIOR_MOTILITY_LI_4_2" id="PRIOR_MOTILITY_LI_4_2">&nbsp;</div>
    1469. 

  1469.                         <div class="divCell" name="PRIOR_MOTILITY_LI_4_4" id="PRIOR_MOTILITY_LI_4_4">&nbsp;</div>
    1470. 

  1470.                         <div class="divCell" name="PRIOR_MOTILITY_LI_4_6" id="PRIOR_MOTILITY_LI_4_6">&nbsp;</div>
    1471. 

  1471.                         <div class="divCell">&nbsp;</div>
    1472. 

  1472.                         <div class="divCell">&nbsp;</div>
    1473. 

  1473.                         <div class="divCell" name="PRIOR_MOTILITY_LO_I_4" id="PRIOR_MOTILITY_LO_I_4"><?php echo $PRIOR_MOTILITY_LLIO_4; ?></div>
    1474. 

  1474.                     </div>
    1475. 

  1475.                     <div class="divRow"><div class="divCell">&nbsp;</div>
    1476. 

  1476.                     </div>
    1477. 

  1477.                 </div>
    1478. 

  1478.             </div>
    1479. 

  1479.         </div>
    1480. 

  1480.         <br />
    1481. 

  1481.         <div class="QP_lengthen">
    1482. 

  1482.             <span style="font-weight:bold;"><?php echo xlt('Comments'); ?>:</span>
    1483. 

  1483.             <br />
    1484. 

  1484.             <textarea disabled id="PRIOR_NEURO_COMMENTS" name="PRIOR_NEURO_COMMENTS"><?php echo text($NEURO_COMMENTS); ?></textarea>
    1485. 

  1485.         </div>
    1486. 

  1486.         <input type="hidden" name="PRIOR_PREFS_ACT_SHOW"  id="PRIOR_PREFS_ACT_SHOW" value="<?php echo attr($ACT_SHOW); ?>">
    1487. 

  1487. 

  1488.         <script>
    1489. 

  1489.             $("#PRIOR_ACTTRIGGER").mouseover(function() {
    1490. 

  1490.                                                    $("#PRIOR_ACTTRIGGER").toggleClass('buttonRefraction_selected').toggleClass('underline');
    1491. 

  1491.                                                    });
    1492. 

  1492.             $("#PRIOR_ACTTRIGGER").mouseout(function() {
    1493. 

  1493.                                                   $("#PRIOR_ACTTRIGGER").toggleClass('buttonRefraction_selected').toggleClass('underline');
    1494. 

  1494.                                                   });
    1495. 

  1495.             $("#PRIOR_ACTTRIGGER").click(function() {
    1496. 

  1496.                                                $("#PRIOR_ACTMAIN").toggleClass('nodisplay'); //.toggleClass('fullscreen');
    1497. 

  1497.                                                $("#PRIOR_NPCNPA").toggleClass('nodisplay');
    1498. 

  1498.                                                $("#PRIOR_ACTNORMAL_CHECK").toggleClass('nodisplay');
    1499. 

  1499.                                                $("#PRIOR_ACTTRIGGER").toggleClass('underline');
    1500. 

  1500.                                                $("#PRIOR_Close_ACTMAIN").toggleClass('fa-random').toggleClass('fa-eye');
    1501. 

  1501.                                                });
    1502. 

  1502.             $("[name^='PRIOR_ACT_tab_']").click(function()  {
    1503. 

  1503.                                                 var section = this.id.match(/PRIOR_ACT_tab_(.*)/)[1];
    1504. 

  1504.                                                 $("[name^='PRIOR_ACT_']").addClass('nodisplay');
    1505. 

  1505.                                                 $("[name^='PRIOR_ACT_tab_']").removeClass('nodisplay').removeClass('ACT_selected').addClass('ACT_deselected');
    1506. 

  1506.                                                 $("#PRIOR_ACT_tab_" + section).addClass('ACT_selected').removeClass('ACT_deselected');
    1507. 

  1507.                                                 $("#PRIOR_ACT_" + section).removeClass('nodisplay');
    1508. 

  1508.                                                 $("#PRIOR_PREFS_ACT_SHOW").val(section);
    1509. 

  1509.                                                 });
    1510. 

  1510. 

  1511.             $("[name^='PRIOR_Close_']").click(function()  {
    1512. 

  1512.                                               var section = this.id.match(/PRIOR_Close_(.*)$/)[1];
    1513. 

  1513.                                               if (section =="ACTMAIN") {
    1514. 

  1514.                                                 $("#PRIOR_ACTTRIGGER").trigger( "click" );
    1515. 

  1515.                                               } else {
    1516. 

  1516.                                                 $("#LayerVision_"+section+"_lightswitch").click();
    1517. 

  1517.                                               }
    1518. 

  1518.                                               });
    1519. 

  1519.             if ($("#PREFS_ACT_VIEW").val() == '1') {
    1520. 

  1520.                 $("#PRIOR_ACTMAIN").toggleClass('nodisplay');
    1521. 

  1521.                 $("#PRIOR_NPCNPA").toggleClass('nodisplay');
    1522. 

  1522.                 $("#PRIOR_ACTNORMAL_CHECK").toggleClass('nodisplay');
    1523. 

  1523.                 $("#PRIOR_ACTTRIGGER").toggleClass('underline');
    1524. 

  1524.                 var show = $("#PREFS_ACT_SHOW").val();
    1525. 

  1525.                 $("#PRIOR_ACT_tab_"+show).trigger('click');
    1526. 

  1526.             }
    1527. 

  1527.         </script>
    1528. 

  1528.         <?php
    1529. 

  1529.     } elseif ($zone == "IMPPLAN") {
    1530. 

  1530.         if ($report == '0') {
    1531. 

  1531.             $output =  priors_select($zone, $orig_id, $id_to_show, $pid);
    1532. 

  1532.         }
    1533. 

  1533.         ?>
    1534. 

  1534.         <input disabled type="hidden" id="PRIORS_<?php echo attr($zone); ?>_prefix" name="PRIORS_<?php echo attr($zone); ?>_prefix" value="">
    1535. 

  1535.         <span class="closeButton float-right fas fa-times" id="Close_PRIORS_<?php echo attr($zone); ?>" name="Close_PRIORS_<?php echo attr($zone); ?>"></span>
    1536. 

  1536.         <div name="prior_selector" class="PRIORS">
    1537. 

  1537.                 <?php
    1538. 

  1538.                 echo $output;
    1539. 

  1539.                 ?>
    1540. 

  1540.         </div>
    1541. 

  1541.         <span style="font-weight:bold;"> <?php echo xlt('Prior IMP/PLAN'); ?>:</span>
    1542. 

  1542.         <br />
    1543. 

  1543.         <?php
    1544. 

  1544.         $PRIOR_IMPPLAN_items = build_IMPPLAN_items($pid, $id_to_show);
    1545. 

  1545. 

  1546.         if ($PRIOR_IMPPLAN_items) {
    1547. 

  1547.             echo "<br /><br /><div style='width:90%;'>";
    1548. 

  1548.             $i = '0';
    1549. 

  1549.             $k = '1';
    1550. 

  1550.             foreach ($PRIOR_IMPPLAN_items as $item) {
    1551. 

  1551.                 echo "<div class='IMPPLAN_class' style='clear:both;margin:10px;'>";
    1552. 

  1552.                 echo "  <span>$k. " . text($item['title']) . "</span><span class='float-right'>" . $item['code'] . "</span><br />";
    1553. 

  1553.                 echo '  <div class="fake-textarea-disabled-4">' . nl2br(text($item['plan'])) . '</div>';
    1554. 

  1554.                 echo '</div>';
    1555. 

  1555.                 $i++;
    1556. 

  1556.                 $k++;
    1557. 

  1557.             }
    1558. 

  1558. 

  1559.             echo "</div>";
    1560. 

  1560.         }
    1561. 

  1561.     } elseif ($zone == "ALL") {
    1562. 

  1562.         echo $selector = priors_select($zone, $orig_id, $id_to_show, $pid);
    1563. 

  1563.     } elseif ($zone == "PMSFH") {
    1564. 

  1564.         // Check authorization.
    1565. 

  1565.         if (AclMain::aclCheckCore('patients', 'med')) {
    1566. 

  1566.             $tmp = getPatientData($pid);
    1567. 

  1567.         }
    1568. 

  1568. 

  1569.         // We are going to build the PMSFH panel.
    1570. 

  1570.         // There are two rows in our panel.
    1571. 

  1571.         echo "<div style='height:auto;'>";
    1572. 

  1572.         echo $display_PMSFH = display_PMSFH('2');
    1573. 

  1573.         echo "</div>";
    1574. 

  1574.     }
    1575. 

  1575. 

  1576.     $output = ob_get_contents();
    1577. 

  1577. 

  1578.     ob_end_clean();
    1579. 

  1579.     return $output;
    1580. 

  1580. }
    1581. 

  1581. 

  1582. /**
    1583. 

  1583.  * Function to prepare for sending the PMSFH_panel and PMSFH_right_panel
    1584. 

  1584.  * via display_PMSFH('2') and show_PMSFH_panel($PMSFH) respectively,
    1585. 

  1585.  * to javascript to display changes to the user.
    1586. 

  1586.  * @param associative array $PMSFH if it exists
    1587. 

  1587.  * @return json encoded string
    1588. 

  1588.  */
    1589. 

  1589. function send_json_values($PMSFH = "")
    1590. 

  1590. {
    1591. 

  1591.     global $pid;
    1592. 

  1592.     global $form_id;
    1593. 

  1593.     if (!$PMSFH) {
    1594. 

  1594.         build_PMSFH();
    1595. 

  1595.     }
    1596. 

  1596. 

  1597.     $send['PMSFH'] = $PMSFH[0]; //actual array
    1598. 

  1598.     $send['PMH_panel'] = display_PMSFH('2');//display PMSFH next to the PMSFH Builder
    1599. 

  1599.     $send['right_panel'] = show_PMSFH_panel($PMSFH);//display PMSFH in a slidable right-sided panel
    1600. 

  1600.     $send['IMPPLAN_items'] = build_IMPPLAN_items($pid, $form_id);
    1601. 

  1601.     echo json_encode($send);
    1602. 

  1602. }
    1603. 

  1603. 

  1604. /**
    1605. 

  1605.  *  This function builds the complete PMSFH array for a given patient, including the ROS for this encounter.
    1606. 

  1606.  *
    1607. 

  1607.  *  It returns the PMSFH array to be used to display it anyway you like.
    1608. 

  1608.  *  Currently it is used to display the expanded PMSFH 3 ways:
    1609. 

  1609.  *      in the Quick Pick square;
    1610. 

  1610.  *      as a persistent/hideable Right Panel;
    1611. 

  1611.  *      and in the Printable Report form.
    1612. 

  1612.  *  For other specialties, breaking out subtypes of surgeries, meds and
    1613. 

  1613.  *  medical_problems should be done here by defining new ISSUE_TYPES which are subcategories of the current
    1614. 

  1614.  *  ISSUE_TYPES medical_problem, surgery and medication.  This way we do not change the base install ISSUE_TYPES,
    1615. 

  1615.  *  we merely extend them through subcategorization, allowing the reporting features built in for MU1/2/3/100?
    1616. 

  1616.  *  to function at their base level.
    1617. 

  1617.  *
    1618. 

  1618.  * @param string $pid is the patient identifier
    1619. 

  1619.  * @return $PMSFH array, access items as $PMSFH[0]
    1620. 

  1620.  */
    1621. 

  1621. function build_PMSFH($pid)
    1622. 

  1622. {
    1623. 

  1623.     global $form_id;
    1624. 

  1624. 

  1625.     $PMSFH = [];
    1626. 

  1626.     $PMSFH['CHRONIC'] = [];
    1627. 

  1627.     //Define the PMSFH array elements as you need them:
    1628. 

  1628.     $PMSFH_labels = array("POH", "POS", "Eye Meds", "PMH", "Surgery", "Medication", "Allergy", "SOCH", "FH", "ROS");
    1629. 

  1629.     foreach ($PMSFH_labels as $panel_type) {
    1630. 

  1630.         $PMSFH[$panel_type] = [];
    1631. 

  1631.         $subtype = " and (subtype is NULL or subtype ='' )";
    1632. 

  1632.         $order = "ORDER BY title";
    1633. 

  1633.         if ($panel_type == "FH" || $panel_type == "SOCH" || $panel_type == "ROS") {
    1634. 

  1634.             /*
    1635. 

  1635.              *  We are going to build SocHx, FH and ROS separately below since they don't feed off of
    1636. 

  1636.              *  the pre-existing ISSUE_TYPE array - so for now do nothing
    1637. 

  1637.              */
    1638. 

  1638.             continue;
    1639. 

  1639.         } elseif ($panel_type == 'POH') {
    1640. 

  1640.             $focusISSUE = "medical_problem"; //openEMR ISSUE_TYPE
    1641. 

  1641.             $subtype = " and subtype ='eye'";
    1642. 

  1642.             /* This is an "eye" form: providers would like ophthalmic medical problems listed separately.
    1643. 

  1643.              * Thus we split the ISSUE_TYPE 'medical_problem' using subtype "eye"
    1644. 

  1644.              * but it could be "GYN", "ONC", "GU" etc - for whoever wants to
    1645. 

  1645.              * extend this for their own specific "sub"-lists.
    1646. 

  1646.              * Similarly, consider Past Ocular Surgery, or Past GYN Surgery, etc for specialty-specific
    1647. 

  1647.              * surgery lists.  They would be subtypes of the ISSUE_TYPE 'surgery'...
    1648. 

  1648.              * eg.
    1649. 

  1649.              *   if ($panel_type =='POS') { //Past Ocular Surgery
    1650. 

  1650.              *   $focusISSUE = "surgery";
    1651. 

  1651.              *   $subtype=" and subtype ='eye'";
    1652. 

  1652.              *   }
    1653. 

  1653.              * The concept is extensible to sub lists for Allergies & Medications too.
    1654. 

  1654.              * eg.
    1655. 

  1655.              *   if ($panel_type =='OncMeds') {
    1656. 

  1656.              *      $focusISSUE = "medication";
    1657. 

  1657.              *      $subtype=" and subtype ='onc'";
    1658. 

  1658.              *   }
    1659. 

  1659.              */
    1660. 

  1660.         } elseif ($panel_type == 'POS') {
    1661. 

  1661.             $focusISSUE = "surgery"; //openEMR ISSUE_TYPE
    1662. 

  1662.             $subtype = " and subtype ='eye'";
    1663. 

  1663.         } elseif ($panel_type == 'PMH') {
    1664. 

  1664.             $focusISSUE = "medical_problem"; //openEMR ISSUE_TYPE
    1665. 

  1665.             $subtype = " and (subtype = '' OR subtype IS NULL)"; //fee_sheet makes subtype=
    1666. 

  1666.         } elseif ($panel_type == 'Surgery') {
    1667. 

  1667.             $focusISSUE = "surgery"; //openEMR ISSUE_TYPE
    1668. 

  1668.             $subtype = "  and (subtype = '' OR subtype IS NULL)";
    1669. 

  1669.             $order = "ORDER BY begdate DESC";
    1670. 

  1670.         } elseif ($panel_type == 'Allergy') {
    1671. 

  1671.             $focusISSUE = "allergy"; //openEMR ISSUE_TYPE
    1672. 

  1672.             $subtype = "";
    1673. 

  1673.         } elseif ($panel_type == 'Medication') {
    1674. 

  1674.             $focusISSUE = "medication"; //openEMR ISSUE_TYPE
    1675. 

  1675.             $subtype = "";
    1676. 

  1676.         } elseif ($panel_type == 'Eye Meds') {
    1677. 

  1677.             $focusISSUE = "medication"; //openEMR ISSUE_TYPE
    1678. 

  1678.             $subtype = "and subtype = 'eye'";// and subtype ='eye' ";
    1679. 

  1679.         }
    1680. 

  1680. 

  1681.         $pres = sqlStatement("SELECT * FROM lists WHERE pid = ? AND type = ? " .
    1682. 

  1682.             $subtype . " " . $order, array($pid,$focusISSUE));
    1683. 

  1683.         $row_counter = '0';
    1684. 

  1684.         while ($row = sqlFetchArray($pres)) {
    1685. 

  1685.             $rowid = $row['id'];
    1686. 

  1686.             $disptitle = text(trim($row['title'])) ? text($row['title']) : "[" . xlt("Missing Title") . "]";
    1687. 

  1687.             //  look up the diag codes
    1688. 

  1688.             $codetext = "";
    1689. 

  1689.             $codedesc = "";
    1690. 

  1690.             $codetype = "";
    1691. 

  1691.             $code = "";
    1692. 

  1692.             if ($row['diagnosis'] != "") {
    1693. 

  1693.                 $diags = explode(";", $row['diagnosis']);
    1694. 

  1694.                 foreach ($diags as $diag) {
    1695. 

  1695.                     $codedesc = lookup_code_descriptions($diag);
    1696. 

  1696.                     list($codetype, $code) = explode(':', $diag);
    1697. 

  1697.                     $order   = array("\r\n", "\n","\r");
    1698. 

  1698.                     $codedesc = str_replace($order, '', $codedesc);
    1699. 

  1699.                     $codetext .= text($diag) . " (" . text($codedesc) . ")";
    1700. 

  1700.                 }
    1701. 

  1701.             }
    1702. 

  1702. 

  1703.             // calculate the status
    1704. 

  1704.             if ($row['outcome'] == "1" && $row['enddate'] != null) {
    1705. 

  1705.               // Resolved
    1706. 

  1706.                 $statusCompute = generate_display_field(array('data_type' => '1','list_id' => 'outcome'), $row['outcome']);
    1707. 

  1707.             } elseif ($row['enddate'] == null) {
    1708. 

  1708.                    $statusCompute = xlt("Active");
    1709. 

  1709.             } else {
    1710. 

  1710.                    $statusCompute = xlt("Inactive");
    1711. 

  1711.             }
    1712. 

  1712. 

  1713.             ($row['comments'] != null) ? ($comments = $row['comments']) : ($comments = "");
    1714. 

  1714.             $counter_here = count($PMSFH[$panel_type]);
    1715. 

  1715.             $newdata =  array (
    1716. 

  1716.                 'title' => $disptitle,
    1717. 

  1717.                 'status' => $statusCompute,
    1718. 

  1718.                 'begdate' => $row['begdate'],
    1719. 

  1719.                 'enddate' => $row['enddate'],
    1720. 

  1720.                 'returndate' => $row['returndate'],
    1721. 

  1721.                 'occurrence' => $row['occurrence'],
    1722. 

  1722.                 'classification' => $row['classification'],
    1723. 

  1723.                 'referredby' => $row['referredby'],
    1724. 

  1724.                 'extrainfo' => $row['extrainfo'],
    1725. 

  1725.                 'diagnosis' => $row['diagnosis'],
    1726. 

  1726.                 'activity' => $row['activity'],
    1727. 

  1727.                 'code' => $code,
    1728. 

  1728.                 'codedesc' => $codedesc,
    1729. 

  1729.                 'codetext' => $codetext,
    1730. 

  1730.                 'codetype' => $codetype,
    1731. 

  1731.                 'comments' => $comments,
    1732. 

  1732.                 'issue' => $row['id'],
    1733. 

  1733.                 'rowid' => $row['id'],
    1734. 

  1734.                 'row_type' => $row['type'],
    1735. 

  1735.                 'row_subtype' => $row['subtype'],
    1736. 

  1736.                 'user' => $row['user'],
    1737. 

  1737.                 'groupname' => $row['groupname'],
    1738. 

  1738.                 'outcome' => $row['outcome'],
    1739. 

  1739.                 'destination' => $row['destination'],
    1740. 

  1740.                 'reinjury_id' => $row['reinjury_id'],
    1741. 

  1741.                 'injury_part' => $row['injury_part'],
    1742. 

  1742.                 'injury_type' => $row['injury_type'],
    1743. 

  1743.                 'injury_grade' => $row['injury_grade'],
    1744. 

  1744.                 'reaction' => $row['reaction'],
    1745. 

  1745.                 'external_allergyid' => $row['external_allergyid'],
    1746. 

  1746.                 'erx_source' => $row['erx_source'],
    1747. 

  1747.                 'erx_uploaded' => $row['erx_uploaded'],
    1748. 

  1748.                 'modifydate' => $row['modifydate'],
    1749. 

  1749.                 'PMSFH_link' => $panel_type . "_" . $row_counter
    1750. 

  1750.             );
    1751. 

  1751.             //let the end user decide on display elsewhere...  This is all about the array itself.
    1752. 

  1752.             $PMSFH[$panel_type][] = $newdata;
    1753. 

  1753.             if ($row['occurrence'] == '4') {
    1754. 

  1754.                 $PMSFH['CHRONIC'][] = $newdata;
    1755. 

  1755.             }
    1756. 

  1756. 

  1757.             $row_counter++;
    1758. 

  1758.         }
    1759. 

  1759.     }
    1760. 

  1760. 

  1761.     //Build the SocHx portion of $PMSFH for this patient.
    1762. 

  1762.     //$given ="coffee,tobacco,alcohol,sleep_patterns,exercise_patterns,seatbelt_use,counseling,hazardous_activities,recreational_drugs";
    1763. 

  1763.     $result1 = sqlQuery("select * from history_data where pid=? order by date DESC limit 0,1", array($pid));
    1764. 

  1764. 

  1765.     $group_fields_query = sqlStatement("SELECT * FROM layout_options " .
    1766. 

  1766.     "WHERE form_id = 'HIS' AND group_id = '4' AND uor > 0 " .
    1767. 

  1767.     "ORDER BY seq");
    1768. 

  1768.     $PMSFH['SOCH'] = [];
    1769. 

  1769.     while ($group_fields = sqlFetchArray($group_fields_query)) {
    1770. 

  1770.         $titlecols  = $group_fields['titlecols'];
    1771. 

  1771.         $datacols   = $group_fields['datacols'];
    1772. 

  1772.         $data_type  = $group_fields['data_type'];
    1773. 

  1773.         $field_id   = $group_fields['field_id'];
    1774. 

  1774.         $list_id    = $group_fields['list_id'];
    1775. 

  1775.         $currvalue  = '';
    1776. 

  1776.         if ((preg_match("/^\|?0\|?\|?/", $result1[$field_id])) || ($result1[$field_id] == '')) {
    1777. 

  1777.             continue;
    1778. 

  1778.         } else {
    1779. 

  1779.             $currvalue = $result1[$field_id];
    1780. 

  1780.         }
    1781. 

  1781.         $PMSFH['SOCH'][$field_id] = [];
    1782. 

  1782.         if ($data_type == 28 || $data_type == 32) {
    1783. 

  1783.             $tmp = explode('|', $currvalue);
    1784. 

  1784.             switch (count($tmp)) {
    1785. 

  1785.                 case "4":
    1786. 

  1786.                     $PMSFH['SOCH'][$field_id]['resnote'] = $tmp[0];
    1787. 

  1787.                     $PMSFH['SOCH'][$field_id]['restype'] = $tmp[1];
    1788. 

  1788.                     $PMSFH['SOCH'][$field_id]['resdate'] = $tmp[2];
    1789. 

  1789.                     $PMSFH['SOCH'][$field_id]['reslist'] = $tmp[3];
    1790. 

  1790.                     break;
    1791. 

  1791.                 case "3":
    1792. 

  1792.                     $PMSFH['SOCH'][$field_id]['resnote'] = $tmp[0];
    1793. 

  1793.                     $PMSFH['SOCH'][$field_id]['restype'] = $tmp[1];
    1794. 

  1794.                     $PMSFH['SOCH'][$field_id]['resdate'] = $tmp[2];
    1795. 

  1795.                     break;
    1796. 

  1796.                 case "2":
    1797. 

  1797.                     $PMSFH['SOCH'][$field_id]['resnote'] = $tmp[0];
    1798. 

  1798.                     $PMSFH['SOCH'][$field_id]['restype'] = $tmp[1];
    1799. 

  1799.                     $PMSFH['SOCH'][$field_id]['resdate'] = "";
    1800. 

  1800.                     break;
    1801. 

  1801.                 case "1":
    1802. 

  1802.                     $PMSFH['SOCH'][$field_id]['resnote'] = $tmp[0];
    1803. 

  1803.                     $PMSFH['SOCH'][$field_id]['resdate'] = $PMSFH['SOCH'][$field_id]['restype'] = "";
    1804. 

  1804.                     break;
    1805. 

  1805.                 default:
    1806. 

  1806.                     $PMSFH['SOCH'][$field_id]['restype'] = $PMSFH['SOCH'][$field_id]['resdate'] = $PMSFH['SOCH'][$field_id]['resnote'] = "";
    1807. 

  1807.                     break;
    1808. 

  1808.             }
    1809. 

  1809. 

  1810.             $PMSFH['SOCH'][$field_id]['resnote'] = text($PMSFH['SOCH'][$field_id]['resnote']);
    1811. 

  1811.             $PMSFH['SOCH'][$field_id]['resdate'] = text($PMSFH['SOCH'][$field_id]['resdate']);
    1812. 

  1812.         } elseif ($data_type == 2) {
    1813. 

  1813.             $PMSFH['SOCH'][$field_id]['resnote'] = nl2br(htmlspecialchars($currvalue, ENT_NOQUOTES));
    1814. 

  1814.         }
    1815. 

  1815. 

  1816.         if ($PMSFH['SOCH'][$field_id]['resnote'] > '') {
    1817. 

  1817.             $PMSFH['SOCH'][$field_id]['display'] = substr($PMSFH['SOCH'][$field_id]['resnote'], 0, 10);
    1818. 

  1818.         } elseif ($PMSFH['SOCH'][$field_id]['restype']) {
    1819. 

  1819.             $PMSFH['SOCH'][$field_id]['display'] = str_replace($field_id, '', $PMSFH['SOCH'][$field_id]['restype']);
    1820. 

  1820.         }
    1821. 

  1821. 

  1822.         //coffee,tobacco,alcohol,sleep_patterns,exercise_patterns,seatbelt_use,counseling,hazardous_activities,recreational_drugs
    1823. 

  1823.         if ($field_id == "coffee") {
    1824. 

  1824.             $PMSFH['SOCH'][$field_id]['short_title'] = xlt("Caffeine");
    1825. 

  1825.         }
    1826. 

  1826. 

  1827.         if ($field_id == "tobacco") {
    1828. 

  1828.             $PMSFH['SOCH'][$field_id]['short_title'] = xlt("Cigs");
    1829. 

  1829.         }
    1830. 

  1830. 

  1831.         if ($field_id == "alcohol") {
    1832. 

  1832.             $PMSFH['SOCH'][$field_id]['short_title'] = xlt("ETOH");
    1833. 

  1833.         }
    1834. 

  1834. 

  1835.         if ($field_id == "sleep_patterns") {
    1836. 

  1836.             $PMSFH['SOCH'][$field_id]['short_title'] = xlt("Sleep");
    1837. 

  1837.         }
    1838. 

  1838. 

  1839.         if ($field_id == "exercise_patterns") {
    1840. 

  1840.             $PMSFH['SOCH'][$field_id]['short_title'] = xlt("Exercise");
    1841. 

  1841.         }
    1842. 

  1842. 

  1843.         if ($field_id == "seatbelt_use") {
    1844. 

  1844.             $PMSFH['SOCH'][$field_id]['short_title'] = xlt("Seatbelt");
    1845. 

  1845.         }
    1846. 

  1846. 

  1847.         if ($field_id == "counseling") {
    1848. 

  1848.             $PMSFH['SOCH'][$field_id]['short_title'] = xlt("Therapy");
    1849. 

  1849.         }
    1850. 

  1850. 

  1851.         if ($field_id == "hazardous_activities") {
    1852. 

  1852.             $PMSFH['SOCH'][$field_id]['short_title'] = xlt("Thrills");
    1853. 

  1853.         }
    1854. 

  1854. 

  1855.         if ($field_id == "recreational_drugs") {
    1856. 

  1856.             $PMSFH['SOCH'][$field_id]['short_title'] = xlt("Drug Use");
    1857. 

  1857.         }
    1858. 

  1858.     }
    1859. 

  1859. 

  1860.     //  Drag in Marital status and Employment history to this Social Hx area.
    1861. 

  1861.     $patient = getPatientData($pid, "*");
    1862. 

  1862.     $PMSFH['SOCH']['marital_status'] = [];
    1863. 

  1863.     $PMSFH['SOCH']['occupation'] = [];
    1864. 

  1864.     $PMSFH['SOCH']['marital_status']['short_title'] = xlt("Marital");
    1865. 

  1865.     $PMSFH['SOCH']['marital_status']['display'] = text($patient['status']);
    1866. 

  1866.     $PMSFH['SOCH']['occupation']['short_title'] = xlt("Occupation");
    1867. 

  1867.     $PMSFH['SOCH']['occupation']['display'] = text($patient['occupation']);
    1868. 

  1868. 

  1869. 

  1870.     // Build the FH portion of $PMSFH,$PMSFH['FH']
    1871. 

  1871.     // history_mother  history_father  history_siblings    history_offspring   history_spouse
    1872. 

  1872.     // relatives_cancer    relatives_tuberculosis  relatives_diabetes  relatives_high_blood_pressure   relatives_heart_problems    relatives_stroke    relatives_epilepsy  relatives_mental_illness    relatives_suicide
    1873. 

  1873.     //  There are two ways FH is stored in the history area, one on a specific relationship basis
    1874. 

  1874.     // ie. parent,sibling, offspring has X, or the other by "relatives_disease" basis.
    1875. 

  1875.     // Hmmm, neither really meets our needs.  This is an eye form; we do a focused family history.
    1876. 

  1876.     // Cataracts, glaucoma, AMD, RD, cancer, heart disease etc.
    1877. 

  1877.     // The openEMR people who want to adapt this for another specialty will no doubt
    1878. 

  1878.     // have different diseases they want listed in the FH specifically.  We all need to be able to
    1879. 

  1879.     // adjust the form.  Perhaps we should use the UserDefined fields at the end of this history_data table?
    1880. 

  1880.     // Question 1. is, does anything use this family history data - any higher function like reporting?
    1881. 

  1881.     // Also 2., if there is an engine to validate level of exam, how do we tell it that this was completed?
    1882. 

  1882.     // First we would need to know the criteria this engine looks for and I don't think in reality there is anything
    1883. 

  1883.     // written yet that does validate exams for coding level, so maybe we should create a flag in the user defined area of the history_data
    1884. 

  1884.     // table to notate that the FH portion of the exam was completed? TBD.
    1885. 

  1885.     /*
    1886. 

  1886.     Cancer:     Tuberculosis:
    1887. 

  1887.     Diabetes:       High Blood Pressure:
    1888. 

  1888.     Heart Problems:     Stroke:
    1889. 

  1889.     Epilepsy:       Mental Illness:
    1890. 

  1890.     Suicide:
    1891. 

  1891.     */
    1892. 

  1892.     $group_fields_query = sqlStatement("SELECT * FROM layout_options " .
    1893. 

  1893.     "WHERE form_id = 'HIS' AND group_id = '3' AND uor > 0 " .
    1894. 

  1894.     "ORDER BY seq");
    1895. 

  1895.     while ($group_fields = sqlFetchArray($group_fields_query)) {
    1896. 

  1896.         $titlecols  = $group_fields['titlecols'];
    1897. 

  1897.         $datacols   = $group_fields['datacols'];
    1898. 

  1898.         $data_type  = $group_fields['data_type'];
    1899. 

  1899.         $field_id   = $group_fields['field_id'];
    1900. 

  1900.         $list_id    = $group_fields['list_id'];
    1901. 

  1901.         $currvalue  = '';
    1902. 

  1902.         if ((preg_match("/^\|?0\|?\|?/", $result1[$field_id])) || ($result1[$field_id] == '')) {
    1903. 

  1903.             continue;
    1904. 

  1904.         } else {
    1905. 

  1905.             $currvalue = $result1[$field_id];
    1906. 

  1906.         }
    1907. 

  1907. 

  1908.         $PMSFH['FH'][$field_id]['resnote'] = nl2br(htmlspecialchars($currvalue, ENT_NOQUOTES));
    1909. 

  1909.         if ($PMSFH['FH'][$field_id]['resnote'] > '') {
    1910. 

  1910.             $PMSFH['FH'][$field_id]['display'] = substr($PMSFH['FH'][$field_id]['resnote'], 0, 100);
    1911. 

  1911.         } elseif ($PMSFH['FH'][$field_id]['restype']) {
    1912. 

  1912.             $PMSFH['FH'][$field_id]['display'] = str_replace($field_id, '', $PMSFH['FH'][$field_id]['restype']);
    1913. 

  1913.         } else {
    1914. 

  1914.             $PMSFH['FH'][$field_id]['display'] = xlt("denies");
    1915. 

  1915.         }
    1916. 

  1916. 

  1917.         //coffee,tobacco,alcohol,sleep_patterns,exercise_patterns,seatbelt_use,counseling,hazardous_activities,recreational_drugs
    1918. 

  1918.         if ($field_id == "relatives_cancer") {
    1919. 

  1919.             $PMSFH['FH'][$field_id]['short_title'] = xlt("Cancer");
    1920. 

  1920.         }
    1921. 

  1921. 

  1922.         if ($field_id == "relatives_diabetes") {
    1923. 

  1923.             $PMSFH['FH'][$field_id]['short_title'] = xlt("Diabetes");
    1924. 

  1924.         }
    1925. 

  1925. 

  1926.         if ($field_id == "relatives_high_blood_pressure") {
    1927. 

  1927.             $PMSFH['FH'][$field_id]['short_title'] = xlt("HTN{{hypertension}}");
    1928. 

  1928.         }
    1929. 

  1929. 

  1930.         if ($field_id == "relatives_heart_problems") {
    1931. 

  1931.             $PMSFH['FH'][$field_id]['short_title'] = xlt("Cor Disease");
    1932. 

  1932.         }
    1933. 

  1933. 

  1934.         if ($field_id == "relatives_epilepsy") {
    1935. 

  1935.             $PMSFH['FH'][$field_id]['short_title'] = xlt("Epilepsy");
    1936. 

  1936.         }
    1937. 

  1937. 

  1938.         if ($field_id == "relatives_mental_illness") {
    1939. 

  1939.             $PMSFH['FH'][$field_id]['short_title'] = xlt("Psych");
    1940. 

  1940.         }
    1941. 

  1941. 

  1942.         if ($field_id == "relatives_suicide") {
    1943. 

  1943.             $PMSFH['FH'][$field_id]['short_title'] = xlt("Suicide");
    1944. 

  1944.         }
    1945. 

  1945. 

  1946.         if ($field_id == "relatives_stroke") {
    1947. 

  1947.             $PMSFH['FH'][$field_id]['short_title'] = xlt("Stroke");
    1948. 

  1948.         }
    1949. 

  1949. 

  1950.         if ($field_id == "relatives_tuberculosis") {
    1951. 

  1951.             $PMSFH['FH'][$field_id]['short_title'] = xlt("TB");
    1952. 

  1952.         }
    1953. 

  1953.     }
    1954. 

  1954. 

  1955.     // Now make some of our own using the usertext11-30 fields
    1956. 

  1956.     // These can be customized for specialties but remember this is just an array,
    1957. 

  1957.     // you will need to check the code re: how it is displayed elsewhere...
    1958. 

  1958.     // For now, just changing the short_titles will display intelligently
    1959. 

  1959.     // but it is best to change both in the long run.
    1960. 

  1960.     // $PMSFH['FH']['my_term']['display'] = (substr($result1['usertext11'],0,10));
    1961. 

  1961.     // $PMSFH['FH']['my_term']['short_title'] = xlt("My Term");
    1962. 

  1962. 

  1963.     $PMSFH['FH']['glaucoma']['display'] = (substr($result1['usertext11'], 0, 100));
    1964. 

  1964.     $PMSFH['FH']['glaucoma']['short_title'] = xlt("Glaucoma");
    1965. 

  1965.     $PMSFH['FH']['cataract']['display'] = (substr($result1['usertext12'], 0, 100));
    1966. 

  1966.     $PMSFH['FH']['cataract']['short_title'] = xlt("Cataract");
    1967. 

  1967.     $PMSFH['FH']['amd']['display'] = (substr($result1['usertext13'], 0, 100));
    1968. 

  1968.     $PMSFH['FH']['amd']['short_title'] = xlt("AMD{{age related macular degeneration}}");
    1969. 

  1969.     $PMSFH['FH']['RD']['display'] = (substr($result1['usertext14'], 0, 100));
    1970. 

  1970.     $PMSFH['FH']['RD']['short_title'] = xlt("RD{{retinal detachment}}");
    1971. 

  1971.     $PMSFH['FH']['blindness']['display'] = (substr($result1['usertext15'], 0, 100));
    1972. 

  1972.     $PMSFH['FH']['blindness']['short_title'] = xlt("Blindness");
    1973. 

  1973.     $PMSFH['FH']['amblyopia']['display'] = (substr($result1['usertext16'], 0, 100));
    1974. 

  1974.     $PMSFH['FH']['amblyopia']['short_title'] = xlt("Amblyopia");
    1975. 

  1975.     $PMSFH['FH']['strabismus']['display'] = (substr($result1['usertext17'], 0, 100));
    1976. 

  1976.     $PMSFH['FH']['strabismus']['short_title'] = xlt("Strabismus");
    1977. 

  1977.     $PMSFH['FH']['other']['display'] = (substr($result1['usertext18'], 0, 100));
    1978. 

  1978.     $PMSFH['FH']['other']['short_title'] = xlt("Other");
    1979. 

  1979. 

  1980.     // Thinking this might be a good place to put in last_retinal exam and last_HbA1C?
    1981. 

  1981.     // I don't know enough about the reporting parameters - it is probably some alreay in openEMR?
    1982. 

  1982.     // Pull it in if it is and put it where?
    1983. 

  1983.     // $PMSFH['SOCH'][$field_id]['resnote'] = nl2br(htmlspecialchars($currvalue,ENT_NOQUOTES));
    1984. 

  1984. 

  1985.     // Build ROS into $PMSFH['ROS'] also for this patient.
    1986. 

  1986.     // ROS is not static and is directly linked to each encounter
    1987. 

  1987.     // True it could be a separate table, but it is currently in form_eye_mag for each visit
    1988. 

  1988.     // To use this for any other forms, we should consider making this its own separate table with id,pid and ?encounter link,
    1989. 

  1989.     // just like we are doing for Impression Plan.  Mybe we can piggybak onto one of the ROS tables already in OpenEMR?
    1990. 

  1990. 

  1991.     //define the ROS area to include = $given
    1992. 

  1992.     $given = "ROSGENERAL,ROSHEENT,ROSCV,ROSPULM,ROSGI,ROSGU,ROSDERM,ROSNEURO,ROSPSYCH,ROSMUSCULO,ROSIMMUNO,ROSENDOCRINE,ROSCOMMENTS";
    1993. 

  1993.     $ROS_table = "form_eye_ros";
    1994. 

  1994.     $query = "SELECT $given from " . $ROS_table . " where id=?";
    1995. 

  1995. 

  1996.     $ROS = sqlStatement($query, array($form_id));
    1997. 

  1997.     while ($row = sqlFetchArray($ROS)) {
    1998. 

  1998.         foreach (explode(',', $given) as $item) {
    1999. 

  1999.             $PMSFH['ROS'][$item]['display'] = $row[$item];
    2000. 

  2000.         }
    2001. 

  2001.     }
    2002. 

  2002. 

  2003.     // translator will need to translate each item in $given
    2004. 

  2004.     $PMSFH['ROS']['ROSGENERAL']['short_title'] = xlt("GEN{{General}}");
    2005. 

  2005.     $PMSFH['ROS']['ROSHEENT']['short_title'] = xlt("HEENT");
    2006. 

  2006.     $PMSFH['ROS']['ROSCV']['short_title'] = xlt("CV{{Cardiovascular}}");
    2007. 

  2007.     $PMSFH['ROS']['ROSPULM']['short_title'] = xlt("PULM{{Pulmonary}}");
    2008. 

  2008.     $PMSFH['ROS']['ROSGI']['short_title'] = xlt("GI{{Gastrointestinal}}");
    2009. 

  2009.     $PMSFH['ROS']['ROSGU']['short_title'] = xlt("GU{{Genitourinary}}");
    2010. 

  2010.     $PMSFH['ROS']['ROSDERM']['short_title'] = xlt("DERM{{Dermatology}}");
    2011. 

  2011.     $PMSFH['ROS']['ROSNEURO']['short_title'] = xlt("NEURO{{Neurology}}");
    2012. 

  2012.     $PMSFH['ROS']['ROSPSYCH']['short_title'] = xlt("PSYCH{{Psychiatry}}");
    2013. 

  2013.     $PMSFH['ROS']['ROSMUSCULO']['short_title'] = xlt("ORTHO{{Orthopedics}}");
    2014. 

  2014.     $PMSFH['ROS']['ROSIMMUNO']['short_title'] = xlt("IMMUNO{{Immunology/Rheumatology}}");
    2015. 

  2015.     $PMSFH['ROS']['ROSENDOCRINE']['short_title'] = xlt("ENDO{{Endocrine}}");
    2016. 

  2016.     $PMSFH['ROS']['ROSCOMMENTS']['short_title'] = xlt("Comments");
    2017. 

  2017. 

  2018.     $PMSFH['ROS']['ROSGENERAL']['title'] = xlt("General");
    2019. 

  2019.     $PMSFH['ROS']['ROSHEENT']['title'] = xlt("HEENT");
    2020. 

  2020.     $PMSFH['ROS']['ROSCV']['title'] = xlt("Cardiovascular");
    2021. 

  2021.     $PMSFH['ROS']['ROSPULM']['title'] = xlt("Pulmonary");
    2022. 

  2022.     $PMSFH['ROS']['ROSGI']['title'] = xlt("GI{{Gastrointestinal}}");
    2023. 

  2023.     $PMSFH['ROS']['ROSGU']['title'] = xlt("GU{{Genitourinary}}");
    2024. 

  2024.     $PMSFH['ROS']['ROSDERM']['title'] = xlt("Dermatology");
    2025. 

  2025.     $PMSFH['ROS']['ROSNEURO']['title'] = xlt("Neurology");
    2026. 

  2026.     $PMSFH['ROS']['ROSPSYCH']['title'] = xlt("Pyschiatry");
    2027. 

  2027.     $PMSFH['ROS']['ROSMUSCULO']['title'] = xlt("Musculoskeletal");
    2028. 

  2028.     $PMSFH['ROS']['ROSIMMUNO']['title'] = xlt("Immune System");
    2029. 

  2029.     $PMSFH['ROS']['ROSENDOCRINE']['title'] = xlt("Endocrine");
    2030. 

  2030.     $PMSFH['ROS']['ROSCOMMENTS']['title'] = xlt("Comments");
    2031. 

  2031. 

  2032.     return array($PMSFH); //yowsah!
    2033. 

  2033. }
    2034. 

  2034. /**
    2035. 

  2035.  *  This function uses the complete PMSFH array for a given patient, including the ROS for this encounter
    2036. 

  2036.  *  and returns the PMSFH display square.
    2037. 

  2037.  *  @param integer rows is the number of rows you want to display
    2038. 

  2038.  *  @param option string view defaults to white on beige, versus right sliding panel (text on beige only).
    2039. 

  2039.  *  @param option string min_height to set min height for the row
    2040. 

  2040.  *  @return $display_PMSFH HTML pane when PMSFH is expanded to two panes.
    2041. 

  2041.  */
    2042. 

  2042. function display_PMSFH($rows, $view = "pending", $min_height = "min-height:344px;")
    2043. 

  2043. {
    2044. 

  2044.     global $PMSFH;
    2045. 

  2045.     global $pid;
    2046. 

  2046.     global $PMSFH_titles;
    2047. 

  2047.     if (!$PMFSH) {
    2048. 

  2048.         $PMSFH = build_PMSFH($pid);
    2049. 

  2049.     }
    2050. 

  2050. 

  2051.     ob_start();
    2052. 

  2052.     // There are two rows in our PMH section, only one in the side panel.
    2053. 

  2053.     // If you want it across the bottom in a panel with 8 rows?  Or other wise?
    2054. 

  2054.     // This should be able to handle that too.
    2055. 

  2055. 

  2056.     // We are building the PMSFH panel.
    2057. 

  2057.     // Let's put half in each of the 2 rows... or try to at least.
    2058. 

  2058.     // Find out the number of items present now and put half in each column.
    2059. 

  2059.     foreach ($PMSFH[0] as $key => $value) {
    2060. 

  2060.         $total_PMSFH += count($PMSFH[0][$key]);
    2061. 

  2061.         $total_PMSFH += 2; //add two for the title and a space
    2062. 

  2062.         $count[$key] = count($PMSFH[0][$key]) + 1;
    2063. 

  2063.     }
    2064. 

  2064. 

  2065.     //SOCH, FH and ROS are listed in $PMSFH even if negative, only count positives
    2066. 

  2066.     foreach ($PMSFH[0]['ROS'] as $key => $value) {
    2067. 

  2067.         if ($value['display'] == '') {
    2068. 

  2068.             $total_PMSFH--;
    2069. 

  2069.             $count['ROS']--;
    2070. 

  2070.         }
    2071. 

  2071.     }
    2072. 

  2072. 

  2073.     foreach ($PMSFH[0]['FH'] as $key => $value) {
    2074. 

  2074.         if ($value['display'] == '') {
    2075. 

  2075.             $total_PMSFH--;
    2076. 

  2076.             $count['FH']--;
    2077. 

  2077.         }
    2078. 

  2078.     }
    2079. 

  2079. 

  2080.     foreach ($PMSFH[0]['SOCH'] as $key => $value) {
    2081. 

  2081.         if (($value['display'] == '') || ($item['display'] == 'not_applicable')) {
    2082. 

  2082.             $total_PMSFH--;
    2083. 

  2083.             $count['SOCH']--;
    2084. 

  2084.         }
    2085. 

  2085.     }
    2086. 

  2086. 

  2087.     $counter = "0";
    2088. 

  2088.     $column_max = round($total_PMSFH / $rows) + 1;
    2089. 

  2089.     if ($column_max < "25") {
    2090. 

  2090.         $column_max = '20';
    2091. 

  2091.     }
    2092. 

  2092. 

  2093.     $open_table = "<div style='float:left' class='table PMSFH_table'>";
    2094. 

  2094.     $close_table = "</div>";
    2095. 

  2095.     // $div is used when $counter reaches $column_max and a new row is needed.
    2096. 

  2096.     // It is used only if $row_count <= $rows, ie. $rows -1 times.
    2097. 

  2097.     $div = '</div>
    2098. 

  2098.     <div id="PMSFH_block_2" name="PMSFH_block_2" class="QP_block_outer borderShadow text_clinical" style="' . attr($min_height) . '">';
    2099. 

    2100. 

  2100.     echo $header = '
    2101. 

  2101.             <div id="PMSFH_block_1" name="PMSFH_block_1" class="QP_block borderShadow text_clinical" style="' . attr($min_height) . ';">
    2102. 

  2102.              ';
    2103. 

  2103.     $row_count = 1;
    2104. 

  2104. 

  2105.     foreach ($PMSFH[0] as $key => $value) {
    2106. 

  2106.         if ($key == "FH" || $key == "SOCH" || $key == "ROS") {
    2107. 

  2107.             // We are going to build SocHx, FH and ROS separately below since they are different..
    2108. 

  2108.             continue;
    2109. 

  2109.         }
    2110. 

  2110. 

  2111.         $table = '';
    2112. 

  2112.         $header = '';
    2113. 

  2113.         $header .= '    <table class="PMSFH_header">
    2114. 

  2114.                 <tr>
    2115. 

  2115.                     <td width="90%">
    2116. 

  2116.                         <span class="left" style="font-weight:800;font-size:0.9em;">' . xlt($key) . '</span>
    2117. 

  2117.                     </td>
    2118. 

  2118.                     <td>
    2119. 

  2119.                         <span class="right btn-sm" href="#PMH_anchor" onclick="alter_issue2(\'0\',' . attr_js($key) . ',\'0\');" style="text-align:right;font-size:8px;">' . xlt("New") . '</span>
    2120. 

  2120.                     </td>
    2121. 

  2121.                 </tr>
    2122. 

  2122.                 </table>
    2123. 

  2123.         ';
    2124. 

  2124.         if (count($PMSFH[0][$key]) > '0') {
    2125. 

  2125.             $index = 0;
    2126. 

  2126.             foreach ($PMSFH[0][$key] as $item) {
    2127. 

  2127.                 if (
    2128. 

  2128.                     ( ($key == "Medication") || ($key == "Eye Meds") )
    2129. 

  2129.                     &&
    2130. 

  2130.                         ($item['status'] == "Inactive")
    2131. 

  2131.                 ) {
    2132. 

  2132.                     continue;
    2133. 

  2133.                 }
    2134. 

  2134.                 if (($key == "Medication") && ( !empty($item['row_subtype']))) {
    2135. 

  2135.                     $subtype_Meds[$item['row_subtype']]['name'] = $item['row_subtype'];
    2136. 

  2136.                     $subtype_Meds[$item['row_subtype']]['header'] = '
    2137. 

  2137.                         <table class="PMSFH_header">
    2138. 

  2138.                             <tr>
    2139. 

  2139.                                 <td width="90%">
    2140. 

  2140.                                     <span class="left" style="font-weight:800;font-size:0.9em;">' . xlt(ucwords($item['row_subtype'])) . ' Meds</span>
    2141. 

  2141.                                 </td>
    2142. 

  2142.                                 <td>
    2143. 

  2143.                                     <span class="right btn-sm" href="#PMH_anchor" onclick="alter_issue2(\'0\',\'Eye Meds\',\'0\');" style="text-align:right;font-size:8px;">' . xlt("New") . '</span>
    2144. 

  2144.                                 </td>
    2145. 

  2145.                             </tr>
    2146. 

  2146.                         </table>
    2147. 

  2147.                         ';
    2148. 

  2148.                     $subtype_Meds[$item['row_subtype']]['table'] .= "<span name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2149. 

  2149.                             onclick=\"alter_issue2(" . attr_js($item['rowid']) . ",\"Eye Meds\"," . attr_js($index) . ");\">" . text($item['title']) . "</span><br />";
    2150. 

  2150.                     $index++;
    2151. 

  2151.                     continue;
    2152. 

  2152.                 }
    2153. 

  2153. 

  2154.                 if ($key == "Allergy") {
    2155. 

  2155.                     if ($item['reaction']) {
    2156. 

  2156.                         $reaction = " (" . text($item['reaction']) . ")";
    2157. 

  2157.                     } else {
    2158. 

  2158.                         $reaction = "";
    2159. 

  2159.                     }
    2160. 

  2160. 

  2161.                     $red = "style='color:red;'";
    2162. 

  2162.                 } else {
    2163. 

  2163.                     $red = '';
    2164. 

  2164.                 }
    2165. 

  2165. 

  2166.                 $table .= "<span $red name='QP_PMH_" . $item['rowid'] . "' href='#PMH_anchor' id='QP_PMH_" . $item['rowid'] . "'
    2167. 

  2167.                 onclick=\"alter_issue2(" . attr_js($item['rowid']) . "," . attr_js($key) . "," . attr_js($index) . ");\">" . text($item['title'] . $reaction) . "</span><br />";
    2168. 

  2168.                 $index++;
    2169. 

  2169.             }
    2170. 

  2170.         } else {
    2171. 

  2171.             if ($key == "Allergy") {
    2172. 

  2172.                 $table .= xlt("NKDA{{No known drug allergies}}");
    2173. 

  2173.             } else {
    2174. 

  2174.                 $table .= xlt("None");
    2175. 

  2175.             }
    2176. 

  2176. 

  2177.             $counter++;
    2178. 

  2178.         }
    2179. 

  2179. 

  2180.         $display_PMSFH[$key] = $header . $open_table . $table . $close_table;
    2181. 

  2181.     }
    2182. 

  2182. 

  2183.     echo $display_PMSFH['POH'];
    2184. 

  2184.     $count = $count['POH'] + $count['PMH'] + 4;
    2185. 

  2185.     if ($count >= $column_max) {
    2186. 

  2186.         echo $div . $header1;
    2187. 

  2187.     }
    2188. 

  2188. 

  2189.     echo $display_PMSFH['POS'];
    2190. 

  2190.     $count = $count + $count['POS'] + 4;
    2191. 

  2191.     if ($count >= $column_max) {
    2192. 

  2192.         echo $div . $header1;
    2193. 

  2193.     }
    2194. 

  2194. 

  2195.     echo $display_PMSFH['Eye Meds'];
    2196. 

  2196.     $count = $count + $count['Surgery'] +  4;
    2197. 

  2197.     if (($count >= $column_max) && ($row_count < $rows)) {
    2198. 

  2198.         echo $div;
    2199. 

  2199.         $count = 0;
    2200. 

  2200.         $row_count = 2;
    2201. 

  2201.     }
    2202. 

  2202. 

  2203.     echo $display_PMSFH['PMH'];
    2204. 

  2204.     $count = $count + $count['Surgery'] +  4;
    2205. 

  2205.     if (($count >= $column_max) && ($row_count < $rows)) {
    2206. 

  2206.         echo $div;
    2207. 

  2207.         $count = 0;
    2208. 

  2208.         $row_count = 2;
    2209. 

  2209.     }
    2210. 

  2210. 

  2211.     echo $display_PMSFH['Surgery'];
    2212. 

  2212. 

  2213.     $count = $count + $count['Medication'] + 4;
    2214. 

  2214.     if (($count >= $column_max) && ($row_count < $rows)) {
    2215. 

  2215.         echo $div;
    2216. 

  2216.         $count = 0;
    2217. 

  2217.         $row_count = 2;
    2218. 

  2218.     }
    2219. 

  2219. 

  2220.     echo $display_PMSFH['Medication'];
    2221. 

  2221. 

  2222.     $count = $count + $count['Allergy'] + 4;
    2223. 

  2223.     if (($count >= $column_max) && ($row_count < $rows)) {
    2224. 

  2224.         echo $div;
    2225. 

  2225.         $count = 0;
    2226. 

  2226.         $row_count = 2;
    2227. 

  2227.     }
    2228. 

  2228. 

  2229.     echo $display_PMSFH['Allergy'];
    2230. 

  2230. 

  2231.     $count = $count + $count['FH'] + 4;
    2232. 

  2232.     if (($count >= $column_max) && ($row_count < $rows)) {
    2233. 

  2233.         echo $div;
    2234. 

  2234.         $count = 0;
    2235. 

  2235.         $row_count = 2;
    2236. 

  2236.     } ?>
    2237. 

  2237.         <table class="PMSFH_header">
    2238. 

  2238.                 <tr>
    2239. 

  2239.                     <td width="90%">
    2240. 

  2240.                         <span class="left" style="font-weight:800;font-size:0.9em;"><?php echo xlt("FH{{Family History}}"); ?></span>
    2241. 

  2241.                     </td>
    2242. 

  2242.                     <td >
    2243. 

  2243.                         <span class="right btn-sm" href="#PMH_anchor" onclick="alter_issue2('0','FH','');" style="text-align:right;font-size:8px;"><?php echo xlt("New"); ?></span>
    2244. 

  2244.                     </td>
    2245. 

  2245.                 </tr>
    2246. 

  2246.         </table>
    2247. 

  2247.         <?php
    2248. 

  2248.                 echo $open_table;
    2249. 

  2249.                 $mentions_FH = '';
    2250. 

  2250.         if (count($PMSFH[0]['FH']) > 0) {
    2251. 

  2251.             foreach ($PMSFH[0]['FH'] as $item) {
    2252. 

  2252.                 if (($counter > $column_max) && ($row_count < $rows)) {
    2253. 

  2253.                     echo $close_table . $div . $open_table;
    2254. 

  2254.                     $counter = "0";
    2255. 

  2255.                     $row_count++;
    2256. 

  2256.                 }
    2257. 

  2257. 

  2258.                 if ($item['display'] > '') {
    2259. 

  2259.                     $counter++;
    2260. 

  2260.                     echo "<span name='QP_PMH_" . $item['rowid'] . "' href='#PMH_anchor' id='QP_PMH_" . $item['rowid'] . "'
    2261. 

  2261.                             onclick=\"alter_issue2('0','FH','');\">" . xlt($item['short_title']) . ": " . text($item['display']) . "</span><br />";
    2262. 

  2262.                     $mentions_FH++;
    2263. 

  2263.                 }
    2264. 

  2264.             }
    2265. 

  2265.         }
    2266. 

  2266. 

  2267.         if ($mentions_FH < '1') { ?>
    2268. 

  2268.                 <span href="#PMH_anchor"
    2269. 

  2269.         onclick="alter_issue2('0','FH','');" style="text-align:right;"><?php echo xlt("Negative"); ?></span><br />
    2270. 

  2270.                 <?php
    2271. 

  2271.                 $counter = $counter + 3;
    2272. 

  2272.         }
    2273. 

  2273. 

  2274.         echo $close_table;
    2275. 

  2275.         $count = $count + $count['SOCH'] + 4;
    2276. 

  2276. 

  2277.         if (($count > $column_max) && ($row_count < $rows)) {
    2278. 

  2278.             echo $div;
    2279. 

  2279.             $count = 0;
    2280. 

  2280.             $row_count = 2;
    2281. 

  2281.         } ?>
    2282. 

  2282.                 <table class="PMSFH_header">
    2283. 

  2283.                 <tr>
    2284. 

  2284.                     <td width="90%">
    2285. 

  2285.                         <span class="left" style="font-weight:800;font-size:0.9em;"><?php echo xlt("Social"); ?></span>
    2286. 

  2286.                     </td>
    2287. 

  2287.                     <td >
    2288. 

  2288.                         <span class="right btn-sm" href="#PMH_anchor" onclick="alter_issue2('0','SOCH','');" style="text-align:right;font-size:8px;"><?php echo xlt("New"); ?></span>
    2289. 

  2289.                     </td>
    2290. 

  2290.                 </tr>
    2291. 

  2291.                 </table>
    2292. 

  2292.                 <?php
    2293. 

  2293.                     echo $open_table;
    2294. 

  2294.                 foreach ($PMSFH[0]['SOCH'] as $item) {
    2295. 

  2295.                     if (($counter > $column_max) && ($row_count < $rows)) {
    2296. 

  2296.                         echo $close_table . $div . $open_table;
    2297. 

  2297.                         $counter = "0";
    2298. 

  2298.                         $row_count++;
    2299. 

  2299.                     }
    2300. 

  2300. 

  2301.                     if (($item['display'] > '') && ($item['display'] != 'not_applicable')) {
    2302. 

  2302.                         echo "<span name='QP_PMH_" . $item['rowid'] . "' href='#PMH_anchor' id='QP_PMH_" . $item['rowid'] . "'
    2303. 

  2303.                                 onclick=\"alter_issue2('0','SOCH','');\">" . xlt($item['short_title']) . ": " . text($item['display']) . "</span><br />";
    2304. 

  2304.                         $counter++;
    2305. 

  2305.                         $mentions_SOCH++;
    2306. 

  2306.                     }
    2307. 

  2307.                 }
    2308. 

  2308. 

  2309.                 if (!$mentions_SOCH) {
    2310. 

  2310.                     ?>
    2311. 

  2311.                     <span href="#PMH_anchor"
    2312. 

  2312.                     onclick="alter_issue2('0','SOCH','');" style="text-align:right;"><?php echo xlt("Not documented"); ?></span><br />
    2313. 

  2313.                     <?php
    2314. 

  2314.                     $counter = $counter + 2;
    2315. 

  2315.                 }
    2316. 

  2316. 

  2317.                 echo $close_table;
    2318. 

  2318.                 $count = $count + $count['ROS'] + 4;
    2319. 

  2319. 

  2320.                 if (($count > $column_max) && ($row_count < $rows)) {
    2321. 

  2321.                     echo $div;
    2322. 

  2322.                     $count = 0;
    2323. 

  2323.                     $row_count = 2;
    2324. 

  2324.                 } ?>
    2325. 

  2325.             <table class="PMSFH_header">
    2326. 

  2326.                 <tr>
    2327. 

  2327.                     <td width="90%">
    2328. 

  2328.                         <span class="left" style="font-weight:800;font-size:0.9em;"><?php echo xlt("ROS{{Review of Systems}}"); ?></span>
    2329. 

  2329.                     </td>
    2330. 

  2330.                     <td >
    2331. 

  2331.                         <span class="right btn-sm" href="#PMH_anchor" onclick="alter_issue2('0','ROS','');" style="text-align:right;font-size:8px;"><?php echo xlt("New"); ?></span>
    2332. 

  2332.                     </td>
    2333. 

  2333.                 </tr>
    2334. 

  2334.             </table>
    2335. 

  2335.             <?php
    2336. 

  2336.                     echo $open_table;
    2337. 

  2337.             foreach ($PMSFH[0]['ROS'] as $item) {
    2338. 

  2338.                 if ($item['display'] > '') {
    2339. 

  2339.                     if (($counter > $column_max) && ($row_count < $rows)) {
    2340. 

  2340.                         echo $close_table . $div . $open_table;
    2341. 

  2341.                         $counter = "0";
    2342. 

  2342.                         $row_count++;
    2343. 

  2343.                     }
    2344. 

  2344. 

  2345.                     //xlt($item['short_title']) - for a list of short_titles, see the predefined ROS categories
    2346. 

  2346.                     echo "<span name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2347. 

  2347.                              onclick=\"alter_issue2('0','ROS','');\">" . xlt($item['short_title']) . ": " . text($item['display']) . "</span><br />";
    2348. 

  2348.                     $mention++;
    2349. 

  2349.                     $counter++;
    2350. 

  2350.                 }
    2351. 

  2351.             }
    2352. 

  2352. 

  2353.             if ($mention < 1) {
    2354. 

  2354.                 echo  xlt("Negative") . "<br />";
    2355. 

  2355.                 $counter = $counter++;
    2356. 

  2356.             }
    2357. 

  2357. 

  2358.                     echo $close_table;
    2359. 

  2359.             ?>
    2360. 

  2360.         </div>
    2361. 

  2361.             <?php
    2362. 

  2362.             $PMH_panel = ob_get_contents();
    2363. 

  2363.             ob_end_clean();
    2364. 

  2364.             return $PMH_panel;
    2365. 

  2365. }
    2366. 

  2366. 

  2367. /**
    2368. 

  2368.  *  This function uses the complete PMSFH array for a given patient, including the ROS for this encounter
    2369. 

  2369.  *  and returns the PMSFH/ROS sliding Right Panel
    2370. 

  2370.  *
    2371. 

  2371.  *  @param array $PMSFH
    2372. 

  2372.  *  @return $right_panel html
    2373. 

  2373.  */
    2374. 

  2374. function show_PMSFH_panel($PMSFH, $columns = '1')
    2375. 

  2375. {
    2376. 

  2376.     global $pcp_data;
    2377. 

  2377.     global $ref_data;
    2378. 

  2378.     ob_start();
    2379. 

  2379. 

  2380.     //<!-- POH -->
    2381. 

  2381.     echo "<br /><span class='panel_title' title='" . xla('Past Ocular History') . "'>" . xlt("POH{{Past Ocular History}}") . ":</span>";
    2382. 

  2382.     ?>
    2383. 

  2383.     <span class="top-right btn-sm" href="#PMH_anchor"
    2384. 

  2384.         onclick="alter_issue2('0','POH','');"
    2385. 

  2385.         style="text-align:right;font-size:8px;"><?php echo xlt("Add"); ?></span>
    2386. 

  2386.     <br />
    2387. 

  2387.     <?php
    2388. 

  2388.     if ($PMSFH[0]['POH']) {
    2389. 

  2389.         $i = 0;
    2390. 

  2390.         foreach ($PMSFH[0]['POH'] as $item) {
    2391. 

  2391.             echo "<span name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2392. 

  2392.             onclick=\"alter_issue2(" . attr_js($item['rowid']) . ",'POH','" . $i . "');\">" . text($item['title']) . "</span><br />";
    2393. 

  2393.             $i++;
    2394. 

  2394.         }
    2395. 

  2395.     } else { ?>
    2396. 

  2396.         <span href="#PMH_anchor"
    2397. 

  2397.         onclick="alter_issue2('0','POH','');" class="disabled_button"><?php echo xlt("None"); ?><br /></span>
    2398. 

  2398.         <?php
    2399. 

  2399.     }
    2400. 

  2400. 

  2401.     //<!-- POS -->
    2402. 

  2402.     echo "<br /><span class='panel_title' title='" . xla('Past Ocular Surgery') . "'>" . xlt("POS{{Past Ocular Surgery}}") . ":</span>";
    2403. 

  2403.     ?>
    2404. 

  2404.     <span class="top-right btn-sm" href="#PMH_anchor"
    2405. 

  2405.         onclick="alter_issue2('0','POS','');"
    2406. 

  2406.         style="text-align:right;font-size:8px;"><?php echo xlt("Add"); ?></span>
    2407. 

  2407.     <br />
    2408. 

  2408.     <?php
    2409. 

  2409.     if ($PMSFH[0]['POS']) {
    2410. 

  2410.         $i = 0;
    2411. 

  2411.         foreach ($PMSFH[0]['POS'] as $item) {
    2412. 

  2412.             echo "<span name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2413. 

  2413.             onclick=\"alter_issue2(" . attr_js($item['rowid']) . ",'POS','" . $i . "');\">" . text($item['title']) . "</span><br />";
    2414. 

  2414.             $i++;
    2415. 

  2415.         }
    2416. 

  2416.     } else { ?>
    2417. 

  2417.         <span href="#PMH_anchor"
    2418. 

  2418.         onclick="alter_issue2('0','POS','');" class="disabled_button"><?php echo xlt("None"); ?><br /></span>
    2419. 

  2419.         <?php
    2420. 

  2420.     }
    2421. 

  2421. 

  2422. //<!-- Eye Meds -->
    2423. 

  2423.     echo "<br /><span class='panel_title' title='" . xla("Eye Meds") . "'>" . xlt("Eye Meds") . ":</span>";
    2424. 

  2424.     ?><span class="top-right btn-sm" href="#PMH_anchor"
    2425. 

  2425.             onclick="alter_issue2('0','Eye Meds','');" style="text-align:right;font-size:8px;"><?php echo xlt("Add"); ?></span>
    2426. 

  2426.     <br />
    2427. 

  2427.     <?php
    2428. 

  2428.     if ($PMSFH[0]['Eye Meds']) {
    2429. 

  2429.          $i = 0;
    2430. 

  2430.         foreach ($PMSFH[0]['Eye Meds'] as $item) {
    2431. 

  2431.             if (($item['status'] == "Inactive") || ($item['row_subtype'] != "eye")) {
    2432. 

  2432.                 $i++;
    2433. 

  2433.                 continue;
    2434. 

  2434.             }
    2435. 

  2435.             echo "<span name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2436. 

  2436.             onclick=\"alter_issue2(" . attr_js($item['rowid']) . ",'Eye Meds','" . $i . "');\" > " . text($item['title']) . "</span><br />";
    2437. 

  2437.             $i++;
    2438. 

  2438.         }
    2439. 

  2439.     } else { ?>
    2440. 

  2440.         <span href="#PMH_anchor"
    2441. 

  2441.         onclick="alter_issue2('0','Medication','');" class="disabled_button"><?php echo xlt("None"); ?><br /></span>
    2442. 

  2442.         <?php
    2443. 

  2443.     }
    2444. 

  2444. 

  2445.     //<!-- PMH -->
    2446. 

  2446.     echo "<br /> <span class='panel_title' title='" . xla('Past Medical History') . "'>" . xlt("PMH{{Past Medical History}}") . ":</span>";
    2447. 

  2447.     ?><span class="top-right btn-sm" href="#PMH_anchor"
    2448. 

  2448.     onclick="alter_issue2('0','PMH','');" style="text-align:right;font-size:8px;"><?php echo xlt("Add"); ?></span>
    2449. 

  2449.     <br />
    2450. 

  2450.     <?php
    2451. 

  2451.     if ($PMSFH[0]['PMH']) {
    2452. 

  2452.         $i = 0;
    2453. 

  2453.         foreach ($PMSFH[0]['PMH'] as $item) {
    2454. 

  2454.             if ($item['enddate'] !== " ") {
    2455. 

  2455.                 echo "<span name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2456. 

  2456.             onclick=\"alter_issue2(" . attr_js($item['rowid']) . ",'PMH','" . $i . "');\">" . text($item['title']) . "</span><br />";
    2457. 

  2457.                 $i++;
    2458. 

  2458.             }
    2459. 

  2459.         }
    2460. 

  2460.     } else { ?>
    2461. 

  2461.         <span href="#PMH_anchor"
    2462. 

  2462.         onclick="alter_issue2('0','PMH','');" class="disabled_button"><?php echo xlt("None"); ?><br /></span>
    2463. 

  2463.         <?php
    2464. 

  2464.     }
    2465. 

  2465. 

  2466.     //<!-- Surgeries -->
    2467. 

  2467.     echo "<br /><span class='panel_title' title='" . xla("Past Surgical History") . "'>" . xlt("Surgery") . ":</span>";
    2468. 

  2468.     ?><span class="top-right btn-sm" href="#PMH_anchor"
    2469. 

  2469.     onclick="alter_issue2('0','Surgery','');" style="text-align:right;font-size:8px;"><?php echo xlt("Add"); ?></span>
    2470. 

  2470.     <br />
    2471. 

  2471.     <?php
    2472. 

  2472.     if ($PMSFH[0]['Surgery']) {
    2473. 

  2473.         $i = 0;
    2474. 

  2474.         foreach ($PMSFH[0]['Surgery'] as $item) {
    2475. 

  2475.             echo "<span name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2476. 

  2476.             onclick=\"alter_issue2(" . attr_js($item['rowid']) . ",'Surgery','" . $i . "');\">" . text($item['title']) . "<br /></span>";
    2477. 

  2477.             $i++;
    2478. 

  2478.         }
    2479. 

  2479.     } else { ?>
    2480. 

  2480.         <span href="#PMH_anchor"
    2481. 

  2481.         onclick="alter_issue2('0','Surgery','');" class="disabled_button"><?php echo xlt("None"); ?><br /></span>
    2482. 

  2482.         <?php
    2483. 

  2483.     }
    2484. 

  2484. 

  2485.     //<!-- Meds -->
    2486. 

  2486.     echo "<br /><span class='panel_title' title='" . xla("Medications") . "'>" . xlt("Medication") . ":</span>";
    2487. 

  2487.     ?><span class="top-right btn-sm" href="#PMH_anchor"
    2488. 

  2488.     onclick="alter_issue2('0','Medication','');" style="text-align:right;font-size:8px;"><?php echo xlt("Add"); ?></span>
    2489. 

  2489.     <br />
    2490. 

  2490.     <?php
    2491. 

  2491.     if ($PMSFH[0]['Medication']) {
    2492. 

  2492.         $i = 0;
    2493. 

  2493.         foreach ($PMSFH[0]['Medication'] as $item) {
    2494. 

  2494.             if (($item['row_subtype'] == "eye") || ($item['status'] == "Inactive")) {
    2495. 

  2495.                 $i++;
    2496. 

  2496.                 continue;
    2497. 

  2497.             }
    2498. 

  2498.             echo "<span name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2499. 

  2499.             onclick=\"alter_issue2(" . attr_js($item['rowid']) . ",'Medication','" . $i . "');\">" . text($item['title']) . "</span><br />";
    2500. 

  2500.             $i++;
    2501. 

  2501.         }
    2502. 

  2502.     } else { ?>
    2503. 

  2503.         <span href="#PMH_anchor"
    2504. 

  2504.         onclick="alter_issue2('0','Medication','');" class="disabled_button"><?php echo xlt("None"); ?><br /></span>
    2505. 

  2505.         <?php
    2506. 

  2506.     }
    2507. 

  2507. 

  2508. 

  2509.     //<!-- Allergies -->
    2510. 

  2510.     echo "<br /><span class='panel_title' title='" . xla("Allergies") . "'>" . xlt("Allergy") . ":</span>";
    2511. 

  2511.     ?><span class="top-right btn-sm" href="#PMH_anchor"
    2512. 

  2512.     onclick="alter_issue2('0','Allergy','');" style="text-align:right;font-size:8px;"><?php echo xlt("Add"); ?></span>
    2513. 

  2513.     <br />
    2514. 

  2514.     <?php
    2515. 

  2515.     if ($PMSFH[0]['Allergy']) {
    2516. 

  2516.         $i = 0;
    2517. 

  2517.         foreach ($PMSFH[0]['Allergy'] as $item) {
    2518. 

  2518.             if ($item['reaction']) {
    2519. 

  2519.                 $reaction = "(" . text($item['reaction']) . ")";
    2520. 

  2520.             } else {
    2521. 

  2521.                 $reaction = "";
    2522. 

  2522.             }
    2523. 

  2523. 

  2524.             echo "<span style='color:red;' name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2525. 

  2525.       onclick=\"alter_issue2(" . attr_js($item['rowid']) . ",'Allergy','" . $i . "');\">" . text($item['title']) . " " . $reaction . "</span><br />";
    2526. 

  2526.             $i++;
    2527. 

  2527.         }
    2528. 

  2528.     } else { ?>
    2529. 

  2529.         <span href="#PMH_anchor"
    2530. 

  2530.         onclick="alter_issue2('0','Allergy','');" ><?php echo xlt("NKDA{{No known drug allergies}}"); ?><br /></span>
    2531. 

  2531.         <?php
    2532. 

  2532.     }
    2533. 

  2533. 

  2534.        //<!-- Social History -->
    2535. 

  2535.     echo "<br /><span class='panel_title' title='" . xla("Social History") . "'>" . xlt('Soc Hx{{Social History}}') . ":</span>";
    2536. 

  2536.     ?><span class="top-right btn-sm" href="#PMH_anchor"
    2537. 

  2537.     onclick="alter_issue2('0','SOCH','');" style="text-align:right;font-size:8px;"><?php echo xlt("Add"); ?>
    2538. 

  2538.     </span><br />
    2539. 

  2539.     <?php
    2540. 

  2540.     foreach ($PMSFH[0]['SOCH'] as $k => $item) {
    2541. 

  2541.         if (($item['display']) && ($item['display'] != 'not_applicable')) {
    2542. 

  2542.             echo "<span name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2543. 

  2543.         onclick=\"alter_issue2('0','SOCH','');\">" . xlt($item['short_title']) . ": " . text($item['display']) . "<br /></span>";
    2544. 

  2544. 

  2545.             $mention_SOCH++;
    2546. 

  2546.         }
    2547. 

  2547.     }
    2548. 

  2548. 

  2549.     if (!$mention_SOCH) {
    2550. 

  2550.         ?>
    2551. 

  2551.         <span href="#PMH_anchor"
    2552. 

  2552.         onclick="alter_issue2('0','SOCH','');" class="disabled_button"><?php echo xlt("Negative"); ?><br /></span>
    2553. 

  2553.         <?php
    2554. 

  2554.     }
    2555. 

  2555. 

  2556.     //<!-- Family History -->
    2557. 

  2557.     echo "<br /><span class='panel_title' title='" . xla("Family History") . "'>" . xlt("FH{{Family History}}") . ":</span>";
    2558. 

  2558.     ?><span class="top-right btn-sm" href="#PMH_anchor"
    2559. 

  2559.     onclick="alter_issue2('0','FH','');" style="text-align:right;font-size:8px;"><?php echo xlt("Add"); ?></span><br />
    2560. 

  2560. 

  2561.     <?php
    2562. 

  2562.     if (count($PMSFH[0]['FH']) > 0) {
    2563. 

  2563.         foreach ($PMSFH[0]['FH'] as $item) {
    2564. 

  2564.             if ($item['display'] > '') {
    2565. 

  2565.                 echo "<span name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2566. 

  2566.                 onclick=\"alter_issue2('0','FH','');\">" . xlt($item['short_title']) . ": " . text($item['display']) . "<br /></span>";
    2567. 

  2567.                 $mention_FH++;
    2568. 

  2568.             }
    2569. 

  2569.         }
    2570. 

  2570.     }
    2571. 

  2571. 

  2572.     if (!$mention_FH) {
    2573. 

  2573.         ?>
    2574. 

  2574.         <span href="#PMH_anchor"
    2575. 

  2575.         onclick="alter_issue2('0','FH','');" class="disabled_button"><?php echo xlt("Negative"); ?><br /></span>
    2576. 

  2576.         <?php
    2577. 

  2577.     }
    2578. 

  2578. 

  2579.     echo "<br /><span class='panel_title' title='" . xla("Review of Systems") . "'>" . xlt("ROS{{Review of Systems}}") . ":</span>";
    2580. 

  2580.     ?><span class="top-right btn-sm" href="#PMH_anchor"
    2581. 

  2581.     onclick="alter_issue('0','ROS','');" style="text-align:right;font-size:8px;"><?php echo xlt("Add"); ?></span>
    2582. 

  2582.     <br />
    2583. 

  2583.     <?php
    2584. 

  2584.     foreach ($PMSFH[0]['ROS'] as $item) {
    2585. 

  2585.         if ($item['display']) {
    2586. 

  2586.             echo "<span name='QP_PMH_" . attr($item['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($item['rowid']) . "'
    2587. 

  2587.             onclick=\"alter_issue2('0','ROS','');\">" . text($item['short_title']) . ": " . text($item['display']) . "</span><br />";
    2588. 

  2588.             $mention_ROS++;
    2589. 

  2589.         }
    2590. 

  2590.     }
    2591. 

  2591. 

  2592.     if (!$mention_ROS) { ?>
    2593. 

  2593.         <span href="#PMH_anchor"
    2594. 

  2594.         onclick="alter_issue2('0','ROS','');" class="disabled_button"><?php echo xlt('Negative'); ?><br /></span>
    2595. 

  2595.         <?php
    2596. 

  2596.     }
    2597. 

  2597. 

  2598.     echo "<br /><br /><br />";
    2599. 

  2599.         $right_panel = ob_get_contents();
    2600. 

  2600. 

  2601.     ob_end_clean();
    2602. 

  2602.     return $right_panel;
    2603. 

  2603. }
    2604. 

  2604. 

  2605. /**
    2606. 

  2606.  *  This function displays via echo the PMSFH/ROS in the report
    2607. 

  2607.  *
    2608. 

  2608.  *  @param array $PMSFH
    2609. 

  2609.  *
    2610. 

  2610.  */
    2611. 

  2611. function show_PMSFH_report($PMSFH)
    2612. 

  2612. {
    2613. 

  2613.     global $pid;
    2614. 

  2614.     global $ISSUE_TYPES;
    2615. 

  2615. 

  2616.     //4 panels
    2617. 

  2617.     $rows = '4';
    2618. 

  2618.     if (!$PMFSH) {
    2619. 

  2619.         $PMSFH = build_PMSFH($pid);
    2620. 

  2620.     }
    2621. 

  2621. 

  2622.     // Find out the number of items present now and put 1/4 in each column.
    2623. 

  2623.     foreach ($PMSFH[0] as $key => $value) {
    2624. 

  2624.         $total_PMSFH += count($PMSFH[0][$key]);
    2625. 

  2625.         $total_PMSFH += 2; //add two for the title and a space
    2626. 

  2626.         $count[$key] = count($PMSFH[0][$key]) + 1;
    2627. 

  2627.     }
    2628. 

  2628. 

  2629.     //SOCH, FH and ROS are listed in $PMSFH even if negative, only count positives
    2630. 

  2630.     foreach ($PMSFH[0]['ROS'] as $key => $value) {
    2631. 

  2631.         if ($value['display'] == '') {
    2632. 

  2632.             $total_PMSFH--;
    2633. 

  2633.             $count['ROS']--;
    2634. 

  2634.         }
    2635. 

  2635.     }
    2636. 

  2636. 

  2637.     foreach ($PMSFH[0]['FH'] as $key => $value) {
    2638. 

  2638.         if ($value['display'] == '') {
    2639. 

  2639.             $total_PMSFH--;
    2640. 

  2640.             $count['FH']--;
    2641. 

  2641.         }
    2642. 

  2642.     }
    2643. 

  2643. 

  2644.     foreach ($PMSFH[0]['SOCH'] as $key => $value) {
    2645. 

  2645.         if (($value['display'] == '') || ($value['display'] == 'not_applicable')) {
    2646. 

  2646.             $total_PMSFH--;
    2647. 

  2647.             $count['SOCH']--;
    2648. 

  2648.         }
    2649. 

  2649.     }
    2650. 

  2650. 

  2651.     $counter = "0";
    2652. 

  2652.     $column_max = round($total_PMSFH / $rows) ;
    2653. 

  2653.     $panel_size = round($total_PMSFH / $rows) ;
    2654. 

  2654. 

  2655.     //<!-- POH -->
    2656. 

  2656.     $counter++;
    2657. 

  2657.     $counter++;
    2658. 

  2658.     echo "<table style='width:700px;'>
    2659. 

  2659.                 <tr>
    2660. 

  2660.                     <td style='vertical-align:top;
    2661. 

  2661.                                width:150px;
    2662. 

  2662.                                padding-left: 14px;
    2663. 

  2663.                                padding-right: 4px;
    2664. 

  2664.                                text-align: left;'>
    2665. 

  2665.                                <br /><span style='font-weight:bold;'>" . xlt("POH{{Past Ocular History}}") . ":</span>";
    2666. 

  2666.     //note the HTML2PDF does not like <span style="font-weight:bold;"></span> so we are using the deprecated <b></b>
    2667. 

  2667.     ?>
    2668. 

  2668.     <br />
    2669. 

  2669.     <?php
    2670. 

  2670.     if ($PMSFH[0]['POH'] > "") {
    2671. 

  2671.         foreach ($PMSFH[0]['POH'] as $item) {
    2672. 

  2672.             echo text($item['title']) . " " . text($item['diagnosis']) . "<br />";
    2673. 

  2673.             $counter++;
    2674. 

  2674.         }
    2675. 

  2675.     } else {
    2676. 

  2676.         echo xlt("None") . "<br />";
    2677. 

  2677.     }
    2678. 

  2678. 

  2679.     if (($counter + $count['POS']) > $panel_size) {
    2680. 

  2680.         echo "</td><td style='padding-left: 14px;
    2681. 

  2681.                               padding-right: 4px;
    2682. 

  2682.                               text-align: left;
    2683. 

  2683.                               vertical-align:top;
    2684. 

  2684.                               width:150px;'>";
    2685. 

  2685.         $counter = "0";
    2686. 

  2686.     }
    2687. 

  2687. 

  2688.     $counter++;
    2689. 

  2689.     $counter++;
    2690. 

  2690.     //<!-- PMH -->
    2691. 

  2691.     echo "<br /><span style='font-weight:bold;'>" . xlt("Eye Surgery") . ":</span>";
    2692. 

  2692.     ?>
    2693. 

  2693.     <br />
    2694. 

  2694.     <?php
    2695. 

  2695.     if ($PMSFH[0]['POS'] > "") {
    2696. 

  2696.         foreach ($PMSFH[0]['POS'] as $item) {
    2697. 

  2697.             echo text($item['title']) . " " . text($item['diagnosis']) . "<br />";
    2698. 

  2698.             $counter++;
    2699. 

  2699.         }
    2700. 

  2700.     } else {
    2701. 

  2701.         echo xlt("None") . "<br />";
    2702. 

  2702.     }
    2703. 

  2703. 

  2704.     if (($counter + $count['PMH']) > $panel_size) {
    2705. 

  2705.         echo "</td><td style='padding-left: 14px;
    2706. 

  2706.                                 padding-right: 4px;
    2707. 

  2707.                                 text-align: left;
    2708. 

  2708.                                 vertical-align:top;
    2709. 

  2709.                                 width:150px;'>";
    2710. 

  2710.         $counter = "0";
    2711. 

  2711.     }
    2712. 

  2712. 

  2713.     $counter++;
    2714. 

  2714.     $counter++;
    2715. 

  2715.     //<!-- PMH -->
    2716. 

  2716.     echo "<br /><span style='font-weight:bold;'>" . xlt("PMH") . ":</span>";
    2717. 

  2717.     ?>
    2718. 

  2718.     <br />
    2719. 

  2719.     <?php
    2720. 

  2720.     if ($PMSFH[0]['PMH'] > "") {
    2721. 

  2721.         foreach ($PMSFH[0]['PMH'] as $item) {
    2722. 

  2722.             echo text($item['title']) . " " . text($item['diagnosis']) . "<br />";
    2723. 

  2723.             $counter++;
    2724. 

  2724.         }
    2725. 

  2725.     } else {
    2726. 

  2726.         echo xlt("None") . "<br />";
    2727. 

  2727.     }
    2728. 

  2728. 

  2729. 

  2730.     if ($counter + $count['Medication'] > $panel_size) {
    2731. 

  2731.         echo "</td><td style='padding-left: 14px;
    2732. 

  2732.                               padding-right: 4px;
    2733. 

  2733.                               text-align: left;
    2734. 

  2734.                               vertical-align:top;
    2735. 

  2735.                               width:150px;'>";
    2736. 

  2736.         $counter = "0";
    2737. 

  2737.     }
    2738. 

  2738. 

  2739.     $counter++;
    2740. 

  2740.     $counter++;
    2741. 

  2741.     //<!-- Meds -->
    2742. 

  2742.     echo "<br /><span style='font-weight:bold;'>" . xlt("Medication") . ":</span>";
    2743. 

  2743.     ?>
    2744. 

  2744.     <br />
    2745. 

  2745.     <?php
    2746. 

  2746.     if ($PMSFH[0]['Medication'] > "") {
    2747. 

  2747.         foreach ($PMSFH[0]['Medication'] as $item) {
    2748. 

  2748.             echo text($item['title']) . " " . text($item['diagnosis']) . "<br />";
    2749. 

  2749.             $counter++;
    2750. 

  2750.         }
    2751. 

  2751.     } else {
    2752. 

  2752.         echo xlt("None") . "<br />";
    2753. 

  2753.     }
    2754. 

  2754. 

  2755.     if ($counter + $count['Surgery'] > $panel_size) {
    2756. 

  2756.         echo "</td><td style='padding-left: 14px;
    2757. 

  2757.                               padding-right: 4px;
    2758. 

  2758.                               text-align: left;
    2759. 

  2759.                               vertical-align:top;
    2760. 

  2760.                               width:150px;'>";
    2761. 

  2761.         $counter = "0";
    2762. 

  2762.     }
    2763. 

  2763. 

  2764.     //<!-- Surgeries -->
    2765. 

  2765.     $counter++;
    2766. 

  2766.     $counter++;
    2767. 

  2767.     echo "<br /><span style='font-weight:bold;'>" . xlt("Surgery") . ":</span>";
    2768. 

  2768.     ?><br />
    2769. 

  2769.     <?php
    2770. 

  2770.     if ($PMSFH[0]['Surgery'] > "") {
    2771. 

  2771.         foreach ($PMSFH[0]['Surgery'] as $item) {
    2772. 

  2772.             echo text($item['title']) . " " . text($item['diagnosis']) . "<br />";
    2773. 

  2773.             $counter++;
    2774. 

  2774.         }
    2775. 

  2775.     } else {
    2776. 

  2776.         echo xlt("None") . "<br />";
    2777. 

  2777.     }
    2778. 

  2778. 

  2779.     if ($counter + $count['Allergy'] > $panel_size) {
    2780. 

  2780.         echo "</td><td style='padding-left: 14px;
    2781. 

  2781.                                 padding-right: 4px;
    2782. 

  2782.                                 text-align: left;
    2783. 

  2783.                                 vertical-align:top;
    2784. 

  2784.                                 width:150px;'>";
    2785. 

  2785.         $counter = "0";
    2786. 

  2786.     }
    2787. 

  2787. 

  2788.     $counter++;
    2789. 

  2789.     $counter++;
    2790. 

  2790.     //<!-- Allergies -->
    2791. 

  2791.     echo "<br /><span style='font-weight:bold;'>" . xlt("Allergy") . ":</span>";
    2792. 

  2792.     ?>
    2793. 

  2793.     <br />
    2794. 

  2794.     <?php
    2795. 

  2795.     if ($PMSFH[0]['Allergy'] > "") {
    2796. 

  2796.         foreach ($PMSFH[0]['Allergy'] as $item) {
    2797. 

  2797.             echo text($item['title']) . "<br />";
    2798. 

  2798.             $counter++;
    2799. 

  2799.         }
    2800. 

  2800.     } else {
    2801. 

  2801.         echo xlt("NKDA{{No known drug allergies}}") . "<br />";
    2802. 

  2802.     }
    2803. 

  2803. 

  2804.     if ($counter + $count['SOCH'] > $panel_size) {
    2805. 

  2805.         echo "</td><td style='padding-left: 14px;
    2806. 

  2806.                               padding-right: 4px;
    2807. 

  2807.                               text-align: left;
    2808. 

  2808.                               vertical-align:top;
    2809. 

  2809.                               width:150px;'>";
    2810. 

  2810.         $counter = "0";
    2811. 

  2811.     }
    2812. 

  2812. 

  2813.     $counter++;
    2814. 

  2814.     $counter++;
    2815. 

  2815.     //<!-- SocHx -->
    2816. 

  2816.     echo "<br /><span style='font-weight:bold;'>" . xlt("Soc Hx{{Social History}}") . ":</span>";
    2817. 

  2817.     ?>
    2818. 

  2818.     <br />
    2819. 

  2819.     <?php
    2820. 

  2820.     foreach ($PMSFH[0]['SOCH'] as $k => $item) {
    2821. 

  2821.         if (($item['display']) && ($item['display'] != 'not_applicable')) {
    2822. 

  2822.             echo xlt($item['short_title']) . ": " . text($item['display']) . "<br />";
    2823. 

  2823.             $mention_PSOCH++;
    2824. 

  2824.             $counter++;
    2825. 

  2825.         }
    2826. 

  2826.     }
    2827. 

  2827. 

  2828.     if (!$mention_PSOCH) {
    2829. 

  2829.         echo xlt("Negative") . "<br />";
    2830. 

  2830.     }
    2831. 

  2831. 

  2832.     if (($counter + $count['FH']) > $panel_size) {
    2833. 

  2833.         echo "</td><td style='padding-left: 14px;
    2834. 

  2834.                               padding-right: 4px;
    2835. 

  2835.                               text-align: left;
    2836. 

  2836.                               vertical-align:top;
    2837. 

  2837.                               width:150px;'>";
    2838. 

  2838.         $counter = "0";
    2839. 

  2839.     }
    2840. 

  2840. 

  2841.     $counter++;
    2842. 

  2842.     $counter++;
    2843. 

  2843.     //<!-- FH -->
    2844. 

  2844.     echo "<br /><span style='font-weight:bold;'>" . xlt("FH{{Family History}}") . ":</span>";
    2845. 

  2845.     ?>
    2846. 

  2846.     <br />
    2847. 

  2847.     <?php
    2848. 

  2848.     foreach ($PMSFH[0]['FH'] as $item) {
    2849. 

  2849.         if ($item['display']) {
    2850. 

  2850.             echo xlt($item['short_title']) . ": " . text($item['display']) . "<br />";
    2851. 

  2851.             $mention_FH++;
    2852. 

  2852.             $counter++;
    2853. 

  2853.         }
    2854. 

  2854.     }
    2855. 

  2855. 

  2856.     if (!$mention_FH) {
    2857. 

  2857.         echo xlt("Negative") . "<br />";
    2858. 

  2858.     }
    2859. 

  2859. 

  2860.     if (($counter !== "0") && (($counter + $count['ROS']) > $panel_size)) {
    2861. 

  2861.         echo "</td><td style='padding-left: 14px;
    2862. 

  2862.                                 padding-right: 4px;
    2863. 

  2863.                                 text-align: left
    2864. 

  2864.                                 vertical-align:top;
    2865. 

  2865.                                 width:150px;'>";
    2866. 

  2866.         $counter = "0";
    2867. 

  2867.     }
    2868. 

  2868. 

  2869.     $counter++;
    2870. 

  2870.     $counter++;
    2871. 

  2871.     //<!-- ROS -->
    2872. 

  2872.     echo "<br /><span style='font-weight:bold;'>" . xlt("ROS{{Review of Systems}}") . ":</span>";
    2873. 

  2873.     ?><br />
    2874. 

  2874.     <?php
    2875. 

  2875.     foreach ($PMSFH[0]['ROS'] as $item) {
    2876. 

  2876.         if ($item['display']) {
    2877. 

  2877.             echo xlt($item['short_title']) . ": " . $item['display'] . "<br />";
    2878. 

  2878.             $mention_ROS++;
    2879. 

  2879.             $counter++;
    2880. 

  2880.         }
    2881. 

  2881.     }
    2882. 

  2882. 

  2883.     if ($mention_ROS < '1') {
    2884. 

  2884.         echo xlt("Negative");
    2885. 

  2885.     }
    2886. 

  2886. 

  2887.     echo "</td></tr></table>";
    2888. 

  2888. }
    2889. 

  2889. 

  2890. /**
    2891. 

  2891.  *  This function returns the Provider-specific Quick Pick selections for a zone (2 input values)
    2892. 

  2892.  *
    2893. 

  2893.  *  These selctions are draw from an openEMR list, Eye_QP_$zone_$provider_id.
    2894. 

  2894.  *  This list is created from Eye_QP_$zone_defaults when a new provider opens the form.
    2895. 

  2895.  *  Because it is a "list", the end-user can modify it.
    2896. 

  2896.  *  A link to the list "the pencil icon" is provided to allow customization - displayed in RTop frame.
    2897. 

  2897.  *  If frames are ever removed, this will need to be reworked.
    2898. 

  2898.  *
    2899. 

  2899.  *  @param string $zone options EXT,ANTSEG,RETINA,NEURO
    2900. 

  2900.  *  @param string $provider_id
    2901. 

  2901.  *  @return QP text: when called directly outputs the ZONE QP lists for this provider
    2902. 

  2902.  */
    2903. 

  2903. function display_QP($zone, $provider_id)
    2904. 

  2904. {
    2905. 

  2905.     global $prov_data;
    2906. 

  2906.     if (!$zone || !$provider_id) {
    2907. 

  2907.         return;
    2908. 

  2908.     }
    2909. 

  2909. 

  2910.     ob_start();
    2911. 

  2911.     $query  = "SELECT * FROM list_options where list_id =?  ORDER BY seq";
    2912. 

  2912.     $result = sqlStatement($query, array("Eye_QP_" . $zone . "_$provider_id"));
    2913. 

  2913.     if (sqlNumRows($result) < '1') {
    2914. 

  2914.         //this provider's list has not been created yet.
    2915. 

  2915.         $query = "REPLACE INTO `list_options` (`list_id`, `option_id`, `title`, `seq`, `is_default`, `option_value`) VALUES ('lists', ?, ?, '0', '1', '0')";
    2916. 

  2916.         sqlStatement($query, array('Eye_QP_' . $zone . '_' . $provider_id,'Eye QP List ' . $zone . ' for ' . $prov_data['lname']));
    2917. 

  2917.         $query = "SELECT * FROM list_options where list_id =? ORDER BY seq";
    2918. 

  2918.         $result = sqlStatement($query, array("Eye_QP_" . $zone . "_defaults"));
    2919. 

  2919.         $SQL_INSERT = "INSERT INTO `list_options` (`list_id`, `option_id`, `title`, `seq`, `mapping`, `notes`, `codes`, `activity`, `subtype`) VALUES (?,?,?,?,?,?,?,?,?)";
    2920. 

  2920.     } else {
    2921. 

  2921.         $SQL_INSERT = '';
    2922. 

  2922.     }
    2923. 

  2923. 

  2924.     while ($QP = sqlFetchArray($result)) {
    2925. 

  2925.         if (!empty($SQL_INSERT)) {
    2926. 

  2926.             sqlStatement($SQL_INSERT, array("Eye_QP_" . $zone . "_" . $provider_id,$QP['option_id'],$QP['title'],$QP['seq'],$QP['mapping'],$QP['notes'],$QP['codes'],$QP['activity'],$QP['subtype']));
    2927. 

  2927.         }
    2928. 

  2928. 

  2929.         $here[$QP['title']][$QP['subtype']]['notes']    = $QP['notes'];     //the text to fill into form
    2930. 

  2930.         $here[$QP['title']][$QP['subtype']]['codes']    = $QP['codes'];     //the code if attached.
    2931. 

  2931.         $here[$QP['title']][$QP['subtype']]['mapping']  = $QP['mapping'];   //the fieldname without laterality eg CONJ
    2932. 

  2932.         $here[$QP['title']][$QP['subtype']]['activity'] = $QP['activity'];  //1 to replace, 2 to append
    2933. 

  2933.     }
    2934. 

  2934. 

  2935.     foreach ($here as $title => $values) { //start QP section items
    2936. 

  2936.         $title_show = (strlen($title) > 19) ? substr($title, 0, 16) . '...' : $title;
    2937. 

  2937.         if (preg_match('/clear field/', $title)) {
    2938. 

  2938.             $title_show = "<em><strong>$title</strong></em>";
    2939. 

  2939.         }
    2940. 

  2940. 

  2941.         if ($values['OD']) {
    2942. 

  2942.             if ($values['OD']['activity'] == '0') {
    2943. 

  2943.                 $action = "ADD";
    2944. 

  2944.             }
    2945. 

  2945. 

  2946.             if ($values['OD']['activity'] == '1') {
    2947. 

  2947.                 $action = "REPLACE" ;
    2948. 

  2948.             }
    2949. 

  2949. 

  2950.             if ($values['OD']['activity'] == '2') {
    2951. 

  2951.                 $action = "APPEND" ;
    2952. 

  2952.             }
    2953. 

  2953.             ?>
    2954. 

  2954.             <span>
    2955. 

  2955.                 <a class="underline QP" onclick="fill_QP_field('<?php echo attr($zone); ?>','OD','<?php echo attr($values['OD']['mapping']); ?>','<?php echo attr($values['OD']['notes']); ?>','<?php echo attr($action); ?>');"><?php echo xlt('OD{{right eye}}'); ?></a> |
    2956. 

  2956.                 <a class="underline QP" onclick="fill_QP_field('<?php echo attr($zone); ?>','OS','<?php echo attr($values['OS']['mapping']); ?>','<?php echo attr($values['OS']['notes']); ?>','<?php echo attr($action); ?>');"><?php echo xlt('OS{{left eye}}'); ?></a> |
    2957. 

  2957.                 <a class="underline QP" onclick="fill_QP_2fields('<?php echo attr($zone); ?>','OU','<?php echo attr($values['OU']['mapping']); ?>','<?php echo attr($values['OU']['notes']); ?>','<?php echo attr($action); ?>');"><?php echo xlt('OU{{both eyes}}'); ?></a>
    2958. 

  2958.             </span>
    2959. 

  2959.             &nbsp;
    2960. 

  2960.             <?php
    2961. 

  2961.         } elseif ($values['R']) {
    2962. 

  2962.             if ($values['R']['activity'] == '0') {
    2963. 

  2963.                 $action = "ADD";
    2964. 

  2964.             }
    2965. 

  2965. 

  2966.             if ($values['R']['activity'] == '1') {
    2967. 

  2967.                 $action = "REPLACE" ;
    2968. 

  2968.             }
    2969. 

  2969. 

  2970.             if ($values['R']['activity'] == '2') {
    2971. 

  2971.                 $action = "APPEND" ;
    2972. 

  2972.             }
    2973. 

  2973.             ?>
    2974. 

  2974.             <span>
    2975. 

  2975.                 <a class="underline QP" onclick="fill_QP_field('<?php echo attr($zone); ?>','R','<?php echo attr($values['R']['mapping']); ?>','<?php echo attr($values['R']['notes']); ?>','<?php echo attr($action); ?>');"><?php echo xlt('R{{right side}}'); ?></a> |
    2976. 

  2976.                 <a class="underline QP" onclick="fill_QP_field('<?php echo attr($zone); ?>','L','<?php echo attr($values['L']['mapping']); ?>','<?php echo attr($values['L']['notes']); ?>','<?php echo attr($action); ?>');"><?php echo xlt('L{{left side}}'); ?></a> |
    2977. 

  2977.                 <a class="underline QP" onclick="fill_QP_2fields('<?php echo attr($zone); ?>','B','<?php echo attr($values['B']['mapping']); ?>','<?php echo attr($values['B']['notes']); ?>','<?php echo attr($action); ?>');"><?php echo xlt('B{{both sides}}'); ?></a>
    2978. 

  2978.             </span>
    2979. 

  2979.             &nbsp;
    2980. 

  2980.             <?php
    2981. 

  2981.         }
    2982. 

  2982. 

  2983.         echo $title_show;
    2984. 

  2984.         $number_rows++;
    2985. 

  2985.         ?><br />
    2986. 

  2986.         <?php
    2987. 

  2987.         if ($number_rows == 19) {  ?>
    2988. 

  2988.           </div>
    2989. 

  2989.           <div class="QP_block_outer borderShadow text_clinical" ><?php
    2990. 

  2990.         }
    2991. 

  2991. 

  2992.         if ($number_rows == 38) {
    2993. 

  2993.             break;
    2994. 

  2994.         }
    2995. 

  2995.     } //end QP section items
    2996. 

  2996.     ?>
    2997. 

  2997.       <a href="JavaScript:void(0);"
    2998. 

  2998.          onclick="openNewForm('<?php echo $GLOBALS['webroot']; ?>/interface/super/edit_list.php?list_id=Eye_QP_<?php echo attr($zone) . "_" . attr($provider_id); ?>','QP Editor');"
    2999. 

  2999.          title="<?php echo xla('Click here to Edit this Doctor\'s Quick Pick list'); ?>"
    3000. 

  3000.          name="provider_todo"
    3001. 

  3001.          class="bold black"><i class="closeButton float-right fa fa-pencil-alt fa-fw"></i> </a>
    3002. 

  3002.         <?php
    3003. 

  3003.         $QP_panel = ob_get_contents();
    3004. 

  3004.         ob_end_clean();
    3005. 

  3005.         return $QP_panel;
    3006. 

  3006. }
    3007. 

  3007. 

  3008. function canvas_select($zone, $encounter, $pid)
    3009. 

  3009. {
    3010. 

  3010.     /* This will provide a way to scroll back through prior VISIT images, to copy forward to today's visit,
    3011. 

  3011.      * just like we do in the text fields.
    3012. 

  3012.      * Will need to do a lot of thinking to create this.  Jist is ajax call to server for image retrieval.
    3013. 

  3013.      * To get this to work we need a way to select an old image to work from, use current or return to baseline.
    3014. 

  3014.      * This will require a global BACK button like above (BUTTON_BACK_<?php echo attr($zone); ?>).
    3015. 

  3015.      * The Undo Redo buttons are currently javascript client side.
    3016. 

  3016.      * The Undo Redo features will only work for changes made since form was loaded locally.
    3017. 

    3018. 

  3018.      * If we want to look back at a prior VISITs saved final images,
    3019. 

  3019.      * we will need to create this logic.
    3020. 

  3020.      * Need to think about how to display this visually so it's intuitive, without cluttering the page...
    3021. 

  3021.      * At first glance, using the text PRIORS selection method should work...  Not yet.
    3022. 

  3022.      *
    3023. 

  3023.      *
    3024. 

  3024.      *  $documents['categories']=$categories;
    3025. 

  3025.      *  $documents['my_name']=$my_name;
    3026. 

  3026.      *  $documents['children_names']=$children_names;
    3027. 

  3027.      *  $documents['parent_name'] = $parent_name;
    3028. 

  3028.      *  $documents['zones'] = $zones;
    3029. 

  3029.      *  $documents['docs_in_zone'] = $docs_in_zone;
    3030. 

  3030.      *  $documents['docs_in_cat_id'] = $docs_in_cat_id;
    3031. 

  3031.      *  $documents['docs_in_name'] = $docs_in_name;
    3032. 

  3032.      *  $documents['docs_by_date'] = $docs_by_date;
    3033. 

  3033.      *
    3034. 

  3034.      * Let's try $documents['docs_in_name'] where ['name']['zone']
    3035. 

  3035.      */
    3036. 

  3036.     //iterate through documents?
    3037. 

  3037.         // which are in this zone?
    3038. 

  3038.     //are any from the same as the encounter?  If so selected=selected
    3039. 

  3039.     //
    3040. 

  3040.     global $documents;
    3041. 

  3041.     $side = "OU";
    3042. 

  3042.     $type_name = $side . "_" . $zone . "_VIEW";
    3043. 

  3043.     $canvi = [];
    3044. 

  3044.     if (!empty($documents['zones'][$zone]) && !empty($documents['docs_in_name']['Drawings'])) {
    3045. 

  3045.         foreach ($documents['docs_in_name']['Drawings'] as $doc) {
    3046. 

  3046.             if (!preg_match("/" . $zone . "_VIEW/", $doc['name'])) {
    3047. 

  3047.                 continue;
    3048. 

  3048.             }
    3049. 

  3049.             if (!$doc['encounter_id']) {
    3050. 

  3050.                 continue;
    3051. 

  3051.             }
    3052. 

  3052.             $canvi[] = $doc;
    3053. 

  3053.         }
    3054. 

  3054.     }
    3055. 

  3055.     usort($canvi, function ($a, $b) {
    3056. 

  3056.         return $b['encounter_date'] <=> $a['encounter_date'];
    3057. 

  3057.     });
    3058. 

  3058.     if (!empty($canvi)) {
    3059. 

  3059.         if ($canvi[0]['encounter_id'] != $encounter) {
    3060. 

  3060.             //put today on the front as current, item "0"
    3061. 

  3061.             //echo "<pre style='text-align:left;'>".$canvi[0]['id'] ." and ". $encounter['encounter_id'];var_dump($canvi);echo "</pre>";
    3062. 

  3062.             //$today_doc = ["Hi"];
    3063. 

  3063.             $today_doc['encounter_date'] = 'New';
    3064. 

  3064.             array_unshift($canvi, $today_doc);
    3065. 

  3065.         }
    3066. 

  3066.    //
    3067. 

  3067.         if (count($canvi) > '1') {
    3068. 

  3068.             $select = '<div class="">';
    3069. 

  3069.             $select .= '<span id="old_canvas_leftest_' . attr($zone) . '"
    3070. 

  3070.                         name="old_canvas_leftest"
    3071. 

  3071.                         class="fa fa-fast-backward fa-sm PRIORS hand"
    3072. 

  3072.                         data-target="SELECT_CANVAS_' . attr($zone) . '"
    3073. 

  3073.                         data-direction="oldest"
    3074. 

  3074.                         title="' . xla('Oldest drawing') . '"></span>';
    3075. 

  3075.             $select .= '<span id="old_canvas_left_' . attr($zone) . '"
    3076. 

  3076.                         name="old_canvas"
    3077. 

  3077.                         class="fa fa-step-backward fa-sm PRIORS hand"
    3078. 

  3078.                         data-target="SELECT_CANVAS_' . attr($zone) . '"
    3079. 

  3079.                         data-direction="older"
    3080. 

  3080.                         title="' . xla('Look back one drawing') . '"></span>';
    3081. 

    3082. 

  3082.             $select .= "<select id='SELECT_CANVAS_" . attr($zone) . "' name='CANVAS_selector' data-step='0'>";
    3083. 

  3083.             $count = '0';
    3084. 

  3084.             foreach ($canvi as $hit) {
    3085. 

  3085.                 if ($count == '0') {
    3086. 

  3086.                     $select .= "<option value='current'>" . text($hit['encounter_date']) . "</option>\n";
    3087. 

  3087.                 } else {
    3088. 

  3088.                     $select .= "<option value='" . attr($hit['document_id']) . "'>" . text($hit['encounter_date']) . "</option>\n";
    3089. 

  3089.                 }
    3090. 

  3090.                 $count++;
    3091. 

  3091.             }
    3092. 

  3092.             $select .= "</select>";
    3093. 

  3093.             $select .= '<span id="old_canvas_right_' . attr($zone) . '"
    3094. 

  3094.                     name="old_canvas"
    3095. 

  3095.                     class="fa  fa-step-forward PRIORS hand"
    3096. 

  3096.                     data-target="SELECT_CANVAS_' . attr($zone) . '"
    3097. 

  3097.                     data-direction="newer"
    3098. 

  3098.                     data-step="1"
    3099. 

  3099.                     title="' . xla('Forward one drawing') . '"></span>';
    3100. 

  3100.             $select .= '<span id="old_canvas_rightest_' . attr($zone) . '"
    3101. 

  3101.                     name="old_canvas_rightest"
    3102. 

  3102.                     class="fa fa-fast-forward PRIORS hand"
    3103. 

  3103.                     data-target="SELECT_CANVAS_' . attr($zone) . '"
    3104. 

  3104.                     data-direction="newest"
    3105. 

  3105.                     title="' . xla('Forward to current canvas') . '"></span>
    3106. 

  3106. 

  3107.         </div>';
    3108. 

  3108.         }
    3109. 

  3109.     }
    3110. 

  3110.     return $select;
    3111. 

  3111. }
    3112. 

  3112. /**
    3113. 

  3113.  *  This function returns display the draw/sketch diagram for a zone (4 input values)
    3114. 

  3114.  *
    3115. 

  3115.  *  If there is already a drawing for this zone in this encounter, it is pulled from
    3116. 

  3116.  *  from its stored location:
    3117. 

  3117.  *  $GLOBALS['web_root']."/sites/".$_SESSION['site_id']."/".$form_folder."/".$pid."/".$encounter."/".$side."_".$zone."_VIEW.png?".rand();
    3118. 

  3118.  *
    3119. 

  3119.  *  Otherwise a "BASE" image is pulled from the images directory of the form...  Customizable.
    3120. 

  3120.  *
    3121. 

  3121.  *  @param string $zone options ALL,EXT,ANTSEG,RETINA,NEURO
    3122. 

  3122.  *  @param string $visit_date Future functionality to limit result set. UTC DATE Formatted
    3123. 

  3123.  *  @param string $pid value = patient id
    3124. 

  3124.  *  @param string OU by default.  Future functionality will allow OD and OS values- not implemented yet.
    3125. 

  3125.  *  @return true : when called directly outputs the ZONE specific HTML5 CANVAS widget
    3126. 

  3126.  */
    3127. 

  3127. function display_draw_section($zone, $encounter, $pid, $side = 'OU', $counter = '')
    3128. 

  3128. {
    3129. 

  3129.     global $form_folder;
    3130. 

  3130.     $filepath = $GLOBALS['oer_config']['documents']['repository'] . $pid . "/";
    3131. 

  3131.     $base_name = $pid . "_" . $encounter . "_" . $side . "_" . $zone . "_VIEW";
    3132. 

  3132. 

  3133.     $file_history =  $filepath . $base_name;
    3134. 

  3134.     $file_store = $file_history . ".jpg";
    3135. 

  3135.     ?>
    3136. 

  3136.     <div id="Draw_<?php echo attr($zone); ?>" name="Draw_<?php echo attr($zone); ?>" style="text-align:center;height: 2.5in;" class="Draw_class canvas">
    3137. 

  3137.         <span class="far fa-file-alt closeButton" id="BUTTON_TEXT_<?php echo attr($zone); ?>" name="BUTTON_TEXT_<?php echo attr($zone); ?>"></span>
    3138. 

  3138.         <i class="closeButton_2 fas fa-database" id="BUTTON_QP_<?php echo attr($zone); ?>_2" name="BUTTON_QP_<?php echo attr($zone); ?>"></i>
    3139. 

  3139.         <i class="closeButton_3 fas fa-user-md fa-sm fa-2" name="Shorthand_kb" title="<?php echo xla("Open the Shorthand Window and display Shorthand Codes"); ?>"></i>
    3140. 

  3140. 

  3141.         <?php
    3142. 

  3142.             $output = canvas_select($zone, $encounter, $pid);
    3143. 

  3143.             echo $output;
    3144. 

  3144.         ?>
    3145. 

  3145.         <div id="<?php echo attr($zone); ?>_canvas">
    3146. 

  3146.             <div class="tools">
    3147. 

  3147.                 <div id="sketch_tooled_<?php echo attr($zone); ?>_8">
    3148. 

  3148.                     <span id="sketch_tool_<?php echo attr($zone);?>_color"
    3149. 

  3149.                           class="color_indicator jscolor"
    3150. 

  3150.                           data-jscolor="{ previewElement:'#sketch_tool_<?php echo attr($zone); ?>_color',
    3151. 

  3151.                                      previewSize:75,
    3152. 

  3152.                                      valueElement:'#selColor_<?php echo attr($zone); ?>',
    3153. 

  3153.                                      position:'right',
    3154. 

  3154.                                      value:'#000',
    3155. 

  3155.                                      hash:'true'
    3156. 

  3156.                                     }"
    3157. 

  3157.                           data-target="selColor_<?php echo attr($zone); ?>"
    3158. 

  3158.                     ></span>
    3159. 

  3159.                 </div>
    3160. 

  3160.                 <?php
    3161. 

  3161. 

  3162.                 $sql = "SELECT * from documents where name like ? ORDER by id DESC";
    3163. 

  3163.                 $doc = sqlQuery($sql, array("%" . $base_name . "%"));
    3164. 

  3164.                 $base_filetoshow = $GLOBALS['web_root'] . "/interface/forms/" . $form_folder . "/images/" . $side . "_" . $zone . "_BASE.jpg";
    3165. 

  3165.                 if (($doc['id'] > '0')) {
    3166. 

  3166.                     $filetoshow = $GLOBALS['web_root'] . "/controller.php?document&retrieve&patient_id=" . attr($pid) . "&document_id=" . attr($doc['id']) . "&as_file=false&show_original=true&blahblah=" . rand();
    3167. 

  3167.                 } else {
    3168. 

  3168.                     //base image.
    3169. 

  3169.                     $filetoshow = $base_filetoshow;
    3170. 

  3170.                 }
    3171. 

  3171.                 ?>
    3172. 

  3172. 

  3173.                 <input type="hidden" id="url_<?php echo attr($zone); ?>" name="url_<?php echo attr($zone); ?>" value="<?php echo $filetoshow; ?>" />
    3174. 

  3174.                 <input type="hidden" id="base_url_<?php echo attr($zone); ?>" name="base_url_<?php echo attr($zone); ?>" value="<?php echo $base_filetoshow; ?>" />
    3175. 

  3175.                 <input type="hidden" id="selWidth_<?php echo attr($zone); ?>" value="1">
    3176. 

  3176.                 <input type="hidden" id="selColor_<?php echo attr($zone); ?>" value="#000" />
    3177. 

  3177. 

  3178. 

  3179. 

  3180.                 <img id="sketch_tools_<?php echo attr($zone); ?>_1" onclick='$("#selColor_<?php echo attr($zone); ?>").val("#1AA2E1");' src="../../forms/<?php echo $form_folder; ?>/images/pencil_blue.png" style="height:30px;width:15px;">
    3181. 

  3181.                 <img id="sketch_tools_<?php echo attr($zone); ?>_2" onclick='$("#selColor_<?php echo attr($zone); ?>").val("#ff0");'  src="../../forms/<?php echo $form_folder; ?>/images/pencil_yellow.png" style="height:30px;width:15px;">
    3182. 

  3182.                 <img id="sketch_tools_<?php echo attr($zone); ?>_3" onclick='$("#selColor_<?php echo attr($zone); ?>").val("#ffad00");' src="../../forms/<?php echo $form_folder; ?>/images/pencil_orange.png" style="height:30px;width:15px;">
    3183. 

  3183.                 <img id="sketch_tools_<?php echo attr($zone); ?>_4" onclick='$("#selColor_<?php echo attr($zone); ?>").val("#AC8359");' src="../../forms/<?php echo $form_folder; ?>/images/pencil_brown.png" style="height:30px;width:15px;">
    3184. 

  3184.                 <img id="sketch_tools_<?php echo attr($zone); ?>_5" onclick='$("#selColor_<?php echo attr($zone); ?>").val("#E10A17");' src="../../forms/<?php echo $form_folder; ?>/images/pencil_red.png" style="height:30px;width:15px;">
    3185. 

  3185.                 <img id="sketch_tools_<?php echo attr($zone); ?>_6" onclick='$("#selColor_<?php echo attr($zone); ?>").val("#000");' src="../../forms/<?php echo $form_folder; ?>/images/pencil_black.png" style="height:50px;width:15px;">
    3186. 

  3186.                 <img id="sketch_tools_<?php echo attr($zone); ?>_7" onclick='$("#selColor_<?php echo attr($zone); ?>").val("#fff");' src="../../forms/<?php echo $form_folder; ?>/images/pencil_white.png" style="height:30px;width:15px;">
    3187. 

  3187. 

  3188.                 <span style="min-width:1in;">&nbsp;</span>
    3189. 

  3189.                 <!-- now to pencil size -->
    3190. 

  3190.                 <img id="sketch_sizes_<?php echo attr($zone); ?>_1" onclick='$("#selWidth_<?php echo attr($zone); ?>").val("1");' src="../../forms/<?php echo $form_folder; ?>/images/brush_1.png" style="height:20px;width:20px; border-bottom: 2pt solid black;">
    3191. 

  3191.                 <img id="sketch_sizes_<?php echo attr($zone); ?>_3" onclick='$("#selWidth_<?php echo attr($zone); ?>").val("3");' src="../../forms/<?php echo $form_folder; ?>/images/brush_3.png" style="height:20px;width:20px;">
    3192. 

  3192.                 <img id="sketch_sizes_<?php echo attr($zone); ?>_5" onclick='$("#selWidth_<?php echo attr($zone); ?>").val("5");' src="../../forms/<?php echo $form_folder; ?>/images/brush_5.png" style="height:20px;width:20px;">
    3193. 

  3193.                 <img id="sketch_sizes_<?php echo attr($zone); ?>_10" onclick='$("#selWidth_<?php echo attr($zone); ?>").val("10");' src="../../forms/<?php echo $form_folder; ?>/images/brush_10.png" style="height:20px;width:20px;">
    3194. 

  3194.                 <img id="sketch_sizes_<?php echo attr($zone); ?>_15" onclick='$("#selWidth_<?php echo attr($zone); ?>").val("15");' src="../../forms/<?php echo $form_folder; ?>/images/brush_15.png" style="height:20px;width:20px;">
    3195. 

  3195.             </div>
    3196. 

  3196. 

  3197.             <div align="center" class="borderShadow">
    3198. 

  3198.                 <canvas id="myCanvas_<?php echo attr($zone); ?>" name="myCanvas_<?php echo attr($zone); ?>" width="450" height="225"></canvas>
    3199. 

  3199.             </div>
    3200. 

  3200.             <div style="margin-top: 7px;">
    3201. 

  3201.                 <button onclick="javascript:cUndo('<?php echo attr($zone); ?>');return false;" id="Undo_Canvas_<?php echo attr($zone); ?>"><?php echo xlt("Undo"); ?></button>
    3202. 

  3202.                 <button onclick="javascript:cRedo('<?php echo attr($zone); ?>');return false;" id="Redo_Canvas_<?php echo attr($zone); ?>"><?php echo xlt("Redo"); ?></button>
    3203. 

  3203.                 <button onclick="javascript:drawImage('<?php echo attr($zone); ?>');return false;" id="Revert_Canvas_<?php echo attr($zone); ?>"><?php echo xlt("Revert"); ?></button>
    3204. 

  3204.                 <button onclick="javascript:cReload('<?php echo attr($zone); ?>');return false;" id="Clear_Canvas_<?php echo attr($zone); ?>"><?php echo xlt("New"); ?></button>
    3205. 

  3205.                 <button id="Blank_Canvas_<?php echo attr($zone); ?>"><?php echo xlt("Blank"); ?></button>
    3206. 

  3206.             </div>
    3207. 

  3207.         </div>
    3208. 

  3208.         <div id="<?php echo attr($zone); ?>_olddrawing"></div>
    3209. 

  3209.     </div>
    3210. 

  3210. 

  3211.     <?php
    3212. 

  3212. }
    3213. 

  3213. 

  3214. /**
    3215. 

  3215.  *  This function returns a JSON object to replace a requested section with copy_forward values (3 input values)
    3216. 

  3216.  *  It will not replace the drawings with older encounter drawings... Not yet anyway.
    3217. 

  3217.  *
    3218. 

  3218.  * @param string $zone options ALL,EXT,ANTSEG,RETINA,NEURO, EXT_DRAW, ANTSEG_DRAW, RETINA_DRAW, NEURO_DRAW
    3219. 

  3219.  * @param string $form_id is the form_eye_*.id where the data to carry forward is located
    3220. 

  3220.  * @param string $pid value = patient id
    3221. 

  3221.  * @return true : when called directly outputs the ZONE specific HTML for a prior record + widget for the desired zone
    3222. 

  3222.  */
    3223. 

  3223. function copy_forward($zone, $copy_from, $copy_to, $pid)
    3224. 

  3224. {
    3225. 

  3225.     global $form_id;
    3226. 

  3226. 

  3227.     $query = "select  *,form_encounter.date as encounter_date
    3228. 

    3229. 

  3229.                from forms,form_encounter,form_eye_base,
    3230. 

  3230.                 form_eye_hpi,form_eye_ros,form_eye_vitals,
    3231. 

  3231.                 form_eye_acuity,form_eye_refraction,form_eye_biometrics,
    3232. 

  3232.                 form_eye_external,form_eye_antseg,form_eye_postseg,
    3233. 

  3233.                 form_eye_neuro,form_eye_locking
    3234. 

  3234.                     where
    3235. 

  3235.                     forms.deleted != '1'  and
    3236. 

  3236.                     forms.formdir='eye_mag' and
    3237. 

  3237.                     forms.encounter=form_encounter.encounter and
    3238. 

  3238.                     forms.form_id=form_eye_base.id and
    3239. 

  3239.                     forms.form_id=form_eye_hpi.id and
    3240. 

  3240.                     forms.form_id=form_eye_ros.id and
    3241. 

  3241.                     forms.form_id=form_eye_vitals.id and
    3242. 

  3242.                     forms.form_id=form_eye_acuity.id and
    3243. 

  3243.                     forms.form_id=form_eye_refraction.id and
    3244. 

  3244.                     forms.form_id=form_eye_biometrics.id and
    3245. 

  3245.                     forms.form_id=form_eye_external.id and
    3246. 

  3246.                     forms.form_id=form_eye_antseg.id and
    3247. 

  3247.                     forms.form_id=form_eye_postseg.id and
    3248. 

  3248.                     forms.form_id=form_eye_neuro.id and
    3249. 

  3249.                     forms.form_id=form_eye_locking.id and
    3250. 

  3250.                     forms.pid =? and
    3251. 

  3251.                     forms.form_id =? ";
    3252. 

    3253. 

  3253.     $objQuery = sqlQuery($query, array($pid,$copy_from));
    3254. 

  3254.     if ($zone == "EXT") {
    3255. 

  3255.         $result['RUL'] = $objQuery['RUL'];
    3256. 

  3256.         $result['LUL'] = $objQuery['LUL'];
    3257. 

  3257.         $result['RLL'] = $objQuery['RLL'];
    3258. 

  3258.         $result['LLL'] = $objQuery['LLL'];
    3259. 

  3259.         $result['RBROW'] = $objQuery['RBROW'];
    3260. 

  3260.         $result['LBROW'] = $objQuery['LBROW'];
    3261. 

  3261.         $result['RMCT'] = $objQuery['RMCT'];
    3262. 

  3262.         $result['LMCT'] = $objQuery['LMCT'];
    3263. 

  3263.         $result['RADNEXA'] = $objQuery['RADNEXA'];
    3264. 

  3264.         $result['LADNEXA'] = $objQuery['LADNEXA'];
    3265. 

  3265.         $result['RMRD'] = $objQuery['RMRD'];
    3266. 

  3266.         $result['LMRD'] = $objQuery['LMRD'];
    3267. 

  3267.         $result['RLF'] = $objQuery['RLF'];
    3268. 

  3268.         $result['LLF'] = $objQuery['LLF'];
    3269. 

  3269.         $result['RVFISSURE'] = $objQuery['RVFISSURE'];
    3270. 

  3270.         $result['LVFISSURE'] = $objQuery['LVFISSURE'];
    3271. 

  3271.         $result['RCAROTID'] = $objQuery['RCAROTID'];
    3272. 

  3272.         $result['LCAROTID'] = $objQuery['LCAROTID'];
    3273. 

  3273.         $result['RTEMPART'] = $objQuery['RTEMPART'];
    3274. 

  3274.         $result['LTEMPART'] = $objQuery['LTEMPART'];
    3275. 

  3275.         $result['RCNV'] = $objQuery['RCNV'];
    3276. 

  3276.         $result['LCNV'] = $objQuery['LCNV'];
    3277. 

  3277.         $result['RCNVII'] = $objQuery['RCNVII'];
    3278. 

  3278.         $result['LCNVII'] = $objQuery['LCNVII'];
    3279. 

  3279.         $result['ODSCHIRMER1'] = $objQuery['ODSCHIRMER1'];
    3280. 

  3280.         $result['OSSCHIRMER1'] = $objQuery['OSSCHIRMER1'];
    3281. 

  3281.         $result['ODSCHIRMER2'] = $objQuery['ODSCHIRMER2'];
    3282. 

  3282.         $result['OSSCHIRMER2'] = $objQuery['OSSCHIRMER2'];
    3283. 

  3283.         $result['ODTBUT'] = $objQuery['ODTBUT'];
    3284. 

  3284.         $result['OSTBUT'] = $objQuery['OSTBUT'];
    3285. 

  3285.         $result['OSHERTEL'] = $objQuery['OSHERTEL'];
    3286. 

  3286.         $result['HERTELBASE'] = $objQuery['HERTELBASE'];
    3287. 

  3287.         $result['ODPIC'] = $objQuery['ODPIC'];
    3288. 

  3288.         $result['OSPIC'] = $objQuery['OSPIC'];
    3289. 

  3289.         $result['EXT_COMMENTS'] = $objQuery['EXT_COMMENTS'];
    3290. 

  3290.         $result["json"] = json_encode($result);
    3291. 

  3291.         echo json_encode($result);
    3292. 

  3292.     } elseif ($zone == "ANTSEG") {
    3293. 

  3293.         $result['OSCONJ'] = $objQuery['OSCONJ'];
    3294. 

  3294.         $result['ODCONJ'] = $objQuery['ODCONJ'];
    3295. 

  3295.         $result['ODCORNEA'] = $objQuery['ODCORNEA'];
    3296. 

  3296.         $result['OSCORNEA'] = $objQuery['OSCORNEA'];
    3297. 

  3297.         $result['ODAC'] = $objQuery['ODAC'];
    3298. 

  3298.         $result['OSAC'] = $objQuery['OSAC'];
    3299. 

  3299.         $result['ODLENS'] = $objQuery['ODLENS'];
    3300. 

  3300.         $result['OSLENS'] = $objQuery['OSLENS'];
    3301. 

  3301.         $result['ODIRIS'] = $objQuery['ODIRIS'];
    3302. 

  3302.         $result['OSIRIS'] = $objQuery['OSIRIS'];
    3303. 

  3303.         $result['ODKTHICKNESS'] = $objQuery['ODKTHICKNESS'];
    3304. 

  3304.         $result['OSKTHICKNESS'] = $objQuery['OSKTHICKNESS'];
    3305. 

  3305.         $result['ODGONIO'] = $objQuery['ODGONIO'];
    3306. 

  3306.         $result['OSGONIO'] = $objQuery['OSGONIO'];
    3307. 

  3307.         $result['ODSHRIMER1'] = $objQuery['ODSHIRMER1'];
    3308. 

  3308.         $result['OSSHRIMER1'] = $objQuery['OSSHIRMER1'];
    3309. 

  3309.         $result['ODSHRIMER2'] = $objQuery['ODSHIRMER2'];
    3310. 

  3310.         $result['OSSHRIMER2'] = $objQuery['OSSHIRMER2'];
    3311. 

  3311.         $result['ODTBUT'] = $objQuery['ODTBUT'];
    3312. 

  3312.         $result['OSTBUT'] = $objQuery['OSTBUT'];
    3313. 

  3313.         $result['ANTSEG_COMMENTS'] = $objQuery['ANTSEG_COMMENTS'];
    3314. 

  3314.         $result["json"] = json_encode($result);
    3315. 

  3315.         echo json_encode($result);
    3316. 

  3316.     } elseif ($zone == "RETINA") {
    3317. 

  3317.         $result['ODDISC'] = $objQuery['ODDISC'];
    3318. 

  3318.         $result['OSDISC'] = $objQuery['OSDISC'];
    3319. 

  3319.         $result['ODCUP'] = $objQuery['ODCUP'];
    3320. 

  3320.         $result['OSCUP'] = $objQuery['OSCUP'];
    3321. 

  3321.         $result['ODMACULA'] = $objQuery['ODMACULA'];
    3322. 

  3322.         $result['OSMACULA'] = $objQuery['OSMACULA'];
    3323. 

  3323.         $result['ODVESSELS'] = $objQuery['ODVESSELS'];
    3324. 

  3324.         $result['OSVESSELS'] = $objQuery['OSVESSELS'];
    3325. 

  3325.         $result['ODVITREOUS'] = $objQuery['ODVITREOUS'];
    3326. 

  3326.         $result['OSVITREOUS'] = $objQuery['OSVITREOUS'];
    3327. 

  3327.         $result['ODPERIPH'] = $objQuery['ODPERIPH'];
    3328. 

  3328.         $result['OSPERIPH'] = $objQuery['OSPERIPH'];
    3329. 

  3329.         $result['ODDRAWING'] = $objQuery['ODDRAWING'];
    3330. 

  3330.         $result['OSDRAWING'] = $objQuery['OSDRAWING'];
    3331. 

  3331.         $result['ODCMT'] = $objQuery['ODCMT'];
    3332. 

  3332.         $result['OSCMT'] = $objQuery['OSCMT'];
    3333. 

  3333.         $result['RETINA_COMMENTS'] = $objQuery['RETINA_COMMENTS'];
    3334. 

  3334.         $result["json"] = json_encode($result);
    3335. 

  3335.         echo json_encode($result);
    3336. 

  3336.     } elseif ($zone == "NEURO") {
    3337. 

  3337.         $result['ACT'] = $objQuery['ACT'];
    3338. 

  3338.         $result['ACT5CCDIST'] = $objQuery['ACT5CCDIST'];
    3339. 

  3339.         $result['ACT1CCDIST'] = $objQuery['ACT1CCDIST'];
    3340. 

  3340.         $result['ACT2CCDIST'] = $objQuery['ACT2CCDIST'];
    3341. 

  3341.         $result['ACT3CCDIST'] = $objQuery['ACT3CCDIST'];
    3342. 

  3342.         $result['ACT4CCDIST'] = $objQuery['ACT4CCDIST'];
    3343. 

  3343.         $result['ACT6CCDIST'] = $objQuery['ACT6CCDIST'];
    3344. 

  3344.         $result['ACT7CCDIST'] = $objQuery['ACT7CCDIST'];
    3345. 

  3345.         $result['ACT8CCDIST'] = $objQuery['ACT8CCDIST'];
    3346. 

  3346.         $result['ACT9CCDIST'] = $objQuery['ACT9CCDIST'];
    3347. 

  3347.         $result['ACT10CCDIST'] = $objQuery['ACT10CCDIST'];
    3348. 

  3348.         $result['ACT11CCDIST'] = $objQuery['ACT11CCDIST'];
    3349. 

  3349.         $result['ACT1SCDIST'] = $objQuery['ACT1SCDIST'];
    3350. 

  3350.         $result['ACT2SCDIST'] = $objQuery['ACT2SCDIST'];
    3351. 

  3351.         $result['ACT3SCDIST'] = $objQuery['ACT3SCDIST'];
    3352. 

  3352.         $result['ACT4SCDIST'] = $objQuery['ACT4SCDIST'];
    3353. 

  3353.         $result['ACT5SCDIST'] = $objQuery['ACT5SCDIST'];
    3354. 

  3354.         $result['ACT6SCDIST'] = $objQuery['ACT6SCDIST'];
    3355. 

  3355.         $result['ACT7SCDIST'] = $objQuery['ACT7SCDIST'];
    3356. 

  3356.         $result['ACT8SCDIST'] = $objQuery['ACT8SCDIST'];
    3357. 

  3357.         $result['ACT9SCDIST'] = $objQuery['ACT9SCDIST'];
    3358. 

  3358.         $result['ACT10SCDIST'] = $objQuery['ACT10SCDIST'];
    3359. 

  3359.         $result['ACT11SCDIST'] = $objQuery['ACT11SCDIST'];
    3360. 

  3360.         $result['ACT1SCNEAR'] = $objQuery['ACT1SCNEAR'];
    3361. 

  3361.         $result['ACT2SCNEAR'] = $objQuery['ACT2SCNEAR'];
    3362. 

  3362.         $result['ACT3SCNEAR'] = $objQuery['ACT3SCNEAR'];
    3363. 

  3363.         $result['ACT4SCNEAR'] = $objQuery['ACT4SCNEAR'];
    3364. 

  3364.         $result['ACT5CCNEAR'] = $objQuery['ACT5CCNEAR'];
    3365. 

  3365.         $result['ACT6CCNEAR'] = $objQuery['ACT6CCNEAR'];
    3366. 

  3366.         $result['ACT7CCNEAR'] = $objQuery['ACT7CCNEAR'];
    3367. 

  3367.         $result['ACT8CCNEAR'] = $objQuery['ACT8CCNEAR'];
    3368. 

  3368.         $result['ACT9CCNEAR'] = $objQuery['ACT9CCNEAR'];
    3369. 

  3369.         $result['ACT10CCNEAR'] = $objQuery['ACT10CCNEAR'];
    3370. 

  3370.         $result['ACT11CCNEAR'] = $objQuery['ACT11CCNEAR'];
    3371. 

  3371.         $result['ACT5SCNEAR'] = $objQuery['ACT5SCNEAR'];
    3372. 

  3372.         $result['ACT6SCNEAR'] = $objQuery['ACT6SCNEAR'];
    3373. 

  3373.         $result['ACT7SCNEAR'] = $objQuery['ACT7SCNEAR'];
    3374. 

  3374.         $result['ACT8SCNEAR'] = $objQuery['ACT8SCNEAR'];
    3375. 

  3375.         $result['ACT9SCNEAR'] = $objQuery['ACT9SCNEAR'];
    3376. 

  3376.         $result['ACT10SCNEAR'] = $objQuery['ACT10SCNEAR'];
    3377. 

  3377.         $result['ACT11SCNEAR'] = $objQuery['ACT11SCNEAR'];
    3378. 

  3378.         $result['ACT1CCNEAR'] = $objQuery['ACT1CCNEAR'];
    3379. 

  3379.         $result['ACT2CCNEAR'] = $objQuery['ACT2CCNEAR'];
    3380. 

  3380.         $result['ACT3CCNEAR'] = $objQuery['ACT3CCNEAR'];
    3381. 

  3381.         $result['ACT4CCNEAR'] = $objQuery['ACT4CCNEAR'];
    3382. 

  3382.         $result['ODVF1'] = $objQuery['ODVF1'];
    3383. 

  3383.         $result['ODVF2'] = $objQuery['ODVF2'];
    3384. 

  3384.         $result['ODVF3'] = $objQuery['ODVF3'];
    3385. 

  3385.         $result['ODVF4'] = $objQuery['ODVF4'];
    3386. 

  3386.         $result['OSVF1'] = $objQuery['OSVF1'];
    3387. 

  3387.         $result['OSVF2'] = $objQuery['OSVF2'];
    3388. 

  3388.         $result['OSVF3'] = $objQuery['OSVF3'];
    3389. 

  3389.         $result['OSVF4'] = $objQuery['OSVF4'];
    3390. 

  3390.         $result['MOTILITY_RS'] = $objQuery['MOTILITY_RS'];
    3391. 

  3391.         $result['MOTILITY_RI'] = $objQuery['MOTILITY_RI'];
    3392. 

  3392.         $result['MOTILITY_RR'] = $objQuery['MOTILITY_RR'];
    3393. 

  3393.         $result['MOTILITY_RL'] = $objQuery['MOTILITY_RL'];
    3394. 

  3394.         $result['MOTILITY_LS'] = $objQuery['MOTILITY_LS'];
    3395. 

  3395.         $result['MOTILITY_LI'] = $objQuery['MOTILITY_LI'];
    3396. 

  3396.         $result['MOTILITY_LR'] = $objQuery['MOTILITY_LR'];
    3397. 

  3397.         $result['MOTILITY_LL'] = $objQuery['MOTILITY_LL'];
    3398. 

  3398.         $result['NEURO_COMMENTS'] = $objQuery['NEURO_COMMENTS'];
    3399. 

  3399.         $result['STEREOPSIS'] = $objQuery['STEREOPSIS'];
    3400. 

  3400.         $result['ODNPA'] = $objQuery['ODNPA'];
    3401. 

  3401.         $result['OSNPA'] = $objQuery['OSNPA'];
    3402. 

  3402.         $result['VERTFUSAMPS'] = $objQuery['VERTFUSAMPS'];
    3403. 

  3403.         $result['DIVERGENCEAMPS'] = $objQuery['DIVERGENCEAMPS'];
    3404. 

  3404.         $result['NPC'] = $objQuery['NPC'];
    3405. 

  3405.         $result['DACCDIST'] = $objQuery['DACCDIST'];
    3406. 

  3406.         $result['DACCNEAR'] = $objQuery['DACCNEAR'];
    3407. 

  3407.         $result['CACCDIST'] = $objQuery['CACCDIST'];
    3408. 

  3408.         $result['CACCNEAR'] = $objQuery['CACCNEAR'];
    3409. 

  3409.         $result['ODCOLOR'] = $objQuery['ODCOLOR'];
    3410. 

  3410.         $result['OSCOLOR'] = $objQuery['OSCOLOR'];
    3411. 

  3411.         $result['ODCOINS'] = $objQuery['ODCOINS'];
    3412. 

  3412.         $result['OSCOINS'] = $objQuery['OSCOINS'];
    3413. 

  3413.         $result['ODREDDESAT'] = $objQuery['ODREDDESAT'];
    3414. 

  3414.         $result['OSREDDESAT'] = $objQuery['OSREDDESAT'];
    3415. 

  3415.         $result['ODPUPILSIZE1'] = $objQuery['ODPUPILSIZE1'];
    3416. 

  3416.         $result['ODPUPILSIZE2'] = $objQuery['ODPUPILSIZE2'];
    3417. 

  3417.         $result['ODPUPILREACTIVITY'] = $objQuery['ODPUPILREACTIVITY'];
    3418. 

  3418.         $result['ODAPD'] = $objQuery['ODAPD'];
    3419. 

  3419.         $result['OSPUPILSIZE1'] = $objQuery['OSPUPILSIZE1'];
    3420. 

  3420.         $result['OSPUPILSIZE2'] = $objQuery['OSPUPILSIZE2'];
    3421. 

  3421.         $result['OSPUPILREACTIVITY'] = $objQuery['OSPUPILREACTIVITY'];
    3422. 

  3422.         $result['OSAPD'] = $objQuery['OSAPD'];
    3423. 

  3423.         $result['DIMODPUPILSIZE1'] = $objQuery['DIMODPUPILSIZE1'];
    3424. 

  3424.         $result['DIMODPUPILSIZE2'] = $objQuery['DIMODPUPILSIZE2'];
    3425. 

  3425.         $result['DIMODPUPILREACTIVITY'] = $objQuery['DIMODPUPILREACTIVITY'];
    3426. 

  3426.         $result['DIMOSPUPILSIZE1'] = $objQuery['DIMOSPUPILSIZE1'];
    3427. 

  3427.         $result['DIMOSPUPILSIZE2'] = $objQuery['DIMOSPUPILSIZE2'];
    3428. 

  3428.         $result['DIMOSPUPILREACTIVITY'] = $objQuery['DIMOSPUPILREACTIVITY'];
    3429. 

  3429.         $result['PUPIL_COMMENTS'] = $objQuery['PUPIL_COMMENTS'];
    3430. 

  3430.         $result["json"] = json_encode($result);
    3431. 

  3431.         echo json_encode($result);
    3432. 

  3432.     } elseif ($zone == "IMPPLAN") {
    3433. 

  3433.         $result['IMPPLAN'] = build_IMPPLAN_items($pid, $copy_from);
    3434. 

  3434.         echo json_encode($result);
    3435. 

  3435.     } elseif ($zone == "ALL") {
    3436. 

  3436.         $result['RUL'] = $objQuery['RUL'];
    3437. 

  3437.         $result['LUL'] = $objQuery['LUL'];
    3438. 

  3438.         $result['RLL'] = $objQuery['RLL'];
    3439. 

  3439.         $result['LLL'] = $objQuery['LLL'];
    3440. 

  3440.         $result['RBROW'] = $objQuery['RBROW'];
    3441. 

  3441.         $result['LBROW'] = $objQuery['LBROW'];
    3442. 

  3442.         $result['RMCT'] = $objQuery['RMCT'];
    3443. 

  3443.         $result['LMCT'] = $objQuery['LMCT'];
    3444. 

  3444.         $result['RADNEXA'] = $objQuery['RADNEXA'];
    3445. 

  3445.         $result['LADNEXA'] = $objQuery['LADNEXA'];
    3446. 

  3446.         $result['RMRD'] = $objQuery['RMRD'];
    3447. 

  3447.         $result['LMRD'] = $objQuery['LMRD'];
    3448. 

  3448.         $result['RLF'] = $objQuery['RLF'];
    3449. 

  3449.         $result['LLF'] = $objQuery['LLF'];
    3450. 

  3450.         $result['RVFISSURE'] = $objQuery['RVFISSURE'];
    3451. 

  3451.         $result['LVFISSURE'] = $objQuery['LVFISSURE'];
    3452. 

  3452.         $result['ODHERTEL'] = $objQuery['ODHERTEL'];
    3453. 

  3453.         $result['OSHERTEL'] = $objQuery['OSHERTEL'];
    3454. 

  3454.         $result['HERTELBASE'] = $objQuery['HERTELBASE'];
    3455. 

  3455.         $result['ODPIC'] = $objQuery['ODPIC'];
    3456. 

  3456.         $result['OSPIC'] = $objQuery['OSPIC'];
    3457. 

  3457.         $result['EXT_COMMENTS'] = $objQuery['EXT_COMMENTS'];
    3458. 

  3458. 

  3459.         $result['OSCONJ'] = $objQuery['OSCONJ'];
    3460. 

  3460.         $result['ODCONJ'] = $objQuery['ODCONJ'];
    3461. 

  3461.         $result['ODCORNEA'] = $objQuery['ODCORNEA'];
    3462. 

  3462.         $result['OSCORNEA'] = $objQuery['OSCORNEA'];
    3463. 

  3463.         $result['ODAC'] = $objQuery['ODAC'];
    3464. 

  3464.         $result['OSAC'] = $objQuery['OSAC'];
    3465. 

  3465.         $result['ODLENS'] = $objQuery['ODLENS'];
    3466. 

  3466.         $result['OSLENS'] = $objQuery['OSLENS'];
    3467. 

  3467.         $result['ODIRIS'] = $objQuery['ODIRIS'];
    3468. 

  3468.         $result['OSIRIS'] = $objQuery['OSIRIS'];
    3469. 

  3469.         $result['ODKTHICKNESS'] = $objQuery['ODKTHICKNESS'];
    3470. 

  3470.         $result['OSKTHICKNESS'] = $objQuery['OSKTHICKNESS'];
    3471. 

  3471.         $result['ODGONIO'] = $objQuery['ODGONIO'];
    3472. 

  3472.         $result['OSGONIO'] = $objQuery['OSGONIO'];
    3473. 

  3473.         $result['ANTSEG_COMMENTS'] = $objQuery['ANTSEG_COMMENTS'];
    3474. 

  3474. 

  3475.         $result['ODDISC'] = $objQuery['ODDISC'];
    3476. 

  3476.         $result['OSDISC'] = $objQuery['OSDISC'];
    3477. 

  3477.         $result['ODCUP'] = $objQuery['ODCUP'];
    3478. 

  3478.         $result['OSCUP'] = $objQuery['OSCUP'];
    3479. 

  3479.         $result['ODMACULA'] = $objQuery['ODMACULA'];
    3480. 

  3480.         $result['OSMACULA'] = $objQuery['OSMACULA'];
    3481. 

  3481.         $result['ODVESSELS'] = $objQuery['ODVESSELS'];
    3482. 

  3482.         $result['OSVESSELS'] = $objQuery['OSVESSELS'];
    3483. 

  3483.         $result['ODVITREOUS'] = $objQuery['ODVITREOUS'];
    3484. 

  3484.         $result['OSVITREOUS'] = $objQuery['OSVITREOUS'];
    3485. 

  3485.         $result['ODPERIPH'] = $objQuery['ODPERIPH'];
    3486. 

  3486.         $result['OSPERIPH'] = $objQuery['OSPERIPH'];
    3487. 

  3487.         $result['ODDRAWING'] = $objQuery['ODDRAWING'];
    3488. 

  3488.         $result['OSDRAWING'] = $objQuery['OSDRAWING'];
    3489. 

  3489.         $result['ODCMT'] = $objQuery['ODCMT'];
    3490. 

  3490.         $result['OSCMT'] = $objQuery['OSCMT'];
    3491. 

  3491.         $result['RETINA_COMMENTS'] = $objQuery['RETINA_COMMENTS'];
    3492. 

  3492. 

  3493.         $result['ACT'] = $objQuery['ACT'];
    3494. 

  3494.         $result['ACT5CCDIST'] = $objQuery['ACT5CCDIST'];
    3495. 

  3495.         $result['ACT1CCDIST'] = $objQuery['ACT1CCDIST'];
    3496. 

  3496.         $result['ACT2CCDIST'] = $objQuery['ACT2CCDIST'];
    3497. 

  3497.         $result['ACT3CCDIST'] = $objQuery['ACT3CCDIST'];
    3498. 

  3498.         $result['ACT4CCDIST'] = $objQuery['ACT4CCDIST'];
    3499. 

  3499.         $result['ACT6CCDIST'] = $objQuery['ACT6CCDIST'];
    3500. 

  3500.         $result['ACT7CCDIST'] = $objQuery['ACT7CCDIST'];
    3501. 

  3501.         $result['ACT8CCDIST'] = $objQuery['ACT8CCDIST'];
    3502. 

  3502.         $result['ACT9CCDIST'] = $objQuery['ACT9CCDIST'];
    3503. 

  3503.         $result['ACT10CCDIST'] = $objQuery['ACT10CCDIST'];
    3504. 

  3504.         $result['ACT11CCDIST'] = $objQuery['ACT11CCDIST'];
    3505. 

  3505.         $result['ACT1SCDIST'] = $objQuery['ACT1SCDIST'];
    3506. 

  3506.         $result['ACT2SCDIST'] = $objQuery['ACT2SCDIST'];
    3507. 

  3507.         $result['ACT3SCDIST'] = $objQuery['ACT3SCDIST'];
    3508. 

  3508.         $result['ACT4SCDIST'] = $objQuery['ACT4SCDIST'];
    3509. 

  3509.         $result['ACT5SCDIST'] = $objQuery['ACT5SCDIST'];
    3510. 

  3510.         $result['ACT6SCDIST'] = $objQuery['ACT6SCDIST'];
    3511. 

  3511.         $result['ACT7SCDIST'] = $objQuery['ACT7SCDIST'];
    3512. 

  3512.         $result['ACT8SCDIST'] = $objQuery['ACT8SCDIST'];
    3513. 

  3513.         $result['ACT9SCDIST'] = $objQuery['ACT9SCDIST'];
    3514. 

  3514.         $result['ACT10SCDIST'] = $objQuery['ACT10SCDIST'];
    3515. 

  3515.         $result['ACT11SCDIST'] = $objQuery['ACT11SCDIST'];
    3516. 

  3516.         $result['ACT1SCNEAR'] = $objQuery['ACT1SCNEAR'];
    3517. 

  3517.         $result['ACT2SCNEAR'] = $objQuery['ACT2SCNEAR'];
    3518. 

  3518.         $result['ACT3SCNEAR'] = $objQuery['ACT3SCNEAR'];
    3519. 

  3519.         $result['ACT4SCNEAR'] = $objQuery['ACT4SCNEAR'];
    3520. 

  3520.         $result['ACT5CCNEAR'] = $objQuery['ACT5CCNEAR'];
    3521. 

  3521.         $result['ACT6CCNEAR'] = $objQuery['ACT6CCNEAR'];
    3522. 

  3522.         $result['ACT7CCNEAR'] = $objQuery['ACT7CCNEAR'];
    3523. 

  3523.         $result['ACT8CCNEAR'] = $objQuery['ACT8CCNEAR'];
    3524. 

  3524.         $result['ACT9CCNEAR'] = $objQuery['ACT9CCNEAR'];
    3525. 

  3525.         $result['ACT10CCNEAR'] = $objQuery['ACT10CCNEAR'];
    3526. 

  3526.         $result['ACT11CCNEAR'] = $objQuery['ACT11CCNEAR'];
    3527. 

  3527.         $result['ACT5SCNEAR'] = $objQuery['ACT5SCNEAR'];
    3528. 

  3528.         $result['ACT6SCNEAR'] = $objQuery['ACT6SCNEAR'];
    3529. 

  3529.         $result['ACT7SCNEAR'] = $objQuery['ACT7SCNEAR'];
    3530. 

  3530.         $result['ACT8SCNEAR'] = $objQuery['ACT8SCNEAR'];
    3531. 

  3531.         $result['ACT9SCNEAR'] = $objQuery['ACT9SCNEAR'];
    3532. 

  3532.         $result['ACT10SCNEAR'] = $objQuery['ACT10SCNEAR'];
    3533. 

  3533.         $result['ACT11SCNEAR'] = $objQuery['ACT11SCNEAR'];
    3534. 

  3534.         $result['ACT1CCNEAR'] = $objQuery['ACT1CCNEAR'];
    3535. 

  3535.         $result['ACT2CCNEAR'] = $objQuery['ACT2CCNEAR'];
    3536. 

  3536.         $result['ACT3CCNEAR'] = $objQuery['ACT3CCNEAR'];
    3537. 

  3537.         $result['ACT4CCNEAR'] = $objQuery['ACT4CCNEAR'];
    3538. 

  3538.         $result['ODVF1'] = $objQuery['ODVF1'];
    3539. 

  3539.         $result['ODVF2'] = $objQuery['ODVF2'];
    3540. 

  3540.         $result['ODVF3'] = $objQuery['ODVF3'];
    3541. 

  3541.         $result['ODVF4'] = $objQuery['ODVF4'];
    3542. 

  3542.         $result['OSVF1'] = $objQuery['OSVF1'];
    3543. 

  3543.         $result['OSVF2'] = $objQuery['OSVF2'];
    3544. 

  3544.         $result['OSVF3'] = $objQuery['OSVF3'];
    3545. 

  3545.         $result['OSVF4'] = $objQuery['OSVF4'];
    3546. 

  3546.         $result['MOTILITY_RS'] = $objQuery['MOTILITY_RS'];
    3547. 

  3547.         $result['MOTILITY_RI'] = $objQuery['MOTILITY_RI'];
    3548. 

  3548.         $result['MOTILITY_RR'] = $objQuery['MOTILITY_RR'];
    3549. 

  3549.         $result['MOTILITY_RL'] = $objQuery['MOTILITY_RL'];
    3550. 

  3550.         $result['MOTILITY_LS'] = $objQuery['MOTILITY_LS'];
    3551. 

  3551.         $result['MOTILITY_LI'] = $objQuery['MOTILITY_LI'];
    3552. 

  3552.         $result['MOTILITY_LR'] = $objQuery['MOTILITY_LR'];
    3553. 

  3553.         $result['MOTILITY_LL'] = $objQuery['MOTILITY_LL'];
    3554. 

  3554.         $result['NEURO_COMMENTS'] = $objQuery['NEURO_COMMENTS'];
    3555. 

  3555.         $result['STEREOPSIS'] = $objQuery['STEREOPSIS'];
    3556. 

  3556.         $result['ODNPA'] = $objQuery['ODNPA'];
    3557. 

  3557.         $result['OSNPA'] = $objQuery['OSNPA'];
    3558. 

  3558.         $result['VERTFUSAMPS'] = $objQuery['VERTFUSAMPS'];
    3559. 

  3559.         $result['DIVERGENCEAMPS'] = $objQuery['DIVERGENCEAMPS'];
    3560. 

  3560.         $result['NPC'] = $objQuery['NPC'];
    3561. 

  3561.         $result['DACCDIST'] = $objQuery['DACCDIST'];
    3562. 

  3562.         $result['DACCNEAR'] = $objQuery['DACCNEAR'];
    3563. 

  3563.         $result['CACCDIST'] = $objQuery['CACCDIST'];
    3564. 

  3564.         $result['CACCNEAR'] = $objQuery['CACCNEAR'];
    3565. 

  3565.         $result['ODCOLOR'] = $objQuery['ODCOLOR'];
    3566. 

  3566.         $result['OSCOLOR'] = $objQuery['OSCOLOR'];
    3567. 

  3567.         $result['ODCOINS'] = $objQuery['ODCOINS'];
    3568. 

  3568.         $result['OSCOINS'] = $objQuery['OSCOINS'];
    3569. 

  3569.         $result['ODREDDESAT'] = $objQuery['ODREDDESAT'];
    3570. 

  3570.         $result['OSREDDESAT'] = $objQuery['OSREDDESAT'];
    3571. 

  3571.         $result['ODPUPILSIZE1'] = $objQuery['ODPUPILSIZE1'];
    3572. 

  3572.         $result['ODPUPILSIZE2'] = $objQuery['ODPUPILSIZE2'];
    3573. 

  3573.         $result['ODPUPILREACTIVITY'] = $objQuery['ODPUPILREACTIVITY'];
    3574. 

  3574.         $result['ODAPD'] = $objQuery['ODAPD'];
    3575. 

  3575.         $result['OSPUPILSIZE1'] = $objQuery['OSPUPILSIZE1'];
    3576. 

  3576.         $result['OSPUPILSIZE2'] = $objQuery['OSPUPILSIZE2'];
    3577. 

  3577.         $result['OSPUPILREACTIVITY'] = $objQuery['OSPUPILREACTIVITY'];
    3578. 

  3578.         $result['OSAPD'] = $objQuery['OSAPD'];
    3579. 

  3579.         $result['DIMODPUPILSIZE1'] = $objQuery['DIMODPUPILSIZE1'];
    3580. 

  3580.         $result['DIMODPUPILSIZE2'] = $objQuery['DIMODPUPILSIZE2'];
    3581. 

  3581.         $result['DIMODPUPILREACTIVITY'] = $objQuery['DIMODPUPILREACTIVITY'];
    3582. 

  3582.         $result['DIMOSPUPILSIZE1'] = $objQuery['DIMOSPUPILSIZE1'];
    3583. 

  3583.         $result['DIMOSPUPILSIZE2'] = $objQuery['DIMOSPUPILSIZE2'];
    3584. 

  3584.         $result['DIMOSPUPILREACTIVITY'] = $objQuery['DIMOSPUPILREACTIVITY'];
    3585. 

  3585.         $result['PUPIL_COMMENTS'] = $objQuery['PUPIL_COMMENTS'];
    3586. 

  3586.         $result['IMP'] = $objQuery['IMP'];
    3587. 

  3587.         $result["json"] = json_encode($result);
    3588. 

  3588.         echo json_encode($result);
    3589. 

  3589.     } elseif ($zone == "READONLY") {
    3590. 

  3590.         $result = $objQuery;
    3591. 

  3591.         $count_rx = '0';
    3592. 

  3592.         $query1 = "select * from form_eye_mag_wearing where PID=? and ENCOUNTER=? and FORM_ID >'0' ORDER BY RX_NUMBER";
    3593. 

  3593.         $wear = sqlStatement($query1, array($pid,$_SESSION['encounter']));
    3594. 

  3594.         while ($wearing = sqlFetchArray($wear)) {
    3595. 

  3595.             ${"display_W_$count_rx"}        = '';
    3596. 

  3596.                   ${"ODSPH_$count_rx"}            = $wearing['ODSPH'];
    3597. 

  3597.                   ${"ODCYL_$count_rx"}            = $wearing['ODCYL'];
    3598. 

  3598.                   ${"ODAXIS_$count_rx"}           = $wearing['ODAXIS'];
    3599. 

  3599.                   ${"OSSPH_$count_rx"}            = $wearing['OSSPH'];
    3600. 

  3600.                   ${"OSCYL_$count_rx"}            = $wearing['OSCYL'];
    3601. 

  3601.                   ${"OSAXIS_$count_rx"}           = $wearing['OSAXIS'];
    3602. 

  3602.                   ${"ODMIDADD_$count_rx"}         = $wearing['ODMIDADD'];
    3603. 

  3603.                   ${"OSMIDADD_$count_rx"}         = $wearing['OSMIDADD'];
    3604. 

  3604.                   ${"ODADD_$count_rx"}            = $wearing['ODADD'];
    3605. 

  3605.                   ${"OSADD_$count_rx"}            = $wearing['OSADD'];
    3606. 

  3606.                   ${"ODVA_$count_rx"}             = $wearing['ODVA'];
    3607. 

  3607.                   ${"OSVA_$count_rx"}             = $wearing['OSVA'];
    3608. 

  3608.                   ${"ODNEARVA_$count_rx"}         = $wearing['ODNEARVA'];
    3609. 

  3609.                   ${"OSNEARVA_$count_rx"}         = $wearing['OSNEARVA'];
    3610. 

  3610.                   ${"ODPRISM_$count_rx"}          = $wearing['ODPRISM'];
    3611. 

  3611.                   ${"OSPRISM_$count_rx"}          = $wearing['OSPRISM'];
    3612. 

  3612.                   ${"W_$count_rx"}                = '1';
    3613. 

  3613.                   ${"RX_TYPE_$count_rx"}          = $wearing['RX_TYPE'];
    3614. 

  3614.                   ${"ODHPD_$count_rx"}            = $wearing['ODHPD'];
    3615. 

  3615.                   ${"ODHBASE_$count_rx"}          = $wearing['ODHBASE'];
    3616. 

  3616.                   ${"ODVPD_$count_rx"}            = $wearing['ODVPD'];
    3617. 

  3617.                   ${"ODVBASE_$count_rx"}          = $wearing['ODVBASE'];
    3618. 

  3618.                   ${"ODSLABOFF_$count_rx"}        = $wearing['ODSLABOFF'];
    3619. 

  3619.                   ${"ODVERTEXDIST_$count_rx"}     = $wearing['ODVERTEXDIST'];
    3620. 

  3620.                   ${"OSHPD_$count_rx"}            = $wearing['OSHPD'];
    3621. 

  3621.                   ${"OSHBASE_$count_rx"}          = $wearing['OSHBASE'];
    3622. 

  3622.                   ${"OSVPD_$count_rx"}            = $wearing['OSVPD'];
    3623. 

  3623.                   ${"OSVBASE_$count_rx"}          = $wearing['OSVBASE'];
    3624. 

  3624.                   ${"OSSLABOFF_$count_rx"}        = $wearing['OSSLABOFF'];
    3625. 

  3625.                   ${"OSVERTEXDIST_$count_rx"}     = $wearing['OSVERTEXDIST'];
    3626. 

  3626.                   ${"ODMPDD_$count_rx"}           = $wearing['ODMPDD'];
    3627. 

  3627.                   ${"ODMPDN_$count_rx"}           = $wearing['ODMPDN'];
    3628. 

  3628.                   ${"OSMPDD_$count_rx"}           = $wearing['OSMPDD'];
    3629. 

  3629.                   ${"OSMPDN_$count_rx"}           = $wearing['OSMPDN'];
    3630. 

  3630.                   ${"BPDD_$count_rx"}             = $wearing['BPDD'];
    3631. 

  3631.                   ${"BPDN_$count_rx"}             = $wearing['BPDN'];
    3632. 

  3632.                   ${"LENS_MATERIAL_$count_rx"}    = $wearing['LENS_MATERIAL'];
    3633. 

  3633.                   ${"LENS_TREATMENTS_$count_rx"}  = $wearing['LENS_TREATMENTS'];
    3634. 

  3634.                   ${"COMMENTS_$count_rx"}         = $wearing['COMMENTS'];
    3635. 

  3635.         }
    3636. 

  3636.         $result['IMPPLAN'] = build_IMPPLAN_items($pid, $copy_from);
    3637. 

  3637.         $result['query'] = $query;
    3638. 

  3638.         $result["json"] = json_encode($result);
    3639. 

  3639.         echo json_encode($result);
    3640. 

  3640.     }
    3641. 

  3641. }
    3642. 

  3642. 

  3643. /**
    3644. 

  3644.  *  This builds the IMPPLAN_items variable for a given pid and form_id.
    3645. 

  3645.  *  @param string $pid patient_id
    3646. 

  3646.  *  @param string $form_id field id in table form_eye_mag
    3647. 

  3647.  *  @return object IMPPLAN_items
    3648. 

  3648.  */
    3649. 

  3649. function build_IMPPLAN_items($pid, $form_id)
    3650. 

  3650. {
    3651. 

  3651.     global $form_folder;
    3652. 

  3652.     $query = "select * from form_" . $form_folder . "_impplan where form_id=? and pid=? ORDER BY IMPPLAN_order";
    3653. 

  3653.     $newdata = array();
    3654. 

  3654.     $fres = sqlStatement($query, array($form_id,$pid));
    3655. 

  3655.     $i = 0;
    3656. 

  3656.     while ($frow = sqlFetchArray($fres)) {
    3657. 

  3657.         $IMPPLAN_items[$i]['form_id'] = $frow['form_id'];
    3658. 

  3658.         $IMPPLAN_items[$i]['pid'] = $frow['pid'];
    3659. 

  3659.         $IMPPLAN_items[$i]['id'] = $frow['id'];
    3660. 

  3660.         $IMPPLAN_items[$i]['title'] = $frow['title'];
    3661. 

  3661.         $IMPPLAN_items[$i]['code'] = $frow['code'];
    3662. 

  3662.         $IMPPLAN_items[$i]['codetype'] = $frow['codetype'];
    3663. 

  3663.         $IMPPLAN_items[$i]['codedesc'] = $frow['codedesc'];
    3664. 

  3664.         $IMPPLAN_items[$i]['codetext'] = $frow['codetext'];
    3665. 

  3665.         $IMPPLAN_items[$i]['plan'] = $frow['plan'];
    3666. 

  3666.         $IMPPLAN_items[$i]['PMSFH_link'] = $frow['PMSFH_link'];
    3667. 

  3667.         $IMPPLAN_items[$i]['IMPPLAN_order'] = $frow['IMPPLAN_order'];
    3668. 

  3668.         $i++;
    3669. 

  3669.     }
    3670. 

  3670. 

  3671.     return $IMPPLAN_items;
    3672. 

  3672. }
    3673. 

  3673. 

  3674.             /**
    3675. 

  3675.              *  This builds the CODING_items variable for a given pid and encounter.
    3676. 

  3676.              *  @param string $pid patient_id
    3677. 

  3677.              *  @param string $encounter field id in table form_encounters
    3678. 

  3678.              *  @return object CODING_items
    3679. 

  3679.              */
    3680. 

  3680. function build_CODING_items($pid, $encounter)
    3681. 

  3681. {
    3682. 

  3682.     $query = "select * from billing where encounter=? and pid=? ORDER BY id";
    3683. 

  3683.     $fres = sqlStatement($query, array($encounter,$pid));
    3684. 

  3684.     $i = 0;
    3685. 

  3685. 

  3686.     while ($frow = sqlFetchArray($fres)) {
    3687. 

  3687.         $CODING_items[$i]['encounter'] = $frow['encounter'];
    3688. 

  3688.         $CODING_items[$i]['pid'] = $frow['pid'];
    3689. 

  3689.         $CODING_items[$i]['id'] = $frow['id'];
    3690. 

  3690.         $CODING_items[$i]['codetype'] = $frow['code_type'];
    3691. 

  3691.         $CODING_items[$i]['codedesc'] = $frow['code_desc'];
    3692. 

  3692.         $CODING_items[$i]['codetext'] = $frow['code_text'];
    3693. 

  3693.         $CODING_items[$i]['justify'] = $frow['justify'];
    3694. 

  3694.         $i++;
    3695. 

  3695.     }
    3696. 

  3696. 

  3697.     return $CODING_items;
    3698. 

  3698. }
    3699. 

  3699. 

  3700. /**
    3701. 

  3701.  *  This function builds an array of documents for this patient ($pid).
    3702. 

  3702.  *  We first list all the categories this practice has created by name and by category_id
    3703. 

  3703.  *  for this patient ($pid)
    3704. 

  3704.  *  Each document info from documents table is added to these as arrays
    3705. 

  3705.  *
    3706. 

  3706.  *  @param string $pid patient_id
    3707. 

  3707.  *  @return array($documents)
    3708. 

  3708.  */
    3709. 

  3709. function document_engine($pid)
    3710. 

  3710. {
    3711. 

  3711.     $sql1 =  sqlStatement("Select * from categories");
    3712. 

  3712.     while ($row1 = sqlFetchArray($sql1)) {
    3713. 

  3713.         $categories[] = $row1;
    3714. 

  3714.         $row1['name'] = preg_replace('/ - Eye/', '', $row1['name']);
    3715. 

  3715. 

  3716.         $my_name[$row1['id']] = $row1['name'];
    3717. 

  3717.         $children_names[$row1['parent']][] = $row1['name'];
    3718. 

  3718.         $parent_name[$row1['name']] = $my_name[$row1['parent']];
    3719. 

  3719.         if ($row1['value'] > '') {
    3720. 

  3720.             //if there is a value, tells us what segment of exam ($zone) this belongs in...
    3721. 

  3721.             $zones[$row1['value']][] = $row1;
    3722. 

  3722.         } else {
    3723. 

  3723.             if ($row1['name'] != "Categories") {
    3724. 

  3724.                 $zones['OTHER'][] = $row1;
    3725. 

  3725.             }
    3726. 

  3726.         }
    3727. 

  3727.     }
    3728. 

  3728. 

  3729.     $query = "Select *, categories.name as cat_name
    3730. 

  3730.                 from
    3731. 

  3731.                 categories, documents,categories_to_documents
    3732. 

  3732.                 where documents.foreign_id=? and documents.id=categories_to_documents.document_id and
    3733. 

  3733.                 categories_to_documents.category_id=categories.id and documents.deleted = 0 ORDER BY categories.name";
    3734. 

  3734.     $sql2 =  sqlStatement($query, array($pid));
    3735. 

  3735.     while ($row2 = sqlFetchArray($sql2)) {
    3736. 

  3736.         //the document may not be created on the same day as the encounter, use encounter date first
    3737. 

  3737.         //get encounter date from encounter id
    3738. 

  3738.         $row2['cat_name'] = preg_replace('/ - Eye/', '', $row2['cat_name']);
    3739. 

  3739.         $row2['display_url'] = preg_replace("|file:///.*/sites/|", $GLOBALS['webroot'] . "/sites/", $row2['url']);
    3740. 

  3740.         if ($row2['encounter_id']) {
    3741. 

  3741.             $visit = getEncounterDateByEncounter($row2['encounter_id']);
    3742. 

  3742.             $row2['encounter_date'] = oeFormatSDFT(strtotime($visit['date']));
    3743. 

  3743.         } else {
    3744. 

  3744.             $row2['encounter_date'] = $row2['docdate'];
    3745. 

  3745.         }
    3746. 

  3746. 

  3747.         $documents[] = $row2;
    3748. 

  3748.         $docs_in_cat_id[$row2['category_id']][] = $row2;
    3749. 

  3749.         if ($row2['value'] > '') {
    3750. 

  3750.             $docs_in_zone[$row2['value']][] = $row2;
    3751. 

  3751.         } else {
    3752. 

  3752.             $docs_in_zone['OTHER'][] = $row2;
    3753. 

  3753.         }
    3754. 

  3754. 

  3755.         $docs_in_name[$row2['cat_name']][] = $row2;
    3756. 

  3756.         $docs_by_date[$row2['encounter_date']][] = $row2;
    3757. 

  3757.     }
    3758. 

  3758. 

  3759.     $documents['categories']        = $categories;
    3760. 

  3760.     $documents['my_name']           = $my_name;
    3761. 

  3761.     $documents['children_names']    = $children_names;
    3762. 

  3762.     $documents['parent_name']       = $parent_name;
    3763. 

  3763.     $documents['zones']             = $zones;
    3764. 

  3764.     $documents['docs_in_zone']      = $docs_in_zone;
    3765. 

  3765.     $documents['docs_in_cat_id']    = $docs_in_cat_id;
    3766. 

  3766.     $documents['docs_in_name']      = $docs_in_name;
    3767. 

  3767.     $documents['docs_by_date']      = $docs_by_date;
    3768. 

  3768. 

  3769.     return array($documents);
    3770. 

  3770. }
    3771. 

  3771. 

  3772. /**
    3773. 

  3773.  *  This function returns ICONS with links for a specific clinical subsection of the Document Library.
    3774. 

  3774.  *
    3775. 

  3775.  *  @param string $pid value = patient id
    3776. 

  3776.  *  @param string $encounter is the encounter_id
    3777. 

  3777.  *  @param string $category_value options EXT,ANTSEG,POSTSEG,NEURO,OTHER
    3778. 

  3778.  *                These values are taken from the "value" field in the Documents' table "categories".
    3779. 

  3779.  *                They allow us to regroup the categories how we like them.
    3780. 

  3780.  *  @return array($imaging,$episode)
    3781. 

  3781.  */
    3782. 

  3782. function display($pid, $encounter, $category_value)
    3783. 

  3783. {
    3784. 

  3784.     global $form_folder;
    3785. 

  3785.     global $id;
    3786. 

  3786.     global $documents;
    3787. 

  3787.     $episode = '';
    3788. 

  3788.        /**
    3789. 

  3789.         *   Each document is stored in a specific category.  Think of a category as a Folder.
    3790. 

  3790.         *   Practices can add/alter/delete category names as they wish.
    3791. 

  3791.         *   In the Eye Form we link to these categories, not by name but by what part of the physical exam they belong to.
    3792. 

  3792.         *   We needed a pointer to tell us if a document category is specific to a clinical section.
    3793. 

  3793.         *   For example, a photo of the retina is stored in the category we named "Fundus".
    3794. 

  3794.         *       A photo of the optic nerve is stored in the "Optic Disc" category.  Someone else might change the
    3795. 

  3795.         *       name to "Optic Nerve", or even a different language.  No matter, these categories include documents
    3796. 

  3796.         *       we would like to directly link to/open from the RETINA section of the link.
    3797. 

  3797.         *   The categories table does have an unused field - "value".
    3798. 

  3798.         *   This is where we link document categories to a clinical zone.  We add the clinical section name
    3799. 

  3799.         *   on install but the end user can change or add others as the devices evolve.
    3800. 

  3800.         *   Currently the base install has EXT,ANTSEG,POSTSEG,NEURO
    3801. 

  3801.         *   New names new categories.  OCT would not have been a category 5 years ago.
    3802. 

  3802.         *   Who knows what is next?  Gene-lab construction?
    3803. 

  3803.         *   So the name is user assigned as is the location.
    3804. 

  3804.         *   Thus we need to build out the Documents section by adding another layer "zones"
    3805. 

  3805.         *   to the associative array.
    3806. 

  3806.         */
    3807. 

  3807.     if (!$documents) {
    3808. 

  3808.         list($documents) = document_engine($pid);
    3809. 

  3809.     }
    3810. 

  3810. 

  3811.     for ($j = 0; $j < count($documents['zones'][$category_value]); $j++) {
    3812. 

  3812.         $count_here = empty($documents['docs_in_cat_id'][$documents['zones'][$category_value][$j]['id']]) ? 0 : count($documents['docs_in_cat_id'][$documents['zones'][$category_value][$j]['id']]);
    3813. 

  3813. 

  3814.         $id_to_show = $documents['docs_in_cat_id'][$documents['zones'][$category_value][$j]['id']][$count_here - 1]['document_id'];
    3815. 

  3815.         $documents['zones'][$category_value][$j]['name'] = preg_replace("( - Eye)", "", $documents['zones'][$category_value][$j]['name']);
    3816. 

  3816.         $episode .= "<tr>
    3817. 

  3817.         <td class='right'><span class='font-weight-bold'>" . text($documents['zones'][$category_value][$j]['name']) . "</span>:&nbsp;</td>
    3818. 

  3818.         <td>
    3819. 

  3819.             <a onclick=\"openNewForm('" . $GLOBALS['webroot'] . "/controller.php?document&upload&patient_id=" . attr($pid) . "&parent_id=" . attr($documents['zones'][$category_value][$j]['id']) . "&', '" . xla('Upload') . " " . attr($documents['zones'][$category_value][$j]['name']) . "');\" href='#'>
    3820. 

  3820.             <img src='../../forms/" . $form_folder . "/images/upload_file.png' class='little_image'>
    3821. 

  3821.             </a>
    3822. 

  3822.         </td>
    3823. 

  3823.         <td>
    3824. 

  3824.             <a onclick=\"return showpnotes('" . $id_to_show . "');\">
    3825. 

  3825.                 <img  src='../../forms/" . $form_folder . "/images/upload_multi.png' class='little_image'>
    3826. 

  3826.             </a>
    3827. 

  3827.         </td>
    3828. 

  3828.         <td>";
    3829. 

  3829.         //open via OpenEMR Documents with treemenu
    3830. 

  3830.         if ($count_here > '0') {
    3831. 

  3831.             $episode .= '<a onclick="openNewForm(\'' . $GLOBALS['webroot'] . '/controller.php?document&view&patient_id=' . $pid . '&doc_id=' . $id_to_show . '\',\'' . xla('Documents') . ': ' . attr($documents['zones'][$category_value][$j]['name']) . '\');"><img src="../../forms/' . $form_folder . '/images/jpg.png" class="little_image" /></a>';
    3832. 

  3832.         }
    3833. 

  3833. 

  3834.         $episode .= '</td></tr>';
    3835. 

  3835.         $i++;
    3836. 

  3836.     }
    3837. 

  3837. 

  3838.     return array($documents,$episode);
    3839. 

  3839. }
    3840. 

  3840. 

  3841. /**
    3842. 

  3842.  *  This is an application style menu (bootstrap) to start shifting clinical functions into a single page.
    3843. 

  3843.  *
    3844. 

  3844.  *  @param string $pid is the patient id
    3845. 

  3845.  *  @param string $encounter is the encounter_id
    3846. 

  3846.  *  @param string $title is the form title
    3847. 

  3847.  *
    3848. 

  3848.  *  @return nothing, outputs directly to screen
    3849. 

  3849.  */
    3850. 

  3850. function menu_overhaul_top($pid, $encounter, $title = "Eye Exam")
    3851. 

  3851. {
    3852. 

  3852.     global $form_folder;
    3853. 

  3853.     global $prov_data;
    3854. 

  3854.     global $encounter;
    3855. 

  3855.     global $form_id;
    3856. 

  3856.     global $display;
    3857. 

  3857.     global $provider_id;
    3858. 

  3858. 

  3859.     $providerNAME = $prov_data['fname'] . " " . $prov_data['lname'];
    3860. 

  3860.     if ($prov_data['suffix']) {
    3861. 

  3861.         $providerNAME .= ", " . $prov_data['suffix'];
    3862. 

  3862.     }
    3863. 

  3863. 

  3864.     if (!empty($_REQUEST['display']) && ($_REQUEST['display'] == "fullscreen")) {
    3865. 

  3865.         $fullscreen_disable = 'disabled';
    3866. 

  3866.     } else {
    3867. 

  3867.         $frame_disabled = 'disabled';
    3868. 

  3868.         echo "<style>.tabHide{ display:none; }</style>";
    3869. 

  3869.     }
    3870. 

  3870.     ?>
    3871. 

  3871.        <!-- Navigation -->
    3872. 

  3872.     <nav class="navbar fixed-top navbar-custom navbar-bright navbar-inner navbar-expand-lg" data-role="page banner navigation"
    3873. 

  3873.          style="margin-bottom: 0;z-index: 9999999;">
    3874. 

  3874.         <!-- Brand and toggle get grouped for better mobile display -->
    3875. 

  3875.         <div class="container-fluid" style="margin-top:0px;padding:2px;">
    3876. 

  3876.             <div class="navbar-brand" style="color:black;">
    3877. 

  3877.                 &nbsp;
    3878. 

  3878.                 <img src="<?php echo $GLOBALS['webroot']; ?>/sites/default/images/login_logo.gif" class="little_image">
    3879. 

  3879.                 <span class="brand"><?php echo xlt('Eye Exam'); ?></span>
    3880. 

  3880.             </div>
    3881. 

  3881.             <div class="navbar-collapse oer-navbar-collapse mr-auto mt-2 mt-lg-0" id="oer-navbar-collapse-1">
    3882. 

  3882.                 <ul class="navbar-nav mr-auto">
    3883. 

  3883.                     <li class="dropdown">
    3884. 

  3884.                         <a class="dropdown-toggle" data-toggle="dropdown" id="menu_dropdown_file" role="button" aria-expanded="true"><?php echo xlt("File"); ?> </a>
    3885. 

  3885.                         <ul class="dropdown-menu" role="menu">
    3886. 

  3886.                             <li class="nav-lik" id="menu_PRINT_narrative" name="menu_PRINT_report"><a class="nav-link black" id="BUTTON_PRINT_report" target="_new" href="<?php echo $GLOBALS['webroot']; ?>/interface/patient_file/report/custom_report.php?printable=1&pdf=0&<?php echo attr_url($form_folder) . "_" . attr_url($form_id) . "=" . attr_url($encounter); ?>"><?php echo xlt("Print Report"); ?></a></li>
    3887. 

  3887.                             <li class="nav-ite" id="menu_PRINT_narrative_2" name="menu_PRINT_report_2"><a class="nav-link black" id="BUTTON_PRINT_report_2" target="_new" href="#"
    3888. 

  3888.                                 onclick="top.restoreSession(); create_task('<?php echo attr($provider_id); ?>','Report','menu'); return false;">
    3889. 

  3889.                                 <?php echo xlt("Save Report as PDF"); ?></a></li>
    3890. 

  3890.                         </ul>
    3891. 

  3891.                     </li>
    3892. 

  3892.                     <li class="dropdown">
    3893. 

  3893.                         <a class="dropdown-toggle" data-toggle="dropdown" id="menu_dropdown_edit" role="button" aria-expanded="true"><?php echo xlt("Edit"); ?> </a>
    3894. 

  3894.                         <ul class="dropdown-menu" role="menu">
    3895. 

  3895.                             <li id="menu_Defaults" name="menu_Defaults" class="">
    3896. 

  3896.                                 <a class="nav-link black"
    3897. 

  3897.                                    id="BUTTON_Defaults_menu"
    3898. 

  3898.                                    onclick="openNewForm('<?php echo $GLOBALS['webroot']; ?>/interface/super/edit_list.php?list_id=Eye_defaults_<?php echo attr($provider_id); ?>', '<?php echo xla('Default Exam Values'); ?>');"
    3899. 

  3899.                                    name="provider_todo"
    3900. 

  3900.                                    href="JavaScript:void(0);">
    3901. 

  3901.                                 <?php echo xlt("Default Values"); ?> &nbsp;
    3902. 

  3902.                                 <span class="menu_icon"><i class="fa fa-pencil-alt fa-fw"></i> </span></a></li>
    3903. 

  3903.                             <li id="menu_TEXT" name="menu_TEXT" class="active">
    3904. 

  3904.                                 <a class="nav-link black" href="#"><?php echo xlt("Text"); ?><span class="menu_icon">Ctl-T</span></a></li>
    3905. 

  3905.                             <li id="menu_DRAW" name="menu_DRAW">
    3906. 

  3906.                                 <a class="nav-link black" href="#" id="BUTTON_DRAW_menu" name="BUTTON_DRAW_menu"><?php echo xlt("Draw"); ?><span class="menu_icon">Ctl-D</span></a></li>
    3907. 

  3907.                             <li id="menu_QP" name="menu_QP">
    3908. 

  3908.                                 <a class="nav-link black" href="#" id="BUTTON_QP_menu" name="BUTTON_QP_menu"><?php echo xlt("Quick Picks"); ?><span class="menu_icon">Ctl-B</span></a></li>
    3909. 

  3909.                             <li id="menu_PRIORS" name="menu_PRIORS">
    3910. 

  3910.                                 <a class="nav-link black" href="#"><?php echo xlt("Prior Visits"); ?><span class="menu_icon">Ctl-P</span></a></li>
    3911. 

  3911.                             <li id="menu_KB" name="menu_KB">
    3912. 

  3912.                                 <a class="nav-link black" href="#"><?php echo xlt("Shorthand"); ?><span class="menu_icon">Ctl-K</span></a></li>
    3913. 

  3913.                             <?php
    3914. 

  3914.                                 /*
    3915. 

  3915.                                 // This only shows up in fullscreen currently so hide it.
    3916. 

  3916.                                 // If the decision is made to show this is framed openEMR, then display it
    3917. 

  3917.                                 */
    3918. 

  3918.                             if ($display !== "fullscreen") { ?>
    3919. 

  3919.                                     <li class="divider"></li>
    3920. 

  3920.                                     <li id="menu_fullscreen" name="menu_fullscreen" <?php echo ($fullscreen ?? ''); ?>>
    3921. 

  3921.                                         <a class="nav-link black"
    3922. 

  3922.                                            onclick="openNewForm('<?php echo $GLOBALS['webroot']; ?>/interface/patient_file/encounter/load_form.php?formname=fee_sheet');top.restoreSession();dopopup('<?php echo $_SERVER['REQUEST_URI'] . '&display=fullscreen&encounter=' . $encounter; ?>');"
    3923. 

  3923.                                            href="JavaScript:void(0);"
    3924. 

  3924.                                            ><?php echo xlt('Fullscreen'); ?></a>
    3925. 

  3925.                                     </li>
    3926. 

  3926.                                     <?php
    3927. 

  3927.                             } ?>
    3928. 

  3928.                         </ul>
    3929. 

  3929.                     </li>
    3930. 

  3930.                
    3931. 

  3931.                     <li class="dropdown">
    3932. 

  3932.                         <a class="dropdown-toggle" data-toggle="dropdown" id="menu_dropdown_view" role="button" aria-expanded="true"><?php echo xlt("View"); ?> </a>
    3933. 

  3933.                         <ul class="dropdown-menu" role="menu">
    3934. 

  3934.                             <li id="menu_HPI" name="menu_HPI"><a class="nav-link black" href="#"><?php echo xlt("HPI"); ?></a></li>
    3935. 

  3935.                             <li id="menu_PMH" name="menu_PMH"><a class="nav-link black" href="#"><?php echo xlt("PMH{{Past Medical History}}"); ?></a></li>
    3936. 

  3936.                             <li id="menu_EXT" name="menu_EXT" ><a class="nav-link black" href="#"><?php echo xlt("External"); ?></a></li>
    3937. 

  3937.                             <li id="menu_ANTSEG" name="menu_ANTSEG" ><a class="nav-link black" href="#"><?php echo xlt("Anterior Segment"); ?></a></li>
    3938. 

  3938.                             <li id="menu_POSTSEG" name="menu_POSTSEG" ><a class="nav-link black" href="#"><?php echo xlt("Posterior Segment"); ?></a></li>
    3939. 

  3939.                             <li id="menu_NEURO" name="menu_NEURO" ><a class="nav-link black" href="#"><?php echo xlt("Neuro"); ?></a></li>
    3940. 

  3940.                             <li id="menu_IMPPLAN" name="menu_IMPPLAN" ><a class="nav-link black" href="#"><?php echo xlt("Imp Plan"); ?></a></li>
    3941. 

  3941.                             <li class="divider"></li>
    3942. 

  3942.                             <li id="menu_Right_Panel" name="menu_Right_Panel"><a class="nav-link black" href="#"><?php echo xlt("PMSFH Panel"); ?><span class="menu_icon"><i class="fa fa-list" ></i></span></a></li>
    3943. 

  3943.                             <li id="menu_left_tabs" name="menu_left_tabs"><a class="nav-link black" href="#"><?php echo xlt("Chart View"); ?><span class="menu_icon"><i class="fa fa-user-md" ></i></span></a></li>
    3944. 

  3944.                         </ul>
    3945. 

  3945.                     </li>
    3946. 

  3946.                     <li class="dropdown">
    3947. 

  3947.                         <a class="dropdown-toggle" data-toggle="dropdown"
    3948. 

  3948.                            id="menu_dropdown_library" role="button"
    3949. 

  3949.                            aria-expanded="true"><?php echo xlt("Library"); ?> </a>
    3950. 

  3950.                         <ul class="dropdown-menu" role="menu">
    3951. 

  3951.                             <li id="menu_IOP_graph" name="menu_IOP_graph" ><a class="nav-link black" href="#"><?php echo xlt("IOP Graph"); ?></a></li>
    3952. 

  3952.                         </ul>
    3953. 

  3953.                     </li>
    3954. 

  3954.                     <li class="dropdown">
    3955. 

  3955.                         <a class="dropdown-toggle" data-toggle="dropdown"
    3956. 

  3956.                            id="menu_dropdown_help" role="button"
    3957. 

  3957.                            aria-expanded="true"><?php echo xlt("Help"); ?> </a>
    3958. 

  3958.                         <ul class="dropdown-menu" role="menu" aria-labelledby="menu1">
    3959. 

  3959.                             <li>
    3960. 

  3960.                                 <a class="nav-link black" href="#"  tabindex="-1" id="tooltips_toggle" name="tooltips_toggle">
    3961. 

  3961.                                 <i class="fa fa-help"></i>  <?php echo xlt("Tooltips"); ?>
    3962. 

  3962.                                 <span id="tooltips_status" name="tooltips_status"></span>
    3963. 

  3963.                                 <span class="menu_icon"><i title="<?php echo xla('Turn the Tooltips on/off'); ?>" id="qtip_icon" class="fa fa-check fa-1"></i></span></a>
    3964. 

  3964.                             </li>
    3965. 

  3965.                             <li>
    3966. 

  3966.                                 <a class="nav-link black" tabindex="-1" target="_shorthand" href="<?php echo $GLOBALS['webroot']; ?>/interface/forms/eye_mag/help.php">
    3967. 

  3967.                                     <i class="fa fa-help"></i>  <?php echo xlt("Shorthand Help"); ?>
    3968. 

  3968.                                     <span class="menu_icon">
    3969. 

  3969.                                         <i title="<?php echo xla('Click for Shorthand Help.'); ?>" class="fa fa-info-circle fa-1"></i></span></a>
    3970. 

  3970.                             </li>
    3971. 

  3971.                         </ul>
    3972. 

  3972.                     </li>
    3973. 

  3973.                 </ul>
    3974. 

  3974.                 <ul class="nav navbar-nav navbar-right my-2 my-lg-0">
    3975. 

  3975.                     <li><span style="margin-right:15px;color:black;"  onclick="editScripts('<?php echo $GLOBALS['web_root']; ?>/controller.php?prescription&list&id=<?php echo attr_url($pid); ?>');">eRx</button>
    3976. 

  3976.                         </span></li>
    3977. 

  3977.                     <li ><span id="active_flag" name="active_flag" style="margin-right:15px;color:red;"> <?php echo xlt('Active Chart'); ?> </span>
    3978. 

  3978.                         <span name="active_icon" id="active_icon" style="color:black;"><i class='fa fa-toggle-on'></i></span></li>
    3979. 

  3979. 

  3980.                 </ul>
    3981. 

  3981. 

  3982.             </div><!-- /.navbar-collapse -->
    3983. 

  3983.         </div>
    3984. 

  3984.     </nav>
    3985. 

  3985.     <?php
    3986. 

  3986.         return;
    3987. 

  3987. }
    3988. 

  3988. /**
    3989. 

  3989.  *  This is currently a floating div top with patient demographics and such.
    3990. 

  3990.  *  Used in fullscreen mode at the top.
    3991. 

  3991.  *
    3992. 

  3992.  *  @param string $pid patient_id
    3993. 

  3993.  *  @param string $encounter is the current encounter number
    3994. 

  3994.  *  @return nothing, outputs directly to screen
    3995. 

  3995.  */
    3996. 

  3996. function menu_overhaul_left($pid, $encounter)
    3997. 

  3997. {
    3998. 

  3998.     global $form_folder;
    3999. 

  3999.     global $pat_data;
    4000. 

  4000.     global $visit_date;
    4001. 

  4001.     global $documents;
    4002. 

  4002.     global $display;
    4003. 

  4003.     global $reason;
    4004. 

  4004.     global $priors;
    4005. 

  4005.     global $pcp_data;
    4006. 

  4006.     global $ref_data;
    4007. 

  4007.     global $ins_coA;
    4008. 

  4008.     global $ins_coB;
    4009. 

  4009. 

  4010.     /*
    4011. 

  4011.      * find out if the patient has a photo
    4012. 

  4012.      */
    4013. 

  4013.     if (!$documents) {
    4014. 

  4014.         list($documents) = document_engine($pid);
    4015. 

  4015.     }
    4016. 

  4016.     ?>
    4017. 

  4017.     <div class="borderShadow row" id="title_bar">
    4018. 

  4018.         <div id="left_menu" name="left_menu" class="col-sm-4" style="padding-left: 18px;">
    4019. 

  4019.                 <table style="text-align:left;">
    4020. 

  4020.                     <tr><td class="right" >
    4021. 

  4021.                             <?php
    4022. 

  4022.                             $age = getPatientAgeDisplay($pat_data['DOB'], $encounter_date);
    4023. 

  4023.                             $DOB = oeFormatShortDate($pat_data['DOB']);
    4024. 

  4024.                             echo "<span class='font-weight-bold'>" . xlt('Name') . ":</span> </td><td nowrap> &nbsp;" . text($pat_data['fname']) . "  " . text($pat_data['lname']) . " (" . text($pid) . ")</td></tr>
    4025. 

  4025.                                     <tr><td class='right'><span class='font-weight-bold'>" . xlt('DOB') . ":</span></td><td  nowrap> &nbsp;" . text($DOB) . "&nbsp;&nbsp;(" . text($age) . ")";
    4026. 

  4026.                             ?>
    4027. 

  4027.                             <?php
    4028. 

  4028.                             ?>
    4029. 

  4029.                         </td>
    4030. 

  4030.                     </tr>
    4031. 

  4031.                     <?php
    4032. 

  4032.                         echo "<tr><td class='right' nowrap><span class='font-weight-bold'>" . xlt('Visit Date') . ":</span></td><td>&nbsp;" . $visit_date . "</td></tr>";
    4033. 

  4033.                     ?>
    4034. 

  4034.                     <tr><td class="right" style="vertical-align:top;" nowrap><span style="font-weight:bold;"><?php echo xlt("Provider"); ?>:</span>&nbsp;</td>
    4035. 

  4035.                         <td><?php echo text(getProviderName(getProviderIdOfEncounter($encounter))); ?></td>
    4036. 

  4036.                     </tr>
    4037. 

  4037. 

  4038.                     <tr>
    4039. 

  4039.                         <td class="right" style="vertical-align:top;" nowrap><span style="font-weight:bold;"><?php echo xlt("Reason"); ?>:</span>&nbsp;</td>
    4040. 

  4040.                         <td><?php echo text($reason); ?></td>
    4041. 

  4041.                     </tr>
    4042. 

  4042.                     <?php
    4043. 

  4043.                     if ($priors[0]['TODO']) {
    4044. 

  4044.                         ?>
    4045. 

  4045.                     <tr>
    4046. 

  4046.                         <td class="right" style="vertical-align:top;" nowrap><span style="font-weight:bold;"><?php echo xlt("Plan"); ?>:</span>&nbsp;</td>
    4047. 

  4047.                         <td style="vertical-align:top;">
    4048. 

  4048.                             <?php
    4049. 

  4049.                             $j = 1;
    4050. 

  4050.                             foreach ($priors[0]['TODO'] as $plan) {
    4051. 

  4051.                                 echo "<span class='button'>" . $j++ . "</span> " . text($plan['ORDER_DETAILS']) . "<br />";
    4052. 

  4052.                             }
    4053. 

  4053.                             ?>
    4054. 

  4054.                         </td>
    4055. 

  4055.                     </tr>
    4056. 

  4056.                     <?php } ?>
    4057. 

  4057.                 </table>
    4058. 

  4058.         </div>
    4059. 

  4059.         <div id="left_menu3" name="left_menu3" class="col-sm-3" style="font-size:1.0em;">
    4060. 

  4060.             <?php             //if the patient has a photograph, use it else use generic avitar thing.
    4061. 

  4061. 

  4062.             if (!empty($documents['docs_in_name']['Patient Photograph'][0])) {
    4063. 

  4063.                 ?>
    4064. 

  4064.                 <object><embed
    4065. 

  4065.                             src="<?php echo $GLOBALS['webroot']; ?>/controller.php?document&retrieve&patient_id=<?php echo attr($pid); ?>&document_id=<?php echo attr($documents['docs_in_name']['Patient Photograph'][0]['id']); ?>&as_file=false&original_file=true&disable_exit=false&show_original=true&context=patient_picture"
    4066. 

  4066.                             
    4067. 

  4067.                             Xsrc="<?php echo $GLOBALS['webroot']; ?>/controller.php?document&amp;retrieve&amp;patient_id=<?php echo attr($pid); ?>&amp;document_id=<?php echo attr($documents['docs_in_name']['Patient Photograph'][0]['id']); ?>&amp;as_file=false" frameborder="0"
    4068. 

  4068.                      type="<?php echo attr($documents['docs_in_name']['Patient Photograph'][0]['mimetype']); ?>" allowscriptaccess="always" allowfullscreen="false" height="100"></embed></object>
    4069. 

  4069.                 <?php
    4070. 

  4070.             } else {
    4071. 

  4071.                 ?>
    4072. 

  4072.             <object><embed src="<?php echo $GLOBALS['web_root']; ?>/interface/forms/<?php echo $form_folder; ?>/images/anon.gif" frameborder="0"
    4073. 

  4073.                  type="image/gif" height="50"></embed></object>
    4074. 

  4074.                 <?php
    4075. 

  4075.             }
    4076. 

  4076.             ?>
    4077. 

  4077.         </div>
    4078. 

  4078. 

  4079.         <div id="left_menu2" name="left_menu2" class="col-sm-4" style="font-size:1.0em;">
    4080. 

  4080. 

  4081.             <div style="position:relative;float:left;padding-left:18px;top:0px;">
    4082. 

  4082.                 <table style="border:1pt;font-size:1.0em;">
    4083. 

  4083.                     <tr>
    4084. 

  4084.                         <td class="right"><span style="font-weight:bold;"><?php echo xlt("PCP"); ?>:</span>&nbsp;</td>
    4085. 

  4085.                         <td class="left"> <span id="pcp_name"><?php echo text($pcp_data['fname']) . " " . text($pcp_data['lname']); ?><?php if ($pcp_data['suffix']) {
    4086. 

  4086.                                     echo ", " . text($pcp_data['suffix']);} ?></span></td>
    4087. 

  4087.                         </td>
    4088. 

  4088.                     </tr>
    4089. 

  4089. 

  4090.                     <tr><td class="right" nowrap><span style="font-weight:bold;"><?php echo xlt("Referred By"); ?>:</span>&nbsp;</td>
    4091. 

  4091.                         <td class="left"> <span id="ref_name"><?php echo text($ref_data['fname']) . " " . text($ref_data['lname']); ?><?php if ($ref_data['suffix']) {
    4092. 

  4092.                                     echo ", " . text($ref_data['suffix']);} ?></span></td>
    4093. 

  4093.                         </tr>
    4094. 

  4094.                     <tr><td class="right"><span style="font-weight:bold;"><?php echo xlt("Insurance"); ?>:</span>&nbsp;</td><td class="left">&nbsp;<?php echo text($ins_coA); ?></td></tr>
    4095. 

  4095.                     <tr><td class="right"><span style="font-weight:bold;"><?php echo xlt("Secondary"); ?>:</span>&nbsp;</td><td class="left">&nbsp;<?php echo text($ins_coB); ?></td></tr>
    4096. 

  4096.                     <tr><td class="right"><span style="font-weight:bold;"><?php echo xlt("Pharmacy"); ?>:</span>&nbsp;</td>
    4097. 

  4097.                         <td class="left">&nbsp;
    4098. 

  4098.                             <?php
    4099. 

  4099.                             if (!empty($pat_data['pharmacy_id'])) {
    4100. 

  4100.                                 $sql = "SELECT d.id, d.name, a.line1, a.city, " .
    4101. 

  4101.                                     "a.state, p.area_code, p.prefix, p.number FROM pharmacies AS d " .
    4102. 

  4102.                                     "LEFT OUTER JOIN addresses AS a ON a.foreign_id = d.id " .
    4103. 

  4103.                                     "LEFT OUTER JOIN phone_numbers AS p ON p.foreign_id = d.id " .
    4104. 

  4104.                                     "AND p.type = 2 where d.id=?" .
    4105. 

  4105.                                     "ORDER BY state, city, name, area_code, prefix, number";
    4106. 

  4106.                                 $pharm = sqlQuery($sql, array($pat_data['pharmacy_id']));
    4107. 

  4107.                                 echo text($pharm['name'] . ", " . $pharm['city'] . " " . $pharm['state']);
    4108. 

  4108.                             }
    4109. 

  4109.                             ?>
    4110. 

  4110.                         </td></tr>
    4111. 

  4111. 

  4112.                 </table>
    4113. 

  4113.             </div>
    4114. 

  4114.         </div>
    4115. 

  4115. 

  4116.     </div>
    4117. 

  4117.     <?php
    4118. 

  4118. }
    4119. 

  4119. /**
    4120. 

  4120.  *  This is currently not used.  It can easily be a footer with the practice info
    4121. 

  4121.  *  or whatever you like.  Maybe a placeholder for user groups or link outs to data repositories
    4122. 

  4122.  *  such as Medfetch.com/PubMed/UpToDate/DynaMed????
    4123. 

  4123.  *  It could provide information as to available data imports from connected machines - yes we have
    4124. 

  4124.  *  data from an autorefractor needed to be imported.  The footer can be fixed or floating.
    4125. 

  4125.  *  It could have balance info, notes, or an upside down menu mirroring the header menu, maybe allowing
    4126. 

  4126.  *  the user to decide which is fixed and which is not?  Messaging? Oh the possibilities.
    4127. 

  4127.  *
    4128. 

  4128.  *  @param string $pid patient_id
    4129. 

  4129.  *  @param string $encounter is the current encounter number
    4130. 

  4130.  *  @return nothing, outputs directly to screen
    4131. 

  4131.  */
    4132. 

  4132. 

  4133. function menu_overhaul_bottom($pid, $encounter)
    4134. 

  4134. {
    4135. 

  4135.     ?><div class="navbar-custom" style="width:100%;height:25px;position:relative;border-top:1pt solid black;bottom:0px;z-index:1000000;">&nbsp;</div><?php
    4136. 

  4136. }
    4137. 

  4137. 

  4138. /*
    4139. 

  4139.  * This was taken from new_form.php and is helping to integrate new menu with openEMR
    4140. 

  4140.  * menu seen on encounter page.
    4141. 

  4141.  */
    4142. 

  4142. function Menu_myGetRegistered($state = "1", $limit = "unlimited", $offset = "0")
    4143. 

  4143. {
    4144. 

  4144.     $sql = "SELECT category, nickname, name, state, directory, id, sql_run, " .
    4145. 

  4145.       "unpackaged, date FROM registry WHERE " .
    4146. 

  4146.       "state LIKE ? ORDER BY category, priority, name";
    4147. 

  4147.     if ($limit != "unlimited") {
    4148. 

  4148.         $sql .= " limit " . escape_limit($limit) . ", " . escape_limit($offset);
    4149. 

  4149.     }
    4150. 

  4150. 

  4151.     $res = sqlStatement($sql, array($state));
    4152. 

  4152.     if ($res) {
    4153. 

  4153.         for ($iter = 0; $row = sqlFetchArray($res); $iter++) {
    4154. 

  4154.             $all[$iter] = $row;
    4155. 

  4155.         }
    4156. 

  4156.     } else {
    4157. 

  4157.         return false;
    4158. 

  4158.     }
    4159. 

  4159. 

  4160.     return $all;
    4161. 

  4161. }
    4162. 

  4162. /**
    4163. 

  4163.  * This prints a header for documents.  Keeps the brand uniform...
    4164. 

  4164.  *  @param string $pid patient_id
    4165. 

  4165.  *  @param string $direction, options "web" or anything else.  Web provides apache-friendly url links.
    4166. 

  4166.  *  @return outputs directly to screen
    4167. 

  4167.  */
    4168. 

  4168. function report_header($pid, $direction = 'shell')
    4169. 

  4169. {
    4170. 

  4170.     global $encounter;
    4171. 

  4171.     global $visit_date;
    4172. 

  4172.     global $facilityService;
    4173. 

  4173.     global $OE_SITE_DIR;
    4174. 

  4174. 

  4175.     /*******************************************************************
    4176. 

  4176.     $titleres = getPatientData($pid, "fname,lname,providerID");
    4177. 

  4177.     $sql = "SELECT * FROM facility ORDER BY billing_location DESC LIMIT 1";
    4178. 

  4178.     *******************************************************************/
    4179. 

  4179.     //$titleres = getPatientData($pid, "fname,lname,providerID,DATE_FORMAT(DOB,'%m/%d/%Y') as DOB_TS");
    4180. 

  4180.     $titleres = getPatientData($pid, "fname,lname,providerID,DOB");
    4181. 

  4181.     $facility = null;
    4182. 

  4182.     if ($_SESSION['pc_facility']) {
    4183. 

  4183.         $facility = $facilityService->getById($_SESSION['pc_facility']);
    4184. 

  4184.     } else {
    4185. 

  4185.         $facility = $facilityService->getPrimaryBillingLocation();
    4186. 

  4186.     }
    4187. 

  4187. 

  4188.     $DOB = oeFormatShortDate($titleres['DOB']);
    4189. 

  4189.     /******************************************************************/
    4190. 

  4190.     ob_start();
    4191. 

  4191.     // Use logo if it exists as 'practice_logo.gif' in the site dir
    4192. 

  4192.     // old code used the global custom dir which is no longer a valid
    4193. 

  4193.     //need to fix logo for multi-site
    4194. 

  4194.     ?>
    4195. 

  4195.     <table style="width:100%;">
    4196. 

  4196.         <tr>
    4197. 

  4197.             <td style='width:150px;text-align:top;'>
    4198. 

  4198.                 <?php
    4199. 

  4199.                 if ($direction == "web") {
    4200. 

  4200.                     $practice_logo = $GLOBALS['webroot'] . "/sites/default/images/practice_logo.gif";
    4201. 

  4201.                     if (file_exists($OE_SITE_DIR . "/images/practice_logo.gif")) {
    4202. 

  4202.                         echo "<img src='$practice_logo' align='left' style='width:150px;margin:0px 10px;'><br />\n";
    4203. 

  4203.                     }
    4204. 

  4204.                 } else {
    4205. 

  4205.                     $practice_logo = "$OE_SITE_DIR/images/practice_logo.gif";
    4206. 

  4206.                     if (file_exists($practice_logo)) {
    4207. 

  4207.                         echo "<img src='$practice_logo' align='left' style='width:100px;margin:0px 10px;'><br />\n";
    4208. 

  4208.                     } else {
    4209. 

  4209.                         $practice_logo = "$OE_SITE_DIR/images/login_logo.gif";
    4210. 

  4210.                         if (file_exists($practice_logo)) {
    4211. 

  4211.                             echo "<img src='$practice_logo' align='left' style='width:100px;margin:0px 10px;'><br />\n";
    4212. 

  4212.                         }
    4213. 

  4213.                     }
    4214. 

  4214.                 }
    4215. 

  4215.                 ?>
    4216. 

  4216.             </td>
    4217. 

  4217.             <td style='width:40%;'>
    4218. 

  4218.                 <em style="font-weight:bold;font-size:1.4em;"><?php echo text($facility['name']); ?></em><br />
    4219. 

  4219.                 <?php echo text($facility['street']); ?><br />
    4220. 

  4220.                 <?php echo text($facility['city']); ?>, <?php echo text($facility['state']); ?> <?php echo text($facility['postal_code']); ?><br />
    4221. 

  4221.                 <?php echo xlt('Phone') . ': ' . text($facility['phone']); ?><br />
    4222. 

  4222.                 <?php echo xlt('Fax') . ': ' . text($facility['fax']); ?><br />
    4223. 

  4223.                 <br clear='all' />
    4224. 

  4224.                 <?php
    4225. 

  4225.                     $visit = getEncounterDateByEncounter($encounter);
    4226. 

  4226.                     $visit_date = $visit['date'];
    4227. 

  4227.                 ?>
    4228. 

  4228.             </td>
    4229. 

  4229.                 <td>
    4230. 

  4230.                 <em style="font-weight:bold;font-size:1.4em;"><?php echo text($titleres['fname']) . " " . text($titleres['lname']); ?></em><br />
    4231. 

  4231.                 <span style="font-weight:bold;"><?php echo xlt('DOB'); ?>:</span> <?php echo text($DOB); ?><br />
    4232. 

  4232.                 <span style="font-weight:bold;"><?php echo xlt('Generated on'); ?>:</span> <?php echo text(oeFormatShortDate()); ?><br />
    4233. 

  4233.                 <span style="font-weight:bold;"><?php echo xlt('Visit Date'); ?>:</span> <?php echo oeFormatSDFT(strtotime($visit_date)); ?><br />
    4234. 

  4234.                 <span style="font-weight:bold;"><?php echo xlt('Provider') . ':</span> ' . text(getProviderName(getProviderIdOfEncounter($encounter))) . '<br />'; ?>
    4235. 

  4235. 

  4236.           </td>
    4237. 

  4237.         </tr>
    4238. 

  4238.     </table>
    4239. 

  4239.         <?php
    4240. 

  4240.         $output = ob_get_contents();
    4241. 

  4241.           ob_end_clean();
    4242. 

  4242.           return $output;
    4243. 

  4243. }
    4244. 

  4244. 

  4245. /**
    4246. 

  4246.  *  This function mines the clinical fields for potential diagnostic codes.
    4247. 

  4247.  *  The clinical fields are found in table list_options with list_id = Eye_Coding_Fields_
    4248. 

  4248.  *  The clinical terms to mine for are in table list_options with list_id = Eye_Coding_Terms
    4249. 

  4249.  *  Both can be directly extended by the user the via Administration -> Lists interface.
    4250. 

  4250.  *  The Coding_Eye_Form_Terms list includes the following important fields:
    4251. 

  4251.  *       Title (the term),
    4252. 

  4252.  *       Notes (the form_field to search for the term)
    4253. 

  4253.  *       Code(s) (the optional user-defined code).
    4254. 

  4254.  *  Terms found in a form_field (Notes) with a predefined Code(s), have that code applied.
    4255. 

  4255.  *  Terms found in a form_field (Notes) without a predefined Code(s) are concated with
    4256. 

  4256.  *      the text value for the form_field (Notes) (found in the list Coding_Eye_Form_Fields: Notes)
    4257. 

  4257.  *      and the codebase is searched for a match.
    4258. 

  4258.  *  For example: the term "ptosis" is found in the RUL clinical field, and there is no Code value in the
    4259. 

  4259.  *      Coding_Eye_Form_Terms Code(s) field.  Thus openEMR Eye Form searches the active codebases for a match.
    4260. 

  4260.  *      The codebases are determined in Administration->Lists->Code Types and include those Codesets flagged
    4261. 

  4261.  *      as active and as Diagnostic codes.  The terms "ptosis right upper eyelid" are sent to the
    4262. 

  4262.  *      standard openEMR code search engine.
    4263. 

  4263.  *  @param string $FIELDS - all the clinical fields we are going to scour for clinical terms to code.
    4264. 

  4264.  *  @return outputs directly to screen
    4265. 

  4265.  */
    4266. 

  4266. function start_your_engines($FIELDS)
    4267. 

  4267. {
    4268. 

  4268. //pass an assoc array of fields with terms in it and search them
    4269. 

  4269.     global $pid;
    4270. 

  4270.     global $codes_found;
    4271. 

  4271.     global $PMSFH;
    4272. 

  4272.     if (!$PMFSH) {
    4273. 

  4273.         $PMSFH = build_PMSFH($pid);
    4274. 

  4274.     }
    4275. 

  4275. 

  4276.     $query = "select * from list_options where list_id ='Eye_Coding_Fields' Order by seq";
    4277. 

  4277.     $result = sqlStatement($query);
    4278. 

  4278.     while ($fielding = sqlFetchArray($result)) {//build the list of clinical fields to search through
    4279. 

  4279.         $fields[$fielding['title']] = $fielding['notes'];
    4280. 

  4280.     }
    4281. 

  4281. 

  4282.     //get the clinical terms to search for (title) and what field/where to look for it (notes)
    4283. 

  4283.     $query = "SELECT * FROM list_options WHERE list_id = 'Eye_Coding_Terms' order by seq";
    4284. 

  4284.     $result = sqlStatement($query);
    4285. 

  4285.     while ($term_sheet = sqlFetchArray($result)) {
    4286. 

  4286.         if ($term_sheet['title'] > '') {
    4287. 

  4287.             $newdata =  array (
    4288. 

  4288.               'term'        => $term_sheet['title'], //the term =/- possible option_values eg. CSME:DM|IOL|RVO
    4289. 

  4289.               'location'    => $term_sheet['notes'], //the form field to search for the term
    4290. 

  4290.               'codes'       => $term_sheet['codes']  //the specific code for this term/location, may be blank
    4291. 

  4291.               );
    4292. 

  4292.             $clinical_terms[] = $newdata;
    4293. 

  4293.         }
    4294. 

  4294.     }
    4295. 

  4295. 

  4296.     if (!$clinical_terms) {
    4297. 

  4297.         return;
    4298. 

  4298.     }
    4299. 

  4299. 

  4300.     $positives = array();
    4301. 

  4301.     // Terms are sequenced in the DB (seq) from detailed (more complex descriptions) to a simple (one word) description.
    4302. 

  4302.     // $clinical_terms[] is built in this sequence also.
    4303. 

  4303.     // eg. "cicatricial ectropion","spastic ectropion", "ectropion".
    4304. 

  4304.     // If "cicatricial ectropion" is present in this clinical field (or "spastic ectropion" for that matter),
    4305. 

  4305.     // then there is no need to report the presence of "ectropion" as a clinical finding to the Imp/Plan Builder.
    4306. 

  4306.     // needle/haystack lookup $positives[] = $term;
    4307. 

  4307.     // For terms that overlap other diseases, use term:option|option|option.  These are always last to process.
    4308. 

  4308. 

  4309.     foreach ($clinical_terms as $amihere) {
    4310. 

  4310.         $option_values = "";
    4311. 

  4311.         $term = "";
    4312. 

  4312.         $code_found = array();
    4313. 

  4313.         if (stripos($amihere['term'], ":") !== false) { //options are stored here code:option_values
    4314. 

  4314.             list ($term,$option_values) = explode(":", $amihere['term']);
    4315. 

  4315.         } else {
    4316. 

  4316.             $term = $amihere['term'];
    4317. 

  4317.         }
    4318. 

  4318. 

  4319.         if (stripos($FIELDS[$amihere['location']], $term) !== false) {
    4320. 

  4320.             //the term is in the field
    4321. 

  4321.             $within_array = 'no';
    4322. 

  4322.             if (isset($positives[$amihere['location']]) > '') { //true if anything was already found in this field
    4323. 

  4323.                 //do any of the previous hits found in in this location contain this term already?
    4324. 

  4324.                 //if so stop; if not, continue onward to add to Builder.
    4325. 

  4325.                 foreach ($positives[$amihere['location']] as $k => $v) {
    4326. 

  4326.                     if (preg_match("/$term/", $v)) {
    4327. 

  4327.                         $within_array = 'yes';
    4328. 

  4328.                         break;
    4329. 

  4329.                     }
    4330. 

  4330.                 }
    4331. 

  4331.             }
    4332. 

  4332. 

  4333.             if ($within_array == "yes") {
    4334. 

  4334.                 continue;
    4335. 

  4335.             }
    4336. 

  4336. 

  4337.             $positives[$amihere['location']][] = $term;
    4338. 

  4338.             if (preg_match("/^(OD)/", $amihere['location'])) {
    4339. 

  4339.                 $side = "right eye";
    4340. 

  4340.                 $side1 = "OD";
    4341. 

  4341.                 $side2 = "R";
    4342. 

  4342.             } else {
    4343. 

  4343.                 $side = "left eye";
    4344. 

  4344.                 $side1 = "OS";
    4345. 

  4345.                 $side2 = "L";
    4346. 

  4346.             }
    4347. 

  4347. 

  4348.             if (($amihere['codes'] > '') && ($option_values == "")) { //did the user define a code for this term in list Eye_Coding_Terms?
    4349. 

  4349.                 //If so process - we are primed and don't need the carburetor for the Builder
    4350. 

  4350.                 //eg ICD10:H02.891
    4351. 

  4351.                 if (stripos($amihere['codes'], ":") !== false) {
    4352. 

  4352.                     list($code_type,$code) = explode(":", $amihere['codes']);
    4353. 

  4353.                 } else {
    4354. 

  4354.                     //default to ICD10.  Maybe there is a GLOBALS value for this? Maybe there should be?
    4355. 

  4355.                     $code_type = "ICD10";
    4356. 

  4356.                 }
    4357. 

  4357. 

  4358.                 $code_found['code'] = $code_type . ":" . $code;
    4359. 

  4359.                 $code_found['code_type'] = $code_type;
    4360. 

  4360.                 list($sub_term,$newdata) = coding_engine($term, $code_found, $amihere['location']);
    4361. 

  4361.                 $codes_found[$sub_term][] = $newdata;
    4362. 

  4362.                 $positives[$amihere['location']][] = $term;
    4363. 

  4363.             } else { //no code was defined, further processing needed.
    4364. 

  4364.                 if ($option_values) {
    4365. 

  4365.                     // This clinical finding (term) can be found in more than one disease process ('option_values')
    4366. 

  4366.                     // This special group of terms should be processed last, to identify all
    4367. 

  4367.                     // possible results for the Builder.
    4368. 

  4368.                     // 'option_values' contains pertinent DXs separated by '|', eg. CSME has option values='DM|IOL|RVO'
    4369. 

  4369.                     // Need to see if any of these DX apply and builder Codes_found based on the currently installed list of codes
    4370. 

  4370.                     // Currently for most users this is ICD10 but it is built to allow extension to any code sets in openEMR,
    4371. 

  4371.                     // including foreign laguage code sets.
    4372. 

  4372.                     $options = explode("|", $option_values);
    4373. 

  4373.                     $hit_here = "0";
    4374. 

  4374. 

  4375.                     foreach ($options as $option) {
    4376. 

  4376.                         // if it has mass, try to execute it.
    4377. 

  4377.                         $term_now = "";
    4378. 

  4378.                         if ($option == "DM") {
    4379. 

  4379.                             //This option is run for 3 conditions at present:
    4380. 

  4380.                             //CSME/NVD/NVE per eye.  It is the same every time so only do it once, per eye.
    4381. 

  4381.                             //Did we already code this?  If so move on.
    4382. 

  4382.                             if ($hit_DM[$side1] == '1') {
    4383. 

  4383.                                 continue;
    4384. 

  4384.                             }
    4385. 

  4385. 

  4386.                             //Are ICD10 etc codes used in other languages?  Via Snomed?  Via user?
    4387. 

  4387.                             //Assume there is a standard for xlt/xla purposes...
    4388. 

  4388. 

  4389.                             //is the patient diabetic?
    4390. 

  4390.                             //search medical_problem for DM
    4391. 

  4391.                             $within_array = "";
    4392. 

  4392.                             foreach ($PMSFH[0]['PMH'] as $k => $v) {
    4393. 

  4393.                                 if (stripos($v['codedesc'], "diabetes")) {
    4394. 

  4394.                                     $DM_code = $v['codedesc'];
    4395. 

  4395.                                     $within_array = 'yes';
    4396. 

  4396.                                 }
    4397. 

  4397.                             }
    4398. 

  4398. 

  4399.                             if ($within_array == "yes") {
    4400. 

  4400.                                 if (stripos($DM_code, "1")) {
    4401. 

  4401.                                     $DM_text = "Type 1 diabetes mellitus";
    4402. 

  4402.                                     $label = "DM 1";
    4403. 

  4403.                                 } elseif (stripos($DM_code, "2")) {
    4404. 

  4404.                                     $DM_text = "Type 2 diabetes mellitus";
    4405. 

  4405.                                     $label = "DM 2";
    4406. 

  4406.                                 } else {
    4407. 

  4407.                                     $DM_text = "Other specified diabetes";
    4408. 

  4408.                                     $label = "DM";
    4409. 

  4409.                                 }
    4410. 

  4410.                             } else { //there is no code that lists diabetes in the PMH
    4411. 

  4411.                                 continue;
    4412. 

  4412.                             }
    4413. 

  4413. 

  4414.                             //is there CSME
    4415. 

  4415.                             if ($side == "right eye") {
    4416. 

  4416.                                 $location  = "ODMACULA";
    4417. 

  4417.                                 $location1 = "ODDISC";
    4418. 

  4418.                                 $location2 = "ODVESSELS";
    4419. 

  4419.                                 $location3 = "ODPERIPH";
    4420. 

  4420.                             } elseif ($side == "left eye") {
    4421. 

  4421.                                 $location  = "OSMACULA";
    4422. 

  4422.                                 $location1 = "OSDISC";
    4423. 

  4423.                                 $location2 = "OSVESSELS";
    4424. 

  4424.                                 $location3 = "OSPERIPH";
    4425. 

  4425.                             }
    4426. 

  4426. 

  4427.                             if ((stripos($FIELDS[$location], "flat") === false) && (stripos($FIELDS[$location], "CSME") !== false)) {
    4428. 

  4428.                                 //what if they type "no CSME" or "not flat"?
    4429. 

  4429.                                 $MAC_text = "with macular edema";
    4430. 

  4430.                                 $hit_CSME = "w/ CSME";
    4431. 

  4431.                             } else {
    4432. 

  4432.                                 $MAC_text = "without macular edema";
    4433. 

  4433.                                 $hit_CSME = "w/o CSME";
    4434. 

  4434.                             }
    4435. 

  4435. 

  4436.                             //is there (NVD or NVE) or BDR?
    4437. 

  4437.                             //we often document this though as "no NVD/NVE/PDR" which in the current state would mean these would match as hits...
    4438. 

  4438.                             $NVD    = "NVD";
    4439. 

  4439.                             $NVE    = "NVE";
    4440. 

  4440.                             $PPDR   = "PPDR";
    4441. 

  4441.                             $PDR    = "PDR";
    4442. 

  4442.                             $BDR    = "BDR";
    4443. 

  4443.                             $IRMA   = "IrMA";
    4444. 

  4444.                             //note stripos() is case-insensitive
    4445. 

  4445.                             if (
    4446. 

  4446.                                 ( (stripos($FIELDS[$location1], $NVD) !== false) ||
    4447. 

  4447.                                 (stripos($FIELDS[$location2], $NVE) !== false) ||
    4448. 

  4448.                                 (stripos($FIELDS[$location3], $NVE) !== false) ) &&
    4449. 

  4449.                                 ( (stripos($FIELDS[$location1], "no " . $NVD) !== true) ||
    4450. 

  4450.                                 (stripos($FIELDS[$location2], "no " . $NVE) !== true) ||
    4451. 

  4451.                                 (stripos($FIELDS[$location3], "no " . $NVE) !== true) )
    4452. 

  4452.                             ) {
    4453. 

  4453.                                 $DX = "with proliferative";
    4454. 

  4454.                                 $label = $label . "w/ PDR " . $hit_CSME;
    4455. 

  4455.                                 $hit_PDR[$side] = '1';
    4456. 

  4456.                             } elseif (
    4457. 

  4457.                                 (stripos($FIELDS[$location2], $PPDR) !== false) ||
    4458. 

  4458.                                 (stripos($FIELDS[$location2], $PPDR) !== false) ||
    4459. 

  4459.                                 (stripos($FIELDS[$location], $IRMA)  !== false) ||
    4460. 

  4460.                                 (stripos($FIELDS[$location2], $IRMA) !== false) ||
    4461. 

  4461.                                 (stripos($FIELDS[$location3], $IRMA) !== false)
    4462. 

  4462.                             ) {
    4463. 

  4463.                                 $DX = "with severe nonproliferative";
    4464. 

  4464.                                 $label = $label . " w/ PPDR " . $hit_CSME;
    4465. 

  4465.                                 $hit_PPDR[$side] = '1';
    4466. 

  4466.                             } elseif (
    4467. 

  4467.                                 (stripos($FIELDS[$location], $BDR) !== false) ||
    4468. 

  4468.                                 (stripos($FIELDS[$location2], $BDR) !== false)
    4469. 

  4469.                             ) {
    4470. 

  4470.                                     $trace = "tr";
    4471. 

  4471.                                 if (
    4472. 

  4472.                                     (stripos($FIELDS[$location], $trace . " " . $BDR) !== false) ||
    4473. 

  4473.                                     (stripos($FIELDS[$location2], "+1 " . $BDR) !== false) ||
    4474. 

  4474.                                     (stripos($FIELDS[$location], $trace . " " . $BDR) !== false) ||
    4475. 

  4475.                                     (stripos($FIELDS[$location2], "+1 " . $BDR) !== false)
    4476. 

  4476.                                 ) {
    4477. 

  4477.                                     $DX = "with mild nonproliferative";
    4478. 

  4478.                                     $label = $label . " w/ mild BDR " . $hit_CSME;
    4479. 

  4479.                                     $hit_BDR[$side] = '1';
    4480. 

  4480.                                 } else {
    4481. 

  4481.                                     $DX = "with moderate nonproliferative";
    4482. 

  4482.                                     $label = $label . " w/ mod BDR " . $hit_CSME;
    4483. 

  4483.                                     $hit_BDR[$side] = '1';
    4484. 

  4484.                                 }
    4485. 

  4485.                             }
    4486. 

  4486. 

  4487.                             $code_found = coding_carburetor($DM_text, $MAC_text);
    4488. 

  4488.                             if (isset($code_found)) { //there are matches, present them to the engine
    4489. 

  4489.                                 foreach ($code_found as $found) {
    4490. 

  4490.                                     list($sub_term,$newdata) = coding_engine($label, $found, $amihere['location'], $side1);
    4491. 

  4491.                                     // The carburetor is a simple machine - it has no boolean options -
    4492. 

  4492.                                     // so "with" and "without" match a search for "with"...
    4493. 

  4493.                                     // We need to be specific to whittle down the options.
    4494. 

  4494.                                     if ((stripos($newdata['codedesc'], $MAC_text)) && (stripos($newdata['codedesc'], $DX))) {
    4495. 

  4495.                                         //does this code already exist for the other eye (right eye is always first)?
    4496. 

  4496.                                         //if so, change OD to OU and skip adding this code.
    4497. 

  4497.                                         //or is there a code for both eyes?
    4498. 

  4498.                                         if ($side1 == "OS") {
    4499. 

  4499.                                             $count = '0';
    4500. 

  4500.                                             for ($i = 0; $i < count($codes_found[$sub_term]); $i++) {
    4501. 

  4501.                                                 $swap = "OD";
    4502. 

  4502.                                                 $codes_found[$sub_term][$i]['title'] = str_replace($swap, "OU", $codes_found[$sub_term][$i]['title']);
    4503. 

  4503.                                                 break 2;
    4504. 

  4504.                                                 $count++;
    4505. 

  4505.                                             }
    4506. 

  4506.                                         }
    4507. 

  4507. 

  4508.                                         $codes_found[$sub_term][] = $newdata;
    4509. 

  4509.                                         $positives["DM" . $side1][] = $newdata['code'];
    4510. 

  4510.                                         $hit_DM[$side1] = '1';
    4511. 

  4511.                                     }
    4512. 

  4512.                                 }
    4513. 

  4513.                             }
    4514. 

  4514.                         } elseif ($option == "RVO") {
    4515. 

  4515.                             //is there a CRVO or BRVO associated?
    4516. 

  4516.                             //check Clinical fields for these terms
    4517. 

  4517.                             if ($side == "right eye") {
    4518. 

  4518.                                 $location = "ODVESSELS";
    4519. 

  4519.                             } else {
    4520. 

  4520.                                 $location = "OSVESSELS";
    4521. 

  4521.                             }
    4522. 

  4522. 

  4523.                             if ($hit_RVO[$location] == '1') {
    4524. 

  4524.                                 continue;
    4525. 

  4525.                             }
    4526. 

  4526. 

  4527.                             if (stripos($FIELDS[$location], "CRVO") !== false) {
    4528. 

  4528.                                // this is a CRVO, look up code for location
    4529. 

  4529.                                 $terms = "CRVO";
    4530. 

  4530.                                 $code_found = coding_carburetor("central retinal vein", $side);
    4531. 

  4531.                                 if (isset($code_found)) { //there are matches, present them to the Builder
    4532. 

  4532.                                     foreach ($code_found as $found) {
    4533. 

  4533.                                         list($sub_term,$newdata) = coding_engine($terms, $found, $location, $side1);
    4534. 

  4534.                                         $codes_found[$sub_term][] = $newdata;
    4535. 

  4535.                                         $positives[$location][] = "CRVO";
    4536. 

  4536.                                         $hit_RVO[$location] = "1";
    4537. 

  4537.                                     }
    4538. 

  4538.                                 }
    4539. 

  4539.                             } elseif (stripos($FIELDS[$location], "BRVO") !== false) {
    4540. 

  4540.                                // this is a BRVO, look up code for location
    4541. 

  4541.                                 $code_found = coding_carburetor("branch retinal vein", $side);
    4542. 

  4542.                                 $terms = "BRVO " . $term;
    4543. 

  4543.                                 if (isset($code_found)) { //there are matches, present them to the Builder
    4544. 

  4544.                                     foreach ($code_found as $found) {
    4545. 

  4545.                                         list($sub_term,$newdata) = coding_engine($terms, $found, $location, $side1);
    4546. 

  4546.                                         $codes_found[$sub_term][] = $newdata;
    4547. 

  4547.                                         $positives[$location][] = "BRVO";
    4548. 

  4548.                                         $hit_RVO[$location] = '1';
    4549. 

  4549.                                     }
    4550. 

  4550.                                 }
    4551. 

  4551.                             }
    4552. 

  4552. 

  4553.                             if (($term == "CSME") && ($hit_RVO[$location] == '1')) {
    4554. 

  4554.                                 //$code = "H35.81";
    4555. 

  4555.                                 $code_found = coding_carburetor("retinal", "edema");
    4556. 

  4556.                                 $terms = "Vein occlusion and macular edema";
    4557. 

  4557.                                 if (isset($code_found)) { //there are matches, present them to the Builder
    4558. 

  4558.                                     foreach ($code_found as $found) {
    4559. 

  4559.                                         if ($found['code'] == "ICD10:H35.81") {
    4560. 

  4560.                                             list($sub_term,$newdata) = coding_engine($terms, $found, $location, $side1);
    4561. 

  4561.                                             $codes_found[$sub_term][] = $newdata;
    4562. 

  4562.                                             $positives[$location][] = "CSME";
    4563. 

  4563.                                             $hit_RVO_CSME = '1';
    4564. 

  4564.                                         }
    4565. 

  4565.                                     }
    4566. 

  4566.                                 }
    4567. 

  4567.                             }
    4568. 

  4568.                         } elseif ($option == "IOL") {
    4569. 

  4569.                             //are they within 3 months of cataract surgery on this eye?  Yag?
    4570. 

  4570.                             //search the same side Lens field for term IOL, ? procedure this eye in last 3 months?
    4571. 

  4571.                             //search surgery_issue_list or even search the billng engine
    4572. 

  4572.                             $query = "select begdate as surg_date from lists where pid=? and type='surgery' and title like '%IOL%' and (title like '%" . xlt($side1) . "%')";
    4573. 

  4573.                             $surg = sqlQuery($query, array($pid));
    4574. 

  4574.                             if ($surg['surg_date'] > '') {
    4575. 

  4575.                                 $date1 = date('Y-m-d');
    4576. 

  4576.                                 //$date2 = (DateTime($surg['surg_date']));
    4577. 

  4577.                                 //echo $term."\n".$date."\n";continue;
    4578. 

  4578.                                 $date_diff = strtotime($date1) - strtotime($surg['surg_date']);
    4579. 

  4579.                                 $interval = $date_diff / (60 * 60 * 24);
    4580. 

  4580.                                 //$interval was 180, now = 90;
    4581. 

  4581.                                 if (($interval < '90') && ($term == "CSME")) {
    4582. 

  4582.                                     //then this could be post procedure CSME cystoid macular edema  H59.031,2 OD OS
    4583. 

  4583.                                     $code_found = coding_carburetor("cystoid macular edema", $side);
    4584. 

  4584.                                     if (isset($code_found)) { //there are matches, present them to the Builder
    4585. 

  4585.                                         foreach ($code_found as $found) {
    4586. 

  4586.                                             $term = "Post-cataract CME";
    4587. 

  4587.                                             list($sub_term,$newdata) = coding_engine($term, $found, $amihere['location'], $side1);
    4588. 

  4588.                                             $codes_found[$sub_term][] = $newdata;
    4589. 

  4589.                                             $positives[$amihere['location']][] = $term;
    4590. 

  4590.                                             $hit_IOL = '1';
    4591. 

  4591.                                         }
    4592. 

  4592. 

  4593.                                         if ($side1 == "OS") {
    4594. 

  4594.                                             $count = '0';
    4595. 

  4595.                                             for ($i = 0; $i < count($codes_found[$sub_term]); $i++) {
    4596. 

  4596.                                                 $swap = "OD";
    4597. 

  4597.                                                 $codes_found[$sub_term][$i]['title'] = str_replace($swap, "OU", $codes_found[$sub_term][$i]['title']);
    4598. 

  4598.                                                 break 2;
    4599. 

  4599.                                                 $count++;
    4600. 

  4600.                                             }
    4601. 

  4601.                                         }
    4602. 

  4602.                                     } else {
    4603. 

  4603.                                         //echo "Not here. $term.  $interval \n";
    4604. 

  4604.                                     }
    4605. 

  4605.                                 }
    4606. 

  4606.                             }
    4607. 

  4607.                         } else {
    4608. 

  4608.                             //should we have another big Dx often altering what a finding means to a coder; this is a placeholder.
    4609. 

  4609.                             //include $option in our code search for this term
    4610. 

  4610.                             $term_now = $term . " " . $option;
    4611. 

  4611.                             $code_found = coding_carburetor($term_now, $FIELDS[$amihere['location']]);
    4612. 

  4612.                             if (isset($code_found)) { //there are matches, present them to the Builder
    4613. 

  4613.                                 foreach ($code_found as $found) {
    4614. 

  4614.                                     list($sub_term,$newdata) = coding_engine($term, $found, $amihere['location'], $side1);
    4615. 

  4615.                                     $codes_found[$sub_term][] = $newdata;
    4616. 

  4616.                                     $positives[$amihere['location']][] = $term_now;
    4617. 

  4617.                                 }
    4618. 

  4618.                             }
    4619. 

  4619.                         }
    4620. 

  4620.                     }
    4621. 

  4621.                 } else {
    4622. 

  4622.                     //there are no options and no code identified,
    4623. 

  4623.                     //search via carburetor for possible matches to term and description of the form field
    4624. 

  4624.                     $code_found = coding_carburetor($term, $FIELDS[$amihere['location']]);
    4625. 

  4625.                     if ($code_found !== null) { //there are matches, present them to the Builder
    4626. 

  4626.                         foreach ($code_found as $found) {
    4627. 

  4627.                             list($sub_term,$newdata) = coding_engine($term, $found, $amihere['location']);
    4628. 

  4628.                             $codes_found[$sub_term][] = $newdata;
    4629. 

  4629.                             $positives[$amihere['location']][] = $term;
    4630. 

  4630.                         }
    4631. 

  4631.                     }
    4632. 

  4632.                 }
    4633. 

  4633.             }
    4634. 

  4634.         }
    4635. 

  4635.     }
    4636. 

  4636. 

  4637.     // $codes_found contains the PE/Clinical findings for the Imp/Plan Builder engine.
    4638. 

  4638.     // It also gets "horsepower" from the POH/POS and PMH findings.
    4639. 

  4639.     // Together these three form the Imp/Plan Builder's suggestions available to the end user to build the Imp/Plan,
    4640. 

  4640.     // and by extension one of the data sources for the Coding Engine to populate the fee sheet.
    4641. 

  4641.     // When entering a Dx in the PMSFH, it pays to assign these codes up front...
    4642. 

  4642.     // The rest is exhaust fumes for the muffler.
    4643. 

  4643.     return $codes_found;
    4644. 

  4644. }
    4645. 

  4645. /**
    4646. 

  4646.  *  This function checks a single field for a term and, if found, codes it.
    4647. 

  4647.  *  It is not called directly but via the wrapper function start_your_engines().
    4648. 

  4648.  *
    4649. 

  4649.  *  @param string $term, text to search for in the coding tables.
    4650. 

  4650.  *  @param string $field, location where to search. In fact any text that refines the search can be contained here.
    4651. 

  4651.  *  @return outputs array of $codes matching the $term & $field
    4652. 

  4652.  */
    4653. 

  4653. function coding_carburetor($term, $field)
    4654. 

  4654. {
    4655. 

  4655.     if (!$term || !$field) {
    4656. 

  4656.         return;
    4657. 

  4657.     }
    4658. 

  4658. 

  4659.     $codes = array();
    4660. 

  4660.     $code_type = "ICD10";  //only option is PROD (product or drug search) or NOT PROD...
    4661. 

  4661.     $search_term = $term . " " . $field;
    4662. 

  4662.     $res = main_code_set_search($code_type, $search_term);
    4663. 

  4663.     while ($row = sqlFetchArray($res)) {
    4664. 

  4664.         $newdata =  array (
    4665. 

  4665.                         'code'  =>  $row['code'],
    4666. 

  4666.                         'code_text' => $row['code_text'],
    4667. 

  4667.                         'code_type' => $row['code_type_name'],
    4668. 

  4668.                         'code_desc' => $row['code_desc']
    4669. 

  4669.                     );
    4670. 

  4670.         $codes[] = $newdata;
    4671. 

  4671.     }
    4672. 

  4672. 

  4673.     return $codes;
    4674. 

  4674. }
    4675. 

  4675. /**
    4676. 

  4676.  *  This function prepares a code found in a clinical field and returns it in $codes_found format.
    4677. 

  4677.  *  @param $code is in the format code_type:code eg. ICD10:H34.811
    4678. 

  4678.  *  @param $location is the descriptive name of the clinical field in question
    4679. 

  4679.  *  @param $side is optional.  Used as the descriptive text for finding in the Builder
    4680. 

  4680.  *      and IMP/Plan if selected from the Builder
    4681. 

  4681.  *  @return $subterm,$newdata.  $subterm is used to link items in IMP/PLAN back to its orgin.
    4682. 

  4682.  *          $newdata is the array of newly found items to include in the Builder.
    4683. 

  4683.  *
    4684. 

  4684.  *  This function is not called directly but via the wrapper function start_your_engines().
    4685. 

  4685.  */
    4686. 

  4686. function coding_engine($term, $code_found, $location, $side = '')
    4687. 

  4687. {
    4688. 

  4688.     if (strpos($code_found['code'], ":")) {
    4689. 

  4689.         list($code_type, $code) = explode(':', $code_found['code']);
    4690. 

  4690.     } else {
    4691. 

  4691.         $code = $code_found['code'];
    4692. 

  4692.         $code_type = "ICD10";//default to ICD10
    4693. 

  4693.         $code_found['code'] = $code_type . ":" . $code_found['code'];
    4694. 

  4694.     }
    4695. 

  4695. 

  4696.     $code_desc = lookup_code_descriptions($code_found['code']);
    4697. 

  4697.     $order   = array("\r\n", "\n","\r");
    4698. 

  4698.     $code_desc = str_replace($order, '', $code_desc);
    4699. 

  4699. 

  4700.     $code_text = text($code_found['code']) . " (" . text($code_desc) . ")";
    4701. 

  4701.     $replace = " ";
    4702. 

  4702.     $sub_term =  str_replace($replace, "", $term);
    4703. 

  4703.     //some codes are bilateral, some not, some are per eyelid.  Comment this out for now:
    4704. 

  4704.     //(preg_match("/right/",$code_desc))? $side = xlt('OD{{right eye}}') : $side = xlt('OS{{left eye}}');
    4705. 

  4705. 

  4706.     $newdata =  array (
    4707. 

  4707.         'title'         => ucfirst($term) . " " . $side,
    4708. 

  4708.         'location'      => $location,
    4709. 

  4709.         'diagnosis'     => $code,
    4710. 

  4710.         'code'          => $code,
    4711. 

  4711.         'codetype'      => $code_found['code_type'],
    4712. 

  4712.         'codedesc'      => $code_desc,
    4713. 

  4713.         'codetext'      => $code_text,
    4714. 

  4714.         'PMSFH_link'    => "Clinical_" . $sub_term
    4715. 

  4715.     );
    4716. 

  4716.     return array($sub_term,$newdata);
    4717. 

  4717. }
    4718. 

  4718. /**
    4719. 

  4719.  *  This is a function to sort an array of dates/times etc
    4720. 

  4720.  *  Anything strtotime() can recognize at least.
    4721. 

  4721.  */
    4722. 

  4722. function cmp($a, $b)
    4723. 

  4723. {
    4724. 

  4724.     if ($a == $b) {
    4725. 

  4725.         return 0;
    4726. 

  4726.     }
    4727. 

  4727. 

  4728.     return (strtotime($a) < strtotime($b)) ? -1 : 1;
    4729. 

  4729. }
    4730. 

  4730. 

  4731. /**
    4732. 

  4732.  *  This function returns the TARGET IOP values for a given ($pid) if ever set, otherwise returns the DEFAULT IOP.
    4733. 

  4733.  *  when a value is found for a given field in the Eye Form for a given patient ($pid)
    4734. 

  4734.  *  @param $name is in the name of the field
    4735. 

  4735.  *
    4736. 

  4736.  *  @return $ranges.  A mysqlArray(max_FIELD,max_date,min_date)
    4737. 

  4737.  */
    4738. 

  4738. function display_GlaucomaFlowSheet($pid, $bywhat = 'byday')
    4739. 

  4739. {
    4740. 

  4740.     global $PMSFH;
    4741. 

  4741.     global $form_folder;
    4742. 

  4742.     global $priors;
    4743. 

  4743.     global $provider_id;
    4744. 

  4744.     global $documents;
    4745. 

  4745.     global $encounter_data;
    4746. 

  4746.     global $ODIOPTARGET;
    4747. 

  4747.     global $OSIOPTARGET;
    4748. 

  4748.     global $dated;
    4749. 

  4749.     global $visit_date;
    4750. 

  4750. 

  4751.     if (!$documents) {
    4752. 

  4752.         list($documents) = document_engine($pid);
    4753. 

  4753.     }
    4754. 

  4754. 

  4755.     $count_OCT = empty($documents['docs_in_name']['OCT']) ? 0 : count($documents['docs_in_name']['OCT']);
    4756. 

  4756.     if ($count_OCT > 0) {
    4757. 

  4757.         foreach ($documents['docs_in_name']['OCT'] as $OCT) {
    4758. 

  4758.             $OCT_date[] = $OCT['docdate'];
    4759. 

  4759.         }
    4760. 

  4760.     }
    4761. 

  4761. 

  4762.     $count_VF = empty($documents['docs_in_name']['VF']) ? 0 : count($documents['docs_in_name']['VF']);
    4763. 

  4763.     if ($count_VF > 0) {
    4764. 

  4764.         foreach ($documents['docs_in_name']['VF'] as $VF) {
    4765. 

  4765.             $VF_date[] = $VF['docdate'];
    4766. 

  4766.         }
    4767. 

  4767.     }
    4768. 

  4768. 

  4769.     $i = 0;
    4770. 

  4770.         //if there are no priors, this is the first visit, display a generic splash screen.
    4771. 

  4771.     if ((array)$priors) {
    4772. 

  4772.         foreach ($priors as $visit) {
    4773. 

  4773.             //we need to build the lists - dates_OU,times_OU,gonio_OU,OCT_OU,VF_OU,ODIOP,OSIOP,IOPTARGETS
    4774. 

  4774.             if ($visit['date'] == '') {
    4775. 

  4775.                 continue;
    4776. 

  4776.             }
    4777. 

  4777. 

  4778.             $old_date_timestamp = strtotime($visit['visit_date']);
    4779. 

  4779.             $visit['exam_date'] = date('Y-m-d', $old_date_timestamp);
    4780. 

  4780.             $VISITS_date[$i] = $visit['exam_date'];
    4781. 

  4781. 

  4782.             //$date_OU[$i] = $visit['exam_date'];
    4783. 

  4783. 

  4784.             $time_here = explode(":", $visit['IOPTIME']);
    4785. 

  4785.             $time = $time_here[0] . ":" . $time_here[1];
    4786. 

  4786.             $time_OU[$i] = $time;
    4787. 

  4787. 

  4788.             if (($visit['ODGONIO'] > '') || ($visit['OSGONIO'] > '')) {
    4789. 

  4789.                 $GONIO_date[$i] = $visit["exam_date"];
    4790. 

  4790.                 $GONIO[$i]["list"] = '1';
    4791. 

  4791.             } else {
    4792. 

  4792.                 $GONIO[$i]["list"] = '';
    4793. 

  4793.             }
    4794. 

  4794. 

  4795.             if ($visit['ODIOPAP'] > '') {
    4796. 

  4796.                 $ODIOP[$i]['IOP'] = $visit['ODIOPAP'];
    4797. 

  4797.                 $ODIOP[$i]['method'] = "AP";
    4798. 

  4798.             } elseif ($visit['ODIOPTPN'] > '') {
    4799. 

  4799.                 $ODIOP[$i]['IOP'] = $visit['ODIOPTPN'];
    4800. 

  4800.                 $ODIOP[$i]['method'] = "TPN";
    4801. 

  4801.             } else {
    4802. 

  4802.                 $ODIOP[$i]['IOP'] = "";
    4803. 

  4803.             }
    4804. 

  4804. 

  4805.             if ($visit['OSIOPAP'] > '') {
    4806. 

  4806.                 $OSIOP[$i]['IOP'] = $visit['OSIOPAP'];
    4807. 

  4807.                 $OSIOPMETHOD[$i]['method'] = "AP";
    4808. 

  4808.             } elseif ($visit['OSIOPTPN'] > '') {
    4809. 

  4809.                 $OSIOP[$i]['IOP'] = $visit['OSIOPTPN'];
    4810. 

  4810.                 $OSIOPMETHOD[$i]['method'] = "TPN";
    4811. 

  4811.             } else {
    4812. 

  4812.                 $OSIOP[$i]['IOP'] = "null";
    4813. 

  4813.                 //we are ignoring finger tension for graphing purposes but include this should another form of IOP measurement arrive...
    4814. 

  4814.                 //What about the Triggerfish contact lens continuous IOP device for example...
    4815. 

  4815.             }
    4816. 

  4816. 

  4817.             //build the Target line values for each date.
    4818. 

  4818.             $j =  $i - 1;
    4819. 

  4819. 

  4820.             if ($visit['ODIOPTARGET'] > '') {
    4821. 

  4821.                 $ODIOPTARGETS[$i] = $visit['ODIOPTARGET'];
    4822. 

  4822.             } elseif ($i == 0) { //this should be set on in view/page load.  Keep for reports though...
    4823. 

  4823.                 list($ODIOPTARGETS[$i], ) = getIOPTARGETS($pid, $id, $provider_id);
    4824. 

  4824.             } elseif (!$ODIOPTARGETS[$j]) {
    4825. 

  4825.                 list($ODIOPTARGETS[$i], ) = getIOPTARGETS($pid, $id, $provider_id);
    4826. 

  4826.             } else {
    4827. 

  4827.                 $ODIOPTARGETS[$i] = $ODIOPTARGETS[$j];
    4828. 

  4828.             }
    4829. 

  4829. 

  4830.             if ($visit['OSIOPTARGET'] > '') {
    4831. 

  4831.                  $OSIOPTARGETS[$i] = $visit['OSIOPTARGET'];
    4832. 

  4832.             } elseif ($i == 0) {
    4833. 

  4833.                 list( ,$OSIOPTARGETS[$i]) = getIOPTARGETS($pid, $id, $provider_id);
    4834. 

  4834.             } elseif (!$OSIOPTARGETS[$j]) {
    4835. 

  4835.                 list( ,$OSIOPTARGETS[$i]) = getIOPTARGETS($pid, $id, $provider_id);
    4836. 

  4836.             } else {
    4837. 

  4837.                 $ODIOPTARGETS[$i] = $ODIOPTARGETS[$j];
    4838. 

  4838.             }
    4839. 

  4839.             $i++;
    4840. 

  4840.         }
    4841. 

  4841.     } else { //there are no priors, get info for this visit
    4842. 

  4842.         $VISITS_date[0] = $dated;
    4843. 

  4843.         if ($encounter_data['IOPTIME']) {
    4844. 

  4844.             $time_here = explode(":", $encounter_data['IOPTIME']);
    4845. 

  4845.             $time = $time_here[0] . ":" . $time_here[1];
    4846. 

  4846.             $time_OU[] = $time;
    4847. 

  4847.         }
    4848. 

  4848. 

  4849.         if ($encounter_data['ODGONIO'] || $encounter_data['OSGONIO']) {
    4850. 

  4850.             $GONIO_date[$i] = $dated;
    4851. 

  4851.         }
    4852. 

  4852. 

  4853.         $ODIOP[$i]['time'] = $time;
    4854. 

  4854.         $OSIOP[$i]['time'] = $time;
    4855. 

  4855.         //$IOPTARGET['visit_date'] = $encounter_data['exam_date'];
    4856. 

  4856.         if ($encounter_data['ODIOPAP'] > '') {
    4857. 

  4857.             if (!is_int($encounter_data['ODIOPAP'])) {
    4858. 

  4858.                 $ODIOP[$k]['IOP'] = '';
    4859. 

  4859.             } else {
    4860. 

  4860.                 $ODIOP[$i]['IOP'] = $encounter_data['ODIOPAP']; }
    4861. 

  4861.             $ODIOP[$i]['method'] = "AP";
    4862. 

  4862.         } elseif ($encounter_data['ODIOPTPN'] > '') {
    4863. 

  4863.             $ODIOP[$i]['IOP'] = $encounter_data['ODIOPTPN'];
    4864. 

  4864.             $ODIOP[$i]['method'] = "TPN";
    4865. 

  4865.         }
    4866. 

  4866. 

  4867.         if ($encounter_data['OSIOPAP'] > '') {
    4868. 

  4868.             if (!is_int($encounter_data['OSIOPAP'])) {
    4869. 

  4869.                 $OSIOP[$k]['IOP'] = '';
    4870. 

  4870.             } else {
    4871. 

  4871.                 $OSIOP[$i]['IOP'] = $encounter_data['OSIOPAP']; }
    4872. 

  4872.             $OSIOP[$i]['method'] = "AP";
    4873. 

  4873.         } elseif ($encounter_data['OSIOPTPN'] > '') {
    4874. 

  4874.             $OSIOP[$i]['IOP'] = $encounter_data['OSIOPTPN'];
    4875. 

  4875.             $OSIOP[$i]['method'] = "TPN";
    4876. 

  4876.         } else {
    4877. 

  4877.             //we are ignoring finger tension for graphing purposes but include this should another form of IOP measurement arrive...
    4878. 

  4878.             //What about the Triggerfish contact lens continuous IOP device for example...  iCare device, etc
    4879. 

  4879.         }
    4880. 

  4880. 

  4881.         if ($encounter_data['ODIOPTARGET'] > '0') {
    4882. 

  4882.             $ODIOPTARGETS[$i] = $encounter_data['ODIOPTARGET'];
    4883. 

  4883.         } else {
    4884. 

  4884.             list($ODIOPTARGET, ) = getIOPTARGETS($pid, $id, $provider_id);
    4885. 

  4885.             $ODIOPTARGETS[$i] = $ODIOPTARGET;
    4886. 

  4886.             $encounter_data['ODIOPTARGET'] = $ODIOPTARGET;
    4887. 

  4887.         }
    4888. 

  4888. 

  4889.         if ($encounter_data['OSIOPTARGET']) {
    4890. 

  4890.             $OSIOPTARGETS[$i] = $encounter_data['ODIOPTARGET'];
    4891. 

  4891.         } else {
    4892. 

  4892.             list( ,$OSIOPTARGET ) = getIOPTARGETS($pid, $id, $provider_id);
    4893. 

  4893.             $OSIOPTARGETS[$i] = $OSIOPTARGET;
    4894. 

  4894.             $encounter_data['OSIOPTARGET'] = $OSIOPTARGET;
    4895. 

  4895.         }
    4896. 

  4896.     }
    4897. 

  4897. 

  4898.     //There are visits for testing only, no IOP.
    4899. 

  4899.     //We need to insert these dates into the arrays created above.
    4900. 

  4900.     //recreate them to include the testing only dates, placing null values for those dates if not done.
    4901. 

  4901. 

  4902.     //can't merge empty arrays
    4903. 

  4903.     $list = array();
    4904. 

  4904.     $arrs[] = $OCT_date;
    4905. 

  4905.     $arrs[] = $VF_date;
    4906. 

  4906.     $arrs[] = $GONIO_date;
    4907. 

  4907.     $arrs[] = $VISITS_date;
    4908. 

  4908. 

  4909.     foreach ($arrs as $arr) {
    4910. 

  4910.         if (is_array($arr)) {
    4911. 

  4911.             $list = array_merge($list, $arr);
    4912. 

  4912.         }
    4913. 

  4913.     }
    4914. 

  4914. 

  4915.     $date_OU = array_unique($list);
    4916. 

  4916.     usort($date_OU, "cmp");
    4917. 

  4917.     $times_OU = $time_OU;
    4918. 

  4918.     usort($times_OU, "cmp");
    4919. 

  4919. 

  4920.     for ($a = 0; $a < count($date_OU); $a++) {
    4921. 

  4921.         if (!empty($GONIO_date)) {
    4922. 

  4922.             foreach ($GONIO_date as $GONIO) {
    4923. 

  4923.                 if ($date_OU[$a] == $GONIO) {
    4924. 

  4924.                     $GONIO_values[$a] = "1";
    4925. 

  4925.                     break;
    4926. 

  4926.                 }
    4927. 

  4927.             }
    4928. 

  4928.         }
    4929. 

  4929. 

  4930.         if (!$GONIO_values[$a]) {
    4931. 

  4931.             $GONIO_values[$a] = "";
    4932. 

  4932.         }
    4933. 

  4933. 

  4934.         if ($count_OCT > 0) {
    4935. 

  4935.             foreach ($OCT_date as $OCT) {
    4936. 

  4936.                 if ($date_OU[$a] == $OCT) {
    4937. 

  4937.                     $OCT_values[$a] = "1";
    4938. 

  4938.                     break;
    4939. 

  4939.                 }
    4940. 

  4940.             }
    4941. 

  4941.         }
    4942. 

  4942. 

  4943.         if (!$OCT_values[$a]) {
    4944. 

  4944.             $OCT_values[$a] = "";
    4945. 

  4945.         }
    4946. 

  4946. 

  4947.         if ($count_VF > 0) {
    4948. 

  4948.             foreach ($VF_date as $VF) {
    4949. 

  4949.                 if ($date_OU[$a] == $VF) {
    4950. 

  4950.                     $VF_values[$a] = "1";
    4951. 

  4951.                     break;
    4952. 

  4952.                 }
    4953. 

  4953.             }
    4954. 

  4954.         }
    4955. 

  4955. 

  4956.         if (!$VF_values[$a]) {
    4957. 

  4957.             $VF_values[] = "";
    4958. 

  4958.         }
    4959. 

  4959. 

  4960.         for ($k = 0; $k < count($VISITS_date); $k++) {
    4961. 

  4961.             if ($date_OU[$a] == $VISITS_date[$k]) {
    4962. 

  4962.                 if (preg_match('/[a-z]/i', $ODIOP[$k]['IOP'])) {
    4963. 

  4963.                     $ODIOP[$k]['IOP'] = '';}
    4964. 

  4964.                 if (preg_match('/[a-z]/i', $OSIOP[$k]['IOP'])) {
    4965. 

  4965.                     $OSIOP[$k]['IOP'] = '';}
    4966. 

  4966.                 $OD_values[$a] = "'" . $ODIOP[$k]['IOP'] . "'";
    4967. 

  4967.                 $OD_methods[$a] = $ODIOP[$k]['method'];
    4968. 

  4968.                 $OS_values[$a] = $OSIOP[$k]['IOP'];
    4969. 

  4969.                 $OS_methods[$a] = $OSIOP[$k]['method'];
    4970. 

  4970.                 $ODIOPTARGET_values[$a] = $ODIOPTARGETS[$k];
    4971. 

  4971.                 $OSIOPTARGET_values[$a] = $OSIOPTARGETS[$k];
    4972. 

  4972.                 break;
    4973. 

  4973.             }
    4974. 

  4974.         }
    4975. 

  4975. 

  4976.         if (!$OD_values[$a]) {
    4977. 

  4977.             $OD_values[$a] = '';
    4978. 

  4978.         }
    4979. 

  4979. 

  4980.         if (!$OS_values[$a]) {
    4981. 

  4981.             $OS_values[$a] = '';
    4982. 

  4982.         }
    4983. 

  4983. 

  4984.         if (!$OD_methods[$a]) {
    4985. 

  4985.             $OD_methods[$a] = "";
    4986. 

  4986.         }
    4987. 

  4987. 

  4988.         if (!$OS_methods[$a]) {
    4989. 

  4989.             $OS_methods[$a] = "";
    4990. 

  4990.         }
    4991. 

  4991. 

  4992.         if (!$ODIOPTARGET_values[$a]) {
    4993. 

  4993.             $ODIOPTARGET_values[$a] = "";
    4994. 

  4994.         }
    4995. 

  4995. 

  4996.         if (!$OSIOPTARGET_values[$a]) {
    4997. 

  4997.             $OSIOPTARGET_values[$a] = "";
    4998. 

  4998.         }
    4999. 

  4999.     }
    5000. 

  5000. 

  5001.     for ($a = 0; $a < count($times_OU); $a++) {
    5002. 

  5002.         for ($k = 0; $k < count($ODIOP); $k++) {
    5003. 

  5003.             if ($times_OU[$a] == $time_OU[$k]) {
    5004. 

  5004.                 $OD_time_values[$a] = $ODIOP[$k]['IOP'];
    5005. 

  5005.                 $OS_time_values[$a] = $OSIOP[$k]['IOP'];
    5006. 

  5006.                 break;
    5007. 

  5007.             }
    5008. 

  5008.         }
    5009. 

  5009. 

  5010.         if (( !$OD_time_values[$a]) || (!is_int($OD_time_values[$a]))) {
    5011. 

  5011.             $OD_time_values[$a] = "";
    5012. 

  5012.         }
    5013. 

  5013. 

  5014.         if (!$OS_time_values[$a]) {
    5015. 

  5015.             $OS_time_values[$a] = "";
    5016. 

  5016.         }
    5017. 

  5017.     }
    5018. 

  5018. 

  5019.     $dates_OU = "'" . implode("','", $date_OU) . "'";
    5020. 

  5020.     $OD_values = implode(",", $OD_values);
    5021. 

  5021.     $OS_values = implode(",", $OS_values);
    5022. 

  5022.     $OCT_values = "'" . implode("','", $OCT_values) . "'";
    5023. 

  5023.     $VF_values = "'" . implode("','", $VF_values) . "'";
    5024. 

  5024.     $GONIO_values =  "'" . implode("','", $GONIO_values) . "'";
    5025. 

  5025.     $IOPTARGET_values =  implode(",", $ODIOPTARGET_values);
    5026. 

  5026.     $times_OU = "'" . implode("','", $times_OU) . "'";
    5027. 

  5027.     $OD_time_values = "'" . implode("','", $OD_time_values) . "'";
    5028. 

  5028.     $OS_time_values = "'" . implode("','", $OS_time_values) . "'";
    5029. 

  5029. 

  5030.     ?> <p style="font-weight:bold;"> <?php echo xlt('Glaucoma Zone'); ?>:</p>
    5031. 

  5031.         <br />
    5032. 

  5032.         <br />
    5033. 

  5033.        <span class="closeButton fas fa-times" id="Close_IOP" name="Close_IOP"></span>
    5034. 

  5034.         <div id="GFS_table" name="GFS_table" class="table-responsive borderShadow" style="position:relative;display:table;float:left;margin-top:10px;padding:15px;text-align:left;vertical-align:center;width:30%;">
    5035. 

  5035.             <table class="GFS_table">
    5036. 

  5036.                 <tr >
    5037. 

  5037.                     <td colspan="1" class="GFS_title_1" style="padding-bottom:3px;border:none;" nowrap><?php echo xlt('Current Target'); ?>:
    5038. 

  5038.                         <td class='GFS_title center' style="padding-bottom:3px;border:none;" nowrap><?php echo xlt('OD{{right eye}}'); ?>: <input type="text" style="width: 20px;" name="ODIOPTARGET" id="ODIOPTARGET" value="<?php echo attr($ODIOPTARGET); ?>" /></td>
    5039. 

  5039.                         <td class='GFS_title center' style="padding-bottom:3px;border:none;" nowrap><?php echo xlt('OS{{left eye}}'); ?>: <input type="text" style="width: 20px;" name="OSIOPTARGET" id="OSIOPTARGET"  value="<?php echo attr($encounter_data['ODIOPTARGET']); ?>"  /></td>
    5040. 

  5040.                 </tr>
    5041. 

  5041.                 <tr>
    5042. 

  5042.                     <td colspan="3" class="hideme nodisplay">
    5043. 

  5043.                         TARGET IOP HISTORY
    5044. 

  5044.                     </td>
    5045. 

  5045.                 </tr>
    5046. 

  5046.                 <?php
    5047. 

  5047.                     //what active meds have a subtype eye?
    5048. 

  5048.                     $i = 0;
    5049. 

  5049.                     $count_Meds = count($PMSFH[0]['Medication']);
    5050. 

  5050.                 if ($count_Meds > '0') {
    5051. 

  5051.                     foreach ($PMSFH[0]['Medication'] as $drug) {
    5052. 

  5052.                         if (($drug['row_subtype'] == "eye") && (strtotime($drug['enddate']) < strtotime($visit_date) ) && ($drug['status'] != "Inactive")) {
    5053. 

  5053.                             $current_drugs .= "<tr><td colspan='2' class='GFS_td_1'><span name='QP_PMH_" . attr($drug['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($drug['rowid']) . "'
    5054. 

  5054.                                       onclick=\"alter_issue2(" . attr_js($drug['rowid']) . ",'Medication','" . $i . "');\">" . text($drug['title']) . "</span></td>
    5055. 

  5055.                                       <td class='GFS_td'>" . text(oeFormatShortDate($drug['begdate'])) . "</td></tr>";
    5056. 

  5056.                         } elseif (($drug['row_subtype'] == "eye") && (!empty($drug['enddate']))) {//what meds have a subtype eye that are discontinued?
    5057. 

  5057.                             $hideme = "hideme_drugs nodisplay";
    5058. 

  5058.                             $FAILED_drugs .= "<tr class='" . $hideme . "'><td colspan='1' class='GFS_td_1'><span name='QP_PMH_" . attr($drug['rowid']) . "' href='#PMH_anchor' id='QP_PMH_" . attr($drug['rowid']) . "'
    5059. 

  5059.                                       onclick=\"alter_issue2(" . attr_js($drug['rowid']) . ",'Medication','" . $i . "');\">" . text($drug['title']) . "</span></td>
    5060. 

  5060.                                       <td class='GFS_td'>" . text(oeFormatShortDate($drug['begdate'])) . "</td><td class='GFS_td'>" . text(oeFormatShortDate($drug['enddate'])) . "</td></tr>";
    5061. 

  5061.                         }
    5062. 

  5062. 

  5063.                         $i++;
    5064. 

  5064.                     }
    5065. 

  5065. 

  5066.                     if (!$current_drugs) {
    5067. 

  5067.                         $current_drugs = "<tr><td colspan='3' class='GFS_td_1' style='text-align:center;'>" . xlt('None documented') . "</td></tr>";
    5068. 

  5068.                         $no_drugs = '1';
    5069. 

  5069.                     }
    5070. 

  5070. 

  5071.                     foreach ($PMSFH[0]['Medication'] as $drug) {
    5072. 

  5072.                         if (($drug['row_subtype'] == "eye") && (!empty($drug['enddate']))) {
    5073. 

  5073.                             $FAILED_drug .= "<li>" . text($drug['title']) . "</li>";
    5074. 

  5074.                         }
    5075. 

  5075.                     }
    5076. 

  5076.                 }
    5077. 

  5077.                 ?>
    5078. 

  5078.                 <tr class="GFS_tr">
    5079. 

  5079.                     <td colspan="2" class="GFS_title"><?php echo xlt('Current Eye Meds'); ?>:</td>
    5080. 

  5080.                         <?php  ($no_drugs) ? ($meds_here = '') : $meds_here = xlt('Start'); ?>
    5081. 

  5081.                     <td class="GFS_title" style="text-align:center;"><?php echo $meds_here; ?></td>
    5082. 

  5082.                     <?php
    5083. 

  5083.                     if ($FAILED_drugs) {
    5084. 

  5084.                         echo '<td><span class="right toggleme" id="toggle_drugs"><i class="fa fa-toggle-down"></i></span></td>';
    5085. 

  5085.                     } ?>
    5086. 

  5086.                 </tr>
    5087. 

  5087.                 <?php
    5088. 

  5088.                 echo $current_drugs;
    5089. 

  5089.                 if ($FAILED_drugs) {
    5090. 

  5090.                     echo '<tr class="' . $hideme . '"><td class="GFS_title" colspan="1">' . xlt('Prior Eye Meds') . '</td><td class="GFS_title" style="text-align:center;">' . xlt('Start') . '</td><td  style="text-align:center;" class="GFS_title">End</td></tr>';
    5091. 

  5091.                 }
    5092. 

  5092. 

  5093.                 echo $FAILED_drugs;
    5094. 

  5094. 

  5095.                 //start VF section
    5096. 

  5096.                 if ($count_VF > '0') { //need to decide how many to show on open, and hide the rest?  For now the first only.
    5097. 

  5097.                     $count = 0;
    5098. 

  5098.                     foreach ($documents['docs_in_name']['VF'] as $VF) {
    5099. 

  5099.                         if ($count < 1) {
    5100. 

  5100.                             //    $episode .= '<a onclick="openNewForm(\''.$GLOBALS['webroot'].'/controller.php?document&view&patient_id='.$pid.'&doc_id='.$id_to_show.'\',\'Documents\');"><img src="../../forms/'.$form_folder.'/images/jpg.png" class="little_image" /></a>';
    5101. 

  5101. 

  5102.                             $current_VF = '<tr><td class="GFS_td_1 blue">
    5103. 

  5103.                                 <a onclick="openNewForm(\'' . $GLOBALS['webroot'] . '/controller.php?document&view&patient_id=' . attr($pid) . '&doc_id=' . attr($VF['id']) . '\',\'Documents\');">
    5104. 

  5104.                                 <img src="../../forms/' . $form_folder . '/images/jpg.png" class="little_image" style="width:15px; height:15px;" /></a>
    5105. 

  5105.                                 </td>
    5106. 

  5106.                                 <td class="GFS_td_1">' . $VF['docdate'] . '</td>
    5107. 

  5107.                                 </tr>';
    5108. 

  5108.                         } else {
    5109. 

  5109.                             $old_VFs .= '<tr><td class="GFS_td_1 hideme_VFs nodisplay"">
    5110. 

  5110.                                 <a onclick="openNewForm(\'' . $GLOBALS['webroot'] . '/controller.php?document&view&patient_id=' . attr($pid) . '&doc_id=' . attr($VF['id']) . '\',\'Documents\');">
    5111. 

  5111.                                 <img src="../../forms/' . $form_folder . '/images/jpg.png" class="little_image" style="width:15px; height:15px;" /></a></td>
    5112. 

  5112.                                 <td class="hideme_VFs nodisplay GFS_td_1">' . $VF['docdate'] . '</td></tr>';
    5113. 

  5113.                         }
    5114. 

  5114. 

  5115.                         $count++;
    5116. 

  5116.                     }
    5117. 

  5117.                 } else {
    5118. 

  5118.                     $current_VF = "<tr><td colspan='3' class='GFS_td_1' style='text-align:center;'>" . xlt('Not documented') . "</td></tr>";
    5119. 

  5119.                 }
    5120. 

  5120.                 ?>
    5121. 

  5121.                 <tr class="GFS_tr">
    5122. 

  5122.                     <td colspan="3" class="GFS_title"><?php echo xlt('Visual Fields'); ?>:
    5123. 

  5123.                     <?php
    5124. 

  5124.                     if ($old_VFs) {
    5125. 

  5125.                         echo '<td><span class="top right" id="toggle_VFs"><i class="fa fa-toggle-down"></i></span></td>';
    5126. 

  5126.                     }
    5127. 

  5127.                     ?>
    5128. 

  5128.                 </tr>
    5129. 

  5129.                 <?php echo $current_VF . $old_VFs;
    5130. 

  5130.                 //end VF section
    5131. 

  5131. 

  5132.                 //start Optic Nerve section
    5133. 

  5133.                 ?>
    5134. 

  5134.                 <tr>
    5135. 

  5135.                     <td colspan="3" class="GFS_title"><?php echo xlt('Optic Nerve Analysis'); ?>:&nbsp;
    5136. 

  5136.                         <?php
    5137. 

  5137.                         if ($count_OCT > '0') { //need to decide how many to show on open, and hide the rest?  For now show first, hide rest.
    5138. 

  5138.                             $count = 0;
    5139. 

  5139.                             foreach ($documents['docs_in_name']['OCT'] as $OCT) {
    5140. 

  5140.                                 //get encounter date from encounter id
    5141. 

  5141.                                 if ($count < 1) {
    5142. 

  5142.                                     $current_OCT = '<tr>
    5143. 

  5143.                                             <td class="GFS_td_1">
    5144. 

  5144.                                             <a onclick="openNewForm(\'' . $GLOBALS['webroot'] . '/controller.php?document&view&patient_id=' . attr($pid) . '&doc_id=' . attr($OCT['id']) . '\',\'Documents\');"><img src="../../forms/' . $form_folder . '/images/jpg.png" class="little_image" style="width:15px; height:15px;" /></a>
    5145. 

  5145.                                             </td>
    5146. 

  5146.                                             <td class="GFS_td_1">' . $OCT['docdate'] . '</td>
    5147. 

  5147.                                         </tr>
    5148. 

  5148.                                         ';
    5149. 

  5149.                                 } else {
    5150. 

  5150.                                     $old_OCTs .= '<tr><td class="hideme_OCTs nodisplay GFS_td_1">
    5151. 

  5151.                                                 <a onclick="openNewForm(\'' . $GLOBALS['webroot'] . '/controller.php?document&view&patient_id=' . attr($pid) . '&doc_id=' . attr($OCT['id']) . '\',\'Documents\');"><img src="../../forms/' . $form_folder . '/images/jpg.png" class="little_image" style="width:15px; height:15px;" /></a>
    5152. 

  5152.                                                 </td><td class="hideme_OCTs nodisplay GFS_td_1">' . $OCT['docdate'] . '</td></tr>';
    5153. 

  5153.                                 }
    5154. 

  5154.                                 $count++;
    5155. 

  5155.                             }
    5156. 

  5156.                         } else {
    5157. 

  5157.                             $current_OCT = "<tr><td colspan='3' class='GFS_td_1' style='text-align:center;'>" . xlt('Not documented') . "</td></tr>";
    5158. 

  5158.                         }
    5159. 

  5159. 

  5160.                         if ($old_OCTs) {
    5161. 

  5161.                             echo '<td><span class="top right " id="toggle_OCTs"><i class="fa fa-toggle-down"></i></span></td>';
    5162. 

  5162.                         }
    5163. 

  5163. 

  5164.                         echo "</tr>";
    5165. 

  5165.                         echo $current_OCT . $old_OCTs;
    5166. 

  5166. 

  5167.                         $count = 0;
    5168. 

  5168.                         $hideme = '';
    5169. 

  5169.                         foreach ($priors as $visit) {
    5170. 

  5170.                             if (($visit['ODGONIO'] > " ") || ($visit['OSGONIO'] > " ")) { // something is here
    5171. 

  5171.                                 if ($count > 0) {
    5172. 

  5172.                                     $hideme = "hideme_gonios nodisplay";// show the first only, hide the rest for now
    5173. 

  5173.                                 }
    5174. 

  5174. 

  5175.                                 $gonios .= "<tr><td class='GFS_td_1 " . $hideme . "'>" . $visit['exam_date'] . "</td><td class='GFS_td " . $hideme . "' style='border:1pt dotted gray;'>" . $visit['ODGONIO'] . "</td><td class='GFS_td " . $hideme . "' style='border:1pt dotted gray;'>" . $visit['OSGONIO'] . "</td></tr>";
    5176. 

  5176.                                 $GONIO_chart .= '"1",';
    5177. 

  5177.                                 $count++;
    5178. 

  5178.                             } else {
    5179. 

  5179.                                 $GONIO_chart .= ',';
    5180. 

  5180.                             }
    5181. 

  5181.                         }
    5182. 

  5182.                         if (!empty($GONIO)) {
    5183. 

  5183.                             $GONIO = chop($GONIO, ",");
    5184. 

  5184.                         }
    5185. 

  5185.                         if ($count == 0) {
    5186. 

  5186.                             $gonios = "<tr><td colspan='3' class='GFS_td_1' style='text-align:center;'>" . xlt('Not documented') . "</td></tr>";
    5187. 

  5187.                         }
    5188. 

  5188.                         ?>
    5189. 

  5189.                 <tr>
    5190. 

  5190.                     <td class="GFS_title_1" id="GFS_gonios" name="GFS_gonios" style="position:relative;"><?php echo xlt('Gonioscopy'); ?>:</td>
    5191. 

  5191.                     <?php
    5192. 

  5192.                     if ($count > '0') {
    5193. 

  5193.                         echo "<td class='GFS_title center'>" . xlt('OD{{right eye}}') . "</td><td class='GFS_title center'>" . xlt('OS{{left eye}}') . "</td>";
    5194. 

  5194.                     } else {
    5195. 

  5195.                         echo "<td class='GFS_title center'></td><td class='GFS_title center'></td>";
    5196. 

  5196.                     }
    5197. 

  5197. 

  5198.                     if ($hideme) {
    5199. 

  5199.                         echo '<td><span class="top right" id="toggle_gonios"><i class="fa fa-toggle-down"></i></span></td>';
    5200. 

  5200.                     }
    5201. 

  5201.                     ?>
    5202. 

  5202.                 </tr>
    5203. 

  5203.                     <?php echo $gonios;
    5204. 

  5204. 

  5205.                     $count = '0';
    5206. 

  5206.                     $hideme = '';
    5207. 

  5207.                     foreach ($priors as $visit) {
    5208. 

  5208.                         if (($visit['ODCUP'] > "") || ($visit['OSCUP'] > "")) {
    5209. 

  5209.                             if ($count > 0) {
    5210. 

  5210.                                 $hideme = "hideme_cups nodisplay";
    5211. 

  5211.                             }
    5212. 

  5212. 

  5213.                             $cups .= "<tr><td class='GFS_td_1 " . $hideme . " '>" . text($visit['exam_date']) . "</td><td class='GFS_td " . $hideme . "' style='border:1pt dotted gray;'>" . text($visit['ODCUP']) . "</td><td class='GFS_td " . $hideme . "' style='border:1pt dotted gray;''>" . text($visit['OSCUP']) . "</td></tr>";
    5214. 

  5214.                             $DISCS_chart .= '"1",';
    5215. 

  5215.                             $count++;
    5216. 

  5216.                         } else {
    5217. 

  5217.                             $DISCS_chart .= '"",';
    5218. 

  5218.                         }
    5219. 

  5219.                     }
    5220. 

  5220. 

  5221.                     $DISCS_chart = chop($DISCS_chart, ",");
    5222. 

  5222.                     if ($count == 0) {
    5223. 

  5223.                         $cups = "<tr><td colspan='3' class='GFS_td_1' style='text-align:center;'>" . xlt('Not documented') . "</td></tr>";
    5224. 

  5224.                     }
    5225. 

  5225.                     ?>
    5226. 

  5226.                 <tr>
    5227. 

  5227.                     <td class="GFS_title_1" id="GFS_cups" name="GFS_cups" title="<?php echo xla('Click this to display/hide additional tests'); ?>"style="position:relative;"><?php echo xlt('Optic Discs'); ?>:
    5228. 

  5228.                     <?php
    5229. 

  5229.                     if ($hideme) {
    5230. 

  5230.                         $plus = '<td><span class="top right" id="toggle_cups"><i class="fa fa-toggle-down"></i></span></td>';
    5231. 

  5231.                     }
    5232. 

  5232. 

  5233.                     if ($count > '0') {
    5234. 

  5234.                         echo "<td class='GFS_title center'>" . xlt('OD{{right eye}}') . "</td><td class='GFS_title center'>" . xlt('OS{{left eye}}') . "</td>" . $plus;
    5235. 

  5235.                     } else {
    5236. 

  5236.                         echo "<td class='GFS_title center'></td><td class='GFS_title center'></td>";
    5237. 

  5237.                     }
    5238. 

  5238.                     ?>
    5239. 

  5239.                 </tr>
    5240. 

  5240.                         <?php echo $cups; ?>
    5241. 

  5241. 

  5242.             </table>
    5243. 

  5243.         </div>
    5244. 

  5244.         <script src="<?php echo $GLOBALS['assets_static_relative'] ?>/chart.js/dist/Chart.bundle.min.js"></script>
    5245. 

  5245.         <div style="position:relative;float:right; margin: 0px 5px;text-align:center;width:60%;">
    5246. 

  5246.             <?php
    5247. 

  5247.             if ($priors) {
    5248. 

  5248.                 if ($bywhat == 'byday') { //$bywhat='byday'
    5249. 

  5249.                         $class_1 = "nodisplay";
    5250. 

  5250.                         $class_2 = "";
    5251. 

  5251.                 } else {
    5252. 

  5252.                     $class_2 = "nodisplay";
    5253. 

  5253.                     $class_1 = "";
    5254. 

  5254.                 }
    5255. 

  5255. 

  5256. 

  5257.                 ?>
    5258. 

  5258.                 <canvas id="canvas_byday" class="<?php echo $class_2; ?>"></canvas>
    5259. 

  5259.                 <canvas id="canvas_byhour" class="<?php echo $class_1; ?>"></canvas>
    5260. 

  5260. 

  5261.                 <button id="dailyData" class="<?php echo $class_1; ?>"><?php echo xlt('Show IOP by Date'); ?></button>
    5262. 

  5262.                 <button id="hourlyData" class="<?php echo $class_2; ?>"><?php echo xlt('Show IOP by Time'); ?></button>
    5263. 

  5263.                 <script>
    5264. 

  5264.                     /**
    5265. 

  5265.                      *  Below is the Chart.js code to render IOP by day and IOP by time
    5266. 

  5266.                      *
    5267. 

  5267.                      */
    5268. 

  5268.                     var visit_date = '<?php echo attr($dated); ?>';
    5269. 

  5269.                     var dateFormat = 'YYYY-MM-DD';
    5270. 

  5270.                     var timeFormat = 'HH tt';
    5271. 

  5271.                     var customTooltips = function(tooltip) {
    5272. 

  5272.                         // Tooltip Element
    5273. 

  5273.                         var tooltipEl = $('#chartjs-tooltip');
    5274. 

  5274.                         if (!tooltipEl[0]) {
    5275. 

  5275.                             $('body').append('<div id="chartjs-tooltip"></div>');
    5276. 

  5276.                             tooltipEl = $('#chartjs-tooltip');
    5277. 

  5277.                         }
    5278. 

  5278.                             // Hide if no tooltip
    5279. 

  5279.                         if (!tooltip.opacity) {
    5280. 

  5280.                             tooltipEl.css({
    5281. 

  5281.                                           opacity: 0.3
    5282. 

  5282.                                           });
    5283. 

  5283.                             $('.chartjs-wrap canvas')
    5284. 

  5284.                             .each(function(index, el) {
    5285. 

  5285.                                   $(el).css('cursor', 'default');
    5286. 

  5286.                                   });
    5287. 

  5287.                             return;
    5288. 

  5288.                         }
    5289. 

  5289.                         $(this._chart.canvas).css('cursor', 'pointer');
    5290. 

  5290.                             // Set caret Position
    5291. 

  5291.                         tooltipEl.removeClass('above below no-transform');
    5292. 

  5292.                         if (tooltip.yAlign) {
    5293. 

  5293.                             tooltipEl.addClass(tooltip.yAlign);
    5294. 

  5294.                         } else {
    5295. 

  5295.                             tooltipEl.addClass('no-transform');
    5296. 

  5296.                         }
    5297. 

  5297. 

  5298.                             // Set Text
    5299. 

  5299.                         if (tooltip.body) {
    5300. 

  5300.                             var innerHtml = [
    5301. 

  5301.                                              (tooltip.beforeTitle || []).join('\n'), (tooltip.title || []).join('\n'), (tooltip.afterTitle || []).join('\n'), (tooltip.beforeBody || []).join('\n'), (tooltip.body || []).join('\n'), (tooltip.afterBody || []).join('\n'), (tooltip.beforeFooter || [])
    5302. 

  5302.                                              .join('\n'), (tooltip.footer || []).join('\n'), (tooltip.afterFooter || []).join('\n')
    5303. 

  5303.                                              ];
    5304. 

  5304.                             tooltipEl.html(innerHtml.join('\n'));
    5305. 

  5305.                         }
    5306. 

  5306. 

  5307.                             // Find Y Location on page
    5308. 

  5308.                         var top = 0;
    5309. 

  5309.                         if (tooltip.yAlign) {
    5310. 

  5310.                             if (tooltip.yAlign == 'above') {
    5311. 

  5311.                                 top = tooltip.y - tooltip.caretHeight - tooltip.caretPadding;
    5312. 

  5312.                             } else {
    5313. 

  5313.                                 top = tooltip.y + tooltip.caretHeight + tooltip.caretPadding;
    5314. 

  5314.                             }
    5315. 

  5315.                         }
    5316. 

  5316.                         var position = $(this._chart.canvas)[0].getBoundingClientRect();
    5317. 

  5317.                             // Display, position, and set styles for font
    5318. 

  5318.                         tooltipEl.css({
    5319. 

  5319.                                       opacity: 0.5,
    5320. 

  5320.                                       width: tooltip.width ? (tooltip.width + 'px') : 'auto',
    5321. 

  5321.                                       left: position.left + tooltip.x + 'px',
    5322. 

  5322.                                       top: position.top + top + 'px',
    5323. 

  5323.                                       fontFamily: tooltip._fontFamily,
    5324. 

  5324.                                       fontSize: tooltip.fontSize,
    5325. 

  5325.                                       fontStyle: tooltip._fontStyle,
    5326. 

  5326.                                       padding: tooltip.yPadding + 'px ' + tooltip.xPadding + 'px',
    5327. 

  5327.                                       });
    5328. 

  5328.                     };
    5329. 

  5329. 

  5330.                     var config_byhour = {
    5331. 

  5331.                         type: 'line',
    5332. 

  5332.                         data: {
    5333. 

  5333.                             labels: [<?php echo $times_OU; ?>],
    5334. 

  5334.                             datasets: [{
    5335. 

  5335.                                    label: "OD",
    5336. 

  5336.                                    data: [<?php echo $OD_time_values; ?>],
    5337. 

  5337.                                    fill: false,
    5338. 

  5338.                                    borderColor : "#44a3a7",
    5339. 

  5339.                                    backgroundColor : "#44a3a7",
    5340. 

  5340.                                    pointBorderColor : "#055d2b",
    5341. 

  5341.                                    pointBackgroundColor : "#44a3a7",
    5342. 

  5342.                                    pointBorderWidth : 3,
    5343. 

  5343.                                    lineTension: 0.3,
    5344. 

  5344.                                    borderCapStyle: 'butt',
    5345. 

  5345.                                    borderDashOffset: 0.0,
    5346. 

  5346.                                    borderJoinStyle: 'miter',
    5347. 

  5347.                                    pointHoverRadius: 5,
    5348. 

  5348.                                    pointHoverBorderWidth: 2,
    5349. 

  5349.                                    pointRadius: 1,
    5350. 

  5350.                                    pointHitRadius: 3
    5351. 

  5351.                                    }, {
    5352. 

  5352.                                    label: 'OS',
    5353. 

  5353.                                    data: [<?php echo $OS_time_values; ?>],
    5354. 

  5354.                                    fill: false,
    5355. 

  5355.                                    lineTension: 3,
    5356. 

  5356.                                    borderColor : "#000099",
    5357. 

  5357.                                    backgroundColor : "#000099",
    5358. 

  5358.                                    pointBorderColor : "black",
    5359. 

  5359.                                    pointBackgroundColor : "#000099",
    5360. 

  5360.                                    pointBorderWidth : 3,
    5361. 

  5361.                                    lineTension: 0.3,
    5362. 

  5362.                                    borderCapStyle: 'butt',
    5363. 

  5363.                                    borderJoinStyle: 'miter',
    5364. 

  5364.                                    pointHoverRadius: 5,
    5365. 

  5365.                                    pointHoverBorderWidth: 2,
    5366. 

  5366.                                    pointRadius: 1,
    5367. 

  5367.                                    pointHitRadius: 3,
    5368. 

  5368.                                    }]
    5369. 

  5369.                             },
    5370. 

  5370.                         options: {
    5371. 

  5371.                             responsive: true,
    5372. 

  5372.                             animation: false,
    5373. 

  5373.                             onAnimationComplete: function () {
    5374. 

  5374.                                     // prevents the update from triggering an infinite loop
    5375. 

  5375.                                 if (!this.clearCycle) {
    5376. 

  5376.                                     this.clearCycle = true;
    5377. 

  5377. 

  5378.                                     this.datasets.forEach(function (dataset) {
    5379. 

  5379.                                                           dataset.points.forEach(function (point) {
    5380. 

  5380.                                                                                  if (point.value === 0) {
    5381. 

  5381.                                                                                  point.display = false;
    5382. 

  5382.                                                                                  point.hasValue = function () {
    5383. 

  5383.                                                                                  return false;
    5384. 

  5384.                                                                                  }
    5385. 

  5385.                                                                                  }
    5386. 

  5386.                                                                                  })
    5387. 

  5387.                                                           })
    5388. 

  5388.                                     this.update();
    5389. 

  5389.                                 }
    5390. 

  5390.                             else
    5391. 

  5391.                                 delete this.clearCycle;
    5392. 

  5392.                             },
    5393. 

  5393.                             scaleShowHorizontalLines: true,
    5394. 

  5394.                             title:{
    5395. 

  5395.                             display:true,
    5396. 

  5396.                             text:'<?php echo xla("Intraocular Pressures") . " (" . xla("mmHg") . ") by Hour"; ?>'
    5397. 

  5397.                             },
    5398. 

  5398.                             tooltips: {
    5399. 

  5399.                             mode: 'label'
    5400. 

  5400.                             },
    5401. 

  5401.                             hover: {
    5402. 

  5402.                             mode: 'dataset'
    5403. 

  5403.                             },
    5404. 

  5404.                             scales: {
    5405. 

  5405.                                 xAxes:  [{
    5406. 

  5406.                                      type: "time",
    5407. 

  5407.                                      time: {
    5408. 

  5408.                                      format: "HH:mm",
    5409. 

  5409.                                      unit: 'hour',
    5410. 

  5410.                                      unitStepSize: 2,
    5411. 

  5411.                                      displayFormats: {
    5412. 

  5412.                                      'minute': 'h:mm a',
    5413. 

  5413.                                      'hour': 'h:mm a'
    5414. 

  5414.                                      },
    5415. 

  5415.                                      tooltipFormat: 'h:mm a'
    5416. 

  5416.                                      },
    5417. 

  5417.                                      scaleLabel: {
    5418. 

  5418.                                      display: true,
    5419. 

  5419.                                      labelString: 'Time'
    5420. 

  5420.                                      },
    5421. 

  5421.                                      ticks: {
    5422. 

  5422.                                      suggestedMin: 4,
    5423. 

  5423.                                      suggestedMax: 24,
    5424. 

  5424.                                      }
    5425. 

  5425.                                      } ],
    5426. 

  5426.                                 yAxes: [{
    5427. 

  5427.                                     type: "linear",
    5428. 

  5428.                                     display: true,
    5429. 

  5429.                                     position: "left",
    5430. 

  5430.                                     //id: "y-axis-2",
    5431. 

  5431.                                     gridLines:{
    5432. 

  5432.                                     display: false
    5433. 

  5433.                                     },
    5434. 

  5434.                                     labels: {
    5435. 

  5435.                                     show:true,
    5436. 

  5436. 

  5437.                                     },
    5438. 

  5438.                                     scaleLabel: {
    5439. 

  5439.                                     display: true,
    5440. 

  5440.                                     labelString: 'IOP (mmHg)'
    5441. 

  5441.                                     },
    5442. 

  5442.                                     ticks: {
    5443. 

  5443.                                     suggestedMin: 0,
    5444. 

  5444.                                     suggestedMax: 24,
    5445. 

  5445.                                     }
    5446. 

  5446.                                     }]
    5447. 

  5447.                             }
    5448. 

  5448.                         }
    5449. 

  5449.                     };
    5450. 

  5450. 

  5451.                     $('#dailyData').click(function(event) {
    5452. 

  5452.                                           event.preventDefault();
    5453. 

  5453.                                           $('#canvas_byday').removeClass('nodisplay');
    5454. 

  5454.                                           $('#canvas_byhour').addClass('nodisplay');
    5455. 

  5455. 

  5456.                                           $('#dailyData').addClass('nodisplay');
    5457. 

  5457.                                           $('#hourlyData').removeClass('nodisplay');
    5458. 

  5458.                                           $('#showTesting').addClass('nodisplay');
    5459. 

  5459.                                           });
    5460. 

  5460.                     $('#hourlyData').click(function(event) {
    5461. 

  5461.                                            event.preventDefault();
    5462. 

  5462.                                            $('#canvas_byhour').removeClass('nodisplay');
    5463. 

  5463.                                            $('#canvas_byday').addClass('nodisplay');
    5464. 

  5464.                                            $('#dailyData').removeClass('nodisplay');
    5465. 

  5465.                                            $('#hourlyData').addClass('nodisplay');
    5466. 

  5466.                                            $('#showTesting').removeClass('nodisplay');
    5467. 

  5467.                                            });
    5468. 

  5468.                     var config_byday = {
    5469. 

  5469.                         type: 'bar',
    5470. 

  5470.                         data: {
    5471. 

  5471.                         labels: [<?php echo $dates_OU; ?>],
    5472. 

  5472.                         datasets: [
    5473. 

  5473.                                {
    5474. 

  5474.                                type: 'line',
    5475. 

  5475.                                label: "Target",
    5476. 

  5476.                                data: [<?php echo $IOPTARGET_values; ?>],
    5477. 

  5477.                                fill: false,
    5478. 

  5478.                                borderColor : "#f28282",
    5479. 

  5479.                                backgroundColor : "#f28282",
    5480. 

  5480.                                pointBorderColor : "black",
    5481. 

  5481.                                pointBackgroundColor : "#f28282",
    5482. 

  5482.                                pointBorderWidth : 3,
    5483. 

  5483.                                drugs: ["test1\ntimoptic","test2","test3"],
    5484. 

  5484.                                yAxisID: 'y-axis-1',
    5485. 

  5485.                                lineTension: 0.3,
    5486. 

  5486.                                borderCapStyle: 'round',
    5487. 

  5487.                                borderDash: [1,5],
    5488. 

  5488.                                borderJoinStyle: 'miter',
    5489. 

  5489.                                pointHoverRadius: 5,
    5490. 

  5490.                                pointHoverBorderWidth: 2,
    5491. 

  5491.                                pointRadius: 1,
    5492. 

  5492.                                pointHitRadius: 3
    5493. 

  5493.                                },{ type: 'line',
    5494. 

  5494.                                label: "OD",
    5495. 

  5495.                                data: [<?php echo $OD_values; ?>],
    5496. 

  5496.                                fill: false,
    5497. 

  5497.                                borderColor : "#44a3a7",
    5498. 

  5498.                                backgroundColor : "#44a3a7",
    5499. 

  5499.                                pointBorderColor : "#055d2b",
    5500. 

  5500.                                pointBackgroundColor : "#44a3a7",
    5501. 

  5501.                                pointBorderWidth : 3,
    5502. 

  5502.                                yAxisID: 'y-axis-1',
    5503. 

  5503.                                lineTension: 0.3,
    5504. 

  5504.                                borderCapStyle: 'butt',
    5505. 

  5505.                                borderDashOffset: 0.0,
    5506. 

  5506.                                borderJoinStyle: 'miter',
    5507. 

  5507.                                pointHoverRadius: 5,
    5508. 

  5508.                                pointHoverBorderWidth: 2,
    5509. 

  5509.                                pointRadius: 1,
    5510. 

  5510.                                pointHitRadius: 3
    5511. 

  5511.                                }, {
    5512. 

  5512.                                type: 'line',
    5513. 

  5513.                                label: 'OS',
    5514. 

  5514.                                data: [<?php echo $OS_values; ?>],
    5515. 

  5515.                                fill: false,
    5516. 

  5516.                                lineTension: 3,
    5517. 

  5517.                                borderColor : "#000099",
    5518. 

  5518.                                backgroundColor : "#000099",
    5519. 

  5519.                                pointBorderColor : "black",
    5520. 

  5520.                                pointBackgroundColor : "#000099",
    5521. 

  5521.                                pointBorderWidth : 3,
    5522. 

  5522.                                yAxisID: 'y-axis-1',
    5523. 

  5523.                                lineTension: 0.3,
    5524. 

  5524.                                borderCapStyle: 'butt',
    5525. 

  5525.                                borderJoinStyle: 'miter',
    5526. 

  5526.                                pointHoverRadius: 5,
    5527. 

  5527.                                pointHoverBorderWidth: 2,
    5528. 

  5528.                                pointRadius: 1,
    5529. 

  5529.                                pointHitRadius: 3,
    5530. 

  5530.                                },{
    5531. 

  5531.                                type: 'bar',
    5532. 

  5532.                                label: "VF",
    5533. 

  5533.                                strokeColor: '#5CABFA',
    5534. 

  5534.                                fillColor:"#5CABFA",
    5535. 

  5535.                                data: [<?php echo $VF_values; ?>],
    5536. 

  5536.                                fill: false,
    5537. 

  5537.                                backgroundColor: '#5CABFA',
    5538. 

  5538.                                borderColor: 'var(--black)',
    5539. 

  5539.                                yAxisID: 'y-axis-2'
    5540. 

  5540.                                },{
    5541. 

  5541.                                type: 'bar',
    5542. 

  5542.                                label: "OCT",
    5543. 

  5543.                                data: [<?php echo $OCT_values; ?>],//0/null is not done, 1 if performed.
    5544. 

  5544.                                fill: true,
    5545. 

  5545.                                backgroundColor: '#71B37C',
    5546. 

  5546.                                borderColor: 'var(--black)',
    5547. 

  5547.                                yAxisID: 'y-axis-2'
    5548. 

  5548.                                },{
    5549. 

  5549.                                type: 'bar',
    5550. 

  5550.                                label: "Gonio",
    5551. 

  5551.                                data: [<?php echo $GONIO_values; ?>],
    5552. 

  5552.                                fill: false,
    5553. 

  5553.                                strokeColor: 'rgba(209, 30, 93, 0.3)',
    5554. 

  5554.                                fillColor:'rgba(209, 30, 93, 0.3)',
    5555. 

  5555.                                backgroundColor: 'red',
    5556. 

  5556.                                borderColor: 'var(--black)',
    5557. 

  5557.                                yAxisID: 'y-axis-2'
    5558. 

  5558.                                }]
    5559. 

  5559.                         },
    5560. 

  5560.                         options: {
    5561. 

  5561.                             responsive: true,
    5562. 

  5562.                             scaleShowHorizontalLines: true,
    5563. 

  5563.                             title:{
    5564. 

  5564.                             display: true,
    5565. 

  5565.                             text:'<?php echo xla("Intraocular Pressures (mmHg) by Date"); ?>'
    5566. 

  5566.                             },
    5567. 

  5567.                             tooltips: {
    5568. 

  5568.                             enabled: true,
    5569. 

  5569.                                 //id: "tooltip-1",
    5570. 

  5570.                                 //backgroundColor: '#FCFFC5',
    5571. 

  5571.                                 //mode: 'label',
    5572. 

  5572.                             enabled: true,
    5573. 

  5573.                             shared: false,
    5574. 

  5574. 

  5575.                             callbacks: {
    5576. 

  5576.                             label: function(tooltipItem, data) {
    5577. 

  5577.                                 if (tooltipItem.yLabel =='0') {
    5578. 

  5578.                                     return data.datasets[tooltipItem.datasetIndex].label + "  ---  "; ;
    5579. 

  5579.                                 } else if (tooltipItem.yLabel =='1') {
    5580. 

  5580.                                     return data.datasets[tooltipItem.datasetIndex].label + " <?php echo xlt('performed'); ?>";
    5581. 

  5581.                                 } else if (tooltipItem.yLabel > '1') {
    5582. 

  5582.                                     return data.datasets[tooltipItem.datasetIndex].label + ": "+tooltipItem.yLabel;
    5583. 

  5583.                                 }
    5584. 

  5584.                                 },
    5585. 

  5585.                                 afterBody: function(tooltipItems, data) {
    5586. 

  5586.                                     //console.log(tooltipItems);
    5587. 

  5587.                                     //return data.datasets[2].drugs[tagme];
    5588. 

  5588.                                 }
    5589. 

  5589.                             }
    5590. 

  5590.                             },
    5591. 

  5591.                             hover: {
    5592. 

  5592.                                 mode: 'label'
    5593. 

  5593.                             },
    5594. 

  5594.                             scales: {
    5595. 

  5595.                             xAxes:  [{
    5596. 

  5596.                                  type: "time",
    5597. 

  5597.                                  stacked:false,
    5598. 

  5598.                                  id: "x-axis-1",
    5599. 

  5599.                                  time: {
    5600. 

  5600.                                  format: dateFormat,
    5601. 

  5601.                                  round: 'day',
    5602. 

  5602.                                  tooltipFormat: 'll'
    5603. 

  5603.                                  },
    5604. 

  5604.                                  categoryPercentage: 0.5,
    5605. 

  5605.                                  barPercentage:1.0,
    5606. 

  5606.                                  //categoryPercentage:0.3,
    5607. 

  5607.                                  scaleLabel: {
    5608. 

  5608.                                  display: true,
    5609. 

  5609.                                  labelString: 'Date'
    5610. 

  5610.                                  },
    5611. 

  5611.                                  ticks: {
    5612. 

  5612.                                  suggestedMin: 3,
    5613. 

  5613.                                  suggestedMax: 6
    5614. 

  5614.                                  }
    5615. 

  5615.                                  }, ],
    5616. 

  5616.                             yAxes: [{
    5617. 

  5617.                                 type: "linear",
    5618. 

  5618.                                 display: false,
    5619. 

  5619.                                 position: "right",
    5620. 

  5620.                                 id: "y-axis-2",
    5621. 

  5621.                                 stacked: false,
    5622. 

  5622.                                 gridLines:{
    5623. 

  5623.                                 display: false
    5624. 

  5624.                                 },
    5625. 

  5625.                                 labels: {
    5626. 

  5626.                                 show:true,
    5627. 

  5627.                                 },
    5628. 

  5628.                                 scaleLabel: {
    5629. 

  5629.                                 display: false,
    5630. 

  5630.                                 labelString: 'Testing'
    5631. 

  5631.                                 },
    5632. 

  5632.                                 ticks: {
    5633. 

  5633.                                 suggestedMin: 4,
    5634. 

  5634.                                 suggestedMax: 4
    5635. 

  5635.                                 }
    5636. 

  5636.                                 }, {
    5637. 

  5637.                                 type: "linear",
    5638. 

  5638.                                 display: true,
    5639. 

  5639.                                 position: "left",
    5640. 

  5640.                                 id: "y-axis-1",
    5641. 

  5641.                                 gridLines:{
    5642. 

  5642.                                 display: true
    5643. 

  5643.                                 },
    5644. 

  5644.                                 labels: {
    5645. 

  5645.                                 show:true,
    5646. 

  5646.                                 },
    5647. 

  5647.                                 scaleLabel: {
    5648. 

  5648.                                 display: true,
    5649. 

  5649.                                 labelString: 'IOP (mmHg)'
    5650. 

  5650.                                 },
    5651. 

  5651.                                 ticks: {
    5652. 

  5652.                                 suggestedMin: 4,
    5653. 

  5653.                                 suggestedMax: 24,
    5654. 

  5654.                                 }
    5655. 

  5655.                                 }]
    5656. 

  5656.                             }
    5657. 

  5657.                         }
    5658. 

  5658.                     };
    5659. 

  5659. 

  5660.                     var ctx1 = document.getElementById("canvas_byday").getContext("2d");
    5661. 

  5661.                     var ctx2 = document.getElementById("canvas_byhour").getContext("2d");
    5662. 

  5662. 

  5663.                     var myLine = new Chart.Bar(ctx1, config_byday);
    5664. 

  5664.                     var myLine2 = new Chart(ctx2, config_byhour);
    5665. 

  5665.                 </script>
    5666. 

  5666.                 <?php
    5667. 

  5667.             } else {
    5668. 

  5668.                 echo "<div style='text-align:left;padding-left:20px;'><h4>The Glaucoma Flow Sheet graphically displays:
    5669. 

  5669.                 <ul>
    5670. 

  5670.                 <li> IOP measurements</li>
    5671. 

  5671.                 <li> Target IOPs </li>
    5672. 

  5672.                 <li> related tests (OCT/VF/Gonio)</li>
    5673. 

  5673.                 <li> diurnal IOP curve</li>
    5674. 

  5674.                 </ul>
    5675. 

  5675.                 The graphs are not generated on the initial visit...</h4></div>";
    5676. 

  5676.             } ?>
    5677. 

  5677.         </div>
    5678. 

  5678.     </div>
    5679. 

  5679.             <?php
    5680. 

  5680. }
    5681. 

  5681. 

  5682. # gets the provider from the encounter file , or from the logged on user or from the patient file
    5683. 

  5683. function findProvider($pid, $encounter)
    5684. 

  5684. {
    5685. 

  5685.     $find_provider = sqlQuery("SELECT * FROM form_encounter " .
    5686. 

  5686.         "WHERE pid = ? AND encounter = ? " .
    5687. 

  5687.         "ORDER BY id DESC LIMIT 1", array($pid,$encounter));
    5688. 

  5688.     $providerid = $find_provider['provider_id'];
    5689. 

  5689.     if ($providerid < '1') {
    5690. 

  5690.        //find the default providerID from the calendar
    5691. 

  5691.         $visit_date = date('Y-m-d', strtotime($find_provider['date']));
    5692. 

  5692.         $query = "select * from openemr_postcalendar_events where pc_pid=? and pc_eventDate=?";
    5693. 

  5693.         $find_provider3 = sqlQuery($query, array($pid,$visit_date));
    5694. 

  5694.         $new_providerid = $find_provider3['pc_aid'];
    5695. 

  5695.         if (($new_providerid < '1') || (!$new_providerid)) {
    5696. 

  5696.             $get_authorized = $_SESSION['userauthorized'];
    5697. 

  5697.             if ($get_authorized == 1) {
    5698. 

  5698.                 $find_provider2 = sqlQuery("SELECT providerID FROM patient_data WHERE pid = ? ", array($pid));
    5699. 

  5699.                 $new_providerid = $find_provider2['providerID'];
    5700. 

  5700.             }
    5701. 

  5701.         }
    5702. 

  5702. 

  5703.         $providerid = $new_providerid;
    5704. 

  5704.         sqlStatement("UPDATE form_encounter set provider_id =? WHERE pid = ? AND encounter = ?", array($providerid,$pid,$encounter));
    5705. 

  5705.         sqlStatement("UPDATE patient_data set providerID =? WHERE pid = ?", array($providerid,$pid));
    5706. 

  5706.     }
    5707. 

  5707. 

  5708.     return $providerid;
    5709. 

  5709. }
    5710. 

  5710. 

  5711. function generate_lens_treatments($W, $LTs_present)
    5712. 

  5712. {
    5713. 

  5713.     ob_start();
    5714. 

  5714.     $query = "SELECT * FROM list_options where list_id =? and activity='1' ORDER BY seq";
    5715. 

  5715.     $TXs_data = sqlStatement($query, array("Eye_Lens_Treatments"));
    5716. 

  5716.     $counter = 0;
    5717. 

  5717.     $TXs_arr = explode("|", $LTs_present);
    5718. 

  5718.     $tabindex = $W . "0144";
    5719. 

  5719.     while ($row = sqlFetchArray($TXs_data)) {
    5720. 

  5720.         $checked = '';
    5721. 

  5721.         $ID = $row['option_id'];
    5722. 

  5722.         if (in_array($ID, $TXs_arr)) {
    5723. 

  5723.             $checked = "checked='yes'";
    5724. 

  5724.         }
    5725. 

  5725. 

  5726.         echo "<input type='checkbox' id='TXs_" . $W . "_" . $counter . "' name='LENS_TREATMENTS_" . $W . "[]' $checked value='" . attr($ID) . "' tabindex='$tabindex'> ";
    5727. 

  5727.         $label = text(substr($row['title'], 0, 30));
    5728. 

  5728.         echo "<label for='TXs_" . $W . "_" . $counter . "' class='input-helper input-helper--checkbox' title='" . attr($row['notes']) . "'>";
    5729. 

  5729.         echo $label . "</label><br />";
    5730. 

  5730.         $counter++;
    5731. 

  5731.         $tabindex++;
    5732. 

  5732.     }
    5733. 

  5733. 

  5734.     $output = ob_get_contents();
    5735. 

  5735.     ob_end_clean();
    5736. 

  5736.     return $output;
    5737. 

  5737. }
    5738. 

  5738. 

  5739. /**
    5740. 

  5740.  *  Function to display the fields for a currently worn glasses/spectacle Rx.
    5741. 

  5741.  *  @param $W - the Rx number, in order of documentation
    5742. 

  5742.  */
    5743. 

  5743. function generate_specRx($W)
    5744. 

  5744. {
    5745. 

  5745.     global $pid,$form_id,$encounter,$display_W_width;
    5746. 

  5746. 

  5747.     $query  = "select * from form_eye_mag_wearing where PID=? and FORM_ID=? and ENCOUNTER=? and RX_NUMBER =?";
    5748. 

  5748.     $wear   = sqlQuery($query, array($pid,$form_id,$encounter,$W));
    5749. 

  5749.     if ($wear) {
    5750. 

  5750.         $RX_VALUE = '1';
    5751. 

  5751.         @extract($wear);
    5752. 

  5752.     } else {
    5753. 

  5753.         $RX_VALUE = '';
    5754. 

  5754.         $display_W = 'nodisplay';
    5755. 

  5755.     }
    5756. 

  5756. 

  5757.     ob_start();
    5758. 

  5758.     ?>
    5759. 

  5759.     <input type="hidden" id="W_<?php echo attr($W); ?>" name="W_<?php echo attr($W); ?>" value="<?php echo attr($RX_VALUE); ?>">
    5760. 

  5760. 

  5761.     <div id="LayerVision_W_<?php echo attr($W); ?>" name="currentRX" class="refraction current_W borderShadow <?php echo attr($display_W); ?> <?php echo $display_W_width; ?>">
    5762. 

  5762.                       <i class="closeButton fas fa-times" id="Close_W_<?php echo attr($W); ?>" name="Close_W_<?php echo attr($W); ?>"
    5763. 

  5763.                         title="<?php echo xla('Close this panel and delete this Rx'); ?>"></i>
    5764. 

  5764.                       <i class="closeButton_2 fas fa-arrows-alt-h" id="W_width_display_<?php echo attr($W); ?>" name="W_width_display"
    5765. 

  5765.                         title="<?php echo xla("Rx Details"); ?>" ></i>
    5766. 

  5766.                       <i onclick="top.restoreSession();  doscript('W','<?php echo attr($pid); ?>','<?php echo attr($encounter); ?>','<?php echo attr($W); ?>'); return false;"
    5767. 

  5767.                        title="<?php echo xla("Dispense Rx"); ?>" class="closeButton_3 fa fa-print"></i>
    5768. 

  5768.                       <i onclick="top.restoreSession();  dispensed('<?php echo attr($pid); ?>');return false;"
    5769. 

  5769.                          title="<?php echo xla("List of previously dispensed Spectacle and Contact Lens Rxs"); ?>" class="closeButton_4 fa fa-list-ul"></i>
    5770. 

  5770.                       <table id="wearing_<?php echo attr($W); ?>" >
    5771. 

  5771.                         <tr>
    5772. 

  5772.                           <th colspan="7"><?php echo xlt('Current Glasses'); ?>: #<?php echo attr($W); ?>
    5773. 

  5773.                           </th>
    5774. 

  5774.                         </tr>
    5775. 

  5775.                         <tr>
    5776. 

  5776.                           <td></td>
    5777. 

  5777.                           <td><i class="fa fa-gamepad" name="reverseme" title="<?php echo xla('Convert between plus and minus cylinder'); ?>"aria-hidden="true" id="revW<?php echo attr($W); ?>" ></i></td>
    5778. 

  5778.                           <td><?php echo xlt('Sph{{Sphere}}'); ?></td>
    5779. 

  5779.                           <td><?php echo xlt('Cyl{{Cylinder}}'); ?></td>
    5780. 

  5780.                           <td><?php echo xlt('Axis{{Axis of a glasses prescription}}'); ?></td>
    5781. 

  5781.                           <td><?php echo xlt('Acuity'); ?></td>
    5782. 

  5782.                                                     <td name="W_wide"></td>
    5783. 

  5783.                           <td name="W_wide" title="<?php echo xla('Horizontal Prism Power'); ?>"><?php echo xlt('HP{{abbreviation for Horizontal Prism Power}}'); ?></td>
    5784. 

  5784.                           <td name="W_wide" title="<?php echo xla('Horizontal Prism Base'); ?>"><?php echo xlt('HB{{abbreviation for Horizontal Prism Base}}'); ?></td>
    5785. 

  5785.                           <td name="W_wide" title="<?php echo xla('Vertical Prism Power'); ?>"><?php echo xlt('VP{{abbreviation for Vertical Prism Power}}'); ?></td>
    5786. 

  5786.                           <td name="W_wide" title="<?php echo xla('Vertical Prism Base'); ?>"><?php echo xlt('VB{{abbreviation for Vertical Prism Base}}'); ?></td>
    5787. 

  5787.                           <td name="W_wide" title="<?php echo xla('Slab Off'); ?>"><?php echo xlt('Slab Off'); ?></td>
    5788. 

  5788.                           <td name="W_wide" title="<?php echo xla('Vertex Distance'); ?>"><?php echo xlt('VD{{abbreviation for Vertex Distance}}'); ?></td>
    5789. 

  5789.                           <td name="W_wide" title="<?php echo xla('Monocular Pupillary Diameter - Distance'); ?>"><?php echo xlt('MPD-D{{abbreviation for Monocular Pupillary Diameter - Distance}}'); ?></td>
    5790. 

  5790.                           <td name="W_wide" title="<?php echo xla('Monocular Pupillary Diameter - Near'); ?>"><?php echo xlt('MPD-N{{abbreviation for Monocular Pupillary Diameter - Near}}'); ?></td>
    5791. 

  5791. 

  5792.                           <td rowspan="6" class="right">
    5793. 

  5793.                             <?php echo xlt('Rx Type{{Type of glasses prescription}}'); ?></span><br />
    5794. 

  5794.                             <label for="Single_<?php echo attr($W); ?>" class="input-helper input-helper--checkbox"><?php echo xlt('Single'); ?></label>
    5795. 

  5795.                             <input type="radio" value="0" id="Single_<?php echo attr($W); ?>" name="RX_TYPE_<?php echo attr($W); ?>" <?php
    5796. 

  5796.                             if ($RX_TYPE == '0') {
    5797. 

  5797.                                 echo 'checked="checked"';
    5798. 

  5798.                             } ?> /></span><br /><br />
    5799. 

  5799.                             <label for="Bifocal_<?php echo attr($W); ?>" class="input-helper input-helper--checkbox"><?php echo xlt('Bifocal'); ?></label>
    5800. 

  5800.                             <input type="radio" value="1" id="Bifocal_<?php echo attr($W); ?>" name="RX_TYPE_<?php echo attr($W); ?>" <?php
    5801. 

  5801.                             if ($RX_TYPE == '1') {
    5802. 

  5802.                                 echo 'checked="checked"';
    5803. 

  5803.                             } ?> /></span><br /><br />
    5804. 

  5804.                             <label for="Trifocal_<?php echo attr($W); ?>" class="input-helper input-helper--checkbox"><?php echo xlt('Trifocal'); ?></label>
    5805. 

  5805.                             <input type="radio" value="2" id="Trifocal_<?php echo attr($W); ?>" name="RX_TYPE_<?php echo attr($W); ?>" <?php
    5806. 

  5806.                             if ($RX_TYPE == '2') {
    5807. 

  5807.                                 echo 'checked="checked"';
    5808. 

  5808.                             } ?> /></span><br /><br />
    5809. 

  5809.                             <label for="Progressive_<?php echo attr($W); ?>" class="input-helper input-helper--checkbox"><?php echo xlt('Prog.{{Progressive lenses}}'); ?></label>
    5810. 

  5810.                             <input type="radio" value="3" id="Progressive_<?php echo attr($W); ?>" name="RX_TYPE_<?php echo attr($W); ?>" <?php
    5811. 

  5811.                             if ($RX_TYPE == '3') {
    5812. 

  5812.                                 echo 'checked="checked"';
    5813. 

  5813.                             } ?> /></span><br />
    5814. 

  5814.                           </td>
    5815. 

  5815.                         </tr>
    5816. 

  5816.                         <tr>
    5817. 

  5817.                           <td rowspan="2"><?php echo xlt('Dist{{distance}}'); ?></td>
    5818. 

  5818.                           <td style="font-weight:bold;"><?php echo xlt('OD{{right eye}}'); ?>:</td>
    5819. 

  5819.                           <td><?php echo ${"ODSPH_$W"}; ?><input type="text" class="sphere" id="ODSPH_<?php echo attr($W); ?>" name="ODSPH_<?php echo attr($W); ?>"  value="<?php echo attr($ODSPH); ?>" tabindex="<?php echo attr($W); ?>0100"></td>
    5820. 

  5820.                           <td><input type="text" class="cylinder" id="ODCYL_<?php echo attr($W); ?>" name="ODCYL_<?php echo attr($W); ?>"  value="<?php echo attr($ODCYL); ?>" tabindex="<?php echo attr($W); ?>0101"></td>
    5821. 

  5821.                           <td><input type="text" class="axis" id="ODAXIS_<?php echo attr($W); ?>" name="ODAXIS_<?php echo attr($W); ?>" value="<?php echo attr($ODAXIS); ?>" tabindex="<?php echo attr($W); ?>0102"></td>
    5822. 

  5822.                           <td><input type="text" class="acuity" id="ODVA_<?php echo attr($W); ?>" name="ODVA_<?php echo attr($W); ?>" value="<?php echo attr($ODVA); ?>" tabindex="<?php echo attr($W); ?>0108"></td>
    5823. 

  5823. 

  5824.                           <td name="W_wide"></td>
    5825. 

  5825.                           <td name="W_wide"><input type="text" class="prism" id="ODHPD_<?php echo attr($W); ?>" name="ODHPD_<?php echo attr($W); ?>" value="<?php echo attr($ODHPD); ?>" tabindex="<?php echo attr($W); ?>0112"></td>
    5826. 

  5826.                           <td name="W_wide"><input type="text" class="prism" id="ODHBASE_<?php echo attr($W); ?>" name="ODHBASE_<?php echo attr($W); ?>" value="<?php echo attr($ODHBASE); ?>" tabindex="<?php echo attr($W); ?>0114"></td>
    5827. 

  5827.                           <td name="W_wide"><input type="text" class="prism" id="ODVPD_<?php echo attr($W); ?>" name="ODVPD_<?php echo attr($W); ?>" value="<?php echo attr($ODVPD); ?>" tabindex="<?php echo attr($W); ?>0116"></td>
    5828. 

  5828.                           <td name="W_wide"><input type="text" class="prism" id="ODVBASE_<?php echo attr($W); ?>" name="ODVBASE_<?php echo attr($W); ?>" value="<?php echo attr($ODVBASE); ?>" tabindex="<?php echo attr($W); ?>0118"></td>
    5829. 

  5829.                           <td name="W_wide"><input type="text" class="prism" id="ODSLABOFF_<?php echo attr($W); ?>" name="ODSLABOFF_<?php echo attr($W); ?>" value="<?php echo attr($ODSLABOFF); ?>" tabindex="<?php echo attr($W); ?>0120"></td>
    5830. 

  5830.                           <td name="W_wide"><input type="text" class="prism" id="ODVERTEXDIST_<?php echo attr($W); ?>" name="ODVERTEXDIST_<?php echo attr($W); ?>" value="<?php echo attr($ODVERTEXDIST); ?>" tabindex="<?php echo attr($W); ?>0122"></td>
    5831. 

  5831.                           <td name="W_wide"><input type="text" class="prism" id="ODMPDD_<?php echo attr($W); ?>" name="ODMPDD_<?php echo attr($W); ?>" value="<?php echo attr($ODMPDD); ?>" tabindex="<?php echo attr($W); ?>0124"></td>
    5832. 

  5832.                           <td name="W_wide"><input type="text" class="prism" id="ODMPDN_<?php echo attr($W); ?>" name="ODMPDN_<?php echo attr($W); ?>" value="<?php echo attr($ODMPDN); ?>" tabindex="<?php echo attr($W); ?>0126"></td>
    5833. 

  5833.                         </tr>
    5834. 

  5834.                         <tr>
    5835. 

  5835.                           <td style="font-weight:bold;"><?php echo xlt('OS{{left eye}}'); ?>:</td>
    5836. 

  5836.                           <td><input type="text" class="sphere" id="OSSPH_<?php echo attr($W); ?>" name="OSSPH_<?php echo attr($W); ?>" value="<?php echo attr($OSSPH); ?>" tabindex="<?php echo attr($W); ?>0103"></td>
    5837. 

  5837.                           <td><input type="text" class="cylinder" id="OSCYL_<?php echo attr($W); ?>" name="OSCYL_<?php echo attr($W); ?>" value="<?php echo attr($OSCYL); ?>" tabindex="<?php echo attr($W); ?>0104"></td>
    5838. 

  5838.                           <td><input type="text" class="axis" id="OSAXIS_<?php echo attr($W); ?>" name="OSAXIS_<?php echo attr($W); ?>" value="<?php echo attr($OSAXIS); ?>" tabindex="<?php echo attr($W); ?>0105"></td>
    5839. 

  5839.                           <td><input type="text" class="acuity" id="OSVA_<?php echo attr($W); ?>" name="OSVA_<?php echo attr($W); ?>" value="<?php echo attr($OSVA); ?>" tabindex="<?php echo attr($W); ?>0109"></td>
    5840. 

  5840. 

  5841.                           <td name="W_wide"></td>
    5842. 

  5842.                           <td name="W_wide"><input type="text" class="prism" id="OSHPD_<?php echo attr($W); ?>" name="OSHPD_<?php echo attr($W); ?>" value="<?php echo attr($OSHPD); ?>" tabindex="<?php echo attr($W); ?>0113"></td>
    5843. 

  5843.                           <td name="W_wide"><input type="text" class="prism" id="OSHBASE_<?php echo attr($W); ?>" name="OSHBASE_<?php echo attr($W); ?>" value="<?php echo attr($OSHBASE); ?>" tabindex="<?php echo attr($W); ?>0115"></td>
    5844. 

  5844.                           <td name="W_wide"><input type="text" class="prism" id="OSVPD_<?php echo attr($W); ?>" name="OSVPD_<?php echo attr($W); ?>" value="<?php echo attr($OSVPD); ?>" tabindex="<?php echo attr($W); ?>0117"></td>
    5845. 

  5845.                           <td name="W_wide"><input type="text" class="prism" id="OSVBASE_<?php echo attr($W); ?>" name="OSVBASE_<?php echo attr($W); ?>" value="<?php echo attr($OSVBASE); ?>" tabindex="<?php echo attr($W); ?>0119"></td>
    5846. 

  5846.                           <td name="W_wide"><input type="text" class="prism" id="OSSLABOFF_<?php echo attr($W); ?>" name="OSSLABOFF_<?php echo attr($W); ?>" value="<?php echo attr($OSSLABOFF); ?>" tabindex="<?php echo attr($W); ?>0121"></td>
    5847. 

  5847.                           <td name="W_wide"><input type="text" class="prism" id="OSVERTEXDIST_<?php echo attr($W); ?>" name="OSVERTEXDIST_<?php echo attr($W); ?>" value="<?php echo attr($OSVERTEXDIST); ?>" tabindex="<?php echo attr($W); ?>0123"></td>
    5848. 

  5848.                           <td name="W_wide"><input type="text" class="prism" id="OSMPDD_<?php echo attr($W); ?>" name="OSMPDD_<?php echo attr($W); ?>" value="<?php echo attr($OSMPDD); ?>" tabindex="<?php echo attr($W); ?>0125"></td>
    5849. 

  5849.                           <td name="W_wide"><input type="text" class="prism" id="OSMPDN_<?php echo attr($W); ?>" name="OSMPDN_<?php echo attr($W); ?>" value="<?php echo attr($OSMPDN); ?>" tabindex="<?php echo attr($W); ?>0127"></td>
    5850. 

  5850.                         </tr>
    5851. 

  5851.                         <tr class="WNEAR">
    5852. 

  5852.                           <td rowspan=2><?php echo xlt('Mid{{middle Rx strength}}'); ?>/<br /><?php echo xlt('Near'); ?></td>
    5853. 

  5853.                           <td style="font-weight:bold;"><?php echo xlt('OD{{right eye}}'); ?>:</td>
    5854. 

  5854.                             <?php echo '<input type="hidden" name="RXStart_' . $W . ' id="RXStart_' . $W . '" value="' . attr($RX_TYPE) . '">'; ?>
    5855. 

  5855.                           <td class="WMid"><input type="text" class="presbyopia" id="ODMIDADD_<?php echo attr($W); ?>" name="ODMIDADD_<?php echo attr($W); ?>" value="<?php echo attr($ODMIDADD); ?>"></td>
    5856. 

  5856.                           <td class="WAdd2"><input type="text" class="presbyopia" id="ODADD_<?php echo attr($W); ?>" name="ODADD_<?php echo attr($W); ?>" value="<?php echo attr($ODADD); ?>" tabindex="<?php echo attr($W); ?>0106"></td>
    5857. 

  5857.                           <td></td>
    5858. 

  5858.                           <td><input class="jaeger" type="text" id="NEARODVA_<?php echo attr($W); ?>" name="NEARODVA_<?php echo attr($W); ?>" value="<?php echo attr($NEARODVA); ?>" tabindex="<?php echo attr($W); ?>0110"></td>
    5859. 

  5859. 

  5860.                           <td name="W_wide"></td>
    5861. 

  5861. 

  5862.                           <td name="W_wide" title="<?php echo xla('Binocular Pupillary Diameter - Distance'); ?>"><?php echo xlt('PD-D{{abbreviation for Binocular Pupillary Diameter - Distance}}'); ?></td>
    5863. 

  5863.                           <td name="W_wide" title="<?php echo xla('Binocular Pupillary Diameter - Near'); ?>"><?php echo xlt('PD-N{{abbreviation for Binocular Pupillary Diameter - Near}}'); ?></td>
    5864. 

  5864.                           <td name="W_wide" title="<?php echo xla('Lens Material'); ?>" colspan="2">
    5865. 

  5865.                             <a href="<?php echo $GLOBALS['webroot']; ?>/interface/super/edit_list.php?list_id=Eye_Lens_Material" target="RTop"
    5866. 

  5866.                                   title="<?php echo xla('Click here to edit list of available Lens Materials'); ?>"
    5867. 

  5867.                                   name="Lens_mat"><span class="underline"><?php echo xlt('Lens Material'); ?></span> <i class="fa fa-pencil-alt-alt fa-fw"></i> </a>
    5868. 

  5868.                           </td>
    5869. 

  5869.                           <td name="W_wide2" colspan="4" rowspan="4">
    5870. 

  5870.                             <a href="<?php echo $GLOBALS['webroot']; ?>/interface/super/edit_list.php?list_id=Eye_Lens_Treatments" target="RTop"
    5871. 

  5871.                                   title="<?php echo xla('Click here to edit list of available Lens Treatment Options'); ?>"
    5872. 

  5872.                                   name="Lens_txs"><span class="underline"><?php echo xlt('Lens Treatments'); ?></span> <i class="fa fa-pencil-alt-alt fa-fw"></i> </a>
    5873. 

  5873.                             <br />
    5874. 

  5874.                             <?php  echo generate_lens_treatments($W, $LENS_TREATMENTS); ?>
    5875. 

  5875.                           </td>
    5876. 

  5876.                         </tr>
    5877. 

  5877.                         <tr class="WNEAR">
    5878. 

  5878.                           <td style="font-weight:bold;"><?php echo xlt('OS{{left eye}}'); ?>:</td>
    5879. 

  5879.                           <td class="WMid"><input type="text" class="presbyopia" id="OSMIDADD_<?php echo attr($W); ?>" name="OSMIDADD_<?php echo attr($W); ?>" value="<?php echo attr($OSMIDADD); ?>"></td>
    5880. 

  5880.                           <td class="WAdd2"><input type="text" class="presbyopia" id="OSADD_<?php echo attr($W); ?>" name="OSADD_<?php echo attr($W); ?>" value="<?php echo attr($OSADD); ?>" tabindex="<?php echo attr($W); ?>0107"></td>
    5881. 

  5881.                           <td></td>
    5882. 

  5882.                           <td><input class="jaeger" type="text" id="NEAROSVA_<?php echo attr($W); ?>" name="NEAROSVA_<?php echo attr($W); ?>" value="<?php echo attr($NEAROSVA); ?>" tabindex="<?php echo attr($W); ?>0111"></td>
    5883. 

  5883. 

  5884.                           <td name="W_wide"></td>
    5885. 

  5885. 

  5886.                           <td name="W_wide"><input type="text" class="prism" id="BPDD_<?php echo attr($W); ?>" name="BPDD_<?php echo attr($W); ?>" value="<?php echo attr($BPDD); ?>" tabindex="<?php echo attr($W); ?>0128"></td>
    5887. 

  5887.                           <td name="W_wide"><input type="text" class="prism" id="BPDN_<?php echo attr($W); ?>" name="BPDN_<?php echo attr($W); ?>" value="<?php echo attr($BPDN); ?>" tabindex="<?php echo attr($W); ?>0129"></td>
    5888. 

  5888.                           <td name="W_wide" title="<?php echo xla('Lens Material Options'); ?>" colspan="2">
    5889. 

  5889.                             <?php echo generate_select_list("LENS_MATERIAL_" . $W, "Eye_Lens_Material", "$LENS_MATERIAL", '', ' ', '', 'restoreSession;submit_form();', '', array('style' => 'width:120px','tabindex' => $W . '0130')); ?>
    5890. 

  5890.                           </td>
    5891. 

  5891.                         </tr>
    5892. 

  5892.                         <tr>
    5893. 

  5893.                           <td style="font-weight:bold;" colspan="2"><?php echo xlt('Comments'); ?>:
    5894. 

  5894.                           </td>
    5895. 

  5895.                           <td colspan="4" class="up"></td>
    5896. 

  5896.                         </tr>
    5897. 

  5897.                         <tr>
    5898. 

  5898.                           <td colspan="6">
    5899. 

  5899.                             <textarea id="COMMENTS_<?php echo attr($W); ?>" name="COMMENTS_W" tabindex="<?php echo attr($W); ?>0110"><?php echo text($COMMENTS); ?></textarea>
    5900. 

  5900.                           </td>
    5901. 

  5901.                           <td colspan="2">
    5902. 

  5902.                           </td>
    5903. 

  5903.                         </tr>
    5904. 

  5904.                       </table>
    5905. 

  5905.     </div>
    5906. 

  5906.     <?php
    5907. 

  5907.     $output = ob_get_contents();
    5908. 

  5908.     ob_end_clean();
    5909. 

  5909.     return $output;
    5910. 

  5910. }
    5911. 

  5911. 

  5912. /**
    5913. 

  5913.  * Function to display Refractive Data for an encounter
    5914. 

  5914.  * @param array $encounter_data, visit data for a given encounter
    5915. 

  5915.  */
    5916. 

  5916. function display_refractive_data($encounter_data)
    5917. 

  5917. {
    5918. 

  5918.     @extract($encounter_data);
    5919. 

  5919.     $count_rx = '0';
    5920. 

  5920. 

  5921.     $query = "select * from form_eye_mag_wearing where PID=? and FORM_ID=? ORDER BY RX_NUMBER";
    5922. 

  5922. 

  5923.     $wear = sqlStatement($query, array($pid,$id));
    5924. 

  5924.     while ($wearing = sqlFetchArray($wear)) {
    5925. 

  5925.         $count_rx++;
    5926. 

  5926.         ${"display_W_$count_rx"} = '';
    5927. 

  5927.         ${"ODSPH_$count_rx"} = $wearing['ODSPH'];
    5928. 

  5928.         ${"ODCYL_$count_rx"} = $wearing['ODCYL'];
    5929. 

  5929.         ${"ODAXIS_$count_rx"} = $wearing['ODAXIS'];
    5930. 

  5930.         ${"OSSPH_$count_rx"} = $wearing['OSSPH'];
    5931. 

  5931.         ${"OSCYL_$count_rx"} = $wearing['OSCYL'];
    5932. 

  5932.         ${"OSAXIS_$count_rx"} = $wearing['OSAXIS'];
    5933. 

  5933.         ${"ODMIDADD_$count_rx"} = $wearing['ODMIDADD'];
    5934. 

  5934.         ${"OSMIDADD_$count_rx"} = $wearing['OSMIDADD'];
    5935. 

  5935.         ${"ODADD_$count_rx"} = $wearing['ODADD'];
    5936. 

  5936.         ${"OSADD_$count_rx"} = $wearing['OSADD'];
    5937. 

  5937.         ${"ODVA_$count_rx"} = $wearing['ODVA'];
    5938. 

  5938.         ${"OSVA_$count_rx"} = $wearing['OSVA'];
    5939. 

  5939.         ${"ODNEARVA_$count_rx"} = $wearing['ODNEARVA'];
    5940. 

  5940.         ${"OSNEARVA_$count_rx"} = $wearing['OSNEARVA'];
    5941. 

  5941.         ${"ODPRISM_$count_rx"} = $wearing['ODPRISM'];
    5942. 

  5942.         ${"OSPRISM_$count_rx"} = $wearing['OSPRISM'];
    5943. 

  5943.         ${"COMMENTS_$count_rx"} = $wearing['COMMENTS'];
    5944. 

  5944.         ${"W_$count_rx"} = '1';
    5945. 

  5945.         ${"RX_TYPE_$count_rx"} = $wearing['RX_TYPE'];
    5946. 

  5946.     }
    5947. 

  5947. 

  5948.     if (!$ODVA || $OSVA || $ARODSPH || $AROSSPH || $MRODSPH || $MROSSPH || $CRODSPH || $CROSSPH || $CTLODSPH || $CTLOSSPH) { ?>
    5949. 

  5949.         <table class="refraction_tables">
    5950. 

  5950.            <tr class="text-center bold underline" style="background-color: #F3EEC7;">
    5951. 

  5951.                 <td ><?php echo oeFormatShortDate($date); ?></td>
    5952. 

  5952.                 <td ><?php echo xlt('Eye'); ?></td>
    5953. 

  5953.                 <td ><?php echo xlt('Sph{{Sphere}}'); ?></td>
    5954. 

  5954.                 <td ><?php echo xlt('Cyl{{Cylinder}}'); ?></td>
    5955. 

  5955.                 <td ><?php echo xlt('Axis{{Axis of a glasses prescription}}'); ?></td>
    5956. 

  5956.                 <td ><?php echo xlt('Prism'); ?></td>
    5957. 

  5957.                 <td ><?php echo xlt('Acuity'); ?></td>
    5958. 

  5958.                 <td ><?php echo xlt('Mid{{Middle Distance Add}}'); ?></td>
    5959. 

  5959.                 <td ><?php echo xlt('ADD{{Near Add}}'); ?></td>
    5960. 

  5960.                 <td ><?php echo xlt('Acuity'); ?></td>
    5961. 

  5961.             </tr>
    5962. 

  5962.             <?php
    5963. 

  5963.                //$count_rx++;
    5964. 

  5964.             for ($i = 1; $i <= $count_rx; $i++) {
    5965. 

  5965.                 if (${"RX_TYPE_$i"} == "0") {
    5966. 

  5966.                     $RX_TYPE = '';
    5967. 

  5967.                 } elseif (${"RX_TYPE_$i"} == "1") {
    5968. 

  5968.                     $RX_TYPE = xlt('Bifocals');
    5969. 

  5969.                 } elseif (${"RX_TYPE_$i"} == "2") {
    5970. 

  5970.                     $RX_TYPE = xlt('Trifocals');
    5971. 

  5971.                 } elseif (${"RX_TYPE_$i"} == "3") {
    5972. 

  5972.                     $RX_TYPE = xlt('Progressive');
    5973. 

  5973.                 }
    5974. 

  5974.                 ?>
    5975. 

  5975.                 <tr>
    5976. 

  5976.                     <td class="bold"><?php echo xlt('Wear RX') . " #" . $i . ": "; ?></td>
    5977. 

  5977.                     <td class="bold"><?php echo xlt('OD{{right eye}}'); ?></td>
    5978. 

  5978.                     <td ><?php echo (text(${"ODSPH_$i"}) ?: "-"); ?></td>
    5979. 

  5979.                     <td ><?php echo (text(${"ODCYL_$i"}) ?: "-"); ?></td>
    5980. 

  5980.                     <td ><?php echo (text(${"ODAXIS_$i"}) ?: "-"); ?></td>
    5981. 

  5981.                     <td ><?php echo (text(${"ODPRISM_$i"}) ?: "-"); ?></td>
    5982. 

  5982.                     <td ><?php echo (text(${"ODVA_$i"}) ?: "-"); ?></td>
    5983. 

  5983.                     <td ><?php echo (text(${"ODMIDADD_$i"}) ?: "-"); ?></td>
    5984. 

  5984.                     <td ><?php echo (text(${"ODADD_$i"}) ?: "-"); ?></td>
    5985. 

  5985.                     <td ><?php echo (text(${"ODNEARVA_$i"}) ?: "-"); ?></td>
    5986. 

  5986.                    </tr>
    5987. 

  5987.                    <tr>
    5988. 

  5988.                     <td><?php echo $RX_TYPE; ?></td>
    5989. 

  5989.                     <td class="bold"><?php echo xlt('OS{{left eye}}'); ?></td>
    5990. 

  5990.                     <td ><?php echo (text(${"OSSPH_$i"}) ?: "-"); ?></td>
    5991. 

  5991.                     <td ><?php echo (text(${"OSCYL_$i"}) ?: "-"); ?></td>
    5992. 

  5992.                     <td ><?php echo (text(${"OSAXIS_$i"}) ?: "-"); ?></td>
    5993. 

  5993.                     <td ><?php echo (text(${"OSPRISM_$i"}) ?: "-");  ?></td>
    5994. 

  5994.                     <td ><?php echo (text(${"OSVA_$i"}) ?: "-"); ?></td>
    5995. 

  5995.                     <td ><?php echo (text(${"OSMIDADD_$i"}) ?: "-"); ?></td>
    5996. 

  5996.                     <td ><?php echo (text(${"OSADD_$i"}) ?: "-"); ?></td>
    5997. 

  5997.                     <td ><?php echo (text(${"OSNEARVA_$i"}) ?: "-"); ?></td>
    5998. 

  5998.                    </tr>
    5999. 

  5999.                     <?php
    6000. 

  6000.                     if (${"COMMENTS_$i"}) {
    6001. 

  6001.                         ?>
    6002. 

  6002.                         <tr>
    6003. 

  6003.                            <td></td>
    6004. 

  6004.                            <td colspan="2"><?php echo xlt('Comments'); ?>:</td>
    6005. 

  6005.                            <td colspan="7"><?php echo text(${"COMMENTS_$i"}); ?></td>
    6006. 

  6006.                         </tr>
    6007. 

  6007.                         <?php
    6008. 

  6008.                     }
    6009. 

  6009.                     ?><tr><td colspan="10">--------------------------------------------------------</td></tr>
    6010. 

  6010.                     <?php
    6011. 

  6011.             }
    6012. 

  6012. 

  6013.             if ($ARODSPH || $AROSSPH) { ?>
    6014. 

  6014.                    <tr style="border-bottom:1pt solid black;">
    6015. 

  6015.                        <td class="bold"><?php echo xlt('AutoRef'); ?></td>
    6016. 

  6016.                        <td class="bold"><?php echo xlt('OD{{right eye}}'); ?></td>
    6017. 

  6017.                        <td ><?php echo (text($ARODSPH) ?: "-");  ?></td>
    6018. 

  6018.                        <td ><?php echo (text($ARODCYL) ?: "-");  ?></td>
    6019. 

  6019.                        <td ><?php echo (text($ARODAXIS) ?: "-");  ?></td>
    6020. 

  6020.                        <td ><?php echo (text($ARODPRISM) ?: "-");  ?></td>
    6021. 

  6021.                        <td ><?php echo (text($ARODVA) ?: "-");  ?></td>
    6022. 

  6022.                        <td >-</td>
    6023. 

  6023.                        <td ><?php echo (text($ARODADD) ?: "-");  ?></td>
    6024. 

  6024.                        <td ><?php echo (text($ARNEARODVA) ?: "-"); ?></td>
    6025. 

  6025.                    </tr>
    6026. 

  6026.                    <tr>
    6027. 

  6027.                        <td>&nbsp;</td>
    6028. 

  6028.                        <td class="bold"><?php echo xlt('OS{{left eye}}'); ?></td>
    6029. 

  6029.                        <td ><?php echo (text($AROSSPH) ?: "-");  ?></td>
    6030. 

  6030.                        <td ><?php echo (text($AROSCYL) ?: "-");  ?></td>
    6031. 

  6031.                        <td ><?php echo (text($AROSAXIS) ?: "-");  ?></td>
    6032. 

  6032.                        <td ><?php echo (text($AROSPRISM) ?: "-");  ?></td>
    6033. 

  6033.                        <td ><?php echo (text($AROSVA) ?: "-");  ?></td>
    6034. 

  6034.                        <td >-</td>
    6035. 

  6035.                        <td ><?php echo (text($AROSADD) ?: "-");  ?></td>
    6036. 

  6036.                        <td ><?php echo (text($ARNEAROSVA) ?: "-"); ?></td>
    6037. 

  6037.                    </tr>
    6038. 

  6038.                     <?php
    6039. 

  6039.                     if (${"COMMENTS_$i"}) {
    6040. 

  6040.                         ?>
    6041. 

  6041.                         <tr>
    6042. 

  6042.                            <td></td><td></td>
    6043. 

  6043.                            <td>Comments:</td>
    6044. 

  6044.                            <td colspan="7"><?php echo text(${"COMMENTS_$i"}); ?></td>
    6045. 

  6045.                         </tr>
    6046. 

  6046.                         <?php
    6047. 

  6047.                     }?>
    6048. 

  6048.                    <tr><td colspan="10">--------------------------------------------------------</td></tr>
    6049. 

  6049.                     <?php
    6050. 

  6050.             }
    6051. 

  6051. 

  6052.             if ($MRODSPH || $MROSSPH) { ?>
    6053. 

  6053.                    <tr>
    6054. 

  6054.                        <td class="bold"><?php echo xlt('MR (Dry)'); ?></td>
    6055. 

  6055.                        <td class="bold"><?php echo xlt('OD{{right eye}}'); ?></td>
    6056. 

  6056.                        <td ><?php echo (text($MRODSPH) ?: "-");  ?></td>
    6057. 

  6057.                        <td ><?php echo (text($MRODCYL) ?: "-");  ?></td>
    6058. 

  6058.                        <td ><?php echo (text($MRODAXIS) ?: "-");  ?></td>
    6059. 

  6059.                        <td ><?php echo (text($MRODPRISM) ?: "-");  ?></td>
    6060. 

  6060.                        <td ><?php echo (text($MRODVA) ?: "-");  ?></td>
    6061. 

  6061.                        <td >-</td>
    6062. 

  6062.                        <td ><?php echo (text($MRODADD) ?: "-");  ?></td>
    6063. 

  6063.                        <td ><?php echo (text($MRNEARODVA) ?: "-"); ?></td>
    6064. 

  6064.                    </tr>
    6065. 

  6065.                    <tr></tr>
    6066. 

  6066.                    <tr>
    6067. 

  6067.                        <td></td>
    6068. 

  6068.                        <td class="bold"><?php echo xlt('OS{{left eye}}'); ?></td>
    6069. 

  6069.                        <td ><?php echo (text($MROSSPH) ?: "-");  ?></td>
    6070. 

  6070.                        <td ><?php echo (text($MROSCYL) ?: "-");  ?></td>
    6071. 

  6071.                        <td ><?php echo (text($MROSAXIS) ?: "-");  ?></td>
    6072. 

  6072.                        <td ><?php echo (text($MROSPRISM) ?: "-");  ?></td>
    6073. 

  6073.                        <td ><?php echo (text($MROSVA) ?: "-");  ?></td>
    6074. 

  6074.                        <td >-</td>
    6075. 

  6075.                        <td ><?php echo (text($MROSADD) ?: "-");  ?></td>
    6076. 

  6076.                        <td ><?php echo (text($MRNEAROSVA) ?: "-"); ?></td>
    6077. 

  6077.                    </tr>
    6078. 

  6078.                 <tr><td colspan="10">--------------------------------------------------------</td></tr>
    6079. 

  6079.                     <?php
    6080. 

  6080.             }
    6081. 

  6081. 

  6082.             if ($CRODSPH || $CROSSPH) { ?>
    6083. 

  6083.                    <tr>
    6084. 

  6084.                        <td class="bold"><?php echo xlt('CR (Wet)'); ?></td>
    6085. 

  6085.                        <td class="bold"><?php echo xlt('OD{{right eye}}'); ?></td>
    6086. 

  6086.                        <td ><?php echo (text($CRODSPH) ?: "-");  ?></td>
    6087. 

  6087.                        <td ><?php echo (text($CRODCYL) ?: "-");  ?></td>
    6088. 

  6088.                        <td ><?php echo (text($CRODAXIS) ?: "-");  ?></td>
    6089. 

  6089.                        <td ><?php echo (text($CRODPRISM) ?: "-");  ?></td>
    6090. 

  6090.                        <td ><?php echo (text($CRODVA) ?: "-");  ?></td>
    6091. 

  6091.                        <td >-</td>
    6092. 

  6092.                        <td ><?php echo (text($CRODADD) ?: "-");  ?></td>
    6093. 

  6093.                        <td ><?php echo (text($CRNEARODVA) ?: "-"); ?></td>
    6094. 

  6094.                    </tr>
    6095. 

  6095.                    <tr>
    6096. 

  6096.                        <td></td>
    6097. 

  6097.                        <td class="bold"><?php echo xlt('OS{{left eye}}'); ?></td>
    6098. 

  6098.                        <td ><?php echo (text($CROSSPH) ?: "-");  ?></td>
    6099. 

  6099.                        <td ><?php echo (text($CROSCYL) ?: "-");  ?></td>
    6100. 

  6100.                        <td ><?php echo (text($CROSAXIS) ?: "-");  ?></td>
    6101. 

  6101.                        <td ><?php echo (text($CROSPRISM) ?: "-");  ?>&nbsp;</td>
    6102. 

  6102.                        <td ><?php echo (text($CROSVA) ?: "-");  ?></td>
    6103. 

  6103.                        <td >-</td>
    6104. 

  6104.                        <td ><?php echo (text($CROSADD) ?: "-");  ?></td>
    6105. 

  6105.                        <td ><?php echo (text($CRNEAROSVA) ?: "-"); ?></td>
    6106. 

  6106.                    </tr>
    6107. 

  6107.                 <tr><td colspan="10">--------------------------------------------------------</td></tr>
    6108. 

  6108.                     <?php
    6109. 

  6109.             }
    6110. 

  6110. 

  6111.             if ($CTLODSPH || $CTLOSSPH) { ?>
    6112. 

  6112.                    <tr class="bold text-center underline">
    6113. 

  6113.                        <td></td>
    6114. 

  6114.                        <td><?php echo xlt('Eye'); ?></td>
    6115. 

  6115.                        <td><?php echo xlt('Sph{{Sphere}}'); ?></td>
    6116. 

  6116.                        <td><?php echo xlt('Cyl{{Cylinder}}'); ?></td>
    6117. 

  6117.                        <td><?php echo xlt('Axis{{Axis of a glasses prescription}}'); ?></td>
    6118. 

  6118.                        <td><?php echo xlt('BC{{Base Curve}}'); ?></td>
    6119. 

  6119.                        <td><?php echo xlt('Diam{{Diameter}}'); ?></td>
    6120. 

  6120.                        <td></td>
    6121. 

  6121.                        <td><?php echo xlt('ADD'); ?></td>
    6122. 

  6122.                        <td><?php echo xlt('Acuity'); ?></td>
    6123. 

  6123.                    </tr>
    6124. 

  6124.                    <tr>
    6125. 

  6125.                        <td class="bold"><?php echo xlt('CTL'); ?></td>
    6126. 

  6126.                        <td class="bold"><?php echo xlt('OD{{right eye}}'); ?></td>
    6127. 

  6127.                        <td ><?php echo (text($CTLODSPH) ?: "-");  ?></td>
    6128. 

  6128.                        <td ><?php echo (text($CTLODCYL) ?: "-");  ?></td>
    6129. 

  6129.                        <td ><?php echo (text($CTLODAXIS) ?: "-");  ?></td>
    6130. 

  6130.                        <td ><?php echo (text($CTLODBC) ?: "-");  ?></td>
    6131. 

  6131.                        <td ><?php echo (text($CTLODDIAM) ?: "-");  ?></td>
    6132. 

  6132.                        <td></td>
    6133. 

  6133.                        <td ><?php echo (text($CTLODADD) ?: "-");  ?></td>
    6134. 

  6134.                        <td ><?php echo (text($CTLODVA) ?: "-"); ?></td>
    6135. 

  6135.                    </tr>
    6136. 

  6136.                     <?php if (!empty($CTLODQUANTITY)) { ?>
    6137. 

  6137.                        <tr>
    6138. 

  6138.                            <td></td>
    6139. 

  6139.                            <td colspan="8" class="text-left" style="font-size:10px;"><?php echo text($CTLODQUANTITY); ?></td>
    6140. 

  6140.                        </tr>
    6141. 

  6141.                     <?php } ?>
    6142. 

  6142.                    <tr style="font-size:0.6em;">
    6143. 

  6143.                        <td></td>
    6144. 

  6144.                        <td colspan="3" class="bold text-left" style="font-size:10px;"><?php echo xlt('Brand'); ?>:<?php echo (text($CTLBRANDOD) ?: "-");  ?></td>
    6145. 

  6145.                        <td colspan="2" class="bold text-left" style="font-size:10px;"><?php echo xlt('by{{made by/manufacturer}}'); ?> <?php echo (text($CTLMANUFACTUREROD) ?: "-");  ?></td>
    6146. 

  6146.                        <td colspan="3" class="bold text-left" style="font-size:10px;"><?php echo xlt('via{{shipped by/supplier}}'); ?> <?php echo (text($CTLSUPPLIEROD) ?: "-");  ?></td>
    6147. 

  6147. 

  6148.                    </tr>
    6149. 

  6149.                    <tr>
    6150. 

  6150.                        <td></td>
    6151. 

  6151.                        <td class="bold"><?php echo xlt('OS{{left eye}}'); ?></td>
    6152. 

  6152.                        <td ><?php echo (text($CTLOSSPH) ?: "-");  ?></td>
    6153. 

  6153.                        <td ><?php echo (text($CTLOSCYL) ?: "-");  ?></td>
    6154. 

  6154.                        <td ><?php echo (text($CTLOSAXIS) ?: "-");  ?></td>
    6155. 

  6155.                        <td ><?php echo (text($CTLOSBC) ?: "-");  ?></td>
    6156. 

  6156.                        <td ><?php echo (text($CTLOSDIAM) ?: "-");  ?></td>
    6157. 

  6157.                        <td></td>
    6158. 

  6158.                        <td ><?php echo (text($CTLOSADD) ?: "-");  ?></td>
    6159. 

  6159.                        <td ><?php echo (text($CTLOSVA) ?: "-"); ?></td>
    6160. 

  6160.                    </tr>
    6161. 

  6161.                    <tr style="font-size:9px;">
    6162. 

  6162.                        <td></td>
    6163. 

  6163.                        <td colspan="3" class="bold text-left" style="font-size:10px;"><?php echo xlt('Brand'); ?>: <?php echo (text($CTLBRANDOS) ?: "-");  ?></td>
    6164. 

  6164.                        <td colspan="2" class="bold text-left" style="font-size:10px;"><?php echo xlt('by{{made by/manufacturer}}'); ?> <?php echo (text($CTLMANUFACTUREROS) ?: "-");  ?></td>
    6165. 

  6165.                        <td colspan="3" class="bold text-left" style="font-size:10px;"><?php echo xlt('via{{shipped by/supplier}}'); ?> <?php echo (text($CTLSUPPLIEROS) ?: "-");  ?></td>
    6166. 

  6166.                    </tr>
    6167. 

  6167.                     <?php if (!empty($CTLOSQUANTITY)) { ?>
    6168. 

  6168.                         <tr>
    6169. 

  6169.                            <td></td>
    6170. 

  6170.                            <td colspan="8" class="text-left" style="font-size:10px;"><?php echo text($CTLOSQUANTITY); ?></td>
    6171. 

  6171.                        </tr>
    6172. 

  6172.                     <?php }
    6173. 

  6173.                     if (!empty($COMMENTS)) { ?>
    6174. 

  6174.                             <tr>
    6175. 

  6175.                                 <td></td>
    6176. 

  6176.                                 <td colspan="8" class="text-left" style="font-size:10px;"><?php echo text($COMMENTS); ?></td>
    6177. 

  6177.                             </tr>
    6178. 

  6178.                                         <?php }
    6179. 

  6179.             }
    6180. 

  6180.             ?>
    6181. 

  6181.             <tr><td colspan="10">--------------------------------------------------------</td></tr>
    6182. 

  6182.         </table>
    6183. 

  6183. 

  6184.         <?php
    6185. 

  6185.     } ?>
    6186. 

  6186. 

  6187.     <?php
    6188. 

  6188.     if ($GLAREODVA || $CONTRASTODVA || $ODK1 || $ODK2 || $LIODVA || $PAMODBA) { ?>
    6189. 

  6189.       <table>
    6190. 

  6190.         <tr>
    6191. 

  6191.           <td id="LayerVision_ADDITIONAL" class="refraction <?php echo $display_Add; ?>" style="padding:10px;font-size:10px;">
    6192. 

  6192.           <table id="Additional" style="padding:5;font-size:10px;">
    6193. 

  6193.             <tr><td colspan="9" style="text-align:left;text-decoration:underline;font-weight:bold;"><?php echo xlt('Additional Data Points'); ?></td></tr>
    6194. 

  6194.             <tr class="bold"><td></td>
    6195. 

  6195.               <td><?php echo xlt('PH{{Pinhole}}'); ?></td>
    6196. 

  6196.               <td><?php echo xlt('PAM{{Potential Acuity Meter}}'); ?></td>
    6197. 

  6197.               <td><?php echo xlt('LI{{Laser Interferometry}}'); ?></td>
    6198. 

  6198.               <td><?php echo xlt('BAT{{Brightness Acuity Testing}}'); ?></td>
    6199. 

  6199.               <td><?php echo xlt('K1{{Keratometry 1}}'); ?></td>
    6200. 

  6200.               <td><?php echo xlt('K2{{Keratometry 2}}'); ?></td>
    6201. 

  6201.               <td><?php echo xlt('Axis{{Axis of a glasses prescription}}'); ?></td>
    6202. 

  6202.             </tr>
    6203. 

  6203.             <tr><td class="bold"><?php echo xlt('OD{{right eye}}'); ?>:</td>
    6204. 

  6204.               <td><?php echo text($PHODVA); ?></td>
    6205. 

  6205.               <td><?php echo text($PAMODVA); ?></td>
    6206. 

  6206.               <td><?php echo text($LIODVA); ?></td>
    6207. 

  6207.               <td><?php echo text($GLAREODVA); ?></td>
    6208. 

  6208.               <td><?php echo text($ODK1); ?></td>
    6209. 

  6209.               <td><?php echo text($ODK2); ?></td>
    6210. 

  6210.               <td><?php echo text($ODK2AXIS); ?></td>
    6211. 

  6211.             </tr>
    6212. 

  6212.             <tr>
    6213. 

  6213.               <td class="bold"><?php echo xlt('OS{{left eye}}'); ?>:</td>
    6214. 

  6214.               <td><?php echo text($PHOSVA); ?></td>
    6215. 

  6215.               <td><?php echo text($PAMOSVA); ?></td>
    6216. 

  6216.               <td><?php echo text($LIOSVA); ?></td>
    6217. 

  6217.               <td><?php echo text($GLAREOSVA); ?></td>
    6218. 

  6218.               <td><?php echo text($OSK1); ?></td>
    6219. 

  6219.               <td><?php echo text($OSK2); ?></td>
    6220. 

  6220.               <td><?php echo text($OSK2AXIS); ?></td>
    6221. 

  6221.             </tr>
    6222. 

  6222.             <tr><td>&nbsp;</td></tr>
    6223. 

  6223.             <tr class="bold">
    6224. 

  6224.               <td></td>
    6225. 

  6225.               <td><?php echo xlt('AxLength{{axial Length}}'); ?></td>
    6226. 

  6226.               <td><?php echo xlt('ACD{{anterior chamber depth}}'); ?></td>
    6227. 

  6227.               <td><?php echo xlt('PD{{pupillary distance}}'); ?></td>
    6228. 

  6228.               <td><?php echo xlt('LT{{lens thickness}}'); ?></td>
    6229. 

  6229.               <td><?php echo xlt('W2W{{white-to-white}}'); ?></td>
    6230. 

  6230.               <td><?php echo xlt('ECL{{equivalent contact lens power at the corneal level}}'); ?></td>
    6231. 

  6231.               <td><?php echo xlt('VABiNoc{{Binocular visual acuity}}'); ?></td>
    6232. 

  6232.             </tr>
    6233. 

  6233.             <tr><td class="bold"><?php echo xlt('OD{{right eye}}'); ?>:</td>
    6234. 

  6234.               <td><?php echo text($ODAXIALLENGTH); ?></td>
    6235. 

  6235.               <td><?php echo text($ODACD); ?></td>
    6236. 

  6236.               <td><?php echo text($ODPDMeasured); ?></td>
    6237. 

  6237.               <td><?php echo text($ODLT); ?></td>
    6238. 

  6238.               <td><?php echo text($ODW2W); ?></td>
    6239. 

  6239.               <td><?php echo text($ODECL); ?></td>
    6240. 

  6240.               <td><?php echo text($VABINOC); ?></td>
    6241. 

  6241.             </tr>
    6242. 

  6242.             <tr>
    6243. 

  6243.               <td class="bold"><?php echo xlt('OS{{left eye}}'); ?>:</td>
    6244. 

  6244.               <td><?php echo text($OSAXIALLENGTH); ?></td>
    6245. 

  6245.               <td><?php echo text($OSACD); ?></td>
    6246. 

  6246.               <td><?php echo text($OSPDMeasured); ?></td>
    6247. 

  6247.               <td><?php echo text($OSLT); ?></td>
    6248. 

  6248.               <td><?php echo text($OSW2W); ?></td>
    6249. 

  6249.               <td><?php echo text($OSECL); ?></td>
    6250. 

  6250.               <!--  <td><input type=text id="pend" name="pend" value="<?php echo text($pend); ?>"></td> -->
    6251. 

  6251.             </tr>
    6252. 

  6252.           </table>
    6253. 

  6253.           </td>
    6254. 

  6254.         </tr>
    6255. 

  6255.       </table>
    6256. 

  6256.         <?php
    6257. 

  6257.     }
    6258. 

  6258. }
    6259. 

  6259. 

  6260. /**
    6261. 

  6261.  * Function to search recursively through a multi-dimensional array for an item
    6262. 

  6262.  * Would be nice if it returned the location in the array too but it it doesn't.
    6263. 

  6263.  * Only returns true or false.
    6264. 

  6264.  * @param $needle
    6265. 

  6265.  * @param $haystack
    6266. 

  6266.  * @param bool $strict
    6267. 

  6267.  * @return bool*
    6268. 

  6268.  */
    6269. 

  6269. function in_array_r($needle, $haystack, $strict = false)
    6270. 

  6270. {
    6271. 

  6271.     if (empty($haystack)) {
    6272. 

  6272.         return false;
    6273. 

  6273.     }
    6274. 

  6274.     foreach ($haystack as $item) {
    6275. 

  6275.         if (($strict ? $item === $needle : $item == $needle) || (is_array($item) && in_array_r($needle, $item, $strict))) {
    6276. 

  6276.             return true;
    6277. 

  6277.         }
    6278. 

  6278.     }
    6279. 

  6279.     return false;
    6280. 

  6280. }
    6281. 

  6281. 

  6282.             /**
    6283. 

  6283.              * Function to recursively search through prior eye appointments
    6284. 

  6284.              * to discover the target IOPS for this patient.
    6285. 

  6285.              *
    6286. 

  6286.              * @param $pid = patient id
    6287. 

  6287.              * @param $id = form_id values are needed for
    6288. 

  6288.              * @param $provider_id = who is the patient's provider is only needed if there is no value anywhere else.
    6289. 

  6289.              * @return array (ODIOPTARGET AND OSIOPTARGET to be saved in this encounter
    6290. 

  6290.              */
    6291. 

  6291. function getIOPTARGETS($pid, $id, $provider_id)
    6292. 

  6292. {
    6293. 

  6293.     //iterate through this patient's encounters to find IOPTARGETS.
    6294. 

  6294.     //if none use provider's default value, or 21.
    6295. 

  6295. 

  6296.     $query = "SELECT ODIOPTARGET, OSIOPTARGET from form_eye_vitals where pid=? and id < ? ORDER BY id DESC";
    6297. 

  6297.     $result = sqlStatement($query, array($pid, $id));
    6298. 

  6298. 

  6299.     while ($row = sqlFetchArray($result)) {
    6300. 

  6300.         if (($row['ODIOPTARGET'] > '0') || ($row['OSIOPTARGET'] > '0')) {
    6301. 

  6301.             return array($row['ODIOPTARGET'], $row['OSIOPTARGET']);
    6302. 

  6302.         }
    6303. 

  6303.     }
    6304. 

  6304.     $query = "SELECT * FROM `list_options`
    6305. 

  6305.             WHERE
    6306. 

  6306.             `list_id` LIKE ? AND
    6307. 

  6307.             (   option_id = 'ODIOPTARGET' OR
    6308. 

  6308.                 option_id = 'OSIOPTARGET'  )
    6309. 

  6309.              ";
    6310. 

  6310.     $result = sqlQuery($query, array("Eye_defaults_" . $provider_id));
    6311. 

  6311.     while ($default_TARGETS = sqlFetchArray($result)) {
    6312. 

  6312.         if ($default_TARGETS['option_id'] == 'ODIOPTARGET') {
    6313. 

  6313.             $ODIOPTARGET = $default_TARGETS["title"];
    6314. 

  6314.         }
    6315. 

  6315.         if ($default_TARGETS['option_id'] == 'OSIOPTARGET') {
    6316. 

  6316.             $OSIOPTARGET = $default_TARGETS["title"];
    6317. 

  6317.         }
    6318. 

  6318.     }
    6319. 

  6319.     if (($ODIOPTARGET > '0') || ($OSIOPTARGET > '0')) {
    6320. 

  6320.         return array($ODIOPTARGET, $OSIOPTARGET);
    6321. 

  6321.     }
    6322. 

  6322.     return array('21','21');
    6323. 

  6323. }
    6324. 

  6324. 

  6325. ?>
    6326. 

  6326.