#! Generated by VisualDCT v2.6
#! DBDSTART
#! DBD("/group/halld/Online/controls/epics/R3-14-12-2/base/dbd/base.dbd")
#! DBDEND


template() {

  #! InputMacro(T_VAL,"",2440,2200,16777215,1,false)
  #! InputMacro(Q_VAL,"",2480,2280,16777215,1,false)
  #! OutputMacro(PV_2_ZERO,"",3360,2640,16777215,1,false)
}

# Check first time if the values are within allowed limits and the
# severity of the record itself is not INVALID. If not, after a few
# seconds trigger a second comparison to engage the interlock.
record(calcout, "$(P)first_check") {
  field(DESC, "First temp test")
  field(SCAN, "2 second")
  field(CALC, "(C<A||A<B||G<E||E<F||H=3)&(D#1)?1:0")
  field(INPA, "$(T_VAL) NPP MS")
  field(INPB, "$(P)t_min")
  field(INPC, "$(P)t_max")
  field(INPD, "$(P)intlk_bypass")
  field(INPE, "$(Q_VAL) NPP MS")
  field(INPF, "$(P)q_min")
  field(INPG, "$(P)q_max")
  field(OUT, "$(P)second_check PP MS")
  field(OOPT, "When Non-zero")
  field(DOPT, "Use OCAL")
  field(OCAL, "1")
  field(INPH, "$(P)first_check.SEVR")
}

record(ai, "$(P)t_max") {
  field(VAL, "30")
  field(EGU, "C")
}

record(ai, "$(P)t_min") {
  field(VAL, "15")
  field(EGU, "C")
}

# Second check. If this PV is processed
# and the CALC is TRUE (1) it will set the
# interlock status record to 1.
record(calcout, "$(P)second_check") {
  field(DESC, "Second check")
  field(SCAN, "Passive")
  field(PINI, "NO")
  field(CALC, "(C<A||A<B||G<E||E<F||H=3)&(D#1)?1:0")
  field(INPA, "$(T_VAL)")
  field(INPB, "$(P)t_min")
  field(INPC, "$(P)t_max")
  field(INPD, "$(P)intlk_bypass")
  field(INPE, "$(Q_VAL)")
  field(INPF, "$(P)q_min")
  field(INPG, "$(P)q_max")
  field(OUT, "$(P)intlk_status PP MS")
  field(OOPT, "When Non-zero")
  field(DOPT, "Use CALC")
  field(OCAL, "1")
  field(INPH, "$(P)first_check.SEVR")
}

# Record to reset the interlock
record(bo, "$(P)intlk_reset") {
  field(DESC, "Reset interlock")
  field(SCAN, "Passive")
  field(PINI, "NO")
  field(UDF, "0")
  field(VAL, "0")
  field(OUT, "$(P)intlk_status.VAL PP")
}

record(bo, "$(P)force_off") {
  field(DESC, "Force Zero")
  field(SCAN, "1 second")
  field(DISV, "0")
  field(SDIS, "$(P)intlk_status.VAL")
  field(VAL, "$(SHUT_VAL)")
  field(OUT, "$(PV_2_ZERO) PP")
}

# Record to bypass interlock
record(bo, "$(P)intlk_bypass") {
  field(DESC, "Bypass interlock")
  field(SCAN, "Passive")
  field(PINI, "YES")
  field(VAL, "0")
  field(ZNAM, "NO BYPASS")
  field(ONAM, "BYPASS")
}

# Status of the interlock. 1 Means interlock
# is engaged, 0 means interlock in not
# engaged.
record(bo, "$(P)intlk_status") {
  field(DESC, "Status of Interlock")
  field(SCAN, "Passive")
  field(PINI, "YES")
  field(VAL, "0")
  field(ZNAM, "Fine")
  field(ONAM, "Engaged")
  field(ZSV, "NO_ALARM")
  field(OSV, "MAJOR")
}

record(ao, "$(P)intlk_delay") {
  field(SCAN, "Passive")
  field(PINI, "YES")
  field(VAL, "10")
  field(OUT, "$(P)first_check.ODLY")
  field(EGU, "sec")
}

record(ai, "$(P)q_max") {
  field(VAL, "20")
  field(EGU, "lpm")
}

record(ai, "$(P)q_min") {
  field(VAL, "10")
  field(EGU, "lpm")
}

# Release interlock when status of the interlock goes to zero.
record(calcout, "$(P)release_interlock") {
  field(DESC, "Release the interlock")
  field(SCAN, "Passive")
  field(PINI, "NO")
  field(CALC, "A")
  field(INPA, "$(P)intlk_status CPP")
  field(OUT, "$(PV_2_ZERO) PP")
  field(OOPT, "Transition To Zero")
  field(DOPT, "Use OCAL")
  field(OCAL, "$(OPEN_VAL)")
}

