<?php

/*$module = new Vtiger_Module();
	$module->name = "FinalRx";
	$module=$module->getInstance('FinalRx');
	
	$block0 = new Vtiger_Block();
	$block0->label = "LBL_PATIENT_DETAIL";
	$block0 = $block0->getInstance($block0->label,$module);

	
	$field2 = new Vtiger_Field();
	$field2->name = 'dob'; 
	$field2->label = 'Date Of Birth'; 
	$field2->table = 'vtiger_finalrx'; 
	$field2->column = $field2->name;
	$field2->columntype = 'VARCHAR(255)';
	$field2->uitype = 5;
	$field2->typeofdata = 'D~O'; 
	$block0->addField($field2); 

	$field3 = new Vtiger_Field();
	$field3->name = 'age'; 
	$field3->label = 'Age'; 
	$field3->table = 'vtiger_finalrx'; 
	$field3->column = $field2->name;
	$field3->columntype = 'VARCHAR(255)';
	$field3->uitype = 1;
	$field3->typeofdata = 'I~O'; 
	$block0->addField($field2);*/ 

// $Vtiger_Utils_Log = true;
// include_once('vtlib/Vtiger/Menu.php');
// include_once('vtlib/Vtiger/Module.php');

// $module='SpectacleExam';
// $module = Vtiger_Module::getInstance('SpectacleExam');


// $block0 = Vtiger_Block::getInstance('LBL_PATIENT_DETAIL', $module);

	include_once 'vtlib/Vtiger/Module.php';
	include_once 'vtlib/Vtiger/Menu.php';
	$Vtiger_Utils_Log = true;
	$module = new Vtiger_Module();
	$module->name = "SpectacleExam";
	$module=$module->getInstance('SpectacleExam');
	
	$block2 = new Vtiger_Block();
	$block2->label = "LBL_Final_RX";
	$block2 = $block2->getInstance($block2->label,$module);

	$field2 = new Vtiger_Field();
	$field2->name = 'current_glasses_notes'; 
	$field2->label = 'Current Glasses Notes'; 
	$field2->table = $module->basetable;
	$field2->column = $field2->name;
	$field2->columntype = 'VARCHAR(255)';
	$field2->uitype = 1;
	$field2->typeofdata = 'V~O'; 
	$block2->addField($field2);
/*	
	$field2 = new Vtiger_Field();
	$field2->name = 'notesf'; 
	$field2->label = 'Notes'; 
	$field2->table = $module->basetable;
	$field2->column = $field2->name;
	$field2->columntype = 'VARCHAR(255)';
	$field2->uitype = 1;
	$field2->typeofdata = 'V~O'; 
	$block2->addField($field2); 

	$field3 = new Vtiger_Field();
	$field3->name = 'bvd'; 
	$field3->label = 'BVD'; 
	$field3->table = $module->basetable;
	$field3->column = $field3->name;
	$field3->columntype = 'VARCHAR(255)';
	$field3->uitype = 1;
	$field3->typeofdata = 'I~O'; 
	$block2->addField($field3);

	$field4 = new Vtiger_Field();
	$field4->name = 'external_prescription'; 
	$field4->label = 'Externam Prescription'; 
	$field4->table = $module->basetable;
	$field4->column = $field4->name;
	$field4->columntype = 'VARCHAR(255)';
	$field4->uitype = 56;
	$block2->addField($field4);  
*/
	



	/*$field2 = new Vtiger_Field();
	$field2->name = 'dob'; 
	$field2->label = 'Date Of Birth'; 
	$field2->table = $module->basetable;
	$field2->column = $field2->name;
	$field2->columntype = 'VARCHAR(255)';
	$field2->uitype = 5;
	$field2->typeofdata = 'D~O'; 
	$block0->addField($field2); */

	// $field3 = new Vtiger_Field();
	// $field3->name = 'age'; 
	// $field3->label = 'Age'; 
	// $field3->table = $module->basetable; 
	// $field3->column = $field3->name;
	// $field3->columntype = 'VARCHAR(255)';
	// $field3->uitype = 1;
	// $field3->typeofdata = 'I~O'; 
	// $block0->addField($field3); 





// // $block1 = Vtiger_Block::getInstance('LBL_SUBJECTIVE_RX', $module);

