Prior to changing the IP address of the BLEPS.

25idBLEPSApp/Db/autoShutter.db

+record(bo, "$(P)$(S)Shtr:Enable") {
+  field(DESC, "User enable")
+  field(SCAN, "Passive")
+  field(DTYP, "Soft Channel")
+  field(ZNAM, "Disable")
+  field(ONAM, "Enable")
+}
+
+record(ai, "$(P)$(S)Shtr:ThresholdCurrent") {
+  field(DESC, "SR current to open at")
+  field(SCAN, "Passive")
+  field(DTYP, "Soft Channel")
+  field(VAL, "30")
+  field(EGU, "mA")
+  field(PINI, "YES")
+}
+
+record(calcout, "$(P)$(S)Shtr:EnableOff") {
+  field(DESC, "Disable autoshutter")
+  field(SCAN, "Passive")
+  field(INPA, "$(P)$(S)Shtr:modeOk.VAL CP")
+  field(INPB, "$(P)AClock$(A):Trigger.VAL CP")
+  field(CALC, "A&!B")
+  field(OOPT, "When Zero")
+  field(OUT, "$(P)$(S)Shtr:Enable PP NMS")
+}
+
+record(calcout, "$(P)$(S)Shtr:Arm") {
+  field(DESC, "Arm shutter open")
+  field(SCAN, "Passive")
+  field(INPA, "$(P)$(S)Shtr:Enable.VAL CP")
+  field(INPB, "$(P)$(S)Shtr:srCurrentOk CP")
+  field(INPC, "$(P)$(S)Shtr:BlepsShtrPermit CP")
+  field(INPD, "$(P)$(S)Shtr:AcisShtrPermit.VAL CP")
+  field(INPE, "$(P)$(S)Shtr:Status.VAL CP")
+  field(INPF, "$(P)$(S)Shtr:UserArm.VAL CP")
+  field(INPG, "$(P)$(S)Shtr:Trigger.VAL CP")
+  field(INPH, "$(P)$(S)Shtr:TrigOutOK.VAL CP")
+  field(CALC, "A#0&B#0&C#0&D#0&E#0&F#0&H#0")
+  field(OUT, "$(P)cdt$(T1):start PP NMS")
+}
+
+record(calcout, "$(P)$(S)Shtr:Trigger") {
+  field(DESC, "Send open signal")
+  field(SCAN, "Passive")
+  field(DISV, "0")
+  field(DISA, "0")
+  field(SDIS, "$(P)$(S)Shtr:Arm")
+  field(INPA, "$(P)cdt$(T1):trigger CP NMS")
+  field(CALC, "A")
+  field(OOPT, "Transition To Non-zero")
+}
+
+record(scalcout,"$(P)$(S)Shtr:TrigOutOK") {
+    field(DESC,"$(S) Check Trig OutLink")
+    field(INPA, "$(P)$(S)Shtr:Trigger.OUTV CP NMS")
+    field(INAA, "$(P)$(S)Shtr:Trigger.OUT CP NMS")
+    field(CALC,"(AA==''|A==0)?0:1")
+}
+
+record(scalcout,"$(P)$(S)Shtr:CalcTrigOut") {
+    field(DESC,"$(S) Parse Trig OutLink")
+    field(BB," PP MS")
+    field(CALC,"(AA=='')?AA:AA+BB")
+    field(OUT,"$(P)$(S)Shtr:Trigger.OUT CA NMS")
+}
+
+record(scalcout,"$(P)$(S)Shtr:OpenTSCalc") {
+    field(DESC,"$(S) Open TOD Calc")
+    field(INPA,"$(P)$(S)Shtr:Status.VAL CP")
+    field(CALC,"A")
+    field(OOPT,"Transition To Zero")
+    field(OUT, "$(P)$(S)Shtr:OpenTimeStamp.PROC PP")
+}
+
+record(stringin, "$(P)$(S)Shtr:OpenTimeStamp")
+{
+    field(DESC,"$(S) Open TOD Stamp")
+    field(INP,"$(P)AClock$(A):TOD")
+}
+
+record(calcout, "$(P)$(S)Shtr:PostTrig") {
+  field(DESC, "Start post timer")
+  field(SCAN, "Passive")
+  field(INPA, "$(P)$(S)Shtr:Arm CP NMS")
+  field(INPB, "$(P)$(S)Shtr:Status.VAL CP")
+  field(CALC, "!A&!B")
+  field(OUT, "$(P)cdt$(T2):start PP NMS")
+}
+
+record(scalcout, "$(P)$(S)Shtr:UserArm") {
+  field(DESC, "User Arm Logic")
+  field(SCAN, "Passive")
+  field(PINI, "YES")
+  field(A, "1")
+  field(CALC, "A")
+}
+
+record(bi, "$(P)$(S)Shtr:Active") {
+  field(DESC, "AutoOpen Status")
+  field(SCAN, "Passive")
+  field(DTYP, "Soft Channel")
+  field(ZNAM, "Off")
+  field(ONAM, "On")
+  field(INP, "$(P)$(S)Shtr:Arm.VAL CP NMS")
+}
+
+record(calcout, "$(P)$(S)Shtr:srCurrentOk") {
+  field(DESC, "SR current enough to open")
+  field(SCAN, "Passive")
+  field(INPA, "S:SRcurrentAI CP")
+  field(INPB, "$(P)$(S)Shtr:ThresholdCurrent CP")
+  field(CALC, "A>=B")
+}
+
+record(scalcout, "$(P)$(S)Shtr:modeOk") {
+  field(DESC, "Arm shutter open")
+  field(SCAN, "Passive")
+  field(INAA, "S:DesiredMode CP")
+  field(BB, "USER OPERATIONS")
+  field(CALC, "AA==BB")
+}
+
+# To allow simulation
+record(bi, "$(P)$(S)Shtr:BlepsShtrPermit") {
+  field(DESC, "BLEPS shutter permit")
+  field(SCAN, "Passive")
+  field(DTYP, "Soft Channel")
+  field(INP, "PSS:$(BL):FES_FEEPS_PERM CP")
+  field(ZNAM, "NO Permit")
+  field(ONAM, "Permit OK")
+}
+
+# To allow simulation
+record(bi, "$(P)$(S)Shtr:AcisShtrPermit") {
+  field(DESC, "BLEPS shutter permit")
+  field(SCAN, "Passive")
+  field(DTYP, "Soft Channel")
+  field(INP, "PSS:$(BL):FES_ACIS_PERM CP")
+  field(ZNAM, "NO Permit")
+  field(ONAM, "Permit OK")
+}
+
+#record(calc, "$(P)$(S)Shtr:Status_Calc") {
+#	field(DESC, "Inverts PSS Beam Present")
+#	field(SCAN, "Passive")
+#	field(INPA, "PSS:$(BL):FES_BEAM_BLOCKING.RVAL CP")
+#	field(CALC, "!A")
+#	field(PINI, "YES")
+#}
+
+record(bi, "$(P)$(S)Shtr:Status") {
+  field(DESC, "Shutter status from PSS")
+  field(SCAN, "Passive")
+  field(DTYP, "Soft Channel")
+#  field(INP, "PA:$(BL):$(S)_SHTRS_CLOSED CP")
+#  field(INP, "$(P)$(S)Shtr:Status_Calc.VAL CP")
+  field(INP, "PSS:$(BL):FES_BEAM_BLOCKING CP")
+  field(PINI, "YES")
+  field(ZNAM, "Open")
+  field(ONAM, "Closed")
+}
+

