#! Generated by VisualDCT v2.6

# 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)")
}