# $Source: /cvs/G/DRV/SATECO/SATECO_base.template,v $
# $Date: 2008/10/28 14:01:25 $
# $Revision: 1.20 $
# $Author: wang_x1 $


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

# The Alarm Status of this record is used to trigger WATCHDOG
record(stringin, "$(NAME):VERSION")
{
    field(DESC, "control version")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_VERSION $(PORT)")
    field(SCAN, "1 second")
    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")

    field(FLNK, "$(NAME):ONESHOT")
}

##############################################
# Controller Mode
##############################################
record(mbbi, "$(NAME):MODE_RBV")
{
    field(DESC, "control mode")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_MODE $(PORT)")
    
    field(ZRVL, "0")
    field(ONVL, "1")

    field(ZRST, "Local")
    field(ONST, "Remote")

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

record(mbbo, "$(NAME):MODE")
{
    field(DESC, "control mode")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) SET_MODE $(PORT)")
    
    field(ZRVL, "0")
    field(ONVL, "1")

    field(ZRST, "Local")
    field(ONST, "Remote")

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


##############################################
# Connection Status Monitor
##############################################
record(mbbo,    "$(NAME):CONN-STAT")
{
    field(DESC, "connection status")

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

    field(ZRST, "Disconnected")
    field(ONST, "Connected")
    field(TWST, "Connecting") 

    field(ZRSV, "MAJOR")
    field(ONSV, "NO_ALARM")
    field(TWSV, "MINOR")
}
record(bo,      "$(NAME):CONN")
{
    field(DESC, "turn on/off connection")

    field(ZNAM, "Disconnect")
    field(ONAM, "Connect")
    field(ZSV,  "MAJOR")
    field(OSV,  "NO_ALARM")
   
    field(OUT,  "$(NAME):CONN-DFAN.VAL PP")
    field(FLNK, "$(NAME):CONN-CALC")
}

record(dfanout, "$(NAME):CONN-DFAN")
{
    field(DESC, "fanout connect action")
    field(OMSL, "supervisory")

    field(OUTA, "$(NAME):ASYNIO.ENBL")
#    field(OUTB, "$(NAME):ENBLSCAN.VAL")
    field(OUTC, "$(NAME):WATCHDOG.VAL PP")
}

record(calcout, "$(NAME):CONN-CALC")
{
    field(DESC, "connecting")
    field(INPA, "$(NAME):CONN.VAL")
    field(CALC, "A=1?2:0")
    field(DOPT, "Use CALC")
    field(OOPT, "Transition To Non-zero")
    field(OUT,  "$(NAME):CONN-STAT.VAL PP MS")
    field(SCAN, "Passive")
}

record(calcout, "$(NAME):ONESHOT")
{
    field(DESC, "watchdog trigger")
    field(INPA, "$(NAME):VERSION.STAT")
    field(CALC, "A=0?1:0")
    field(OOPT, "When Non-zero")
    field(OUT,  "$(NAME):WATCHDOG.VAL PP MS")
    field(SCAN, "Passive")
}

record(bo, "$(NAME):ENBLSCAN")
{
    field(DESC, "enable/disable record scan")
    field(DTYP, "Soft Channel")
    field(SCAN, "Passive")

    field(ZNAM, "Disable")
    field(ONAM, "Enable")
}

record(bo, "$(NAME):WATCHDOG")
{
    field(DESC, "connection indicator")
    field(DTYP, "Soft Channel")

    field(HIGH, "15")
    field(SCAN, "Passive")

    field(OUT,  "$(NAME):CONN-STAT.VAL PP")

    field(ZNAM, "Disconnected")
    field(ONAM, "Connected")
    field(ZSV,  "MAJOR")
    field(OSV,  "NO_ALARM")
}

record(asyn, "$(NAME):ASYNIO")
{
    field(DESC, "asyn port")
    field(PORT, "$(PORT)")
}

record(calcout, "$(NAME):TRIG-CONN")
{   
    field(DESC, "trigger scan")
    field(INPA, "$(NAME):WATCHDOG.VAL CPP MS")
    field(CALC, "A")
    field(OUT,  "$(NAME):CONN.VAL PP MS")
    field(OOPT, "Transition To Zero")
}

###########################################
#   PID
###########################################
record(ao,      "$(NAME):P")
{
    field(DESC, "PID - proportion set-point")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) SET_P($(NAME)) $(PORT)")

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

record(ai,      "$(NAME):P_RBV")
{
    field(DESC, "PID - proportion readback")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_P $(PORT)")

    field(SCAN, "1 second")
    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
    field(PREC, "1")
}
record(ao,      "$(NAME):I")
{
    field(DESC, "PID - integral set-point")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) SET_I($(NAME)) $(PORT)")

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

record(ai,      "$(NAME):I_RBV")
{
    field(DESC, "PID - integral readback")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_I $(PORT)")

    field(SCAN, "1 second")
    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
    field(PREC, "1")
}
record(ao,      "$(NAME):D")
{
    field(DESC, "PID - derivative set-point")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) SET_D($(NAME)) $(PORT)")

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

record(ai,      "$(NAME):D_RBV")
{
    field(DESC, "PID - derivative readback")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_D $(PORT)")

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

###########################################
#   Heating Level
###########################################
record(ao,      "$(NAME):HT-LVL")
{
    field(DESC, "heater level set-point")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) SET_HEAT-LEVEL $(PORT)")


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

    field(HOPR, "100")
    field(LOPR, "0")
    field(PREC, "1")
    field(EGU,  "%")
}

record(ai,      "$(NAME):HT-LVL_RBV")
{
    field(DESC, "heater level readback")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_HEAT-LEVEL $(PORT)")

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

