// CardiacCathMoVol
// VascCathMoVol
// CardiacUSMoVol
// VascUSMoVol
// NuclearMoVol
// AnnualPctIncrease
// RetentionPeriod

var vEstArchiveSize = 0;
var vEstArchiveCost = 0;
var vEstCostPerStudy = 0;

// Average Study sizes in MB
var CardiacCathAvgSize = 250;
var VascCathAvgSize = 300;
var CardiacUSAvgSize = 100;
var VascUSAvgSize = 50;
var NuclearAvgSize = 30;

var TotalAnProcedureVolume = 0;
var MaxStudiesStored = 0;

var TotalProcedureAnArchiveSize = 0;
var TotalProcedureRetentionArchiveSize = 0;

function EstimateArchive1(EstForm){
alert("Function invoked 0");
return;
}

function EstimateArchive(EstForm){
//alert("Function invoked 1");
ArchiveSizing_Form1_Validator(EstForm);
with (EstForm) {
	TotalAnProcedureVolume =  CardiacCathMoVol.value*12 + VascCathMoVol.value*12 + CardiacUSMoVol.value*12 + VascUSMoVol.value*12 + NuclearMoVol.value*12;
	//alert("Function invoked 2");

	
	//alert(TotalAnProcedureVolume );
	//if ( TotalAnProcedureVolume <=0 ){
	//	alert("Please enter at least one positive value for procedure monthly volume fields!.");
	//  	return;
	//}
	
	if (CardiacCathMoVol.value == 0 &&  VascCathMoVol.value == 0 &&  CardiacUSMoVol.value == 0 &&  VascUSMoVol.value == 0 &&  NuclearMoVol.value == 0 ) {
	alert("Please enter at least one positive value for procedure monthly volume fields!.");
	return;
	}

	else {
	//alert("Function invoked 3");

		TotalProcedureAnArchiveSize = 12 * (CardiacCathMoVol.value * CardiacCathAvgSize  + VascCathMoVol.value * VascCathAvgSize  + CardiacUSMoVol.value * CardiacUSAvgSize + VascUSMoVol.value * VascUSAvgSize  + NuclearMoVol.value * NuclearAvgSize); 
		TotalProcedureRetentionArchiveSize = (TotalProcedureAnArchiveSize * ( (Math.pow((1+ AnnualPctIncrease.value/100),RetentionPeriod.value) - 1) * 100 / AnnualPctIncrease.value))/1000000;
		vEstArchiveSize = d_places(TotalProcedureRetentionArchiveSize,2);
		
		
		
		if (vEstArchiveSize <= 2)
			vEstArchiveCost = 25000;
		else if (vEstArchiveSize <= 3.5)
			vEstArchiveCost = 80000;
		else if (vEstArchiveSize <= 7)
			vEstArchiveCost= 120000;
		else if (vEstArchiveSize <= 10)
			vEstArchiveCost = 160000;
		else if (vEstArchiveSize <= 14)
			vEstArchiveCost = 200000;
		
		
		
		MaxStudiesStored =	TotalAnProcedureVolume * ((Math.pow((1+ AnnualPctIncrease.value/100),RetentionPeriod.value) - 1) /(AnnualPctIncrease.value/100));

		vEstCostPerStudy = vEstArchiveCost / MaxStudiesStored;

		RetentionYearsDisplay.value = RetentionPeriod.value;
		
		if ( !(isNaN(vEstArchiveSize) ||isNaN(vEstArchiveCost) || isNaN(vEstCostPerStudy)))
		{
			EstArchiveSize.value = vEstArchiveSize;
			EstArchiveCost.value = vEstArchiveCost;
			EstCostPerStudy.value = d_places(vEstCostPerStudy,5);
		}
		else
		{
			EstArchiveSize.value = "";
			EstArchiveCost.value = "";
			EstCostPerStudy.value = "";
		}
		return;
	}
}
}