# mcc.db   Uwe Hoppe   Fritz-Haber-Institut der MPG   4/2013

# Firmware Version of CENTER THREE MCC
# ------------------------------------
record(stringin, "$(P)$(R)GetVersion") {
  field(DESC, "Get Contr. Firmware Version")
  field(DTYP, "stream")
  field(INP, "@mcc.proto getVersion $(BUS)")
  field(PINI, "YES")
}

# Unit of CENTER THREE MCC
# ------------------------
record(ai, "$(P)$(R)Unit") {
  field(DESC, "Unit-Value of device")
  field(DTYP, "stream")
  field(SCAN, "10 second")
  field(PINI, "YES")
  field(INP, "@mcc.proto getUnit $(BUS)")
  field(FLNK, "$(P)$(R)UnitStr PP NMS")
}
record(mbbi, "$(P)$(R)UnitStr") {
  field(DESC, "Unit-String of device")
  field(ZRST, "mBar")
  field(ZRVL, "0")
  field(ONST, "Torr")
  field(ONVL, "1")
  field(TWST, "Pa")
  field(TWVL, "2")
  field(THST, "Micron")
  field(THVL, "3")
  field(PINI, "YES")
  field(INP, "$(P)$(R)Unit NPP")
}

# Status and Pressure Channel 1
# -----------------------------
record(ai, "$(P)$(R)GetStat1") {
  field(DESC, "Status of Channel 1")
  field(DTYP, "stream")
  field(INP, "@mcc.proto getStatPres($(P)$(R)GetPres,1) $(BUS)")
  field(SCAN, "5 second")
  field(PINI, "YES")
  field(FLNK, "$(P)$(R)GetPres1")
  field(FLNK, "$(P)$(R)Status1 PP NMS")
  field(HIGH, "1")
  field(HSV, "MAJOR")
}
record(ai, "$(P)$(R)GetPres1") {
  field(DESC, "Pressure sensor 1")
}
record(mbbi, "$(P)$(R)Status1") {
  field(DESC, "Status String of Channel 1")
  field(ZRST, "Data ok")
  field(ZRVL, "0")
  field(ONST, "Underrange")
  field(ONVL, "1")
  field(TWST, "Overrange")
  field(TWVL, "2")
  field(THST, "Transm. err")
  field(THVL, "3")
  field(FRST, "Transm. off")
  field(FRVL, "4")
  field(FVST, "No Transm.")
  field(FVVL, "5")
  field(SXST, "Ident. err")
  field(SXVL, "6")
  field(SVST, "ITR err")
  field(SVVL, "7")
  field(INP, "$(P)$(R)GetStat1 NPP")
}

# Status and Pressure Channel 2
# -----------------------------
record(ai, "$(P)$(R)GetStat2") {
  field(DESC, "Status of Channel 2")
  field(DTYP, "stream")
  field(INP, "@mcc.proto getStatPres($(P)$(R)GetPres,2) $(BUS)")
  field(SCAN, "5 second")
  field(PINI, "YES")
  field(FLNK, "$(P)$(R)GetPres2")
  field(FLNK, "$(P)$(R)Status2 PP NMS")
  field(HIGH, "1")
  field(HSV, "MAJOR")
}
record(ai, "$(P)$(R)GetPres2") {
  field(DESC, "Pressure sensor 2")
}
record(mbbi, "$(P)$(R)Status2") {
  field(DESC, "Status String of Channel 2")
  field(ZRST, "Data ok")
  field(ZRVL, "0")
  field(ONST, "Underrange")
  field(ONVL, "1")
  field(TWST, "Overrange")
  field(TWVL, "2")
  field(THST, "Transm. err")
  field(THVL, "3")
  field(FRST, "Transm. off")
  field(FRVL, "4")
  field(FVST, "No Transm.")
  field(FVVL, "5")
  field(SXST, "Ident. err")
  field(SXVL, "6")
  field(SVST, "ITR err")
  field(SVVL, "7")
  field(INP, "$(P)$(R)GetStat2 NPP")
}

