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);
}
}
