<?php
error_reporting(0);
// Turn on debugging level
$Vtiger_Utils_Log = true;
include_once('vtlib/Vtiger/Menu.php');
include_once('vtlib/Vtiger/Module.php');

// Create module instance and save it first
$module = new Vtiger_Module();
$module->name = 'SpectacleExam';
$module = $module->getInstance('SpectacleExam');

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

$block1 = new Vtiger_Block();
$block1->label = 'LBL_FUTHER_INVESTIGATIVE_TECHNIQUES';
$block1 = $block1->getInstance($block1->label,$module);


$field1  = new Vtiger_Field();
$field1->name = 'r_result_file';
$field1->label= 'R Result File';
$field1->uitype= 28;
$field1->column = $field1->name;
$field1->table = 'vtiger_further_investigative_techniques';
$field1->columntype = 'VARCHAR(255)';
$field1->typeofdata = 'V~O';
$block1->addField($field1);

$field3  = new Vtiger_Field();
$field3->name = 'l_result_file';
$field3->label= 'L Result File';
$field3->uitype= 28;
$field3->column = $field3->name;
$field3->table = 'vtiger_further_investigative_techniques';
$field3->columntype = 'VARCHAR(255)';
$field3->typeofdata = 'V~O';
$block1->addField($field3);
/*
$field30  = new Vtiger_Field();
$field30->name = 'drugused';
$field30->label= 'Drug Used';
$field30->uitype= 15;
$field30->column = $field30->name;
$field30->table = 'vtiger_further_investigative_techniques';
$field30->typeofdata = 'V~O';
$block1->addField($field30);
$field30->setPicklistValues(array('0.5_tropicamide','1_tropicamide','0.5_cyclopentolate','1_cyclopentolate'));

$field3  = new Vtiger_Field();
$field3->name = 'mydriaticsrightdateTime';
$field3->label= 'Date and Time R';
$field3->uitype= 2;
$field3->column = $field3->name;
$field3->table = 'vtiger_further_investigative_techniques';
$field3->columntype = 'VARCHAR(255)';
$field3->typeofdata = 'V~O';
$block1->addField($field3);

$field3  = new Vtiger_Field();
$field3->name = 'mydriaticsleftdatetime';
$field3->label= 'Date and Time L';
$field3->uitype= 2;
$field3->column = $field3->name;
$field3->table = 'vtiger_further_investigative_techniques';
$field3->columntype = 'VARCHAR(255)';
$field3->typeofdata = 'V~O';
$block1->addField($field3);

$field3  = new Vtiger_Field();
$field3->name = 'batch_r';
$field3->label= 'Batch R';
$field3->uitype= 2;
$field3->column = $field3->name;
$field3->table = 'vtiger_further_investigative_techniques';
$field3->columntype = 'VARCHAR(255)';
$field3->typeofdata = 'V~O';
$block1->addField($field3);

$field3  = new Vtiger_Field();
$field3->name = 'batch_l';
$field3->label= 'Batch L';
$field3->uitype= 2;
$field3->column = $field3->name;
$field3->table = 'vtiger_further_investigative_techniques';
$field3->columntype = 'VARCHAR(255)';
$field3->typeofdata = 'V~O';
$block1->addField($field3);

$field3  = new Vtiger_Field();
$field3->name = 'expiry_r';
$field3->label= 'Expiry R';
$field3->uitype= 2;
$field3->column = $field3->name;
$field3->table = 'vtiger_further_investigative_techniques';
$field3->columntype = 'VARCHAR(255)';
$field3->typeofdata = 'V~O';
$block1->addField($field3);

$field3  = new Vtiger_Field();
$field3->name = 'expiry_l';
$field3->label= 'Expiry L';
$field3->uitype= 2;
$field3->column = $field3->name;
$field3->table = 'vtiger_further_investigative_techniques';
$field3->columntype = 'VARCHAR(255)';
$field3->typeofdata = 'V~O';
$block1->addField($field3);


$field3  = new Vtiger_Field();
$field3->name = 'r_notes';
$field3->label= 'R Notes';
$field3->uitype= 2;
$field3->column = $field3->name;
$field3->table = 'vtiger_further_investigative_techniques';
$field3->columntype = 'VARCHAR(255)';
$field3->typeofdata = 'V~O';
$block1->addField($field3);

$field3  = new Vtiger_Field();
$field3->name = 'l_notes';
$field3->label= 'L Notes';
$field3->uitype= 2;
$field3->column = $field3->name;
$field3->table = 'vtiger_further_investigative_techniques';
$field3->columntype = 'VARCHAR(255)';
$field3->typeofdata = 'V~O';
$block1->addField($field3);*/

