# Database for Compton Calorimeter positions
#
# V.K.  July 16, 2012
# Macro paramters:
#   $(P)        - XPS Controller name (P=halldxps4:)
#   $(R)        - Motor (R=m1)

#alias("$(P)$(R)","$(pref)hd:compcal:motor")

record(ao,"$(pref)hd:compcal:motionCondit"){
  field(DTYP,"Soft Channel")
  field(VAL,"0.1")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:compcal:home"){
  field(DTYP,"Soft Channel")
  field(VAL,"0.0")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:compcal:home:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:compcal:home")
  field(OMSL,"closed_loop")
  field(OUT,"$(P)$(R).VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:compcal_at_home") {
  field(INPA, "$(P)$(R).RBV")
  field(INPB, "$(pref)hd:compcal:home")
  field(INPC, "$(P)$(R).DMOV")
  field(INPE, "$(pref)hd:compcal:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}
record(ao,"$(pref)hd:compcal:a"){
  field(DTYP,"Soft Channel")
  field(VAL,"79.000")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:compcal:a:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:compcal:a")
  field(OMSL,"closed_loop")
  field(OUT,"$(P)$(R).VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:compcal_at_a") {
  field(INPA, "$(P)$(R).RBV")
  field(INPB, "$(pref)hd:compcal:a")
  field(INPC, "$(P)$(R).DMOV")
  field(INPE, "$(pref)hd:compcal:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}
record(ao,"$(pref)hd:compcal:b"){
  field(DTYP,"Soft Channel")
  field(VAL,"235.400")
  field(PINI, "YES")
  field(SCAN, "Passive")
}
record(ao,"$(pref)hd:compcal:b:proc"){
  field(DTYP,"Soft Channel")
  field(DOL,"$(pref)hd:compcal:b")
  field(OMSL,"closed_loop")
  field(OUT,"$(P)$(R).VAL PP NMS")
  field(SCAN, "Passive")
}
record(calc, "$(pref)hd:compcal_at_b") {
  field(INPA, "$(P)$(R).RBV")
  field(INPB, "$(pref)hd:compcal:b")
  field(INPC, "$(P)$(R).DMOV")
  field(INPE, "$(pref)hd:compcal:motionCondit")
  field(SCAN, ".2 second")
  field(CALC, "(ABS(A-B)<E)&&(C=1)?1:0")
}