#! Further lines contain data used by VisualDCT
#! View(1954,1909,1.0)
#! Record("$(P)first_check",2080,1955,0,1,"$(P)first_check")
#! Field("$(P)first_check.INPF",16737894,1,"$(P)first_check.INPF")
#! Link("$(P)first_check.INPF","$(P)q_min.VAL")
#! Field("$(P)first_check.INPB",10066431,1,"$(P)first_check.INPB")
#! Link("$(P)first_check.INPB","$(P)t_min.VAL")
#! Field("$(P)first_check.INPA",16777215,1,"$(P)first_check.INPA")
#! Link("$(P)first_check.INPA",T_VAL)
#! Field("$(P)first_check.INPE",16777215,1,"$(P)first_check.INPE")
#! Link("$(P)first_check.INPE",Q_VAL)
#! Field("$(P)first_check.OUT",16777215,1,"$(P)first_check.OUT")
#! Link("$(P)first_check.OUT","$(P)second_check.VAL")
#! Field("$(P)first_check.INPC",3407871,1,"$(P)first_check.INPC")
#! Link("$(P)first_check.INPC","$(P)t_max.VAL")
#! Field("$(P)first_check.INPG",10092441,1,"$(P)first_check.INPG")
#! Link("$(P)first_check.INPG","$(P)q_max.VAL")
#! Field("$(P)first_check.INPD",16724787,1,"$(P)first_check.INPD")
#! Link("$(P)first_check.INPD","$(P)intlk_bypass.VAL")
#! Field("$(P)first_check.SEVR",10066176,1,"$(P)first_check.SEVR")
#! Field("$(P)first_check.INPH",16777215,0,"$(P)first_check.INPH")
#! Link("$(P)first_check.INPH","$(P)first_check.SEVR")
#! Field("$(P)first_check.ODLY",16777215,0,"$(P)first_check.ODLY")
#! Record("$(P)t_max",2420,2336,0,1,"$(P)t_max")
#! Field("$(P)t_max.VAL",3407871,1,"$(P)t_max.VAL")
#! Record("$(P)t_min",2400,2056,0,1,"$(P)t_min")
#! Field("$(P)t_min.VAL",10066431,1,"$(P)t_min.VAL")
#! Record("$(P)second_check",2720,1921,0,1,"$(P)second_check")
#! Field("$(P)second_check.INPF",16737894,0,"$(P)second_check.INPF")
#! Link("$(P)second_check.INPF","$(P)q_min.VAL")
#! Field("$(P)second_check.INPB",10066431,0,"$(P)second_check.INPB")
#! Link("$(P)second_check.INPB","$(P)t_min.VAL")
#! Field("$(P)second_check.INPA",16777215,0,"$(P)second_check.INPA")
#! Link("$(P)second_check.INPA",T_VAL)
#! Field("$(P)second_check.INPE",16777215,0,"$(P)second_check.INPE")
#! Link("$(P)second_check.INPE",Q_VAL)
#! Field("$(P)second_check.VAL",16777215,0,"$(P)second_check.VAL")
#! Field("$(P)second_check.OUT",16777215,1,"$(P)second_check.OUT")
#! Link("$(P)second_check.OUT","$(P)intlk_status.VAL")
#! Field("$(P)second_check.INPC",3407871,0,"$(P)second_check.INPC")
#! Link("$(P)second_check.INPC","$(P)t_max.VAL")
#! Field("$(P)second_check.INPG",10092441,0,"$(P)second_check.INPG")
#! Link("$(P)second_check.INPG","$(P)q_max.VAL")
#! Field("$(P)second_check.INPD",16724787,0,"$(P)second_check.INPD")
#! Link("$(P)second_check.INPD","$(P)intlk_bypass.VAL")
#! Field("$(P)second_check.INPH",10066176,0,"$(P)second_check.INPH")
#! Link("$(P)second_check.INPH","$(P)first_check.SEVR")
#! Record("$(P)intlk_reset",2900,2000,0,1,"$(P)intlk_reset")
#! Field("$(P)intlk_reset.OUT",16777215,1,"$(P)intlk_reset.OUT")
#! Link("$(P)intlk_reset.OUT","$(P)intlk_status.VAL")
#! Record("$(P)force_off",2820,2480,0,1,"$(P)force_off")
#! Field("$(P)force_off.SDIS",16777215,1,"$(P)force_off.SDIS")
#! Link("$(P)force_off.SDIS","$(P)intlk_status.VAL")
#! Field("$(P)force_off.OUT",16777215,1,"$(P)force_off.OUT")
#! Link("$(P)force_off.OUT",PV_2_ZERO)
#! Record("$(P)intlk_bypass",2380,2580,0,1,"$(P)intlk_bypass")
#! Field("$(P)intlk_bypass.VAL",16724787,1,"$(P)intlk_bypass.VAL")
#! Record("$(P)intlk_status",3160,2152,0,1,"$(P)intlk_status")
#! Field("$(P)intlk_status.VAL",16777215,1,"$(P)intlk_status.VAL")
#! Record("$(P)intlk_delay",2040,2514,0,1,"$(P)intlk_delay")
#! Field("$(P)intlk_delay.OUT",16777215,0,"$(P)intlk_delay.OUT")
#! Link("$(P)intlk_delay.OUT","$(P)first_check.ODLY")
#! Record("$(P)q_max",2400,2436,0,1,"$(P)q_max")
#! Field("$(P)q_max.VAL",10092441,1,"$(P)q_max.VAL")
#! Record("$(P)q_min",2380,1936,0,1,"$(P)q_min")
#! Field("$(P)q_min.VAL",16737894,1,"$(P)q_min.VAL")
#! Record("$(P)release_interlock",3120,2359,0,1,"$(P)release_interlock")
#! Field("$(P)release_interlock.INPA",16777215,1,"$(P)release_interlock.INPA")
#! Link("$(P)release_interlock.INPA","$(P)intlk_status.VAL")
#! Field("$(P)release_interlock.OUT",16777215,1,"$(P)release_interlock.OUT")
#! Link("$(P)release_interlock.OUT",PV_2_ZERO)