/*$field30  = new Vtiger_Field();
$field30->name = 'instrument';
$field30->label= 'INSTRUMENT';
$field30->uitype= 15;
$field30->column = $field30->name;
$field30->table = 'vtiger_further_investigative_techniques';
$field30->typeofdata = 'V~O';
$block1->addField($field30);
$field30->setPicklistValues(array('NCT','Icare','Goldmann','Perkins'));
*/
/*
$field30  = new Vtiger_Field();
$field30->name = 'ioptakenwithone';
$field30->label= 'IOP Taken Withd';
$field30->uitype= 15;
$field30->column = $field30->name;
$field30->table = 'vtiger_further_investigative_techniques';
$field30->typeofdata = 'V~O';
$block1->addField($field30);
$field30->setPicklistValues(array('NCT','Icare','Goldmann','Perkins'));

$field30  = new Vtiger_Field();
$field30->name = 'ioptakenwithtwo';
$field30->label= 'IOP Taken Two';
$field30->uitype= 15;
$field30->column = $field30->name;
$field30->table = 'vtiger_further_investigative_techniques';
$field30->typeofdata = 'V~O';
$block1->addField($field30);
$field30->setPicklistValues(array('NCT','Icare','Goldmann','Perkins'));*/


/*
$field30  = new Vtiger_Field();
$field30->name = 'equipmentused';
$field30->label= 'Equipment Used';
$field30->uitype= 15;
$field30->column = $field30->name;
$field30->table = 'vtiger_further_investigative_techniques';
$field30->typeofdata = 'V~O';
$block1->addField($field30);
$field30->setPicklistValues(array('Henson 7000'));
*/

/*$field30  = new Vtiger_Field();
$field30->name = 'futuretesttype';
$field30->label= 'Test Type';
$field30->uitype= 15;
$field30->column = $field30->name;
$field30->table = 'vtiger_further_investigative_techniques';
$field30->typeofdata = 'V~O';
$block1->addField($field30);
$field30->setPicklistValues(array('Suprathreshold Screening'));*/


/*$field28  = new Vtiger_Field();
$field28->name = 'ombdistcrxfirst';
$field28->label= 'Distance ';
$field28->uitype= 2;
$field28->column = $field28->name;
$field28->table = 'vtiger_further_investigative_techniques';
$field28->typeofdata = 'V~O';
$block1->addField($field28);	

$field28  = new Vtiger_Field();
$field28->name = 'ombnearfirst';
$field28->label= 'Near ';
$field28->uitype= 2;
$field28->column = $field28->name;
$field28->table = 'vtiger_further_investigative_techniques';
$field28->typeofdata = 'V~O';
$block1->addField($field28);	

$field28  = new Vtiger_Field();
$field28->name = 'ombdistcrxsec';
$field28->label= 'Distance ';
$field28->uitype= 2;
$field28->column = $field28->name;
$field28->table = 'vtiger_further_investigative_techniques';
$field28->typeofdata = 'V~O';
$block1->addField($field28);	

$field28  = new Vtiger_Field();
$field28->name = 'ombnearsec';
$field28->label= 'Near ';
$field28->uitype= 2;
$field28->column = $field28->name;
$field28->table = 'vtiger_further_investigative_techniques';
$field28->typeofdata = 'V~O';
$block1->addField($field28);	*/


