<?php
	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');

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

	$field1  = new Vtiger_Field();
	$field1->name = 'spectacle_exam';
	$field1->label= 'Spectacle Exam';
	$field1->table= $module->basetable;
	$field1->column = $field1->name;
	$field1->coulmntype = "VARCHAR(255)";
	$field1->uitype= 15;
	$field1->typeofdata = 'V~O';
	$field1->setPicklistValues(array());	
	$block1->addField($field1);
	
	/*$block2 = new Vtiger_Block();
	$block2->label = "LBL_Final_RX";
	$block2 = $block1->getInstance($block2->label,$module);

	$field1  = new Vtiger_Field();
	$field1->name = 'dprisom_inout_r_s';
	$field1->label= 'Dprisom Inout R';
	$field1->table= $module->basetable;
	$field1->column = $field1->name;
	$field1->coulmntype = "VARCHAR(255)";
	$field1->uitype= 1;
	$field1->typeofdata = 'V~O';
	$block1->addField($field1);
	
	$field2 = new Vtiger_Field();
	$field2->name = 'dprisom_updown_r_s'; 
	$field2->label = 'Dprisom Updown R'; 
	$field2->table = $module->basetable; 
	$field2->column = $field2->name;
	$field2->columntype = 'VARCHAR(255)';
	$field2->uitype = 1;
	$field2->typeofdata = 'V~O';
	$block1->addField($field2); 
    // Recommended common fields every Entity module should have (linked to core table)

	$field3 = new Vtiger_Field();
	$field3->name = 'nprisom_inout_r_s'; 
	$field3->label = 'Nprisom Inout R'; 
	$field3->table = $module->basetable; 
	$field3->column = $field3->name;
	$field3->columntype = 'VARCHAR(255)';
	$field3->uitype = 1;
	$field3->typeofdata = 'V~O'; 
	$block1->addField($field3);

	$field4 = new Vtiger_Field();
	$field4->name = 'nprisom_updown_r_s'; 
	$field4->label = 'Nprisom Updown R'; 
	$field4->table = $module->basetable; 
	$field4->column = $field4->name;
	$field4->columntype = 'VARCHAR(255)';
	$field4->uitype = 1;
	$field4->typeofdata = 'V~O'; 
	$block1->addField($field4);

	$field5 = new Vtiger_Field();
	$field5->name = 'dprisom_inout_l_s'; 
	$field5->label = 'Dprisom Inout L'; 
	$field5->table = $module->basetable; 
	$field5->column = $field5->name;
	$field5->columntype = 'VARCHAR(255)';
	$field5->uitype = 1;
	$field5->typeofdata = 'V~O'; 
	$block1->addField($field5);

	$field6 = new Vtiger_Field();
	$field6->name = 'dprisom_updown_l_s'; 
	$field6->label = 'Dprisom Updown L'; 
	$field6->table = $module->basetable; 
	$field6->column = $field6->name;
	$field6->columntype = 'VARCHAR(255)';
	$field6->uitype = 1;
	$field6->typeofdata = 'V~O'; 
	$block1->addField($field6);

	$field7 = new Vtiger_Field();
	$field7->name = 'nprism_inout_l_s'; 
	$field7->label = 'Nprisom Inout L'; 
	$field7->table = $module->basetable; 
	$field7->column = $field7->name;
	$field7->columntype = 'VARCHAR(255)';
	$field7->uitype = 1;
	$field7->typeofdata = 'V~O'; 
	$block1->addField($field7);

	$field8 = new Vtiger_Field();
	$field8->name = 'nprism_updown_l_s'; 
	$field8->label = 'Nprisom Updown L'; 
	$field8->table = $module->basetable; 
	$field8->column = $field8->name;
	$field8->columntype = 'VARCHAR(255)';
	$field8->uitype = 1;
	$field8->typeofdata = 'V~O'; 
	$block1->addField($field8);

	$field47  = new Vtiger_Field();
	$field47->name = 'dprisom_inout_r_f';
	$field47->label= 'Dprisom Inout R';
	$field47->uitype= 1;
	
	$field47->table= $module->basetable;
	$field47->column = $field47->name;
	$field47->typeofdata = 'V~O';
	$block2->addField($field47);

	$field48  = new Vtiger_Field();
	$field48->name = 'dprisom_updown_r_f';
	$field48->label= 'Dprisom Updown R';
	$field48->uitype= 1;
	
	$field48->table= $module->basetable;
	$field48->column = $field48->name;
	$field48->typeofdata = 'V~O';
	$block2->addField($field48);

	$field49  = new Vtiger_Field();
	$field49->name = 'nprism_inout_r_f';
	$field49->label= 'Nprisom Inout R';
	$field49->uitype= 1;
	
	$field49->table= $module->basetable;
	$field49->column = $field49->name;
	$field49->typeofdata = 'V~O';
	$block2->addField($field49);

	$field50  = new Vtiger_Field();
	$field50->name = 'nprism_updown_r_f';
	$field50->label= 'Nprisom Updown R';
	$field50->uitype= 1;
	
	$field50->table= $module->basetable;
	$field50->column = $field50->name;
	$field50->typeofdata = 'V~O';
	$block2->addField($field50);

	$field51  = new Vtiger_Field();
	$field51->name = 'dprisom_inout_l_f';
	$field51->label= 'Dprisom Inout L';
	$field51->uitype= 1;
	
	$field51->table= $module->basetable;
	$field51->column = $field51->name;
	$field51->typeofdata = 'V~O';
	$block2->addField($field51);

	$field52  = new Vtiger_Field();
	$field52->name = 'dprisom_updown_l_f';
	$field52->label= 'Dprisom Updown L';
	$field52->uitype= 1;
	
	$field52->table= $module->basetable;
	$field52->column = $field52->name;
	$field52->typeofdata = 'V~O';
	$block2->addField($field52);

	$field53  = new Vtiger_Field();
	$field53->name = 'nprism_inout_l_f';
	$field53->label= 'Nprisom Inout L';
	$field53->uitype= 1;
	
	$field53->table= $module->basetable;
	$field53->column = $field53->name;
	$field53->typeofdata = 'V~O';
	$block2->addField($field53);

	$field54  = new Vtiger_Field();
	$field54->name = 'nprism_updown_l_f';
	$field54->label= 'Nprisom Updown L';
	$field54->uitype= 1;
	
	$field54->table= $module->basetable;
	$field54->column = $field54->name;
	$field54->typeofdata = 'V~O';
	$block2->addField($field54);
*/
?>