# EL737 EPICS Database for streamdevice support
# Macros
# P - Prefix
# NAME - just a name, e.g. DAQV2
# PROTO - Stream device protocol file
# ASYN_PORT - Low level Asyn IP Port to Counterbox

################################################################################
# Status Variables

record(longout, "$(P):$(NAME):MONITOR-CHANNEL")
{
 field(DESC, "PRESET-COUNT Monitors this channel")
 field(DRVL, "1") # Smallest Monitor Channel
 field(DRVH, "$(CHANNELS)") # Largest Monitor Channel
 field(DTYP, "stream")
 field(OUT, "@$(PROTO) writePresetMonitor($(P):$(NAME):) $(ASYN_PORT)")
 field(FLNK, "$(P):$(NAME):MONITOR-CHANNEL_RBV")
}

record(longin, "$(P):$(NAME):MONITOR-CHANNEL_RBV")
{
 field(DESC, "PRESET-COUNT Monitors this channel")
 field(DTYP, "stream")
 field(INP, "@$(PROTO) readPresetMonitor($(P):$(NAME):) $(ASYN_PORT)")
 field(SCAN, "5 second")
}

################################################################################
# Count Commands

################################################################################
# Read all monitors values

################################################################################
# Gating Settings

record(bo, "$(P):$(NAME):GATE-1")
{
 field(DESC, "First Gating Channel")
 field(ZNAM, "Disabled")
 field(ONAM, "Enabled")
 field(DTYP, "stream")
 field(OUT, "@$(PROTO) setGateStatus($(P):$(NAME):, 1) $(ASYN_PORT)")
}

record(bo, "$(P):$(NAME):GATE-ON-1")
{
 field(DESC, "Count when first Gate high/low")
 field(ZNAM, "Low")
 field(ONAM, "High")
 field(DTYP, "stream")
 field(OUT, "@$(PROTO) setGateStatus($(P):$(NAME):, 1) $(ASYN_PORT)")
}

record(bi, "$(P):$(NAME):GATE-1_RBV")
{
 field(DESC, "First Gating Channel")
 field(ZNAM, "Disabled")
 field(ONAM, "Enabled")
 field(DTYP, "stream")
 field(INP, "@$(PROTO) getGateStatus($(P):$(NAME):, 1) $(ASYN_PORT)")
 field(SCAN, "2 second")
}

record(bi, "$(P):$(NAME):GATE-ON-1_RBV")
{
 field(DESC, "Count when first Gate high/low")
 field(ZNAM, "Low")
 field(ONAM, "High")
}

record(bo, "$(P):$(NAME):GATE-2")
{
 field(DESC, "First Gating Channel")
 field(ZNAM, "Disabled")
 field(ONAM, "Enabled")
 field(DTYP, "stream")
 field(OUT, "@$(PROTO) setGateStatus($(P):$(NAME):, 2) $(ASYN_PORT)")
}

record(bo, "$(P):$(NAME):GATE-ON-2")
{
 field(DESC, "Count when first Gate high/low")
 field(ZNAM, "Low")
 field(ONAM, "High")
 field(DTYP, "stream")
 field(OUT, "@$(PROTO) setGateStatus($(P):$(NAME):, 2) $(ASYN_PORT)")
}

record(bi, "$(P):$(NAME):GATE-2_RBV")
{
 field(DESC, "Second Gating Channel")
 field(ZNAM, "Disabled")
 field(ONAM, "Enabled")
 field(DTYP, "stream")
 field(INP, "@$(PROTO) getGateStatus($(P):$(NAME):, 2) $(ASYN_PORT)")
 field(SCAN, "2 second")
}

record(bi, "$(P):$(NAME):GATE-ON-2_RBV")
{
 field(DESC, "Count when second Gate high/low")
 field(ZNAM, "Low")
 field(ONAM, "High")
}