if ($_POST['W_4'] == '1') { //store W_4 $query = "REPLACE INTO `form_eye_mag_wearing` (`ENCOUNTER` ,`FORM_ID` ,`PID` ,`RX_NUMBER` ,`ODSPH` ,`ODCYL` ,`ODAXIS` ,\n `ODVA` ,`ODADD` ,`ODNEARVA` ,`OSSPH` ,`OSCYL` ,`OSAXIS` ,\n `OSVA` ,`OSADD` ,`OSNEARVA` ,`ODMIDADD` ,`OSMIDADD` ,\n `RX_TYPE` ,`COMMENTS`,\n `ODHPD`,`ODHBASE`,`ODVPD`,`ODVBASE`,`ODSLABOFF`,`ODVERTEXDIST`,\n `OSHPD`,`OSHBASE`,`OSVPD`,`OSVBASE`,`OSSLABOFF`,`OSVERTEXDIST`,\n `ODMPDD`,`ODMPDN`,`OSMPDD`,`OSMPDN`,`BPDD`,`BPDN`,`LENS_MATERIAL`,\n `LENS_TREATMENTS`\n ) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"; $LENS_TREATMENTS_4 = implode("|", $_POST['LENS_TREATMENTS_4']); sqlQuery($query, array($encounter, $form_id, $pid, $rx_number, $_POST['ODSPH_4'], $_POST['ODCYL_4'], $_POST['ODAXIS_4'], $_POST['ODVA_4'], $_POST['ODADD_4'], $_POST['ODNEARVA_4'], $_POST['OSSPH_4'], $_POST['OSCYL_4'], $_POST['OSAXIS_4'], $_POST['OSVA_4'], $_POST['OSADD_4'], $_POST['OSNEARVA_4'], $_POST['ODMIDADD_4'], $_POST['OSMIDADD_4'], 0 + $_POST['RX_TYPE_4'], $_POST['COMMENTS_4'], $_POST['ODHPD_4'], $_POST['ODHBASE_4'], $_POST['ODVPD_4'], $_POST['ODVBASE_4'], $_POST['ODSLABOFF_4'], $_POST['ODVERTEXDIST_4'], $_POST['OSHPD_4'], $_POST['OSHBASE_4'], $_POST['OSVPD_4'], $_POST['OSVBASE_4'], $_POST['OSSLABOFF_4'], $_POST['OSVERTEXDIST_4'], $_POST['ODMPDD_4'], $_POST['ODMPDN_4'], $_POST['OSMPDD_4'], $_POST['OSMPDN_4'], $_POST['BPDD_4'], $_POST['BPDN_4'], $_POST['LENS_MATERIAL_4'], $LENS_TREATMENTS_4)); $rx_number++; } else { $query = "DELETE FROM form_eye_mag_wearing where ENCOUNTER=? and PID=? and FORM_ID=? and RX_NUMBER=?"; sqlQuery($query, array($encounter, $pid, $form_id, '4')); } for ($i = $rx_number; $i < 5; $i++) { $query = "DELETE FROM form_eye_mag_wearing where ENCOUNTER=? and PID=? and FORM_ID=? and RX_NUMBER=?"; sqlQuery($query, array($encounter, $pid, $form_id, $i)); } //now return the obj $send['IMPPLAN_items'] = build_IMPPLAN_items($pid, $form_id); $send['Clinical'] = start_your_engines($_REQUEST); $send['PMH_panel'] = display_PMSFH('2'); $send['right_panel'] = show_PMSFH_panel($PMSFH); $send['PMSFH'] = $PMSFH[0]; echo json_encode($send); exit; } } elseif ($_REQUEST["mode"] == "retrieve") { if ($_REQUEST['PRIORS_query']) { echo display_PRIOR_section($_REQUEST['zone'], $_REQUEST['orig_id'], $_REQUEST['id_to_show'], $pid); exit; } } /** * Save the canvas drawings
/** * This function returns a JSON object to replace a requested section with copy_forward values (3 input values) * It will not replace the drawings with older encounter drawings... Not yet anyway. * * @param string $zone options ALL,EXT,ANTSEG,RETINA,NEURO, EXT_DRAW, ANTSEG_DRAW, RETINA_DRAW, NEURO_DRAW * @param string $form_id is the form_eye_mag.id where the data to carry forward is located * @param string $pid value = patient id * @return true : when called directly outputs the ZONE specific HTML for a prior record + widget for the desired zone */ function copy_forward($zone, $copy_from, $copy_to, $pid) { global $form_id; $query = "select form_encounter.date as encounter_date,form_eye_mag.* from form_eye_mag ,forms,form_encounter\n where\n form_encounter.encounter = forms.encounter and\n form_eye_mag.id=forms.form_id and\n forms.pid =form_eye_mag.pid and\n form_eye_mag.pid=?\n and form_eye_mag.id =? "; $objQuery = sqlQuery($query, array($pid, $copy_from)); if ($zone == "EXT") { $result['RUL'] = $objQuery['RUL']; $result['LUL'] = $objQuery['LUL']; $result['RLL'] = $objQuery['RLL']; $result['LLL'] = $objQuery['LLL']; $result['RBROW'] = $objQuery['RBROW']; $result['LBROW'] = $objQuery['LBROW']; $result['RMCT'] = $objQuery['RMCT']; $result['LMCT'] = $objQuery['LMCT']; $result['RADNEXA'] = $objQuery['RADNEXA']; $result['LADNEXA'] = $objQuery['LADNEXA']; $result['RMRD'] = $objQuery['RMRD']; $result['LMRD'] = $objQuery['LMRD']; $result['RLF'] = $objQuery['RLF']; $result['LLF'] = $objQuery['LLF']; $result['RVFISSURE'] = $objQuery['RVFISSURE']; $result['LVFISSURE'] = $objQuery['LVFISSURE']; $result['RCAROTID'] = $objQuery['RCAROTID']; $result['LCAROTID'] = $objQuery['LCAROTID']; $result['RTEMPART'] = $objQuery['RTEMPART']; $result['LTEMPART'] = $objQuery['LTEMPART']; $result['RCNV'] = $objQuery['RCNV']; $result['LCNV'] = $objQuery['LCNV']; $result['RCNVII'] = $objQuery['RCNVII']; $result['LCNVII'] = $objQuery['LCNVII']; $result['ODSCHIRMER1'] = $objQuery['ODSCHIRMER1']; $result['OSSCHIRMER1'] = $objQuery['OSSCHIRMER1']; $result['ODSCHIRMER2'] = $objQuery['ODSCHIRMER2']; $result['OSSCHIRMER2'] = $objQuery['OSSCHIRMER2']; $result['ODTBUT'] = $objQuery['ODTBUT']; $result['OSTBUT'] = $objQuery['OSTBUT']; $result['OSHERTEL'] = $objQuery['OSHERTEL']; $result['HERTELBASE'] = $objQuery['HERTELBASE']; $result['ODPIC'] = $objQuery['ODPIC']; $result['OSPIC'] = $objQuery['OSPIC']; $result['EXT_COMMENTS'] = $objQuery['EXT_COMMENTS']; $result["json"] = json_encode($result); echo json_encode($result); } elseif ($zone == "ANTSEG") { $result['OSCONJ'] = $objQuery['OSCONJ']; $result['ODCONJ'] = $objQuery['ODCONJ']; $result['ODCORNEA'] = $objQuery['ODCORNEA']; $result['OSCORNEA'] = $objQuery['OSCORNEA']; $result['ODAC'] = $objQuery['ODAC']; $result['OSAC'] = $objQuery['OSAC']; $result['ODLENS'] = $objQuery['ODLENS']; $result['OSLENS'] = $objQuery['OSLENS']; $result['ODIRIS'] = $objQuery['ODIRIS']; $result['OSIRIS'] = $objQuery['OSIRIS']; $result['ODKTHICKNESS'] = $objQuery['ODKTHICKNESS']; $result['OSKTHICKNESS'] = $objQuery['OSKTHICKNESS']; $result['ODGONIO'] = $objQuery['ODGONIO']; $result['OSGONIO'] = $objQuery['OSGONIO']; $result['ODSHRIMER1'] = $objQuery['ODSHIRMER1']; $result['OSSHRIMER1'] = $objQuery['OSSHIRMER1']; $result['ODSHRIMER2'] = $objQuery['ODSHIRMER2']; $result['OSSHRIMER2'] = $objQuery['OSSHIRMER2']; $result['ODTBUT'] = $objQuery['ODTBUT']; $result['OSTBUT'] = $objQuery['OSTBUT']; $result['ANTSEG_COMMENTS'] = $objQuery['ANTSEG_COMMENTS']; $result["json"] = json_encode($result); echo json_encode($result); } elseif ($zone == "RETINA") { $result['ODDISC'] = $objQuery['ODDISC']; $result['OSDISC'] = $objQuery['OSDISC']; $result['ODCUP'] = $objQuery['ODCUP']; $result['OSCUP'] = $objQuery['OSCUP']; $result['ODMACULA'] = $objQuery['ODMACULA']; $result['OSMACULA'] = $objQuery['OSMACULA']; $result['ODVESSELS'] = $objQuery['ODVESSELS']; $result['OSVESSELS'] = $objQuery['OSVESSELS']; $result['ODPERIPH'] = $objQuery['ODPERIPH']; $result['OSPERIPH'] = $objQuery['OSPERIPH']; $result['ODDRAWING'] = $objQuery['ODDRAWING']; $result['OSDRAWING'] = $objQuery['OSDRAWING']; $result['ODCMT'] = $objQuery['ODCMT']; $result['OSCMT'] = $objQuery['OSCMT']; $result['RETINA_COMMENTS'] = $objQuery['RETINA_COMMENTS']; $result["json"] = json_encode($result); echo json_encode($result); } elseif ($zone == "NEURO") { $result['ACT'] = $objQuery['ACT']; $result['ACT5CCDIST'] = $objQuery['ACT5CCDIST']; $result['ACT1CCDIST'] = $objQuery['ACT1CCDIST']; $result['ACT2CCDIST'] = $objQuery['ACT2CCDIST']; $result['ACT3CCDIST'] = $objQuery['ACT3CCDIST']; $result['ACT4CCDIST'] = $objQuery['ACT4CCDIST']; $result['ACT6CCDIST'] = $objQuery['ACT6CCDIST']; $result['ACT7CCDIST'] = $objQuery['ACT7CCDIST']; $result['ACT8CCDIST'] = $objQuery['ACT8CCDIST']; $result['ACT9CCDIST'] = $objQuery['ACT9CCDIST']; $result['ACT10CCDIST'] = $objQuery['ACT10CCDIST']; $result['ACT11CCDIST'] = $objQuery['ACT11CCDIST']; $result['ACT1SCDIST'] = $objQuery['ACT1SCDIST']; $result['ACT2SCDIST'] = $objQuery['ACT2SCDIST']; $result['ACT3SCDIST'] = $objQuery['ACT3SCDIST']; $result['ACT4SCDIST'] = $objQuery['ACT4SCDIST']; $result['ACT5SCDIST'] = $objQuery['ACT5SCDIST']; $result['ACT6SCDIST'] = $objQuery['ACT6SCDIST']; $result['ACT7SCDIST'] = $objQuery['ACT7SCDIST']; $result['ACT8SCDIST'] = $objQuery['ACT8SCDIST']; $result['ACT9SCDIST'] = $objQuery['ACT9SCDIST']; $result['ACT10SCDIST'] = $objQuery['ACT10SCDIST']; $result['ACT11SCDIST'] = $objQuery['ACT11SCDIST']; $result['ACT1SCNEAR'] = $objQuery['ACT1SCNEAR']; $result['ACT2SCNEAR'] = $objQuery['ACT2SCNEAR']; $result['ACT3SCNEAR'] = $objQuery['ACT3SCNEAR']; $result['ACT4SCNEAR'] = $objQuery['ACT4SCNEAR']; $result['ACT5CCNEAR'] = $objQuery['ACT5CCNEAR']; $result['ACT6CCNEAR'] = $objQuery['ACT6CCNEAR']; $result['ACT7CCNEAR'] = $objQuery['ACT7CCNEAR']; $result['ACT8CCNEAR'] = $objQuery['ACT8CCNEAR']; $result['ACT9CCNEAR'] = $objQuery['ACT9CCNEAR']; $result['ACT10CCNEAR'] = $objQuery['ACT10CCNEAR']; $result['ACT11CCNEAR'] = $objQuery['ACT11CCNEAR']; $result['ACT5SCNEAR'] = $objQuery['ACT5SCNEAR']; $result['ACT6SCNEAR'] = $objQuery['ACT6SCNEAR']; $result['ACT7SCNEAR'] = $objQuery['ACT7SCNEAR']; $result['ACT8SCNEAR'] = $objQuery['ACT8SCNEAR']; $result['ACT9SCNEAR'] = $objQuery['ACT9SCNEAR']; $result['ACT10SCNEAR'] = $objQuery['ACT10SCNEAR']; $result['ACT11SCNEAR'] = $objQuery['ACT11SCNEAR']; $result['ACT1CCNEAR'] = $objQuery['ACT1CCNEAR']; $result['ACT2CCNEAR'] = $objQuery['ACT2CCNEAR']; $result['ACT3CCNEAR'] = $objQuery['ACT3CCNEAR']; $result['ACT4CCNEAR'] = $objQuery['ACT4CCNEAR']; $result['ODVF1'] = $objQuery['ODVF1']; $result['ODVF2'] = $objQuery['ODVF2']; $result['ODVF3'] = $objQuery['ODVF3']; $result['ODVF4'] = $objQuery['ODVF4']; $result['OSVF1'] = $objQuery['OSVF1']; $result['OSVF2'] = $objQuery['OSVF2']; $result['OSVF3'] = $objQuery['OSVF3']; $result['OSVF4'] = $objQuery['OSVF4']; $result['MOTILITY_RS'] = $objQuery['MOTILITY_RS']; $result['MOTILITY_RI'] = $objQuery['MOTILITY_RI']; $result['MOTILITY_RR'] = $objQuery['MOTILITY_RR']; $result['MOTILITY_RL'] = $objQuery['MOTILITY_RL']; $result['MOTILITY_LS'] = $objQuery['MOTILITY_LS']; $result['MOTILITY_LI'] = $objQuery['MOTILITY_LI']; $result['MOTILITY_LR'] = $objQuery['MOTILITY_LR']; $result['MOTILITY_LL'] = $objQuery['MOTILITY_LL']; $result['NEURO_COMMENTS'] = $objQuery['NEURO_COMMENTS']; $result['STEREOPSIS'] = $objQuery['STEREOPSIS']; $result['ODNPA'] = $objQuery['ODNPA']; $result['OSNPA'] = $objQuery['OSNPA']; $result['VERTFUSAMPS'] = $objQuery['VERTFUSAMPS']; $result['DIVERGENCEAMPS'] = $objQuery['DIVERGENCEAMPS']; $result['NPC'] = $objQuery['NPC']; $result['DACCDIST'] = $objQuery['DACCDIST']; $result['DACCNEAR'] = $objQuery['DACCNEAR']; $result['CACCDIST'] = $objQuery['CACCDIST']; $result['CACCNEAR'] = $objQuery['CACCNEAR']; $result['ODCOLOR'] = $objQuery['ODCOLOR']; $result['OSCOLOR'] = $objQuery['OSCOLOR']; $result['ODCOINS'] = $objQuery['ODCOINS']; $result['OSCOINS'] = $objQuery['OSCOINS']; $result['ODREDDESAT'] = $objQuery['ODREDDESAT']; $result['OSREDDESAT'] = $objQuery['OSREDDESAT']; $result['ODPUPILSIZE1'] = $objQuery['ODPUPILSIZE1']; $result['ODPUPILSIZE2'] = $objQuery['ODPUPILSIZE2']; $result['ODPUPILREACTIVITY'] = $objQuery['ODPUPILREACTIVITY']; $result['ODAPD'] = $objQuery['ODAPD']; $result['OSPUPILSIZE1'] = $objQuery['OSPUPILSIZE1']; $result['OSPUPILSIZE2'] = $objQuery['OSPUPILSIZE2']; $result['OSPUPILREACTIVITY'] = $objQuery['OSPUPILREACTIVITY']; $result['OSAPD'] = $objQuery['OSAPD']; $result['DIMODPUPILSIZE1'] = $objQuery['DIMODPUPILSIZE1']; $result['DIMODPUPILSIZE2'] = $objQuery['DIMODPUPILSIZE2']; $result['DIMODPUPILREACTIVITY'] = $objQuery['DIMODPUPILREACTIVITY']; $result['DIMOSPUPILSIZE1'] = $objQuery['DIMOSPUPILSIZE1']; $result['DIMOSPUPILSIZE2'] = $objQuery['DIMOSPUPILSIZE2']; $result['DIMOSPUPILREACTIVITY'] = $objQuery['DIMOSPUPILREACTIVITY']; $result['PUPIL_COMMENTS'] = $objQuery['PUPIL_COMMENTS']; $result['ODVFCONFRONTATION1'] = $objQuery['ODVFCONFRONTATION1']; $result['ODVFCONFRONTATION2'] = $objQuery['ODVFCONFRONTATION2']; $result['ODVFCONFRONTATION3'] = $objQuery['ODVFCONFRONTATION3']; $result['ODVFCONFRONTATION4'] = $objQuery['ODVFCONFRONTATION4']; $result['ODVFCONFRONTATION5'] = $objQuery['ODVFCONFRONTATION5']; $result['OSVFCONFRONTATION1'] = $objQuery['OSVFCONFRONTATION1']; $result['OSVFCONFRONTATION2'] = $objQuery['OSVFCONFRONTATION2']; $result['OSVFCONFRONTATION3'] = $objQuery['OSVFCONFRONTATION3']; $result['OSVFCONFRONTATION4'] = $objQuery['OSVFCONFRONTATION4']; $result['OSVFCONFRONTATION5'] = $objQuery['OSVFCONFRONTATION5']; $result["json"] = json_encode($result); echo json_encode($result); } elseif ($zone == "IMPPLAN") { $result['IMPPLAN'] = build_IMPPLAN_items($pid, $copy_from); echo json_encode($result); } elseif ($zone == "ALL") { $result['RUL'] = $objQuery['RUL']; $result['LUL'] = $objQuery['LUL']; $result['RLL'] = $objQuery['RLL']; $result['LLL'] = $objQuery['LLL']; $result['RBROW'] = $objQuery['RBROW']; $result['LBROW'] = $objQuery['LBROW']; $result['RMCT'] = $objQuery['RMCT']; $result['LMCT'] = $objQuery['LMCT']; $result['RADNEXA'] = $objQuery['RADNEXA']; $result['LADNEXA'] = $objQuery['LADNEXA']; $result['RMRD'] = $objQuery['RMRD']; $result['LMRD'] = $objQuery['LMRD']; $result['RLF'] = $objQuery['RLF']; $result['LLF'] = $objQuery['LLF']; $result['RVFISSURE'] = $objQuery['RVFISSURE']; $result['LVFISSURE'] = $objQuery['LVFISSURE']; $result['ODHERTEL'] = $objQuery['ODHERTEL']; $result['OSHERTEL'] = $objQuery['OSHERTEL']; $result['HERTELBASE'] = $objQuery['HERTELBASE']; $result['ODPIC'] = $objQuery['ODPIC']; $result['OSPIC'] = $objQuery['OSPIC']; $result['EXT_COMMENTS'] = $objQuery['EXT_COMMENTS']; $result['OSCONJ'] = $objQuery['OSCONJ']; $result['ODCONJ'] = $objQuery['ODCONJ']; $result['ODCORNEA'] = $objQuery['ODCORNEA']; $result['OSCORNEA'] = $objQuery['OSCORNEA']; $result['ODAC'] = $objQuery['ODAC']; $result['OSAC'] = $objQuery['OSAC']; $result['ODLENS'] = $objQuery['ODLENS']; $result['OSLENS'] = $objQuery['OSLENS']; $result['ODIRIS'] = $objQuery['ODIRIS']; $result['OSIRIS'] = $objQuery['OSIRIS']; $result['ODKTHICKNESS'] = $objQuery['ODKTHICKNESS']; $result['OSKTHICKNESS'] = $objQuery['OSKTHICKNESS']; $result['ODGONIO'] = $objQuery['ODGONIO']; $result['OSGONIO'] = $objQuery['OSGONIO']; $result['ANTSEG_COMMENTS'] = $objQuery['ANTSEG_COMMENTS']; $result['ODDISC'] = $objQuery['ODDISC']; $result['OSDISC'] = $objQuery['OSDISC']; $result['ODCUP'] = $objQuery['ODCUP']; $result['OSCUP'] = $objQuery['OSCUP']; $result['ODMACULA'] = $objQuery['ODMACULA']; $result['OSMACULA'] = $objQuery['OSMACULA']; $result['ODVESSELS'] = $objQuery['ODVESSELS']; $result['OSVESSELS'] = $objQuery['OSVESSELS']; $result['ODPERIPH'] = $objQuery['ODPERIPH']; $result['OSPERIPH'] = $objQuery['OSPERIPH']; $result['ODDRAWING'] = $objQuery['ODDRAWING']; $result['OSDRAWING'] = $objQuery['OSDRAWING']; $result['ODCMT'] = $objQuery['ODCMT']; $result['OSCMT'] = $objQuery['OSCMT']; $result['RETINA_COMMENTS'] = $objQuery['RETINA_COMMENTS']; $result['ACT'] = $objQuery['ACT']; $result['ACT5CCDIST'] = $objQuery['ACT5CCDIST']; $result['ACT1CCDIST'] = $objQuery['ACT1CCDIST']; $result['ACT2CCDIST'] = $objQuery['ACT2CCDIST']; $result['ACT3CCDIST'] = $objQuery['ACT3CCDIST']; $result['ACT4CCDIST'] = $objQuery['ACT4CCDIST']; $result['ACT6CCDIST'] = $objQuery['ACT6CCDIST']; $result['ACT7CCDIST'] = $objQuery['ACT7CCDIST']; $result['ACT8CCDIST'] = $objQuery['ACT8CCDIST']; $result['ACT9CCDIST'] = $objQuery['ACT9CCDIST']; $result['ACT10CCDIST'] = $objQuery['ACT10CCDIST']; $result['ACT11CCDIST'] = $objQuery['ACT11CCDIST']; $result['ACT1SCDIST'] = $objQuery['ACT1SCDIST']; $result['ACT2SCDIST'] = $objQuery['ACT2SCDIST']; $result['ACT3SCDIST'] = $objQuery['ACT3SCDIST']; $result['ACT4SCDIST'] = $objQuery['ACT4SCDIST']; $result['ACT5SCDIST'] = $objQuery['ACT5SCDIST']; $result['ACT6SCDIST'] = $objQuery['ACT6SCDIST']; $result['ACT7SCDIST'] = $objQuery['ACT7SCDIST']; $result['ACT8SCDIST'] = $objQuery['ACT8SCDIST']; $result['ACT9SCDIST'] = $objQuery['ACT9SCDIST']; $result['ACT10SCDIST'] = $objQuery['ACT10SCDIST']; $result['ACT11SCDIST'] = $objQuery['ACT11SCDIST']; $result['ACT1SCNEAR'] = $objQuery['ACT1SCNEAR']; $result['ACT2SCNEAR'] = $objQuery['ACT2SCNEAR']; $result['ACT3SCNEAR'] = $objQuery['ACT3SCNEAR']; $result['ACT4SCNEAR'] = $objQuery['ACT4SCNEAR']; $result['ACT5CCNEAR'] = $objQuery['ACT5CCNEAR']; $result['ACT6CCNEAR'] = $objQuery['ACT6CCNEAR']; $result['ACT7CCNEAR'] = $objQuery['ACT7CCNEAR']; $result['ACT8CCNEAR'] = $objQuery['ACT8CCNEAR']; $result['ACT9CCNEAR'] = $objQuery['ACT9CCNEAR']; $result['ACT10CCNEAR'] = $objQuery['ACT10CCNEAR']; $result['ACT11CCNEAR'] = $objQuery['ACT11CCNEAR']; $result['ACT5SCNEAR'] = $objQuery['ACT5SCNEAR']; $result['ACT6SCNEAR'] = $objQuery['ACT6SCNEAR']; $result['ACT7SCNEAR'] = $objQuery['ACT7SCNEAR']; $result['ACT8SCNEAR'] = $objQuery['ACT8SCNEAR']; $result['ACT9SCNEAR'] = $objQuery['ACT9SCNEAR']; $result['ACT10SCNEAR'] = $objQuery['ACT10SCNEAR']; $result['ACT11SCNEAR'] = $objQuery['ACT11SCNEAR']; $result['ACT1CCNEAR'] = $objQuery['ACT1CCNEAR']; $result['ACT2CCNEAR'] = $objQuery['ACT2CCNEAR']; $result['ACT3CCNEAR'] = $objQuery['ACT3CCNEAR']; $result['ACT4CCNEAR'] = $objQuery['ACT4CCNEAR']; $result['ODVF1'] = $objQuery['ODVF1']; $result['ODVF2'] = $objQuery['ODVF2']; $result['ODVF3'] = $objQuery['ODVF3']; $result['ODVF4'] = $objQuery['ODVF4']; $result['OSVF1'] = $objQuery['OSVF1']; $result['OSVF2'] = $objQuery['OSVF2']; $result['OSVF3'] = $objQuery['OSVF3']; $result['OSVF4'] = $objQuery['OSVF4']; $result['MOTILITY_RS'] = $objQuery['MOTILITY_RS']; $result['MOTILITY_RI'] = $objQuery['MOTILITY_RI']; $result['MOTILITY_RR'] = $objQuery['MOTILITY_RR']; $result['MOTILITY_RL'] = $objQuery['MOTILITY_RL']; $result['MOTILITY_LS'] = $objQuery['MOTILITY_LS']; $result['MOTILITY_LI'] = $objQuery['MOTILITY_LI']; $result['MOTILITY_LR'] = $objQuery['MOTILITY_LR']; $result['MOTILITY_LL'] = $objQuery['MOTILITY_LL']; $result['NEURO_COMMENTS'] = $objQuery['NEURO_COMMENTS']; $result['STEREOPSIS'] = $objQuery['STEREOPSIS']; $result['ODNPA'] = $objQuery['ODNPA']; $result['OSNPA'] = $objQuery['OSNPA']; $result['VERTFUSAMPS'] = $objQuery['VERTFUSAMPS']; $result['DIVERGENCEAMPS'] = $objQuery['DIVERGENCEAMPS']; $result['NPC'] = $objQuery['NPC']; $result['DACCDIST'] = $objQuery['DACCDIST']; $result['DACCNEAR'] = $objQuery['DACCNEAR']; $result['CACCDIST'] = $objQuery['CACCDIST']; $result['CACCNEAR'] = $objQuery['CACCNEAR']; $result['ODCOLOR'] = $objQuery['ODCOLOR']; $result['OSCOLOR'] = $objQuery['OSCOLOR']; $result['ODCOINS'] = $objQuery['ODCOINS']; $result['OSCOINS'] = $objQuery['OSCOINS']; $result['ODREDDESAT'] = $objQuery['ODREDDESAT']; $result['OSREDDESAT'] = $objQuery['OSREDDESAT']; $result['ODPUPILSIZE1'] = $objQuery['ODPUPILSIZE1']; $result['ODPUPILSIZE2'] = $objQuery['ODPUPILSIZE2']; $result['ODPUPILREACTIVITY'] = $objQuery['ODPUPILREACTIVITY']; $result['ODAPD'] = $objQuery['ODAPD']; $result['OSPUPILSIZE1'] = $objQuery['OSPUPILSIZE1']; $result['OSPUPILSIZE2'] = $objQuery['OSPUPILSIZE2']; $result['OSPUPILREACTIVITY'] = $objQuery['OSPUPILREACTIVITY']; $result['OSAPD'] = $objQuery['OSAPD']; $result['DIMODPUPILSIZE1'] = $objQuery['DIMODPUPILSIZE1']; $result['DIMODPUPILSIZE2'] = $objQuery['DIMODPUPILSIZE2']; $result['DIMODPUPILREACTIVITY'] = $objQuery['DIMODPUPILREACTIVITY']; $result['DIMOSPUPILSIZE1'] = $objQuery['DIMOSPUPILSIZE1']; $result['DIMOSPUPILSIZE2'] = $objQuery['DIMOSPUPILSIZE2']; $result['DIMOSPUPILREACTIVITY'] = $objQuery['DIMOSPUPILREACTIVITY']; $result['PUPIL_COMMENTS'] = $objQuery['PUPIL_COMMENTS']; $result['ODVFCONFRONTATION1'] = $objQuery['ODVFCONFRONTATION1']; $result['ODVFCONFRONTATION2'] = $objQuery['ODVFCONFRONTATION2']; $result['ODVFCONFRONTATION3'] = $objQuery['ODVFCONFRONTATION3']; $result['ODVFCONFRONTATION4'] = $objQuery['ODVFCONFRONTATION4']; $result['ODVFCONFRONTATION5'] = $objQuery['ODVFCONFRONTATION5']; $result['OSVFCONFRONTATION1'] = $objQuery['OSVFCONFRONTATION1']; $result['OSVFCONFRONTATION2'] = $objQuery['OSVFCONFRONTATION2']; $result['OSVFCONFRONTATION3'] = $objQuery['OSVFCONFRONTATION3']; $result['OSVFCONFRONTATION4'] = $objQuery['OSVFCONFRONTATION4']; $result['OSVFCONFRONTATION5'] = $objQuery['OSVFCONFRONTATION5']; $result['IMP'] = $objQuery['IMP']; $result["json"] = json_encode($result); echo json_encode($result); } elseif ($zone == "READONLY") { $result = $objQuery; $count_rx = '0'; $query = "select * from form_eye_mag_wearing where PID=? and ENCOUNTER=? and FORM_ID >'0' ORDER BY RX_NUMBER"; $wear = sqlStatement($query, array($pid, $_SESSION['encounter'])); while ($wearing = sqlFetchArray($wear)) { ${"display_W_{$count_rx}"} = ''; ${"ODSPH_{$count_rx}"} = $wearing['ODSPH']; ${"ODCYL_{$count_rx}"} = $wearing['ODCYL']; ${"ODAXIS_{$count_rx}"} = $wearing['ODAXIS']; ${"OSSPH_{$count_rx}"} = $wearing['OSSPH']; ${"OSCYL_{$count_rx}"} = $wearing['OSCYL']; ${"OSAXIS_{$count_rx}"} = $wearing['OSAXIS']; ${"ODMIDADD_{$count_rx}"} = $wearing['ODMIDADD']; ${"OSMIDADD_{$count_rx}"} = $wearing['OSMIDADD']; ${"ODADD_{$count_rx}"} = $wearing['ODADD']; ${"OSADD_{$count_rx}"} = $wearing['OSADD']; ${"ODVA_{$count_rx}"} = $wearing['ODVA']; ${"OSVA_{$count_rx}"} = $wearing['OSVA']; ${"ODNEARVA_{$count_rx}"} = $wearing['ODNEARVA']; ${"OSNEARVA_{$count_rx}"} = $wearing['OSNEARVA']; ${"ODPRISM_{$count_rx}"} = $wearing['ODPRISM']; ${"OSPRISM_{$count_rx}"} = $wearing['OSPRISM']; ${"W_{$count_rx}"} = '1'; ${"RX_TYPE_{$count_rx}"} = $wearing['RX_TYPE']; ${"ODHPD_{$count_rx}"} = $wearing['ODHPD']; ${"ODHBASE_{$count_rx}"} = $wearing['ODHBASE']; ${"ODVPD_{$count_rx}"} = $wearing['ODVPD']; ${"ODVBASE_{$count_rx}"} = $wearing['ODVBASE']; ${"ODSLABOFF_{$count_rx}"} = $wearing['ODSLABOFF']; ${"ODVERTEXDIST_{$count_rx}"} = $wearing['ODVERTEXDIST']; ${"OSHPD_{$count_rx}"} = $wearing['OSHPD']; ${"OSHBASE_{$count_rx}"} = $wearing['OSHBASE']; ${"OSVPD_{$count_rx}"} = $wearing['OSVPD']; ${"OSVBASE_{$count_rx}"} = $wearing['OSVBASE']; ${"OSSLABOFF_{$count_rx}"} = $wearing['OSSLABOFF']; ${"OSVERTEXDIST_{$count_rx}"} = $wearing['OSVERTEXDIST']; ${"ODMPDD_{$count_rx}"} = $wearing['ODMPDD']; ${"ODMPDN_{$count_rx}"} = $wearing['ODMPDN']; ${"OSMPDD_{$count_rx}"} = $wearing['OSMPDD']; ${"OSMPDN_{$count_rx}"} = $wearing['OSMPDN']; ${"BPDD_{$count_rx}"} = $wearing['BPDD']; ${"BPDN_{$count_rx}"} = $wearing['BPDN']; ${"LENS_MATERIAL_{$count_rx}"} = $wearing['LENS_MATERIAL']; ${"LENS_TREATMENTS_{$count_rx}"} = $wearing['LENS_TREATMENTS']; ${"COMMENTS_{$count_rx}"} = $wearing['COMMENTS']; } $result["json"] = json_encode($result); echo json_encode($result); } }