    field(HOPR, "100")
    field(LOPR, "0")
    field(PREC, "1")
    field(EGU,  "%")
}

###########################################
#   Temperature
###########################################

record(ai, "$(NAME):TEMP_RBV")
{
    field(DESC, "temperature")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_TEMP $(PORT)")
    field(FLNK, "$(NAME):TEMP-AVG")

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

    field(PREC, "2")
    field(EGU,  "$(UNIT)")
}

record(ao, "$(NAME):TEMP")
{
    field(DESC, "temperature")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) SET_TEMP $(PORT)")

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

    field(PREC, "2")
    field(EGU,  "$(UNIT)")

    field(FLNK, "$(NAME):GO-1 PP MS")
}

#!
record(ai, "$(NAME):TEMP-SP")
{
    field(DESC, "temperature setpoint")
    field(DTYP, "stream")
    field(INP,  "@$(PTCOLS) GET_TEMP-SP $(PORT)")

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

    field(PREC, "2")
    field(EGU,  "$(UNIT)")
}

###########################################
#   busy record for temperature set-point
###########################################
record(calcout, "$(NAME):GO-1")
{
    field(DESC, "")
    field(INPA, "$(NAME):TEMP.SIMM")
    field(CALC, "A=1?0:1")

    field(OUT,  "$(NAME):GO-2 PP MS")
    field(OOPT, "When Non-zero")
}

record(bo,  "$(NAME):GO-2")
{
    field(DESC, "")
    field(DTYP, "Soft Channel")
    field(OMSL, "supervisory")
    field(VAL,  "1")
    field(OUT,  "$(NAME):BUSY.VAL PP MS")
                                # update TEMP-STAT, not waiting for next readback
    field(FLNK, "$(NAME):RNG-CALC")
}

record(busy,    "$(NAME):BUSY")
{
}

###########################################
#   Temperature Status Monitor
###########################################

record(longout, "$(NAME):SETTL-PRD")
{
    field(DESC, "settling time")
    field(EGU,  "s")
    field(VAL,  "120")
    field(FLNK, "$(NAME):TEMP-AVG")
}

record(ao,      "$(NAME):TOLERANCE")
{
    field(DESC, "tolerance band width")
    field(EGU,  "$(UNIT)")
    field(VAL,  "1")
    field(PREC, "2")
}

record(sub, "$(NAME):TEMP-AVG")
{
    field(DESC, "temperature average")
    field(INPA, "$(NAME):SETTL-PRD.VAL")
    field(INPB, "$(NAME):TEMP_RBV.VAL")
    field(INPD, "0") # Continuous Mode
    field(INAM, "initSubAve")
    field(SNAM, "SubAve")
    field(PREC, "2")
    field(SCAN, "Passive")

    field(FLNK, "$(NAME):RNG-CALC")
}

record(calcout, "$(NAME):RNG-CALC")
{
    field(DESC, "temperature status calc")
    field(INPA, "$(NAME):TEMP-AVG.VAL")
    field(INPB, "$(NAME):TEMP.VAL")
    field(INPC, "$(NAME):TOLERANCE.VAL")
    field(INPD, "$(NAME):TEMP_RBV.VAL")

    field(CALC, "(ABS(A-B)<=C)&&(ABS(D-B)<=C)?0:1")
    field(DOPT, "Use CALC")
    field(OOPT, "When Zero")

    field(OUT,  "$(NAME):BUSY.VAL PP MS")
    field(FLNK, "$(NAME):TEMP-STAT.VAL PP MS")

    field(SCAN, "Passive")
}

record(mbbo,    "$(NAME):TEMP-STAT")
{
    field(DESC, "temperature status")

    field(DOL,  "$(NAME):RNG-CALC MS")
    field(OMSL, "closed_loop")
 
    field(ZRVL, "0")
    field(ONVL, "1")

    field(ZRST, "Inside Range")
    field(ONST, "Out of Range")

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

    field(SCAN, "Passive")
}
###########################################
#   For Debug Use
###########################################
record(stringout,    "$(NAME):QUERY")
{
    field(DESC, "debug - query")
    field(DTYP, "stream")
    field(OUT,  "@$(PTCOLS) QUERY($(NAME):RECV.VAL) $(PORT)")
    field(DISV, "0")
    field(SDIS, "$(NAME):WATCHDOG.VAL")
}
record(stringout,    "$(NAME):RECV")
{
    field(DESC, "debug - received message")
    field(DTYP, "Soft Channel")
}

###########################################
#  retrieve temp set-point when connected
###########################################
record(calcout, "$(NAME):TRIG-STAT")
{   
    field(DESC, "trigger TRIG-SP")
    field(INPA, "$(NAME):CONN-STAT.VAL CPP MS")
    field(CALC, "A=1?1:0")
    field(OUT,  "$(NAME):TEMP-SIMM1.VAL PP MS")
    field(OOPT, "Transition To Non-zero")
}
record(bo,      "$(NAME):TEMP-SIMM1")
{
    field(DESC, "set TEMP in simulation")
    field(OUT,  "$(NAME):TEMP.SIMM")
    field(FLNK, "$(NAME):SEQ")
}

record(sseq,    "$(NAME):SEQ")
{
    field(SELM, "All")

    field(WAIT1,"Wait")
    field(DO1,  "1")
    field(LNK1, "$(NAME):TEMP-SP.PROC CA")

    field(DOL2,  "$(NAME):TEMP-SP.VAL")
    field(LNK2,  "$(NAME):TEMP.VAL PP")
 
    field(FLNK, "$(NAME):TEMP-SIMM2")
}

record(bo,      "$(NAME):TEMP-SIMM2")
{
    field(DESC, "reset TEMP out simulation")
    field(DOL,  "0")
    field(OUT,  "$(NAME):TEMP.SIMM")
    field(OMSL, "closed_loop")
}