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


# 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, "$(DETch):first_check") {
  field(DESC, "First temp test")
  field(SCAN, "2 second")
  field(CALC, "(G<E||E<F)&(D#1)?1:0")
  field(INPD, "$(DETch):intlk_bypass")
  field(INPE, "$(DETch):vmon NPP MS")
  field(INPF, "$(DETch):v_min")
  field(INPG, "$(DETch):v_max")
  field(OUT, "$(DETch):second_check PP MS")
  field(OOPT, "When Non-zero")
  field(DOPT, "Use OCAL")
  field(OCAL, "1")
  field(IVOA, "Set output to IVOV")
  field(IVOV, "1")
}

# Second check. If this PV is processed
# and the CALC is TRUE (1) it will set the
# interlock status record to 1.
record(calcout, "$(DETch):second_check") {
  field(DESC, "Second check")
  field(SCAN, "Passive")
  field(PINI, "NO")
  field(CALC, "(G<E||E<F)&(D#1)?1:0")
  field(INPD, "$(DETch):intlk_bypass")
  field(INPE, "$(DETch):vmon NPP MS")
  field(INPF, "$(DETch):v_min.VAL NPP MS")
  field(INPG, "$(DETch):v_max.VAL NPP MS")
  field(OUT, "$(DETch):third_check.VAL PP MS")
  field(OOPT, "When Non-zero")
  field(DOPT, "Use CALC")
  field(OCAL, "1")
  field(IVOA, "Set output to IVOV")
  field(IVOV, "1")
}

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

record(bo, "$(DETch):force_off") {
  field(DESC, "Force Zero")
  field(SCAN, "1 second")
  field(DISV, "0")
  field(SDIS, "$(DETch):intlk_status.VAL")
  field(VAL, "0")
  field(OUT, "$(DETch):pwonoff PP NMS")
}

# Record to bypass interlock
record(bo, "$(DETch):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, "$(DETch):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, "$(DETch):intlk_delay") {
  field(SCAN, "Passive")
  field(PINI, "YES")
  field(VAL, "15")
  field(OUT, "$(DETch):intk_delay_fo PP")
  field(EGU, "sec")
}

record(ai, "$(DETch):v_min") {
  field(VAL, "-2000")
  field(EGU, "V")
}

record(ai, "$(DETch):v_max") {
  field(VAL, "2000")
  field(EGU, "V")
}

record(dfanout, "$(DETch):intk_delay_fo") {
  field(OUTA, "$(DETch):first_check.ODLY")
  field(OUTB, "$(DETch):second_check.ODLY")
  field(EGU, "sec")
}


record(calcout, "$(DETch):third_check") {
  field(DESC, "Second check")
  field(SCAN, "Passive")
  field(PINI, "NO")
  field(CALC, "(G<E||E<F)&(D#1)?1:0")
  field(INPD, "$(DETch):intlk_bypass")
  field(INPE, "$(DETch):vmon NPP MS")
  field(INPF, "$(DETch):v_min")
  field(INPG, "$(DETch):v_max")
  field(OUT, "$(DETch):intlk_status PP MS")
  field(OOPT, "When Non-zero")
  field(DOPT, "Use CALC")
  field(OCAL, "1")
  field(IVOA, "Set output to IVOV")
  field(IVOV, "1")
}