/*$field30  = new Vtiger_Field();
$field30->name = 'ioptakenwithtwo';
$field30->label= 'IOP Taken With';
$field30->uitype= 15;
$field30->column = $field30->name;
$field30->table = 'vtiger_further_investigative_techniques';
$field30->typeofdata = 'V~O';
$block1->addField($field30);
$field30->setPicklistValues(array());


$field28  = new Vtiger_Field();
$field28->name = 'averageioptime';
$field28->label= 'Average IOP Time';
$field28->uitype= 2;
$field28->column = $field28->name;
$field28->table = 'vtiger_further_investigative_techniques';
$field28->columntype = 'Date';
$field28->typeofdata = 'D~O';
$block1->addField($field28);



$field2  = new Vtiger_Field();
$field2->name = 'additiontestdate';
$field2->label= 'Date';
$field2->uitype= 5;
$field2->column = $field2->name;
$field2->columntype = 'Date';
$field2->table = 'vtiger_further_investigative_techniques';
$field2->typeofdata = 'D~O';
$block1->addField($field2);

$mfield1 = new Vtiger_Field();
$mfield1->name = 'examiner';
$mfield1->label = 'Examiner';
$mfield1->table = 'vtiger_further_investigative_techniques';
$mfield1->column = 'examiner';
$mfield1->uitype = 53;
$mfield1->typeofdata = 'V~M';
$block1->addField($mfield1);


$field1  = new Vtiger_Field();
$field1->name = 'distfirst';
$field1->label= 'distFirst';
$field1->uitype= 2;
$field1->column = $field1->name;
$field1->table = 'vtiger_further_investigative_techniques';
$field1->columntype = 'VARCHAR(255)';
$field1->typeofdata = 'V~O';
$block1->addField($field1);

$field3  = new Vtiger_Field();
$field3->name = 'nearfirst';
$field3->label= 'nearfirst';
$field3->uitype= 2;
$field3->column = $field3->name;
$field3->table = 'vtiger_further_investigative_techniques';
$field3->columntype = 'VARCHAR(255)';
$field3->typeofdata = 'V~O';
$block1->addField($field3);


$field4  = new Vtiger_Field();
$field4->name = 'phoriadfirst';
$field4->label= 'Phoria D. No Rx';
$field4->uitype= 2;
$field4->column = $field4->name;
$field4->table = 'vtiger_further_investigative_techniques';
$field4->columntype = 'VARCHAR(255)';
$field4->typeofdata = 'V~O';
$block1->addField($field4);

$field5  = new Vtiger_Field();
$field5->name = 'phorianfirst';
$field5->label= 'Phoria N. No Rx';
$field5->uitype= 2;
$field5->column = $field5->name;
$field5->table = 'vtiger_further_investigative_techniques';
$field5->columntype = 'VARCHAR(255)';
$field5->typeofdata = 'V~O';
$block1->addField($field5);*/


/*$field6  = new Vtiger_Field();
$field6->name = 'phoriadfirst';
$field6->label= 'Phoria D. No Rx';
$field6->uitype= 2;
$field6->column = $field6->name;
$field6->table = 'vtiger_further_investigative_techniques';
$field6->columntype = 'VARCHAR(255)';
$field6->typeofdata = 'V~O';
$block1->addField($field6);*/
/*
$field7  = new Vtiger_Field();
$field7->name = 'phorianfirst';
$field7->label= 'Phoria N. No Rx';
$field7->uitype= 2;
$field7->column = $field7->name;
$field7->table = 'vtiger_further_investigative_techniques';
$field7->columntype = 'VARCHAR(255)';
$field7->typeofdata = 'V~O';
$block1->addField($field7);*/


// $field8  = new Vtiger_Field();
// $field8->name = 'distsecound';
// $field8->label= 'Dist Old Rx';
// $field8->uitype= 2;
// $field8->column = $field8->name;
// $field8->table = 'vtiger_further_investigative_techniques';
// $field8->columntype = 'VARCHAR(255)';
// $field8->typeofdata = 'V~O';
// $block1->addField($field8);

// $field9  = new Vtiger_Field();
// $field9->name = 'nearsecound';
// $field9->label= 'Near Old Rx';
// $field9->uitype= 2;
// $field9->column = $field9->name;
// $field9->table = 'vtiger_further_investigative_techniques';
// $field9->columntype = 'VARCHAR(255)';
// $field9->typeofdata = 'V~O';
// $block1->addField($field9);


// $field10  = new Vtiger_Field();
// $field10->name = 'phoriadsecound';
// $field10->label= 'Phoria D. Old Rx';
// $field10->uitype= 2;
// $field10->column = $field10->name;
// $field10->table = 'vtiger_further_investigative_techniques';
// $field10->columntype = 'VARCHAR(255)';
// $field10->typeofdata = 'V~O';
// $block1->addField($field10);

// $field11  = new Vtiger_Field();
// $field11->name = 'phoriansecound';
// $field11->label= 'Phoria N. Old Rx';
// $field11->uitype= 2;
// $field11->column = $field11->name;
// $field11->table = 'vtiger_further_investigative_techniques';
// $field11->columntype = 'VARCHAR(255)';
// $field11->typeofdata = 'V~O';
// $block1->addField($field11);

// /*
// $field12  = new Vtiger_Field();
// $field12->name = 'earlytestcode';
// $field12->label= 'earlytestcode';
// $field12->uitype= 2;
// $field12->column = $field12->name;
// $field12->table = 'vtiger_further_investigative_techniques';
// $field12->columntype = 'VARCHAR(255)';
// $field12->typeofdata = 'V~O';
// $block1->addField($field12);


