# $Source: /cvs/G/DRV/SATECO/SATECO_lakeshore331.template,v $
# $Date: 2013/06/18 11:22:01 $
# $Revision: 1.7 $
# $Author: wang_x1 $


#  Required substitutions:
#    NAME        - prefix, e.g. X99SA-ES1-CRYOJET:
#    PTCOLS      - StreamDevice protocol file
#    PORT        - port name

##############################################
# Controller Control Mode
##############################################
record(mbbi, "$(NAME):CMODE_RBV")
{
    field(DESC, "control loop mode")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_CONTROL-MODE $(PORT)")
    
    field(ZRVL, "0")
    field(ONVL, "1")
    field(TWVL, "2")
    field(THVL, "3")
    field(FRVL, "4")
    field(FVVL, "5")

    field(ZRST, "Manual PID")
    field(ONST, "Zone")
    field(TWST, "Open Loop")
    field(THST, "Auto Tune PID")
    field(FRST, "Auto Tune PI")
    field(FVST, "Auto Tune P")

    field(SCAN, "1 second")
    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}

record(mbbo, "$(NAME):CMODE")
{
    field(DESC, "control loop mode")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) SET_CONTROL-MODE $(PORT)")
    
    field(ZRVL, "0")
    field(ONVL, "1")
    field(TWVL, "2")
    field(THVL, "3")
    field(FRVL, "4")
    field(FVVL, "5")

    field(ZRST, "Manual PID")
    field(ONST, "Zone")
    field(TWST, "Open Loop")
    field(THST, "Auto Tune PID")
    field(FRST, "Auto Tune PI")
    field(FVST, "Auto Tune P")

    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}

###########################################
#   Heater Status
###########################################
record(mbbo,      "$(NAME):HT-RNG")
{
    field(DESC, "heater range set-point")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) SET_HEAT-RANGE $(PORT)")

    field(ZRVL, "0")
    field(ONVL, "1")
    field(TWVL, "2")
    field(THVL, "3")

    field(ZRST, "Off")
    field(ONST, "Low")
    field(TWST, "Med")
    field(THST, "High")

    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}

record(mbbi,      "$(NAME):HT-RNG_RBV")
{
    field(DESC, "heater range readback")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_HEAT-RANGE $(PORT)")

    field(ZRVL, "0")
    field(ONVL, "1")
    field(TWVL, "2")
    field(THVL, "3")

    field(ZRST, "Off")
    field(ONST, "Low")
    field(TWST, "Med")
    field(THST, "High")

    field(SCAN, "1 second")
    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}

##############################################
# Heater Status
##############################################
record(mbbi, "$(NAME):HT-STAT")
{
    field(DESC, "heater status")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_HEAT-STAT $(PORT)")

    field(ZRVL, "0")
    field(ONVL, "1")
    field(TWVL, "2")

    field(ZRST, "no error")
    field(ONST, "open load")
    field(TWST, "short circuit")

    field(ZRSV, "NO_ALARM")
    field(ONSV, "MAJOR")
    field(TWSV, "MAJOR")

    field(SCAN, "1 second")
    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}

##############################################
# Manual Heat Power Output
##############################################
record(ai,  "$(NAME):MHP_RBV")
{
    field(DESC, "MHP readback")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_MHP $(PORT)")
    
    field(EGU,  "%")
    field(PREC, "2")

    field(SCAN, "1 second")
    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}

record(ao,  "$(NAME):MHP")
{
    field(DESC, "MHP set-point")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) SET_MHP $(PORT)")

    field(EGU,  "%")
    field(PREC, "2")

    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}



##############################################
# Ramp Rate
##############################################
record(ao,  "$(NAME):RMP-RT")
{
    field(DESC, "ramp rate set-point")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) SET_RAMP-RATE($(NAME)) $(PORT)")
    
    field(EGU,  "K/min")
    field(PREC, "1")

    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}
record(ai,  "$(NAME):RMP-RT_RBV")
{
    field(DESC, "ramp rate readback")

    field(EGU,  "K/min")
    field(PREC, "1")
}

##############################################
# Ramp Mode
##############################################
record(bo,  "$(NAME):RMP-MD")
{
    field(DESC, "trun of/off ramp")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) SET_RAMP-MODE($(NAME)) $(PORT)")

    field(ZNAM, "Off")
    field(ONAM, "On")

    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}
record(bi,  "$(NAME):RMP-MD_RBV")
{
    field(DESC, "ramp mode on/off")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_RAMP($(NAME)) $(PORT)")

    field(ZNAM, "Off")
    field(ONAM, "On")

    field(SCAN, "1 second")
    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}

##############################################
# Ramp Status
##############################################
record(bi,  "$(NAME):RMP-STAT")
{
    field(DESC, "ramp status")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_RAMP-STAT $(PORT)")

    field(ZNAM, "Not ramping")
    field(ONAM, "Setpoint is ramping")

    field(SCAN, "1 second")
    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}

##############################################
# Input B
##############################################
record(ai,  "$(NAME):TEMP-B")
{
    field(DESC, "input B temperature")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_TEMP-B $(PORT)")

    field(EGU,  "K")
    field(PREC, "2")

    field(SCAN, "1 second")
    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}