/*/////////////////////////////////////////////*/

		// $block1 = new Vtiger_Block();
		// $block1->label = "LBL_SUBJECTIVE_RX";
		// $block1 = $block1->getInstance($block1->label,$module);
		// $module->addBlock($block1);

		// $block1 = new Vtiger_Block();
		// $block1->label = "LBL_SUBJECTIVE_RX";
		// $module->addBlock($block1);

		// $block2 = new Vtiger_Block();
		// $block2->label = "LBL_Final_RX";
		// $module->addBlock($block2);

		// $block3 = Vtiger_Block::getInstance('LBL_OLD_Glasses_Rx', $module);

		// $block3 = new Vtiger_Block();
		// $block3->label = "LBL_OLD_Glasses_Rx";
		// $module->addBlock($block3);


	// 		$field131  = new Vtiger_Field();
	// $field131->name = 'sph_r_or';
	// $field131->label= 'SPH';
	// $field131->uitype= 1;
	// $field131->displaytype= 1;
	// $field131->table= $module->basetable;
	// $field131->column = $field131->name;
	// $field131->typeofdata = 'I~O';
	// $block3->addField($field131);

	// $field132  = new Vtiger_Field();
	// $field132->name = 'sph_l_or';
	// $field132->label= 'SPH';
	// $field132->uitype= 1;
	// $field132->displaytype= 1;
	// $field132->table= $module->basetable;
	// $field132->column = $field132->name;
	// $field132->typeofdata = 'I~O';
	// $block3->addField($field132);

	// $field133  = new Vtiger_Field();
	// $field133->name = 'cyl_r_or';
	// $field133->label= 'CYL';
	// $field133->uitype= 1;
	// $field133->displaytype= 1;
	// $field133->table= $module->basetable;
	// $field133->column = $field133->name;
	// $field133->typeofdata = 'I~O';
	// $block3->addField($field133);

	// $field134  = new Vtiger_Field();
	// $field134->name = 'cyl_l_or';
	// $field134->label= 'CYL';
	// $field134->uitype= 1;
	// $field134->displaytype= 1;
	// $field134->table= $module->basetable;
	// $field134->column = $field134->name;
	// $field134->typeofdata = 'I~O';
	// $block3->addField($field134);

	// $field135  = new Vtiger_Field();
	// $field135->name = 'axis_r_or';
	// $field135->label= 'Axis';
	// $field135->uitype= 1;
	// $field135->displaytype= 1;
	// $field135->table= $module->basetable;
	// $field135->column = $field135->name;
	// $field135->typeofdata = 'I~O';
	// $block3->addField($field135);

	// $field136  = new Vtiger_Field();
	// $field136->name = 'axis_l_or';
	// $field136->label= 'Axis';
	// $field136->uitype= 1;
	// $field136->displaytype= 1;
	// $field136->table= $module->basetable;
	// $field136->column = $field136->name;
	// $field136->typeofdata = 'I~O';
	// $block3->addField($field136);

	
	// $field137  = new Vtiger_Field();
	// $field137->name = 'add_r_or';
	// $field137->label= 'ADD';
	// $field137->uitype= 1;
	// $field137->displaytype= 1;
	// $field137->table= $module->basetable;
	// $field137->column = $field137->name;
	// $field137->typeofdata = 'I~O';
	// $block3->addField($field137);

	// $field138  = new Vtiger_Field();
	// $field138->name = 'add_l_or';
	// $field138->label= 'ADD';
	// $field138->uitype= 1;
	// $field138->displaytype= 1;
	// $field138->table= $module->basetable;
	// $field138->column = $field138->name;
	// $field138->typeofdata = 'I~O';
	// $block3->addField($field138);

	// $field139  = new Vtiger_Field();
	// $field139->name = 'dist_r_or';
	// $field139->label= 'DIST.VA';
	// $field139->uitype= 1;
	// $field139->displaytype= 1;
	// $field139->table= $module->basetable;
	// $field139->column = $field139->name;
	// $field139->typeofdata = 'I~O';
	// $block3->addField($field139);

	// $field140  = new Vtiger_Field();
	// $field140->name = 'dist_l_or';
	// $field140->label= 'DIST.VA';
	// $field140->uitype= 1;
	// $field140->displaytype= 1;
	// $field140->table= $module->basetable;
	// $field140->column = $field140->name;
	// $field140->typeofdata = 'I~O';
	// $block3->addField($field140);

	// $field101  = new Vtiger_Field();
	// $field101->name = 'vision_r_f';
	// $field101->label= 'Vision';
	// $field101->uitype= 1;
	// $field101->displaytype= 1;
	// $field101->table= $module->basetable;
	// $field101->column = $field101->name;
	// $field101->typeofdata = 'I~O';
	// $block2->addField($field101);

	// $field102  = new Vtiger_Field();
	// $field102->name = 'vision_l_f';
	// $field102->label= 'Vision';
	// $field102->uitype= 1;
	// $field102->displaytype= 1;
	// $field102->table= $module->basetable;
	// $field102->column = $field102->name;
	// $field102->typeofdata = 'I~O';
	// $block2->addField($field102);

	// $field103  = new Vtiger_Field();
	// $field103->name = 'sph_r_f';
	// $field103->label= 'SPH';
	// $field103->uitype= 1;
	// $field103->displaytype= 1;
	// $field103->table= $module->basetable;
	// $field103->column = $field103->name;
	// $field103->typeofdata = 'I~O';
	// $block2->addField($field103);

	// $field104  = new Vtiger_Field();
	// $field104->name = 'sph_l_f';
	// $field104->label= 'SPH';
	// $field104->uitype= 1;
	// $field104->displaytype= 1;
	// $field104->table= $module->basetable;
	// $field104->column = $field104->name;
	// $field104->typeofdata = 'I~O';
	// $block2->addField($field104);

	// $field105  = new Vtiger_Field();
	// $field105->name = 'cyl_r_f';
	// $field105->label= 'CYL';
	// $field105->uitype= 1;
	// $field105->displaytype= 1;
	// $field105->table= $module->basetable;
	// $field105->column = $field105->name;
	// $field105->typeofdata = 'I~O';
	// $block2->addField($field105);

	// $field106  = new Vtiger_Field();
	// $field106->name = 'cyl_l_f';
	// $field106->label= 'CYL';
	// $field106->uitype= 1;
	// $field106->displaytype= 1;
	// $field106->table= $module->basetable;
	// $field106->column = $field106->name;
	// $field106->typeofdata = 'I~O';
	// $block2->addField($field106);

	// $field107  = new Vtiger_Field();
	// $field107->name = 'axis_r_f';
	// $field107->label= 'Axis';
	// $field107->uitype= 1;
	// $field107->displaytype= 1;
	// $field107->table= $module->basetable;
	// $field107->column = $field107->name;
	// $field107->typeofdata = 'I~O';
	// $block2->addField($field107);

	// $field108  = new Vtiger_Field();
	// $field108->name = 'axis_l_f';
	// $field108->label= 'Axis';
	// $field108->uitype= 1;
	// $field108->displaytype= 1;
	// $field108->table= $module->basetable;
	// $field108->column = $field108->name;
	// $field108->typeofdata = 'I~O';
	// $block2->addField($field108);

	// $field109  = new Vtiger_Field();
	// $field109->name = 'dprisom_r_f';
	// $field109->label= 'D.PRISM';
	// $field109->uitype= 1;
	// $field109->displaytype= 1;
	// $field109->table= $module->basetable;
	// $field109->column = $field109->name;
	// $field109->typeofdata = 'I~O';
	// $block2->addField($field109);

	// $field110  = new Vtiger_Field();
	// $field110->name = 'dprisom_l_f';
	// $field110->label= 'D.PRISM';
	// $field110->uitype= 1;
	// $field110->displaytype= 1;
	// $field110->table= $module->basetable;
	// $field110->column = $field110->name;
	// $field110->typeofdata = 'I~O';
	// $block2->addField($field110);

	// $field111  = new Vtiger_Field();
	// $field111->name = 'dist_r_f';
	// $field111->label= 'DIST.VA';
	// $field111->uitype= 1;
	// $field111->displaytype= 1;
	// $field111->table= $module->basetable;
	// $field111->column = $field111->name;
	// $field111->typeofdata = 'I~O';
	// $block2->addField($field111);

	// $field112  = new Vtiger_Field();
	// $field112->name = 'dist_l_f';
	// $field112->label= 'DIST.VA';
	// $field112->uitype= 1;
	// $field112->displaytype= 1;
	// $field112->table= $module->basetable;
	// $field112->column = $field112->name;
	// $field112->typeofdata = 'I~O';
	// $block2->addField($field112);

	// $field113  = new Vtiger_Field();
	// $field113->name = 'near_r_f';
	// $field113->label= 'NEAR ADD';
	// $field113->uitype= 1;
	// $field113->displaytype= 1;
	// $field113->table= $module->basetable;
	// $field113->column = $field113->name;
	// $field113->typeofdata = 'I~O';
	// $block2->addField($field113);

	// $field114  = new Vtiger_Field();
	// $field114->name = 'near_l_f';
	// $field114->label= 'NEAR ADD';
	// $field114->uitype= 1;
	// $field114->displaytype= 1;
	// $field114->table= $module->basetable;
	// $field114->column = $field114->name;
	// $field114->typeofdata = 'I~O';
	// $block2->addField($field114);

	// $field115  = new Vtiger_Field();
	// $field115->name = 'nprism_r_f';
	// $field115->label= 'N.PRISM';
	// $field115->uitype= 1;
	// $field115->displaytype= 1;
	// $field115->table= $module->basetable;
	// $field115->column = $field115->name;
	// $field115->typeofdata = 'I~O';
	// $block2->addField($field115);

	// $field116  = new Vtiger_Field();
	// $field116->name = 'nprism_l_f';
	// $field116->label= 'N. PRISM';
	// $field116->uitype= 1;
	// $field116->displaytype= 1;
	// $field116->table= $module->basetable;
	// $field116->column = $field116->name;
	// $field116->typeofdata = 'I~O';
	// $block2->addField($field116);

	// $field117  = new Vtiger_Field();
	// $field117->name = 'pd_r_f';
	// $field117->label= 'PD';
	// $field117->uitype= 1;
	// $field117->displaytype= 1;
	// $field117->table= $module->basetable;
	// $field117->column = $field117->name;
	// $field117->typeofdata = 'I~O';
	// $block2->addField($field117);

	// $field118  = new Vtiger_Field();
	// $field118->name = 'pd_l_f';
	// $field118->label= 'PD';
	// $field118->uitype= 1;
	// $field118->displaytype= 1;
	// $field118->table= $module->basetable;
	// $field118->column = $field118->name;
	// $field118->typeofdata = 'I~O';
	// $block2->addField($field118);

	// $field125  = new Vtiger_Field();
	// $field125->name = 'bin_r_f';
	// $field125->label= 'BIN. VA';
	// $field125->uitype= 1;
	// $field125->displaytype= 1;
	// $field125->table= $module->basetable;
	// $field125->column = $field125->name;
	// $field125->typeofdata = 'I~O';
	// $block2->addField($field125);

	// $field126  = new Vtiger_Field();
	// $field126->name = 'bin_l_f';
	// $field126->label= 'BIN. VA';
	// $field126->uitype= 1;
	// $field126->displaytype= 1;
	// $field126->table= $module->basetable;
	// $field126->column = $field126->name;
	// $field126->typeofdata = 'I~O';
	// $block2->addField($field126);

	// $field127  = new Vtiger_Field();
	// $field127->name = 'nearva_r_f';
	// $field127->label= 'NEAR VA';
	// $field127->uitype= 1;
	// $field127->displaytype= 1;
	// $field127->table= $module->basetable;
	// $field127->column = $field127->name;
	// $field127->typeofdata = 'I~O';
	// $block2->addField($field127);

	// $field128  = new Vtiger_Field();
	// $field128->name = 'nearva_l_f';
	// $field128->label= 'NEAR VA';
	// $field128->uitype= 1;
	// $field128->displaytype= 1;
	// $field128->table= $module->basetable;
	// $field128->column = $field128->name;
	// $field128->typeofdata = 'I~O';
	// $block2->addField($field128);

	// $field129  = new Vtiger_Field();
	// $field129->name = 'inter_r_f';
	// $field129->label= 'INTER ADD';
	// $field129->uitype= 1;
	// $field129->displaytype= 1;
	// $field129->table= $module->basetable;
	// $field129->column = $field129->name;
	// $field129->typeofdata = 'I~O';
	// $block2->addField($field129);

	// $field130  = new Vtiger_Field();
	// $field130->name = 'inter_l_f';
	// $field130->label= 'INTER ADD';
	// $field130->uitype= 1;
	// $field130->displaytype= 1;
	// $field130->table= $module->basetable;
	// $field130->column = $field130->name;
	// $field130->typeofdata = 'I~O';
	// $block2->addField($field130);



	/*	$field7 = new Vtiger_Field();
	$field7->name = 'old_glasses_rx_test_date'; 
	$field7->label = 'Old Glasses RX Test Date'; 
	$field7->table = $module->basetable; 
	$field7->column = $field7->name;
	$field7->columntype = 'DATE';
	$field7->uitype = 5;
	$field7->typeofdata = 'D~O'; 
	$block3->addField($field7);

	$field8 = new Vtiger_Field();
	$field8->name = 'old_glasses_rx_examiner'; 
	$field8->label = 'Old Glasses RX Examiner'; 
	$field8->table = $module->basetable; 
	$field8->column = $field6->name;
	$field8->columntype = 'VARCHAR(255)';
	$field8->uitype = 15;
	$field8->setPicklistValues(Array(''));
	$field8->typeofdata = 'V~O'; 
	$block3->addField($field8);

	$field47  = new Vtiger_Field();
	$field47->name = 'vision_r';
	$field47->label= 'Vision R';
	$field47->uitype= 1;
	$field47->displaytype= 1;
	$field47->table= $module->basetable;
	$field47->column = $field47->name;
	$field47->typeofdata = 'I~O';
	$block3->addField($field47);

	$field48  = new Vtiger_Field();
	$field48->name = 'vision_l';
	$field48->label= 'Vision L';
	$field48->uitype= 1;
	$field48->displaytype= 1;
	$field48->table= $module->basetable;
	$field48->column = $field48->name;
	$field48->typeofdata = 'I~O';
	$block3->addField($field48);

	$field49  = new Vtiger_Field();
	$field49->name = 'sph_r';
	$field49->label= 'SPH R';
	$field49->uitype= 1;
	$field49->displaytype= 1;
	$field49->table= $module->basetable;
	$field49->column = $field49->name;
	$field49->typeofdata = 'I~O';
	$block3->addField($field49);

	$field50  = new Vtiger_Field();
	$field50->name = 'sph_l';
	$field50->label= 'SPH L';
	$field50->uitype= 1;
	$field50->displaytype= 1;
	$field50->table= $module->basetable;
	$field50->column = $field50->name;
	$field50->typeofdata = 'I~O';
	$block3->addField($field50);

	$field51  = new Vtiger_Field();
	$field51->name = 'cyl_r';
	$field51->label= 'CYL R';
	$field51->uitype= 1;
	$field51->displaytype= 1;
	$field51->table= $module->basetable;
	$field51->column = $field51->name;
	$field51->typeofdata = 'I~O';
	$block3->addField($field51);

	$field52  = new Vtiger_Field();
	$field52->name = 'cyl_l';
	$field52->label= 'CYL L';
	$field52->uitype= 1;
	$field52->displaytype= 1;
	$field52->table= $module->basetable;
	$field52->column = $field52->name;
	$field52->typeofdata = 'I~O';
	$block3->addField($field52);

	$field53  = new Vtiger_Field();
	$field53->name = 'axis_r';
	$field53->label= 'Axis R';
	$field53->uitype= 1;
	$field53->displaytype= 1;
	$field53->table= $module->basetable;
	$field53->column = $field53->name;
	$field53->typeofdata = 'I~O';
	$block3->addField($field53);

	$field54  = new Vtiger_Field();
	$field54->name = 'axis_l';
	$field54->label= 'Axis L';
	$field54->uitype= 1;
	$field54->displaytype= 1;
	$field54->table= $module->basetable;
	$field54->column = $field54->name;
	$field54->typeofdata = 'I~O';
	$block3->addField($field54);

	$field55  = new Vtiger_Field();
	$field55->name = 'dprisom_r';
	$field55->label= 'D.PRISM R';
	$field55->uitype= 1;
	$field55->displaytype= 1;
	$field55->table= $module->basetable;
	$field55->column = $field55->name;
	$field55->typeofdata = 'I~O';
	$block3->addField($field55);

	$field56  = new Vtiger_Field();
	$field56->name = 'dprisom_l';
	$field56->label= 'D.PRISM L';
	$field56->uitype= 1;
	$field56->displaytype= 1;
	$field56->table= $module->basetable;
	$field56->column = $field56->name;
	$field56->typeofdata = 'I~O';
	$block3->addField($field56);

	$field57  = new Vtiger_Field();
	$field57->name = 'dist_r';
	$field57->label= 'DIST.VA R';
	$field57->uitype= 1;
	$field57->displaytype= 1;
	$field57->table= $module->basetable;
	$field57->column = $field57->name;
	$field57->typeofdata = 'I~O';
	$block3->addField($field57);

	$field58  = new Vtiger_Field();
	$field58->name = 'dist_l';
	$field58->label= 'DIST.VA L';
	$field58->uitype= 1;
	$field58->displaytype= 1;
	$field58->table= $module->basetable;
	$field58->column = $field58->name;
	$field58->typeofdata = 'I~O';
	$block3->addField($field58);

	$field59  = new Vtiger_Field();
	$field59->name = 'near_r';
	$field59->label= 'NEAR ADD R';
	$field59->uitype= 1;
	$field59->displaytype= 1;
	$field59->table= $module->basetable;
	$field59->column = $field59->name;
	$field59->typeofdata = 'I~O';
	$block3->addField($field59);

	$field60  = new Vtiger_Field();
	$field60->name = 'near_l';
	$field60->label= 'NEAR ADD L';
	$field60->uitype= 1;
	$field60->displaytype= 1;
	$field60->table= $module->basetable;
	$field60->column = $field60->name;
	$field60->typeofdata = 'I~O';
	$block3->addField($field60);

	$field61  = new Vtiger_Field();
	$field61->name = 'nprism_r';
	$field61->label= 'N.PRISM R';
	$field61->uitype= 1;
	$field61->displaytype= 1;
	$field61->table= $module->basetable;
	$field61->column = $field61->name;
	$field61->typeofdata = 'I~O';
	$block3->addField($field61);

	$field62  = new Vtiger_Field();
	$field62->name = 'nprism_l';
	$field62->label= 'N. PRISM L';
	$field62->uitype= 1;
	$field62->displaytype= 1;
	$field62->table= $module->basetable;
	$field62->column = $field62->name;
	$field62->typeofdata = 'I~O';
	$block3->addField($field62);

	$field63  = new Vtiger_Field();
	$field63->name = 'near_va_r';
	$field63->label= 'NEAR VA R';
	$field63->uitype= 1;
	$field63->displaytype= 1;
	$field63->table= $module->basetable;
	$field63->column = $field63->name;
	$field63->typeofdata = 'I~O';
	$block3->addField($field63);

	$field64  = new Vtiger_Field();
	$field64->name = 'near_va_l';
	$field64->label= 'NEAR VA L';
	$field64->uitype= 1;
	$field64->displaytype= 1;
	$field64->table= $module->basetable;
	$field64->column = $field64->name;
	$field64->typeofdata = 'I~O';
	$block3->addField($field64);

	$field65  = new Vtiger_Field();
	$field65->name = 'inter_r';
	$field65->label= 'INTER ADD R';
	$field65->uitype= 1;
	$field65->displaytype= 1;
	$field65->table= $module->basetable;
	$field65->column = $field65->name;
	$field65->typeofdata = 'I~O';
	$block3->addField($field65);

	$field66  = new Vtiger_Field();
	$field66->name = 'inter_l';
	$field66->label= 'INTER ADD L';
	$field66->uitype= 1;
	$field66->displaytype= 1;
	$field66->table= $module->basetable;
	$field66->column = $field66->name;
	$field66->typeofdata = 'I~O';
	$block3->addField($field66);

	$field67  = new Vtiger_Field();
	$field67->name = 'monopd_r';
	$field67->label= 'Mono PD R';
	$field67->uitype= 1;
	$field67->displaytype= 1;
	$field67->table= $module->basetable;
	$field67->column = $field67->name;
	$field67->typeofdata = 'I~O';
	$block3->addField($field67);

	$field68  = new Vtiger_Field();
	$field68->name = 'monopd_l';
	$field68->label= 'Mono PD L';
	$field68->uitype= 1;
	$field68->displaytype= 1;
	$field68->table= $module->basetable;
	$field68->column = $field68->name;
	$field68->typeofdata = 'I~O';
	$block3->addField($field68);
	
	$field69  = new Vtiger_Field();
	$field69->name = 'test_date_r';
	$field69->label= 'Test Date';
	$field69->uitype= 5;
	$field69->displaytype= 1;
	$field69->table= $module->basetable;
	$field69->column = $field69->name;
	$field69->typeofdata = 'D~O';
	$block3->addField($field69);
	
	$field70  = new Vtiger_Field();
	$field70->name = 'test_date_l';
	$field70->label= 'Test Date';
	$field70->uitype= 5;
	$field70->displaytype= 1;
	$field70->table= $module->basetable;
	$field70->column = $field70->name;
	$field70->typeofdata = 'D~O';
	$block3->addField($field70);

	$field71  = new Vtiger_Field();
	$field71->name = 'examiner_r';
	$field71->label= 'Examiner';
	$field71->uitype= 15;
	$field71->displaytype= 1;
	$field71->table= $module->basetable;
	$field71->column = $field71->name;
	$field71->setPicklistValues(array());
	$field71->typeofdata = 'V~O';
	$block3->addField($field71);

	$field72  = new Vtiger_Field();
	$field72->name = 'examiner_l';
	$field72->label= 'Examiner';
	$field72->uitype= 15;
	$field72->displaytype= 1;
	$field72->table= $module->basetable;
	$field72->column = $field72->name;
	$field72->setPicklistValues(array());
	$field72->typeofdata = 'V~O';
	$block3->addField($field72);
*/


		// $field5 = new Vtiger_Field();
		// $field5->name = 'finalrx_test_date'; 
		// $field5->label = 'Final RX Test Date'; 
		// $field5->table = $module->basetable; 
		// $field5->column = $field5->name;
		// $field5->columntype = 'DATE';
		// $field5->uitype = 5;
		// $field5->typeofdata = 'D~O'; 
		// $block2->addField($field5);

		// $field6 = new Vtiger_Field();
		// $field6->name = 'finalrx_examiner'; 
		// $field6->label = 'Final RX Examiner'; 
		// $field6->table = $module->basetable; 
		// $field6->column = $field6->name;
		// $field6->columntype = 'VARCHAR(255)';
		// $field6->uitype = 15;
		// $field6->setPicklistValues(Array(''));
		// $field6->typeofdata = 'V~O'; 
		// $block2->addField($field6);



	// 	$field3 = new Vtiger_Field();
	// 	$field3->name = 'subjective_test_date'; 
	// 	$field3->label = 'Subjective Test Date'; 
	// 	$field3->table = $module->basetable; 
	// 	$field3->column = $field3->name;
	// 	$field3->columntype = 'DATE';
	// 	$field3->uitype = 5;
	// 	$field3->typeofdata = 'D~O'; 
	// 	$block1->addField($field3);

	// 	$field4 = new Vtiger_Field();
	// 	$field4->name = 'subjective_examiner'; 
	// 	$field4->label = 'Subjective Examiner'; 
	// 	$field4->table = $module->basetable; 
	// 	$field4->column = $field4->name;
	// 	$field4->columntype = 'VARCHAR(255)';
	// 	$field4->uitype = 15;
	// 	$field4->setPicklistValues(Array(''));
	// 	$field4->typeofdata = 'V~O'; 
	// 	$block1->addField($field4);

	// 	$field83  = new Vtiger_Field();
	// 	$field83->name = 'vision_r_s';
	// 	$field83->label= 'Vision';
	// 	$field83->uitype= 1;
	// 	$field83->displaytype= 1;
	// 	$field83->table= $module->basetable;
	// 	$field83->column = $field83->name;
	// 	$field83->typeofdata = 'I~O';
	// 	$block1->addField($field83);

	// $field84  = new Vtiger_Field();
	// $field84->name = 'vision_l_s';
	// $field84->label= 'Vision';
	// $field84->uitype= 1;
	// $field84->displaytype= 1;
	// $field84->table= $module->basetable;
	// $field84->column = $field84->name;
	// $field84->typeofdata = 'I~O';
	// $block1->addField($field84);

	// $field85  = new Vtiger_Field();
	// $field85->name = 'sph_r_s';
	// $field85->label= 'SPH';
	// $field85->uitype= 1;
	// $field85->displaytype= 1;
	// $field85->table= $module->basetable;
	// $field85->column = $field85->name;
	// $field85->typeofdata = 'I~O';
	// $block1->addField($field85);

	// $field86  = new Vtiger_Field();
	// $field86->name = 'sph_l_s';
	// $field86->label= 'SPH';
	// $field86->uitype= 1;
	// $field86->displaytype= 1;
	// $field86->table= $module->basetable;
	// $field86->column = $field86->name;
	// $field86->typeofdata = 'I~O';
	// $block1->addField($field86);

	// $field87  = new Vtiger_Field();
	// $field87->name = 'cyl_r_s';
	// $field87->label= 'CYL';
	// $field87->uitype= 1;
	// $field87->displaytype= 1;
	// $field87->table= $module->basetable;
	// $field87->column = $field87->name;
	// $field87->typeofdata = 'I~O';
	// $block1->addField($field87);

	// $field88  = new Vtiger_Field();
	// $field88->name = 'cyl_l_s';
	// $field88->label= 'CYL';
	// $field88->uitype= 1;
	// $field88->displaytype= 1;
	// $field88->table= $module->basetable;
	// $field88->column = $field88->name;
	// $field88->typeofdata = 'I~O';
	// $block1->addField($field88);

	// $field89  = new Vtiger_Field();
	// $field89->name = 'axis_r_s';
	// $field89->label= 'Axis';
	// $field89->uitype= 1;
	// $field89->displaytype= 1;
	// $field89->table= $module->basetable;
	// $field89->column = $field89->name;
	// $field89->typeofdata = 'I~O';
	// $block1->addField($field89);

	// $field90  = new Vtiger_Field();
	// $field90->name = 'axis_l_s';
	// $field90->label= 'Axis';
	// $field90->uitype= 1;
	// $field90->displaytype= 1;
	// $field90->table= $module->basetable;
	// $field90->column = $field90->name;
	// $field90->typeofdata = 'I~O';
	// $block1->addField($field90);

	// $field91  = new Vtiger_Field();
	// $field91->name = 'dprisom_r_s';
	// $field91->label= 'D.PRISM';
	// $field91->uitype= 1;
	// $field91->displaytype= 1;
	// $field91->table= $module->basetable;
	// $field91->column = $field91->name;
	// $field91->typeofdata = 'I~O';
	// $block1->addField($field91);

	// $field92  = new Vtiger_Field();
	// $field92->name = 'dprisom_l_s';
	// $field92->label= 'D.PRISM';
	// $field92->uitype= 1;
	// $field92->displaytype= 1;
	// $field92->table= $module->basetable;
	// $field92->column = $field92->name;
	// $field92->typeofdata = 'I~O';
	// $block1->addField($field92);

	// $field93  = new Vtiger_Field();
	// $field93->name = 'dist_r_s';
	// $field93->label= 'DIST.VA';
	// $field93->uitype= 1;
	// $field93->displaytype= 1;
	// $field93->table= $module->basetable;
	// $field93->column = $field93->name;
	// $field93->typeofdata = 'I~O';
	// $block1->addField($field93);

	// $field94  = new Vtiger_Field();
	// $field94->name = 'dist_l_s';
	// $field94->label= 'DIST.VA';
	// $field94->uitype= 1;
	// $field94->displaytype= 1;
	// $field94->table= $module->basetable;
	// $field94->column = $field94->name;
	// $field94->typeofdata = 'I~O';
	// $block1->addField($field94);

	// $field95  = new Vtiger_Field();
	// $field95->name = 'near_r_s';
	// $field95->label= 'NEAR ADD';
	// $field95->uitype= 1;
	// $field95->displaytype= 1;
	// $field95->table= $module->basetable;
	// $field95->column = $field95->name;
	// $field95->typeofdata = 'I~O';
	// $block1->addField($field95);

	// $field96  = new Vtiger_Field();
	// $field96->name = 'near_l_s';
	// $field96->label= 'NEAR ADD';
	// $field96->uitype= 1;
	// $field96->displaytype= 1;
	// $field96->table= $module->basetable;
	// $field96->column = $field96->name;
	// $field96->typeofdata = 'I~O';
	// $block1->addField($field96);

	// $field97  = new Vtiger_Field();
	// $field97->name = 'nprism_r_s';
	// $field97->label= 'N.PRISM';
	// $field97->uitype= 1;
	// $field97->displaytype= 1;
	// $field97->table= $module->basetable;
	// $field97->column = $field97->name;
	// $field97->typeofdata = 'I~O';
	// $block1->addField($field97);

	// $field98  = new Vtiger_Field();
	// $field98->name = 'nprism_l_s';
	// $field98->label= 'N. PRISM';
	// $field98->uitype= 1;
	// $field98->displaytype= 1;
	// $field98->table= $module->basetable;
	// $field98->column = $field98->name;
	// $field98->typeofdata = 'I~O';
	// $block1->addField($field98);

	// $field99  = new Vtiger_Field();
	// $field99->name = 'pd_r_s';
	// $field99->label= 'PD';
	// $field99->uitype= 1;
	// $field99->displaytype= 1;
	// $field99->table= $module->basetable;
	// $field99->column = $field99->name;
	// $field99->typeofdata = 'I~O';
	// $block1->addField($field99);

	// $field100  = new Vtiger_Field();
	// $field100->name = 'pd_l_s';
	// $field100->label= 'PD';
	// $field100->uitype= 1;
	// $field100->displaytype= 1;
	// $field100->table= $module->basetable;
	// $field100->column = $field100->name;
	// $field100->typeofdata = 'I~O';
	// $block1->addField($field100);

	// $field119  = new Vtiger_Field();
	// $field119->name = 'nearva_r_s';
	// $field119->label= 'NEAR VA';
	// $field119->uitype= 1;
	// $field119->displaytype= 1;
	// $field119->table= $module->basetable;
	// $field119->column = $field119->name;
	// $field119->typeofdata = 'I~O';
	// $block1->addField($field119);

	// $field120  = new Vtiger_Field();
	// $field120->name = 'nearva_l_s';
	// $field120->label= 'NEAR VA';
	// $field120->uitype= 1;
	// $field120->displaytype= 1;
	// $field120->table= $module->basetable;
	// $field120->column = $field120->name;
	// $field120->typeofdata = 'I~O';
	// $block1->addField($field120);

	// $field121  = new Vtiger_Field();
	// $field121->name = 'bin_r_s';
	// $field121->label= 'BIN.VA';
	// $field121->uitype= 1;
	// $field121->displaytype= 1;
	// $field121->table= $module->basetable;
	// $field121->column = $field121->name;
	// $field121->typeofdata = 'I~O';
	// $block1->addField($field121);

	// $field122  = new Vtiger_Field();
	// $field122->name = 'bin_l_s';
	// $field122->label= 'BIN.VA';
	// $field122->uitype= 1;
	// $field122->displaytype= 1;
	// $field122->table= $module->basetable;
	// $field122->column = $field122->name;
	// $field122->typeofdata = 'I~O';
	// $block1->addField($field122);

	// $field123  = new Vtiger_Field();
	// $field123->name = 'interadd_r_s';
	// $field123->label= 'INTER ADD';
	// $field123->uitype= 1;
	// $field123->displaytype= 1;
	// $field123->table= $module->basetable;
	// $field123->column = $field123->name;
	// $field123->typeofdata = 'I~O';
	// $block1->addField($field123);

	// $field124  = new Vtiger_Field();
	// $field124->name = 'interadd_l_s';
	// $field124->label= 'INTER ADD';
	// $field124->uitype= 1;
	// $field124->displaytype= 1;
	// $field124->table= $module->basetable;
	// $field124->column = $field124->name;
	// $field124->typeofdata = 'I~O';
	// $block1->addField($field124);