#! Further lines contain data used by VisualDCT
#! View(1954,1909,1.0)
#! Record("$(DETch):first_check",2040,1963,0,1,"$(DETch):first_check")
#! Field("$(DETch):first_check.ODLY",16777215,1,"$(DETch):first_check.ODLY")
#! Field("$(DETch):first_check.OUT",13369548,1,"$(DETch):first_check.OUT")
#! Link("$(DETch):first_check.OUT","$(DETch):second_check.VAL")
#! Field("$(DETch):first_check.INPE",16777215,1,"$(DETch):first_check.INPE")
#! Field("$(DETch):first_check.INPD",16724787,1,"$(DETch):first_check.INPD")
#! Link("$(DETch):first_check.INPD","$(DETch):intlk_bypass.VAL")
#! Field("$(DETch):first_check.INPG",10092441,1,"$(DETch):first_check.INPG")
#! Link("$(DETch):first_check.INPG","$(DETch):v_max.VAL")
#! Field("$(DETch):first_check.INPF",16737894,0,"$(DETch):first_check.INPF")
#! Link("$(DETch):first_check.INPF","$(DETch):v_min.VAL")
#! Record("$(DETch):second_check",2760,1969,0,1,"$(DETch):second_check")
#! Field("$(DETch):second_check.ODLY",16777215,0,"$(DETch):second_check.ODLY")
#! Field("$(DETch):second_check.VAL",13369548,0,"$(DETch):second_check.VAL")
#! Field("$(DETch):second_check.INPE",16777215,1,"$(DETch):second_check.INPE")
#! Field("$(DETch):second_check.OUT",16777215,1,"$(DETch):second_check.OUT")
#! Link("$(DETch):second_check.OUT","$(DETch):third_check.VAL")
#! Field("$(DETch):second_check.INPF",16737894,0,"$(DETch):second_check.INPF")
#! Link("$(DETch):second_check.INPF","$(DETch):v_min.VAL")
#! Field("$(DETch):second_check.INPG",52479,0,"$(DETch):second_check.INPG")
#! Link("$(DETch):second_check.INPG","$(DETch):v_max.VAL")
#! Field("$(DETch):second_check.INPD",16724787,0,"$(DETch):second_check.INPD")
#! Link("$(DETch):second_check.INPD","$(DETch):intlk_bypass.VAL")
#! Record("$(DETch):intlk_reset",3220,1980,0,1,"$(DETch):intlk_reset")
#! Field("$(DETch):intlk_reset.OUT",16777215,1,"$(DETch):intlk_reset.OUT")
#! Link("$(DETch):intlk_reset.OUT","$(DETch):intlk_status.VAL")
#! Record("$(DETch):force_off",3160,2500,0,1,"$(DETch):force_off")
#! Field("$(DETch):force_off.SDIS",16777215,1,"$(DETch):force_off.SDIS")
#! Link("$(DETch):force_off.SDIS","$(DETch):intlk_status.VAL")
#! Field("$(DETch):force_off.OUT",16777215,1,"$(DETch):force_off.OUT")
#! Record("$(DETch):intlk_bypass",2700,2500,0,1,"$(DETch):intlk_bypass")
#! Field("$(DETch):intlk_bypass.VAL",3394560,1,"$(DETch):intlk_bypass.VAL")
#! Record("$(DETch):intlk_status",3480,2192,0,1,"$(DETch):intlk_status")
#! Field("$(DETch):intlk_status.VAL",16777215,0,"$(DETch):intlk_status.VAL")
#! Record("$(DETch):intlk_delay",2220,1914,0,1,"$(DETch):intlk_delay")
#! Field("$(DETch):intlk_delay.OUT",16777215,1,"$(DETch):intlk_delay.OUT")
#! Link("$(DETch):intlk_delay.OUT","$(DETch):intk_delay_fo.VAL")
#! Record("$(DETch):v_min",2020,2576,0,1,"$(DETch):v_min")
#! Field("$(DETch):v_min.VAL",6711039,1,"$(DETch):v_min.VAL")
#! Record("$(DETch):v_max",2360,2556,0,1,"$(DETch):v_max")
#! Field("$(DETch):v_max.VAL",6710784,1,"$(DETch):v_max.VAL")
#! Record("$(DETch):intk_delay_fo",2480,1982,0,1,"$(DETch):intk_delay_fo")
#! Field("$(DETch):intk_delay_fo.VAL",16777215,0,"$(DETch):intk_delay_fo.VAL")
#! Field("$(DETch):intk_delay_fo.OUTA",16777215,0,"$(DETch):intk_delay_fo.OUTA")
#! Link("$(DETch):intk_delay_fo.OUTA","$(DETch):first_check.ODLY")
#! Field("$(DETch):intk_delay_fo.OUTB",16777215,1,"$(DETch):intk_delay_fo.OUTB")
#! Link("$(DETch):intk_delay_fo.OUTB","$(DETch):second_check.ODLY")
#! Record("$(DETch):third_check",3040,1989,0,1,"$(DETch):third_check")
#! Field("$(DETch):third_check.VAL",16777215,0,"$(DETch):third_check.VAL")
#! Field("$(DETch):third_check.INPE",16777215,1,"$(DETch):third_check.INPE")
#! Field("$(DETch):third_check.OUT",16777215,1,"$(DETch):third_check.OUT")
#! Link("$(DETch):third_check.OUT","$(DETch):intlk_status.VAL")
#! Field("$(DETch):third_check.INPG",6710784,0,"$(DETch):third_check.INPG")
#! Link("$(DETch):third_check.INPG","$(DETch):v_max.VAL")
#! Field("$(DETch):third_check.INPF",6711039,0,"$(DETch):third_check.INPF")
#! Link("$(DETch):third_check.INPF","$(DETch):v_min.VAL")
#! Field("$(DETch):third_check.INPD",3394560,0,"$(DETch):third_check.INPD")
#! Link("$(DETch):third_check.INPD","$(DETch):intlk_bypass.VAL")