25idBLEPSApp/Db/autoShutter_settings.req

+# FILE... autoShutter_settings.req
+$(P)$(S)Shtr:Enable
+$(P)$(S)Shtr:ThresholdCurrent
+$(P)$(S)Shtr:Trigger.OUT
+$(P)$(S)Shtr:CalcTrigOut.AA
+file scalcout_settings.req P=$(P)$(S)Shtr:UserArm
+file calcout_settings.req P=$(P)$(S)Shtr:EnableOff

iocBoot/ioc25idBLEPS/softioc/.loglogin

+03/14/2023 - 09:49:04 - konstantinov

iocBoot/ioc25idBLEPS/st.cmd.Linux

@@ -16,6 +16,13 @@ ioc25idBLEPSLinux_registerRecordDeviceDriver(pdbbase)
 
 < bleps.iocsh
 
+###############################################################################
+# Setting up auto_shutter from std module
+###############################################################################
+dbLoadTemplate("substitutions/autoShutter.substitutions", "P=$(PREFIX)")
+
+doAfterIocInit("dbpf('25idBLEPS:AShtr:CalcTrigOut.AA','PSS:25ID:FES_OPEN_EPICS.VAL')")
+
 ###############################################################################
 iocInit
 ###############################################################################

iocBoot/ioc25idBLEPS/substitutions/autoShutter.substitutions

+# AutoShutter Open system databases
+# P = PV Prefix
+# S = Shutter ID (usually A)
+# BL = Beamline ID - <Sector##><ID/BM>  example: 08ID
+# T1, T2  = Countdown Timer IDs (usually 1 and 2)
+# A = AlarmClock ID (usually 1)
+
+file "$(TOP)/25idBLEPSApp/Db/autoShutter.db"
+{
+pattern
+{S,       BL,           T1,      T2,     A}
+{A,     "25ID",         1,       2,     1}
+#{C,     "25ID",         3,       4,     2}
+#{D,     "25ID",         5,       6,     3}
+}
+
+file "$(STD)/stdApp/Db/countDownTimer.vdb"
+{
+pattern
+{N}
+{1}
+{2}
+{3}
+{4}
+{5}
+{6}
+}
+
+file "$(STD)/stdApp/Db/alarmClock.vdb"
+{
+pattern
+{N}
+{1}
+{2}
+{3}
+}