#
# A chain to initiate IOC reboot
#
grecord(calc,"$(IOC):plc_dead_time")
{
	field(DESC,"Time PLC is not communicating" )
        field(SCAN,"1 second") 
        field(CALC,"a=1&b=3&c=0&d=0?g+1:0")
        field(INPA,"$(IOC):Coil:H_LN2.STAT NPP NMS")
        field(INPB,"$(IOC):Coil:H_LN2.SEVR NPP NMS")
        field(INPC,"$(IOC):plc_heartbeat.STAT NPP NMS")
        field(INPD,"$(IOC):plc_heartbeat.SEVR NPP NMS")
        field(INPG,"$(IOC):plc_dead_time NPP NMS")
        field(FLNK, "$(IOC):ioc_reboot_calc PP NMS")
}

grecord(calcout,"$(IOC):ioc_reboot_calc")
{
	field(DESC,"Reboot is needed or not")
        field(SCAN,"Passive") 
        field(CALC,"a<g?0:1")
        field(INPA,"$(IOC):plc_dead_time NPP NMS")
        field(INPG,"$(IOC):dead_plc_tolr NPP NMS")
	field(OUT, "$(IOC):reboot_ioc PP NMS")
	field(OOPT,"When Non-zero")
	field(DOPT,"Use CALC")

}
#
# If this record gets processed the IOC will reboot
# It uses the input field to exectute the reboot command 
#
grecord(sub, "$(IOC):reboot_ioc")
{
        field(DESC, "Force IOC reboot")
        field(SCAN, "Passive")
        field(INAM, "rebootInit")
        field(SNAM, "rebootProc")
#        field(INPA, "restart")
#        field(INPB, "restart")
#        field(INPC, "")
        field(FLNK, "$(IOC):reset_reboot PP NMS")
}

grecord(ao, "$(IOC):reset_reboot")
{
        field(DESC, "Force IOC reboot")
        field(SCAN, "Passive")
	field(VAL,  "0.0" )
	field(PINI, "1" ) 
        field(OUT,  "$(IOC):plc_dead_time NPP NMS")
	field(OMSL, "closed_loop")       
        field(DOL,  "$(IOC):reset_reboot.VAL NPP NMS")
        field(DTYP,"Soft Channel")
}


grecord(ai,"$(IOC):dead_plc_tolr") 
{
	field(DESC,"Time limit for dead PLC")
        field(SCAN,"Passive") 	
	field(PINI, "1")
	field(VAL,  "120")
        field(DTYP,"Soft Channel")
}