// $field13  = new Vtiger_Field();
// $field13->name = 'advicegiven';
// $field13->label= 'advicegiven';
// $field13->uitype= 21;
// $field13->column = $field13->name;
// $field13->table = 'vtiger_further_investigative_techniques';
// $field13->columntype = 'VARCHAR(255)';
// $field13->typeofdata = 'V~O';
// $block1->addField($field13);*/


// $field14  = new Vtiger_Field();
// $field14->name = 'distthird';
// $field14->label= 'Dist New Rx';
// $field14->uitype= 2;
// $field14->column = $field14->name;
// $field14->table = 'vtiger_further_investigative_techniques';
// $field14->columntype = 'VARCHAR(255)';
// $field14->typeofdata = 'V~O';
// $block1->addField($field14);

// $field15  = new Vtiger_Field();
// $field15->name = 'nearthird';
// $field15->label= 'Near New Rx';
// $field15->uitype= 2;
// $field15->column = $field15->name;
// $field15->table = 'vtiger_further_investigative_techniques';
// $field15->columntype = 'VARCHAR(255)';
// $field15->typeofdata = 'V~O';
// $block1->addField($field15);


// $field16  = new Vtiger_Field();
// $field16->name = 'phoriadthird';
// $field16->label= 'Phoria D. New Rx';
// $field16->uitype= 2;
// $field16->column = $field16->name;
// $field16->table = 'vtiger_further_investigative_techniques';
// $field16->columntype = 'VARCHAR(255)';
// $field16->typeofdata = 'V~O';
// $block1->addField($field16);

// $field17  = new Vtiger_Field();
// $field17->name = 'phorianthird';
// $field17->label= 'Phoria N. New Rx';
// $field17->uitype= 2;
// $field17->column = $field17->name;
// $field17->table = 'vtiger_further_investigative_techniques';
// $field17->columntype = 'VARCHAR(255)';
// $field17->typeofdata = 'V~O';
// $block1->addField($field17);


// $field18  = new Vtiger_Field();
// $field18->name = 'modtility';
// $field18->label= 'Motility';
// $field18->uitype= 2;
// $field18->column = $field18->name;
// $field18->table = 'vtiger_further_investigative_techniques';
// $field18->columntype = 'VARCHAR(255)';
// $field18->typeofdata = 'V~O';
// $block1->addField($field18);

// $field19  = new Vtiger_Field();
// $field19->name = 'ncp';
// $field19->label= 'NCP';
// $field19->uitype= 2;
// $field19->column = $field19->name;
// $field19->table = 'vtiger_further_investigative_techniques';
// $field19->columntype = 'VARCHAR(255)';
// $field19->typeofdata = 'V~O';
// $block1->addField($field19);


// $field20  = new Vtiger_Field();
// $field20->name = 'ioprightfirst';
// $field20->label= 'IOP R1';
// $field20->uitype= 2;
// $field20->column = $field20->name;
// $field20->table = 'vtiger_further_investigative_techniques';
// $field20->columntype = 'VARCHAR(255)';
// $field20->typeofdata = 'V~O';
// $block1->addField($field20);


// $field21  = new Vtiger_Field();
// $field21->name = 'ioprightsecound';
// $field21->label= 'IOP R2';
// $field21->uitype= 2;
// $field21->column = $field21->name;
// $field21->table = 'vtiger_further_investigative_techniques';
// $field21->columntype = 'VARCHAR(255)';
// $field21->typeofdata = 'V~O';
// $block1->addField($field21);

// $field22  = new Vtiger_Field();
// $field22->name = 'ioprightthird';
// $field22->label= 'IOP R3';
// $field22->uitype= 2;
// $field22->column = $field22->name;
// $field22->table = 'vtiger_further_investigative_techniques';
// $field22->columntype = 'VARCHAR(255)';
// $field22->typeofdata = 'V~O';
// $block1->addField($field22);

// $field23  = new Vtiger_Field();
// $field23->name = 'iopleftfirst';
// $field23->label= 'IOP L1';
// $field23->uitype= 2;
// $field23->column = $field23->name;
// $field23->table = 'vtiger_further_investigative_techniques';
// $field23->columntype = 'VARCHAR(255)';
// $field23->typeofdata = 'V~O';
// $block1->addField($field23);