# Status and Pressure Channel 3
# -----------------------------
record(ai, "$(P)$(R)GetStat3") {
  field(DESC, "Status of Channel 3")
  field(DTYP, "stream")
  field(INP, "@mcc.proto getStatPres($(P)$(R)GetPres,3) $(BUS)")
  field(SCAN, "5 second")
  field(PINI, "YES")
  field(FLNK, "$(P)$(R)GetPres3")
  field(FLNK, "$(P)$(R)Status3 PP NMS")
  field(HIGH, "1")
  field(HSV, "MAJOR")
}
record(ai, "$(P)$(R)GetPres3") {
  field(DESC, "Pressure sensor 3")
}
record(mbbi, "$(P)$(R)Status3") {
  field(DESC, "Status String of Channel 3")
  field(ZRST, "Data ok")
  field(ZRVL, "0")
  field(ONST, "Underrange")
  field(ONVL, "1")
  field(TWST, "Overrange")
  field(TWVL, "2")
  field(THST, "Transm. err")
  field(THVL, "3")
  field(FRST, "Transm. off")
  field(FRVL, "4")
  field(FVST, "No Transm.")
  field(FVVL, "5")
  field(SXST, "Ident. err")
  field(SXVL, "6")
  field(SVST, "ITR err")
  field(SVVL, "7")
  field(INP, "$(P)$(R)GetStat3 NPP")
}

# Switching Functions Channel 1
# -----------------------------
record(ao, "$(P)$(R)SP1") {
  field(DESC, "Switching function 1")
  field(DTYP, "stream")
  field(OUT, "@mcc.proto setPoint($(P)$(R)SP,1) $(BUS)")
}
record(ao, "$(P)$(R)SP1L") {
  field(DESC, "Switching function 1 low")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP1")
}
record(ao, "$(P)$(R)SP1H") {
  field(DESC, "Switching function 1 upper")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP1")
}
record(ao, "$(P)$(R)SP2") {
  field(DESC, "Switching function 2")
  field(DTYP, "stream")
  field(OUT, "@mcc.proto setPoint($(P)$(R)SP,2) $(BUS)")
}
record(ao, "$(P)$(R)SP2L") {
  field(DESC, "Switching function 2 low")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP2")
}
record(ao, "$(P)$(R)SP2H") {
  field(DESC, "Switching function 2 upper")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP2")
}

# Switching Functions Channel 2
# -----------------------------
record(ao, "$(P)$(R)SP3") {
  field(DESC, "Switching function 3")
  field(DTYP, "stream")
  field(OUT, "@mcc.proto setPoint($(P)$(R)SP,3) $(BUS)")
}
record(ao, "$(P)$(R)SP3L") {
  field(DESC, "Switching function 3 low")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP3")
}
record(ao, "$(P)$(R)SP3H") {
  field(DESC, "Switching function 3 upper")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP3")
}
record(ao, "$(P)$(R)SP4") {
  field(DESC, "Switching function 4")
  field(DTYP, "stream")
  field(OUT, "@mcc.proto setPoint($(P)$(R)SP,4) $(BUS)")
}
record(ao, "$(P)$(R)SP4L") {
  field(DESC, "Switching function 4 low")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP4")
}
record(ao, "$(P)$(R)SP4H") {
  field(DESC, "Switching function 4 upper")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP4")
}

# Switching Functions Channel 3
# -----------------------------
record(ao, "$(P)$(R)SP5") {
  field(DESC, "Switching function 5")
  field(DTYP, "stream")
  field(OUT, "@mcc.proto setPoint($(P)$(R)SP,5) $(BUS)")
}
record(ao, "$(P)$(R)SP5L") {
  field(DESC, "Switching function 5 low")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP5")
}
record(ao, "$(P)$(R)SP5H") {
  field(DESC, "Switching function 5 upper")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP5")
}
record(ao, "$(P)$(R)SP6") {
  field(DESC, "Switching function 6")
  field(DTYP, "stream")
  field(OUT, "@mcc.proto setPoint($(P)$(R)SP,6) $(BUS)")
}
record(ao, "$(P)$(R)SP6L") {
  field(DESC, "Switching function 6 low")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP6")
}
record(ao, "$(P)$(R)SP6H") {
  field(DESC, "Switching function 6 upper")
  field(PREC, "4")
  field(FLNK, "$(P)$(R)SP6")
}