#Records to check if the beam is present
grecord( calcout,"H$(hall):BTA:beam_present_calc")
{
	field(SCAN,".2 second")	
	field(FLNK,"H$(hall):BTA:beam_used PP MS")
	field(PINI,"1")
	field(CALC,"a>b&&a<c&&d=3?1:0")
	field(INPA,"H$(hall):BTA:beam_current  NPP NMS")
	field(INPB,"H$(hall):BTA:min_current  NPP NMS")
	field(INPC,"H$(hall):BTA:max_current  NPP NMS")
	field(INPD,"IGL1I00HALLDMODE NPP NMS")
	field(OUT ,"H$(hall):BTA:beam_present PP NMS" )
  	field(OOPT, "Every Time")
  	field(DOPT, "Use CALC")
}

grecord( bo, "H$(hall):BTA:beam_present" )
{
#	alias( "HL$(hall):bta_bm_present " )
	field(DESC, "Beam present or not")
	field(SCAN, "Passive")
	field(ZNAM, "NO BEAM")
	field(ONAM, "BEAM PRESENT")
}


#Records to check if beam is used
grecord( calcout,"H$(hall):BTA:beam_used_calc")
{
	field(DESC, "Beam used or not calc")
	field(SCAN,".2 second")	
	field(CALC,"A==2?1:0")
	field(INPA,"H$(hall):coda:daq:status NPP NMS")
	field(OUT ,"H$(hall):BTA:beam_used PP NMS" )
  	field(OOPT, "Every Time")
  	field(DOPT, "Use CALC")
}

grecord( bo, "H$(hall):BTA:beam_used" )
{	
#	alias( "HL$(hall):bta_daq_used" )
	field(DESC, "Beam used or not")
	field(SCAN, "Passive")
	field(ZNAM, "BEAM NOT USED")
	field(ONAM, "BEAM USED")
}


#Minimum value for the current
grecord( ai,"H$(hall):BTA:min_current")
{
	field(SCAN,"Passive")	
	field(PINI, "YES")
	field(VAL , "20")
	field(EGU , "nA")
}
#Maximum value for the current
grecord( ai,"H$(hall):BTA:max_current")
{
	field(SCAN,"Passive")	
	field(PINI, "YES")
	field(VAL , "1000")
	field(EGU , "nA")
}


#BTA beam current
grecord( ai,"H$(hall):BTA:beam_current")
{
	field(SCAN, ".2 second")
	field(INP , "IBCAD00CRCUR6 NPP NMS")	
	field(EGU , "nA")
}