// $field24  = new Vtiger_Field();
// $field24->name = 'iopleftsecound';
// $field24->label= 'IOP L2';
// $field24->uitype= 2;
// $field24->column = $field24->name;
// $field24->table = 'vtiger_further_investigative_techniques';
// $field24->columntype = 'VARCHAR(255)';
// $field24->typeofdata = 'V~O';
// $block1->addField($field24);

// $field25  = new Vtiger_Field();
// $field25->name = 'iopleftthird';
// $field25->label= 'IOP L3';
// $field25->uitype= 2;
// $field25->column = $field25->name;
// $field25->table = 'vtiger_further_investigative_techniques';
// $field25->columntype = 'VARCHAR(255)';
// $field25->typeofdata = 'V~O';
// $block1->addField($field25);

// $field26  = new Vtiger_Field();
// $field26->name = 'averagefirst';
// $field26->label= 'Average';
// $field26->uitype= 2;
// $field26->column = $field26->name;
// $field26->table = 'vtiger_further_investigative_techniques';
// $field26->columntype = 'VARCHAR(255)';
// $field26->typeofdata = 'V~O';
// $block1->addField($field26);

// $field27  = new Vtiger_Field();
// $field27->name = 'averagesecound';
// $field27->label= 'Average';
// $field27->uitype= 2;
// $field27->column = $field27->name;
// $field27->table = 'vtiger_further_investigative_techniques';
// $field27->columntype = 'VARCHAR(255)';
// $field27->typeofdata = 'V~O';
// $block1->addField($field27);




// /*
// $field29  = new Vtiger_Field();
// $field29->name = 'averageioptime';
// $field29->label= 'Average IOP Time';
// $field29->uitype= 5;
// $field29->column = $field29->name;
// $field29->table = 'vtiger_further_investigative_techniques';
// $field29->columntype = 'Date';
// $field29->typeofdata = 'D~O';
// $block1->addField($field29);*/




// $field31  = new Vtiger_Field();
// $field31->name = 'nextvisitdate';
// $field31->label= 'Next Visit Date';
// $field31->uitype= 5;
// $field31->column = $field31->name;
// $field31->table = 'vtiger_further_investigative_techniques';
// $field31->columntype = 'Date';
// $field31->typeofdata = 'D~O';
// $block1->addField($field31);


// $field32  = new Vtiger_Field();
// $field32->name = 'recallperiod';
// $field32->label= 'Recall Period';
// $field32->uitype= 2;
// $field32->column = $field32->name;
// $field32->table = 'vtiger_further_investigative_techniques';
// $field32->columntype = 'VARCHAR(255)';
// $field32->typeofdata = 'V~O';
// $block1->addField($field32);


// $field33  = new Vtiger_Field();
// $field33->name = 'visualfieldright';
// $field33->label= 'Visual Field Right';
// $field33->uitype= 2;
// $field33->column = $field33->name;
// $field33->table = 'vtiger_further_investigative_techniques';
// $field33->columntype = 'VARCHAR(255)';
// $field33->typeofdata = 'V~O';
// $block1->addField($field33);

// $field34  = new Vtiger_Field();
// $field34->name = 'visualfieldleft';
// $field34->label= 'Visual Field Left';
// $field34->uitype= 2;
// $field34->column = $field34->name;
// $field34->table = 'vtiger_further_investigative_techniques';
// $field34->columntype = 'VARCHAR(255)';
// $field34->typeofdata = 'V~O';
// $block1->addField($field34);


// $field35  = new Vtiger_Field();
// $field35->name = 'equipmentused';
// $field35->label= 'Equipment Used';
// $field35->uitype= 2;
// $field35->column = $field35->name;
// $field35->table = 'vtiger_further_investigative_techniques';
// $field35->columntype = 'VARCHAR(255)';
// $field35->typeofdata = 'V~O';
// $block1->addField($field35);



// $field36  = new Vtiger_Field();
// $field36->name = 'noteright';
// $field36->label= 'Note Right';
// $field36->uitype= 21;
// $field36->column = $field36->name;
// $field36->table = 'vtiger_further_investigative_techniques';
// $field36->columntype = 'VARCHAR(255)';
// $field36->typeofdata = 'V~O';
// $block1->addField($field36);

// $field37  = new Vtiger_Field();
// $field37->name = 'noteleft';
// $field37->label= 'Note Left';
// $field37->uitype= 21;
// $field37->column = $field37->name;
// $field37->table = 'vtiger_further_investigative_techniques';
// $field37->columntype = 'VARCHAR(255)';
// $field37->typeofdata = 'V~O';
// $block1->addField($field37);


echo "DOne";