/*/////////////////////////////////////////////*/
		

		// $block1 = new Vtiger_Block();
		// $block1->label = "LBL_PATIENT_DETAIL";
		// $module->addBlock($block1);


		// $field1  = new Vtiger_Field();
		// $field1->name = 'patient_detail';
		// $field1->label= 'Patient';
		// $field1->table= $module->basetable;
		// $field1->column = $field1->name;
		// $field1->coulmntype = "VARCHAR(255)";
		// $field1->uitype= 10;
		// $field1->typeofdata = 'V~O';
		// $block1->addField($field1);
		// $field1->setRelatedModules(Array('PatientDetail'));

		
		// $field2 = new Vtiger_Field();
		// $field2->name = 'spectacle_exam_no'; 
		// $field2->label = 'Spectacle Exam No'; 
		// $field2->uitype = 4;
		// $field2->table = $module->basetable; 
		// $field2->column = $field2->name;
		// $field2->columntype = 'VARCHAR(255)';
		// $field2->typeofdata = 'V~O';
		// $module->setEntityIdentifier($field2); 
		// $block1->addField($field2); 

		// //         // Recommended common fields every Entity module should have (linked to core table)
        // $mfield1 = new Vtiger_Field();
        // $mfield1->name = 'assigned_user_id';
        // $mfield1->label = 'Assigned To';
        // $mfield1->table = 'vtiger_crmentity';
        // $mfield1->column = 'smownerid';
        // $mfield1->uitype = 53;
        // $mfield1->typeofdata = 'V~M';
        // $block1->addField($mfield1);

        // $mfield2 = new Vtiger_Field();
        // $mfield2->name = 'createdtime';
        // $mfield2->label= 'Created Time';
        // $mfield2->table = 'vtiger_crmentity';
        // $mfield2->column = 'createdtime';
        // $mfield2->uitype = 70;
        // $mfield2->typeofdata = 'DT~O';
        // $mfield2->displaytype= 2;
        // $block1->addField($mfield2);

        // $mfield3 = new Vtiger_Field();
        // $mfield3->name = 'modifiedtime';
        // $mfield3->label= 'Modified Time';
        // $mfield3->table = 'vtiger_crmentity';
        // $mfield3->column = 'modifiedtime';
        // $mfield3->uitype = 70;
        // $mfield3->typeofdata = 'DT~O';
        // $mfield3->displaytype= 2;
        // $block1->addField($mfield3);

        // /* NOTE: Vtiger 7.1.0 onwards */
        // $mfield4 = new Vtiger_Field();
        // $mfield4->name = 'source';
        // $mfield4->label = 'Source';
        // $mfield4->table = 'vtiger_crmentity';
        // $mfield4->displaytype = 2; // to disable field in Edit View
        // $mfield4->quickcreate = 3;
        // $mfield4->masseditable = 0;
        // $block1->addField($mfield4);

        // $mfield5 = new Vtiger_Field();
        // $mfield5->name = 'starred';
        // $mfield5->label = 'starred';
        // $mfield5->table = 'vtiger_crmentity_user_field';
        // $mfield5->displaytype = 6;
        // $mfield5->uitype = 56;
        // $mfield5->typeofdata = 'C~O';
        // $mfield5->quickcreate = 3;
        // $mfield5->masseditable = 0;
        // $block1->addField($mfield5);

        // $mfield6 = new Vtiger_Field();
        // $mfield6->name = 'tags';
        // $mfield6->label = 'tags';
        // $mfield6->displaytype = 6;
        // $mfield6->columntype = 'VARCHAR(1)';
        // $mfield6->quickcreate = 3;
        // $mfield6->masseditable = 0;
        // $block1->addField($mfield6);
        // /* End 7.1.0 */

        // // Filter Setup
        // $filter1 = new Vtiger_Filter();
        // $filter1->name = 'All';
        // $filter1->isdefault = true;
        // $module->addFilter($filter1);
        // $filter1->addField($field2);

        // // Sharing Access Setup
        // $module->setDefaultSharing();

        // mkdir('modules/'.$MODULENAME);
        // echo "OK\n";